This is my first script. I'm making it for a rsps, so a lot of the includes and tools don't work for me. just trying to do, what I think should be a simple task, is becoming very difficult. So it isn't working right and I would love some help.
Heres the code
program MageChopper; // this is my first script ever \\
{$i srl/srl.simba} // and inteded for a rsps \\
procedure chop;
var x, y: integer;
var x1, y1: integer;
var x2, y2: integer;
begin
repeat
if FindColorTolerance(x1, y1, 13826296 , 1, 1, 514, 337, 3) and
FindColorTolerance(x2, y2, 12829954 , 84, 8, 150, 18, 3) then
begin
MoveMouse(x1, y1);
Wait(500+random(217));
ClickMouse(x1, y1, 1);
Wait(520+random(132));
end;
until FindColorTolerance(x, y, 65536 , 686, 433, 726, 459, 3)
end;
procedure drop;
begin
SendKeys('::empty', 100, 30);
pressKey(13)
end;
begin
SetUpSRL;
repeat
begin
chop;
drop;
end;
until(false);
end.
The script compiles fine, and I feel like, in theory it should work. Unfortunately when I run the script it seems to only do the drop procedure.
Please, constructive criticism only. I know its probably sloppy or I might be doing something completely idiotic. Just keep in mind this is my first bit of coding ever.


Reply With Quote