PDA

View Full Version : AutoSpammer



Infantry001
06-27-2006, 02:51 PM
Well, here it is! Thanks to Roberty Bob for helping me with how to work the main loop.


{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.

tell me how u like it, and its good! also, tell me what i should try to do next.

Wizzup?
06-27-2006, 06:34 PM
You can change

Until (infinite = 1) to Until(False) :)

Nice first try though. :)

bod1977
12-16-2006, 04:54 AM
Can you make it so it will type it super fast rather than normal human speed? That is all it is missing. :p

masterdest
12-16-2006, 01:16 PM
no, it is great at the speed it is at! It types at human speed to reduce the risk of bannage. Good Job Infintry001!

bod1977
12-16-2006, 04:20 PM
=( I suppose. :p