SRL Archive - OSR Help

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+Y8B8Dg' +
'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.

Add a wait between
"ClickMouse(x,y,mouse_right);"
and
"if (findbitmap(x,y,LayTrapPic)) then"
and your script should function.

There's a lot of room for improvement here though; but the above should fix your current problem :)

From: Zyt3x
Add a wait between
"ClickMouse(x,y,mouse_right);"
and
"if (findbitmap(x,y,LayTrapPic)) then"
and your script should function.
There's a lot of room for improvement here though; but the above should fix your current problem :)

It still doesn't work. I added "wait(5000);" and now it just waits 5 seconds and still gives me the same error.

Try loading/unloading your bitmap outside of your repeat loop.

begin
LoadBMPs;
repeat
LayTrap;
until (false);
Freebitmap(LaytrapPic);
end.

I tried adding them outside the main loop and now it doesn't even right click on the trap. :(

Every time I run the program it will right click on the trap, then stop and says "Error: Exception: The bitmap[295] does not exist at line 25".

I'm still having this problem.