IPwnz
2007-12-23 14:59:57
<!– BEGIN TEMPLATE: formanswers –>
IPwnz - SRL Member Application Form
IPwnz
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
HTML, PHP, some QBASIC
Other Communitys
RM Scripts, KYAB, Spork-eh
How Long have You Played Runescape
July 27, 2004 (too long?) :D
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well, I've personally known of SRL since about August '06, but I didn't really get into the community until November. I have lead a couple teams to create mods for games like Battlefield 2, and have moderated different sites a good bit. I worked for ModDB.com and Filefront.com for awhile, but the commitment that I needed from school and those sites didn't work, so I dropped school. Just kidding! Anyways, I got into the HTML scene around 9 or so years old, then progressed into PHP when I was about 12. I'm 15 right now, and I did the whole website moderating thing from 13-14.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
IPwnz - SRL Member Application Form
IPwnz
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
HTML, PHP, some QBASIC
Other Communitys
RM Scripts, KYAB, Spork-eh
How Long have You Played Runescape
July 27, 2004 (too long?) :D
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well, I've personally known of SRL since about August '06, but I didn't really get into the community until November. I have lead a couple teams to create mods for games like Battlefield 2, and have moderated different sites a good bit. I worked for ModDB.com and Filefront.com for awhile, but the commitment that I needed from school and those sites didn't work, so I dropped school. Just kidding! Anyways, I got into the HTML scene around 9 or so years old, then progressed into PHP when I was about 12. I'm 15 right now, and I did the whole website moderating thing from 13-14.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program IPwnzLumbyFiremaker;
{=========================================================================]
[ ]
[ NAME : IPwnz Lumby Firemaker v1.0 ]
[ WRITER : IPwnz - with SCAR 3.13 and SRL 4 rev #7 ]
[ CATEGORY : Firemaking ]
[ DESCRIPTION : Burns 4 respawning logs for XP ]
[ USAGE : To Raise Your Firemaking Level ]
[ AUTOCOLOR : Yes ]
[ NOTES : Please post proggy at srl-forums.com ]
[ CONTACT : [email]LittlePwnie@gmail.com[/email] ]
[ CREDITS : WT_Fakawi - AntiRandoms ]
[ SRL-Forums - Various script help ]
[ Shapeshifter - SCAR Disguiser ]
[ ]
[-------------------------------------------------------------------------]
[ Instructions. ]
[-------------------------------------------------------------------------]
[ 1. Use Runescape with Low Detail. ]
[ 2. Set your Screen to 32 bit TRUE color (probably already is). ]
[ 3. Position Players On Third Floor of Lumbridge Castle. ]
[ 4. Set Playernames and Passwords at Line 46 and on. ]
[ 5. Set SRL Id and Pass in Line 36 & 37 ]
[ 6. Drag Cross Hair Over Client ]
[ 7. Start script Logged in with any player! ]
[-------------------------------------------------------------------------}
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Firemaking.scar}
var
firesmade,x,y,s,TinderboxDTM:integer;
const
FireColor=5410992; //These colors should be fine.
FireColor2=3561842;
updatetime=6000; //How often you want a debug report to show up. (in ms)
yourSRLID=''; // Don't have this? Please Register at:
yourSRLPW=''; // [url]http://www.stats.srl-forums.com/[/url]
//You must let this script connect to [url]www.villu-reborn.com/stats/stats.php[/url] to send script statistics to SRL!
{------------------------------------------------------------------------------
Setup your players here!
-------------------------------------------------------------------------------}
procedure DeclarePlayers;
begin
HowManyPlayers:= 1; //NumberOfUsers is 1 + The number of your last player in your player list!
NumberOfPlayers( HowManyPlayers ); //no touchie.
CurrentPlayer := 0; //this tells the script which player to start with.
Players[0].Name :=''; //Your player's name
Players[0].Pass :=''; //Your player's password
Players[0].Nick :=''; //The randoms will say your name in the RS window and SRL will search for a part of your name, your nick. Your nick should not include the first letter of your rs name.
Players[0].Active:=True; // Don't touch this.
{Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;}
{Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=True;}
{Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=True;}
{Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Active:=True;}
{Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Active:=True;}
end;
{------------------------------------------------------------------------------
Disguises SCAR. Thanks to ShapeShifter!(with my own little touch)
-------------------------------------------------------------------------------}
procedure DisguiseIt;
begin
if (yourSRLID = '') then //my own little touch =)
begin
case Random(3) of
0:Disguise('My Little Pony Offical Fansite - Mozilla Firefox');
1:Disguise('Bratz.com - The Offical Bratz site! - Mozilla Firefox');
2:Disguise('Im A Leecher! Fanclub - Mozilla Firefox');
end;
end;
if not (yourSRLID = '') then
begin
case Random(7) of
0:Disguise('iTunes');
1:Disguise('Google - Microsoft Internet Explorer');
2:Disguise('Document1 - Microsoft Word');
3:Disguise('Google - Microsoft Internet Explorer');
4:Disguise('Mozilla Firefox Start Page - Mozilla Firefox');
5:Disguise('New Folder');
6:Disguise('Untitled - Notepad');
end;
end;
end;
{------------------------------------------------------------------------------
Finds our tinderbox. Thanks to kingarabian for this!
-------------------------------------------------------------------------------}
Procedure DeclareDTMS;
begin
TinderBoxDTM := DTMFromString('78DA630C646060706340014B67CD04D38C503' +
'EA33790B06540038CA86A628084250135C1402298809A7820E14C' +
'408D0B90F023A0C609D35FE86A00F70B0603');
//DTM now loaded
end;
{------------------------------------------------------------------------------
Runs the actual burning process.
-------------------------------------------------------------------------------}
procedure fireburnination;
var
firesmade,x,y:integer;
begin
DeclareDTMs;
if not FindDTM(TinderboxDTM,x,y,msx1,msy1,msx2,msy2) then
begin
writeln('Player '+players[currentplayer].nick+' doesnt have a tinderbox in inv.');
nextplayer(false);
logout;
end;
if (FindColorTolerance(x,y,FireColor,0,0,600,600,5)) and (FindColorTolerance(x,y,FireColor2,0,0,600,600,5)) and FindDTM(TinderboxDTM,x,y,msx1,msy1,msx2,msy2) then
begin
Mouse(Firecolor+random(3),Firecolor2+random(10),3,3,false);
if not isUpText('log') then
begin
mmouse(x+100+random(100),y-50-random(50),0,0);
end;
end;
if isUpText('log') then
begin
Mouse(Firecolor, Firecolor2, 2, 3, False);
Chooseoption('Light');
Lightwait;
firesmade:=firesmade+1;
end;
end;
{------------------------------------------------------------------------------
Catches some randoms. Thanks to WT_Fakawi!
-------------------------------------------------------------------------------}
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
{------------------------------------------------------------------------------
Logs our players in and gets 'em where we want 'em.
-------------------------------------------------------------------------------}
procedure login;
begin
if (not(loggedin)) then loginplayer;
wait(200);
findnormalrandoms;
findfastrandoms;
marktime(s);
highestangle;
SetChat('off',2);
makecompass('e');
if not(players[currentplayer].booleans[1]) then
begin
setBar('brightness',4);
players[currentplayer].booleans[1]:=true;
end;
end;
{------------------------------------------------------------------------------
Reports what went on during the run.
-------------------------------------------------------------------------------}
procedure report;
var
i,firesmade:integer;
begin
cleardebug;
for i:=0 to howmanyplayers-1 do
begin
writeln(inttostr(i)+': '+players[i].nick+' | '+left(booltostr(players[i].active),1)+' | '+inttostr(firesmade)+' total fires made');
end;
writeln('-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_');
writeln('IPwnz Lumbridge Firemaker v0.1');
writeln('ran for '+inttostr(gettimerunning));
writeln('made '+inttostr(firesmade)+' fires');
writeln('-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_');
ReportVars[0]:=firesmade;
SRLRandomsReport;
end;
{------------------------------------------------------------------------------
Tells the report when to go off.
-------------------------------------------------------------------------------}
procedure counter;
var
r:integer;
begin
if (not(loggedin)) then exit;
if timefrommark(r)>updatetime then
begin
marktime(r);
report;
end;
end;
{------------------------------------------------------------------------------
This starts up the script with some coolness.
-------------------------------------------------------------------------------}
procedure setupScript;
begin
cleardebug;
writeln(' _____ _____ ');
writeln('|_ _| __ \ ');
writeln(' | | | |__) |_ ___ __ ____ ');
writeln(' | | | ___/\ \ /\ / / _ \ |_ / ');
writeln(' _| |_| | \ V V /| | | | / / ');
writeln('|_____|_| \_/\_/ |_| |_ /___| ');
writeln(' Lumbridge Firemaker v1.0 ');
writeln(' ');
setupsrl;
ScriptID:='484';
if (yourSRLID = '') then SRLID := '2388' else SRLID := yourSRLID;
if (yourSRLPW = '') then SRLPassword := 'Leechers' else SRLPassword := yourSRLPW;
declareplayers;
activateclient;
wait(500);
end;
{------------------------------------------------------------------------------
The magic goes off around here.
-------------------------------------------------------------------------------}
begin
setupScript;
LoadFireMakingBitmaps;
DisguiseIt;
repeat
if (not(loggedin)) then login;
counter;
fireburnination;
until(false);
end——————————————————
<!– END TEMPLATE: formanswers –>