NCDS
2011-01-10 16:05:53
Pertaining to this problem: http://villavu.com/forum/showthread.php?t=61385
All I did was convert all the OpenBank* functions to use Wait*Multi() and set all the waits to 1 second, instead of some being 2 seconds and some being 200ms..
Patch:
All I did was convert all the OpenBank* functions to use Wait*Multi() and set all the waits to 1 second, instead of some being 2 seconds and some being 200ms..
Patch:
===================================================================
--- bank.scar (revision 681)
+++ bank.scar (working copy)
@@ -749,11 +749,11 @@
FreeBitmap(TheCounter);
Exit;
end;
- if WaitUpTextMulti(['ank', 'Bo', 'ot'], 300) then
+ if WaitUpTextMulti(['ank', 'Bo', 'ot'], 1000) then
begin
GetMousePos(dx, dy);
Mouse(dx, dy, 0, 0, False);
- if WaitOption('uickly', 300) then
+ if WaitOptionMulti(['uickly', 'uick', 'ickly', 'ckl'], 1000) then
begin
MarkTime(Mark2);
repeat
@@ -788,11 +788,11 @@
Exit;
end;
MMouse(dx, dy, 0, 0);
- if WaitUptextMulti(['ank', 'Bo', 'ot'], 300) then
+ if WaitUptextMulti(['ank', 'Bo', 'ot'], 1000) then
begin
GetMousePos(dx, dy);
Mouse(dx, dy, 0, 0, False);
- if WaitOption('uickly', 200) then
+ if WaitOptionMulti(['uickly', 'uick', 'ickly', 'ckl'], 1000) then
begin
MarkTime(Mark2);
repeat
@@ -876,10 +876,10 @@
if FindColorSpiralTolerance(OBC.x, OBC.y, Col, MSX1, MSY1, MSX2, MSY2, 10) then
begin
MMouse(OBC.x, OBC.y, 4, 4);
- if WaitUpTextMulti(['nk', 'bo', 'ot'], 300) then
+ if WaitUpTextMulti(['nk', 'bo', 'ot'], 1000) then
begin
Mouse(OBC.x, OBC.y, 0, 0, False);
- WaitOption('uickly', 300);
+ WaitOptionMulti(['uickly', 'uick', 'ickly', 'ckl'], 1000);
FFlag(0);
Wait(2000 + Random(500));
if (Length(Players) > 0) then
@@ -891,7 +891,7 @@
if FindObj(OBC.x, OBC.y, 'ank', 10070458, 20) then
begin
Mouse(OBC.x, OBC.y, 0, 0, False);
- WaitOption('uickly', 300);
+ WaitOptionMulti(['uickly', 'uick', 'ickly', 'ckl'], 1000);
FFlag(0);
Wait(2000 + Random(500));
if (Length(Players) > 0) then
@@ -1010,11 +1010,11 @@
begin
MMouse(Booths[i].X, Booths[i].Y, 3, 3);
- if WaitUpText('ooth', 1200) Then
+ if WaitUpTextMulti(['ooth', 'Bo', 'ot'], 1000) Then
begin
GetMousePos(Booths[i].X, Booths[i].Y);
Mouse(Booths[i].X, Booths[i].Y, 0, 0, False);
- if WaitOption('uickl', 2200) then
+ if WaitOptionMulti(['uickly', 'uick', 'ickly', 'ckl'], 1000) then
begin
FFLag(0);
MarkTime(c);
@@ -1053,7 +1053,7 @@
['anke', 'to B', 'Banker', 'nker'], 2, 2)) then
begin
Mouse(bx, by, 0, 0, False);
- WaitOption('ank B', 500);
+ WaitOptionMulti(['ank B', 'ank', 'nker'], 1000);
FFlag(0);
Wait(2000 + Random(500));
if (Length(Players) > 0) then
@@ -1229,4 +1229,4 @@
end else
Writeln('Could not find the deposit box');
end;
-end;
\ No newline at end of file
+end;