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