Results 1 to 7 of 7

Thread: Help Banking pleasee

  1. #1
    Join Date
    Mar 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Unhappy Help Banking pleasee

    I don't know if its allowed to use someones script as a base but i used the draynor willow banker script as a base . Im trying to make a Gnome yew cutter and banker but i dont know how to make the player go to the bank and stuff . please help or teach .






    Simba Code:
    program GnomeYewBanker;
    {$DEFINE SMART}
    {$I SRL/SRL.Simba}
    {$I P07Include.Simba}




    var
    * DsgnForm:TForm;
    * TLabel12,TLabel13,TLabel14,TLabel15: TLabel;
    * TEdit7,TEdit8,TEdit9,TEdit10,TEdit11: TEdit;
    * TImage0,TImage1,TImage2: TImage;
    * TButton3: TButton;
    * TCheckBox5,TCheckBox6: TCheckBox;
    * TComboBox4: TComboBox;
    * bmps0,bmps1,bmps2: TMufasaBitmap;
    * bmp0,bmp1,bmp2: TBitmap;
    * CurTime, ProgTime, ProgBank, InitWait, InitChopWait, AxeFailSafe1, AxeFailSafe2, AxeFailSafeToggle, AxeFailSafeTime, LocFailSafe, AxeFailSafe, AnimationCheck, Skiller, RunFromCombat, Lagg, ChopWaitTime, TreeColor, BankDTM, BankColor1: integer;
    * Location: string;




    * const
    * default = 'Comic Sans MS';




    procedure DTM;
    begin
    //make sure axe is in first slot first row or weilded
    * if(TCheckBox6.CHECKED) then
    * begin
    * * skiller := 0;
    * end
    * else
    * begin
    * * skiller := 1;
    * end;




    * if(TCheckBox5.CHECKED) then
    * begin
    * * RunFromCombat := 1;
    * end
    * else
    * begin
    * * RunFromCombat := 0;
    * end;




    Lagg := strtoint(TEdit9.TEXT) ; //lag time in ms
    ChopWaitTime := strtoint(TEdit10.TEXT) ; *//time in seconds to check if chopping
    AnimationCheck := strtoint(TEdit11.TEXT) ; //for pixelshift, chopping




    * case TComboBox4.ITEMINDEX of
    * * 0: Location := 'Yew';
    * end;




    if(Location = 'Yew') then //over at Gnome
    begin
    TreeColor := 1333067;
    BankColor1 := 3775904;
    BankDTM := DTMFromString('mQwAAAHicY2ZgYOBnYWAQBmJpIH7IgMB//jDBMSuQD8OMSBgIAFujCPA=');
    end;




    end;




    Procedure P07_DeclarePlayer;
    Begin
    * P07_PlayerName:=TEdit7.TEXT ;
    * P07_PlayerPass:=TEdit8.TEXT ;
    end;




    //DONT EDIT BELOW




    procedure WaitHumanClick;
    begin
    * case random(600) of
    * * 1..450: Wait(RandomRange(0, 100));
    * * 451..570: Wait(RandomRange(0, 200));
    * * 571..590: Wait(RandomRange(0, 600));
    * * 591..600: Wait(RandomRange(400, 1100));
    * end;
    end;




    procedure FreeDTMss;
    begin
    * FreeDTM(BankDTM);
    * MarkTime(CurTime);
    * writeln('Banked ' + inttostr(ProgBank) + ' invs in ' + inttostr(((TimeFromMark(ProgTime) / 1000) / 60)) + ' mins.');
    end;




    procedure GoToBank;
    var x, y: integer;
    begin
    * P07_MakeCompassEast;
    * if(not(P07_BankScreen)) then
    * begin
    * * WaitHumanClick;
    * if(findDTM(BankDTM, x, y, 565, 7, 717, 157)) then
    * begin
    * * case Location of
    * * 'Yew': Mouse(RandomRange(X + 15, x + 20), RandomRange(Y - 8, Y - 13), random(3), random(3), true);
    * * end;
    * end;
    * P07_FFlag;
    * wait (lagg);
    * end;
    end;




    procedure BankLogs;
    begin
    * wait(lagg);
    * if(P07_BankScreen) then
    * begin
    * if(skiller = 1) then
    * begin
    * P07_Deposit(2, 28, True);
    * wait (lagg);
    * end
    * else
    * begin
    * * P07_Deposit(1, 28, True);
    * * wait (lagg);
    * end;
    * end;
    * //if(((P07_InvCount < 2) and (skiller = 1)) or ((P07_InvCount < 1) and (skiller = 0))) then
    * //begin
    * * ProgBank := ProgBank + 1;
    * //end;
    end;




    procedure OpenBank1;
    var x, y: integer;
    begin
    * Repeat
    * * If P07_FindObj(x, y, 'ank booth', BankColor1, 10) Then
    * * begin
    * * * LocFailSafe := 0;
    * * * WaitHumanClick;
    * * * Mouse(RandomRange(X - 5, x + 5), RandomRange(Y - 5, Y + 5), random(3), random(3), false);
    * * * WaitHumanClick;
    * * * P07_ChooseOptionMulti(['se-q']);
    * * end
    * * else
    * * begin
    * * * P07_MakeCameraAngleHigh;
    * * * P07_MakeCompassDegree(randomrange(25, 35));
    * * * LocFailSafe := LocFailSafe + 1;
    * * * GoToBank;
    * * end;
    * * P07_FFlag;
    * * wait (lagg);
    * until(P07_BankScreen)
    end;




    procedure GoToTrees;
    var x, y: integer;
    begin
    * P07_MakeCompassNorth;
    * WaitHumanClick;
    * if(findDTM(BankDTM, x, y, 100, 7, 717, 157)) then
    * begin
    * * case Location of
    * * 'Yew': Mouse(RandomRange(X - 5, x - 15), RandomRange(Y + 15, Y + 25), random(3), random(3), true);
    * * end;
    * end;
    * P07_FFlag;
    * wait (lagg);
    end;




    procedure ChopTree;
    var x, y: integer;
    begin
    * * If P07_FindObj(x, y, Location, TreeColor, 5) Then
    * * begin
    * * * WaitHumanClick;
    * * * MMouse(x, y, Random(2), Random(2));
    * * * WaitHumanClick;
    * * * if (P07_ContainsText(GetTextAtExWrap(35, 8, 170, 21, 0, 5, 1, 13423640, 65, 'P07UpChars'), [Location])) then
    * * * begin
    * * * * GetMousePos(x, y);
    * * * * LocFailSafe := 0;
    * * * * if(random(2) = 1) then
    * * * * begin
    * * * * * Mouse(RandomRange(X - 5, x + 5), RandomRange(y - 5, y + 5), random(5), random(5), True);
    * * * * end
    * * * * else
    * * * * begin
    * * * * * Mouse(RandomRange(X - 5, x + 5), RandomRange(y - 5, y + 5), random(5), random(5), false); *//clicks it
    * * * * * P07_ChooseOptionMulti(['hop']);
    * * * * end;
    * * * end
    * * * else
    * * * begin
    * * * * GoToTrees;
    * * * end;




    * * * *P07_FFlag;
    * * * *wait (Lagg * 2 + 250);
    * * * *MMouse(x, y, 0, 0);
    * * * * if (P07_FindObj(x, y, Location, TreeColor, 5) and P07_ContainsText(GetTextAtExWrap(35, 8, 170, 21, 0, 5, 1, 13423640, 65, 'P07UpChars'), [Location])) then
    * * * * begin
    * * * * * if(AxeFailSafe > ChopWaitTime) then
    * * * * * begin
    * * * * * * MarkTime(InitChopWait);
    * * * * * * InitWait := 1;
    * * * * * end;
    * * * * * //Mouse(RandomRange(X - 5, x + 5), RandomRange(y - 5, y + 5), random(5), random(5), True);
    * * * * end
    * * * * else
    * * * * begin
    * * * * * Mouse(242, 195, random(3), random(3), true);
    * * * * end;
    * * end
    * * else
    * * begin
    * * * wait(2000); * *//goes to trees if cant find trees
    * * * if((LocFailSafe = 0) or (LocFailSafe = 5) or (LocFailSafe = 10) or (LocFailSafe = 15) or (LocFailSafe = 20)) then
    * * * begin
    * * * * P07_MakeCompassDegree(randomrange(25, 35));
    * * * * GoToTrees;
    * * * end;
    * * * LocFailSafe := LocFailSafe + 1;
    * * end;
    end;




    procedure TurnOnRun;
    var x, y: integer;
    begin
    * *Mouse(671, 482, random(5), random(5), true);
    * *WaitHumanClick;
    * *if(FindColorTolerance(x, y, 4803917, 651, 422, 659, 430, 10)) then
    * *begin
    * * *Mouse(640, 426, random(5), random(5), true);
    * *end;
    * *Mouse(644, 184, random(5), random(5), true);
    end;




    Function isMoving1: Boolean;
    * var
    * * PBox: TBox;
    * begin
    * * PBox := IntToBox(220, 140, 300, 200);
    * * Result := (AveragePixelShift(PBox, 250, 500) > AnimationCheck);
    * * //Writeln(IntToStr(AveragePixelShift(PBox, 250, 500)));
    * end;




    Function AntiBan: Boolean;
    begin
    * case random(400) of
    * 0: P07_HoverSkill('woodcutting', random(5000));
    * 1: TurnOnRun;
    * 2: P07_MakeCameraAngleHigh;
    * 3: P07_MakeCompassSouth;
    * 4: P07_MakeCompassEast;
    * 5: P07_MakeCompassWest;
    * 6: P07_MakeCompassNorth;
    * end;
    end;








    procedure YourClickProcedure(Sender: TObject);
    begin
    * if(Sender = TButton3) then
    * begin
    * * *DsgnForm.CLOSE;
    * end;
    end;








    procedure InitForm;
    begin
    //DsgnForm\\
    *DsgnForm:=TForm.Create(nil);
    * with DsgnForm do
    * * begin
    * * * Caption:='Yewing At Gnomes';
    * * * Left:=423;
    * * * Top:=294;
    * * * Width:=400;
    * * * Height:=300;
    * * * Font.Name:=default;
    * * * Font.Color:=clDefault;
    * * * Font.Size:=0;
    * end;
    //TLabel12\\
    *TLabel12:=TLabel.Create(DsgnForm);
    * with TLabel12 do
    * * begin
    * * * Parent:=DsgnForm;
    * * * Caption:='Pixelshift';
    * * * Left:=86;
    * * * Top:=165;
    * * * Width:=48;
    * * * Height:=16;
    * * * Font.Name:=default;
    * * * Font.Color:=clDefault;
    * * * Font.Size:=0;
    * end;
    //TLabel13\\
    *TLabel13:=TLabel.Create(DsgnForm);
    * with TLabel13 do
    * * begin
    * * * Parent:=DsgnForm;
    * * * Caption:='Chop wait time';
    * * * Left:=84;
    * * * Top:=193;
    * * * Width:=48;
    * * * Height:=16;
    * * * Font.Name:=default;
    * * * Font.Color:=clDefault;
    * * * Font.Size:=0;
    * end;
    //TLabel14\\
    *TLabel14:=TLabel.Create(DsgnForm);
    * with TLabel14 do
    * * begin
    * * * Parent:=DsgnForm;
    * * * Caption:='Lag in ms';
    * * * Left:=82;
    * * * Top:=221;
    * * * Width:=48;
    * * * Height:=16;
    * * * Font.Name:=default;
    * * * Font.Color:=clDefault;
    * * * Font.Size:=0;
    * end;
    //TLabel15\\
    *TLabel15:=TLabel.Create(DsgnForm);
    * with TLabel15 do
    * * begin
    * * * Parent:=DsgnForm;
    * * * Caption:='Welcome to KennyRees script!';
    * * * Left:=37;
    * * * Top:=105;
    * * * Width:=48;
    * * * Height:=16;
    * * * Font.Name:=default;
    * * * Font.Color:=clDefault;
    * * * Font.Size:=0;
    * end;
    //TEdit7\\
    *TEdit7:=TEdit.Create(DsgnForm);
    * with TEdit7 do
    * * begin
    * * * Parent:=DsgnForm;
    * * * Text:='Username or eMail';
    * * * Left:=4;
    * * * Top:=9;
    * * * Width:=197;
    * * * Height:=23;
    * * * Font.Name:=default;
    * * * Font.Color:=clDefault;
    * * * Font.Size:=0;
    //TEdit7.MaxLength:=x;
    //TEdit7.PasswordChar:=*;
    * end;
    //TEdit8\\
    *TEdit8:=TEdit.Create(DsgnForm);
    * with TEdit8 do
    * * begin
    * * * Parent:=DsgnForm;
    * * * Text:='Password';
    * * * Left:=6;
    * * * Top:=38;
    * * * Width:=196;
    * * * Height:=23;
    * * * Font.Name:=default;
    * * * Font.Color:=clDefault;
    * * * Font.Size:=0;
    //TEdit8.MaxLength:=x;
    * * * TEdit8.PasswordChar:= '*';
    * end;
    //TEdit9\\
    *TEdit9:=TEdit.Create(DsgnForm);
    * with TEdit9 do
    * * begin
    * * * Parent:=DsgnForm;
    * * * Text:='500';
    * * * Left:=3;
    * * * Top:=218;
    * * * Width:=80;
    * * * Height:=23;
    * * * Font.Name:=default;
    * * * Font.Color:=clDefault;
    * * * Font.Size:=0;
    //TEdit9.MaxLength:=x;
    //TEdit9.PasswordChar:=*;
    * end;
    //TEdit10\\
    *TEdit10:=TEdit.Create(DsgnForm);
    * with TEdit10 do
    * * begin
    * * * Parent:=DsgnForm;
    * * * Text:='20';
    * * * Left:=2;
    * * * Top:=191;
    * * * Width:=80;
    * * * Height:=23;
    * * * Font.Name:=default;
    * * * Font.Color:=clDefault;
    * * * Font.Size:=0;
    //TEdit10.MaxLength:=x;
    //TEdit10.PasswordChar:=*;
    * end;
    //TEdit11\\
    *TEdit11:=TEdit.Create(DsgnForm);
    * with TEdit11 do
    * * begin
    * * * Parent:=DsgnForm;
    * * * Text:='90';
    * * * Left:=3;
    * * * Top:=163;
    * * * Width:=80;
    * * * Height:=23;
    * * * Font.Name:=default;
    * * * Font.Color:=clDefault;
    * * * Font.Size:=0;
    //TEdit11.MaxLength:=x;
    //TEdit11.PasswordChar:=*;
    * end;
    //TImage0\\
    *TImage0:=TImage.Create(DsgnForm);
    * with TImage0 do
    * * begin
    * * * Parent:=DsgnForm;
    * * * Left:=176;
    * * * Top:=-9;
    * * * Width:=96;
    * * * Height:=96;
    * * * bmps0:=GetMufasaBitmap(BitmapFromString(96,96,'meJztnEtrE2EUhrfapvYC/hGhSFFRCTbUNtYqkaZegm1gsESqomThoguhC8FFQfBvzk/wJO/kzHeb0LSZzIX34VC6SMI3D+85p9MyjWNCCCGEEEIIIYQQQvKi0Y5WXg5WXn8p+iAlRf3c6Q5X3/1c7Z0XfaJykch58x1+1o5/rfUv1qPfRZ+rFKTh8fysDy43zv5ufP1X9BmLBHJSP73zxM/pH/iZ9QP7R82Ph09RjbtRHmdeJE54fD8/Pu1/i9pSZ/1d1OfjHanTXgsVvX8mJVpQKudD53HV/TSen1jh8fxAjq8FTsyqpx8ZPqaciZ/R8Bn7gRxfi6qQr1PkVN1PZnNN/KgcRwsM1N9PKDzqB+GBHFML6u2rR6rIl1MDP25zTeSoHzM8etWiRepw/4GUfKN+gnIq7Ueaa0p4pFQOLl+1dPa2pOBHI1RDP354DD/mK3HVYgNmDnbuS0ER/DhyauBHNvv08ATfJU5ebG+inAjVzU87umJ4gogfRMj0Y8g5GVeF/YyGT3cYXutX8LPbvOdEyNxrEz+JpQVcznxZbvXM32bMGh7gRCjLT64XkhPW8Jk9PIpOaVVUAzkxhk9GeORn5pk+ShRl+cnp8AvAba5rhUfRCKGqLgfNNZfwKOqn6nJiv7luFh4FiqouJx5v9vmGRxE/czlhgWCzB8Nzcz81IBk+OYSnHiTDh+EJsdw8wvBheIIkw4fhyQD37AxPFmlzQQ79GISb61p/Ia0l2OwMTxbY7AxPkHSzMzwh0uHD8ITQ4WOGh37A0pNOMnwYnhA6fBieIHrPTjlB2FxTsJqLcjx0s9NPkHSzT+TQj2JtdobHwxo+g0v6cUiHD8PjsfTwIB0+DI+HNFc6fPgkhYe12RkeD7O5GB4Ha7MzPB7mZmd4fMzNzvA4OJud4XEwhw+by8caPpTjYQ0f+rFxhk/Rxykdo+EjfrpDbPaij1Mubm/tiR/pr1F+ZDizuWzEz+i2FP3Vvyj6OOXi1ua2DB/4kfks86foE5WLxE+rhwdL6cdBhw/88N+wZIEHb+mHEEIIIYQQQgghpDz8B4g6Z4g='));
    * * * bmp0:=bmps0.ToTBitmap;
    * * * Picture.Bitmap.handle:=bmp0.handle;
    * end;
    //TImage1\\
    *TImage1:=TImage.Create(DsgnForm);
    * with TImage1 do
    * * begin
    * * * Parent:=DsgnForm;
    * * * Left:=252;
    * * * Top:=0;
    * * * Width:=150;
    * * * Height:=150;
    * * * bmps1:=GetMufasaBitmap(BitmapFromString(150,150,'meJztnd1rZOeV7i8O5yo3hxmID5N2z7Tilmx1W5ZKUqlVknZZW9GWVFKVrF2tklW2yi11Ky2P2+2xjxtsfIaEJieESXJ8SPDgIRCbBId4GDMkJBcOGEIMJgQcCBlyk/9h8PXcZH7PekrbPY6P3d1WW+1qvWyK+thf9T7vsz7etda733vvqB21o3bUPqb9/Ld/yJ954oWXXjrsGzlqN9OAL9lpldqN0c7ayrMXf/Kb3x32HR21G2i/+P0fA75aud0YyrPjs6MDtemrr37/sO+rd9pL//rTW3r++QuPDK2llU7en00O1pK/Kg/2peV7lirVC+1bfek7pL321ttXvvXdW3Fm2IfMBKxSKwO+oUY12Xu4f34CQMdbC4NLUwD62HNXbsWl77SWX75y6f987WDPCXywDLyAD7xAEOE50WmUWrXy9jrwgeNQI2WHieby93725sFe/Q5sQ7XVhXNfxuQ4kLO9/qtfp3vtuytDIFURapmYuD53qpGAIwpRyK7PgWwpF4jHk+GLf/88oB/I1e/MBgvuOj0yXmt8chC//dqP7m/Ooez6ZkfBDqR4RWCObS4kO/nw5gJo9lWGQRMO8g1vDGKpkV59+Z8O5O/cmQ2V9BcDpz4hiN949QeWlv1pGWiEYC6txzZUS+Kb2mAjPT5+ih0AF+UIT8sbS0AM4v3p6MOX9w5KFNxp7Y133h2qN+8aHrtpECHyUCtDwZlW4Mj7uXZz8eImstTaMNltzu21QM0yln14Hak9CAFBk6NAlo9HZurNta++/MqxsUm2qXp+o8d+55//JXuqA0DwDrpV2g1QS9oNOJVe2mSbefxR5CcuIeIUZC1Ly1vL5XYNEM+sLa5eumCq8gZNeiv+4J3QZjc7x6dm+6eqN2RXQBmAABoQAYv0bx+r7DYr7Vr+zBM4FJAu2W11vvYC76d2WlPbq+ajgN7OAR32TbYaAMev1U7r1v27O6G98uYvQRCFiEa7/qOAG9ZcffX7QIZ3gP8OE5Od1spzTwrBczmCFFh5v/T0NmiCtfzBDFexJmM1T4G7tDo/lFVRkTd06aP2gQaCJ6ZmsUuRqDdx+NmvXIGGdtjRaNDNshR/c/7J8/xqSTu5tQzv+pIS6s+UxC7FnkED3jc3CYsP/H/dOc0cRBXiHt7osahC0MmeeARQhmqyMFF/SFc4iIREM+Ik8uv76jKdTjo5hGUf4GYHAK2ur0LDmxs/R+09I3hm5uaMGfwRPMG582dlhWbVpcfPoQ2xSxGtay/8nazNtRTFh1oMLyNjH96Ut/Ls6V0snDLbxhIIDiTlIxredDMHT1Sqf12u3KhBiBECdkhIcJnfWBXvdluAgu5DfvKRHcrb6yAISdF9J7IzQ+u10c5a9fI2e+KJsHO5MQc3v3D6Hhh9i/5jbzcj+MWZOYyZG3LKcAbHNupYL8jJ+QuPrF/c5g3YQUle08sdvkQnypLp5PwEW+Ed5g1kVOCplQ3UpnmPv49J88WJ04/+rydv3d/s4WYET84uYMzcUEidnaGYEeTNxb9/Ptl7GLxKdfmGpXZNKq/dQKKCGqIVqvJr9UIbmwfIbPngYhyfHR3MU5wLZOlrb719IH8KOuOnIMnvhImCQoreNTw2fbZ9/QeiBFF8IAjpUHm4D4hEpKU+5ikI8iu0Qpai+EAQ+xORezwZBrUSEK/Os2kqdX1OYYtcczsHQkPgs7ievNDmQrilvT2Fju67b+khEMSegYZvvPPu9RyFCKW3xbvdFmoOmyTpNHDxkp387PN7EA0DBqRWzm/hISItPWWqkH0giIxlh78qD+JiAJw0aeDInsjeTzI/A+nuWao8sFmfefzRwVpS2lr5fOkk0r63ybiy91RfdR4QUYXP/sM/XM8huHvYkNDwoWd24N3io82ppkAEQXQfpiYAKRgRzBqqiYAyR1tZ//wE8lP+xY4mAZB1p1CFyNVc4QyHhvl4c4FgYOKivgEuDcEtsRkqwAoZe3XuDk+wUIXX6VMAtKepw1zJ0YP45sAkQ6WRooAqMcsNp3DY4RcfPR0KBxFxyNv78yq/Ljz7OBZOfzoKGY0vnj5Q8gY1ekOxJ9SBrSMuxKnurgyVWjVwHMwqGhvrc56k7cn0OSF4ZqZ/bolXaPixghR7Y2ZzTbqmlWGEYMDguYMUnc8bzbrstFBD7EA3Qgo2SCcvHgLmCmTQnxgwfWlZhk0jBUHkMAMAoIGATTGLiCFiCAHNx/4FzdNur3NgjISakwHKW8uIa64iObCmKSAuDTFR0PyFf/v3/zig/juwhr7++g9/fBMHIrLADg4iSD9394mPzaJ55jsv0ucghbmCC5/sNseWRBz6B5gAAloN1B8EPqxN3mPY4D7Im4AjjRn0pmNPMMVB/OPjp8ohS+ln7FX5Go00ooeKGvclpY/OCQE+DYPIzKkoR67muBVX1FxQuDDs4PMPBrjsgBi5DeOSDFfsyRuV9i++/tNjY5MnUYUxxf2xglSIJ8OjzRqMg4D0EiJUkioXjhF9UEAQ7YOohAjA5M50GFHTOApeNGENkg2qgqCmTFtZX0SBUZGcB2QNH9DwOr22/KEuPzYVvDbcAOQ5WK7CmT2oIHuBoDM9JKXxYpJhnJ3b0MJhuEKlG0qyNYI49dDw2PA42vAjxgDjVgZkVkUDSt+1GxrnWJK1ZDCm0UBHfZiWQXBscwE7RyEJmzRrKSjzvUUrkpZ+Bim+sbwFbrpXriKEiv27ZFQgeJRxgvV7rVCl/wfWUnAvxLUMpPU5890TQTaouJCSBHLdQEzS1jQwYoTchhk7s5sd2HT9c8UgiBQFdxDkzUcL0quvfr8vG0fQ4U3gKQzF3ObcuRxYkZzCaF29p/7JxuEjzLpvriznPS1HhCK9b2EGONzbIuxO3lcZBsRwLty9maR0PUHbcloxN5vkcInBWoINjBhHiwHfRBhIAAGhJDzXUlgPcLzyJb9ytspuC9ENyjB9KKgty2o7NxP7A/25dvO2mtNDTdu5u568ULqCUY03wSHQ8GMFKaYFnYDxyaZZUHzzegIfsV54D+lkLaC/khKEMj1PL0wcHxsZadSQrmhAtr6gAx8dtuAQYKUn2SZiB7DgDENZpT8pgSNXHIz3CjIuTYGdHQfAAjjgAy9GAnAznJQSwJvwJoBSyrf+oJnuXKxwcHQevQ8F6owdtMN1usOfQkNN3zU8BigIVQCCjx+xwVmZMVOzJ2KCFIkKiB8qSBHOGPkTzWWkIpIKBPmINlx59mIRB7QMpHPSS8qWoT9RYf2VCU2WRvaFbRXUk+Uktod4sbWCQvzixGlw6cYygrwPpBP8F1w553Jg8YId/0iYNlILTGG9prCjSQqhPDVUacn6BWKUNd8AEyBK/QVzlQDZSMvhh8pIxunIKtzq7WPeYNKAII4e/AIUAO1up0fYwKjY+AiCtmQcpODLD+UvvTe8ucDfx4xZvXRh5vFHNZO201q+tAWCCjc0UrQVmMrI2W3SsVCVPfkVpWnS8QY3EBpyIOyAqkOh+0SlyrAzTgHaVgc9vHJ+i3HICfkebw6a4CNIfu5HjeU87jYV4WpUvXMSFrJNI06ijzs5WAMWshT0rS4l25MSYhkZwnWBmDefPlL/vwaJhOCZGRAUQPsbLOMbXi0zgYwNZ5CfeC2m1z50jhQFNLieolaMC2YMgMocpUPCjMetUFDp8jb9qemRdgPRdPYrV+BdBCkaoIz2vPiP33Twl07Way5nTUZ+LQHlqZgtp+fhKWeAU2I69mRWObO2yBgwnc13A2TaOs/q7PN7nESh56c6jBA58mjn8FywWsPHGeVY2TkwvZ4sPtoU6BjAS1O3lTakwSNRLKgHs0BHBuc1gHoyDRz5kvcDWZ33Dvhy4J8btHR+qd3AI2as8kqv2jUAAiBDYTGeUZRwE1NBwfrzZ4GPDd7B0yTmcBC5fFQM8fk9x6Fgk5RjUmKTcRseCueUe95I+UnTBammd6AMXS0TKNKluFz29C54oe+4OpeG3ZwfxPnS142UAAUxnRfHJZASfONBAqwcuHRug/9y4JUIB9Kk46rzp7+UdeVnoOkMw0LG2o8YmF8GQWjIRwvSD+RdoH0GW4vY4bhgjNVvv/YjekxeGP2cp05Lo09QfAgozactzNDVxkhxw8gjlT3fypwQFZOoEm6icHgN6KmBRDYnFJPLvz4XOVENZ2iUG3MgWF7TzM9kqwF8ks8xB8sOnFzZcfupVgAEfIDobCv4aBC5YSAT051BNz+BurSGhb+HBdPHNvydb7z6A9stqBIkZLEV+hFMC6FqEO1WFLNPDFHsutLqvD0yzgmhwk0YBTW6S6oQ76DTkIrJxBfEV2HPWFjRmexJV7N5f4U2NpYi96kKfPRnnCSHv0g8FKvTSm1m8Iqg/voPf5xEMoByNsKJUJ0U8jnYzf5oQ3CHaAwexpVngWzqcE6u4v3tnzrtihECN28fM+b6my1zaOWpgC43cQ/3xSneokEEfbody7CoPJJD0aqhmxBiRVLTxL6lB02Qh54Rlc/YbuJCJjstmCtSPL3Lq41YS1GJuMrw2EZ9/snzUmrI1WAlNwYonBDShVk7AjrSqhEHsTEDgwBI8zxYnu0GTrozVzvfvOp0R34yqeXXSzJLFPMNxwI3hzAwQPb2FKTX2ewYnkxSJ12YiQWI3ucDcxdg5Hiu4xQMdUAENc3ApNNoFijAl9gSAAd8EMQVFgJoV/F9GbFPPALpUJ104BdO3/M3k2UwHe2sRaVMFUyhBpQs7FJ2w+nguh4tgCJxzVCJlDk+OlOOQxARjBPnfhRDixMiRRVDaWkKlxHCzphbnivgtj/rNeNKHw0m2jS1tQOOBYhFA81QKE3sPWSmBn/478guZF1h0oiP2ST9CS9gBMDh4oG4YA2LxVxThVoY9vShexidK8dtYwmCAAp8Z6jAd8gCgvDImeGWrrZnHCa29VuJhEYPFfZ0Qh03w7EMA+6NQTIUtRvwtxIT8lwdfK8zQno7N4OIZrSFU5isHwARS0ae1JPnPZ5xyekozWthnbabWHeQDreivKVsGegDF0AQYYtCpAOlUuMQLBANgJhKxe7iwKGsggCEmLJ8GnL56X/GAJQfqk0BMYLUugyAYKgzAUDEcyxwigtxCHDrKhweU7WKPa2l7MxtS3LuPcwhDI/i/FzrVDLG7R1Wzx9gcyL3seFx87GwXYtJJ0QuCNKfdDUgolYwGOhw+gqjhWEsO/8JCTELUqSlzQz6jV8Bl47lIx2OT+FQBd43YwYpWlaIQb4A1AN68LpvTo45UrEUJgf9zJfIPTi1fnEbDnJy+K7z7OQITI5lqFjt8j3se+iZnUq4qNhmfM8J7aIC3+mFiXIU/muEpAp18dcOt/8PpEknxkS3FeKJ/bxuq0KURX75Sn91eqRRC5+6RffK+3t+z8XyCD36kJ4EOyQh4FpF0pn8CgeReJJ1jPw8xUCi848nwxAfvku3rs7T85xBxTItiT4gAz7NddeSoawKiEg/zoztMdFcLtyTItcRCnMhUGOAVS+0kdXcG/KBG8MSk+myUecQGbR1WVBgCoJcggshBw67+w+gwTKMT7zCQiFqxmZq9r6lh4Zqqxg8AKrZnuo80uxMW3MmSCp6CaXGUfapYZn8/YZmkpNI8e3GlRpV6DPVEdHYn318INAMLS4BxOji9KDmZ5poTE9yQhMgY5zASlQhW3BzEueIQcLVOUN4dlNSx5FowTBAIHAIV0GEQkMuhOmCRuYQZLW9GDbFVmoJ+4MsYpmT3z5T3J+wPfbC1btOjxROoqGEmHiLXS2ZKJFJjEMbrs/RS6iz42Mj6vM883wLiChbppEO5pp/xnGGgyCIN4rCckhI3Xv+LFzAa+AN3YimK4WvnQRtOdtoswZrpN2yKq+WpWg9XSumr2X5hG+oWfeOZtj4CZXHVVwezlW4EzwIINMgifAECII+52dEAbcdll5ac0MgDo95xtuuolMybOGgttiWHj+HpKIr6CLLPbrO1YJ0EV8y5pUgGt46jMAlV8+fy+lb+g1NhIylGzU5sJQixGTAtOSqO20DISzve3UeBEEWFDTDVhm5e+RedoM4TkZNL20Ki40lLFs+Mk6QsShKjopc8dSKT1zeWAVr0XmjLnM3/MpqIKjrZppb6BkavleAuO/je4pVEeEkBT4+yuFCzUUdE50PBEmU9E5E/qHVHH0oV3F9jpFPRyGikWaeoqFvu95cI71/5kylPouIoycV3G9oziQmZ6q4maAv7FLF1ulkEMTwQH+p6m1bqaqSqHttuC9fclYhv9feepsvOTDZUDorQwJWgqCk6JrGiRYvSstcC8nPUOTNUIQwQP82zIa66WYQbZR6Fs4gIvcwWWWRMnrlErYYwAioqWamGs9Wjb6lAz3tZlXomA4MmllYZvxDQ83ebGjeBpQ5nFGBFMVtLEeCmQqEw5gBeud1OOLfl4zTz184fU+4/AyVliZ/tmTVaM6trQGAfYLpy1DhQISqrrKVa7rm/BYwad6vodkkpAGDgUvzRxRmivPjEx12rx9wwzplw3LACl3Ze+r0l7L7FmYUOk81i4JBSJ9oQmx1XlZirOOkcHAIKHCEiWCqj62Mzmefvxy4m+6CHUhg+XdZRUGNTn5qNcM0AjKGhzPN+BIrlG+mVKkhymC4DsYsHAiCI2dW4DguKrphR8H3Vg0snMeodIuOzJVTy7NAhvDkzP0RDQncc8/pcatciBGlVJDKSK8WFyNbXv/VrxGV6DInf2p2K3JrPQlDhygeVEuQZoxqiIBEFYIdzZRqSQRlWahjsWGwYJ2bwSEPbNZjwlP5w4r1R/QWINThrQxqS5yupXS1lzfpj+wXQMSvlGvQluUjBHdbkxfazqSyAcxNDm8u9GXjA/UH5aXutTk2EniUtqoZ8jyD6aqraswhP7kBfMPeo2HRICMSiZGvHDBVstQGGjODjXTh2cfFhY0l9f/8BHjBSsazE7mVS7OFbVNzkuHwZnexNVQYh9O3IKj47E5LwfpIe+Ak0ESTorj5bYlKTUfPjiL0FKutTkNMEITCSsLZFpWUb6ygQyZnM1K1lbeTliWiI2HVwamB4QlPu0Vccjwy/1XBgT8i9yerYlOhlHs1UR9ZygC2taDMk91WaWtlcD112Qs/ufNjsrRVCWqApjzBCJcbMvqWYwFCMb5dTYAPhrmIQH5gdDZAaZqJfZHj5NgiCGK7wh0OxG1hsz0TQltxW2evmeOedecqSmbbyquXtwFRi01F0TFfKvViaUpGUeQnK45fS3jPGaD8vWM9W9WIjae6kqyCvQGbEJ5sdA5iM3ztCYe/xa+O4hcMe+VRRAYU8sq1MH2hzthQfIr+b604ZZRDcP2UfBiVFzY5JDYjg1GsiTzPvvgSBOHgiaGT3AmMw6FA5zq9vxKrD3XrX7hoK+MmkQATLrPqhLJThFpxJY2T2dFwf2qfL51UIlZWweUExF5yK4qGUqMznbEAFigdacBIL0SbIAO9vhNd59pPKyl1l2OyDSUTqj4im1T0Nk+dWkMHQpBKzEWLd1klSiE0/aIelqWRIpYBXZ0cmVEQEEFKP7OBteNNnJDNKxGJXCjTtqwaDbNcFf1dEMOsLdwWDQ9+5f6TEuBi83Bdxsb//n//97D7++AbHFTm3vgpBWiySoR+Mqc8sdFpKpdoZZalruNzJvCA4+mxj+zJJc22ARNjQPpLGb9aH9iliMoDDGNS0HsdtmwSBJ2kLUu4oUiTmWIaIpCl+MBia0VkjIx9c59DMGXZZNhEyGPx0SZ2SzlsMEdVuAHoz3W5SUGflDjtg4vpYff3Abef//YPyrNFrCUl7BmGKB4WI9YcxLfCqnTJJ2/ACC64HhPdN6SFg3In9MIgKaytlSiaqMlbZ+RHASCn4jxwhB5OwuN25ZFyEdsNriWCZxXncsAUELy7/9hscxnhoIGRy6YS4xpVJ/ArDzkZxzpV5HF/YMjgzComeylKb7hhvAn+GpeQNkzGQRB38rC7/IAb5pk6E1txaQpF/9pbb2O92MOCQYsXN10N6oRP+FXZbSIkcfFgR3l7HYnq/lSJRNRrOycwJmcyOhmCcDjYzW+sKrUp79YVuqqCj5JvCMY8Qw6wQyFFIQv+u2KCrZqKQNdVxGR5btcDW5cbUOY/zk5WEYK5KoudZy7XI6Q0Q4tzAly53UBKX0/522er0Uv2s4CP7ZnvvOgYnERiR+mdnqssxTz2UCwgQ79BNzoQavAeN9CFTiVP0cSCwFqiBBs1TBdNUMfsFgRR3QRmv6ZVM9QfjgBuAtaLFvVaUykZcPCRu0Ia4MoxEvhyKhbbl0cflafArTTvPLXLWarLOtJyUu08pHfVOf8aJ+0G0HNCRiZjlUv3Rrjw2oacwV+gY1fOb6EQUW2AgnSCcbAvwkBlF8hrqnNrJQk3UFzIszB4cpU57DahrYUhMI121gZbi85AUyAeGyYpgxRy1Ys8K8cs6tFGGjVooiKIZFyz3OzQbtDhjKVf/P6P4OhSes3kbOcmbymKIzi8KwSee3IoitE87YbQPrO2aLsUJeh8fkQxJ/y3f/8P/Kb1i9uH3eUH2eglqIHNIM9XlpuME5wIBCkDmw4BIE+kqCZit0mH4E0AnFdNpwNx/eifoShVMzv46AkTTwg4NReO4BhWw8LhQHPEk2mYPTggno1ho/95fyat/OlPf0LioabnLzwCyowcBkYl8iiEPmSPG9B0jUVxNillVxmG16qUCe+GV/wj74wg5Zy3YY3hJ2n8Hfpk+dKWizQlDFuLCC5GL1ufcqo1ozURBUpDseQvY95AYOwpgW2v3Rcl2DYe6CjrwVO5vEL0l6v8JCEjLo/l4wpTupcrqlRwVcOGV+D7y4G7EZ4PX977xqs/ALs/RUOwaxY9z8DL+f+uThqMumO+VGKPkmqquK5oOvkpWdXjRNbUqsphODmn/clvfseg7aWl3TH2lEUW82mQC0AZ53CH7tJa92HjZU91bDxAK7oCULSkTBiQChwENdA1zlS0esKDNjtMEBfC0+eQC1kXgY8GknMwyg9Vg5+NiymzoyBIPwMZd/Kn/abCXmXRNBACqvDNxrVyeyN1vQzS1XJYs0Ph/TGQ7p85w4DReuDLs6XIwQBZRCiC1EuvHHbHH0zT81wiQqTpUGyMyOwCDjqfV1wtr7rs1ZyUdthQmYys+vWaZWBks7S8v6LAjdTyKkxWkXQy1kaQV1gXcY6PjVTXVx3i15IXsbyeVixpCHqXjsJQZeasr3J7RpCP2DyMHIaWl7CQRcQQimgjBGQgIfBdKuXwhJLZknKkwKUKVcQQ4jwgCLvRGofd9wfTGI1KzW3MSF9k44rk7qpoSBHwqF3SRHRlWPkVe23Ps3l9HpmFMYPqJ8Ioj2VrxfXvfREjUAk8ijKbpM8Z/67JhemiBl55ZZg3aF7ea7ZtvYYNWQpP36oQhYUVijg1gvinIIhwxr7VHEIsrOEZPFjPvSkKlksIe4bcRfcuE4b1CBM0AkN0bCnlbAyM7/zzv3zWM4HdEKHKsezkGNg4Dtiiqj96/BxDWlm7W8uy8NNprUK5Oq/ywDD/6MPBdXHN4W/6Sgs9NWYsP8U+Zaxl0BPFpOKj556UoxfrzSbhESiROM8s6DBWo+pQh7ABAYIUFwYQuR93uJRmTOBA9lPhRwzFdFl3TQZV+yp4AVgA3RfujBiKDVybwhPE2Eae+Mw95krQvSjBaqflMnY8bg9+vpeIW0u9NpejM578hIDyFAIpRYWw/dKylSnfCPq0TO8pAhVxB/r87FeueBqNPnSd+2CsZyIDlatEyS2s7w9fjwPpZ4YNAgG1BYI4cX7+BVyObGSZJcokdEwk/M1YL1qiFQTtUMhzmVO0UUGxHaWIAyVn7oEU7qJp0aT12qkY+Vh9jvMy4NHyQhANWBmhZyY1t9aKlLBxjDoQUUQg1nhxLAl+2WKBJpqHaTe8dlB3leDIMgUXx99lKIakhXdRXVhzeNfWb38s+2yLlK7GB7/68j/BGhfmyxBtLns9TNtFReluZEPVPLUbqw0rx4M3ADoU60g705gzT68tH3bHH1iDbq7zYnBeW+vK+1JMk+KG0+EMeHgHKC60BCnHXtX52Thw8JONH9kY6zU2LYLhGtvwHZDSnvgCMqBxFMOOuWJSmIvJmLPjQNAos5tnh0YXpzE/BFM8/wKDSpnhcduegsMmEYKRGOBpgcHCu4/VGLQ4/44mFjiVw8cHtWbmoTdUOZKKoY7YvFY70GP8fUx6/2UtRxDugNdyUeAP8bXbBCMLN2CFs/SSQgBrqd1qhr3jeqWQvQ4MwQhVuLSbSgjc0QqKQCCfYmmKjxKkSWm2uczgAUTNs8UqKJrr3l+ozYVLfIkDi53TTbKKkJbrmBx7Ylw5mlkKGww7h/+CMcxQ6TFVWGT+XFspuXrpAn0Ogo7Fa6EYLYfeUOdkk4hEhxvgURejdgP4sFuEbJSVRUZTWniRDj9F3EqFRZoRzaVhNZkZgs4TqjgjwHFmbRFa2SLtzgOko/R8EuuAxfoMcgkfemYHFclNui5VE4DcTKTZWIC7lp8vtdDKhTZnYEOqcNoem1X78waCcr6e6kAceQGomI0lab3xUzBOHIySXuX1XdqMhZW0SjPGTCShNWIJkSnPQyrrT2sSZvFMigx294cG1OTb/uJOXEvPGbnQ9lXKjTnlCQydpKtV4bup8cBIQ1AMby6Yy65thINSBAGWs9d4RdRzn91F3SOdIE6bOjzhBLZ7x05/Fmt7r7Px19Tz7Sbo4NAd76Y0pM6ykHe/03K6iwyVte7ydOUoXIKe1lD0GwjKK4xZbufM8710HIZoyFXsVZuXKk680NbAyDMQ1+PwKiOeI6XPtTRlPTGCld2WhKrWKlFdhta9Ob+FeFSBBjTvNNDF6FOcPoTwRBQRS7rirdSmoeqDiyk7O/DRewGmouHjwxSUIz0AKFpaLRYLstuu8EFtGgT5RmUOzs+M+XB2RpDSw9Dk6qvfp4tsaSieHmEpXl2t6cROhZw2loCvEsm9qCq4D6fAHR45HYKu9jCo1GchnQR1LvtHxbxPdfDuIT5M1IUiZoHFxTcISVimzMP5bo4xf4Hb4E8xMvkeVciFeil/+9qGnaaU6Q0lDikjdDt3bqeWNYhZaK85oMTC4JeXBdaKo1F8rdy/S5vwBSW1+GjT2Up0uyqe1ue8EldfZFabIFEs3/KUXTzAQslI5XhjuxE2eXHv7Oldl8ksXtzUI4QubUJb1SRGQUcpKiYwibFwOIN82wuPaDmp82ehMKoQVevqG37lnGfSymH39K1qioEmpdMLE4CoyEKszSW3K9ckjOb8Y7pMwi1PAYj96UYALZboQb5BQ1wS2EHv+QFAXn1CPkjkTdmD8zObXBbqmJQ9C7qaDQShIRt34mWjHMl1rZmfHwRzXZEt4zaWDILO3P8b77yr4H4jZU8tudBR1b+nW7ln5wD0qir86suvOE6q1PpYi0kZv35EXVahq3Hw+XIyvsHyx+NWhXVkh0qU5ZnKl7ZX6WHP8Dh3IsaAwsGTrUY3KztiDf2xypaNDRCkh2HutYJUCHYajCUQlNe/OA09gYnze05GxS+NOX3ZboQ9rNlXdIH2bFRhK1pyKh6+wP3oAYuZHrqHIOXOe1KQas26KD/3Ygga4XutqFnIGLp0pquwYSI8pZfocC+rhZBUOk143OhQrdz1+DksEHwBxX0iB0OzAZ38rtNK61XZdZg0So9v15zfwq+QN8LN3ZzSu/uP0ecyq6L+FAcWTepiCs8YMDA89+4nCqnEozEn4PiyoScQMR5AEBeGM4Mjg0dlbv3HeqO+/s8bCIIdMkdRm1jZwGsyQ0D+NQIN+wECKpDx+DkkFYAaQS9BkMTKMHIuvnlVgac40M740LpCsfQt8I0187+Z7C594Hpeh+9hMaPCcS6vUmJV6KURQc25WM9850WNmZbi8kDGuFINr6+CTqwn3KdGiNiaYzNrZbBO/ovf/xEEYZ/iFyP33j9z5rA7+5Y0cTDPgCYmXmL1pHYNyxN+YY3TA54UtZvPbvQq39CfUBIZSE/aKFUh/HNPisLncpkrWrGn5TUS6VgQPDamqZtKrGngmvfuwgg1pesYQXiEFGXkeHEMroKdCXdUUoqBFAvDeukwlWyHatYClWtS0F4XCOL7ORpe04/T4mtoVepgdy9F6oumdR0jhj4Raw4k0cP351XkIVqPsQ3pnAnsTGxZFGEl0m/OCNUSJX/7WLiNqixTuW5WUW17rKqHnlKR++KStqzK9zY2vDwm3ct5sIen15a1WkIk6NLVoFmOp5A8fHkPdabZ2sjp9TSpH0DjWmMrSoQzau6Fl17CnwVBzSRkk0rpT4axar792o+KqdfD7u8DbphndAJIaY3Hi5teAI3hjZXCv6ZD7LlraqtdYwc6H5Rdt0tvgDtmgyZn9trdMplOrnV9KyN+sB0Har2mDRViz252Yj2umifTuuVmjTlnGCIbnYFsr5BXPXU0MrLYB59F3kc8xcDPwnCusqqZIuvbib7cvx7Ntjhdjnldr/6th9Sko+zjjOLD7vIDbiCIFELmMNQRm3Qp7NOqFNk44guZQ897XSw92qCutUNdHCENlVUQbjDIS+T5MRM2SFT/G7NtmrqMaILqzja0eCk/aZmgeuJqUzxu51RAEDoZ6hlBzZGuz+HxORdLa3Z5CcRIu+J7zqmnJXa0pij3z0cksNJcI48uCnDyz5dOgibSlTeFq9JjVTA/+c3vvJQWXp5WjHl6FzNAC8jEIgOIUz0HbVt6LdYfKNsHtOWp1YTOb2Hvxcp1ilwoh1PF7A2vEeRwoR5en2c2YrurAG0sgWMpOAhn6VJ+jUDtJGrLrocs0lriahoGFfcG3F//4Y+9woyeadLMvA4JLNOz1+uzMwvLjDqvqzlU1L/Mlbkow4MhxMn/57H/0UsB3/ciMugZYMy2q69+X4s7RTV0BCmmNGlZT7yGpFff0mI+seIrGNEVOHF0mvK3Y6kQsHa2hhc00CNg2lp11lMuSrGoTqv/V+eB7PSXMkiEOQSRz6wt4ie+9K8/pbdNFhCkwz2iMES1WOV2zhsIy10htDW69tPhYsX7UfZBkjhR2SsaIefLkcXBTwwMnHoQ5IZ7yStE2dHhjH/MABDUehTN7lMeGNUu8gVBrxREp5UjrjQWK3WjvAAxQuSjri0CMmVf1BJ2iFhGmDobUkzAgcV7MklVeRRFYTgXQC+fpTKknMaswj3YaNHWf4wOl849t4Gox9RR6mmecVE5O7G8M/xSdujc5KCWhy3rOW4bNYeGgQkEPU3Ev0OTOkLBaW+3ZZw/SWMo2orgz9LJdrIcxwcI/qlmmEEwHk6H+cGr0n1jYWet7JSMcSyd74I+C0yvhwZxIJefh+61B1FwOICjTT1y9IHNel8y7gI3ehsCYnIoYSme/aFa+5F7TUPeMMacRwoBOeREdkZPsojl8roEDKMIXoNaOYxVxRAjrdHJb5LeSUmZbOHX90y83o3/qDXGO0ofghFwh49wxAvJOvurEqst+Yk5WpBkp+V5by9yPhyFaVoCsa3xnz/zBBuMgFBJBAGllRaX8P60ImUuMwaIneurcu+FGeDzE0jRVjAOIGyLmoZghzDEptI6fq2MAaOFoGvTCFglndZUSKhp2HYT6L2ODTsDup5UsqryNAeFCz+lxxCEWZCFbsGNwmIvRWwOK66rCqP2VivwPHuRkdxdZSLWJ1H20daKuLnXUsbL5W3nyWv560gSw7CPGUstn65FJyLxaWB4Qkuf7ejZlMoFDQT9SCaw09omWYUhVHAQBLG1QEGLFEVKJPx1yrdyevefImTysnEhLs2tOuP0eGTWaU4mFnbm+zNppcfCTN154KYe7QEvlF4LjlsrmjFene+PWFJZD2bSTItNC6+BH+vGaPVX+pCTgCwjH3PID5SBC6qBklOmrCrwAlYk512nR7SoWgSFVWYYOeEwHSrRz/zkUIWnuCVF+49JNuYyXF1Er6SmcAkBFCyUo7XefeAIXNPMeWWEO8G0VqJFnnE/eLXdwOX8BMOjx6pgcMkdW0cEOUEa+FTJ28mnqnN8qfWx43FLWuUj1hIELwQadIC8dIjS+NsNz8kw8vXQXhz5Jx7xg5wUXow6bgXok3GsF3+v5WSr02PNHM0IrKJVMoy7DfvwGSGdEcR0tP2PIB0M/1ElEo0UgLg00OBfDEaJokvYhmKKntvgV/4OUtQIciosLgYJ/7eXCKha7I0lTT2Nn4qHg8gd9gp1CDrMQhmQfqxnLfGcDB+/8eoPtLzn3sPIvVfe/KUL9GTv7c936UE8edVrFCgyGCEJPU1ybGQo0+MFNcO5Oq/1txs1LFtHLly0qHBkLXFZPd2O0HNZqB5YmQz7eaPcBroMjAAUiwUacksOhNkw5vZw7ZUAmUtvMmYYG9yhA8eH3esH2RjAaAqlM1WGgYN+YIg+kE5U4ulLnpD0mgMqYMc931pm87wx/UnHIpGggyZ2VuetSZ0Aj7hzjo3SnKLGE6Gq5WVwRrRcm5aCcRkLsg5iQj18Ga5oNnnyBPZZZyHJORCk/Lg9KMatKgM/6uhdZ+EpQcwnhDZ3qPmBYCXHclo2fmI37qeXEmboBzliUV0Lj/iItlI2+/qcn63slAk9MC4pOx+mFKumu3AGG4NucXHQxX/8puDLxp3RjVAFmu7s1saSCn5jvhQuOI0TBP+6XIGD0ESZbLUEfQcHvRQw+zy4mNpuNMdxc+h/AHU1mYZQJB4zuoxgdX3Vyx3wyuVgKMciQl08+F64Tm+88y6CtJfWHVU0NoLsgEUH8tcckGUMe6EPTYRGAph9By9NoCrOxgzCFvaxJ3YLvarF8S5vYyh68ZDBeJIv7zVdE0nyyl0ci9XRQ0iCpsKFtdVKJ3fVrbKvY3YIv4ObYWwgQouoOgYnoHh9LU8jqHw4V1IW3ASjAhdEKIzj1eS9tl6JwxlCvfQgZkmtqL9DRilGE8YhQxdDBSsFcYcUTWIdiXKsMw+z9Mjd2dGheGqPV2aTnKxNl7fXtV7Weg3ZqLm1mPBExiIbJ+KhS1pZaDXTIupbetykFzXFT1QljtyBcReRdS2fdJQDXdjrW0VQc5NOdIFlAKSZh3Wt4MfVwcWQfeAPfsD1g4M95gyi+0SHKLsTsyJpgUFrgYb3TbfIifCzPmM+LSIF2WRke/IN9r+KbZdQkXpiiOv4sPNtzNNdEOR4PPbFD/RESmNvwMTTX8pOTCl91AsYQiUYChCAyznRYkgADoeGhQx0vNJ3zkcoybW4KExn/95bMeZ6GkzxE4tQQ4x2DAPkJAOV/kcDTsVDXoaidq/ztRcY/wgl+s2PyVbXxToDMMVVLdgYLl7gKM7A4fLx21pp2etHofu0NFCsI6TFvReXlJu6LsUqny4tR+7opBcamjt/1jBdm2CGTCgqILTscLup5P/zW8jVJB5Ke0gdeWhNS15HSSAilBEOj2CEn0oMgmMbda+y5ZRRRGLnm1f5CVmqBzU+eZ5jNZm82/TDyFT+2crQMmxQb7Sz5sIKqMSo0NMqN9cwPOy84Axq1YXZUfSgatDScjz8bpx9uBPkAFBeq8KMI1cvHqvE/XBacOSN5WcvTVlfT+PvqxApCqvBS4Gk/TUi+MmPO09iNRjoyfBW3HZHlQuaJMFnf3pXj6rPq0tPbzt2gKkPxK7A5f1ArGqIyLWtqFnNRrV/KlZrHxtxSr8KKGKNfb5EM47XGjg4ntWEs5gxvlW+KYJ611IS4Bx9OITuuw2an4RL5zg86hRr8SsbZ5wztlXid24DDUinsZsLohFZtiKSHcVuVOi3tUK305nYHqaDzlx/EFNf1n4g6OfL4KQPDE/0VefB0XWgJ2cXMEc101Kdv2t4DOUIUlAY8YuDWZiXyOSPKIHvjer4m2guc7CfyzBmo9/QZdNrejYunjJ9jkCDmyYR4m4gSgUBlGNhJV/6UT6wlZ353h6iylJw/2NpLOxPr8kDc71izPF4QiJSFCbKHA0EB+aX+fIvBrqr04MjUpdD7lh0rqeBgguf6THrEYSng+AMfoB7b9+B8gohICJHPpxl52EiOcEaUPzID07CbhgbkEiLeD9+DoHsOl/gxkPnKD9ZGLCATM8uiSfO3LdQv2/pIT3q6/TIYy9ctWyE0XeaXrvRBnYISTqq+Ibu9SwWUFq58B7igAivXpCE9zjdXq8AKMHaDAUvx2GdR8RrrJCfauWTeI58pVXzek2zmx1oCGogCHADWR1ZKgSnZkGQXy114fIRgh/dUF5eZeXaL/98ztB0w6n3Ol0wjn2s76AbNDSCoF+KkIGPQlfGw+xGcdhVE72x6vUqQTa/fAUamoOnlrGUugiejCe2s3m2HO18hOBHt+sMkyn7KNUKWhg5WI+Q0VIXxWcCWsYWyqs4CluIfTBZPVTei7XZoe2Lr/8UmPz4J4ADRL/hG9Qi9szK3lOcDXl+C//8ndRQiKBGzys7N8+KqQ++NAERd8WTYQt3m2/YbKB+YCYZiunh3akQRIQKwX1VqGcJTc3yCvseembn0/ybvdosZotlsmCW5xUxEe2godo+epEB9vzzmeTps+2+QA3ena6vgyBClTd+ihBaEreicAaP2idvlpkfWroFQDex0IcRhH0GThbp7ML9qxu8QkA+fu7uE70UQbgdGkgd4JNTuhwMQ9QIfnFmDgT56IeyYepAw4O63FE78IZWtUPBJgRnF0ANBGWRBg3Rhnj3X335lcO+06P24Q1o7FAgSCVLszofT9WbvOFL6AmI2KvjtcZh3+lR+/CmKr9rEGSDgxDQHARHP/QZB//Kt77bS6llPdPAxQjaH5QVGkKVNzZQ+ck0PDY8XriTR+32aW+8824xqwaCskLDofBH3kBDfvXjnv/b/f0nsp59At1ntMXjElbFtUyO/AN528LTkzOA6++LpwYD4toLf3fYd33U3m8//+0fQPCLaRdBe4KeIBUxF+rmI2/s4981PPbf5yaOaHj7tGsRtB60VcMr4hQQuwK23gTTQpauPHfHpcHczu2xF67iEjo8AYKySMObQHLi3UsthrMPjnwEQdzDs1/pnUzdHmh26k/GzAxIIUgBEUCRmZ6WgX1gKlgh5uyCPYvDvuuj9n4zB8W1sD8xZgq64UGw8d6pFwroLz2ELJ3d7Bz2XR+199u1HLQxY5+iIKBM0/2Yr4OJ2DOA+NWXX+ml0pXPbnvtrbexZBxjYgO+4fWtwoaxUO0iODwOfJ4vRRt+7u4TfHn6S1l++QrO/mH/jzu34dR3g7xhhSJF7RXaSbSbz08ITzSgbJuY/QZNPmobHgNNtoVzXz7sv3KHNq1EFLNnhQgFQdst+jJY6QQM8IJ9MnKmZgsEzU3esMNh/5U7samy7/KVe+brdvq8IUXZHDQUDW2IZnUZNmOT4uD+dLcQDGvH7198vafq4m/zBnYre09hw7B1PcF60zgaQX2MKVPeOGIo4bmPoFKhLEX3QUSQ9lJF5+3cwA4PAk7R+Sf2rVAwsjsPasAnQRrhQk+WWpCiBG2OFr7GtSDyOrS4dNh/rvcbMhOfDrEJKABRpG0bJs2qZfWuKgzdZ0oKwXrTWYgc5QP/C4LhaxwJ0lvaVAr9wlVVtdTX2cBoILIKwQJEbIKaa+adky4AtPt9IAjcfZGf71BFIUKtIvmIZD7sP9qzDZfNeS/Wa557MQf58n0E97WhdN9+FmJhjnp+xi6hVWFhyfi1KCo8agfbgA/u9EW4wfOf4qDnyiL2VyDojF87hhaqRrOb0R0RQ8cp7EdciyCba9YO++/2WgM+xY9i0sybQXEuk5UaX44+vC1i7scEC56+j6YDT1mdQ2yXfgBBXr/3szeh4VGp2gG2Aj67DIXfVwSMvMFNLBZALLhmo9TWaRfNoKeP6iJ4DYhG8JU3fwmIPbb88mE1zMKFc18WfHAH1KAPTnpAYNXGK1j0RZ62zM7l3H6EJ0X5xqLVis+HAKKnSe0SdhHcxxEEe2yxu0NpP//tH5Bj02fbuOqmHhvuAxuuBJgWqs0xCBucTmoy1+QGLijCy4FiZQTo2bOwVC1I30fQIIYteoTgJ2lon8eeu2K/WwGjyFYCOHDEyPcTOuhhzaEt1M0vi8RuRlMkGZp0rkGzaLXGBMFicsbefaEKu2ZMINiTzwH51Bo66Mq3vgvR6GdPlyFC+Xhtr8JQaIXkBCzLzCIMYQlpDvqjx4AtUnv39vTNSldVfADBI2/iQBpktE34oTMk+PV2KwAaNF3nYilqX95yUq+hAYsCbUeabBHZu3eQ4n2PfnjsKMb0KTRgdUjXpgsgFpB1WWanPhSo44bO+7UF663wJd+3SAPBozmZT6H94vd/BDg63zNmpmGRdW/X731/cD93FMi8m4F2GrCzoQoQj+K8n1qDKSciw9CC1NFA+4m2US1OzUf7Gt7ZZOy6G/gUkf5UGKJsR+kWn0574aWX7AYW0cCBfSexmBp1wgyvgFXozUI52pG8VpB+7u4TR/VNn1p7/Ve/xqcwsyCaOBiuRJFiUaQ82TQ1gjZEnYRvEC1Ige9Ifn76DYsUEHEHeL135WyRXe/ovBlXpFvYnulyMAxXx3mFYCwfdATfobTX3nobuxQoUYuOXByPMJMjg4BVWKqet7ErUahCT6gqpzRJj6ayD7298c67eiBdoAlqcBNAbal2S0EDQWvJQhVahB55ELdb+/lv//DVl18BFziIgLXN063UDnsVd/J4GDCov6PMitu5IRshJlAqpDs1a0kLMfkGxefnvBzB95lo2K7f+9mbr7z5S7YjlXfUDrb9J0ocg9s='));
    * * * bmp1:=bmps1.ToTBitmap;
    * * * Picture.Bitmap.handle:=bmp1.handle;
    * end;
    //TImage2\\
    *TImage2:=TImage.Create(DsgnForm);
    * with TImage2 do
    * * begin
    * * * Parent:=DsgnForm;
    * * * Left:=296;
    * * * Top:=154;
    * * * Width:=100;
    * * * Height:=145;
    * * * bmps2:=GetMufasaBitmap(BitmapFromString(100,145,'meJztXVGLJOd1ndc1RgybWWiiJi6SWlxCLVQi9dDGY9PBTdRIK9SyFtwmEm6CZdohgYVAWAyGNYGwGEIEedlHP+pRj3rMT9JPyL3fOffcr3pnZme9s9Mr7xQfTXV1dU/X6Xvvd+6596v59tvv0na0enA0Xx/NN3zs5jYO/aVeoe1ovi0QbY82j476laNkEBlQtt/0R709XZSd1aG/6WG2Yjlbx8RQEjKr3dH6oT+uHh5tHvtL9rSgRBgXW8ftNQDtaLHjAAh2+QAHKPnjA0fDdsyWFjCzdXmqsbYzj7eP4zQ3vENf1pVtgc/WMcEwg7HHYh6OhpmNQeSut/HT7LEGsLz0g+2XftwOegRb8GRgZU/nm0Nf5QttR03HC4cBCCgc1DDvg2dhIDrZI3xNyNjjYuPDdjjmPM1BK7PAd9PAjpp5/vRmVI5YsRA4Ha4dJ6yKyeERA96HeI445lPhghiWaZHwAisNx3N76Et/7s2vnZP+mlN/X4wEfGDSpcfVgUg7Mh47E5bmAO54EIYEu8IRf3UTYC4OffWX3YoVrcP7dgkULGTSx1N41jyxAnS48FEwj6DUF5DxFrwdZ9LqVvne7wgfcxwQls0Nzbow3et6Jz39C0cUbeh3q7xqe6OMCiAQpXmFZ/Cu48ZPtj9nr4b5HRqJZ2wOFCPJnDEEIQuPuC5cbO0+2MFLemqX74/To3buw6FrY3846k7LmO87LBzT3lugPjQe524et0sYv7O5n7yR7LEEZLsWv5wACqaCgavbO82RGY5mZcdAww5ROj2aLYmhYK9/Asd58mpaFyc4RG9OeY9HE5yBZl9eWOkaZWkJ45wWBVs6PnFMYFTTruw3fAkfYjt25KTJI22YboH90Njsb0QJrNuTlIKVA1iOAAfEH/rail4WV8TjBHDwa3e4hqPprGu7AkgFhR33l7oCUYPTeI7t2GiHOGd2aGxGW7GfB2OL2vGpDcPBYDme3Pn0k7QlszFZ16Rcry7W0Rh8xxwNJ0y72x9/yGvHmbAxG36wT6zaId0wTPfQ8OSGTOTO54VRI9sFRM4WCoYwqtGIWR5hihc+4/UidLuFhDm5i02Pvj85mva+Y/YGlAhyV3bifL69EWiHRogbTciT3MfM3QAU5u5mNOW5XXF2a0agFcvhJdMYTt25eLAFhm5aOMfgcoj6QKlxc5oWL7YzBXVTjPPYsT00Tr5VvlbC1HxLpYVjnVFIqQoivGIXgjOuEc5F7xtoVGZODk7r4Nh+eKsjbyfj1QhN9EebIu0RH+VIHp6aui0h/UeiBwpqELkDbmldmt0mnXEJpxM1c8gp/tQpgQ3OdC0DuO0YFLATw8febk8NEzzCJSdhgcDKHgE1QtkrgBVD0+6JQ7R9wtgOzYR53yZjLPwOQV5Rq2bpoEwyBgQc98QpzQbx6niakx1mSQCFV2Vd4q7w7u70kEBJYIHY4kBBcVqkAyIcQQSuqbjoOlFC5nJ6NNzjDAh7O2nCtJqRk9ojQJMtaV5ogrjCtJLn9weE6+jBn44efl2UuuKGi10g9oCCsBwQWVtNpwnUOhMfDJLMYUQGiMlMXNQnXBgbPbFjnPc39rRMwFW8j4+HNS0QdYQpClMP6HrzQj4BCBIZBCg+lYQiH5wz/uMykcjATtyJesZz8U84HYEqVGEa75XtOZJNsohDyIAeoMyiHnzlMWpb9s2E7JEhfZ3zHWZAMfbUUtaV61WBCxC1Q+yUC28jgoFcAYTpbLL9nDOjm1AfkXygRdVxHpOFvXQI5kCh6eE3yF8mX/xTkk/I5gCHacsilcxasEJqs8dREXB8LJk4t+V8WBE0h2k/+WIbaAQ4wgoz47QnjKKmBboDYKXAbtZl4GyfVEWHRxXJnKeMKQeUcp6CTKjNMK3ZgqlNJSm8+dtfB61qHChnWW3OeiAPOMIg1idcmltn103gqRuYJ1pIXxVz2j5mLgOjQt1qtYu4FGoeEDCDsUFRZcGZHWYGoESrFKXByQGIPZKaNhmjQDYQtfjYp2OCgRTmdq1AOX1al1rMLitZDOnG2x9xdiNW85RAETdEOIUD3A1uYpwBL2HKKzPdm7/9VZX0hYbgsWuWAQpAKarT2CKU2cn4WwW0awLK/MtrefMSoCKSY/oj11pkRc+l9QhHdrLhIEPq71GpwxGEcbu6WSSGkQCSVbpJ9Dm7gXEJKGLVV0CFUfXLjGkIWddF4AkCilmwqEXhDNvH0YSwQVE466HGvuz4bEG22Q7EBKGboWkgSlDm89o7Rh5FbxgbmBVsZtoThBpMBq7IrAVge03MwQP4vOBgxgP5DlEdErEfD+9Ty4FqowhcpdZJZgWZFODAruzDAakfLDFNIYtaTVy1sJLip7wmSUWfTGzal6mBLMs++eUCpRRG9VCfBP9UuNY3hKhzDFlJh5is2g0s0FyyvOQujCCm2OUQRXqCg24tEXBE0QEOjI3xPNLn5GPzjO0YnBbD6l7mbOiALNRdEAmyPRpWqACaV6Ly7qJx6MbAVlELlGyxMaAcK6es9/0DkYBgclTuhgAFSziJOg4zl450Hfu1UTm8XVqX8kE8GjeL8PUSsQIOMKfFjhUHB9D8aDHZ/sLRsJcmne/TreaEVFW8RREfDKvtL/y0041jZQEfU6Tb2JJ2hf1iJLdc/hoc6mI/DrIUVDmgotk0WAeDedTLlDYCt5fGHDijqeKwfVJJ61tG+yIgEAQpCbaDYIWA7+WJkIubgSd7jCoWZaANZd+O2Cw5WybD5AX69fpbdNUamA6ULGP6g42BgyFhHLP6qwfKgo8ZzHwdwsuuyo5hMKr0rTL1QyZYLM3O/IGb5SYy3FCWTgoJdze8549mZh7Yyz7iFa4d5gF6Cf55Mk2nq4koGVQTilaftueuF+wLLn/VzIFsit73mJ642GVtq68afjSpTbo7n3860tj9KRWkijH2pcvx1PGx6zr9zE3LXnXcbH/tJtQt3rCnSlsAFAit6jjiZuLwsjqcBtgpHrbh0f1LwOoxKw7ATVQBEyJFvJALvKrVsC6DnXHhiZIdKBaaZ1zcCxqAV0GfJqUyaK+CUEFPUKKnylcG/Mj7QBKk9dm+KBye8nh/hXA5MrsnjOebx3cefZNYOW2I7AZaAaI36BPkBekwwhPxWcI4JlDXA0+pc6YS1REfMyqah4piXSJDwtml+CnxCsaGp/Bo1XTE7Sft1QBlYapfRCvCzp96VP+S1gXHBF+igjfumFKZZq8cT5FzxiBvvoaCyzQKXhhQ1D3pOzYM3YVhFUk4q0xQlw8MeVqf9oY0yv5imQJuw6lnV+OGFBDmm2JLKrLvUig2k0BNkPLdOjlnrcagV2pPpFKRXXkfA07UAY+nkcWUnPf7x46VvdQvGbrtfDABJxt9xnBVN0QqarG0nTv90ERQHq8AK5BMaJ7Sz9U7DeawV8wqAerO5mMbqfKNGjzmpKMIICqV1q4EvxsJ6TPuyJXAS2tnhBWpEgQ8RU3xyLpP5JWIYGbPL9b13Tz6vzQn4aMg3y2iOTZ6EdU5hnoWS1pVSQJVCUyRrESEwoB6TR1JhBgYgoQsZtmOVbDTcURqKtm5NjMQhlp5UFX6KmiDS50ozfCx6JxiWRAQ/OA8PU4zHRATjNI8R92JpwkUuXfPn15GxaQvCMa0D8bVJ1Z23OirXnLBMHQwmGK/pMlJ49K8UGLXFWDVzJnIePXhS7bCFjZ159MPKfTVfQgCTU1BdaOC2Jd2esWNOv/tKnrQVdE+8AQC9tRp2HimA/528rDOqBWyGMNUMUtna3LMFxb9Sr3vEYKVI4P+BDw6dX9ErVhUEwFcTZuKnLOoueNCJJ4jTUbLAaNZkCI2MDQjBiVP1JQneYqixDKVilooQ+LTLRyrYc1fpA/RrIwXAsrMCZUsI1QjoNY5RkBFkZRdmgO/SRvNnLgQSuh9/qa16zUDms3ufrSjG0oRVU7kmmrEH9Xraw0H2TfmRKA0rDNPRBlIMF6FfuVQuEV9aUBZkGftGAuv5lUrmtgU4k/TZw9V3ZMgjUVKC/sxevYhtFHSUgVBDkgm39KuZos75KUhRCCIAY2sBg4hWTh9co9T7gNskUaV818MqJLlNR6Z3ai2jzP1Q5sQ5NAknxWhwjRX19yzrDyOS7IozWU4ARmiWvvUqIB2jn7JsoVcWxmfOLl0CcyYjGxd/hCplL5QoZA5C9ROYAU1Dy0cmO6pRwVJgN9lr0vkOJRDg8bXgpLyWUXm2iXR3on2GIUmxHz7wKEkj9N+9LEq+jRRu/eTlyTqbej26dHxE0yaPx8rpDMQWxC1IOup/xMvAYFJ2F7diiDQ2EeEg1VoElWoHZOROdpl4aqi3JgNEa+CIN2GmqqJg1WJLtq0StWjX/rXK2hzh6XJBald+Yt/plGVpPj2x++zsuDNCZtS7FtxZmSkiiY9hKkmFkQkVvORYyqet8PIlmqsCGDQrXZIZyw+62FHYp1IAoJPOx9B6gejFolPQJhqg4+p+l/Qe26gwJcgILA9z5nVX1maAx+ULtpXax9YJF2RM2hJWq1lSUrSPNiG3qvIIzeRCDxV71AlcqpwA+PEyZjdlOZIjmhDNIalQd7RdNyGnv+cXJR1TzYurikR247Zlc99m1yDLKw6laVWo6xZvQp9rEJi4S/K8bCiTFhOqRinMBVygYwqoahaFJphFKWlJ8CchBV11CAhipne1RCrLZ5nNiQCKtAYRAhND792f7Sp0BsV1pXKt0s0Rkv2dhVcsXKtnqrQxtDfiyPLTPmp4/URzGcZr0QnKJJ3hEiRXO/iXwnGBXMSnZDzQkND2l5Y2XMANd/c/uBno348ai/bIsuULmK0gwJSFJfV0aHGMy0gyua0YM5N8EPlZW1UaproshYmmrZoWj21rCaaQhXosh4RwYpBvk8Mk3qFcSrXhqVdbkIswstXFIS1JATZHwwMUsP2SzcwEi2sOy6YoMoMp0MFsO5pRMYHK0KLi7vb/WxCgw2wnEefenP+oY2RVnwy9b+uI2qhwQ8BO+Hn9JWJVpg00SRTCxciY8UCL4UVJBe4mBZrQ34paY6ZnFsddeMty6OwEGAF4aVWFeojYWZ+vQh0qNTAKvCd4Z4FGQdKrFLrI8Sv9rTip9qr/K9ImcGvoJ12nqGs9usS4p4NFCqhCEToUoDgicKWvbp7YkBNH3zlcKGdg02zi6TuNT9PrNYjf1QqVDumKAdYtwQrlNqnVQvHdNyl0AwZ8NtoScKEO+1ZVp4GUSGBn+XJor6lb81YxzOAMkcrZkMVHUZV44aaMkLZJvqptGQbbJOyzCL9rlYeNBVGY61/lFrRRCcalYz7CMXqjXkqyGOobcZdcrlvKiASil1It/GHhnUChQzoWfyK4jCXF22zAwFSJ2QEQHc8YdivV6nj8tXWXhtP7Xc1YqwMRphqw/XaKtjChLzfYJUpCUtUVZOeaJh8SgdTae8TK5GuOp6LoT1LbTh6+A2qV/4IsWX7JG/BoVY9SMG7P+UKCMkv/TqNDWuZ1XotrGoKgR2Qq1SZKtKlBGePORSr8N+L5bxZkkkBJaomBtJWNbJmSNomnFG+L3nQxVgVuL7mlAd9mHcpEVZb5jJIbfqwNNjhiHyusuKArBm4sSE5AJTGXmtx4KhDqcgLKwiYikuzWBpQ8HHQwD0knpcARTDFYIWn0JtGglnk+ucV27Nvv1/l0kixLAgIeLUA9dZeS5XkYjLSXcax0tHH2VNRC0bljQrLEJdmBA37bYiEouWqF09npFjtPIM2DKZfJlaWU9uOGEUbbQz9UhPlURfiQ/H0y2KFXA/zXe2JEtLXjxjPVw/8Fjc1bcimF/+l3lg/iAJE6aea3yfTkK9p4muH1HtBHpQ5qr22URbTRb24cf4wRD0iVosgd+bf0lRIwhBeiQYAoAQFrDK5SwHlbXhrNyQtZNuqFl/ugWNhyi58K7r1aL/9DK3punEHAtRiw7t5uIGt5W63//GnOT35zBUhxYG6F1pBx0lNDEr1YsQu1GtgJKhN4MPdqBbUFtRGS81/wW5eO82oV3Fe3wnZ+RJAfT0KU3BArLTF1KahqhbohCo1iGkK3bgtCW6JA6ZkXw/03gYDyJAGpoKCd6mhzyr6XqQBqutYaipB6wnytIdFvfurPzhckEwV4csfMlhuzdc2HJ+29LxlWroscuIz3NC9r2QupQbhzuW/O0T1BKpc5oqswE7QIFPVoi2pNMrs4EdQWanSnPL7w9GktvGqy/IihDK65zLjs1q2ptFm7Mowa1j2fe5+8IWjAU8cog9cVQkwLtyIAJcmIev4BOrrRVjtwEKfvLH4ESc4LDhSg5AuX/MdfA015VXMcRiiBLhkIMYWmrrT+F7AtYyQvmSAKvbwvUVpvsLB6H5MpcKsyH4mIYbIU+iEYUWg8M1nC7SlvcHcc6CkAMyRI7jXRyvphVHLghV3yNI3XOunZTJ93M2M/dWr9L5Jl71qcDreKif6haTm4QdV7x+A0loAwKKSBMwAKCHvU2QGF6rJuZjVbMEWRy2x11u8qHovcyhY+0lo+CK6z5L7zK64s31MKU+3wlMuQ5uJtEW3m4BzAbrFJu0H82Ab3SkqpJ5+lgighxb4nG5Kx2O1jEuRpJ1nbRHYYhaDZ6muAUqfNf3yd8EQlGA29c1nqootaFhVm7s4an1L8Wqb/LNP/dzc0z0UawBHHVZVnX21Gy3UQtasL2DDMS9txij7gnPOfIo8WZaXuugA0cyFUMbOn2J+QBiLcfpqnQVCfd19hKajfpmdOWggVOKJZFnEo4lE4BLSaNJ1JS8s860dqEzrVtHxEjFf2V8tJsC6AHgbRdK+zHR27WZFXJTUe2hi92yRSSW8275dwmzpJ7Tei34LHZJ9EdXdT5dUdfBRSrSnvF3DxOs7S9YdmHjqhjNDqj3Sdqoq5EVAgV7CtKC3yGAWsaC7lqTqXhdUAGsJtJawpBv09/yqgcZ8TYjkgKefsQMZYPb3KAkaaAhxxbNo4dCy/FdrmeZMq8XgLCb2rONPq8aJbKIo8aqJ9eYgqN7wNqAH7OKo5cxcC2dWkQD2uuvpnNNc01flv7jnWybFY8ckyCUolSUS/ohva3+rDY0UqwCaqG3BzCQFW9rCIlfFExCugQw61tSCW6/NQRmxjTbvJkxLFTHcHoR5UOwUNz/H+7Qsaz3q6rdI9aNhFILkWTqi+y3oYO2PHe8S9ndUcjZRtSzhqw4gVO0KUAhQbXSBUpaplilxsmu9fXQa6+tVkq7ldCQ1Uoz1Up0kavrQFFnuHHVupLIsZhGCuQRP6MOqOCQa83GFqypsqWevLs3b57iLrUkalRqnLBlP4Y9DFHdEqOrLxDUW43GWpRZ3SZ2UXLRqVWXrLuX3+qPaKOW30R4JOvFU1mMW9S2kUXCDbpF2hdlw0nP1H9WqVc6S2cCwJq9A12hWDNf5qn1IW6nf+kH149L+x+t5yQfiFk8h61nUIh3ljT6q5b2S+BSrWaSo7m6RNZ24L5Z6ITAtPlXQMXPiDi/n4eiOZ9Iwxa9ww8b6Pp+1eD4qnlZUltrgOgHpTjOkNHGPFxHONpbxah2TQlCxIg/viE5aD674kxy1S11LCtg0GorS8Dp9Kwpis1iH3p9dp0gFD0MKZ4lgx1AYZFFg6aNsMfo9FKYWmwrP4lxCVWlLF91rMKH6eDuQCdQ1aLkPlgnkwUpJFviqDKqe1URTbheKjZYhnEwdKOCPX4fG2e0b1TxuNbx59AOUJ2Q8mTjvaHJk9eP6O8jYbKE0NkMQDBsaS7+i7tREw9VsMfoQeGUzpFspaDexIGIaTY/CSjEqg5UwrO5coXI2vlIzcIW46KsIKj6k3HtqZFGbx29tvyw7j/A0hSnqeCr/xaK/vV6F1M8X2VABYtnF7RlFsNWT1lUtkSRIwZEIb2UqqkcQon4ElMKduChVnSiEYZpohlFIzxqH7ukX5UXR2vJ7ncu04q4U3OecGIVCpDnIkaUwIMgjQtYCQh2clbg1wTDVlSetko1DMX/V81pdAVTdcC/0TasSPH3tVOoBiYcm32lX4aOOtT4xV8XteZpnuPId2nsXzY3KkTEVZsk+ahnAs52ngAD6JJVgVi22Ut6hIKM1NfVTickoh4kpabJropJVG4yqsTH5UocHFBCTp7mKMPltl3crvRRQUIzjnuG3hndHNKB4oh9kaXWXb+zXoUxWvdNtpMPSRhTQ6oLySabAd975Sf7czdAsPw8+kK1rlYp+ynjY5r0XsvVRvEKRbRptt3BYLe/tWC6kEnLpLmXOjKu4N9oiGKaKyOXg/rswYw5RByRWdQtfVRlkGUIrSdukRtVk1/zDJp52o+XhAkcQjRsb/PzjsC4VLKZxTwxM3Hb8+xOm51j8BUcuS88uidUIgVrTK7Z07pmnG95doURvtz39mvFjEUMIzrA0ZNai2cehruj2XyJa4pOwnGknF8v6cnpoRSqU2ui0WSxImc5uYWGs1ppByvhz154g2hfLOcOcsHnZC9kKkrv+Xn6lNhqlFPkVhBGB56HgKcPVMpOTuBdfkqgwMLwFnbRwqK4qOndRd86JoN+3ZLVMiHhwBdnzhfcX2Sju0Q2Xo1kye9oHai9S80SHMhMJrLhKK3oaYQzteIEzZECsVFLuLC1a80stR4vet/O0bWbu13cvI49dyIhhNqo4gFyJuiNKY2T4rZNfTYX9qFFtRDtnSCo9W+x4jxpy8mmsjGuj9kp+KNteVNNQ1aB1iT6HKwJqQ0Fsvom7LkR9WXNQFolOc8YUb0fZdNKm9ynCa5ZXftdzvWQCAi+mIS3SSYtayABVVEF+YRWjESWuCyj/06VMT85pg3GsLHpi2QJ3qyimdTJlPG8jvc05PShQXXmR01V2wr8LBFDH6asmHLpYx/L0cO9W0V3xLi4rmEmdXl8fUDCqeaTMc//TxR/XoRiveBuZ081tyOOZgEQnvPgPujtQvskRSHpcGilOaG8YsUpUfy60lme29l35Zh7ns+Fq99csDBWmEV/DkPHaDdKc0833Fp9Rfq+NRHKK7EpZQM3TBG93xgJAHKF1ReSBOV0zIJfZiuUUNxzbM8oT7/3mjz/8+F+dZMbNPQigprAmqgZZmu9Yz9I66NnimSxI3vdyr/bFNpCx8zZhhXH7rTnH3fdyblJYboYcXTSHMAd0PnDud2i5JOrqL+8at7/f/bdjtfwcQ0A5VqBS/eq2fBPuFiHL1dFLTOsswhbt6Dov7cq3fawKSsSqsB1MUmh4wFuSXbBOtLw4t40Vc99toGwb/uV//vb9rcYYq1OGr2IVeouIARnj5ab165z9X9J2HlZmLW+e3j/vXa/mLPayt+Hf/vfuB19oJFbDvTvv/OTQ3+4V2syo3vns92diZePQ3+7V2gwrG3c/2mncYHXe5kCdY1Q3WO1tF2H11uH/Icsrtd1gdfmtxkp0/QarpzcD6q37/y6sjCHcYHXedhFWJSs89Bd8hTbD6u1f/AeAmrz3Mxs3WJ23WdYso7rB6uLt7V/+LrEa3rdxg9V5m7IbAJVYhdx36C/4qmzmgO/+6g/QFnDDChs3WJ253WB1+e3df/5PGw7Ujz/RuMHqzO29X/+XjRusLrMBKBt/89P7GjVQN1hpe+83fzwDqBusztosthtWKgt6ZfAGq7M2MypMgjdYXbwZUDYsE1RNMMuCFVCG3qG/6eE3YFXXT2+wOnMDVRBh2C8L1lgtPz/0lz3wBpT2jCp5e0FJTw/9ZQ+5GUpv//J3Njyq1w5YmdOND2Krve+ZWBnjOvT3PdiGBNDG3Q++OBercch63eAybuDjl78zQmUDQO0zq7fmLra/3lj98OcPMAyudz77PcS9p7EyoDBeZzpq852Pnz8gUB/tzgRq8t7PzsMKTnro67iODe0cBhemv8tiVcFlzOEve0JkDC/IQFH32lbB7WmsUMGRG77RvL2H1Zs//uQvO3ChSGruY8gYUHBGsXTpMA4UChMFMRvEqoLL8DS47NMOfU0vcZP9GG5nYlUDtW9XFVw40wzMzPLQ1/QSN2CyB1RiNbxvCACuGisNYGWv2sn20l924MIG2nAmUDVWQKbGCnC5Uf34k9eEQuwZFcoQwgrR2x4B19NYvQ4QadP0l1gFPtwp0Ikz3Hrzro0arkNfwbVudfNeYhUDsV0p4dNYvYbN25gWDSiLV2BNwop9MsUH97Cy8RpihQ0oYdRYiVABqz24Dv2tD7bRwOCDMRUKrj2sDv1lX4lNWDlc4YaH/lKv9FZH+EN/l4u2/wfcPZqe'));
    * * * bmp2:=bmps2.ToTBitmap;
    * * * Picture.Bitmap.handle:=bmp2.handle;
    * end;
    //TButton3\\
    *TButton3:=TButton.Create(DsgnForm);
    * with TButton3 do
    * * begin
    * * * Parent:=DsgnForm;
    * * * Caption:='Start!';
    * * * Left:=263;
    * * * Top:=265;
    * * * Width:=75;
    * * * Height:=25;
    * * * OnClick:=@YourClickProcedure;
    * * * //Font.Name:=default;
    * * * Font.Color:=clDefault;
    * * * Font.Size:=0;
    * end;
    //TCheckBox5\\
    *TCheckBox5:=TCheckBox.Create(DsgnForm);
    * with TCheckBox5 do
    * * begin
    * * * Parent:=DsgnForm;
    * * * Caption:='Run from combat';
    * * * Checked:=false;
    * * * Left:=4;
    * * * Top:=276;
    * * * Width:=85;
    * * * Height:=19;
    * * * Font.Name:=default;
    * * * Font.Color:=clDefault;
    * * * Font.Size:=0;
    * end;
    //TCheckBox6\\
    *TCheckBox6:=TCheckBox.Create(DsgnForm);
    * with TCheckBox6 do
    * * begin
    * * * Parent:=DsgnForm;
    * * * Caption:='Wielding axe';
    * * * Checked:=false;
    * * * Left:=4;
    * * * Top:=249;
    * * * Width:=85;
    * * * Height:=19;
    * * * Font.Name:=default;
    * * * Font.Color:=clDefault;
    * * * Font.Size:=0;
    * end;
    //TComboBox4\\
    *TComboBox4:=TComboBox.Create(DsgnForm);
    * with TComboBox4 do
    * * begin
    * * * Parent:=DsgnForm;
    * * * Left:=210;
    * * * Top:=181;
    * * * Width:=187;
    * * * Height:=23;
    * * * //add your items here
    * * * Items.Add('Gnome Yews');
    * * * //End items
    * * * OnClick:=@YourClickProcedure;
    * * * Font.Name:=default;
    * * * Font.Color:=clDefault;
    * * * Font.Size:=0;
    * end;
    end;




    procedure SafeInitForm;
    var
    * v: TVariantArray;
    begin
    * setarraylength(V, 0);
    * ThreadSafeCall('InitForm', v);
    end;








    procedure ShowFormModal;
    begin
    * DsgnForm.ShowModal;
    end;








    procedure SafeShowFormModal;
    var
    * v: TVariantArray;
    begin
    * SetArrayLength(V, 0);
    * ThreadSafeCall('ShowFormModal', v);
    end;








    begin
    * SafeInitForm;
    * SafeShowFormModal;
    * SetupSRL();
    * P07_DeclarePlayer;
    * SetupP07Include;
    * ActivateClient;
    * Wait(2000);




    * If (Not P07_LoggedIn) Then
    * begin
    * * P07_LogInPlayer;
    * end;




    * P07_MakeCameraAngleHigh;
    * P07_MakeCompassNorth;
    * InitChopWait := 0;
    * InitWait := 0;
    * ProgBank := 0;
    * MarkTime(ProgTime);
    * DTM;
    * AddOnTerminate('FreeDTMss')
    * TurnOnRun;
    * LocFailSafe := 0;
    * AxeFailSafe := 80;
    * AxeFailSafeToggle := 0;
    * AxeFailSafe1 := 0;
    * AxeFailSafe2 := 0;
    * MarkTime(AxeFailSafeTime);




    * repeat
    * * * AntiBan;




    * * * if(TimeFromMark(InitChopWait) > (ChopWaitTime * 500)) then
    * * * begin
    * * * * InitWait := 0;
    * * * end;




    * * * if(timefromMark(AxeFailSafeTime) > 500) then
    * * * begin
    * * * * *if(AxeFailSafeToggle = 0) then
    * * * * *begin
    * * * * * AxeFailSafe1 := p07_invCount;
    * * * * * AxeFailSafeToggle := 1;
    * * * * *end
    * * * * *else
    * * * * *begin
    * * * * * AxeFailSafe2 := p07_invcount;
    * * * * * AxeFailSafeToggle := 0;
    * * * * * if (AxeFailSafe2 = AxeFailSafe1) then
    * * * * * begin
    * * * * * * AxeFailSafe := AxeFailSafe + 1;
    * * * * * end
    * * * * * else
    * * * * * begin
    * * * * * * AxeFailSafe := 0;
    * * * * * end;
    * * * * *end;
    * * * * *MarkTime(AxeFailSafeTime);
    * * * end;




    * * * * if(((CountColorTolerance(255, 220, 140, 300, 200, 2) + CountColorTolerance(65280, 230, 130, 280, 180, 2)) > 100) and (RunFromCombat = 1)) then
    * * * * begin
    * * * * * Mouse(305, 174, random(10), random(10), true);
    * * * * * P07_FFlag;
    * * * * * wait (lagg);
    * * * * * * if((CountColorTolerance(255, 220, 140, 300, 200, 2) + CountColorTolerance(65280, 230, 130, 280, 180, 2)) > 100) then
    * * * * * * begin
    * * * * * * * GoToBank;
    * * * * * * * if(((P07_InvCount > 1) and (Skiller = 0)) or ((P07_InvCount > 2) and (Skiller = 1))) then
    * * * * * * * begin
    * * * * * * * * OpenBank1;
    * * * * * * * * BankLogs;
    * * * * * * * end;
    * * * * * * * GoToTrees;
    * * * * * * end;
    * * * * end;




    * * * * if(not P07_TabInventoryTab(4)) then
    * * * * begin
    * * * * * P07_TabInventoryTab(4)
    * * * * end;




    * * * * if(P07_InvFull) then
    * * * * begin
    * * * * * GoToBank;
    * * * * * OpenBank1;
    * * * * * BankLogs;
    * * * * * GoToTrees;
    * * * * end
    * * * * else
    * * * * begin
    * * * * * if(not isMoving1) then
    * * * * * begin
    * * * * * * ChopTree;
    * * * * * end
    * * * * * else
    * * * * * begin
    * * * * * * if((AxeFailSafe > ChopWaitTime) and (InitWait = 0)) then
    * * * * * * begin
    * * * * * * * ChopTree;
    * * * * * * end
    * * * * * * else
    * * * * * * begin
    * * * * * * * if(random(10) = 1) then
    * * * * * * * begin
    * * * * * * * * MMouse(RandomRange(-100, 900), RandomRange(-100, 600), random(10), random(10));
    * * * * * * * end;
    * * * * * * end;
    * * * * * end;
    * * * * end;
    * until (Not P07_LoggedIn or (LocFailSafe > 25) or (AxeFailSafe > 100))
    * writeln(P07_LoggedIn);
    * writeln('LocFailSafe: ' + inttostr(LocFailSafe));
    * writeln('AxeFailSafe: ' + inttostr(AxeFailSafe));
    * TerminateScript;
    end.

  2. #2
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    Your going to have to start your own script, it's better then using that look at some object DDTM tutorials http://villavu.com/forum/showthread.php?t=72067

  3. #3
    Join Date
    Mar 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by RJJ95 View Post
    Your going to have to start your own script, it's better then using that look at some object DDTM tutorials http://villavu.com/forum/showthread.php?t=72067
    You willing to teach me how via skype or teamviewr ? i want to learn fast

  4. #4
    Join Date
    Jun 2007
    Location
    The land of the long white cloud.
    Posts
    3,702
    Mentioned
    261 Post(s)
    Quoted
    2006 Post(s)

  5. #5
    Join Date
    Mar 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by The Mayor View Post
    Make sure you give appropriate credit if using other people's work
    Sorry will do

  6. #6
    Join Date
    Mar 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by RJJ95 View Post
    Your going to have to start your own script, it's better then using that look at some object DDTM tutorials http://villavu.com/forum/showthread.php?t=72067
    the object DDTM clicks for you ? can you explain what it does for me ?

  7. #7
    Join Date
    Oct 2012
    Location
    Italy
    Posts
    145
    Mentioned
    0 Post(s)
    Quoted
    44 Post(s)

    Default

    There are some banking functions in the SRL that you may want to use if you're interested..
    Check out my new script here: http://villavu.com/forum/showthread.php?p=1194418 Al-Kharid Silk buyer

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
  •