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
——————————————————
<!– END 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 –>