SRL Archive - OSR Help

I basically have all of my script written for mining iron ore and banking it at Yanille, I just need a little help tying up some loose ends. Also, any other help and or advice is much appreciated.

I need help at the bottom of my script, and at recognizing when my inventory is full I do believe.

I am very new at this, this will be my first full script. So it is kind of sketchy.


Uses YoHoJo's Tutorials to for most of the script.

Script I have written so far:



[PHP]program HardRockinYanilleMiner;
//{$DEFINE SMART}
{$i SRL\SRL.scar}
{$i SRL\SRL\Misc\Stats.simba}

Const
SRLStats_Username = ''; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
NumbOfPlayers= 1; //How many players are you using
StartPlayer= 0; //Player to start auoting with! (0 means first char)
BreakEvery= 120; //How many players are you using
BreakFor= 5; //Player to start auoting with! (0 means first char)
Version= '1.0'; //NO TOUCHY!

procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
Players.BoxRewards := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

with Players[0] do
begin
Name := ''; //Player username.
Pass := ''; //Player password.
Active := True;
end;
end;
procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;

Function CheckAndClick(X,Y:Integer):Boolean;
Begin
MMouse(x, y, 5, 5);
{Wait(100 + Random(50));
If CountUpColor('B', 41, 5, 86, 24, 70, 140) Then}
If WaitUpTextMulti(['Mine','ine'], 150) Then
Begin
Result:=True;
GetMousePos(x, y);
Mouse(x, y, 0, 0,True);
Wait(100+Random(50));
FFlag(0);
End;
End;

procedure AntiBan;
begin
case random(2000) of
0..50: HoverSkill('mining',false);
51..80: PickupMouse;
81..100: RandomMovement;
101..220: BoredHuman;
221..240: ExamineInv;
241..260: RandomRClick;
end;
end;


Function MineOre:Boolean;
Var
x,y, PlusOne, MineCounter: Integer;
Begin
PlusOne:= InvCount +1;
If FindObjCustom(x, y, ['Mine','Rocks','e R'], [2832738, 2502212, 2701150,2371667], 5) Then
Begin
WriteLn('Hurray we found ore');
GetMousePos(x, y);
Case Random(2) of
0: Mouse(x, y, 5, 5, True);
1: Begin
Mouse(x, y, 5, 5, False)
WaitOption('Mine', 500);
end;
end;
Repeat
MarkTime(MineCounter);
AntiBan;
wait(100);
If InvCount= PlusOne Then
WriteLn('Fuck Ya, We Got One!');
Until (InvCount= PlusOne) OR (TimeFromMark(MineCounter) > 5000);
end;
end;

procedure RadialWalking(RadialWalkin: Integer);
begin
case RadialWalkin of
1: RadialWalk(2321739, 90, 270, 60, 5, 5); //the 15855597 would be where your color would go. to pick a color, go to SCAR, and press Ctrl + Alt + P and click on the spot that your color is. It will wright the color in the debug box.
2: RadialWalk(2587477, 90, 270, 60, 5, 5); //0, 90 is the section on the mini map it searches for, in this case, the whole north/west corner
3: RadialWalk(6448484, 90, 270, 60, 5, 5); //60 means it will search all the way out to the edge of the mini map from the center
4: RadialWalk(6514276, 90, 270, 60, 5, 5); //the 5, 5, means that if the flag doesn't appear, it will search 5 pixels away from that area
end;
end;


procedure WalkToBank;
var
i: Integer;

begin
if not loggedin then exit; //this should be at the beginning of each of your procedures or functions
Setrun(true); //this turns run on
for i := 1 to 5 do //if you don't know what this is, look up my tut on loops ;)
begin
RadialWalking(i); //this means that the first loop through it will use RadialWalking(1), then the second time through, RadialWalking(2), etc. Remember, this is the procedure we made before?
end;
end;

Procedure Bank;
Begin
MakeCompass('s');
OpenBankNPC;
Wait(2500+randomrange(200,400));
DepositAll;
wait(1000+randomrange(200,400));
CloseBank;
end;






begin
SetupSRL;
DeclarePlayers;
SetAngle(true);
repeat;
MineOre;
Until (false);
If InvFull Then
Begin
WalkToBank;
If WalkToBank Then
Bank;
end;

end.
[/PHP]