well look at these 2 procedures
SCAR Code:
Procedure Trade;
Var
Clicks, x, y : Integer;
Begin
If Not LoggedIn Then Exit;
FindFastRandoms;
Begin
If FindColorTolerance(x, y, TradeColor, MCX1, MCY1, MCX2, MCY2, 5) Then
Begin
Repeat
Mouse(x, y, 1, 1, False)
ChooseOption('ccept')
Clicks := Clicks + 1;
Until (TradeScreen) Or (Clicks = 5);
Trades:= Trades + 1;
End;
End;
End;
procedure WriteIt;
var
HowManyTypez: Integer;
begin
If Not LoggedIn Then Exit;
FindFastRandoms;
AntiBan;
repeat
TypeSend(Colors.Text + ':' + message.text);
Wait(3500);
Trade;
TypeSend(Colors.Text + ':' + message2.text);
Wait(3500);
Trade;
TypeSend(Colors.Text + ':' + message3.text);
Trade;
Proggie;
Talked := Talked + 3;
ReportVars[0] := 3;
SrlRandomsReport;
HowManyTypez := HowManyTypez + 1
until (HowManyTypez = HowManyTypes);
end;
it compiles it types one message then right clicks the trade color and accepts but thnen it keeps trying to accept it how do i fix