SRL Archive - First Scripts

My first Script made in like 1 hr..

Features:

AntiBan,
Mines Iron Ore,
ya..

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.