fom
2008-02-05 21:09:29
<!– BEGIN TEMPLATE: formanswers –>
fom - SRL Member Application Form
fom
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
Sort of, I googled autoing and SRL came up :)
Programming Knowledge
No
Other Communitys
www.Savage-Central.com www.spudfiles.com
How Long have You Played Runescape
3 years or so..
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Hi SRL Members!
I have been very thankful to be part of this amazing community. I have tried scripting for a few months now. (Read every single tut..almost), but I am not very good at it. The best I could come up with was a fairly decent working auto-typer. I have heard stories of where people have been granted SRL Membership for being valuable testers and just a good person in the community. I believe I am one of these people, I have very limited scripting skills even though I try my best. I promise to be an excellent role-model for others (Even if I get denied). I will test scripts and find bugs, and help anyone asking for it!
If I get denied, I promise I will try even harder to script, and one day I will become an SRL Member.
Thank you very much if you said "yes", also thank you if you said "no."
Thanks, SRL Members.
Fom.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
fom - SRL Member Application Form
fom
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
Sort of, I googled autoing and SRL came up :)
Programming Knowledge
No
Other Communitys
www.Savage-Central.com www.spudfiles.com
How Long have You Played Runescape
3 years or so..
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Hi SRL Members!
I have been very thankful to be part of this amazing community. I have tried scripting for a few months now. (Read every single tut..almost), but I am not very good at it. The best I could come up with was a fairly decent working auto-typer. I have heard stories of where people have been granted SRL Membership for being valuable testers and just a good person in the community. I believe I am one of these people, I have very limited scripting skills even though I try my best. I promise to be an excellent role-model for others (Even if I get denied). I will test scripts and find bugs, and help anyone asking for it!
If I get denied, I promise I will try even harder to script, and one day I will become an SRL Member.
Thank you very much if you said "yes", also thank you if you said "no."
Thanks, SRL Members.
Fom.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program autotyper;
{.include SRL/SRL.scar}
var
TimesSaid:Integer;
const
FirstMessage= 'Message Here'; // What do you want your First message to be?
SecondMessage= 'Message Here'; // What do you want your Second message to be?
ThirdMessage= 'Message Here'; // What do you want your Third Message to be?
MessageType= 2; // 1 uses Hotkeys (F10,F11,F12), 2 uses TypeSends, 3 uses Sendkeys for spamming
{Note: If you want to only use 1 message put the same message in every line, then the timing will be very random and undetectable}
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='Username';//Username
Players[0].Pass :='Password';//Password Goes Here
Players[0].Nick :='Nick';//3-4 LowerCase Letters Of Your Name
Players[0].Active:= True;//True If Using, False If Not
end;
procedure Hotkeys;
begin
if (IsFKeyDown(10))
then TypeSend(FirstMessage)
else
wait(40);
TimesSaid:=TimesSaid+1;
if (IsFKeyDown(11))
then TypeSend(SecondMessage)
else
wait(40);
TimesSaid:=TimesSaid+1;
if (IsFKeyDown(12)) then
TypeSend(ThirdMessage)
else
wait(40);
TimesSaid:=TimesSaid+1;
end;
procedure SendMessage;
begin
TypeSend(FirstMessage)
Wait(2000 + random(1000 + random (62 - random (51 + random (65)))));
TimesSaid:=TimesSaid+1;
TypeSend(SecondMessage)
Wait(2000 + random(1000 + random (50 - random (27 + random (52)))));
TimesSaid:=TimesSaid+1;
TypeSend(ThirdMessage)
Wait(2000 + random(1000 + random (42 - random (32 + random (63)))));
TimesSaid:=TimesSaid+1;
end;
procedure Spam;
begin
Sendkeys(FirstMessage + Chr(13));
Wait(500)
TimesSaid:=TimesSaid+1;
Sendkeys(secondmessage + Chr(13));
Wait(500)
TimesSaid:=TimesSaid+1;
Sendkeys(thirdMessage + Chr(13));
Wait(500)
TimesSaid:=TimesSaid+1;
end;
procedure Signature;
begin;
cleardebug;
writeln(' ___________')
writeln('\_ _____/___ _____ ______ ')
writeln(' | __)/ _ \ / \ / ___/ ')
writeln(' | \( <_> ) Y Y \\___ \ ')
writeln(' \___ / \____/|__|_| /____ > ')
writeln(' \/ \/ \/ ')
writeln(' _____ __ __________')
writeln(' / _ \ __ ___/ |_ ___\__ ___/__.__.______ ___________ ')
writeln(' / /_\ \| | \ __\/ _ \| | < | |\____ \_/ __ \_ __ \ ')
writeln('/ | \ | /| | ( <_> ) | \___ || |_> > ___/| | \/ ')
writeln('\____|__ /____/ |__| \____/|____| / ____|| __/ \___ >__| ')
writeln(' \/ \/ |__| \/ ')
wait(1000+random(131));
end;
procedure ProgressReport;
begin
cleardebug;
writeln('--------Foms Autotyper!----------')
writeln('-------Progress Report!----------')
writeln('Talked '+IntToStr(TimesSaid)+' times')
writeln('Working for' +TimeRunning+'------')
end;
begin;
ActivateClient;
repeat
SetUpSRL;
DeclarePlayers;
LoginPlayer
Signature;
if (MessageType=1)
then
begin
Hotkeys;
if (MessageType=2)
then
begin
SendMessage;
if (MessageType=3)
then
begin
Spam;
end;
end;
end;
until(false);
end.
——————————————————
<!– END TEMPLATE: formanswers –>