Results 1 to 6 of 6

Thread: Question about PowerChopper

  1. #1
    Join Date
    Nov 2006
    Posts
    56
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Question about PowerChopper

    First of all here is my latest version:

    Code:
    //[A][s]
    //[K][c]
    //[R][r]
    //[I][i]
    //[A][p]
    //[M][t]
    
    //BIG THANKS TO PREMIER FOR HELPING ME!
    //Thanks to M0rtion for the ASIIC!
    
    // _____                        _____      _   _
    //|  __ \                      / ____|    | | | |
    //| |__) |____      _____ _ __| |    _   _| |_| |_ ___ _ __
    //|  ___/ _ \ \ /\ / / _ \ '__| |   | | | | __| __/ _ \ '__|
    //| |  | (_) \ V  V /  __/ |  | |___| |_| | |_| ||  __/ |
    //|_|   \___/ \_/\_/ \___|_|   \_____\__,_|\__|\__\___|_|
    
    //[------------------| Details |------------------]
    //[         Title: Akarims PowerCutter            ]
    //[         Version: Version 3.5                  ]
    //[         Creator: Akarim                       ]
    //[         Contact: Jiwman88@hotmail.com         ]
    //[---------------| Description |-----------------]
    //[ This script will automaticly cut the trees    ]
    //[ Normal, Oak and Willow then once your pack is ]
    //[ full it will drop the logs, Thus gaining exp  ]
    //[ in the Woodcutting skill. This script has SRL ]
    //[ with anti-randoms and anti-fights. Have Fun :)]
    //[---------------| Instructions |----------------]
    //[ 1) Start next to the tree you want to cut     ]
    //[ 2) Fill in the setup on lines 55-61           ]
    //[ 3) Fill in lines 58-65, 91-104                ]
    //[ 4) Set Ent color in line 296                  ]
    //[ 5) Drag the crosshair onto Runescape          ]
    //[ 6) V-Bright, 32 bitcolor                      ]
    //[ 7) Press play and watch it cut and drop 1 load]
    //[ Have Fun, to post all bugs and reports please ]
    //[-----------------------------------------------]
    //[ Official Web-Thread-none yet                  ]
    //[                                               ]
    //[-----------------------------------------------}
    //Note:Credits at bottom
    
    
    
    program ultimatechopper;
    
    {.include SRL/SRL.scar}
    
    {.include SRL/SRL/Skill/Woodcutting.scar}
    
    {.include SRL/SRL/Skill/Fighting.scar}
    
    
    //Constants
    
    Const
     TreeColor1=2785392;   //Set all of these tree colors
     TreeColor2=3829856;
     TreeColor3=4290672;
     WaitTime=5; //Seconds to wait
     Username=''; //username
     TalkWait=180000; //when character talks (in miliseconds; default is 3 min)
     treetocut = 'Willow';   //either tree, oak, willow, ect.
     BlueChatColor=234212; //Color of blue text in chatbox
    
    Procedure updates;
    begin
    writeln('Hello,thanks for using this script!')
    writeln('You are using version 3.3!')
    writeln('Updates for version four include:')
    writeln('1.)Random mouse movements')
    writeln('2.)Banking')
    writeln('3.)More Random Phrases')
    writeln('4.)Forms!')
    writeln('5.)Progress Report')
    writeln('6.)Everyone give a big thanks to Premier for helping me!')
    
    end;
    
    //Declaring Players
    
    Procedure declareplayers;
    begin
     HowManyPlayers :=3
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer:=0
    
     //Player Setup
    
     Players[0].Name :=''
     Players[0].Pass :=''
     Players[0].Nick :=''
     Players[0].Active:=True;
    
     Players[1].Name :=''
     Players[1].Pass :=''
     Players[1].Nick :=''
     Players[1].Active:=True;
    
     Players[2].Name :=''
     Players[2].Pass :=''
     Players[2].Nick :=''
     Players[2].Active:=True;
    
    end;
    
    //AntiBan
    
    Procedure Notban;
     var
     NoBan : Integer;
      begin
       if ( not ( LoggedIn )) then Exit;
       NoBan:=Random(50)
        case NoBan of
         1: RandomRClickEvery(2 + Random(15));
         2: hoverskill('woodcutting', false);
         3: hoverskill('random', false);
         4: DoEmote(1 + Random(20));
         5: BoredEvery(9 + Random (21));
         6: PickUpMouse;
         7: LeaveScreenEvery(10 + Random(5));
         8: RotateEvery(20 + Random(5));
        end;
       end;
    
    
    //talking responders
    Procedure autowcrespond;
    begin
    
    if findcolor(x,y,BlueChatColor,3,3,515,336) then
    begin
     if   (InChat('Wc lvls') or
          (InChat('Wc lvls?') or
          (InChat('Woodcut lvls') or
          (InChat('Woodcut lvls?') or
          (InChat('Woodcutting lvls') or
          (InChat('Woodcutting lvls?')) or
          (InChat('wc lvls') or
          (InChat('wc lvls?') or
          (InChat('woodcut lvls') or
          (InChat('woodcut lvls?') or
          (InChat('woodcutting lvls') or
          (InChat('woodcutting lvls?')) Then
      Begin
        wait(2000)
        TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
      end;
    end;
    
    
    Procedure autogreetingrespond;
     begin findcolor(x,y,BlueChatColor,3,3,515,336) then
     if  (InChat('Hi')) or
         (InChat('Hey')) or
         (InChat('Hiya')) or
         (InChat('Heya')) or
         (InChat('Hey you'))or
         (InChat('hi')) or
         (InChat('hey')) or
         (InChat('hiya')) or
         (InChat('heya')) or
         (InChat('hey you')) then
      Begin
       wait(2000)
       (random(2) = 1) then
       TypeSend('Hey')
       else
       TypeSend('Hi')
      end;
    End;
    
    Procedure autofriendortraderespond;
    if findcolor(x,y,BlueChatColor,3,3,515,336)) then
    begin
    if (InChat(UserName + '?'))Then
     Begin
      wait(2000)
      (random(2) = 1) then
      TypeSend('Yes?')
      else
      TypeSend('ya?')
      wait(2000)
      TypeSend('Do I know you?')
    
    if (InChat('Yes')) then
     Begin
      wait(2000)
      TypeSend('Sorry,I dont recall')
    
    if (InChat('No')) Then
      Begin
       wait(2000)
       TypeSend('Well, sorry I cant talk Im busy')
    
    if   (InChat('Want to be friends')) or
         (InChat('Wanna be freinds')) or
         (InChat('Want 2 be friends')) or
         (InChat('Wanna be friends')) or
         (InChat('Wanna b friends')) or
         (InChat('Want 2 b friends')) or
         (InChat('Want to be friends?'))or
         (InChat('Wanna be friends?')) or
         (InChat('Want 2 be friends?')) or
         (InChat('Want 2 b friends?')) or
         (InChat('Wanna b friends?')) or
         (InChat('Want 2 b freinds?')) or
         (InChat('Want 2 b freinds')) or
         (InChat('want to be friends')) or
         (InChat('wanna be freinds')) or
         (InChat('want 2 be friends')) or
         (InChat('wanna be friends')) or
         (InChat('wanna b friends')) or
         (InChat('want 2 b friends')) or
         (InChat('want to be friends?'))or
         (InChat('wanna be friends?')) or
         (InChat('want 2 be friends?')) or
         (InChat('want 2 b friends?')) or
         (InChat('wanna b friends?')) or
         (InChat('want 2 b freinds?')) or
         (InChat('want 2 b freinds')) then
      Begin
       wait(2000)
       TypeSend('No,sorry')
    
    if  (InChat('Wanna trade?')) or
        (InChat('Wanna trade')) or
        (InChat('Wanna trade?')) or
        (InChat('Wanna trade?')) or
        (InChat('Want to trade?')) or
        (InChat('Want to trade')) or
        (InChat('Want 2 trade?')) or
        (InChat('Want 2 trade')) or
        (InChat('wanna trade?')) or
        (InChat('wanna trade')) or
        (InChat('wanna trade?')) or
        (InChat('wanna trade?')) or
        (InChat('want to trade?')) or
        (InChat('want to trade')) or
        (InChat('want 2 trade?')) or
        (InChat('want 2 trade')) then
     Begin
      wait(2000)
      TypeSend('No thanks')
    end;
     end;
      end;
       end;
        end;
         end;
    
    Procedure macrono;
    findcolor(x,y,BlueChatColor,3,3,515,336) then
     begin
    if (InChat('are you a macro'))or
       (InChat('are you a macro?')) or
       (InChat('Are you a macro?')) or
       (InChat('Are you a macro')) or
       (InChat('Are you macroing?'))or
       (InChat('Are you macroing')) or
       (InChat('are you macroing?')) or
       (InChat('are you macroing')) then
    Begin
     wait(2000)
     TypeSend('No')
    
    end;
     end;
    
    
    //random talking
    
    Procedure RandomTalkig;
    Begin Case Random(7) of
    
          0:TypeSend('lalala')
          1:TypeSend('Yes WC lvl!')
          2:TypeSend('Hey Hey everyone')
          3:TypeSend('700 more to go....')
          4:TypeSend('Bored....')
          5:TypeSend('Almost there!')
          6:TypeSend('he he he')
          7:TypeSend('I whish i was a higher lvl')
      end;
       end;
    //Randoms; Thanks to "The Prince of Randomness" for this part
    
    Procedure Randoms;
     begin
      setupsrl
      FindNormalRandoms
      FindHead
      FindEnt(4156042)
      notban;
      autowcrespond;
      autogreetingrespond;
      autofriendortraderespond;
      macrono;
      randomtalking;
      if not loggedin then RandomNextPlayer(False);
    
    end;
    
    Procedure Fightrun;
     begin
      If InFight Then
      Runawaydirection('N')
      Wait(25000+Random(5000))
      RunBack;
    
    end;
    
    //Cutting Procedure
    
    Procedure Cut;
    begin
     repeat
     If InFight Then
     begin
      Runawaydirection('N')
      Wait(25000+Random(5000))
      RunBack;
     end;
        (FindObjMulti(treetocut, treecolor1, treecolor2, treecolor3, 5))  then
         begin
         Randoms;
         notban;
         autowcrespond;
         autogreetingrespond;
         autofriendortraderespond;
         macrono;
         randomtalking;
         mmouse(x,y,2,2)
         (IsUpTextMulti('Chop')) then
         Mouse(x,y,0,0,true)
         wait((WAITTIME*1000)+Random(500))
         until(invcount=28)
         if not loggedin then
         RandomNextPlayer(False);
    end;
    end;
    
    //Dropping Procedure
    
    Procedure dropal;
    begin
         Randoms;
         notban;
         autowcrespond;
         autogreetingrespond;
         autofriendortraderespond;
         macrono;
         randomtalking;
    DropTo(2,28)
    end;
    
    begin
    declareplayers;
    FindAxeHeadColor;
    repeat
      Cut;
      dropal;
    until(getskilllevel('woodcutting')=99);
    end.
    
    
    
    //Copywrighted- © 2006 G.A.S.P. Inc./Akriam
    
    //Credits:
    //Solemn Wishes-looking at his script/touchup
    //Arr0w-using his Wc respond procedure
    //Prince Of Randomness-looking at his script
    //IronTeapot-Touchup
    //Pentti-Touchup
    //Premier-Lots of Touchup
    //LardMaster-suggestions
    //FT-Fakawi-looking at his antiban
    //yohojo8-touchup;help with runback;help with hover mouse
    //Nashi-touchup
    //all the testers
    //Note:A touchup doesn't mean I used their code, and just because
    //I looked at someone's code doesn't mean I copied it. I retyped it
    //all and tryed to change it!
    Now I get the error "146 close round expected" but I didn't miss a ")" anywhere in that line...Also, I deleated the whole procedure and then I got the error in the 1st line of the next procedure "Identifier expected in script". Can anyone help :S

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

    Default

    You frogot a few 'Ends;' and some ifs, and some close rounds

    here you go... replace the old stuff with this stuff

    Procedure autowcrespond;
    begin

    if findcolor(x,y,BlueChatColor,3,3,515,336) then
    begin
    if InChat('Wc lvls') or
    InChat('Wc lvls?') or
    InChat('Woodcut lvls') or
    InChat('Woodcut lvls?') or
    InChat('Woodcutting lvls') or
    InChat('Woodcutting lvls?') or
    InChat('wc lvls') or
    InChat('wc lvls?') or
    InChat('woodcut lvls') or
    InChat('woodcut lvls?') or
    InChat('woodcutting lvls') or
    InChat('woodcutting lvls?') Then
    Begin
    wait(2000)
    TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
    end;
    end;
    end;


    Procedure autogreetingrespond;
    begin
    If findcolor(x,y,BlueChatColor,3,3,515,336) then
    if (InChat('Hi')) or
    (InChat('Hey')) or
    (InChat('Hiya')) or
    (InChat('Heya')) or
    (InChat('Hey you'))or
    (InChat('hi')) or
    (InChat('hey')) or
    (InChat('hiya')) or
    (InChat('heya')) or
    (InChat('hey you')) then
    Begin
    wait(2000)
    (random(2) = 1) then
    TypeSend('Hey')
    else
    TypeSend('Hi')
    end;
    End;

  3. #3
    Join Date
    Nov 2006
    Posts
    56
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Okay, the script runs but now when it starts a box pops up with a MAV...should I re-install SCAR?

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

    Default

    you should get rid of all of that talking
    it makes you script look retarded and is kinda unnecessary
    just putting a sentence over and over with different word styles...
    also the first word of all sentences in char is always capital.
    over half of your script is stuff like:
    SCAR Code:
    (InChat('Wanna be freinds')) or
         (InChat('Want 2 be friends')) or
         (InChat('Wanna be friends')) or
         (InChat('Wanna b friends')) or
         (InChat('Want 2 b friends')) or
         (InChat('Want to be friends?'))or
         (InChat('Wanna be friends?')) or
         (InChat('Want 2 be friends?')) or
         (InChat('Want 2 b friends?')) or
         (InChat('Wanna b friends?')) or
         (InChat('Want 2 b freinds?')) or
         (InChat('Want 2 b freinds')) or
         (InChat('want to be friends')) or
         (InChat('wanna be freinds')) or
         (InChat('want 2 be friends')) or
         (InChat('wanna be friends')) or
         (InChat('wanna b friends')) or
         (InChat('want 2 b friends')) or
         (InChat('want to be friends?'))or
         (InChat('wanna be friends?')) or
         (InChat('want 2 be friends?')) or
         (InChat('want 2 b friends?')) or
         (InChat('wanna b friends?')) or
         (InChat('want 2 b freinds?')) or
         (InChat('want 2 b freinds')) then
    if the time it took to to think of all of the different possible ways to say "Want to be friends" (and you don't have capital W so i don't think any would even work) you could have maybe produced some good code for actually chopping


    whats a MAV?
    and thats not the only problem with this
    your missing begins, ends, if, thens, parenthsees like crazy
    id sugest you first make sure it compiles and then ask for help with your problems,
    I'M sure you capable of that Mr. SRL Member =)
    Just add in all your begin, end, if, then, parenthesees and if you are still having problems ask ahead



    Sorry =) Im just like that

    only two people voted wonder why he accepted so soon:
    http://www.villu-reborn.com/showthread.php?t=4232

  5. #5
    Join Date
    Nov 2006
    Posts
    56
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You know Im sorry...I was just trying to make a script for you guys :/ But thanks I guese. I didn't even realize about that the fist letter is always capital...sorry...I won't post about it again...

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

    Default

    oh no!
    dont do that!!!
    Im just saying at least fix all of the common errors before asking questions.
    Its a pain for thers to fix 100s of problems just to make the script at least compile
    Fix the small errs and then ask your question!
    We are here to help!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Powerchopper
    By TViYH in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 06-04-2008, 03:24 AM
  2. Need help with powerchopper
    By pallooo in forum OSR Help
    Replies: 13
    Last Post: 10-29-2007, 10:48 PM
  3. My First PowerChopper
    By i like mauls in forum First Scripts
    Replies: 2
    Last Post: 06-19-2007, 04:35 PM
  4. PowerChopper
    By x s c il m x in forum OSR Help
    Replies: 1
    Last Post: 11-14-2006, 08:53 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
  •