This is Kermico's Power miner, but it does not have that it drops the ores, it only mines them. Can someone add it so it also drops them ( but does not drop the pickaxes ) please.
Code:///make sure you are by the rocks\\\\ //This is made by kemico2 so please dont steal it\\\ //thanks for looking at it\\\\ program VarrockEastPowerMiner; {.include SRL/SRL.scar} {.include SRL/SRL/Skill/Mining.scar} const RockColor=2437971; PickWielded=true; Loads=10000000; var Loadz : Integer; DidRandomHappen: Boolean; Procedure Thanks; Begin; Writeln('Thank you for using my powerminer'); Writeln('This is my first script so be nice'); end; Procedure CheckForGas; begin if findgas(x,y)then begin; runawaydirection('n') wait(10000+random(3000)) end; end; Procedure Signiture; begin; writeln(' __ .__ ') writeln('| | __ ____ _____ |__| ____ ____ ') writeln('| |/ // __ \ / \| |/ ___\/ _ \ ') writeln('| <\ ___/| Y Y \ \ \__( <_> ) ') Writeln('|__|_ \\___ >__|_| /__|\___ >____/ ') writeln(' \/ \/ \/ \/ ') end; procedure PrepCharacter; begin; HighestAngle; MakeCompass('N'); end; procedure Report; begin Writeln('[]-------------------------------------------[]'); Writeln('Worked For : ' + ScriptTime2(2)) Writeln('Mined/Dropped '+ IntToStr(Loadz) + ' Loads'); Writeln('[]--------------------------------------------[]'); end; procedure MajorMining; begin repeat FindNormalRandoms FindTalk; if(FindColorSpiralTolerance(x,y,RockColor,5,5,514 ,337,5)) then; begin Mmouse(x,y,2,2); CheckForGas; wait(100+random(250)); If(IsUpText('ine'))then begin Mouse(x,y,2,2,false); ChooseOption(x,y,'Mine') Wait(3000+random(2000)) If(DidRandomHappen = true) then begin RunAwayDirection('n') wait(5000+random(3000)) end End end Until(InvFull); end; Procedure drop; begin if(PickWielded=false)then begin dropto(2,28) Loadz:=Loadz + 1; If(PickWielded=True)then begin dropall; Loadz:=Loadz + 1; end end end; begin SetupSrl; thanks; Signiture; activateclient; prepcharacter; repeat; Majormining; Drop; report; until(Loadz>loads) logout end.


Reply With Quote
















