Results 1 to 10 of 10

Thread: What randoms can you get when you are Fletching?Help!

  1. #1
    Join Date
    Mar 2007
    Location
    In your computer
    Posts
    244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    What randoms can you get when you are Fletching?Help!

    I would like to k'now what randoms appear when you are Fletching?I also would like to know where and what to add the randoms in one script: "Neg's Fletcher".And also i would love to know where and what to add to make the script answer when someone sais:"Fletching lvl?", and stuff like that.Here is the Script.-----ITS NOT MINE!

    SCAR Code:
    {NEG's          FLETCHER BETA }
     ///////////////////////////
    {
    Knife in first inventory slot.
    Logs in first bank slot
    Only does longbow so far,
    will add shortbows when i get members again.

    Setup Lines  24 - 26
    Setup Players Lines 37+
    }

    program neGFletcher;
    {.include SRL/SRL.scar}

    ////////////////////////////////////////////
    const                                     //
    BankBooth  = 7703191;//Bank Booth Colour  ///
    RunAwayDir = 'S';
    LogsToDo   = 500;

    var
    LogsDone:Integer;

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

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

    //////////////////////Runaway Procedure
    Procedure RunAway;
    begin
      RunAwayDirection(RunAwayDir);
      Wait(12000+random(2000));
      RunBack;
    end;

    //////////////////////Randoms Procedure
    Procedure Randoms;
    begin
      FindTalk;
      wait(10)
      FindNormalRandoms;
      if(FindFight)then
        RunAway;
    end;

    ///////////Banking Procedure
    //I got most of this from someones
    //script ages ago then edited it.
    //If this looks similar to yours
    //let me now and Ill credit you

    Procedure Bank;
    var bx,by:Integer;
    begin
     Randoms;
      repeat
      FindObj(bx,by,'Bank',BankBooth,10);
      Wait(100 + Random(200));
      until (IsUpText('Use Bank'));
     if(IsUpText('Use Bank'))then
      begin
      GetMousePos(bx, by);
      Mouse(bx,by,10,10,false);
      wait(100);
      if(ClickOption('quickly', 1))then
       begin
       repeat
       Wait(500);
       until(BankScreen);
       end
       else
       begin
       Bank;
      end;
     FixBank;
     Deposit(2,28,2);
     Withdraw(1, 1, 0);
     repeat
      CloseBank;
      Wait(500);
     until(BankScreen = False);
     end;
    end;

    //////////////////////Fleching Procedure
    Procedure Fletch;
    var Number:Integer;
    begin
     begin
      Randoms;
      UseItem(1);
      Wait(100 + Random(800));
      UseItem(2);
      Randoms;
      Wait(random(500));
     end;
     begin
      MMouse(244,407,10,10);
      if (IsUpText('Make')) then
      begin
      Mouse(244,407,10,10,false);
      ClickOption('Make X', 3);
      Wait(700+Random(500));
      Number:=27+Random(11);
      TypeSend(IntToStr(number));
      Wait(100 + Random(250));
      TypeSend(Chr(13));
      end
      else Fletch;
     end;
     repeat
      wait(500);
      Randoms;
      if (FindNpcChatText('continue')) then //Fix to the level-up Bug
      begin
       begin
       Randoms;
       UseItem(1);
       Wait(100 + Random(800));
       UseItem(28);
       Wait(random(500));
       end;
       begin
       Mouse(244,407,10,10,false);
       wait(300);
       ClickOption('Make X', 3);
       Wait(700+Random(500));
       Number:=27+Random(11);
       TypeSend(IntToStr(number));
       Wait(100 + Random(250));
       TypeSend(Chr(13));
       end;
      end;
      Randoms;
     until(GetColor(717,447)=65536);
     if (GetColor(717,447)=65536) then
     LogsDone:= LogsDone+27;
    end;

    procedure Report;
    begin
    ClearDebug;
      SRLRandomsReport;
      WriteLn('////////////////////////////////////////////')
      WriteLn('    neGs Fletcher BETA     ')
      WriteLn('                                            ')
      WriteLn('  Running Time: ' + (TimeRunning) + '')
      WriteLn('  Logs Cut: ' + IntToStr (LogsDone) +  '')
      WriteLn('  Approx. XP Gained: ' + IntToStr (LogsDone*41) +  '')
      WriteLn('////////////////////////////////////////////  ')
    end;

    ////////////////MainSetup
    var
    Newline: String;
    begin
    SetupSRL;
    Newline:=Newline;
    ActivateClient;
    DeclarePlayers;
    begin
      If (Not(LoggedIn)) then
       begin
        Status('Logging In');
        Loginplayer;
        HighestAngle;
       end;
     end;
     repeat//////////////main loop
     Bank;
     Fletch;
     Report;
     until(LogsDone >= LogsToDo);
     if (LogsDone >= LogsToDo)then
     begin
     Logout;
     TerminateScript;
     end;
    end.

    Also i would like to know where and what to add to another script...--NOT MINE!

    SCAR Code:
    ///////////////////Bow Stringer//////////////////////\
     ////////////////////////You must try this//////////////////////////\\
    /////////////////////////Its not for sale//////////////////////////\\\
     //////// 1- Set up lines 32-35.                          /////////
     //////// 2- Choose how many bows you need to do in line 19./////////
     //////// 3- Put the screen resolutin to 1024,768.          /////////
     //////// 4- Put the bows (u) on the second slot in your bank.  /////////
     //////// 5- Put the bow strings on the first slot in your bank.      /////////
     ////////////////////////////////////////////////////////////////////
     ////It works best in seer's village bank for me////
    //////////////////////////Now go and auto!!!////////////////////////////////


    program Blood1995SStringer;
    {.include SRL/SRL.scar}

    ////////////////////////////////////////////
    const
    RunAwayDir = 'S';
    bowstodo = 405; //How many bows you need to and +17, examp:1000bows = 1017bowstodo
    Player0 = 0;



    Procedure DeclarePlayers;
    begin
    HowManyPlayers  := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
                {///////////////////set up your player//////////////////////}
                     Players[0].Name   := '';// your user name
                     Players[0].Pass   := '';//your password
                     Players[0].Nick   := '';// your nick name
                     Players[0].Active := True;

    end;

    var xwhite : Integer;
        xyellow : Integer;
        allwhite : Integer;
        allyellow : Integer;
        bowstrainged : integer;
    ////////////////////////////dont touch please/////////////////////////////
    procedure Loadingbitmap;
    begin

    xwhite := BitmapFromString(9, 8, 'z78DA333040003724604084382' +
           'E35C4A8A74417F1AEA2BF0BC90B43E275010051AB6079');

    xyellow := BitmapFromString(8, 7, 'z78DA333000013720809' +
           '1C8009738A62C7E95E4A927C60DF4710FF1E10300667947F1');



    allwhite := BitmapFromString(17, 9, 'z78DA333040003724804BC' +
           '400AF7AF2C4A96B1AFD6DC10F46436CD41652C501022DD2CD');

    allyellow := BitmapFromString(17, 9, 'z78DA3330400037208091' +
           'B8440CF0AA274F9CBAA6D1DF16FCE468888DDA42AA3800C8E7C5E' +
           '9');


    end;
    Procedure RunAway;
    begin
      RunAwayDirection(RunAwayDir);
      Wait(12000+random(2000));
      RunBack;
    end;


    Procedure Randoms;
    begin
      FindTalk;
          wait(10)
          FindNormalRandoms;
          if(FindFight)then
        RunAway;
    end;

    procedure Bank;
    var
      x, y, fs, fs2 : Integer;
    begin

        repeat
        randoms;
        Flag;
          if (FindObj(x, y, 'booth', 607324, 10)) then
            Mouse(x, y, 4, 4, False)
          else
          if (FindObj3(x, y, 'booth', 7243412, 10)) then
            Mouse(x, y, 4, 4, False)
          else
          if (FindObj3(x, y, 'booth', 6324369, 10)) then
            Mouse(x, y, 4, 4, False);
          Wait(250+random(20));
          if (ClickOption('quickly', 1)) then
          begin
            Flag;
            repeat
              Wait(100+random(20));
              fs := fs + 1;
            until (BankScreen) or (fs >= 50);
          end;
          fs2 := fs2 + 1;
        until (BankScreen) or (fs2 > 5);
    end;



    procedure TakeBowsAndStrings;
       begin
         FixBank;
           wait(2000)
           mmouse(98,81,2,2);
           wait(500+random(100));
           clickmouse(98,81,false);
           wait(2000)
           findbitmap(xwhite,x,y);
           mmouse(x,y,2,2);
           findbitmap(xyellow,x,y);
           wait(500+random(100));
           clickmouse(x,y,true);
           wait(500)
           wait(1500)
           sendkeys('14');
           wait(500+random(100));
           KeyDown(13);
           wait(500+random(100));
           mmouse(143,74,2,2);
           wait(500+random(100));
           clickmouse(140,75,false);
           wait(2000)
           findbitmap(allwhite,x,y);
           mmouse(x,y,2,2);
           findbitmap(allyellow,x,y);
           wait(500+random(100));
           clickmouse(x,y,true);
           wait(500+random(100));
           movemousesmooth(486,41);
           wait(1000+random(100));
           clickmouse(486,41,true);
           bowstrainged := bowstrainged+14;
        end;
    procedure SetInvInPos;
       begin
           wait(100+random(150));
           mmouse(587, 228, 2, 2);
           wait(113);
           holdmouse(587,228,true);
           wait(312);
           mmouse(675,446,2,2);
           wait(500+random(131));
           releasemouse(675,446,true);
        end;
    procedure makefullbows;
        begin
           wait(100+RANDOM(30));       //1 one.
           mmouse(672,445,2,2);
           wait(100+random(100));
           Clickmouse(672,445,true);
           wait(100+RANDOM(100));
           mmouse(702,440,2,2);
           wait(100+random(10));
           clickmouse(702,441,true);
           wait(100+random(20));
           wait(100+RANDOM(30));       //2 one.
           mmouse(672,441,2,2);
           wait(100+random(100));
           Clickmouse(672,441,true);
           wait(100+RANDOM(100));
           mmouse(702,442,2,2);
           wait(100+random(10));
           clickmouse(702,442,true);
           wait(100+random(20));
        end;
    procedure selectinglogbow;
       begin
           mmouse(254,401,2,2);
           wait(1000+random(100));
           Clickmouse(254,401,false);
           wait(500+random(100));
           findbitmap(xwhite,x,y);
           mmouse(x,y,2,2);
           wait(1000+random(100));
           findbitmap(xyellow,x,y);
           wait(500+random(100));
           Clickmouse(x,y,true);
           wait(2000+random(100));
           wait(100)
           sendkeys('27');
           wait(500+random(100));
           KeyDown(13);
        end;

    procedure deposititall;
      begin
          wait(1500+random(100));
          mmouse(626,229,2,2);
          wait(1500+random(100));
          clickmouse(626,229,false);
          wait(1000+random(100));
          findbitmap(allwhite,x,y);
          mmouse(x,y,2,2);
          wait(1500+random(100));
          findbitmap(allyellow,x,y);
          wait(500+random(100));
          mmouse(x,y,2,2);
          wait(1500+random(100));
          clickmouse(x,y,true);
          wait(1500+random(100));
          mmouse(485,40,1,1);
          wait(1500+random(100));
          clickmouse(485,40,true);
          wait(200+random(20));
       end;
        procedure Report;
    begin
    ClearDebug;
      SRLRandomsReport;
      WriteLn('////////////////////////////////////////////')
      WriteLn('   Blood1995s Bow Stringer     ')
      WriteLn('                                            ')
      WriteLn('  Running Time: ' + (TimeRunning) + '')
      WriteLn('  Bows Strang: ' + IntToStr (bowstrainged) +  '')
      WriteLn('  Approx.Exp.Gained: ' + IntToStr (bowstrainged*75) +  '')
      WriteLn('////////////////////////////////////////////  ')
    end;

    begin
      setupSRL;
        Loadingbitmap;
          declareplayers;
           CurrentPlayer:= Player0;
            activateclient;
              loginplayer;
    repeat
                       Bank;
                 takebowsandstrings;
            setinvinpos;
        wait(500)
      makefullbows;
      makefullbows;
      makefullbows;
      makefullbows;
      makefullbows;
      makefullbows;
      makefullbows;
      makefullbows;
        wait(1500+random(20));
         Bank;
               wait(1000+random(20)) ;
                  deposititall;
                        wait(1000+random(20));
                          report;
                            until (bowstrainged >= bowstodo);
                         if (bowstrainged >= bowstodo) then
                      begin
                 Logout;
         TerminateScript;
      end;
    end.

    Thanks to all people who helped!

  2. #2
    Join Date
    Jun 2006
    Location
    New Zealand
    Posts
    285
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I think you only get the normal randoms.
    You can use TypeSend to type messages:
    SCAR Code:
    TypeSend('Fletching lvls?');
    And what do you mean adding a script? You mean integrating the scripts into one?
    Huehuehuehuehue

  3. #3
    Join Date
    Oct 2006
    Posts
    585
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i think i saw autoban.. i mean clickmouse in there in the second one

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

  4. #4
    Join Date
    Mar 2007
    Location
    In your computer
    Posts
    244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Tnx, and yes i know it has click mouse but still wateva lol.Still want to know what randoms there are for fletching . Srry for double-posting.

  5. #5
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i think only teleport randoms.. but im not sure. (only in bank while fletching)

  6. #6
    Join Date
    Apr 2007
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What part of fletching are we talking about here? Cutting Arrows, Cutting Bows, Stringing bows, what? Though I think the randoms are the same. The only ones I remember getting are:
    Miles/Giles
    Sandwich Lady
    Genie

    Not sure if I even remember those.... Sorry :/

  7. #7
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Why the fuck are you posting questions in a thread that is 3 months old??

    *Gravedig-alert*

    Christ...

    -Knives

  8. #8
    Join Date
    Aug 2008
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Any random except shades zombies and skill related randoms

  9. #9
    Join Date
    Sep 2006
    Posts
    199
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeeeaaaarrrrr oooolllldddd gravedig niiice.

  10. #10
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    Closed
    STOP PM'ING ME

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. 99 Fletching
    By jakeyboy29 in forum News and General
    Replies: 16
    Last Post: 12-05-2008, 03:57 AM
  2. Dtm HELP (fletching)
    By P1nky in forum OSR Help
    Replies: 6
    Last Post: 01-25-2008, 05:38 PM
  3. 99 Firemaking or 99 Fletching?
    By haz3 in forum Discussions & Debates
    Replies: 20
    Last Post: 10-29-2007, 01:50 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •