rader720
2007-04-29 11:47:06
<!– BEGIN TEMPLATE: formanswers –>
rader720 - SRL Member Application Form
rader720
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
VB & Scar
Other Communitys
sythe(for blackmarket)
How Long have You Played Runescape
4-5 years >.<
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well i played runescape legit for a long time and lost most of my old characters so i moved on and took a break from rs (for WoW). I came back and started looking into scripting (i had messed with it a bit b4 i quit but not much). went on sythe and saw that all scripts that had good reviews were using something called "SRL" so i searched and searched untill i found this site. So then i began learning the commands for SRL (already knew most of SCAR commands from using it on other stupid games lol).
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
rader720 - SRL Member Application Form
rader720
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
VB & Scar
Other Communitys
sythe(for blackmarket)
How Long have You Played Runescape
4-5 years >.<
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well i played runescape legit for a long time and lost most of my old characters so i moved on and took a break from rs (for WoW). I came back and started looking into scripting (i had messed with it a bit b4 i quit but not much). went on sythe and saw that all scripts that had good reviews were using something called "SRL" so i searched and searched untill i found this site. So then i began learning the commands for SRL (already knew most of SCAR commands from using it on other stupid games lol).
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program GetAllStats;
{.include srl/srl.scar}
{
Features:
-Gets stats of your characters and reports in debug
-Multi-player
-No anti-ban/random because ur only loged in for about 5 seconds
Notes:
-Fill out constants and players
-Start logged out
}
const
StartPlayer=0;//Player number to start with
NumberOfUsers=7;//Number of people your getting get stats for
StatsToReport=1;//1=f2p, 2=p2p, 3=both
var
Reports:Integer; //counter
Procedure SetUpPlayers;
Begin
HowManyPlayers := NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :=''; //PlayerName
Players[0].Pass :=''; //PlayerPass
Players[0].Active:=True; //Use this player, true of false
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Active:=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Active:=true;
Players[4].Name :='';
Players[4].Pass :='';
Players[4].Active:=true;
Players[5].Name :='';
Players[5].Pass :='';
Players[5].Active:=true;
Players[6].Name :='';
Players[6].Pass :='';
Players[6].Active:=true;
End;
Procedure Signature;
begin
writeln('RRRRR A DD EEEEEE RRRRR ');
writeln('R R A A D D E R R');
writeln('R R A A D D E R R');
writeln('RRRRR AAAAAAA D D EEE RRRRR ');
writeln('R R A A D D E R R');
writeln('R R A A D D E R R');
writeln('R R A A DD EEEEEE R R');
end;
procedure GetLevels;
begin
if (StatsToReport=1) or (StatsToReport=3) then
begin
Writeln('F2P skillz=' + ' Attack: '+IntToStr(GetSkillLevel('Attack'))+
' Strength: '+IntToStr(GetSkillLevel('Strength'))+
' Defence: '+IntToStr(GetSkillLevel('Defence')))
Writeln(' Ranged: '+IntToStr(GetSkillLevel('Ranged'))+
' Prayer: '+IntToStr(GetSkillLevel('Prayer'))+
' Magic: '+IntToStr(GetSkillLevel('Magic'))+
' Runecrafting: '+IntToStr(GetSkillLevel('Runecrafting')))
Writeln(' Hitpoints: '+IntToStr(GetSkillLevel('Hitpoints'))+
' Crafting: '+IntToStr(GetSkillLevel('Crafting'))+
' Mining: '+IntToStr(GetSkillLevel('Mining'))+
' Smithing: '+IntToStr(GetSkillLevel('Smithing')))
Writeln(' Fishing: '+IntToStr(GetSkillLevel('Fishing'))+
' Cooking: '+IntToStr(GetSkillLevel('Cooking'))+
' Firemaking: '+IntToStr(GetSkillLevel('Firemaking'))+
' Woodcutting: '+IntToStr(GetSkillLevel('Woodcutting')));
end;
If (StatsToReport=2) or (StatsToReport=3) then
begin
Writeln('P2Pskillz= Agility: '+IntToStr(GetSkillLevel('Agility'))+
' Herblore: '+IntToStr(GetSkillLevel('Herblore'))+
' Thieving: '+IntToStr(GetSkillLevel('Thieving')))
Writeln(' Fletching: '+IntToStr(GetSkillLevel('Fletching'))+
' Hunter: '+IntToStr(GetSkillLevel('Hunter'))+
' Construction: '+IntToStr(GetSkillLevel('Construction'))+
' Farming: '+IntToStr(GetSkillLevel('Farming')));
end;
end;
begin
SetupSRL;
SetUpPlayers;
ClearDebug;
Signature;
ActivateClient;
repeat
if not(LoggedIn) then
begin
LoginPlayer;
end;
GetLevels;
NextPlayerOrder(true);
Reports:=Reports+1
until(Reports=HowManyPlayers-1)
end.
——————————————————
<!– END TEMPLATE: formanswers –>