Я бы расставил контрольные маршрутные точки, добавил к ним коллайдеры в виде триггеров. На них накинуть небольшой скрипт, говорящий какое действие нужно сделать, что бы попасть в следующую маршрутную точку(к примеру повернуть налево и продолжать идти). Когда NPC вступает с ним в коллизию(OnTriggerEnter), берет из него необходимые параметры для продолжения движения. Я так себе реализовывал.
Это если линейно и по кругу. А если рандомно передвижение по территории, то все с теми же контрольным точками, только нужно получить их все, выбрать случайную точку и обходом по графу идти до этой точки. Как только достиг, выбрал случайную следующую точку и пошел дальше.
var i,imax,imin:integer; a:array[1..10] of integer; begin Randomize; imax:=1; imin:=1; for i:=1 to 10 do begin a[i]:=Random(21)-10; Write(a[i],' '); if a[i]<a[imin] then imin:=i else if a[i]>a[imax] then imax:=i end; Writeln; i:=a[imax]; a[imax]:=a[imin]; a[imin]:=i; for i:=1 to 10 do Write(a[i],' '); Writeln end.
Решение
Я бы расставил контрольные маршрутные точки, добавил к ним коллайдеры в виде триггеров. На них накинуть небольшой скрипт, говорящий какое действие нужно сделать, что бы попасть в следующую маршрутную точку(к примеру повернуть налево и продолжать идти). Когда NPC вступает с ним в коллизию(OnTriggerEnter), берет из него необходимые параметры для продолжения движения. Я так себе реализовывал.
Это если линейно и по кругу. А если рандомно передвижение по территории, то все с теми же контрольным точками, только нужно получить их все, выбрать случайную точку и обходом по графу идти до этой точки. Как только достиг, выбрал случайную следующую точку и пошел дальше.
Объяснение:
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-10,10); a.Println;
Swap(a[a.IndexMax],a[a.IndexMin]); a.Println;
end.
Пример
-4 4 5 9 8 -3 -10 -9 -2 -2
-4 4 5 -10 8 -3 9 -9 -2 -2
2. Решение в стиле "ТурбоПаскаль 1983г."
var
i,imax,imin:integer;
a:array[1..10] of integer;
begin
Randomize;
imax:=1;
imin:=1;
for i:=1 to 10 do begin
a[i]:=Random(21)-10;
Write(a[i],' ');
if a[i]<a[imin] then imin:=i
else
if a[i]>a[imax] then imax:=i
end;
Writeln;
i:=a[imax]; a[imax]:=a[imin]; a[imin]:=i;
for i:=1 to 10 do
Write(a[i],' ');
Writeln
end.