Results 1 to 7 of 7

Thread: Help With Form

  1. #1
    Join Date
    Dec 2007
    Posts
    2,112
    Mentioned
    71 Post(s)
    Quoted
    580 Post(s)

    Default Help With Form

    hi, i looked at Dan Cardin form tut and i wanna make tabs but i dont understant it i need to make tabs for players only and not the rest i also need a way to save the players and show the players in a differant box
    this is my form so far
    can a some 1 also close my other 2 posts on this i lagged
    SCAR Code:
    Program New;


    Procedure InitForm;
    Var
      frmDesign : TForm;
      Image1 : TImage;
      NP, SS, PP : TButton;
      UserName, PassWord, NickName, BankPin, SW, SleepEvery, MS, Loads  : TEdit;
      Active, Debug : TComboBox;
      BTM, Width, Height : Integer;
    Begin
      FrmDesign := CreateForm;
      FrmDesign.Left := 309;
      FrmDesign.Top := 80;
      FrmDesign.Width := 545;
      FrmDesign.Height := 381;
      FrmDesign.Caption := 'Air Crafter By Pur3B100d';
      FrmDesign.Color := clBtnFace;
      FrmDesign.Font.Color := clWindowText;
      FrmDesign.Font.Height := -11;
      FrmDesign.Font.Name := 'MS Sans Serif';
      FrmDesign.Font.Style := [];
      FrmDesign.Visible := True;
      FrmDesign.PixelsPerInch := 96;
     
      Image1 := TImage.Create(frmDesign);
      Image1.Parent := frmDesign;
      Image1.Left := 0;
      Image1.Top := 0;
      Image1.Width := 529;
      Image1.Height := 345;
      //btm suppose to be here but too long
      GetBitmapSize(BTM, Width, Height);
      CopyCanvas(GetBitmapCanvas(BTM), Image1.Canvas, 0, 0, W, H, 0, 0, W, H);

      NP := TButton.Create(frmDesign);
      NP.Parent := frmDesign;
      NP.Left := 32;
      NP.Top := 272;
      NP.Width := 145;
      NP.Height := 41;
      NP.Hint := 'Next Player?';
      NP.Caption := 'Next Player';
      NP.Font.Color := clWindowText;
      NP.Font.Height := -11;
      NP.Font.Name := 'MS Sans Serif';
      NP.Font.Style := [];
      NP.ParentFont := False;
      NP.ParentShowHint := False;
      NP.ShowHint := True;
      NP.TabOrder := 8;
      SS := TButton.Create(frmDesign);
      SS.Parent := frmDesign;
      SS.Left := 352;
      SS.Top := 272;
      SS.Width := 145;
      SS.Height := 41;
      SS.Hint := 'Start Script?';
      SS.Caption := 'Start Script';
      SS.ParentShowHint := False;
      SS.ShowHint := True;
      SS.TabOrder := 9;
      UserName := TEdit.Create(frmDesign);
      UserName.Parent := frmDesign;
      UserName.Left := 32;
      UserName.Top := 32;
      UserName.Width := 145;
      UserName.Height := 21;
      UserName.Hint := 'UserName?';
      UserName.ParentShowHint := False;
      UserName.ShowHint := True;
      UserName.TabOrder := 10;
      UserName.Text := 'UserName';
      PassWord := TEdit.Create(frmDesign);
      PassWord.Parent := frmDesign;
      PassWord.Left := 32;
      PassWord.Top := 72;
      PassWord.Width := 145;
      PassWord.Height := 21;
      PassWord.Hint := 'PassWord?';
      PassWord.ParentShowHint := False;
      PassWord.ShowHint := True;
      PassWord.TabOrder := 11;
      PassWord.Text := 'PassWord';
      NickName := TEdit.Create(frmDesign);
      NickName.Parent := frmDesign;
      NickName.Left := 32;
      NickName.Top := 112;
      NickName.Width := 145;
      NickName.Height := 21;
      NickName.Hint := 'NickName?';
      NickName.ParentShowHint := False;
      NickName.ShowHint := True;
      NickName.TabOrder := 12;
      NickName.Text := 'NickName';
      BankPin := TEdit.Create(frmDesign);
      BankPin.Parent := frmDesign;
      BankPin.Left := 32;
      BankPin.Top := 152;
      BankPin.Width := 145;
      BankPin.Height := 21;
      BankPin.Hint := 'BankPin?';
      BankPin.ParentShowHint := False;
      BankPin.ShowHint := True;
      BankPin.TabOrder := 13;
      BankPin.Text := 'BankPin';
      SW := TEdit.Create(frmDesign);
      SW.Parent := frmDesign;
      SW.Left := 352;
      SW.Top := 32;
      SW.Width := 145;
      SW.Height := 21;
      SW.Hint := 'Smart World?';
      SW.ParentShowHint := False;
      SW.ShowHint := True;
      SW.TabOrder := 14;
      SW.Text := 'SMART World';
      SleepEvery := TEdit.Create(frmDesign);
      SleepEvery.Parent := frmDesign;
      SleepEvery.Left := 352;
      SleepEvery.Top := 88;
      SleepEvery.Width := 145;
      SleepEvery.Height := 21;
      SleepEvery.Hint := 'Sleep Every?';
      SleepEvery.ParentShowHint := False;
      SleepEvery.ShowHint := True;
      SleepEvery.TabOrder := 15;
      SleepEvery.Text := 'Sleep Every';
      MS := TEdit.Create(frmDesign);
      MS.Parent := frmDesign;
      MS.Left := 352;
      MS.Top := 144;
      MS.Width := 145;
      MS.Height := 21;
      MS.Hint := 'Mouse Speed?';
      MS.ParentShowHint := False;
      MS.ShowHint := True;
      MS.TabOrder := 16;
      MS.Text := 'Mouse Speed';
      Active := TComboBox.Create(frmDesign);
      Active.Parent := frmDesign;
      Active.Left := 32;
      Active.Top := 232;
      Active.Width := 145;
      Active.Height := 21;
      Active.Hint := 'Active?';
      Active.ItemHeight := 13;
      Active.TabOrder := 17;
      Active.Text := 'Active';
      Active.Items.Add('True');
      Active.Items.Add('False');
      Debug := TComboBox.Create(frmDesign);
      Debug.Parent := frmDesign;
      Debug.Left := 352;
      Debug.Top := 200;
      Debug.Width := 145;
      Debug.Height := 21;
      Debug.Hint := 'Debug?';
      Debug.ItemHeight := 13;
      Debug.TabOrder := 18;
      Debug.Text := 'Debug';
      Debug.Items.Add('True');
      Debug.Items.Add('False');
      Loads := TEdit.Create(frmDesign);
      Loads.Parent := frmDesign;
      Loads.Left := 32;
      Loads.Top := 192;
      Loads.Width := 145;
      Loads.Height := 21;
      Loads.Hint := 'Loads?';
      Loads.TabOrder := 19;
      Loads.Text := 'Loads';
      PP := TButton.Create(frmDesign);
      PP.Parent := frmDesign;
      PP.Left := 192;
      PP.Top := 272;
      PP.Width := 145;
      PP.Height := 41;
      PP.Hint := 'Previous Player?';
      PP.Caption := 'Previous Player';
      PP.ParentShowHint := False;
      PP.ShowHint := True;
      PP.TabOrder := 20;
    end;

    begin
    End.

  2. #2
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    SRLPlayerForm ???

  3. #3
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    NaumanAkhlaQ - im sure hes trying to make a form for the same reason i made a multiplayer form, he wants to learn, its always good to learn new things

  4. #4
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Fine . Search up about TPageControl and TabPages.. actually heres an example

    :
    SCAR Code:
    {
    Credits To :
      Sumilion For his awesome Fix on the MineRock, and the MainLoop!
      Nielsie For the bank fix in the proggie, and the Standardizer(SRL Mem)
      MasterKill - AutoResponder!

    If You would like it to contribute to your stats account change
    the const on line 2273 - 2299

    IF YOU LIKED THIS SCRIPT AND WANT TO SAY THANKS PLEASE SIGN UP AT
    [url]http://bux.to/?r=naumanakhlaq[/url]
                     THANK-YOU!                                                                                                                                                 }


    {-------------------------Script Start--------------------------}

    program Public_GuildXMin0r;
    //{.include srl/srl/misc/smart.scar}
    {.include srl/srl.scar}
    {.Include SRL\SRL\Skill\Mining.Scar}
    {.include srl/srl/misc/Users.scar}
    Var
      BrokenPickZ, ScriptRunTime, PrInt : Integer;
      PrStr : String;

    Const Pin_Number = '5858'; //Leave at '5858' If No Pin Number, Enter
                               //It If you have one :).

    Const SMARTWorld = 96; //S.M.A.R.T world to macro in? Leave for default



    Procedure GuildForm; Forward;

    Procedure Proggie; Forward;

    Procedure TryAgain; Forward;

    Function FindMithRock : Boolean; Forward;

    Function FindCoalRock : Boolean; Forward;


    {----------------------------}
    {     Form For Script        }
    {----------------------------}

    Const Ver = '0.7'; //Dont Touch!

    var
      // GuildForm variables.
      PageControl : TPageControl;
      TabPages : array [0..3] of TTabSheet;
      ListBox, ListBox1 : TListBox;
      EndGuildForm : Boolean;
      ScrollBox1 : TScrollBox;
      frmDesign : TForm;
      Label1, Label2 : TLabel;
      Memo1 : TMemo;
      Button1, Button2, Button3 : TButton;
      GroupBox1, GroupBox11 : TGroupBox;
      Memo3 : TMemo;
      Button4 : TButton;
      Edit1 : TEdit;

    Var
      GroupBoxol1 : TGroupBox;
      Labelol1, Labelol2, Labelol3, Labelol4,
      Label500, Label50 : TLabel;
      CheckBoxol1, CheckBoxol2 : TCheckBox;
      Memo100 : TMemo;
      Button100, Buttonol1, Buttonol2 : TButton;
      ProgressBar1 : TProgressBar;

    Procedure OkiClick(Sender : TObject);
    Var Lol : String;
    Begin

     Case Sender Of

      Button1 : SRLPlayerForm(True, ['Power Mine?'], ['Loads To Do?', 'Sleep For In Mins - (Leave if no sleep)'], ['Mine Coal or Mith or Both?'], []);

      Button2 : Begin
                  OpenWebPage('http://www.villavu.com/forum/showthread.php?t=36330');
                  FrmDesign.Close;
                end;

      Button3 : Begin
                  Lol := Getpage('http://guildxminer.freehostia.com/version.txt');
                  If Lol <> Ver Then
                   begin
                    Memo1.Lines.Add('Not Up To DATE!!, Update please - by Visiting The Site');
                    Memo1.Lines.Add('On the Other Hand - you may be online whilst Im testing a new version, so keep tuned!');
                    TerminateScript;
                  end else
                   Memo1.Lines.Add('Up To date! Using Version '+lol);
                   Memo1.Lines.Add('Continuing....');
               end;

      Button4 : frmDesign.ModalResult:= mrOk;
      end;
    end;

    // When the form is closed, this code will be executed.
    procedure GuildFormOnClose(Sender5 : TObject; var Action : TCloseAction);
    begin
      if (not(frmDesign.ModalResult = 1)) then
        EndGuildForm := True;
    end;

    procedure OnMouseDown(Sender6: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    begin
    if (ssCtrl in Shift) then PageControl.BeginDrag(False);
    end;

    procedure OnDragDrop(Sender7, Source: TObject; X, Y: Integer);
    var
       i : Integer;
    begin
       PageControl.ActivePage.PageIndex := PageControl.IndexOfTabAt(X, Y);
    end;

    procedure OnDragOver(Sender8, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean) ;
    begin
       Accept := (Sender8 is TPageControl);
    end;


    function Explode(Delimiter : string; Str : string) : array of string;
    var                   //By A G E N T 83-From MK's Script! Sml Edit by me
      DelimPos, i : integer;
      Arr1 : array of string;
    begin
      SetArrayLength(Arr1, 10000);
      i := 0;
      repeat
        if (pos(Delimiter, Str) = 0) then Break;
        DelimPos := pos(Delimiter, Str);
        Arr1[i] := Replace((copy(Str,0,DelimPos)),Delimiter,'');
        Delete(Str,1,DelimPos);
        i := i + 1;
      until(pos(Delimiter, Str) = 0);
      Arr1[i] := Str;
      SetArrayLength(Arr1, i+1);
      Result := Arr1;
    end;

    // This form was parsed using: DFM Form Parser v.25 by Ron.
    procedure GuildForm;
    var
      TimeGuildForm, K : Integer;
      BestProg, BestProg2, Strt : String;
      Proggy: TStringArray;

    begin
      TimeGuildForm := GetSystemTime;

      frmDesign := CreateForm;

      PageControl := TPageControl.Create(frmDesign);
      PageControl.Parent := frmDesign;
      PageControl.Align := alClient;
      PageControl.OnMouseDown := @OnMouseDown;
      PageControl.OnDragDrop := @OnDragDrop;
      PageControl.OnDragOver := @OnDragOver;

      TabPages[0] := TTabSheet.Create(frmDesign);
      TabPages[0].Caption := 'Main Setup';
      TabPages[0].PageControl := PageControl;

      TabPages[1] := TTabSheet.Create(frmDesign);
      TabPages[1].Caption := 'Best Proggie';
      TabPages[1].PageControl := PageControl;
     
      TabPages[2] := TTabSheet.Create(frmDesign);
      TabPages[2].Caption := 'Your Most Recent Proggie';
      TabPages[2].PageControl := PageControl;

      TabPages[3] := TTabSheet.Create(frmDesign);
      TabPages[3].Caption := 'Addy Mining(Special)';
      TabPages[3].PageControl := PageControl;

      with frmDesign do
      begin
        OnClose := @GuildFormOnClose;
        Position := poScreenCenter;
        BorderStyle := bsSingle;
        BorderIcons := [biMinimize,biSystemMenu];
        FormStyle := fsStayOnTop;
        ClientWidth := 445;
        ClientHeight := 294;
        Caption := '=-=-=-=-=-=-=-=-=-=-=-=- SetUp =-=-=-=-=-=-=-=-=-=-';
        Color := 1420247;
        Font.Color := clFireBrick;
        Font.Height := -11;
        Font.Name := 'Bookman Old Style';
        Font.Style := [];
        PixelsPerInch := 96;
      end;
      Label1 := TLabel.Create(frmDesign);
      with Label1 do
      begin
        Parent := TabPages[0];
        Left := 128;
        Top := 24;
        Width := 145;
        Height := 17;
        Caption := 'Guild X Min0r Setup Form';
      end;
      Label2 := TLabel.Create(frmDesign);
      with Label2 do
      begin
        Parent := TabPages[0];
        Left := 280;
        Top := 232;
        Width := 148;
        Height := 17;
        Caption := '(c) Form by NaumanAkhlaQ';
      end;
      ScrollBox1 := TScrollBox.Create(frmDesign);
      With ScrollBox1 Do
      Begin
        Parent := TabPages[0];
        Left := 189;
        Top := 53;
        Width := 200;
        Height := 155;
        TabOrder := 8;
      end;
      Memo1 := TMemo.Create(frmDesign);
      with Memo1 do
      begin
        Parent := TabPages[0];
        Left := 192;
        Top := 56;
        Width := 193;
        Height := 149;
        with Memo1.Lines do
        begin
          Add('Thank - you for using the Guild X Min0r');
          Add('This Version is  : '+Ver+' pub!');
          Add('Enjoy using this.');
          Add('');
          Add('If any Bugs are found please ');
          Add('report it to me, using the '#39'Visit ');
          Add('The Site'#39' button');
          Add('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');
        end;
        TabOrder := 8;
        ReadOnly := True;
      end;
      Button1 := TButton.Create(frmDesign);
      with Button1 do
      begin
        Parent := TabPages[0];
        Left := 24;
        Top := 46;
        Width := 115;
        Height := 41;
        Caption := 'Player Form';
        TabOrder := 9;
        OnClick := @OkiClick;
      end;
      Button2 := TButton.Create(frmDesign);
      with Button2 do
      begin
        Parent := TabPages[0];
        Left := 24;
        Top := 110;
        Width := 115;
        Height := 41;
        Caption := 'Visit The Site';
        TabOrder := 10;
        OnClick := @OkiClick;
      end;
      Button3 := TButton.Create(frmDesign);
      with Button3 do
      begin
        Parent := TabPages[0];
        Left := 24;
        Top := 174;
        Width := 115;
        Height := 41;
        Caption := 'Check For Updates';
        TabOrder := 11;
        OnClick := @OkiClick;
      end;
      Edit1 := TEdit.Create(frmDesign);
      with Edit1 do
      begin
        Parent := TabPages[0];
        Left := 0;
        Top := 0;
        Width := 433;
        Height := 25;
        TabOrder := 12;
        Text :=
          '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Guild X Min0r =-=-=-=-=-=-=-=-=' +
          '-=-=-=-=-=-=-'
      end;
      Button4 := TButton.Create(frmDesign);
      Button4.Parent := TabPages[0];
      Button4.Left := 64;
      Button4.Top := 232;
      Button4.Width := 209;
      Button4.Height := 27;
      Button4.Caption := 'Start Mining!';
      Button4.TabOrder := 13;
      Button4.OnClick := @OkiClick;

      GroupBox1 := TGroupBox.Create(TabPages[1]);
      with GroupBox1 do
      begin
        Parent := TabPages[1];
        Left := 2;
        Top := 2;
        Width := 430;
        Height := 252;
        Color := 225;
        Caption :=
          '                                               Pr' +
          'oggie!!                                             '
        TabOrder := 0;
      end;
      ListBox := TListBox.Create(GroupBox1);
      with ListBox do
      begin
        Parent := TabPages[1];
        Left := 16;
        Top := 30;
        Width := 403;
        Height := 215;
        BestProg := GetPage('http://guildxminer.freehostia.com/bestprog.txt');
        Proggy := Explode('$', BestProg);
        For K := 0 To High(Proggy) Do
        ListBox.Items.Add(Proggy[K]);
        TabOrder := 0;
      end;

      GroupBox11 := TGroupBox.Create(TabPages[2]);
      with GroupBox11 do
      begin
        Parent := TabPages[2];
        Left := 2;
        Top := 2;
        Width := 430;
        Height := 252;
        Color := 225;
        Caption :=
          '   Your Most Recent  Pr' +
          'oggie (Located in C:\Program Files\SCAR 3.15)!!                                             '
        TabOrder := 0;
      end;
      PrInt := OpenFile(AppPath+'Guild X Min0r Proggies1!.txt', False);
      ReadFileString(PrInt, PrStr, 4000);
      CloseFile(PrInt);
      ListBox1 := TListBox.Create(GroupBox11);
      with ListBox1 do
      begin
        Parent := TabPages[2];
        Left := 16;
        Top := 30;
        Width := 403;
        Height := 215;
        BestProg2 := PrStr;
        Proggy := Explode('$', BestProg2);
        For K := 0 To High(Proggy) Do
          ListBox1.Items.Add(Proggy[K]);

        If Not StartsWith('>', BestProg2) Then
          Begin
            ListBox1.Clear;
            ListBox1.Items.Add('No proggie saved...');
          end;
        TabOrder := 0;
      end;
      //New TAB!

      GroupBoxol1 := TGroupBox.Create(frmDesign);
      with GroupBoxol1 do
      begin
        Parent := TabPages[3];
        Left := 8;
        Top := 8;
        Width := 425;
        Height := 281;
        Caption :=
          '    ADDY ROCK MINING - NEW SPECIAL FEATURE *NEVER DONE BEFORE!!!' +
          '!*    '
        TabOrder := 0;
      end;
      Labelol1 := TLabel.Create(GroupBoxol1);
      with Labelol1 do
      begin
        Parent := GroupBoxol1;
        Left := 56;
        Top := 56;
        Width := 96;
        Height := 13;
        Caption := 'Please note that this';
      end;
      Labelol2 := TLabel.Create(GroupBoxol1);
      with Labelol2 do
      begin
        Parent := GroupBoxol1;
        Left := 56;
        Top := 72;
        Width := 86;
        Height := 13;
        Caption := 'will over-write past';
      end;
      Labelol3 := TLabel.Create(GroupBoxol1);
      with Labelol3 do
      begin
        Parent := GroupBoxol1;
        Left := 56;
        Top := 88;
        Width := 112;
        Height := 13;
        Caption := 'Configurations e.g '#39'coal'#39;
      end;
      Labelol4 := TLabel.Create(GroupBoxol1);
      with Labelol4 do
      begin
        Parent := GroupBoxol1;
        Left := 208;
        Top := 56;
        Width := 101;
        Height := 13;
        Caption := 'Currently Not Avalible';
      end;
      Label500 := TLabel.Create(GroupBoxol1);
      with Label500 do
      begin
        Parent := GroupBoxol1;
        Left := 40;
        Top := 256;
        Width := 287;
        Height := 13;
        Caption := 'Enjoy Using this guys         Form Made by NaumanAkhlaQ (c)';
      end;
      Label50 := TLabel.Create(GroupBoxol1);
      with Label50 do
      begin
        Parent := GroupBoxol1;
        Left := 184;
        Top := 80;
        Width := 148;
        Height := 13;
        Caption := 'A feature, not ready to show -->';
      end;
      CheckBoxol1 := TCheckBox.Create(GroupBox1);
      with CheckBoxol1 do
      begin
        Parent := GroupBox1;
        Left := 40;
        Top := 32;
        Width := 105;
        Height := 17;
        Caption := 'Mine Addy Rock?';
        TabOrder := 0;
      end;
      CheckBoxol2 := TCheckBox.Create(GroupBoxol1);
      with CheckBoxol2 do
      begin
        Parent := GroupBox1;
        Left := 192;
        Top := 32;
        Width := 137;
        Height := 17;
        Caption := 'Switch Between Loads?';
        TabOrder := 1;
      end;
      Memo100 := TMemo.Create(GroupBoxol1);
      with Memo100 do
      begin
        Parent := GroupBoxol1;
        Left := 192;
        Top := 104;
        Width := 137;
        Height := 89;
        with Memo100.Lines do
        begin
          Add('Hey, Thanks for using this ');
          Add('feature, please post ');
          Add('proggies. ');
          Add('');
          Add('That'#39's all I ask :)');
        end;
        TabOrder := 2;
      end;
      Button100 := TButton.Create(GroupBoxol1);
      with Button100 do
      begin
        Parent := GroupBoxol1;
        Left := 40;
        Top := 112;
        Width := 129;
        Height := 33;
        Caption := 'Return To MainTab';
        TabOrder := 3;
      end;
      Buttonol1 := TButton.Create(GroupBoxol1);
      with Buttonol1 do
      begin
        Parent := GroupBoxol1;
        Left := 40;
        Top := 208;
        Width := 289;
        Height := 33;
        Caption := 'Start Script (can also be done from main tab :) )!';
        TabOrder := 4;
      end;
      Buttonol2 := TButton.Create(GroupBoxol1);
      with Buttonol2 do
      begin
        Parent := GroupBoxol1;
        Left := 40;
        Top := 160;
        Width := 129;
        Height := 33;
        Caption := 'Donate (PayPal)';
        TabOrder := 5;
      end;
      ProgressBar1 := TProgressBar.Create(GroupBoxol1);
      with ProgressBar1 do
      begin
        Parent := GroupBoxol1;
        Left := 336;
        Top := 32;
        Width := 81;
        Height := 225;
        TabOrder := 6;
      end;
      WriteLn('GuildForm compiled in ' + IntToStr(GetSystemTime - TimeGuildForm) + ' milliseconds!');
    end;

    procedure SafeGuildForm;
    var
      V : TVariantArray;
    begin
      SetArrayLength(V, 0);
      ThreadSafeCall('GuildForm', V);
    end;

    procedure ShowGuildFormModal;
    begin
      frmDesign.ShowModal;
    end;

    procedure SafeShowGuildFormModal;
    var
      V : TVariantArray;
    begin
      SetArrayLength(V, 0);
      ThreadSafeCall('ShowGuildFormModal', V);
    end;

    procedure MainGuildForm;
    begin
      try
        SafeGuildForm;
        SafeShowGuildFormModal;
      finally
        frmDesign := nil;
      except
      end;
    end;

    {----------------------------}
    {       Main Script          }
    {----------------------------}

    Var
      TheQuestion, TheRespond: array of array of String;
      x, y, Banked, Gas, OresMined, Gems, I : Integer;
      OrezMined, GuildSig, Responds : Integer;
      HowManyResponds : Integer;
      Loc : String;

    Procedure LoadVars;
    Begin

      GuildSig := BitmapFromString(139, 94, 'beNqkvQV0XFeW' +
           '712iElrMzEwlhioxM6NBYGZmSJzEGIOwUGgH7NhxJ20nsaBQdsAWF' +
           '8nBTkPSSWN6enqmvzdr3t7nVMmyk+nX/U3WXUpZKry/u/f+bzinrM' +
           '21UyMaxYBGIdRIBSqxQC0XLCqEMxLBrFg4LxZopANLD4aUcpFKNrA' +
           'oFaqkAo1MMCfhz4nhzvxFCX9RPqSdGoZfqqU8rUKIzwaHXKCVw+1R' +
           'OPDJ5QIN/FMuVMuEs2L+4wn+gpivlgiUeHBVcq5a1q+WijRTgxqFQ' +
           'KMY1CoG8SfcX8JXSQT4ouSxSvLqGjkPn1wxpFGI4Pd4yIRq/BPcB/' +
           '4qgHtqyD/1vxHCp8Mb9G5ygUrGn52ENy+gD/9i4OR/Mxhfv7wFfjM' +
           'zCe9NoJEI1GIBvEk4CfBJ4ZdzYj68W7jDgkQwB/+c5M/DAX8SCx5P' +
           '8qfJo+bwwM+lIs8Dxywe3NnxntkJ7uykcG5SMC/m04fDMTshmB3rW' +
           '5jsXRT3wT3Pn2gvzUsqy2M1V7PzM2LdXW283e39vBzhlMKH1S4Dki' +
           'GgWZlwQTagkg0uKYaXFCK1HM7eiFo+oJby4TPOAz7pwMIkHxip4UQ' +
           '9GNXKRBoZ9ykgOM9yvlYxTADBaeTTU6GVCeGxjyb4cxN8OAN48iV8' +
           'pbRfLeuDp1XLyAmfGkJA5P7wcnAf+BM884IUz48W0fdp5NyndOg9Z' +
           'XpSMqEKrhb8jYBCwWtPgX/S3U3BV8t5cPJVEsodn/8Hduz/sTJX37' +
           '06K4GLEC4MYMRfhBMuwctydgJY8Mk94SIRwu8X8eGIeGYCDsJCjDi' +
           'WL7zZZUBj/TNjXTMT3LlJ4eIkXykWKMVIdh7vL5gZ65sb75kbR0A3' +
           'hCf3bmuqKEipKU4vymb5e9l5LQOCk78SkFw4Kxcpp4AOXKXD8KG0U' +
           'wNLD69rFENwB3iVeZloQTYMr6iR8cG+NFPXtHDx44UtQCIICM4G8B' +
           'rUTl3T4NnWWdCSQqiU4SfCzwsvB2dDIlRKepWSPgriKSAZnwBCiBo' +
           'CaB6vXngncJsAWkFHh0BPCi0Oieif8JkDrxaVDF9Oh4xc8Jp7VwDQ' +
           'v8WGLEgRJTyDGs+/cFE6CE84M8mDix/eA7x/NcFHCOKpnpkk9kVww' +
           'AHU1MTQVgDqm73fRZ8B/gqfBR61QMwTLG52vG9mrHvmfg/cU/jq7v' +
           'WtxeUFidXFaWX58REhrj6e9v7ejsTFjSip+ePbE8xL+bNw7U0NPgE' +
           'i8kG4ZgCQ5uF1lXwYLp6FCe6ibODtiTfSm5pMjAyNDA2yN6y/o/lw' +
           'UdKvkovmJUOPxkWPx3sfj3VNw8UjRgeoxaudMFIIVXIhuAXABLzgg' +
           '8DrAqCFyR542+iX4J7gMMFUJRQQEBTBT7jzPFiQTLg0JdIqgA7vfw' +
           'JEH0WtCQ1Kjk77WUYArh/PMPF+BBBg5X3VtRcc3W/byoknhEsdfBp' +
           'cTnCpICAAsbQSENLnL070g0+bI6ZNcKDtaAigaT2g+Yn++bEetMFJ' +
           'vgYBCYkzxH/C9TY/2T9zv3vmAwAkGLq6H5xbeUFcXRk7lx3j5rTK3' +
           '8cpyN9pCc1nmF7SWryowPp4cxLBE4VIKx+Yk4oWJYNqhWhhalgpGV' +
           '6YFD4e59+5K0pfu87PzzsuyDkzyiUs1IeVlf3yxZPC4e6y+kr/qPC' +
           'IxNiIhJgwVlRiccGb11+dk+nCEL3C4cnBYJfkwgUCSCXpg4+AgGTk' +
           'Cp8CmxWpqf9BQAMYnoAmBEe5iHhjvkb+Y9P4qYNcdT+yIwyXeJ7xh' +
           'oCcbSF5QsHv6/KA0RfC49RRKOGal8KrC6fRiZGoKkfjQmOXiVQS3t' +
           'z9XjhXSjkGx3kSg9AFkTj1FBAy4s6S0ANXnVYqoEFtBoMgXJz9szo' +
           'LElzvP9pSl1OWl1Rbmp7PDvd0tdEDgjAxPCeG98wn7wGeH+DCBYOn' +
           'BULbohgBzckHKKAbb1xKr6n0cHcK8nbOZPm2l7ISgtwcrG3WtTXm5' +
           'mY4OTk6Otg5OtrD/5zgHw52YUnx+146LBsf+Ozj61oFifUSAb3gER' +
           'B+ZO78WK9ykqeLF1NDKnAscFU/CwjOpwpiHMQ1xcDzgGQrbwt+ApB' +
           'M+GzA0kUfFYmDT97r+s2RNvgJJ/9vgV5/d3XQvHMVIuziJLoUuAMA' +
           'mnsWkFYO1y3v8f1e0EvgN+AlIETOA9AJfLkF8hCCFZ35InoznQMEL' +
           'zE7wSOA8G4qaf/cePcsmphAdPlAXVlGZWFCfSU7nxPt64kBCFzcEm' +
           'qtkTkxVyWl6gjOG/heuMJF8BHmxCKleAD80jwAkg4viIVXL+y3c3S' +
           'wZDD8XUyrOYGnNxVWZEaYMU1cnBwNGQxrCyN/H0dvd1tvT/vAQDcP' +
           '11Umpsy0pLjL/Isf/FL9ycw704qRacUoWJBaTt4hfGQZf368d3FCD' +
           '0iB4gSvcDiNUjClAZQo9MTCDQUoxkEiAPQnnN5z+T4gY5bxyfSMaL' +
           'ghv0fDQQcLulSoJFLhb0FeYDiARnv36mfCk//HyuLP6bHzaEFwwaM' +
           'fnp7gzksoIAENneBqVGICSMxTwZUDjgs9A18FD6EuDgCNI6NFMQ88' +
           'G9gX2JQS7gDmM8ElugLDkEraOz/RDZFodpz/Bv/k6rqCPE5kfTm7N' +
           'DfWx8PO19MRGFFA8xKeSson50eklA0tgu8lH3xeDBYECk2woBhUwe' +
           '/FAt6re6zs7R3MjTNjvY+uyxw5Vbu2NI5B/jMzM/LysvH1sff1cwi' +
           'L8IiO9fMLdDJgMOJCA9e2VBW2r2165aUtV85tv3xm7AMwBxFcdSpy' +
           '2ufH+5UUEPmnSo4SmvgfcPiiZUDkADoD8FafApJQ8awHJCaxeIW9k' +
           'Gse7VFFlTbR4UtghlLQvfzv2sqBzndtFfDz2+0NcLX/4lA7OrrTWx' +
           'YxahCxPcFVSqjOocpTqEUdzpu+3zcDoUoGqkM4D9JXQpgSFTc9ISC' +
           'AeIti7hI4Q7Hg0SSakmqSNzveC0aEqnuCp5T0LE6C+fSB2Lvef6y5' +
           'OquyIKG5KqskJyHU383bwz7Ax2npAQKCV1HLKCBwaKMa2TBmPfDSY' +
           'rhUiDdAOYciQdB3zDXQPz8l/MU9azc2ZtdlByeHuwMdU6aJk6OVt7' +
           'c9HAGBzqw4v7iEwJBQV3NTY18fb2d7e7iPt7dreFRwUJBXxfaNfbL' +
           '3Zj5+A06+Wj5E3zkFhCpXPqiZElFnQs/tihM+gP5fusKCdPLvHwH6' +
           'XHgShPRfY4Lh+PXhNniGpamBX3Tt//L0FjCcPxWngcH+8pVtXwwcX' +
           'xSDVxd8dahN+foZzCMkGDIggqjkulyMigqaKM1P8qbhJ2YKgrkpSB' +
           '4RkIZovIVJFKuQIi1McrUS7jwBBI5uYeIpoBnE1wMaCbOksd7eMzt' +
           'qy1LrSlPryzgUkI+HvZ+345OH15Z0mQtJEqeGnihGtXICSIp0NGKw' +
           'aBCZwxrp8MzjOyffGg0ODmgsTt/ZVh3o6wWnHWyEaWxoZ2/l5LLKw' +
           '8M2INApMtKdFecdn+ATG+tta21uYAB3YYR52DRlhrRm+XbmBUSHeL' +
           'GLC8/3nVkAfwVaET4yiAQ8yZBFClWYqw4gHQzT/BUK+amQXgEIpRE' +
           'GLBAPU1QD86h4w7xMIfxchF4LDlDREF/AOv4aG/Lk/d5vtzfCbUxR' +
           'ew6AqRJhz1+UisD5zIp5Ty7v+/XWBrWYSmh8NpBw8GYgNwc0auKvI' +
           'MpDbEKFJuXPTPHn6BsjuZtSDNoP3RpARECTgsdEV89McmfGemneio' +
           'AgxZD2ETXe2/vK1oqipLrSFLCgwixWgI+jr6dDgK8TACLKFjSbiAJ' +
           'aUoxoMeIIZz98/dov1IO//nz4V58Of/PlyG+/vvjBnV0Ht1eW5no4' +
           '2Vuam3nY2sYGBjrb2RsaGDi52vn6O3t7O4SEuAGdmFgvVpwPK9Znl' +
           'ZUpGBeIRlAUm+s52xuTj6zN2NaQ521nFxEV1t17Gm0TZABmqSI1AQ' +
           'RmgoDA/5PcQauLKT8JCN0ghio5nwBCTQ7I1CTWYPYtFwAUOLTvXcU' +
           'EViL4ZlsDMmKFgN39eyBGn190H8BHgQ+RQyAWkRIB75fbGoHp0htn' +
           'ZuBMTqK/XVJAcIE/cdXkygGrgVcBzTwzjlnqDMAlhQulrvqBEoiKB' +
           'KWYh2kRyU8xAIEFTXIxSwXPKe6D9GSW+D3e+e1rarOqilDF5WXEer' +
           'nbBfiiSNA+GAH5ugTpISQ7igFIWyA/RcH/4esX7t6IrqgMzcoOy8k' +
           'Jy82Dwyc81N7a0tfHK4kVEeTn7u9kX5qeFB8eCmbk7uEUEekRHuEa' +
           'He0Vy/JisfwSEsLjWKFW5mZ2VhYxIR4laQGbqxN31CYdaEm7sL810' +
           'tvdwcb26LkTkFWpISI8GFLLaSkJdQIAUmOMwM+rVQiIRfwPgLCIAY' +
           'B4agUPHghPRWWAhgD69MZZDC7bGoAOcZio3L5bRyLOjibtzXNAAQw' +
           'KrhAtIu4H1liAgkyQ1HDmsIwjmpaI4DdaEDMS3ry4X42ZJlZ+QOgC' +
           'spkxdGVw/lUkwM0R4UFTciL/0IgoKfjTNLo4Hk1jwYKA3SLBNzve/' +
           '4bg5NqGnMLMKMiD8jNiPF2t/b2dQCSoIdkBiTI1soTVgAGwJjAl5c' +
           'PRK/dvhWbngGsyNGAYGxpYGBraMI0cVlm6uzp7ubv4uDpnJkVXFWe' +
           'mRoetMjc3NmaGhvqnpAQmJvmksYOCgpzNzU3MLc0sLOFxRs6O9smR' +
           'vtVZIXtb2Aea0060ZV3c3xLq62Fubr5j36aurlNw5WseDKqIpqXnH' +
           'M1ZiiIfvMqSfCUg1JZ6QOCT+fqaD81eB1DmUSGNbln4Vdd+YPHVlX' +
           '1UUWNcE6OuAAsCNJ+9de6XZ7cRedCE6ZWiT4MFLrAmHujVR6TIBhY' +
           '0LRbB6VWhCfDmJVyVmLuITyV6osBqIY016AYxlUarARN7MoWAwPvB' +
           'MU1AK9FbIjL8pT5LguRikdSIICrdGjxdW5GSnxFdW8rOTA71cLHyI' +
           'SoORDVYqB6QSDU1uKAYODXCjSrKNzJkuNiaw8WfGOGXFuuflRiUnx' +
           'ZelxefyfJnMhghvr5pybH2NlZMUyN7B2t7O1t7eytn51XOLqvsbS0' +
           'dLW3sLCxWmRmD9vZ0c85JCW3IC99Rn3J4NQcAnd9Rvnd1YXSgT2ig' +
           'X+eG1pWA1AoBcTion+dJJWFJvlwQEP0IEESZAS0C4lFAWKEFnSPVF' +
           'Yi073WhSFtX/hygLwdPwe9BHsAzwE+4/eXgcQIILfQJujshRI3H4H' +
           'wwJIl0KSdW27hwLJLkdwlNHk81sTUENC/FuAM3gN0iKWotA1IRQNS' +
           'UlgEtTILAozVVvujVPY0V6SU5CCg3PdLdWQcIwxxkYVMgFYbgRZUK' +
           '4cOpazmbNxsYmdivMk6J9SlnB1VxgqszQxqyw5rzozpK44oT/W1Mj' +
           'VwcnVZZWYGJuXs4+Po4WVtbGJsYwz+NGYa+ji5JwWF5iQmZcRE2TK' +
           'a3m2NJbkxrcfSu2uRjazJPduSMHK8+s6Ew1MPVy91jTWM5ATRAXZB' +
           'GBwg9vBJxkLK2HCucPwVIpJ0aXAFIhIAeDGNAkQhIXkxyTxeHZUD0' +
           'ybUK0V/YrP+yskDE7/fSOKWW9Wik/fBYrKIohDNYeEeFPC8eoKcak' +
           'yP0cggIUqElLIPguSVqDaPhLJZPUciR4qEQHwXyAM8wn+gNAa2iz+' +
           'kBzYFamCAublIguLi7oSyNkxxaU5xekBnr6Wbr7eEAgCByLWC17TU' +
           'CSLAwNXDx9mAYh23EYEQEOFXkssrZIVWcoJqsUKDTmh/TXhJfnhJk' +
           'Z2bq6uRsa2NtZGzo5u4QEOAcEuoeFOxuY2NhxTSP9Aso5qQ2l+XV5' +
           'Gc6Wlj6e7s2lqVurk440ppxqiPn7Nai421ZYS7WTjZ2rc3Vmzubng' +
           'ISk3o1zT0xmQWXNURiUP9PARKuAMSnNXME9JAAEvNIg0Pw68OY14A' +
           '20AEiZMHKvtvRjIYzcBwSqy8GQIfHaO5d0Mi6NbL+J1MQBIUkZPD1' +
           'gHRqDZIRMIF5VH3CJSJI4FQ/egoIS9/YJcEA+pOAIKoK9YAEcxP9c' +
           '+NcCujyi+srCxNKcqOqClMKs2M8nFeBBfkCIAnk1Fh2xraOXKBU8G' +
           'PKyyzsHGwtTFIi3KuzokvZEeXs0OrsUPBJawtZGyoSq9khdqZMD2c' +
           'XBwd7E2NjNzd73wDHoGCXiEjP0HC3VauYNnb2OZkpa2vz6orZVmbM' +
           '0AC//W3lJ9s4h5uTXurMFh6qjvCyA12RV5C5a/+WI70XtVNwnkUEk' +
           'JD2kjQU0NTAEogWwCfvX65gE5GAP2lXSN+bEOjqsfBBHkIex/v0jV' +
           'cg01m61wVPCwL7vyzNPxedQEC6su3wN0c7iYTbq5WCZOUvTvaBplK' +
           'Ku9SyXsiSMMpL8JSCQlaKRXMTQrz4pVhMW8TcB9UmZB9PAWEPApgK' +
           '55EUCrZZwgVviNFkVJM6z7ZI/kmgCAmgfuriel/ZkZcRXpQTU1mYk' +
           'pMW4eFqDTLKy8NBiZWTYa3iGu3dDD8a84uKMGEYujhaJYW5VnIiKj' +
           'NiyjlR1Tlha4tjOkrjt9ak1GWF25kx3ZxcIO4wmSbeXo4+fva+/g5' +
           'Bwa7IKNTVbJWJvb11eW5SRV6y/SrL8EC/jXW5h1o5L3RkX9xZdmVn' +
           'mYcN08zKeu26+sOn998Zv6YhcUSXA8oES3pAWh2gQeK+uM+pOC3WT' +
           'pdLc7oDAT24/tmNs6AB4PzDz8+FJzQ/74YbwOgL0Umtggq84X+PDY' +
           'E7aO5d0coGFsX98+NAB3RvlxIcHQEE55mcdgHpIPAXIG0nNQQI6/N' +
           'YcMM7qEnlkyShoN9AdcMvUZvNYOjRAVoQC2gIo4AIOx0gEG+Yt2Kk' +
           '4w9d3V9bllKen1BbnJrPifbzsHN3tfV0s4eLUI0tmFH8aIrBlNZW9' +
           'wBvZ1umr4tVSrhHTXZUTVZ0bVZkU2F4R1nM1srEA63prblh9mZMVw' +
           'RkY2pq4uPt5OsLRmQfHuoeGeYVG+sbHu7uYG9pY2VhZ20VFxMe7O9' +
           'tZW4aF+7/4p7O0wfWswLdPRztsthJ6zubjvdfUqIfG1DTMy8hBRn0' +
           'acSUHoiWsOsHb4+3sgeEbgrzygECSPSUjq6Nex3iPhD5zdF2+IlJ0' +
           'Ltd4MQosj/U537fXv5XQue7tjLs4EDOMtkzPwaA4ArpWpB0q0hNUi' +
           'nV9ddUWBEl9ZyH11UPRuceXv/kozc/VrymxhwHVcE0UgN/hXFHi4l' +
           'qPwHEfw4QNRy9+aBbQzrjPRQQ/8Ku+jJ2cXZUdWFyPic2wMfJ3cUa' +
           'IhECwsx9iAKCnN/eytjXyybc3zE7zr86O7YyI6o+K3xNYQRkMftaO' +
           'Cc7s9oKI+xNTVycnO3sbMzMTP18Xf0DHAKCnZBOpG9MlF9yQnBUuB' +
           '8Ws53svbwhOQoKCvB2s7UODvALDvAHdZGaENO5pvrw1bM33x/Sd0K' +
           'x3aDGFp5AKccaHRVpKiz7jGin+MttWX3/FCsPX3cfgkAProwAwmr8' +
           '390c/1TCARX9+/o8+CVtZ//AZqHF3euigg0OeNT37VUqCU9FSnnzk' +
           'z1zY/1Y15L0Qna/KOViQUCKyY4SGzH9i49ufKwce/G9t7cKerfevr' +
           'n24vkDA/wb46+/+/BnNwZeGL99WYWAsAsA+RQAmp6gEl0HaGa5zf2' +
           '0Fc4n+WnPMqCu05trS9LL81mQqOakRbq7WHq62cGhlYMoBXU6QHvf' +
           'JoYGHk7WYYGuCeHuBcn+NTlRtVlRTTmRbSXRuxvTjqzLOrUhp604x' +
           't7CFM6zhYW5uZlZWIhPQJAT+LfIcE9WtA8rxpcV45OcGJwQH+Hp6W' +
           'ZgYGBrZwNprYeDtaODnbODPSeF1VyVf+DSyzclb6oVXA01HAmPnvn' +
           'FScGCDAGBt4dLdFEqwpb6lHAlIOKmENDnb736H0Fev+g+oAc08IeG' +
           'IurZvu+opHem5VDkJcUi9tIH3K+6DuAFKR8CH6VE5cAlFsRTkbKwa' +
           'mrgzoLk8dR1Fa0JQCT6cOSUZKzlymVIv1etsndw8wSx6h8cnLNjd3' +
           'JTc4S3556DOxfkQzPjvHmsKIJO486IdT1W4voEK6CsADTRj42Gse4' +
           'ZLCzwu1/eVleWVpQVU12chnmQswX4Ny93B0iiIbphNkF6zcYGBgGe' +
           'jqlRnuxoj/yUgJqcsNqs8NbC6K11SZDCHAIL6shZX8qyZRo72zsEB' +
           'fo5Ozp4ujuERriFRHiEh3lER3hFR3okJ/omJvg7u9gbGRkxmcbGxv' +
           'B/I0sri+io0ML8zOqK3N2vHH/7wR0lZO7yXizd43ngEYWGQXZehh0' +
           '98BWQx0EqRCxoJSDBMiDsqut6qegYiR+4/h9B3iTHSV8uloIFwW9+' +
           'c7gN81/5sBpb54OgD2ljVCUF59YrvX11y7Y163esrWksb963/8Kdm' +
           '5oP35i6zz/bdarjxcPeMSyv4AhX74D0ssbU8sawtGyfsFhXv1BzQ9' +
           'NAR4eGDes/nBicud8/O8ElbRQuHQ6Z1c8qPAeIFGBB45F2KgJCC+K' +
           'd3wl5UGleDMmDotz1gEgc5JP5Afi8AyYGBmE+zjlx3tnx3iXs4DoE' +
           'FNJZkXBgddbRNZn7m9kvrs/dXBFvbsBwsHdsqi2LCguBy8nT0y4u3' +
           'j862iciHOgEJyeGuLrawO8tLc2cnK3d3R18fN0szE3NTIxzM1Pa1j' +
           'X2TD9Y+PCaStajlvXRphgFpCGA5p4C4s9hCjDyZAUgiCBfo8kICSA' +
           'MFp/dPPenotQn73eRSHr9y+EXAcffXR2XAWnvdv+NlN0gP9XIhkiK' +
           'NESGJUgfUNK3MNGXn5Xo4WiVEONlbmHBNDBIyMraMyKo3tYJaCI4O' +
           'e6+IZl1a9KrGjPq1gQlpvtHJ5hZWNmaMCM5GQ2nT5+8Nvh4QgQWMT' +
           'fZjwU60vHUZaA/AjT/HKD7OkB9Z7fXlaaV5cXUlKRnp0d5uFhRQHO' +
           'kskQsSICADA3jgj1KUwNK0gLLM8MacsPXl0XtbUzZ35x2oj37/NZi' +
           '0ZHq42szrEyNzC2tOWnJIQF+pqZmtlaWEQHuycn+6Zyg1JRIV1dnQ' +
           'sfEwd7Czc3a29s2KNDd2traxMQkLzNlQ2dL9+MHjx69pZT2qKS9OA' +
           'YjfgoIEoo5cG5TOMSyAGkIjmMNLa0ARIPIb452El+HlToAhIGGwyJ' +
           'aFA7R9x0V5D7tFBAWVO92g6978kEX+HPVJJ3aQutTKwRKaV9HU4GZ' +
           'ASPOm1nTVJFa02Fm6wDv34cVH5mVH56ckVHdklRcya5pTa9q8QiNM' +
           'jQ0smAwkmpqdvRe6X/ndcmDm48e3sB3Lu6bnehblOB8C86NiKlIwA' +
           'x3Ri8PaB9wYSWgD7pnSK566YVNjVW5lUVJ1UWp2WmRILMhACGgSd6' +
           'ihIyFYK9fxDQ0TI3yrc2JrcmOrM4Jby6M3dvKPr0p/6UtRUc6so+0' +
           'pl/ZXnCgOc3RypQ26Tyc7PMzk9Lio61NTQP8HdnsAA8PO+xBGBrY2' +
           'JjZ2pm5u1n7+thGhPnY2dozTZhlxdlbNq2+8kD8ySe3ldJeOHDyak' +
           'UTB6uacgQE0QEAKWUiNeZBy01VwQ+cWB2jI+2EmoCaFfzmV2d344w' +
           'K3F8hBEeH1bab5/R9JVTL2LOGeIcjOiJSksUqK+/NHlc3Fz9LRkZu' +
           'QuHGgyVbjqZUNPmER6eXN+Q1d7CrmznVrcnltZ6RsV4hURZOLg7m5' +
           'hUtLYKFjxenrivlQ/N4heM7BNDzE30LkzhPqCKA5kgFb05ffKPZkJ' +
           'pkTAQQb+Z+LwIiFnTl9OaWmuzq4qTmqiwA5O0GgBwAEPBVyURaOjQ' +
           'IgIwMs+MD1hbENOcEbqqMOdqec6Iz96UdNecOdeSmRtuaG4W62wa4' +
           '2ZkYGDrbmIV5WGWzvPa1l7ZW5JiZmIACtDJmuDrYODo4GhoaWFga2' +
           'tkz3VxXgfxOSwp1d7I1NWYW5HHAgq4+ED96dFsp6ceBK1L+1c2wYV' +
           'sHy3G61ptY8NxYDtz+RfdBCogwWrccmP4W5A3a7Mn7vVoy5PPlEOr' +
           'qvwV5LQPSYcIWJO1EoIdUy/sH37sWlhQdE+aRu3ZTYllLdn1r9c4X' +
           'ctduz1+7Ma91fVp5fXZTh090ghGDEejnt35jo2D41V7N4kef3MbGE' +
           'GkrgMYm7xw+Tj8NGWBBpAFEE9un/g3bXhIivMnI1uw4d/Z+7xwB1P' +
           '3K9vK8pNLcKHB0eexwV0cLoEMsiPRfpshwqXzY2NCgKCl4ayVrR1X' +
           'UyY6My7tLTrZnsqMCAn183JxcnVw9La0wuFhYmKbF+q4rjl5fGr13' +
           'bV5LKcfClGlhYenl4spJTYgIDYb72NmZeHvbBAY4xcb4piQGRkd4u' +
           'jnZOFivqijL6/1INv3JLUwMJf143mSkr60HRDMaOrEGsgGsA47luU' +
           'RwTaClUU4TzUzsCAF9MfQSbfSgWWFsApQHvm+veB4QafDRqRXwkBA' +
           'E78pvBKSl2ji4JpS1BIcEhvo4ZFdUFnXuK9lyJLtlPaBx9w5w9PUP' +
           'i4nesXvzx+/1KsGJPRglrUysyCkBwaRgSQYpG08l5cHtRbFuCGFOw' +
           'l8iI3YzpDA+jw1xnBuZRzpYMJ+f5M6N99Ly6ZXTWyqLkgszoysLkj' +
           'NTwkkShIDmJQNEc4Krx1r9KkuLck7Mqc3lZ/Y2tVVnpEZ4JIW4O9l' +
           'YWa2ySo6PzsvluLm5WlmaRgU5VWVGrCuJby+N3dde0FicDrIhLCSg' +
           'pq54zZraiNBAbHB7OcbEBsWzQny8na0smI4OVs6O1l7O9o2NFT3TD' +
           'x/NvAMZN47+SkgrQaEDROcDl2jLQIrjGXDOdZVnBIQNke87a0gZ7S' +
           'RlhH9CaTfy211r4J86mnq7ex6QlMx3KehfeUoZ9+WeF93Cwj0DI+L' +
           'yyuCdepkxon1WZZYWgq/zS8yCDxIRGdH24nHuzwanHr6GQynok/lq' +
           '0vjWSokrRkDCJxDEZWihaDIE0OIk/wm5qGjeqgcknMMOUT8O54Ccm' +
           'OyjJvbqqQ31FeyiLFZ1MTbsAnzsPVwRkFIGIXiYAIK4OVJdkZfNSS' +
           'jLTijJTw8NCDC3tLK2teNwkla3VretqwsL8QfJHODrmsvyWlsQ1VG' +
           'WsK405vD6wqbiNEsDw8jwoMbGso7OxvJ8jpvtKhtrKxcXZzdXFzs7' +
           'O1sb+M82MMB3zeqas+cOvv7J/dlPbpLZbOLfcKAUNbZaphvg1OqHo' +
           '+DGH+rzqEMDJbZ0r1/z8Prnty/pUhu5YJnRk/e52gfXQCpgAWdFl/' +
           'x5QHRmVTfFzeu9foVVXePiHZBQUJNc3uzn4xrkxIhwZsT4r4pkBUO' +
           'G4G1puffU0Y+kI4uSHtB7KMvhukK3jOGMjB9g0IcrCqQmYNLitBtx' +
           'X6QH9CnpSpDGH8YgLamjzkz0TY/3LpAxY/AhtGd35fTW2nJ2WV5sX' +
           'VlGQUast7stWJA35EHyEQJogIzsjj6eGCyoKAZHZGpiHOLlWlWaXV' +
           'WWU19VsH5NzfZNLazIYCNDw+gQ33J26LqS2I6y+I6yuOObSpqKko0' +
           'ZjJjoiLVra9c1l528cGL90b0enq6WJkarzJiRIX5VJVl1VfntHc0v' +
           'ntoFeZka7UWkkmD7chkQnElwF5DyLJEPpdED+vzm2eWgA4HmyZhI+' +
           '2AI8lMipDEhooxAFXx+6wpQ/kJ0Qk9n4HlAWCylgFBdvP1zbtratQ' +
           '6uXjHsgpSyhoSiai8fDy87RoQXI9qdEeTMACWUHBn9ymtDJGnlggx' +
           'QSrAHSgGBr1ugBQTsKgqfEM2/RIZ7p1cA+nQKC+OPx+nsIg6bzYz3' +
           'ACCQCjjCJOUuirFe+hrv2MGdrdXFyTUlacXZcUG+jh6u9j6edHh+W' +
           'CMnpZ6p0UXZ0KtXT207cbBj37bOAzs2Hd2749Sh3aePHrv88mnepc' +
           'zifCMjQzYrYG1J7Jaq+E3l8RvKE05sLN5Sy/GxtYoMC2quL9u+e2O' +
           'XfGxE83j/hRc2HdjRcWBH58GdGw/v2vnCodOXXpjTrynA+TcchqRu' +
           'B88nnD0U/MTL0SlBCkirNxNaE/iPIJ/P3jpPZdtnN8+Cm6JxihZw1' +
           'LJBMjasXyVBBxSXAcl0M5PwS8mEqHTPDmefgNAETkpJXUJ+eRQ738' +
           'LOydaMEeHNiA9ghHsyzE2Y0d7+L97AqgIwhZOpxIYdj1RQUR5QebZ' +
           'Am4PYcBdpyTykrosKJgPIpiDWEEDYp8ApoJnxXgBEehYiDQCa6IUn' +
           '6T+7va2xoLIwFQDRqR4qs3HsSjGikY9QQDiC9fGNNz6dHX0yN6idG' +
           'VA/HtTMDGmnR79YvPW1ev3xfZYW5tlJ4WtLWZsr4zaWJWyqSt69Ov' +
           'vsrpqdjVkuVhZJrKgr77wmn/354iTvfaX02mcLw09mBzSPRepH8CS' +
           'PP3ljWZLhZD4OkQr1gLA4uSDm66abnh3i/WLwJPVjvzm6gVZyvt3Z' +
           'oA83fAxMctGvzm77vrNKDXmodBnQ0EpAavpCBNBH4qF1Lx71CIv0j' +
           '0hIKq5NKKiI4uTaOLsyGIa2FowAVwLIi2FhxnRjWqw/cey1T8ZnH4' +
           'xosHyKPVAKiNZwMLhIhWQUEz0eWhD8CUcWcQRIQzw2uMHHEzRvxZG' +
           'hmbFuHKqfJCtrZNyFCRRyQ1f3N1RkFHCwo1rIiXJzsvR0d9QBImtG' +
           'yDKHUa3uxsjSw+v4p+Vj6rpGPnjx9FaXVVb1RezdjekHm1IOtaYfb' +
           '8u8crD++OaqmCB3HzfnmvrKW69fxvEkyKkV2CwApbT0cIgODumn3A' +
           'XPAJLR94mum1oQznxKnx+0plMET97v+brnKK1LE4/npcblRQCIri0' +
           'a0siGNDjDzCfrknQWREek1FIRbfNNywZ2XnjBJy7BKzAiobA6oaCS' +
           'lVdh4+YNXtrW3IrJNHGwZER6M2J9GFZmDGMDZri7x8G3bykW3kPNJ' +
           'uHNka6oSjIAAhjVMoR4cHcK+BQ89SQPwtAiCUxgR0rSeMVFNwQQqZ' +
           'cKMC0dx2nSaRwuhWsGsqfe+Ume6PLepqrsyvzEpnJOSXacn5ejB6k' +
           'kaB88j+anD8XoR8rxdgHPzc1tXWXW8bbc023ss5tyLm0vuHFx09bG' +
           'fFA70azIXTs7bgpexDUsWPQY0OKcYT8Wkci5ehbQsGaKDvEioF+9v' +
           'PXvrg60168kyfhzRvSbo6QxerRdLR/8YuAkndeFQ3vvslo/K4JElg' +
           'HJB1XSARzZkuG0+aJERIYe4RC+OflGfH29q3dQQn5lfEEFMHLyIwU' +
           'rY+O9A0MFe/fZWzBCPBjJQRiMbCxNWUEhJ148gBNu2I4nBQGsew/M' +
           'TwrnpKilZyeEC/Aqk70qCK8ykZKUeVWknqBBGSCkbXHScQCvyEOTQ' +
           'UCQw/YrJ3tJr5Dfd2ZbbQm7qiixrjS9JCcxxN/d3dXuXwL0UDVx7q' +
           'Esp7Ik1NuN5eeQGOiYFurCDnfPSwxOCPPz9XQtymfv3NnxxuA5NS4' +
           't4ZOBKDjPfdjFlv0YEFqQDpBcAAkLnG24DuF6A3kzI3l+/cLS+920' +
           'uUPMTbT0ftcPnBh4yJObZ3ASVXGNCPVBjWSAAoJXVIqxl6fFAWY4V' +
           '4OQR8A9VbLBtyZfi8gvDI5OTi6tTSyq9giNZjAMbAwM1hw6eO3v/7' +
           '52ZNTMzMzbjhHjB3qbYWbCWGVmk8aKHek/oZ1CTbIwgSvv4AlVk8J' +
           'FKSqEOSQlmJ/sVRJAKj0g5QpA03pAEIOAyNx4P/YjcCi9B9wm3P9a' +
           '/5G19YXFGVG1ZTiT4ONhT/Ogfx6QWjE89+Hrb4yej0qMd3RwMDe3N' +
           'GGaGzPNwG+DnF7dUrl9+7oj50++/8EQihM6T4hDGv2YOaIXegpILS' +
           'flWQzifPJPAa2eYY0UHALxG2ra+6Z6jIzBU6nw1ZV95NngUVx9qw5' +
           'O/nXs+skGyHoiXEqGV7KugS6A0wLnE5JxtWJwduq1tt4rTn7+AZGJ' +
           '6dWtfnGpBib4GerXrx/57dfTc+/0jt2KK6t0YjLiAhnJwYwAF4a1q' +
           'Sk7PuHCq8dpzXwRE39AM6TBRUagHAQrAaE6JUXyBZIfaVDs6VZKLt' +
           'ADNUY/BTR9v2d+opvKddGVvfUVWdVFiQ0VqTnscG93PaB/zGU5NqG' +
           'QGAK995F09Lzw0qEXDrZvbquvK62pLa6vLVm3Ye2+43tO9114f2xU' +
           'hVUj8PYQDgbIWgCuWsoluaHo6To4OIGkFLacTlJAVL8t0NU0MgoIh' +
           '8HIyjIhLYr+G84Z6gCpde0hOPmvaXFh0QBtwC2RNY9KUoEB4nMTQl' +
           'CnWvCoisGH0++U7drq6OqZ27whKrPY2HIVhJ7CoqKer7+amXuHKor' +
           'K3dssjRl+Doy4AEakD4NpZOzl4dOycf3NO9wlnJ3gQqxfBP8pxcQH' +
           'zu08WcY1Pwn+CheJQHqlIiuGFqiu1i9lxfUpaFlc8P+zE1z45fT93' +
           'vmxbgyOEuHFk+tL85JAwlUVJWemhXn+y4BwGREK8qlR9YNrkk/eOT' +
           'XC37qheXNn09bOhuPCnjuf3FuUD5KaHo/UxkdJIxveD9gvl7ZHlwe' +
           'qF+HsETmtAyQTPrUgsiAFz62UAILXhQwa59ywAvAHYkRfiE4RQDw1' +
           'eSxtA8ErkoUPIpyNp4Do0i2MDoMqOUidIbgqpHMfZO/cERgZm17Xa' +
           'mnvbACZTnT0y5988kArhhSMLrrc/dIhl7AoFwsGy48R48twtmUYGR' +
           'iwk1NOXRv47AECmkGTET2RYgFBLcZlLKC0F4iuVslwvkVNFmotEkD' +
           'zxIJm6OycmL+EWr1/dlwHaHasi6zaE149vaGiILm2JKm5OgtLPc6r' +
           'CCD7fw7QP/aBoziPihYxTFenkmmoa0Tl6qZt6boPqtae3Ov6Mzv2j' +
           '0Vp3xxpf/Jel77Lg4AWl1tyUrqSUaR9OIqmISbrB8H0Puj61dH1as' +
           'kgzTTRuNDPDGofXMNLSD5I4hFZtrys1VEbD2GQwuET4a03Lgaz2WH' +
           'JbNfAUKAT6uZ24ObNiS8/ImvHRBSQdHI4Z+cOZ2tGjBfq7TAvhpmh' +
           'UVJU7CvXRU8+hGsArn8c4NFKSGWATJXgkkAxClGlrE8j6yNzpHwc/' +
           'qeA9C0hlZi3BNnuZB+Oi4jJ0MhYl5LM2/e8sq2xIrs0N662JD0/I8' +
           'bNwdzdxQ5nEv5ZQP+AEeoxMgE1Qk4aF+dtngISYV0R1YIO0Gc3zi3' +
           'rZLLWIPj7tnIaXxaoHsClBLqBeQJoBAERyotTIqViBFwcAYTpD1nD' +
           'OACJABFyA0sQUlFg81csP4HTAu/kGnWwb4++5BEU5hkSaeXg4GFmu' +
           'vny5Xe/ntNib5fMFRNAC7LBqvYW0HV+zgZgRODlrE2MUyKjXrx9Qz' +
           '3zlhoBQSrKW5ToFt3rehkk3CilvWpZ76Lev5EV38uA0IK00r5FBIR' +
           '+Epc53O9ZnORCwBq4eqChEtBE15Ww4ae7s4WHi+2/YkE/CYg0yORo' +
           'ONoHZNG9DpCQ/HUQV1qhVBCRwpcOEOY+iqEnb1345mjbDxzWSli/q' +
           '8v9cuDkkpy3pODre6bDOCkKLGiupBCpMNmhGc0ASXN4GgpIBuYjAk' +
           'BLFJCMLo0UkFx4WCOj1i384K2LCWVlJdu3bjh/+iX+lbc+m1FOgcn' +
           '3q4nN0lWrYBTv3L+W3tHhbmkQ74c5EdPYwNbEtKS66nXFz0CEzOKo' +
           'FW+ergYiax7VYgAkQguSdKkkfXQcSEt6keDZQIrPiOl4MP+JnLsox' +
           'oHSGVyLxJ8dA0B9EJ5Gug/WFCcWZsbUlXHyONFuThYeVGb/bwG9jh' +
           'IaAjok2lPXNLopXGz6gwYgA2y6uXfdRChZ70bmRYc0+jWJn4tO0JU' +
           '79IDbf6jPIbM6QtJZQ0FO9Z6KJOy65ca0iyfj0fX+xKyES1MEkIxP' +
           'zzaxIHgbQ6jA9RJFCWkauXLmJMJHuDirT6ug4z26RdwQyiXT7+buO' +
           '2hoYBjixmD5M5ztwMsZJEXFXL3WC08O+SkFhN0E8k8lAsLRFyXWVP' +
           'tBWqvIhhjUlEgYItVsmeCJAosM2K0jlkUBgT/sO7O1sTw9nxNdV8o' +
           'pyIx3c17l4fKvAhr5KUDXtSB6QdlOjWgeXCNXtWCFexEul780ekCg' +
           'PMkKl6eAwEXQQTXQad/ubFqGBcb1qzNbyaqlYd0SM12NbmWWJMCLA' +
           'QDhanoEhIVf+XOABjWyZza+UEpJ+MbYzVPJ+yFvgjOpkurKNSoJX/' +
           'H4Z2c+VLjHxruaotiO8GZYMI0jgsJ279k0da+fLmlcQEAosx/jzg/' +
           'E9CRcsu0DjyzeJAFoUgeIVufomotFXVQS0KVbFFD3y1vK8lJy2VH1' +
           'lVll+fHuTpbu6OL+N4BGibob1uovY82D6xr5yPIYIa7Rlg7oTjIBt' +
           'Lz7B1mONKhvWEPYHQRAf2UFU+sD7ffF4Inf1+f9lRXy9StbsQI5RS' +
           'dIgQ5WJ+htWnCDA+PO1CjKRdxzY1RNVhmjutOtWyQ+li5Q1U106wp' +
           '05PLmkY1oBASQbgcMHImf4E9op4r27bFnMKK8MAyZMxlMA4OsrOwh' +
           '0bl5MV1ywqfbhjwaI2tJyOiLEtIKHAkW0h0tlgHR1UaLUtx5gLbzZ' +
           'mlhAVe4Q1TiXzi5sbI4sTQ3qjw/vrwgwdfT0cVhlaer7f/OfEbpJ9' +
           'KQddNaAASxAE87jzh/AZ55VijW0N7rUsueymwNDmMLdYCwDzUMLAi' +
           'gZ7YQ0TVVcQaYbj8iIHQGtbrCDl2VP7IEEm5qCMdO4PkR0BDZUkBA' +
           'Rk30fVi5gFrH001mdD0dHByFs4qAJEI6Fk4BjX14p/nSq46BQcEuj' +
           'MRARqgnw9zAID0++dWeMx9+0EcBzZFVD3Q3GKVuZxsB6QrRgWHd5j' +
           '/zyzsnkD44XYeygIPfwhkAJMadT3pe3pKfEZ6fGVlVkpTHiXFzsoI' +
           'Y9L8FpKBT07RJrfdyCuEyILiYP3/rIgAiTc9nd5PQrZ2nC0ZGwa0B' +
           'oOXc8ykgKY4oIBSsswnIEi1SpiYL9uGxS7hwZhSsDLsMaEHDZBU/3' +
           'a6HZkkk4ZLhJicYF6TUgkSEDl1Iztf5JdI1IIAE8xNYB/jZ2DVOY7' +
           'Wfg2FioEGYJ65ls7K0LqyqPPfOjU9kg2SVnI4OsSBss9LlLVTaUcM' +
           'BQEq90tY9hPg3FXZUEdDiRB9WEi7urClOKcyKqShIhEjk5ogy293Z' +
           '5v83Hd2ePHD2HuBEEALCjZWuYesczzNdiYNK+NsduFz3KxL0iQcjS' +
           '32l5LRPkT7Ug2tkQDdWTZo7GEGoTib7a+mXbg1odIMlIO1EJO0aIs' +
           'uarqunhpTwQAlZm48FWIxroASUuMwf3p6QbqBBMzKVfkcgyJh0/Vy' +
           '09F6cjhDrNl7AJahYKxBMS4bzO9Y6OttFeBjE+TP8XBiWJkYJwSEn' +
           '37s3oxfP9IQvktcibxhP+6JYl6I+ItmrWp+rYntigk74CDSkcgsub' +
           'u4+6Ap+1+ktNaWpBRnR1UUpeexwN0dLNyeb/xUgBVFWUyBxh8jYLR' +
           'YQCDVdnkj7C2TbIgFdYU3TUhXZMAoBIZ1RKg6xH9dertbtGMZVP92' +
           'NR6CXBHRzGOJOpwRkvGqULAy8ppoaXJTjqIBa36QA/wlnbG6Ct0Ba' +
           'tM8AIiNexGcOkZjOQzuF1FKK0ou8AQSkIRpjUTLQf+1yZEZqqIdhS' +
           'rBBkDvDxNjIyYTZfvzYoPwuNZyZcSy7qRVPdwqi0Z8C+oRMJmgkKw' +
           'aA6Q4kkwItrvQUzk/0gpADf3v+eFt1cWpxLqsWp3pC/5+Alv5fCoE' +
           '0X+gatyG9uoZzOKRbTKrQdX++W1e+rJ/JFMGPAWFLF3twOxo1tBSM' +
           'kUi/g9kUmSfRY9Jt7aIQ6H0sDlRAZqTE1iSdNODjAPbU4IJM8Og+F' +
           'xu4U2RGSNcZpIC41E+qZL0Y05FLnwoBCajSVtEJOmy9iaYW34vNz3' +
           'E0ZbB8GElBDHsrhrWpZayX95k7b0CuSgPQokygm0CeoiMiOFVFu9u' +
           '0RqpXjPpRRrIolWaFC1jZ7oVXvPTCppqSlLL82JqS1Gx2uIeLjZuT' +
           '9T8C9OAf1bexAUf3GcMAgcoKDIQM3gyqaRwndZXvOyqp7/qq+wAd5' +
           '8DshtSvMBbAfbAKgUOeS+916zZswdO1DEhE86mngHBAa4BcFaOk/j' +
           'a4hDtvDOO2dVj05pN96kDXDQOgT+7jUDqdW0DnI6P78wixfot+ckA' +
           't7yEWJCKAkJRuWxIpOdV4WzQ3d2e9gO/k4eZqb5QaZBDswbA2t4wN' +
           'Cj3WfVEhHpqWDuMmPDJSniVXjgqX5gno7CJu2kO2hgObnV+u9hBpN' +
           'zPRjyv6pbg0aWGyB16x7+z2mlJ2QWY0WFAuJwLQ/ANAYD5PHoz+j0' +
           'aEJZ1B/bQnnyykGvq+o5wsl25WkbyeCC0+2MXv6/LoIA0cfwvyooq' +
           'OVqf1cx0Dui0f9S5C17OW04G9If2oPF4JZBx0kAxfkSYvymyycFhX' +
           'WaKAhuDNL8j5n+CCdwGZJeCpl4s/kBaJuZgH4dxvD13CQJQ2ny4Nw' +
           '51VFDpAamzz8eVffNg7eMHF1T7K3SDEA6UC08A0IiBo/ZmXP/z49i' +
           'wZgViCtz2BvSeNfu9B2g+aIStSF/V7yuEFQ3dbGu+fxjlhHBpRSnF' +
           'A/erpzZVFyQWZMTUlACgUEtV/4OL+CUDLnQI+Cdl4cv4W5Inn/8ar' +
           '2odwbQ991bWPaIODy4A+I/sSAKYn97p+vHsYmQgVqfQJJnmJQZIB0' +
           'f4RWZKAK1IHVRLccOnxGPfx/b7psT6IAtNjgsf3eTeWPu7+0x+mJg' +
           'eeTA0v4jYFkOyTjQoh1si4+ucUkdDTj00QRS9aDe701acDtLz5zJR' +
           'Qv8cgxsQ3H48FJMc7MBlh7gwfZ4aJiYGLlXVRWvK9211zZPsmLCNM' +
           'kESPrvyS6Bp285Knk/MrAeFWfhN9C2i8AAj0ieDcsfXNVVmVRdhxy' +
           'GGHuzhaAB04NE8HEv7JGDSqB4RXDiShf3dzfPIeGCnvs5svk/PvrX' +
           '34OpzMT988Q3zaAbUuRUUKf6jL1Y8aPgdIQFaqDmrovoJPjWtYPSW' +
           'afOsVye1z0jsXpW9flN4+L71x5sqptSWZvhW5oeU5YVV54SWZIckx' +
           'XolRHknRHhHBLoo7r6okNDfBbbsIEWylkaogNtSU4n4IOlo57pWqJ' +
           'Om/ikysqXTLMHWFKd2Y1kPR0LSk6MQpY2t7UwYjyN7AhmngYG6Ww+' +
           'GMjlycJ3s7aCCqIiDSK8FSD5dq+EUyI7e8fRyO+uB+MiDjwbNBVks' +
           'ASfoWJ3jnT2ysK0uHFLWpKqsgi+XhauPiaP0PAGn/OUC/Odb5X1YW' +
           'S+93k5FaHp0c+F1nLY5USfl/d3X8C1ndtrwumy54h3j0Y0Akex38e' +
           'OHerf49dwYOvy068rbo8J3BI7zz60syfYo43nCUZvoUZ3hnp3g1lI' +
           'StrmI1lkVV54cWsANKMoPS4rwCfOwjgpyjQlyiwzzeHTm5IOWpsLc' +
           '+gm5EQleKiUgjHqyGSwDxngEkWQFoeeQe0wE8pe9+cq/yzFkLZzdr' +
           'M1P3QL+wuITm2jLF3Z5FMs2Fc9piWlkCQH10pFlN6tuzKwBRkYCZE' +
           'VYhsGOlkvXPT/TMjfVdfnFDWX5SQXZUVVFqYSbL1cXa2ZHGoFGS7v' +
           '3z5Z3rdEIDl37IcKteIrOx7YI7GcoEf+HEA6PPB05Aav+rV7ajvRS' +
           'lau5eXbrX9aeiNLo3jubZeppWD+h6/77dI90Z0auykl3z0jwL0gGH' +
           'X16aT1aSR2WOb1Wub0ayZ2ykS0iI++bWpHW1rI76+OqC8PQEn8wU/' +
           '/R439RY77AAp2BfRxdHy7K8eLj4SdFvWIUj+lxa3qEKE3WCDNfpk9' +
           'VJXLJpKl8/PvcMoKfVswn+zx/e6bh2/XDXS0OCl2+9dln+sy5idwL' +
           'd+nQsRJDxSz0g0svG/VLoViS64hupmmIdA8d+eCpJ79xY9+x474UT' +
           'neX5yQUZMRV58dlpEZ5utq4E0JOHo3D864BwmRu8HzUkhlODXw6c+' +
           'O32BgAEIXjpAx6d7lh69zKoOyrknlPazwGS3zl/7kjTpRfaCzP8Ms' +
           'MtqgrCmsrDSrOCijjBZdmhWcn+If4OidGusREuHp52Dk7WVQURW1q' +
           'T22rjVlfFFmcGF7AD01g+6XHA0T8qxNXB1hyXqMf6vy06vkT0DERh' +
           'tW4bWy5NDWhjWkumHYh9EZGgd3Go4qT6Su8KQGAFkkc/m3twXSOGZ' +
           '8DtnlRSXW6Fq/ZwF0Q6P0YB6caDZ8XCxxI+7nExKXi6DgUeNUkmIS' +
           'U9FNArh9eBfivOYlUWpUA2FBbo4UxqcZ8+HP304aj2XwM0pNcGdPO' +
           'igW93NMHJ/+XLW6l4/uW5XciiLhdrQVO4TcR3bRXft1d8MXjyGZ9G' +
           'bryueVib4VlTFN5UHtNaFdtcEVNdFNFcEV1dGB4f6R4V6hIT5hIe5' +
           'OTr4+Di7uDt41RTFLl/I2dnW/q62rjaooiWyujG0ihOkl9qnHd8lH' +
           'tavHdEsLOTg6WjvWVOWqDkrTNkj6ZeHSApV782mexXhhtN8wgsPt2' +
           'E5BlAdIdnMtuGG8dN6EoB89g9JGpwJSDdvg0UUL8eEBZ/ANC0hD/3' +
           'LCCsVEzCS/cvTvbO3u+eG+87e6ytvCC5kKi4/MxYd3274bMPdYCeR' +
           'qIHI9pnkiCS7D9YzoCwhqAlgL7uOfjF4Cm63/V/UAl9twuLLVMDP6' +
           'THkK3YDuIuIrq4/5SL6OKmjc0pcKxvTW/aWFme6ddRn7htbeq2tSk' +
           'dDQnp8T4Zib5gOJxE39Q4r2AwnyjPkABnN3e7yHCvne3p29emAqC2' +
           'uniIQa2VMQ2lUblp/nnpAUkxnjFhbgnRnqH+To52Fn6etsJX9+CWl' +
           'RICCOe7uBr9NmVk9zM0H42Mp6EbzMpW5EE4nCMiw+06cHOTT+tp2J' +
           '6jZSicsCJpHebUtIZPB86xRoGOVIxr8+cldKsr/cpisvobCx0TvfP' +
           'jPTP3uxcmude5hw7sbKwoSqgqis9Ki3J2sPQkDbtPH448eTiixjon' +
           'nSAFgY2AKC/6e5Tcy4CwoUAXtIr+ygoFGfDkXjf4ii/pgneM/rgpo' +
           'ubdLvgTCrwPup9r34xc3VGRF1RXHFFTGFZTGNKQH9DRkLh1deqW1p' +
           'Rtq1Pb6xPYiRBT/OAAQEmxXhHBTjGhzgG+Dm7utt5eDp2NCdvWpm1' +
           'dk7pjXXp1fjhwKeAEws98dgD4Ola4ayTe3yXQ185mlVkeO0D81su4' +
           'KkFMNzrj6cZXsGqNm4yBxNUqyKYxzwFCfDpAdAkt2e4AdzInO5HyN' +
           'frVDWR3C1L+VQhU+s3iUChK6eonIV1mgoBw17LlXSxwo7k5kAcT3T' +
           'P3cU/drpe2tVRnlRckVhYmZaaGQQyiFgR0lgigJaSAXJYBLRFAWhK' +
           'knlZ4dIk8bor4de8BfVjBLXTo4Me3O5vI2xZ91XUIV/EMnVpZTIOf' +
           '13t2rq2JbS6Pri+JXF0V09EQv31dGtDZ3JIMPzvqE7JT/eBsw8FJ8' +
           'AHxHB7oFBrgGBbgGODv6OfnsLo6dld7+qbmZHL/5Mrc0IL0gCJOIB' +
           'xl2cEEjT3ErLBARx8PWwc7i0KOr+TmaQKIbF+m222eAMI69jIg4Qp' +
           'AuEZSSwFNCnBHYikP511x1ldw+nCHhamBGdPQwtwYDojjN3lHMT+V' +
           '8emG9mBE8HNXZyXcDY70hLCH717++H2yHwLuxKirZkOaNjPeOwcWN' +
           'I5VJu6FXdUlqfkZZJV3RpS+o2r/BNdQg+NCM6G+jvxTh+zzty7/sv' +
           'fIZ/e5y4C+HDj1+c1zZPIZK9V02OMXXfuo36aLrb4QHoNckqyYGCS' +
           'bHa0EJHzv+skdbewtq5NbKmLa6uLQZa1L26wHtKEpEbKb0uzgspwQ' +
           'OMDdJUZ7BvnZA6Agf0cfX/vAQOe2+rg9HchoU3PS5pak6oKwkuxge' +
           'EhlfigACvJ1CPV3hJ+ebtaO9hYpsW5l2b7oiLDKrS+SkyufzGzz6J' +
           'dBqCRCfRjik3KfkE5hLUzgUlk62vf4g75zRzsTw61faDXeVWXUXmC' +
           '0tdRka4VFfKTXcNf+x2RbJGD68b2eQ1uq08OMzrUZv9pp3JZv5udu' +
           'VV0Qfe/6S3M6QNgBR49HJkvnJsHWhLwLu+rLMyvyEwFQSU6iv5cjq' +
           'DgPFxsKSKsHpNED+nzopb+ywqj0+mNj4fJMAiDAnaUVZKJGJtK+3w' +
           '3/xN0jf44FnKX3u8gehsEqnC0cpEU5rULwnGybvHlmV3t2e10cnN5' +
           'dHek72tBlbWpJghO+dXVKZ0NCWU5YZT74wEhOgl9KrDeIBGAEdhQZ' +
           '5urj6xQc5NbekLBjHdwzbmNzQmdjfFFmENAszw3NTw9kx/uCbwSsv' +
           'p627i6rwIhKsvSAZCsBCXCxDxZqngdEN0CmgBYnhLMTkC5xQSq8dH' +
           'BdcrjlxU7jro1GowdM3jxsMrrX5IUWE383Y3s769f5x2dI33zruvL' +
           'kYMNz64zPtxtfaDe+2GEMD+koMEqLC/7w/d5lQCgLx/oXxb0LaMhC' +
           'wcXd9eWcyvzEmpLUouzYYB9XF4dVtNSzRIzls4fISKPjNQLhA9D8u' +
           'YTz7fENX9y+tGxBdJMoso8HmeyV8b8YOkF3aiXjvoLPbp759OYZUq' +
           'yjO8wM/RiQ+K2LG5rYm1oS965n7+5Ig5gCx4amhPVN8RsaEyDu1xR' +
           'H1ZdGleaEglrITPTjxPuCywrytU+M8ogKc3PztM9mBx/Zkrm+KQEf' +
           '1ZjQUBoNQEF+1xZHsePRMWYm+oYGOFlaMl2drOIinNViLCPotp7WA' +
           'eLT41lAuI0t3bpcM4W3F3EjMp4KZ4cEezbUFMcbfMY3uvuCmfSS7c' +
           'NLq94+ZnKhg1maZGpibMi/tG8aF6gK6ss4xQlGrx8w6dlsAhbUv9X' +
           'kYqeRtzPDy91Z8W4XTvxOCuZwGQsXbIesC0NzHu4+0FKTnceOrinB' +
           '2WwvV10eRAF9ioDgJ0q4J1OjX/cewWiyqxWowe+XFQIxoiG6EgTEM' +
           'yn+cyHyfru9iS6wIlkeViZxVo0uOsDa3fL2IHgDsp7aoqi1NayDGz' +
           'P2rWdDQNncCvoNvFzyxubEzob4prLo1sro9npWTqo/ZDecBN+sJD+' +
           'wi4gg52A/e8hGvXzsoiO9NjYl7+1Mh1wVmLZDxloUUVcSCVizUv0z' +
           'kvxy0gOiQl0hYwU5tMrKVEMmTlGzKfikkiAgI2HokUi9V/DUgqRcF' +
           'a6CAUB0UbCQlKB5GonglYPrcmNMfrhj+4vXbNRC6+lu67unmMLdFn' +
           'saveBqH+o5goAkvDW1OZ2Fxr+/YfrDLdPFfmbvFuNNxQbmJoyIYJ+' +
           'H97qXAS2I+xfEPJouQdTmXdhBN2SuKWHjhn6uWIhbnov7DMLNQyoP' +
           'ENDvOqpRJPceBUCf6wE9+YD7F07cr87u/PzWJV0qevcqAcSlMzm4P' +
           'EGim9ZQ061EcWJqlPQLhPSn7O1z65vSWitZu9rZ+9Zz9q/n7OmEeJ' +
           'QKLg4OMIe2WhZIiPb6uMq80PQ477Q4b7AIYJSd7A8KDSQ3ZEYRYa7' +
           'uHraRYZ7wkJ1taR118YC7tjgCVEdDaSTQSYv3SU/whceCzHB1WmUN' +
           'gMgoHSaqZA24HhBdOybQ7RekB0S+SIJsVIuzCkLaLwBAezZWtxQ4/' +
           '6c44Lc3LD4bZH582fT9F01ePwSAPOztrEb7js7gmEFfa03WtlLj//' +
           '7A/ItB5uQZkzcOGe+qMPB2NAgL8v7obhfZQhO/IGORlOxoyQIAnTv' +
           'WAaGnLC+poSITpIKHyyr3FWNXnz8Y/YKAgONTPaDPb11eBvTl0Eu6' +
           'PXBKOGBHXwy/QFf1ftW1hy4DAdcHNqWU0F3CcP6WbIwzRCa6B+mIO' +
           '3jF+6+/0FQetW1dCjioAxs5+zeyt65Jo3TgAAta3xgPLmtzS2JtCb' +
           'o4cFwl2aHUjsDRQTCCSJQQ6RkWhFUFFstn27pUOEDaQTbUWBYNGW5' +
           'uWkB2ij+IQMhz/b3snOwtbazN9YB49ItviBjWAyJfd6LWb5hJGkMk' +
           'q5X1qTGdEZLVvoJD2+rz09yVQz5/umn229dNPxUxFReMbx01vn6Ae' +
           'WmLTYi3RffZndM4LNcLgLaWGv9/Pzef6WG+ts8YLGhftUGQu0F4kP' +
           'fHd6+StUICsB21pE8l66ffGwWvfuX05orCVADUVJWVx45yczTXDy5' +
           'i6CcgMBsFIwJr+n0nsaCeo9T1fTX80n+R+U/4CQeplw795kj7cgHn' +
           'D/UFuGU9KRUSQEP69s0QiURkYkox8PDdVzevTt3Umnxoc8ahzZxDm' +
           'zj7NurNZzXQSWqvi4egD9KurY4FEqI4OwQ8VXZaQFaKPxw5aQHRoS' +
           '4gocHXxUd6hAY5e/vYpyT7b12Tsnl1Mij2hrIoCF41xZHleWEINME' +
           '3Pd4b9Kq9rTktUOsaGQrdsj59Tgo/uWSEWER6dtgEB12tkvWqSENc' +
           'SfY/2dlZUZFi8sMtiz++afLHN001XOa9F4z7t6ES6Npk/Mo6k0hfi' +
           '8svbpod715bn7OlxPg/3zFXcZk3D+Nfd1ca+DqDBfnoAZE2K36zFW' +
           '58MUfKqt2vbG0ozynMiK4tSc9hRzvbW3iuALRECz56QN+c200BgWz' +
           '4fIxLbeebYxu+J5b15dDLpB8n+uzm2e/by74cOrG8NxEpAVFAfOLT' +
           'BnUGJR94/EEPuLUtq1P2b+Ac35p1ZHMmHKCxQcLBAWqBnRYUG+vb2' +
           'ZREGLHgbINRwAGMMgFQqj/ciAl3pTkOZKNRwU4hkOz4OkRFuMHDwf' +
           'qAEZgSHJC6QvwqzAhKjPFwtLXITvYk/Y6n37uxDIjOHmBGiU09knt' +
           'Ksf360c8vj7354uSb5yS3L+BQvVy0e0NlRYrRH26YQWT58w3TqfNM' +
           'wQ7jKxtQSF9ab9y92fil1cZxwauu9x44tK1mQ5HxH98y+0LEnLpow' +
           't1ufLzJOD3cEGIQuLg5PSCNtB+ugTk0OgQ02r2vqSo9DydL2XkZsa' +
           '4kDwJGOkCkXKChLu7B6Fe3LxOpVr0E7o5Y0293tcLdqHiA2ES+Fop' +
           '+tRb56jqCQKPbbXKFBcl1tvPR3csHNudsb0vb05l+Ylv2sW2ZhzZl' +
           'QPSBA5Ig6tzyMoOjon3SUgJ2t4HkTlxXw6LJbG1hBBhRZioyghugz' +
           'SAShfo7RAY5RgQ5+fk5RkV4bFubCvdvqYyGGFRbFFFTFJHHCcpI9m' +
           'Mn+oAFZSV5kGXaPLWCrrN4xoIQkBjOFZcAwvHp8TfOFGaEB3hahfr' +
           'aRwc7gboGQKf2NgGg398w+8st07+8ZXrvlMngHuPfvsn8eoT5RMCc' +
           '72GCW7M2Nxy4vPvoroaNxca/u2H25QDzw4vMc+3GW0sNs6IMI0N8P' +
           'vr5VSCyAlDPLK7Bx3XHQ10HqwpYhRlkNjsj2s1peWhEV94BRiQ5RU' +
           'BwgNWA0oYQ/4fGQrhNQ9Wvzu4igI5o6DffTekkEGVB99ghgAb1pHA' +
           'SeOrO+aM7CiCa71iXBrrr1I7sE9uzTu3MOrgRFQL8HtIfEG8bGuNZ' +
           'LN/UlICNLck71pLKz5qU0qyQipywkqzgjBQ/AASYIrHd4xoT5hoZ5' +
           'OTv5+Dn7xQb4719bRqoC/CKHQ1xDSVRRRnB1QXh2Sl+CVFu9nYWBB' +
           'BWJumX2RE6Qv3OCRQQlwKCE3Vn4FQqK6CRY3SqBYK78ZEGY06MhfD' +
           '8lqM766tTjX64ZfbXW6Z/e9tUdsHk3VPG/3nP9C9vm/56lDl1gbmn' +
           'ysjZ1mi4a9+RnQ2g4r573fRzIfPjS0z+dqPDDYZgQeFBKwCRjRyVk' +
           'p6ZyX7yHYXCiy9ADErOTY+sRZkdAxbk7Gjtpm95L+mW+SAgUnkb/e' +
           'Y4Lnj/zbGNK9t5oBBwWegHPI1uXIpEf/K9D3Sihqo14txouRs1kuh' +
           'CJ4DY2wkpDxv820kCCA64cWBjxv4N7G1rU0C2gVsrzg2LjPJOTPRv' +
           'q0/c2pq8pSW5oTgyK8k3J80/O9Ufon9uegAn0QfosCLcwoOd/QCQn' +
           '0NSgt/2NZC0xsMBqhvy3IrcUJBwmUl+eWkBrHDn/FQv0G8UEMoAsU' +
           'Dfm0NASgJIiYDwSvb3dNpeZvTmQZORvcaDu01uHjbp32rMjjJ3dbZ' +
           'rzjT6y22zP71l+qcbpu+eNBnaY/zDbdPfvWm60Gd6udO4Og0BjfQe' +
           '2L+5ZnuZ8d9/ZgqW9eiKyZuH0AemhxlGhvrP4FcF9U/jdtx8FX5xQ' +
           '8/sZD/dvZl3fntFQRw7MbQGl5/EuDpaOTiscnK01iqWy9Q6QFiIw8' +
           'Ip5qogp0G/0Tt8c3S9XsXR0rduJ2cCiCwD0QES6nfW1a2hG7q0/ui' +
           '2LBAGINvg58kdWRQQHIc3ZxzflgW56prq2HW1LGAEXi4k3LOuPObw' +
           'pozNrSlgGo1lMcWZIQWcoGxSss5K8QvwsQMXF+jn6Ofv6OvrwIr22' +
           'tWWtp5krHCAVgdM+WlBhZzg4gwwQP/sMJNnAE0udxYEtGWAgDBkQ1' +
           'YisDE3mOeZ/tsHZpp+04Ve5mw383ybkYstfoFLa5bRX++YffeG6ec' +
           'DpqN7jEAh/OW26S9HTT++avr6QeOMCANDQ6PXuYfOH+tozTb6VGj6' +
           '1ZDph1eYvduML683rmcbRoV4vjt8ana8Z5psOE926emBdHVmnDs9z' +
           'u15ZWtTVXZJbgJ+RVoGy8XZzsHeigAa1ANaJqW7/eXwS/SLXX7XUf' +
           'WnYjYuDMHqNE9vUNdJcVv33T1kV1iBfhH3M9XRR+9d3dCcuqMt+ei' +
           '2zMPPAgI6L+zM3tuRrgNUG1dVFBER5Z0Q79fRmLiLlOm2rEltIFWF' +
           '9ARsQ2Qk+oF+DvZzCPJHQBCD/AOcKoujtpNABnRAY4A9VuSG1RdH5' +
           'XOC8tO8TknfA522EpBGP/dLNqLBwQOc3JBh19XGwmCBa/rfk2ZfD5' +
           'ou8ZmvHTCuYxvaWBkCoJYso397Gy3ozzdN7xwzEe1EC/pyyPTBBdM' +
           '7x42bMw1tLA1P7W2ZG+vf0VbUlGn03etmi1wmWFDPJuMDdRCGmG4u' +
           'drgPzAQPh7Qn+sCIcAXrWN/0WG/f2e3NNRkFGIPYOenR9rYWjo7WC' +
           'Ahnz34aEBxfjegENtnpK3QFHd3qLf1oB7Wg55pxy6REH97t3tjMbi' +
           '6PObb1KZ1TO3PheGlPHgACAbYOU1RWanIARCKwI1B07Q2JAAhc1ob' +
           'GhKqCcE4i5J4+NHWNDnMD2/H3d4QjNNQzIz1o+9rkjU0Jm1qSNrck' +
           'b12d0lQWA3djx/sCoP6//bt6itY3dJO9ZIiaR/SbCMeDFbiFCE1jr' +
           'S0MVFzT/7xn9slVpvQcaGmTtbmGZkwDCghc3J9vmwKX1w6agH7+2z' +
           'um37yGLu72MeMtJYaccAMI7jf5Ry4cX18YZwTp0mciU+k5E6B8eYN' +
           'RS7ahiZHBzP3e6THujFgI7g4XHUOeNdY3O9ZzrfdgfWksAKov4yAg' +
           'Gx0g0mka1vwIkEY3fDVCxRtY049aq9d002hYsiZrppY3GFesnNoV0' +
           'd1f5yb6N7akddbHv7grRw8Ib5zcng3BaEtrEhhRa1UscAFAIWGerd' +
           'Vx8CeQENvXpe5dzwHVzU70TWZ5xUd5oAUR8wkIcAkIcI2K8A4P88r' +
           'PDN22JokWi2j9pzI/vJATUF8cxv3tLzVTQt0qZrJil3S6eXQ0kXzT' +
           'EI8Awm5RoJfd5Dnmf46ZKblM+QXmBy+b7Ko0igtAQJUpBNAt019fZ' +
           '/ZtMQKB/YsbzG9fM33cZQpmcqLJsIFj6Olk0ndmy9EdzZXJRt+9hg' +
           '4Qnuf2ceOz64zKEvFbTR/f7wJA05OiR+PcxUmeRiJahMA01n3x1Kb' +
           'qopR8TgRuy/xPAKK3nzzQ1U5/qvd9jWasBNAIWXqvNxndV8YIns4f' +
           '0slPueDk7pIXkAvohGwAdGRLJng50GxgQaDBEhP8AVAsCxltWZ0MM' +
           'WtjE5a4wX3VFEWmJ/qCkEuI8owJdQ0KQNvx9bWPZ/kmANAQj7AIr9' +
           'KCiENb8o/uKNq3MffApvwtazJvCY8ukoijIftkqpe/j5hUFfSjiRS' +
           'QblvOu9deqsoMGLts8ce7Zh9eYr5z0uSFFqOqFEMrc0ZNmtFfb5v9' +
           '5prpo26TW0dM9lYZt+cbfnMNvRzEIDCoQ/VGJQmGvh6rbFZZtmQaQ' +
           'T7762um4OXeOQk6AZ9kGdDMpOjxOFdJAU30zY93nz22oTQ/Lj0h6C' +
           'cB/U9DCJ+SCupPjZQM6x5F1ieu+M5uARkTXZ471X0zoPitsze4+2/' +
           'w9r/Rt/vF3fnUucFxcBPn6NaMnetSWyujNzUnpiT5A5roWJ/VNXEv' +
           '78nd2Y4lbggo8BNcHDsJAWWl+Af5Obh72AEgHx8HSJQay6ISWD7s1' +
           'MB4ltfda2fxUsHND3VfG00A0e0KRXS6Xq1b7ocRB+d+8cubuKpJrF' +
           'hqp3DL7g9eeyUz0WfyEvPPPzO7+4IJiIGjjUYsf4PTq43/e9L892+' +
           'afvuamfSC6eE6o3V5ht++zvz9m2by80wIQy+tMcxjGViZobmtzkFN' +
           '/utR07k+JjjAyxuNGjIMjY0Mpu93z45B7iN6PMEjc/VCcHTKSZzqq' +
           'SiIz0kPK8tLzM+IdXJAFeeMgET/ANCTHwOiqo/u2E++rEdDtinQLH' +
           '/JBf5mmALqOd3e93IH/9zmytwgTrxraoxTWZbf2QPFKwCBzObQGml' +
           'tSVR8nF9cnG94lFddWcyxbVkQgOBoqYiGv5bnhQEgEHKZKf+3sSsB' +
           'avJu85IDglSRQ7wqVOQQCFcSSEIukjf3BeQkCYT70ApqC9jWqpWit' +
           'lqPVgRETu1dV2tru60oR6Dddqe2AqKt7czufPPNzvftdHdm55vd/b' +
           '693Of5v29Qu9/X2Zl3MiEk/7x5f+/zf+7fsyU1OX7d+jWpqUkZmRv' +
           'KDdmBsgKQPreJvzOonv3wNMlWk8F2xEJbvPF/AQrXA4NVMH2eFBiQ' +
           'cYphgG59dlaUl3Gpm/vgOg8stIkj3NMtbHHmihYT+7fv8v7nU97P7' +
           '/KmXok6WsvZ52X9IwHob09GXnuJs6uMVZQZAVqMBuhfL/NAvm6djh' +
           'zeze5ysewSBAhLRK733Z4cuoWNxsirSUJ//WD76VXZOkWuTVeskec' +
           'mEiMB/CCS9xz7CxXydAhoHKfazY6Fi36xqe37h9nSIZprLgwQmadA' +
           'uK16urxG1VZl0eb8bQki/jpZYZI0L9FWuuVIh3EZoI5GxY5qiZ8Rn' +
           '61gG+QXpCjl6eAZdWHpDkaBal3CSmuuWZOpFGMSoTj/yeRNsRs2xi' +
           'Unx2dnbwLd5C/Lr7Tlwh54ZXg/1lFgIJrmAGEmp9MFpThxcpppPsK' +
           'kD1b44MzouzeR5Z4BCEMNg19+dEqYk/bJUe4fP476+lTkJ4e4z3tY' +
           'luKIxNVoaf/hCu/uABoPe13sp62s378d+S/v8+Zei3yni7PXxbKKW' +
           'WtjEaAgxf73qwjQN6e4b3Zy9vvZdjECtHDjjYUbfaSSBN2uO3Rv7P' +
           'S509jdUGxQFVgokUqSkZQQnZBAAJr9lRYGDC8gQETXkDLpMRL8HCO' +
           'tiPT0q6Fwky8d7aHVEwLks+d7bfkukAv+hq3Ja5RFyQCWTZt5pMNA' +
           'o3OgnQJDGgAC+21HoFgly8jLT+HnJVdYcg+2q2F/A4DaMVskAZvZq' +
           'MpUSVOlwmRwUbPSkjZujEtKWp2YFOu35/sxwccvN/BHTu5ExqRpAh' +
           'AzCZqeDU3Grc4wTJhLIWw2YRqRaJ4NMu8SSxGw1nTw87cPg3d842T' +
           '0f1yLvvVG5Nkd3EMBDLvt87Kf93BONHHOtWHKO3blitwt7N9cWPmH' +
           'S7zQcW7vds7uMtzi1qBNzqrTsv/zI95vx6O+OsV9u5PzSi27XMpis' +
           'yPuTPaSVlastVsko72RHWX6/PEXG5wWuVaO42kUoozEOF5SYuz6pN' +
           'X35n4VoNlxAtBFRmRAgmZG6KEwpNJgmAlWz5EugxBRRiR2BNJU4yh' +
           '0mXLg5vda+HDbq8WYAgCP5vCz+mWA2glAzd4iiy6noCAFzIPc/BTQ' +
           '9fu2lz7bqKBDqfBY7SikZFtloqfEBZslBZu3pa1dE48s8VZqm8fCh' +
           'zVdJn73s07Y3rHSA/Q+DphDMhm6ae4uYWNm5rTODN4J9d5B9tHzBK' +
           'CBO4xDREYchvqnPnjVrEi7fiLm3z6LXurjTh+NvNjBnTvOnejhnmz' +
           'ivtGKQDzrYEdyVqQksX8Yj/6n93hL/ZETPZFvdXBhx0tey+JxVq1Y' +
           'EVOjjfjT1ai/H4uafjXyeAP7BS/LWowStESKTklBETxir8oiAai7w' +
           '+cwi/VKvk1XpJZmb1wfuzaB+EG/ynN1j3RIfT978R7TvTsebuMdZp' +
           'oFkPGA1PnMLosP6Y4MDcKdDy4MXL0KfZZEkKxXbLVqtgXsBT1hgOA' +
           'AdOrdmP3RKDNz+MkgQbKSNMwTkVweDRDY2HVuoUyUjMUGoqekhckC' +
           '/gaHIQfQp6Op9NHbU49NZGg/46TpH2axjOoOzULzEKDBpZkB0kzXR' +
           '/Y9QnwULskmee2+9XHRt/pjHnwV/buLkbde51w7yOlwst7Zy/353a' +
           'h/vhQN8nL5Re7uMjaLtSJrM/uPUzH//Vn0vXORH+7nHKtnZT65Ioa' +
           '7KmvjpghWTA0V8aePov5uLGrmVW5vK2e/jw0AgRWHGVvCqEDXaOEk' +
           'O1Ih/FJnEGQHdJBZI1CJszasBSPh/wEQMlyNEBocxAUE6n5omBQ8D' +
           'zM8YAjQEAMQY9oxAB3YZQQDoNlX7DLzffY8h4EPjklVhaDnGcaKO9' +
           'BGwX/BZ3kUIEVJOtjemGxtUiwnI/zlBSWilFIS0AZTAaTGa8n1WPO' +
           'cVJqbJFIPd3rIANYBksUeZgAK/RIgsApIte0AaRkeInSaZLQuHdme' +
           'wZb87KcS//rEqq/f4n28D6NtJ5rZG+NZz1ZwHkzyHkzw7g/Djsfpc' +
           'HDWrFrxVBL7+tDKr/sxst0T5HgVLB4XlM8TGcnpEZzEoGbFf13FoB' +
           'AANNzOORhg24iRcJeefYOpwHPzzKxV/PYjLzRWmJDIwmaQUvLsTet' +
           'jE+JXhQEa+4GxnH/JEUc2NOLm0ADNjf00O/Tj3Nh9VEMjSEU1S1dV' +
           'jSx7rGGA0G893OV4boeps9XoNGWDMQwbUa1LAFvcod1aOFCCqsT1H' +
           'gTIqsvh5yJAKnnGS+3qzhbF3lbFrnoZeKlBZyGoGCUx4cBOAC8VtB' +
           'sqOGNmc0egc6ftcJcLSyDIBFWSVkDGv+/pxBwZB3k3/EhXTdN00Ax' +
           'BDc2kMUMzNg8szfRdHTlgUW0rylqfn7khb9uG7LR1cNGPbec++E30' +
           'gxDvd29GXtmPymjT2ogN6+IVBZv10rSkeB5cebCuY2NAAUXErwKcO' +
           'HvK2Q++wHDE2DMgXJxOJ8soZHFYEXdn6K7/s/QINjIMBat6jrxQBx' +
           'KkledYdVKtIi81OSkuLoYANP4XAcJIzmgYoBFirY3/NHf+xy/G7uO' +
           '+hxRS4czCGKkPIf3XJOjKZO7ocNDs8BuH6g7uKe/pch/b5x090XC0' +
           '0wLovLSL2r9TQ7s5Lf4iszYLtzhZWltdyf62UnCR2msxFtfRrKz3i' +
           'lQAkDTVos6o94j85qwy5ZM1poz3fvwGWeCw2RNunhG6A4sm3L5H04' +
           'zQTVjEMw232/cxDfjTQ8vc2vhBNBKQdQT+NXvl5LULL396seeTCz3' +
           'XxrtrPFSnn7N0OWry1ciR3SAsbKMoglLkXxk+MPPBq+NnugQ5G3xK' +
           '9ouVYEtzuoPsY3UR6+NWmITs33/I+4e3oj49xBnexTkcZNFbHHwLa' +
           'XvspfnPmVLtqcFDnUGPXWlQFZo0EqVkW9LaVYnMFgc2wCgBiJRI/R' +
           'mAiOoPjeLzL8Z++gIkaPQ+bXJjqIdOyYG2GqcJ+f8cQCPh+fVDpLZ' +
           '8cPLSke49+pfaqRefVoOeqnUKQLKaKoVmCjDCdMMzTbID7aVPV0u3' +
           'V0lb/GLQYhppql2bVecS2lTJwSbLwb7uycvHiJiPkJZJ+AmjNLsUH' +
           'TEIkx5gUwzDcE7aTEjJ9NByfe8jAGGF0p1Q/yJT64vVoQs4E3Dg1u' +
           'ennms18ZN5+enx27YkbF7/BNzhU3/1GrYGT5zVyvK2W7gfHeR+fJB' +
           '7aR88RlZpWHGruVtTklrMMbdejxrdwz1aw26zslS5rPVr1ywRtvl5' +
           'MLYnz90KdxYvTA2+vLem2q01a4Sw0allOYnxT4QBGgOF8iNsdCG8C' +
           'e9/eXG5NZ7utSd+zYVlBomfvhi8P8ewryBAIbpi5yISstE01wjcKM' +
           'm0PgSI0CeOkGgD1i0sTA4ARgDQ/jYNmNON3qI6rEPAAzY6UEYSyda' +
           '9Lcq2oKTZV1RTUagRb9HJtlhKQYJSS/Lj3nr3xP1vP6JzUndJhwIa' +
           'M6FRnC0yhV3nGBUk5btop2HzI3I/3pkhfY7Tg2GAiBWKFjjdeIXB0' +
           'kUck0p4y2dGsO79Orb6Lk3hWJNP3zw48c7RqQ9eu/neK19dO71ImO' +
           'LmJ/reOfucVbXt4vPcny9F/83JKPCGhBm8jlbnzQ9e6e6sEmYlZm2' +
           'Jy0iJS9kYq5ZmfXLhEM6IvNk7P/E6XAS6VJve5bq7asyaIr0ir9ql' +
           'JemG1WEdRABCChcGoHsPAVoO6Vy4RxNHhEZ/mhsMG2zkINFsondog' +
           'IZIA/hwGCC6y370LjNgZYgoLMLbOT0ye+WVA22ajmZFV4uysVJUXV' +
           'EAomTRZufkJmfzN6uUGR2N8lZ/cdCBTUA6OZhw6/qONH/6Zs8jheI' +
           'XkOQqRHgPQiNIujuNwXkcgUcEh1CXEIDAJQSAQoPhRlSGrJtOOtAA' +
           'gXWHTQcEoLszI9jac733u5vgzKJan7/RuzDRT+rrzj8+rWNw6v3j4' +
           'sIt6+JY8atYsStZHa0VhJsCK4i+vHpy7urx0OVjM5ePfvPZacKmBQ' +
           'CdIRI08N0jg1F6nqspN+Co6HKjVC3jJ8TzHtniRhAg3MpGfmCejD2' +
           'MthG8iCihwXB/jqaHHWXgI3RGGOp5DCC6UnH0IdCzZJg7I2IkiTkD' +
           '1uDw5PvdYLPt26F6Ybuq0SsMOgsaPQKzNhvkKDcvmVJngQfkNOSaS' +
           '9NUxRv6jjQS/tgLhJuOEAmGxpZornKaZB4b288vgSgxbcjDhDZzgI' +
           'whGMSUXIgmgWF6G+kqetJGR8t1P3glC3RFFqE/vX39zLcTyBJDpk3' +
           'Bbd9HylOHFpF/DBXHAqlQvTfZP49TuTEywLRC3OgjQz/7b98cuA0f' +
           'xCbHMwtgGJDPLtw4swg6aKrv9iP9xScOtZJEA/zYvJ0BSi5Me2JVd' +
           'ELcE/TV+4GE13BoKar+IWZA1eMqCdkM8J2jdER0mYOC7IFvYkJ2GS' +
           'A6D/4LVsbZcPgUC7SQBQXnK82c//ytA2AwdO/RgZ2AQuQqBK1k06b' +
           'LROuVxRvB0wHDYE+T7pvP+tAOIRzm9M1DorLDj9R3hVtIiNdJBJaZ' +
           '20VQgLuin7D/LedS++lJKHcZAw8ZrTETPUvmhCJp8Dm4qreun5knz' +
           'V8LN87evt67RLed3kBiWPKRc/MYlO5bxAJ40n2PFBbIOT9/sw8AJf' +
           'PWzy7eBHkBmM7ensTRJyCMABAoxPmbAw8l6PkGm15iUGW/3OlzW0S' +
           'ivKdWr16ZsCbml5ZbiA6/0/wDo4+RyoaYVx4yTT1G3fMoQCQP/piH' +
           'tQzQEG0Z/pLzjdwPj7+4nFQitXZIaTVOiMVI88vcaDhgTgbShUaZ9' +
           '2MH9wDZ6EaXObppNwdNa2R8HQxXzoPBNkCqKRjqMHow9D2kjkHJQr' +
           'JEAOhzAAg02hAIxbcAEE6zxUzBArIcIC/f7et9i3jB+0CW58l0J4Y' +
           'JE9+P/P/foTSduTPd+91E77eEef42TtY4uzQNAPUvNxfvbq5w22Wv' +
           'H6jZVa0rNwjyszbHxq6ELc6swcIzM5WtLknXKbapxeBupJfri83aQ' +
           'qtOaCwt1JTwTRqBsbRAK8vx2BVum9KsKXSYxcbSXK2MD5ahhSowqX' +
           'O0smwLJbDqCmBBpTjVUJqtlJAFZWmlJemwgkldCIdBlUfJ6QUF8HG' +
           'vXem2KWBBuwH0Iy7ossrNVL5WkQsum0mTryfvV0nJguI0dUmWTJCi' +
           'lGSYNSJYzagq0Cly4EU4PThgf4DTc5gV8C+rFv6VrZXnuWwKo1pAy' +
           'XLhMKkFYIAZVAVwApQ8T12SqZSkqqW4sk6WKS1Mht9rVgtMmkID/v' +
           'BsvRLOoVArz7VoRVVunUkttGgFOkU+XJMyvbjcJKZkWbAs2MYGZZ5' +
           'FJyCODJxwLvxpVOXD81JxhkqSXirJkIvS1JI0SX6qRpqjU/INqly9' +
           'MoeS8XUKPnyXSpylkaWfebn+/JEdRzr9ZfrCgjBAZQaR21oCWMDlL' +
           'dMX+SuU3jK50yKvdusCTirg0IDmCjg1PofKaZbAJukwyzx2qcMkKj' +
           'cUuSwlDqPEbhA7TBI4nBax0yIpMxS7zCV2vcBQKrDriwIOpccuhxe' +
           'DHm3Aqa5yKirMEr8DFtTA2wAOBzzapBXmIjslLNNLbTphuUnkMOMB' +
           'T+Cwaos8thKbTqCVI1WXx6aoMBaXG4TgnrjtcrdVbteKvPYSlxk+W' +
           '2Q3FJupYruuuMwosuiEFUYxgGKlim2U0K6D9cXwG+HcyoxiK1VgN0' +
           'hNmmKCXX6ZSQJQWiiRr7zE71R6yuV2oxgOt62kwiwtM4jN2mKrVmy' +
           'hiswUXis4E8AdgAPDGICDi2DXiQF3u7bIohFaKREsRYem9UqAOB9Q' +
           'g3NzmOXmUri9ZXCFXVaFTVds10vgDV6rbPRUe88e95mXtz/X7rDrB' +
           'PzM5DVrYtYmrAo4dVVubVO1dWe9o63R1RCw7KgrbwqYa72GRr+pwW' +
           'd4ur6ixmtqrra31lhr/bqmamNLtbW2Ul/rMTRVGRsC+rpKQ2PQ0hy' +
           '0wkfqKo2wWtCj315T1tZQ0dbobKyytARtrbW2xoAJFmwKmFpqbQ3w' +
           'WGNrrrHV+43wwZYae51XH3BRjdXWep++zqtt8OsbA8Zar7auUhf06' +
           'Kqc2qYq686G8rZGR0NA1xI0N1UZGuANcBqVhu011kYf1eQ3N1Ybgz' +
           '6qzq+v8xnrfbqAQ1vr1QXd2hoX1VCpbQrogl54RV3tUtf7jHVejd+' +
           'pCXqNtT5ja31ZfZW+Fr7aZ4AvrfUZqt0UnHONVx90whN7nd9Q5aLg' +
           'bKvdeJ5VTg38nKBXU+3WwItVTgoWbKoyBzyweGl9pTbo1lVWUL4Kt' +
           'cemhFfgJFuD5bWVxqBLU1upBX+nxqvzO7R1PhM879rpO9zl39/uaQ' +
           '+aqiqUClEK3P/Z6ZvWrF4Z978S93Gy');
    end;

    var
      ShowingDebug: Boolean; //move if you like


    {*******************************************************************************
    procedure CopyClient;
    By: Nava2 and Tootoot222
    Description: Copies the client and puts the image of it onto the debug window
    Usage: Press F12 to start copying, and press F11 to stop (you can start back
    again by just pressing F12)
    *******************************************************************************}

    procedure CopyClient;
    var
      W, H, X, Y, T, bmp, MDot: Integer;
    begin
      try
        T:= 500;
        if (IsFKeyDown(12)) and (not (ShowingDebug)) then
        begin
          DisplayDebugImgWindow(766, 504);
          ShowingDebug:= True;
          Writeln('Showing Debug;');
        end;
        if ((IsFKeyDown(11)) and (ShowingDebug)) then
        begin
          ShowingDebug:= False;
          Writeln('Not showing Debug;');
        end;
        if(ShowingDebug) then
        begin
          GetClientDimensions(w, h);
          bmp := bitmapFromString(w, h, '');
          CopyClientToBitmap(bmp, 0, 0, w, h);
          MDot := BitmapFromString(9, 9, 'beNpjYPjPAEJo4D8qwhTH' +
           'w8ZvAkIWCAbEXgAgCS7S');
          SetTransparentColor(MDot, 0);
          GetMousePos(x, y);
          FastDrawTransparent(x - 5, y - 5, MDot, Bmp);
          SafeCopyCanvas(GetBitmapCanvas(bmp), GetDebugCanvas, 0, 0, w, h, 0, 0, w, h);
        end;
      except
        Writeln('Unable to copy canvas');
        ShowingDebug:= False;
      finally
        ClearTimeouts;
        if(not(GetSCARVersion = 320)) then
          if(not(Round(T / 1000) < 1)) then
            SetTimeout(Round(T / 1000), 'CopyClient')
          else
            SetTimeout(Round(T / 1000) + 1, 'CopyClient')
        else
          SetTimeout(T, 'CopyClient');
        FreeBitMap(bmp);
        FreeBitmap(MDot);
      end;
    end;


    {----------------------------}
    {    Signature For Script    }
    {----------------------------}

    Procedure Siggy;
    Begin
      ClearDebug;
      WriteLn('  ________      .__.__       ._______  ___  ');
      Wait(80);
      WriteLn(' /  _____/ __ __|__|  |    __| _/\   \/  /  ');
      Wait(80);
      WriteLn('/   \  ___|  |  \  |  |   / __ |  \     /   ');
      Wait(80);
      WriteLn('\    \_\  \  |  /  |  |__/ /_/ |  /     \   ');
      Wait(80);
      WriteLn(' \______  /____/|__|____/\____ | /___/\  \  ');
      Wait(80);
      WriteLn('        \/                    \/       \_/  ');
      Wait(300);
      WriteLn('   _____  .__       _______        ._.      ');
      Wait(80);
      WriteLn('  /     \ |__| ____ \   _  \_______| |      ');
      Wait(80);
      WriteLn(' /  \ /  \|  |/    \/  /_\  \_  __ \ |      ');
      Wait(80);
      WriteLn('/    Y    \  |   |  \  \_/   \  | \/\|      ');
      Wait(80);
      WriteLn('\____|__  /__|___|  /\_____  /__|   __      ');
      Wait(80);
      WriteLn('        \/        \/       \/       \/      ');
      WriteLn('        The Rebirth!');
    end;

    {*******************************************************************************
    Procedure SetRunFast
    By: NaumanAkhlaQ
    Description: Sets Run on or off using the minimap icon.
    *******************************************************************************}


    Procedure SetRunFast(run : Boolean);
    begin
     Case Run Of

     True : Begin
             If GetColor(725, 106) = 6850714 Then
              MouseBox(710, 101, 760, 119, 1);
               If IsUpText('ode on') Then
                 Begin
                  Wait(200+Random(100));
                  WriteLn('Set Run To ' +BooltoStr(Run));
                 end;
             end;

      False : Begin
              If GetColor(725, 106) = 7002860 Then
               MouseBox(710, 101, 760, 119, 1);
                If IsUpText('urn run mode off') Then
                  Begin
                   Wait(200+Random(100));
                   WriteLn('Set Run To ' +BooltoStr(Run));
                  end;
               end;
            else
       srl_Warn('SetRunFast', 'Couldn''t set run to desired state', warn_AllVersions);
      end;
    end;

    {----------------------------}
    {  RadialWalk Edited By Me   }
    {----------------------------}

    function RadialWalkX(TheColor: Integer; StartRadial, EndRadial: Integer; Radius: Integer; Xmod, Ymod: Integer): Boolean;
    var
      tpa: TPointArray;
      i: Integer;
    begin
      Result := False;
     if RadialWalkEx(tpa, MMCX, MMCY, TheColor, 0, StartRadial, EndRadial, Radius) then
      for i := 0 to High(tpa) do
       Begin
        Mouse(tpa[i].x, tpa[i].y, 1, 1, True);
        Result := True;
        Break;
       end;
    end;

    {-------------------------------}
    { MasterKill's Responder- Start }
    {-------------------------------}

    Procedure SetupResponds;
    begin
      HowManyResponds := 2;
                                                                                                                                                                                                    SetArrayLength(TheQuestion, HowManyResponds); SetArrayLength(TheRespond, HowManyResponds);
      TheQuestion[0] := ['noob'];
      TheRespond[0]  := ['Im not a noob!', 'your the noob', 'look in the mirror', 'noob noob', 'no way noob', 'your more noob', 'whoes noob?'];

      TheQuestion[1] := ['respond'];
      TheRespond[1]  := ['what to say?', 'i dont have anything to say', 'no im bussy'];
    end;


    {*******************************************************************************
    function GetBlackText(ChatLine: Integer): string;
    By: ZephyrsFury based on the works of Wizzup?
    Description: Gets the black message text on ChatLine (1 to 8).
    *******************************************************************************}


    function GetBlackText(ChatLine: Integer): string;
    var
      TP: TPoint;
    begin
      TP := TextCoords(ChatLine);
      Result := Trim(GetTextAtEx(TP.x - 2, TP.y - 2, 0, SmallChars, False, False, 0,
        1, 0, 80, False, tr_AllChars));
    end;

    Function AutoRespond : Boolean;      //Ty MK for the Responder
    var
      Text, Name, MakeRespond, LastRespond : String;
      I, II, Rand, CurTime, SetTime : Integer;
      Awnser : TStringArray;
      TextP : TPoint;

    begin
      CurTime := GetSystemTime;
      If (CurTime - SetTime < 20000) Then Exit;
      For I := 8 DownTo 4 Do
      Begin
        TextP := TextCoords(I);
        If findcolor(x, y, 16711680, TextP.x, TextP.y, TextP.x + 200, TextP.y + 14) Then
        Begin
          Text := LowerCase(Trim(GetTextAtEx(x - 3, textp.y - 2, 0, SmallChars, False, False, -1, 1, 16711680, 60, False, tr_allChars)));
          If (Text = LastRespond) Then
          Exit;
          LastRespond := Text;
          Name := GetBlackText(I);
          If (Pos(Players[CurrentPlayer].nick, Name) <> 0) then Exit;
          Break;
        End;
        If (I = 4) Then Exit;
      End;
      If (Pos(Players[CurrentPlayer].Nick, Text) <> 0) Then
      Begin
        If (Pos('nice', Text) <> 0) Or (Pos('cool', Text) <> 0) Then
        Begin
          Awnser := ['thanks', ':)', 'tnx', 'ur cool to'];
          I := random(High(Awnser));
          MakeRespond := Awnser[I];
        End Else
        If (Pos('friends', Text) <> 0) Then
        Begin
          Awnser := ['no', 'no way', 'sorry my list is full', 'no sorry'];
          I := random(High(Awnser));
          MakeRespond := Awnser[I];
        End Else
        If (Pos('macro', Text) <> 0) Or (Pos('bot', Text) <> 0) Or (Pos('auto', Text) <> 0) Then
        Begin
          Awnser := ['lol im not!', 'why?', 'no way', 'not me', 'dream on', 'nah'];
          I := random(High(Awnser));
          MakeRespond := Awnser[I];
        End Else
        Begin
          Awnser := ['no, im bussy', 'go away plz', 'leave me alone', 'im bussy'];
          I := random(High(Awnser));
          MakeRespond := Awnser[I];
        End;
        WriteLn('Respond:');
        WriteLn('/ ' + Name + ' ' + Text);
        TypeSend(MakeRespond);
        WriteLn('/ ' + Players[CurrentPlayer].Name + ': ' + MakeRespond);
        Responds := Responds + 1;
        ReportVars[2] := ReportVars[2] + 1;
        Result := True;
        SetTime := GetSystemTime;
        exit;
      End;
      If (Pos('mining', Text) <> 0) Then
      Begin
        If (Pos('my mining level is', Text) <> 0) Or (Pos('m mining ore', Text) <> 0) Then
        Begin
          Awnser := ['gratz', ':)', 'kewl', 'cool'];
          I := random(High(Awnser));
          MakeRespond := Awnser[I];
        End Else
        If (Pos('what is your level in mining', Text) <> 0) Then
        Begin
          Awnser := [IntToStr(GetSkillLevel('mining')), 'me ' + IntToStr(GetSkillLevel('mining')), 'My Mining level is '+ IntToStr(Players[CurrentPlayer].integers[1]) + '.'];
          I := random(High(Awnser));
          MakeRespond := Awnser[I];
        End Else
        If (Pos('what ore are you mining', Text) <> 0) Then
        Begin
          Awnser := ['coal', 'coal ore', 'what u think?'];
          I := random(High(Awnser));
          MakeRespond := Awnser[I];
        End Else
        If (Pos('s a good place for me', Text) <> 0) Then
        Begin
          Awnser := ['here', 'what about here', 'here i guess', 'here?'];
          I := random(High(Awnser));
          MakeRespond := Awnser[I];
        End Else
        Begin
          Awnser := [IntToStr(GetSkillLevel('mining')), 'me ' + IntToStr(GetSkillLevel('mining')), 'My Mining level is '+ IntToStr(GetSkillLevel('mining')) + '.'];
          I := random(High(Awnser));
          MakeRespond := Awnser[I];
        End;
        WriteLn('Respond:');
        WriteLn('/ ' + Name + ' ' + Text);
        TypeSend(MakeRespond);
        WriteLn('/ ' + Players[CurrentPlayer].Name + ': ' + MakeRespond);
        Responds := Responds + 1;
        Result := True;
        SetTime := GetSystemTime;
        exit;
      End;
      For I := 0 To HowManyResponds - 1 Do
        begin
         For II := 0 To High(TheQuestion[I]) Do
           Begin
            If (Pos(TheQuestion[I][II], Text) <> 0) then
               begin
                 WriteLn('Respond:');
                 WriteLn('/ ' + Name + ' ' + Text);
                 Rand := Random(High(TheRespond[I]));
                 TypeSend(TheRespond[I][Rand]);
                 WriteLn('/ ' + Players[CurrentPlayer].Name + ': ' + TheRespond[I][Rand]);
                 Result := True;
                 SetTime := GetSystemTime;
               exit;
             end;
         end;
      end;
    end;

    {--------------------------------------------------------------------}

    {----------------------------}
    {          Anti Ban          }
    {----------------------------}

    Procedure AntiBan;
    Begin
      Case random(22) Of
        10: RandomRClick;

        21 : If Random(10) = 1 Then
               GameTab(Random(14));

        11 : Case Random(9) of
             0 : Begin
                  If PlayersOnMap(MMX1, MMY1, MMX2, MMY2) > 3 Then
                   Case Random(10) Of
                     0 : TypeSend('minin lvl');
                     1 : TypeSend('Mining Levels?');
                   end;
                 end;
               Else Wait(1);
             end;

        20: PickUpMouse;

        0..9, 11..3 : SleepAndMoveMouse(1000 + Random(800));

        else FTWait(2);
      end;
      FindNormalRandoms;
    end;

    {----------------------------}
    {        Climb Ladder        }
    {----------------------------}

    Function ClimbLadder(Option : String) : Boolean;
    Var
    Tries, c0l : Integer;
    What : Boolean;

    Begin
     Case Option Of
      'up' : C0l := 3688529;
      'Down' : C0l := 3563123;
     end;

     Repeat
      If FindObjCustom(x, y, ['adder'], [C0l], 5) Then
       Begin
        If IsUpText('adder') Then
         Begin
          Mouse(x, y, 0, 0, False);
          ChooseOption(LowerCase(Option));
          FFlag(0);
          Wait(2000+Random(900));
         end;

         WriteLn('Climbed ' +Option+ ' The Ladder');
         Case Option Of
           'up' : What := FindColor(x, y, FindFallyRoadColor, MMX1, MMY1, MMX2, MMY2);
           'Down' : What := FindColor(x, y, FindRockColor, MMX1, MMY1, MMX2, MMY2);
         end;

         Tries := Tries + 1;
         Result := What;
        end;
      Until(Result) Or (Tries > 3);
    end;

    {-------------------------------------}
    { PickBroken - Check's for Broke Pick }
    {-------------------------------------}

    Function PickBroken : Boolean;
    Begin
    If Not (GetColor(592, 222) = 65536) Then
      Exit
     else
    Try
      If (GetColor(592, 222) = 65536) Then
        MMouseItem(1);

      If IsUpText('roken') Then
        WriteLn('Pick Is Broken');
        Result := True;

      Finally
        If Not(GetColor(592, 222) = 65536) or Not IsUpText('roken') Then
         WriteLn('False Alarm');

      except
        Result := False;
     end;
    end;

    {----------------------------}
    {     Coal Ore Counter       }
    {----------------------------}

    Function CheckOres : Integer;
    Begin
      Result := CountItems(DTMFromString('78DA631460666098C9C8800C4C4D5518FE036' +
           '990E87F2060E401AAE9455503918591401AA466050135B2403593' +
           '09A8F9CFC4C03007BF1A00BD0609EC'), 'dtm', [1/2/999/999/777]);
    end;

    {----------------------------}
    {       Walk To Guild        }
    {----------------------------}

    Procedure WalkToGuild;
    Label GTMS, GTMSS, Operat0r, UI;

    Begin
      Loc := 'To Guild';
       Case Random(2) Of
         0 : Disguise('Banked = '+IntToStr(Banked)+' Loads');
         else Disguise('Mined = '+IntToStr(OresMined + CheckOres)+ ' Ores');
       end;
      MakeCompass('S');
      SetAngle(True);
      SetRunFast(True);
      GaMeTAB(4);
       If GetColor(607, 237) = 65536 Then
        If Players[CurrentPlayer].Booleans[0] = True Then
          GoTo UI
        Else
          Begin
            Wait(80 + Random(80));
            MMouseItem(2 + Random(2));
            Wait(200 + Random(300));
             If IsUpText('ril') XOr IsUpText('oal') Then
              Begin
                If OpenBankFast('feb') Then
                  If PinScreen Then
                    InPin(Pin_Number);
                  If BankScreen Then
                    Begin
                      Wait(400 + Random(500));
                      Deposit(2, 28, True);
                      Wait(100+Random(999));
                      CloseBank;
                      IncEx(Banked, 1);
                      IncEx(ReportVars[1], 1);
                    end;
                end;
             end;
          UI :
          MakeCompass('S');
       If RadialWalkX(FindFallyRoadColor, -30, -21, 65, 0, 0) Then
         Wait(9400 + Random(2000));
         Flag;
         Begin
          ClimbLadder('Down');
          If FindColor(x, y, FindRockColor, MMX1, MMY1, MMX2, MMY2) Then GoTo Operat0r
        else
          Begin
            If Not FindColor(x, y, FindRockColor, MMX1, MMY1, MMX2, MMY2) Then
              Begin
               Repeat
                 MMouse(Random(MSCX), Random(MSCY), 250, 250);
                 Wait(90+Random(80));
                 X := X + 1;
               Until(IsUptext('adder')) or (X > 50)
                 X := 0;
               If X > 50 Then Exit
                 else
                   GetMousePos(x, y);
                   Wait(800+Random(200));
                   Mouse(x, y, 1, 1, True);
              end;
           end;
          Operat0r :
           RadialWalkX( FindRockColor , 300, 250, 65, 0, 0);
              FFlag(7 + Random(4));
              Loc := 'To Mining Spot';
              Proggie;
               Begin
               If Not FindSymbol(x, y, 'Mining Spot') Then GoTo GTMS;
                 If FindSymbol(x, y, 'Mining Spot') Then
                  Begin
                   Mouse(x, y, 3, 3, True);
                   FFlag(0);
                   GoTo GTMSS;
                  end;

              Begin

               GTMS :  Begin
                         MouseFlag(MMCX - 37 ,MMCY (*+ FloatToInt(Sqrt(81))*), 20, 20, 0);
                         MakeCompass('N');
                       end;
                  {WriteLn('Lost?');}
              end;

           GTMSS : MakeCompass('N');
        end;
      end;
    end;

    {---------------------------------}
    { Decide Outcome(Random Clicking) }
    {---------------------------------}

    Procedure DecideOutcome;
    Var RollDice : Integer;
    Begin
      RollDice := Random(4);

      Case RollDice Of

      0 : Mouse(x, y, 1, 1, True);

      1 : Mouse(x, y, 3, 3, True);

      2 : Begin
            Mouse(x, y, 2, 3, False);
            ChooseOption('ine');
          end;

      3 : Begin
            FtWait(2);
            Mouse(x, y, 2, 1, True);
          end;
      end;
    end;

    {-------------------------------}
    { CheckPick - Witdraws New Pick }
    {-------------------------------}

    Procedure CheckPick;
    Label GTL1;
    Var
    TriesPick : Integer;

    Begin
      If Not (PickBroken) Then
       Exit
     else
      Begin
        Inc(BrokenPickZ);
        If PickBroken Then
          WriteLn('Getting a New Pickaxe from our Bank');
        Begin
          SetRunFast(True);
          Gametab(4);
          If FindSymbol(x, y, 'Mining Spot') Then
            MouseFlag(x, y, 0, 0, 0);

           Begin
            If FindObj(x, y, 'oor', 4214864, 5) Then
              Begin
                MouseFlag(MMCX + 67, MMCY, 5, 5, 0);
                FindSymbol(x, y, 'Mining Spot');
                MouseFlag(x, y, 0, 0, 0);
              end;
           end;

            If MFF(MMCX - 60, MMCY, 5, 15) Then
              FFlag(0);
                Begin


                  If Not FindColor(x, y, FindLadderColor, MMX1, MMY1, MMX2, MMY2) Then
                    MouseFlag(MMCX - 55, MMCY, 10, 10, 0)
                   else
                    Mouse(x, y, 1, 4, True);
                    FFlag(0);
                  end;
             Loc := 'To Bank';

            Proggie;
              ClimbLadder('up')
                Begin
                 If Not (GetColor(558, 100) = 65536) Then GoTo GTL1
                  else
                   If Not FindColor(x, y, FindFallyRoadColor, MMX1, MMY1, MMX2, MMY2) Then
                      WriteLn('Using Random Mouse Methods');
                       Begin
                        y := 0;
                        Repeat
                          MMouse(Random(MSCX), Random(MSCY), 250, 250);
                          Wait(149 + Random(30));
                          Y := Y + 1;
                        Until(IsUpText('adder')) Or (Y > 50)
                          GetMousePos(x, y);
                          Wait(800 + Random(200));
                          Mouse(x, y, 1, 1, False);
                          ChooseOption('-up');
                          FFlag(0);
                          Wait(3000+Random(400));
                       end;
                   end;
               GTL1 :
                 WriteLn('We HAVE SUCESSFULLY CLIMBED TO THE SURFACE');
                   SetRunFAST(TRUE);
                   Begin
                      MouseBox(590, 19, 651, 33, 1);

                   Begin
                     I := 0;
                      If FlagPresent Then
                       Repeat
                        Wait(1000 + Random(200));
                        Inc(I);
                       Until(Not FlagPresent) or (I > 12);
                          I := 0;
                         If Not FlagPresent Then
                          Begin
                           Repeat
                             Wait(1000 + Random(200));
                             Inc(I);
                           Until(FlagPresent) or (I > 12);
                          end else
                         FFlag(0);
                        end;
                     end;
                     Loc := 'Banking';

                      FFlag(0);
                       Begin
                        If Not FindSymbol(x, y, 'Bank') Then TryAgain
                         else
                          Begin
                            MouseFlag(x, y, 1, 1, 2);
                            FFlag(0);
                          end;
                         Wait(1);
                       end;
                         If OpenBankFast('feb') Then
                           FFlag(0);
                            If PinScreen Then
                              InPin(Pin_Number);
                            If BankScreen Then
                             Begin
                               Deposit(1, 28, True);

                            Begin
                         If Not FindDTM(DTMFromString('78DA639CCCC0C07096010D302291407A06903' +
                         '84F404D2FA61A43253654353D40E21401735A80C42354159A32AC' +
                         '286A00F8390790'), X, Y,
                         MSX1, MSY1, MSX2, MSY2) Then
                           Repeat
                            MMouse(488, 284, 3, 3);
                            GetMousePos(x, y);
                            HoldMouse(x, y, True);
                            Wait(600+Random(100));
                            ReleaseMouse(x, y, True);
                            TriesPick := TriesPick + 1;
                         Until(FindDTM(DTMFromString('78DA639CCCC0C07096010D302291407A06903' +
                         '84F404D2FA61A43253654353D40E21401735A80C42354159A32AC' +
                         '286A00F8390790'), X, Y,
                         MSX1, MSY1, MSX2, MSY2)) or (TriesPick > 20);

                If FindDTM(DTMFromString('78DA639CCCC0C07096010D302291407A06903' +
                '84F404D2FA61A43253654353D40E21401735A80C42354159A32AC' +
                '286A00F8390790'), X, Y,
                MSX1, MSY1, MSX2, MSY2) Then
                  Begin
                    Mouse(x, y, 1, 1, True);
                    Wait(900+Random(200));
                    CloseBank;
                    WriteLn('Found New PickAxe');
                    FindPickHeadColor;
                    WalkToGuild;
                  end;

               If TriesPick >= 20 Then
                 Begin
                   WriteLn('No Pick In Bank, No Point mining');
                   LogOut;
                   NextPlayer(False);
                 end;
              end;
             end;
           end;
       end;
    end;


    {----------------------------}
    {     Check If Stuck!        }
    {----------------------------}

    Procedure CheckIfStuck;
    Begin
    If (LowerCase(Players[CurrentPlayer].Strings[0]) = 'mith') Then Exit
     else
      If Not FindBlackChatMessage('urren') Then
        Exit
       else
         If Not FindText(x, y, 'urren', SmallChars, 7, 412, 271, 444) Then
          Begin
           FTWait(1);
           Exit;
          end else

        WriteLn('Dang Our RockFinder Is pwning one Rock, Lets M0ve!, Yeah!');
       Begin
         If Not FindSymbol(x, y, 'Mining Spot') Then
           MouseFlag(MMCX + 20, MMCY + 20, 50, 50, 0)
          ELSE
         If FindSymbol(x, y, 'Mining Spot') Then
           Begin
             Mouse(x, y, 5, 5, True);
             FFlag(0);
             Exit;
           end;
        WriteLn('We Have sucessfully Moved');
      end;
    end;

    {----------------------------}
    {       Fight Detecter       }
    {----------------------------}

    Procedure IfFight;
    Begin
     FindNormalRandoms;
      If FindFight Then
      {--------------}
       Begin
        I := 0;
          Repeat
            MMouse(Random(MSCX), Random(MSCY), 50, 50);
            Wait(120 + Random(300));
            I := I + 1;
          Until(IsUpText('alk')) Or (I >= 20)
            GetMousePos(x, y);
            Wait(800 + Random(200));
            If IsUpText('alk') Then
              Begin
                Mouse(x, y, 0, 0, True);
                Repeat
                  ClickContinue(True, True);
                Until(Not(ClickContinue(False, False)));
              end;
       {--------------}
        RunAway('W', True, 1, 5000 + Random(2000));
        FindNormalRandoms;
      end;
    end;

    {----------------------------}
    {       Gas Detector         }
    {----------------------------}

    function GasFinder(GX, GY : Integer): Boolean;   //Thanks Wizzup!
    Var
       x1, y1, x2, y2, I, time, c: Integer;
       R, G, B: Integer;
       H, S, L: ExtEnded;
       X, Y, Z: ExtEnded;
       Gas, Gas2: TPointArray;
       Colors, C2: TIntegerArray;
    begin
      Try
        x1 := gx - 35;
        If x1 < 0 Then
          x1 := 0;
        y1 := gy - 35;
        If y1 < 0 Then
          y1 := 0;
        x2 := gx + 35;
        If x2 > 515 Then
          x2 := 515;
        y2 := gy + 35;
        If y2 > 336 Then
          y2 := 336;
        Time := GetSystemTime;
        Result := False;
        c := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2ModIfiers(0.2, 0.2);
        FindColorsTolerance(Gas, 8886170, x1, y1, x2, y2, 20);
        ColorToleranceSpeed(c);
        If length(Gas) < 10 Then
          Exit;
        Colors := GetColors(Gas);
        C2 := Colors;
        ClearSameIntegers(C2);
      //  writeln('Colors Length: ' + inttostr(length(colors)));
       // writeln('C2 Length: ' + inttostr(length(C2)));
        If Length(C2) < 40 Then
          Exit;
        For I := 0 To High(Gas) Do
        Begin
          ColorToRGB(Colors[I], R, G, B);
          If Abs(R - G) <= 10.0 Then
          Begin
            ColorToHSL(Colors[I], H, S, L);
            If (H > 11.5) And (H < 16.0) And (S < 12.0) Then
            Begin
              ColorToXYZ(Colors[I], X, Y, Z);
              If (Abs(X - Y) < 5.0) And (Abs(X - Z) < 5.0) And (Abs(Y - Z) < 5.0) Then
              Begin
                SetLength(Gas2, Length(Gas2) + 1);
                Gas2[High(Gas2)] := Gas[I];
              End;
            End;
          End;
        End;
        //WriteLn('time: ' + IntToStr(GetSystemTime - Time));
        //WriteLn('gas2 length: ' + IntToStr(Length(Gas2)));
        Result := (Length(Gas2) > 30); // The only number you might want to tweak.
        //debugtpa(Gas2, '');
        if result then
        begin
          SaveScreenshot(ScriptPath + 'Found WIZZUP gas ' + TimeRunning + '.bmp')
          Exit;
        end;
        //debugtpa(gas2, '');
      Except WriteLn('No window selected'); end;
    End;

    {----------------------------}
    {    Find Gas Procedure!     }
    {----------------------------}

    Procedure DetectGas;
    Begin
      If GasFinder(x, y) then
        begin
          MouseFlag(MMCX, MMCY, 20, 20, 0);
          SleepAndMoveMouse(7000 + Random(300));
        end;
    end;

    {----------------------------}
    {   Wait Whilst Mining!      }
    {----------------------------}

    Procedure WaitWhileMine;
    Var LongIntX : Integer;
    Begin
      FFlag(0);

      MarkTime(LongIntX);
      Repeat

       If OreColorCount(709, 446, 2636346, 5, 27) Then Break;
       If InvFull Then Break
     else

       Case Random(2) Of
         0 : If Players[CurrentPlayer].Booleans[0] = True Then
               Disguise('Dropped = '+ IntToStr(Banked)+ ' Loads')
              else
               Disguise('Banked = '+ IntToStr(Banked)+ ' Loads')

         else
           If Players[CurrentPlayer].Booleans[0] = True Then
             Disguise('Dropped = '+ IntToStr(OresMined + CheckOres) + ' Ores')
           else
             Disguise('Mined = '+ IntToStr(OresMined + CheckOres) + ' Ores');
       end;

       DetectGas;
       FindNormalRandoms;
       FindTalk;

       If FindBlackChatMessage('ine') Or

        FindBlackChatMessage('urren') Then
        Break
       else

         FindNormalRandoms;
         CheckIfStuck;
         FindTalk;

         If AutoRespond Then
           Inc(Responds)
          else

         DetectGas;
         FindPick;
         FindTalk;

         Case Random(5) Of
           0 : SetRunFast(True);
         end;

        If PickBroken Then
         Begin
          CheckPick;
          Exit;
         end;

        FindNormalRandoms;

        IfFight;
        AntiBan;
        FindTalk;

        DetectGas;
        FindNormalRandoms;
       Until(FindBlackChatMessage('ine') Or (TimeFromMark(LongIntX) > 7000 + Random(2000)));
    end;

    {----------------------------}
    {       Torch Detector       }
    {----------------------------}

    {Procedure Check;
    Begin
      If Not FindBlackChatMessage('orch') Then Exit
      else
       Begin
         Mouse(x, y, 0, 0, False);
         If ChooseOption('orch') Then
           WriteLn('We are close To A Torch, rock finding could muck up');
           If FindSymbol(x, y, 'mining spot') Then
            Begin
              MouseFlag(x, y, 1, 1, 0);
              WriteLn('In Center');
              If FindRock Then
                Mouse(x, y, 1, 1, True);
                Wait(1000 + Random(2000));
                Exit;
          end;
      end;
    end;

    {----------------------------}

    {    Finds The Rocks!!!      }
    {----------------------------}

    Function FindCoalRock : Boolean;
    Var
      Cts, C0lx : Integer;
      TPA : Array Of TPoint;
      ATPA : T2DPointArray;

    Begin
     If Not LoggedIn Then Exit;

      Cts := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
        FindColorsSpiralTolerance(X, Y, TPA, 2307124, MSX1, MSY1, MSX2, MSY2, 10);
        ATPA := (TPAtoATPAEx(TPA, 4, 5));
        //SortATPASize(ATPA, True)

          For I := 0 to High(ATPA) Do
            If MiddleTPAEx(ATPA[I],x ,y ) Then
              Begin
                MMouse(x, y, 0, 0);
                C0lx := GetColor(x, y);
                GetMousePos(x, y);
                If IsUpText('oor') Then
                  MouseFlag(MMCX, MMCY + 40, 20, 20, 10)
                ELSE
                 If SimilarColors(c0lx, GetColor(x, y), 10) Then
                  If IsUpTextMultiCustom(['Ro', 'cks']) Then
                     Begin
                       Result := True;
                       Wait(Random(80));
                     end;
                      FindNormalRandoms;
                      If Result = True Then
                        Exit
                      else

                      Try
                        Wait(1);

                      except
                        Wait(2);

                      Finally
                        Wait(3) //:p
                    end;
               end;
     ColorToleranceSpeed(Cts);
    end;

    Function FindMithRock : Boolean;
    Var
      Cts, C0lx : Integer;
      TPA : Array Of TPoint;
      ATPA : T2DPointArray;

    Begin
     If Not LoggedIn Then Exit;

      Cts := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
        FindColorsSpiralTolerance(X, Y, TPA, 6702662, MSX1, MSY1, MSX2, MSY2, 10);
        ATPA := (TPAtoATPAEx(TPA, 4, 5));
        //SortATPASize(ATPA, True)

          For I := 0 to High(ATPA) Do
            If MiddleTPAEx(ATPA[I],x ,y ) Then
              Begin
                MMouse(x, y, 0, 0);
                C0lx := GetColor(x, y);
                GetMousePos(x, y);
                If IsUpText('oor') Then
                  MouseFlag(MMCX, MMCY + 40, 20, 20, 10)
                ELSE
                 If SimilarColors(c0lx, GetColor(x, y), 10) Then
                  If IsUpTextMultiCustom(['Ro', 'cks']) Then
                     Begin
                       Result := True;
                       Wait(Random(80));
                     end;
                      FindNormalRandoms;
                      If Result = True Then
                        Exit
                      else

                      Try
                        Wait(1);

                      except
                        Wait(2);

                      Finally
                        Wait(3) //:p
                    end;
               end;
     ColorToleranceSpeed(Cts);
    end;

    {----------------------------}
    {     Mine The Rock!!        }
    {----------------------------}

    Procedure MineRock;
    var
      i, rockIndex: Integer;

    Begin
     Loc := 'Mining Ore';
     Proggie;
       if (LowerCase(Players[CurrentPlayer].Strings[0]) = 'coal') then
         I := 1;

       if (LowerCase(Players[CurrentPlayer].Strings[0]) = 'mith') then
         I := 0;

        case i of
          0: Begin
               rockIndex := falador_Mithril;
               MFF(MMCX, MMCY + 40, 15, 15);
             End;
          1: rockIndex := falador_Coal;
        end;
        MakeCompass('N');
      Repeat
        Case LowerCase(Players[CurrentPlayer].Strings[0]) Of
          'mith' : If FindMithRock Then
                     DecideOutcome;
          'coal' : If FindCoalRock Then
                     DecideOutcome;
          'both' : If FindMithRock Then
                     DecideOutCome
                   Else
                     If FindCoalRock Then
                       DecideOutcome
        end;
         begin
          FindNormalRandoms;
          DetectGas;
          FFlag(3);
          Wait(800 + Random(200));
          if FindBlackChatMessage('urren') then
          begin
            CheckIfStuck;
            MineRock;
          end else
             WaitWhileMine;
         end;
         FindTalk;
        Until(InvFull);
     Disguise('Mined = '+IntToStr(OresMined + CheckOres)+ ' Ores');
    end;

    {----------------------------}
    {     Failsafe for Bank      }
    {----------------------------}

    function FindBankColor: Integer; //Thanks ACA 2!
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
      X, Y, Z: Extended;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.65, 0.08);

      FindColorsSpiralTolerance(MMCX, MMCY, arP, 9021615, MMX1, MMY1, MMX2, MMY2, 6);
      if (Length(arP) = 0) then
      begin
        Writeln('Failed to find the color, no result.');
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;

      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);

      for i := 0 to arL do
      begin
        ColorToXYZ(arC[i], X, Y, Z);

        if (X >= 32.81) and (X <= 39.60) and (Y >= 34.59) and (Y <= 43.18) and (Z >= 26.04) and (Z <= 32.64) then
        begin
          Result := arC[i];
          Writeln('BankColor = ' + IntToStr(arC[i]));
          Break;
        end;
      end;

      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if (i = arL + 1) then
        Writeln('AutoColor failed in finding the color.');
    end;

    {----------------------------}
    {     More Anti Bannage      }
    {----------------------------}

    Procedure CheckSkill;
    Begin
      GameTab(2);
        MouseBox(663, 229, 709, 255, 1);
        Wait(1000+Random(200));
        If GetColor(326, 300) = 6065066 Then
         Begin
           MMouse(327, 311, 3, 3);
             GetMousePos(x, y);
             HoldMouse(x, y, True);
             Wait(800 + Random(700));
           ReleaseMouse(x, y, True);
         end;
          Wait(100 + Random(200));
          Case Random(3) Of
            0, 1 : CloseWindow;
            2 : MouseBox(402, 75, 479, 156, 1);
          end;
            Wait(1000 + Random(800));
            CloseWindow;
          GameTab(4);
        Exit;
    end;

    {----------------------------}
    {     Try Try Again          }
    {----------------------------}

    Procedure TryAgain;
    Label A;
    Var
     WhichAngle : Extended;

    Begin
      If Not DTMRotated(DTMFromString('78DA630C676260F06240018F1E3D62F80FA41' +
        '981F83F10307A03D504A2AAF9F387894103AA060418C38950138F' +
        'A9E6ED5B061435009E4D108D'), X, Y, MMX1, MMY1, MMX2, MMY2) Then
           Goto A
         else
          Begin
            If FindDTMRotated(DTMFromString('78DA630C676260F06240018F1E3D62F80FA41' +
           '981F83F10307A03D504A2AAF9F387894103AA060418C38950138F' +
           'A9E6ED5B061435009E4D108D'), X, Y, MMX1, MMY1, MMX2, MMY2, Radians(-30), Radians(30), 0.05, WhichAngle) Then
            Begin
              MouseFlag(x, y, 3, 3, 0);
              WriteLn('Used DTM Bank Finding!');
              Exit;
            end;
          end;
    A : If FindBitmapToleranceIn(
       BitmapFromString(5, 4, 'beNpbM2HbGnzo3ftnQIRdFgDLuyiL'), x, y, 556, 51,
       632, 99, 18)  Then
        Begin
          Mouse(x + Random(27) , y, 0, 0, True);
          FFlag(0);
          WriteLn('Used Bank Floor Color, for entering!');
          Exit;
        end else

    Begin
      SymbolAccuracy := 0.1;
      If FindSymbol(x, y, 'Bank') Then
        MouseFlag(x, y, 0, 0, 0)

       else
        SymbolAccuracy := 0.45;
        Exit;
       end;
     SymbolAccuracy := 0.45;
    end;

    {----------------------------}
    {        My OpenBank         }
    {----------------------------}

    Function OpenBankWindow : Boolean;
    Var xx, yy : Integer;
        WhichAcc : Extended;

    Begin
     Result := FindDeformedBitmapToleranceIn(BitmapFromString(9, 6, 'beNqLsk8OsMCF0oKtcKHMUBsyUE6EH' +
               'S6UH2WPHQEAciA0vQ=='), xx, yy, MSX1, MSY1, MSX2,
               MSY2, 9/(257/100), 3, False, WhichAcc) = True;
        MMouse(xx, yy, 0, 0);
        GetMousePos(xx, yy);

        If IsUpText('ank') Then
         Begin
           Mouse(xx, yy, 0, 0, False);
           ChooseOption('uickly');
         end;
    End;

    {----------------------------}
    {        Baking Ores         }
    {----------------------------}

    Procedure BankOres;
    Var lx, ly : Integer;
    Label GTL, Cont, GTL1, ExitG, L9l;

    Begin
      If Players[CurrentPlayer].Booleans[0] = False Then GoTo L9l
       Else
        Case Random(3) Of
          0 : MouseFlag(RandomRange(MMX1, MMX2), RandomRange(MMY1, MMY2), 50, 50, 0);
        end;

        Begin
          GameTab(4);
          For I := 2 To 28 Do
            Begin
             DropItem(I);
             Wait(300 + Random(200));
            end;
         Inc(Banked);
         Players[CurrentPlayer].integers[2] := players[CurrentPlayer].integers[2] + 1;
         Inc(ReportVars[1]);
         Exit;
       end;
      l9L :
      Loc := 'Exiting Guild';
      Proggie;
      OrezMined := OresMined;
      IncEx(OresMined, CheckOres);
      IncEx(ReportVars[0], CheckOres)
      IncEx(Players[CurrentPlayer].integers[3], CheckOres);
        Begin
          SetRunFast(True);
          Gametab(4);
          If FindSymbol(x, y, 'Mining Spot') Then
            MouseFlag(x, y, 0, 0, 0);

            If Not FindObjCustom(x, y, ['oor'], [4214864, 2438967], 15) Then
             GoTo ExitG
            else
              Begin
                MouseFlag(MMCX, MMCY + 67, 5, 5, 0);
                 If FindSymbol(x, y, 'Mining Spot') Then
                  MouseFlag(x, y, 0, 0, 2);
              end;

          ExitG :
            If MFF(MMCX - 60, MMCY, 5, 15) Then
              FFlag(7 + Random(3));
                Begin
                  If FindLadderColor = 0 Then MouseFlag(MMCX - 55, MMCY, 10, 10, 0)
                 else
                  If FindColorSpiral(lx, ly, FindLadderColor, MMX1, MMY1, MMX2, MMY2) Then
                    Mouse(lx, ly, 1, 4, True)
                  end;
    GTL :      Loc := 'To Bank';

               FFlag(0);

    Cont :  Proggie;
              ClimbLadder('up')
                Begin
                 If Not (GetColor(558, 100) = 65536) Then GoTo GTL1
                  else
                   If Not FindColor(x, y, FindFallyRoadColor, MMX1, MMY1, MMX2, MMY2) Then
                      WriteLn('Using Random Mouse Methods');
                       Begin
                        y := 0;
                        Repeat
                          MMouse(Random(MSCX), Random(MSCY), 250, 250);
                          Wait(150 + Random(30));
                          Y := Y + 1;
                        Until(IsUpText('adder')) Or (Y > 50)
                          GetMousePos(x, y);
                          Wait(800 + Random(200));
                          Mouse(x, y, 1, 1, False);
                          ChooseOption('p');
                          Wait(3000+Random(400));
                       end;
                   end;

           GTL1 :   WriteLn('We HAVE SUCESSFULLY CLIMBED TO THE SURFACE');
                   SetRunFAST(TRUE);
                   Begin
                      MouseBox(590, 19, 651, 33, 1);

                   Begin
                     I := 0;
                      If FlagPresent Then
                       Repeat
                        Wait(1000 + Random(200));
                        Inc(I);
                       Until(Not FlagPresent) or (I > 12);
                          I := 0;
                         If Not FlagPresent Then
                          Begin
                           Repeat
                             Wait(1000 + Random(200));
                             Inc(I);
                           Until(FlagPresent) or (I > 12);
                          end else
                         FFlag(5);
                          end;
                     end;
                     Loc := 'Banking';

                      FFlag(0);
                       Begin
                        If Not FindSymbol(x, y, 'Bank') Then TryAgain
                         else
                          Begin
                            MouseFlag(x, y, 1, 1, 2);
                            FFlag(0);
                          end;
                         Wait(1);
                         If OpenBankFast('feb') Then
                           Begin
                             If Not OpenBankQuiet('feb') Then
                              MakeCompass('S');
                               If Not OpenBankWindow Then
                                FFlag(0);
                            end;

                              If PinScreen Then
                               InPin(Pin_Number);
                            If BankScreen Then
                             Begin
                               Wait(400 + Random(500));
                               Gems := Gems + CountItems(DTMFromString('78DA63CC636260F8C08006189148209D06547' +
                               '387809A12A09A8704D42401D53CC7AF0600CE250553'), 'dtm', [10*70/99])
                               Deposit(2 + Random(25), 28, True);
                               Wait(100+Random(999));
                               If Not InvEmpty Then
                                 Deposit(2, 28, True);

                                 Wait(Random(900));
                               CloseBank;
                             Players[CurrentPlayer].integers[2] := players[CurrentPlayer].integers[2] + 1;
                             IncEx(Banked, 1);
                             IncEx(ReportVars[1], 1);
                          end;
                       end;
        WriteLn('Banked :p');
       end;
    end;

    {----------------------------}
    {   Progress Report Saver    }
    {----------------------------}

    Procedure Save;
    Var S : Array[0..2] Of String;
        G : Array[0..2] Of Integer;

    Begin
      Try
        G[0] := ReWriteFile(ScriptPath+'Guild X Min0r Proggies!.txt', False);
        S[0] := Between('roggie :', '~', GetDebugText);
        WriteFileString(G[0], 'Guild X Min0r! Proggie - Please post this stuff on the script thread'+#13+#10+#13+#10);
        WriteFileString(G[0], S[0]+#13+#10);
        WriteFileString(G[0], 'This proggie was written '+TheTime+' at '+TheDate(1));
        CloseFile(G[0]);
      Except
        Writeln('Saving Failed!');
      end;

       Try
         G[1] := ReWriteFile(AppPath+'Guild X Min0r Proggies1!.txt', False);
         S[1] := Between('roggie :', '~', GetDebugText);
         WriteFileString(G[1], 'Guild X Min0r! Proggie - Please post this stuff on the script thread'+#13+#10+#13+#10);
         WriteFileString(G[1], S[1]);
         WriteFileString(G[1], #13+#10+'This proggie was written '+TheTime+' at '+TheDate(1));
         CloseFile(G[1]);
       Except
         Writeln('Saving Failed!');
      end;
    end;

    {----------------------------}
    {     Progress Report        }
    {----------------------------}

    Procedure Proggie;
    Var
      Sx : Integer;
    Begin

      Sx := TimeFromMark(ScriptRunTime) / 1000;
      ClearDebug;
      WriteLn('Proggie :');
      WriteLn('>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>$');
      WriteLn('[      NaumanAkhlaQ Presents       ]$');
      WriteLn('[         GuildXMin0r!             ]$');
      WriteLn('|                                  |$');
      WriteLn('| [> Worked '+ TimeRunning +'!      $');
      WriteLn('| [> Mined '+ IntToStr(OresMined)+' Ores$');
      If Players[CurrentPlayer].Booleans[0] = True Then
        WriteLn('| [> Dropped '+ IntToStr(Banked) +' Loads$')
      else
        WriteLn('| [> Banked '+ IntToStr(Banked) +' Loads$');
      If Loc = 'Banking' Then
     
        WriteLn('| [> OresPerHour (OPH) '+ IntToStr(Ceil(3600*OresMined/Sx))+'!$');

       WriteLn('| [> Found '+IntToStr(Gems)+' Gem Stones$');
       WriteLn('| [> Did '+IntToStr(Responds)+' Responds!$');
       WriteLn('| --> Found '+ IntToStr(Gas)+' Gas Leaks$');
       WriteLn('| --> We Broke '+ IntToStr(BrokenPickZ)+' Pickaxes!!$');
       WriteLn('| ---------------------- ');
       WriteLn('| [> Current Version Is V'+ Ver+' Pub!    $');
       WriteLn('=       Thank You For Using ;)     $');
       WriteLn('=================================== $');
       For I := 0 to (HowManyPlayers - 1)  do
       Begin
         If Players[CurrentPlayer].Booleans[0] = False Then
           WriteLn('[-} '+ Players[I].Name +' /\ Mined '+IntToStr(Players[I].integers[3])+ ' of '+ LowerCase(Players[I].Strings[0]) + ' Ores. /\ Banked ' +IntToStr(Players[I].integers[2])+' Loads!$')
         Else
           WriteLn('[-} '+ Players[I].Name +' /\ Mined '+IntToStr(Players[I].integers[3])+ ' of '+ LowerCase(Players[I].Strings[0]) + ' Ores. /\ Dropped ' +IntToStr(Players[I].integers[2])+' Loads!$');
          {--------------------------------------------------------------------}
         WriteLn('   <------------ |-----------$$-----------| ------------>$');
         WriteLn('$');
       End;
      Begin
       WriteLn('     ++++++++++++++++++++$');
       SRLRandomsReport;
       If (Not (LoggedIn)) Then
         Begin
           WriteLn('--> Lost Player : '+Players[CurrentPlayer].Name+ ' -> Location = '+Loc+' |$')
           LogOut;
           NextPlayer(False);

       end else

        WriteLn('> ' +Players[CurrentPlayer].Name+ ' Location = '+Loc+' |$');
        WriteLn('> Mining '+LowerCase(Players[CurrentPlayer].Strings[0])+' Ore[s]$');
        WriteLn('> Using ' +IntToStr(HowManyPlayers)+ ' Players$');
          Try
            If Banked >= Players[CurrentPlayer].Integers[0] Then
              WriteLn('Loads Done and Dusted!$');
          Finally
            FindNormalRandoms;
          Except
        end;
      end;
     WriteLn('~');
     Save;
    end;

    {----------------------------}
    {     Setup for SMART        }
    {----------------------------}
    {
    Procedure SetUpSMART;
    Begin
       WriteLn('Making S.M.A.R.T Ready');
       SmartSetupEx(SMARTWorld, false, true, false);
       SetTargetDC(SmartGetDC);
       wait(2000+Random(2000));
        WriteLn('Loaded S.M.A.R.T');
        Exit;
    end;

    {----------------------------}

    {     Player Inactive?       }
    {----------------------------}

    function EveryPlayerFalse: Boolean;
    var
      I, Count: Integer;
    begin
      for I := 0 to HowManyPlayers - 1 do
       if Players[I].Active = False then
        IncEx(Count, 1);
      Result := Count = HowManyPlayers;
    end;

    {----------------------------}
    {        Sig Paster          }
    {----------------------------}

    Procedure PasteSig(bmp, x1, y1, x2, y2, xx1, yy1, xx2, yy2: Integer);
    Var
      old: Integer; //ty to MasterKill for this :p
    Begin
      old := GetClientWindowHandle;
      SetTargetDC(SmartGetDebugDC);
      CopyCanvas(GetBitmapCanvas(bmp), GetClientCanvas, x1, y1, x2, y2, xx1, yy1, xx2, yy2);
      SetTargetDC(old);
    End;

    {------------------------------}
    { Wield Pickaxe - Discontinued }
    {------------------------------}

    Var
      Wielded : Boolean;

    Procedure WieldPick;     //May use later, for now- too confusing :S
    Var
      Axe : String;
      CBLvl, c0l0r : Integer;
    Begin
      GameTab(4);
      MMouseItem(1);
      wait(1000 + Random(200));

      Case Between('wield ', ' pickaxe', Lowercase(rs_GetUpText)) Of
        'steel' : CBLvl := 5;
        'mithril' : CBLvl := 20;
        'adamant' : CBLvl := 30;
        'rune' : CBLvl := 40;
      Else
       Begin
        If CBLvl = 0 Then
         WriteLn('Don'#39't Wield Your Pickaxe! / Get a Steel - Rune Pick!');
         Axe := '';
         TerminateScript;
       end;
      end;
       WriteLn('Using ' + Capitalize(Between('wield ', ' pickaxe', Lowercase(rs_GetUpText))) +' Pickaxe');

      If GetSkillLevel('attack') >= CBLvl Then
        WriteLn('You Can Wield your Axe!');
      Begin
        GameTab(4);
        Wait(800 + random(200));
        If Not FindDTM(DTMFromString('78DA6334626260E0636440069A32AC0CFF813' +
           '448F43F1030AA03D5F0A2AA81C8C248206D0254C345408D3D508D' +
           '1801351A40356A04D49811E11E909B05F0AB0100A0F6073E'), x, y,
           MIX1, MIY1, MIX2, MIY2) Then
            Begin
             Wielded := True;
             Exit;
            end else

             Begin
               Wielded := True;
               C0l0r := GetColor(x, y);
               Mouse(x, y, 1, 1, True);
               Repeat
                 Wait(800 + random(200));
               Until(Not(SimilarColors(C0l0r, GetColor(x, y), 5)));
             WriteLn('Wielded PickAxe');
           end;
       end;
    end;

    {----------------------------}
    {    MainLoop Start Here     }
    {----------------------------}

    {--- Private STATS account - DO NOT Tamper with the Account! ---}

    Const SRL_STATS_ID = '6239';  {leave these}
    Const SRL_STATS_PASSWORD = 'poopoo'; //leave these



    Procedure ResetVars;
    Begin
      Banked := 0; OresMined := 0; Gas := 0;
      Responds := 0; Gems := 0; BrokenPickZ := 0;
    end;

    Procedure ScriptTerminate;
    Begin
      Proggie;
      WriteLn('Thx for using :)');
    end;

    Procedure MainLoop;
    Label UU;
    Begin

      MouseSpeed := 12;
      ScriptID := '976';

      SRLID := SRL_STATS_ID;
      SRLPassword := SRL_STATS_PASSWORD;
      Siggy;
      WriteLn('Please Wait Loading...');
      MainGuildForm;
      SetupMining; //Sets Up Mining Info

      if (EndGuildForm) then
       Begin
         WriteLn('Script Ended, As requested!');
         TerminateScript;

       end else
      SRLPlayerForm(False, ['Withdraw New Pick If Broken?'], ['Loads To Do?'], ['Mine Mith or Coal?'], []);
      If Players[CurrentPlayer].Booleans[0] = True Then
        WriteLn('Dropping Ores')
       else
        WriteLn('Banking Ores');
     Repeat
      WriteLn('Mining '+Players[CurrentPlayer].Strings[0]+' Ore[s]');
      Wait(999);
      MarkTime(ScriptRunTime);
        Begin
          SymbolAccuracy := 0.45;
          LoadVars;
          {SetupSMART;

          SetTargetDC(SmartGetDC);
          SmartSetDebug(True);

          PasteSig(GuildSig, 0, 0, 139, 94, 0, 0, 139, 94);
          FreeBitmap(GuildSig);  }


           If Not LoggedIn Then
             LoginPlayer;

           //SetTargetDC(SmartGetDC);
           SetupResponds;

           Begin
            FindPickHeadColor;
            SetChat('off', 4);
           
             Repeat
              Loc := 'Starting Script';
              ActivateClient;
              WalkToGuild;

              UU :
              MineRock;
              BankOres;

              Proggie;
              SendSRLReport;
             
              If Players[CurrentPlayer].Booleans[0] Then
                GoTo UU;
             Until(Not(LoggedIn)) xOr (Banked >= Players[CurrentPlayer].Integers[0]);
               ResetVars;
               LogOut;
               
             If Players[CurrentPlayer].Integers[1] > 0 Then
               Begin
                 WriteLn('Sleeping for '+IntToStr(Players[CurrentPlayer].Integers[1])+' Minutes');
                 Disguise('Sleeping -_-');
                 SleepAndMoveMouse(10789+ Random(8000) +(Players[CurrentPlayer].Integers[1]*60000));
               end else

                 WriteLn('Not Sleeping, continuing...');

             If Not LoggedIn Then
               NextPlayer(False)

              else
               LogOut;
               NextPlayer(True);
         end;

      end;
     Until(EveryPlayerFalse);
      If EveryPlayerFalse Then

        WriteLn('Printing Final Proggie');
        Proggie;

      Disguise('FINISHED!!!');
    End;

    Begin
      SetupSRL;
      Disguise('Guild X Min0r!');

      MainLoop;
      TerminateScript;
    end.

    ----------------------------
         Script Ends Here!
    ----------------------------

    Hey Thanks for using this, Just wanna say. If you really wanna help SRL
    as a community - you should help other people.
    Long Live SRL!!!!!
    ~ NaumanAkhlaQ

  5. #5
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Im not quite sure what you're doing. I added the necessary code to make the form work...
    SCAR Code:
    Program New;
    Var
      frmDesign : TForm;
      Image1 : TImage;
      NP, SS, PP : TButton;
      UserName, PassWord, NickName, BankPin, SW, SleepEvery, MS, Loads  : TEdit;
      Active, Debug : TComboBox;
      BTM, Width, Height : Integer;

    Procedure InitForm;
    begin
      FrmDesign := CreateForm;
      FrmDesign.Left := 309;
      FrmDesign.Top := 80;
      FrmDesign.Width := 545;
      FrmDesign.Height := 381;
      FrmDesign.Caption := 'Air Crafter By Pur3B100d';

      Image1 := TImage.Create(frmDesign);
      Image1.Parent := frmDesign;
      Image1.Left := 0;
      Image1.Top := 0;
      Image1.Width := 529;
      Image1.Height := 345;
      //btm suppose to be here but too long
      //GetBitmapSize(BTM, Width, Height);
      //CopyCanvas(GetBitmapCanvas(BTM), Image1.Canvas, 0, 0, Width, Height, 0, 0, Width, Height);

      NP := TButton.Create(frmDesign);
      NP.Parent := frmDesign;
      NP.Left := 32;
      NP.Top := 272;
      NP.Width := 145;
      NP.Height := 41;
      NP.Hint := 'Next Player?';
      NP.Caption := 'Next Player';
      NP.Font.Color := clWindowText;
      NP.Font.Height := -11;
      NP.Font.Name := 'MS Sans Serif';
      NP.Font.Style := [];
      NP.ParentFont := False;
      NP.ParentShowHint := False;
      NP.ShowHint := True;
      NP.TabOrder := 8;
      SS := TButton.Create(frmDesign);
      SS.Parent := frmDesign;
      SS.Left := 352;
      SS.Top := 272;
      SS.Width := 145;
      SS.Height := 41;
      SS.Hint := 'Start Script?';
      SS.Caption := 'Start Script';
      SS.ParentShowHint := False;
      SS.ShowHint := True;
      SS.TabOrder := 9;
      UserName := TEdit.Create(frmDesign);
      UserName.Parent := frmDesign;
      UserName.Left := 32;
      UserName.Top := 32;
      UserName.Width := 145;
      UserName.Height := 21;
      UserName.Hint := 'UserName?';
      UserName.ParentShowHint := False;
      UserName.ShowHint := True;
      UserName.TabOrder := 10;
      UserName.Text := 'UserName';
      PassWord := TEdit.Create(frmDesign);
      PassWord.Parent := frmDesign;
      PassWord.Left := 32;
      PassWord.Top := 72;
      PassWord.Width := 145;
      PassWord.Height := 21;
      PassWord.Hint := 'PassWord?';
      PassWord.ParentShowHint := False;
      PassWord.ShowHint := True;
      PassWord.TabOrder := 11;
      PassWord.Text := 'PassWord';
      NickName := TEdit.Create(frmDesign);
      NickName.Parent := frmDesign;
      NickName.Left := 32;
      NickName.Top := 112;
      NickName.Width := 145;
      NickName.Height := 21;
      NickName.Hint := 'NickName?';
      NickName.ParentShowHint := False;
      NickName.ShowHint := True;
      NickName.TabOrder := 12;
      NickName.Text := 'NickName';
      BankPin := TEdit.Create(frmDesign);
      BankPin.Parent := frmDesign;
      BankPin.Left := 32;
      BankPin.Top := 152;
      BankPin.Width := 145;
      BankPin.Height := 21;
      BankPin.Hint := 'BankPin?';
      BankPin.ParentShowHint := False;
      BankPin.ShowHint := True;
      BankPin.TabOrder := 13;
      BankPin.Text := 'BankPin';
      SW := TEdit.Create(frmDesign);
      SW.Parent := frmDesign;
      SW.Left := 352;
      SW.Top := 32;
      SW.Width := 145;
      SW.Height := 21;
      SW.Hint := 'Smart World?';
      SW.ParentShowHint := False;
      SW.ShowHint := True;
      SW.TabOrder := 14;
      SW.Text := 'SMART World';
      SleepEvery := TEdit.Create(frmDesign);
      SleepEvery.Parent := frmDesign;
      SleepEvery.Left := 352;
      SleepEvery.Top := 88;
      SleepEvery.Width := 145;
      SleepEvery.Height := 21;
      SleepEvery.Hint := 'Sleep Every?';
      SleepEvery.ParentShowHint := False;
      SleepEvery.ShowHint := True;
      SleepEvery.TabOrder := 15;
      SleepEvery.Text := 'Sleep Every';
      MS := TEdit.Create(frmDesign);
      MS.Parent := frmDesign;
      MS.Left := 352;
      MS.Top := 144;
      MS.Width := 145;
      MS.Height := 21;
      MS.Hint := 'Mouse Speed?';
      MS.ParentShowHint := False;
      MS.ShowHint := True;
      MS.TabOrder := 16;
      MS.Text := 'Mouse Speed';
      Active := TComboBox.Create(frmDesign);
      Active.Parent := frmDesign;
      Active.Left := 32;
      Active.Top := 232;
      Active.Width := 145;
      Active.Height := 21;
      Active.Hint := 'Active?';
      Active.ItemHeight := 13;
      Active.TabOrder := 17;
      Active.Text := 'Active';
      Active.Items.Add('True');
      Active.Items.Add('False');
      Debug := TComboBox.Create(frmDesign);
      Debug.Parent := frmDesign;
      Debug.Left := 352;
      Debug.Top := 200;
      Debug.Width := 145;
      Debug.Height := 21;
      Debug.Hint := 'Debug?';
      Debug.ItemHeight := 13;
      Debug.TabOrder := 18;
      Debug.Text := 'Debug';
      Debug.Items.Add('True');
      Debug.Items.Add('False');
      Loads := TEdit.Create(frmDesign);
      Loads.Parent := frmDesign;
      Loads.Left := 32;
      Loads.Top := 192;
      Loads.Width := 145;
      Loads.Height := 21;
      Loads.Hint := 'Loads?';
      Loads.TabOrder := 19;
      Loads.Text := 'Loads';
      PP := TButton.Create(frmDesign);
      PP.Parent := frmDesign;
      PP.Left := 192;
      PP.Top := 272;
      PP.Width := 145;
      PP.Height := 41;
      PP.Hint := 'Previous Player?';
      PP.Caption := 'Previous Player';
      PP.ParentShowHint := False;
      PP.ShowHint := True;
      PP.TabOrder := 20;
    end;

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

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

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

    begin
      GetSelf.WindowState := wsMinimized;
      try
        SafeInitForm;
        SafeShowFormModal;
      finally
        FreeForm(frmDesign);
      except
        WriteLn('meh!!!');
      end;
      GetSelf.WindowState := wsMaximized;
    end.
    but it doesnt look like you have the form set up to use tabs.
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  6. #6
    Join Date
    Feb 2007
    Location
    Toronto, Ontario, Canada
    Posts
    586
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    http://www.villavu.com/forum/showthread.php?t=38813
    Edit: Sorry, that's in Members' section... you could probably PM Shermanator for help with it, as his guild miner form has the exact thing you're trying to do.

  7. #7
    Join Date
    Dec 2007
    Posts
    2,112
    Mentioned
    71 Post(s)
    Quoted
    580 Post(s)

    Default

    ok since i still dont get the whole idea of tabs im gonna try do what masterkill did in his iron miner
    ok this is what im up to but i keep getting this error
    SCAR Code:
    Successfully compiled (53 ms)
    meh!!!
    [Runtime Error] : Out Of Range in line 202 in script C:\Program Files\SCAR 3.15\Scripts\acform.scar\Scripts\acform.scar
    this is the script i have got so far
    SCAR Code:
    program New;
    Var
      frmDesign : TForm;
      NP, PP, SS : TButton;
      UserName, PassWord, NickName, BankPin, Loads, SW, SleepEvery, MS : TEdit;
      Active, Debug : TComboBox;
      Players : TMemo;
     
    Procedure InitForm;
    begin
      FrmDesign := CreateForm;
      FrmDesign.Left := 947;
      FrmDesign.Top := 133;
      FrmDesign.Width := 545;
      FrmDesign.Height := 349;
      FrmDesign.Caption := 'Air Crafter By Pur3B100D';
      FrmDesign.Color := clBtnFace;
      FrmDesign.Font.Color := clWindowText;
      FrmDesign.Font.Height := -11;
      FrmDesign.Font.Name := 'MS Sans Serif';
      FrmDesign.Font.Style := [];
      FrmDesign.Visible := True;
      FrmDesign.PixelsPerInch := 96;
      NP := TButton.Create(frmDesign);
      NP.Parent := frmDesign;
      NP.Left := 352;
      NP.Top := 152;
      NP.Width := 145;
      NP.Height := 40;
      NP.Hint := 'Next Player?';
      NP.Caption := 'Next Player';
      NP.ParentShowHint := False;
      NP.ShowHint := True;
      NP.TabOrder := 8;
      PP := TButton.Create(frmDesign);
      PP.Parent := frmDesign;
      PP.Left := 352;
      PP.Top := 200;
      PP.Width := 145;
      PP.Height := 40;
      PP.Hint := 'Previous Player?';
      PP.Caption := 'Previous Player';
      PP.ParentShowHint := False;
      PP.ShowHint := True;
      PP.TabOrder := 9;
      SS := TButton.Create(frmDesign);
      SS.Parent := frmDesign;
      SS.Left := 352;
      SS.Top := 248;
      SS.Width := 145;
      SS.Height := 40;
      SS.Hint := 'Start Script?';
      SS.Caption := 'Start Script';
      SS.ParentShowHint := False;
      SS.ShowHint := True;
      SS.TabOrder := 10;
      UserName := TEdit.Create(frmDesign);
      UserName.Parent := frmDesign;
      UserName.Left := 16;
      UserName.Top := 24;
      UserName.Width := 145;
      UserName.Height := 21;
      UserName.Hint := 'UserName?';
      UserName.ParentShowHint := False;
      UserName.ShowHint := True;
      UserName.TabOrder := 11;
      UserName.Text := 'UserName';
      PassWord := TEdit.Create(frmDesign);
      PassWord.Parent := frmDesign;
      PassWord.Left := 16;
      PassWord.Top := 56;
      PassWord.Width := 145;
      PassWord.Height := 21;
      PassWord.Hint := 'PassWord?';
      PassWord.ParentShowHint := False;
      PassWord.ShowHint := True;
      PassWord.TabOrder := 12;
      PassWord.Text := 'PassWord';
      NickName := TEdit.Create(frmDesign);
      NickName.Parent := frmDesign;
      NickName.Left := 16;
      NickName.Top := 88;
      NickName.Width := 146;
      NickName.Height := 21;
      NickName.Hint := 'NickName?';
      NickName.ParentShowHint := False;
      NickName.ShowHint := True;
      NickName.TabOrder := 13;
      NickName.Text := 'NickName';
      BankPin := TEdit.Create(frmDesign);
      BankPin.Parent := frmDesign;
      BankPin.Left := 16;
      BankPin.Top := 120;
      BankPin.Width := 145;
      BankPin.Height := 21;
      BankPin.Hint := 'BankPin?';
      BankPin.ParentShowHint := False;
      BankPin.ShowHint := True;
      BankPin.TabOrder := 14;
      BankPin.Text := 'BankPin';
      Loads := TEdit.Create(frmDesign);
      Loads.Parent := frmDesign;
      Loads.Left := 16;
      Loads.Top := 184;
      Loads.Width := 145;
      Loads.Height := 21;
      Loads.Hint := 'Loads?';
      Loads.ParentShowHint := False;
      Loads.ShowHint := True;
      Loads.TabOrder := 15;
      Loads.Text := 'Loads';
      SW := TEdit.Create(frmDesign);
      SW.Parent := frmDesign;
      SW.Left := 352;
      SW.Top := 24;
      SW.Width := 145;
      SW.Height := 21;
      SW.Hint := 'SMART World?';
      SW.ParentShowHint := False;
      SW.ShowHint := True;
      SW.TabOrder := 16;
      SW.Text := 'SMART World';
      SleepEvery := TEdit.Create(frmDesign);
      SleepEvery.Parent := frmDesign;
      SleepEvery.Left := 352;
      SleepEvery.Top := 56;
      SleepEvery.Width := 145;
      SleepEvery.Height := 21;
      SleepEvery.Hint := 'Sleep Every?';
      SleepEvery.ParentShowHint := False;
      SleepEvery.ShowHint := True;
      SleepEvery.TabOrder := 17;
      SleepEvery.Text := 'Sleep Every';
      MS := TEdit.Create(frmDesign);
      MS.Parent := frmDesign;
      MS.Left := 352;
      MS.Top := 88;
      MS.Width := 145;
      MS.Height := 21;
      MS.Hint := 'Mouse Speed?';
      MS.ParentShowHint := False;
      MS.ShowHint := True;
      MS.TabOrder := 18;
      MS.Text := 'Mouse Speed';
      Active := TComboBox.Create(frmDesign);
      Active.Parent := frmDesign;
      Active.Left := 16;
      Active.Top := 152;
      Active.Width := 145;
      Active.Height := 21;
      Active.Hint := 'Active?';
      Active.ItemHeight := 13;
      Active.ParentShowHint := False;
      Active.ShowHint := True;
      Active.TabOrder := 19;
      Active.Text := 'Active';
      Active.Items.Add('True');
      Active.Items.Add('False');
      Debug := TComboBox.Create(frmDesign);
      Debug.Parent := frmDesign;
      Debug.Left := 352;
      Debug.Top := 120;
      Debug.Width := 145;
      Debug.Height := 21;
      Debug.Hint := 'Debug?';
      Debug.ItemHeight := 13;
      Debug.ParentShowHint := False;
      Debug.ShowHint := True;
      Debug.TabOrder := 20;
      Debug.Text := 'Debug';
      Debug.Items.Add('True');
      Debug.Items.Add('False');
      Players := TMemo.Create(frmDesign);
      Players.Parent := frmDesign;
      Players.Left := 184;
      Players.Top := 24;
      Players.Width := 145;
      Players.Height := 177;
      Players.ReadOnly := True;
      Players.TabOrder := 21;
    End;

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

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

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

    begin
      GetSelf.WindowState := wsMinimized;
      try
        SafeInitForm;
        SafeShowFormModal;
      finally
        FreeForm(FrmDesign);
      except
        WriteLn('meh!!!');
      end;
      GetSelf.WindowState := wsMaximized;
    end.

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
  •