is this script good so far?

program New; {.include SRL/SRL.scar}
begin
HowManyPlayers :=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=1;

Players[0].Name :='akwardsaw5';
Players[0].Pass :='********';
Players[0].Nick :='ward';
Players[0].Loc :='draynor';
Players[0].Skill:='Willow';
Players[0].Active:=True;

TUser = record
Name: String;
Pass: String;
Nick: String;
Active: Boolean;
Loc: String;
Skill: String;
Level [1..22]: Array of Integer;
ore; string;
fight: Boolean;
Worked: Integer;
Banked: Integer;
Killer: Integer;
end;

repeat

if Players[CurrentPlayer].loc='draynor' then
begin
WalkToWillow;
end;

if Players[CurrentPlayer].Loc='Draynor' then
begin
repeat
Chop;
if (not(Loggedin)) then break;
until(InventoryFull)

WalkToFalador;
Bank;
ProgressReport;
end;

if ((LoggedIn) and (Players[CurrentPlayer].Banked mod Loads = 0)) then
begin
SetChat('off', 1);
repeat
Wait(1000);
FindRandoms;
until(not(LoggedIn));
NextPlayer(false);
end;

if (not(Loggedin)) then NextPlayer(true);
until(false);

procedure RotateEvery(mins: 5);
procedure RandomRClick;
procedure LeaveScreenEvery(mins: 3);
procedure HoverEvery(mins: Integer;10 skill: String); woodcutting
end.

begin
var TestColor, a, b, GenericColor: Integer;
function FindWaterColor: Integer;
function FindTreeColor: Integer;
function AutoColorThis(Bitmap, MaxTol, X1, Y1, X2, Y2: Integer): Integer;
procedure PerfectNorth;






when i clicked run ( i knew it wont work any way) but it said there is an error on line 3. any one wanna tell me whats wronge. also tell me what to edit with it so far( i do full understand that i still have a way lot more work to do on it.

 

You have 1 player... not 0... HowManyPlayers := 1; CurrentPlayer := 0;

GET IT RIGHT lol

 

=] i did try that but it still says error on line 3

and this is also my first script and such. so lay back

the error is unknown identifier for "HowManyPlayers"

 

Const
HowManyPlayers:= 1

 

Whats it supposed to do?

 

woodcut willows. and i changed it to the thing but it "still" says the same thing.....

 

Change the top to:

Code:

program New;  

{.include SRL/SRL.scar}

procedure DeclarePlayers;

HowManyPlayers  :=1;
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer:=0;

and add DeclarePlayers; somwhere in your main loop around, well basicly the top of the loop and have at least 3 players to bot, otherwise you get banned eazy.

 

ok... i guess i h ave to go and train my newb accts eh? =p but ill try what you said and keep working on it when i have 'enough' acounts

 

Dont comment if u dont know what ur talking about, fool.

Now all u need is procedures and functions there and BTW it looks ok.

 

If this is your script and you cant set up players?

or did I make a mistake,

 

hmm... i cant under stand

 

Doesn't work for me.

 

its not even finished =] i have to figure out how to make it click on colours...

 

I can help u with it Pm me ur msn, i wont post mine here because i get too many too stupid people talk to me, and theres idiots freezing msn addresses.