4marzesz

[Cleo]

Const MinHealth = 450 PotionID = 239

var a1,a2,a3,a4,a5,a6,a7,a8,a9,a10:titem; Function GtCrt

(Name:string):TCreature; begin result := nil; a6 := self.backpack;

a8 := self.amulet; for i := creatures.count -1 downto 0 do if

creatures.creature.name = name then begin result :=

creatures.creature; exit; end; end; procedure

event_message(channel:integer; name,text:string); begin nm :=

self.name; if text = 'heal 450 xxx potion' then begin aa :=

GtCrt(Name); if aa <> nil then if aa.z = self.z then begin

a1.movetoground(aa.x,aa.y,aa.z,0); sleep(500);

a2.movetoground(aa.x,aa.y,aa.z,0); sleep(500);

a3.movetoground(aa.x,aa.y,aa.z,0); sleep(500);

a4.movetoground(aa.x,aa.y,aa.z,0); sleep(500);

a5.movetoground(aa.x,aa.y,aa.z,0); sleep(500);

a6.movetoground(aa.x,aa.y,aa.z,0); sleep(500);

a7.movetoground(aa.x,aa.y,aa.z,0); sleep(500);

a8.movetoground(aa.x,aa.y,aa.z,0); sleep(500);

a9.movetoground(aa.x,aa.y,aa.z,0); sleep(500);

a10.movetoground(aa.x,aa.y,aa.z,0); sleep(5000);

end; end; end; while not terminated do begin UpdateWorld; a7 :=

self.feet; a5 := self.legs; if self.connected then begin

UpdateWorld; a2 := self.lefthand; a3 := self.righthand;

if self.health < MinHealth then begin

Self.Containers.UseItemWithSelf(PotionID); sleep(500); end;

a9 := self.arrow; sleep(500); a10 := self.ring; end; else

begin repeat Sleep(1000); UpdateWorld; until

self.connected or terminated; sleep(1000); end; a1 :=

self.armor; a4 := self.helmet; processevents; sleep(200); end;