Procedure Kill var integer CurrentMob Cardinal Mobtype array of Cardin

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Procedure Kill;
var
i : integer;
CurrentMob : Cardinal;
Mobtype: array of Cardinal;
begin
while not dead do
begin
FindDistance:=29;
Mobtype := [$0046, $0046, $0046, $0046];
for i := 0 to Length(Mobtype) -1 do
begin
if (FindType(Mobtype[e],ground) > 0) then
begin
CurrentMob:=FindItem;
Attack(CurrentMob);
while not dead and (GetHP(CurrentMob)<>0) do
begin
if FindType($000A,ground) = 0 then
begin
UOSAY('.MorphDem');
wait(500);
end;
while (GetDistance(CurrentMob) > 1) do
begin
Attack(CurrentMob);
NewMoveXY(GetX(CurrentMob),GetY(CurrentMob), True, 1, True);
end;
Blood;
wait(50);
end;
Loot;
end;
wait(50);
end;
end;
end;