Hi i keep getting this error message ::
Line 172: [Error] (14573:8): Identifier expected in script C:\Documents and Settings\Spare\My Documents\fletch.scar
& line 172 says "ActivateClient;"
Any ideas y it is doing it?![]()
Hi i keep getting this error message ::
Line 172: [Error] (14573:8): Identifier expected in script C:\Documents and Settings\Spare\My Documents\fletch.scar
& line 172 says "ActivateClient;"
Any ideas y it is doing it?![]()
ActivateClient is a good command. So that's not the prob. We can't help you until you post your whole script. So post your whole script and then I'll fix the error.
///////////////////////////
{ ________ }
{ ____ ____ / _____/ }
{ / \_/ __ \/ \ ___ }
{| | \ ___/\ \_\ \ }
{|___| /\___ >\______ / }
{ \/ \/ \/ }
{ FLETCHER BETA }
///////////////////////////
{
Knife in first inventory slot.
Logs in first bank slot
Only does longbow so far,
will add shortbows when i get members again.
Setup Lines 24 - 26
Setup Players Lines 37+
}
program neGFletcher;
{.include SRL/SRL.scar}
////////////////////////////////////////////
const //
BankBooth = 7703191;//Bank Booth Colour ///
RunAwayDir = 'S';
LogsToDo = 5000;
var
LogsDone:Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'bucadepepo1';
Players[0].Pass := 'b01s0v3rlb86rl12';
Players[0].Nick := 'buc';
Players[0].Active := True;
end;
//////////////////////Runaway Procedure
Procedure RunAway;
begin
RunAwayDirection(RunAwayDir);
Wait(12000+random(2000));
RunBack;
end;
//////////////////////Randoms Procedure
Procedure Randoms;
begin
FindTalk;
wait(10)
FindNormalRandoms;
if(FindFight)then
RunAway;
end;
///////////Banking Procedure
//I got most of this from someones
//script ages ago then edited it.
//If this looks similar to yours
//let me now and Ill credit you
Procedure Bank;
var bx,by:Integer;
begin
Randoms;
repeat
FindObj(bx,by,'Bank',BankBooth,10);
Wait(100 + Random(200));
until (IsUpText('Use Bank'));
if(IsUpText('Use Bank'))then
begin
GetMousePos(bx, by);
Mouse(bx,by,10,10,false);
wait(100);
if(ClickOption('quickly', 1))then
begin
repeat
Wait(500);
until(BankScreen);
end
else
begin
Bank;
end;
FixBank;
Deposit(2,28,2);
Withdraw(1, 1, 0);
repeat
CloseBank;
Wait(500);
until(BankScreen = False);
end;
end;
//////////////////////Fleching Procedure
Procedure Fletch;
var Number:Integer;
begin
begin
Randoms;
UseItem(1);
Wait(100 + Random(800));
UseItem(2);
Randoms;
Wait(random(500));
end;
begin
MMouse(244,407,10,10);
if (IsUpText('Make')) then
begin
Mouse(244,407,10,10,false);
ClickOption('Make X', 3);
Wait(700+Random(500));
Number:=27+Random(11);
TypeSend(IntToStr(number));
Wait(100 + Random(250));
TypeSend(Chr(13));
end
else Fletch;
end;
repeat
wait(500);
Randoms;
if (FindNpcChatText('continue')) then //Fix to the level-up Bug
begin
begin
Randoms;
UseItem(1);
Wait(100 + Random(800));
UseItem(28);
Wait(random(500));
end;
begin
Mouse(244,407,10,10,false);
wait(300);
ClickOption('Make X', 3);
Wait(700+Random(500));
Number:=27+Random(11);
TypeSend(IntToStr(number));
Wait(100 + Random(250));
TypeSend(Chr(13));
end;
end;
Randoms;
until(GetColor(717,447)=65536);
if (GetColor(717,447)=65536) then
LogsDone:= LogsDone+27;
end;
procedure Report;
begin
ClearDebug;
SRLRandomsReport;
WriteLn('////////////////////////////////////////////')
WriteLn(' neGs Fletcher BETA ')
WriteLn(' ')
WriteLn(' Running Time: ' + (TimeRunning) + '')
WriteLn(' Logs Cut: ' + IntToStr (LogsDone) + '')
WriteLn(' Approx. XP Gained: ' + IntToStr (LogsDone*41) + '')
WriteLn('//////////////////////////////////////////// ')
end;
////////////////MainSetup
begin
SetupSRL;
Newline:=Newline;
ActivateClient;
DeclarePlayers;
begin
If (Not(LoggedIn)) then
begin
Status('Logging In');
Loginplayer;
HighestAngle;
end;
end;
repeat//////////////main loop
Bank;
Fletch;
Report;
until(LogsDone >= LogsToDo);
if (LogsDone >= LogsToDo)then
begin
Logout;
TerminateScript;
end;
end.
There it is lol![]()
This is the error:1st. That doesn't makes any difference because Newline alreaddy is newline. If you did something like this:SCAR Code:Newline:=Newline;then It makes a difference.SCAR Code:Newline:=SomethingElse;
2nd. You forgot to declare what Newline is. Is it a string/integer/boolean/extended?? So in your vars set it like this:
[scar]
Newline= String;//You can put here string/integer/boolean/extended.
Im a noob on this, so cud u tell me what var is and that and were egzactly to put
Newline= String;//You can put here string/integer/boolean/extended.
Just take it out completely. I don't think the script uses it.
It is most likely there because of a "hint" that scar gives which says "variable newline never used in script"
There are currently 1 users browsing this thread. (0 members and 1 guests)