{
///////////////////////////Version 1.02/////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Changelog:
-Failsafe to avoid spam clicking
-Added random resting
-added move mouse instead of mouse jumping
-added basic progross report
------------------------RJJ95 AUTO SOULSPLIT SKELETON FIGHTER-------------------
Please, if you already see somebody training, do not bother botting at that time
either hop worlds or bot at a different time.
Insturctions:
Logon to soulsplit, face arrowkey all the way up (press up until you can't anyore
drag the green crosshair to the Soulsplit Cleint, then click the play button. If
the bot is not clicking the skeleton, then edit this code:
NPC = 1121869;
(line 39)
And put what ever color suits you better. To change the rate of resting, go to
line 39 and edit
restprobs = x;
(line 48)
to what ever you want.
  3-15 = lazy
  16-30 = distracted
  30-50 = consentrated
  51-70 =  dedicated
  70-100 = hardcore
  101-140 = no lifer
  141 - 170 = zezima
  171-200 = S U O M I
  200+ = bot
Happy botting!
////////////////////////////////////////////////////////////////////////////////

}
Program autofight;
{$i srl/srl.simba}
const
  NPC = 1121869;
  loot = 14079706;
  tolerence = 12;
  time = 7; // in seconds
  rwait = 1000;
  tleft = 41;
  tright = 44;
  bleft = 426;
  bright = 280;
  restprobs = 85;
var
  charm: Integer;

procedure PickUp;
var
  X, Y: Integer;
begin
  Wait(1700 + Random(1200));
  WriteLn('Looking for bones...');
  if FindColorTolerance(X, Y, loot, 223, 114, 388, 290, 15) then
  begin
    WriteLn('Found bones!');
    MouseSpeed:=10;
    mmouse(x, y,1,1);
    Wait(120 + Random(80));
    ClickMouse(x, y, mouse_Right);
  end;
  WriteLn('Looking for charm...');
  Wait(1100);
  if FindBitmapToleranceIn(charm, X, Y,161, 86, 420, 252, 85) then
  begin
    MouseSpeed:=10;
    mmouse(x, y,1,1);
    WriteLn('Found charm!');
    Wait(500);
    ClickMouse(X, Y, mouse_Left);
    Wait(1820 + Random(80));
  end;
end;
procedure CheckCombat;

begin
  Wait((time * 500) + Random(rwait));
  WriteLn('Waiting for loot...');
  Wait((time * 500) + Random(rwait));
  PickUp;
end;
procedure ClickNPC;
var
  X, Y: Integer;
begin     // kill npc
  WriteLn('Attacking skeleton...');
  if FindColorTolerance(X, Y, NPC, tleft, tright, bleft, bright, tolerence) then
  begin
    MouseSpeed:=25;
    mmouse(x, y,1,1);
    Wait(20 + Random(50));
    ClickMouse(X, Y, Mouse_Left);
    WriteLn('Attacked skeleton!');
    CheckCombat;
  end;
end;
var
  X,Y,s,breaks,outcome: Integer;

{procedure antiban;
begin
s := GetTimeRunning div 1000+1;
outcome := Random(100)
if outcome > 98 then
begin
    MouseSpeed:=9;
    TypeSend('Brb afk');
    IncEx(breaks, 1);
    WriteLn('Taking a break . . .');
    FindColorTolerance(X, Y, 16159616, 600, 171, 626, 196, 10);
    mmouse(X,Y,1,1)
    Wait(250 + Random(50));
    ClickMouse(X, Y, Mouse_left);
    Wait(800 + Random(50));
    FindColorTolerance(X,Y,16777215,566,247,645,255,10);
    mmouse(X,Y,1,1)
    Wait(250 + Random(50));
    ClickMouse(X, Y, Mouse_left);
    wait(120000 + Random(5000));
    WriteLn('WOW! That was a good break, back to work!');
    TypeSend('back');
    Wait(800 + Random(2000));
    MouseSpeed:=12;
    FindColorTolerance(X, Y, 2448796, 583,250,636,256,10);
    mmouse(X, Y,1,1);
    Wait(50 + Random(50));
    ClickMouse(X, Y, mouse_Left);
    Wait(150 + Random(50));
    ClickNPC;
   end else
   begin
if outcome <= 97 then
Writeln('Time running(minutes)' + IntToStr(Round(s/60)));
Writeln('Breaks:' + Tostr(breaks))
ClickNPC;
 end;
end;
}
begin
  charm := BitmapFromString(44, 12, 'meJzFU9sNgCAMZBD+/XAJR/THXZ' +
        'jAtdTYpClH2xQJkfSDXvo4zjMva/4j0ns+t2/7xREsjuNxAvSKyBy' +
        'uD+JdBIKSzuMw3iLxo5yMP3cOf6DqB9UnLQdZRjiLSasptWhAo1xn' +
        '+QQ4wCt4lBQB+PjCyrTrDhzUD8GCTOJg+UGudtxu6TzIAWj4tmxNB' +
        'bIArkoHnsz1P57qY9GwalRcTWXZDd+RiMw=');
  repeat
    ClearDebug;
    ClickNPC;
  until False;
  FreeBitmap(charm);
end.