ben600006
2008-06-27 20:39:34
<!– BEGIN TEMPLATE: formanswers –>
ben600006 - SRL Member Application Form
ben600006
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
w0uter
Programming Knowledge
Other Communitys
How Long have You Played Runescape
since about 2002
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
i have been making scripts for the past couple of months, i play runescape regularly and try to awnser as many questions as possible if i know the awnser.
i do currently have a low activity rating, as srl-forums has been down the past few weeks and i have not been able to make any thing new.
i have just left school so i will be active and scripting regularly till september when i will reduce to 1 script at a time, taking me about 2 weeks to create
i like comments on my work good or bad, as this helps me to develop future scripts
i am submitting my fallador teleporter script
thanks
ben
[edit] i have now added antirandoms (totally 4got :duh:), added a failsafe (only reli need 1), loops end aswel now
[/edit]
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
ben600006 - SRL Member Application Form
ben600006
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
w0uter
Programming Knowledge
Other Communitys
How Long have You Played Runescape
since about 2002
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
i have been making scripts for the past couple of months, i play runescape regularly and try to awnser as many questions as possible if i know the awnser.
i do currently have a low activity rating, as srl-forums has been down the past few weeks and i have not been able to make any thing new.
i have just left school so i will be active and scripting regularly till september when i will reduce to 1 script at a time, taking me about 2 weeks to create
i like comments on my work good or bad, as this helps me to develop future scripts
i am submitting my fallador teleporter script
thanks
ben
[edit] i have now added antirandoms (totally 4got :duh:), added a failsafe (only reli need 1), loops end aswel now
[/edit]
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
//smart version\\
//-----------------\\
//created by ben600006 \\
// \\
// \\
// \\
//setup player on lines 24- 31 \\
//---------------------------------\\
//start with correct runes in inventory\\
/////////////////////////////////////////
////////////////////////////////////////
program new;
{.include SRL\SRL\Misc\Smart.scar}
{.include srl/srl.scar}
var x, y, teleport, Clicked, AntiBanz, tab7, AntiRandomz : Integer;
const
world = 68;//change the world number if desired\\
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Amount of Characters using
NumberOfPlayers(HowManyPlayers); //Don't touch
CurrentPlayer := 0; //Player to start with (eg. Players[0] = 0)
Players[0].Name := ''; //Username
Players[0].Pass := ''; //Password
Players[0].Nick := ''; //3-4 small letters of the username
Players[0].Active := True; //Using Character? True = yes; False = no
end;
//do not edit below here\\
procedure bitmaps;
begin
teleport := BitmapFromString(11, 12, 'beNrr/dzXC0IigvpAVFX1' +
'E44gInBZZClMZXAFpiZ5cISsAC77799fOIKrgcsyMDACxYEkHMHVQ' +
'GQhCiAITQ2yAmQTMA3BagWaIzH1EvQmwYAiENQAjrClCQ==');
tab7 := BitmapFromString(26, 24, 'beNqF1EFLVFEYxvFpb6Nm2gzO' +
'2BCiIy0mQYVkNo3WolaGigrqQheBROOiGFsEgrQURZdBhCvXIS2VP' +
'oKfqD898vBy7p0RHg7n3nvOj/Oee88t9n2dqpGD+tP9iern+hgt2R' +
'sfdXaflZ2tWul9ZYS8Kz8mi6VH5NXIIGkODxAokB5aofBAMbgxlpq' +
'JJudLvaZOpK5/n31YaLxtDJtFW/0PZleoSnG0NpJLzU2Wt5eaikxR' +
'jkyVllQXqdb8bKTam6+j6fTQRJ1+Wl9uNUx1dho2FR5x8+J47+TbD' +
'lOotAelGo14VZEFZBhhVrVayS0woXAuvzeVw48rXCr0CSBJNN6+Kc' +
'ZAeUlyztuzikBaCiTaQyjiLzNSbFek7BAtT62ov1c/pbFv2VWZYi5' +
'adHKp25sfUYsU2+VVeXPipsUCRf35daS3gMZJoaP3IkrjNTEbzISi' +
'Qzla3lr1CZ3Om2niGuNcd/iu9Gl1owjHTRo3ecoYIlMVJelBceo5v' +
'1zyPRCeMiYxvQkKn1Y36uVQUWsjDOMpYxKT+1TKO6JMWi5zKUV/AB' +
'9ebV1iGtTacikWRsvBF8h9g1lTx6cb5fCRGLzXTCj/crOgWnW6mfw' +
'E/LvwdGpUZgaLWdyxiYATqbhdchTL3kmPiab2338eT7Tzov/h82Kf' +
'Lz0AQf0o+6VrYXEWyF3+AT7A8+w=');
end;
procedure report;
begin
WriteLn('[-------------progress report-------------]');
WriteLn('[ clicked ' + IntToStr(Clicked) + ' times ]');
WriteLn('[ ------Ran for ' + TimeRunning + '-------]');
writeln('[-antiban ' + IntToStr(AntiBanz) + 'times-]');
writeln('[-antirandom ' + IntToStr(AntiRandomz) + 'times-]');
WriteLn('[-----------created by ben600006----------]');
end;
procedure AntiRandoms;
Begin
procedure AntiBan;
begin
if not LoggedIn then loginplayer;
case Random(50) of
1: RandomRClick;
2: HoverSkill('Woodcutting', False);
3: RandomMovement;
4: BoredHuman;
5: AlmostLogout;
end;
AntiBanz := AntiBanz + 1;
end;
procedure teleporting;
begin
gametab(7);
wait (2000+random(265+random(659)))
repeat
if not(findbitmapspiraltolerance(tab7,x,y,1,1,1000,1000,5)) then
begin
gametab(7)
end else
wait (200+random(200));
if (findbitmapspiraltolerance(teleport,x,y,1,1,1000,1000,20)) then
begin
Mouse(x,y,10,10,true);
Clicked := Clicked + 1;
end else
begin
logout;
exit;
end;
wait (2000+random(500))
antiban
if not (loggedin) then
begin
loginplayer;
teleporting;
end;
if not(findbitmapspiraltolerance(tab7,x,y,1,1,1000,1000,5)) then
begin
gametab(7)
end;
until (not(findbitmapspiraltolerance(teleport,x,y,1,1,1000,1000,10)))
end;
procedure SetupSMART;
begin
SmartSetupEx(World, False, True);
SetTargetDC(SmartGetDC);
end;
begin
SetupSMART;
SetupSRL;
writeln('please wait whilst SMART loads')
DeclarePlayers
bitmaps
LoginPlayer
teleporting
srlrandomsreport
report
end.
——————————————————
<!– END TEMPLATE: formanswers –>