Ng Script Potrzebuje

[Amfetamina]

Potrzebuje takiego script do NG o ile jest aby lał np DL z Exori Hur lub Exori iTP Bo tylko da Druida i Sorca jest odrazu Vis Flam I MORT bardzo bym porsił o taki script !! o ile jest to możliwe!

[Bandita]

const

frigo = ['fire elemental','fire devil'];

 

flam = ['terror bird','slime','merklin'];

 

tera = ['cyclops'];

 

vis = ['acolyte of the cult'];

 

mort = ['black knight'];

useWand = 1 // 1 to attack with wand also, 0 to do not attack with wand.

 

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;

 

begin

sleepTime := 1100;

if useWand = 0 then

sleepTime := 1000;

 

while not terminated do

begin

updateworld;

if Self.Attacking <> nil then

begin

creature := GetCreatureByID(self.attacking);

if creature <> nil then

begin

exori := GetExoriType(creature);

if exori <> '' then

begin

updateworld;

if (abs(creature.x - self.x) <= 3) and (abs(creature.y - self.y) <= 3) then

begin

if Self.Attacking > 0 then

if creature.visible then

self.say(exori);

end;

end;

end;

end;

sleep(sleepTime);

end;

end;

 

 

wklej sobie dragon lord do sekcji FRIGO

i niżej gdzie masz na czerwono zmień sobie czar np exori hur

bedzie podbiegać do dla i siekać exori hur do momentu jak padnie.

[Spevil]

Const

MinMonsterHp = 100 //%

AntiExhaustedHP = 1000 // it won't say exori con if less then this HP.

Spell = 'Exori Hur'

MinMana = 200

MonsterList = ['Dragon Lord']

Delay = 1400 //millseconds

 

function MonsterInList(N:String):Boolean;

begin

Result := false;

for i := Low(MonsterList) to high(MonsterList) do

begin

if MonsterList = N then

begin

Result := true;

exit;

end;

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;

 

if Delay < 100 then

begin

Self.DisplayText('Delay must be higher.');

exit;

end;

while not terminated do

begin

UpdateWorld;

C := GetCreatureByID(Self.Attacking);

if C <> nil then

if C.Health < MinMonsterHP then

if Self.Health > AntiExhaustedHP then

if Self.Mana > MinMana then

if MonsterInList(C.Name) then

begin

Self.Say(Spell);

Sleep(Delay-100);

end;

sleep(100);

end;