TimminyCricket
Newcomer
- Joined
- Sep 16, 2009
- Sythe Gold
- 0
- Messages
- 6
Hey again.
So, to explain quickly, this is what happens.
Character buys stouts till full, then goes and banks, and returns to buy stouts again.
My problem I think is in checking to see if it is full or not.
I've used 'If(FindColor...))then.
This does not seem to work, is there a better way to do this, thanks for the help.
Code:
program New;
var
x,y: Integer;
xx,yy: Integer;
xxx,yyy: Integer;
xxxx,yyyy: Integer;
xxxxx,yyyyy:Integer;
begin //We will start upstairs to buy stouts
repeat
wait(1000)
MoveMouse(173,130)
wait(500)
FindColor(x, y, 13553358, 0,0,513,364);
MoveMouse(x,y);
ClickMouse(x,y,true);
wait(10000)
MoveMouse(107,56)
ClickMouse(107,56,True);
wait(5000)
MoveMouse(496,41);
If(FindColor(xx, yy, 2853837, 460,231,500,258))then //Problem here, won't register if full
begin //Banking Task
wait(500)
FindColor(xxx,yyy,10605, 0,0,513,364);
MoveMouse(xxx,yyy)
ClickMouse(xxx,yyy,true);
wait(10000)
MoveMouse(461,45)
wait(500)
MoveMouse(497,104);
ClickMouse(497,104,true);
wait(10000)
FindColor(xxxx,yyyy,131072,0,0,513,364);
MoveMouse(xxxx,yyyy);
ClickMouse(xxxx,yyyy, true);
wait(10000);
MoveMouse(428,293);
ClickMouse(438,293,true);
wait(500);
MoveMouse(412,30);
ClickMouse(412,30,true);
FindColor(xxxxx,yyyyy,40694,0,0,513,364);
MoveMouse(xxxxx,yyyyy);
ClickMouse(xxxxx,yyyyy,true);
wait(5000) ;
MoveMouse(459,43);
wait(500);
MoveMouse(391,165);
ClickMouse(391,165,true);
wait(10000);
MoveMouse(128,149);
ClickMouse(128,149,true);
end else;
until(false);
end.
So, to explain quickly, this is what happens.
Character buys stouts till full, then goes and banks, and returns to buy stouts again.
My problem I think is in checking to see if it is full or not.
I've used 'If(FindColor...))then.
This does not seem to work, is there a better way to do this, thanks for the help.

