[Soulsplit] Fighter 1.02

{
-------------------------------VALID MONSTERS---------------------------------
-skeleton,ghost,warewolf,dwarf,bat,druid
If you want more added ask me on thread. some are not reliable such as guards.
DO NOT WEAR A FIGHTER TORSO IF YOU ARE FIGHTING SKELETONS
}
Program autofight;
{$i srl/srl.simba}
const
  time = 2; // in seconds
  rwait = 1000;
  monsterkill = ('ghost');
var
hpbar,skelet,ghost,dwarf,druid,bat,warewolf: Integer;
procedure CheckCombat;
var
  X, Y: Integer;
    begin
    Wait((time * 500) + Random(rwait));
      begin
      repeat
      until  (FindDTM(hpbar, x, y, 172, 87, 338, 224)=false);
  end;
end;
procedure ClickWarewolf;
var
  X, Y: Integer;
begin
  if FindDTM(ghost, x, y, 4, 6, 512, 333) then
  begin
    MouseSpeed:=25;
    mmouse(x, y,1,1);
    Wait(20 + Random(50));
    ClickMouse(X, Y, Mouse_Left);
    Wait(1200 + Random(500));
    CheckCombat;
  end;
end;
procedure ClickBat;
var
  X, Y: Integer;
begin
  if FindDTM(ghost, x, y, 4, 6, 512, 333) then
  begin
    MouseSpeed:=25;
    mmouse(x, y,1,1);
    Wait(20 + Random(50));
    ClickMouse(X, Y, Mouse_Left);
    Wait(1200 + Random(500));
    CheckCombat;
  end;
end;
procedure ClickDruid;
var
  X, Y: Integer;
begin
  if FindDTM(ghost, x, y, 4, 6, 512, 333) then
  begin
    MouseSpeed:=25;
    mmouse(x, y,1,1);
    Wait(20 + Random(50));
    ClickMouse(X, Y, Mouse_Left);
    Wait(1200 + Random(500));
    CheckCombat;
  end;
end;
procedure ClickDwarf;
var
  X, Y: Integer;
begin
  if FindDTM(ghost, x, y, 4, 6, 512, 333) then
  begin
    MouseSpeed:=25;
    mmouse(x, y,1,1);
    Wait(20 + Random(50));
    ClickMouse(X, Y, Mouse_Left);
    Wait(1200 + Random(500));
    CheckCombat;
  end;
end;
procedure ClickGhost;
var
  X, Y: Integer;
begin
  if FindDTM(ghost, x, y, 4, 6, 512, 333) then
  begin
    MouseSpeed:=25;
    mmouse(x, y,1,1);
    Wait(20 + Random(50));
    ClickMouse(X, Y, Mouse_Left);
    Wait(1200 + Random(500));
    CheckCombat;
  end;
end;
procedure ClickSkeleton;
var
  X, Y: Integer;
begin
  if FindDTM(skelet, x, y, 4, 6, 512, 333) then
  begin
    MouseSpeed:=25;
    mmouse(x, y,1,1);
    Wait(20 + Random(50));
    ClickMouse(X, Y, Mouse_Left);
    Wait(1200 + Random(500));
    CheckCombat;
  end;
end;
procedure Chooseproc;
   begin
   if monsterkill = ('ghost') then
    begin
    ClickGhost;
   end;
   if monsterkill = ('skeleton') then
    begin
    Clickskeleton;
   end;
   if monsterkill = ('bat') then
    begin
    ClickBat;
   end;
   if monsterkill = ('druid') then
    begin
    ClickDruid;
   end;
   if monsterkill = ('warewolf') then
    begin
    Clickwarewolf;
   end;
   if monsterkill = ('dwarf') then
    begin
    Clickskeleton;
   end;
end;
var
  X,Y,s,breaks,outcome: Integer;
    begin
    skelet := DTMFromString('mLgAAAHicY2JgYIhjZGCIBuK9QPZJIO7paWJoaqpk4ASyQZgRihkYAJb8BW8=');
    ghost := DTMFromString('mLgAAAHicY2JgYLgKxDeAuB6Im4F43twlDDNnLmFgAbJBmBGKGRgAuZgGcQ==');
    druid := DTMFromString('mLgAAAHicY2JgYChiZGAoAOIdQPZWIJ6R5s6wd/MMBhYgG4QZoZiBAQCdPQWr');
    bat := DTMFromString('mLgAAAHicY2JgYEhhZGDIAOJlQPZSIC7ITGcozc1hYAGyQZgRihkYAIVaBLQ=');
    dwarf := DTMFromString('mLgAAAHicY2JgYIhihOBgEBuIm6uqGFq0FBlYgWwQZoRiBgYAaUADuA==');
    warewolf := DTMFromString('mLgAAAHicY2JgYFjEyMCwDIhNgdgIiA3UxBh83WwY2IFyIMwIxQwMAF3WAwE=');
    hpbar := DTMFromString('mLgAAAHicY2JgYLBjZGAIAuIOIO4E4pZjQLEdDAzsDBDMCMUMDABvpgP4');
    repeat
    ClearDebug;
    Chooseproc;
    until False;
    Freedtm(skelet);
    Freedtm(hpbar);
    Freedtm(ghost);
    Freedtm(druid);
    Freedtm(bat);
    Freedtm(dwarf);
    Freedtm(warewolf);
end.