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
Code://******************************************************************* //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.


Reply With Quote