SRL Archive - First Scripts

Features:

AntiBan,
Mines Iron Ore,
Not much but yea..
On my next scripts I am going to put more effort & thought into making scripts that will actually benefit the community.

More of a script for if your on youtube etc, drop ores manually

//*******************************************************************
//Credits to YoHoJo
//Check his youtube for the guide I used
//www.youtube.com/YoHoJoSRL
//This isn't the best script in the world more as a 'First Script'
//*******************************************************************

//*******************************************************************
//\\ Info
//This Script was made in about 30 minutes don't expect much*********
//Works very well in Ardougne (Ne) Mining Spot***********************
//*******************************************************************

//*******************************************************************
//\\ Things to be added in future
//Dropping
//Clicking closest object to Character*******************************
//*******************************************************************

program CheckMiner;

//{$DEFINE SMART}
{$i srl/srl.Simba}
{$i sps/sps.simba}

Const
  Members =           True;
  Server =            54;
  NumbOfPlayers =      1;
  StartPlayer =        0;

procedure DeclarePlayers();
  begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Name        := '';              // Your RuneScape Account Name
    Pass        := '';              // Your RuneScape Account Password
    Active      := True;            // Use in the Script. True / False.
     end;
end;
Procedure StatsGuise(wat:String);
Begin
  Status(wat);
  Disguise(wat);
End;
Procedure Antiban;
Begin
  Case Random(150) Of    //// Lower 150 for higher chance of AntiBan happening
    0: HoverSkill('Mining', False);
    1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
    2: ExamineInv;
    3: RandomAngle(1);
    4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
    5: HoverSkill('random', False);
  End;
End;
Function MineDatOre:Boolean;
Var
  bX, bY, PlusOne, MineCounter: Integer;
Begin
  PlusOne:=InvCount+1;
  if FindObjCustom(bX, bY, ['Mine', 'Rocks'], [2635357, 2701151], 10) Then
Begin
  StatsGuise('STATUS] Currently: Mining');
  GetMousePos(bX, bY);
  Case Random(2) Of
  0: Mouse(bX, bY, 5, 5, True);
  1: Begin
        Mouse(bX, By, 5, 5, False);
        WaitOption('Mine', 500);
    end;
end;
 Repeat
  MarkTime(MineCounter);
  Antiban;
  Wait(100);
 if InvCount=Plusone Then
  Writeln('Just Mined an Iron Ore');
  Until (InvCount=Plusone) Or (TimeFromMark(MineCounter) > 9000)

end;
    end;






begin
SetupSrl;
DeclarePlayers;
repeat
MineDatOre
until(false);

end.                           

Please Replace the

tags with

when i run it, it checks bank and everything then logs me out with this.

Status: /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
Status: | SRL Randoms Report |
Status: | www.villavu.com |
Status: |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
Status: \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
{—————————————————————-}
{ MSI Phoenix Short Report }
{—————————————————————-}
{ Time Running: 2 Minutes and 51 Seconds }
{—————————————————————-}
{ }
{ Totals: }
{ - Players: 1 }
{ - Player Time: 00s }
{ }
{—————————————————————-}
{—————————————————————-}

{—————————————————————-}
{ MSI Phoenix Player Report }
{—————————————————————-}
{ Time Running: 2 Minutes and 51 Seconds }
{—————————————————————-}
{ }
{ Player 0: dontneedtoknowthis, lol }
{ Location: Powerskilling }
{ Time: 00s }
{ Active: False }
{ Reason: Failed to setup player }
{ }
{ Script: Powerminer }
{ Time: 00s }
{ Skill: Mining }
{ Exp: 0 }
{ Level: 38 }
{ Loads: 0 }
{ }
{—————————————————————-}
{—————————————————————-}

how can i fix this?