Well, here it is! Thanks to Roberty Bob for helping me with how to work the main loop.
tell me how u like it, and its good! also, tell me what i should try to do next.Code:{Infantry001's AutoSpammer 2.0 Just run and hit desired FKey. Simple as that. *WARNING* Use at own risk! Less detectable than last, but still can be detected. Have fun!} program autospammer; {.include SRL\SRL.scar} Var infinite: integer; Const F7='Write text here'; F8='unless you are'; F9='Incapable of'; F10='Pushing buttons'; F11='On a long piece'; F12='Of Plastic'; Procedure Start; begin ClearDebug; writeln ('Thank you for using Infantry001''s autospammer!') writeln ('Special thanks to Roberty Bob for helping me') writeln ('Get this script going!') writeln ('Enjoy, and keep on Auto-ing...') end; Procedure FKey7; begin if(isFKeyDown(7))then TypeSend(F7+chr(13)); end; Procedure FKey8; begin if(isFKeyDown(8))then Typesend(F8+chr(13)); end; Procedure FKey9; begin if(isFKeyDown(9))then Typesend(F9+chr(13)); end; Procedure FKey10; begin if(isFKeyDown(10))then Typesend(F10+chr(13)); end; Procedure FKey11; begin if(isFKeyDown(11))then Typesend(F11+chr(13)); end; Procedure FKey12; begin if(isFKeyDown(12))then Typesend(F12+chr(13)); end; begin SetupSRL; Start; repeat FKey7; FKey8; FKey9; FKey10; FKey11; FKey12; wait(50); until(infinite=1) end.




Reply With Quote






