[SCRIPT] Atacar tal Criatura primeiro

[Tricoder 896]

Const 

Name= ['Necromancer', 'Hero', 'Orc Shaman', 'Minotaur Mage']; 
SwitchAt=30; //

function GetPlace(st:string):integer; 
var 
x:integer; 
begin 
Result:=1000; 
for x:=Low(Name) To High(Name) do 
begin 
if Name[x]=st then 
Result:=x; 
end; 
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; 

function IsCreatureBesideYou(c: TCreature): boolean; 
begin 
UpdateWorld; 
Result := False; 
if (abs(c.X-self.X) <= 4) and (abs(c.Y-self.Y) <= 4) then begin if c.Z = self.Z then begin Result := True; end; end; end; var x:integer; b:boolean; begin while not terminated do begin b:=false; updateworld; If (Self.Attacking<>0) then 
begin 
Creature:=GetCreatureByID(Self.Attacking); 
if Creature<>nil then 
if SwitchAt= Creatures.Count then Break; 
if Creatures.Creature[x].NPC then 
if Creatures.Creature[x].z=self.z then 
if Creatures.Creature[x].Name<>self.name then 
if Creatures.Creature[x].Attacking = false then 
if IsCreatureBesideYou(Creatures.Creature[x]) then 
if GetPlace(Creature.Name)>GetPlace(Creatures.Creature[x].Name) then 
begin 
sleep(100); 
updateworld; 
Creatures.Creature[x].attacking:=true; 
B:=true; 
end; 
end; 
end; 
end; 
Sleep(100); 
end; 
end;

Créditos: ngmax