Simba Code:
procedure FightGuards;
var x, y, Guard1, Guard2, Guard3, Guard4, Guard5, Guard6, Guard7, Guard8, Guard9: Integer;
TPA: TPointArray;
begin
Writeln('Looking for a Guard');
Guard1 := DTMFromString('mlwAAAHicY2dgYHgPxF+B+A0UvwPiT0D8AYhnA/ECIJ4PxDOAeDKSmL6qFIO9sQyDp5sbw4S8QIY6XXWGyLBQBid7ewZ+oDwuzIgHQwEADDEQ+g==');
Guard2 := DTMFromString('mrAAAAHic42BgYPgKxH+B+BeU/RGI3wPxFyD+DsSOUOwKxO5A7ALE9kBsDcS2QFxWWMjgbinPEB0RzuBkb8/g6ebGEOSkyhDgoMtgpafAwA9Ugw8zEsAwAAAPcRDS');
Guard3 := DTMFromString('mrAAAAHic42BgYMhmZGBIAeIMIM4B4mQoOx+Ii4CYC4iFgFgYiAWBmAeI2YCYFYg5gThPXYnB3NSUIchJFYxtbJQY7I2VGaq01RjcLTUY+IF24MOMBDAMAAA6aQm0');
Guard4 := DTMFromString('mwQAAAHic42RgYLBnZGAwA2JrIHYAYjcoGyTuAsROQLwLqG4PEO+H4n1AvB2INwPxVgaIvLudBkOAhwpDXnYmg7uLC4O3ixKDlbECg7eTFkNGvBtDhqkCAz9QHSHMSASGAwAEJBCd');
Guard5 := DTMFromString('mrAAAAHic42BgYLBnZGCwAGIbIHYEYhcgtgZiWyB2AuIZQDVzgXgeEM8B4plAPBWIJ0JpJyNZBk8LcYbQwECGgpxshsiwUAZPcwWGTlkRhkhnDQZ+oBp8mJEAhgEA3WkNzw==');
Guard6 := DTMFromString('mlwAAAHicY2dgYGBkBBEMDKxQzALE/4FC/4A4FIi9gNgHiAOBOByII4A4CIijI8IZwp3UGYLsVBn8rJUZcjIyGKLdZBg8zRUY+IHyuDAjHgwFANJSCoo=');
Guard7 := DTMFromString('m6wAAAHic42ZgYDgExCeB+BQQHwbiPUC8G4j3QTFI/igUVwJxORDXAnEdFFcAcTEQ5wFxDhDnA3EZEAf4+jIEeaky6GuJMpgYGzHoqAsz+LkpM5joyTK422kw1DmoMwS46zKs6k9g4AeqJxYzkoCRAABMPBZj');
Guard8 := DTMFromString('mwQAAAHicjcqxCkAAAIThM5qMlA0pUooNJaOUvAEDipS8jGRA8qBukJWrr1t+EUArACU1VFFPE43UUU07u40uOp8/aKWZFop9HUViwHNdaKoEx7aRRwqyQEYaWhhMDRK7L8IP726ruw8Y');
Guard9 := DTMFromString('m1gAAAHic42JgYMhjZGDIBOJsIC4E4hIorgDiYkaIPEjOAohtgNgBim2hYqZArA/ExlC2vakyg5GBPoOJsRFDgIsKg5O9PUODowaDn5MOQ56FEoOLpRqDn7cXAz/QbmIwI5EYAQDu9w5/');
If FindDTM(Guard1, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
Writeln('Guard found KILL IT!');
MMouse(x,y,0,0);
Wait(50 + (random(50)));
repeat
Wait(50 + random(50));
case Random(2) of
0:
begin
Mouse(x,y,0,0,false);
ChooseOption('ttac');
end;
1:
Begin
Mouse(x,y,0,0,true);
end;
end;
until (not InFight) or (not OthersInFight) or (not LoggedIn)
end else If FindDTM(Guard2, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
Writeln('Guard found KILL IT!');
MMouse(x,y,0,0);
Wait(50 + (random(50)));
repeat
Wait(50 + random(50));
case Random(2) of
0:
begin
Mouse(x,y,0,0,false);
ChooseOption('ttac');
end;
1:
Begin
Mouse(x,y,0,0,true);
end;
end;
until (not InFight) or (not OthersInFight) or (not LoggedIn)
end else If FindDTM(Guard3, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
Writeln('Guard found KILL IT!');
MMouse(x,y,0,0);
Wait(50 + (random(50)));
repeat
Wait(50 + random(50));
case Random(2) of
0:
begin
Mouse(x,y,0,0,false);
ChooseOption('ttac');
end;
1:
Begin
Mouse(x,y,0,0,true);
end;
end;
until (not InFight) or (not OthersInFight) or (not LoggedIn)
end else If FindDTM(Guard4, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
Writeln('Guard found KILL IT!');
MMouse(x,y,0,0);
Wait(50 + (random(50)));
repeat
Wait(50 + random(50));
case Random(2) of
0:
begin
Mouse(x,y,0,0,false);
ChooseOption('ttac');
end;
1:
Begin
Mouse(x,y,0,0,true);
end;
end;
until (not InFight) or (not OthersInFight) or (not LoggedIn)
end else If FindDTM(Guard5, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
Writeln('Guard found KILL IT!');
MMouse(x,y,0,0);
Wait(50 + (random(50)));
repeat
Wait(50 + random(50));
case Random(2) of
0:
begin
Mouse(x,y,0,0,false);
ChooseOption('ttac');
end;
1:
Begin
Mouse(x,y,0,0,true);
end;
end;
until (not InFight) or (not OthersInFight) or (not LoggedIn)
end else If FindDTM(Guard6, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
Writeln('Guard found KILL IT!');
MMouse(x,y,0,0);
Wait(50 + (random(50)));
repeat
Wait(50 + random(50));
case Random(2) of
0:
begin
Mouse(x,y,0,0,false);
ChooseOption('ttac');
end;
1:
Begin
Mouse(x,y,0,0,true);
end;
end;
until (not InFight) or (not OthersInFight) or (not LoggedIn)
end else If FindDTM(Guard7, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
Writeln('Guard found KILL IT!');
MMouse(x,y,0,0);
Wait(50 + (random(50)));
repeat
Wait(50 + random(50));
case Random(2) of
0:
begin
Mouse(x,y,0,0,false);
ChooseOption('ttac');
end;
1:
Begin
Mouse(x,y,0,0,true);
end;
end;
until (not InFight) or (not OthersInFight) or (not LoggedIn)
end else If FindDTM(Guard8, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
Writeln('Guard found KILL IT!');
MMouse(x,y,0,0);
Wait(50 + (random(50)));
repeat
Wait(50 + random(50));
case Random(2) of
0:
begin
Mouse(x,y,0,0,false);
ChooseOption('ttac');
end;
1:
Begin
Mouse(x,y,0,0,true);
end;
end;
until (not InFight) or (not OthersInFight) or (not LoggedIn)
end else If FindDTM(Guard9, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
Writeln('Guard found KILL IT!');
MMouse(x,y,0,0);
Wait(50 + (random(50)));
repeat
Wait(50 + random(50));
case Random(2) of
0:
begin
Mouse(x,y,0,0,false);
ChooseOption('ttac');
end;
1:
Begin
Mouse(x,y,0,0,true);
end;
end;
until (not InFight) or (not OthersInFight) or (not LoggedIn)
end;
FreeDTM(Guard1);
FreeDTM(Guard2);
FreeDTM(Guard3);
FreeDTM(Guard4);
FreeDTM(Guard5);
FreeDTM(Guard6);
FreeDTM(Guard7);
FreeDTM(Guard8);
FreeDTM(Guard9);
end;