Results 1 to 3 of 3

Thread: Anime's Chop 'N Drop Syntax Error

  1. #1
    Join Date
    May 2006
    Location
    Nowhere, Colorado
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Anime's Chop 'N Drop Syntax Error

    ok, here's the deal, i wrote this script, and i think it's all going to work, but i get a syntax error right in the very last section, so if someone could help me out it'd be awesome, thnx
    WARNING!!! This Message Contains Explicit Material Not Suitable For Idiots.

  2. #2
    Join Date
    May 2007
    Location
    Canada
    Posts
    261
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This should work. You added and extra until
    SCAR Code:
    //-------------------------------------------------------------------------------//
    //-------------------------------------------------------------------------------//
    //---           /|  |\        ||  [||]  |\        /|  |||||||||  \||    /\    ---//
    //---          //|  ||\       ||   ||   ||\      /||  ||          ||   //\\   ---//
    //---         //||  ||\\      ||   ||   ||\\    //||  ||          /   //  \\  ---//
    //---        // ||  || \\     ||   ||   || \\  // ||  ||              \\      ---//
    //---       //  ||  ||  \\    ||   ||   ||  \\//  ||  ||               \\     ---//
    //---      //   ||  ||   \\   ||   ||   ||   \/   ||  ||||||            \\    ---//
    //---     //====||  ||    \\  ||   ||   ||        ||  ||                 \\   ---//
    //---    //     ||  ||     \\ ||   ||   ||        ||  ||                  \\  ---//
    //---   //      ||  ||      \\||   ||   ||        ||  ||              \\  //  ---//
    //---  //       ||  ||       \||   ||   ||        ||  ||               \\//   ---//
    //--- //        ||  ||        \|  [||]  ||        ||  |||||||||         \/    ---//
    //---//                                                                       ---//
    //-------------------------------------------------------------------------------//
    //-------------------------------------------------------------------------------//
    //-------------------------- Reguar Tree Chop 'N Drop ---------------------------//
    //-------------------------------------------------------------------------------//
    //-------------------------------------------------------------------------------//
    //------             Play with 32 bit color and max brightness             ------//
    //------  Place Characters near trees that you want to chop and equip axe  ------//
    //------                  Fill out lines 32-36 and 47-74                   ------//
    //-------------------------------------------------------------------------------//
    //-------------------------------------------------------------------------------//
    //-------------------------------------------------------------------------------//
    //-------------------------------------------------------------------------------//


    program ChopNdrop;

    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\Woodcutting.scar}

    const
      Tree1= 4419473;//color of tree
      Tree2= 2374991;
    var
      Clicks, Loads: Integer;
      RLog : Integer;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 5;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := 'name';
      Players[0].Pass := '0000';
      Players[0].Nick := 'nam';
      Players[0].Active:=True;

      Players[1].Name := 'name2';
      Players[1].Pass := '1111';
      Players[1].Nick := 'nam';
      Players[1].Active:=True;

      Players[2].Name := 'name3';
      Players[2].Pass := '2222';
      Players[2].Nick := 'nam';
      Players[2].Active:=True;

      Players[3].Name := 'name4';
      Players[3].Pass := '3333';
      Players[3].Nick := 'nam';
      Players[3].Active:=True;

      Players[4].Name := 'name5';
      Players[4].Pass := '4444';
      Players[4].Nick := 'nam';
      Players[4].Active:=True;

    end;

    Procedure Setup;
    begin
     ActivateClient;
     If(Not(LoggedIn)) Then LoginPlayer;
     HighestAngle;
     MakeCompass('n');
     GameTab(4);
     If(FindAxeHeadColor) Then
     begin
      If(Players[CurrentPlayer].Boolean1=True) Then
      begin
       MouseItem(1,true)
      End
     end Else
     begin
      Logout
     end
    end;

    procedure LoadDTMs;
    begin

       RLog := DTMFromString('78DA631463606010624001A9BEBA0C0F81342' +
           '310FF0702466920838D010D302291409A1B4870619A83A2861548' +
           '88123047044848A3AAA84BB04455A30424C450D5640719A2AA910' +
           '7127CA86A0C141450D40000A9CC0A2D');

    end;

    function FindFastRandoms: Boolean; //stolen from 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;
    end;

    procedure KillAntiRandoms;
    begin
      if(not(LoggedIn))then
      Exit;
      FindTalk;
      FindNormalRandoms;
      if (FindFight = true) then
      begin
        RunAwayDirection('N');
        Wait(10000 + random(3005));
        RunBack;
        FindFastRandoms;
       FindTalk;
      end;
    end;

    procedure AntiBan; //theived
    begin
      if(not(LoggedIn))then
      Exit;
      case Random(10) of
        0: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
        1: FindFastRandoms;
        2: PickUpMouse;
        3: begin
             HoverSkill('Woodcutting', False);
             wait(2000+random(2000));
              GameTab(4);
           end;
        5: BoredHuman;
        6: PickUpMouse;
        8: AlmostLogout;
        10: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
      end;
    end;

    Procedure ChopIt; // Chops Tree Using Colors

    begin
     if(FindMSColor(x,y,Tree1)) then
     begin
      MMouse(x,y,1,1)
      If(IsUpText('ree')) Then
      begin
       Mouse(x,y,0,0,true)
       Flag
      end
      If(Not(IsUpText('ree'))) Then
      begin
       If(FindMSColor(x,y,Tree1)) Then
       begin
        Mouse(x,y,0,0,true)
        Flag
       end
      end
     end
    end;

    Procedure ChopIt2; // Chops Tree Using Colors
    begin
     if(FindMSColor(x,y,Tree2)) then
     begin
      MMouse(x,y,1,1)
      If(IsUpText('ree')) Then
      begin
       Mouse(x,y,0,0,true)
       Flag
      end
      If(Not(IsUpText('ree'))) Then
      begin
       If(FindMSColor(x,y,Tree2)) Then
       begin
        Mouse(x,y,0,0,true)
        Flag
       end
      end
     end
    end;

    procedure DropTheLogs;
    begin
      If (InvFull) then
      begin
       repeat
        If (FindDTM(RLog,x,y,MIX1,MIY1,MIX2,MIY2)) then
      begin
        Mouse(x,y,3,3,false);
        ChooseOption(x,y,'rop');
        If ( Not (LoggedIn) ) Then NextPlayer (False)
        wait(100+random(100));
      end;
     Until (FindDTM(RLog,x,y,MIX1,MIY1,MIX2,MIY2)) = false
      end;
    end;

    begin
      SetupSRL;
      DeclarePlayers;
      LoadDTMs;
      If(Not(LoggedIn)) then LoginPlayer;
      repeat
        ChopIt;
        ChopIt2;
        DropTheLogs;
      until(false);
    end.
    On vacation from July 2nd till middle of August


    Account Creator and Tutorial Island Runner (member | public) Errors fixed


    Check out my Complete forms tutorial. It will teach you everything you need to know about forms.

  3. #3
    Join Date
    May 2006
    Location
    Nowhere, Colorado
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thnx for the help, works nicely now
    WARNING!!! This Message Contains Explicit Material Not Suitable For Idiots.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Line 135: [Error] (14845:1): Syntax error in script
    By AbsTrACt'^.| in forum OSR Help
    Replies: 16
    Last Post: 05-23-2008, 01:14 PM
  2. Syntax error...
    By faster789 in forum OSR Help
    Replies: 2
    Last Post: 03-24-2008, 02:29 PM
  3. Replies: 5
    Last Post: 02-26-2008, 04:14 PM
  4. Anime's Chop 'N Drop
    By anime1161 in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 07-17-2007, 06:38 AM

Posting Permissions

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