Results 1 to 2 of 2

Thread: Varrock West Bank Fletching Script

  1. #1
    Join Date
    Dec 2011
    Posts
    164
    Mentioned
    4 Post(s)
    Quoted
    23 Post(s)

    Default Varrock West Bank Fletching Script

    This is the first script I've made, I'd appreciate feedback of all kinds! Thanks!

    Simba Code:
    program LongBowMaker;
    {$DEFINE SMART}
    {$i SRL\SRL.simba}
    var
      t, r, m, q: integer;

    const
      Loads = 25;             //How many Fletching Cycles you wish to complete

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Member := True;
      Players[0].Active := True;
      Players[0].Pin := '';
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];

    end;

    procedure Intro;
    begin
      Writeln(' |-| |-|   |-------|')
      Writeln(' | |_| |      | |   ')
      Writeln(' |  _  |      | |   ')
      Writeln(' | | | |      | |   ')
      Writeln(' |-| |-|   |-------|')
      Writeln(' -Iambubbleman')
      Wait(randomrange(1000,1200));
    ClearDebug;
    end;

        Procedure Fletch;
        var
          x, y, Logs, Knife: integer;
        begin
          Logs := DTMFromString('mbQAAAHicY2VgYMhkYWDIBuJyII6BYhdGBgZvRgTtAMRBptxA1UwomB9IomNGLBgMAGphBGo=');
          Knife := DTMFromString('mbQAAAHicY2VgYNBjZGBQBWITIDYAYg0gbgaKTwHiWiCuAeIuIE6IiQGSTCiYnwETMGLBYAAAbB4EuA==');
          Setangle(0);
          MakeCompass('w');
          x:= MSCX;
          Y := MSCY;
          Writeln('Banking');
          FindObjTPA(x, y, 2641499, 10, 1, 25, 8, 120, ['ank']);
          Mouse(x, y, 3, 3, false);
          WaitOption('Bank', 2000);
          repeat
            wait(randomrange(49,51));
          until(BankScreen);
          wait(randomrange(200,300));
          DepositAll;
          wait(randomrange(200,300));
          FindDTM(knife, x, y, MSX1, MSY1, MSX2, MSY2);
          Mouse(x,y, 2, 2, true);
          Wait(randomrange(1200, 1600));
          FindDTM(Logs, x, y, MSX1, MSY1, MSX2, MSY2);
          Mouse(x,y, 2, 2, False);
          Wait(randomrange(1200, 1600));
          ChooseOption('All M');
          CloseWindow;
          Wait(randomrange(400,550));
          Gametab(Tab_Inv);
          wait(randomrange(200,300));
          Writeln('Fletching');
          FindDTM(Knife, x, y, MIX1, MIY1, MIX2, MIY2);
          Mouse(x,y, 2, 2, true);
          Wait(randomrange(100,150));
          FindDTM(Logs, x, y, MIX1, MIY1, MIX2, MIY2);
          Mouse(x,y, 2, 2, true);
          Wait(randomrange(600,750));
          MouseBox(214, 406, 295, 452, 1);
          Wait(randomrange(51000, 53000));
          MMouse(500,500,1,1);
          Writeln('We have completed ' + IntToStr(t) + ' Fletching Cycles within this Session')
          If(t = 25) then
          Writeln('We Have Gained ' + IntToStr(r) +  ' Exp This Session')
          else
          If(t = 50) then
          Writeln('We Have Gained ' + IntToStr(m) +  ' Exp This Session')
          else
          If(t = 75) then
          Writeln('We Have Gained ' + IntToStr(q) +  ' Exp This Session')
          else
        end;
        Begin
        Intro;
        smart_server := 91;
        smart_members := false;
        smart_signed :=true;
        smart_superdetail := false;
        SetupSRL;
        DeclarePlayers;
        LoginPlayer;
        t:= 0
        r:= 39150
        m:= 78300
        q:= 117450
        repeat
          inc(t)
          Fletch;
        until(t=Loads);
        end.

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

    Default

    can you please explain in more detail maybe a screen shot or two

    and could you also please add a direct download (:

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
  •