Results 1 to 5 of 5

Thread: need a lil help

  1. #1
    Join Date
    Jun 2007
    Location
    Indiana
    Posts
    153
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default need a lil help

    ok heres my script it says : colon expected in line 26 which is my load number variable line... and also let me know what you think bout it

    SCAR Code:
    program PowerChopper;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Extended/xAntiban.scar}
    {.include SRL/SRL/Extended/xAntiRandoms.scar}
    {.include SRL/SRL/Skill/WoodCutting.scar}

    //////////////////////////////////////////////////
    //              Instructions                    //
    // 1.Start anywhere by trees.                   //
    // 2.Set the color of the tree.                 //
    // 3.Equip the axe of your choice.              //
    // 4.Set the new RS window.                     //
    // 5.Move the scar window over clear to the left//
    // 6.Hit RUN!!!                                 //
    //////////////////////////////////////////////////

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

    ///////////////////Setup/////////////
    var
    LoadsNumb:=10; //Loads to do before switching players

    const
    Normal=798760; //change if it doesnt find the tree

    procedure DeclarePlayers;
    begin
     HowManyPlayers:=1; //Number of players
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer := 0; //Player to start on

      Players[0].Name :='username';  //Fill in your username
      Players[0].Pass :='password';  //Fill in your password
      Players[0].Nick :='nick';      //2-3 letters of your username
      Players[0].Active :=True;      //Dont touch

      Players[1].Name := 'UserName';
      Players[1].Pass := 'Password';
      Players[1].Nick := '3-4 letters of UserName';
      Players[1].Active := False;

      Players[2].Name := 'UserName';
      Players[2].Pass := 'Password';
      Players[2].Nick := '3-4 letters of UserName';
      Players[2].Active := False;

      Players[3].Name := 'UserName';
      Players[3].Pass := 'Password';
      Players[3].Nick := '3-4 letters of UserName';
      Players[3].Active := False;

      Players[4].Name := 'UserName';
      Players[4].Pass := 'Password';
      Players[4].Nick := '3-4 letters of UserName';
      Players[4].Active := False;

      Players[5].Name := 'UserName';
      Players[5].Pass := 'Password';
      Players[5].Nick := '3-4 letters of UserName';
      Players[5].Active := False;

      NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
    end;

    ///////////////Don't Touch Below This//////////////////////

    procedure FindTree;
    var
     i:Integer;
    begin
    if(FindObj(x,y,'hop',Normal,10))then
     begin
     Mouse(x,y,5,5,True)
      repeat
      Wait(2000)
      i:=i+1
      until(InChat('logs'))or(I>=5);
     end;
    i:=0
    end;

    procedure Drop;
    begin
    DropAll;
    end;

      function InventoryCount1: Integer;
    {var
      used, i, e: Integer;
    begin
      e := 0;
      i := 0;
      used := 0;
      GameTab(4);
      while (i < 6) do
      begin
        if (i = 5) and (e < 8) then
        begin
          i := 0;
          e := e + 1;
        end;
        if (FindColor(x, y, 65536, (571 + 47 * i), (215 + 36 * e), (601 + 47 * i), (245 + 36 * e))) then
          used := used + 1;
        i := i + 1;
      end;
      Result := used;
    end; }

    var
      Mx, My, e, i: Integer;
    begin
      GameTab(4);
      for e := 0 to 6 do
      begin
        for i := 0 to 4 do
        begin
          Mx := (561 + (i * 43));
          My := (209 + (e * 37));
          if (FindColorSpiral(x, y, 65536, Mx, My, Mx + 40, My + 35)) then
            Result := Result + 1;
            LoadsNumb := LoadsNumb + 1;
        end;
      end;
    end;

    ///////////////Anti-Randoms//////////////////

    procedure Randoms;
    begin
    Findnormalrandoms;
    end;


    procedure ScriptSetup;
    begin
     ClearDebug;
     SetupSRL;
     DeclarePlayers;
     end;

    ////////////////////Main Loop/////////////////////

     begin
      ScriptSetup;
     If(not(LoggedIn)) then
     LoginPlayer;
      repeat
       repeat
       Randoms;
       AntiBan;
       FindTree;
       until(invfull);
      DropAll;
      if(LoadsNumB=Loads)then
      begin
       NextPlayer(True);
       LoadsNumB:=0;
       HighestAngle;
       MakeCompas('N');
       Writeln('You switched players.');
       end;
     until(false)
    end.

  2. #2
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    after a var, you don't put what a variable ='s, you put the name of it, and what type it is. So you'd put like

    var Whatever: Integer;

    or

    var Whatever: String;

    or

    var Whatever: Boolean;

    .....etc.

    And then you can have a constant of what you want it to be, and later in the script put like Whatever := TheConstant;

  3. #3
    Join Date
    Jun 2007
    Location
    Indiana
    Posts
    153
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  4. #4
    Join Date
    Jun 2007
    Location
    Indiana
    Posts
    153
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok i fixed a few more errors and it now says out of range in line 43 which is player 1's setup

  5. #5
    Join Date
    Jun 2007
    Location
    Indiana
    Posts
    153
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

Thread Information

Users Browsing this Thread

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

Posting Permissions

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