Every time I run this program it clicks on the box trap but then stops when going to lay the box trap. I'm new to programming in Simba so don't lay it on too thick.
program new;
{$DEFINE SMART}
{$i srl/srl.simba}
var
x,y,LayTrapPic: Integer;
procedure LoadBMPs;
begin
LayTrapPic:= BitmapFromString(21, 14, 'meJxzD4l1H1D0Hwwo1M7AwDCctP' +
'9HAlgDCsLAqh0uCARoWuCK8WhHsx1ZCzHaMW0nTzumArQw+Y8 B8Dg' +
'eguCuQuYiA6zimIFDXlzDtQMAiJiIQQ==');
end;
procedure LayTrap;
begin
if (findcolor(x,y,4679031,13,6,331,188)) then
MoveMouse(x,y);
ClickMouse(x,y,mouse_right);
wait(5000);
if (findbitmap(x,y,LayTrapPic)) then
MoveMouse(x,y);
ClickMouse(x,y,mouse_left);
end;
begin
LoadBMPs;
repeat
LayTrap;
until (false);
Freebitmap(LaytrapPic);
end.



Reply With Quote








