Sequence
2013-02-28 15:27:39
I can't get this to work.
I did like this with the username and password, but I don't know how to do with the casts:
I'm looping the casts with Inc(I) and until(I = Casts);
I did like this with the username and password, but I don't know how to do with the casts:
procedure SaveSettings(Sender: TObject);
begin
P07_PlayerName := Username.TEXT;
P07_PlayerPass := Password.TEXT;
end;
I'm looping the casts with Inc(I) and until(I = Casts);
Begin
SafeInitForm;
SafeShowFormModal;
StartUp;
repeat
CastCurse;
AntiBan;
ProgressReport;
Wait(RandomRange(100, 200));
Inc(I);
until(I = Casts);
end.