Claget Miner

[steve claget]

Updated it finnaly, it now does most SRL Randoms exept for the pick head falling off, going to put that in later, it should handle trades.

[rkroxpunk]

Nice first script good stuff. one question won't
repeat
x:= 265;
y:= 177;
if (Findcolorspiral(x,y,rockcol,0,0,700,700)) then
Mouse(x,y,2,2,true);
Wait(5000);
until(InvFull)
Loads:= Loads+1;

mean it will just click at the exact same co ords every time?

[Pentti]

Nice first script good stuff. one question won't
repeat
x:= 265;
y:= 177;
if (Findcolorspiral(x,y,rockcol,0,0,700,700)) then
Mouse(x,y,2,2,true);
Wait(5000);
until(InvFull)
Loads:= Loads+1;

mean it will just click at the exact same co ords every time?
It actually wont, If it finds color then value of x and y will change to coords where color is.
x:= 265;
y:= 177;
These are not needed in this...

[steve claget]

It actually wont, If it finds color then value of x and y will change to coords where color is.
x:= 265;
y:= 177;
These are not needed in this...

I thought that putting the x:= 265; y:= 177; above the FindColorSpiral would make it search for the color that is closest to those co-ordinates.

[rkroxpunk]

nah just get rid of them they're not needed....it will find the colour and click it if u just have everything the same except for that x:=blah and y:= blah

[steve claget]

I read the TUT on how to put Randoms into a script but for some reason they wont work. When I call upon the randoms Procedure in the Mining Procedure it doesnt compile, and putting them into the mail loop doesn't seem to work.

[lefamaster]

what random procedure are you using?
how are you calling it?
what error on compile?
*post your section of script*
**please**
;)

[steve claget]

what random procedure are you using?
how are you calling it?
what error on compile?
*post your section of script*
**please**
;)


{------------------------------}
procedure MineOre;
begin
repeat
Randoms; {<----- That is how i am calling upon it }
if (Findcolorspiral(x,y,rockcol,0,0,700,700)) then
Mouse(x,y,2,2,true);
Wait(5000);
until(InvFull)
Loads:= Loads+1;
end;


{------------------------------}
procedure Randoms;
begin
FindTalk;
Wait(1);
if (FindFight) then
begin
WriteLn('You are attacked, trying to escape.');
RunAwayDirection('N');
Wait(8000+random(3000));
WriteLn('Escape done, now, go back to mining.');
RunBack;
end;
Wait(1);
FindTalk;
Wait(1);
FindLamp('mining');
Wait(1);
FindDemon;
Wait(1);
FindMod;
Wait(1);
FindScapeRune;
Wait(1);
SolvePinball;
Wait(1);
FindQuiz;
Wait(1);
NoGameTab;
Wait(1);
FindTalk;
Wait(1)
HandleTrade;
Wait(1)
FindNormalRandoms;
end;
{------------------------------}

and this is the error I get when I compile
Failed when compiling
Line 88: [Error] (19442:1): Unknown identifier 'Randoms' in script

[pini3000]

Not a bad start, is this your first script

[steve claget]

Not a bad start, is this your first script

This isn't my first script, it is my first Powerminer.