when i use this code i get this message
Successfully compiled (1177 ms)
File access error
SRL Compiled in 10 msec
Successfully executed
and every where i've read, no one knew what it did but said it didn't matter. But i have this code that looks like it should work but won't can someone help
I've done everything i could think of to make it work. Tried it all multiple mines, with high and low resolution, unsigned applet, it can never find the coal, it just clicks at my character and does nothing out, the only thing i can think of is the file access error which i don't know what does. And the Coal_Color1 is declared as a constant with a value of 2703167Code:Procedure MinetheCoal; var x,y,Tries:integer; begin Tries:=0; Mouse(262,185 ,1 ,1 ,true); repeat if not FindColortolerance(x, y, Coal_Color1, MSX1, MSY1, MSX2, MSY2, 10) then begin wait(100+random(400)); Tries:= Tries + 1; end else break; until (Tries = 20); if Tries = 20 then begin Writeln('cant find ore') terminatescript; end; repeat if FindColorTolerance(x, y, Coal_Color1, MSX1, MSY1, MSX2, MSY2, 7) then begin wait(500+random(1000)); Mouse(x, y, 4, 4,true); wait(8000+random(7000)); end; until (InvFull); end;


Reply With Quote





