My Auto-Talker
My Auto-Logger (Non And Mem)Code:{.Script Info: # ScriptName = Auto-Talker # Author = Hey321 # Description = Auto-Talks for ya for specified times # Version = 3.0 # Date = Tues, Oct, 30 # Comments = Good script (i think) /Script Info} program MessageWriter; {.include Squig.txt} const Message1=('purple:shake:selling 20k nats 330 ea!!! colt!!!');// Message to repeat WaitTime=(3000);//how long to wait NumLoops=50;//how many times to repeat var MessagesTyped: Integer; procedure MessageSender; begin SendKeysHuman (Message1 + chr (13)); end; procedure TimeToWait; begin wait (waittime + random (250)); end; procedure Thanks; begin writeln('~~~Thanks for using ~~~Hey321s~~~ Talker~~~'); writeln('~~~~~~Hey321~~~ thanks you for using this Auto-Talker'); wait(WaitTime + random (50)); end; procedure progressreport; begin MessagesTyped:= MessagesTyped + 1;wait(WaitTime + random (50)); writeln('~~~Typed '+inttostr(MessagesTyped)+' Messages For You~~~'); end; begin Thanks; repeat MessageSender; TimeToWait; progressreport; until(MessagesTyped = NumLoops); wait(WaitTime + random (50)); end.
Mozilla ONLY!
Mem version
Non-Members versionCode:program Login; {.include Squig.txt} const Username=(''); Password=(''); procedure openrs; begin Getself; ;OpenWebPage('http://www.runescape.com/'); end; procedure MainLogin; begin wait(1000); movemouse(729,457); wait(5000); Clickmouse(734,452,true); wait(1000); Clickmouse(734,452,true); movemouse(474, 393); wait(1000); Clickmouse(674, 368,true); wait(1000); Clickmouse(1012, 700,true); Clickmouse(1012, 700,true); Clickmouse(1012, 700,true); Clickmouse(1012, 700,true); Clickmouse(1012, 700,true); wait(10000); Clickmouse(584, 491,true); wait(1000); SendKeysHuman (Username + chr (13)); SendKeysHuman (Password + chr (13)); Clickmouse(392, 522,true); wait(5000) Clickmouse(449, 544,true); end; begin openrs; MainLogin; end.
Code:program Login; {.include Squig.txt} const Username=(''); Password=(''); procedure openrs; begin Getself; ;OpenWebPage('http://www.runescape.com/'); end; procedure MainLogin; begin wait(1000); movemouse(729,457); wait(5000); Clickmouse(734,452,true); wait(1000); Clickmouse(734,452,true); movemouse(474, 393); wait(1000); Clickmouse(463, 386,true); wait(1000); Clickmouse(1012, 700,true); Clickmouse(1012, 700,true); Clickmouse(1012, 700,true); Clickmouse(1012, 700,true); Clickmouse(1012, 700,true); wait(10000); Clickmouse(584, 491,true); wait(1000); SendKeysHuman (Username + chr (13)); SendKeysHuman (Password + chr (13)); Clickmouse(392, 522,true); wait(5000) Clickmouse(449, 544,true); end; begin openrs; MainLogin; end.




Reply With Quote





