Temat: Szukasz skryptu? Zajrzyj tutaj!

Const
SQM = 3 // jaki odstep

function GetCreatureByID(ID: integer): TCreature;
var
x: integer;
begin
Result := nil;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.Count then Break;
if Creatures.Creature[x].ID = ID then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;

UpdateWorld;
KnightID := Self.Following;
while not terminated do
begin
UpdateWorld;
Knight := GetCreatureByID(KnightID);
if Knight <> nil then
if Knight.Z = self.z then
begin
if self.following then
if (abs(Self.X-Knight.X) < SQM + 1) and (abs(Self.Y-Knight.Y) < SQM + 1) then
begin
Knight.Following := false;
UpdateWorld;
Self.MoveTo(Self.X,Self.Y,Self.Z);
end;
if not self.following then
begin
if (abs(Self.X-Knight.X) > SQM) or (abs(Self.Y-Knight.Y) > SQM) then
Knight.Following := true;
end;
if (not self.following) and (abs(Self.X - Knight.X) < 2) and (ABS(Self.Y - Knight.Y) < 2) then
begin
Knight.Following := true;
sleep(100);
Knight.Following := false;
sleep(1000);
end;
end;
else self.displaytext('Target is not on the same floor!');
else self.displaytext('Target losed!!!');
sleep(100);
end;

function GetCreatureByID(ID: integer): TCreature;
var
x: integer;
begin
Result := nil;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.Count then Break;
if Creatures.Creature[x].ID = ID then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;

UpdateWorld;
KnightID := Self.Following;
while not terminated do
begin
UpdateWorld;
Knight := GetCreatureByID(KnightID);
if Knight <> nil then
if Knight.Z = self.z then
begin
if self.following then
if (abs(Self.X-Knight.X) < SQM + 1) and (abs(Self.Y-Knight.Y) < SQM + 1) then
begin
Knight.Following := false;
UpdateWorld;
Self.MoveTo(Self.X,Self.Y,Self.Z);
end;
if not self.following then
begin
if (abs(Self.X-Knight.X) > SQM) or (abs(Self.Y-Knight.Y) > SQM) then
Knight.Following := true;
end;
if (not self.following) and (abs(Self.X - Knight.X) < 2) and (ABS(Self.Y - Knight.Y) < 2) then
begin
Knight.Following := true;
sleep(100);
Knight.Following := false;
sleep(1000);
end;
end;
else self.displaytext('Target is not on the same floor!');
else self.displaytext('Target losed!!!');
sleep(100);
end;