bobby
2007-03-10 23:46:02
<!– BEGIN TEMPLATE: formanswers –>
bobby - SRL Member Application Form
bobby
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
uhh soemone with cheese in there name :( don't know who :(
Programming Knowledge
no
Other Communitys
moparscape
How Long have You Played Runescape
years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I scripted alot :)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
my simple rune crafter
alos an auth tester:
an auth is: test and test
not obbed version:
——————————————————
<!– END TEMPLATE: formanswers –>
I honestly made the runecrafting one, it sucks but it shows knowledge righgt?
bobby - SRL Member Application Form
bobby
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
uhh soemone with cheese in there name :( don't know who :(
Programming Knowledge
no
Other Communitys
moparscape
How Long have You Played Runescape
years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I scripted alot :)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program AirCrafter;
{.include srl/srl.scar}
{.include srl/srl/skill/runecrafting.scar}
function EnterAltar: Boolean; //Took this from the runecrafting part of SRL and edited it. Hope you dont mind.
var cx, cy, c : Integer;
begin
repeat
if not LoggedIn then
Exit;
repeat
C:=C+1;
if not LoggedIn then
Exit;
Wait(25);
if C>100 then
begin
Result := False;
Exit;
end;
until(FindMsColorTol(cx,cy,6243878,20));
MMouse(cx,cy, 5,5);
Wait(150+Random(350));
until IsUpText('Enter');
Mouse(cx, cy, 3, 3, true)
Result:=True;
end;
begin
setupsrl;
If InvFull then
begin
Mouse(616, 142, 2, 2, true)
Flag;
if not Flag then wait(3500+random(1000))
Flag;
Mouse(654, 157, 2, 2, true)
Flag;
Mouse(642, 157, 2, 2, true)
Flag;
Mouse(614, 129, 2, 2, true)
Flag;
Mouse(602, 92, 2, 2, true)
Flag;
end;
EnterAltar;
Flag;
wait(1800 + random(400))
Mouse(367, 33,2, 2, true)
Flag;
wait(800 + random(500))
(*if invfull then
begin
repeat
FindObj(x, y, 'Craft', 2) --Dont mess with this please!!--
Mouse(x, y, 2, 2, true) --It's a work in progress for--
wait(800 + randoM(500)) --a better crafting routine--
until not InvFull
end; *)
repeat
FindObj(x, y, 'Portal', 5733509, 3)
wait(50 + random(50))
until FindObj(x, y, 'Portal', 5733509, 3)
Mouse(x, y, 1, 1, true)
wait(1400+random(1000))
if not InvFull then
begin
Mouse(696, 32, 2, 2, true)
while not flag do wait(50 + random(50))
Flag;
Mouse(669, 14, 2, 2, true)
while not flag do wait(50 + random(50))
Flag;
Mouse(643, 9, 2, 2, true)
while not flag do wait(50 + random(50))
Flag;
Mouse(644, 37, 2, 2, true)
Flag;
Mouse(688, 44, 2, 2, true)
Flag;
repeat
OpenBank;
until BankScreen
DepositAll;
FixBank;
Mouse(95, 78, 1, 1, false)
ChooseOption(x, y, 'All')
CloseBank;
end;
end.my simple rune crafter
alos an auth tester:
const IMPSOFTSTRING1='.______ ______ .______ .______ ____ ____ '; IMPSOFTSTRING2='| _ \ / __ \ | _ \ | _ \ \ \ / / '; IMPSOFTSTRING3='| |_) | | | | | | |_) | | |_) | \ \/ / '; IMPSOFTSTRING4='| _ < | | | | | _ < | _ < \_ _/ '; IMPSOFTSTRING5='| |_) | | `--/ | | |_) | | |_) | | | '; IMPSOFTSTRING6='|______/ \______/ |______/ |______/ |__| '; IMPSOFTSTRING7='Auth username?'; IMPSOFTSTRING8='Auth password?'; IMPSOFTSTRING9='http://Bobbyscripts.freehostia.com/?username='; IMPSOFTSTRING10='&password='; IMPSOFTSTRING11='&auth=AUTH1'; IMPSOFTSTRING12='ACCEPTED'; IMPSOFTSTRING13='Auth accepted'; IMPSOFTSTRING14='Error authenticating! Ending script in 1 second'; IMPSOFTSTRING15='1 seconds left'; IMPSOFTSTRING16='0 seconds left'; IMPSOFTSTRING17='script terminating now'; IMPSOFTSTRING18='Auth username?'; IMPSOFTSTRING19='Auth password?'; IMPSOFTSTRING20='http://Bobbyscripts.freehostia.com/?username=';
IMPSOFTSTRING21='&password=';
IMPSOFTSTRING22='&auth=AUTH1'; IMPSOFTSTRING23='ACCEPTED'; IMPSOFTSTRING24='Auth excepted';IMPSOFTSTRING25='The Username and Password you gave are not working.'; IMPSOFTSTRING26='Checking second website';const IMPSOFT_1nvgn3vme2ea8=5000; IMPSOFT_x2nl6z3gtuvu=1000; IMPSOFT_nxzorc8i6z37=100; var IMPSOFT_6haltid1l4gz, IMPSOFT_dupp6ag77xdr, IMPSOFT_18u6y8n8zr26t : string; procedure IMPSOFT_5i9jqmh5bgah; begin wait(IMPSOFT_nxzorc8i6z37) writeln (IMPSOFTSTRING1) wait(IMPSOFT_nxzorc8i6z37) writeln (IMPSOFTSTRING2) wait(IMPSOFT_nxzorc8i6z37) writeln (IMPSOFTSTRING3) wait(IMPSOFT_nxzorc8i6z37) writeln (IMPSOFTSTRING4) wait(IMPSOFT_nxzorc8i6z37) writeln (IMPSOFTSTRING5) wait(IMPSOFT_nxzorc8i6z37) writeln (IMPSOFTSTRING6) cleardebug; terminatescript; end; procedure IMPSOFT_1q3y9v76ex7hu; begin IMPSOFT_6haltid1l4gz := readln(IMPSOFTSTRING7); IMPSOFT_dupp6ag77xdr := readln(IMPSOFTSTRING8);
IMPSOFT_18u6y8n8zr26t := getpage(IMPSOFTSTRING9 + IMPSOFT_6haltid1l4gz + IMPSOFTSTRING10 + IMPSOFT_dupp6ag77xdr + IMPSOFTSTRING11); if (IMPSOFT_18u6y8n8zr26t = IMPSOFTSTRING12) then addtoreport(IMPSOFTSTRING13) else begin wait(IMPSOFT_1nvgn3vme2ea8) writeln(IMPSOFTSTRING14); writeln(IMPSOFTSTRING15) wait(1000) writeln(IMPSOFTSTRING16) writeln(IMPSOFTSTRING17) begin IMPSOFT_5i9jqmh5bgah; end; end; end; procedure IMPSOFT_w0rbxzam0ghf; begin IMPSOFT_6haltid1l4gz := readln(IMPSOFTSTRING18); IMPSOFT_dupp6ag77xdr := readln(IMPSOFTSTRING19); IMPSOFT_18u6y8n8zr26t := getpage(IMPSOFTSTRING20 + IMPSOFT_6haltid1l4gz + IMPSOFTSTRING21 + IMPSOFT_dupp6ag77xdr + IMPSOFTSTRING22); if (IMPSOFT_18u6y8n8zr26t = IMPSOFTSTRING23) then addtoreport(IMPSOFTSTRING24) else begin writeln(IMPSOFTSTRING25) writeln(IMPSOFTSTRING26) wait(IMPSOFT_1nvgn3vme2ea8) IMPSOFT_1q3y9v76ex7hu; end; end; begin cleardebug;
IMPSOFT_w0rbxzam0ghf; wait(IMPSOFT_1nvgn3vme2ea8) cleardebug; end.an auth is: test and test
not obbed version:
var
gUser, gPass, gTempStr : string;
procedure endprocedure;
Begin
wait(500)
writeln ('.______ ______ .______ .______ ____ ____ ')
wait(500)
writeln ('| _ \ / __ \ | _ \ | _ \ \ \ / / ')
wait(500)
writeln ('| |_) | | | | | | |_) | | |_) | \ \/ / ')
wait(500)
writeln ('| _ < | | | | | _ < | _ < \_ _/ ')
wait(500)
writeln ('| |_) | | `--/ | | |_) | | |_) | | | ')
wait(500)
writeln ('|______/ \______/ |______/ |______/ |__| ')
wait(1000)
cleardebug;
terminatescript;
end;
procedure Authenticate2;
Begin
gUser := Readln('Auth username?');
gPass := Readln('Auth password?');
gTempStr := GetPage('http://Bobbyscripts.freehostia.com/?username=' + gUser + '&password=' + gPass + '&auth=AUTH1');
if (gTempStr = 'ACCEPTED') then
addtoreport('Auth accepted')
else begin
wait(500)
Writeln('Error authenticating! Ending script in 1 second');
writeln('1 seconds left')
wait(1000)
writeln('0 seconds left')
writeln('script terminating now')
Begin
endprocedure;
end;
end;
end;
procedure Authenticate;
begin
gUser := Readln('Auth username?');
gPass := Readln('Auth password?');
gTempStr := GetPage('http://Bobbyscripts.freehostia.com/?username=' + gUser + '&password=' + gPass + '&auth=AUTH1');
if (gTempStr = 'ACCEPTED') then
addtoreport('Auth excepted')
else begin
writeln('The Username and Password you gave are not working.')
Writeln('Checking second website')
wait(500)
Authenticate2;
end;
end;
begin
cleardebug;
Authenticate;
cleardebug;
end.——————————————————
<!– END TEMPLATE: formanswers –>
I honestly made the runecrafting one, it sucks but it shows knowledge righgt?