axel2
09-17-2006, 07:39 PM
Hey im working on my script, my first powerminer, and this is all i got so far. I used i think it was WhiteShadows tut, but it wont compile...and im not worried about the dropping procedure yet. Its one of my first scripts so please help me out and give pointers. Thanks
The script so far:
program Powerminer;
{.Include SRl/SRL.SCAR}
////////////////////////////////////////////////////////////////////////////////
/////////////////////////////Axels First Script/////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Const
RockColor=7052265;
procedure PowerMine;
begin
if(Findcolor(x,y,RockColor,5,5,515,340))then;
begin
MoveMouse(x,y,1,1,true);
wait(5000)
end;
end;
begin
SetUpSRL;
repeat;
PowerMine;
until(false)
end.
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Ok so i go that working, but now i need help writing a procedure to drop the ores.. I have no clue how to do this. If you could dont jsut give me a pocedure, i would like to write it my own. Im trying to learn how to script not leech.
Thanks.
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Edit::
Ok now i have my first working script, but it needs some improvements. It just clicks on one rock to mine...how can i make it click one. then a different one, because it takes a while to wait for it to respawn, itwould go faster mining several rocks.
THanks again
The script so far:
program Powerminer;
{.Include SRl/SRL.SCAR}
////////////////////////////////////////////////////////////////////////////////
/////////////////////////////Axels First Script/////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Const
RockColor=7052265;
procedure PowerMine;
begin
if(Findcolor(x,y,RockColor,5,5,515,340))then;
begin
MoveMouse(x,y,1,1,true);
wait(5000)
end;
end;
begin
SetUpSRL;
repeat;
PowerMine;
until(false)
end.
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Ok so i go that working, but now i need help writing a procedure to drop the ores.. I have no clue how to do this. If you could dont jsut give me a pocedure, i would like to write it my own. Im trying to learn how to script not leech.
Thanks.
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Edit::
Ok now i have my first working script, but it needs some improvements. It just clicks on one rock to mine...how can i make it click one. then a different one, because it takes a while to wait for it to respawn, itwould go faster mining several rocks.
THanks again