Devoker
2009-05-30 11:16:06
Okay, I will just show you the script and the error. Please help.
Script:
Error:
Script:
{==================================================}
{================== AutoTalker VS =================}
{==================================================}
{ Double press F9 to stop the script. }
{==================================================}
Program AutoTalker;
{.include SRL/SRL/Misc/SMART.Scar}
{.include SRL/SRL.Scar}
Var
Messages : Integer;
Const
{=============== EDIT HERE ===============}
Message1 = (' ');
Message2 = (' ');
Message3 = (' ');
{=========================================}
Procedure AntiBan;
Var
X, Y : Integer;
RandomCompass : TStringArray;
Begin
RandomCompass := ['E', 'S', 'W'];
Case Random(100) Of
0: BoredHuman;
1: RandomMovement;
2: PickUpMouse;
3,4: HoverSkill('random', False);
5: MMouse(Random(X), Random(Y), 0, 0);
6: begin
MakeCompass(RandomCompass);
Wait(2500 + Random(1000));
MakeCompass('N');
end;
end;
end;
Procedure AutoTalker;
Begin
TypeSend(AddMistakes(Message1, 20));
Wait(2000 + Random(1000));
inc(Messages);
TypeSend(AddMistakes(Message2, 20));
Wait(1500 + Random(1000));
inc(Messages);
TypeSend(AddMistakes(Message3, 20));
Wait(1750 + Random(1000));
inc(Messages);
AntiBan;
End;
Procedure ProgressReport;
Begin
ClearDebug;
WriteLn('|==================================================|');
WriteLn('| Auto Talker Report |');
WriteLn('|==================================================|');
WriteLn(' Time Running: ' + TimeRunning );
WriteLn(' Messages Said: ' + IntToStr(Messages));
WriteLn('|==================================================|');
WriteLn('| Created By: Devoker. |');
WriteLn('|==================================================|');
End;
Begin
SMARTSetUpEX(55, False, True, False);
Wait(5000);
SetTargetDC(SMARTGetDC);
SetupSRL;
ActivateClient;
repeat
AutoTalker;
until(IsFKeyDown(9));
ProgressReport;
End.Error:
Invalid world number or corrupted world list. Please review your settings