SRL Archive - Archive

firefoxx - SRL Member Application Form


firefoxx

2008-08-24 10:55:22

<!– BEGIN TEMPLATE: formanswers –>
firefoxx - SRL Member Application Form
firefoxx

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
Pascal, Java

Other Communitys
Rsbot.com

How Long have You Played Runescape
3 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

Hi my name is Daniel.My nickname is firefoxx.I enjoy programming and playing video games.I have a mom a dad and a brother.I have a dog,two cats,and a turtle.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

{=========================================================================]
[ SRL Alkharid Smeler / Smelts Iron/bronze / Smelter / Banker ]
[ ]
[ NAME : FireFoxx's Alkharid Smelter ]
[ WRITER : FireFoxx ]
[ CATEGORY : Smithing ]
[ DESCRIPTION : See below. ]
[ USAGE : Smelts ore's at Alkharid ] ]
[ REFLECTION : Used ]
[ SRL REV. : 21 SCAR 3.15b ]
[=========================================================================]
[ This Script smelts iron and bronze bars at Alkharid ]
[ ]
[ ]
[=========================================================================]
[ Instructions. ]
[=========================================================================]
[ 1. USE Runescape with Low Detail, Very Bright. ]
[ 2. Set your Screen to 32 bit TRUE color. ]
[ 3. Set Playernames and Passwords in DeclarePlayers. ]
[ 4. Set NumberOfPlayers. ]
[ 5. Put ores to 1st and 2nd inventory slot. ] ]
[=========================================================================}

program Fsmelter;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.include SRL/SRL.scar}
{.include SRL/SRL/reflection/Reflection.Scar}
{.Include SRL/SRL/Skill/Smithing.Scar}
var
GoSmelt: TPointArray;
GoBank: TPointArray;
tin, iron, x, y, Forging_Ring,CEXP,NEXP,Trips,RunPlayers,Repeats2,Bars, OreBitmap: integer;
take_ring, use_ring: Boolean;
smelt_bar, world: String;

procedure DeclareVars;
begin
HowManyPlayers := 4;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := ''; // Accounts name
Players[0].Pass := '';// Password
Players[0].Nick := '';// 3-4 letters of username
Players[0].Active := True;
world := 'world133'; // set SMART world
use_ring := False; //Use ring of forging or not?
smelt_bar := 'Iron'; // 'Iron' or 'Bronze'.

Players[1].Name := ''; // Accounts name
Players[1].Pass := '';// Password
Players[1].Nick := '';// 3-4 letters of username
Players[1].Active := True;
world := 'world133'; // set SMART world
use_ring := False; //Use ring of forging or not?
smelt_bar := 'Iron'; // 'Iron' or 'Bronze'.

Players[2].Name := ''; // Accounts name
Players[2].Pass := '';// Password
Players[2].Nick := '';// 3-4 letters of username
Players[2].Active := True;
world := 'world133'; // set SMART world
use_ring := False; //Use ring of forging or not?
smelt_bar := 'Iron'; // 'Iron' or 'Bronze'.

Players[3].Name := ''; // Accounts name
Players[3].Pass := '';// Password
Players[3].Nick := '';// 3-4 letters of username
Players[3].Active := True;
world := 'world133'; // set SMART world
use_ring := False; //Use ring of forging or not?
smelt_bar := 'Iron'; // 'Iron' or 'Bronze'.
end;
//----------------------------------------------------------------------------//
procedure LoadOres;
begin

Tin := BitmapFromString(28, 24, 'beNqNlQ9LU1EYxvWDhBJECBlaQ' +
'4bXzNVyXXGOpeaYq7HWcjrXWMuW809jpEj0ofvFAw+HO1vCy+Hs3H' +
't/53mf9z1n0eLL6JaYmpp+lX64k13Y30j1a1l+LszOMlZLpY/vKs1' +
'arVYul7e3Wbn1838x86uPBBST2ClsAWzV64Nu99dwCFZ73Z1poJhx' +
'NotIgN/a7euL85sfl8yt3zGZGSqUSFLutVqj01OYRPfwUI9KuSfN3' +
'ahTfv6lkvkvVjLsZOfg4PLk5OfZQIEDrK8s3icjaIP6+kUjB1/YUH' +
'yYhYB6AZFAEBmGSimXhs345nPeqaXnZ9guk3oQR3OUpph57O28I1k' +
'P+30CqeHWvAxTQGJ0tMHi07l79AwQHlXzS403y4zM7T/VUTkc0q+n' +
'fIiTAoqJA4hUH4L6UEjjNiNzMwtxTDnQ6UK7f/76nF8CcnW8CZARw' +
'TJZIkEhkk0ZmZu5VyzCxMzzXk+1Duuo6iBPTH2FjRbZ2nv29f0LpI' +
'I1s/J2FxROUhTK/b3TCa1GA3URU2byFYVz1t6UuZmcFzHpc44P4TK' +
'5gqqRnaHQzlo7Egg2s91ooA2Rv0cjAiZqwao/1XJh7VihQBJJ1myn' +
'gG+mzIQJDSZqmSc6KmxmAjMlkvIJyESnzA2PTucupnqMqwm3OWKJI' +
'6nSYKNoCjSHTAJhnHGYjPxcW4noMazmptIKL79eS4mJSGwUCrLDec' +
'kZJtgIU4ubuRwKObDqh8Slh6SQFrokq8lC9roQjGTtGwBsgpmg+dA' +
'ZiLe2108/VavUTkDOgnvAzPFTzM1goC/S8EhyM1thopH0gmnhJa87' +
'VlZr3zC78fskfJr46ZshZBLjfz3jqMk3PImbqaad8L/gFprM1CmgJ' +
'dS3vhzupOoPt8jtIA==');

Iron := BitmapFromString(25, 19, 'beNqFlA1LQjEYhe0fBIFQgZh9' +
'gVSomYRWXtNCLSOJIKKQIqRCCIIgiCAIop/doweOw1sEhzHn3bOzs' +
'3eLis1orHoln0hMHWyvnh/krtrF15sGP3PpNG1pYTYUI3wczo2Lbz' +
'rVNXGEGtJSSaZXluYb2XQnt0RHS0zYGE1PhChzhMrOzYgTrabgIDp' +
'2a/3qKvQjS+K01jNC4U1/XTQLD+c7T5fV5+tanKa4tKhT8tYkmIzv' +
'5jP4B/J2d/jeb4INTdqqODIpDtMtaDodRfFx3/p+OqEDvLa13KpkS' +
'bu7vyG4N4u0NSlckY9BiYM+H4+Yy0ivU+qflWnpO9LF5LQOa5zbyK' +
'3+ZSIpiSOUOLen2wRIS98ozg5LyKfvAuAnXxLR1+AYDi32QEHAEkv' +
'Q0jeKs4NDUEgFAKTdKAulwDEjlOBMH1zsvfTqGIMWVngYlGrArlia' +
'qIWiZURb8xL046iJMkCH0aY6il1TtDXxEfaM0u6E6hZWhNJ+XTPhc' +
'WCDrQGXwP6L+qsImctBiENHV8D1GUf5VvqJ8E0hIkEkHIYoFKJUbE' +
'ZpxBUiAkDL5nUiw2dnhNIgHF1w179RcQLi6VOFKDpn64fCt3ICNfE' +
'UmENujs7/+sEJL+YQ9QPOyRIf');
Forging_Ring := BitmapFromString(15, 19, 'beNp9kU9EBAEUx' +
'ncq29Y0u/Nnp0j/LUmX9lKHDi3pUhQdShIdkqTolhTLEpGIUrGkpC' +
'yrlESkskSKiLLZlohIp46xXfqNabcp24zPeMZv3vve9xyOfx7hukZ' +
'F07poii8Ohx0cKfNY9T//F7ZtLrzW6lYyGyxkFJooivs0UxbnP+Tm' +
'vGc15F6fcx+FZYrpUbGt2RmrVk+qFMhOKT9DLgelxRkpPGuQN/vaZ' +
'VQ9WJMXpqShnoJouYzSNoTguDg5LMJHFj0nG0r8WHuO6YgCPu3NIM' +
'cGCge7XfAmfBFRn869b1f6x31JKuFnEM1NOLajUiMcAlt3TD2UpB4' +
'br3dV7Jnw8bpCW2SZ9SsceMaN9BnNo0tyf5fLJvDPZICJvR0uMy6z' +
'sOFZhwwp7o60TETZeGF7wfDQUJdnWEo2EylfmMXVrAsi+tC2szXfV' +
'5lrwIl6guIKZ1vK3orM+ZjCG4y9MEnb9hZnRWnO974J//tNcfLUS0' +
'pchJV5Ey/jmIW9QJPT4lAgf/iXC+NkuCJ8fsEYHtKp/o0UP8C3hxr' +
'h05ZbcKkf8gtQnrNK');

end;
//----------------------------------------------------------------------------//
Procedure Advert;
begin
writeln('-----------------------------------------------------------------');
writeln('/ _____ _ _____ _____ _____ _____ __ __ __ __ \');
writeln('/ | ___| | | | _ \ | ____| | ___| / _ \ \ \ / / \ \ / / \');
writeln('/ | |__ | | | |_| | | |__ | |__ | | | | \ \/ / \ \/ / \');
writeln('/ | __| | | | _ / | __| | __| | | | | } { } { \');
writeln('/ | | | | | | \ \ | |___ | | | |_| | / /\ \ / /\ \ \');
writeln('/ |_| |_| |_| \_\ |_____| |_| \_____/ /_/ \_\ /_/ \_\ \');
writeln(' |-------------------------------------------------------| \');
writeln('/ _____ ___ ___ _____ _ _____ _____ _____ \');
writeln('/ / ___/ / |/ | | ____| | | |_ _| | ____| | _ \ \');
writeln('/ | |___ / /| /| | | |__ | | | | | |__ | |_| | \');
writeln('/ \___ \ / / |__/ | | | __| | | | | | __| | _ / \');
writeln('/ ___| | / / | | | |___ | |___ | | | |___ | | \ \ \');
writeln('/ /_____/ /_/ |_| |_____| |_____| |_| |_____| |_| \_\\');
writeln('------------------------------------------------------------------');
writeln('----------Made by FireFoxx - Iron and Bronze ore Smelter----------');
end;
//----------------------------------------------------------------------------//
procedure SmeltPath;
begin
SetLength(GoSmelt, 2);

GoSmelt[0] := Point(3275, 3172);
GoSmelt[1] := Point(3274, 3185);
end;
//----------------------------------------------------------------------------//
procedure BankPath;
begin
SetLength(GoBank, 2);

GoBank[0] := Point(3275, 3172);
GoBank[1] := Point(3269, 3164);
end;
//----------------------------------------------------------------------------//
Function WalkPath(PathArray: TPointArray; Index: Integer): Boolean;
var i,arr_size:Integer;
begin
if(Index > 0) then
begin
WalkToTile(PathArray[Index],1,40)
Wait(3000 + Random(500));
FindNormalRandoms;
end else
begin
arr_size := GetArrayLength(PathArray);
i:=0;
repeat
if(WalkToTile(PathArray[i],1,40)) Then
i:= i + 1;
Wait(3000 + Random(500));
until(i >= arr_size);
Wait(2000 + Random(500));
Result := True;
end;
end;
//----------------------------------------------------------------------------//
Procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
case Random(11) of

0: begin
HoverSkill('Random', false);
wait(2000+Random(450));
end;

1: begin
HoverSkill('Smithing',false);
wait(2400+Random(400));
GameTab(2);
end;

3: PickUpMouse;

4: SayCurrentLevels('Smithing');

6: begin
case random(4) of
0: TypeSend('Hi?');

1: TypeSend('smithing lvls?');

2: TypeSend('mining lvls?');

3: TypeSend('wats up?');
end;
end;

7: begin
MakeCompass('N');
wait(10+random(5));
MakeCompass('S');
wait(10+random(5));
MakeCompass('N');
end;

8: begin
SetAngle(false);
wait(10+random(10));
SetAngle(true);
end;

9: SleepAndMoveMouse(600000+random(400000));

end;
end;
//----------------------------------------------------------------------------//

procedure WithdrawOrez;
begin
if(smelt_bar = 'Iron') then
begin
if(take_ring = True) then
begin
Withdraw(1,1,27);
end else
begin
Withdraw(1,1,28);
end;
end;

if(smelt_bar = 'Bronze') then
begin
Withdraw(1,1,14);
Withdraw(2,1,14);
end;
end;
//----------------------------------------------------------------------------//
procedure depositBars;

var Banker:TNPC;
begin
Wait(1000 + Random(500));
If (FindNPC('Banker', Banker)) Then
if(OpenBankFast('akb')) Then
begin
Wait(3000 + Random(500));
DepositAll;
WithdrawOrez;
wait(700 + Random(300))
FindNormalRandoms;
if(take_ring) then
begin
if FindBitmapToleranceIn(Forging_Ring, x, y, 23,58,497,300, 25) then
begin
mmouse(x,y,0,0);
mouse(x,y,0,0,True);
end;
end;
CloseBank;

if(take_ring) then
begin
GameTab(4);
wait(300 + Random(300))
if FindBitmapToleranceIn(Forging_Ring, x, y, 541,199,743,471, 25) then
begin
mmouse(x,y,0,0);
mouse(x,y,0,0,True);
take_ring := False;
end;
end;
end;
GameTab(4);
end;
//----------------------------------------------------------------------------//
procedure SmeltWithdraw;

var Banker:TNPC;

begin
Wait(1000 + Random(500));
If (FindNPC('Banker', Banker)) Then
begin
if(OpenBankFast('akb')) Then
begin
Wait(3000 + Random(500));
WithdrawOrez;
end else
begin
SmeltWithdraw;
end;
end;
CloseBank;
end;
//----------------------------------------------------------------------------//
procedure SmeltOres;
var
goBack: Boolean;
temp_x, temp_y: Integer;

begin
goBack := False;
if not FindFurnace(temp_x, temp_y) then
WalkPath(GoSmelt, 1);
repeat
OpenFurnace;
Smelt(smelt_bar,'5');
Wait(8000 + Random(500));
FindNormalRandoms;
if not FindBitmapToleranceIn(OreBitmap, x, y, 541,199,743,471, 25) then
goBack := True;
FindNormalRandoms;
until(goBack)
end;
//----------------------------------------------------------------------------//
Procedure Maths;
begin
Trips:=RunPlayers * Repeats2;
Bars:=Trips * 9 ;
CEXP:= 43 * Bars;
NEXP:= 17 * Bars;
end;
//----------------------------------------------------------------------------//
Procedure ProgressReport;
begin
Maths;
writeln('/-------------------------------------\');
writeln('| fireFoxx Smelter Progress Report |');
writeln('---------------------------------------');
writeln('| Script Ran for: '+TimeRunning+'.');
writeln('| Made '+inttostr(Trips)+' Trips.');
writeln('| Made '+inttostr(Bars)+' Bars.');
If(Players[CurrentPlayer].Booleans[0]) then writeln('| Made '+inttostr(CEXP)+' Smelting Experience.');
If(not Players[CurrentPlayer].Booleans[0]) then writeln('| Made '+inttostr(NEXP)+' Smelting Experience.');
writeln('---------------------------------------');
SendSRLReport;
end;
//----------------------------------------------------------------------------//
procedure MainLoop;
begin
if(smelt_bar = 'Iron') then
OreBitmap := iron;
if(smelt_bar = 'Bronze') then
OreBitmap := tin;
repeat
SetRun(true);
WalkPath(GoSmelt, 0);
SmeltOres;
WalkPath(GoBank, 0);
if (use_ring) then
begin
GameTab(5);
wait(300 + Random(150));
if not FindBitmapToleranceIn(Forging_Ring, x, y, 541,199,743,471, 25) then
take_ring := True;
end;
depositBars;
until(false)
end;
//----------------------------------------------------------------------------//
begin
Advert;
DeclareVars;
SMARTSetUp(world, True, True, False);
SetTargetDC(SMARTGetDC);
SetupSRL;
AntiBan;
LoadOres;
SetupSmithing;
FindNormalRandoms;
FindInventoryRandoms;
BankPath;
SmeltPath;
ActivateClient;
loginplayer;
SetAngle(true);
SmeltWithdraw;
MainLoop;
end.

——————————————————
<!– END TEMPLATE: formanswers –>

skilld u

2008-08-24 10:58:26

procedure LoadOres;
begin

Tin := BitmapFromString(28, 24, 'beNqNlQ9LU1EYxvWDhBJECBlaQ' +
'4bXzNVyXXGOpeaYq7HWcjrXWMuW809jpEj0ofvFAw+HO1vCy+Hs3H' +
't/53mf9z1n0eLL6JaYmpp+lX64k13Y30j1a1l+LszOMlZLpY/vKs1' +
'arVYul7e3Wbn1838x86uPBBST2ClsAWzV64Nu99dwCFZ73Z1poJhx' +
'NotIgN/a7euL85sfl8yt3zGZGSqUSFLutVqj01OYRPfwUI9KuSfN3' +
'ahTfv6lkvkvVjLsZOfg4PLk5OfZQIEDrK8s3icjaIP6+kUjB1/YUH' +
'yYhYB6AZFAEBmGSimXhs345nPeqaXnZ9guk3oQR3OUpph57O28I1k' +
'P+30CqeHWvAxTQGJ0tMHi07l79AwQHlXzS403y4zM7T/VUTkc0q+n' +
'fIiTAoqJA4hUH4L6UEjjNiNzMwtxTDnQ6UK7f/76nF8CcnW8CZARw' +
'TJZIkEhkk0ZmZu5VyzCxMzzXk+1Duuo6iBPTH2FjRbZ2nv29f0LpI' +
'I1s/J2FxROUhTK/b3TCa1GA3URU2byFYVz1t6UuZmcFzHpc44P4TK' +
'5gqqRnaHQzlo7Egg2s91ooA2Rv0cjAiZqwao/1XJh7VihQBJJ1myn' +
'gG+mzIQJDSZqmSc6KmxmAjMlkvIJyESnzA2PTucupnqMqwm3OWKJI' +
'6nSYKNoCjSHTAJhnHGYjPxcW4noMazmptIKL79eS4mJSGwUCrLDec' +
'kZJtgIU4ubuRwKObDqh8Slh6SQFrokq8lC9roQjGTtGwBsgpmg+dA' +
'ZiLe2108/VavUTkDOgnvAzPFTzM1goC/S8EhyM1thopH0gmnhJa87' +
'VlZr3zC78fskfJr46ZshZBLjfz3jqMk3PImbqaad8L/gFprM1CmgJ' +
'dS3vhzupOoPt8jtIA==');

Iron := BitmapFromString(25, 19, 'beNqFlA1LQjEYhe0fBIFQgZh9' +
'gVSomYRWXtNCLSOJIKKQIqRCCIIgiCAIop/doweOw1sEhzHn3bOzs' +
'3eLis1orHoln0hMHWyvnh/krtrF15sGP3PpNG1pYTYUI3wczo2Lbz' +
'rVNXGEGtJSSaZXluYb2XQnt0RHS0zYGE1PhChzhMrOzYgTrabgIDp' +
'2a/3qKvQjS+K01jNC4U1/XTQLD+c7T5fV5+tanKa4tKhT8tYkmIzv' +
'5jP4B/J2d/jeb4INTdqqODIpDtMtaDodRfFx3/p+OqEDvLa13KpkS' +
'bu7vyG4N4u0NSlckY9BiYM+H4+Yy0ivU+qflWnpO9LF5LQOa5zbyK' +
'3+ZSIpiSOUOLen2wRIS98ozg5LyKfvAuAnXxLR1+AYDi32QEHAEkv' +
'Q0jeKs4NDUEgFAKTdKAulwDEjlOBMH1zsvfTqGIMWVngYlGrArlia' +
'qIWiZURb8xL046iJMkCH0aY6il1TtDXxEfaM0u6E6hZWhNJ+XTPhc' +
'WCDrQGXwP6L+qsImctBiENHV8D1GUf5VvqJ8E0hIkEkHIYoFKJUbE' +
'ZpxBUiAkDL5nUiw2dnhNIgHF1w179RcQLi6VOFKDpn64fCt3ICNfE' +
'UmENujs7/+sEJL+YQ9QPOyRIf');
Forging_Ring := BitmapFromString(15, 19, 'beNp9kU9EBAEUx' +
'ncq29Y0u/Nnp0j/LUmX9lKHDi3pUhQdShIdkqTolhTLEpGIUrGkpC' +
'yrlESkskSKiLLZlohIp46xXfqNabcp24zPeMZv3vve9xyOfx7hukZ' +
'F07poii8Ohx0cKfNY9T//F7ZtLrzW6lYyGyxkFJooivs0UxbnP+Tm' +
'vGc15F6fcx+FZYrpUbGt2RmrVk+qFMhOKT9DLgelxRkpPGuQN/vaZ' +
'VQ9WJMXpqShnoJouYzSNoTguDg5LMJHFj0nG0r8WHuO6YgCPu3NIM' +
'cGCge7XfAmfBFRn869b1f6x31JKuFnEM1NOLajUiMcAlt3TD2UpB4' +
'br3dV7Jnw8bpCW2SZ9SsceMaN9BnNo0tyf5fLJvDPZICJvR0uMy6z' +
'sOFZhwwp7o60TETZeGF7wfDQUJdnWEo2EylfmMXVrAsi+tC2szXfV' +
'5lrwIl6guIKZ1vK3orM+ZjCG4y9MEnb9hZnRWnO974J//tNcfLUS0' +
'pchJV5Ey/jmIW9QJPT4lAgf/iXC+NkuCJ8fsEYHtKp/o0UP8C3hxr' +
'h05ZbcKkf8gtQnrNK');

end;

dtm's pl0x?

boberman

2008-08-24 11:19:47

There are Oh so many ways this script could go wrong and no failsafes to prevent it.

for example.

procedure WithdrawOrez;
begin
if(smelt_bar = 'Iron') then
begin
if(take_ring = True) then
begin
Withdraw(1,1,27);
end else
begin
Withdraw(1,1,28);
end;
end;

if(smelt_bar = 'Bronze') then
begin
Withdraw(1,1,14);
Withdraw(2,1,14);
end;
end;

What if the player enters BRonze, bronze, bRoNzE, ect? There are no checks and so it just falls right through and walks to the smelter like there wasn't anything wrong. The other problem is it assumes that the ore is in a certain location. Bad, never assume anything. Even if you instructed the user otherwise, always check and make sure. your program should always treat the user like a retard, because one day a retard will use your script and complain that it doesn't work.

Reflections has no backup. This is bad because all that has to happen is runescape updates and, goodbye working script. Always have some backup to reflections like radial walking.

Your anti ban happens too often and not often enough. it is called once, but has a very high probability that something will happen that one time. Anti bans should be run in a loop, but they shouldn't happen every time they are call. Each script is unique, so you should tweak your random value so that your antiban happens once every ten seconds or so.

And please, limit the use of Global Variables. This isn't something Im marking down (you would still get in if you script was good enough but had 1000 globals) but good programming limits the use of global variables. If possible you should never use one. Constants are ok, but global variables are not.

Im voting no, for the reason above. Better luck next time.

Scaper

2008-08-24 12:18:08

no from you have no back up for you're reflection walking what so ever and basicaly reflection scripts are to easy

Nava2

2008-08-24 14:12:21

No, failsafes are a must. Also, use DTMs, or use Bitmaps which are smaller. You can also combine some procedures together :)

MylesMadness

2008-08-24 16:10:47

There is zero color backup on the Reflection. Nope

Timer

2008-08-24 17:57:55

No, reflection with not EVERY refection thing called backed up = No!

:)

Wizzup, wheres the no reflection rule?

Hugolord

2008-08-24 18:27:17

From: Timer
No, reflection with not EVERY refection thing called backed up = No!

:)

Wizzup, wheres the no reflection rule?


There isn't one and I don't think there should be, if a script is advanced enough with reflection I think it would deserve a YES although this script isn't one of them.

nielsie95

2008-08-25 17:58:00

Seems like you're not getting in this time, sorry.
You may try again in one month, good luck.
Closed.