For an anti-ban, I am using HoverSkill as a part of it. For some reason, it moves super slow.
Here is the script:
Here is the HoverSkill part:Code:{==================================================} {================= 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('E'); Wait(1250 + Random(500)); MakeCompass('S'); 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; repeat Autotalker; AntiBan; ProgressReport; until(False) End.
Code:Procedure AntiBan; Begin Begin MakeCompass('W'); Wait(1000 + Random(500)); MakeCompass('E'); Wait(1250 + Random(500)); MakeCompass('S'); Wait(1500 + Random(500)); End; Begin HoverSkill('Random',False); Wait(750 + Random(500)); End; End;


Reply With Quote










