Devoker
05-29-2009, 01:34 PM
At first it was going slow but then I fixed that. Now it is going to the corner of Runescape. Please help.
Here is script:
{================================================= =}
{================= AutoTalker V1.0 ================}
{================================================= =}
Program AutoTalker;
{.include SRL/SRL.Scar}
Var
Messages : Integer;
Const
{=========================================}
Message1 = (' ');
Message2 = (' ');
Message3 = (' ');
{=========================================}
Procedure AutoTalker;
Begin
TypeSend(Message1)
Wait(2000 + Random(1000))
inc(Messages)
TypeSend(Message2)
Wait(1500 + Random(1000))
inc(Messages)
TypeSend(Message3)
Wait(1750 + Random(1000))
inc(Messages)
End;
Procedure AntiBan;
Begin
Begin
MakeCompass('W');
Wait(1000 + Random(500));
MakeCompass('S');
Wait(1250 + Random(500));
MakeCompass('E');
Wait(1500 + Random(500));
End;
Begin
HoverSkill('Random', False);
Wait(750 + Random(500));
End;
End;
Procedure ProgressReport;
Begin
ClearDebug;
WriteLn('|======================================== ==========|');
WriteLn('| Willow Cutter Report |');
WriteLn('|======================================== ==========|');
WriteLn(' Time Running: ' + TimeRunning );
WriteLn(' Messages Said: ' + IntToStr(Messages));
WriteLn('|======================================== ==========|');
WriteLn('| Created By: Devoker. |');
WriteLn('|======================================== ==========|');
End;
Begin
AutoTalker;
SetupSRL;
repeat
Autotalker;
AntiBan;
ProgressReport;
until(False)
End.
Here is script:
{================================================= =}
{================= AutoTalker V1.0 ================}
{================================================= =}
Program AutoTalker;
{.include SRL/SRL.Scar}
Var
Messages : Integer;
Const
{=========================================}
Message1 = (' ');
Message2 = (' ');
Message3 = (' ');
{=========================================}
Procedure AutoTalker;
Begin
TypeSend(Message1)
Wait(2000 + Random(1000))
inc(Messages)
TypeSend(Message2)
Wait(1500 + Random(1000))
inc(Messages)
TypeSend(Message3)
Wait(1750 + Random(1000))
inc(Messages)
End;
Procedure AntiBan;
Begin
Begin
MakeCompass('W');
Wait(1000 + Random(500));
MakeCompass('S');
Wait(1250 + Random(500));
MakeCompass('E');
Wait(1500 + Random(500));
End;
Begin
HoverSkill('Random', False);
Wait(750 + Random(500));
End;
End;
Procedure ProgressReport;
Begin
ClearDebug;
WriteLn('|======================================== ==========|');
WriteLn('| Willow Cutter Report |');
WriteLn('|======================================== ==========|');
WriteLn(' Time Running: ' + TimeRunning );
WriteLn(' Messages Said: ' + IntToStr(Messages));
WriteLn('|======================================== ==========|');
WriteLn('| Created By: Devoker. |');
WriteLn('|======================================== ==========|');
End;
Begin
AutoTalker;
SetupSRL;
repeat
Autotalker;
AntiBan;
ProgressReport;
until(False)
End.