SRL Archive - General Botting Help

program ClickEggs;
{$i srl-6/srl.simba}

var Eggs:Integer;
var Potion,i:Integer;
var PotionIcon:Integer;
var BankPresets:Integer;

Procedure ClickEggs;
var X,Y:Integer;
begin
  if FindDTM(Eggs, x,y,554,230,723,482) then
  begin
  MoveMouse(x,y);
  wait(randomrange(100,200));
  ClickMouse(x,y, mouse_Left);
  wait(randomrange(100,200));
  end;
end;

Procedure ClickPotion;
var X,Y:Integer;
begin
  if FindDTM(Potion, x,y,554,230,723,482) then
  begin
  MoveMouse(x,y);
  wait(randomrange(100,200));
  ClickMouse(x,y,mouse_Left);
  wait(randomrange(100,200));
  end;
  end;

Procedure Type1;
begin
  wait(1000);
  SendKeys('1',100,30);
  wait(197900);
  end;

Procedure Bank;
var X,Y:Integer;
begin
  //wait(197900);
  if FindColorTolerance(X,Y,606294,74,89,453,305,5) then
  begin
  MoveMouse(x,y);
  wait(randomrange(100,200));
  ClickMouse(x,y,mouse_Right);
  wait(randomrange(100,200));
  if FindBitmapToleranceIn(BankPresets, x, y,74,89,453,305,145) then
  begin
    MoveMouse(x,y);
    wait(randomrange(100,200));
    ClickMouse(x,y,mouse_Left);
    wait(500);
    MoveMouse(212,182);
    wait(500);
    ClickMouse(212,182,mouse_Left);
    wait(randomrange(100,200));
    MoveMouse(415,272);
    wait(randomrange(100,200));
    ClickMouse(415,272,mouse_Left);
    wait(1000);
    end;
    end;
    end;

begin
Eggs := DTMFromString('mFQEAAHic42VgYLBjYmDwBmIrIHYDYgcgdoLSIL4LEHsCsQcTRK0NEL8B6nsExI+B+BkQvwDiJ0D8AIgfQvELqJqnUDkGBkY4rpDgZUgR5QRjDwcTsFgBUAxE10jxMsxWEGSYAcSkAk4UW4jHKAAALFQUZQ==');
Potion := DTMFromString('mlwAAAHicY2dgYJjIxMAwjQlCzwTiGUA8FYjnAHEMIwODPxCHAnEEEAcDsTsQRwLx5rlzGCoqKhk2zZ7FsLi1mWFpWyvDliUhDA3pqQzogBOJzYgHQwEAvTYSIQ==');
BankPresets := BitmapFromString(156, 8, 'meJztldENgzAMRLNER+hP9mUXJm' +
        'AtihSVur7zOQTUqlJRPoyT2M49HKZ5meallFLvt58e09BB1rVso+2' +
        'y9tGR7j0TXMdBj5Wi2V+nMzb+TCMpSnnNtikHWr+iyHR9j9P5x4JE' +
        'EZwg+7DHt/5oPQrr/HRj51RaQFRSA4p9urPeHuqnr/ip0O2YVCSyT' +
        '/96EYF+9g6H9iO+6MNIoY8VYI+DJUWAUruJmTKN7DSpbj1dZHoDoK' +
        'QVLjFsYSo1Cotq0ES6gB47oq+ZRm2Fs0eZUtkd7vr8F9BOj/rdVYI' +
        'RephqdpEdXbwn2XUydWULELbN6/vleSFTTJRGo4XR7WL2cqkjrB9m' +
        'Gh3cdYRdZruDgjjUTTSR6F9RWGcEJwi9OfXdm9pjiQ75I6YPTuON5w==');

Bank;
ClickEggs;
ClickPotion;
Type1;


FreeDTM(Eggs);
FreeDTM(Potion);
FreeBitmap(BankPresets);
end.

Hey all this code works perfectly and allows me to load a bank preset, use potion ingredient on unfinished potion, and press 1 to make the potion..

How do I run a while loop so that something like this occurs

I want to run this loop 1200 times.. anticheat isnt really a concern cuz its rsps

***

var Count:integer;
while (count<1200){
Bank;
ClickEggs;
ClickPotion;
Type1;
count++;
}

******

thank you in advance

procedure MakePotion(var count:Integer);
begin
  Bank();
  ClickEggs();
  ClickPotion();
  Type1();
  Inc(count); //i++
end;

procedure MainLoop();
var count:Integer := 0;
begin
  while(count<1200)do
    MakePotion(count);
end;  

for 1 to 1200 do
begin
  ...
end;

thank you all