Page 3 of 22 FirstFirst 1234513 ... LastLast
Results 51 to 75 of 546

Thread: [C]Barbarian Fly-Fisher

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

    Default

    I will post a proggy soon, thanks for the script

  2. #52
    Join Date
    Jan 2012
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    When banking is turned off, the power fishing option stuggles, and doesnt seem to drop any. Maybe a quick fix, could save me alot of time cheers!

  3. #53
    Join Date
    Dec 2011
    Location
    USA
    Posts
    88
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It has trouble on fish an alch mode. Also doesn't drop properly.
    Last edited by lilpjer; 01-17-2012 at 09:40 PM.

  4. #54
    Join Date
    Aug 2007
    Location
    Colorado
    Posts
    7,421
    Mentioned
    268 Post(s)
    Quoted
    1442 Post(s)

    Default

    Quote Originally Posted by lilpjer View Post
    It has trouble on fish an alch mode. Also doesn't drop properly.
    ? There is no such mode in this script.

    Current projects:
    [ AeroGuardians (GotR minigame), Motherlode Miner, Blast furnace ]

    "I won't fall in your gravity. Open your eyes,
    you're the Earth and I'm the sky..."


  5. #55
    Join Date
    Jan 2012
    Posts
    83
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    It keeps walking away from the fishing spot and just stands behind the trees.

  6. #56
    Join Date
    Dec 2011
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    getting 1 error, it want drop the fish =[

  7. #57
    Join Date
    Dec 2011
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wrong Script, you may delete it.

  8. #58
    Join Date
    Jan 2012
    Location
    Florida
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm using version 1.3 and it'll start fishing then after a few fish it runs up the hill and stops.

    edit: I changed it to powerfishing instead of banking. Now it just kind of sits with a full inventory.
    Last edited by dakotist; 01-23-2012 at 04:39 PM.

  9. #59
    Join Date
    Apr 2007
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by dakotist View Post
    I'm using version 1.3 and it'll start fishing then after a few fish it runs up the hill and stops.

    edit: I changed it to powerfishing instead of banking. Now it just kind of sits with a full inventory.
    I guess the drop function is kind of outdated.

    Quickfix:
    Go in the script, search for Procedure FastDropSlot(Slot: Integer); and replace the entire procedure with:
    Simba Code:
    Procedure FastDropSlot(Slot: Integer);  
    begin
       DropItem(Slot);
    end;

  10. #60
    Join Date
    Jan 2012
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by newy1 View Post
    It keeps walking away from the fishing spot and just stands behind the trees.
    This happened to me too when I tried the banking option.

    Quote Originally Posted by maigel View Post
    I guess the drop function is kind of outdated.

    Quickfix:
    Go in the script, search for Procedure FastDropSlot(Slot: Integer); and replace the entire procedure with:
    Simba Code:
    Procedure FastDropSlot(Slot: Integer);  
    begin
       DropItem(Slot);
    end;

    When I was using the powerfishing option this fixed the dropping though so thank you!

  11. #61
    Join Date
    Jan 2012
    Location
    127.0.0.1
    Posts
    702
    Mentioned
    11 Post(s)
    Quoted
    76 Post(s)

    Default

    thanks for the fix

  12. #62
    Join Date
    Jan 2012
    Location
    127.0.0.1
    Posts
    702
    Mentioned
    11 Post(s)
    Quoted
    76 Post(s)

    Default

    problem-it still has bugs, if the right click menu isnt apearing fast enough, it skips that slot, maybe implement an delay?

  13. #63
    Join Date
    Jan 2012
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [Error] (48:31): Type mismatch at line 47
    Compiling failed.
    mmmmm ): help?

  14. #64
    Join Date
    Dec 2011
    Location
    USA
    Posts
    88
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Flight View Post
    ? There is no such mode in this script.
    ... Your joking right? Could of sworn there was.

  15. #65
    Join Date
    Nov 2011
    Posts
    61
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by lilpjer View Post
    ... Your joking right? Could of sworn there was.
    there is on his other fishing script

  16. #66
    Join Date
    Aug 2007
    Location
    Colorado
    Posts
    7,421
    Mentioned
    268 Post(s)
    Quoted
    1442 Post(s)

    Default

    Quote Originally Posted by Scene View Post
    mmmmm ): help?
    At line 47 change this:
    Simba Code:
    LampSkill   := 'Fishing';
    To this:
    Simba Code:
    LampSkill   := Skill_Fishing;

    Quote Originally Posted by lilpjer View Post
    ... Your joking right? Could of sworn there was.
    That's Heavy-Rodder. This script fly fishes for trout/salmon in the barbarian village.

    Quote Originally Posted by Ortiz817 View Post
    there is on his other fishing script
    Correct.

    Current projects:
    [ AeroGuardians (GotR minigame), Motherlode Miner, Blast furnace ]

    "I won't fall in your gravity. Open your eyes,
    you're the Earth and I'm the sky..."


  17. #67
    Join Date
    Jan 2012
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    what do i do?



    I already fixed line 47
    Last edited by Zackeri; 02-01-2012 at 01:57 AM.

  18. #68
    Join Date
    Feb 2012
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Just doesn't work D:

  19. #69
    Join Date
    Feb 2006
    Location
    Pennsylvania
    Posts
    1,524
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Zackeri View Post
    what do i do?



    I already fixed line 47
    You need to replace the ENTIRE procedure from beginning argument to closing argument.

    Simba Code:
    {/////////////////////////////////////////
                      //     ~Barb Fly-Fisher by Flight~      //
                      //                                      //
                      //            Version: 1.3              //
                      /////////////////////////////////////////}


    program BarbFlyFisher;

      {$DEFINE SRL5}
      {$DEFINE SMART}

      {$i SRL/srl.simba}
      {$i SPS/sps.simba}
      {$i SRL/SRL/misc/paintsmart.simba}

    Const

    //SRL Stats
      SRLStats_Username = '';
      SRLStats_Password = '';

    //General settings
      DoBanking     = True;   //True for banking (Edgeville), False for power-fishing
      RestAt        = 60;     //Rest at this (or less) run energy before returning to the fishing spots
      FishTimer     = 8000;   //Fishing detection timer (in miliseconds)
      ColorDebug    = False;  //On-screen color debugging?
      SwitchWorlds  = True;   //Switch worlds after break?
      Member        = False;  //Using member worlds?

    //Break settings
      BreakIn      = 135;     //How long before we take a break? (minutes)
      BreakFor     = 15;      //How long will we break for? (minutes)
      Bir          = 13;      //Random minutes to add/subtract from how long until we break
      Bfr          = 7;       //Random minutes to add/subjtract from break duraction

      Procedure DeclarePlayers;
      begin
        HowManyPlayers := 1;
        NumberOfPlayers(HowManyPlayers);
        CurrentPlayer := 0;
        with Players[0] do
        begin
          Name        := '';
          Pass        := '';
          Pin         := '';
          BoxRewards  := ['XP','xp','lamp'];
          LampSkill   := Skill_Fishing;
          Active      := True;
        end;
      end;

      Procedure CheckStats;
      begin
        if ((SRLStats_Username = '') And (SRLStats_Password = '')) then
        begin
          case MessageBox('No Stats account entered, would you like to set one up?','SRL Stats',mbYesNoCancel) of
            mrYes:
              begin
                OpenWebPage('http://stats.villavu.com/register');
                TerminateScript;
              end;
            mrNo:
              begin
                SetupSRLStats(218,'Anonymous','anon1337');
                Exit;
              end;
            mrCancel: TerminateScript;
          end;
        end else
          SetupSRLStats(218,SRLStats_Username,SRLStats_Password);
      end;

    Var

    //General variables
      Version: String;
      ReportTime,CommitTime,PostID: Integer;
      Path_ToBank: TPointArray;
    //Dynamics
      Trout_Caught,Trout_Ca,
      Salmon_Caught,Salmon_Ca,
      FishXP,Fish_XP,Loads,
      Loads_O,Stage: Integer;
    //Break variables
      w,x,y,z,RealBTime,CurrentBTime,
      BreakRounds,TotalBreaks: Integer;


      Procedure Loadvars;
      begin
        Version := '1.3';
        PostID := 843604;
        MarkTime(CommitTime);
        MarkTime(ReportTime);
        MouseSpeed := RandomRange(17,19);

        w := (BreakIn * 60000);
        x := (BreakFor * 60000);
        y := RandomRange(-Bir * 60000, Bir * 60000);
        z := RandomRange(-Bfr * 60000, Bfr * 60000);

        Path_ToBank := [Point(4245, 2920), Point(4200, 2880), Point(4190, 2815), Point(4235, 2780),
                        Point(4235, 2720), Point(4205, 2685), Point(4205, 2660)];

      end;

      Procedure CheckVersion;
      var
        Page,NewVer: String;
      begin
        Page := GetPage('http://villavu.com/forum/showthread.php?p='+IntToStr(PostID)+'');
        NewVer := Between('Current version: ', '<br />', Page);

        if Version <> NewVer then
          ShowMessage('Your script is out of date!')
        else
          Exit;
      end;

      Procedure Report;
      begin
        ClearDebug;
        WriteLn('=-=-=-=-=-=-=-= Barb Fly-Fisher '+Version+' by Flight =-=-=-=-=-=-=');
        WriteLn('Time Running: '+TimeRunning);
        WriteLn('Trout caught: '+IntToStr(Trout_Caught));
        WriteLn('Salmon caught: '+IntToStr(Salmon_Caught));
        WriteLn('Fishing XP '+IntToStr(FishXP));
        WriteLn('Loads: '+IntToStr(Loads));
        WriteLn('Breaks: '+IntToStr(TotalBreaks));
        WriteLn('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=');

        MarkTime(ReportTime);
      end;

      Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
      var
        mx, my, Pic, Pic2, I, B, H, TPH, Numb: Integer;
        TTP: TPointArray;
        Canvas: TCanvas;
      begin
        SmartSetDebug(True);
        GetClientDimensions(mx, my);
        Pic := BitmapFromString(mx, my, '');
        Pic2 := BitmapFromString(219, 56, 'meJztfWdYVNnSbu8Ou3POTdMBm' +
            'tyEJoNESZIzKBkkCyggEkVQgkRJKqCiIoIigghiVsYxzqgz44STZs' +
            '75zjn3fs+53/1zw3Of++P+ubVpxzEiOOrMfEPZPxR771WrqlbVW7V' +
            'qLXC4NXobITgEj0MICJ6IJ5DwBJRAQPEIEfv5r4te4RP/6+RzjVZC' +
            'yI8f/PNqJZAoJDqbJpDwDY3lxlojcwdTGzetztNWtk5AEuJ/rXyqT' +
            'R00Zm4aYw8lw5VEYK1Z5G+JEARHRIk0FpXJZ8CHxWdyRRyxoUhhJt' +
            'fojCy9TH2jvXPys7Pq0rK7UjcdijA/JpCW0kxOcY6OjoiTGHg68nF' +
            'c0Mr5zO3OKD1SWHO6rHq69PD5wT2HdxkkcvG0NbP8LRCCozIo5lpz' +
            'v/D1YakhqekpMSlRiVnx5dvLaluq64erd07tOHz94P3P71/8au7od' +
            '/sXvp+e/dNk15PGL/72yOGxTJhJlboKENKvi8++b1uzv4n1+NzE/D' +
            'LXaJAp2UrjxVM4Zgwc4cPz+d4JweGJCGAk+OBRBCEhCPH5D8QILFj' +
            '8p4ElMB2xQsQNJ4tyKGFX3Xs+bb1498K1B1dOPRrd9+WeosfJPg8s' +
            'NRNsWS1NmEmRFFH9xx3rjlR69euu3rwi2Uqlaok+wd4kOvHXw6cgn' +
            'cIJRdlBqKSEalOrjt0W4V7o4BbpyJaykN+aQQImoTKpKlOlrbONtb' +
            'OVpbOZxsFIoZXLzWXPPgbmUrFGyDSkEzjIb26CrxJgMJlKmrQ9Iet' +
            'e9In/dtDyJle+iyEuoAlSqaB9MEKjFq5zhTZqc7hfpK/Em0cU4LHY' +
            'R8Dtnq41neaIC6kO7vZEykcwyBXyGRYYGWDja2nqbmRoJxWYcBmGV' +
            'LIBgcjHI+iH5vH9ExgYx5RpW6wRplEdh42VHQzvg3Ydfe0t7S272u' +
            'qr91aWtpbkNKUn1ccllSX6J/uQVYSnAPs3S6BoA7Uspzrr5JMjYX9' +
            'wMqihmzdJteXq9XkeUbFRVh5mBlopV80ii0iYHcIfFEeRkwwy2JO3' +
            'JuKvB2wtLZEoxPCSXw+fBAbEtecC2Tuz9muIgwiOJMGndyZk3o0q+' +
            'S51/G+H5/86vfGxv99t6/hbfhmfRuZ/mrTnTtXioxtNd2pSL0eOjB' +
            '8xz1USeQjul0g33wtBiqq2VOW1Zz36y+fO15UZZanWjlqBmkeRYsk' +
            'p5lWeVyuWVhDktpK+/r7bTz6JGPV19LejMCi/Oj7fx3AUHpnI/Uj5' +
            '2nKE4Fg+aM2Bih0zRVfvXM76MhogsayGDnmlrJJuUE9X7mP6HXfsX' +
            'Gh59Phhz5NmZTcjMSOeKPgVcP5OBHmrmYum4Gjmgx/ump3guwW4QO' +
            '7wRucAwuExnWN0u+Z2DH7eU7Zrm9zU4CO4x1Xz+TMJwdFZNBMvdeW' +
            'uHUHFPh+tjPAmwlMQqhWR5YfSdMTsa/GiPFp2Y4ZroLPSQS7Ucel2' +
            'RJIUT2DjAbc0XqmWVtIBZkutRB86g0PwCDD2nvPZpdRVF2xdNJcx8' +
            's1AeNt6jdYInMObvk4g4uUaA1DT/Bfn0i5ErY/3ZnAZH0NZq+TzZx' +
            'KegJeqxdsqt44vjhaPZNMdiLgPjpGXJcDsZAKEg/CyoFP3x2wWpMG' +
            'b/XkyLoIi+qAAAQLlEyhmRO9BO5dFNT+JorE1gnz8g7KE0kh0C1QS' +
            'woa04n0ZPxg5T8yNy4kZvtNXdisnY0uaQMZH3qxnMhW19DRLH4377' +
            'C/3Qg97WbqZg+N6P6y8Vz5/JpHIRLWLomgk+/Z3n0QN+avsFfgPqt' +
            'wVEIFEUFkbNvXufvTdQ69xa7cNzmTGj0ka4Cgyka4icyPJZ+ZO580' +
            'mbSnaIjQE+XxAnuHlHBnbK821e6gjriQKs8n3MRo4GQMzWXNr82df' +
            'Pwg9s8412HkZQAg8cIWc6LTIxps7er5sidkdojJXfpx4vSo+l3jFY' +
            'TW6d1u2EK/ZNMsoTcflpt6HLYk7Y+Qa2ceZ5jIsQYDQBpqXTeVPfX' +
            'UyvzPLUCtDiE//i0QhMtQUXhzl5Omx4esDTS1Ncp2ERP2wjgI0IrY' +
            'Q7NhbPnl5Ykt1AVNFfS9plN4VNB6rm3syndIbq7EzJpDe+F4IZAYa' +
            'WWVjxbUnl+Ou+CVnbQKv9XGyuVXxCTqiMMlMMyrkp1iys0pTwhMQg' +
            'YqfUB69+NnN1NnI4IQgJo/5y2JIcAUQETYXZu673dJyty6zOAOVEp' +
            'Z+jiPTUYYFWZxOnzgzMfLJwfy+DI2visqmfGi9kCgkqRu/72R3/5W' +
            'OkKwAlvh9IDfMFdBtIyx2L1R33tldWF4gUgiX8fMQnTVO6vIjRff+' +
            'dNv/qJPOyxalfpTS3ir5BF2gBvjCHflDJw5WN1WhitUhHJimVCccG' +
            'h6aeTBZum+LkZ2SSP6Fy83gjgzN5FUtO8a+Oty10MLyJsGMwENSBC' +
            'jdgeS+XTd/Yb73eltRb65lkClTwPigwRojBEfjUI2iDQ5dPFA+U2i' +
            'xQQPr4ue/FVwBII3UbUlzD2bSZ2M8I91pLOoyPFCZVLsQbfn5/MFH' +
            'PemNm5Rmhh8pXq+KTz2zZKSscdu+c+1OreZKRwM8ecV8gqhZVFWIZ' +
            'N/5ttaru6I2h3MknA8HVldIECAsnc19DzrkPoxvPboHIWOLDvw/Ox' +
            'Dd1r1l4eZ87cXS4tYCM1/jj2GNSzVhroIduM3n1q1bFYdKFI6y5QL' +
            'WiglwsqGtQddAx60vFrMGN5k6Gy/jCmCafCkvKX/TkTsHiq5nZGzO' +
            '4IjYHyder4rPn55iIaqNItsNViwpc+U6AuPnGXJCSgKu3r5cfnKLi' +
            'Y8KpX6EffplaakGFREZATmLZowd2uSLpyGw4qRF9KmZqVP3TiRPh5' +
            'fWbDNyVkKkfs9bh8hSbYe0tIf+3JsJKIFvy97T3zB9YyqpMp6ueh8' +
            'IAYAWg2Lkb9g4XTN0v3drTYnEaLkNFyxqmBvU7627/+RuzIS/7Xrt' +
            'R4vXq+LzhUcJWAUPWQ26J6IEsS2/e3/n9J3J2r3VBhbSF8Z6j77nD' +
            'bp+zRfxiFgmdsvRkU3x6gMsfiJFUcY5fOTw5K2Jrnt7/I47ZhdkK7' +
            'VyLGiuhL0V7x3AuCgN5Riw5LZSIw8FzZYIq0DfywFj8f3orWca5y7' +
            'MUa2I+lIksoQi3llEWMosYftme0zdPl20kBGQ4MfgMZb5PkQNY1dV' +
            'xbHiz76+v3v/LgMbCZ74MeL1avnU90m+62Bg/GRZEK//XHfblYawz' +
            'A0s8U/pDIIgkM+SeAQw8jeJHfI+EpWENTks61Zfo2vSG1VJIBLMLM' +
            'yk22lULVH7iF91q6jrbtP1J5dP3hzt6uvUxWj5ai6BsiLPCONC9k3' +
            'k47FS/0tSQl74wERoXArDHoWFkN2Tot7PLBxLz2/IhiQRz0CYUprz' +
            'Ztsd88VHjhzR700QRXiZtdjARURWEt7NS0MclFlJGjvrHzy8n3coT' +
            'eViQFgmDmLIiqYLs66Y33L78S3vMhcUxn2zDN8jrYpPEDiELVS24j' +
            '6Kpc4uZMlHYe6UiAcj8S5wvfTJQvlYkZGXIZH6dCwCEc/isax0lvG' +
            'J8dpNJgQm8nKitNSrKZQKHN0cfGO8OcEoVrXGv6zoN+g6c1tDCSrH' +
            'v6pKWAVMFtM/wJ/pQYKQHf3vbv/2P3/4/j/+Mn53lOVHIgrwmPGjK' +
            '9pIgtkxuHQTR+OEtPik1E0AQV9gnkokCfHwQhKXSCQTqQIy041U1l' +
            '4ye2XmzOLp4Qv7p6+etTghNE1SgDFTTImtHa0R570SqqOwNmkKziT' +
            'TILzTz7CJkXlgo2ATBeuIXpVt6DOUQG3SeMTMvTMepQ4gjadvwC91' +
            'YmNt2E8DCh7FQ44vMhQmFMSM3Dk4cWOM4UgEjWCiWCYaPlPBz6EV8' +
            '0kAJskkBpth6CItrS/Ja9hMNiYswx6YLtgPnUtjaxgQdKgWRLKKAH' +
            'YisGHX76s9+8lkY3Mjz4yltyhYFEwpw3qDhcFOujiPOnCtq6atkmz' +
            '0nCtAsAgiUPPik+K40WSjEdbC5YX6hp14KhbFiBQCKHoZXZ+9ekbZ' +
            'zkjJSCGJXiwvIzgyDbXR2ThWWrCDUbsfBH/9f386939OHv1X/9EHg' +
            '9GHA0yqxYapPIYLCTXAI8skbktTYIhoxv4Ki0aZIJVidIQlSKeCiP' +
            'BURL8S+UpuWlrahi1+Vh7mZAUBZFLTX3n+k5nys4W59ZuZXui6cge' +
            'jIZYuzwLL7o0J/secNSfZLG+UYkrYVBt7ev5U49Wq7EsJ9+7fsz4q' +
            '94n3APNYhZ7xiEgm8svzAAkHnHPATiKARZNwZDbKFDLYMhZXyeaZs' +
            'lg2VIgmTBey+TqNS7R952D7l19/2T7RQpLC9HFpBcl0JxKW8b1OAq' +
            'AgigQlifFY78271mhXxiebb8OSO0vsPKydgnUJdVGnb52smd0Wlhh' +
            'C5L1m+wBZ4o0hoPO1bFkEN7Y27PiJ471He1Lyk6jmBIYT6fj00c6F' +
            'JrtkCwIXexjWI8OQKo5mxRwIklXS/R5q9/61VryF6he+tMeNe7pRw' +
            'jai+6S7S8to4CXO/G3U82sTYQ6VpiOCuukKckpa8jK69il3FeVQQw' +
            'oC2AaMlwySKWEYJ0k5YeScv0cv/t+L1o95hk10RTvDZJLt/rlRy8O' +
            'ambtnUiejdnbUsgNQbIG8zgog6DOldGkoJ7ovUNHCWH/d+tjd4UNT' +
            'Q/J6um24JTwFy1ntoJCW0gzqGeYZWLNQeXfJkauD1UfLvNJcRZZ8V' +
            'EJgOJPqu2uxAwIMRJRGU/UzI477UDSErMq0TZNhbbN77BqMwU1F9Q' +
            'UA0LWvNuVrOCvCTktYGpyJhdZCVkXnhKGZ5+MIPARGYXmhrtGOQWl' +
            '+Afk+/mWe4Q0B+X0ZPUe7twxtlu+iu/Saz94/W/+4dGdnHSqHRYXb' +
            '2988MDBAsyG+ipcgKvFlvODEIOcaq/T0dIqCSCDjl3qeCa98llA98' +
            'ZVerxXzGdkQtGd/Q+zQBtkOutVR6aXP59v/sHPdiBWkXa8WxyDy0j' +
            'hUrpZpEMsr3Js7NT955NZgyeXMusM7uBFkhIZwNpBPXT/ZdaINANv' +
            'Sdg/Wa8eLI/eMdRVfT8+YjFX1ME2n2cx1JP94XwIb45hAwizWOtnE' +
            'fESo6GAMXu2/ev+SMJ3C30jhOtDhJRwdXVaxnK4hHPu0Oq1P9aSLq' +
            'S8bpJjuke5sOs259z8W1QdZZA0BFjg4W4oZAbyTuJBqcY3b92Xb4l' +
            'fXTy2c9Kiyx1zli+oAXTBFDGEoo/5wddxV/6rTW8UF1LHFY4BFebG' +
            'U3Pxc+D6k7dY+lsJsitOMih2CZnUnb5h2KR7OsYw25sk5oDsslyHh' +
            'fHPWKf2koP32jnaQQ/xg6MaWaFiAG8bdXIpt+F4MMAayEp8ztWl9h' +
            '5OhrfStjghUDCFAJBOaWZqFxAWD9EzPcu7+4dbY+eMHzgxAlFn45M' +
            'L52+e6PmnOu7IpeMbVacI49Ih3fmeW1VYl1YqQcyve+Dg7vzhP7/d' +
            '6+nv2T/a6xDig3JcHRikklbM8cSBs45Xghn31VAsC+FIzd42Dp72T' +
            'pyN8nD2d4AN/cfDUWbtbGjuoBKZcCFiA/Zbg3Cr4jDznlXc2eWziR' +
            'NuhloAJJ+/H5vJmRuAOb4XG8KUEGTJouoTK8kGzdqdMX5gavNWXMB' +
            'cUeMCtpKwEa5+A7xJwm9qiR24MhdavB8vHHhHiuaHk8VMnF+/d7D2' +
            'yDxwCOCKzeY6shq4NMtf3vFGEZMNwoduQpbKL2TmyF+wk7IyHOJ8a' +
            'XO8LuoPpKL1kojzqMroGxLU5fzNEXiLrRRAJIZtBtg+0aZipbP9bD' +
            'eTXprsl0RujnP0drXzN7UNsNm/OSq9K2dvXOrFw8uvvnjTc2pHalA' +
            'hzeWYJoHHAjUI/1vDhofkHs+Mz42Az/HjKkfOH2j/bJUih+CR6YqC' +
            'Cg0THR4nyqZfuX5iaOSNIpzjvN7eJNQdE/Sx1hcnKrWU8DZvth6qH' +
            'WS6XjcATGrYwwCCra6o5WjpEf7AKWCkHzvQV9efKbMXI29JeeERqK' +
            'bJPsbKoNfA5oiv5Iu0//ve/Qv/mIN9Nl9fRjY+xlD1MSTGVn0g22E' +
            '33r1yXmp4q9mHjmZhfommJhddSNKfZrhFOeBYCmVpdY+3kudNJeRs' +
            'hHLy8rnkMxwTb5it1i49vJPVE725p7Bnp2jQe7jZh5jJh4nTKyHpC' +
            'YjbOMxnnaMbYRsMs7QGD5KZYjxxnyNEwD8DFS6yEDinalfAZUrXeL' +
            'dkR1jh8PFrtLBe5EDc3RARCFvYTRwgOpZLoKjI7EG0f3jv7yQwk7H' +
            'G9odm52SbuRjQFqkfmVFPCmbNnrl27RrPDNArZNM2aOHTs4Nzdc4e' +
            'OHQLns9SaSKq6XJw1ulFvwxC1ee6MgE43w0ZGyVAeQNw9HXtUB1gm' +
            'xzjmkWo8GQdRDNYUOKVldK23fH0f/stLm4pa+JrUni3r/abFd8DBb' +
            'b0rk8/A68svKDY6yAo+ZENC/7Hee9/egUURuSWUJMM/tWcaWeTIhY' +
            'D+4OGD2gulunwLgMqxZRHq/azE60EQekSebPgiTUGOK430van97u/' +
            'fyHbQICIEJvlx5awXCil4HEoniQ1FGbkZ8gb6F988bl9s4MVRbNtV' +
            '6nWGRCY2IpGDZ/ujU1NT3T3dYi3/rQYJ6ZhrqBM3HJVupw3+0F3/r' +
            '2KTSQ7LF0vWSAZ4STHNoloetHm9d7CnxlEtMOaS+SSs9RrCloroV+' +
            '4xe2c6ayRR5SIH3AgCzC3JHjl7eEdNBc/ohQo5xAihEX9zbfr9x/c' +
            'yZmIC831itoZ7jdjm30qKf+wb+K3thj/bp/w1qPDviaX/SKv5Z8G+' +
            'f+6++I+ZG3+82nZ314bTLpU1O0CJJhFKQTJFWvEWPo0d1RxjFugFI' +
            'D24r437Iutub0vtSjC2Vf+0d4BZIyow41pmqU+eOjlybahwJCu1MF' +
            'njomZLmXgqXi9tmphim2nWenHX4PgB/c4OsFHUm3vhzvnKE1sF0TT' +
            'MAKiIYTFndnF6YKgfJIA9pUGzKzMh01k3agGBI6E+CryH64xx6Y5S' +
            'QP7wEroh5e26/pHPV3/C5DHXJ3pDvtB4b0fy9kSZWvqaGiweB0M7x' +
            'FuXzuQGf+Yg2UqF1Ay3lFbz1dzAIp+Zxam9n9bXNFYx7SggK+d4HS' +
            'cU9ZuxS92bAHkNjCLQciK6/M98fyL2zx6cEDQ6J0JiJH5184VIIlh' +
            'aW6j2cGzuCf78X/4o2UpjB5KD44MYQrq+2kaXUa2y1dOz08W7CgBD' +
            'vn0/AgRoTfSocAg75Tn+/YiijQFYKHZH+IbwDbae1ko7OV/DpYrJT' +
            '9OQH9kB0UmtRD09PZfuzVd2bZdZSTAnz0MiU8KbpuqbO5sBCD2/tA' +
            'Hhi5y4w8cGJx+c3NpRaOZiIrEUSsO4RdUFnt124CtYfijkDgCcACc' +
            'DA7CmAG5BvAALBAjH9EC1/uYARVKqNsac9ns7n0u5PGSyUg9+++nm' +
            '3ltthaX5guearyBowj/T81IDTztPLU42d+/RBCl4hhyspPPjHEH4M' +
            'Iu2jrbcSxu3tRZh/oeK2NUaX/j0fPlUoXu6I+RxmMNRE8o6S27evh' +
            'GzOwRLTumIfYQ1N4qs6GAKM6m57RmKNqbtnCy3OUPiJMDKlQQIc9K' +
            'QLu/Jv4wur+vXq4uASFXiyqrKsw9Pb1oIiUgMw7pPX0cgcyOdsnV/' +
            '04EnnbI6usCZhS1DFkkeKOg+1T771VTmYKLaW46tXBIOgh2EEshE/' +
            'HI9IfZhsdhLHHnK97t/fa0ZZ7tUaU21pvDCl8dAcDQGLXBDACRrI/' +
            '+13/8HK6YbyXurq4FGhtWdgFsSnmlFyW5NPTR7ENAmU0J/e1IDEmI' +
            'gMiuxQQbn0qcXAZcaNtPtXeypTAoGhwivL9QA9FK6GDSfaDh8+8DW' +
            'qhKBmg8DgffwiHTNPrNxz8guuaPkp3ZBBEfn0uRRgqMXD+1cKA9K9' +
            'eeK2ViIISMgDYhodHuiyJ2j8JSZrFf7R69PSUtJz0zflJuQvj1Z2c' +
            'oG4zTLNZSaicEeaBZEUTp1RXyCrNhU+yjrzkvNVRdLfOM8aZzn4jU' +
            'Bx7FmCNIoxiOs2vHtAKIgj3ihUAmWRicrfWT+x510swaqbAGgFKM8' +
            'ycDF7sbLVXkVOTwztj5E8tzpbeNNYJDCLCqwAfYZWO8BuerQzf7GU' +
            '7WAIgBWxbSFaLxUKBtLLQgUvKW3WdiE51t0/QYikAhGtqrt/SVff/' +
            'd11HE/q3XmpDccpgPQbuAsHhwZnP5uwvWQOcwRK/IbE9JrN919eKd' +
            'wPjU8IwTwM24JtoEfOHbiWNVEKWMdCVMlB/Hc6LrzZtngD12QeXkH' +
            'eNOY1FfNAGtalkvDCoK0N4RP/tdDw70MXjzF2cPpaeaIYAEdYPDJ0' +
            '2MNp6pUQTIyc2W1YDyOwaHbRlmOXz8Rs+gTvzUKUMFyrhVTFqoJVO' +
            'w+X7PnWk1YaghTgJUmwMC0fuaeE9o907Wm69XPCsiwqLlqVnDF+uu' +
            '3ru0aqoXU5gX5/3jjBIbZiNhLADhhJU0uAhkN6JeqJdCUKAgNvkvh' +
            'oNoos5XwieBxHCk7Mi/01K2xnNNJ5t4aEoX0/KCAeHOa0z2umPXP7' +
            'APs9xStPVtDeIQr5mzcnKDYyzAeY0HuDGi/YCKt8ZMdFR1lSmc5gY' +
            'YtdTIXtYuzbLvcePn6JbIai9cMN5L9hLL3L80LfzgnzKBCsuCzx9n' +
            'CyxQSeX3RAPBeaFJw9c2S5XX9JgIECMkLzOjMV2NZbSkqq9d3n4Kp' +
            'sMUsdaLkxNVjPQ9aShq3YHU5Ao6mI/ae6jr1+fFt7UUKWwN9Jx5NR' +
            'LFIVp+cO3Fw+ACAHHicqiSV1m5b+HIu5VZY2rZkmfL1zZ9ElGihM/' +
            'frdhn74VDOPyJZ61H/NB+BhK93g/AIVY6qcgRzC3Pt3e1iG/4Ko8B' +
            'T4eckjNwezLwYGxIfTOfQl30Ax+DTXZMcRq4PFp5Nt/QzIS01G4A5' +
            'GbkpzA4JTl0+GZwUROU+bZfFKnKO1P7DfcNXBhJLYniG3FU0nzxfS' +
            'wcbE7MScuJWwidIA1Brcd2WT+98Wn6wWGWnePl0Ax5zFx372wcvDD' +
            'RMVxX15aoyhWQFVkyGEAaOSG2hXNdoK8qmdoy2srxJG4Y8khZDUo7' +
            'EaIPNaVyafhHxFdzN5Zmjdw4fmhzCcigKIt5Cu/Dl+eP/vl/exADl' +
            '6ipNLd3MwRr1BXPgSqIW19XVvVXXr58UHuEI2REpYc03ahvuVqRvT' +
            'RHJX9N0Bz/BLpDxZHYOtt344mrGaLxigxhAPnBonCY9vziz7XyuR6' +
            'ILlYfViyGQAXyqaq24cH1+Y100VoeHZWWDdg913PvTbZcxE+cABwr' +
            '9dZVlBEdlUZxCdbEzAY//44HJKbZBNc3S1vLprhmCI9GIVDNi9f7t' +
            'PVNdDmnWTDFjhS1S2OlmY0n1rqorjy7FTQRqvd8YBZ59H+BW4tbYC' +
            '4vzZcNbVI6GTy0fjxNbCdz32oxcGSrbUcZRsvSMYZsdkbTRuWMNE9' +
            'UqfwMK47V18/fMJ4ZyLUXtnW1nbp6u3V0rNhG9VhpgflZFqvzhzG0' +
            'z2bMXzh0Y2s8OQlEpni6gOXk6MH1IkHUq9zHrR6vUgyyHM6qorHCB' +
            'nK83IRhCrpW19jYvPJiL7goC6AWZbNtQ69hnI47nlcIcimeWs4mNB' +
            'pvvT7iUYKiTtQ41vUXXb5oUSMBIuqOuYv6Lc3EX/MPiQl5dkuAbwR' +
            'r5zszMPcn3PrtXcaUgoziNocScA2qIT21IXPh0vqFvp0wn0hcnwT/' +
            'bBWkrJ0sO3zhgn2mJQUoUYXqSOmaahx71bNwTpbJ4wxGApdO4IXkB' +
            '0w9O1/9xq6yaHrDBn8p+2gQI6JGsIIg2U8+cm2zvbuPbs1Z+Th+kZ' +
            'GyrKhnIf/zl48wDiRqdevmjUvC/MjNxfcvOSzcv1jftlJiKnjIMS0' +
            'aOxpdER856texvFujY+lMDbCN6UKX3+avn6lt3SiwF79yAsSo+QSB' +
            'ynbRvqPfglb7EgrifylCvbF+CXiCcqbKF9YPVgHLHZkc9dziARoI2' +
            'BkD8df/cuPXmTlEBTd5IT6vdpLAyfIY34C9qN8PqsbI7D27Lt7EAZ' +
            'kCeVT9WdfDofpskM1NHY46M/UKHwxIulfsJW2Ya3qLrN0tAY2e0ZS' +
            'Dnuz99u+GYOwDI58GP/pojtpAl8GDlNGXcun2r+U5tbGuIxtkIS6Y' +
            'g4bUh9QzuO3i5N7xgA0WqD2qIobE8qSIe/G3dpTJZGBcrgbIRoxTp' +
            'zOLZkrks/0RfFv+NvfGAo0xyZFPXJ/1PO2ZmZXBlnGfBGhUS6TpS7' +
            '9HujrG9ilghQ0RbeQcpTMrKwyJ8zGvxy2uFTTly07cEEfCHKp1hw+' +
            'DO09fHU7Zu4siZzzZwISg4htnJdzJm5ma4kdjaJ9AQSJ8PHR3um+t' +
            '0SdUxhSvIs94Hn8Ck0tmgZbSxc77FLs5Cv4GCwVTAqGSEslTZeJ6w' +
            'uw5MCNGVoR1zzePXRiNa/KP2bLC4zPn7f/+b2QUu0wsFvGfjZQU51' +
            'DPDBiBtEaSpmdu2cGue5YOCh1RnixrGau3zLDgqJha5XhoCj7BFLP' +
            's0y7OLk2/V9WsI1jud6uBnFzjh/PDbzyq6SsUW/KeS17dnMGkSE5E' +
            'mWt5zcN/dz+7U3d4W3xlm52dN59L1u6s8J0b/aG/72SZOEIqnLCUd' +
            'XKJrqJOsktb3fUv2hURYgPAyVE6IqQu9cOvCzoFqlb3hco2meCyJq' +
            '6mvdsiwomlQfe0djBzlE6iWxOLe/EPnBhMqorlmrFU06y4JNigkUH' +
            'OC9fCLh1srt4qVouWbhQgowcTdKHYs8MIncw4ZWpLoOcnjcVQromu' +
            'Llducxr5RAwsTvDp/I2V6Yar5WAN2Wd87nzNaJZ/AJADa8onCQ3MH' +
            'wXHpa1YEBgJhKyDFF+znpT0srKOPiYqduant8Tm3EgZv9AVNOn/3b' +
            '9+U/StNmEalWhBiEmK4oufKaAiOzqN5bnLtu9bRP9cNxgwqtq823T' +
            'faCdiexHx56xRBEDIFlVvLNjenXrlz+e26fmX6KA01sdBkFqZrRll' +
            'HHw2uK3PQH+sDA4BMR2DIV3hLkysTh2b3L3w9m7YYEbk3ULfemsGj' +
            '610THkUkbvyy0S3tx1tACHoThYW5sSEasF/LD1XgIfXNJ5CPjxwdG' +
            'b46EFMQAU7vjYB/6Q2EpTo81r2wBKr1GgcbyOvKOD43srurQejGQR' +
            'mr65JF6WhoeKjBTvr9R/fKy8skRuLlTxwTULy5p4lmnNVxfTfLF8U' +
            'zX8hPwY07brSW76InntsgzqOCa1rXbjNydbiovlCo4f2cAw6r4hMM' +
            'EphcP27fPtuEcYjBRexYza7d9X5V7gD2XtjeRZZupWCR6Y6kgq7N9' +
            'jfkp+6Off7oc5tv+aoBFk1LcC6wVhorYOI/PYLHMWX0uILoycXxtt' +
            'EWsFj4SXNrc+PxOpot8WmLxbOXExAai2ZiqQnODqicLxn4pHtjUTz' +
            'PYAVV4ueGo8spFilq9UGWspOZcieU4Y4doiFwELYxA1a6X77HvmOd' +
            'Dx8+bP9ql+15mVe9o87LFnzjsyHwKN5onaF2WDo4PKgv1UJQgBQ4a' +
            'NhtfOrkyN3Bc9fOUszAzyLccPL+qz2N89WaEMWbAD92lIxN4qpZTA' +
            'M6mYUSqARALFhVREUA99swVNs/3bOrs16+XkjjUVd73INAxWsDzTT' +
            'j7BvfXqlq3+6+zv0Feb7KDAln7KEU5VId55UQjkHLwMnzzU4kMT61' +
            'epPRIebQtf7aM2X5N5Nipv2dE3TgUn5O79mq+AT5W3tZinKoujNyC' +
            'KZYlzgZl7o3of1wqyAJ25ugOxCBZyKdQKQQwBQZSqyLSVuh6r3QUT' +
            'afJymheV4zk+9icMLJihq2jb31y8cWIBYo0KSyhGvXr0JeQ7fGXO6' +
            '2uhLzESFEK2QJs+kb4YBtipxo7KPwq1in7GJ++Y8vwuc97UNtVpvc' +
            'ETlIYmms1YKg4Z8lX3//xHOfLScY5YSiATUe3cfab356s//x3qDrD' +
            'soeZlJ+oqlOAynw8+gI05q7EuZecCgDREESIXQdcd9wV2ZbMlhmWI' +
            '/v6WvjTi3mNDviocnhL/76MGzKw8xb80YfjsdRNETZJk5sRgyEG7o' +
            'dkW5PFKRS4tvDBk71lo0Wbq0pMfAQ0vjUdzjOA5IEu6o8VzL8p328' +
            'BLJLuAOJs2wogdVqR1TtZ0Zc8tDUihyyrQp25WZuzQA71O/OwNxFT' +
            'tywxvVVt7dEfOMK6YCyh2Hmqll5+ffn8wlfVnhIhRlUtwUTCNmyZP' +
            'b+g/t7prqCKrxRGR6UG1sW4ZftSbMmgv2An7coUlQPbR+5OFw7Vb6' +
            'xOkaeyTVspKt6mQZ1dHcft9eUChEM/NvnWIycPVyxcztHwwSzd0t3' +
            'UA0w24f2QvjWF1HJRgSykiBJZ27sinIfN198ciP3h1hhFsXZ12nV1' +
            'yksHZysHajcc7fK4ga2Oy+rortcME67HhlxzdNilq/qZ0aXhbn6OU' +
            'H4xpIp5OXHQWu2+9TlM4XSUlpa5aayoaKmvt0sbxK4d4BeFZNFyRf' +
            'CTM9yvO6Yb3ikgyWpdbJaLm2kImEFgXsPtRwcH9g9UVczWVo2mZ90' +
            'PKK4Ld99o5PAgosCbnlX/wMOJK81a9v5XGDVwd2eRHuLrMCxh5UHX' +
            'Lx4MfNcnLScpuphemW4YR1oP2JsCpvsFGy/Y7Kk9IcMfiJFt91Mbv' +
            'QeLvxZBZ+AORWE+IMhFx6drzpfYriX4XLWOLsrReLJJXNRsMnYqvA' +
            'DIwdq9m/vHGlrmqrfOVuRPBmR0BMWlREmsxFLdcLIimC/JlfXMEfI' +
            'W1+7zDHYqSJUt1UGZqyHyIXVIRlI1cD2+ZtzreO7U5sTVNt51nXql' +
            'oNNzSONAwMD6p3coVMHDOrpTE/Uzsn23W59ARi8odTXr89ZkEJhuJ' +
            'AEyRR4oddOp02ZG7Ve5gIVj8QgvumEL3Douc3p9KUJ41GWMJti062' +
            '0itPQ5VQiEw+o0qHAKron0K3HUtHOkFXTHTItZarX7ZI/LwESzn2r' +
            'LnogQL6bDkBiQ7132KYQmU5ME1Hw6M/VNczULEEp9xQzBPQVuVk8z' +
            'rfc1Xa/ghdDDt0SKLESPtuawemvgXLWAMIf+/6QZCstIi6cwVn22M' +
            'sH4BOcJC+WvPfUHmUng+lNsq83cQiyYwgBhSOwuklSfFxlhGu3lUE' +
            'NzWxAGLEnMCMrXe1qyJIyCBSslY4oxGMN/Hz88koRBDH4LkzMVy8d' +
            'aIJV0D3QZXlSJCmhyirpyn6mS7dFaVmp3FcoceMF5/l7NOrCs4LFK' +
            'uE7L0+sTiXGQ8AVuXPlLmKZnYhnwqYIydhm1tuSJIjOabVJkd3+7p' +
            'W6daHubDkT2+Fd6rLDmnK5CNWCyLNj8rRMhiEV5PB2ZohYLKDbk4Q' +
            'ObGCDKiBjXSjv6RgL1nao3xde8feBGUAdLCX9eWvEPCSdYuFnUno2' +
            '7+QfDjv1m2kdrd7jhT+r4hNkFbE51CtqndxaSuVRnpVM9agevDrAA' +
            'IEji2fOporI+nrd8xN5u2yXks1noQG35IgkMezi4qLo4vDk1GQjDw' +
            'VHzSKxiHisiQ4h8hEwJ2ygn0mI/rzGqq8cxExIiAcsgXKJr2mXRd7' +
            'pDsN3e+oD0Sts6K+BCt8cMnS7b+fdbWllyVKl5COcVX8Te/pds9cf' +
            'QPtxG/39XuKnb/sB7wo+B6G8snZ+lVr7T0zYBpmVbG9X6zd/+Dpky' +
            't0rfN3znbFrtEYflZZOBRoHGu6erpt4ciy5O0ZjawQm+kuztUa/U8' +
            'IT8AIlL6Y0/NKDheKrmTl5OXwp7xe/CWeNfqe0dGpY5MYZOnZw4cu' +
            '5xINhlu5mv/xNOGv0eyWsL1TGtMkymV2crrmyNT0/TWDA/4Uv9lyj' +
            '3zGBM2Q7UfYebJl7MFMykG/s8iu4KGyNfq8E7pEhoSnS+OevztbMb' +
            'vNN8eSI2WvocY1+GdLfwK8jNh1oPL043tzaJLeR/szN6zVao3cmPB' +
            'FPVaDKHMGVK1d2jlWahqjoXNpv91dHrdFvmrArd9hEmg1x4Fjv/vm' +
            'e6JIwgZr3i//WjDX6nRKCnTVGDfDrqu1OzY+3drVKnPgQvn9pttbo' +
            'd0rYnRVcPMubdHT0aE9/jzSQ9w5Nwmu0Ru+HfjxGUd2xY3dnA/ar9' +
            '0SUt14otEZr9KEIwQwyMNc3t2oz3YFEFhHXyuBr9MsSSYpneizdi8' +
            't5e4PoGq3RxyD8z/rtD2v0Vvr/QtSCPA==');

        TPH := High(TP);
        for I := 0 to TPH do
        begin
          TTP := LoadTextTPA(TP[i], SmallChars, H);
          for B := 0 to High(TTP) do
          begin
            Numb := ((I + 1) * 13);
            FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
            FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
          end;
        end;
        Canvas := TCANVAS.Create;
        Canvas.Handle := SmartGetDebugDC;
        DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
        DrawBitmap(Pic2, Canvas, 160,10);
        FreeBitmap(Pic);
        FreeBitmap(Pic2);
      end;

      Procedure OnScreen;
      Var
        XPH,TPH,SPH,TTB: Integer;
      begin
        XPH := Round((FishXP * 3600) / (GetTimeRunning / 1000));
        TPH := Round((Trout_Caught * 3600) / (GetTimeRunning / 1000));
        SPH := Round((Salmon_Caught * 3600) / (GetTimeRunning / 1000));
        TTB := (((w) + (y) + BreakRounds)-GetTimeRunning);

        PrintOnSmart(['Version: '+Version+' (by Flight)',
        ''+MsToTime(GetTimeRunning, Time_Abbrev),
        '',
        'Trout: '+IntToStr(Trout_Caught)+' ('+IntToStr(TPH)+' / hour)',
        '',
        'Salmon: '+IntToStr(Salmon_Caught)+' ('+IntToStr(SPH)+' / hour)',
        '',
        'Fishing XP: '+IntToStr(FishXP)+' ('+IntToStr(XPH)+' / hour)',
        '',
        'Loads: '+IntToStr(Loads)],Point(15,75),16777215);
        PrintOnSmart(['Time till break: '+MsToTime(TTB,Time_Bare)],Point(573,432),65280);
      end;

      Procedure Commit;
      begin

        stats_IncVariable('Trout Caught',(Trout_Caught-Trout_Ca));
        stats_IncVariable('Salmon Caught',(Salmon_Caught-Salmon_Ca));
        stats_IncVariable('Fishing EXP (Gained)',(FishXP-Fish_XP));
        stats_IncVariable('Loads Done',(Loads-Loads_O));
        Stats_Commit;

        Trout_Ca := Trout_Caught;
        Salmon_Ca := Salmon_Caught;
        Fish_XP := FishXP;
        Loads_O := Loads;

        MarkTime(CommitTime);

      end;

      Procedure Shutdown(Reason: String);
      begin
        WriteLn('{{{==Script shutdown==}}}');
        Writeln('----Reason: '+Reason+'----');
        Wait(RandomRange(1000,1300));
        Logout;
        TerminateScript;
      end;

      Function InvertPath(Points: TPointArray): TPointArray;
      Var
        i, j: integer;
      begin
        SetLength(Result, Length(Points));
        j := 0;
        for i := High(Points) downto 0 do
        begin
          Result[j] := Points[i];
          Inc(j);
        end;
      end;

      Function WalkTo(Where: String): Boolean;
      begin
        Case Where of
          'Bank':
            Result := SPS_WalkPath(Path_ToBank);
          'Spot':
            Result := SPS_WalkPath(InvertPath(Path_ToBank));
        end;
      end;

      Function FindSpotsSpirl: TPointArray;
      var
        Spot: Integer;
        TPA: TPointArray;
      begin
        Spot := BitmapFromString(3, 9, 'meJz7Nd/wFxgxUAYYGRgOgAEAr8oJ' +
            '4A==');
        setbitmapname(Spot,'Spot (FindSpotsSpiral)');
        if FindBitmapsSpiralTolerance(Spot, MMCX, MMCY, TPA, MMX1, MMY1, MMX2, MMY2, 5) then
          Result := TPA;
        FreeBitmap(Spot);
      end;

      Procedure NextSpot;
      var
        TP: TPoint;
        TPA: TPointArray;
      begin
        FindNormalRandoms;
        MakeCompass('W');
        TPA := FindSpotsSpirl;
        if (Length(TPA) = 0) then
        begin
          Stage := 2;
          Exit;
        end;
        if (Length(TPA) = 1) then
        begin
          Writeln('Only 1 spot found, relocating...');
          MMouse(TPA[0].X, TPA[0].X-5, 1, 1);
          ClickMouse2(True);
          FFlag(0);
          Wait(randomrange(1500,2875));
          Exit;
        end;
        TP := Point(TPA[1].X, TPA[1].Y);
        if ColorDebug then
          SMART_DrawBox(IntToBox(TP.X-10,TP.Y-10,TP.X+10,TP.Y+10));

        MMouse(TP.X+6, TP.Y-2, 1, 1);
        ClickMouse2(True);
        if ColorDebug then
        begin
          Smart_ClearCanvas;
          OnScreen;
        end;
        Wait(randomrange(150,300));
        FFlag(0);
        While IsMoving do
          Wait(1);
      end;

      Function FindObjSimple(Color, CTS_S, Tol, Bounds, Xs, Ys: Integer; UpText: String; Var X, Y: Integer; DeBug: Boolean): Boolean;
      var
         TPAA: T2DPointArray;
         TPA: TPointArray;
         CTS, I: Integer;
      begin
        CTS := GetColorToleranceSpeed;
        ColorToleranceSpeed(CTS_S);
        FindColorsSpiralTolerance(Xs, Ys, TPA, Color, MSX1, MSY1, 470, MSY2, Tol);
        ColorToleranceSpeed(CTS);
        if DeBug then
          SMART_DrawDotsEx(False, TPA, 65280);
        TPAA := TPAToATPAEx(TPA, Bounds, Bounds);
        SortATPASize(TPAA, True);
        for I := 0 To High(TPAA) do
        begin
          MiddleTPAEx(TPAA[i], X, Y);
          MMouse(X, Y, 3, 3);
          if WaitUpText(UpText, 300) Then
          begin
            Result := True;
            GetMousePos(X, Y);
            Break;
          end;
        end;
      end;

      Function InFishingArea: Boolean;
      begin
        Result := ((Length(FindSpotsSpirl) > 0) and (Length(FindSpotsSpirl) < 3));
      end;

      Procedure AreaCheck;
      begin
        if not InFishingArea then
          FindNormalRandoms;
      end;

      Function Antiban: Boolean;
      var
        i: Integer;
      begin
        if not LoggedIn then Exit;
        AreaCheck;
        i := Random(15);
        case i of
          1:
            begin
              RandomRClick;
              Result := True;
            end;
          2:
            begin
              RandomMovement;
              Result := True;
            end;
          3:
            begin
              HoverSkill('Fishing', False);
              Result := True;
            end;
        end;

        Wait(RandomRange(250,350));
      end;

    Procedure FastDropSlot(Slot: Integer);
    begin
       DropItem(Slot);
    end;


      Procedure DropRemaining;
      Var
        I,MS,T: Integer;
      begin
        MS := MouseSpeed;
        T  := GetTimeRunning;

        FastDropSlot(3);
        FastDropSlot(4);

        For I := 8 downto 5 do
        begin
          if (I = 9) then
            Break;
          FastDropSlot(I);
        end;

        For I := 9 to high(12) do
        begin
          if (I = 13) then
            Break;
          FastDropSlot(I);
        end;

        For I := 16 downto 13 do
        begin
          if (I = 17) then
            Break;
          FastDropSlot(I);
        end;

        For I := 17 to high(20) do
        begin
          if (I = 21) then
            Break;
          FastDropSlot(I);
        end;

        For I := 24 downto 21 do
        begin
          if (I = 25) then
            Break;
          FastDropSlot(I);
        end;

        For I := 25 to high(28) do
        begin
          if (I = 29) then
            Break;
          FastDropSlot(I);
        end;

        Writeln('Dropped fish in '+IntToStr(GetTimeRunning-T)+' ms.');
        MouseSpeed := MS;
        OnScreen;
      end;

      Procedure WhileFishing;
      var
        T,I,I2: Integer;
      begin

        I := InvCount;

        Marktime(T);
        repeat

          AreaCheck;
          if FindNPCChatText('these fish', Nothing) then
            Shutdown('Out of equipment');
          ClickToContinue;
          if (TimeFromMark(T) > FishTimer) then
            break;
          if InvFull then
            break;

          GameTab(tab_Inv);
          I2 := InvCount;

          if (I <> I2) then
          begin
            Marktime(T);
            GameTab(tab_Inv);
            I := InvCount;
            if AntiBan then
              Marktime(T);
          end;

        until(false)

      end;

      Function FindObjSimple_F(Colors: TIntegerArray; TheUpText: TStringArray; midx, midy: integer): Boolean;
      Var
        T,i,X,Y: Integer;
        TPA: TPointArray;
        ATPA: Array of TPointArray;
      Begin
        MarkTime(T);
        Repeat
          SetArrayLength(ATPA, Length(Colors));
          for i := 0 to High(Colors) do
            FindColorsSpiralTolerance(midx, midy, ATPA[i], Colors[i], MSX1, MSY1, MSX2, MSY2, 10);
          TPA := MergeATPA(ATPA);
          ATPA := TPAtoATPAEx(TPA, 15, 15);
          SortATPAFrom(ATPA, Point(MSCX, MSCY));
          if (Length(ATPA) = 0) then
            Exit;

          MiddleTPAEx(ATPA[0], x, y);

          if (TimeFromMark(T) > 5000) then
            Exit;

          MMouse(x, y, 10, 10);
          Wait(randomrange(75,125));
          If(IsUpTextMultiCustom(TheUpText)) then
          begin
            if ColorDebug then
              SMART_DrawBox(IntToBox(X-15,Y-15,X+15,Y+15));
            ClickMouse2(True);
            if DidRedClick then
            begin
              Result := True;
              Break;
            end;
          end;
        Until(Result)
      end;

      Procedure ReturnValues(colors: TIntegerArray; var HueMods, SatMods: Extended; var color, Tolerance: Integer);
      Var
        h, s, t: Extended;
        I,II : integer;
        HSLColor : Array[1..3] of Extended;
        HSL : Array[0..1] of Array[1..3] of Extended;
      begin;
        For I:= 1 to 3 do
        begin;
          HSL[0][i] := 255;
        end;

        For I:= 0 to High(Colors) do
        begin;
          ColortoHSL(Colors[i],HSLColor[1],HSLColor[2],HSLColor[3]);
          For II:= 1 to 3 do
          begin;
            HSL[0][II] := MinE(HSLColor[II],HSL[0][II]);
            HSL[1][II] := MaxE(HSLColor[II],HSL[1][II]);
          end;
        end;

        H := (HSL[1][1] - HSL[0][1]);
        S := (HSL[1][2] - HSL[0][2]);
        T := (HSL[1][3] - HSL[0][3]);

        try
          HueMods := (H/T);
          SatMods := (S/T);
          Tolerance := Round(t);
        except
          HueMods := 0;
          SatMods := 0;
          Tolerance := Round(0.0);
        end;

        Color := HSLToColor((HSL[1][1] + HSL[0][1]) div 2,(HSL[1][2] + HSL[0][2]) div 2,(HSL[1][3] + HSL[0][3]) div 2);
      end;

      Function FindFishingSpot(Var X,Y: Integer): Boolean;
      var
        B: TBox;
        TPA: TPointArray;
        Hmod,Smod: Extended;
        L,i,Tol,CTS,Col: Integer;
        ATPA: T2DPointArray;
      begin
        Result := False;

        ReturnValues([11970978, 12169386, 12433588], Hmod, Smod, Col, Tol);
        CTS := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(Hmod, SMod);
        FindColorsSpiralTolerance(MSCX, MSCY, TPA, Col, MSX1, MSY1, MSX2, MSY2, Tol);
        ColorToleranceSpeed(CTS);
        if (Length(TPA) < 1) then
          Exit;
        ATPA := TPAToATPAEx(TPA, 40, 40);
        SortATPAFrom(ATPA, Point(MSCX,MSCY));
        L := High(ATPA);
        SetArrayLength(ATPA, L+1);
        for i := 0 to L do
        begin
          if (GetArrayLength(ATPA[i]) > 20) then
          begin
            B := GetTPABounds(ATPA[i]);

            MiddleTPAEx(ATPA[i], X, Y);
            MMouse(X, Y, 15, 15);
            if WaitUpTextMulti(['ure F', 'ishing', 'ng s'], 555) then
            begin
              Result := True;
              GetMousePos(X, Y);
              Exit;
            end else
              Result := False;

          end;
        end;

      end;

      Procedure StartFishing;
      var
        X,Y,F,XP1,XP2,TroutDTM,
        SalmonDTM,TC,SC: Integer;
      label
        Start;
      begin
        if not LoggedIn then
          Exit;

        AreaCheck;

        FFlag(0);
        Wait(randomrange(1138, 1875));
        if InvFull then
        begin

          TroutDTM := DTMFromString('mbQAAAHicY2VgYHjGxMDwAohvAfFLIP4GxPyMDAzMQCwExKJAzA7EU/v6gKqZUDA/AyZgxILBAABCqgap');
          SalmonDTM := DTMFromString('mbQAAAHicY2VgYNjFxMCwD4g3APF+ID4OxLyMDAzMQCwExKJAzAjE9f5uQNVMKJifARMwYsFgAADHJAUr');

          TC := CountItems('dtm', TroutDTM, []);
          SC := CountItems('dtm', SalmonDTM, []);

          IncEx(Trout_Caught, TC);
          IncEx(Salmon_Caught, SC);
          XP1 := (TC*50);
          XP2 := (SC*70);
          IncEx(FishXP, XP1+XP2);
          OnScreen;
          FreeDTM(TroutDTM);
          FreeDTM(SalmonDTM);
          if DoBanking then
          begin
            Stage := 1;
            Exit;
          end else
          begin
            Inc(Loads);
            DropRemaining;
          end;
        end;

        Start:
        if FindFishingSpot(X, Y) then
        begin
          ClickMouse2(True);

          if ColorDebug then
          begin
            Smart_ClearCanvas;
            OnScreen;
          end;

          if not DidRedClick then
            Exit;

          FFlag(0);
          Wait(RandomRange(2000,2500));
          if FindNPCChatText('these fish', Nothing) then
            Shutdown('Out of equipment');
          WhileFishing;
        end else
        begin
          Inc(F);
          if (F > 4) then
            NextSpot;
          Wait(RandomRange(275, 350));
          goto Start;
        end;

      end;

      Function HandleBank: Boolean;
      var
        S: String;
        X,Y,T,F: Integer;
      label
        ProcStart;
      begin
        ProcStart:
        if not LoggedIn then
          Exit;
        FindNormalRandoms;
        FFlag(0);
        Wait(randomrange(1138, 1875));

        if FindObjSimple(7631994, 2, 10, 30, MSCX, MSCY, 'posit', X, Y, ColorDebug) then
        begin
          if ColorDebug then
            SMART_DrawBox(IntToBox(X-15,Y-15,X+15,Y+15));
          ClickMouse2(True);
          if not DidRedClick then
            Exit;
          if ColorDebug then
          begin
            Smart_ClearCanvas;
            OnScreen;
          end;
          FFlag(0);

          Marktime(T);
          repeat

            AreaCheck;
            ClickToContinue;
            if DepositScreen then
              break;
            if (TimeFromMark(T) > 5000) then
              Shutdown('Failed to open deposit box');

          until(false)

          if DepositScreen then
          begin
            Deposit(3, 28, True);
            Inc(Loads);
            Result := True;
          end;
        end else
        begin
          Writeln('Box not found!');
          Inc(F);
          Wait(RandomRange(700, 1100));
          if (F >= 5) then
          begin
            Result := False;
            Exit;
          end else
            goto ProcStart;
        end;

        if Result then
        begin
          OnScreen;
          if (GetMMLevels('run',S) <= RestAt) then
            RestUntil(RandomRange(90,100));
        end;
      end;

      Function BreakHandler(BreakIn, BreakFor, randBreakIn, randBreakFor: Integer): Boolean;
      Var
        h,m,s: integer;
      begin
        if not LoggedIn then Exit;

        if (HowManyPlayers = 1) then
        begin
          if (GetTimeRunning < ((w) + (y) + BreakRounds)) then Exit
          else
            if (GetTimeRunning > ((w) + (y) + BreakRounds)) then
            begin
              RealBTime := ((x+z)/60000);
              Writeln('Taking a break for about ' + IntToStr(RealBTime) + ' minutes.');
              Logout;
              MarkTime(CurrentBTime);
              repeat
                Wait(21000);
                ConvertTime((x+z)-TimeFromMark(CurrentBTime), h, m, s);
                ClearDebug;
                Writeln('Breaktime left: '+IntToStr(h)+':'+IntToStr(m)+':'+IntToStr(s));
              until(TimeFromMark(CurrentBTime)>(x+z));
              Writeln('Logging in.');
              OnScreen;
              if SwitchWorlds then
                if LoginPlayerToLob then
                  ChangeWorld(RandomWorld(True, False))
              else
                LoginPlayer;
              Wait(4000);
              Result := LoggedIn;
              ClickNorth(SRL_ANGLE_HIGH);
              IncEx(BreakRounds, (w) + (x));
              Inc(TotalBreaks);
              Writeln('The next break will occur in about ' + IntToStr(BreakIn) + ' minutes.');
              w := (BreakIn * 60000);
              x := (BreakFor * 60000);
              y := RandomRange(-Bir * 60000, Bir * 60000);
              z := RandomRange(-Bfr * 60000, Bfr * 60000);
            end;
        end;
      end;

      Procedure MasterLoop;
      begin
        if not LoggedIn then Exit;
        if DoBanking then
        begin
          Case Stage of
            0: StartFishing;

            1:
              if WalkTo('Bank') then
                if HandleBank then
                  Stage := 2
                else
                  Shutdown('Error while banking')
              else
                Shutdown('Failed to perform walk (to bank)');

            2:
              if WalkTo('Spot') then
              begin
                OnScreen;
                Stage := 0;
              end else
                Shutdown('Failed to perform walk (to fishing spots)');

          end;
        end else
          Case Stage of
            0: StartFishing;
          end;
      end;

    begin
      Smart_Server := 86;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;

      setupSRL();
      DeclarePlayers;

      Loadvars;
      CheckStats;
      CheckVersion;

      if not LoggedIn then
        LogInPlayer;

      ClickNorth(SRL_ANGLE_HIGH);
      Smart_ClearCanvas;
      OnScreen;

      Wait(500);
      SPS_Setup(RUNESCAPE_SURFACE, ['10_7','10_6']);
      SPS_Continue := True;

      Repeat

        if not LoggedIn then LoginPlayer;

        if (TimeFromMark(CommitTime)>=30000) then
          Commit;
        if (TimeFromMark(ReportTime)>=5000) then
          Report;
        BreakHandler(BreakIn,BreakFor,Bir,Bfr);

        AreaCheck;

        MasterLoop;

      Until(AllPlayersInactive)

    end.

    No idea if it works or not because I haven't used this script but this compiles so give it a shot.

  20. #70
    Join Date
    Dec 2011
    Posts
    106
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by Bebe View Post
    You need to replace the ENTIRE procedure from beginning argument to closing argument.

    Simba Code:
    {/////////////////////////////////////////
                      //     ~Barb Fly-Fisher by Flight~      //
                      //                                      //
                      //            Version: 1.3              //
                      /////////////////////////////////////////}


    program BarbFlyFisher;

      {$DEFINE SRL5}
      {$DEFINE SMART}

      {$i SRL/srl.simba}
      {$i SPS/sps.simba}
      {$i SRL/SRL/misc/paintsmart.simba}

    Const

    //SRL Stats
      SRLStats_Username = '';
      SRLStats_Password = '';

    //General settings
      DoBanking     = True;   //True for banking (Edgeville), False for power-fishing
      RestAt        = 60;     //Rest at this (or less) run energy before returning to the fishing spots
      FishTimer     = 8000;   //Fishing detection timer (in miliseconds)
      ColorDebug    = False;  //On-screen color debugging?
      SwitchWorlds  = True;   //Switch worlds after break?
      Member        = False;  //Using member worlds?

    //Break settings
      BreakIn      = 135;     //How long before we take a break? (minutes)
      BreakFor     = 15;      //How long will we break for? (minutes)
      Bir          = 13;      //Random minutes to add/subtract from how long until we break
      Bfr          = 7;       //Random minutes to add/subjtract from break duraction

      Procedure DeclarePlayers;
      begin
        HowManyPlayers := 1;
        NumberOfPlayers(HowManyPlayers);
        CurrentPlayer := 0;
        with Players[0] do
        begin
          Name        := '';
          Pass        := '';
          Pin         := '';
          BoxRewards  := ['XP','xp','lamp'];
          LampSkill   := Skill_Fishing;
          Active      := True;
        end;
      end;

      Procedure CheckStats;
      begin
        if ((SRLStats_Username = '') And (SRLStats_Password = '')) then
        begin
          case MessageBox('No Stats account entered, would you like to set one up?','SRL Stats',mbYesNoCancel) of
            mrYes:
              begin
                OpenWebPage('http://stats.villavu.com/register');
                TerminateScript;
              end;
            mrNo:
              begin
                SetupSRLStats(218,'Anonymous','anon1337');
                Exit;
              end;
            mrCancel: TerminateScript;
          end;
        end else
          SetupSRLStats(218,SRLStats_Username,SRLStats_Password);
      end;

    Var

    //General variables
      Version: String;
      ReportTime,CommitTime,PostID: Integer;
      Path_ToBank: TPointArray;
    //Dynamics
      Trout_Caught,Trout_Ca,
      Salmon_Caught,Salmon_Ca,
      FishXP,Fish_XP,Loads,
      Loads_O,Stage: Integer;
    //Break variables
      w,x,y,z,RealBTime,CurrentBTime,
      BreakRounds,TotalBreaks: Integer;


      Procedure Loadvars;
      begin
        Version := '1.3';
        PostID := 843604;
        MarkTime(CommitTime);
        MarkTime(ReportTime);
        MouseSpeed := RandomRange(17,19);

        w := (BreakIn * 60000);
        x := (BreakFor * 60000);
        y := RandomRange(-Bir * 60000, Bir * 60000);
        z := RandomRange(-Bfr * 60000, Bfr * 60000);

        Path_ToBank := [Point(4245, 2920), Point(4200, 2880), Point(4190, 2815), Point(4235, 2780),
                        Point(4235, 2720), Point(4205, 2685), Point(4205, 2660)];

      end;

      Procedure CheckVersion;
      var
        Page,NewVer: String;
      begin
        Page := GetPage('http://villavu.com/forum/showthread.php?p='+IntToStr(PostID)+'');
        NewVer := Between('Current version: ', '<br />', Page);

        if Version <> NewVer then
          ShowMessage('Your script is out of date!')
        else
          Exit;
      end;

      Procedure Report;
      begin
        ClearDebug;
        WriteLn('=-=-=-=-=-=-=-= Barb Fly-Fisher '+Version+' by Flight =-=-=-=-=-=-=');
        WriteLn('Time Running: '+TimeRunning);
        WriteLn('Trout caught: '+IntToStr(Trout_Caught));
        WriteLn('Salmon caught: '+IntToStr(Salmon_Caught));
        WriteLn('Fishing XP '+IntToStr(FishXP));
        WriteLn('Loads: '+IntToStr(Loads));
        WriteLn('Breaks: '+IntToStr(TotalBreaks));
        WriteLn('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=');

        MarkTime(ReportTime);
      end;

      Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
      var
        mx, my, Pic, Pic2, I, B, H, TPH, Numb: Integer;
        TTP: TPointArray;
        Canvas: TCanvas;
      begin
        SmartSetDebug(True);
        GetClientDimensions(mx, my);
        Pic := BitmapFromString(mx, my, '');
        Pic2 := BitmapFromString(219, 56, 'meJztfWdYVNnSbu8Ou3POTdMBm' +
            'tyEJoNESZIzKBkkCyggEkVQgkRJKqCiIoIigghiVsYxzqgz44STZs' +
            '75zjn3fs+53/1zw3Of++P+ubVpxzEiOOrMfEPZPxR771WrqlbVW7V' +
            'qLXC4NXobITgEj0MICJ6IJ5DwBJRAQPEIEfv5r4te4RP/6+RzjVZC' +
            'yI8f/PNqJZAoJDqbJpDwDY3lxlojcwdTGzetztNWtk5AEuJ/rXyqT' +
            'R00Zm4aYw8lw5VEYK1Z5G+JEARHRIk0FpXJZ8CHxWdyRRyxoUhhJt' +
            'fojCy9TH2jvXPys7Pq0rK7UjcdijA/JpCW0kxOcY6OjoiTGHg68nF' +
            'c0Mr5zO3OKD1SWHO6rHq69PD5wT2HdxkkcvG0NbP8LRCCozIo5lpz' +
            'v/D1YakhqekpMSlRiVnx5dvLaluq64erd07tOHz94P3P71/8au7od' +
            '/sXvp+e/dNk15PGL/72yOGxTJhJlboKENKvi8++b1uzv4n1+NzE/D' +
            'LXaJAp2UrjxVM4Zgwc4cPz+d4JweGJCGAk+OBRBCEhCPH5D8QILFj' +
            '8p4ElMB2xQsQNJ4tyKGFX3Xs+bb1498K1B1dOPRrd9+WeosfJPg8s' +
            'NRNsWS1NmEmRFFH9xx3rjlR69euu3rwi2Uqlaok+wd4kOvHXw6cgn' +
            'cIJRdlBqKSEalOrjt0W4V7o4BbpyJaykN+aQQImoTKpKlOlrbONtb' +
            'OVpbOZxsFIoZXLzWXPPgbmUrFGyDSkEzjIb26CrxJgMJlKmrQ9Iet' +
            'e9In/dtDyJle+iyEuoAlSqaB9MEKjFq5zhTZqc7hfpK/Em0cU4LHY' +
            'R8Dtnq41neaIC6kO7vZEykcwyBXyGRYYGWDja2nqbmRoJxWYcBmGV' +
            'LIBgcjHI+iH5vH9ExgYx5RpW6wRplEdh42VHQzvg3Ydfe0t7S272u' +
            'qr91aWtpbkNKUn1ccllSX6J/uQVYSnAPs3S6BoA7Uspzrr5JMjYX9' +
            'wMqihmzdJteXq9XkeUbFRVh5mBlopV80ii0iYHcIfFEeRkwwy2JO3' +
            'JuKvB2wtLZEoxPCSXw+fBAbEtecC2Tuz9muIgwiOJMGndyZk3o0q+' +
            'S51/G+H5/86vfGxv99t6/hbfhmfRuZ/mrTnTtXioxtNd2pSL0eOjB' +
            '8xz1USeQjul0g33wtBiqq2VOW1Zz36y+fO15UZZanWjlqBmkeRYsk' +
            'p5lWeVyuWVhDktpK+/r7bTz6JGPV19LejMCi/Oj7fx3AUHpnI/Uj5' +
            '2nKE4Fg+aM2Bih0zRVfvXM76MhogsayGDnmlrJJuUE9X7mP6HXfsX' +
            'Gh59Phhz5NmZTcjMSOeKPgVcP5OBHmrmYum4Gjmgx/ump3guwW4QO' +
            '7wRucAwuExnWN0u+Z2DH7eU7Zrm9zU4CO4x1Xz+TMJwdFZNBMvdeW' +
            'uHUHFPh+tjPAmwlMQqhWR5YfSdMTsa/GiPFp2Y4ZroLPSQS7Ucel2' +
            'RJIUT2DjAbc0XqmWVtIBZkutRB86g0PwCDD2nvPZpdRVF2xdNJcx8' +
            's1AeNt6jdYInMObvk4g4uUaA1DT/Bfn0i5ErY/3ZnAZH0NZq+TzZx' +
            'KegJeqxdsqt44vjhaPZNMdiLgPjpGXJcDsZAKEg/CyoFP3x2wWpMG' +
            'b/XkyLoIi+qAAAQLlEyhmRO9BO5dFNT+JorE1gnz8g7KE0kh0C1QS' +
            'woa04n0ZPxg5T8yNy4kZvtNXdisnY0uaQMZH3qxnMhW19DRLH4377' +
            'C/3Qg97WbqZg+N6P6y8Vz5/JpHIRLWLomgk+/Z3n0QN+avsFfgPqt' +
            'wVEIFEUFkbNvXufvTdQ69xa7cNzmTGj0ka4Cgyka4icyPJZ+ZO580' +
            'mbSnaIjQE+XxAnuHlHBnbK821e6gjriQKs8n3MRo4GQMzWXNr82df' +
            'Pwg9s8412HkZQAg8cIWc6LTIxps7er5sidkdojJXfpx4vSo+l3jFY' +
            'TW6d1u2EK/ZNMsoTcflpt6HLYk7Y+Qa2ceZ5jIsQYDQBpqXTeVPfX' +
            'UyvzPLUCtDiE//i0QhMtQUXhzl5Omx4esDTS1Ncp2ERP2wjgI0IrY' +
            'Q7NhbPnl5Ykt1AVNFfS9plN4VNB6rm3syndIbq7EzJpDe+F4IZAYa' +
            'WWVjxbUnl+Ou+CVnbQKv9XGyuVXxCTqiMMlMMyrkp1iys0pTwhMQg' +
            'YqfUB69+NnN1NnI4IQgJo/5y2JIcAUQETYXZu673dJyty6zOAOVEp' +
            'Z+jiPTUYYFWZxOnzgzMfLJwfy+DI2visqmfGi9kCgkqRu/72R3/5W' +
            'OkKwAlvh9IDfMFdBtIyx2L1R33tldWF4gUgiX8fMQnTVO6vIjRff+' +
            'dNv/qJPOyxalfpTS3ir5BF2gBvjCHflDJw5WN1WhitUhHJimVCccG' +
            'h6aeTBZum+LkZ2SSP6Fy83gjgzN5FUtO8a+Oty10MLyJsGMwENSBC' +
            'jdgeS+XTd/Yb73eltRb65lkClTwPigwRojBEfjUI2iDQ5dPFA+U2i' +
            'xQQPr4ue/FVwBII3UbUlzD2bSZ2M8I91pLOoyPFCZVLsQbfn5/MFH' +
            'PemNm5Rmhh8pXq+KTz2zZKSscdu+c+1OreZKRwM8ecV8gqhZVFWIZ' +
            'N/5ttaru6I2h3MknA8HVldIECAsnc19DzrkPoxvPboHIWOLDvw/Ox' +
            'Dd1r1l4eZ87cXS4tYCM1/jj2GNSzVhroIduM3n1q1bFYdKFI6y5QL' +
            'WiglwsqGtQddAx60vFrMGN5k6Gy/jCmCafCkvKX/TkTsHiq5nZGzO' +
            '4IjYHyder4rPn55iIaqNItsNViwpc+U6AuPnGXJCSgKu3r5cfnKLi' +
            'Y8KpX6EffplaakGFREZATmLZowd2uSLpyGw4qRF9KmZqVP3TiRPh5' +
            'fWbDNyVkKkfs9bh8hSbYe0tIf+3JsJKIFvy97T3zB9YyqpMp6ueh8' +
            'IAYAWg2Lkb9g4XTN0v3drTYnEaLkNFyxqmBvU7627/+RuzIS/7Xrt' +
            'R4vXq+LzhUcJWAUPWQ26J6IEsS2/e3/n9J3J2r3VBhbSF8Z6j77nD' +
            'bp+zRfxiFgmdsvRkU3x6gMsfiJFUcY5fOTw5K2Jrnt7/I47ZhdkK7' +
            'VyLGiuhL0V7x3AuCgN5Riw5LZSIw8FzZYIq0DfywFj8f3orWca5y7' +
            'MUa2I+lIksoQi3llEWMosYftme0zdPl20kBGQ4MfgMZb5PkQNY1dV' +
            'xbHiz76+v3v/LgMbCZ74MeL1avnU90m+62Bg/GRZEK//XHfblYawz' +
            'A0s8U/pDIIgkM+SeAQw8jeJHfI+EpWENTks61Zfo2vSG1VJIBLMLM' +
            'yk22lULVH7iF91q6jrbtP1J5dP3hzt6uvUxWj5ai6BsiLPCONC9k3' +
            'k47FS/0tSQl74wERoXArDHoWFkN2Tot7PLBxLz2/IhiQRz0CYUprz' +
            'Ztsd88VHjhzR700QRXiZtdjARURWEt7NS0MclFlJGjvrHzy8n3coT' +
            'eViQFgmDmLIiqYLs66Y33L78S3vMhcUxn2zDN8jrYpPEDiELVS24j' +
            '6Kpc4uZMlHYe6UiAcj8S5wvfTJQvlYkZGXIZH6dCwCEc/isax0lvG' +
            'J8dpNJgQm8nKitNSrKZQKHN0cfGO8OcEoVrXGv6zoN+g6c1tDCSrH' +
            'v6pKWAVMFtM/wJ/pQYKQHf3vbv/2P3/4/j/+Mn53lOVHIgrwmPGjK' +
            '9pIgtkxuHQTR+OEtPik1E0AQV9gnkokCfHwQhKXSCQTqQIy041U1l' +
            '4ye2XmzOLp4Qv7p6+etTghNE1SgDFTTImtHa0R570SqqOwNmkKziT' +
            'TILzTz7CJkXlgo2ATBeuIXpVt6DOUQG3SeMTMvTMepQ4gjadvwC91' +
            'YmNt2E8DCh7FQ44vMhQmFMSM3Dk4cWOM4UgEjWCiWCYaPlPBz6EV8' +
            '0kAJskkBpth6CItrS/Ja9hMNiYswx6YLtgPnUtjaxgQdKgWRLKKAH' +
            'YisGHX76s9+8lkY3Mjz4yltyhYFEwpw3qDhcFOujiPOnCtq6atkmz' +
            '0nCtAsAgiUPPik+K40WSjEdbC5YX6hp14KhbFiBQCKHoZXZ+9ekbZ' +
            'zkjJSCGJXiwvIzgyDbXR2ThWWrCDUbsfBH/9f386939OHv1X/9EHg' +
            '9GHA0yqxYapPIYLCTXAI8skbktTYIhoxv4Ki0aZIJVidIQlSKeCiP' +
            'BURL8S+UpuWlrahi1+Vh7mZAUBZFLTX3n+k5nys4W59ZuZXui6cge' +
            'jIZYuzwLL7o0J/secNSfZLG+UYkrYVBt7ev5U49Wq7EsJ9+7fsz4q' +
            '94n3APNYhZ7xiEgm8svzAAkHnHPATiKARZNwZDbKFDLYMhZXyeaZs' +
            'lg2VIgmTBey+TqNS7R952D7l19/2T7RQpLC9HFpBcl0JxKW8b1OAq' +
            'AgigQlifFY78271mhXxiebb8OSO0vsPKydgnUJdVGnb52smd0Wlhh' +
            'C5L1m+wBZ4o0hoPO1bFkEN7Y27PiJ471He1Lyk6jmBIYT6fj00c6F' +
            'JrtkCwIXexjWI8OQKo5mxRwIklXS/R5q9/61VryF6he+tMeNe7pRw' +
            'jai+6S7S8to4CXO/G3U82sTYQ6VpiOCuukKckpa8jK69il3FeVQQw' +
            'oC2AaMlwySKWEYJ0k5YeScv0cv/t+L1o95hk10RTvDZJLt/rlRy8O' +
            'ambtnUiejdnbUsgNQbIG8zgog6DOldGkoJ7ovUNHCWH/d+tjd4UNT' +
            'Q/J6um24JTwFy1ntoJCW0gzqGeYZWLNQeXfJkauD1UfLvNJcRZZ8V' +
            'EJgOJPqu2uxAwIMRJRGU/UzI477UDSErMq0TZNhbbN77BqMwU1F9Q' +
            'UA0LWvNuVrOCvCTktYGpyJhdZCVkXnhKGZ5+MIPARGYXmhrtGOQWl' +
            '+Afk+/mWe4Q0B+X0ZPUe7twxtlu+iu/Saz94/W/+4dGdnHSqHRYXb' +
            '2988MDBAsyG+ipcgKvFlvODEIOcaq/T0dIqCSCDjl3qeCa98llA98' +
            'ZVerxXzGdkQtGd/Q+zQBtkOutVR6aXP59v/sHPdiBWkXa8WxyDy0j' +
            'hUrpZpEMsr3Js7NT955NZgyeXMusM7uBFkhIZwNpBPXT/ZdaINANv' +
            'Sdg/Wa8eLI/eMdRVfT8+YjFX1ME2n2cx1JP94XwIb45hAwizWOtnE' +
            'fESo6GAMXu2/ev+SMJ3C30jhOtDhJRwdXVaxnK4hHPu0Oq1P9aSLq' +
            'S8bpJjuke5sOs259z8W1QdZZA0BFjg4W4oZAbyTuJBqcY3b92Xb4l' +
            'fXTy2c9Kiyx1zli+oAXTBFDGEoo/5wddxV/6rTW8UF1LHFY4BFebG' +
            'U3Pxc+D6k7dY+lsJsitOMih2CZnUnb5h2KR7OsYw25sk5oDsslyHh' +
            'fHPWKf2koP32jnaQQ/xg6MaWaFiAG8bdXIpt+F4MMAayEp8ztWl9h' +
            '5OhrfStjghUDCFAJBOaWZqFxAWD9EzPcu7+4dbY+eMHzgxAlFn45M' +
            'L52+e6PmnOu7IpeMbVacI49Ih3fmeW1VYl1YqQcyve+Dg7vzhP7/d' +
            '6+nv2T/a6xDig3JcHRikklbM8cSBs45Xghn31VAsC+FIzd42Dp72T' +
            'pyN8nD2d4AN/cfDUWbtbGjuoBKZcCFiA/Zbg3Cr4jDznlXc2eWziR' +
            'NuhloAJJ+/H5vJmRuAOb4XG8KUEGTJouoTK8kGzdqdMX5gavNWXMB' +
            'cUeMCtpKwEa5+A7xJwm9qiR24MhdavB8vHHhHiuaHk8VMnF+/d7D2' +
            'yDxwCOCKzeY6shq4NMtf3vFGEZMNwoduQpbKL2TmyF+wk7IyHOJ8a' +
            'XO8LuoPpKL1kojzqMroGxLU5fzNEXiLrRRAJIZtBtg+0aZipbP9bD' +
            'eTXprsl0RujnP0drXzN7UNsNm/OSq9K2dvXOrFw8uvvnjTc2pHalA' +
            'hzeWYJoHHAjUI/1vDhofkHs+Mz42Az/HjKkfOH2j/bJUih+CR6YqC' +
            'Cg0THR4nyqZfuX5iaOSNIpzjvN7eJNQdE/Sx1hcnKrWU8DZvth6qH' +
            'WS6XjcATGrYwwCCra6o5WjpEf7AKWCkHzvQV9efKbMXI29JeeERqK' +
            'bJPsbKoNfA5oiv5Iu0//ve/Qv/mIN9Nl9fRjY+xlD1MSTGVn0g22E' +
            '33r1yXmp4q9mHjmZhfommJhddSNKfZrhFOeBYCmVpdY+3kudNJeRs' +
            'hHLy8rnkMxwTb5it1i49vJPVE725p7Bnp2jQe7jZh5jJh4nTKyHpC' +
            'YjbOMxnnaMbYRsMs7QGD5KZYjxxnyNEwD8DFS6yEDinalfAZUrXeL' +
            'dkR1jh8PFrtLBe5EDc3RARCFvYTRwgOpZLoKjI7EG0f3jv7yQwk7H' +
            'G9odm52SbuRjQFqkfmVFPCmbNnrl27RrPDNArZNM2aOHTs4Nzdc4e' +
            'OHQLns9SaSKq6XJw1ulFvwxC1ee6MgE43w0ZGyVAeQNw9HXtUB1gm' +
            'xzjmkWo8GQdRDNYUOKVldK23fH0f/stLm4pa+JrUni3r/abFd8DBb' +
            'b0rk8/A68svKDY6yAo+ZENC/7Hee9/egUURuSWUJMM/tWcaWeTIhY' +
            'D+4OGD2gulunwLgMqxZRHq/azE60EQekSebPgiTUGOK430van97u/' +
            'fyHbQICIEJvlx5awXCil4HEoniQ1FGbkZ8gb6F988bl9s4MVRbNtV' +
            '6nWGRCY2IpGDZ/ujU1NT3T3dYi3/rQYJ6ZhrqBM3HJVupw3+0F3/r' +
            '2KTSQ7LF0vWSAZ4STHNoloetHm9d7CnxlEtMOaS+SSs9RrCloroV+' +
            '4xe2c6ayRR5SIH3AgCzC3JHjl7eEdNBc/ohQo5xAihEX9zbfr9x/c' +
            'yZmIC831itoZ7jdjm30qKf+wb+K3thj/bp/w1qPDviaX/SKv5Z8G+' +
            'f+6++I+ZG3+82nZ314bTLpU1O0CJJhFKQTJFWvEWPo0d1RxjFugFI' +
            'D24r437Iutub0vtSjC2Vf+0d4BZIyow41pmqU+eOjlybahwJCu1MF' +
            'njomZLmXgqXi9tmphim2nWenHX4PgB/c4OsFHUm3vhzvnKE1sF0TT' +
            'MAKiIYTFndnF6YKgfJIA9pUGzKzMh01k3agGBI6E+CryH64xx6Y5S' +
            'QP7wEroh5e26/pHPV3/C5DHXJ3pDvtB4b0fy9kSZWvqaGiweB0M7x' +
            'FuXzuQGf+Yg2UqF1Ay3lFbz1dzAIp+Zxam9n9bXNFYx7SggK+d4HS' +
            'cU9ZuxS92bAHkNjCLQciK6/M98fyL2zx6cEDQ6J0JiJH5184VIIlh' +
            'aW6j2cGzuCf78X/4o2UpjB5KD44MYQrq+2kaXUa2y1dOz08W7CgBD' +
            'vn0/AgRoTfSocAg75Tn+/YiijQFYKHZH+IbwDbae1ko7OV/DpYrJT' +
            '9OQH9kB0UmtRD09PZfuzVd2bZdZSTAnz0MiU8KbpuqbO5sBCD2/tA' +
            'Hhi5y4w8cGJx+c3NpRaOZiIrEUSsO4RdUFnt124CtYfijkDgCcACc' +
            'DA7CmAG5BvAALBAjH9EC1/uYARVKqNsac9ns7n0u5PGSyUg9+++nm' +
            '3ltthaX5guearyBowj/T81IDTztPLU42d+/RBCl4hhyspPPjHEH4M' +
            'Iu2jrbcSxu3tRZh/oeK2NUaX/j0fPlUoXu6I+RxmMNRE8o6S27evh' +
            'GzOwRLTumIfYQ1N4qs6GAKM6m57RmKNqbtnCy3OUPiJMDKlQQIc9K' +
            'QLu/Jv4wur+vXq4uASFXiyqrKsw9Pb1oIiUgMw7pPX0cgcyOdsnV/' +
            '04EnnbI6usCZhS1DFkkeKOg+1T771VTmYKLaW46tXBIOgh2EEshE/' +
            'HI9IfZhsdhLHHnK97t/fa0ZZ7tUaU21pvDCl8dAcDQGLXBDACRrI/' +
            '+13/8HK6YbyXurq4FGhtWdgFsSnmlFyW5NPTR7ENAmU0J/e1IDEmI' +
            'gMiuxQQbn0qcXAZcaNtPtXeypTAoGhwivL9QA9FK6GDSfaDh8+8DW' +
            'qhKBmg8DgffwiHTNPrNxz8guuaPkp3ZBBEfn0uRRgqMXD+1cKA9K9' +
            'eeK2ViIISMgDYhodHuiyJ2j8JSZrFf7R69PSUtJz0zflJuQvj1Z2c' +
            'oG4zTLNZSaicEeaBZEUTp1RXyCrNhU+yjrzkvNVRdLfOM8aZzn4jU' +
            'Bx7FmCNIoxiOs2vHtAKIgj3ihUAmWRicrfWT+x510swaqbAGgFKM8' +
            'ycDF7sbLVXkVOTwztj5E8tzpbeNNYJDCLCqwAfYZWO8BuerQzf7GU' +
            '7WAIgBWxbSFaLxUKBtLLQgUvKW3WdiE51t0/QYikAhGtqrt/SVff/' +
            'd11HE/q3XmpDccpgPQbuAsHhwZnP5uwvWQOcwRK/IbE9JrN919eKd' +
            'wPjU8IwTwM24JtoEfOHbiWNVEKWMdCVMlB/Hc6LrzZtngD12QeXkH' +
            'eNOY1FfNAGtalkvDCoK0N4RP/tdDw70MXjzF2cPpaeaIYAEdYPDJ0' +
            '2MNp6pUQTIyc2W1YDyOwaHbRlmOXz8Rs+gTvzUKUMFyrhVTFqoJVO' +
            'w+X7PnWk1YaghTgJUmwMC0fuaeE9o907Wm69XPCsiwqLlqVnDF+uu' +
            '3ru0aqoXU5gX5/3jjBIbZiNhLADhhJU0uAhkN6JeqJdCUKAgNvkvh' +
            'oNoos5XwieBxHCk7Mi/01K2xnNNJ5t4aEoX0/KCAeHOa0z2umPXP7' +
            'APs9xStPVtDeIQr5mzcnKDYyzAeY0HuDGi/YCKt8ZMdFR1lSmc5gY' +
            'YtdTIXtYuzbLvcePn6JbIai9cMN5L9hLL3L80LfzgnzKBCsuCzx9n' +
            'CyxQSeX3RAPBeaFJw9c2S5XX9JgIECMkLzOjMV2NZbSkqq9d3n4Kp' +
            'sMUsdaLkxNVjPQ9aShq3YHU5Ao6mI/ae6jr1+fFt7UUKWwN9Jx5NR' +
            'LFIVp+cO3Fw+ACAHHicqiSV1m5b+HIu5VZY2rZkmfL1zZ9ElGihM/' +
            'frdhn74VDOPyJZ61H/NB+BhK93g/AIVY6qcgRzC3Pt3e1iG/4Ko8B' +
            'T4eckjNwezLwYGxIfTOfQl30Ax+DTXZMcRq4PFp5Nt/QzIS01G4A5' +
            'GbkpzA4JTl0+GZwUROU+bZfFKnKO1P7DfcNXBhJLYniG3FU0nzxfS' +
            'wcbE7MScuJWwidIA1Brcd2WT+98Wn6wWGWnePl0Ax5zFx372wcvDD' +
            'RMVxX15aoyhWQFVkyGEAaOSG2hXNdoK8qmdoy2srxJG4Y8khZDUo7' +
            'EaIPNaVyafhHxFdzN5Zmjdw4fmhzCcigKIt5Cu/Dl+eP/vl/exADl' +
            '6ipNLd3MwRr1BXPgSqIW19XVvVXXr58UHuEI2REpYc03ahvuVqRvT' +
            'RHJX9N0Bz/BLpDxZHYOtt344mrGaLxigxhAPnBonCY9vziz7XyuR6' +
            'ILlYfViyGQAXyqaq24cH1+Y100VoeHZWWDdg913PvTbZcxE+cABwr' +
            '9dZVlBEdlUZxCdbEzAY//44HJKbZBNc3S1vLprhmCI9GIVDNi9f7t' +
            'PVNdDmnWTDFjhS1S2OlmY0n1rqorjy7FTQRqvd8YBZ59H+BW4tbYC' +
            '4vzZcNbVI6GTy0fjxNbCdz32oxcGSrbUcZRsvSMYZsdkbTRuWMNE9' +
            'UqfwMK47V18/fMJ4ZyLUXtnW1nbp6u3V0rNhG9VhpgflZFqvzhzG0' +
            'z2bMXzh0Y2s8OQlEpni6gOXk6MH1IkHUq9zHrR6vUgyyHM6qorHCB' +
            'nK83IRhCrpW19jYvPJiL7goC6AWZbNtQ69hnI47nlcIcimeWs4mNB' +
            'pvvT7iUYKiTtQ41vUXXb5oUSMBIuqOuYv6Lc3EX/MPiQl5dkuAbwR' +
            'r5zszMPcn3PrtXcaUgoziNocScA2qIT21IXPh0vqFvp0wn0hcnwT/' +
            'bBWkrJ0sO3zhgn2mJQUoUYXqSOmaahx71bNwTpbJ4wxGApdO4IXkB' +
            '0w9O1/9xq6yaHrDBn8p+2gQI6JGsIIg2U8+cm2zvbuPbs1Z+Th+kZ' +
            'GyrKhnIf/zl48wDiRqdevmjUvC/MjNxfcvOSzcv1jftlJiKnjIMS0' +
            'aOxpdER856texvFujY+lMDbCN6UKX3+avn6lt3SiwF79yAsSo+QSB' +
            'ynbRvqPfglb7EgrifylCvbF+CXiCcqbKF9YPVgHLHZkc9dziARoI2' +
            'BkD8df/cuPXmTlEBTd5IT6vdpLAyfIY34C9qN8PqsbI7D27Lt7EAZ' +
            'kCeVT9WdfDofpskM1NHY46M/UKHwxIulfsJW2Ya3qLrN0tAY2e0ZS' +
            'Dnuz99u+GYOwDI58GP/pojtpAl8GDlNGXcun2r+U5tbGuIxtkIS6Y' +
            'g4bUh9QzuO3i5N7xgA0WqD2qIobE8qSIe/G3dpTJZGBcrgbIRoxTp' +
            'zOLZkrks/0RfFv+NvfGAo0xyZFPXJ/1PO2ZmZXBlnGfBGhUS6TpS7' +
            '9HujrG9ilghQ0RbeQcpTMrKwyJ8zGvxy2uFTTly07cEEfCHKp1hw+' +
            'DO09fHU7Zu4siZzzZwISg4htnJdzJm5ma4kdjaJ9AQSJ8PHR3um+t' +
            '0SdUxhSvIs94Hn8Ck0tmgZbSxc77FLs5Cv4GCwVTAqGSEslTZeJ6w' +
            'uw5MCNGVoR1zzePXRiNa/KP2bLC4zPn7f/+b2QUu0wsFvGfjZQU51' +
            'DPDBiBtEaSpmdu2cGue5YOCh1RnixrGau3zLDgqJha5XhoCj7BFLP' +
            's0y7OLk2/V9WsI1jud6uBnFzjh/PDbzyq6SsUW/KeS17dnMGkSE5E' +
            'mWt5zcN/dz+7U3d4W3xlm52dN59L1u6s8J0b/aG/72SZOEIqnLCUd' +
            'XKJrqJOsktb3fUv2hURYgPAyVE6IqQu9cOvCzoFqlb3hco2meCyJq' +
            '6mvdsiwomlQfe0djBzlE6iWxOLe/EPnBhMqorlmrFU06y4JNigkUH' +
            'OC9fCLh1srt4qVouWbhQgowcTdKHYs8MIncw4ZWpLoOcnjcVQromu' +
            'Llducxr5RAwsTvDp/I2V6Yar5WAN2Wd87nzNaJZ/AJADa8onCQ3MH' +
            'wXHpa1YEBgJhKyDFF+znpT0srKOPiYqduant8Tm3EgZv9AVNOn/3b' +
            '9+U/StNmEalWhBiEmK4oufKaAiOzqN5bnLtu9bRP9cNxgwqtq823T' +
            'faCdiexHx56xRBEDIFlVvLNjenXrlz+e26fmX6KA01sdBkFqZrRll' +
            'HHw2uK3PQH+sDA4BMR2DIV3hLkysTh2b3L3w9m7YYEbk3ULfemsGj' +
            '610THkUkbvyy0S3tx1tACHoThYW5sSEasF/LD1XgIfXNJ5CPjxwdG' +
            'b46EFMQAU7vjYB/6Q2EpTo81r2wBKr1GgcbyOvKOD43srurQejGQR' +
            'mr65JF6WhoeKjBTvr9R/fKy8skRuLlTxwTULy5p4lmnNVxfTfLF8U' +
            'zX8hPwY07brSW76InntsgzqOCa1rXbjNydbiovlCo4f2cAw6r4hMM' +
            'EphcP27fPtuEcYjBRexYza7d9X5V7gD2XtjeRZZupWCR6Y6kgq7N9' +
            'jfkp+6Off7oc5tv+aoBFk1LcC6wVhorYOI/PYLHMWX0uILoycXxtt' +
            'EWsFj4SXNrc+PxOpot8WmLxbOXExAai2ZiqQnODqicLxn4pHtjUTz' +
            'PYAVV4ueGo8spFilq9UGWspOZcieU4Y4doiFwELYxA1a6X77HvmOd' +
            'Dx8+bP9ql+15mVe9o87LFnzjsyHwKN5onaF2WDo4PKgv1UJQgBQ4a' +
            'NhtfOrkyN3Bc9fOUszAzyLccPL+qz2N89WaEMWbAD92lIxN4qpZTA' +
            'M6mYUSqARALFhVREUA99swVNs/3bOrs16+XkjjUVd73INAxWsDzTT' +
            'j7BvfXqlq3+6+zv0Feb7KDAln7KEU5VId55UQjkHLwMnzzU4kMT61' +
            'epPRIebQtf7aM2X5N5Nipv2dE3TgUn5O79mq+AT5W3tZinKoujNyC' +
            'KZYlzgZl7o3of1wqyAJ25ugOxCBZyKdQKQQwBQZSqyLSVuh6r3QUT' +
            'afJymheV4zk+9icMLJihq2jb31y8cWIBYo0KSyhGvXr0JeQ7fGXO6' +
            '2uhLzESFEK2QJs+kb4YBtipxo7KPwq1in7GJ++Y8vwuc97UNtVpvc' +
            'ETlIYmms1YKg4Z8lX3//xHOfLScY5YSiATUe3cfab356s//x3qDrD' +
            'soeZlJ+oqlOAynw8+gI05q7EuZecCgDREESIXQdcd9wV2ZbMlhmWI' +
            '/v6WvjTi3mNDviocnhL/76MGzKw8xb80YfjsdRNETZJk5sRgyEG7o' +
            'dkW5PFKRS4tvDBk71lo0Wbq0pMfAQ0vjUdzjOA5IEu6o8VzL8p328' +
            'BLJLuAOJs2wogdVqR1TtZ0Zc8tDUihyyrQp25WZuzQA71O/OwNxFT' +
            'tywxvVVt7dEfOMK6YCyh2Hmqll5+ffn8wlfVnhIhRlUtwUTCNmyZP' +
            'b+g/t7prqCKrxRGR6UG1sW4ZftSbMmgv2An7coUlQPbR+5OFw7Vb6' +
            'xOkaeyTVspKt6mQZ1dHcft9eUChEM/NvnWIycPVyxcztHwwSzd0t3' +
            'UA0w24f2QvjWF1HJRgSykiBJZ27sinIfN198ciP3h1hhFsXZ12nV1' +
            'yksHZysHajcc7fK4ga2Oy+rortcME67HhlxzdNilq/qZ0aXhbn6OU' +
            'H4xpIp5OXHQWu2+9TlM4XSUlpa5aayoaKmvt0sbxK4d4BeFZNFyRf' +
            'CTM9yvO6Yb3ikgyWpdbJaLm2kImEFgXsPtRwcH9g9UVczWVo2mZ90' +
            'PKK4Ld99o5PAgosCbnlX/wMOJK81a9v5XGDVwd2eRHuLrMCxh5UHX' +
            'Lx4MfNcnLScpuphemW4YR1oP2JsCpvsFGy/Y7Kk9IcMfiJFt91Mbv' +
            'QeLvxZBZ+AORWE+IMhFx6drzpfYriX4XLWOLsrReLJJXNRsMnYqvA' +
            'DIwdq9m/vHGlrmqrfOVuRPBmR0BMWlREmsxFLdcLIimC/JlfXMEfI' +
            'W1+7zDHYqSJUt1UGZqyHyIXVIRlI1cD2+ZtzreO7U5sTVNt51nXql' +
            'oNNzSONAwMD6p3coVMHDOrpTE/Uzsn23W59ARi8odTXr89ZkEJhuJ' +
            'AEyRR4oddOp02ZG7Ve5gIVj8QgvumEL3Douc3p9KUJ41GWMJti062' +
            '0itPQ5VQiEw+o0qHAKron0K3HUtHOkFXTHTItZarX7ZI/LwESzn2r' +
            'LnogQL6bDkBiQ7132KYQmU5ME1Hw6M/VNczULEEp9xQzBPQVuVk8z' +
            'rfc1Xa/ghdDDt0SKLESPtuawemvgXLWAMIf+/6QZCstIi6cwVn22M' +
            'sH4BOcJC+WvPfUHmUng+lNsq83cQiyYwgBhSOwuklSfFxlhGu3lUE' +
            'NzWxAGLEnMCMrXe1qyJIyCBSslY4oxGMN/Hz88koRBDH4LkzMVy8d' +
            'aIJV0D3QZXlSJCmhyirpyn6mS7dFaVmp3FcoceMF5/l7NOrCs4LFK' +
            'uE7L0+sTiXGQ8AVuXPlLmKZnYhnwqYIydhm1tuSJIjOabVJkd3+7p' +
            'W6daHubDkT2+Fd6rLDmnK5CNWCyLNj8rRMhiEV5PB2ZohYLKDbk4Q' +
            'ObGCDKiBjXSjv6RgL1nao3xde8feBGUAdLCX9eWvEPCSdYuFnUno2' +
            '7+QfDjv1m2kdrd7jhT+r4hNkFbE51CtqndxaSuVRnpVM9agevDrAA' +
            'IEji2fOporI+nrd8xN5u2yXks1noQG35IgkMezi4qLo4vDk1GQjDw' +
            'VHzSKxiHisiQ4h8hEwJ2ygn0mI/rzGqq8cxExIiAcsgXKJr2mXRd7' +
            'pDsN3e+oD0Sts6K+BCt8cMnS7b+fdbWllyVKl5COcVX8Te/pds9cf' +
            'QPtxG/39XuKnb/sB7wo+B6G8snZ+lVr7T0zYBpmVbG9X6zd/+Dpky' +
            't0rfN3znbFrtEYflZZOBRoHGu6erpt4ciy5O0ZjawQm+kuztUa/U8' +
            'IT8AIlL6Y0/NKDheKrmTl5OXwp7xe/CWeNfqe0dGpY5MYZOnZw4cu' +
            '5xINhlu5mv/xNOGv0eyWsL1TGtMkymV2crrmyNT0/TWDA/4Uv9lyj' +
            '3zGBM2Q7UfYebJl7MFMykG/s8iu4KGyNfq8E7pEhoSnS+OevztbMb' +
            'vNN8eSI2WvocY1+GdLfwK8jNh1oPL043tzaJLeR/szN6zVao3cmPB' +
            'FPVaDKHMGVK1d2jlWahqjoXNpv91dHrdFvmrArd9hEmg1x4Fjv/vm' +
            'e6JIwgZr3i//WjDX6nRKCnTVGDfDrqu1OzY+3drVKnPgQvn9pttbo' +
            'd0rYnRVcPMubdHT0aE9/jzSQ9w5Nwmu0Ru+HfjxGUd2xY3dnA/ar9' +
            '0SUt14otEZr9KEIwQwyMNc3t2oz3YFEFhHXyuBr9MsSSYpneizdi8' +
            't5e4PoGq3RxyD8z/rtD2v0Vvr/QtSCPA==');

        TPH := High(TP);
        for I := 0 to TPH do
        begin
          TTP := LoadTextTPA(TP[i], SmallChars, H);
          for B := 0 to High(TTP) do
          begin
            Numb := ((I + 1) * 13);
            FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
            FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
          end;
        end;
        Canvas := TCANVAS.Create;
        Canvas.Handle := SmartGetDebugDC;
        DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
        DrawBitmap(Pic2, Canvas, 160,10);
        FreeBitmap(Pic);
        FreeBitmap(Pic2);
      end;

      Procedure OnScreen;
      Var
        XPH,TPH,SPH,TTB: Integer;
      begin
        XPH := Round((FishXP * 3600) / (GetTimeRunning / 1000));
        TPH := Round((Trout_Caught * 3600) / (GetTimeRunning / 1000));
        SPH := Round((Salmon_Caught * 3600) / (GetTimeRunning / 1000));
        TTB := (((w) + (y) + BreakRounds)-GetTimeRunning);

        PrintOnSmart(['Version: '+Version+' (by Flight)',
        ''+MsToTime(GetTimeRunning, Time_Abbrev),
        '',
        'Trout: '+IntToStr(Trout_Caught)+' ('+IntToStr(TPH)+' / hour)',
        '',
        'Salmon: '+IntToStr(Salmon_Caught)+' ('+IntToStr(SPH)+' / hour)',
        '',
        'Fishing XP: '+IntToStr(FishXP)+' ('+IntToStr(XPH)+' / hour)',
        '',
        'Loads: '+IntToStr(Loads)],Point(15,75),16777215);
        PrintOnSmart(['Time till break: '+MsToTime(TTB,Time_Bare)],Point(573,432),65280);
      end;

      Procedure Commit;
      begin

        stats_IncVariable('Trout Caught',(Trout_Caught-Trout_Ca));
        stats_IncVariable('Salmon Caught',(Salmon_Caught-Salmon_Ca));
        stats_IncVariable('Fishing EXP (Gained)',(FishXP-Fish_XP));
        stats_IncVariable('Loads Done',(Loads-Loads_O));
        Stats_Commit;

        Trout_Ca := Trout_Caught;
        Salmon_Ca := Salmon_Caught;
        Fish_XP := FishXP;
        Loads_O := Loads;

        MarkTime(CommitTime);

      end;

      Procedure Shutdown(Reason: String);
      begin
        WriteLn('{{{==Script shutdown==}}}');
        Writeln('----Reason: '+Reason+'----');
        Wait(RandomRange(1000,1300));
        Logout;
        TerminateScript;
      end;

      Function InvertPath(Points: TPointArray): TPointArray;
      Var
        i, j: integer;
      begin
        SetLength(Result, Length(Points));
        j := 0;
        for i := High(Points) downto 0 do
        begin
          Result[j] := Points[i];
          Inc(j);
        end;
      end;

      Function WalkTo(Where: String): Boolean;
      begin
        Case Where of
          'Bank':
            Result := SPS_WalkPath(Path_ToBank);
          'Spot':
            Result := SPS_WalkPath(InvertPath(Path_ToBank));
        end;
      end;

      Function FindSpotsSpirl: TPointArray;
      var
        Spot: Integer;
        TPA: TPointArray;
      begin
        Spot := BitmapFromString(3, 9, 'meJz7Nd/wFxgxUAYYGRgOgAEAr8oJ' +
            '4A==');
        setbitmapname(Spot,'Spot (FindSpotsSpiral)');
        if FindBitmapsSpiralTolerance(Spot, MMCX, MMCY, TPA, MMX1, MMY1, MMX2, MMY2, 5) then
          Result := TPA;
        FreeBitmap(Spot);
      end;

      Procedure NextSpot;
      var
        TP: TPoint;
        TPA: TPointArray;
      begin
        FindNormalRandoms;
        MakeCompass('W');
        TPA := FindSpotsSpirl;
        if (Length(TPA) = 0) then
        begin
          Stage := 2;
          Exit;
        end;
        if (Length(TPA) = 1) then
        begin
          Writeln('Only 1 spot found, relocating...');
          MMouse(TPA[0].X, TPA[0].X-5, 1, 1);
          ClickMouse2(True);
          FFlag(0);
          Wait(randomrange(1500,2875));
          Exit;
        end;
        TP := Point(TPA[1].X, TPA[1].Y);
        if ColorDebug then
          SMART_DrawBox(IntToBox(TP.X-10,TP.Y-10,TP.X+10,TP.Y+10));

        MMouse(TP.X+6, TP.Y-2, 1, 1);
        ClickMouse2(True);
        if ColorDebug then
        begin
          Smart_ClearCanvas;
          OnScreen;
        end;
        Wait(randomrange(150,300));
        FFlag(0);
        While IsMoving do
          Wait(1);
      end;

      Function FindObjSimple(Color, CTS_S, Tol, Bounds, Xs, Ys: Integer; UpText: String; Var X, Y: Integer; DeBug: Boolean): Boolean;
      var
         TPAA: T2DPointArray;
         TPA: TPointArray;
         CTS, I: Integer;
      begin
        CTS := GetColorToleranceSpeed;
        ColorToleranceSpeed(CTS_S);
        FindColorsSpiralTolerance(Xs, Ys, TPA, Color, MSX1, MSY1, 470, MSY2, Tol);
        ColorToleranceSpeed(CTS);
        if DeBug then
          SMART_DrawDotsEx(False, TPA, 65280);
        TPAA := TPAToATPAEx(TPA, Bounds, Bounds);
        SortATPASize(TPAA, True);
        for I := 0 To High(TPAA) do
        begin
          MiddleTPAEx(TPAA[i], X, Y);
          MMouse(X, Y, 3, 3);
          if WaitUpText(UpText, 300) Then
          begin
            Result := True;
            GetMousePos(X, Y);
            Break;
          end;
        end;
      end;

      Function InFishingArea: Boolean;
      begin
        Result := ((Length(FindSpotsSpirl) > 0) and (Length(FindSpotsSpirl) < 3));
      end;

      Procedure AreaCheck;
      begin
        if not InFishingArea then
          FindNormalRandoms;
      end;

      Function Antiban: Boolean;
      var
        i: Integer;
      begin
        if not LoggedIn then Exit;
        AreaCheck;
        i := Random(15);
        case i of
          1:
            begin
              RandomRClick;
              Result := True;
            end;
          2:
            begin
              RandomMovement;
              Result := True;
            end;
          3:
            begin
              HoverSkill('Fishing', False);
              Result := True;
            end;
        end;

        Wait(RandomRange(250,350));
      end;

    Procedure FastDropSlot(Slot: Integer);
    begin
       DropItem(Slot);
    end;


      Procedure DropRemaining;
      Var
        I,MS,T: Integer;
      begin
        MS := MouseSpeed;
        T  := GetTimeRunning;

        FastDropSlot(3);
        FastDropSlot(4);

        For I := 8 downto 5 do
        begin
          if (I = 9) then
            Break;
          FastDropSlot(I);
        end;

        For I := 9 to high(12) do
        begin
          if (I = 13) then
            Break;
          FastDropSlot(I);
        end;

        For I := 16 downto 13 do
        begin
          if (I = 17) then
            Break;
          FastDropSlot(I);
        end;

        For I := 17 to high(20) do
        begin
          if (I = 21) then
            Break;
          FastDropSlot(I);
        end;

        For I := 24 downto 21 do
        begin
          if (I = 25) then
            Break;
          FastDropSlot(I);
        end;

        For I := 25 to high(28) do
        begin
          if (I = 29) then
            Break;
          FastDropSlot(I);
        end;

        Writeln('Dropped fish in '+IntToStr(GetTimeRunning-T)+' ms.');
        MouseSpeed := MS;
        OnScreen;
      end;

      Procedure WhileFishing;
      var
        T,I,I2: Integer;
      begin

        I := InvCount;

        Marktime(T);
        repeat

          AreaCheck;
          if FindNPCChatText('these fish', Nothing) then
            Shutdown('Out of equipment');
          ClickToContinue;
          if (TimeFromMark(T) > FishTimer) then
            break;
          if InvFull then
            break;

          GameTab(tab_Inv);
          I2 := InvCount;

          if (I <> I2) then
          begin
            Marktime(T);
            GameTab(tab_Inv);
            I := InvCount;
            if AntiBan then
              Marktime(T);
          end;

        until(false)

      end;

      Function FindObjSimple_F(Colors: TIntegerArray; TheUpText: TStringArray; midx, midy: integer): Boolean;
      Var
        T,i,X,Y: Integer;
        TPA: TPointArray;
        ATPA: Array of TPointArray;
      Begin
        MarkTime(T);
        Repeat
          SetArrayLength(ATPA, Length(Colors));
          for i := 0 to High(Colors) do
            FindColorsSpiralTolerance(midx, midy, ATPA[i], Colors[i], MSX1, MSY1, MSX2, MSY2, 10);
          TPA := MergeATPA(ATPA);
          ATPA := TPAtoATPAEx(TPA, 15, 15);
          SortATPAFrom(ATPA, Point(MSCX, MSCY));
          if (Length(ATPA) = 0) then
            Exit;

          MiddleTPAEx(ATPA[0], x, y);

          if (TimeFromMark(T) > 5000) then
            Exit;

          MMouse(x, y, 10, 10);
          Wait(randomrange(75,125));
          If(IsUpTextMultiCustom(TheUpText)) then
          begin
            if ColorDebug then
              SMART_DrawBox(IntToBox(X-15,Y-15,X+15,Y+15));
            ClickMouse2(True);
            if DidRedClick then
            begin
              Result := True;
              Break;
            end;
          end;
        Until(Result)
      end;

      Procedure ReturnValues(colors: TIntegerArray; var HueMods, SatMods: Extended; var color, Tolerance: Integer);
      Var
        h, s, t: Extended;
        I,II : integer;
        HSLColor : Array[1..3] of Extended;
        HSL : Array[0..1] of Array[1..3] of Extended;
      begin;
        For I:= 1 to 3 do
        begin;
          HSL[0][i] := 255;
        end;

        For I:= 0 to High(Colors) do
        begin;
          ColortoHSL(Colors[i],HSLColor[1],HSLColor[2],HSLColor[3]);
          For II:= 1 to 3 do
          begin;
            HSL[0][II] := MinE(HSLColor[II],HSL[0][II]);
            HSL[1][II] := MaxE(HSLColor[II],HSL[1][II]);
          end;
        end;

        H := (HSL[1][1] - HSL[0][1]);
        S := (HSL[1][2] - HSL[0][2]);
        T := (HSL[1][3] - HSL[0][3]);

        try
          HueMods := (H/T);
          SatMods := (S/T);
          Tolerance := Round(t);
        except
          HueMods := 0;
          SatMods := 0;
          Tolerance := Round(0.0);
        end;

        Color := HSLToColor((HSL[1][1] + HSL[0][1]) div 2,(HSL[1][2] + HSL[0][2]) div 2,(HSL[1][3] + HSL[0][3]) div 2);
      end;

      Function FindFishingSpot(Var X,Y: Integer): Boolean;
      var
        B: TBox;
        TPA: TPointArray;
        Hmod,Smod: Extended;
        L,i,Tol,CTS,Col: Integer;
        ATPA: T2DPointArray;
      begin
        Result := False;

        ReturnValues([11970978, 12169386, 12433588], Hmod, Smod, Col, Tol);
        CTS := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(Hmod, SMod);
        FindColorsSpiralTolerance(MSCX, MSCY, TPA, Col, MSX1, MSY1, MSX2, MSY2, Tol);
        ColorToleranceSpeed(CTS);
        if (Length(TPA) < 1) then
          Exit;
        ATPA := TPAToATPAEx(TPA, 40, 40);
        SortATPAFrom(ATPA, Point(MSCX,MSCY));
        L := High(ATPA);
        SetArrayLength(ATPA, L+1);
        for i := 0 to L do
        begin
          if (GetArrayLength(ATPA[i]) > 20) then
          begin
            B := GetTPABounds(ATPA[i]);

            MiddleTPAEx(ATPA[i], X, Y);
            MMouse(X, Y, 15, 15);
            if WaitUpTextMulti(['ure F', 'ishing', 'ng s'], 555) then
            begin
              Result := True;
              GetMousePos(X, Y);
              Exit;
            end else
              Result := False;

          end;
        end;

      end;

      Procedure StartFishing;
      var
        X,Y,F,XP1,XP2,TroutDTM,
        SalmonDTM,TC,SC: Integer;
      label
        Start;
      begin
        if not LoggedIn then
          Exit;

        AreaCheck;

        FFlag(0);
        Wait(randomrange(1138, 1875));
        if InvFull then
        begin

          TroutDTM := DTMFromString('mbQAAAHicY2VgYHjGxMDwAohvAfFLIP4GxPyMDAzMQCwExKJAzA7EU/v6gKqZUDA/AyZgxILBAABCqgap');
          SalmonDTM := DTMFromString('mbQAAAHicY2VgYNjFxMCwD4g3APF+ID4OxLyMDAzMQCwExKJAzAjE9f5uQNVMKJifARMwYsFgAADHJAUr');

          TC := CountItems('dtm', TroutDTM, []);
          SC := CountItems('dtm', SalmonDTM, []);

          IncEx(Trout_Caught, TC);
          IncEx(Salmon_Caught, SC);
          XP1 := (TC*50);
          XP2 := (SC*70);
          IncEx(FishXP, XP1+XP2);
          OnScreen;
          FreeDTM(TroutDTM);
          FreeDTM(SalmonDTM);
          if DoBanking then
          begin
            Stage := 1;
            Exit;
          end else
          begin
            Inc(Loads);
            DropRemaining;
          end;
        end;

        Start:
        if FindFishingSpot(X, Y) then
        begin
          ClickMouse2(True);

          if ColorDebug then
          begin
            Smart_ClearCanvas;
            OnScreen;
          end;

          if not DidRedClick then
            Exit;

          FFlag(0);
          Wait(RandomRange(2000,2500));
          if FindNPCChatText('these fish', Nothing) then
            Shutdown('Out of equipment');
          WhileFishing;
        end else
        begin
          Inc(F);
          if (F > 4) then
            NextSpot;
          Wait(RandomRange(275, 350));
          goto Start;
        end;

      end;

      Function HandleBank: Boolean;
      var
        S: String;
        X,Y,T,F: Integer;
      label
        ProcStart;
      begin
        ProcStart:
        if not LoggedIn then
          Exit;
        FindNormalRandoms;
        FFlag(0);
        Wait(randomrange(1138, 1875));

        if FindObjSimple(7631994, 2, 10, 30, MSCX, MSCY, 'posit', X, Y, ColorDebug) then
        begin
          if ColorDebug then
            SMART_DrawBox(IntToBox(X-15,Y-15,X+15,Y+15));
          ClickMouse2(True);
          if not DidRedClick then
            Exit;
          if ColorDebug then
          begin
            Smart_ClearCanvas;
            OnScreen;
          end;
          FFlag(0);

          Marktime(T);
          repeat

            AreaCheck;
            ClickToContinue;
            if DepositScreen then
              break;
            if (TimeFromMark(T) > 5000) then
              Shutdown('Failed to open deposit box');

          until(false)

          if DepositScreen then
          begin
            Deposit(3, 28, True);
            Inc(Loads);
            Result := True;
          end;
        end else
        begin
          Writeln('Box not found!');
          Inc(F);
          Wait(RandomRange(700, 1100));
          if (F >= 5) then
          begin
            Result := False;
            Exit;
          end else
            goto ProcStart;
        end;

        if Result then
        begin
          OnScreen;
          if (GetMMLevels('run',S) <= RestAt) then
            RestUntil(RandomRange(90,100));
        end;
      end;

      Function BreakHandler(BreakIn, BreakFor, randBreakIn, randBreakFor: Integer): Boolean;
      Var
        h,m,s: integer;
      begin
        if not LoggedIn then Exit;

        if (HowManyPlayers = 1) then
        begin
          if (GetTimeRunning < ((w) + (y) + BreakRounds)) then Exit
          else
            if (GetTimeRunning > ((w) + (y) + BreakRounds)) then
            begin
              RealBTime := ((x+z)/60000);
              Writeln('Taking a break for about ' + IntToStr(RealBTime) + ' minutes.');
              Logout;
              MarkTime(CurrentBTime);
              repeat
                Wait(21000);
                ConvertTime((x+z)-TimeFromMark(CurrentBTime), h, m, s);
                ClearDebug;
                Writeln('Breaktime left: '+IntToStr(h)+':'+IntToStr(m)+':'+IntToStr(s));
              until(TimeFromMark(CurrentBTime)>(x+z));
              Writeln('Logging in.');
              OnScreen;
              if SwitchWorlds then
                if LoginPlayerToLob then
                  ChangeWorld(RandomWorld(True, False))
              else
                LoginPlayer;
              Wait(4000);
              Result := LoggedIn;
              ClickNorth(SRL_ANGLE_HIGH);
              IncEx(BreakRounds, (w) + (x));
              Inc(TotalBreaks);
              Writeln('The next break will occur in about ' + IntToStr(BreakIn) + ' minutes.');
              w := (BreakIn * 60000);
              x := (BreakFor * 60000);
              y := RandomRange(-Bir * 60000, Bir * 60000);
              z := RandomRange(-Bfr * 60000, Bfr * 60000);
            end;
        end;
      end;

      Procedure MasterLoop;
      begin
        if not LoggedIn then Exit;
        if DoBanking then
        begin
          Case Stage of
            0: StartFishing;

            1:
              if WalkTo('Bank') then
                if HandleBank then
                  Stage := 2
                else
                  Shutdown('Error while banking')
              else
                Shutdown('Failed to perform walk (to bank)');

            2:
              if WalkTo('Spot') then
              begin
                OnScreen;
                Stage := 0;
              end else
                Shutdown('Failed to perform walk (to fishing spots)');

          end;
        end else
          Case Stage of
            0: StartFishing;
          end;
      end;

    begin
      Smart_Server := 86;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;

      setupSRL();
      DeclarePlayers;

      Loadvars;
      CheckStats;
      CheckVersion;

      if not LoggedIn then
        LogInPlayer;

      ClickNorth(SRL_ANGLE_HIGH);
      Smart_ClearCanvas;
      OnScreen;

      Wait(500);
      SPS_Setup(RUNESCAPE_SURFACE, ['10_7','10_6']);
      SPS_Continue := True;

      Repeat

        if not LoggedIn then LoginPlayer;

        if (TimeFromMark(CommitTime)>=30000) then
          Commit;
        if (TimeFromMark(ReportTime)>=5000) then
          Report;
        BreakHandler(BreakIn,BreakFor,Bir,Bfr);

        AreaCheck;

        MasterLoop;

      Until(AllPlayersInactive)

    end.

    No idea if it works or not because I haven't used this script but this compiles so give it a shot.
    im trying it, seems to work

  21. #71
    Join Date
    Dec 2011
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    It works for the first load then fails to loop :l

  22. #72
    Join Date
    Aug 2007
    Location
    Colorado
    Posts
    7,421
    Mentioned
    268 Post(s)
    Quoted
    1442 Post(s)

    Default

    Updated to V1.4.

    Everything should be fixed.

    Current projects:
    [ AeroGuardians (GotR minigame), Motherlode Miner, Blast furnace ]

    "I won't fall in your gravity. Open your eyes,
    you're the Earth and I'm the sky..."


  23. #73
    Join Date
    Oct 2011
    Location
    England
    Posts
    401
    Mentioned
    10 Post(s)
    Quoted
    176 Post(s)

    Default

    Thank You <3 Using it to get 68 fishing for a TT
    Yer a wizard, 'oopi

  24. #74
    Join Date
    Feb 2012
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It seems to be working quite well for right now im using version 1.4

  25. #75
    Join Date
    Dec 2011
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Working great for me! Sometimes it takes a bit and runs between each spot, but for the most part it seems to be trucking along Thanks so much!

    EDIT:
    Gets about 5 loads done and just goes inbetween each spot. Color update maybe? Also, you should try to make the script a little less ADHD ;D this script is usefull nevertheless
    Last edited by Rob0222; 02-07-2012 at 03:32 AM.

Page 3 of 22 FirstFirst 1234513 ... LastLast

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
  •