When I try to run quite a lot of scripts i get this error
0o
Line x: [Error] (17056:1): Unknown identifier 'Result' in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Bank.scar
When I try to run quite a lot of scripts i get this error
0o
Line x: [Error] (17056:1): Unknown identifier 'Result' in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Bank.scar
i think that u only need result if its a function
SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
Programming Projects: NotePad | Tetris | Chess
Well would you like to see the script I'm currently getting the error on?
SCAR Code:{---------------------------------------------------------}
{ ________ }
{ ____ ____ / _____/ }
{ / \ / __ \/ \ ___ }
{ | | \| ___/\ \_\ \ }
{ |___| / \___ >\______ / _ }
{ \/ \/ \/ |_| }
{---------------------------------------------------------}
{---------------------------------------------------------}
{ LONG BOW FLETCHER }
{---------------------------------------------------------}
{
Knife in first inventory slot.
Logs in first bank slot
}
program neGFletcher;
{.include SRL/SRL.scar}
var
LogsDone: Integer;
StartXP, EndXP, TotalXP: Integer;
{---------------------------------------------------------}
{ SETUP }
{---------------------------------------------------------}
const
BankBooth = 7703191; //Bank Booth Colour
RunAwayDir = 'S'; //Direction to run away
[COLOR="Lime"] LogsToDo = 719; //How many logs to do?[/COLOR]
{---------------------------------------------------------}
{ Declare Player }
{---------------------------------------------------------}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
end;
{---------------------------------------------------------}
{ Code }
{---------------------------------------------------------}
function BankScreenFix: Boolean; //Thanks Fawaki
begin
Result := IsTextAtEx(184, 34, 'The Bank of', 30, upchars, True, False, 0, 0,
-1);
end;
procedure RunAway;
begin
RunAwayDirection(RunAwayDir);
Wait(12000 + random(2000));
RunBack;
end;
procedure Randoms;
begin
FindTalk;
wait(10)
FindNormalRandoms;
if (FindFight) then
RunAway;
end;
procedure Bank;
var
bx, by: Integer;
c: 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
FTWait(2);
c := c + 1
until (BankScreenFix) or (c >= 50);
end
else
begin
Bank;
end;
FixBank;
Deposit(2, 28, 2);
Withdraw(1, 1, 0);
repeat
CloseBank;
FTWait(2);
until (BankScreenFix = False);
end;
end;
procedure Report;
begin
SRLRandomsReport;
WriteLn('>--------------------<>--------------------<')
WriteLn('> neGs Bow Fletcher - Progress Report ')
WriteLn('> ')
WriteLn('> Running Time: ' + (TimeRunning) + '')
WriteLn('> Logs Cut: ' + IntToStr(LogsDone) + '')
WriteLn('> XP Gained: ' + IntToStr(TotalXP) + '')
WriteLn('>--------------------<>--------------------<')
end;
procedure Fletch;
var Number, t: Integer;
begin
begin
Randoms;
UseItem(1);
Wait(100 + Random(800));
UseItem(2);
Randoms;
FTWait(2);
end;
begin
MMouse(244, 407, 10, 10);
if (IsUpText('ake')) then
begin
Mouse(244, 407, 10, 10, false);
ClickOption('ake X', 3);
FTWait(5);
Number := 27 + Random(11);
TypeSend(IntToStr(number));
Wait(100 + Random(250));
TypeSend(Chr(13));
end else
Fletch;
end;
repeat
FTWait(2);
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);
FTWait(1);
ClickOption('Make X', 3);
Wait(700 + Random(500));
Number := 27 + Random(11);
TypeSend(IntToStr(number));
FTWait(2);
TypeSend(Chr(13));
end;
end;
Randoms;
until (GetColor(717, 447) = 65536);
if (GetColor(717, 447) = 65536) then
begin
LogsDone := LogsDone + 27;
t := t + 1
end
if (t > 3 + Random(2)) then
begin
EndXP := GetXp('Magic');
wait(10);
TotalXP := (EndXP - StartXP);
wait(10)
Report;
t := 0;
end;
end;
procedure PlayerSetup;
begin
StartXP := GetXp('Fletching');
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
{---------------------------------------------------------}
{ Main Loop }
{---------------------------------------------------------}
begin
SetupSRL;
Newline := Newline;
ActivateClient;
DeclarePlayers;
begin
if (not (LoggedIn)) then
begin
Status('Logging In');
Loginplayer;
HighestAngle;
end;
end;
PlayerSetup;
repeat
Bank;
Fletch;
until (LogsDone >= LogsToDo);
if (LogsDone >= LogsToDo) then
begin
Logout;
TerminateScript;
end;
end.
can u put in green the line of error?
SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
Programming Projects: NotePad | Tetris | Chess
Line 28 how many logs to do.
u dont have result on that line
SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
Programming Projects: NotePad | Tetris | Chess
i know >.- I have no clue why I'm getting the error
Still Need Help!

Did you download latest SRL? Its an SRL problem, not the script.
Just redownload srl.
Its not a script problem, its an srl problem because of wrong install.
There are currently 1 users browsing this thread. (0 members and 1 guests)