~~~Hey321's Auto-Talker~~~
~~~Works with RS2~~~
~~~Squig.TxT Required~~~
Code:program MessageWriter; {.include Squig.txt} const Message1=('~~~This is Hey321s Auto-Talker~~~');// how many times to repeat waittime=(3000);//how long to wait NumLoops=1;//how many times to repeat {Hi this is Hey321 here and this is Hey321's Auto-Talker SCAR (Shit Compared To AutoRune) This is a free script! If you bought it you got RIPPED OFF. Also i am currently learning how to script with SRL (Scar Resource Library). If you have a SRL TuT then it would be greatly appriecated if you could PM me where you got this from! Ehora.co.nr GO NOW!} 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'); end; begin repeat MessageSender; TimeToWait; Thanks; MessagesTyped:= MessagesTyped + 1;wait(WaitTime + random (50)); writeln('~~~Typed '+inttostr(MessagesTyped)+' Messages For You~~~'); until(MessagesTyped = NumLoops); wait(WaitTime + random (50)); end.




Reply With Quote
