Results 1 to 1 of 1

Thread: SixHourLongBowFletcher

  1. #1
    Join Date
    Dec 2011
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default SixHourLongBowFletcher

    credits go to http://villavu.com/forum/member.php?u=87851 for his Gbodies script, I used it as a base to make this script.

    Start at soul wars with 28 fletchable logs in inventory.
    Also have those logs in the 1st slot of the bank in any tab.

    Everytime I ran this script, it ran for 6 hours D:

    Simba Code:
    program SixHourFletcher;
    {$DEFINE SMART}
    {$i srl\srl.simba}
    var
    Bow, xp: Integer;

    //***********Have full invent of logs before you start************
    //change line 105 and 107's 1000 & 750 to a higher number if you have a laggy PC
    //Change line #120 to the amount of the xp you get on the certain log
    procedure DeclarePlayers;
    Begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      With Players[0] Do
      Begin
        Name        := 'xx';     //name
        Pass        := 'xx';     //password
        Nick        := 'xx';     //nickname
        Pin         := 'xx';     //pin (if you atleast have one, else leave it)
        Active      := True;
      end;
    end;
    //////////////////////No need for change below this line///////////////////////
    procedure Camera;
    begin
    setangle(0);
    Makecompass('N');
    end;
    procedure NormalCheck;
    begin
     if not LoggedIn then Exit;
     FindNormalRandoms;
    end;
    procedure Banking;
    begin
      begin
        repeat
          OpenBankChest(SRL_BANK_SW);
        until BankSCreen or PinScreen;
      end;

      if PinScreen then
      begin
        repeat
          InPin(Players[0].Pin);
        until BankScreen
      end;

    if BankScreen then
      begin
      Deposit(1,28, true);
      end;
      if invCount=0 then
      begin
      Withdraw(0, 0, 28);
      end;
      begin
      if BankScreen then
      CloseBank;
    end;
    end;
    procedure Antiban;
    begin
      if FindNormalRandoms then
      begin
      Camera;
      end;
      case Random(200) of
        0: RandomRClick;
        1: PickUpMouse;
        2: HoverSkill(skill_Fletching, False);
    end;
    end;
    procedure FletchAllTheLogsFirst;
    var
    Time: integer;
    begin
    If InvFull then
    Wait(200 + Random(100));
    InvMouse(1, 1);
    wait(1000+randomrange(0,100));
    Mouse(260, 475, 20, 20, true);
    wait(1000+randomrange(0,100));
    Mouse(260, 475, 25, 25, true);
    wait(750+randomrange(0,100));
    MarkTime(Time);
    While (TimeFromMark(Time) <= ((42*1269))) do
    begin
        Wait(100+random(50));
        FindNormalRandoms;
        Antiban;
    end;
    Bow := Bow+28;
    end;

    procedure FletchAllTheLogs;
    var
    Time: integer;
    begin
    If InvFull then
    Wait(200 + Random(100));
    InvMouse(1, 1);
    wait(1000+randomrange(0,100));
    Mouse(260, 425, 20, 20, true);
    wait(750+randomrange(0,100));
    MarkTime(Time);
    While (TimeFromMark(Time) <= ((42*1269))) do
    begin
        Wait(100+random(50));
        FindNormalRandoms;
        Antiban;
    end;
    Bow := Bow+28;
    end;
    //Change for XP- Currently at yew longbows
    Procedure Exp;
    begin
    xp := Bow*150;
    end;

    Procedure Progress;
    begin
    Exp;
    Writeln('============================================');
    Writeln('We are running now for '+TimeRunning+'');
    Writeln('You have gained '+inttostr(xp)+' Fletching xp');
    Writeln('============================================');
    end;

    procedure First;
    begin
      {$IFDEF SMART}
        {$IFDEF SIMBAMAJOR980}
          Smart_Server := 72;
          Smart_Members := True;
          Smart_Signed := True;
          Smart_SuperDetail := False;
        {$ELSE}
          SRL_SixHourFix := True;
          Smart_FixSpeed := True;
        {$ENDIF}
      {$ENDIF}

      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      Bow := 0;
    end;

    begin
    writeln('Initial Start');
    First;
    writeln('Loading');
    Camera;
    FletchAllTheLogsFirst;
      repeat
      writeln('BANKING TIME');
      Banking;
      Writeln('Making the Bows');
      FletchAllTheLogs;
      Writeln ('Checking for randoms');
      NormalCheck;
      Progress;
      until not LoggedIn;
      Writeln('What happened? Please post it in the topic');
      Progress;
      TerminateScript;
    end.
    Last edited by iGunXZ; 08-06-2012 at 02:26 PM.

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
  •