My simple power miner script... y isnt it wrking properly?
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.