Stealth Client Forum

Code: Select all

Program War;

var
bandages:cardinal;
t:integer;

const
Enemy = $00020CDF; {Shogo}

{$Include 'all.inc'}

procedure healoponent;
begin
SetWarMode(false);
repeat
bandages:=FindType($0E21,ground);
UseObject(bandages);
WaitTargetObject(enemy);
wait(1000);
until GetHP(enemy)=GetMaxHP(enemy)
Hungry(1,ground);
end;


Begin
while True do
	begin
	 if connected then begin
	 for t:=1 to 100 do begin
     WaitConnection(1000);
		checksave;
		if GetHP(enemy)*150/GetMaxHP(enemy) < 30 then
		begin
			healoponent;
		end;
		If HP<30 then
		begin
			SetWarMode(false);
			repeat
				wait(350);
			until HP=MaxHP
		end;
		attack(enemy);
	end;
	end;
	end;
End.