Results 1 to 8 of 8

Thread: Need Help !

  1. #1
    Join Date
    Sep 2006
    Posts
    457
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need Help !

    really need some help i'm really close to done with my fletching program plz help me finish. I am just stuck can't figure out what else to put in the script make some suggestions.

  2. #2
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    i dont really want to download to tell you so..antirandoms, andtiban,...and thats it...as long as its just gonna stayin the bank
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  3. #3
    Join Date
    Sep 2006
    Posts
    457
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok well maybe more specific. I mean there's like 2 errors. If u can just look at it maybe and post it back to me that would be great. Thanks for any help u can give me

  4. #4
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    what are errors?

  5. #5
    Join Date
    Jan 2007
    Posts
    513
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by hugolord View Post
    what are errors?
    220+ post and you dont know what a error is??

    J/K
    Srl simply rocks.

  6. #6
    Join Date
    Sep 2006
    Posts
    457
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah dude comon errors. LMAO. What do you do here? anyways still no help pretty sad

  7. #7
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    he is asking for the errors, not the meaning of the word errors lol
    Infractions, reputation, reflection, the dark side of scripting, they are.

  8. #8
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    My god stupid leechers flaming SRL Member god...
    He is asking WHAT ERRORS you are getting, give us some details.

    Anyways...
    Here:

    SCAR Code:
    program autofletcher;
    {.include SRL\SRL.scar}


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



    const
    BankBooth = 12344;  // The color of the bank booth
    LogColor = 5767;     //The color of the log you want to fletch
    BowToMake = 324234;  //The color of the bow in the make screen
    LogsToCut = 68442;  // how many logs you want to cut
    Var
    LogsDone:Integer;
    LogsCut:Integer;

    {**********************************************************
    *                                                         *
    *                Don't change below here                  *
    *                                                         *
    ***********************************************************}




    Procedure UberBright;
        Begin
        GameTab(11);
        Wait(400+random(12));
        If GetColor(712, 226) <> 16777215 Then
        Begin
          Mouse(712, 226, 2, 2, True);
          Wait(200+random(12));
        End;
      End;
    ////////////////////////////////////////////////////

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



    Procedure Bank;
    var bx,by:Integer;
    begin

      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
       Wait(500);
       until(BankScreen);
       end
       else
       begin
       Bank;
      end;
     FixBank;
     Deposit(2,28,2);
     Withdraw(1, 1, 0);
     repeat
      CloseBank;
      Wait(500);
     until(BankScreen = False);
     end;
    end;
    //////////////////////////////////////////////////////////////
    /////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////
    Procedure Fletching;
    var Number:Integer;
    begin
     begin
      UseItem(1);
      Wait(100 + Random(800));
      UseItem(2);
      Wait(random(500));
     end;
     begin
      MMouse(244,407,10,10);
      if (IsUpText('Make')) then
      begin
      Mouse(244,407,10,10,false);
      ClickOption('Make X', 3);
      Wait(700+Random(500));
      Number:=27+Random(11);
      TypeSend(IntToStr(number));
      Wait(100 + Random(250));
      TypeSend(Chr(13));
      end
      else Fletching;
     end;
     repeat
      wait(500);

      if (FindNpcChatText('continue')) then //Fix to the level-up Bug
      begin
       begin
       UseItem(1);
       Wait(100 + Random(800));
       UseItem(28);
       Wait(random(500));
       end;
       begin
       Mouse(244,407,10,10,false);
       wait(300);
       ClickOption('Make X', 3);
       Wait(700+Random(500));
       Number:=27+Random(11);
       TypeSend(IntToStr(number));
       Wait(100 + Random(250));
       TypeSend(Chr(13));
       end;
      end;

     until(GetColor(717,447)=65536);
     if (GetColor(717,447)=65536) then
     LogsCut:= LogsCut+27;
    end;
    ///////////////////////////////////////////////////////////
    procedure Report;
    begin
    ClearDebug;
      SRLRandomsReport;
      WriteLn('////////////////////////////////////////////')
      WriteLn('    Jesus45 kick ass fletcher :)     ')
      WriteLn('                                            ')
      WriteLn('  Running Time: ' + (TimeRunning) + '')
      WriteLn('  Total logs cut: ' + IntToStr (LogsCut) +  '')
      WriteLn('  Exp Gained: ' + IntToStr (LogsCut*41) +  '')
      WriteLn('////////////////////////////////////////////  ')
    end;

    ////////////////////////////////////////////////////////////
    procedure Jesus;
    var
      x, y, fs, fs2: Integer;
    begin
      if not BankScreen then
        repeat
          if (FindObj3(x, y, 'Use Bank', 4481658, 10)) then
            Mouse(x, y, 4, 4, False)
          else
            if (FindObj3(x, y, 'Use Bank', 2842230, 10)) then
              Mouse(x, y, 4, 4, False)
            else
              if (FindObj3(x, y, 'Use Bank', 12611, 10)) then
                Mouse(x, y, 4, 4, False);
          Wait(250+random(250));
          if (ClickOption('quickly', 1)) then
          begin
            Flag;
            repeat
              Wait(100);
              fs := fs + 1;
            until (BankScreen) or (fs >= 50);
          end;
          fs2 := fs2 + 1;
        until (BankScreen) or (fs2 > 5);

    end;
    ////////////////////////////////////////////////////////////
    procedure  Deposit1(slot,toslot, thetype: Integer);
    var
      slotnumber, col, row: Integer;
    begin
      if (BankScreen) then
      begin
        slotnumber := slot;
        while (slotnumber < toslot) do
        begin
          if ((slotnumber mod 4) = 0) then
            col := 3
          else
            col := (slotnumber mod 4) - 1;
          row := (slotnumber - 1) / 4;
          if (FindColor(x, y, 65536, (571 + 47 * col), (215 + 36 * row), (601 + 47 *
            col), (245 + 36 * row))) then
          begin
            if (thetype = 1) then
              Mouse(x, y, 5, 5, True);
            if (thetype = 2) then
            begin
              Mouse(x, y, 5, 5, False);
              if (ChooseOption(x, y, 'All')) then
                Wait(1000 + Random(100));
            end;
          end;
          slotnumber := slotnumber + 1;
        end;
      end;
    end;
    ///////////////////////////////////////////////////////////
    //main loop///////////////////////////////////////////////

    Begin
     SetupSrl;
     ActivateCLient;
     UberBright;

    end.

    repeat
      FindNormalRandoms;
      Bank;
      Fletching;
      Report;
      Jesus
     until(LogsDone >= LogsToCut);
     if (LogsDone >= LogsToCut)then
     begin
       TerminateScript;
       Deposit1;
      end;
     end.

    Problem was line 131 where you had:
    LogsToCut:= LogsToCut+27;
    But! LogsToCut is the name of a constant at top so they interfered, so i renamed it
    You also had
    end;
    Instead of
    end.
    at the end of script.
    You also had some incorrect variables in your progress report.

    TIP: If you are making this to get into SRL members, you need to add multiplayer, antirandom, and failsafes.

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
  •