Results 1 to 11 of 11

Thread: Oakcutter||2pacfa

  1. #1
    Join Date
    Jun 2007
    Location
    Drugs are bad mkay?
    Posts
    111
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Oakcutter||2pacfa

    Hello,My oakcutter.
    Smart version and non smart version.
    Post bugs proggys what you'd think of it..
    i'll be glad to hear them
    Current Scripts:
    OakZZ!||Done!!!!
    WillowZZ!||Done!!!!
    ChickenZZ!||Done!!!!
    KaramjaFisher||Done!!!!
    Firemaking||Busy!!!!
    http://www.fenjer.com/adnan/SRLStats/4708.png

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

    Default

    Ok sounds good but give us some information.

    Does it have antirandoms/antiban.
    where does it cut or is it a powerchopper?

  3. #3
    Join Date
    Jun 2007
    Location
    Drugs are bad mkay?
    Posts
    111
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    powerchopper full antirandoms and ent avoider and detects fights i prefer to start in draynor near the oak
    Current Scripts:
    OakZZ!||Done!!!!
    WillowZZ!||Done!!!!
    ChickenZZ!||Done!!!!
    KaramjaFisher||Done!!!!
    Firemaking||Busy!!!!
    http://www.fenjer.com/adnan/SRLStats/4708.png

  4. #4
    Join Date
    Sep 2006
    Posts
    199
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Excellent ill give you a proggie soon.

    EDIT1: Doesnt actually chop oaks just examines them then does all the antiban moving mouse around hover over skills(which it does far too much you need to tone that down a bit)
    So really ive got nothing to say since it doesnt actually do anything.
    EDIT2: Ok I edited the colours to 1518376 and it works great ill give you a proggie later im busy atm.

  5. #5
    Join Date
    Jun 2007
    Location
    Drugs are bad mkay?
    Posts
    111
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok glad to hear it
    My new proggy:Killing oakZZ! for:2 Hours, 24 Minutes and 7 Seconds
    Current Scripts:
    OakZZ!||Done!!!!
    WillowZZ!||Done!!!!
    ChickenZZ!||Done!!!!
    KaramjaFisher||Done!!!!
    Firemaking||Busy!!!!
    http://www.fenjer.com/adnan/SRLStats/4708.png

  6. #6
    Join Date
    Jun 2007
    Location
    Drugs are bad mkay?
    Posts
    111
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    got a proggy?
    Current Scripts:
    OakZZ!||Done!!!!
    WillowZZ!||Done!!!!
    ChickenZZ!||Done!!!!
    KaramjaFisher||Done!!!!
    Firemaking||Busy!!!!
    http://www.fenjer.com/adnan/SRLStats/4708.png

  7. #7
    Join Date
    Dec 2006
    Posts
    281
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    ok, well im looking at it right now and it seems like you havnt payed too much attention to it, when it finds the tree color it waits 20 seconds before seeing if its the right one and clicking it if it is, it says 20000 thats 20 seconds, so i changed it to 2000, also maybee have the user specify the color of the oak, i always dought you wrote much of this by yourself because one procedure is drop ores? isnt this a power chopper lol, also srl has some pretty good procedures, so maybee next time just use ''findent;'' its great. Now, in your talking procedure, do you really think people are going to say those exact words? no i didnt think so so maybee change them to something more general, i just took them out because iof you want to make a usefull one it ill have to be more complex, also isuptext isnt going to do jack if there isnt the right text , so you have to have if isuptext(.whateve.) then. i also decided not to fix your standards they need a little work also, in the isuptext you have to have the script move the moouse to were it found the color first , i finda editied it and put in a new tree finding procedure wich may be better may be worse i dunno, it may not be the greatest but here it is.

    SCAR Code:
    //Hello,This is My OakZZ! script.
    //Start
    //Yeah, this Script is dedicated to all the Scripters that told me
    //I'd never amount to nothin', to all the people that lived above the
    //buildings that I was hustlin' in front of that called the police on
    //me when I was just tryin' to make some money to feed my daughters,
    //and all the niggaz in the struggle, you know what I'm sayin'?
    //Haha its all good...
    //Credits:Pvh The best!, NaumanAkhlaQ
    Program OakZZ;
    {.include SRL/SRL.scar}
    {.include srl/srl/skill/woodcutting.scar}
    const
    OakColor  = 3234387;//Oak Color
    OakColor1 = 1851705; // oak Color Again


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

      Players[0].Name := 'Username';
      Players[0].Pass := 'Password';
      Players[0].Nick := 'nto';
      Players[0].Active := True;//Player active or not??

    {  Players[1].Name := 'username';
      Players[1].Pass := '';
      Players[1].Nick := '';
      Players[1].Active := True;//Player active or not??

      Players[2].Name := 'username';
      Players[2].Pass := '';
      Players[2].Nick := 'Nickname';
      Players[2].Active := True;//Player active or not??

      Players[3].Name := 'username';
      Players[3].Pass := '';
      Players[3].Nick := 'Nickname';
      Players[3].Active := True;//Player active or not??

      Players[4].Name := 'username';
      Players[4].Pass := '';
      Players[4].Nick := 'Nickname';
      Players[4].Active := True;//Player active or not??}


    //add more players if u need them...
    end;


    Procedure Randoms;
     Begin
       FindTalk;
       FindNormalRandoms;
       solveChatRandom;
       FindLamp ('Mining') //Uses lamp on that skill
       DwarfItem;
     If (FindFight)Then
      Begin
       MakeCompass ('N')
       RunTo('E', True)
       Wait(7000 +Random(3000));
       RunTo('W', True);
     End;
    End;

    procedure AntiBan;
    begin
      case random(15) of //do a random number so it won't always perform the antiban
        0: RandomRClick;
        1: BoredHuman;
        2: HoverSkill('Woodcutting', False);
        3: AlmostLogout;
      end;
    end;

    Procedure Oakzz;
    var
    X,y: integer;
      begin
      repeat
        if FindObjCustom(x, y, ['Oak'], [OakColor1, OakColor], 1)   then
        begin
        wait(1000)
        Writeln('found oak cutting')
        MMouse(x, y, 0, 0)
          if Isuptext('Oak') then
          begin
          Mouse(x,y,7,7,true);
          exit;
          end;
          end else
          if FindObjCustom(cx, cy, ['Oak'], [OakColor1, OakColor], 1)   then
          begin
          wait(1000)
          MMouse(x, y, 0, 0)
          if Isuptext('Oak') then
          begin
            Mouse(x,y,7,7,true);
            exit;
            end;
          End;
       until(invfull)
    END;


    Procedure Drop;
    Var
        logdtm, x, y: integer;
    Begin
      if InvFull then
      begin
      If Not (LoggedIn)  Then exit;
      logdtm := DTMFromString('78DA63CC63626078C880029A536D18FE03694' +
        '620FE0F048C054035EF18D000231209A463816A9E135093015473' +
        '87809A3222D45413B60B0046720E26');
        gametab(4);
        Repeat
          If finddtm(logdtm, x, y, MIX1, MIY1, MIX2, MIY2) Then
          Begin
            Mouse(x, y, 3, 3, false);
            Begin
              wait(random(200) + 100);
              chooseoption('rop');
              wait(800 + random(400));
            End;
          End;
        Until (Not (finddtm(logdtm, x, y, MIX1, MIY1, MIX2, MIY2)));
        freedtm(logdtm);
        Begin
            findNormalRandoms;
        end;
      end;
    End;




    procedure CheckEnt;//THANKS TO Hy71195
    var
      eex, eey, cx, cy : integer;
    begin
      if FindColorTolerance(eex, eey, 388075, 85, 15, 115, 15, 30) then
      begin
        WriteLn('Ent Found! ~Advoiding~');
        DoEmote(4);
        wait(12000+Random(1000));
        Inc(EntsAvoided);
        Entsavoided:=entsavoided+1
        SrlRandomsReport;
        findEnt(cx,cy,false)
      end;
    end;


    begin
      SetupSRL;
      DeclarePlayers;
      ActivateClient;
       repeat
         Repeat
          writeln( 'Killing oakZZ! for:' + TimeRunning );
          Oakzz;
          Randoms;
          AntiBan;
          Drop;
          Checkent;
        Until(Not(LoggedIn)) or (FindDead)
        If Not LoggedIn or FindDead then
         Begin
          NextPlayer(False);
        Writeln('Thanx PVH for all the help!!!!!!!!!')
       end;
     Until(False);
    End.
    YoHoJo Is My Daddy
    We do not break any laws. We merely play "against the rules". We cheat. Thats what we are good at,thats what we do."
    WT-Fakawi

  8. #8
    Join Date
    May 2007
    Location
    Location:= USA
    Posts
    238
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    um belgin? Do you see something wrong in the edited script you posted?

    EDIT: Nevermind, you fixed.

    EDIT EDIT: And for the script, when finding the obj, either keep it or use TPA's(TPA better), and up the tolerance to about 15-18. Not 1...

    And use better standards.
    Please, I need money, and you don't lose anything, except get money! Join BUX.TO with http://bux.to/?r=twistedvip50

  9. #9
    Join Date
    Jul 2007
    Location
    Mo-Town
    Posts
    259
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Erm... see anything wrong with this line? I know it's not yours but -

    SCAR Code:
    procedure CheckEnt;//THANKS TO Hy71195
    var
      eex, eey, cx, cy : integer;
    begin
      if FindColorTolerance(eex, eey, 388075, 85, 15, 115, 15, 30) then
      begin
        WriteLn('Ent Found! ~Advoiding~');
        DoEmote(4);
        wait(12000+Random(1000));
        Inc(EntsAvoided);
        Entsavoided:=entsavoided+1
        SrlRandomsReport;
        findEnt(cx,cy,false)
      end;
    end;

    It does "Inc(EntsAvoided);" Then does "Entsavoided:=entsavoided+1" I'm guessing (from sort of knowing hy's scripting) That "Inc(EntsAvoided);" is from Hy and I'm guessing that you didn't know what that meant so you added "entsavoided:=entsavoided+1" based on how none of it is capitalized and seems kinda nubish. Just so you know, they both do the same thing. Inc(EntsAvoided); adds one to the Variable "EntsAvoided" while the other one also does that. So basically you make it say it has dodged 2 ents each time it finds one.

    EDIT:::
    One more thing - Belgin, Why did you bump this? It was like 3 months old when you replied.
    Quote Originally Posted by Napolean
    In Politics, Stupidity is Not a Handicap
    Quote Originally Posted by Unknown
    Marriage is like a bank. You put it in, Pull it out, then lose interest.

  10. #10
    Join Date
    Jul 2008
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ure script isnt very good... all it does is examine trees...

  11. #11
    Join Date
    Dec 2006
    Posts
    281
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    sorry lol, i didnt realise, i just saw it near the top of the script page
    YoHoJo Is My Daddy
    We do not break any laws. We merely play "against the rules". We cheat. Thats what we are good at,thats what we do."
    WT-Fakawi

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. My oakcutter need help!!!
    By 2pacfan in forum OSR Help
    Replies: 6
    Last Post: 04-26-2008, 08:01 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
  •