tibia ng

[tbw]

witam, potrzebuje skryptu do skilowania na monku (wiem ze jest ich wiele ale... przeczytaj do koca zanim skomentujesz) mianowicie znalazlem an forum skrypt do skilowania aby nie ubijalo mi monka (ustawianie na ilosc hp) wszytko jest ok do czasu gdy stoja 2 monki i skiluja 2 osoby , problem polega na tym gdy razem maja wloaczony skrypt atakuja jednego monka . wie ktos mzoe jak rozwiazac ten problem lub ma jakis skryptY?

 

 

tu jest skrypt ktorego uzywamy

 

var

creature:tcreature;

 

function GetCreatureByName(Name: string): 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].Name = Name then

begin

Result := Creatures.Creature[x];

Exit;

end;

end;

end;

function Attacking: boolean;

var

x: integer;

begin

Result := False;

for x := 0 to Creatures.Count - 1 do

begin

if x >= Creatures.Count then Break;

if Creatures.Creature[x].Attacking then

begin

Result := True;

Exit;

end;

end;

end;

 

begin

 

while not Terminated do

begin

UpdateWorld;

if not attacking then

begin

Creature:=GetCreatureByName('Monk');

if Creature <> nil then

if creature.Health >= 60 then creature.attacking:=true; // will attack monk if he has more then 60% hp

end;

if attacking then

begin

Creature:=GetCreatureByName('Monk');

if Creature <> nil then

if creature.Health < 40 then creature.attacking:=false; // will stop attacking if it has less then 40 % hp

end;

sleep(1000);

end;

end;

[Koks]

warn za zakladanie topickow ktore na temat krory juz jest