Results 1 to 24 of 24

Thread: Help with my PowerCutter

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

    Default Help with my PowerCutter

    I made the following script, there are some errors, and I was just wondering whether or not any of you could fix it up a little. There probably is many procedure errors because I have only scimmed over like 3 [Tut]'s on how to script. Also in line 86 there is an error \


    Code:
    ////////////////////////////////////////////////////////////////////////////////
    ////AKRIAM'S ULTIMATE CHOPPER///////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    //All of the following Code belongs to Akriam, do not repost without permission
    //Start Of Program:
    
    //Credits to Solemn Whishes, The Prince of Randomness, and Starblaster100
    //becasue I looked at their scripts to make this one.
    
    //Insturctions:
    //1.)Start by the willow trees in Draynor
    //2.)Press "Start"
    
    program ultimatechopper;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Woodcutting.scar}
    
    //Constants
    
    Const
     TreeColor1=125234;
     TreeColor2=234634;
     TreeColor3=235234;
     CutWait=2000;
    
    Procedure updates;
    begin
    writeln('Hello,thanks for using this script!')
    writeln('You are using version 1!')
    writeln('Updates for version two include:')
    writeln('1.)Random mouse movements')
    writeln('2.)Banking')
    writeln('3.)Random talking')
    
    end;
    
    //Declaring Players
    
    Procedure decalreplayers;
    begin
     HowManyPlayers :=3
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer:=0
    
     //Player Setup
     
     Players[0].Name :=''
     Players[0].Pass :=''
     Players[0].Nick :=''
     Players[0].Active:=True;
     
     Players[0].Name :=''
     Players[0].Pass :=''
     Players[0].Nick :=''
     Players[0].Active:=True;
     
     Players[0].Name :=''
     Players[0].Pass :=''
     Players[0].Nick :=''
     Players[0].Active:=True;
     
    end;
    
    //Randoms; Thanks to "The Prince of Randomness" for this part
    
    Procedure Randoms;
     begin
      FindNormalRandoms;
      FindHead;
      FindEnt(4156042);
      if not loggedin then RandomNextPlayer(False);
    
    end;
    
    //Cutting Procedure
    
    Procedure Cut;
     begin
     wait(100)
    if findcolorspiral(x,y,TreeColor1,3,3,515,336)or
     findcolorspiral(x,y,TreeColor2,3,3,515,336)or
     findcolorspiral(x,y,TreeColor3,3,3,515,336)then
    begin
         movemousesmooth(x,y,3,3)
         istextat2(9,9;'Chop'20)
         holdmouse(x,y)
         releasemouse(x,y)
         wait(CutWait+random(300))
         until(invfull)
         if (invfull = true) then
    end;
    
    //Dropping Procedure
    Procedure dropal;
    begin
    dropto(2-28);
    end;
    
    
    begin
    Setupsrl;
    declareplayers;
    FindAxeHeadColor;
    repeat
      Cut;
      Randoms;
      if InvFull then DropAllLogs;
    until(getskilllevel('woodcutting')=99);
    end.
    
    //Copywrighted- © 2006 G.A.S.P. Inc./Akriam

  2. #2
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Man... You had so many mistakes; Heres working one i fixed for you:
    SCAR Code:
    ////////////////////////////////////////////////////////////////////////////////
    ////AKRIAM'S ULTIMATE CHOPPER///////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    //All of the following Code belongs to Akriam, do not repost without permission
    //Start Of Program:

    //Credits to Solemn Whishes, The Prince of Randomness, and Starblaster100
    //becasue I looked at their scripts to make this one.

    //Insturctions:
    //1.)Start by the willow trees in Draynor
    //2.)Press "Start"

    program ultimatechopper;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Woodcutting.scar}


    //Constants

    Const
     TreeColor1=125234;
     TreeColor2=234634;
     TreeColor3=235234;
     CutWait=2000;

    Procedure updates;
    begin
    writeln('Hello,thanks for using this script!')
    writeln('You are using version 1!')
    writeln('Updates for version two include:')
    writeln('1.)Random mouse movements')
    writeln('2.)Banking')
    writeln('3.)Random talking')

    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[0].Name :=''
     Players[0].Pass :=''
     Players[0].Nick :=''
     Players[0].Active:=True;

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

    end;

    //Randoms; Thanks to "The Prince of Randomness" for this part

    Procedure Randoms;
     begin
      FindNormalRandoms;
      FindHead;
      FindEnt(4156042);
      if not loggedin then RandomNextPlayer(False);

    end;

    //Cutting Procedure

    Procedure Cut;
     begin
     repeat
     wait(100)
    if findcolorspiral(x,y,TreeColor1,3,3,515,336)or
     findcolorspiral(x,y,TreeColor2,3,3,515,336)or
     findcolorspiral(x,y,TreeColor3,3,3,515,336)then
    begin
         movemousesmooth(x,y)
         istextat2(9,9,'Chop',20)
         holdmouse(x,y,true)
         releasemouse(x,y,true)
         wait(2000)
         end;
         until(invcount=28)
    end;

    //Dropping Procedure
    Procedure dropal;
    begin
    DropTo(2,28)
    end;


    begin
    Setupsrl;
    declareplayers;
    FindAxeHeadColor;
    repeat
      Cut;
      Randoms;
      if InvFull then DropAllLogs;
    until(getskilllevel('woodcutting')=99);
    end.

    //Copywrighted- © 2006 G.A.S.P. Inc./Akriam

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

    Default

    Thanks, yes I had many, this is my first script ever, and I only scimmed over like 3 tutorials, I will be able to learn of this new one you posted Thanks!

    EDIT:but now i get the error "Period expected in line 85" and when i fix that, it comes up with an access violation

  4. #4
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Yea, lines went weird when i posted that, this should work now:
    SCAR Code:
    //////////////////////////////////////////////////////////////////////////////// ////AKRIAM'S ULTIMATE CHOPPER/////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////// //All of the following Code belongs to Akriam, do not repost without permission //Start Of Program:

    //Credits to Solemn Whishes, The Prince of Randomness, and Starblaster100 //becasue I looked at their scripts to make this one.

    //Insturctions: //1.)Start by the willow trees in Draynor //2.)Press "Start"

    program ultimatechopper;

    {.include SRL/SRL.scar}

    {.include SRL/SRL/Skill/Woodcutting.scar}


    //Constants

    Const
     TreeColor1=125234;
     TreeColor2=234634;
     TreeColor3=235234;
     CutWait=2000;

    Procedure updates;
    begin
    writeln('Hello,thanks for using this script!')
    writeln('You are using version 1!')
    writeln('Updates for version two include:')
    writeln('1.)Random mouse movements')
    writeln('2.)Banking')
    writeln('3.)Random talking')

    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[0].Name :=''
     Players[0].Pass :=''
     Players[0].Nick :=''
     Players[0].Active:=True;

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

    end;

    //Randoms; Thanks to "The Prince of Randomness" for this part

    Procedure Randoms;
     begin
      FindNormalRandoms;
      FindHead;
      FindEnt(4156042);
      if not loggedin then RandomNextPlayer(False);

    end;

    //Cutting Procedure

    Procedure Cut;
     begin repeat
     wait(100) if findcolorspiral(x,y,TreeColor1,3,3,515,336)or
     findcolorspiral(x,y,TreeColor2,3,3,515,336)or
     findcolorspiral(x,y,TreeColor3,3,3,515,336)then begin
         movemousesmooth(x,y)
         istextat2(9,9,'Chop',20)
         holdmouse(x,y,true)
         releasemouse(x,y,true)
         wait(2000) end; until(invcount=28) end;

    //Dropping Procedure

    Procedure dropal;
    begin
    DropTo(2,28)
     end;



    begin
    Setupsrl;
    declareplayers;
    FindAxeHeadColor;
    repeat
      Cut;
      Randoms;
      if InvFull then DropAllLogs;
    until(getskilllevel('woodcutting')=99);
    end.

    //Copywrighted- © 2006 G.A.S.P. Inc./Akriam

    Oh, if this is your first script you are doing great! Keep it going!!!

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

    Default

    Ya, I saw that the Procedure was constanted out, so i got it fixed thanks again, ill put your name in the credits I am going to keep expanding on this, and maybe make a reallllly good free version Also should I use "mouse" and "mmouse" to be less detectable?

  6. #6
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Yes, you should use MMouse and Mouse from SRL include, they are less detectable.

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

    Default

    So I would just substitue those for the clickmouse and releasemouse or whatever?

  8. #8
    Join Date
    Oct 2006
    Posts
    412
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yes, if you want the mouse to move and click then use 'Mouse' if you just want the mouse to move and hover above the x,y location use 'MMouse'. so it would look like this.
    SCAR Code:
    Procedure Cut;
     begin repeat
     wait(100) if findcolorspiral(x,y,TreeColor1,3,3,515,336)or
     findcolorspiral(x,y,TreeColor2,3,3,515,336)or
     findcolorspiral(x,y,TreeColor3,3,3,515,336)then begin
         movemousesmooth(x,y)
         istextat2(9,9,'Chop',20)
         Mouse(x,y,2,2,true) // The 2,2 are random pixels to click away from the x,y spot. can be whatever you like, I generally use between 2 and 5. ( sometimes 0,0 though if I want it to click exactly.
         wait(2000) end; until(invcount=28) end;

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

    Default

    Thanks, i just added a talk back feature should I post it?

  10. #10
    Join Date
    Sep 2006
    Location
    Scripter's Heaven
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yes, and use isuptext('Chop') instead of ur text finding procedure.

    suggestion:
    make him run away from fights, and run back
    infight //boolean if you are in a fight
    runawaydirection('W') //runs in the west direction
    runback('W') //runs back (east)
    do a sleep in between!
    also, try doing random check after each chop, not each load! good luck!

    And check out my pascal interpreter!
    <R0b0t1> No, really, I went to a bar and picked up a transvestite.

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

    Default Ok

    Ok, I will take do that maybe tonight, but I will release this next version for the public if it is okay. Here is it with the auto responder (I will be sure to also include the fight thing, but how would you make it so he checks at random chops?).

    SCAR Code:
    //Akriam's Ultiamate Chopper

    // All of the following Code belongs to Akriam, do not repost without permission //Start Of Program:

    //Insturctions:
    //1.)Start by the willow trees in Draynor
    //2.)Pick Colors
    //3.)Press Start
    //Note:Credits at bottom

    program ultimatechopper;

    {.include SRL/SRL.scar}

    {.include SRL/SRL/Skill/Woodcutting.scar}


    //Constants

    Const
     TreeColor1=125234;   //Set all of these tree colors
     TreeColor2=234634;
     TreeColor3=235234;
     CutWait=2000; //how long to wait untill your character cuts again
     Username='' //username
     TalkWait=180000; //when character talks (in miliseconds; default is 3 min)

    Procedure updates;
    begin
    writeln('Hello,thanks for using this script!')
    writeln('You are using version 2!')
    writeln('Updates for version three include:')
    writeln('1.)Random mouse movements')
    writeln('2.)Banking')
    writeln('3.)More Random Phrases')

    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[0].Name :=''
     Players[0].Pass :=''
     Players[0].Nick :=''
     Players[0].Active:=True;

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

    end;

    //Randoms; Thanks to "The Prince of Randomness" for this part

    Procedure Randoms;
     begin
      FindNormalRandoms;
      FindHead;
      FindEnt(4156042);
      if not loggedin then RandomNextPlayer(False);

    end;

    //Cutting Procedure

    Procedure Cut;
     begin repeat
     wait(100) if findcolorspiral(x,y,TreeColor1,3,3,515,336)or
     findcolorspiral(x,y,TreeColor2,3,3,515,336)or
     findcolorspiral(x,y,TreeColor3,3,3,515,336)then begin
         mmouse(x,y)
         istextat2(9,9,'Chop',20)
         holdmouse(x,y,true)
         releasemouse(x,y,true)
         wait(2000) end; until(invcount=28) end;

    //Dropping Procedure

    Procedure dropal;
    begin
    DropTo(2,28) end;

    //talking responders

    Procedure autowcrespond; //thanks partly to arr0w

      If (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;

    Procedure autogrettingrespond;

      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)
       TypeSend('Hey') or
       TypeSend('Hi'))
    End;

    Procedure autofriendortraderespond;

     If (InChat(UserName + '?'))Then
     Begin
      wait(2000)
      TypeSend('Yes?') or
      TypeSend('ya?')) then
     Begin
      wait(2000)
      TypeSend('Do I know you?'))

     If (InChat('Yes'))
     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'))

    Procedure macrono;
    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;
      end;
       end;
        end;
         end;
          end;

    //random talking

    Procedure RandomTalking;
    begin
    repeat
          wait(TalkWait+random(60000))
          TypeSend('lalala') or
          TypeSend('Yes WC lvl!') or
          TypeSend('Hey Heyeveryone') or
          TypeSend('700 more to go....') or
          TypeSend('Bored....') or
          TypeSend('Almost there!') or
          TypeSend('he he he') or
          TypeSend('I whish i was a higher lvl'))
    Until(false)



    begin
    Setupsrl;
    declareplayers;
    FindAxeHeadColor;
    repeat
      Cut;
      Randoms;
      if InvFull then DropAllLogs;
    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-Touchup
    //LardMaster-suggestions
    //all the testers

    ya...i know the spacing is messed up :/

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

    Default

    pretty ok for a beginner but this procedure is very bad!
    Procedure RandomTalking;
    SCAR Code:
    begin repeat
          wait(TalkWait+random(60000))
          TypeSend('lalala') or
          TypeSend('Yes WC lvl!') or
          TypeSend('Hey Heyeveryone') or
          TypeSend('700 more to go....') or
          TypeSend('Bored....') or
          TypeSend('Almost there!') or
          TypeSend('he he he') or
          TypeSend('I whish i was a higher lvl')) Until(false)

    first you are missing an end.
    are then if you look though it
    it would continue typing that

    stuff until(false) meaning FOREVER
    instead use a case

    SCAR Code:
    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;

    and yeah. ill look though more of it later.
    what are u asking about random chooping? i don't understand

    This should also be change
    holdmouse and releasemouse are very detactable
    and the 2 second wait should be longer/shorter according to the user

    SCAR Code:
    const
    WaitTime=5 //Seconds to wait
    Procedure Cut;
     begin
    repeat
    if findcolorspiral(x,y,TreeColor1,3,3,515,336)or
     findcolorspiral(x,y,TreeColor2,3,3,515,336)or
     findcolorspiral(x,y,TreeColor3,3,3,515,336)then begin
         mmouse(x,y)
         if istextat2(9,9,'Chop',20) then
        Mouse(x,y,0,0,true)
         wait((WAITTIME*1000)+Random(500))
         until(invcount=28)
    end;

    EDIT: oh just relized you have cutwait as a const. but you don't use it in the right spot =p
    you also dot search for randoms enough at all!

    SCAR Code:
    repeat
    if findcolorspiral(x,y,TreeColor1,3,3,515,336)or
     findcolorspiral(x,y,TreeColor2,3,3,515,336)or
     findcolorspiral(x,y,TreeColor3,3,3,515,336)then begin
         mmouse(x,y)
         if istextat2(9,9,'Chop',20) then
        Mouse(x,y,0,0,true)
         wait((WAITTIME*1000)+Random(500))
         until(invcount=28)
    that makes it cut 28 logs. without looking for randoms at all!
    you may want to add randomfinding in there !

    ahh also. these lines are VERY VERY specific and i belive they are un-needed.
    they are just too specific and i doubt anyone would ask these questiosn much
    SCAR Code:
    If (InChat('Yes')) 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'))
     
    Procedure macrono;
    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')
    i could go on for days =p but hey im glad you are learning to script.
    ill come back later after you update a bit more for more feedback.

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

    Default

    How would I make what Lard suggested? That while it is chopping it would randomly look at its stats?

  14. #14
    Join Date
    Sep 2006
    Location
    Scripter's Heaven
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    just include it in your randoms check and do it after every chop

    And check out my pascal interpreter!
    <R0b0t1> No, really, I went to a bar and picked up a transvestite.

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

    Default

    Quote Originally Posted by lardmaster View Post
    just include it in your randoms check and do it after every chop
    ROFL checking after EACH CHOP is waaaay too mcuh dude.
    i dont think anyone checks their skills after the mine an ore. or cut one log =p


    to make it randomly look at stats do this
    SCAR Code:
    HoverSkill('Woodcut',false)
    make it do that randomly not too often like
    Procedure RandomHover;
    begin
    Case Random (10) of
    5:HoverSkill('Woodcut',false)
    end;
    end;

    or just use
    SCAR Code:
    procedure HoverEvery(mins: Integer; skill: String);
    SCAR Code:
    HoverEvery(10,'Woodcut')
    it woudl look at woodcut xp every 10 mins

  16. #16
    Join Date
    Sep 2006
    Location
    Scripter's Heaven
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    remember, everys should be included in your randoms, because there is no threading in SCAR

    srry about the hoverskill think, i just saw 'what lardmaster was talking about'
    and the only thing i was talking about was running away from fights.

    And check out my pascal interpreter!
    <R0b0t1> No, really, I went to a bar and picked up a transvestite.

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

    Default

    SCAR Code:
    If InFight Then
    Runawaydirection('N')
    Wait(25000+Random(5000))
    RunBack;

    im not sure if runback is a procedure in srl
    i think iv got one somewhere though

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

    Default

    Alright thanks, Ill be sure to add those to version 3, I've got version two done and Im going to release it :P

  19. #19
    Join Date
    Sep 2006
    Location
    Scripter's Heaven
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i believe you need to do runback('N')...

    and i think you need to {.include srl/srl/extended/xmapwalk.scar}

    And check out my pascal interpreter!
    <R0b0t1> No, really, I went to a bar and picked up a transvestite.

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

    Default

    SCAR Code:
    //[A][s]
    //[K][c]
    //[R][r]
    //[I][i]
    //[A][p]
    //[M][t]


    //Author:Akriam
    //Version: 2
    //Script:AutoChopper

    //Insturctions:
    //1.)Start by the willow trees in Draynor
    //2.)Pick Colors
    //3.)Set Ent color in line 80 and 96 (same as tree)
    //4.)Press Start
    //Note:Credits at bottom

    program ultimatechopper;

    {.include SRL/SRL.scar}

    {.include SRL/SRL/Skill/Woodcutting.scar}


    //Constants

    Const
     TreeColor1=125234;   //Set all of these tree colors
     TreeColor2=234634;
     TreeColor3=235234;
     WaitTime=5 //Seconds to wait
     Username=''; //username
     TalkWait=180000; //when character talks (in miliseconds; default is 3 min)

    Procedure updates;
    begin
    writeln('Hello,thanks for using this script!')
    writeln('You are using version 2!')
    writeln('Updates for version three include:')
    writeln('1.)Random mouse movements')
    writeln('2.)Banking')
    writeln('3.)More Random Phrases')

    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[0].Name :=''
     Players[0].Pass :=''
     Players[0].Nick :=''
     Players[0].Active:=True;

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

    end;

    //Randoms; Thanks to "The Prince of Randomness" for this part

    Procedure Randoms;
     begin
      FindNormalRandoms;
      FindHead;
      FindEnt(4156042);
      if not loggedin then RandomNextPlayer(False);

    end;

    Procedure Fightrun;

    If InFight Then
    Runawaydirection('N')
    Wait(25000+Random(5000))
    RunBack;

    end;

    //Cutting Procedure

    Procedure Cut;
     begin
     repeat
     If InFight Then
     Runawaydirection('N')
     Wait(25000+Random(5000))
     RunBack;
     if findcolorspiral(x,y,TreeColor1,3,3,515,336)or
     findcolorspiral(x,y,TreeColor2,3,3,515,336)or
     findcolorspiral(x,y,TreeColor3,3,3,515,336)then begin
         FindNormalRandoms; then
         FindHead; then
         FindEnt(4156042);
         mmouse(x,y) if istextat2(9,9,'Chop',20) then
         Mouse(x,y,0,0,true)
         wait((WAITTIME*1000)+Random(500))
         until(invcount=28)
         if not loggedin then RandomNextPlayer(False);
    end;


    //Dropping Procedure

    Procedure dropal;
    begin
    DropTo(2,28)
    end;

    //AntiBan

    Procedure AntiBan;
     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: DoEmore(1 + Random(20));
         5: BoredEvery(9 + Random (21));
         6: PickUpMouse;
         7: LeaveScreenEvery(1o + Random(5));
         8: RotateEvery(20 + Random(5));
         9: hoverevery(15 + Random(5));
        end;
       end;


    //talking responders

    Procedure autowcrespond; //thanks partly to arr0w
    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
      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)
       if (random(2) = 1) then
       TypeSend('Hey')
       else
       TypeSend('Hi')
      end;
    End;

    Procedure autofriendortraderespond;
    begin
     If (InChat(UserName + '?'))Then
     Begin
      wait(2000)
      if (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;
    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;


    begin
    Setupsrl;
    declareplayers;
    FindAxeHeadColor;
    repeat
      Cut;
      Randoms;
      if InvFull then DropAllLogs;
    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
    //all the testers

    Thats it, Im going to release it now

  21. #21
    Join Date
    Sep 2006
    Location
    Scripter's Heaven
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    suggestion, you dont have to put THEN after every line.

    you need to put THEN BEGIN
    code you want to do if its true
    END

    also, check randoms even if you dont find tree color.

    And check out my pascal interpreter!
    <R0b0t1> No, really, I went to a bar and picked up a transvestite.

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

    Default

    Ok, someone just helped me add the ojectfinding thing instead of the find tree color, after a quick fix I will release version 3 publicly, also what do ya mean check even if it doesnt find color? Also do you have to set the ent color manually or is it just a procedure?

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

    Default

    forgot a semi colon
    SCAR Code:
    WaitTime=5 //Seconds to wait


    forgot a begin
    SCAR Code:
    Procedure Fightrun;
    If InFight Then
    Runawaydirection('N')
    Wait(25000+Random(5000))
    RunBack;
    end;


    you need
    {.include SRL/SRL/Skill/Fighting.scar}
    because InFight in unknown id


    forgot some ifs
    SCAR Code:
    FindNormalRandoms; then
         FindHead; then


    invalid paramaters
    SCAR Code:
    mmouse(x,y)


    something wrong here but idk what

    SCAR Code:
    if istextat2(9,9,'Chop',20) then
         Mouse(x,y,0,0,true)
         wait(((Waittime*1000)+ Random(500)))
         until(InventoryFull)
         if (not (loggedin)) then
         RandomNextPlayer(False);


    Duplicate identifier 'ANTIBAN' in script
    Might wana rename that procedure
    SCAR Code:
    Procedure AntiBan;
    "


    DoEmore" ? I think you mean Do Emote


    ROFL you used a o in the number 10:
    SCAR Code:
    7: LeaveScreenEvery(1o + Random(5));


    Invalid params in
    SCAR Code:
    9: hoverevery(15 + Random(5));
    (forgot to put a skill to hover)


    Forgot an If and a begin
    SCAR Code:
    Procedure autowcrespond; //thanks partly to arr0w begin If (InChat('Wc lvls') or
          InChat('Wc lvls?') or



    Extra )
    SCAR Code:
    InChat('Woodcutting lvls?')) or
    and
    SCAR Code:
    InChat('woodcutting lvls?'))
    (you used it twice)

    and thats all i could see wrong
    i really really suggest testing your scripts before releasing
    at LEAST make sure they compile
    and then make sure it runs for at least one load

    id like to see these changes made =)
    I know you can do it

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

    Default

    Alright Ill do it, and I used that Wc phrase twice because one is capital and one isnt :P I havn't released yet, so I will change those things and then release!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. my first powercutter...
    By thebob142 in forum First Scripts
    Replies: 1
    Last Post: 11-13-2007, 07:23 AM
  2. PowerCutter
    By Miitchyy in forum RS3 Outdated / Broken Scripts
    Replies: 21
    Last Post: 07-09-2007, 06:36 AM
  3. Best Powercutter?
    By Harry in forum News and General
    Replies: 10
    Last Post: 06-26-2007, 12:46 AM
  4. My PowerCutter.
    By kooldude in forum OSR Help
    Replies: 12
    Last Post: 05-22-2007, 02:47 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
  •