i get this error
Line 22: [Error] (14802:1): Identifier expected in script
script of course isnt done yet this is what i got so far
program YakkysFlaxSpinner;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/crafting.scar}
//V .1 writing needs testing
Var
////////////////////////////
////Standard SRL login//////
////////////////////////////
Procedure DeclarePlayers;
begin
SRLID := '';
SRLPassword := '';
HowManyPlayers := 1;//How many players you want
CurrentPlayer := 0;//Current player
NumberOfPlayers(HowManyPlayers);
Players[0].Name := 'YourUsername';//Username of your character
Players[0].Pass := 'YourPassword';//Password of your character
Players[0].Nick := 'Nickname';//A few letters from your name, no capitals!
Players[0].Skill:='crafting';// Enter the skill you want to use for genie lamps
Players[0].Pin := 1234;// Enter your bank pin, if you have one.
Players[0].Active := True;
CheckUserNicks;
end;
///////////////////////////////////
//Procedure LoginWhich by Pwnaz0r//
//Details: Starts up the script //
///////////////////////////////////
Procedure LoginWhich(Player: integer);
Begin
if LoggedIn then exit;
if Players[Player].Active = false then
begin
writeln('Changing player to active...');
Players[Player].Active:= true;
end;
CurrentPlayer:= Player;
LoginPlayer;
End;
procedure Loc(where: string);
begin
Players[CurrentPlayer].Loc:= where;
Players[CurrentPlayer].Rand:= where;
end;
procedure PlayerSetup;
begin
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
Players[CurrentPlayer].Integers[1] := 0;
LampSkill := (Players[CurrentPlayer].Skill);
end;
///////////////////////
//////Proggy///////////
///////////////////////
Procedure Report;
Begin
ClearReport;
AddToReport('Yakky''s Flax Spinner);
AddToReport('Ran for '+TimeRunning);
AddToReport('Bowstrings Made: '+IntToStr(Totaldone));
AddToReport('Fights found: '+IntToStr(Fights));
AddToReport('Talked to '+IntToStr(NPCTalks)+' NPC''s');
AddToReport('Gained '+IntToStr(DeXLevels)+' levels');
End;
Procedure Retrieve Colors;
Begin
if loggedout then exit;
if LoggedIn then
begin
writeln('getting colors');
findcolorspiral(x,y,3651023,589,222)
end
end;
Procedure Start;
SetAngle(High: Boolean)
Getstat(<crafting>,true)
LoadCraftingBitMaps;
end
end;
procedure Setup;
Begin
ClearReport;
ClearDebug;
SetupSrl;
ScriptID := '521';
LoadSymbolBitmapColor('spin');
Writeln('Yakkys flax spinner......HERE WE GO!!!');
DeclarePlayers;
PlayerSetup;
if not FindRS then
begin
writeln('Could not find Runescape');
TerminateScript;
end;
if not LoggedIn then LoginWhich(CurrentPlayer);
SetAngle(High: Boolean);
SetRun(True);
End;
if(LogOutWhenDone)then
begin
LogOut;
Writeln('All Flax is bowstring');
end;
End.


LEGEND....WAIT FOR IT..........DARY!!!
Reply With Quote




