Results 1 to 2 of 2

Thread: Willow PowerChopper[Draynor Manor]

  1. #1
    Join Date
    Dec 2006
    Location
    Georgia
    Posts
    84
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Willow PowerChopper[Draynor Manor]

    This is my first script EVA.
    It's a willow power chopper, Works best in Draynor Manor but I'd assume it'd work anywhere where the willows grow.

    -HAVE HATCHET EQUIPPED OR IT'LL BE DROPPED!!-
    Simba Code:
    Program imalosersCHOPtilUdrop;
    {$i srl/srl/misc/smart.scar}
    {$loadlib sps}
    {$i srl/srl.scar}
    {$i sps/sps.simba}
    {$i SRL/SRL/Misc/stats.simba}

    Procedure DeclarePlayers;
    Begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'uby'];
    End;

    Procedure Failsafe(reason:string);
    Begin
      Players[CurrentPlayer].Loc:=Reason;
      Logout;
      Stats_Commit;
      TerminateScript;
    End;

    Procedure StatsGuise(wat:String);
    Begin
      Status(wat);
      Disguise(wat);
    End;


    Procedure Antiban;
    Begin
      If(Not(LoggedIn))Then
      Exit;
     Case Random(4) Of
      0:
      Begin
       StatsGuise ('Performing Antiban Procedures')
       Hoverskill('Woodcutting', False);
       Wait(2400+Random(250));
       FindNormalRandoms;
      End;
        1: PickUpMouse;
        2: BoredHuman;
        3:
       Begin
         MakeCompass('W');
         wait(100+random(133));
         MakeCompass('E');
         wait(50+random(133));
         MakeCompass('N');
         FindNormalRandoms;
       End;
      End;
    End;

    Procedure DropLogs;
    Var I: integer;
    Begin
      for I:= 0 To 2 Do
      StatsGuise ('Dropping Bodies..');
      Begin
        DropPattern(Random(2) + 1);
        If InvCount = 0 Then
      End;
    End;

    Procedure ChopTree;
    Var X,Y:integer;
    Begin
    StatsGuise ('Locating Targets')
     Begin
       if FindObjcustom(x, y, ['hop', 'illow'], [3227713, 1252377], 30) then
          Mouse(x, y, 3, 3, true);
          ChooseOption('hop');
          StatsGuise ('Targets Located')
      Repeat
        Wait(1200+random(250));
      Until not IsUpText('hop') or (InvFull);
     End;
    End;

    Procedure SettingUp;
    Begin
      MouseSpeed := 16;
      GameTab(tab_Inv);
      MakeCompass('N');
      SetAngle(False);
    End;

    Begin

      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;
      SettingUp;
     Repeat;
       Antiban;
       ChopTree;
      If InvFull Then
         Droplogs;
     Until(False);

     End.


    As I stated this is my first Script, Might be some flaws but I'm willing to take in any tips and advice (:

    TO SAVE & ADD SCRIPT
    Copy and Paste the code into 'Notepad'
    Save as 'imalosersCHOPtilUdrop.simba' and save it to C:\Simba\Scripts
    &There ya have it !

  2. #2
    Join Date
    Feb 2012
    Posts
    202
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    haha just about used it until i read the have hatchet equipped lol

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
  •