Bionicle
2009-09-05 02:13:59
How Long have You Played Runescape?
7 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
No
What is your general programming knowledge?
Java, VB and HTML
Are you a member of any other communities?
No
Tell us about yourself…
Please show us one (or multiple) of your scripts.
7 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
No
What is your general programming knowledge?
Java, VB and HTML
Are you a member of any other communities?
No
Tell us about yourself…
From: bionicle1800
Currently in highschool, livin a live of guitar, runescape, and making scripts. Sadly, those are the only three things i enjoy doing besides hanging out with friends =P
Please show us one (or multiple) of your scripts.
program Iron_Power_Miner;
{.include SRL/SRL/Misc/Smart.scar}
{.Include SRL/SRL.scar}
{.include srl/srl/reflection/reflection.scar}
{==============================================================================]
[Author: Bionicle1800 ]
[Released: 09/04/2009 ]
[Made for: SCAR 3.21 ]
[Version: 1.0 ]
[Made for: Power Mining Iron Ore ]
[==============================================================================]
[ ________ ________ ]
[ / \___________________/ \ ]
[ /____ ____\ ]
[ \ INSTRUCTIONS / ]
[ _____/ \____ ]
[ \ ___________________ / ]
[ \________/ \________/ ]
[ ]
[ ]
[ Place your character by some iron with a pickaxe either equipted or in your ]
[ first invitory slot, and start the program! ]
[==============================================================================}
var
txa, CTS, I, H, X, Y, ore, p, pa, xp, l, xda: Integer;
exp: extended;
Points: TPointArray;
Pointers: T2DPointArray;
const
weild = False; //are you weilding a pickaxe?
loads = 1000; //how many loads do you want this to do
procedure DeclarePlayers;
begin
NumberOfPlayers(1);
Players[0].Name := 'example111'; //your username
Players[0].Pass := '********'; //your password
Players[0].Nick := 'examp'; //a nickname for your account
Players[0].BoxRewards := ['XP', 'ostume', 'mote']; //random event box rewards
Players[0].Active := True; //is this account active? (Yes=true No=False)
end;
procedure AntiBan;
begin
case Random(251) of
0..3: Begin
RandomRClick;
wait(1000+random(1000));
end;
1..20: MouseBox(MSX1, MSY1, MIX1, MIY1, 3);
100..103: HoverSkill('Mining', False);
150..155: RandomMovement;
200..205: BoredHuman;
240..250: SleepAndMoveMouse(1000+random(5000));
end;
end;
Function FindIron: Boolean;
begin
if not loggedin then exit;
repeat
if not loggedin then exit;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(3);
FindColorsSpiralTolerance(MSCX, MSCY, Points, 2898782, MSX1, MSY1, MSX2, MSY2, 5);
ColorToleranceSpeed(CTS);
Pointers := TPAtoATPAex(Points, 11, 11);
SortATPASize(Pointers, True);
H := High(Pointers);
for I:=0 to H do
begin
R_FindRandoms;
MiddleTPAEx(Pointers[I], x, y);
MMouse(X, Y, 0, 0);
wait(50+(50));
if IsUpText('ocks') then
begin
Result := True;
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, True);
PA := I + 1;
P := H / 12 + 1;
Status('Clicked on point '+IntToStr(PA)+' | Found '+IntToStr(P)+' good points');
wait(500+random(250));
While CharacterMoving Do wait(50);
wait(800+random(200));
exit;
end;
end;
until(result);
end;
procedure MineOre;
begin
if not loggedin then exit;
if invfull then exit;
repeat
FindIron;
While (CharacterAnimating or CharacterMoving) do
Begin
wait(400);
R_FindRandoms;
Antiban;
If (InvFull) Then Break;
end;
Antiban;
Until(InvFull);
end;
Procedure DropOre;
begin
if not loggedin then exit;
If Weild Then
ore := ore + 28
else ore := ore + 27;
R_FindRandoms;
exp := ore * 35.0
xp := round(exp);
xda := 2;
If Weild Then
DropAll
else
If (InvFull) then
repeat
DropItem(xda);
inc(xda);
until(xda > 28);
xda := 2;
R_FindRandoms;
Antiban;
end;
Procedure ProgressReport;
begin
cleardebug;
Writeln('Welcome')
Writeln('Mined '+IntToStr(ore)+' ore');
Writeln('Gained '+IntToStr(xp)+' exp');
end;
begin
cleardebug;
SetupSRL;
declareplayers;
GraphicsSet := True;
if not loggedin then loginplayer;
makecompass('n');
SetAngle(True);
repeat
MineOre;
DropOre;
ProgressReport;
if not loggedin then terminatescript;
until(l = loads);
end.