Results 1 to 10 of 10

Thread: Line 33: [Error] (12300:1): Unknown identifier 'NickNameBMP' in script

  1. #1
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Line 33: [Error] (12300:1): Unknown identifier 'NickNameBMP' in script

    why does i get this every time run my script?
    SCAR Code:
    program OakBanker;
    {.include srl/srl.scar}
    var
    LogsChopped,LoadsDone,HowManyLoads : Integer;
    const
    LoadsToDoPerPlayer = 10;
    Procedure DeclarePlayers;
    begin
    HowManyPlayers := 4;
    numberOfPlayers(howManyPlayers);
    CurrentPlayer := 0;

      Players[0].Name := '';  // Username
      Players[0].Pass := ''; // Password
      Players[0].Nick := '';   // 3-4 letters of your Username
      Players[0].Active := True;   // are u going to use this player ?

      Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := '';
      Players[1].Active := False;

      Players[2].Name := '';
      Players[2].Pass := '';
      Players[2].Nick := '';
      Players[2].Active := False;

      Players[3].Name := '';
      Players[3].Pass := '';
      Players[3].Nick := '';
      Players[3].Active := False;

      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

      end;
     
    procedure DTMs;
    var
    OakLog,AnyAxe : Integer;
    begin
    OakLog := DTMFromString('78DA63946060601066400105E126609A11CA6' +
           '79404125C0C688011558D0A901024A0860F48701350C309242409' +
           'A8110212F204D4C8000919026AD408DB0500E1540279');

    AnyAxe := DTMFromString('78DA6314626060006124D0922C00A619A17C4' +
           '61120C1CE80061831D50813500332569E801A5E202143841A4502' +
           '6A4409BB190078E80214');

    end;

    procedure AntiBannage;
    begin
    if (not(LoggedIn)) then
    Exit;
    case random(40) of

    0: SleepAndMoveMouse(1232+random(857));

    1:begin
          GetSkillInfo('Fishing', false);
          wait(2000+random(1000));
          GameTab(4);
         end;

       2:begin
          GetSkillInfo('Cooking', false);
          wait(2000+random(1000));
          GameTab(4);
         end;

       3:begin
           DoEmote(1+random(17));
           wait(2546+random(165))
           GameTab(1 +random(5))
           Gametab(4)
         end;

       4: MMouse(random(250), random(250), 10, 10);

       5: BoredHuman;

       6: PickUpMouse;

       7:begin
            GameTab(1 + Random(12));
            wait(1000+random(1000));
            GameTab(4);
            end;
           
    end;
    end;

    Procedure Randoms;
    begin
    if(not(LoggedIn))then
    Exit;
    FindNormalRandoms;
    if (FindFight) then
    begin
       Writeln(' Found Fight ')
       SetRun(true);
       RunTo('N',True);
    end;
    end;

    Procedure SetUpCurrentPlayer;
    var
    x,y : Integer;
    begin
    if (not(LoogedIn)) then
    Exit;
    MakeCompass('N');
    GameTab(4)
    if (FindDTM(AnyAxe,x,y,MIX1,MIY1,MIX2,MIY2))then
    begin
    Mouse(x,y,2,2,false);
    ChooseOption('xamine')
    if (IsChatBlackTextAnyLine('axe') and (not(IsChatBlackTextAnyLine('this broken')) then
    begin
    Writeln('Found axe')
    if (IsChatBlackTextAnyLine('this broken')) then
    begin
    Writeln('Broken axe found...')
    Writeln('Please start the script with an axe not a broken axe')
    Logout;
    NextPlayer(false)
    Exit;

    end;
    end;
    end;
    end;

    procedure ToTheOak;
    begin
    if (not(LoggedIn)) then
    Exit;
    RadialWalk(6773086,0,90,72,99,99)
    AntiBannage;
    Randoms;
    RadialWalk(2052903,0,90,72,99,99)
    AntiBannage;
    Randoms;
    end;

    Procedure Chopping;
    var
    a,b,c,d,e,f,g,h : Integer;
    begin
    if (not(LoggedIn)) then
    Exit;
    SetAngle(true);
    repeat
    if (FindObjCustom(a,b, ['wn Oa','Oak','hop','own'], [2181180,2184264,2189148,3112046], 30)) then
    begin
    AnitBannage;
    Randoms;
    MMouse(a,b,2,2)
    if (IsUpText('ak'))then
    begin
    GetMousePos(a,b)
    Writeln('Found Oak')
    Mouse(a,b,3,3,false)
    if (FindColor(c,d,16776960,MIX1,MIY1,MIX2,MIY2)) and (not(FindColor(x,y,65535,5, 5,511, 338)) then
    begin
    Mouse(c,d,2,2,true)
    Randoms;
    repeat
    wait(1000+random(236))
    Randoms;
    until (FindBlackChatMessage('oak logs'))
    until(InvCount = 28)
    LogsChopped :=LogsChopped + 27
    end;
    end;
    end;
    end;
    procedure ToTheBankAndBank;
    begin
    if (not(LoggedIn)) then
    Exit;
    if (InvCount = 28) then
    begin
    Writeln('Inventory full. letz go to the bank')
    MakeCompass('N')
    RadialWalk(7236447,90,270,72,99,99)
    Writeln('We are in RadialWalk #1')
    Randoms;
    RadialWalk(9741478,250,360,72,99,99)
    Writeln('We are in RadialWalk # 2')
    Randoms;
    SymbolAccuracy := 0.8;
    if (FindSymbol(e,f,'bank')) then
    begin
    AntiBannage;
    Randoms;
    Mouse(e,f,2,2,true)
    MakaCompass('S')
    SetAngle(false)
    OpenBankQuiet('veb')
    Deposit(2,28,2);
    CloseBank;
    AntiBannage;
    Randoms;
    LoadsDone := LoadsDone + 1
    end;
    end;
    end;
    Procedure Sig;
    begin
    Writeln('-----    _____   _____   _____   ')
    Writeln('|       |     | |          |   ')
    Writeln('|       |     | |_____     |')
    Writeln('|--     |-----|       |    |')
    Writeln('|       |     | ______|    |')
    Writeln('|       |     |            |')
    Writeln('-----                      ')
    wait(1000)
    Writeln('OAK BANKER')
    Writeln('BY: CAZAX')
    Writeln('DONT LEECH')
    Writeln('( IM NOT GOOD MAKING SIGS...')

    procedure Proggy;
    begin
    Writeln('|----------------|   ')
    Writeln('|Worked for:'+ TimeRunning
    Writeln('|Chopped' + IntToStr(LogsChopped)
    Writeln('|Banked:' IntToStr(LoadsDone)
    Writeln('|                |')
    Writeln('|                |')
    Writeln('|----------------|   ')

    begin
    ActivateClient;
    SetupSRL;
    if (not(LoggedIn))then
    LoginPlayer;
    DeclarePlayers;
    DTMs;
    Sig;
    repeat
    if (not(LoggedIn))then
    NextPlayer(false);
    SetUpCurrentPlayer;
    ToTheOak;
    Chopping;
    ToTHeBankAndBank;
    Proggy;
    SRLRandomsReport;
    until ( HowManyLoads >= LoadsToDo)
    end.
    i know the script needs standars...


  2. #2
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Not 100% sure (as I spend most of my time helping/making functions), but check your name for NickBMP as it might be wrong. Also, haven't seen it around much and I think it might be included as part of an SRL include (but as I said, not 100% sure).
    Otherwise, look at a couple of other peoples scripts to see what they use.

  3. #3
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    Remove that line you don't need it.
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  4. #4
    Join Date
    Feb 2007
    Location
    Estonia.
    Posts
    1,938
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Have you set up your username and password?
    Eerik.

  5. #5
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by heavenzeyez1 View Post
    Have you set up your username and password?
    Eerik.
    yes.


  6. #6
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thx Negaal.

    now the problem is: Line 113: [Error] (12380:13): Unknown identifier 'AnyAxe' in script.
    here is the line:

    SCAR Code:
    if (FindDTM(AnyAxe,x,y,MIX1,MIY1,MIX2,MIY2))then

    EDIT: yahoo! im in 100 posts


  7. #7
    Join Date
    Feb 2007
    Location
    Estonia.
    Posts
    1,938
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by cazax View Post
    thx Negaal.

    now the problem is: Line 113: [Error] (12380:13): Unknown identifier 'AnyAxe' in script.
    here is the line:

    SCAR Code:
    if (FindDTM(AnyAxe,x,y,MIX1,MIY1,MIX2,MIY2))then

    EDIT: yahoo! im in 100 posts
    You didn't global the DTM.
    The script will use the DTM only in 1 procedure if you don't global it at the beggining.
    Eerik. So in the beginning of the script..where are var's, add the DTM there
    EDIT: Gratz on 100th post.

  8. #8
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by heavenzeyez1 View Post
    You didn't global the DTM.
    The script will use the DTM only in 1 procedure if you don't global it at the beggining.
    Eerik. So in the beginning of the script..where are var's, add the DTM there
    EDIT: Gratz on 100th post.
    Jah tal on DTM deklareerimata, aga see ei tähenda et ta peab selle globaliks tegema, kui sa paned dtm'i koodi samma protseduuri siis ei pea global olema

    Iseasi on see et ta saab runtime errori kuna ta ei taipa et tuleb DTM muuta millekski...ja kui see on tühi siis error
    ______________________________________________


    Don't forgot to make anyaxe to something...


    Here, this DTM fits with all axes expect dragon
    SCAR Code:
    AnyAxe := DTMFromString('78DA63F4626060886440017E362A0CFF81342' +
           '310FF07024657202394010D30229140DA01D31C0C35D640228308' +
           '35F904D438028964026AFC80443401353E40228C801A6F20118F5' +
           'F0D0079880B80');
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  9. #9
    Join Date
    Feb 2007
    Location
    Estonia.
    Posts
    1,938
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    [QUOTE=Negaal;333801]Jah tal on DTM deklareerimata, aga see ei tähenda et ta peab selle globaliks tegema, kui sa paned dtm'i koodi samma protseduuri siis ei pea global olema

    aga samas kui ta kasutab erinevates protseduurides...siis muutub tüütuks ju koguaeg lisada AxeDTM:Intefer ... (minu arvamus)
    Eerik.

  10. #10
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Negaal View Post
    Jah tal on DTM deklareerimata, aga see ei tähenda et ta peab selle globaliks tegema, kui sa paned dtm'i koodi samma protseduuri siis ei pea global olema

    Iseasi on see et ta saab runtime errori kuna ta ei taipa et tuleb DTM muuta millekski...ja kui see on tühi siis error
    ______________________________________________
    whats that?


    Don't forgot to make anyaxe to something...


    Here, this DTM fits with all axes expect dragon
    SCAR Code:
    AnyAxe := DTMFromString('78DA63F4626060886440017E362A0CFF81342' +
           '310FF07024657202394010D30229140DA01D31C0C35D640228308' +
           '35F904D438028964026AFC80443401353E40228C801A6F20118F5' +
           'F0D0079880B80');

    ok


Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Replies: 4
    Last Post: 01-19-2008, 09:16 AM
  2. Replies: 7
    Last Post: 10-07-2007, 10:41 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •