Results 1 to 4 of 4

Thread: My first script [ivy chopper]

  1. #1
    Join Date
    Feb 2012
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My first script [ivy chopper]

    Simba Code:
    /////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////// Fatmess's Ivy script ///////////////////////////
    //////////////////////////////////////////////////////////////////////////






    program New;
    {$i srl/srl.simba}

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

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

    procedure ChopIvy;
    var x, y: integer;
    begin
        if FindObj(x, y, 'hop', 1785912, 35) then
      Mouse(x, y, 0, 0, false);
      ChooseOption('hop');
      repeat
      FindNormalRandoms
        Wait(30000+random(250));
      Until not IsUpText('vy') or (InvFull);
    end;



    procedure AntiBan;
    begin
      if(not(LoggedIn))then
      Exit;
      case Random(8) of
       0:
       begin
         HoverSkill('Woodcutting', false);
         wait(2453+Random(432));
       end;
       1: PickUpMouse;
       2:
       begin
         MakeCompass('N');
         wait(100+random(133));
         MakeCompass('S');
         wait(50+random(133));
         MakeCompass('N');
         FindNormalRandoms
       end;
      end;
    end;


    begin
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;
      ChopIvy;
    end.



    got alot of help from this tutorial :P
    http://villavu.com/forum/showthread.php?t=44942
    Last edited by fatmess; 03-27-2012 at 03:34 AM.

  2. #2
    Join Date
    Dec 2011
    Posts
    392
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Cool script, might try detecting nests?

  3. #3
    Join Date
    Mar 2012
    Location
    127.0.0.1
    Posts
    3,383
    Mentioned
    95 Post(s)
    Quoted
    717 Post(s)

    Default

    You sir, need to change
    Simba Code:
    Until not IsUpText('ew') or (InvFull);
    to
    Simba Code:
    repeat
      FindNormalRandoms
        Wait(30000+random(250));
      Until not IsUpText('vy') or (InvFull);
    It was looking for Yew trees.
    Good job though!

  4. #4
    Join Date
    Feb 2012
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oops -.-" will change it now :P

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
  •