hey ive finished my Power Mining script and have no more errors. only problem is it dosent repeat and often missies the rock's what do i need 2 change??
Code:program PowerMiner; {.include srl/srl.scar} {.include SRL\SRL\Skill\Mining.scar} const RockChangingInterval = 50;//how long til u change rock's ( in milli secs) RockColour = 4615831;//Colour of rock, //you can use your own or the one give above (copper) var load:integer; procedure Orefinding; begin load:=0 if (findcolor(x,y,RockColour,5,6,516,342))then holdmouse (x,y,true); wait(50); releasemouse(x,y,true); load :=load+1 wait(RockChangingInterval); repeat until load=27 end; procedure DropOre; begin MouseSpeed:=10 DropTo(3,28) end; procedure OpenInv; begin if (findcolor(x,y,1986438,5,6,516,342)) then holdmouse (x,y,true); wait(50); releasemouse(x,y,true); end; //***************************MAIN LOOP****************************// begin SetUpSRL; OpenInv Orefinding DropOre end.


Reply With Quote








