Results 1 to 11 of 11

Thread: YetAnotherWillowCutter by Coatrackofsatan

  1. #1
    Join Date
    Jun 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default YetAnotherWillowCutter by Coatrackofsatan

    This cuts willows in Draynor
    Start it in the Draynor Bank
    I need help with Anti-Randoms and Anti-Ban(case/of won't work for some reason)
    It's very short right now
    As I am aiming to shorten the length of these scripts
    I'm also working on one that cuts from Port Sarim Willows and banks at draynor (because the other one posted on here is over 2000 lines!)
    Don't Flame Please I'm pretty new to SCAR
    Thanks

  2. #2
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    ok... i got a few suggestions for you.

    first of all... when walking to the willows, i see you are using radialwalk. this probably won't work mostof the time because it requires that exact colour and the colours very dynamic on runescape.

    secondly... on the way back, why dont you just make the script click the bank symbol. no need for radial walking.

    thirdly:
    SCAR Code:
    If(FindColorSpiral(x,y,5362424,567,10,727,142) and FindColorSpiral(x,y,12894414,567,10,727,142)) then;
        Mouse(x,y,0,0,True)
        wait(5000)

    i think you want 'or' instead of 'and'. because currently, it will only work if both colours are found exactly. you should also add a tolerance so that the colour doesn't have to be exact but just similar.

    lastly, when you are phrase 'Bank booth' because parts of the phrase might we covered up or something and the script cant find it. you should only use parts of the phrase or word such as 'ooth' or 'ank' or 'nk bo'.

    other than that, nice first script. keep it up.

  3. #3
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    Hmm i see, Its something like my first script

    Well i can see you need to fix the standards (Which i hate )

    Also you need to add Antirandoms + Ban to the script.

    Also multiplayer is the biggest thing in macroing.


    As i look through the script, i can see it will not work at all, due to the radial walk because your finding a road color and there isnt any raod near the willows.

    But good try for a first script.

  4. #4
    Join Date
    Dec 2006
    Posts
    173
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice first script! It looks like you put some effort in this( which is always good)! Here are some fixes:

    Scripting standards
    Anti Ban and Anit Randoms
    Multiplayer(you put in switch players but no player array)
    Radialwalking

    If you need further help private message me and I would be glad to help you!
    Starting to merchant, if you know of any good clans, PM me please.

  5. #5
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    Macho radialwalk is a bit advanced for a beginger but if u want to learn it here is my guide:

    Click here to view the Radial Walk guide

  6. #6
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by bobbohobbo View Post
    Macho radialwalk is a bit advanced for a beginger but if u want to learn it here is my guide:

    Click here to view the Radial Walk guide
    not really, as long as you use the Radial Walking Aid by yakman and remember to SetupSRL. Thats what stuffed me up when i first tried it in my scripts.

  7. #7
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok, I put some antiban and antirandoms in the script straight from my fighter...

    I also standardised it for you:

    SCAR Code:
    ///////////////Coatrackofsatan's Willow Cutter/////
    ///////////////YES I NEED BETTER ANTI-RANDOMS//////
    //////////////AND SOME ANTIBAN....////////////////
    /////////////IF YOU WANT TO HELP, EMAIL ME////////
    ////////////COATRACKOFSATAN@GMAIL.COM///////////
    ////////////ENJOY!/////////////////////////////
    program YetAnotherWillowCutter;
    {.include /SRL/SRL.scar}
    {.include /SRL/SRL/extended/xMapWalk.scar}
    {.include /SRL/SRL/skill/woodcutting.scar}
    {.include srl/srl/extended/xAntiBan.scar}

    const
      WillowColor = 2379848;
      FarmingColor = 3104359;
      LoadsToCut = 50;

    var NNBMP, LogDTM, loads, NumLogins: integer;

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

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

    procedure Progress;
    begin
      ClearDebug;
      WriteLn('YetAnotherWillowCutter')
        WriteLn('----------------------')
        WriteLn('LoadsCut:' + InttoStr(loads))
        WriteLn('LoadsRemaining:' + InttoStr(loadstocut - loads))
    end;

    procedure AvoidBan;
    begin
      case 1 + random(5) of
        1: MMouse(400, 10, 399, 9);
        2: GameTab(3 + Random(2));
        3: RandomRClick;
        4: AlmostLogout;
        5: PickUpMouse;
        6: BoredHuman;
        7: MouseBox(MSX1, MSY1, MSX2, MSY2, 7);
      end;
      GameTab(4);
    end;

    procedure Chop;
    var x, y: integer;
    begin
      repeat
        if (FindColorSpiral(x, y, WillowColor, 0, 0, 760, 505)) then ;
        if (FindEnt(WillowColor)) then ;
        begin
          AvoidBan;
          SleepAndMoveMouse(4123 + random(46));
        end;
        FindNormalRandoms;
        Mouse(x, y, 0, 0, False)
          AvoidBan;
        ChooseOption(x, y, 'hop d')
          if (inchat('swing')) then
          SleepAndMoveMouse(4325 + random(1000));
      until (InvFull)
    end;

    procedure Bank;
    var x, y: integer;
    begin
      repeat
        if (FindObj(x, y, 'Bank booth', 5066848, 9)) then ;
        begin
          FindNormalRandoms;
          AvoidBan;
          Mouse(x, y, 0, 0, False)
            ChooseOption(x, y, 'quickly')
            Wait(3000)
            if (BankScreen) then ;
          begin
            FindDTM(LogDTM, x, y, 599, 208, 733, 458)
              Mouse(x, y, 0, 0, False)
              ChooseOption(x, y, 'All')
          end
        end
        CloseBank;
      until (InvCount < 4)
    end;

    procedure WalkToWillows;
    var x, y: integer;
    begin
      MakeCompass('N')
        FindNormalRandoms;
      AvoidBan;
      RadialWalk(1593380, 181, 270, 75, 0, 0);
      Flag;
    end;

    procedure WalkBack;
    var x, y: integer;
    begin
      MakeCompass('N')
        AvoidBan;
      RadialRoadWalk(RoadColor, 0, 179, 75, 0, 0);
      Flag;
      if (FindColorSpiral(x, y, 5362424, 567, 10, 727, 142) and FindColorSpiral(x, y, 12894414, 567, 10, 727, 142)) then ;
      Mouse(x, y, 0, 0, True)
        wait(5000)
    end;

    begin
      LogDTM := DTMFromString('78DA638C676060F0634001EEA69C0C0F81342' +
        '310FF0702C64420239C010D302291403A0C48441050E30F248208' +
        'A8C905128104D464821C49404D3A9008C5AF06005AEA0A55');
      loads := 0
        NumLogins := 0
        SetupSRL;
      DisguiseScar('foobar2000')
        DeclarePlayer;
      ActivateClient;
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
      if not (LoggedIn) then ;
      LoginPlayer;
      FindNormalRandoms;
      HighestAngle;
      MakeCompass('N')
        repeat
        repeat
          Progress;
          SetRun(True)
            WalkToWillows;
          Chop;
          WalkBack;
          Bank;
          loads := loads + 1
        until (loads >= loadstocut)
          NextPlayer(True);
        NumLogins := NumLogins + 1
      until (HowManyPlayers <= NumLogins)
    end.
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  8. #8
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    SCAR Code:
    procedure AvoidBan;
    begin
      case 1 + random(5) of
        1: MMouse(400, 10, 399, 9);
        2: GameTab(3 + Random(2));
        3: RandomRClick;
        4: AlmostLogout;
        5: PickUpMouse;
        6: BoredHuman;
        7: MouseBox(MSX1, MSY1, MSX2, MSY2, 7);
      end;
      GameTab(4);
    end;

    SantaClause, your antiban procedure will never do MouseBox because you have only put 1+ random(5) not 1+random(7);

  9. #9
    Join Date
    Mar 2007
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    \quote\crap script!!!! wont work for me

  10. #10
    Join Date
    Jun 2007
    Location
    Tampa, FL
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    the first script i tired to write was a cow hide banker but the cow killing part screwed up alot, and then WT-Fawaki made his and i just gave up on it, but it was 800+ at the time.
    Can't sleep Clowns will eat me
    Can't eat Clowns will sleep with me

  11. #11
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by pdog View Post
    \quote\crap script!!!! wont work for me
    can you do any better!?!?

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
  •