Procedure FindQuestion;
Var
Q,W,E,R:integer;
begin
Q:=CreateBitmapMaskFromText('Mining Lvls',ChrChatChars);
If(FindBitMapMaskTolerance(Q,x,y,10,345,210,465,15 ,70))Then
Begin
SendKeysHumanJ('My Mining Level is'+inttostr(J),100,True);
Wait(100+Random(2));
W:=CreateBitmapMaskFromText('Noob',ChrChatChars);
If(FindBitMapMaskTolerance(W,x,y,10,345,210,465,15 ,70))Then
Begin
SendKeysHumanJ('Im not a noob you are!',100,True);
Wait(100+Random(2));
E:=CreateBitmapMaskFromText('Auto',ChrChatChars);
If(FindBitMapMaskTolerance(E,x,y,10,345,210,465,15 ,70))Then
Begin
SendKeysHumanJ('I have never autoed on rs in my life!',100,True);
Wait(100+Random(2));
R:=CreateBitmapMaskFromText('Hey',ChrChatChars);
If(FindBitMapMaskTolerance(R,x,y,10,345,210,465,15 ,70))Then
Begin
SendKeysHumanJ('what Do you Want?',100,True);
FreeBitMap(Q);
FreeBitMap(W);
FreeBitMap(E);
FreeBitMap(R);
end;
end;
end;
end;
end;