Synikk
2011-12-19 11:24:21
How Long have You Played Runescape?
6 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
I used to script other bots with Java, Just started using pascal with Simba a couple of weeks ago
Are you a member of any other communities?
No
Tell us about yourself…
Please show us one (or multiple) of your scripts.
6 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
I used to script other bots with Java, Just started using pascal with Simba a couple of weeks ago
Are you a member of any other communities?
No
Tell us about yourself…
From: Synikk
Im 20 Years old, i love playing runescape with my friends. Like to script a lot and love sharing my work with people. I used to play wow and my favorite sport is tennis (:
Please show us one (or multiple) of your scripts.
program ArdongneIronPowerMiner;
{$DEFINE SMART}
{$i SRL\SRL.scar}
{$i SRL\SRL\Misc\Debug.SCAR}
{$i SRL\SRL\Misc\Stats.simba}
//This Script will mine iron ore at the Mining area East of Ardongne.
//Please check the thread for any information you need about the script
//including where to start it, what angle to start it at etc.
//Have fun running this script and please report any bugs/give me feedback
//about the script on my thread. Thanks (:
Const
Version= '1.00'; // Dont need to change
NumbOfPlayers= 1; // How many players you are botting (only 1 is supported)
StartPlayer= 0; //Player to start autoing with (0 means 1st player)
WORLD = 0; // Random World
MEMBERS = True; // Only members worlds
procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
Players[i].BoxRewards := ['oins', 'XP'];
with Players[0] do
begin
Name := ''; //Player username.
Pass := ''; //Player password.
Nick := ''; //Player nickname - 3-4 letters of Player username.
Active:= True;
end;
end;
Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
Procedure Antiban;
Begin
Case Random (190) of
0: Begin StatsGuise('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End;
1: Begin StatsGuise('Antiban') GameTab(Tab_Stats) HoverSkill('Mining', False) GameTab(28); End;
End;
End;
Procedure FailSafe(Reason:String);
Begin
Players[CurrentPlayer].Loc := Reason;
Logout;
Stats_Commit;
Writeln(Reason);
TerminateScript;
End;
Function MineIronOre:Boolean
;Var
X, Y, PlusOne, GoneAfk: Integer;
Begin
MarkTime(GoneAfk);
FindNormalRandoms;
PlusOne:=InvCount+1
If FindObjCustom(x, y, ['ine', 'ocks', 'e R'], [2898786, 3557497], 10) Then
Begin
StatsGuise('Found ore')
GetMousePos(x, y);
Mouse(x, y, 5, 5, True);
End;
Repeat
FindNormalRandoms;
Until InvCount=PlusOne
Wait(900)//If the World has above 1000 players you can leave this at 800
//If it has around 500 players it is better to leave it at 1000
//If the script is stopping after only 3 ores then increase this
//number. :)
Begin
If InvCount=PlusOne Then
Writeln('Successfully Mined')
End;
End;
Procedure DropOre;
var
x, y, OreDTM, I:Integer;
SlotBox:TBox;
OrePattern:TIntegerArray;
Begin
OreDTM := DTMFromString('mAAEAAHic42FgYFjHyMCwB4h3APEWIN7MCBFbDsTzgHguFC8D4rVA3ATEtUDcBsQ9QFwGxOVAXA3EDUDcAsTdUNwHxFbKUkBbmEjAxIP/QMxIIkYGAEupD+c=');
OrePattern:=[1,5,9,13,17,21,25,2,6,10,14,18,22,26,3,7,11,15,19,23,27,4,8,12,16,20,24,28]
For I:=0 to 27 Do
Begin
SlotBox:=InvBox(OrePattern[I]);
If FindDTM(OreDTM,x,y,SlotBox.X1,SlotBox.Y1,SlotBox.X2, SlotBox.Y2) Then
Begin
MouseItem(OrePattern[I],False);
ChooseOption('Dro');
End;
End;
End;
Begin
SMART_Server := WORLD;
SMART_Members := MEMBERS;
SetupSRL;
DeclarePlayers;
LoginPlayer;
SetAngle(True);
Repeat
MineIronOre;
If InvFull Then
DropOre;
Until(false);
End.