Log in

View Full Version : Final Edits...



TheGodfather
02-11-2007, 07:27 AM
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.

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.

The error calls for a semicolon to be placed, but the lines it gives are ridiculously high. help would be appreciated highly.

whales
02-11-2007, 07:51 AM
If the line it gives is ridiculously high I'm guessing its in SRL, if your script doesn't go that high.... Please give as much info as you can the exact error if you don't mind

TheGodfather
02-11-2007, 08:18 AM
If the line it gives is ridiculously high I'm guessing its in SRL, if your script doesn't go that high.... Please give as much info as you can the exact error if you don't mind


The error i get is....

[Error] (17708:4): Semicolon (';') expected...
I get a SYNTAX error when I dont add the (false) to until(false).
I think its odd.
{note: ill keep it at until(false) until I see the mining procedure works}

whales
02-11-2007, 08:26 AM
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);
{End; put this here this is a procedure}

//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.


Im tired as hell but if your up I recommend going through just about every SRL function and procedure, related to your script, and memorizing them... Do that or don't try to make a script of this kind yet....

TheGodfather
02-11-2007, 08:48 AM
Well, you see here is that the shit thing is that I only use the MoveMouse from SRL MMouse..... The rest is pure ol Scar. Thats why Im soo stumped xD

whales
02-11-2007, 09:26 AM
Ok well I am about to go to bed but I am going to throw everything out there for you you decipher it as you please...

You need to use BMPs for your rock then possibly use autocoloring.... You need anti randoms and anti ban.... You need repeating loops and so much more but try to work with what I said... And don't forget your not making the first ever miner/powerminer. Reference to more advanced scripters if there doing it right then they have what you need, so look at their work.

TheGodfather
02-11-2007, 07:31 PM
I guess Ima have to restart making a power miner from scratch.