Page 19 of 51 FirstFirst ... 9171819202129 ... LastLast
Results 451 to 475 of 1269

Thread: Ultimate Fletcher

  1. #451
    Join Date
    Aug 2007
    Posts
    79
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what do i use for this script? scar 3.15 and srl 14? cuz i havent been on in ages and before when there was scar 3.13 and 3.14 they always said to use 3.12 c. so im confused.
    Thanks Yanix for the guide on how to add this sig:

    http://www.fenjer.com/adnan/SRLStats/3327.png

  2. #452
    Join Date
    Sep 2007
    Posts
    501
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by permy View Post
    Line 687: [Error] (14972:41): Invalid number of parameters in script C:\Documents and Settings\dghdg\Desktop\UltimateFletcher[.7].scar

    n e one know why this is?
    Next time you get one of these errors;
    1) WRITE OUT ANY ITS THE SAME AMOUNT OF TYPING AS "N E" GOD
    2) Write out the line and the two lines surrounding the line

    Change your SRL back a revision, if you people started reading you would know they changed "FindNpcChatText" into "FindNpcChatTextCustom" and made one of the parameters an array. I also posted about this a few pages up, READ BEFORE YOU POST. It stops you from looking like a ____ing _____ (be creative )











    Don't use SCAR 3.12 anymore or SCAR 3.13 either

    This script works with SCAR 3.13, 3.14 and 3.15

    The newer revisions of SRL will not work with SCAR 3.12

  3. #453
    Join Date
    Aug 2007
    Posts
    79
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ==========================================
    =§ Ultimate Fletcher By: FootBalljds §=
    ==========================================
    Been Fletching For: 34 Minutes and 47 Seconds
    Gained 60750 Exp
    Fletched 810 yew Longbows(u)
    Did 30 Loads
    Performed Anti Ban 39 Times
    Responded 8 Times
    ==========================================
    [Runtime Error] : Out Of Range in line 577 in script C:\Program Files\SCAR 3.15\Scripts\UltimateFletcher[.7].scar

    not bad but i dont know what went wrong
    also what are the best settings for sleep and respond and everything?
    Thanks Yanix for the guide on how to add this sig:

    http://www.fenjer.com/adnan/SRLStats/3327.png

  4. #454
    Join Date
    Sep 2007
    Posts
    501
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by runner732 View Post
    ==========================================
    =§ Ultimate Fletcher By: FootBalljds §=
    ==========================================
    Been Fletching For: 34 Minutes and 47 Seconds
    Gained 60750 Exp
    Fletched 810 yew Longbows(u)
    Did 30 Loads
    Performed Anti Ban 39 Times
    Responded 8 Times
    ==========================================
    [Runtime Error] : Out Of Range in line 577 in script C:\Program Files\SCAR 3.15\Scripts\UltimateFletcher[.7].scar

    not bad but i dont know what went wrong
    also what are the best settings for sleep and respond and everything?
    Once again a sad little child who will not read... tsk, tsk.

    Myles posted a fix on an earlier post, or just change the auto-responder off.

    I think you just change the line to this
    SCAR Code:
    TypeSend(Responce[High(Responce]);
    thats just my guess.

  5. #455
    Join Date
    Aug 2007
    Posts
    79
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    my apologies for not going through 23 pages of posts in case there *might* be a clue that i'm missing
    Thanks Yanix for the guide on how to add this sig:

    http://www.fenjer.com/adnan/SRLStats/3327.png

  6. #456
    Join Date
    May 2007
    Posts
    84
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Any1 have idea on when he updates Magic logs color?
    Does yew logs work?
    Becouse i still have that problem
    Easiest money for RS Membership!
    http://i190.photobucket.com/albums/z...24/banner2.gif
    I make around 25$ a month! Doing Nothing!! :O

  7. #457
    Join Date
    Sep 2007
    Posts
    501
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Away at a shity camp i visit every 6 w33x
    im letting myles fix bugs in my fletcher while im gone
    its going to be a long wait football left last week so its going to be a long one month and one week.

    yew logs still work its just that mages were updated

    try yohojos dtm tut http://www.villavu.com/forum/showthread.php?t=564

  8. #458
    Join Date
    Jul 2007
    Posts
    124
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    love this script, from 70 to 90 in a week =)

  9. #459
    Join Date
    Sep 2007
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it doesnt works with smart @ me. He opened and then he does nothing.

  10. #460
    Join Date
    Dec 2007
    Posts
    97
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Smart hasn't worked on this script in a while I think...

  11. #461
    Join Date
    Jul 2007
    Location
    Missouri
    Posts
    318
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    alright, here is a much better run.
    Code:
    =§  Ultimate Fletcher By:  FootBalljds  §=
    ==========================================
    Been Fletching For: 12 Hours, 15 Minutes and 11 Seconds
    Gained 556821 Exp
    Fletched 13581 willow Longbows(u)
    Did 503 Loads
    Performed Anti Ban 744 Times
    Gained 4 Levels
    Slepted 92 Times
    ==========================================
    Edit: I agree, i will stop autoing for a few days, or weeks, idk :P

  12. #462
    Join Date
    Oct 2006
    Location
    Scandinavia
    Posts
    188
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hmm, it works for me, but i still have some problems running it. i enter the info smart asks me, it logs in all right, opens bank, puts pin. searches for the yew logs, doesnt find anything, and logs out. after logged out, it keeps on "Existing User", then Username, and then password, without writing anything in them.

    what am i doing wrong? do i need to have the logs in some specific place or something ease its job? im using pc bank btw.

  13. #463
    Join Date
    Jul 2007
    Location
    Ottawa, Canada
    Posts
    930
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Replace your pc thing with the varrock one, does same thing, and opens it better than your custom function. VEB instead of ur custom pc

    EDIT: soz this has been brought up apparently *forgive me for not reading all bloody 24 pages of ur posts

    EDIT:: i tweaked mine anyways i do that to basically all myscripts most scripts there are just a few thigns it needs or that i dont like.

  14. #464
    Join Date
    Sep 2007
    Posts
    501
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    @ everybody whining about SMART, they changed the prefixes, nothing to do with this script

    logs should be at the top of your bank

  15. #465
    Join Date
    Oct 2006
    Location
    Scandinavia
    Posts
    188
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i start and i just logs me out.

  16. #466
    Join Date
    Sep 2007
    Posts
    501
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Do you get an error message?

    edit:
    I'm fast aren't I?

  17. #467
    Join Date
    Oct 2006
    Location
    Scandinavia
    Posts
    188
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nope, nothing. well this is the logg...

    New client targeted
    Successfully compiled (1232 ms)
    SRL Compiled in 16 msec
    Rarw
    "my username"
    Creating the NickTPA.
    blah
    16
    blah
    16
    blah
    15
    blah
    16
    blah
    15

    Enter your username and password

    Enter your username and password

    Quote Originally Posted by KoKouKo View Post
    I'm fast aren't I?
    well not bad

    EDIT. ha! you werent that fast now :P

  18. #468
    Join Date
    Jul 2007
    Location
    Missouri
    Posts
    318
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    My smart works just fine with this script.

    Make sure you have UseSmart = True and that you remove that two "//" at beginning of the script where it includes smart .

  19. #469
    Join Date
    Nov 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    everytime i run this script it runs for about 20-30 mins then this error always comes up
    ==========================================
    -§ Any Longbow Stringer By: FootBalljds §-
    - Thanks SRL Team!!! -
    ==========================================
    Been Making Bows For You For
    21 Minutes and 11 Seconds
    Gained 33600 Exp
    Strung 448 Yew Longbows
    Did 32 Loads
    Performed 25 AntiBans
    ==========================================
    172
    156
    172
    172
    204
    Error, please report this! Opening Bank Error
    No More Active Players
    Terminating
    ==========================================
    -§ Any Longbow Stringer By: FootBalljds §-
    - Thanks SRL Team!!! -
    ==========================================
    Been Making Bows For You For
    21 Minutes and 25 Seconds
    Gained 33600 Exp
    Strung 448 Yew Longbows
    Did 32 Loads
    Performed 25 AntiBans
    ==========================================
    Error 0Opening Bank Error| Fatel = True
    Please Report The Above ERrors
    Successfully executed

    i dont know why or what but it always does so cud u plz tell me wats wrong

    thanks

  20. #470
    Join Date
    Jul 2007
    Location
    Missouri
    Posts
    318
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You are posting in the wrong thread. This is his fletcher, not stringer.

  21. #471
    Join Date
    Oct 2006
    Location
    Scandinavia
    Posts
    188
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Illkillutill View Post
    My smart works just fine with this script.

    Make sure you have UseSmart = True and that you remove that two "//" at beginning of the script where it includes smart .
    nothing changed... it logs in, changes the camera position, and logs out. then it just clicks "Existing User" ---> "Username" ---> "Password" ---> "Log in" ---> doesnt works because it didnt write anything in username or pass, it just clicked and went on.. and then it repeats the whole thing again.

    EDIT. sundeep wrong thread. go and post your problem here http://www.villavu.com/forum/showthread.php?t=23779

  22. #472
    Join Date
    Nov 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    but i get the same error with the fletcher anyway

  23. #473
    Join Date
    Sep 2007
    Posts
    501
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    @ Cazabacca
    You are using PC bank, don't. or use the script further down in this post.

    @ sundeep
    Telling from that error your bank opening is failing, so it is deactivating your player.

    For both of you I recommend this script, I have change Football's homemade banking thing to "OpenBankGlass('veb', False, False)" and changed "OpenBankFast" tp "OpenBankQuiet" (if anybody wants to know) both these systems are more reliable and can even find the bank within one try.

    VERY IMPORTANT!
    For best results turn your public chat to hide.


    SCAR Code:
    program UltimateFletcher;
    //{.include srl/srl/misc/Smart.scar}
    {.include srl/srl.scar}
    {.include srl/srl/misc/Users.scar}
    {=========================================================================]
    [           NAME        : Ultimate Fletcher                               ]
    [           WRITER      : Footballjds                                     ]
    [           CATEGORY    : Fletching                                       ]
    [           DESCRIPTION : Fletches Longbows and banks em                  ]
    [           USAGE       : To Raise Your Fletching Level                   ]
    [           AUTOCOLOR   : Yes                                             ]
    [           CONTACT     : Post on t3h forumz or PM Footballjds2000 on AIM ]
    [=========================================================================]
    [                           Instructions.                                 ]
    [=========================================================================]
    [ 1. USE Runescape With Low Detail, Very Bright.                          ]
    [ 2. Set your Screen To 32 bit TRUE color.                                ]
    [ 3. Position Players In Bank                                             ]
    [ 4. Drag The Cross Hair Over Runescape, Hit Play, And Enjoy!             ]
    [=========================================================================}

    {Banks are:
    *******************************************************************************
    'akb' = Al Kharid | 'lb' = Lumbridge | 'veb' = Varrock East | 'vwb' = Varrock West
    'feb' = Falador East | 'fwb' = Falador West | 'db' = Draynor | 'eb' = Edgeville Bank
    'pc' = pest control
    *******************************************************************************}

    {Logs are: 'normal' | 'oak' | 'willow' | 'maple' | 'yew' | 'magic'}
    const
      UseSmart = False;  //Use Smart?
      MBX1     = 21;
      MBY1     = 58;
      MBX2     = 467;
      MBY2     = 287;
    var
      KnifeDTM, Log, bows, LogClr, x, y, Loads, Sleepy, LevelsGained, EXPFactor, Responded, rspnce,
      LRT, TimesSleepted, AntiBanned : integer;
      Doned : boolean;
      WhatBank, bow, logs : string;
      box : TBox;
      Errorses, Errorses2 : array of string;
    ////////////////////////////////////////////////////////////////////////////////
    //[]PLAYER SETUP[]\\
    procedure PlayerSetup;
    var LBU, SBU, MagicLog, normLogs : string;
    begin
      LBU := '78DA63EC676060E862400175E53A0CBF80342' +
             '310FF0702C63E4C3510591809A42712A1663A90984940CD342031' +
             '9D08353308A89949580D00AF0E0E34';
      SBU := '78DA637466626078C68002CA02F919C480342' +
             '310FF07024613A09A370C6880118904D2BE40353708A8F106AA79' +
             '4C408D1D50CD6B026A02806A6EE1570300E3880BF5';
      MagicLog := '78DA635CC0C4C0F08E0105FCFEB6824103483' +
             '302F17F20609C0C54F394010D302291407A1250CD57026AFA30ED' +
             'C250B38608352B806A9E1150331FA8E621013533806A1E1150B30' +
             '8A8E61B7E35005DD814AD';
      NormLogs := '78DA639CC9C4C0F088010514FAF2318832323' +
             '00011C37F2060EC06AA79CC800618914820DD0154F386809A5940' +
             '35EF08A8590254F38A809AC940351FF0AB0100D0AD0DF2'
      SRLPlayerForm(True, ['Use Sleeps', 'Use Responder', 'Longbows'],
        ['Loads', 'Sleep How Often[mins]', 'How Long To Sleep[mins]'],
        ['Which Bank', 'Bank Pin[if any]', 'Type Of Logs', 'SRL ID', 'SRL PASSWORD'], []);
      WhatBank := players[0].Strings[0];
      case Players[0].Strings[2] of
        'normal' : EXPFactor := 10;
        'oak'    : EXPFactor := 25;
        'willow' : EXPFactor := 41;
        'maple'  : EXPFactor := 58;
        'yew'    : EXPFactor := 75;
        'magic'  : EXPFactor := 91;
        else EXPFactor := 91;
      end;
      if EXPFactor = 91 then
      begin
        logs := MagicLog;
        if Players[0].Booleans[2] = false then
        begin
          bow := SBU;
          Box := IntToBox(106, 393, 197, 450);
        end else
        begin
          bow := LBU;
          Box := IntToBox(357, 392, 408, 444);
        end;
      end else
      begin
        logs := NormLogs;
        if EXPFactor = 10 then
        begin
          if (Players[0].Booleans[2] = false) then
          begin
            bow := SBU;
            Box := IntToBox(170, 382, 223, 442)
          end else
          begin
            bow := LBU;
            Box := IntToBox(298, 383, 339, 446);
          end;
        end else if Players[0].Booleans[2] then
        begin
          bow := LBU;
          Box := IntToBox(215, 384, 300, 441);
        end else
        begin
          bow := SBU;
          Box := IntToBox(55, 396, 146, 432);
        end;
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    procedure StatusReport(What, SecondWhat : string);
    begin
      Status(What + ' --- ' + SecondWhat + ' /been running for ' + TimeRunning + ' \');
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    procedure Setup;
    begin
      if (not(LoggedIn)) Then
        EXIT;
      StatusReport('Setting Up PlayerFor Autoing', 'Just Logged In, Waiting 4 seconds');
      wait(2000 + random(2000));
      GameTab(4);
      SetChat('Off', 2);
      wait(189+random(90));
      SetAngle(True);
      MakeCompass('N');
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    procedure Error(what : string; fatel : boolean);
    begin
      SetArrayLength(Errorses2, GetArrayLength(Errorses2) + 1);
      CloseWindow;
      if fatel then
      begin
        SetArrayLength(Errorses2, GetArrayLength(Errorses2) - 1);
        SetArrayLength(Errorses, GetArrayLength(Errorses) + 1);
        Errorses[GetArrayLength(Errorses) - 1] := what + '| Fatel = True';
        Players[CurrentPlayer].Active := False;
        LogOut;
        MarkTime(Sleepy);
      end else Errorses2[GetArrayLength(Errorses2) - 1] := what + '| Fatel = False';
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    procedure MouseBox2(bx : TBox; n1 : integer);
    begin
      MouseBox(bx.x1, bx.y1, bx.x2, bx.y2, n1);
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    procedure LoadDTMS(WhichDTM : string);
    begin
      case WhichDTM of
        'knife' : KnifeDTM := DTMFromString('78DA632C676460F06540015585850C22401A2' +
                                '8C3F01F08184B812C3F0634C0884402E92A22D4E401595104D414' +
                                '11560300CA4A0963');
        'log' : Log := DTMFromString(Logs);
        'bow' : bows := DTMFromString(bow);
        'inv' : begin
                  Log := DTMFromString(Logs);
                  KnifeDTM := DTMFromString('78DA632C676460F06540015585850C22401A2' +
                                '8C3F01F08184B812C3F0634C0884402E92A22D4E401595104D414' +
                                '11560300CA4A0963');
                end;
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    procedure FreeDTMS(WhichDTM : string);
    begin
      case WhichDTM of
        'knife' : FreeDTM(knifeDTM);
        'log' : FreeDTM(log);
        'bows' : FreeDTM(bows);
        'inv' : begin
                  FreeDTM(log);
                  FreeDTM(knifeDTM);
                end;
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    function CountDTM(Area, WhatDTM : string; Stack, LoadThem : boolean) : integer;
    var
      DTM : integer;
    begin
      if LoadThem then LoadDTMS(WhatDTM);
      case WhatDTM of
        'knife' : DTM := knifeDTM;
        'log' : DTM := log;
        'bow' : DTM := bows;
      end;
      if Stack then Result := AmountDTM(Area, DTM)
      else Result := CountItemsDtm(Area, DTM);
      if LoadThem then FreeDTMS(WhatDTM);
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    function ColorDTM(DTMd : string; var color : integer) : boolean;
    var
      DTM : integer;
    begin
      case DTMd of
        'bow' : DTM := bows;
        'log' : DTM := log;
      end;
      if not(FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2)) then EXIT;
      color := GetColor(x, y);
      Result := True;
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    function IsOption(txt: string): Boolean;
    var
      x1, y1, x2, y2, LeftCorner, RightCorner, x, y: Integer;
    begin
      Result := False;
      LeftCorner := BitmapFromString(4, 4, 'z78DA33753135313137C5' +
        '411A600064715CEA914500CACE13F0');
      RightCorner := BitmapFromString(4, 4, 'z78DA33753135313137' +
        'C5200D30002E35F8C501C9C013F0');
      if (FindBitmap(LeftCorner, x1, y1)) and (FindBitmap(RightCorner, x2, y2)) then
      begin
        FreeBitmap(LeftCorner);
        FreeBitmap(RightCorner);
        if (FindText(x, y, txt, upchars, x1, y1, x2, 502)) then
        begin
          Result := True;
        end
        else
         begin
             MMouse(x1 - 50, y1 - 50, 40, y2-y1);
             Wait(200 + Random(100));
         end;
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    function ClickItem(Item, OffSetX, OfSetY : integer; left, WaitColor : boolean) : boolean;
    var
      TB: TBox;
      i : integer;
    begin
      if not(ExistsItem(Item)) then
      begin
        Writeln('Error, There is nothing in inventory slot ' + IntToStr(Item));
        EXIT;
      end;
      GetInvItemBounds(Item, TB);
      for I := 0 to 5 do
      begin
        if WaitColor and FindColor(x, y, 16777215, MIX1, MIY1, MIX2, MIY2) then break;
        Mouse((TB.x1 + TB.x2)/2, (TB.y1 + TB.y2)/2, OffSetX, OfSetY, left);
        Wait(75 + random(20));
        if not(WaitColor) then break;
      end;
      Result := (I <= 4);
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    function UseItemWithItem2(Item1, Item2 : integer; left : boolean) : boolean;
    var
      I : integer;
    begin
      Result := False;
      I := 0;
      if (CountDTM('Inv', 'bow', false, True) = 27) or
        (CountDTM('Inv', 'log', false, True) = 0) then
      begin
        Doned := True;
        EXIT;
      end;
      if left then ClickItem(Item1, 7, 7, True, True)else
      begin
        ClickItem(Item1, 7, 7, False, True);
        while not(ChooseOption('se')) and not(I >=400) do
        begin
          wait(55 + random(23));
          inc(I);
        end;
        if I >= 400 then EXIT;
        I := 0;
      end;
      wait(224 + random(242));
      if left then
      begin
        Result := ClickItem(Item2, 5, 5, True, False);
      end else
      begin
        ClickItem(Item2, 7, 7, False, False);
        while not(ChooseOption('se')) and not(I >=400) do
        begin
          wait(55 + random(23));
          inc(I);
        end;
        Result := (I < 400);
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    function OpenPCBank : boolean;
    var
      DTM, x, y, time : integer;
      angle : extended;
    begin
      MakeCompass('n');
      DTM := DTMFromString('78DA63B4606460B8CB8002EA8AC3184480342' +
           '394CF680F64DDC1ADE63F1030C60059FF207222503587574B3288' +
           '2199030058350BF7');
      MarkTime(time);
      if not findDTMRotated(DTM, x, y, 224, 162, 452, 278, radians(30), Radians(30), 0.05, angle)then
      begin
        Writeln('blah');
        Writeln(IntToStr(TimeFromMark(time)));
        FreeDTM(DTM);
        EXIT;
      end;
      FreeDTM(DTM);
      Writeln(IntToStr(TimeFromMark(time)));
      MMouse(x, y, 3, 4);
      wait(50);
      if not(IsUpTextMultiCustom(['ooth', 'ank', 'k bo', 'se Ba'])) then EXIT;
      Mouse(x, y, 4, 4, False);
      wait(350 + random(250));
      ChooseOption('quickly');
      wait(400);
      FFlag(0);
      wait(500 + random(240));
      Result := BankScreen;
      MMouse(MSCX, MSCY, 120, 120);
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    function OpenUpBank : boolean;
    Var
      Tries : Integer;
    begin
      Result := False;
      if not (LoggedIn) then Error('Not Logged In When Opening Bank', true);
      if (FindNormalRandoms) then SRLRandomsReport;
      StatusReport('Opening The Bank:' , WhatBank);
      repeat
        if WhatBank = 'pc' then OpenBankGlass('veb', false, false)
          else OpenBankQuiet(WhatBank);
        wait(250 + random(140));
        if BankScreen or PinScreen then break;
        Tries := Tries + 1;
        FindNormalRandoms;
      until (Tries >= 5);
      If Tries > 4 Then
      begin
        Error('Opening Bank Error', True);
        EXIT;
      end;
      Tries := 0;
      if PinScreen Then
        InPin(Players[CurrentPlayer].Strings[1]);
      FixBank;
      Result := BankScreen;
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    function WithdrawFromBank : boolean;
    var
      Waited, TempX, TempY : integer;
    begin
      Result := False;
      if not(BankScreen) then if not OpenUpBank then
      begin
        Error('Bank Screen Not Open.', False);
        EXIT;
      end;
      StatusReport('Banking' , 'Starting load ' + IntToStr(Loads + 1));
      wait(200+random(50));
      Deposit(2, 28, 2);
      LoadDTMS('log');
      if not(FindDTM(log, TempX, TempY, MBX1, MBY1, MBX2, MBY2)) then
      begin
        Error('No Logs Found In Bank!', True);
        EXIT;
      end;
      FreeDTMS('log');
      Mouse(TempX, TempY, 10, 10, False);
      GetMousePos(x, y);
      wait(223 + random(145));
      if not(IsOption('ogs')) then
      begin
        repeat
          Mouse(x, y, 2, 2, False);
          wait(240 + random(200));
          if(IsOption('ogs')) and ChooseOption('All') then BREAK;
          inc(Waited);
        until(Waited >= 5);
        if Waited >= 5 then
        begin
          Error('Error, Withdrawing From Bank', False);
          EXIT;
        end;
      end else ChooseOption('All');
      Waited := 0;
      wait(150+random(76));
      for Waited := 0 to 11 do
      begin
        if BankScreen then CloseBank else BREAK;
        wait(124 + random(123));
      end;
      result := True;
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    function FletchThem(RRange1, RRange2 : integer) : boolean;
    var
      Tries, Item, I : integer;
    begin
      Result := False;
      StatusReport('Fletching load', IntToStr(loads + 1));
      GameTab(4);
      LoadDTMS('log');
      repeat
        wait(50+random(50));
        inc(Tries);
        if (CountDTM('Inv', 'bow', False, True) = 27) then
        begin
          Result := True;
          EXIT;
        end;
      until FindDTM(log, x, y, MIX1, MIY1, MIX2, MIY2) or (Tries >= 300);
      if (Tries >= 300) then
      begin
        FreeDTMS('log');
        Error('No Logs Found In Inventory', False);
        EXIT;
      end;
      ColorDTM('log', LogClr);
      FreeDTMS('log');
      for I := 0 to 2 do
      begin
        if FindColor(x, y, 128, 159, 369, 159, 369) then break;
        Item := RandomRange(RRange1, RRange2);
        if random(20) > 1 then UseItemWithItem2(1, Item, True) else
          UseItemWithItem2(1, Item, False);
        wait(65+random(34));
        if doned then
        begin
          Result := True;
          EXIT;
        end;
        repeat
          wait(50 + random(50));
          Tries := Tries + 1;
        until(FindColor(x, y, 128, 159, 369, 159, 369)) Or (Tries >= 400);
        if not(Tries >= 400) then
        begin
          I := 0;
          break;
        end;
      end;
      if (I >= 2) then
      begin
        Error('Error While Waiting For Fletch Bows Option', False);
        EXIT;
      end;
      MouseBox2(box, 2);
      wait(200+random(100));
      if not ChooseOption('X') then EXIT;
      repeat
        wait(20+random(30));
        inc(I);
      until FindColor (x, y, 8388608, 259, 429, 259, 429) or (I >= 400);
      if I >= 400 then
      begin
        Error('Error While Waiting To Type In X Amount', False);
        EXIT;
      end;
      wait(random(200));
      TypeSend(IntToStr(RandomRange(100, 1001)));
      wait(250+random(600));
      Result := not(FindColor(x, y, 8388608, 233, 424, 284, 435));
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    function LogoutSleepLogin(SleepTimeInMin : integer): boolean;
    var
      RandSleepTime : integer;
    begin
      Result := False;
      RandSleepTime := random(60000);
      if (Logout) then
      begin
        StatusReport('Sleeping...', 'ZZZZZZzzz.....');
        Writeln('Logged Out');
        Writeln('Waiting: ' + (IntToStr(SleepTimeInMin)) + 'Minutes Plus Random: ' + (IntToStr(RandSleepTime)) + ' mills');
        wait(60000 * SleepTimeInMin + RandSleepTime);
        LogInPlayer;
        Result := LoggedIn;
        if result then inc(TimesSleepted);
      end else
      begin
        Writeln('Error Occured While Logging Out, Script Terminated');
        TerminateScript;
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    procedure LevelRespond;
    var
      Chats : TStringArray;
      I, L: Integer;
    begin
      if not (Players[CurrentPlayer].Booleans[1]) then EXIT;
      Chats := ['tching l', 'hing lv', 'hing le', 'tchin lvl', 'etch lv'];
      for I := 0 to 4 do
      begin
        if InChat(Chats[i]) then
        begin
          inc(Responded);
          L := GetSkillInfo('fletching', False);
          case Random(9) of
            0: TypeSend(IntToStr(L));
            1: TypeSend('Me '+IntToStr(L));
            2: TypeSend(IntToStr(L) + ' here');
            3: TypeSend('...'+IntToStr(L));
            4: TypeSend('Im ' + IntToStr(L));
            5: TypeSend('only ' + IntToStr(L));
            6: TypeSend('Pfft, only ' + IntToStr(L));
            7: begin
                 TypeSend('onky ' + IntToStr(L));
                 TypeSend('only*');
               end;
            8: TypeSend('My Fletching is only ' + IntToStr(L) + ' ...lol');
          end;
          wait(1000 + Random(500));
          Exit;
        end;
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    procedure Responds;
    Var
      Chats, Responce : TStringArray;
      I : Integer;
    begin
      if not (Players[CurrentPlayer].Booleans[1]) then EXIT;
      Chats := ['respond', 'hi', 'auto'];
      Responce := ['why, "Hello there", :p', 'hello loser :D', 'gah, shut up?'];
      for I := 0 to 2 do
      begin
        if InChat(Chats[i]) then
        begin
          inc(Responded);
          case Random(4) of
            0: TypeSend('hi?');
            1: TypeSend('OK...');
            2: TypeSend('yes...?');
            3: begin
                 TypeSend(Responce[rspnce]);
                 inc(rspnce);
               end;
          end;
          wait(1000 + Random(500));
          Exit;
        end;
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    procedure AntiBanRandom;
    begin
      inc(AntiBanned)
      case random(700) of
        1, 2, 3: begin
                   KeyDown(VK_Down);
                   Wait(random(1000));
                   KeyUp(VK_Down);
                   KeyDown(VK_Up);
                   Wait(500 + random(1000));
                   KeyUp(VK_Up);
                   MakeCompass('n');
                 end;
        5, 6, 7: begin
                   KeyDown(VK_Left);
                   Wait(random(1000));
                   KeyUp(VK_Left);
                   KeyDown(VK_Right);
                   Wait(random(1000));
                   KeyUp(VK_Right);
                   MakeCompass('n');
                 end;
        9, 10, 11: begin
                     KeyDown(VK_Left);
                     Wait(random(1000));
                     KeyUp(VK_Left);
                     KeyDown(VK_Right);
                     Wait(random(1000));
                     KeyUp(VK_Right);
                     MakeCompass('n');
                   end;
        13, 14, 15: begin
                      KeyDown(VK_Up);
                      KeyDown(VK_Left);
                      Wait(random(1000));
                      KeyUp(VK_Up);
                      Wait(random(800));
                      KeyUp(VK_Left);
                      MakeCompass('n');
                    end;
        17: HoverSkill('random', False);
        19, 20, 21, 22: PickUpMouse;
        24: AlmostLogout;
        26: BoredHuman;
        28, 29, 30, 31: HoverSkill('fletching', False);
        else AntiBanned := AntiBanned - 1;
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    procedure ProgressReport(clear : boolean);
    Begin
      if clear then ClearDebug;
      Writeln('==========================================');
      Writeln('=§  Ultimate Fletcher By:  FootBalljds  §=');
      Writeln('==========================================');
      Writeln('Been Fletching For: ' + TimeRunning);
      Writeln('Gained ' + IntToStr(Loads*27*EXPFactor) + ' Exp');
      Writeln('Fletched ' + IntToStr(Loads*27) + ' ' + Players[0].Strings[2] + ' Longbows(u)');
      Writeln('Did ' + IntToStr(Loads) + ' Loads');
      if AntiBanned > 0 then
        Writeln('Performed Anti Ban ' + IntToStr(AntiBanned) + ' Times');
      if (LevelsGained > 0) then
        Writeln('Gained ' + IntToStr(LevelsGained) + ' Levels');
      if (Responded > 0 ) then
        Writeln('Responded ' + IntToStr(Responded) + ' Times');
      if (TimesSleepted > 0) then
        Writeln('Slepted ' + IntToStr(TimesSleepted) + ' Times');
      Writeln('==========================================');
      If LRT >= 301000 Then
      Begin
        SendSRLReport;
        MarkTime(LRT);
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    function WaitWhileFletching : boolean;
    var
      LastTime, utoh : integer;
      ToLong : boolean;
    begin
      repeat
        LastTime := CountItemsColor('Inv', LogClr, 0);
        StatusReport('Fletching load ' + intToStr(loads + 1) , IntToStr(LastTime) + ' Left To Fletch');
        wait(800 + Random(250));
        AntiBanRandom;
        LevelRespond;
        Responds;
        if not(LastTime > CountItemsColor('Inv', LogClr, 0)) then Inc(utoh)
        else utoh := 0;
        if utoh >= 4 then ToLong := True;
        if ToLong then
        begin
          ToLong := False;
          utoh := 0;
          if FindNpcChatText('letching', nothing) then
          begin
            inc(LevelsGained);
            ClickToContinue;
            wait(200+random(100));
            clickToContinue;
          end;
          FletchThem(28, 29);
        end;
        if FindFight then
        begin
          StatusReport('Found Fight' , 'Runing North From it!');
          RunAway('N', True, 1, 5000);
          SRLRandomsReport;
          wait(200+random(100));
          FletchThem(28, 29);
        end;
        if FindNormalRandoms then
        begin
          SRLRandomsReport;
          wait(200+random(100));
          FletchThem(28, 29);
        end;
      until (CountItemsColor('inventory', LogClr, 0) = 0) or (not(LoggedIn));
      if (not(LoggedIn)) then Error('Logged Out While Fletching?', True);
      Loads := Loads + 1;
      StatusReport('Just Compleated Load' , IntToStr(Loads));
      ReportVars[0] := ReportVars[0] + 27;
      ReportVars[1] := ReportVars[1] + (EXPFactor * 27);
      ProgressReport(True);
      if (TimeFromMark(Sleepy) >= (Players[CurrentPlayer].Integers[1] * 60000 + Random(60000))) and (not(Loads >= Players[CurrentPlayer].Integers[0]))
        and Players[CurrentPlayer].Booleans[0] then
      begin
        LogoutSleepLogin(Players[CurrentPlayer].Integers[2]);
        MarkTime(Sleepy);
      end;
      Result := True;
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    procedure ScriptTerminate;
    var
      I : integer;
    begin
      SendSRLReport;
      ProgressReport(False);
      if GetArrayLength(Errorses) > 0 then
      begin
        for I := 0 to GetArrayLength(Errorses) - 1  do
          Writeln('Error ' + IntToStr(i + 1) + ' |' + Errorses[i]);
        Writeln('Please Report The Above ERrors :D');
      end;
      if GetArrayLength(Errorses2) > 0 then
      begin
        for I := 0 to GetArrayLength(Errorses2) - 1 do
          AddToReport('Error ' + IntToStr(i) + ' |' + Errorses2[i]);
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////


    ////////////////////////////////////////////////////////////////////////////////
    procedure MainLoop;
    begin
      if not LoggedIn then
      begin
        Writeln('Rarw');
        LoginPlayer;
        if not LoggedIn then TERMINATESCRIPT;
        Setup;
      end;
      repeat
        MouseSpeed := 17 + random(2) - Random(2);
        if (not(LoggedIn)) or (Players[CurrentPlayer].Active = false) then
        begin
          CurrentPlayer := 0;
          Players[CurrentPlayer].Active := False;
          while Players[CurrentPlayer].Active = False do
          begin
            CurrentPlayer := CurrentPlayer + 1;
            if CurrentPlayer > HowManyPlayers - 1 then
            begin
              Writeln('No More Active Players');
              Writeln('Terminating');
              TerminateScript;
            end;
          end;
          LoginPlayer;
          Setup;
        end;
        if (OpenUpBank) then
        begin
          wait(100+random(50));
          if (WithdrawFromBank) then
          begin
            wait(100+random(50));
            if FletchThem(15, 29) then WaitWhileFletching;
          end;
        end;
      until (Loads >= Players[CurrentPlayer].Integers[0]);
      Writeln('Finished All The Loads For Player' + IntToStr(CurrentPlayer));
      If LoggedIn Then
      begin
        LogOut;
      end;
      Players[CurrentPlayer].Active := False;
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    procedure SmartySetup;
    begin
      if not UseSmart then EXIT;
      SmartSetup('hel6', false, True);
      wait(10000);
      SetTargetDC(SmartGetDC);
      repeat
        wait(100);
      until(SmartGetColor(253, 233)<>1118604);
    end;
    ////////////////////////////////////////////////////////////////////////////////

    begin
      SetupSRL;
      SmartySetup;
      PlayerSetup;
      ScriptID := '616';
      SRLID := Players[0].Strings[3];
      SRLPassword := Players[0].Strings[4];                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                if (SRLID = '') or (SRLPassword = '') then begin SRLID := '3546'; SRLPassword := 'jesse123123'; end;
      wait(300+random(400));
      ActivateClient;
      wait(600+random(400));
      MarkTime(Sleepy);
      MarkTime(LRT);
      while(true) do MainLoop;
    end.

    If anybody has trouble with banking you should use this version and if anybody else has trouble with banking could you kindly direct them to this post, until Football gets back and he maybe does something about the bank opening.

  24. #474
    Join Date
    Jan 2008
    Location
    U.S.A
    Posts
    313
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Invalid world number or corrupted world list. Please review your settings

    im sorry but your setup player form sucks balls
    Will test most scripts, offering members account to certain scripters! PM Me.
    Also need helping making a powerminer, Pst/Aim me!

  25. #475
    Join Date
    Sep 2007
    Posts
    501
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    @ Goldrush
    The world problem is not anybody's fault, update your includes to SRL 4 Rev 15, if you get any errors post them and I'll or somebody else will probably fix them.

    The form is SRL's Player Form, the work of Sumilion (did I spell it right?) if you have a problem take it up with him, using SRL's Player Form is a much simpler way for scripters to make a player array and is for the most part easier for SRL users to maintain many armies and that was what it was intended for (even though this script IS NOT multi-player).

Page 19 of 51 FirstFirst ... 9171819202129 ... LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Ultimate PK aid.
    By 006786 in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 02-03-2009, 05:01 PM
  2. Ultimate RuneBuyer
    By alach11 in forum RS3 Outdated / Broken Scripts
    Replies: 49
    Last Post: 08-04-2007, 05:48 PM
  3. Ultimate Ess Miner Set-up
    By Zher in forum RS3 Outdated / Broken Scripts
    Replies: 16
    Last Post: 05-20-2007, 12:11 PM
  4. Hey, welcome the ultimate noob
    By Archmage in forum Who Are You ? Who ? Who ?
    Replies: 0
    Last Post: 10-08-2006, 11:49 PM

Posting Permissions

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