I just solved all the problems of yesterday, the testing
Thank script from smurg and Mat
procedure checktrip;
begin
movemouse(260,172);
if (WaitUpTextMulti(['Atta', 'tta'], 500)) then
begin
Mouse(576, 14, 1, 1, True);
wait(2000);
movemouse(260,172);
end else If (WaitUpTextMulti(['Take', 'ake'], 500)) Then
begin
Mouse(260,172, 1, 1, False);
WaitOptionMulti(['Take', 'ake'], 500);
End Else If (WaitUpTextMulti(['Chec', 'eck'], 500)) Then
begin
Mouse(260,172, 1, 1, False);
WaitOptionMulti(['Check', 'hec'], 500);
end else if (WaitUpTextMulti(['Dism', 'ism'], 500)) Then
begin
Mouse(260,172, 1, 1, False);
WaitOptionMulti(['Dism', 'ism'], 500);
end else if (WaitUpTextMulti(['Walk', 'alk'], 500)) Then
begin
WaitOptionMulti(['Walk', 'alk'], 500);
end;
end;
Procedure NewTrap;
Var
Trap, X, Y:Integer;
begin
Trap := BitmapFromString(8, 5, 'meJwzcfBgYmAAIm3/JA2vGDW3CCBb' +
'QcEASOoGpSna+kBkZYwdIOLJTVPia/tjq7ojS9tCCxpkTZ0VrL2AU' +
'nHVvUDBqPL2iOIWoHhIfp2qS6h/Rll4UROQHZxbE5BVAeT6pBR7Je' +
'ZHV3QCAE/5IfI=');
If FindBitMapTolerancein(Trap,X,Y,539,206,739,467,30) then
begin
mouse(x, y, 0, 0, false);
chooseoption('ay');
wait(1500);
movemouse(x, y);
if (WaitUpTextMulti(['Lay', 'ay'], 500)) then
begin
mouse(x, y, 0, 0, false);
chooseoption('ay');
end;
wait(1500);
movemouse(x, y);
if (WaitUpTextMulti(['Lay', 'ay'], 500)) then
begin
mouse(220, 172, 0, 0, false);
chooseoption('alk');
wait(3000);
end;
end;
end;
I just learned a week, do not laugh at me,Few commands to learn