[Resolvido] Presciso Urgente

[Weeous 0]

PRESCISO DE SCRYPT PRA ATAKA EXORI FLAM JUNTO COM underworld rod

SE ALGUEM PUDER ME AJUDAR...

[Private Sub Teste 353]

const

frigo = ['banshee'];

flam = ['ancient scarab'];

tera = ['cyclops'];

vis = ['acolyte of the cult'];

mort = ['black knight'];

useWand = 1 // 1 se estiver usando Wand/rod 0 se nao estiver usando

function GetExoriType(Crea: TCreature): String;

begin

Result := '';

for z := Low(frigo) to High(frigo) do

begin

if AnsiLowerCase(Crea.Name) = AnsiLowerCase(frigo[z]) then

Result := 'exori frigo';

end;

for z := Low(flam) to High(flam) do

begin

if AnsiLowerCase(Crea.Name) = AnsiLowerCase(flam[z]) then

Result := 'exori flam';

end;

for z := Low(tera) to High(tera) do

begin

if AnsiLowerCase(Crea.Name) = AnsiLowerCase(tera[z]) then

Result := 'exori tera';

end;

for z := Low(vis) to High(vis) do

begin

if AnsiLowerCase(Crea.Name) = AnsiLowerCase(vis[z]) then

Result := 'exori vis';

end;

for z := Low(mort) to High(mort) do

begin

if AnsiLowerCase(Crea.Name) = AnsiLowerCase(mort[z]) then

Result := 'exori mort';

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;