Results 1 to 18 of 18

Thread: ProIvy [BestXP]

  1. #1
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default ProIvy [BestXP]

    ProIvy!

    Current Version: 1

    Intro
    • The best Woodcutting XP in the game!
    • P2P
    • Sign up for SRL stats at this site. This ensures that when you use this script, it will be added to yours (and the script's) total stats. Dare to become the best? Your User ID can be found in bold lettering under the Profile tab after you sign up.
    • To run this script you will need Scar (Latest - 3.23) and SRL OpenDev


    Features:
    • Best XP in the game!
    • Cuts Ivy at North Fally
    • Multi Player
    • SMART
    • Safe - AntiRandoms and AntiBan
    • Super fast Ivy detection



    Bugs/Suggestions/To Do List:
    • I will add all Ivy location compatibility


    Instructions:
    • Fill in DeclarePlayers
    • Insert your SRL Stats info
    • Click run!



    Please post Progress reports otherwise I will move to Members.

    Have Fun!
    T~M

    [RM: Removed due to impropper crediting / plagiarism]
    Last edited by Sir R. M8gic1an; 02-19-2010 at 12:33 PM.

  2. #2
    Join Date
    Sep 2009
    Posts
    580
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    WHAT? FIRST POST?

    Reserved for proggy!
    I don't check this place often, sorry.

    Currently working on - Software Engineering degree. Thank you SRL for showing me the one true path

  3. #3
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default

    cheers Cigue

  4. #4
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default

    Redownload please.
    Minor Update

  5. #5
    Join Date
    Sep 2009
    Posts
    580
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I got type mismatch on first version >.< running second one.

    Updated my list of scripts to include this one

    EDIT you left your info in the script man

    RE EDIT it opens script, looks at my inventory, logs out and returns

    Creating the NickTPA.
    d

    By the way, this looks a lot like you modified a WC script. Whose was it originally?
    Last edited by Cigue; 01-22-2010 at 07:24 PM.
    I don't check this place often, sorry.

    Currently working on - Software Engineering degree. Thank you SRL for showing me the one true path

  6. #6
    Join Date
    Feb 2006
    Location
    Pennsylvania
    Posts
    1,524
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Clean up this script. It is quite messy at the top + not all the code is standardized.

    On a side note, I'll test this with my wcer later

  7. #7
    Join Date
    Apr 2008
    Location
    Marquette, MI
    Posts
    15,252
    Mentioned
    138 Post(s)
    Quoted
    680 Post(s)

    Default

    Quote Originally Posted by The Man View Post
    [*]Sign up for SRL stats at this site. This ensures that when you use this script, it will be added to yours (and the script's) total stats. Dare to become the best? Your User ID can be found in bold lettering under the Profile tab after you sign up.
    Lol, did you take that directly from my thread? You need to add a link on the word "this".

  8. #8
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default

    @Cigue where is your axe?
    also, i edited my ProWoodcutter.
    @Bebe, yeh it is very messy I tried to just get it our quickly.
    @Coh3n, yes I did I am a very lazy person and will do, cheers.

    I had to go out to footy straight away, i am nearly home and will update.

  9. #9
    Join Date
    Sep 2009
    Posts
    580
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    @ The Man : dragon hatchet, equipped.
    I don't check this place often, sorry.

    Currently working on - Software Engineering degree. Thank you SRL for showing me the one true path

  10. #10
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default

    Oh, that would be why :$
    Haven't added dragon hatchet yet Sorry

  11. #11
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    SCAR Code:
    function GetAnimation: Integer;
    var
      I : Integer;
    begin
      I := SmartGetFieldObject(0, 'at.N');
      Result := SmartGetFieldInt(I, 'W');
      SmartFreeObject(I);
    end;

    Happy Birthday.

  12. #12
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default

    Sorry I couldn't fix the proggy
    I have though got a fixed working version.

    Cheers
    T~M

  13. #13
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    You are still using A LOT of things from my WCer. Give credit where due.

    SCAR Code:
    TTree = record
        Name  : string;
        Uptext    : TStringArray;
        Color     : Integer;
        Tol       : Integer;
        Hue       : extended;
        Sat       : extended;
        width     : integer;
        hight     : integer;
        Level     : integer;
      end;

    SCAR Code:
    TLocation = record
        BankName      : string;
        WalkToBank    : function: boolean;
        WalkToTree    : function: boolean;
        TreesAvailable: Array of TTree;
      end;

    SCAR Code:
    Procedure TakePic;
    begin
      TakeScreenshot(ScriptPath + ScriptName + IntToStr(PicN));
      Inc(PicN);
      Inc(Stats_CustomVars[2]);
    end;

    duh, RMDebug, wonder who that might be by.
    SCAR Code:
    Procedure RMDebug(str: string);
    begin
     // if not DebugMe then exit;
      writeln(TheTime +' : '+Players[CurrentPlayer].Name+' : '+str);
    end;


    SCAR Code:
    Function CheckAxe: boolean;
    var
      CT, i, x, y : Integer;
      TC: TIntegerArray;
    begin
      SetLength(TC, 2);
      CT := GetCurrentTab;
      if CT = tab_inv then
        TC := [tab_Inv, tab_Equip]
      else
        TC := [tab_Equip, tab_Inv];

      for i:= 0 to 1 do
      begin
        GameTab(TC[i]);
        if FindDTM(AxeDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          Result := true;
           begin

           end;
          Players[CurrentPlayer].Booleans[0] := (TC[i] = tab_Equip);
          if Players[CurrentPlayer].Booleans[0] then
            RMDebug('Axe is Equipped')
          else
            RMDebug('Axe in Inv');
          exit;
        end;
      end;

      if i > 1 then
      begin
        LogOut;
        Players[CurrentPlayer].Active := false;
        Players[CurrentPlayer].Rand := 'No Axe';
      end;
    end;

    SCAR Code:
    Function LoadTree(which: string): TTree;
    begin
      case lowercase(which) of
        'ivy':
          with Result do
          begin
            Name := 'ivy';
            UpText := ['p Iv', 'Ivy'];
            Color := 2508085;
            Tol := 3;
            Hue := 0.18;
            Sat := 0.22;
            width := 62;
            hight := 10;
            Level := 68;
          end;
      end;
    end;


    SCAR Code:
    Function LoadLocation(which: string): TLocation;
    begin
      case lowercase(which) of
        'power':
          with Result do
          begin
            BankName := '';
            WalkToBank := @Empty;
            WalkToTree := @Empty;
            TreesAvailable := [ LoadTree('ivy')  ];
          end;
      end;
    end;

    SCAR Code:
    Function CheckTreeAndLoc(Loc: TLocation; Tree: TTree) : boolean;
    var
      i : integer;
    begin
      With loc do
        for i:= 0 to High(TreesAvailable) do
        begin
          Result := (Tree.Name = TreesAvailable[i].Name);
          if Result then break;
        end;
    end;

    SCAR Code:
    function FindTree(which: TTree; var fx, fy: Integer): Boolean;
    var
      arP: TPointArray;
      ararP: T2DPointArray;
      tmpCTS, i, arL: Integer;
      P: TPoint;
    begin
      RMDebug('FindTree');
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(which.Hue, which.Sat);

      if not(FindColorsTolerance(arP, which.Color, MSX1, MSY1, MSX2, MSY2, which.Tol)) then
      begin
        Writeln('Failed to find the color, no object found - '+Which.Name);
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;

      ararP := TPAtoATPAEx(arP, which.width, which.hight);
      SortATPAFromFirstPoint(ararP, Point(MSCX, MSCY));
      arL := High(ararP);

      for i := 0 to arL do
      begin
        P := MiddleTPA(ararP[i]);
        MMouse(P.x, P.y, 5, 5);
        if (WaitUptextMulti(which.UpText, 250)) then
        begin;
          Result := True;
          GetMousePos(fx, fy);
          Break;
        end;
      end;

      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if (i = arL + 1) then
      begin
        Writeln('FindObject could not find object - '+which.Name);
        Exit;
      end;
    end;

    SCAR Code:
    Function FollowTree(which: TTree; var x, y: integer):boolean;
    var
      Color, Time, Count : integer;
    begin
      RMDebug('FollowTree');
      Result := WaitUpTextMulti(Which.UpText, 500);
      GetMousePos(x,y);
      Color := GetColor(x, y);
      Time := GetSystemTime + 5000;
      Count := InvCount;
      repeat
        wait(25);
        if not SimilarColors(GetColor(x, y), color, 10) then
          if not FindColorTolerance(x, y, Color, x - 12, y - 12, x + 12, y + 12, 10) then
          begin
            Result := false;
            exit;
          end;
        if InvCount > Count then break;
      until(GetSystemTime > Time)
      wait(Random(200));
      MMouse(x, y, 5, 5);
      GetMousePos(x, y);
    end;


    SCAR Code:
    {Function WaitUntilCut(which: TTree; x, y:integer): boolean;
    var
      Color, Time, x2, y2, Counts, NextCount: integer;
      ThaResult : Boolean;
    begin
      RMDebug('WaitUntilCut');
      Writeln('WaitUntilCut');
      Result := true;
      GetMousePos(x,y);
      Color := GetColor(x, y);
      Time := GetSystemTime + (5+Random(3))*1000;
      NextCount := InvCount + 1;
      repeat
       AntiRandoms;
       AntiBan;
        if ClickContinue(false, false) then
        Inc(Stats_CustomVars[5]);

        if GetSystemTime > Time then
        begin
          Time := GetSystemTime + (5+Random(3))*1000;

          GetMousePos(x2, y2);
          if Distance(x, y, x2, y2) > 10 then
            MMouse(x, y, 3, 3);

          if not WaitUpTextMulti(Which.UpText, 500) then
          begin
            RMDebug('WaitUntilCut - No Text');
            Result := false;
            break;
          end;
         SwitchWorlds;
        end;

        wait(250);
        if not SimilarColors(GetColor(x, y), Color, 15) then
          if not FindColorTolerance(x, y, Color, x - 7, y - 7, x + 7, y + 7, 15) then
          begin
            RMDebug('WaitUntilCut - no color');
            Result := false;
            break;
          end;
        wait(250);
        if InvFull then
        begin
          RMDebug('WaitUntilCut - InvFull');
          Result := false;
          break;
        end;

        {if not WaitInvCount(NextCount, 250) then
        begin
          Inc(Counts);
          if Counts > (Players[CurrentPlayer].Integers[2] / 500) then
          begin
            RMDebug('WaitUntilCut - NoInvCount');
            Result := false;
            break;
          end;
        end else begin
          NextCount := InvCount + 1 ;
          Counts := 0;
        end;   }


       {wait(750);
      until(False);
    end;}

    SCAR Code:
    Function ChopTree(which: TTree): boolean;
    var x, y, T:integer;
      Location :string;
    begin
      if not LoggedIn then Exit;
      Location := Players[CurrentPlayer].Loc;
      Result := true;
      FindNormalRandoms;
      wait(random(500));
      RMDebug('chop tree');
      if not FindTree(which, x, y) then
      begin
        T := GetSystemTime;
        repeat
          AntiRandoms;
           case Random(2) of
             0: Wait(200 + Random(500));
             1: SleepAndMoveMouse(400 + Random(1000));
           end;
           If (GetSystemTime - T > 60000) then
           begin
            writeln('couldn''t find tree?');
            Result := false;
            exit;
           end;
        until FindTree(which, x, y);
      end;
     
      if FindTree(which, x, y) then
      begin
        case Random(5) of
          0..3: Mouse(x, y, 0, 0, True);
          4:
          begin
            Mouse(x, y, 0, 0, False);
            if (not WaitOption('ine R', 250)) then Exit;
          end;
        end;
        if not WaitUntilCut(which, x, y) then Exit;
      end;
       
      Proggy;
      Writeln('End of Chop Tree');
      Writeln('Done Chop Ivy, +1');
    end;

    SCAR Code:
    Procedure TakeCareOfStuff(bank: boolean);
    var
      i, c, x, y : integer;
      TB : TBox;
    begin
      if not InvFull then exit;
      FindNormalRandoms;
      TakePic;
      GameTab(tab_Inv);
      Inc(Players[CurrentPlayer].Banked);
      if Players[CurrentPlayer].Booleans[0] then
      begin
        if Bank then
          DepositAll
        else
          DropAll;
        exit;
      end;

      for i:= 1 to 28 do
      begin
        if not ExistsItem(i) then continue;
        TB := InvBox(i);
        if not FindDTM(AxeDTM, x, y, TB.x1, TB.y1, TB.x2, TB.y2) then
          if Bank then
            Deposit(i, i, true)
          else
            DropItem(i);

      end;
      FindNormalRandoms;
    end;

    SCAR Code:
    Procedure SwitchPlayers;
    var t, r: integer;
    begin
      begin
        if (PlayersActive > 1)or(not LoggedIn) then
        begin
          LogOut;
          NextPlayer(Players[CurrentPlayer].Active);
          PlayerSetup;
          exit;
        end;
        IncEx(Players[CurrentPlayer].Worked, TimeFromMark(RestTime));
        Disguise('working');
        PlayerSetup;
      end;
    end;

    ~RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  14. #14
    Join Date
    Jan 2010
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    was very good i got : by The Man ]
    [=========================================]
    [ Time Running : 36 Minutes And 4 Seconds ]
    [ EXP Gained : 0 ]
    [=========================================]
    [ ProWoodcutter 1.0 ]
    [=========================================]

    it stopped because he got lost. ill restart it and give it another run. will be in touch for the new proggie

  15. #15
    Join Date
    Jan 2010
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it worked good this time. :[==========================================]
    [ ProWoodcutter 1.0 ]
    [ by The Man ]
    [==========================================]
    [ Time Running : 55 Minutes And 31 Seconds ]
    [ EXP Gained : 0 ]
    [==========================================]
    [ ProWoodcutter 1.0 ]
    [==========================================]


    manually stoped it cauz i needed to go out

    EDIT: i just logged on it and was found at white knight castle? im no expert at scripting but mabye you should make something incase it gets lost you make it telly to fally den walk it back? that wood b very usefull in alot of times jus making a suggestion

  16. #16
    Join Date
    Feb 2007
    Posts
    77
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    idk what the problem is but when i start this script it brings up SMART but then sits there and does nothing am i doing something wrong or missing something?

  17. #17
    Join Date
    Aug 2009
    Location
    Inside the Matrix...yes it has me, and it has you too.
    Posts
    1,896
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by zenith22 View Post
    idk what the problem is but when i start this script it brings up SMART but then sits there and does nothing am i doing something wrong or missing something?
    Not you.
    LoginPlayer is currently broken AFAIK.
    In layman's terms, no script can log you in right now.

    Try later, or tomorrow, the SRL Developers are working on this problem as you read this probably, so don't worry, things'll be up n runnin soon enough .
    NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN

  18. #18
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    I'm closing this script down due to impropper crediting. Over three weeks ago I tldyou about it, and you've done nothing to fix it.

    here is your last version:
    http://pastebin.com/d1446ec6a

    ~RM
    Last edited by Sir R. M8gic1an; 02-19-2010 at 12:34 PM.

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

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
  •