Надо дописать хил, ну и если уже вообще чтоб угодить чтоб сбрасывал атаку когда хп меньше половины.
Заранее большое спасибо.
Program Sparing;
const
EnemyID = $0000648E;
var t,i : Integer;
Weapon : array[1..3] of cardinal;
{$Include 'all.inc'}
procedure weaptype;
begin
Weapon[1] := $0DF5; // Butcher knife
Weapon[2] := $0F51; //Dager
Weapon[3] := $13FE; //smitty humer
end;
Begin
weaptype;
i:=1
while not dead do
begin
WaitConnection(2000);
CheckSave;
Hungry(1,BackPack)
Attack(EnemyID)
if (ObjAtLayer(RHandLayer) = 0) then
begin
equipt(RHandLayer,Weapon[1]);
wait(1000);
i:=i+1;
if (i>3) then i:=1
end;
for t :=1 to 10 do
begin
waittargetself
useskill('Anatomy')
wait(10000)
end;
end;
end.
