Well I've gotten somewhat far in an Alpha version of a script, but I get an error I have no Idea in how to fix.
The error calls for a semicolon to be placed, but the lines it gives are ridiculously high. help would be appreciated highly.PHP Code:program PowerMiner;
{.include SRL/SRL.scar}
//~Basic Functions of the Godfather Inc. Power Miner VERS. Alpha~
//IMPORTANT:= low detailed 32 bit colors
//Have mouse over rock desired to mine within 10 seconds of starting script
//Rimmington Rocks NOT reccomended~
//Report bugs/glitches to dub_edit@yahoo.com
//Known Glitches: No Anti Randoms (will come in beta)
{============Updates Expected============)
~Use some SRL includes
~Anti Randoms in Beta Version
~A progress report
}
{----------BeginOfSetup----------}
const
nextrock= 2800; //Miliseconds till begin mining next rock? (1000 = 1 second)
// Press CTRL+ALT+S to stop script
{----------end of setup----------}
var rockmined,xR,yR,x1,y1: integer;
procedure ClickHuman(x,y: Integer; Left: Boolean);
begin
HoldMouse(x,y,left);
Wait(20+random(16));
ReleaseMouse(x,y,left);
end;
Procedure GetRockColor(rockmined: integer);
begin
wait(10000)
rockmined:= GetColor(x1,y1);
//Mining Routine *********************** By TheGodfather
begin
repeat
FindColor(xR,yR,rockmined,30,20,485,315);
MMouse(xR,yR,4,4)
ClickHuman(xR,yR,true);
wait(nextrock)
until(false)
end;
begin
setupsrl;
MouseSpeed:= 8;
end;
end.





Reply With Quote

