Results 1 to 6 of 6

Thread: [RS2] Power Chopper/Burner

  1. #1
    Join Date
    Mar 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default [RS2] Power Chopper/Burner

    Yes Its at its first working stage!
    Here all, run it for a bit, but dont walk away its just bare bones right now, ill beef it up as i get time. Feel free to edit it, but leave credit where its deserved

  2. #2
    Join Date
    Feb 2006
    Location
    New Zealand
    Posts
    1,330
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    at quick glance looks ok. I cant stand reading others code though. But in the mouse in the cutter the second zero also needs to be around 5. And have a look into uptext. or findobj+

  3. #3
    YennGyo Guest

    Default I can't download it

    when i try it it says that the file is no tfound how do i fix this

  4. #4
    Join Date
    Mar 2006
    Location
    Behind you
    Posts
    3,193
    Mentioned
    61 Post(s)
    Quoted
    63 Post(s)

    Default

    Quote Originally Posted by YennGyo
    when i try it it says that the file is no tfound how do i fix this
    Your definitely a leecher , Good job with the script,lil ruff but good for a first version

    "Sometimes User's don't need the Answer spelled out with Code. Sometimes all they need is guidance and explanation of the logic to get where they are going."

  5. #5
    Join Date
    Mar 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol its my first script at all for runescape, but im loaded down for the next two weeks with finals, so i will work on it every now and then, but i hope to get things clean and well coded. Also to get add ins such as find axe, randoms, antiban, etc...

  6. #6
    Neonknight77 Guest

    Default

    Kinda impoved. You only need 1 const, and I added to check when it moves mouse to tree if it says Chop down.
    Code:
    //////////////////////////////////////////////////////////////////////////////////////
    //------------------------Power cutter/burner By Phlame-----------------------------//
    //--------Credits to SRL for all the includes etc, i just "glued" together----------//
    //---------------Start with axe weilded and tenderbox in first slot.----------------//
    //Version Beta1, it works, but extremely rough...  Comments please! Updates to come!//
    //////////////////////////////////////////////////////////////////////////////////////
    
    program SRLGrillmaster;
    {.include SRL\SRL.scar}
    
    Const
    //--------Fill-This-Out---------------//
    TreeColor1	=0;
    TreeColor2	=0;
    TreeColor3	=0;
    LoadsWanted =25;
    
    //--------Leave-This-Alone----------//
    
    Const StartPlayer	=0;
    Var Lognumber,Loadsdone,Tinderbox:Integer;
    
    
    //------------------------------//
    
    
    Procedure DeclarePlayers;
    begin
         NumberOfPlayers(1);
         Players[0].Name :='Name';
         Players[0].Pass :='Pass';
         Players[0].Nick :='Nick';
    end;
    
    Procedure LoginRoutine;
     Begin
      DeclarePlayers;
       If (LoggedIn=False) then
        Begin
         LoginPlayer;
        End else
     End;
    
    Procedure FindChopTree;
     Begin
      wait(100+random(1000));
       If (FindMSColorTol(x,y,TreeColor1,11)) or
          (FindMSColorTol(x,y,TreeColor2,11)) or
          (FindMSColorTol(x,y,TreeColor3,11)) then
        Begin
         wait(100+random(1000));
          MMouse(x,y,5,0);
          Sleep(100+Random(700));
          If(IsUpText('Chop down'))Then
          Mouse(X,Y,5,0,true);
         wait(7500+Random(5000));
        end else
         Begin
          Writeln('Chosen tree not found')
          Logout;
          Exit;
         End;
     end;
    
    Procedure BurnInv;
     Begin
      If (Not(Lognumber=28))then
       Begin
        UseItem(Lognumber);
        Lognumber:=Lognumber+1
         wait(100);
          UseItem(Tinderbox)
           Begin
            IdleTime(2000,random(56),10);
           end;
        end else
       If (Lognumber=28) then
        Lognumber:=2
      end;
    
    Procedure ChopFull;
     Begin
      Repeat
       If LoggedIn=False then
        Begin
         Break;
        End else
        FindChopTree;
      Until (InventoryFull=True);
        Repeat
         If LoggedIn=False then
        Begin
         Break;
        End else
         BurnInv;
        Until (InventoryCount=1);
      Loadsdone:=Loadsdone+1
     End;
     
    Procedure SetupScript;
     Begin
      SetupSRL;
       Writeln('=====================================================')
       Writeln('=-Successfully Started Phlames Power Chopper/Burner-=')
       Writeln('=====================================================')
      LoginRoutine;
      Loadsdone:=0
      Tinderbox:=1
      Lognumber:=2
     end;
    
    Begin
     SetupScript;
      repeat
       If LoggedIn=False then
        Begin
         Break;
        End else
       Chopfull
      Until (Loadsdone=Loadswanted)
     LogOut;
     Exit;
    End.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Power Chopper
    By topiser in forum First Scripts
    Replies: 10
    Last Post: 05-16-2008, 08:57 PM
  2. My First Power Chopper
    By destroyface in forum First Scripts
    Replies: 4
    Last Post: 09-12-2007, 11:35 AM
  3. R3v Power Chopper
    By R3velati0n in forum RS3 Outdated / Broken Scripts
    Replies: 27
    Last Post: 01-30-2007, 03:36 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
  •