WT-Fakawi
2006-03-13 18:10:01
This is an insult to our intelligence….!
….but since we haven't popped up with a new boxbreaker, thought you might take a lucky shot.
Use this ONLY once! It is a blind click, no AI, no nothing, just a random click on one of the three answers.
33% change over 0%, Really, use this only once, the chances dramatically go down if you repeatedly attempt to solve the box this way :).
Function GambleNewBox will random click one of the answers, and result True no box is in inventory after 4 seconds.
Add GambleNewBox to your FindRandoms (and remove FindNewBox…), and maybe, one out of three, you win!
EDIT: Modded the code. works better now :)
….but since we haven't popped up with a new boxbreaker, thought you might take a lucky shot.
Use this ONLY once! It is a blind click, no AI, no nothing, just a random click on one of the three answers.
33% change over 0%, Really, use this only once, the chances dramatically go down if you repeatedly attempt to solve the box this way :).
Function GambleNewBox will random click one of the answers, and result True no box is in inventory after 4 seconds.
Add GambleNewBox to your FindRandoms (and remove FindNewBox…), and maybe, one out of three, you win!
[FONT="Courier New"]Function GambleNewBox:Boolean;
var xb, yb :integer;
begin
If FindBitMapToleranceIn(NewBox, xb, yb, MIX1, MIY1, MIX2, MIY2, 20) then
begin
Mouse(xb, yb, 0, 0, True);
Wait(2000);
Case Random(3) of
0: Mouse(145, 295, 4, 4, True);
1: Mouse(270, 295, 4, 4, True);
2: Mouse(381, 295, 4, 4, True);
end;
IdleTime(4000,2000,1.0);
If FindBitMapToleranceIn(NewBox, xb, yb, MIX1, MIY1, MIX2, MIY2, 20) then
begin
writeln('Box Missed');
Logout;
Exit;
end
else
begin
writeln('Box solved');
Result:=True;
end;
end;
end;
[/FONT]EDIT: Modded the code. works better now :)