Page 2 of 3 FirstFirst 123 LastLast
Results 26 to 50 of 58

Thread: iChopIvy

  1. #26
    Join Date
    Feb 2011
    Location
    Vancouver Island
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Great script! lvl 89 - 96 in4-5 days.
    Maybe add a world switcher?
    Longest Proggy's;

    ---------------- Proggy ----------------
    |--Script ran for: 4:28:48
    |--Gained 294080 Exp.
    |--XP per hour: 65820
    |--And collected 0 nests.
    ------------------ End -----------------

    ---------------- Proggy ----------------
    |--Script ran for: 6:59:2
    |--Gained 437903 Exp.
    |--XP per hour: 62700
    |--And collected 6 nests.
    ------------------ End -----------------

  2. #27
    Join Date
    Dec 2011
    Posts
    193
    Mentioned
    5 Post(s)
    Quoted
    51 Post(s)

    Default

    Quote Originally Posted by mike-gee420 View Post
    Great script! lvl 89 - 96 in4-5 days.
    Maybe add a world switcher?
    Longest Proggy's;

    ---------------- Proggy ----------------
    |--Script ran for: 4:28:48
    |--Gained 294080 Exp.
    |--XP per hour: 65820
    |--And collected 0 nests.
    ------------------ End -----------------

    ---------------- Proggy ----------------
    |--Script ran for: 6:59:2
    |--Gained 437903 Exp.
    |--XP per hour: 62700
    |--And collected 6 nests.
    ------------------ End -----------------

    Wow, nice 7 hour!
    How did the 4:28 one not loot any nests? That just coincidence or was it having problems looting them?

    Thanks for the proggies. I'll put the longer one on the OP.

    OSRS Color Scripts: Borland_Salamanders | Borland_Iron_Ores
    Utilities & Snippets: [Color] OSBuddy Item Looting

  3. #28
    Join Date
    Oct 2007
    Location
    Canada
    Posts
    247
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Maybe you should move this to WC script section. This is a very stable bot and imo better than the one in WC section/

  4. #29
    Join Date
    Feb 2011
    Location
    Vancouver Island
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow, nice 7 hour!
    How did the 4:28 one not loot any nests? That just coincidence or was it having problems looting them?
    Yeah the 4:28 one kept saying it "took to long, leaving this one." or something like that,
    seems to work fine now though.

    two problem's i have noticed are that
    1. At the Cwars spot it sometimes clicks on a tree instead of a nest, but not that often.
    2. At the Cwars spot it sometimes clicks up to the right beside the wall and river, and cant find any ivy. This happens quite a bit.

    Other than those 2 minor things, the script works great thankyou

  5. #30
    Join Date
    Dec 2011
    Posts
    193
    Mentioned
    5 Post(s)
    Quoted
    51 Post(s)

    Default

    Quote Originally Posted by supersain View Post
    Maybe you should move this to WC script section. This is a very stable bot and imo better than the one in WC section/
    I don't think I can move it now.

    If a mod reviews it and thinks it's worthy of being moved out the First Scripts section could they do so please?

    Quote Originally Posted by mike-gee420 View Post
    Yeah the 4:28 one kept saying it "took to long, leaving this one." or something like that,
    seems to work fine now though.

    two problem's i have noticed are that
    1. At the Cwars spot it sometimes clicks on a tree instead of a nest, but not that often.
    2. At the Cwars spot it sometimes clicks up to the right beside the wall and river, and cant find any ivy. This happens quite a bit.

    Other than those 2 minor things, the script works great thankyou
    Hmm, I was having the tree problem at Cwars before I posted the script, I had to edit the DTM a bit so it never clicked it, probably 1 points needs to be a touch down.

    Got a bit of spare time, I'll do it now.

    Edit:
    Fixed the tree thing, I can't seem to replicate the moving thing though, I've got to go away for a couple of days now too If you could post a screenie of the CWars Ivy and mark where it clicks and what happens etc...

    Anyways posted the fix in the attachments it's the _v2. Leaving the original up too, if somehow (can't see how but still) the fix ruins another spot, there's always the first one available until I'm back to fix.

    Enjoy the script guys.

    OSRS Color Scripts: Borland_Salamanders | Borland_Iron_Ores
    Utilities & Snippets: [Color] OSBuddy Item Looting

  6. #31
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    I haven't looked through other people's posts so this may have already been mentioned, but:

    Simba Code:
    procedure DoAntiRans;
    begin
      if not LoggedIn then
        Exit;
      LevelUp;
      LampSkill := LampXpSkill;
      FindNormalRandoms;
      FindNonInventoryRandoms;
    end;
    Surely here you don't want it to just exit if it isn't logged in, and what if it fails a random, you need to check for that.

  7. #32
    Join Date
    Feb 2011
    Location
    Vancouver Island
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    edit:
    Fixed the tree thing, i can't seem to replicate the moving thing though, i've got to go away for a couple of days now too if you could post a screenie of the cwars ivy and mark where it clicks and what happens etc...
    Attachment 12736

    After that it just logs out.

    EDIT:
    Also,
    Hmm, I'll look into the nest thing.
    When it doesn't loot them does it:
    1) Try then give up and go back to ivy.
    2) Try until nest goes.
    3) Just keep chopping?
    The mouse will hover over the nest untill its gone.

    I also get this error and it just logs me out,

    Error: Exception: The given DTM Index[2] doesn't exist at line 80
    The following DTMs were not freed: [SRL - Lamp bitmap, 1]
    The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
    and it highlights "FreeDTM Ivy"

    And,
    Originally Posted by mike-gee420 View Post
    Yeah the 4:28 one kept saying it "took to long, leaving this one." or something like that,
    seems to work fine now though.

    two problem's i have noticed are that
    1. At the Cwars spot it sometimes clicks on a tree instead of a nest, but not that often.
    The problem you fixed in v2 wasn't a problem, The script cant find the nest, not the ivy(Unless you meant nest).
    The script tried finding the nest that dropped, but clicks on the tree because of the angle its looking at. Maybe make it right click the nests?

    And i also got 99wc the other day :]
    Last edited by mike-gee420; 01-06-2012 at 09:53 AM.

  8. #33
    Join Date
    Dec 2011
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    When i hit run it doens't open a client?

  9. #34
    Join Date
    Jan 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lape:
    Exception in Script: File "C:/Simba/Includes/SRL/SRL.scar" not found at line 5, column 7
    pascal:
    Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''

    Any help?

  10. #35
    Join Date
    Dec 2011
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Draconinjaxx View Post
    Lape:
    Exception in Script: File "C:/Simba/Includes/SRL/SRL.scar" not found at line 5, column 7
    pascal:
    Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''

    Any help?
    this script doesn't work with SRL 5, swap back to SRL 4

  11. #36
    Join Date
    Feb 2011
    Location
    Vancouver Island
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Red face

    Originally Posted by Draconinjaxx View Post
    Lape:
    Exception in Script: File "C:/Simba/Includes/SRL/SRL.scar" not found at line 5, column 7
    pascal:
    Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''

    Any help?
    this script doesn't work with SRL 5, swap back to SRL 4
    try waiting a minute after opening the script in simba, then run it?

    EDIT:
    this script doesn't work with SRL 5, swap back to SRL 4
    got to ahead of myself their woops. forgot about srl5
    Last edited by mike-gee420; 01-09-2012 at 06:39 PM.

  12. #37
    Join Date
    Nov 2011
    Posts
    83
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Excellent script, used it from lvl 86 to 99 and just got my cape this morning, extremely impressed, and looking forward to the next script u'll create/release. I gained around 2M as well off nests along the way to 99.

  13. #38
    Join Date
    Nov 2011
    Location
    behind you
    Posts
    202
    Mentioned
    0 Post(s)
    Quoted
    15 Post(s)

    Default

    thanks this script with the combination of shuts script make my way to 99 thanks DDD

  14. #39
    Join Date
    Dec 2011
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah I must agree with the above posters, this is an excellent script. Only issue I've encountered so far is that it sometimes clicks on a tree in the Taverly location with ivies.

  15. #40
    Join Date
    Jan 2012
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    when i try to run the script this pops up

    Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''
    idk y it does that. i entered all the setup required please help.

  16. #41
    Join Date
    Nov 2011
    Posts
    132
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Wow nice first script, better than anything I've ever written.
    havn't tried it out yet cause I hate wcing but might give this a go some time.

  17. #42
    Join Date
    Jan 2012
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how do i switch back to srl4?

  18. #43
    Join Date
    Dec 2011
    Posts
    193
    Mentioned
    5 Post(s)
    Quoted
    51 Post(s)

    Default

    Sorry guys, I've been away just over 2 weeks. Back now and I'll be looking at this script in a couple hours and see what if I can get it working with "SRL 5".

    Glad to see it done well while I was away though.

    OSRS Color Scripts: Borland_Salamanders | Borland_Iron_Ores
    Utilities & Snippets: [Color] OSBuddy Item Looting

  19. #44
    Join Date
    Jan 2012
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    got it to work in srl5, although I'm not entirely sure it works with the new exp counter. but here you go:

    {Script: iChopIvy. =_= Author: Borland}

    program iChopIvy;
    {$DEFINE SMART}
    {$i SRL\SRL.simba}
    {$i sps/sps.simba}
    {$i srl/srl/skill/woodcutting.simba}

    var
    Fails, Ivy, StartTime, StartnExp, NestCoolOff, NestCountr, LogTimer: Integer;

    {------------------- SETUP -------------------}
    CONST
    RunForTime = 180; //How long you want the script to run for (Minutes). Make 9999 for never.
    LampXpSkill = 'Woodcutting'; //What skill genie lamps go on? Cap first letter.
    IvyLoc = 'N'; //The direction your facing when chopping the Ivy: N, S, E or W.

    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1; // Keep it set as 1 (Multiplayer will be added soon)
    NumberOfPlayers(HowManyPlayers); // Don't touch this.
    CurrentPlayer := 0; // Leave as 0 (Multiplayer will be added soon)

    Players[0].Name := ''; // Username
    Players[0].Pass := ''; // Password
    Players[0].Nick := ''; // 3-4 lowercase letters from username; used for random event detection
    Players[0].Active := True; // Leave as true.
    Players[0].Pin := ''; // Don't need for ivy chopping, leave blank.
    Players[0].BoxRewards := ['Xp', 'oins', 'ostume', 'mote', 'aphire', 'ssence'];
    //^^ Arrange above in order of preference. ^^
    end;
    {--------------- RUN AND ENJOY ---------------}

    procedure TurnCam;
    begin
    case IvyLoc of
    'E': if (Round(rs_GetCompassAngleDegrees) > 106) or (Round(rs_GetCompassAngleDegrees) < 74) then
    begin
    Writeln('--Adjusting angle: Ivy East');
    MakeCompass(75 + random(30));
    end;
    'N': if (Round(rs_GetCompassAngleDegrees) > 15) or (Round(rs_GetCompassAngleDegrees) < 345) then
    begin
    Writeln('--Adjusting angle: Ivy North');
    MakeCompass(0 + random(15));
    end;
    'S': if (Round(rs_GetCompassAngleDegrees) > 196) or (Round(rs_GetCompassAngleDegrees) < 164) then
    begin
    Writeln('--Adjusting angle: Ivy South');
    MakeCompass(165 + random(30));
    end;
    'W': if (Round(rs_GetCompassAngleDegrees) > 286) or (Round(rs_GetCompassAngleDegrees) < 254) then
    begin
    Writeln('--Adjusting angle: Ivy WesT');
    MakeCompass(255 + random(30));
    end;
    end;
    SetAngle(SRL_ANGLE_HIGH);
    end;

    procedure ReportLog;
    var
    XpGainedn, XpHr, h, m, s: Integer;
    begin
    (ConvertTime(TimeFromMark(StartTime), h, m, s));
    XpGainedn := GetXPBarTotal - StartnExp;
    XpHr := TimeFromMark(StartTime) / 60000; XpHr := XpGainedn / XpHr; XpHr := XpHr * 60;
    Writeln('---------------- Proggy ----------------');
    Writeln('|--Script ran for: '+IntToStr(h)+':'+IntToStr(m)+':'+IntToStr(s));
    Writeln('|--Gained ' + IntToStr(XpGainedn) + ' Exp.');
    Writeln('|--XP per hour: ' + IntToStr(XpHr));
    Writeln('|--And collected ' + IntToStr(NestCountr) + ' nests.');
    Writeln('------------------ End -----------------');
    end;

    procedure StopScript;
    begin
    ReportLog;
    Logout;
    FreeDTM(Ivy);
    StopSound;
    TerminateScript;
    end;

    function WeNoChop: Boolean;
    begin
    if AveragePixelShift(IntToBox(240, 60, 290, 120), 400, 1200) > 400 then
    Result := True
    else
    begin
    Wait(500 + random(750));
    if AveragePixelShift(IntToBox(240, 60, 290, 120), 400, 1200) > 400 then
    Result := True
    else
    Result := False;
    end;
    end;

    procedure ChopIvy;
    var
    x, y: Integer;
    begin
    Ivy := DTMFromString('mbQAAAHicY2VgYGABYjYGCGAFYnaoGDuUDw LMQJzfH8gQVeLEEFvhwpDV6ccQU+bMIAIUh2EuKM2IBYMBAGTZ Blw=');
    if FindDTM(Ivy, x, y, MSX1, MSY1, MSX2, MSY2) then
    begin
    Wait(400 + random(400));
    repeat
    FindDTM(Ivy, x, y, MSX1, MSY1, MSX2, MSY2)
    MMouse(x, y, 10, 60);
    Wait(300 + random(300));
    until IsUpText('Ivy');
    ClickMouse2(true);
    Fails := 0;
    FreeDTM(Ivy);
    end else
    begin
    Writeln('--No Ivy present. Move to Ivy or switch to emptier world.');
    FreeDTM(Ivy);
    Fails := Fails + 2;
    Wait(20000 + random(10000));
    end;
    end;


    procedure CustFindNest;
    var
    NestTimer, x, y: Integer;
    begin
    if FindColorSpiralTolerance(x, y, 4608080 , 4, 160, MSX2, MSY2, 3) or
    FindColorSpiralTolerance(x, y, 3028021 , 4, 160, MSX2, MSY2, 2) then
    begin
    MarkTime(NestTimer);
    Writeln('--Nest color found.');
    repeat
    MMouse(x, y, 10, 5);
    Wait(200 + random(200));
    until (IsUpTextMultiCustom (['ird', 'nest'])) or (TimeFromMark(NestTimer) > 9000);
    if TimeFromMark(NestTimer) > 9000 then
    begin
    Writeln('--Took to long to loot the nest, leaving this one.');
    MarkTime(NestCoolOff);
    end else
    begin
    Writeln('--Uptext correct');
    ClickMouse2(true);
    NestCountr := NestCountr + 1;
    Wait(1000 + random(500));
    ChopIvy;
    end;
    end else
    Exit;
    end;

    function LookForNest: Boolean;
    begin
    if InvCount > 26 then
    begin
    Writeln('--Didn''t attempt to loot nest, invent near full.');
    Result := False;
    end else
    if TimeFromMark(NestCoolOff) > 70000 then
    Result := True
    else
    Result := False;
    end;

    {function GainingExp: Boolean;
    var
    ChkTime, ExpUpd: Integer;
    begin
    ExpUpd := 0;
    if ExpUpd < 1 then
    ExpUpd := GetXPBarTotal;
    MarkTime(ChkTime);
    if TimeFromMark(ChkTime) > 180000 then
    begin
    ChkTime := 0;
    if ExpUpd <= GetXPBarTotal then
    Result := true;
    else
    begin
    ExpUpd := 0;
    Result := false;
    end;
    end;
    end; }

    function ScriptFails: Boolean;
    begin
    if Fails > 3 then
    begin
    Writeln('--Something went wrong so Failsafe kicked in, stopping.');
    Result := True;
    {end else
    if AllPlayersInactive then
    begin
    Writeln('--AllPlayersInactive');
    Result := True
    end else
    if (not(GainingExp)) then
    begin
    Writeln('--GainingExp false?');
    Result := True;}
    end else
    if TimeFromMark(StartTime) > (RunForTime * 60000) then
    begin
    Writeln('--Ran for desired time, stopping.');
    Result := True;
    end else
    Result := False;
    end;

    procedure SmartSet;
    begin
    Smart_Server := (65);
    Smart_Members := True;
    Smart_Signed := True;
    Smart_SuperDetail := False;
    end;

    procedure DoAntiRans;
    begin
    if not LoggedIn then
    Exit;
    LevelUp;
    LampSkill := LampXpSkill;
    FindNormalRandoms;
    FindNonInventoryRandoms;
    end;

    procedure DoAntiBan;
    begin
    case Random(1501) of
    1..10: begin
    HoverSkill('Woodcutting', false);
    GameTab(25);
    MMouse(0, 0, 730, 460);
    end;
    26..35: PickUpMouse;
    41..50: begin
    RandomAngle(down);
    TurnCam;
    end;
    71..85: begin
    RandomMovement;
    TurnCam;
    end;
    90..95: begin
    BoredHuman;
    TurnCam;
    end;
    101..130: MMouse(0, 0, 730, 460);
    end;
    ChooseOption('ancel');
    end;

    begin
    SetupSRL;

    Writeln('--@-@--I''m Borland! Thanks for using my Ivy Chopper, please report all bugs on the scripts thread, enjoy!--@-@--');
    DeclarePlayers;
    SmartSet;
    ActivateClient;
    Wait(1000 + random(500));
    LoginPlayer;
    Wait(200 + random(800))
    TurnCam; //Writeln('DEBUG: Got to turncam;');
    ToggleXPBar(True); //Writeln('DEBUG: Got to togglexpbar');
    StartnExp := GetXPBarTotal; //Writeln('DEBUG: made startnexp = exp bar ');
    MarkTime(StartTime); //Writeln('DEBUG: marked the time');
    MarkTime(NestCoolOff);

    repeat
    if (not(WeNoChop)) then
    begin
    DoAntiRans;
    SetAngle(SRL_ANGLE_HIGH);
    ChopIvy;
    end else
    begin
    DoAntiban;
    if LookForNest then
    CustFindNest;
    if IsKeyDown(VK_F7) then
    ReportLog;
    if (TimeFromMark(StartTime)) - LogTimer > 600000 then
    begin
    LogTimer := TimeFromMark(StartTime);
    ReportLog;
    end;
    end;
    until(ScriptFails);
    Writeln('--End of script.');
    StopScript;

    end.

  20. #45
    Join Date
    Dec 2011
    Posts
    193
    Mentioned
    5 Post(s)
    Quoted
    51 Post(s)

    Default

    ^ If you would have put that in code tags I might have used it
    I needed to do a bunch of other small changes to so I just updated it to SRL 5 myself.


    Check front page for latest version in attachments (v2.3).
    Just ran it for just over 2 hours, looted 2/2 nests, no other problems.

    Make sure to post here with any bugs or suggestions.

    Thanks.

    -

    Feel like breaking the script, nobody posts when it's all working
    Last edited by Borland; 01-25-2012 at 05:50 PM.

    OSRS Color Scripts: Borland_Salamanders | Borland_Iron_Ores
    Utilities & Snippets: [Color] OSBuddy Item Looting

  21. #46
    Join Date
    Jan 2012
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Nice

    just downloaded this, works flawlessly! Thanks for contributing this.


    This one definantly has the edge, most other ivy choppers don't pickup nests, i really like the fact that this one does.

    thanks bor!

  22. #47
    Join Date
    Dec 2009
    Posts
    98
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    script works GREAT!


    the progress just dont work on smart client but thats no biggie

  23. #48
    Join Date
    Dec 2011
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Great script, it just needs a breaking handle option.

  24. #49
    Join Date
    Dec 2011
    Posts
    193
    Mentioned
    5 Post(s)
    Quoted
    51 Post(s)

    Default

    Quote Originally Posted by Mokwa View Post
    Great script, it just needs a breaking handle option.
    I'm in the middle of making one for my newest script so when I'm done with it I'll copy paste it into this one.

    Quote Originally Posted by l337murd3r View Post
    script works GREAT!


    the progress just dont work on smart client but thats no biggie

    If you mean it doesn't show on smart as an overlay then it's because I haven't made it to do so, I hardly use smart so never think of it.

    If You're saying it doesn't even show in the debug of Simba then that's a problem.

    OSRS Color Scripts: Borland_Salamanders | Borland_Iron_Ores
    Utilities & Snippets: [Color] OSBuddy Item Looting

  25. #50
    Join Date
    Nov 2011
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice one

Page 2 of 3 FirstFirst 123 LastLast

Thread Information

Users Browsing this Thread

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

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •