Results 1 to 10 of 10

Thread: Line 95: [Error] (17756:11): comma (',') expected in script

  1. #1
    Join Date
    Mar 2007
    Location
    Cincinnati Ohio (513)!
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Line 95: [Error] (17756:11): comma (',') expected in script

    help! im still trying to write the demon script (added antirandoms and better procedures)
    SCAR Code:
    program New;
    ////////////SPECIAL THANKS TO JAD FOR PROCEDURES AND SUCH! <3
    ///////////START LOGGED IN FACING NORTH BY THE DEMON WITH //////////SPELL SET
    {.include SRL\SRL.Scar}
    const
    dc=1714792;
    dn='esser';
    var DidRandomHappen: Boolean;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; //Number of PLAYERS. active or not.
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; //Player to start on.



      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := 'ntiy';
      Players[0].Active := True;


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


    function FindFastRandoms: Boolean; //By WT-Fakawi.
    var
      i: Integer;
    begin
      for i := 1 to 8 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          7: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          8: RC;
        end;
        wait(1);
      end;
      if (Result = true) then
        DidRandomHappen := true;
    end;

    ///////////////////////////////////////////////////////////////////////////

    procedure FindRandoms;
    begin
      FindFastRandoms;
      FindNormalRandoms;
      if (FindNormalRandoms) then
        DidRandomHappen := true;
    end;

    procedure Death;
    begin
      if (FindColor(x,y,dc,5,5,5,5))then
      begin
        MakeCompass('N')
        wait(50+random(80));
        HighestAngle;
        wait(50+random(50));
        MMouse(x,y,2,2);
        Wait(100+random(50));
        ClickMouse(x,y,false);
        wait(100+random(75));
        ChooseOption(x,y, 'Attack');
        wait(125+random(75);
        GameTab(5);
        wait(100+random(100));
        FindRandoms;
        wait(100+random(125));
        GameTab(7);
        SleepAndMoveMouse(967 + random(1000));
      end;
    end;

    /////////////////////////////////////////////////////////

    procedure SetupScript;
    begin
      SetupSRL;
      DeclarePlayers;
      ActivateClient;
    end;

    ///////////////////////////////////////////////////////////////////////////

    begin
      SetupScript;
    end;
      Death;
      until (False);
    end.

  2. #2
    Join Date
    Apr 2007
    Posts
    581
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    SCAR Code:
    program New;
    ////////////SPECIAL THANKS TO JAD FOR PROCEDURES AND SUCH! <3
    ///////////START LOGGED IN FACING NORTH BY THE DEMON WITH //////////SPELL SET
    {.include SRL\SRL.Scar}
    const
    dc=1714792;
    dn='esser';
    var DidRandomHappen: Boolean;
     
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; //Number of PLAYERS. active or not.
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; //Player to start on.
     
     
     
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := 'ntiy';
      Players[0].Active := True;
     
     
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;
     
     
    function FindFastRandoms: Boolean; //By WT-Fakawi.
    var
      i: Integer;
    begin
      for i := 1 to 8 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          7: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          8: RC;
        end;
        wait(1);
      end;
      if (Result = true) then
        DidRandomHappen := true;
    end;
     
    ///////////////////////////////////////////////////////////////////////////
     
    procedure FindRandoms;
    begin
      FindFastRandoms;
      FindNormalRandoms;
      if (FindNormalRandoms) then
        DidRandomHappen := true;
    end;
     
    procedure Death;
    begin
      if (FindColor(x,y,dc,5,5,5,5))then
      begin
        MakeCompass('N')
        wait(50+random(80));
        HighestAngle;
        wait(50+random(50));
        MMouse(x,y,2,2);
        Wait(100+random(50));
        ClickMouse(x,y,false);
        wait(100+random(75));
        ChooseOption(x,y, 'Attack');
        wait(125+random(75);
        GameTab(5);
        wait(100+random(100));
        FindRandoms;
        wait(100+random(125));
        GameTab(7);
        SleepAndMoveMouse(967 + random(1000));
      end;
    end;
     
    /////////////////////////////////////////////////////////
     
    procedure SetupScript;
    begin
      SetupSRL;
      DeclarePlayers;
      ActivateClient;
    end;
     
    ///////////////////////////////////////////////////////////////////////////
     
    begin
      SetupScript;
      repeat
        Death;
      until (False);
    end.

    You forgot the repeat, and you didnt need that 'end;' after 'Setupscript' I didnt see any other errors but I dont have SCAR loaded so tell me if there are anymore ^_^

  3. #3
    Join Date
    Mar 2007
    Location
    Cincinnati Ohio (513)!
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Line 94: [Error] (17755:20): comma (',') expected in script
    when i added that i added u to msn and aim so..

  4. #4
    Join Date
    Jun 2006
    Location
    New Zealand
    Posts
    285
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You missed a bracket in line 96 -
    SCAR Code:
    wait(125+random(75));
    Huehuehuehuehue

  5. #5
    Join Date
    Apr 2007
    Posts
    581
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    And you might want to use the procedure Mouse, its more safe.
    It moves the mouse AND clicks for you.

    SCAR Code:
    procedure Mouse(mousex, mousey, ranx, rany: Integer; left: Boolean);

    mousex = The x position you want to move the mouse.
    mousey = The y position you want to move the mouse.
    ranx = Just a random x position you want to add, put 0 if none.
    rany = Just a random y position you want to add, put 0 if none.
    Left = Left Click = True; Right Click = False (You should know that )

  6. #6
    Join Date
    Mar 2007
    Location
    Cincinnati Ohio (513)!
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    shawnjohn can u get on aim im having problems it just freezes my rs window when i start the script

  7. #7
    Join Date
    Mar 2007
    Location
    Cincinnati Ohio (513)!
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program New;
    ////////////THANKS JAD
    /////////START LOGGED IN WITH SPELL SET FIGHTMODE THING
    /////////PICK DEMON COLOR SET IN CONST DC vvvvvvvvvvvvvvv
    {.include SRL\SRL.Scar}
    const
    dc=1714792;
    dn='esser';
    var DidRandomHappen: Boolean;

    procedure DeclarePlayers;
    begin
    ActivateClient;
      HowManyPlayers := 1; //Number of PLAYERS. active or not.
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; //Player to start on.



      Players[0].Name := 'antiyoux2';
      Players[0].Pass := '';
      Players[0].Nick := 'ntiy';
      Players[0].Active := True;


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


    function FindFastRandoms: Boolean; //By WT-Fakawi.
    var
      i: Integer;
    begin
      for i := 1 to 8 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          7: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          8: RC;
        end;
        wait(1);
      end;
      if (Result = true) then
        DidRandomHappen := true;
    end;

    ///////////////////////////////////////////////////////////////////////////

    procedure FindRandoms;
    begin
    ActivateClient;
      FindFastRandoms;
      FindNormalRandoms;
      if (FindNormalRandoms) then
        DidRandomHappen := true;
    end;

    procedure Death;
    begin
      if (FindColor(x,y,dc,5,5,5,5))then
      begin
      ActivateClient;
        MakeCompass('N')
        wait(50+random(80));
        HighestAngle;
        wait(50+random(50));
        Mouse(x,y,2,2,false);
        wait(100+random(75));
        ChooseOption(x,y, 'Attack');
        wait(125+random(75));
        GameTab(5);
        wait(100+random(100));
        FindRandoms;
        wait(100+random(125));
        GameTab(7);
        SleepAndMoveMouse(967 + random(1000));
      end;
    end;

    /////////////////////////////////////////////////////////

    procedure SetupScript;
    begin
      SetupSRL;
      DeclarePlayers;
      ActivateClient;
    end;

    ///////////////////////////////////////////////////////////////////////////

    begin
      SetupScript;
    repeat
      Death;
      until (False);
    end.
    there shawnjohn

  8. #8
    Join Date
    Apr 2007
    Posts
    581
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    SCAR Code:
    program New;
    ////////////SPECIAL THANKS TO JAD FOR PROCEDURES AND SUCH! <3
    ///////////START LOGGED IN FACING NORTH BY THE DEMON WITH //////////SPELL SET
    {.include SRL\SRL.Scar}
    const
    dc=1714792;
    dn='esser';
    var DidRandomHappen: Boolean;
     
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; //Number of PLAYERS. active or not.
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; //Player to start on.
     
     
     
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := 'ntiy';
      Players[0].Active := True;
     
     
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;
     
     
    function FindFastRandoms: Boolean; //By WT-Fakawi.
    var
      i: Integer;
    begin
      for i := 1 to 8 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          7: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          8: RC;
        end;
        wait(1);
      end;
      if (Result = true) then
        DidRandomHappen := true;
    end;
     
    ///////////////////////////////////////////////////////////////////////////
     
    procedure FindRandoms;
    begin
      FindFastRandoms;
      FindNormalRandoms;
      if (FindNormalRandoms) then
        DidRandomHappen := true;
    end;
     
    procedure Death;
    begin
      if (FindColor(x,y,dc,5,5,5,5))then
      begin
        MakeCompass('N');
        wait(50+random(80));
        HighestAngle;
        wait(50+random(50));
        MMouse(x,y,2,2);
        Wait(100+random(50));
        ClickMouse(x,y,false);
        wait(100+random(75));
        ChooseOption(x,y, 'Attack');
        wait(125+random(75);
        GameTab(5);
        wait(100+random(100));
        FindRandoms;
        wait(100+random(125));
        GameTab(7);
        Wait(200+Random(75));
        SleepAndMoveMouse(967 + random(1000));
      end;
    end;
     
    /////////////////////////////////////////////////////////
     
    procedure SetupScript;
    begin
      SetupSRL;
      DeclarePlayers;
      ActivateClient;
    end;
     
    ///////////////////////////////////////////////////////////////////////////
     
    begin
      SetupScript;
      repeat
        Death;
        Wait(500+Random(50));
      until (False);
    end.

  9. #9
    Join Date
    Mar 2007
    Location
    Cincinnati Ohio (513)!
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program New;
    ////////////SPECIAL THANKS TO JAD FOR PROCEDURES AND SUCH! <3
    ///////////START LOGGED IN FACING NORTH BY THE DEMON WITH //////////SPELL SET
    ////////////////also color pick for dc vvv down there in const
    ///have highest angle just in case
    {.include SRL\SRL.Scar}
    const
    dc=1451614;  // pick this
    dn='esser';  // should be dandy
    var DidRandomHappen: Boolean;

    procedure DeclarePlayers;
    begin
      ActivateClient;
      HowManyPlayers := 1; //Number of PLAYERS. active or not.
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; //Player to start on.



      Players[0].Name := 'antiyoux2';
      Players[0].Pass := '';
      Players[0].Nick := 'ntiy';
      Players[0].Active := True;


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


    function FindFastRandoms: Boolean; //By WT-Fakawi.
    var
      i: Integer;
    begin
      for i := 1 to 8 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          7: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          8: RC;
        end;
        wait(1);
      end;
      if (Result = true) then
        DidRandomHappen := true;
    end;

    ///////////////////////////////////////////////////////////////////////////

    procedure FindRandoms;
    begin
      FindFastRandoms;
      FindNormalRandoms;
      if (FindNormalRandoms) then
        DidRandomHappen := true;
    end;

    procedure Death;
    begin
      if (FindObj(x,y,dn,dc,5))then
      begin
        MakeCompass('N');
        wait(50+random(80));
        HighestAngle;
        wait(50+random(50));
        Mouse(x,y,2,2,false);
        Wait(100+random(50));
        ChooseOption(x,y, 'Attack');
        wait(125+random(75));
        GameTab(5);
        wait(100+random(100));
        FindRandoms;
        wait(100+random(125));
        GameTab(7);
        Wait(200+Random(75));
        SleepAndMoveMouse(967 + random(1000));
      end;
    end;

    /////////////////////////////////////////////////////////

    procedure SetupScript;
    begin
      SetupSRL;
      DeclarePlayers;
      ActivateClient;
    end;

    ///////////////////////////////////////////////////////////////////////////

    begin
      SetupScript;
      repeat
        Death;
        Wait(500+Random(50));
      until (False);
    end.
    here shawn

  10. #10
    Join Date
    Dec 2006
    Location
    Houston, TX USA
    Posts
    4,791
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Here's my fix.

    SCAR Code:
    program New;
    ////////////SPECIAL THANKS TO JAD FOR PROCEDURES AND SUCH! <3
    ///////////START LOGGED IN FACING NORTH BY THE DEMON WITH //////////SPELL SET
    {.include SRL\SRL.Scar}
    const
    dc=1714792;
    dn='esser';
    var DidRandomHappen: Boolean;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; //Number of PLAYERS. active or not.
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; //Player to start on.



      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := 'ntiy';
      Players[0].Active := True;


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


    function FindFastRandoms: Boolean; //By WT-Fakawi.
    var
      i: Integer;
    begin
      for i := 1 to 8 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          7: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          8: RC;
        end;
        wait(1);
      end;
      if (Result = true) then
        DidRandomHappen := true;
    end;

    ///////////////////////////////////////////////////////////////////////////

    procedure FindRandoms;
    begin
      FindFastRandoms;
      FindNormalRandoms;
      if (FindNormalRandoms) then
        DidRandomHappen := true;
    end;

    procedure Death;
    begin
      if (FindColor(x,y,dc,5,5,5,5))then
      begin
        MakeCompass('N')
        wait(50+random(80));
        HighestAngle;
        wait(50+random(50));
        MMouse(x,y,2,2);
        Wait(100+random(50));
        ClickMouse(x,y,false);
        wait(100+random(75));
        ChooseOption(x,y, 'Attack');
        wait(125+random(75));
        GameTab(5);
        wait(100+random(100));
        FindRandoms;
        wait(100+random(125));
        GameTab(7);
        SleepAndMoveMouse(967 + random(1000));
      end;
    end;

    /////////////////////////////////////////////////////////

    procedure SetupScript;
    begin
      SetupSRL;
      DeclarePlayers;
      ActivateClient;
    end;

    ///////////////////////////////////////////////////////////////////////////

    begin
      SetupScript;
     repeat
      Death;
      until (False);
    end.

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: 11-02-2008, 12:39 PM
  2. Replies: 10
    Last Post: 06-01-2008, 02:15 PM
  3. [Error]: comma (',') expected in script
    By AbsTrACt'^.| in forum OSR Help
    Replies: 20
    Last Post: 05-22-2008, 12:27 AM
  4. Replies: 4
    Last Post: 05-30-2007, 04:01 PM
  5. Line 1: [Error] Variable Expected in script
    By Fearlesssss in forum OSR Help
    Replies: 7
    Last Post: 05-26-2007, 10:12 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
  •