diff --git a/.gitattributes b/.gitattributes
deleted file mode 100644
index bdb0cab..0000000
--- a/.gitattributes
+++ /dev/null
@@ -1,17 +0,0 @@
-# Auto detect text files and perform LF normalization
-* text=auto
-
-# Custom for Visual Studio
-*.cs     diff=csharp
-
-# Standard to msysgit
-*.doc	 diff=astextplain
-*.DOC	 diff=astextplain
-*.docx diff=astextplain
-*.DOCX diff=astextplain
-*.dot  diff=astextplain
-*.DOT  diff=astextplain
-*.pdf  diff=astextplain
-*.PDF	 diff=astextplain
-*.rtf	 diff=astextplain
-*.RTF	 diff=astextplain
diff --git a/.gitignore b/.gitignore
deleted file mode 100644
index 96374c4..0000000
--- a/.gitignore
+++ /dev/null
@@ -1,43 +0,0 @@
-# Windows image file caches
-Thumbs.db
-ehthumbs.db
-
-# Folder config file
-Desktop.ini
-
-# Recycle Bin used on file shares
-$RECYCLE.BIN/
-
-# Windows Installer files
-*.cab
-*.msi
-*.msm
-*.msp
-
-# Windows shortcuts
-*.lnk
-
-# =========================
-# Operating System Files
-# =========================
-
-# OSX
-# =========================
-
-.DS_Store
-.AppleDouble
-.LSOverride
-
-# Thumbnails
-._*
-
-# Files that might appear on external disk
-.Spotlight-V100
-.Trashes
-
-# Directories potentially created on remote AFP share
-.AppleDB
-.AppleDesktop
-Network Trash Folder
-Temporary Items
-.apdisk
diff --git a/2k Maps Readme & License b/2k Maps Readme & License
deleted file mode 100644
index 56a40f7..0000000
--- a/2k Maps Readme & License	
+++ /dev/null
@@ -1,12 +0,0 @@
-** These maps are released to the public domain **
-
-These are new maps for TurboRisk, in a size of 1850x900. This size was selected because TurboRisk doesn't allow resizing or maximizing the window, so margins were left to easily place the window and still fit in 2k resolution (1920x1080). Different Windows themes could give different results.
-
-There are three maps:
-* Simplified: eliptical projection, simplified; based on PD work by Tom-b and found on Wikicommons.
-* Realistic Mercator: mercator projection, following frontiers where available, or divisions from the standard map when not.
-* Simplified Mercator: mercator projection, and simplified in large irregular polygons.
-
-Thanks to Nathan for the colours, borrowed from his modification of the standard map.
-
-TurboRisk was made by Mario Ferrari - https://www.marioferrari.org/freeware/turborisk/turborisk.html
\ No newline at end of file
diff --git a/About.dfm b/About.dfm
deleted file mode 100644
index d32ad02..0000000
Binary files a/About.dfm and /dev/null differ
diff --git a/About.pas b/About.pas
deleted file mode 100644
index 62462d7..0000000
--- a/About.pas
+++ /dev/null
@@ -1,66 +0,0 @@
-unit About;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ExtCtrls;
-
-type
-  TfAbout = class(TForm)
-    Label2: TLabel;
-    Label4: TLabel;
-    Label5: TLabel;
-    lblVersion: TLabel;
-    Label6: TLabel;
-    Image1: TImage;
-    txtCredits: TMemo;
-    procedure FormShow(Sender: TObject);
-  private
-    { Private declarations }
-  public
-    { Public declarations }
-  end;
-
-var
-  fAbout: TfAbout;
-
-implementation
-
-{$R *.DFM}
-
-uses Globals;
-
-procedure TfAbout.FormShow(Sender: TObject);
-begin
-  lblVersion.Caption := 'Version ' + sG_AppVers;
-  with txtCredits.Lines do begin
-    Clear;
-    Add(
-      'Many thanks to Steve Stancliff for his WinRisk program, which I liked ' + 'and used so much, and which  inspired TurboRisk.');
-    Add('');
-    Add('I want to thank all the many people who gave a contribution ' +
-        'to make TurboRisk a better program.');
-    Add('');
-    Add('A very special thanks to the following people for their invaluable help:');
-    Add('');
-    Add('Paul R. Brown');
-    Add('Julio Couce');
-    Add('Anthony Covey-Crump');
-    Add('Bobo Frogg');
-    Add('Alexander Gogava');
-    Add('Heitor Mansel');
-    Add('Martin Nehrdich');
-    Add('Eric Platel');
-    Add('Timothy Purkess');
-    Add('Rafal Smotrzyk');
-    Add('Chrystian Wurmser');
-    Add('');
-    Add('Nathan Scarbrough deserves a special mention, because of his enormous'
-        + ' contribution to the development and testing of version 2.');
-    Add('');
-    Add('Thanks to RemObjects for their free Pascal Script interpreter.');
-  end;
-end;
-
-end.
diff --git a/Attack.dfm b/Attack.dfm
deleted file mode 100644
index 1f7f307..0000000
Binary files a/Attack.dfm and /dev/null differ
diff --git a/Attack.pas b/Attack.pas
deleted file mode 100644
index 924b8f1..0000000
--- a/Attack.pas
+++ /dev/null
@@ -1,224 +0,0 @@
-unit Attack;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, Buttons, ExtCtrls;
-
-type
-  TfAttack = class(TForm)
-    panFromTerr: TPanel;
-    Label1: TLabel;
-    Label2: TLabel;
-    Label3: TLabel;
-    Label4: TLabel;
-    Label5: TLabel;
-    Label6: TLabel;
-    panFromArmies: TPanel;
-    panFromPlayer: TPanel;
-    panFromColor: TPanel;
-    panToTerr: TPanel;
-    panToArmies: TPanel;
-    panToPlayer: TPanel;
-    panToColor: TPanel;
-    cmdAttack: TBitBtn;
-    cmdRetreat: TBitBtn;
-    cmdDoOrDie: TBitBtn;
-    chkAutoMoveAll: TCheckBox;
-    cmdAttackUntil1: TBitBtn;
-    cboUntil1: TComboBox;
-    lblUntil1: TLabel;
-    cmdAttackUntil2: TBitBtn;
-    lblUntil2: TLabel;
-    cboUntil2: TComboBox;
-    procedure FormShow(Sender: TObject);
-    procedure cmdAttackClick(Sender: TObject);
-    procedure cmdDoOrDieClick(Sender: TObject);
-    procedure cmdAttackUntil1Click(Sender: TObject);
-    procedure cmdAttackUntil2Click(Sender: TObject);
-    procedure cboUntilKeyPress(Sender: TObject; var Key: Char);
-    procedure FormKeyPress(Sender: TObject; var Key: Char);
-  private
-    procedure UpdateDisplay;
-  public
-    iTf, iTt: integer; // Territori Da e A attacco
-  end;
-
-var
-  fAttack: TfAttack;
-
-implementation
-
-{$R *.DFM}
-
-uses Globals, Main, Territ, Stats;
-
-procedure TfAttack.FormShow(Sender: TObject);
-begin
-  // size and controls depend on preferences
-  if bPrefExpertAttack then begin
-    cmdAttackUntil1.Visible := true;
-    cmdAttackUntil2.Visible := true;
-    lblUntil1.Visible := true;
-    lblUntil2.Visible := true;
-    cboUntil1.Visible := true;
-    cboUntil2.Visible := true;
-    Height := 254;
-  end
-  else begin
-    cmdAttackUntil1.Visible := false;
-    cmdAttackUntil2.Visible := false;
-    lblUntil1.Visible := false;
-    lblUntil2.Visible := false;
-    cboUntil1.Visible := false;
-    cboUntil2.Visible := false;
-    Height := 186;
-  end;
-  // dynamic window position
-  if arTerritory[iTf].Coord.X > fMain.Width div 2 then
-    Left := fMain.Left + 18
-  else
-    Left := fMain.Left + 338;
-  if arTerritory[iTf].Coord.Y > fMain.Height div 2 then
-    Top := fMain.Top + 70
-  else
-    Top := fMain.Top + 290;
-  // inizializzazione controlli
-  panFromTerr.Caption := arTerritory[iTf].Name;
-  panFromPlayer.Caption := arPlayer[iTurn].Name;
-  panFromColor.Color := arPlayer[iTurn].Color;
-  panToTerr.Caption := arTerritory[iTt].Name;
-  panToPlayer.Caption := arPlayer[arTerritory[iTt].Owner].Name;
-  panToColor.Color := arPlayer[arTerritory[iTt].Owner].Color;
-  UpdateDisplay;
-end;
-
-procedure TfAttack.FormKeyPress(Sender: TObject; var Key: Char);
-begin
-  case Key of
-    'A','a':
-      cmdAttackClick(Sender);
-    'D','d':
-      cmdDoOrDieClick(Sender);
-    'R','r':
-      ModalResult := mrCancel;
-    'M','m':
-      cmdAttackUntil1Click(Sender);
-    'E','e':
-      cmdAttackUntil2Click(Sender);
-  end;
-end;
-
-procedure TfAttack.UpdateDisplay;
-begin
-  panFromArmies.Caption := IntToStr(arTerritory[iTf].Army);
-  panToArmies.Caption := IntToStr(arTerritory[iTt].Army);
-  cmdAttack.Enabled := (arTerritory[iTf].Army > 1);
-  cmdDoOrDie.Enabled := cmdAttack.Enabled;
-end;
-
-procedure TfAttack.cboUntilKeyPress(Sender: TObject; var Key: Char);
-begin
-  if not(Key in ['0' .. '9', #08]) then
-    Key := #0;
-end;
-
-procedure TfAttack.cmdAttackClick(Sender: TObject);
-begin
-  if PerformAttack(iTf, iTt) then begin
-    if chkAutoMoveAll.Checked then begin
-      inc(arTerritory[iTt].Army, arTerritory[iTf].Army - 1);
-      arTerritory[iTf].Army := 1;
-      DisplayTerritory(iTf);
-      DisplayTerritory(iTt);
-      UpdateStats;
-    end;
-    ModalResult := mrOK;
-  end
-  else begin
-    UpdateDisplay;
-  end;
-end;
-
-procedure TfAttack.cmdDoOrDieClick(Sender: TObject);
-var
-  bConquista: boolean;
-begin
-  repeat
-    bConquista := PerformAttack(iTf, iTt);
-    UpdateDisplay;
-    Application.ProcessMessages;
-  until bConquista or (arTerritory[iTf].Army < 2);
-  if bConquista then begin
-    if chkAutoMoveAll.Checked then begin
-      inc(arTerritory[iTt].Army, arTerritory[iTf].Army - 1);
-      arTerritory[iTf].Army := 1;
-      DisplayTerritory(iTf);
-      DisplayTerritory(iTt);
-      UpdateStats;
-    end;
-    ModalResult := mrOK;
-  end
-  else begin
-    ModalResult := mrCancel;
-  end;
-end;
-
-procedure TfAttack.cmdAttackUntil1Click(Sender: TObject);
-var
-  bConquista: boolean;
-  iTarget: integer;
-begin
-  bConquista := false;
-  iTarget := StrToIntDef(cboUntil1.Text, 0);
-  while not bConquista and (arTerritory[iTf].Army >= 2) and
-  (arTerritory[iTf].Army > iTarget) do begin
-    bConquista := PerformAttack(iTf, iTt);
-    UpdateDisplay;
-    Application.ProcessMessages;
-  end;
-  if bConquista then begin
-    if chkAutoMoveAll.Checked then begin
-      inc(arTerritory[iTt].Army, arTerritory[iTf].Army - 1);
-      arTerritory[iTf].Army := 1;
-      DisplayTerritory(iTf);
-      DisplayTerritory(iTt);
-      UpdateStats;
-    end;
-    ModalResult := mrOK;
-  end
-  else begin
-    ModalResult := mrCancel;
-  end;
-end;
-
-procedure TfAttack.cmdAttackUntil2Click(Sender: TObject);
-var
-  bConquista: boolean;
-  iTarget: integer;
-begin
-  bConquista := false;
-  iTarget := StrToIntDef(cboUntil2.Text, 0);
-  while not bConquista and (arTerritory[iTf].Army >= 2) and
-  (arTerritory[iTt].Army > iTarget) do begin
-    bConquista := PerformAttack(iTf, iTt);
-    UpdateDisplay;
-    Application.ProcessMessages;
-  end;
-  if bConquista then begin
-    if chkAutoMoveAll.Checked then begin
-      inc(arTerritory[iTt].Army, arTerritory[iTf].Army - 1);
-      arTerritory[iTf].Army := 1;
-      DisplayTerritory(iTf);
-      DisplayTerritory(iTt);
-      UpdateStats;
-    end;
-    ModalResult := mrOK;
-  end
-  else begin
-    ModalResult := mrCancel;
-  end;
-end;
-
-end.
diff --git a/Cards.dfm b/Cards.dfm
deleted file mode 100644
index a8b23c0..0000000
Binary files a/Cards.dfm and /dev/null differ
diff --git a/Cards.pas b/Cards.pas
deleted file mode 100644
index aa15859..0000000
--- a/Cards.pas
+++ /dev/null
@@ -1,237 +0,0 @@
-unit Cards;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  ExtCtrls, StdCtrls, Buttons, checklst;
-
-type
-  TfCards = class(TForm)
-    lstCards: TCheckListBox;
-    cmdTrade: TBitBtn;
-    cmdHold: TBitBtn;
-    panArmies: TPanel;
-    procedure FormShow(Sender: TObject);
-    procedure lstCardsClickCheck(Sender: TObject);
-    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-    procedure cmdTradeClick(Sender: TObject);
-  private
-    { Private declarations }
-    bReady: boolean;
-    iPBenefit,
-    iPInf, iPCav, iPArt, iPJok: integer;
-    function PreparaForm: boolean;
-  public
-    { Public declarations }
-  end;
-
-var
-  fCards: TfCards;
-
-// Assegna una nuova carta al giocatore di turno
-procedure PescaCarta;
-
-// Verifica la validità e il valore di una combinazione di carte
-function TestCombinazione(iInf, iCav, iArt, iJok: integer): integer;
-
-// Valuta la migliore combinazione per il giocatore di turno
-function CercaCombinazioneMigliore(var iInf, iCav, iArt, iJok: integer): boolean;
-
-implementation
-
-{$R *.DFM}
-
-uses Globals, Stats;
-
-procedure TfCards.FormShow(Sender: TObject);
-begin
-  PreparaForm;
-  UpdateGridPos;
-end;
-
-procedure TfCards.lstCardsClickCheck(Sender: TObject);
-var
-  i: integer;
-begin
-  if not bReady then exit;
-  iPInf:=0; iPCav:=0; iPArt:=0; iPJok:=0;
-  with arPlayer[iTurn], lstCards do begin
-    for i:=0 to Items.Count-1 do begin
-      if Checked[i] then begin
-        if Items[i]='Infantry' then inc(iPInf)
-        else if Items[i]='Cavalry' then inc(iPCav)
-        else if Items[i]='Artillery' then inc(iPArt)
-        else if Items[i]='Joker' then inc(iPJok);
-      end;
-    end;
-    iPBenefit := TestCombinazione(iPInf, iPCav, iPArt, iPJok);
-    if iPBenefit<=0 then begin
-      cmdTrade.Enabled := false;
-      panArmies.Caption := '';
-    end else begin
-      cmdTrade.Enabled := true;
-      panArmies.Caption := IntToStr(iPBenefit)+' armies';
-    end;
-  end;
-end;
-
-procedure TfCards.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-begin
-  CanClose := cmdHold.Enabled or (ModalResult = mrOK);
-end;
-
-procedure TfCards.cmdTradeClick(Sender: TObject);
-begin
-  with arPlayer[iTurn] do begin
-    if iPBenefit > 0 then begin
-      inc(NewArmy,iPBenefit);
-      dec(Cards[caInf],iPInf); dec(Cards[caCav],iPCav);
-      dec(Cards[caArt],iPArt); dec(Cards[caJok],iPJok);
-      inc(NScambi);
-      UpdateStats;
-    end;
-    // se non ci sono altre combinazioni e sono in gestione semiautom.-> esco
-    if not PreparaForm and (CardsHandling=chSmart) then
-      ModalResult := mrOK;
-  end;
-end;
-
-function TfCards.PreparaForm: boolean;
-var
-  i,
-  iInf, iCav, iArt, iJok: integer;
-begin
-  bReady := false;
-  with arPlayer[iTurn], lstCards do begin
-    // ricerca combinazione da proporre di default
-    Result := CercaCombinazioneMigliore(iInf, iCav, iArt, iJok);
-    // caricamento lista carte
-    Items.Clear;
-    for i:=1 to Cards[caInf] do begin
-      Items.Add('Infantry');
-      if iInf>0 then begin
-        Checked[Items.Count-1] := true;
-        dec(iInf);
-      end;
-    end;
-    for i:=1 to Cards[caCav] do begin
-      Items.Add('Cavalry');
-      if iCav>0 then begin
-        Checked[Items.Count-1] := true;
-        dec(iCav);
-      end;
-    end;
-    for i:=1 to Cards[caArt] do begin
-      Items.Add('Artillery');
-      if iArt>0 then begin
-        Checked[Items.Count-1] := true;
-        dec(iArt);
-      end;
-    end;
-    for i:=1 to Cards[caJok] do begin
-      Items.Add('Joker');
-      if iJok>0 then begin
-        Checked[Items.Count-1] := true;
-        dec(iJok);
-      end;
-    end;
-    cmdHold.Enabled := (Items.Count<=RMaxHeldCards);
-    bReady := true;
-    lstCardsClickCheck(self);
-  end;
-end;
-
-// Assegna una nuova carta al giocatore di turno
-procedure PescaCarta;
-begin
-  with arPlayer[iTurn] do begin
-    case Random(44)+1 of
-      1..14:  inc(Cards[caInf]);
-      15..28: inc(Cards[caArt]);
-      29..42: inc(Cards[caCav]);
-      43..44: inc(Cards[caJok]);
-    end;
-  end;
-end;
-
-// Verifica la validità e il valore di una combinazione di carte
-function TestCombinazione(iInf, iCav, iArt, iJok: integer): integer;
-begin
-  Result := -1;  // combinazione non possibile
-  if iInf+iCav+iArt+iJok<>3 then exit;
-
-  with arPlayer[iTurn] do begin
-    // test se combinazione possibile
-    if (iInf>Cards[caInf]) or (iCav>Cards[caCav])
-    or (iArt>Cards[caArt]) or (iJok>Cards[caJok]) then exit;
-    // valore combinazione
-    if ((iInf=1) and (iCav=1) and (iArt=1))
-    or ((iInf=1) and (iCav=1) and (iJok=1))
-    or ((iInf=1) and (iJok=1) and (iArt=1))
-    or ((iJok=1) and (iCav=1) and (iArt=1))
-    or ((iInf=1) and (iJok=2))
-    or ((iCav=1) and (iJok=2))
-    or ((iArt=1) and (iJok=2))
-    or (iJok=3) then begin
-      Result := RSetValue[csDif];
-    end else
-    if (iInf=3)
-    or ((iInf=2) and (iJok=1)) then begin
-      Result := RSetValue[csInf];
-    end else
-    if (iCav=3)
-    or ((iCav=2) and (iJok=1)) then begin
-      Result := RSetValue[csCav];
-    end else
-    if (iArt=3)
-    or ((iArt=2) and (iJok=1)) then begin
-      Result := RSetValue[csArt];
-    end else begin
-      Result := 0;
-    end;
-    if (Result > 0) and (RCardsValueType = cvProgressive) then begin
-      if NScambi<8 then
-        Result := RTradeValue[NScambi+1]
-      else
-        Result := RTradeValue[8] + (NScambi-7) * RValueInc;
-    end;
-  end;
-end;
-
-// Valuta la migliore combinazione per il giocatore di turno
-function CercaCombinazioneMigliore(var iInf, iCav, iArt, iJok: integer): boolean;
-var
-  iMaxBenefit: integer;
-  procedure Valuta(iInf2, iCav2, iArt2, iJok2: integer);
-  var
-    iBenefit: integer;
-  begin
-    iBenefit := TestCombinazione(iInf2, iCav2, iArt2, iJok2);
-    if iBenefit>iMaxBenefit then begin
-      iInf := iInf2; iCav := iCav2;
-      iArt := iArt2; iJok := iJok2;
-      iMaxBenefit := iBenefit;
-    end;
-  end;
-begin
-  iInf:=0; iCav:=0; iArt:=0; iJok:=0;
-  iMaxBenefit := 0;
-  Valuta(1,1,1,0);
-  Valuta(1,1,0,1);
-  Valuta(1,0,1,1);
-  Valuta(0,1,1,1);
-  Valuta(1,0,0,2);
-  Valuta(0,1,0,2);
-  Valuta(0,0,1,2);
-  Valuta(0,0,0,3);
-  Valuta(3,0,0,0);
-  Valuta(0,3,0,0);
-  Valuta(0,0,3,0);
-  Valuta(2,0,0,1);
-  Valuta(0,2,0,1);
-  Valuta(0,0,2,1);
-  Result := (iMaxBenefit>0);
-end;
-
-end.
diff --git a/CheckUpd.dfm b/CheckUpd.dfm
deleted file mode 100644
index 548df47..0000000
--- a/CheckUpd.dfm
+++ /dev/null
@@ -1,237 +0,0 @@
-object fCheckUpd: TfCheckUpd
-  Left = 534
-  Top = 275
-  HelpContext = 510
-  Caption = 'Update manager'
-  ClientHeight = 638
-  ClientWidth = 617
-  Color = clBtnFace
-  Constraints.MinHeight = 500
-  Constraints.MinWidth = 400
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
-  Font.Style = []
-  OldCreateOrder = False
-  Position = poScreenCenter
-  OnShow = FormShow
-  PixelsPerInch = 96
-  TextHeight = 13
-  object Splitter1: TSplitter
-    Left = 0
-    Top = 209
-    Width = 617
-    Height = 5
-    Cursor = crVSplit
-    Align = alTop
-  end
-  object panNews: TPanel
-    Left = 0
-    Top = 0
-    Width = 617
-    Height = 209
-    Align = alTop
-    BevelOuter = bvLowered
-    TabOrder = 0
-    ExplicitLeft = 8
-    ExplicitTop = 8
-    ExplicitWidth = 516
-    DesignSize = (
-      617
-      209)
-    object Label2: TLabel
-      Left = 8
-      Top = 17
-      Width = 32
-      Height = 13
-      Caption = 'News'
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'MS Sans Serif'
-      Font.Style = [fsBold]
-      ParentFont = False
-    end
-    object Label3: TLabel
-      Left = 412
-      Top = 17
-      Width = 83
-      Height = 13
-      Anchors = [akTop, akRight]
-      Caption = 'Show news since'
-      ExplicitLeft = 395
-    end
-    object Panel1: TPanel
-      Left = 8
-      Top = 36
-      Width = 601
-      Height = 165
-      Anchors = [akLeft, akTop, akRight, akBottom]
-      BevelOuter = bvLowered
-      Ctl3D = True
-      ParentCtl3D = False
-      TabOrder = 0
-      object wbrNews: TWebBrowser
-        Left = 1
-        Top = 1
-        Width = 599
-        Height = 163
-        Align = alClient
-        TabOrder = 0
-        ExplicitWidth = 300
-        ExplicitHeight = 64
-        ControlData = {
-          4C000000E93D0000D91000000000000000000000000000000000000000000000
-          000000004C000000000000000000000001000000E0D057007335CF11AE690800
-          2B2E126208000000000000004C0000000114020000000000C000000000000046
-          8000000000000000000000000000000000000000000000000000000000000000
-          00000000000000000100000000000000000000000000000000000000}
-      end
-    end
-    object txtLastDate: TDateTimePicker
-      Left = 507
-      Top = 9
-      Width = 101
-      Height = 21
-      Anchors = [akTop, akRight]
-      Date = 40428.500000000000000000
-      Time = 40428.500000000000000000
-      TabOrder = 1
-      OnChange = txtLastDateChange
-      ExplicitLeft = 490
-    end
-  end
-  object panFiles: TPanel
-    Left = 0
-    Top = 214
-    Width = 617
-    Height = 424
-    Align = alClient
-    BevelOuter = bvLowered
-    TabOrder = 1
-    ExplicitLeft = 97
-    ExplicitTop = 226
-    ExplicitWidth = 503
-    ExplicitHeight = 258
-    DesignSize = (
-      617
-      424)
-    object Label1: TLabel
-      Left = 8
-      Top = 6
-      Width = 27
-      Height = 13
-      Caption = 'Files'
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'MS Sans Serif'
-      Font.Style = [fsBold]
-      ParentFont = False
-    end
-    object lstUpdates: TListView
-      Left = 9
-      Top = 25
-      Width = 599
-      Height = 337
-      Anchors = [akLeft, akTop, akRight, akBottom]
-      Checkboxes = True
-      Columns = <
-        item
-          Caption = 'Type'
-        end
-        item
-          Caption = 'File name'
-          Width = 150
-        end
-        item
-          Caption = 'Status'
-          Width = 100
-        end
-        item
-          Caption = 'Comments'
-          Width = 220
-        end>
-      TabOrder = 0
-      ViewStyle = vsReport
-      ExplicitHeight = 293
-    end
-    object panStatus: TPanel
-      Left = 9
-      Top = 393
-      Width = 436
-      Height = 27
-      Alignment = taLeftJustify
-      Anchors = [akLeft, akRight, akBottom]
-      BevelOuter = bvLowered
-      BorderWidth = 5
-      TabOrder = 2
-      Visible = False
-      ExplicitTop = 390
-    end
-    object prbProgress: TProgressBar
-      Left = 8
-      Top = 368
-      Width = 600
-      Height = 26
-      Anchors = [akLeft, akRight, akBottom]
-      TabOrder = 3
-      Visible = False
-      ExplicitTop = 365
-    end
-    object prbDownload: TProgressBar
-      Left = 451
-      Top = 393
-      Width = 157
-      Height = 26
-      Anchors = [akRight, akBottom]
-      TabOrder = 4
-      Visible = False
-      ExplicitTop = 390
-    end
-    object cmdCancel: TBitBtn
-      Left = 513
-      Top = 375
-      Width = 96
-      Height = 36
-      Anchors = [akRight, akBottom]
-      Cancel = True
-      Caption = 'Close'
-      DoubleBuffered = True
-      ModalResult = 2
-      ParentDoubleBuffered = False
-      TabOrder = 5
-      ExplicitTop = 355
-    end
-    object cmdUpdate: TBitBtn
-      Left = 8
-      Top = 375
-      Width = 156
-      Height = 36
-      Anchors = [akLeft, akBottom]
-      Caption = 'Install/Update selected files'
-      DoubleBuffered = True
-      ParentDoubleBuffered = False
-      TabOrder = 1
-      OnClick = cmdUpdateClick
-      ExplicitTop = 372
-    end
-  end
-  object idHTTP: TIdHTTP
-    OnWork = idHTTPWork
-    OnWorkBegin = idHTTPWorkBegin
-    OnWorkEnd = idHTTPWorkEnd
-    AllowCookies = True
-    ProxyParams.BasicAuthentication = False
-    ProxyParams.ProxyPort = 0
-    Request.ContentLength = -1
-    Request.ContentType = 'text/html'
-    Request.Accept = 'text/html, */*'
-    Request.BasicAuthentication = False
-    Request.UserAgent = 'Mozilla/5.0 (Windows; U; Windows NT 6.0; it;'
-    HTTPOptions = [hoForceEncodeParams]
-    Left = 49
-    Top = 438
-  end
-end
diff --git a/CheckUpd.pas b/CheckUpd.pas
deleted file mode 100644
index 58ef4f6..0000000
--- a/CheckUpd.pas
+++ /dev/null
@@ -1,444 +0,0 @@
-unit CheckUpd;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
-  IdFTP, StdCtrls, IdHTTP, Buttons, CheckLst, ComCtrls, ExtCtrls, OleCtrls,
-  SHDocVw;
-
-type
-  TUpdNews = record
-    sText: string;
-    dDate: TDateTime;
-  end;
-
-  TUpdFile = record
-    sType, sName, sSiteName, sPath, sSitePath, sRemark, sLocDate,
-    sSiteDate: string;
-  end;
-
-  TfCheckUpd = class(TForm)
-    IdHTTP: TIdHTTP;
-    panNews: TPanel;
-    Panel1: TPanel;
-    wbrNews: TWebBrowser;
-    Label2: TLabel;
-    Label3: TLabel;
-    txtLastDate: TDateTimePicker;
-    Splitter1: TSplitter;
-    panFiles: TPanel;
-    lstUpdates: TListView;
-    Label1: TLabel;
-    cmdUpdate: TBitBtn;
-    panStatus: TPanel;
-    prbProgress: TProgressBar;
-    prbDownload: TProgressBar;
-    cmdCancel: TBitBtn;
-    procedure FormShow(Sender: TObject);
-    procedure cmdUpdateClick(Sender: TObject);
-    procedure idHTTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
-      AWorkCountMax: Int64);
-    procedure idHTTPWork(ASender: TObject; AWorkMode: TWorkMode;
-      AWorkCount: Int64);
-    procedure idHTTPWorkEnd(ASender: TObject; AWorkMode: TWorkMode);
-    procedure txtLastDateChange(Sender: TObject);
-  private
-    sNewsHead, sNewsFoot: string; // news HTML header and footer
-    arNews: array of TUpdNews;
-    arFiles: array of TUpdFile;
-  public
-    function CheckUpdates(bSilent: boolean): boolean;
-  end;
-
-var
-  fCheckUpd: TfCheckUpd;
-
-implementation
-
-{$R *.dfm}
-
-uses ActiveX, DateUtils, StrUtils, IniFiles, StdPas, Globals;
-
-procedure WBLoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);
-var
-  sl: TStringList;
-  ms: TMemoryStream;
-begin
-  WebBrowser.Navigate('about:blank');
-  while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
-    Application.ProcessMessages;
-
-  if Assigned(WebBrowser.Document) then begin
-    sl := TStringList.Create;
-    try
-      ms := TMemoryStream.Create;
-      try
-        sl.Text := HTMLCode;
-        sl.SaveToStream(ms);
-        ms.Seek(0, 0); (WebBrowser.Document as IPersistStreamInit)
-        .Load(TStreamAdapter.Create(ms));
-      finally
-        ms.Free;
-      end;
-    finally
-      sl.Free;
-    end;
-  end;
-end;
-
-function TfCheckUpd.CheckUpdates(bSilent: boolean): boolean;
-const
-  SEPARATOR = ';';
-var
-  sVersInfo, sNews, sTmp, sTmp2: string;
-  lstFiles, lstNews: TStringList;
-  rFileDesc: TSearchRec;
-  i, j: integer;
-  bIgnore, bNews, bHead: boolean;
-begin
-  Result := false;
-  try
-    Screen.Cursor := crHourGlass;
-    Application.ProcessMessages;
-    SetLength(arNews, 0);
-    SetLength(arFiles, 0);
-    // load news and version info file from website
-    try
-      sVersInfo := IdHTTP.Get(
-        'http://www.marioferrari.org/freeware/turborisk/version_info.csv');
-      sNews := IdHTTP.Get(
-        'http://www.marioferrari.org/freeware/turborisk/news.htm');
-    except
-      on e: Exception do begin
-        if not bSilent then begin
-          MessageDlg('Could not connect to TurboRisk website: ' + e.Message,
-            mtError, [mbOk], 0);
-        end;
-        exit;
-      end;
-    end;
-    // create temporary lists
-    lstFiles := TStringList.Create;
-    lstNews := TStringList.Create;
-    try
-      // copy news and version info into lists
-      lstFiles.Text := sVersInfo;
-      lstNews.Text := sNews;
-      // news: populate array
-      sNewsHead := '';
-      sNewsFoot := '';
-      bHead := true;
-      bNews := false;
-      bIgnore := false;
-      j := -1;
-      SetLength(arNews, 0);
-      for i := 0 to lstNews.Count - 1 do begin
-        sTmp := lstNews[i];
-        // begin:ignore
-        if not bIgnore and SameText(copy(sTmp, 1, 17), '<!-- begin:ignore')
-        then begin
-          bIgnore := true;
-        end
-        // end:ignore
-        else if bIgnore and SameText(copy(sTmp, 1, 15), '<!-- end:ignore') then
-        begin
-          bIgnore := false;
-        end
-        // ignore
-        else if bIgnore then begin
-          // do nothing
-        end
-        // begin:news
-        else if not bNews and SameText(copy(sTmp, 1, 15), '<!-- begin:news')
-        then begin
-          sTmp2 := trim(copy(sTmp, 16, 255));
-          inc(j);
-          SetLength(arNews, j + 1);
-          arNews[j].dDate := EncodeDate(StrToInt(copy(sTmp2, 1, 4)),
-            StrToInt(copy(sTmp2, 5, 2)), StrToInt(copy(sTmp2, 7, 2)));
-          arNews[j].sText := '';
-          bNews := true;
-          bHead := false;
-        end
-        // end:news
-        else if bNews and SameText(copy(sTmp, 1, 13), '<!-- end:news') then
-        begin
-          bNews := false;
-        end
-        // news
-        else if bNews then begin
-          arNews[j].sText := arNews[j].sText + #13#10 + sTmp;
-        end
-        // header
-        else if bHead then begin
-          sNewsHead := sNewsHead + #13#10 + sTmp;
-        end
-        // footer
-        else begin
-          sNewsFoot := sNewsFoot + #13#10 + sTmp;
-        end;
-      end;
-      // version info: populate array
-      SetLength(arFiles, lstFiles.Count);
-      for i := 0 to lstFiles.Count - 1 do begin
-        sTmp := lstFiles[i];
-        arFiles[i].sType := splitstr(sTmp, SEPARATOR);
-        arFiles[i].sName := splitstr(sTmp, SEPARATOR);
-        arFiles[i].sSiteName := splitstr(sTmp, SEPARATOR);
-        arFiles[i].sSiteDate := splitstr(sTmp, SEPARATOR);
-        arFiles[i].sRemark := sTmp;
-        arFiles[i].sLocDate := '';
-        if CompareText(arFiles[i].sType, 'app') = 0 then begin
-          arFiles[i].sPath := '';
-          arFiles[i].sSitePath := '';
-        end
-        else if CompareText(arFiles[i].sType, 'map') = 0 then begin
-          arFiles[i].sPath := 'maps\';
-          arFiles[i].sSitePath := 'maps/';
-        end
-        else if CompareText(arFiles[i].sType, 'trp') = 0 then begin
-          arFiles[i].sPath := 'players\';
-          arFiles[i].sSitePath := 'players/';
-        end;
-      end;
-      // check local version of files
-      for i := 0 to lstFiles.Count - 1 do begin
-        if FindFirst(sG_AppPath + arFiles[i].sPath + arFiles[i].sName,
-          faAnyFile, rFileDesc) = 0 then begin
-          arFiles[i].sLocDate := FormatDateTime('yyyymmdd',
-            FileDateToDateTime(rFileDesc.Time));
-        end;
-      end;
-      FindClose(rFileDesc);
-      // check if there are newer news
-      for i := 0 to high(arNews) do begin
-        if arNews[i].dDate > sG_LastNews then begin
-          Result := true;
-        end;
-      end;
-      // check if there are newer versions
-      for i := 0 to high(arFiles) do begin
-        with arFiles[i] do begin
-          if sLocDate = '' then begin
-            if (CompareText(sName, 'TRMap.exe') <> 0) and (CompareText(sName,
-                'TRComp.exe') <> 0) then begin
-              Result := true;
-            end;
-          end
-          else if sSiteDate > sLocDate then begin
-            Result := true;
-          end;
-        end;
-      end;
-    finally
-      lstNews.Free;
-      lstFiles.Free;
-    end;
-  finally
-    Screen.Cursor := crDefault;
-  end;
-end;
-
-procedure TfCheckUpd.FormShow(Sender: TObject);
-var
-  sRmk: string;
-  i: integer;
-  bError: boolean;
-begin
-  // load version info file from website
-  CheckUpdates(false);
-  // populate News
-  txtLastDate.Date := IncDay(sG_LastNews, 1);
-  txtLastDateChange(Sender);
-  // populate Update list
-  lstUpdates.Clear;
-  for i := 0 to high(arFiles) do begin
-    with arFiles[i] do begin
-      with lstUpdates.Items.Add do begin
-        sRmk := '';
-        Caption := sType;
-        SubItems.Add(sName);
-        if sLocDate = '' then begin
-          SubItems.Add('New file');
-          if (CompareText(sName, 'TRMap.exe') = 0) or (CompareText(sName,
-              'TRComp.exe') = 0) or (CompareText(sName, 'TRSim.exe') = 0) then
-          begin
-            Checked := false;
-            sRmk := '(Not installed) ';
-          end
-          else begin
-            Checked := true;
-          end;
-        end
-        else if sSiteDate > sLocDate then begin
-          SubItems.Add('Newer version');
-          Checked := true;
-        end
-        else begin
-          SubItems.Add('Up-to-date');
-          Checked := false;
-        end;
-        SubItems.Add(sRmk + sRemark);
-      end;
-    end;
-  end;
-end;
-
-procedure TfCheckUpd.cmdUpdateClick(Sender: TObject);
-var
-  tData, tData2: TMemoryStream;
-  sBak: string;
-  i, iCount: integer;
-  bMap, bExe, bTurboRisk: boolean;
-begin
-  Screen.Cursor := crHourGlass;
-  bTurboRisk := false;
-  // count files to update
-  iCount := 0;
-  for i := 0 to lstUpdates.Items.Count - 1 do begin
-    if lstUpdates.Items[i].Checked then
-      inc(iCount);
-  end;
-  // prepare controls
-  tData := TMemoryStream.Create;
-  tData2 := TMemoryStream.Create;
-  cmdUpdate.Visible := false;
-  cmdCancel.Visible := false;
-  panStatus.Visible := true;
-  prbDownload.Visible := true;
-  prbDownload.Position := 0;
-  prbProgress.Visible := true;
-  prbProgress.Position := 0;
-  prbProgress.Max := iCount;
-  Application.ProcessMessages;
-  try
-    // update cycle
-    for i := 0 to lstUpdates.Items.Count - 1 do begin
-      // skip files not to download
-      if not lstUpdates.Items[i].Checked then
-        continue;
-      // select row in list
-      panStatus.Caption := 'Downloading "' + arFiles[i].sName + '"...';
-      lstUpdates.Selected := lstUpdates.Items[i];
-      Application.ProcessMessages;
-      // choose proper path
-      bMap := (CompareText(arFiles[i].sType, 'map') = 0);
-      // download file from server into stream
-      tData.Clear;
-      tData2.Clear;
-      try
-        IdHTTP.Get('http://www.marioferrari.org/freeware/turborisk/' + arFiles
-          [i].sSitePath + arFiles[i].sSiteName, tData);
-      except
-        on e: Exception do begin
-          MessageDlg('Could not connect to TurboRisk website: ' + e.Message,
-            mtError, [mbOk], 0);
-          exit;
-        end;
-      end;
-      // if file is a map, download bmp as well
-      if bMap then begin
-        try
-          IdHTTP.Get('http://www.marioferrari.org/freeware/turborisk/' + arFiles
-            [i].sSitePath + ChangeFileExt(arFiles[i].sSiteName, '.bmp'),
-            tData2);
-        except
-          on e: Exception do begin
-            MessageDlg('Could not connect to TurboRisk website: ' + e.Message,
-              mtError, [mbOk], 0);
-            exit;
-          end;
-        end;
-      end;
-      // check if file is exe and if is TurboRisk itself
-      bExe := false;
-      if (CompareText(arFiles[i].sName, 'TurboRisk.exe') = 0) then begin
-        bExe := true;
-        bTurboRisk := true;
-      end;
-      if (CompareText(arFiles[i].sName, 'TRMap.exe') = 0) or
-      (CompareText(arFiles[i].sName, 'TRComp.exe') = 0) or
-      (CompareText(arFiles[i].sName, 'TRSim.exe') = 0) then begin
-        bExe := true;
-      end;
-      // if file is exe, save previous version to ".bak"
-      if bExe then begin
-        sBak := ChangeFileExt(arFiles[i].sName, '.bak');
-        if FileExists(arFiles[i].sPath + sBak) then
-          DeleteFile(arFiles[i].sPath + sBak); // delete previous ".bak"
-        RenameFile(arFiles[i].sPath + arFiles[i].sName,
-          arFiles[i].sPath + sBak);
-      end;
-      // save stream to file
-      tData.SaveToFile(sG_AppPath + arFiles[i].sPath + arFiles[i].sName);
-      if bMap then
-        tData2.SaveToFile(sG_AppPath + arFiles[i].sPath + ChangeFileExt
-          (arFiles[i].sName, '.bmp'));
-      // refresh list and progress bar
-      lstUpdates.Items[i].Checked := false;
-      lstUpdates.Items[i].SubItems[1] := 'Up-to-date';
-      panStatus.Caption := panStatus.Caption + ' done.';
-      prbProgress.Position := prbProgress.Position + 1;
-      Application.ProcessMessages;
-    end;
-  finally
-    tData.Free;
-    tData2.Free;
-    panStatus.Visible := false;
-    prbProgress.Visible := false;
-    prbDownload.Visible := false;
-    cmdUpdate.Visible := true;
-    cmdCancel.Visible := true;
-    Screen.Cursor := crDefault;
-    if bTurboRisk then begin
-      MessageDlg(
-        'TurboRisk application updated, you need to close and restart it to apply the changes.', mtInformation, [mbOk], 0);
-    end;
-  end;
-end;
-
-procedure TfCheckUpd.idHTTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
-  AWorkCountMax: Int64);
-begin
-  prbDownload.Max := AWorkCountMax;
-  prbDownload.Position := 0;
-end;
-
-procedure TfCheckUpd.idHTTPWork(ASender: TObject; AWorkMode: TWorkMode;
-  AWorkCount: Int64);
-begin
-  prbDownload.Position := AWorkCount;
-end;
-
-procedure TfCheckUpd.idHTTPWorkEnd(ASender: TObject; AWorkMode: TWorkMode);
-begin
-  prbDownload.Position := prbDownload.Max;
-end;
-
-procedure TfCheckUpd.txtLastDateChange(Sender: TObject);
-var
-  i: integer;
-  sHTML: string;
-begin
-  // header
-  sHTML := sNewsHead + #13#10;
-  // news according to date
-  for i := 0 to high(arNews) do begin
-    // show news more recent than specified date
-    if CompareDate(arNews[i].dDate, txtLastDate.Date) >= 0 then begin
-      sHTML := sHTML + arNews[i].sText + #13#10;
-    end;
-    // update last date
-    if CompareDate(arNews[i].dDate, sG_LastNews) > 0 then begin
-      sG_LastNews := arNews[i].dDate;
-    end;
-  end;
-  // footer
-  sHTML := sHTML + sNewsFoot;
-  // load into browser
-  WBLoadHTML(wbrNews, sHTML);
-end;
-
-end.
diff --git a/Computer.pas b/Computer.pas
deleted file mode 100644
index c3b25b4..0000000
--- a/Computer.pas
+++ /dev/null
@@ -1,507 +0,0 @@
-unit Computer;
-
-interface
-
-// Esecuzione mossa computer
-procedure EseguiTurnoComputer;
-
-implementation
-
-uses Windows, Forms, Controls, SysUtils, Dialogs,
-  uPSRuntime, uPSUtils, StdPas,
-  Main, Globals, Territ, Stats, Log, TRPError, Sim;
-
-var
-
-  // Varibles used to pass parameters to the script executer
-  tParamToTerritory, tParamFromTerritory, tParamArmies: PPSVariant;
-  tParamList: TPSList; // The parameter list
-
-  iStartTime, iEndTime: Int64; // CPU timing for TRSim
-
-procedure ShowError(sMsg: string);
-begin
-  if not bG_TRSim then begin // TurboRisk
-    fTRPError.txtMsg.Text := sMsg;
-    case fTRPError.ShowModal of
-      mrYes: begin
-          // dump memory if required
-          sMsg := StrTran(sMsg, #13#10, '\n');
-          if not SysUtils.DirectoryExists(sG_AppPath + '\Dump') then begin
-            if not CreateDir(sG_AppPath + '\Dump') then
-              raise Exception.Create('Cannot create ' + sG_AppPath + '\Dump');
-          end;
-          SaveGame(sG_AppPath + 'Dump\trdump_' + FormatDateTime
-            ('yyyymmdd_hhmmss', Now) + '.trd', sMsg);
-        end;
-      mrAbort: begin
-          bStopASAP := true;
-          bCloseASAP := true;
-        end;
-    end;
-  end
-  else begin // TRSim
-    if fSim.chkErrorDump.Checked then begin
-      // dump memory if required
-      sMsg := StrTran(sMsg, #13#10, '\n');
-      if not SysUtils.DirectoryExists(sG_AppPath + '\Dump') then begin
-        if not CreateDir(sG_AppPath + '\Dump') then
-          raise Exception.Create('Cannot create ' + sG_AppPath + '\Dump');
-      end;
-      SaveGame(sG_AppPath + 'Dump\trdump_' + FormatDateTime('yyyymmdd_hhmmss',
-          Now) + '.trd', sMsg);
-    end;
-    if fSim.chkErrorAbort.Checked then begin
-      uSimStatus := ssError;
-      bStopASAP := true;
-    end;
-  end;
-end;
-
-procedure CPU_Phase(uRoutine: TRoutine);
-begin
-  inc(arPlayer[iTurn].aCPU[uRoutine].iPhases);
-end;
-
-procedure CPU_Call(uRoutine: TRoutine; iTicks: Int64);
-begin
-  arPlayer[iTurn].aCPU[uRoutine].iTime := arPlayer[iTurn].aCPU[uRoutine]
-  .iTime + iTicks;
-  inc(arPlayer[iTurn].aCPU[uRoutine].iCalls);
-end;
-
-// ************************************************************
-// * ROUTINES DI ASSEGNAZIONE INIZIALE TERRITORI - ASSIGNMENT *
-// ************************************************************
-
-// Scelta territorio per assegnazione iniziale
-procedure CmpAssegnazione;
-var
-  iTo: integer;
-  sMsg: string;
-
-begin
-
-  // prepare parameters to pass to the script executer
-  VSetInt(tParamToTerritory, 0);
-  tParamList.Clear;
-  tParamList.Add(tParamToTerritory);
-
-  // run the script
-  try
-    CPU_Phase(rtAssignment);
-    QueryPerformanceCounter(iStartTime); // get initial time
-    ScriptExec.RunProc(tParamList, ScriptExec.GetProc('ASSIGNMENT'));
-    QueryPerformanceCounter(iEndTime); // get final time
-    CPU_Call(rtAssignment, iEndTime - iStartTime);
-    // get back value of var parameters
-    iTo := VGetInt(tParamToTerritory);
-  except
-    on e: Exception do begin
-      sMsg := 'Player: ' + arPlayer[iTurn].Name + #13#10 +
-      'Routine: Assignment' + #13#10 + 'Error: ' +
-      e.message;
-      ShowError(sMsg);
-      exit;
-    end;
-  end;
-
-  // Preparazione messaggio di errore
-  sMsg := 'Player: ' + arPlayer[iTurn].Name + #13#10 + 'Routine: Assignment' +
-  #13#10 + 'To territory: ' + IntToStr(iTo) + #13#10 + 'Error: ';
-  // Verifica validità richiesta
-  if (iTo < 1) or (iTo > MAXTERRITORIES) or (arTerritory[iTo].Owner <> 0) then
-  begin
-    sMsg := sMsg + 'Invalid "To" territory';
-    ShowError(sMsg);
-    iTo := 0;
-  end;
-  if iTo > 0 then begin
-    // Assegnazione
-    AssegnaTerritorio(iTo, iTurn);
-    inc(arTerritory[iTo].Army);
-    dec(arPlayer[iTurn].NewArmy);
-    // Log
-    if arPlayer[iTurn].KeepLog then
-      ScriviLog(arTerritory[iTo].Name + ' assigned.');
-    // Aggiornamento display e statistiche
-    DisplayTerritory(iTo);
-    UpdateStats;
-    Application.ProcessMessages;
-  end;
-end;
-
-// ***********************************************
-// * ROUTINES DI COLLOCAZIONE ARMATE - PLACEMENT *
-// ***********************************************
-
-// Scelta collocazione nuova armata sui propri territori
-procedure CmpCollocaArmate(iDaCollocare: integer);
-var
-  iTo: integer;
-  sMsg: string;
-
-begin
-  CPU_Phase(rtPlacement);
-  // repeat placement procedure
-  while iDaCollocare > 0 do begin
-    iTo := 0;
-    try
-      // prepare parameters to pass to the script executer
-      VSetInt(tParamToTerritory, iTo);
-      tParamList.Clear;
-      tParamList.Add(tParamToTerritory);
-      // run the script
-      QueryPerformanceCounter(iStartTime); // get initial time
-      ScriptExec.RunProc(tParamList, ScriptExec.GetProc('PLACEMENT'));
-      QueryPerformanceCounter(iEndTime); // get final time
-      CPU_Call(rtPlacement, iEndTime - iStartTime);
-      // get back value of var parameters
-      iTo := VGetInt(tParamToTerritory);
-    except
-      on e: Exception do begin
-        sMsg := 'Player: ' + arPlayer[iTurn].Name + #13#10 +
-        'Routine: Placement' + #13#10 + 'Error: ' + e.message;
-        ShowError(sMsg);
-        exit;
-      end;
-    end;
-
-    // Preparazione messaggio di errore
-    sMsg := 'Player: ' + arPlayer[iTurn].Name + #13#10 + 'Routine: Placement' +
-    #13#10 + 'To territory: ' + IntToStr(iTo) + #13#10 + 'Error: ';
-    // Verifica validità richiesta
-    if (iTo < 1) or (iTo > MAXTERRITORIES) or (arTerritory[iTo].Owner <> iTurn)
-    then begin
-      sMsg := sMsg + 'Invalid "To" territory';
-      ShowError(sMsg);
-      iTo := 0;
-    end;
-    if iTo > 0 then begin
-      // Log
-      if arPlayer[iTurn].KeepLog then
-        ScriviLog('Army placement in ' + arTerritory[iTo].Name);
-      // Collocazione
-      CollocaArmata(iTo, iTurn, 1);
-    end
-    else begin
-      arPlayer[iTurn].NewArmy := 0; // force 0 new army to place
-      break; // interruzione ciclo per errori
-    end;
-
-    dec(iDaCollocare);
-  end;
-
-end;
-
-// ***************************************************************
-// * ROUTINES DI OCCUPAZIONE TERRITORIO CONQUISTATO - OCCUPATION *
-// ***************************************************************
-
-procedure CmpOccupa(iFrom, iTo: integer);
-var
-  iArmies: integer;
-  sMsg: string;
-begin
-
-  // prepare parameters to pass to the script executer
-  VSetInt(tParamFromTerritory, iFrom);
-  VSetInt(tParamToTerritory, iTo);
-  VSetInt(tParamArmies, 0);
-  tParamList.Clear;
-  tParamList.Add(tParamArmies);
-  tParamList.Add(tParamToTerritory);
-  tParamList.Add(tParamFromTerritory);
-
-  try
-    // run script
-    CPU_Phase(rtOccupation);
-    QueryPerformanceCounter(iStartTime); // get initial time
-    ScriptExec.RunProc(tParamList, ScriptExec.GetProc('OCCUPATION'));
-    QueryPerformanceCounter(iEndTime); // get final time
-    CPU_Call(rtOccupation, iEndTime - iStartTime);
-    // get back value of var parameters
-    iArmies := VGetInt(tParamArmies);
-  except
-    on e: Exception do begin
-      sMsg := 'Player: ' + arPlayer[iTurn].Name + #13#10 +
-      'Routine: Occupation' + #13#10 + 'Error: ' +
-      e.message;
-      ShowError(sMsg);
-      exit;
-    end;
-  end;
-
-  // Se richiesto spostamento...
-  if iArmies > 0 then begin
-    // Preparazione messaggio di errore
-    sMsg := 'Player: ' + arPlayer[iTurn].Name + #13#10 +
-    'Routine: Occupation' + #13#10 + 'From territory: ' + arTerritory[iFrom]
-    .Name + #13#10 + 'To territory: ' + arTerritory[iTo].Name + #13#10 +
-    'Armies: ' + IntToStr(iArmies) + #13#10 + 'Error: ';
-    // Verifica validità richiesta
-    if iArmies > arTerritory[iFrom].Army - 1 then begin
-      sMsg := sMsg + 'Invalid number of armies';
-      ShowError(sMsg);
-      exit;
-    end;
-    // Log
-    if arPlayer[iTurn].KeepLog then
-      ScriviLog('Occupation: troops move (' + IntToStr(iArmies)
-        + ') from ' + arTerritory[iFrom].Name + ' to ' + arTerritory[iTo]
-        .Name);
-    // Spostamento
-    inc(arTerritory[iTo].Army, iArmies);
-    dec(arTerritory[iFrom].Army, iArmies);
-    // Aggiornamento video
-    DisplayTerritory(iFrom);
-    DisplayTerritory(iTo);
-    UpdateStats;
-    Application.ProcessMessages;
-  end;
-end;
-
-// ********************************
-// * ROUTINES DI ATTACCO - ATTACK *
-// ********************************
-
-procedure CmpAttacco;
-var
-  iFrom, iTo: integer;
-  sMsg: string;
-  bEsito: boolean;
-
-begin
-
-  CPU_Phase(rtAttack);
-  // repeat attack procedure
-  repeat
-    iFrom := 0;
-    iTo := 0;
-    try
-      // prepare parameters to pass to the script executer
-      VSetInt(tParamFromTerritory, iFrom);
-      VSetInt(tParamToTerritory, iTo);
-      tParamList.Clear;
-      tParamList.Add(tParamToTerritory);
-      tParamList.Add(tParamFromTerritory);
-      // run the script
-      QueryPerformanceCounter(iStartTime); // get initial time
-      ScriptExec.RunProc(tParamList, ScriptExec.GetProc('ATTACK'));
-      QueryPerformanceCounter(iEndTime); // get final time
-      CPU_Call(rtAttack, iEndTime - iStartTime);
-      // get back value of var parameters
-      iFrom := VGetInt(tParamFromTerritory);
-      iTo := VGetInt(tParamToTerritory);
-    except
-      on e: Exception do begin
-        sMsg := 'Player: ' + arPlayer[iTurn].Name + #13#10 +
-        'Routine: Attack' + #13#10 + 'Error: ' + e.message;
-        ShowError(sMsg);
-        MessageDlg(sMsg, mtError, [mbOk], 0);
-        exit;
-      end;
-    end;
-
-    // Se richiesto attacco...
-    if iFrom > 0 then begin
-      // Preparazione messaggio di errore
-      sMsg := 'Player: ' + arPlayer[iTurn].Name + #13#10 + 'Routine: Attack' +
-      #13#10 + 'From territory: ' + IntToStr(iFrom)
-      + #13#10 + 'To territory: ' + IntToStr(iTo)
-      + #13#10 + 'Error: ';
-      // Verifica validità richiesta
-      if (iFrom > MAXTERRITORIES) or (arTerritory[iFrom].Owner <> iTurn) then
-      begin
-        sMsg := sMsg + 'Invalid "From" territory';
-        ShowError(sMsg);
-        exit;
-      end;
-      if (iTo < 1) or (iTo > MAXTERRITORIES) or
-      (arTerritory[iTo].Owner = iTurn) then begin
-        sMsg := sMsg + 'Invalid "To" territory';
-        ShowError(sMsg);
-        exit;
-      end;
-      if not Confinante(iFrom, iTo) then begin
-        sMsg := sMsg + 'Invalid "From->To"';
-        ShowError(sMsg);
-        exit;
-      end;
-      if arTerritory[iFrom].Army < 2 then begin
-        sMsg := sMsg + 'From territory has not enough armies';
-        ShowError(sMsg);
-        exit;
-      end;
-      // Attacco
-      bEsito := PerformAttack(iFrom, iTo);
-      // Aggiornamento display
-      UpdateStats;
-      Application.ProcessMessages;
-      // Conseguenze dellattacco riuscito
-      if bEsito then begin
-        // uscita immediata se vittoria
-        if iNPlayers < 2 then
-          exit;
-        // territorio conquistato, spostamento conseguente
-        if arTerritory[iFrom].Army > 1 then begin
-          CmpOccupa(iFrom, iTo);
-        end;
-        // collocazione eventuali armate conquistate
-        if bEliminatedPlayer then begin
-          if RImmediateTrade then
-            AssignNewArmies(true);
-          if arPlayer[iTurn].NewArmy > 0 then begin
-            CmpCollocaArmate(arPlayer[iTurn].NewArmy);
-          end;
-        end;
-      end;
-    end;
-
-  until iFrom = 0;
-end;
-
-// *********************************************
-// * ROUTINES DI TRASFERIMENTO - FORTIFICATION *
-// *********************************************
-
-procedure CmpTrasferimento;
-var
-  iFrom, iTo, iArmies: integer;
-  sMsg: string;
-begin
-  // protezione contro trasferimenti multipli
-  if arPlayer[iTurn].FlMove then
-    exit;
-
-  // prepare parameters to pass to the script executer
-  VSetInt(tParamFromTerritory, 0);
-  VSetInt(tParamToTerritory, 0);
-  VSetInt(tParamArmies, 0);
-  tParamList.Clear;
-  tParamList.Add(tParamArmies);
-  tParamList.Add(tParamToTerritory);
-  tParamList.Add(tParamFromTerritory);
-
-  try
-    // run the script
-    CPU_Phase(rtFortification);
-    QueryPerformanceCounter(iStartTime); // get initial time
-    ScriptExec.RunProc(tParamList, ScriptExec.GetProc('FORTIFICATION'));
-    QueryPerformanceCounter(iEndTime); // get final time
-    CPU_Call(rtFortification, iEndTime - iStartTime);
-    // get back value of var parameters
-    iFrom := VGetInt(tParamFromTerritory);
-    iTo := VGetInt(tParamToTerritory);
-    iArmies := VGetInt(tParamArmies);
-  except
-    on e: Exception do begin
-      sMsg := 'Player: ' + arPlayer[iTurn].Name + #13#10 +
-      'Routine: Fortification' + #13#10 + 'Error: ' + e.message;
-      ShowError(sMsg);
-      exit;
-    end;
-  end;
-
-  // Se richiesto spostamento...
-  if iFrom > 0 then begin
-    // Preparazione messaggio di errore
-    sMsg := 'Player: ' + arPlayer[iTurn].Name + #13#10 +
-    'Routine: Fortification' + #13#10 + 'From territory: ' + IntToStr(iFrom)
-    + #13#10 + 'To territory: ' + IntToStr(iTo)
-    + #13#10 + 'Armies: ' + IntToStr(iArmies) + #13#10 + 'Error: ';
-    // Verifica validità richiesta
-    if (iFrom > MAXTERRITORIES) or (arTerritory[iFrom].Owner <> iTurn) then
-    begin
-      sMsg := sMsg + 'Invalid "From" territory';
-      ShowError(sMsg);
-      exit;
-    end;
-    if (iTo < 1) or (iTo > MAXTERRITORIES) or (arTerritory[iTo].Owner <> iTurn)
-    then begin
-      sMsg := sMsg + 'Invalid "To" territory';
-      ShowError(sMsg);
-      exit;
-    end;
-    if not Confinante(iFrom, iTo) then begin
-      sMsg := sMsg + 'Invalid "From->To"';
-      ShowError(sMsg);
-      exit;
-    end;
-    if (iArmies <= 0) or (iArmies > arTerritory[iFrom].Army - 1) then begin
-      sMsg := sMsg + 'Invalid number of armies';
-      ShowError(sMsg);
-      exit;
-    end;
-    // Log
-    if arPlayer[iTurn].KeepLog then
-      ScriviLog('Fortification: troops move (' + IntToStr(iArmies)
-        + ') from ' + arTerritory[iFrom].Name + ' to ' + arTerritory[iTo]
-        .Name);
-    // Spostamento
-    inc(arTerritory[iTo].Army, iArmies);
-    dec(arTerritory[iFrom].Army, iArmies);
-    arPlayer[iTurn].FlMove := true;
-    // Aggiornamento video
-    DisplayTerritory(iFrom);
-    DisplayTerritory(iTo);
-    UpdateStats;
-    Application.ProcessMessages;
-  end;
-
-end;
-
-// ******************************
-// * SUPERVISORE GIOCO COMPUTER *
-// ******************************
-
-// Esecuzione mossa computer
-procedure EseguiTurnoComputer;
-begin
-  // update LastTurn for TRSim statistics
-  arPlayer[iTurn].LastTurn := iTurnCounter;
-
-  // load the script
-  if not ScriptExec.LoadData(arPlayer[iTurn].Code) then begin
-    MessageDlg('Player: ' + arPlayer[iTurn].Name + #13#10 +
-      'Error: script loading failed', mtError, [mbOk], 0);
-    exit;
-  end;
-
-  // Create variables to pass parameters to the script executer
-  tParamList := TIfList.Create; // Create the parameter list
-  tParamToTerritory := CreateHeapVariant(ScriptExec.FindType2(btS32));
-  tParamFromTerritory := CreateHeapVariant(ScriptExec.FindType2(btS32));
-  tParamArmies := CreateHeapVariant(ScriptExec.FindType2(btS32));
-  if (tParamToTerritory = nil) or (tParamFromTerritory = nil) or
-  (tParamArmies = nil) then begin
-    MessageDlg('Could not create script parameters.', mtError, [mbOk], 0);
-    exit;
-  end;
-
-  // Play a move according to state of the game
-  case GameState of
-    gsAssigning:
-      CmpAssegnazione;
-    gsDistributing:
-      if arPlayer[iTurn].NewArmy > 0 then
-        CmpCollocaArmate(1);
-    gsPlaying: begin
-        if arPlayer[iTurn].NewArmy > 0 then
-          CmpCollocaArmate(arPlayer[iTurn].NewArmy);
-        CmpAttacco;
-        if iNPlayers > 1 then
-          CmpTrasferimento;
-      end;
-  end;
-
-  // Free parameter passing variables
-  tParamList.Clear;
-  tParamList.Add(tParamArmies);
-  tParamList.Add(tParamToTerritory);
-  tParamList.Add(tParamFromTerritory);
-  FreePIFVariantList(tParamList);
-
-end;
-
-end.
diff --git a/Doc/converting TRP from version 1.2.html b/Doc/converting TRP from version 1.2.html
deleted file mode 100644
index c772e7b..0000000
--- a/Doc/converting TRP from version 1.2.html	
+++ /dev/null
@@ -1,311 +0,0 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
-
-<html>
-	
-<head>
-	<title>
-		TurboRisk Conversion Reference
-	</title>
-	<link href="turborisk.css" rel="stylesheet" type="text/css">
-</head>
-
-<body>
-	
-<h1>TurboRisk Conversion Reference</h1>
-
-<hr>
-
-<h2>Overview</h2>
-
-<p>
-Since its birth and up to version 1.2, the scripting facility of TurboRisk was
-based on the free Delphi Interpreter by S.Kurinny & S.Kostinsky (Delphin). From
-version 2.0 on, TurboRisk uses the Delphi-style
-<a href="http://www.remobjects.com/ps.aspx" target="_blank">RemObjects Pascal Script</a>
-(ROPS) runtime interpreter .
-<p>
-This documents explains some of the differences between the two script
-languages and their implementation in TurboRisk, and deals with some of the
-issues to face when converting a TRP from the older version to the current one.
-
-<hr>
-
-<h2>General program structure</h2>
-
-<p>
-
-The typical program structure of a TRP expected by the current version of
-TurboRisk is described in the document
-<a href="programs.html">programs.html.</a>
-There are few differences between this structure and the previous one.
-
-<ol>
-	<li>
-	Until TurboRisk 1.2, the five procedure
-	<I>Assignment, Placement, Attack,	Occupation</I> and <I>Fortification</I>
-	were at any effect independent programs. For this
-	reason you were not allowed to write common functions or procedures to share
-	among all of the them. Anything that was before the declaration of those
-	procedures or after their last <I>end;</I>
-	statement was treated as a comment. This is no more true: the source file is at
-	any effect a unique and complete Pascal program.
-	<br>
-	<br>
-	<li>
-	One of the effects of point 1 is that free text between the procedures is no
-	more allowed, you have to make sure it respects the standard Pascal conventions
-	for comments.
-	<br>
-	<br>
-	<li>
-	Another effect of point 1 is that now you can define your own functions or
-	procedures, and that you can call them from any other procedure. Actually you
-	have to do so, because ROPS doesn't implement the definition of procedures and
-	functions inside another procedure or function. Some of the old TRPs use this
-	nested structure: the inner procs and funcs have to be moved outside.
-	<br>
-	<br>
-	<li>
-	The source may begin with an optional
-	<code>
-		<B>Program</B>	<I>MyProgram;</I>
-	</code>
-	statement. It is allowed for clarity, but has no effect.
-	<br>
-	<br>
-	<li>
-	TurboRisk 1.2 used three implicit global variables to send parameters to the
-	routines and receive their results:
-	<I>FromTerritory, ToTerritories</I> and <I>Armies.</I>
-	These variables don't exist anymore. Values are passed and received by
-	TurboRisk using parameters:
-	<p>
-	<code>
-		<B>procedure</B> Assignment(var ToTerritory: integer);
-		<br>
-		<B>procedure</B> Placement(var ToTerritory: integer);
-		<br>
-		<B>procedure</B> Attack(var FromTerritory, ToTerritory: integer);
-		<br>
-		<B>procedure</B> Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-		<br>
-		<B>procedure</B> Fortification(var FromTerritory, ToTerritory, Armies: integer);
-		<br>
-	</code>
-	<p>
-	For those of you not very familiar with Pascal, the word <B>var</B>
-	before the declaration of a parameter means that this is passed "by reference"
-	instead of "by value". That is, if the procedure modifies its value, the calling
-	program receives the modified value.
-	<br>
-	<br>
-	<li>
-	The program MUST contain a main flow, delimited by the
-	<B>begin</B> and <B>end.</B> words. 
-	As in any good old Pascal Program, this main flow has to be placed at
-	the very end of the source, so that	<B>end.</B>
-	is the last statement in the source. This structure is required by ROPS, but
-	TurboRisk doesn't need it, so you can leave the
-	<B>begin</B> and <B>end.</B>
-	block empty. However, if you place any instruction there, that code will be
-	executed once at the beginning of a new game. This can be useful to prepare
-	some configuration and store it in the buffers.
-	<br>
-	<br>
-	<li>
-	ROPS performs much more strict controls about structure than Delphin does. For
-	this reason, some of the old TRPs, which have non matching begin-end pairs,
-	don't compile anymore.
-</ol>
-
-<hr>
-
-<h2>Types, Variables, Expressions</h2>
-
-<p>
-As in TurboRisk 1.2, all the variables you define will be LOCAL variables, no
-matter their scope. This happens because TurboRisk uses the same space to load
-and execute all of the different computer player programs,
-turn after turn. You still have to store GLOBAL values using the TurboRisk
-internal buffers, which you can have access to through the UBufferSet and
-UBufferGet functions.
-<p>
-The possibility of defining global scope variables is still a new useful
-feature, which makes possible for a procedure to share values with other called
-procedures.
-<p>
-The <B>real</B> type is no more supported. Use <B>double</B> instead.
-<p>
-ROPS uses standard PASCAL conventions about the syntax and priorities of
-operators, including the logical one. The following statement was legal in
-TurboRisk 1.2:
-<p>
-<code>
-	&nbsp;&nbsp;if TIsMine(x) and TArmies(x)=TArmies(x) then begin
-	<br>
-</code>
-<p>
-but it's no more legal in current TurboRisk. In PASCAL the <B>and</B>
-operator has a higher priority than the "equal", "greater than", "less then"
-and the other comparation operators, so the proper syntax for that statement
-shall be:
-<p>
-<code>
-	&nbsp;&nbsp;if TIsMine(x) and <B>(</B>TArmies(x)=TArmies(x)<B>)</B>	then begin
-	<br>
-</code>
-
-<p>
-ROPS is not very tolerant about <B>type mixing</B> in expression and logical
-conditions. The following code aborts execution, because it compares an integer value with
-a double value:
-<p>
-<code>
-	<b>var</b>
-	<br>
-	&nbsp;&nbsp;TotalArmies: integer;
-	<br>
-	<b>begin</b>
-	<br>
-	&nbsp;&nbsp;if PArmiesCount(T)&gt;TotalArmies * 0.35 then
-</code>
-<P>
-The correct code fragment is the following:
-<p>
-<code>
-	<b>var</b>
-	<br>
-	&nbsp;&nbsp;TotalArmies: integer;
-	<br>
-	<b>begin</b>
-	<br>
-	&nbsp;&nbsp;if PArmiesCount(T)&gt;trunc(TotalArmies * 0.35) then
-</code>
-
-<p>
-You need to be careful when using this method though. Consider the following example:
-<p>
-<code>
-	<b>var</b> 
-	<br>
-	&nbsp;&nbsp;TotalArmies: integer;
-	<br>
-	<b>begin</b>
-	<br>
-	&nbsp;&nbsp;if PArmiesCount(T)&lt;trunc(TotalArmies * 0.35) then
-</code>
-
-<p>
-Notice that the comparative operator has changed.  If PArmiesCount(T) is 17 and
-TotalArmies * 0.35 is 17.5, then 17.5 will be truncated to 17 and the statement
-will be false even though it should be true.
-<br>
-You can use type casting in this case to get the correct result:
-<p>
-<code>
-	<b>var</b> 
-	<br>
-	&nbsp;&nbsp;TotalArmies: integer;
-	<br>
-	<b>begin</b>
-	<br>
-	&nbsp;&nbsp;if double(PArmiesCount(T))&lt;TotalArmies * 0.35 then
-</code>
-
-<p>
-There are some other reported issues about ROPS and type mixing in logical
-expressions. For example the code:
-<p>
-<code>
-	<b>var</b>
-	<br>
-	&nbsp;&nbsp;i: integer;
-	<br>
-	&nbsp;&nbsp;d: double;
-	<br>
-	<b>begin</b>
-	<br>
-	&nbsp;&nbsp;...
-	<br>
-	&nbsp;&nbsp;if (TArmies(T) / i) &lt; d then ...
-</code>
-<p>
-stops the interpreter any time TArmies(T)/i is not a whole number. The trunc() function 
-won't work in this case, so it is necessary to use type casting instead:
-<p>
-<code>
-	<b>var</b>
-	<br>
-	&nbsp;&nbsp;i: integer;
-	<br>
-	&nbsp;&nbsp;d: double;
-	<br>
-	<b>begin</b>
-	<br>
-	&nbsp;&nbsp;...
-	<br>
-	&nbsp;&nbsp;if (double(TArmies(T))) / (double(i)) &lt; d then ...
-	</code>
-
-
-		
-<hr>
-
-<h2>TurboRisk API</h2>
-
-<p>
-Some of the interface functions have a new syntax:
-
-<p>
-<code class=api>
-	procedure UMessage(M: string);
-</code>
-<br>
-Previously it accepted an unlimited number of parameters, of any kind:
-<br>
-<code class=api>
-	UMessage('Error: ',MyIntVar+4,... );
-</code>
-<br>
-Now you have to pass a single string value. Thus the previous example becomes:
-<br>
-<code class=api>
-	UMessage('Error: '+IntToStr(MyIntVar+4)+... );
-</code>
-<br>
-
-<p>
-<code class=api>
-	procedure ULog(M: string);
-</code>
-<br>
-Same as UMessage.
-
-<p>
-<code class=api>
-	procedure UBufferSet(B: integer; V: double);
-	<br>
-	function UBufferGet(B: integer): double;
-</code>
-Previously the value stored in the buffer was of type variant. Now it is a
-double.
-
-<p>
-<code class=api>
-	function URandom(R: integer): double;
-</code>
-<br>
-This function as well returns a double;
-
-<hr>
-
-<h2>TRComp</h2>
-
-TRComp is a TurboRisk program Compiler. It allows simple editing of your source
-file and provide an interface to the ROPS engine. Take advantage of it to
-compile your TRP and detects any problem it might have in the structure or in
-the syntax.
-	
-</body>
-	
-</html>
diff --git a/Doc/numbered_map.png b/Doc/numbered_map.png
deleted file mode 100644
index 0a30131..0000000
Binary files a/Doc/numbered_map.png and /dev/null differ
diff --git a/Doc/numbered_map_print_out.png b/Doc/numbered_map_print_out.png
deleted file mode 100644
index dde8e34..0000000
Binary files a/Doc/numbered_map_print_out.png and /dev/null differ
diff --git a/Doc/turborisk.css b/Doc/turborisk.css
deleted file mode 100644
index 3e3710f..0000000
--- a/Doc/turborisk.css
+++ /dev/null
@@ -1,26 +0,0 @@
-BODY {background: white; color: black; font-family: arial,helvetica,sans-serif; font-size: 10pt; text-align: justify}
-
-HR {color: navy}
-H1 {color: navy}
-H2 {color: navy}
-
-A:link {color: blue}
-A:visited {color: maroon}
-A:active {color: red}
-A IMG {border-style: none}
-
-TD {text-align: justify}
-
-CODE.api {color: blue}
-
-IMG.photo {margin-top: 0em; margin-bottom: 0em; margin-left: 0em; margin-right: 1em; float: left}
-
-IMG.thumbnail {margin-top: 0em; margin-bottom: 0em; margin-left: 0em; margin-right: 1em; float: left}
-
-P.footer {font-family: arial,helvetica,sans-serif; font-size: 10pt; text-align: center}
-
-P.links {font-family: arial,helvetica,sans-serif; font-size: 10pt; text-align: justify}
-
-UL.news {font-size: 10pt}
-LI.news {}
-
diff --git a/ExpSubr.pas b/ExpSubr.pas
deleted file mode 100644
index e11aa98..0000000
--- a/ExpSubr.pas
+++ /dev/null
@@ -1,1246 +0,0 @@
-unit ExpSubr;
-
-// Routines rese disponibili all'interprete
-
-interface
-
-function TName(T: integer): string;
-function TOwner(T: integer): integer;
-function TArmies(T: integer): integer;
-function TContinent(T: integer): integer;
-function TBordersCount(T: integer): integer;
-function TBorder(T, B: integer): integer;
-function TIsBordering(T1, T2: integer): boolean;
-function TIsFront(T: integer): boolean;
-function TIsMine(T: integer): boolean;
-function TIsEntry(T: integer): boolean;
-function TFrontsCount(T: integer): integer;
-function TFront(T, F: integer): integer;
-function TStrongestFront(T: integer; var ET, EA: integer): boolean;
-function TWeakestFront(T: integer; var ET, EA: integer): boolean;
-function TPressure(T: integer): integer;
-function TDistance(ST, DT: integer): integer;
-function TShortestPath(ST, DT: integer; var TT, PL: integer): boolean;
-function TWeakestPath(ST, DT: integer; var TT, PL, EA: integer): boolean;
-function TPathToFront(T: integer): integer;
-function PMe: integer;
-function PName(P: integer): string;
-function PProgram(P: integer): string;
-function PActive(P: integer): boolean;
-function PAlive(P: integer): boolean;
-function PHuman(P: integer): boolean;
-function PArmiesCount(P: integer): integer;
-function PNewArmies(P: integer): integer;
-function PTerritoriesCount(P: integer): integer;
-function PCardCount(P: integer): integer;
-function PCardTurnInValue(P: integer): integer;
-function COwner(C: integer): integer;
-function CBonus(C: integer): integer;
-function CTerritoriesCount(C: integer): integer;
-function CTerritory(C, T: integer): integer;
-function CBordersCount(C: integer): integer;
-function CBorder(C, B: integer): integer;
-function CEntriesCount(C: integer): integer;
-function CEntry(C, B: integer): integer;
-function CAnalysis(C: integer; var PT, PA, ET, EA: integer): boolean;
-function CLeader(C: integer; var P, T, A: integer): boolean;
-function SConquest: boolean;
-function SPlayersCount: integer;
-function SAlivePlayersCount: integer;
-function SCardsBasedOnCombo: boolean;
-procedure UMessage(M: string);
-procedure ULog(M: string);
-procedure UBufferSet(B: integer; V: double);
-function UBufferGet(B: integer): double;
-function URandom(R: integer): double;
-procedure UTakeSnapshot(M: string);
-function UDialog(M, B: string): integer;
-procedure UAbortGame;
-procedure ULogOff;
-procedure ULogOn;
-procedure UMessageOff;
-procedure UMessageOn;
-procedure UDialogOff;
-procedure UDialogOn;
-procedure USnapShotOff;
-procedure USnapShotOn;
-
-implementation
-
-uses Clipbrd, SysUtils, Classes, Dialogs, Globals, Territ, Log, Stats, UDialog;
-
-type
-  TPrioCont = array [0 .. 5] of record // Lista priorità conquista continenti
-  Cont: TContId;
-Valore :
-double;
-end;
-
-// ************************
-// * ROUTINES "TERRITORY" *
-// ************************
-
-function TName(T: integer): string;
-// returns the name of territory T, '?' if T is out of range
-begin
-  if (T > 0) and (T <= MAXTERRITORIES) then
-    result := arTerritory[T].Name
-  else
-    result := '?';
-end;
-
-function TOwner(T: integer): integer;
-// returns the owner of territory T, 0 if T is unassigned, -1 if T is out of range
-begin
-  if (T > 0) and (T <= MAXTERRITORIES) then
-    result := arTerritory[T].Owner
-  else
-    result := -1;
-end;
-
-function TArmies(T: integer): integer;
-// returns the number of armies on territory T, 0 if T is unassigned, -1 if T is out of range
-begin
-  if (T > 0) and (T <= MAXTERRITORIES) then
-    result := arTerritory[T].Army
-  else
-    result := -1;
-end;
-
-function TContinent(T: integer): integer;
-// returns the ID of the continent which territory T belongs to, -1 if T is out of range
-begin
-  if (T > 0) and (T <= MAXTERRITORIES) then
-    result := ord(arTerritory[T].Contin) + 1
-  else
-    result := -1;
-end;
-
-function TBordersCount(T: integer): integer;
-// returns the number of borders of territory T (max 6), -1 if T is out of range
-begin
-  if (T > 0) and (T <= MAXTERRITORIES) then
-    result := arTerritory[T].NBord
-  else
-    result := -1;
-end;
-
-function TBorder(T, B: integer): integer;
-// returns bordering territory #B of territory T, -1 if T or B are out of range
-begin
-  if (T > 0) and (T <= MAXTERRITORIES) and (B > 0) and
-  (B <= arTerritory[T].NBord) then
-    result := arTerritory[T].Bord[B]
-  else
-    result := -1;
-end;
-
-function TIsBordering(T1, T2: integer): boolean;
-// returns true if territory T1 is bordering on territory T2, false if not or T or B are out of range
-begin
-  if (T1 > 0) and (T1 <= MAXTERRITORIES) and (T2 > 0) and
-  (T2 <= MAXTERRITORIES) then
-    result := Confinante(T1, T2)
-  else
-    result := false;
-end;
-
-function TIsFront(T: integer): boolean;
-// returns true if territory T is owned by current player and has at least one bordering
-// territory occupied by opponents, false if not or T is out of range
-begin
-  if (T > 0) and (T <= MAXTERRITORIES) then
-    result := Confine(T)
-  else
-    result := false;
-end;
-
-function TIsMine(T: integer): boolean;
-// returns true if territory T is owned by current player,
-// false if not or T is out of range
-begin
-  if (T > 0) and (T <= MAXTERRITORIES) then
-    result := (arTerritory[T].Owner = iTurn)
-  else
-    result := false;
-end;
-
-function TIsEntry(T: integer): boolean;
-// returns true if territory T is an Entry Territory
-// Entry territories are territories which are part of a continent but
-// may be accessed from another continent
-begin
-  if T in [1, 3, 9, 10, 12, 14, 15, 16, 20, 22, 25 .. 29, 31, 37, 39] then
-    result := true
-  else
-    result := false;
-end;
-
-function TFrontsCount(T: integer): integer;
-// returns the number of territories bordering on territory T which are occupied
-// by opponents, -1 if T is out of range
-var
-  C, F: integer;
-begin
-  if (T > 0) and (T <= MAXTERRITORIES) then begin
-    F := 0;
-    for C := 1 to arTerritory[T].NBord do begin
-      if arTerritory[arTerritory[T].Bord[C]].Owner <> iTurn then begin
-        inc(F);
-      end;
-    end;
-    result := F;
-  end
-  else
-    result := -1;
-end;
-
-function TFront(T, F: integer): integer;
-// returns bordering enemy territory #F of territory T, -1 if T or F are out of range
-var
-  C, F2: integer;
-begin
-  if (T > 0) and (T <= MAXTERRITORIES) then begin
-    F2 := 0;
-    for C := 1 to arTerritory[T].NBord do begin
-      if arTerritory[arTerritory[T].Bord[C]].Owner <> iTurn then begin
-        inc(F2);
-        if F2 = F then begin
-          result := arTerritory[T].Bord[C];
-          exit;
-        end;
-      end;
-    end;
-    result := -1;
-  end
-  else
-    result := -1;
-end;
-
-function TStrongestFront(T: integer; var ET, EA: integer): boolean;
-// returns false if T is out of range, otherwise true
-// the "var" variables will contain information on territory T:
-// ET: number of the strongest enemy's territory bordering on T, 0 if T has not fronts
-// EA: enemy's armies on territory ET
-// (unassigned territories are not counted)
-var
-  C: integer;
-begin
-  if (T > 0) and (T <= MAXTERRITORIES) then begin
-    ET := 0;
-    EA := 0;
-    for C := 1 to arTerritory[T].NBord do begin
-      if arTerritory[arTerritory[T].Bord[C]].Owner <> iTurn then begin
-        if arTerritory[arTerritory[T].Bord[C]].Army > EA then begin
-          ET := arTerritory[T].Bord[C];
-          EA := arTerritory[ET].Army;
-        end;
-      end;
-    end;
-    result := true;
-  end
-  else
-    result := false;
-end;
-
-function TWeakestFront(T: integer; var ET, EA: integer): boolean;
-// returns false if T is out of range, otherwise true
-// the "var" variables will contain information on territory T:
-// ET: number of the weakest enemy's territory bordering on T, 0 if T has not fronts
-// EA: enemy's armies on territory ET
-// (unassigned territories are not counted)
-var
-  C: integer;
-begin
-  if (T > 0) and (T <= MAXTERRITORIES) then begin
-    ET := 0;
-    EA := MaxInt;
-    for C := 1 to arTerritory[T].NBord do begin
-      if arTerritory[arTerritory[T].Bord[C]].Owner <> iTurn then begin
-        if arTerritory[arTerritory[T].Bord[C]].Army < EA then begin
-          ET := arTerritory[T].Bord[C];
-          EA := arTerritory[ET].Army;
-        end;
-      end;
-    end;
-    if ET = 0 then
-      EA := 0;
-    result := true;
-  end
-  else
-    result := false;
-end;
-
-function TPressure(T: integer): integer;
-// returns the total number of enemy armies bordering on territory T, -1 if T is out of range
-var
-  C: integer;
-begin
-  if (T > 0) and (T <= MAXTERRITORIES) then begin
-    result := 0;
-    for C := 1 to arTerritory[T].NBord do begin
-      if arTerritory[arTerritory[T].Bord[C]].Owner <> iTurn then begin
-        result := result + arTerritory[arTerritory[T].Bord[C]].Army;
-      end;
-    end;
-  end
-  else
-    result := -1;
-end;
-
-function TPath(const iFrom, iTo: integer; const bAvoidOwned, bUseOwned,
-  bArmies: boolean; var iLength, iCost: integer; var aPath: array of integer)
-: boolean;
-{
-  TPath: Finds best path using Dijkstra's algorithm. Not released to TRPs, just for inner use
-  iFrom:       initial territory
-  iTo:         destination territory
-  bAvoidOwned: set this to true to make path avoid territories owned by current player
-  bUseOwned:   set this to true to make path move only along territories owned by current player
-  bArmies:     if true, TPath will use armies as "distance", otherwise 1 for each territory
-  iLength:     returns the length of the Path, -1 if the path does not exists
-  iCost:       returns the cost of the path (if bArmies = total armies to defeat,
-  else the length of the path);
-  aPath:       returns the path: a 1-based array of territory numbers,
-  from iFrom (excluded) to iTo (included)
-  returns true if the path exists, false if not
-}
-var
-  i, iNode, iChild, iCostFromStart: integer;
-  bFound, bIsOpen, bIsClosed: boolean;
-  lstOpen: TList; // OPEN list (FIFO)
-  aNode: array [1 .. MAXTERRITORIES] of record bClosed: boolean;
-  // node is in the CLOSED list
-  iParent: integer; // previous node in the optimal path
-  iCostFromStart: integer; // cost to arrive to this node
-end;
-
-begin
-  // initialize
-  lstOpen := TList.Create;
-  for i := 1 to MAXTERRITORIES do
-    aNode[i].bClosed := false;
-  // start node
-  aNode[iFrom].iParent := 0;
-  aNode[iFrom].iCostFromStart := 0;
-  lstOpen.Add(Pointer(iFrom));
-  // begin A* search
-  bFound := false;
-  while lstOpen.Count > 0 do begin
-    // get first node from OPEN list
-    iNode := integer(lstOpen.Items[0]);
-    lstOpen.Delete(0);
-    // test if it is the target
-    if iNode = iTo then begin
-      bFound := true;
-      // break;
-    end;
-    // examine connected nodes
-    if iNode <> iTo then begin
-      for i := 1 to arTerritory[iNode].NBord do begin
-        iChild := arTerritory[iNode].Bord[i];
-        // skip owned territories if required
-        if bAvoidOwned and (arTerritory[iChild].Owner = iTurn) then
-          continue
-        else if bUseOwned and (arTerritory[iChild].Owner <> iTurn) then
-          continue;
-        // check if child territory is in OPEN and CLOSED lists
-        bIsOpen := lstOpen.IndexOf(Pointer(iChild)) >= 0;
-        bIsClosed := aNode[iChild].bClosed;
-        // compute cost from node to child
-        if bArmies then begin
-          // cost = armies + 1
-          iCostFromStart := aNode[iNode].iCostFromStart + arTerritory[iChild]
-          .Army + 1;
-        end
-        else begin
-          // cost = distance (1000) + territory number
-          iCostFromStart := aNode[iNode].iCostFromStart + 1000 + iChild;
-        end;
-        // assign cost to child if node has not yet been already reached
-        // or if reached with higher cost
-        if (not bIsOpen and not bIsClosed) or
-        (iCostFromStart < aNode[iChild].iCostFromStart) then begin
-          aNode[iChild].iParent := iNode;
-          aNode[iChild].iCostFromStart := iCostFromStart;
-          if bIsClosed then
-            aNode[iChild].bClosed := false; // remove child from CLOSED list
-          if not bIsOpen then
-            lstOpen.Add(Pointer(iChild));
-        end;
-      end;
-    end; //
-    aNode[iNode].bClosed := true; // node has been examined, add to CLOSED list
-  end;
-  if not bFound then begin
-    // return with empty path and error if target was not reached
-    result := false;
-    iLength := -1;
-    iCost := MaxInt;
-  end
-  else begin
-    // compute length and cost of path
-    iLength := 0;
-    iCost := aNode[iTo].iCostFromStart;
-    iNode := iTo;
-    while aNode[iNode].iParent > 0 do begin
-      inc(iLength);
-      iNode := aNode[iNode].iParent;
-    end;
-    // build path array
-    if length(aPath) >= iLength then begin // check that array is large enough
-      i := iLength - 1; // dinamic array receceived as par is always 0-based
-      iNode := iTo;
-      while aNode[iNode].iParent > 0 do begin
-        aPath[i] := iNode;
-        dec(i);
-        iNode := aNode[iNode].iParent;
-      end;
-      result := true;
-    end
-    else begin // array is not large enough, return error
-      result := false;
-      iLength := -1;
-      iCost := MaxInt;
-    end;
-  end;
-  // free resources
-  lstOpen.Free;
-end;
-
-function TDistance(ST, DT: integer): integer;
-// returns the distance (number of borders to cross) between territories ST and DT,
-// -1 if ST or DT are out of range
-var
-  iLength, iCost: integer;
-  aPath: array [1 .. 42] of integer;
-begin
-  if (ST < 1) or (ST > MAXTERRITORIES) or (DT < 1) or (DT > MAXTERRITORIES)
-  then begin
-    result := -1;
-    exit
-  end;
-  if TPath(ST, DT, false, false, false, iLength, iCost, aPath) then begin
-    result := iLength;
-  end
-  else begin
-    result := -1; // this should never happen
-  end;
-end;
-
-function TShortestPath(ST, DT: integer; var TT, PL: integer): boolean;
-// finds the shortest path to go from the start territory ST to the destination territory DT
-// returns false if ST or DT are out of range, otherwise true
-// the "var" variables will contain information on the path from ST to DT:
-// TT: first territory in the path
-// PL: path length (number of borders to cross)
-var
-  iLength, iCost: integer;
-  aPath: array [1 .. 42] of integer;
-begin
-  TT := 0;
-  PL := 0;
-  if (ST < 1) or (ST > MAXTERRITORIES) or (DT < 1) or (DT > MAXTERRITORIES)
-  then begin
-    result := false;
-    exit
-  end;
-  result := TPath(ST, DT, false, false, false, iLength, iCost, aPath);
-  if iLength > 0 then
-    TT := aPath[1]
-  else
-    TT := ST;
-  PL := iLength;
-end;
-
-function TWeakestPath(ST, DT: integer; var TT, PL, EA: integer): boolean;
-// finds the weakest path to go from the start territory ST to the destination territory DT
-// the "weakest path" is the path that contains the minimum number of enemy armies
-// and that doesn't cross territories already owned by the current player
-// returns false if ST or DT are out of range or if the path doesn't exist
-// the "var" variables will contain information on the path from ST to DT:
-// TT: first territory in the path
-// PL: path length (number of territories to conquer)
-// EA: total number of enemy armies along the path
-var
-  iLength, iCost: integer;
-  aPath: array [1 .. 42] of integer;
-begin
-  TT := 0;
-  PL := 0;
-  EA := 0;
-  if (ST < 1) or (ST > MAXTERRITORIES) or (DT < 1) or (DT > MAXTERRITORIES) or
-  (ST = DT) then begin
-    result := false;
-    exit
-  end;
-  result := TPath(ST, DT, true, false, true, iLength, iCost, aPath);
-  if iLength > 0 then
-    TT := aPath[1]
-  else
-    TT := ST;
-  PL := iLength;
-  EA := iCost - PL;
-end;
-
-function TPathToFront(T: integer): integer;
-// finds the path to go from territory T to the closest front territory
-// returns the number of the first territory in the path
-// returns 0 if T is itself a front, -1 if T is out of range
-var
-  iDest, iLength, iCost, iMinLength: integer;
-  aPath: array [1 .. 42] of integer;
-begin
-  if (T < 1) or (T > MAXTERRITORIES) then begin
-    result := -1;
-    exit;
-  end;
-  if TIsFront(T) then begin
-    result := 0;
-    exit;
-  end;
-  // search for the closest front
-  iMinLength := MaxInt;
-  result := 0;
-  for iDest := 1 to MAXTERRITORIES do begin
-    if TIsFront(iDest) then begin
-      if TPath(T, iDest, false, true, false, iLength, iCost, aPath) then begin
-        if (iLength > 0) and (iLength < iMinLength) then begin
-          result := aPath[1];
-          iMinLength := iLength;
-        end;
-      end;
-    end;
-  end;
-end;
-
-// *********************
-// * ROUTINES "PLAYER" *
-// *********************
-
-function PMe: integer;
-// returns the ID of the player in turn
-begin
-  result := iTurn;
-end;
-
-function PName(P: integer): string;
-// returns player's P name, '?' if P is out of range
-begin
-  if (P > 0) and (P <= MAXPLAYERS) then
-    result := arPlayer[P].Name
-  else
-    result := '?';
-end;
-
-function PProgram(P: integer): string;
-// returns player's program file name (lowercase), 'human' if human,
-// '?' if P is out of range
-begin
-  if (P > 0) and (P <= MAXPLAYERS) then begin
-    if arPlayer[P].Computer then
-      result := lowercase(arPlayer[P].PrgFile)
-    else
-      result := 'human';
-  end
-  else begin
-    result := '?';
-  end;
-end;
-
-function PActive(P: integer): boolean;
-// returns true if player P was active at the beginning of the game, false if not or P is out of range
-begin
-  if (P > 0) and (P <= MAXPLAYERS) then
-    result := arPlayer[P].Active
-  else
-    result := false;
-end;
-
-function PAlive(P: integer): boolean;
-// returns true if player P is alive, false if not or P is out of range
-begin
-  if (P > 0) and (P <= MAXPLAYERS) then begin
-    if GameState = gsAssigning then
-      result := arPlayer[P].Active
-    else
-      result := arPlayer[P].Active and (arPlayer[P].Territ > 0);
-  end
-  else begin
-    result := false;
-  end;
-end;
-
-function PHuman(P: integer): boolean;
-// returns true if P is a human player, false if P is computer player or P is out of range
-begin
-  if (P > 0) and (P <= MAXPLAYERS) then
-    result := not arPlayer[P].Computer
-  else
-    result := false;
-end;
-
-function PArmiesCount(P: integer): integer;
-// returns the number of armies totally controlled by player P on all
-// of its territories, -1 if P is out of range
-var
-  T, A: integer;
-begin
-  if (P > 0) and (P <= MAXPLAYERS) then begin
-    A := 0;
-    for T := 1 to MAXTERRITORIES do
-      if arTerritory[T].Owner = P then
-        inc(A, arTerritory[T].Army);
-    result := A;
-  end
-  else
-    result := -1;
-end;
-
-function PNewArmies(P: integer): integer;
-// returns the number of armies which player P still has to place on his territories,
-// -1 if P is out of range
-begin
-  if (P > 0) and (P <= MAXPLAYERS) then
-    result := arPlayer[P].NewArmy
-  else
-    result := -1;
-end;
-
-function PTerritoriesCount(P: integer): integer;
-// returns the number of territories controlled by player P, -1 if P is out of range
-var
-  T, O: integer;
-begin
-  if (P > 0) and (P <= MAXPLAYERS) then begin
-    O := 0;
-    for T := 1 to MAXTERRITORIES do
-      if arTerritory[T].Owner = P then
-        inc(O);
-    result := O;
-  end
-  else
-    result := -1;
-end;
-
-function PCardCount(P: integer): integer;
-// returns the number of cards Player P has, -1 if P is out of range
-begin
-  if (P > 0) and (P <= MAXPLAYERS) then begin
-    with arPlayer[P] do begin
-      result := Cards[caInf] + Cards[caArt] + Cards[caCav] + Cards[caJok];
-    end;
-  end
-  else
-    result := -1;
-end;
-
-function PCardTurnInValue(P: integer): integer;
-// if the trade in value is based on progression, returns the value of Player P's
-// next card turn in
-// returns 0 if the trade in value is based on combination, -1 if P is out of range
-begin
-  if (P <= 0) or (P > MAXPLAYERS) then begin
-    result := -1;
-    exit;
-  end;
-  if RCardsValueType = cvConstant then begin
-    result := 0;
-    exit;
-  end;
-  with arPlayer[P] do begin
-    if NScambi < 8 then
-      result := RTradeValue[NScambi + 1]
-    else
-      result := RTradeValue[8] + (NScambi - 7) * RValueInc;
-  end;
-end;
-
-// ************************
-// * ROUTINES "CONTINENT" *
-// ************************
-
-function COwner(C: integer): integer;
-// returns the owner of continent C, 0 if C has more then one occupant, -1 if C is out of range
-begin
-  if (C > 0) and (C <= 6) then
-    result := arContinent[TContId(C - 1)].Owner
-  else
-    result := -1;
-end;
-
-function CBonus(C: integer): integer;
-// returns the number of armies (per turn) which the control of continent C entitles to, -1 if C is out of range
-begin
-  if (C > 0) and (C <= 6) then
-    result := arContinent[TContId(C - 1)].Bonus
-  else
-    result := -1;
-end;
-
-function CTerritoriesCount(C: integer): integer;
-// returns the number of territories belonging to continent C, -1 if C is out of range
-begin
-  if (C > 0) and (C <= 6) then
-    case TContId(C - 1) of
-      coNA:
-        result := 9;
-      coSA:
-        result := 4;
-      coAF:
-        result := 6;
-      coEU:
-        result := 7;
-      coAS:
-        result := 12;
-      coAU:
-        result := 4;
-    else
-      result := -1
-    end
-  else
-    result := -1;
-end;
-
-function CTerritory(C, T: integer): integer;
-// returns the ID of territory #T belonging to continent C, -1 if T or C are out of range
-begin
-  if (C > 0) and (C <= 6) and (T > 0) then
-    case TContId(C - 1) of
-      coNA:
-        if T > 9 then
-          result := -1
-        else
-          result := T;
-      coSA:
-        if T > 4 then
-          result := -1
-        else
-          result := T + 9;
-      coAF:
-        if T > 6 then
-          result := -1
-        else
-          result := T + 13;
-      coEU:
-        if T > 7 then
-          result := -1
-        else
-          result := T + 19;
-      coAS:
-        if T > 12 then
-          result := -1
-        else
-          result := T + 26;
-      coAU:
-        if T > 4 then
-          result := -1
-        else
-          result := T + 38;
-    else
-      result := -1
-    end
-  else
-    result := -1;
-end;
-
-function CBordersCount(C: integer): integer;
-// returns the number of border territories on continent C (max 6), -1 if C is out of range
-// Border territories are territories which are outside the continent but
-// may be accessed from it
-begin
-  if (C > 0) and (C <= 6) then
-    case TContId(C - 1) of
-      coNA:
-        result := 3;
-      coSA:
-        result := 2;
-      coAF:
-        result := 4;
-      coEU:
-        result := 6;
-      coAS:
-        result := 6;
-      coAU:
-        result := 1;
-    else
-      result := -1
-    end
-  else
-    result := -1;
-end;
-
-function CBorder(C, B: integer): integer;
-// returns border territory #B of continent C, -1 if C or B are out of range
-// Border territories are territories which are outside the continent but
-// may be accessed from it
-begin
-  if (C > 0) and (C <= 6) and (B > 0) then
-    case TContId(C - 1) of
-      coNA:
-        case B of
-          1:
-            result := 20;
-          2:
-            result := 10;
-          3:
-            result := 37;
-        else
-          result := -1;
-        end;
-      coSA:
-        case B of
-          1:
-            result := 9;
-          2:
-            result := 14;
-        else
-          result := -1;
-        end;
-      coAF:
-        case B of
-          1:
-            result := 12;
-          2:
-            result := 25;
-          3:
-            result := 26;
-          4:
-            result := 27;
-        else
-          result := -1;
-        end;
-      coEU:
-        case B of
-          1:
-            result := 3;
-          2:
-            result := 15;
-          3:
-            result := 14;
-          4:
-            result := 27;
-          5:
-            result := 28;
-          6:
-            result := 29;
-        else
-          result := -1;
-        end;
-      coAS:
-        case B of
-          1:
-            result := 1;
-          2:
-            result := 15;
-          3:
-            result := 16;
-          4:
-            result := 22;
-          5:
-            result := 26;
-          6:
-            result := 39;
-        else
-          result := -1;
-        end;
-      coAU:
-        case B of
-          1:
-            result := 31;
-        else
-          result := -1;
-        end;
-    else
-      result := -1
-    end
-  else
-    result := -1;
-end;
-
-function CAnalysis(C: integer; var PT, PA, ET, EA: integer): boolean;
-// returns false if C is out of range, otherwise true
-// the "var" variables will contain information on continent C:
-// PT: player in turn's number of territories on continent C
-// PA: player in turn's armies on continent C
-// ET: enemy's number of territories on continent C
-// EA: enemy's armies on continent C
-// (unassigned territories are not counted)
-var
-  T: integer;
-  tCont: TContId;
-begin
-  if (C < 1) or (C > 6) then begin
-    result := false;
-    exit;
-  end;
-  tCont := TContId(C - 1);
-  PT := 0;
-  PA := 0;
-  ET := 0;
-  EA := 0;
-  // analisi
-  for T := 1 to MAXTERRITORIES do begin
-    if arTerritory[T].Contin = tCont then begin
-      if arTerritory[T].Owner = iTurn then begin
-        inc(PT);
-        inc(PA, arTerritory[T].Army);
-      end
-      else if arTerritory[T].Owner <> 0 then begin
-        inc(ET);
-        inc(EA, arTerritory[T].Army);
-      end;
-    end;
-  end;
-  result := true;
-end;
-
-function CLeader(C: integer; var P, T, A: integer): boolean;
-// returns false if C is out of range, otherwise true
-// the "var" variables will contain information on continent C:
-// P: leader = player who controls greatest number of territories
-// T: leader's number of territories on continent C
-// A: leader's armies on continent C
-// if two or more players own the same number of territories, the leader is the
-// one which has more armies. If continent is empty (all territories unissegned)
-// P returns 0.
-// (unassigned territories are not counted)
-var
-  iT, iG, iMax, iVal: integer;
-  arP: array [1 .. MAXPLAYERS] of record T, A: integer end;
-  tCont: TContId;
-begin
-  if (C < 1) or (C > 6) then begin
-    result := false;
-    exit;
-  end;
-  tCont := TContId(C - 1);
-  P := 0;
-  T := 0;
-  A := 0;
-  // reset vettore
-  for iG := 1 to MAXPLAYERS do begin
-    arP[iG].T := 0;
-    arP[iG].A := 0;
-  end;
-  // analisi
-  for iT := 1 to MAXTERRITORIES do begin
-    with arTerritory[iT] do begin
-      if Contin = tCont then begin
-        if Owner <> 0 then begin
-          inc(arP[Owner].T);
-          inc(arP[Owner].A, Army);
-        end;
-      end;
-    end;
-  end;
-  // trova leader
-  iMax := 0;
-  for iG := 1 to MAXPLAYERS do begin
-    iVal := arP[iG].T * 1000 + arP[iG].A;
-    if iVal > iMax then begin
-      iMax := iVal;
-      P := iG;
-      T := arP[iG].T;
-      A := arP[iG].A;
-    end;
-  end;
-  result := true;
-end;
-
-function CEntriesCount(C: integer): integer;
-// returns the number of entry territories on continent C (max 6), -1 if C is out of range
-// Entry territories are territories which are part of the continent but
-// may be accessed from another continent
-begin
-  if (C > 0) and (C <= 6) then
-    case TContId(C - 1) of
-      coNA:
-        result := 3;
-      coSA:
-        result := 2;
-      coAF:
-        result := 3;
-      coEU:
-        result := 4;
-      coAS:
-        result := 5;
-      coAU:
-        result := 1;
-    else
-      result := -1
-    end
-  else
-    result := -1;
-end;
-
-function CEntry(C, B: integer): integer;
-// returns entry territory #B of continent C, -1 if C or B are out of range
-// Entry territories are territories which are part of the continent but
-// may be accessed from another continent
-begin
-  if (C > 0) and (C <= 6) and (B > 0) then
-    case TContId(C - 1) of
-      coNA:
-        case B of
-          1:
-            result := 1;
-          2:
-            result := 3;
-          3:
-            result := 9;
-        else
-          result := -1;
-        end;
-      coSA:
-        case B of
-          1:
-            result := 10;
-          2:
-            result := 12;
-        else
-          result := -1;
-        end;
-      coAF:
-        case B of
-          1:
-            result := 14;
-          2:
-            result := 15;
-          3:
-            result := 16;
-        else
-          result := -1;
-        end;
-      coEU:
-        case B of
-          1:
-            result := 20;
-          2:
-            result := 22;
-          3:
-            result := 25;
-          4:
-            result := 26;
-        else
-          result := -1;
-        end;
-      coAS:
-        case B of
-          1:
-            result := 27;
-          2:
-            result := 28;
-          3:
-            result := 29;
-          4:
-            result := 31;
-          5:
-            result := 37;
-        else
-          result := -1;
-        end;
-      coAU:
-        case B of
-          1:
-            result := 39;
-        else
-          result := -1;
-        end;
-    else
-      result := -1
-    end
-  else
-    result := -1;
-end;
-
-
-// *********************
-// * ROUTINES "STATUS" *
-// *********************
-
-function SConquest: boolean;
-// returns true if current player has conquered at least one territory on current turn,
-// otherwise false
-begin
-  result := arPlayer[iTurn].FlConq;
-end;
-
-function SPlayersCount: integer;
-// returns the number of active players
-var
-  G: integer;
-begin
-  result := 0;
-  for G := 1 to MAXPLAYERS do
-    if arPlayer[G].Active then
-      result := result + 1;
-end;
-
-function SAlivePlayersCount: integer;
-// returns the number of players who are currently alive
-var
-  G: integer;
-begin
-  result := 0;
-  for G := 1 to MAXPLAYERS do
-    if arPlayer[G].Active and ((arPlayer[G].Territ > 0) or
-      (GameState = gsAssigning)) then
-      result := result + 1;
-end;
-
-function SCardsBasedOnCombo: boolean;
-// returns true if the card rules are set for the trade in value to based on combination,
-// false if the trade in value is based on progression
-begin
-  result := (RCardsValueType = cvConstant);
-end;
-
-// ************************
-// * ROUTINES "UTILITIES" *
-// ************************
-
-procedure UMessage(M: string);
-// display a modal window with message M
-begin
-  if arPlayer[iTurn].UMessageEnabled then begin
-    if fStats.Visible then
-      fStats.BringToFront;
-    if fLog.Visible then
-      fLog.BringToFront;
-    // copy log to clipboard
-    Clipboard.SetTextBuf(PChar(fLog.txtLog.Text));
-    // show dialog
-    fUDialog.Caption := arPlayer[iTurn].Name;
-    fUDialog.sMsg := M;
-    fUDialog.sButtons := ';;Ok';
-    fUDialog.ShowModal;
-  end;
-end;
-
-procedure ULog(M: string);
-// write message M on the log
-begin
-  if arPlayer[iTurn].ULogEnabled then
-    ScriviLog(M);
-end;
-
-procedure UBufferSet(B: integer; V: double);
-// set B element of Player's buffer to value V
-begin
-  if (B > 0) and (B <= MAXBUFFER) then
-    arPlayer[iTurn].Buffer[B] := V;
-end;
-
-function UBufferGet(B: integer): double;
-// returns Bth element of Player's buffer, -1 if B is out of range
-begin
-  if (B > 0) and (B <= MAXBUFFER) then
-    result := arPlayer[iTurn].Buffer[B]
-  else
-    result := -1.0;
-end;
-
-function URandom(R: integer): double;
-// if R is greater than 0, returns am integer random number X in the range
-// 0 <= X < R, otherwise a real-type random number X in the range 0 <= X < 1
-begin
-  if R > 0 then
-    result := Random(R)
-  else
-    result := Random;
-end;
-
-procedure UTakeSnapshot(M: string);
-// save a snapshot of the game
-// a snapshot is a copy of the global status of the game saved to a file
-// with name 'trdump_YYYYMMDD_HHMMSS.trd'
-// message M is included in the snapshot
-begin
-  if arPlayer[iTurn].USnapShotEnabled then begin
-    // create dump folder, if not existing
-    if not SysUtils.DirectoryExists(sG_AppPath + '\Dump') then begin
-      if not CreateDir(sG_AppPath + '\Dump') then
-        raise Exception.Create('Cannot create ' + sG_AppPath + '\Dump');
-    end;
-    if bG_TRSim then begin
-      SaveGame(sG_AppPath + 'Dump\trdump_' + FormatDateTime('yyyymmdd_hhmmss',
-          Now) + '_simgame_' + FormatFloat('000', iSimCurr) + '.trd', M);
-    end
-    else begin
-      SaveGame(sG_AppPath + 'Dump\trdump_' + FormatDateTime('yyyymmdd_hhmmss',
-          Now) + '.trd', M)
-    end;
-  end;
-end;
-
-function UDialog(M, B: string): integer;
-// display a modal window with message M and B buttons
-// B is a comma-separated string (like 'Continue;Dump;Stop') max 5 buttons
-// returns a number corresponding to the button pressed by
-// the user, 0 if the user closed the window
-begin
-  result := 0;
-  if arPlayer[iTurn].UDialogEnabled then begin
-    if fStats.Visible then
-      fStats.BringToFront;
-    if fLog.Visible then
-      fLog.BringToFront;
-    // copy log to clipboard
-    Clipboard.SetTextBuf(PChar(fLog.txtLog.Text));
-    // show dialog
-    fUDialog.Caption := arPlayer[iTurn].Name;
-    fUDialog.sMsg := M;
-    fUDialog.sButtons := B;
-    fUDialog.ShowModal;
-    result := fUDialog.iDlgResult;
-  end;
-end;
-
-procedure UAbortGame;
-// asks TurboRisk to stop ASAP
-begin
-  bStopASAP := true;
-end;
-
-procedure ULogOff;
-begin
-  arPlayer[iTurn].ULogEnabled := false;
-end;
-
-procedure ULogOn;
-begin
-  arPlayer[iTurn].ULogEnabled := true;
-end;
-
-procedure UMessageOff;
-begin
-  arPlayer[iTurn].UMessageEnabled := false;
-end;
-
-procedure UMessageOn;
-begin
-  arPlayer[iTurn].UMessageEnabled := true;
-end;
-
-procedure UDialogOff;
-begin
-  arPlayer[iTurn].UDialogEnabled := false;
-end;
-
-procedure UDialogOn;
-begin
-  arPlayer[iTurn].UDialogEnabled := true;
-end;
-
-procedure USnapShotOff;
-begin
-  arPlayer[iTurn].USnapShotEnabled := false;
-end;
-
-procedure USnapShotOn;
-begin
-  arPlayer[iTurn].USnapShotEnabled := true;
-end;
-
-end.
diff --git a/Globals.pas b/Globals.pas
deleted file mode 100644
index dc1a93f..0000000
--- a/Globals.pas
+++ /dev/null
@@ -1,2067 +0,0 @@
-unit Globals;
-
-interface
-
-uses Windows, Graphics, Classes, uPSRuntime;
-
-const
-  VERSION = '2.0.5'; // TurboRisk
-  VERSION_TRSIM = '1.0'; // TRSim
-  MAXTERRITORIES = 42; // Number of countries in the map
-  MAXBORDERS = 6; // Max number of borders per Territory
-  MAXORIGINS = 20; // Max number of floodfill points per Territory (for coloring)
-  MAXPLAYERS = 10; // Max number of players
-  MAXPLSETS = 50; // Max number of players sets
-  STDPLSETS = 5; // Number of standard players sets
-  // MAXLOGLINES = 100;    // Max number of log lines
-  MAXBUFFER = 500; // Number of buffers for the computer players
-
-  aiDefTradeVal: array [1 .. 8] of byte = (4, 6, 8, 10, 12, 15, 20, 25);
-  aiDefIniArmy: array [2 .. MAXPLAYERS] of byte = (40, 35, 30, 25, 20, 20, 20,
-    20, 20);
-  atDefColor: array [1 .. MAXPLAYERS] of TColor = (clBlue, clRed, clGreen,
-    clYellow, clAqua, clFuchsia, clLime, clCream, clMaroon, clPurple);
-
-type
-  TGameState = (gsStopped, gsAssigning, gsDistributing, gsPlaying);
-  THumanPhase = (hpPlacement, hpAttack);
-  TCard = (caInf, caArt, caCav, caJok);
-  TCardsSet = (csInf, csArt, csCav, csDif);
-  TCardsHandling = (chManual, chSmart, chAuto);
-  TContId = (coNA, coSA, coEU, coAF, coAS, coAU);
-  TSimStatus = (ssRunning, ssComplete, ssError, ssTurnLimit, ssTimeLimit,
-    ssAbort);
-
-  TTerritory = record // Information about a territory
-    // Dynamic, they change during the game
-    Owner: integer; // Player who owns the territory
-    Army: integer; // Number of occupying armies
-    // Static, specific of each territory
-    Name: string; // Name
-    NBord: integer; // Number of borders
-    Bord: array [1 .. MAXBORDERS] of integer;
-    // Pointers to the border territories
-    Contin: TContId; // Continent which the territory belongs to
-    // Semi-dynamic, depending on the actual map
-    Color: TColor; // Color in the base map
-    Coord: TPoint; // Coordinates for the label showing the armies
-    NOrig: integer; // Number of floodfill areas for coloring
-    Orig: array [1 .. MAXORIGINS] of TPoint; // Coordinates of floodfill areas
-  end;
-
-  TContInfo = record // Information about a continent
-    // Dynamic, they change during the game
-    Owner: integer; // Owner of the continent (if any)
-    // Static, specific of each continent
-    Name: string; // Name
-    Bonus: integer; // Bonus armies for the owner
-  end;
-
-  TCPUusage = record // Information about CPU usage by TRPs (for TRSim)
-    iTime: int64; // length of calls (in high resolution timer ticks)
-    iPhases, // number of phases (e.g. attack, occupation...)
-    iCalls: integer; // number of calls
-  end;
-
-  TRoutine = (rtAssignment, rtPlacement, rtAttack, rtOccupation,
-    rtFortification);
-
-  TPlayer = record // Information about a player
-    // Parameters selected by the player
-    Name: string; // Name
-    Active: boolean; // Flag, true when the player is (still) active
-    Color: TColor; // Color to represent the player
-    Computer: boolean; // Flag, true if player is a TRP
-    CardsHandling: TCardsHandling; // Card handling option
-    KeepLog: boolean; // Flag, true if the player keeps the log
-    PrgFile: string; // Source file name for computer players (TRP)
-    Code: ansistring; // Tokenized script for computer players (compiled TRP)
-    // Status variables
-    Army: integer; // Total armies (not updated in real-time)
-    NewArmy: integer; // Armies to be placed
-    Territ: integer; // Number of owned territories
-    Cards: array [TCard] of integer; // Count of the owned cards (number of cards per kind)
-    NScambi: integer; // N° scambi carte effettuati
-    FlConq: boolean; // Flag, true if the player conquered at least one territory during the turn
-    FlMove: boolean; // Flag, true if the player performed at leaste one troops move during the turn
-    LastTurn, // last turn played by the player
-    Rank: integer; // Rank at the end of the game
-    // Runtime variables
-    Buffer: array [1 .. MAXBUFFER] of double; // Buffer reserved to the TRPs for their 'static' values
-    USnapShotEnabled, // flag to enable USnapShot
-    ULogEnabled, // flag to enable ULog
-    UMessageEnabled, // flag to enable UMessage
-    UDialogEnabled: boolean; // flag to enable UDialog
-    // TRSim statistics
-    aCPU: array [TRoutine] of TCPUusage;
-  end;
-
-  TPlayersSet = record // Information about a set of players
-    Name: string; // Name
-    arPlSet: array [0 .. MAXPLAYERS] of record Name: string; // Name
-    Active: boolean; // Flag, true when the player is (still) active
-    Color: TColor; // Color to represent the player
-    Computer: boolean; // Flag, true if player is a TRP
-    CardsHandling: TCardsHandling; // Card handling option
-    KeepLog: boolean; // Flag, true if the player keeps the log
-    PrgFile: string; // Source file name for computer players (TRP)
-  end;
-
-end;
-
-var
-
-  // Generic global variabils
-  bG_TRSim: boolean; // true if the main program is TRSim
-  sG_AppName, // application name
-  sG_AppVers, // version
-  sG_AppPath: string; // exe file name
-  sG_LastNews: TDate; // last read news
-  iPerformanceFrequency: int64; // frequency of the high-resolution performance counter
-
-  // Global variables about the state of the game
-  GameState: TGameState; // phase of the game
-  iTurnCounter, // counts turn progression
-  iTurn: integer; // current player
-  iFirstTurn: integer; // player who play first and starts the game
-  iNPlayers: integer; // number of players in the game
-  iToAssign: integer; // number of territories non yet assigned
-  bHumanTurn: boolean; // flag, true if current turn is for a human player
-  HumanPhase: THumanPhase; // human player's phase of the turn
-  bEliminatedPlayer: boolean; // flag, true if opponent got eliminated during the last attack
-  bStopASAP: boolean; // the user required to stop the game
-  bCloseASAP: boolean; // the user required to close TurboRisk
-  iRank: integer; // rank to assign to the player
-
-  // Global variables about the map
-  BaseMap: TBitmap; // Hidden base map for territory recognition
-  arTerritory: array [1 .. MAXTERRITORIES] of TTerritory; // Territories
-  arContinent: array [TContId] of TContInfo; // Continents
-  sMapFile, // File name of the map (.trm)
-  sMapDesc, // Map description
-  sMapFontName: string; // Map font name
-  iMapFontSize: integer; // Map font size
-  tMapTextFG, tMapTextBG: TColor; // text foreground and background colors
-
-  // Global variables about players and sets of players
-  arPlayer: array [0 .. MAXPLAYERS] of TPlayer; // Players
-  arPlayersSet: array [0 .. MAXPLSETS] of TPlayersSet; // Players
-  aiTurnList: array [0 .. MAXPLAYERS] of integer; // Turn sequence
-  iPlSet, // curent players set
-  iPlSetCount: integer; // total players sets
-
-  // Global variables about the rules
-  RAssignmentType: (atRandom, atTurns); // Type of territory assignment
-  RInitialArmies: array [2 .. MAXPLAYERS] of integer;
-  // Number of initial armies to place
-  RCardsValueType: (cvConstant, cvProgressive); // Card trade value scheme
-  RSetValue: array [TCardsSet] of integer; // Value of the cards sets for the constant value scheme
-  RTradeValue: array [1 .. 8] of integer; // Value of the cards sets for the progressive value scheme
-  RValueInc: integer; // Value increment for the progressive value scheme after 8th trade
-  RMaxHeldCards: integer; // Max number of cards a player can hold without trading
-  RFinalMove: boolean; // Flag, true if troops move is allowed only at the end of a turn
-  RImmediateTrade: boolean; // Flag, true if immediate trade of captured cards is allowed
-
-  // Global variable about stats
-  bStOpTer, // flag, if true the stats show territories
-  bStOpArm, // flag, if true the stats show armies
-  bStOpCon, // flag, if true the stats show continents
-  bStOpCar, // flag, if true the stats show cards count
-  bStOpCTIV: boolean; // flag, if true the stats show cards turn in value
-
-  // The script executer
-  ScriptExec: TPSExec;
-
-  // Interface preferences
-  sPrefTlbButtons: string; // toolbar buttons
-  bPrefConfirmAbort, // flag, true if user is required confirmation before aborting a game in progress
-  bPrefShowToolbar, // flag, true if user wants the toolbar enabled
-  bPrefCheckUpdate, // flag, true if user wants to check for updates at startup
-  bPrefExpertAttack, // flag, true if user wants the Expert Attack window
-  bPrefMapHoover, // flag, true if user wants territory to change color when hooverd
-  bPrefMapSelected: boolean; // flag, true if user wants territory to change color when selected
-  iPrefMapHoover, // % of color intensity decrease/increase when hoovering
-  iPrefMapSelected: integer; // % of color intensity decrease/increase when selecting
-
-  // TRSim simulation environment
-  iSimCurr, // current simulation game
-  iSimCompl, // number of finished games
-  iSimGames, // number of games to simulate
-  iSimWinner, // number of the winner
-  iSimGameTime, // duration of last game, in seconds
-  iSimTimeLimit, // max number of seconds per game
-  iSimTurnLimit, // max number of turns per game
-  iSimPlayers, // number of players in current game
-  iSimMinPl, // minimum players per game
-  iSimMaxPl: integer; // maximum players per game
-  uSimStatus: TSimStatus; // termination type
-  bSimAbort: boolean; // flag, true to abort simulation
-  dtSimGameTime, // game start time
-  dtSimStartTime: TDateTime; // simulation start time
-  sSimGameLogFile, // name of the game log file
-  sSimCPULogFile: string; // name of the CPU log file
-
-  // Application Setup
-procedure Setup;
-
-// Application Cleanup
-procedure Cleanup;
-
-// Menu setup according to the state of the game
-procedure MenuSetup;
-
-// New game setup
-procedure NewGameSetup;
-
-// Game cleanup
-procedure GameCleanup;
-
-// Initial random assignment
-procedure RandomAssignment;
-
-// Assign new armies
-procedure AssignNewArmies(bCardsOnly: boolean);
-
-// Perform an attack
-function PerformAttack(iTA, iTD: integer): boolean;
-
-// Supervisor for the game turns and phases
-procedure Supervisor;
-
-// Update history file
-procedure UpdateHistoryFile;
-
-// Restore game from file
-procedure RestoreGame(sFileName: string);
-
-// Save game to file
-procedure SaveGame(sFileName, sErrorMsg: string);
-
-// Find best contrast text color
-function BestTextColor(tBkgColor: TColor): TColor;
-
-// Make a color lighter or darker
-function ChangeColor(Color: TColor; Percent: shortint): TColor;
-
-// functions to set and get curront from, to and hoovered territories
-function GetFromTerritory: integer;
-function GetToTerritory: integer;
-function GetHooverTerritory: integer;
-procedure SetFromTerritory(iT: integer);
-procedure SetToTerritory(iT: integer);
-procedure SetHooverTerritory(iT: integer);
-
-implementation
-
-uses Forms, SysUtils, IniFiles, Dialogs, Math, DateUtils,
-  uPSCompiler,
-  Main, Territ, Computer, Stats, Human, Cards, Log, ExpSubr, History, SimRun;
-
-var
-  bAssignmentFound, // flags to check if the script
-  bPlacementFound, // contains all the required procedures
-  bAttackFound, bOccupationFound, bFortificationFound: boolean;
-  // private vars about territories, changed and queried through proper functions
-  HooverTerrit, // territory hoovered with the mouse pointer
-  ToTerrit, // territory choosen by curent player to attack or to move to
-  FromTerrit: integer; // territory choosen by curent player to attack or to move from
-
-function ScriptOnUses(Sender: TPSPascalCompiler;
-  const Name: ansistring): boolean;
-{ the OnUses callback function is called for each "uses" in the script.
-  It's always called with the parameter 'SYSTEM' at the top of the script.
-  For example: uses ii1, ii2;
-  This will call this function 3 times. First with 'SYSTEM' then 'II1' and then 'II2'.
-}
-begin
-  if Name = 'SYSTEM' then begin
-    // register external functions
-    Sender.AddDelphiFunction('function TName(T: integer): string');
-    Sender.AddDelphiFunction('function TOwner(T: integer): integer');
-    Sender.AddDelphiFunction('function TName(T: integer): string');
-    Sender.AddDelphiFunction('function TOwner(T: integer): integer');
-    Sender.AddDelphiFunction('function TArmies(T: integer): integer');
-    Sender.AddDelphiFunction('function TContinent(T: integer): integer');
-    Sender.AddDelphiFunction('function TBordersCount(T: integer): integer');
-    Sender.AddDelphiFunction('function TBorder(T,B: integer): integer');
-    Sender.AddDelphiFunction('function TIsBordering(T1,T2: integer): boolean');
-    Sender.AddDelphiFunction('function TIsFront(T: integer): boolean');
-    Sender.AddDelphiFunction('function TIsMine(T: integer): boolean');
-    Sender.AddDelphiFunction('function TIsEntry(T: integer): boolean');
-    Sender.AddDelphiFunction('function TFrontsCount(T: integer): integer');
-    Sender.AddDelphiFunction('function TFront(T,F: integer): integer');
-    Sender.AddDelphiFunction(
-      'function TStrongestFront(T: integer; var ET,EA: integer): boolean');
-    Sender.AddDelphiFunction(
-      'function TWeakestFront(T: integer; var ET,EA: integer): boolean');
-    Sender.AddDelphiFunction('function TPressure(T: integer): integer');
-    Sender.AddDelphiFunction('function TDistance(ST, DT: integer): integer;');
-    Sender.AddDelphiFunction(
-      'function TShortestPath(ST, DT: integer; var TT, PL: integer): boolean;');
-    Sender.AddDelphiFunction(
-      'function TWeakestPath(ST, DT: integer; var TT, PL, EA: integer): boolean;');
-    Sender.AddDelphiFunction('function TPathToFront(T: integer): integer;');
-    Sender.AddDelphiFunction('function PMe: integer');
-    Sender.AddDelphiFunction('function PName(P: integer): string');
-    Sender.AddDelphiFunction('function PProgram(P: integer): string');
-    Sender.AddDelphiFunction('function PActive(P: integer): boolean');
-    Sender.AddDelphiFunction('function PAlive(P: integer): boolean');
-    Sender.AddDelphiFunction('function PHuman(P: integer): boolean');
-    Sender.AddDelphiFunction('function PArmiesCount(P: integer): integer');
-    Sender.AddDelphiFunction('function PNewArmies(P: integer): integer');
-    Sender.AddDelphiFunction('function PTerritoriesCount(P: integer): integer');
-    Sender.AddDelphiFunction('function PCardCount(P: integer): integer');
-    Sender.AddDelphiFunction('function PCardTurnInValue(P: integer): integer');
-    Sender.AddDelphiFunction('function COwner(C: integer): integer');
-    Sender.AddDelphiFunction('function CBonus(C: integer): integer');
-    Sender.AddDelphiFunction('function CTerritoriesCount(C: integer): integer');
-    Sender.AddDelphiFunction('function CTerritory(C,T: integer): integer');
-    Sender.AddDelphiFunction('function CBordersCount(C: integer): integer');
-    Sender.AddDelphiFunction('function CBorder(C,B: integer): integer');
-    Sender.AddDelphiFunction('function CEntriesCount(C: integer): integer');
-    Sender.AddDelphiFunction('function CEntry(C,B: integer): integer');
-    Sender.AddDelphiFunction(
-      'function CAnalysis(C: integer; var PT,PA,ET,EA: integer): boolean');
-    Sender.AddDelphiFunction(
-      'function CLeader(C: integer; var P,T,A: integer): boolean');
-    Sender.AddDelphiFunction('function SConquest: boolean');
-    Sender.AddDelphiFunction('function SPlayersCount: integer');
-    Sender.AddDelphiFunction('function SAlivePlayersCount: integer');
-    Sender.AddDelphiFunction('function SCardsBasedOnCombo: boolean');
-    Sender.AddDelphiFunction('procedure UMessage(M: string)');
-    Sender.AddDelphiFunction('procedure ULog(M: string)');
-    Sender.AddDelphiFunction('procedure UBufferSet(B: integer; V: double)');
-    Sender.AddDelphiFunction('function UBufferGet(B: integer): double');
-    Sender.AddDelphiFunction('function URandom(R: integer): double');
-    Sender.AddDelphiFunction('procedure UTakeSnapshot(M: string)');
-    Sender.AddDelphiFunction('function UDialog(M,B: string): integer');
-    Sender.AddDelphiFunction('procedure UAbortGame');
-    Sender.AddDelphiFunction('procedure ULogOff');
-    Sender.AddDelphiFunction('procedure ULogOn');
-    Sender.AddDelphiFunction('procedure UMessageOff');
-    Sender.AddDelphiFunction('procedure UMessageOn');
-    Sender.AddDelphiFunction('procedure UDialogOff');
-    Sender.AddDelphiFunction('procedure UDialogOn');
-    Sender.AddDelphiFunction('procedure USnapShotOff');
-    Sender.AddDelphiFunction('procedure USnapShotOn');
-    Result := True;
-  end
-  else
-    Result := False;
-end;
-
-function ScriptOnExportCheck(Sender: TPSPascalCompiler;
-  Proc: TPSInternalProcedure; const ProcDecl: ansistring): boolean;
-{
-  The OnExportCheck callback function is called for each function in the script
-  (Also for the main proc, with '!MAIN' as a Proc^.Name). ProcDecl contains the
-  result type and parameter types of a function using this format:
-  ProcDecl: ResultType + ' ' + Parameter1 + ' ' + Parameter2 + ' '+Parameter3 + .....
-  Parameter: ParameterType+TypeName
-  ParameterType is @ for a normal parameter and ! for a var parameter.
-  A result type of 0 means no result.
-}
-var
-  sExpectedPar: string;
-begin
-  sExpectedPar := '';
-  if (Proc.Name = 'ASSIGNMENT') then begin
-    bAssignmentFound := True;
-    sExpectedPar := '0 !LONGINT';
-  end
-  else if (Proc.Name = 'PLACEMENT') then begin
-    bPlacementFound := True;
-    sExpectedPar := '0 !LONGINT';
-  end
-  else if (Proc.Name = 'ATTACK') then begin
-    bAttackFound := True;
-    sExpectedPar := '0 !LONGINT !LONGINT';
-  end
-  else if (Proc.Name = 'OCCUPATION') then begin
-    bOccupationFound := True;
-    sExpectedPar := '0 @LONGINT @LONGINT !LONGINT';
-  end
-  else if (Proc.Name = 'FORTIFICATION') then begin
-    bFortificationFound := True;
-    sExpectedPar := '0 !LONGINT !LONGINT !LONGINT';
-  end;
-  // check if procedure declaration matched expected declaration
-  if sExpectedPar <> '' then begin
-    if ProcDecl <> sExpectedPar then begin
-      Sender.MakeError('', ecCustomError,
-        'Type mismatch in declaration of procedure ' + Proc.Name);
-      Result := False;
-      Exit;
-    end;
-    // Proc.aExport := etExportDecl; // Export the proc; This is needed because IFPS doesn't store the name of a function by default
-    Result := True;
-  end
-  else begin
-    Result := True;
-  end;
-end;
-
-procedure DefaultPlayersSets;
-var
-  i, iP, iPLCount: integer;
-  procedure AddPlayer(i: integer; sPrg: string);
-  begin
-    with arPlayersSet[i] do begin
-      inc(iPLCount);
-      arPlSet[iPLCount].PrgFile := sPrg;
-      arPlSet[iPLCount].Name := ChangeFileExt(sPrg, '');
-      arPlSet[iPLCount].Active := True;
-      arPlSet[iPLCount].Computer := True;
-    end;
-  end;
-
-begin
-  iPlSetCount := STDPLSETS;
-  for i := 1 to STDPLSETS do
-    with arPlayersSet[i] do begin
-      for iP := 1 to MAXPLAYERS do begin
-        arPlSet[iP].Name := '';
-        arPlSet[iP].Computer := False;
-        arPlSet[iP].Active := False;
-        arPlSet[iP].CardsHandling := chSmart;
-        arPlSet[iP].Color := atDefColor[iP];
-      end;
-      iPLCount := 1;
-      arPlSet[1].Name := 'human';
-      arPlSet[1].Active := True;
-      case i of
-        1: begin
-            Name := '* Very easy *';
-            AddPlayer(i, 'napoleon.trp');
-            AddPlayer(i, 'rambo.trp');
-            AddPlayer(i, 'simple.trp');
-          end;
-        2: begin
-            Name := '* Easy *';
-            AddPlayer(i, 'alexander.trp');
-            AddPlayer(i, 'borg.trp');
-            AddPlayer(i, 'napoleon.trp ');
-            AddPlayer(i, 'rambo.trp');
-            AddPlayer(i, 'struggler.trp ');
-          end;
-        3: begin
-            Name := '* Medium *';
-            AddPlayer(i, 'digger.trp');
-            AddPlayer(i, 'era$or-bot.trp');
-            AddPlayer(i, 'raptorbot.trp');
-            AddPlayer(i, 'shy.trp');
-            AddPlayer(i, 'struggler.trp');
-          end;
-        4: begin
-            Name := '* Hard *';
-            AddPlayer(i, 'australian+.trp');
-            AddPlayer(i, 'digger.trp');
-            AddPlayer(i, 'era$or-bot.trp');
-            AddPlayer(i, 'raptorbot.trp');
-            AddPlayer(i, 'shy2.trp');
-            AddPlayer(i, 'wyrm.trp');
-            AddPlayer(i, 'zotob.trp');
-          end;
-        5: begin
-            Name := '* Very hard *';
-            AddPlayer(i, 'australian09.trp');
-            AddPlayer(i, 'descartes09.trp');
-            AddPlayer(i, 'frank+.trp');
-            AddPlayer(i, 'raptorbot.trp');
-            AddPlayer(i, 'shy.trp');
-            AddPlayer(i, 'vexer.trp');
-            AddPlayer(i, 'wyrm.trp');
-            AddPlayer(i, 'struggler+.trp');
-          end;
-      end;
-    end;
-end;
-
-// Application Setup
-procedure Setup;
-var
-  IniFile: TIniFile;
-  i, iP: integer;
-  sTmp: string;
-begin
-
-  Randomize;
-
-  // get the frequency of the high-resolution performance counter
-  QueryPerformanceFrequency(iPerformanceFrequency);
-  if iPerformanceFrequency = 0 then
-    iPerformanceFrequency := 1;
-
-  // generic global vars
-  sG_AppName := 'TurboRisk';
-  if bG_TRSim then
-    sG_AppVers := VERSION_TRSIM
-  else
-    sG_AppVers := VERSION;
-  sG_AppPath := ExtractFilePath(Application.ExeName);
-  bCloseASAP := False;
-
-  // Default players sets
-  DefaultPlayersSets;
-
-  // load INI file
-  IniFile := TIniFile.Create(sG_AppPath + sG_AppName + '.INI');
-  try
-    with IniFile do begin
-      // News
-      sTmp := ReadString('News', 'LastRead', FormatDateTime('yyyymmdd',Today));
-      sG_LastNews := EncodeDate(StrToInt(copy(sTmp, 1, 4)),
-        StrToInt(copy(sTmp, 5, 2)), StrToInt(copy(sTmp, 7, 2)));
-      // Windows setup
-      fMain.Top := ReadInteger('Windows', 'MainTop', 0);
-      fMain.Left := ReadInteger('Windows', 'MainLeft', 0);
-      fStats.Top := ReadInteger('Windows', 'StatsTop', 0);
-      fStats.Left := ReadInteger('Windows', 'StatsLeft', 0);
-      bStOpTer := ReadBool('Windows', 'StatsTer', True);
-      bStOpArm := ReadBool('Windows', 'StatsArm', True);
-      bStOpCon := ReadBool('Windows', 'StatsCon', True);
-      bStOpCar := ReadBool('Windows', 'StatsCar', True);
-      bStOpCTIV := ReadBool('Windows', 'StatsCTIV', True);
-      if bG_TRSim then
-        fStats.Visible := False
-      else
-        fStats.Visible := ReadBool('Windows', 'StatsVisible', False);
-      fLog.Top := ReadInteger('Windows', 'LogTop', 0);
-      fLog.Left := ReadInteger('Windows', 'LogLeft', 0);
-      fLog.Width := ReadInteger('Windows', 'LogWidth', 100);
-      fLog.Height := ReadInteger('Windows', 'LogHeight', 100);
-      fLog.Visible := ReadBool('Windows', 'LogVisible', False);
-      fHistory.Top := ReadInteger('Windows', 'HistoryTop', 0);
-      fHistory.Left := ReadInteger('Windows', 'HistoryLeft', 0);
-      fHistory.Width := ReadInteger('Windows', 'HistoryWidth', 500);
-      fHistory.Height := ReadInteger('Windows', 'HistoryHeight', 400);
-      // Preferences
-      bPrefShowToolbar := ReadBool('Pref', 'ShowToolbar', True);
-      fMain.tlbToolBar.Visible := bPrefShowToolbar;
-      sPrefTlbButtons := ReadString('Pref', 'Toolbar', '011111000000000');
-      for i := 0 to fMain.tlbToolBar.ButtonCount - 3 do begin
-        fMain.tlbToolBar.Buttons[i].Visible := (sPrefTlbButtons[i + 1] <> '0');
-      end;
-      bPrefExpertAttack := ReadBool('Pref', 'ExpertAttack', False);
-      bPrefMapHoover := ReadBool('Pref', 'MapHooverOn', True);
-      bPrefMapSelected := ReadBool('Pref', 'MapSelectedOn', True);
-      iPrefMapHoover := ReadInteger('Pref', 'MapHooverP', -20);
-      iPrefMapSelected := ReadInteger('Pref', 'MapSelectedP', -20);
-      bPrefConfirmAbort := ReadBool('Pref', 'ConfirmAbort', True);
-      bPrefCheckUpdate := ReadBool('Pref', 'CheckUpdate', False);
-      // Map
-      sMapFile := ReadString('Map', 'File', 'std_map_small.trm');
-      // Rules
-      case ReadInteger('Rules', 'Assignment', 0) of
-        0:
-          RAssignmentType := atRandom;
-        1:
-          RAssignmentType := atTurns;
-      end;
-      for iP := 2 to MAXPLAYERS do begin
-        RInitialArmies[iP] := ReadInteger('Rules', 'InitArmies' + IntToStr(iP),
-          aiDefIniArmy[iP]);
-      end;
-      case ReadInteger('Rules', 'CardUsage', 1) of
-        0:
-          RCardsValueType := cvConstant;
-        1:
-          RCardsValueType := cvProgressive;
-      end;
-      RSetValue[csArt] := ReadInteger('Rules', 'ArtSetValue', 4);
-      RSetValue[csInf] := ReadInteger('Rules', 'InfSetValue', 6);
-      RSetValue[csCav] := ReadInteger('Rules', 'CavSetValue', 8);
-      RSetValue[csDif] := ReadInteger('Rules', 'DifSetValue', 10);
-      for i := 1 to 8 do begin
-        RTradeValue[i] := ReadInteger('Rules', 'TradeValue' + IntToStr(i),
-          aiDefTradeVal[i]);
-      end;
-      RValueInc := ReadInteger('Rules', 'TradeValueInc', 5);
-      RMaxHeldCards := ReadInteger('Rules', 'MaxHeldCards', 5);
-      RImmediateTrade := ReadBool('Rules', 'TradeCapturedCards', True);
-      RFinalMove := ReadBool('Rules', 'AllowAttackAfterMove', True);
-      // Players
-      for iP := 1 to MAXPLAYERS do begin
-        with arPlayer[iP] do begin
-          Name := ReadString('Player' + IntToStr(iP), 'Name',
-            'Player' + IntToStr(iP));
-          Active := ReadBool('Player' + IntToStr(iP), 'Active', True);
-          Color := ReadInteger('Player' + IntToStr(iP), 'Color',
-            atDefColor[iP]);
-          Computer := ReadBool('Player' + IntToStr(iP), 'Computer', True);
-          KeepLog := ReadBool('Player' + IntToStr(iP), 'Log', False);
-          CardsHandling := TCardsHandling(ReadInteger('Player' + IntToStr(iP),
-              'AutoCards', 1));
-          PrgFile := ReadString('Player' + IntToStr(iP), 'PrgFile', '');
-          if PrgFile = '' then
-            PrgFile := 'simple.trp';
-        end;
-      end;
-      // Players sets
-      iPlSetCount := ReadInteger('PlSets', 'Count', STDPLSETS);
-      iPlSet := ReadInteger('PlSets', 'Set', 0);
-      for i := STDPLSETS + 1 to iPlSetCount do begin
-        arPlayersSet[i].Name := ReadString('PlSet' + IntToStr(i), 'Name',
-          'PlSet' + IntToStr(i));
-        for iP := 1 to MAXPLAYERS do begin
-          with arPlayersSet[i].arPlSet[iP] do begin
-            Name := ReadString('PlSet' + IntToStr(i), 'Name' + IntToStr(iP),
-              '');
-            Active := ReadBool('PlSet' + IntToStr(i), 'Active' + IntToStr(iP),
-              True);
-            Color := ReadInteger('PlSet' + IntToStr(i), 'Color' + IntToStr(iP),
-              atDefColor[iP]);
-            Computer := ReadBool('PlSet' + IntToStr(i),
-              'Computer' + IntToStr(iP), True);
-            KeepLog := ReadBool('PlSet' + IntToStr(i), 'Log' + IntToStr(iP),
-              False);
-            CardsHandling := TCardsHandling(ReadInteger('PlSet' + IntToStr(i),
-                'AutoCards' + IntToStr(iP), 1));
-            PrgFile := ReadString('PlSet' + IntToStr(i),
-              'PrgFile' + IntToStr(iP), '');
-            if PrgFile = '' then
-              PrgFile := 'simple.trp';
-          end;
-        end;
-      end;
-    end;
-  finally
-    IniFile.Free;
-  end;
-
-  // 'nil' player, which is the default for non-assigned territories
-  with arPlayer[0] do begin
-    Name := 'Nil';
-    Active := False;
-    Color := clSilver;
-  end;
-
-  // Setup territories
-  SetupTerritories;
-
-  // Creat base map used to find territory from mouse position
-  BaseMap := TBitmap.Create;
-
-  // Load map from file
-  LoadMap;
-
-  // Initial state of the game (just as a game had just been completed)
-  GameCleanup;
-
-end;
-
-// Application Cleanup
-procedure Cleanup;
-var
-  IniFile: TIniFile;
-  i, iP: integer;
-begin
-
-  if not bG_TRSim then begin // TRSim does not save main TurboRisk ini file
-
-    // save setup on INI file
-    IniFile := TIniFile.Create(sG_AppPath + sG_AppName + '.INI');
-    try
-      with IniFile do begin
-        // News
-        WriteString('News', 'LastRead',
-          FormatDateTime('yyyymmdd', sG_LastNews));
-        // Windows
-        WriteInteger('Windows', 'MainTop', fMain.Top);
-        WriteInteger('Windows', 'MainLeft', fMain.Left);
-        WriteInteger('Windows', 'StatsTop', fStats.Top);
-        WriteInteger('Windows', 'StatsLeft', fStats.Left);
-        WriteBool('Windows', 'StatsVisible', fStats.Visible);
-        WriteBool('Windows', 'StatsTer', bStOpTer);
-        WriteBool('Windows', 'StatsArm', bStOpArm);
-        WriteBool('Windows', 'StatsCon', bStOpCon);
-        WriteBool('Windows', 'StatsCar', bStOpCar);
-        WriteBool('Windows', 'StatsCTIV', bStOpCTIV);
-        WriteInteger('Windows', 'LogTop', fLog.Top);
-        WriteInteger('Windows', 'LogLeft', fLog.Left);
-        WriteInteger('Windows', 'LogWidth', fLog.Width);
-        WriteInteger('Windows', 'LogHeight', fLog.Height);
-        WriteBool('Windows', 'LogVisible', fLog.Visible);
-        WriteInteger('Windows', 'HistoryTop', fHistory.Top);
-        WriteInteger('Windows', 'HistoryLeft', fHistory.Left);
-        WriteInteger('Windows', 'HistoryWidth', fHistory.Width);
-        WriteInteger('Windows', 'HistoryHeight', fHistory.Height);
-        // Preferences
-        WriteBool('Pref', 'ShowToolbar', bPrefShowToolbar);
-        WriteString('Pref', 'Toolbar', sPrefTlbButtons);
-        WriteBool('Pref', 'ExpertAttack', bPrefExpertAttack);
-        WriteBool('Pref', 'MapHooverOn', bPrefMapHoover);
-        WriteBool('Pref', 'MapSelectedOn', bPrefMapSelected);
-        WriteInteger('Pref', 'MapHooverP', iPrefMapHoover);
-        WriteInteger('Pref', 'MapSelectedP', iPrefMapSelected);
-        WriteBool('Pref', 'ConfirmAbort', bPrefConfirmAbort);
-        WriteBool('Pref', 'CheckUpdate', bPrefCheckUpdate);
-        // Map
-        WriteString('Map', 'File', sMapFile);
-        // Rules
-        WriteInteger('Rules', 'Assignment', ord(RAssignmentType));
-        for iP := 2 to MAXPLAYERS do begin
-          WriteInteger('Rules', 'InitArmies' + IntToStr(iP),
-            RInitialArmies[iP]);
-        end;
-        WriteInteger('Rules', 'CardUsage', ord(RCardsValueType));
-        WriteInteger('Rules', 'ArtSetValue', RSetValue[csArt]);
-        WriteInteger('Rules', 'InfSetValue', RSetValue[csInf]);
-        WriteInteger('Rules', 'CavSetValue', RSetValue[csCav]);
-        WriteInteger('Rules', 'DifSetValue', RSetValue[csDif]);
-        for i := 1 to 8 do begin
-          WriteInteger('Rules', 'TradeValue' + IntToStr(i), RTradeValue[i]);
-        end;
-        WriteInteger('Rules', 'TradeValueInc', RValueInc);
-        WriteInteger('Rules', 'MaxHeldCards', RMaxHeldCards);
-        WriteBool('Rules', 'TradeCapturedCards', RImmediateTrade);
-        WriteBool('Rules', 'AllowAttackAfterMove', RFinalMove);
-        // Players
-        for iP := 1 to MAXPLAYERS do begin
-          with arPlayer[iP] do begin
-            WriteString('Player' + IntToStr(iP), 'Name', Name);
-            WriteBool('Player' + IntToStr(iP), 'Active', Active);
-            WriteInteger('Player' + IntToStr(iP), 'Color', Color);
-            WriteBool('Player' + IntToStr(iP), 'Computer', Computer);
-            WriteBool('Player' + IntToStr(iP), 'Log', KeepLog);
-            WriteInteger('Player' + IntToStr(iP), 'AutoCards',
-              ord(CardsHandling));
-            WriteString('Player' + IntToStr(iP), 'PrgFile', PrgFile);
-          end;
-        end;
-        // Players sets
-        WriteInteger('PlSets', 'Count', iPlSetCount);
-        WriteInteger('PlSets', 'Set', iPlSet);
-        for i := STDPLSETS + 1 to iPlSetCount do begin
-          WriteString('PlSet' + IntToStr(i), 'Name', arPlayersSet[i].Name);
-          for iP := 1 to MAXPLAYERS do begin
-            with arPlayersSet[i].arPlSet[iP] do begin
-              WriteString('PlSet' + IntToStr(i), 'Name' + IntToStr(iP), Name);
-              WriteBool('PlSet' + IntToStr(i), 'Active' + IntToStr(iP), Active);
-              WriteInteger('PlSet' + IntToStr(i), 'Color' + IntToStr(iP),
-                Color);
-              WriteBool('PlSet' + IntToStr(i), 'Computer' + IntToStr(iP),
-                Computer);
-              WriteBool('PlSet' + IntToStr(i), 'Log' + IntToStr(iP), KeepLog);
-              WriteInteger('PlSet' + IntToStr(i), 'AutoCards' + IntToStr(iP),
-                ord(CardsHandling));
-              WriteString('PlSet' + IntToStr(i), 'PrgFile' + IntToStr(iP),
-                PrgFile);
-            end;
-          end;
-        end;
-      end;
-    finally
-      IniFile.Free;
-    end;
-  end;
-  BaseMap.Free;
-
-end;
-
-// Menu setup according to the state of the game
-procedure MenuSetup;
-begin
-  with fMain do
-    case GameState of
-      gsStopped: begin
-          mnuFilNew.Enabled := True;
-          mnuFilEnd.Enabled := False;
-          mnuFilSave.Enabled := False;
-          mnuFilRestore.Enabled := True;
-          mnuOptRules.Enabled := True;
-          mnuOptPref.Enabled := True;
-          cmdNewGame.Enabled := True;
-          cmdEndGame.Enabled := False;
-          cmdSaveGame.Enabled := False;
-          cmdRestoreGame.Enabled := True;
-          cmdEndTurn.Enabled := False;
-          cmdRules.Enabled := True;
-          cmdPreferences.Enabled := True;
-        end;
-      gsAssigning, gsPlaying: begin
-          mnuFilNew.Enabled := False;
-          mnuFilEnd.Enabled := True;
-          mnuFilSave.Enabled := False;
-          mnuFilRestore.Enabled := False;
-          mnuOptRules.Enabled := False;
-          mnuOptPref.Enabled := False;
-          cmdNewGame.Enabled := False;
-          cmdEndGame.Enabled := True;
-          cmdSaveGame.Enabled := False;
-          cmdRestoreGame.Enabled := False;
-          cmdEndTurn.Enabled := False;
-          cmdRules.Enabled := False;
-          cmdPreferences.Enabled := False;
-        end;
-    end;
-end;
-
-// Create and prepare an instance of the script executer
-procedure ScriptSetup;
-begin
-
-  // Create an instance of the script executer
-  ScriptExec := TPSExec.Create;
-
-  // Register the external functions to the executer
-  // RegisterStandardLibrary_R(ScriptExec); // Register the standard library
-  ScriptExec.RegisterDelphiFunction(@TName, 'TNAME', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@TOwner, 'TOWNER', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@TArmies, 'TARMIES', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@TContinent, 'TCONTINENT', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@TBordersCount, 'TBORDERSCOUNT',
-    cdRegister);
-  ScriptExec.RegisterDelphiFunction(@TBorder, 'TBORDER', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@TIsBordering, 'TISBORDERING', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@TIsFront, 'TISFRONT', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@TIsMine, 'TISMINE', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@TIsEntry, 'TISENTRY', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@TFrontsCount, 'TFRONTSCOUNT', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@TFront, 'TFRONT', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@TStrongestFront, 'TSTRONGESTFRONT',
-    cdRegister);
-  ScriptExec.RegisterDelphiFunction(@TWeakestFront, 'TWEAKESTFRONT',
-    cdRegister);
-  ScriptExec.RegisterDelphiFunction(@TPressure, 'TPRESSURE', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@TDistance, 'TDISTANCE', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@TShortestPath, 'TSHORTESTPATH',
-    cdRegister);
-  ScriptExec.RegisterDelphiFunction(@TWeakestPath, 'TWEAKESTPATH', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@TPathToFront, 'TPATHTOFRONT', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@PMe, 'PME', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@PName, 'PNAME', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@PProgram, 'PPROGRAM', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@PActive, 'PACTIVE', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@PAlive, 'PALIVE', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@PHuman, 'PHUMAN', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@PArmiesCount, 'PARMIESCOUNT', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@PNewArmies, 'PNEWARMIES', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@PTerritoriesCount, 'PTERRITORIESCOUNT',
-    cdRegister);
-  ScriptExec.RegisterDelphiFunction(@PCardCount, 'PCARDCOUNT', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@PCardTurnInValue, 'PCARDTURNINVALUE',
-    cdRegister);
-  ScriptExec.RegisterDelphiFunction(@COwner, 'COWNER', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@CBonus, 'CBONUS', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@CTerritoriesCount, 'CTERRITORIESCOUNT',
-    cdRegister);
-  ScriptExec.RegisterDelphiFunction(@CTerritory, 'CTERRITORY', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@CBordersCount, 'CBORDERSCOUNT',
-    cdRegister);
-  ScriptExec.RegisterDelphiFunction(@CBorder, 'CBORDER', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@CEntriesCount, 'CENTRIESCOUNT',
-    cdRegister);
-  ScriptExec.RegisterDelphiFunction(@CEntry, 'CENTRY', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@CAnalysis, 'CANALYSIS', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@CLeader, 'CLEADER', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@SConquest, 'SCONQUEST', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@SPlayersCount, 'SPLAYERSCOUNT',
-    cdRegister);
-  ScriptExec.RegisterDelphiFunction(@SAlivePlayersCount, 'SALIVEPLAYERSCOUNT',
-    cdRegister);
-  ScriptExec.RegisterDelphiFunction(@SCardsBasedOnCombo, 'SCARDSBASEDONCOMBO',
-    cdRegister);
-  ScriptExec.RegisterDelphiFunction(@UMessage, 'UMESSAGE', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@ULog, 'ULOG', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@UBufferSet, 'UBUFFERSET', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@UBufferGet, 'UBUFFERGET', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@URandom, 'URANDOM', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@UTakeSnapshot, 'UTAKESNAPSHOT',
-    cdRegister);
-  ScriptExec.RegisterDelphiFunction(@UDialog, 'UDIALOG', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@UAbortGame, 'UABORTGAME', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@ULogOff, 'ULOGOFF', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@ULogOn, 'ULOGON', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@UMessageOff, 'UMESSAGEOFF', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@UMessageOn, 'UMESSAGEON', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@UDialogOff, 'UDIALOGOFF', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@UDialogOn, 'UDIALOGON', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@USnapShotOff, 'USNAPSHOTOFF', cdRegister);
-  ScriptExec.RegisterDelphiFunction(@USnapShotOn, 'USNAPSHOTON', cdRegister);
-end;
-
-// Free the script executer
-procedure ScriptCleanup;
-begin
-  if ScriptExec <> nil then begin
-    ScriptExec.Free;
-    ScriptExec := nil;
-  end;
-end;
-
-function CompileTRP(Compiler: TPSPascalCompiler;
-  sName, sSource: string): boolean;
-var
-  sCompErr: string;
-  iErr: integer;
-begin
-  Result := False;
-  sCompErr := 'Program: ' + sName + #13#10;
-  // invoke PS compiler
-  if Compiler.Compile(sSource) then begin
-    // compilation succeeded
-    if not bAssignmentFound then
-      sCompErr := sCompErr + 'ASSIGNMENT procedure not found'
-    else if not bPlacementFound then
-      sCompErr := sCompErr + 'PLACEMENT procedure not found'
-    else if not bAttackFound then
-      sCompErr := sCompErr + 'ATTACK procedure not found'
-    else if not bOccupationFound then
-      sCompErr := sCompErr + 'OCCUPATION procedure not found'
-    else if not bFortificationFound then
-      sCompErr := sCompErr + 'FORTIFICATION procedure not found'
-    else
-      Result := True;
-  end
-  else begin
-    // compilation aborted: show errors
-    for iErr := 0 to Compiler.MsgCount - 1 do begin
-      sCompErr := sCompErr + Compiler.Msg[iErr].MessageToString + #13#10;
-    end;
-  end;
-  // show error messages
-  if not Result then begin
-    MessageDlg(sCompErr, mtError, [mbOk], 0);
-  end;
-end;
-
-// New game setup
-procedure NewGameSetup;
-var
-  iCount, iT, iP, iB, // generic
-  iTL, iTL1, iTL2, iTL3: integer; // turn list generation
-  tCont: TContId;
-  bSwap: boolean;
-  PrgTemp: TstringList;
-  Compiler: TPSPascalCompiler; // TPSPascalCompiler is the compiler part of the scriptengine. This will
-  // translate a Pascal script into a compiled for the executer understands.
-  bCompErrors: boolean; // true if at least one compilation failed
-
-begin
-
-  ScriptSetup; // create the script executer; will be destroyed in GameCleanup
-  PrgTemp := TstringList.Create;
-  // create input buffer for source code
-  Compiler := TPSPascalCompiler.Create;
-  // create an instance of the compiler.
-  Compiler.OnUses := ScriptOnUses; // assign the OnUses event.
-  Compiler.OnExportCheck := ScriptOnExportCheck;
-  bCompErrors := False;
-  // reset global flag for compilation errors
-  bStopASAP := False; // reset flag for required stopping
-
-  try
-    // Reset log
-    fLog.txtLog.Lines.Clear;
-    // Reset rank
-    iRank := 0;
-    // Reset territories
-    HooverTerrit := 0;
-    FromTerrit := 0;
-    ToTerrit := 0;
-    for iT := 1 to MAXTERRITORIES do begin
-      with arTerritory[iT] do begin
-        Army := 0;
-        Owner := 0;
-      end;
-      DisplayTerritory(iT);
-    end;
-    // Reset continents
-    for tCont := coNA to coAU do begin
-      arContinent[tCont].Owner := 0;
-    end;
-    // Count initial players
-    iCount := 0;
-    for iP := 1 to MAXPLAYERS do
-      if arPlayer[iP].Active then
-        inc(iCount);
-    // Reset players
-    for iP := 1 to MAXPLAYERS do begin
-      with arPlayer[iP] do begin
-        // Reset buffers
-        for iB := 1 to MAXBUFFER do
-          Buffer[iB] := 0.0;
-        // Reset runtime flags
-        USnapShotEnabled := False;
-        ULogEnabled := False;
-        UMessageEnabled := False;
-        UDialogEnabled := False;
-        // Set active players
-        if Active then begin
-          NewArmy := RInitialArmies[iCount];
-          Territ := 0;
-          Cards[caInf] := 0;
-          Cards[caArt] := 0;
-          Cards[caCav] := 0;
-          Cards[caJok] := 0;
-          NScambi := 0;
-          Rank := 0;
-          if Computer then begin
-            // Load TRPs
-            if FileExists(sG_AppPath + 'players\' + PrgFile) then
-              PrgTemp.LoadFromFile(sG_AppPath + 'players\' + PrgFile)
-            else begin
-              MessageDlg
-              (sG_AppPath + 'players\' +
-                PrgFile + ': File not found.', mtError, [mbOk], 0);
-              PrgTemp.Clear;
-              bCompErrors := True;
-              continue;
-            end;
-            // Compile TRPs
-            bAssignmentFound := False;
-            bPlacementFound := False;
-            bAttackFound := False;
-            bOccupationFound := False;
-            bFortificationFound := False;
-            if CompileTRP(Compiler, PrgFile, PrgTemp.Text) then begin
-              Compiler.GetOutput(Code);
-            end
-            else begin
-              bCompErrors := True;
-            end;
-            // Exec main TRP code
-            if not ScriptExec.LoadData(Code) then begin
-              MessageDlg('Player: ' + Name + #13#10 +
-                'Error: script loading failed', mtError, [mbOk], 0);
-              bCompErrors := True;
-              continue;
-            end;
-            iTurn := iP;
-            ScriptExec.RunScript;
-          end;
-        end;
-      end;
-    end;
-    // State of the game
-    if bCompErrors then begin
-      GameState := gsStopped;
-    end
-    else begin
-      // Current phase is Assignment
-      GameState := gsAssigning;
-      // Choose first player at random
-      repeat
-        iFirstTurn := Random(MAXPLAYERS) + 1;
-      until arPlayer[iFirstTurn].Active;
-      iTurn := iFirstTurn;
-      iTurnCounter := 1;
-      bHumanTurn := False;
-      // Create turn list
-      for iTL := 0 to MAXPLAYERS do
-        aiTurnList[iTL] := iTL;
-      aiTurnList[iFirstTurn] := 1; // first player in turn is
-      aiTurnList[1] := iFirstTurn; // always in position 1
-      // Randomize turn list
-      for iTL := 1 to 100 do begin // perform random swaps
-        iTL1 := Random(MAXPLAYERS - 1) + 2; // range is 2..MAXPLAYERS
-        iTL2 := Random(MAXPLAYERS - 1) + 2;
-        iTL3 := aiTurnList[iTL1];
-        aiTurnList[iTL1] := aiTurnList[iTL2];
-        aiTurnList[iTL2] := iTL3;
-      end;
-      // Move inactive players at the end of the list (bubble sort)
-      repeat
-        bSwap := False;
-        for iTL := 1 to MAXPLAYERS - 1 do begin
-          if not arPlayer[aiTurnList[iTL]].Active and arPlayer
-          [aiTurnList[iTL + 1]].Active then begin
-            iTL3 := aiTurnList[iTL];
-            aiTurnList[iTL] := aiTurnList[iTL + 1];
-            aiTurnList[iTL + 1] := iTL3;
-            bSwap := True;
-          end;
-        end;
-      until not bSwap;
-      // All territories have to be assigned
-      iToAssign := MAXTERRITORIES;
-      // Count the number of active players
-      iNPlayers := 0;
-      for iP := 1 to MAXPLAYERS do
-        if arPlayer[iP].Active then
-          inc(iNPlayers);
-      // Help context
-      fMain.HelpContext := 110; // context is "play game"
-    end;
-    // Dynamic menus
-    MenuSetup;
-    // Update the stat window
-    UpdateStats;
-  finally
-    PrgTemp.Free;
-    Compiler.Free;
-  end;
-end;
-
-// Game cleanup
-procedure GameCleanup;
-begin
-  with fMain do begin
-    HelpContext := 100;
-    // context is "overview"
-    imgMap.Picture.Assign(BaseMap);
-    panStatus.Panels[0].Text := '';
-    panStatus.Panels[1].Text := '';
-    panStatus.Panels[2].Text := '';
-    panTurn.Caption := '';
-    panTurn.Color := clBtnFace;
-  end;
-  GameState := gsStopped;
-  MenuSetup;
-  UpdateStats;
-  ScriptCleanup;
-  if bCloseASAP then
-    fMain.Close;
-end;
-
-// Initial random assignment
-procedure RandomAssignment;
-var
-  iT: integer;
-begin
-  iT := Random(MAXTERRITORIES) + 1;
-  while arTerritory[iT].Owner <> 0 do
-    iT := iT mod MAXTERRITORIES + 1;
-  AssegnaTerritorio(iT, iTurn);
-  inc(arTerritory[iT].Army);
-  dec(arPlayer[iTurn].NewArmy);
-  DisplayTerritory(iT);
-  // Log
-  if arPlayer[iTurn].KeepLog then
-    ScriviLog(arTerritory[iT].Name + ' randomly assigned.');
-end;
-
-// Pass turn to next player
-procedure PassTurn;
-var
-  iTL: integer;
-begin
-  // locate curren player in turn list
-  for iTL := 1 to MAXPLAYERS do
-    if iTurn = aiTurnList[iTL] then
-      break;
-  // next player in turn list
-  iTL := iTL mod MAXPLAYERS + 1;
-  iTurn := aiTurnList[iTL];
-  // increment global turn counter, if turn came back to first player
-  if iTurn = iFirstTurn then
-    inc(iTurnCounter);
-  // if TRSim, update stats and check time and turn limits
-  if bG_TRSim then begin
-    fSimRun.UpdateSimStats;
-    if (iSimTurnLimit > 0) and (iTurnCounter > iSimTurnLimit) then begin
-      uSimStatus := ssTurnLimit;
-      bStopASAP := True;
-    end
-    else if (iSimTimeLimit > 0) and (SecondsBetween(Now,
-        dtSimGameTime) > iSimTimeLimit) then begin
-      uSimStatus := ssTimeLimit;
-      bStopASAP := True;
-    end;
-  end;
-end;
-
-// Assign new armies
-procedure AssignNewArmies(bCardsOnly: boolean);
-var
-  tCont: TContId;
-  iInf, iCav, iArt, iJok: integer;
-  iArmy, iArmyTer, iArmyCon, iArmyCar: integer;
-begin
-  iArmyTer := 0;
-  iArmyCon := 0;
-  iArmyCar := 0;
-  with arPlayer[iTurn] do begin
-    // Log
-    if KeepLog then
-      ScriviLog('Cards in hand: ' + IntToStr(Cards[caInf]) + '×Inf ' + IntToStr
-        (Cards[caCav]) + '×Cav ' + IntToStr(Cards[caArt]) + '×Art ' + IntToStr
-        (Cards[caJok]) + '×Jok');
-    if not bCardsOnly then begin
-      // armies from count of territories
-      iArmyTer := Territ div 3;
-      if iArmyTer < 3 then
-        iArmyTer := 3;
-      inc(NewArmy, iArmyTer);
-      // armaies from continents
-      iArmyCon := 0;
-      for tCont := coNA to coAU do
-        if arContinent[tCont].Owner = iTurn then begin
-          inc(iArmyCon, arContinent[tCont].Bonus)
-        end;
-      inc(NewArmy, iArmyCon);
-    end;
-    // armies from owned cards
-    if Computer or (CardsHandling = chAuto) then begin
-      repeat
-        CercaCombinazioneMigliore(iInf, iCav, iArt, iJok);
-        iArmy := TestCombinazione(iInf, iCav, iArt, iJok);
-        if iArmy > 0 then begin
-          inc(iArmyCar, iArmy);
-          inc(NewArmy, iArmy);
-          dec(Cards[caInf], iInf);
-          dec(Cards[caCav], iCav);
-          dec(Cards[caArt], iArt);
-          dec(Cards[caJok], iJok);
-          inc(NScambi);
-        end;
-      until iArmy <= 0;
-    end
-    else if CardsHandling = chSmart then begin
-      if CercaCombinazioneMigliore(iInf, iCav, iArt, iJok) then begin
-        iArmyCar := NewArmy;
-        UpdateStats;
-        fCards.ShowModal;
-        iArmyCar := NewArmy - iArmyCar;
-      end;
-    end
-    else begin
-      iArmyCar := NewArmy;
-      UpdateStats;
-      fCards.ShowModal;
-      iArmyCar := NewArmy - iArmyCar;
-    end;
-    // Log
-    if KeepLog and (NewArmy > 0) then
-      ScriviLog(IntToStr(NewArmy) + ' new armies (Terr:' + IntToStr(iArmyTer)
-        + ' Cont:' + IntToStr(iArmyCon) + ' Cards:' + IntToStr(iArmyCar)
-        + ')');
-  end;
-  UpdateStats;
-end;
-
-// Perform an attack
-function PerformAttack(iTA, iTD: integer): boolean;
-type
-  TDice = array [1 .. 3] of integer;
-var
-  iNDiceA, iNDiceD: integer;
-  // number of dice (attacker, defender)
-  aiDiceA, aiDiceD: TDice; // dice (attacker, defender)
-  iMinDice: integer; // min number of dice used (least between attacker & defender)
-  iLostA, iLostD: integer; // lost armies (attacker, defender)
-  sMsg: string; // messagge about the result
-  iOpp: integer; // opponent
-  iArmA, iArmD: integer; // initial armies in the territories (attacker, defender)
-  i: integer;
-
-  procedure ThrowDice(iNDice: integer;
-
-    var aiDice: TDice);
-  var
-    i, iTmp: integer;
-    fSwap: boolean;
-  begin
-    // generate random numbers
-    for i := 1 to iNDice do
-      aiDice[i] := Random(6) + 1;
-    // sort ny descending values (bubble sort)
-    repeat
-      fSwap := False;
-      for i := 1 to iNDice - 1 do begin
-        if aiDice[i] < aiDice[i + 1] then begin
-          iTmp := aiDice[i];
-          aiDice[i] := aiDice[i + 1];
-          aiDice[i + 1] := iTmp;
-          fSwap := True;
-        end;
-      end;
-    until not fSwap;
-  end;
-
-begin
-  // Opponent is still alive
-  bEliminatedPlayer := False;
-  // Attacker
-  iArmA := arTerritory[iTA].Army;
-  iNDiceA := arTerritory[iTA].Army - 1;
-  if iNDiceA > 3 then
-    iNDiceA := 3;
-  ThrowDice(iNDiceA, aiDiceA);
-  // Defender
-  iArmD := arTerritory[iTD].Army;
-  iNDiceD := arTerritory[iTD].Army;
-  if iNDiceD > 2 then
-    iNDiceD := 2;
-  ThrowDice(iNDiceD, aiDiceD);
-  // Fighting (comparing dice and counting lost armies)
-  if iNDiceA < iNDiceD then
-    iMinDice := iNDiceA
-  else
-    iMinDice := iNDiceD;
-  iLostA := 0;
-  iLostD := 0;
-  for i := 1 to iMinDice do begin
-    if aiDiceA[i] > aiDiceD[i] then
-      inc(iLostD)
-    else
-      inc(iLostA);
-  end;
-  // Messagge
-  sMsg := 'A:[';
-  for i := 1 to iNDiceA do begin
-    if i > 1 then
-      sMsg := sMsg + '-';
-    sMsg := sMsg + IntToStr(aiDiceA[i]);
-  end;
-  sMsg := sMsg + '] D:[';
-  for i := 1 to iNDiceD do begin
-    if i > 1 then
-      sMsg := sMsg + '-';
-    sMsg := sMsg + IntToStr(aiDiceD[i]);
-  end;
-  if iLostA = 2 then
-    sMsg := sMsg + ']. Attacker loses 2 armies.'
-  else if iLostD = 2 then
-    sMsg := sMsg + ']. Defender loses 2 armies.'
-  else if (iLostA = 1) and (iLostD = 1) then
-    sMsg := sMsg + ']. Both sides lose 1 army.'
-  else if iLostA = 1 then
-    sMsg := sMsg + ']. Attacker loses 1 army.'
-  else if iLostD = 1 then
-    sMsg := sMsg + ']. Defender loses 1 army.';
-  // Update territoris
-  iOpp := 0;
-  dec(arTerritory[iTA].Army, iLostA);
-  dec(arTerritory[iTD].Army, iLostD);
-  if arTerritory[iTD].Army = 0 then begin // conquered territory
-    // messagge
-    sMsg := sMsg + ' ' + arTerritory[iTD].Name + ' conquered.';
-    // assign territory and perform default troops move
-    iOpp := arTerritory[iTD].Owner;
-    AssegnaTerritorio(iTD, iTurn);
-    if iNDiceA >= arTerritory[iTA].Army then
-      dec(iNDiceA);
-    dec(arTerritory[iTA].Army, iNDiceA);
-    inc(arTerritory[iTD].Army, iNDiceA);
-    arPlayer[iTurn].FlConq := True;
-    // check is opponent has been eliminated
-    if arPlayer[iOpp].Territ = 0 then begin
-      bEliminatedPlayer := True;
-      // rank
-      inc(iRank);
-      arPlayer[iOpp].Rank := iRank;
-      // messagge
-      sMsg := sMsg + ' ' + arPlayer[iOpp].Name + ' destroyed.';
-      // capture opponent's cards
-      inc(arPlayer[iTurn].Cards[caInf], arPlayer[iOpp].Cards[caInf]);
-      inc(arPlayer[iTurn].Cards[caCav], arPlayer[iOpp].Cards[caCav]);
-      inc(arPlayer[iTurn].Cards[caArt], arPlayer[iOpp].Cards[caArt]);
-      inc(arPlayer[iTurn].Cards[caJok], arPlayer[iOpp].Cards[caJok]);
-      arPlayer[iOpp].Cards[caInf] := 0;
-      arPlayer[iOpp].Cards[caCav] := 0;
-      arPlayer[iOpp].Cards[caArt] := 0;
-      arPlayer[iOpp].Cards[caJok] := 0;
-      // decrease number of active players
-      dec(iNPlayers);
-      // stop human turn if game won
-      if bHumanTurn and (iNPlayers < 2) then
-        bHumanTurn := False;
-    end;
-    Result := True;
-  end
-  else begin
-    Result := False;
-  end;
-  // log
-  if arPlayer[iTurn].KeepLog then
-    ScriviLog('Attack ' + arTerritory[iTD].Name + '(' + IntToStr(iArmD)
-      + ') from ' + arTerritory[iTA].Name + '(' + IntToStr(iArmA)
-      + '), ' + sMsg);
-  // eliminated opponent's log
-  if bEliminatedPlayer and (arPlayer[iOpp].KeepLog) then
-    ScriviLog('(' + arPlayer[iOpp].Name + ' destroyed by ' + arPlayer[iTurn]
-      .Name + ')');
-  // update windows
-  DisplayTerritory(iTA);
-  DisplayTerritory(iTD);
-  fMain.panStatus.Panels[2].Text := sMsg;
-  UpdateStats;
-end;
-
-// Supervisor for the game turns and phases
-procedure Supervisor;
-var
-  iP, iToDistribute: integer;
-begin
-
-  // Check if game has been required to stop
-  if bStopASAP then begin
-    GameCleanup;
-    Exit;
-  end;
-
-  // Save and restore allowed only at beginning of a turn
-  fMain.mnuFilSave.Enabled := False;
-  fMain.mnuFilRestore.Enabled := False;
-  fMain.cmdSaveGame.Enabled := False;
-  fMain.cmdRestoreGame.Enabled := False;
-
-  // End Turn button allowed only during HumanTurn and Attack
-  fMain.cmdEndTurn.Enabled := False;
-
-  // Handle the case where I enter here after having waited for a Human Player to move
-  if bHumanTurn then begin
-    bHumanTurn := False;
-    // Assign a card if necessary
-    if (GameState = gsPlaying) and (arPlayer[iTurn].FlConq) then begin
-      PescaCarta;
-    end;
-    // Pass the turn to the next player
-    PassTurn;
-    fMain.panStatus.Panels[2].Text := '';
-  end;
-
-  // Initial assignment of territories
-  // ---------------------------------
-
-  while GameState = gsAssigning do begin
-    // Check if game has been required to stop
-    if bStopASAP then begin
-      GameCleanup;
-      Exit;
-    end;
-    // Assign
-    if iToAssign > 0 then begin
-      if arPlayer[iTurn].Active then begin
-        // Log
-        // if arPlayer[iTurn].KeepLog then ScriviLog(arPlayer[iTurn].Name+'''s turn');
-        // Show turn
-        fMain.panStatus.Panels[0].Text := 'Turn ' + IntToStr(iTurnCounter);
-        fMain.panStatus.Panels[1].Text := arPlayer[iTurn].Name;
-        fMain.panTurn.Color := arPlayer[iTurn].Color;
-        fMain.panTurn.Font.Color := BestTextColor(arPlayer[iTurn].Color);
-        fMain.panTurn.Caption := arPlayer[iTurn].Name;
-        if RAssignmentType = atRandom then begin
-          // Random assignment
-          RandomAssignment;
-          PassTurn;
-        end
-        else begin
-          // Manual assignment in turn
-          if arPlayer[iTurn].Computer then begin
-            // Computer player
-            EseguiTurnoComputer;
-            PassTurn;
-          end
-          else begin
-            // Show messages and update pointer to stats
-            MostraIstruzioni;
-            UpdateGridPos;
-            // Human player: wait for a move
-            bHumanTurn := True;
-            Exit;
-          end;
-        end;
-      end
-      else begin
-        PassTurn;
-      end;
-    end
-    else begin
-      // Change game state from Assignment to Distribution
-      GameState := gsDistributing;
-    end;
-  end;
-
-  // Distribution of additional armies on the newly assigned territories
-  // -------------------------------------------------------------------
-  while GameState = gsDistributing do begin
-    // Check if game has been required to stop
-    if bStopASAP then begin
-      GameCleanup;
-      Exit;
-    end;
-    // Count armies to be distributed
-    iToDistribute := 0;
-    for iP := 1 to MAXPLAYERS do
-      if arPlayer[iP].Active then
-        inc(iToDistribute, arPlayer[iP].NewArmy);
-    // Distribute
-    if iToDistribute > 0 then begin
-      if arPlayer[iTurn].Active and (arPlayer[iTurn].NewArmy > 0) then begin
-        // Log
-        // if arPlayer[iTurn].KeepLog then ScriviLog(0,arPlayer[iTurn].Name+'''s turn');
-        // Show turn
-        fMain.panStatus.Panels[0].Text := 'Turn ' + IntToStr(iTurnCounter);
-        fMain.panStatus.Panels[1].Text := arPlayer[iTurn].Name;
-        fMain.panTurn.Color := arPlayer[iTurn].Color;
-        fMain.panTurn.Font.Color := BestTextColor(arPlayer[iTurn].Color);
-        fMain.panTurn.Caption := arPlayer[iTurn].Name;
-        // Execute distribution
-        if arPlayer[iTurn].Computer then begin
-          // Computer player
-          EseguiTurnoComputer;
-          PassTurn;
-        end
-        else begin
-          // Show messages and update pointer to stats
-          MostraIstruzioni;
-          UpdateGridPos;
-          // Human player: wait for a move
-          bHumanTurn := True;
-          Exit;
-        end;
-      end
-      else begin
-        PassTurn;
-      end;
-    end
-    else begin
-      GameState := gsPlaying;
-    end;
-  end;
-
-  // Game phases
-  // -----------
-
-  while GameState = gsPlaying do begin
-    // Check if game has been required to stop
-    if bStopASAP then begin
-      GameCleanup;
-      Exit;
-    end;
-    // Check if game has been won
-    if iNPlayers < 2 then begin
-      if not bG_TRSim then begin // TurboRisk
-        MessageDlg(arPlayer[arTerritory[1].Owner].Name +
-          ' has conquered the world!', mtCustom, [mbOk], 0);
-      end
-      else begin // TRSim
-        iSimWinner := arTerritory[1].Owner;
-        uSimStatus := ssComplete;
-      end;
-      GameState := gsStopped;
-      // Log
-      if arPlayer[iTurn].KeepLog then
-        ScriviLog('World conquered');
-      // History
-      inc(iRank);
-      arPlayer[arTerritory[1].Owner].Rank := iRank;
-      if not bG_TRSim then begin // TurboRisk
-        UpdateHistoryFile; // TRSim updates history in its main simulation loop
-      end;
-      // Reset game
-      GameCleanup;
-      Exit;
-    end;
-    // Prepare and execute a move
-    if arPlayer[iTurn].Active and (arPlayer[iTurn].Territ > 0) then begin
-      // Log
-      { if arPlayer[iTurn].KeepLog then ScriviLog(0,arPlayer[iTurn].Name+'''s turn'); }
-      // Show turn
-      fMain.panStatus.Panels[0].Text := 'Turn ' + IntToStr(iTurnCounter);
-      fMain.panStatus.Panels[1].Text := arPlayer[iTurn].Name;
-      fMain.panTurn.Color := arPlayer[iTurn].Color;
-      fMain.panTurn.Font.Color := BestTextColor(arPlayer[iTurn].Color);
-      fMain.panTurn.Caption := arPlayer[iTurn].Name;
-      // Initialize turn
-      arPlayer[iTurn].FlConq := False;
-      arPlayer[iTurn].FlMove := False;
-      // Assign new armies
-      AssignNewArmies(False);
-      // Execute a move
-      if arPlayer[iTurn].Computer then begin
-        // Computer player
-        EseguiTurnoComputer;
-        // Pick a new card if at least one territory has been conquered
-        if arPlayer[iTurn].FlConq then begin
-          PescaCarta;
-        end;
-        PassTurn;
-      end
-      else begin
-        // Initialize human turn
-        if arPlayer[iTurn].NewArmy > 0 then begin
-          HumanPhase := hpPlacement;
-        end
-        else begin
-          HumanPhase := hpAttack;
-          fMain.cmdEndTurn.Enabled := True; // allow "end turn" button
-        end;
-        FromTerrit := 0;
-        ToTerrit := 0;
-        // Allow save and restore only at beginning of a turn
-        fMain.mnuFilSave.Enabled := True;
-        fMain.mnuFilRestore.Enabled := True;
-        fMain.cmdSaveGame.Enabled := True;
-        fMain.cmdRestoreGame.Enabled := True;
-        // Show messages and update pointer to stats
-        MostraIstruzioni;
-        UpdateGridPos;
-        // Human player: wait for a move
-        bHumanTurn := True;
-        Exit;
-      end;
-    end
-    else begin
-      PassTurn;
-    end;
-  end;
-end;
-
-procedure UpdateHistoryFile;
-var
-  fHistory: textfile;
-  iP, iCurP, iCurRank, iMaxRank: integer;
-  bFound: boolean;
-  sHFName, sList: string;
-begin
-  // assign history file
-  if bG_TRSim then
-    sHFName := sG_AppPath + sSimGameLogFile
-  else
-    sHFName := sG_AppPath + 'history.txt';
-  AssignFile(fHistory, sHFName);
-  // open history file for append or rewrite
-  if FileExists(sHFName) then
-    Append(fHistory)
-  else
-    Rewrite(fHistory);
-  // write on history file
-  try
-    // calculate highest rank
-    iMaxRank := 0;
-    for iP := 1 to MAXPLAYERS do begin
-      if arPlayer[iP].Active then begin
-        inc(iMaxRank);
-      end;
-    end;
-    // if TurboRisk, or TRSim completed game, create player list by rank
-    if not bG_TRSim or (uSimStatus = ssComplete) then begin
-      iCurRank := iMaxRank;
-      sList := '';
-      repeat
-        bFound := False;
-        for iP := 1 to MAXPLAYERS do begin
-          if (arPlayer[iP].Active) and (arPlayer[iP].Rank = iCurRank) then begin
-            iCurP := iP;
-            bFound := True;
-            break;
-          end;
-        end;
-        if bFound then begin
-          sList := sList + ',' + arPlayer[iCurP].Name;
-          if bG_TRSim then begin // TRSim
-            sList := sList + ',' + IntToStr(arPlayer[iCurP].LastTurn);
-            sList := sList + ',' + IntToStr(arPlayer[iCurP].Army);
-            sList := sList + ',' + IntToStr(arPlayer[iCurP].Territ);
-          end;
-        end;
-        dec(iCurRank);
-      until not bFound;
-    end
-    // otherwise, just list the players
-    else begin
-      for iP := 1 to MAXPLAYERS do begin
-        if (arPlayer[iP].Active) then begin
-          sList := sList + ',' + arPlayer[iP].Name;
-          if bG_TRSim then begin // TRSim
-            sList := sList + ',' + IntToStr(arPlayer[iP].LastTurn);
-            sList := sList + ',' + IntToStr(arPlayer[iP].Army);
-            sList := sList + ',' + IntToStr(arPlayer[iP].Territ);
-          end;
-        end;
-      end;
-    end;
-    // append record to file
-    if bG_TRSim then begin // TRSim
-      Writeln(fHistory, FormatDateTime('yyyymmdd,hhnnss', Now) + ',' + IntToStr
-        (ord(uSimStatus)) + ',' + IntToStr(iSimGameTime) + ',' + IntToStr
-        (iTurnCounter) + ',' + IntToStr(iMaxRank) + sList);
-    end
-    else begin // TurboRisk
-      Writeln(fHistory, FormatDateTime('yyyymmdd', Today) + ',' + IntToStr
-        (iMaxRank) + sList);
-    end;
-  finally
-    CloseFile(fHistory);
-  end;
-end;
-
-procedure SaveGame(sFileName, sErrorMsg: string);
-var
-  IniFile: TIniFile;
-  i, iP, iB, iT, iG: integer;
-  sSec: string;
-begin
-
-  // save current game on INI-like file
-  IniFile := TIniFile.Create(sFileName);
-  try
-    with IniFile do begin
-      // Status of the game
-      WriteInteger('Status', 'TurnCounter', iTurnCounter);
-      WriteInteger('Status', 'Turn', iTurn);
-      WriteInteger('Status', 'FirstTurn', iFirstTurn);
-      WriteInteger('Status', 'Rank', iRank);
-      WriteString('Status', 'ErrorMsg', sErrorMsg);
-      for iG := 1 to MAXPLAYERS do
-        WriteInteger('Status', 'TurnList' + IntToStr(iG), aiTurnList[iG]);
-      // Rules
-      WriteInteger('Rules', 'Assignment', ord(RAssignmentType));
-      for iP := 2 to MAXPLAYERS do begin
-        WriteInteger('Rules', 'InitArmies' + IntToStr(iP), RInitialArmies[iP]);
-      end;
-      WriteInteger('Rules', 'CardUsage', ord(RCardsValueType));
-      WriteInteger('Rules', 'ArtSetValue', RSetValue[csArt]);
-      WriteInteger('Rules', 'InfSetValue', RSetValue[csInf]);
-      WriteInteger('Rules', 'CavSetValue', RSetValue[csCav]);
-      WriteInteger('Rules', 'DifSetValue', RSetValue[csDif]);
-      for i := 1 to 8 do begin
-        WriteInteger('Rules', 'TradeValue' + IntToStr(i), RTradeValue[i]);
-      end;
-      WriteInteger('Rules', 'TradeValueInc', RValueInc);
-      WriteInteger('Rules', 'MaxHeldCards', RMaxHeldCards);
-      WriteBool('Rules', 'TradeCapturedCards', RImmediateTrade);
-      WriteBool('Rules', 'AllowAttackAfterMove', RFinalMove);
-      // Players
-      for iP := 1 to MAXPLAYERS do begin
-        with arPlayer[iP] do begin
-          sSec := 'Player' + IntToStr(iP);
-          WriteString(sSec, 'Name', Name);
-          WriteBool(sSec, 'Active', Active);
-          WriteInteger(sSec, 'Color', Color);
-          WriteBool(sSec, 'Computer', Computer);
-          WriteBool(sSec, 'Log', KeepLog);
-          WriteInteger(sSec, 'AutoCards', ord(CardsHandling));
-          WriteString(sSec, 'PrgFile', PrgFile);
-          WriteInteger(sSec, 'NewArmy', NewArmy);
-          WriteInteger(sSec, 'CardTrades', NScambi);
-          if (RCardsValueType = cvProgressive) then begin
-            if NScambi < 8 then
-              WriteInteger(sSec, 'CTIV', RTradeValue[NScambi + 1])
-            else
-              WriteInteger(sSec, 'CTIV',
-                RTradeValue[8] + (NScambi - 7) * RValueInc);
-          end
-          else begin
-            WriteInteger(sSec, 'CTIV', 0);
-          end;
-          WriteString(sSec, 'Cards',
-            IntToStr(Cards[caInf]) + IntToStr(Cards[caArt]) + IntToStr
-            (Cards[caCav]) + IntToStr(Cards[caJok]));
-          WriteInteger(sSec, 'Rank', Rank);
-          WriteBool(sSec, 'USnapShot', USnapShotEnabled);
-          WriteBool(sSec, 'ULog', ULogEnabled);
-          WriteBool(sSec, 'UMessage', UMessageEnabled);
-          WriteBool(sSec, 'UDialog', UDialogEnabled);
-          for iB := 1 to MAXBUFFER do begin
-            if Buffer[iB] <> 0.0 then begin
-              WriteString(sSec, 'Buffer' + IntToStr(iB),
-                FloatToStr(Buffer[iB]));
-            end;
-          end;
-        end;
-      end;
-      // Territories
-      for iT := 1 to MAXTERRITORIES do begin
-        WriteInteger('Territory', 'Owner' + IntToStr(iT),
-          arTerritory[iT].Owner);
-        WriteInteger('Territory', 'Army' + IntToStr(iT), arTerritory[iT].Army);
-      end;
-    end;
-  finally
-    IniFile.Free;
-  end;
-end;
-
-procedure RestoreGame(sFileName: string);
-var
-  IniFile: TIniFile;
-  i, iP, iB, iT, iG: integer;
-  iC: TContId;
-  sSec, sTmp: string;
-  PrgTemp: TstringList;
-  Compiler: TPSPascalCompiler; // TPSPascalCompiler is the compiler part of the scriptengine. This will
-  // translate a Pascal script into a compiled for the executer understands.
-  bCompErrors: boolean; // true if at least one compilation failed
-
-begin
-  // restore game from INI-like file
-  IniFile := TIniFile.Create(sFileName);
-  try
-    with IniFile do begin
-      // Status of the game
-      iTurnCounter := ReadInteger('Status', 'TurnCounter', 1);
-      iTurn := ReadInteger('Status', 'Turn', 1);
-      iFirstTurn := ReadInteger('Status', 'FirstTurn', 1);
-      iRank := ReadInteger('Status', 'Rank', iRank);
-      { sErrorMsg := ReadString('Status','ErrorMsg',''); }
-      for iG := 1 to MAXPLAYERS do
-        aiTurnList[iG] := ReadInteger('Status', 'TurnList' + IntToStr(iG), iG);
-      // Rules
-      case ReadInteger('Rules', 'Assignment', 0) of
-        0:
-          RAssignmentType := atRandom;
-        1:
-          RAssignmentType := atTurns;
-      end;
-      for iP := 2 to MAXPLAYERS do begin
-        RInitialArmies[iP] := ReadInteger('Rules', 'InitArmies' + IntToStr(iP),
-          30);
-      end;
-      case ReadInteger('Rules', 'CardUsage', 0) of
-        0:
-          RCardsValueType := cvConstant;
-        1:
-          RCardsValueType := cvProgressive;
-      end;
-      RSetValue[csArt] := ReadInteger('Rules', 'ArtSetValue', 4);
-      RSetValue[csInf] := ReadInteger('Rules', 'InfSetValue', 6);
-      RSetValue[csCav] := ReadInteger('Rules', 'CavSetValue', 8);
-      RSetValue[csDif] := ReadInteger('Rules', 'DifSetValue', 10);
-      for i := 1 to 8 do begin
-        RTradeValue[i] := ReadInteger('Rules', 'TradeValue' + IntToStr(i),
-          i + 3);
-      end;
-      RValueInc := ReadInteger('Rules', 'TradeValueInc', 1);
-      RMaxHeldCards := ReadInteger('Rules', 'MaxHeldCards', 4);
-      RImmediateTrade := ReadBool('Rules', 'TradeCapturedCards', True);
-      RFinalMove := ReadBool('Rules', 'AllowAttackAfterMove', True);
-      // Players
-      for iP := 1 to MAXPLAYERS do begin
-        with arPlayer[iP] do begin
-          sSec := 'Player' + IntToStr(iP);
-          Name := ReadString(sSec, 'Name', sSec);
-          Active := ReadBool(sSec, 'Active', True);
-          Color := ReadInteger(sSec, 'Color', clBlue);
-          Computer := ReadBool(sSec, 'Computer', False);
-          KeepLog := ReadBool(sSec, 'Log', False);
-          CardsHandling := TCardsHandling(ReadInteger(sSec, 'AutoCards', 1));
-          PrgFile := ReadString(sSec, 'PrgFile', '');
-          NewArmy := ReadInteger(sSec, 'NewArmy', 0);
-          NScambi := ReadInteger(sSec, 'CardTrades', 0);
-          sTmp := ReadString(sSec, 'Cards', '0000');
-          Cards[caInf] := StrToIntDef(sTmp[1], 0);
-          Cards[caArt] := StrToIntDef(sTmp[2], 0);
-          Cards[caCav] := StrToIntDef(sTmp[3], 0);
-          Cards[caJok] := StrToIntDef(sTmp[4], 0);
-          Rank := ReadInteger(sSec, 'Rank', 0);
-          USnapShotEnabled := ReadBool(sSec, 'USnapShot', False);
-          ULogEnabled := ReadBool(sSec, 'ULog', False);
-          UMessageEnabled := ReadBool(sSec, 'UMessage', False);
-          UDialogEnabled := ReadBool(sSec, 'UDialog', False);
-          for iB := 1 to MAXBUFFER do begin
-            sTmp := ReadString(sSec, 'Buffer' + IntToStr(iB), '0');
-            Buffer[iB] := StrToFloatDef(sTmp, 0.0);
-          end;
-        end;
-      end;
-      // Territories
-      for iT := 1 to MAXTERRITORIES do begin
-        arTerritory[iT].Owner := ReadInteger('Territory',
-          'Owner' + IntToStr(iT), 0);
-        arTerritory[iT].Army := ReadInteger('Territory', 'Army' + IntToStr(iT),
-          0);
-      end;
-    end;
-  finally
-    IniFile.Free;
-  end;
-
-  // prepare game
-
-  ScriptSetup; // create the script executer; will be destroyed in GameCleanup
-  PrgTemp := TstringList.Create;
-  // create input buffer for source code
-  Compiler := TPSPascalCompiler.Create;
-  // create an instance of the compiler.
-  Compiler.OnUses := ScriptOnUses; // assign the OnUses event.
-  Compiler.OnExportCheck := ScriptOnExportCheck;
-  bCompErrors := False;
-  // reset global flag for compilation errors
-  bStopASAP := False; // reset flag for required stopping
-
-  try
-    // Reset log
-    fLog.txtLog.Lines.Clear;
-    // Reset players
-    for iP := 1 to MAXPLAYERS do begin
-      with arPlayer[iP] do begin
-        if Active then begin
-          Army := 0;
-          Territ := 0;
-          FlConq := False;
-          FlMove := False;
-          if Computer then begin
-            // Load TRPs
-            if FileExists(sG_AppPath + 'players\' + PrgFile) then
-              PrgTemp.LoadFromFile(sG_AppPath + 'players\' + PrgFile)
-            else begin
-              MessageDlg
-              (sG_AppPath + 'players\' +
-                PrgFile + ': File not found.', mtError, [mbOk], 0);
-              PrgTemp.Clear;
-              bCompErrors := True;
-              continue;
-            end;
-            // Compile TRPs
-            bAssignmentFound := False;
-            bPlacementFound := False;
-            bAttackFound := False;
-            bOccupationFound := False;
-            bFortificationFound := False;
-            if CompileTRP(Compiler, PrgFile, PrgTemp.Text) then begin
-              Compiler.GetOutput(Code);
-            end
-            else begin
-              bCompErrors := True;
-            end;
-          end;
-        end;
-      end;
-    end;
-    // State of the game
-    if bCompErrors then begin
-      GameState := gsStopped;
-      Exit;
-    end;
-    // bHumanTurn always true because save allowed only during human turn
-    bHumanTurn := True;
-    // Help context
-    fMain.HelpContext := 110; // context is "play game"
-    // reset continents' owners
-    for iC := coNA to coAU do begin
-      arContinent[iC].Owner := -1;
-    end;
-    // scan territories
-    GameState := gsPlaying;
-    for iT := 1 to MAXTERRITORIES do begin
-      iP := arTerritory[iT].Owner;
-      iC := arTerritory[iT].Contin;
-      if iP > 0 then begin
-        // count territories and armies
-        inc(arPlayer[iP].Territ);
-        inc(arPlayer[iP].Army, arTerritory[iT].Army);
-        // assign continents
-        if arContinent[iC].Owner = -1 then begin
-          arContinent[iC].Owner := iP;
-          // temp assigned to first owner found
-        end
-        else if arContinent[iC].Owner <> iP then begin
-          arContinent[iC].Owner := 0; // different owners -> cont is unassigned
-        end;
-      end
-      else begin
-        arContinent[iC].Owner := 0;
-        // terr unassigned -> cont unassigned
-        GameState := gsAssigning; // terr unassigned -> game state is Assigning
-      end;
-      DisplayTerritory(iT);
-    end;
-    // Count the number of active players
-    iNPlayers := 0;
-    for iP := 1 to MAXPLAYERS do
-      if PAlive(iP) then
-        inc(iNPlayers);
-    // Phase of the game
-    if GameState = gsPlaying then
-      HumanPhase := hpPlacement;
-    // Dynamic menus
-    MenuSetup;
-    // Update the stat window
-    UpdateStats;
-    // Show turn
-    fMain.panStatus.Panels[0].Text := 'Turn ' + IntToStr(iTurnCounter);
-    fMain.panStatus.Panels[1].Text := arPlayer[iTurn].Name;
-    fMain.panTurn.Color := arPlayer[iTurn].Color;
-    fMain.panTurn.Font.Color := BestTextColor(arPlayer[iTurn].Color);
-    fMain.panTurn.Caption := arPlayer[iTurn].Name;
-  finally
-    PrgTemp.Free;
-    Compiler.Free;
-  end;
-end;
-
-// Find best contrast text color
-function BestTextColor(tBkgColor: TColor): TColor;
-var
-  iR, iG, iB: integer;
-  dDist: double;
-begin
-  iB := (tBkgColor and $FF0000) shr 16;
-  iG := (tBkgColor and $FF00) shr 8;
-  iR := tBkgColor and $FF;
-  dDist := sqrt(iB * iB + iG * iG + iR * iR); // compute "distance" from black
-  if dDist < 260.0 then
-    Result := clWhite
-  else
-    Result := clBlack;
-end;
-
-function ChangeColor(Color: TColor; Percent: shortint): TColor;
-var
-  r, g, b: byte;
-begin
-  Color := ColorToRGB(Color);
-  r := GetRValue(Color);
-  g := GetGValue(Color);
-  b := GetBValue(Color);
-  if Percent >= 0 then begin
-    r := r + muldiv(255 - r, Percent, 100); // Percent% closer to white
-    g := g + muldiv(255 - g, Percent, 100);
-    b := b + muldiv(255 - b, Percent, 100);
-  end
-  else begin
-    r := r - muldiv(r, -Percent, 100); // Percent% closer to black
-    g := g - muldiv(g, -Percent, 100);
-    b := b - muldiv(b, -Percent, 100);
-  end;
-  Result := RGB(r, g, b);
-end;
-
-// functions to set and get curront from, to and hoovered territories
-function GetFromTerritory: integer;
-begin
-  Result := FromTerrit;
-end;
-
-function GetToTerritory: integer;
-begin
-  Result := ToTerrit;
-end;
-
-function GetHooverTerritory: integer;
-begin
-  Result := HooverTerrit;
-end;
-
-procedure SetFromTerritory(iT: integer);
-var
-  iPrev: integer;
-begin
-  iPrev := FromTerrit;
-  FromTerrit := iT;
-  if iPrev > 0 then
-    DisplayTerritory(iPrev);
-  if iT > 0 then
-    DisplayTerritory(iT);
-end;
-
-procedure SetToTerritory(iT: integer);
-var
-  iPrev: integer;
-begin
-  iPrev := ToTerrit;
-  ToTerrit := iT;
-  if iPrev > 0 then
-    DisplayTerritory(iPrev);
-  if iT > 0 then
-    DisplayTerritory(iT);
-end;
-
-procedure SetHooverTerritory(iT: integer);
-var
-  iPrev: integer;
-begin
-  iPrev := HooverTerrit;
-  HooverTerrit := iT;
-  if iPrev > 0 then
-    DisplayTerritory(iPrev);
-  if iT > 0 then
-    DisplayTerritory(iT);
-end;
-
-end.
diff --git a/History.dfm b/History.dfm
deleted file mode 100644
index d50ea47..0000000
--- a/History.dfm
+++ /dev/null
@@ -1,198 +0,0 @@
-object fHistory: TfHistory
-  Left = 242
-  Top = 107
-  HelpContext = 330
-  Caption = 'History'
-  ClientHeight = 430
-  ClientWidth = 582
-  Color = clBtnFace
-  Constraints.MinHeight = 335
-  Constraints.MinWidth = 430
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
-  Font.Style = []
-  OldCreateOrder = False
-  Position = poDesigned
-  OnCreate = FormCreate
-  OnShow = FormShow
-  PixelsPerInch = 96
-  TextHeight = 13
-  object pagHistory: TPageControl
-    Left = 0
-    Top = 0
-    Width = 582
-    Height = 430
-    ActivePage = tbsHistory
-    Align = alClient
-    TabOrder = 0
-    object tbsHistory: TTabSheet
-      Caption = 'History'
-      object lstHistory: TListView
-        Left = 0
-        Top = 0
-        Width = 574
-        Height = 402
-        Align = alClient
-        Columns = <>
-        ReadOnly = True
-        RowSelect = True
-        TabOrder = 0
-        ViewStyle = vsReport
-        OnColumnClick = lstHistoryColumnClick
-        OnCompare = lstHistoryCompare
-      end
-    end
-    object tbsRanking: TTabSheet
-      Caption = 'Ranking'
-      ImageIndex = 1
-      object grdRanking: TJvStringGrid
-        Left = 0
-        Top = 0
-        Width = 574
-        Height = 402
-        Align = alClient
-        ColCount = 4
-        DefaultColWidth = 100
-        DefaultRowHeight = 17
-        DefaultDrawing = False
-        FixedCols = 0
-        FixedRows = 0
-        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
-        ScrollBars = ssVertical
-        TabOrder = 0
-        OnDrawCell = grdRankingDrawCell
-        Alignment = taCenter
-        FixedFont.Charset = DEFAULT_CHARSET
-        FixedFont.Color = clWindowText
-        FixedFont.Height = -11
-        FixedFont.Name = 'MS Sans Serif'
-        FixedFont.Style = []
-        OnCaptionClick = grdRankingCaptionClick
-      end
-    end
-    object tbsCompare: TTabSheet
-      Caption = 'Compare'
-      ImageIndex = 2
-      object Label1: TLabel
-        Left = 5
-        Top = 10
-        Width = 38
-        Height = 13
-        Caption = 'Player 1'
-      end
-      object Label2: TLabel
-        Left = 260
-        Top = 10
-        Width = 38
-        Height = 13
-        Caption = 'Player 2'
-      end
-      object Label3: TLabel
-        Left = 190
-        Top = 20
-        Width = 32
-        Height = 13
-        Caption = 'Versus'
-      end
-      object Bevel1: TBevel
-        Left = 5
-        Top = 65
-        Width = 146
-        Height = 6
-        Shape = bsBottomLine
-      end
-      object Bevel2: TBevel
-        Left = 260
-        Top = 65
-        Width = 146
-        Height = 6
-        Shape = bsBottomLine
-      end
-      object cboPlayer1: TComboBox
-        Left = 5
-        Top = 25
-        Width = 145
-        Height = 21
-        Style = csDropDownList
-        Sorted = True
-        TabOrder = 0
-      end
-      object cboPlayer2: TComboBox
-        Left = 260
-        Top = 25
-        Width = 145
-        Height = 21
-        Style = csDropDownList
-        Sorted = True
-        TabOrder = 1
-      end
-      object cmdAnalyze: TBitBtn
-        Left = 170
-        Top = 55
-        Width = 75
-        Height = 25
-        Caption = 'Analyze'
-        DoubleBuffered = True
-        ParentDoubleBuffered = False
-        TabOrder = 2
-        OnClick = cmdAnalyzeClick
-      end
-      object panAnalyze: TPanel
-        Left = 0
-        Top = 85
-        Width = 411
-        Height = 196
-        BevelOuter = bvNone
-        TabOrder = 3
-        object lblAnalyze: TLabel
-          Left = 45
-          Top = 25
-          Width = 321
-          Height = 13
-          Alignment = taCenter
-          AutoSize = False
-          Caption = 'Results of direct fights between P1 and P2'
-        end
-        object lblPlayer1: TLabel
-          Left = 45
-          Top = 75
-          Width = 321
-          Height = 13
-          AutoSize = False
-          Caption = 'P1 won X times (x%)'
-        end
-        object lblPlayer2: TLabel
-          Left = 45
-          Top = 95
-          Width = 321
-          Height = 13
-          Alignment = taRightJustify
-          AutoSize = False
-          Caption = 'P2 won X times (x%)'
-        end
-        object prbPlayer2: TProgressBar
-          Left = 370
-          Top = 10
-          Width = 36
-          Height = 176
-          Orientation = pbVertical
-          Position = 50
-          Smooth = True
-          TabOrder = 0
-        end
-        object prbPlayer1: TProgressBar
-          Left = 5
-          Top = 10
-          Width = 36
-          Height = 176
-          Orientation = pbVertical
-          Position = 50
-          Smooth = True
-          TabOrder = 1
-        end
-      end
-    end
-  end
-end
diff --git a/History.pas b/History.pas
deleted file mode 100644
index 01946e2..0000000
--- a/History.pas
+++ /dev/null
@@ -1,386 +0,0 @@
-unit History;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, Grids, ComCtrls, JvExGrids, JvStringGrid, Contnrs, ExtCtrls,
-  StdCtrls, Buttons;
-
-type
-  TPStat = class(TObject)
-  public
-    player: string; // player's name
-    games, // number of games played
-    won, // number of games won
-    points: integer; // points
-  end;
-
-type
-  TfHistory = class(TForm)
-    pagHistory: TPageControl;
-    tbsHistory: TTabSheet;
-    lstHistory: TListView;
-    tbsRanking: TTabSheet;
-    grdRanking: TJvStringGrid;
-    tbsCompare: TTabSheet;
-    cboPlayer1: TComboBox;
-    Label1: TLabel;
-    Label2: TLabel;
-    cboPlayer2: TComboBox;
-    Label3: TLabel;
-    cmdAnalyze: TBitBtn;
-    Bevel1: TBevel;
-    Bevel2: TBevel;
-    panAnalyze: TPanel;
-    prbPlayer2: TProgressBar;
-    prbPlayer1: TProgressBar;
-    lblAnalyze: TLabel;
-    lblPlayer1: TLabel;
-    lblPlayer2: TLabel;
-    procedure FormShow(Sender: TObject);
-    procedure FormCreate(Sender: TObject);
-    procedure grdRankingCaptionClick(Sender: TJvStringGrid;
-      AColumn, ARow: integer);
-    procedure grdRankingDrawCell(Sender: TObject; ACol, ARow: integer;
-      Rect: TRect; State: TGridDrawState);
-    procedure cmdAnalyzeClick(Sender: TObject);
-    procedure lstHistoryColumnClick(Sender: TObject; Column: TListColumn);
-    procedure lstHistoryCompare(Sender: TObject; Item1, Item2: TListItem;
-      Data: integer; var Compare: integer);
-  private
-    uHRanking: TObjectList;
-    iColumnClicked, iSortCol, iTotGames: integer;
-    bAscending: boolean;
-    procedure LoadHistoryFile;
-    function SearchPlayer(const sKey: string; uList: TObjectList): integer;
-  public
-    { Public declarations }
-  end;
-
-var
-  fHistory: TfHistory;
-
-implementation
-
-{$R *.dfm}
-
-uses Globals, StdPas;
-
-procedure TfHistory.FormCreate(Sender: TObject);
-var
-  i: integer;
-begin
-  with lstHistory.Columns.Add do begin
-    Caption := 'Date';
-    Width := 65;
-  end;
-  with lstHistory.Columns.Add do begin
-    Caption := 'Players';
-    Width := 50;
-  end;
-  with lstHistory.Columns.Add do begin
-    Caption := 'Winner';
-    Width := 80;
-  end;
-  with lstHistory.Columns.Add do begin
-    Caption := '2nd';
-    Width := 80;
-  end;
-  with lstHistory.Columns.Add do begin
-    Caption := '3rd';
-    Width := 80;
-  end;
-  for i := 4 to 10 do begin
-    with lstHistory.Columns.Add do begin
-      Caption := IntToStr(i) + 'th';
-      Width := 80;
-    end;
-  end;
-  with grdRanking do begin
-    RowCount := 1;
-    ColCount := 6;
-    Cells[0, 0] := 'Player';
-    Cells[1, 0] := 'Games';
-    Cells[2, 0] := 'Won';
-    Cells[3, 0] := '% Won';
-    Cells[4, 0] := 'Points';
-    Cells[5, 0] := 'P.ts/Game';
-    ColWidths[0] := 100;
-    ColWidths[1] := 70;
-    ColWidths[2] := 70;
-    ColWidths[3] := 70;
-    ColWidths[4] := 70;
-    ColWidths[5] := 70;
-  end;
-  iSortCol := 0;
-end;
-
-procedure TfHistory.FormShow(Sender: TObject);
-begin
-  Screen.Cursor := crHourGlass;
-  iColumnClicked := -1;
-  LoadHistoryFile;
-  bAscending := true;
-  panAnalyze.Visible := false;
-  Screen.Cursor := crDefault;
-end;
-
-procedure TfHistory.LoadHistoryFile;
-var
-  fHistory: textfile;
-  iMaxRank, iP, iL: integer;
-  sRec, sTmp: string;
-  dDate: TDate;
-begin
-  iTotGames := 0;
-  // open history file
-  if not FileExists(sG_AppPath + 'history.txt') then
-    exit;
-  AssignFile(fHistory, sG_AppPath + 'history.txt');
-  Reset(fHistory);
-  // prepare list
-  lstHistory.Clear;
-  // create object for statistics
-  uHRanking := TObjectList.Create;
-  // load list
-  try
-    // read history file
-    while not Eof(fHistory) do begin
-      Readln(fHistory, sRec);
-      inc(iTotGames);
-      // date
-      sTmp := SplitStr(sRec, ',');
-      dDate := EncodeDate(StrToInt(copy(sTmp, 1, 4)),
-        StrToInt(copy(sTmp, 5, 2)), StrToInt(copy(sTmp, 7, 2)));
-      // max rank
-      sTmp := SplitStr(sRec, ',');
-      iMaxRank := StrToInt(sTmp);
-      // list item
-      with lstHistory.Items.Add do begin
-        Caption := FormatDateTime('yyyy-mm-dd', dDate);
-        SubItems.Add(IntToStr(iMaxRank));
-        for iP := 1 to MAXPLAYERS do begin
-          if iP <= iMaxRank then begin
-            // add player to list item
-            sTmp := lowercase(SplitStr(sRec, ','));
-            SubItems.Add(sTmp);
-            // search player in ranking list
-            iL := SearchPlayer(sTmp, uHRanking);
-            if iL < 0 then begin
-              // not found, add new player
-              iL := uHRanking.Count;
-              uHRanking.Add(TPStat.Create);
-              with uHRanking[iL] as TPStat do begin
-                player := sTmp;
-                games := 1;
-                if iP = 1 then
-                  won := 1
-                else
-                  won := 0;
-                points := iMaxRank - iP + 1;
-              end;
-            end
-            else begin
-              // found, increment counters
-              with uHRanking[iL] as TPStat do begin
-                inc(games);
-                if iP = 1 then
-                  inc(won);
-                points := points + iMaxRank - iP + 1;
-              end;
-            end;
-          end else begin
-            SubItems.Add('');
-          end;
-        end;
-      end;
-    end;
-    // load ranking grid
-    with grdRanking do begin
-      RowCount := uHRanking.Count + 1;
-      for iL := 0 to uHRanking.Count - 1 do begin
-        with uHRanking[iL] as TPStat do begin
-          Cells[0, iL + 1] := player;
-          Cells[1, iL + 1] := FormatFloat('#,##0', games);
-          Cells[2, iL + 1] := FormatFloat('#,##0', won);
-          Cells[4, iL + 1] := FormatFloat('#,##0', points);
-          if games > 0 then begin
-            Cells[3, iL + 1] := FormatFloat('0.0"%"', (100.0 * won) / games);
-            Cells[5, iL + 1] := FormatFloat('0.0', points / games);
-          end
-          else begin
-            Cells[3, iL + 1] := '-';
-            Cells[5, iL + 1] := '-';
-          end;
-        end;
-      end;
-      if RowCount > 1 then
-        FixedRows := 1;
-      SortGrid(0, true);
-      iSortCol := 0;
-    end;
-    // load compare combos
-    cboPlayer1.Clear;
-    cboPlayer2.Clear;
-    for iL := 0 to uHRanking.Count - 1 do begin
-      cboPlayer1.Items.Add((uHRanking[iL] as TPStat).player);
-      cboPlayer2.Items.Add((uHRanking[iL] as TPStat).player);
-    end;
-  finally
-    CloseFile(fHistory);
-    uHRanking.Free;
-  end;
-end;
-
-procedure TfHistory.lstHistoryColumnClick(Sender: TObject; Column: TListColumn);
-begin
-  if Column.Index = iColumnClicked then begin
-    bAscending := not bAscending
-  end
-  else begin
-    bAscending := true;
-    iColumnClicked := Column.Index;
-  end;
-  Screen.Cursor := crHourGlass;
-  try (Sender as TListView)
-    .AlphaSort;
-  finally
-    Screen.Cursor := crDefault;
-  end;
-end;
-
-procedure TfHistory.lstHistoryCompare(Sender: TObject; Item1, Item2: TListItem;
-  Data: integer; var Compare: integer);
-begin
-  case iColumnClicked of
-    0:
-      Compare := CompareStr(Item1.Caption, Item2.Caption);
-  else
-    Compare := CompareStr(Item1.SubItems[iColumnClicked - 1],
-      Item2.SubItems[iColumnClicked - 1]);
-  end;
-  if not bAscending then
-    Compare := -Compare;
-end;
-
-function TfHistory.SearchPlayer(const sKey: string;
-  uList: TObjectList): integer;
-var
-  i: integer;
-begin
-  for i := 0 to uList.Count - 1 do begin
-    if TPStat(uList[i]).player = sKey then begin
-      result := i;
-      exit;
-    end;
-  end;
-  result := -1;
-end;
-
-procedure TfHistory.grdRankingCaptionClick(Sender: TJvStringGrid;
-  AColumn, ARow: integer);
-begin
-  Screen.Cursor := crHourGlass;
-  with (Sender as TJvStringGrid) do begin
-    iSortCol := AColumn;
-    if AColumn = 0 then
-      SortGrid(0, true)
-    else
-      SortGrid(AColumn, false, false, stNumeric, false);
-    if RowCount > 0 then
-      Row := 1
-    else
-      Row := 0;
-  end;
-  Screen.Cursor := crDefault;
-end;
-
-procedure TfHistory.grdRankingDrawCell(Sender: TObject; ACol, ARow: integer;
-  Rect: TRect; State: TGridDrawState);
-begin
-  with grdRanking.Canvas do begin
-    if ARow = 0 then begin
-      Brush.color := clBtnFace;
-      Font.color := clBlack;
-      Font.Style := [fsBold];
-      FillRect(Rect);
-    end
-    else begin
-      if ACol = iSortCol then
-        Brush.color := clCream
-      else
-        Brush.color := clWhite;
-      Font.color := clBlack;
-      Font.Style := [];
-      FillRect(Rect);
-    end;
-    if ACol = 0 then begin
-      TextOut(Rect.Left + 1, Rect.Top + 1, grdRanking.Cells[ACol, ARow]);
-    end
-    else begin
-      TextOut(Rect.Right - TextWidth(grdRanking.Cells[ACol, ARow]) - 3,
-        Rect.Top + 1, grdRanking.Cells[ACol, ARow]);
-    end;
-  end;
-end;
-
-procedure TfHistory.cmdAnalyzeClick(Sender: TObject);
-var
-  i, j, iR1, iR2, iT1, iT2, iTT: integer;
-  sP1, sP2: string;
-begin
-  // check for legal case
-  if (cboPlayer1.ItemIndex < 0) or (cboPlayer2.ItemIndex < 0) or
-  (cboPlayer1.ItemIndex = cboPlayer2.ItemIndex) then
-    exit;
-  // analyze
-  Screen.Cursor := crHourGlass;
-  sP1 := cboPlayer1.Text;
-  sP2 := cboPlayer2.Text;
-  iT1 := 0;
-  iT2 := 0;
-  // scan history
-  for i := 0 to lstHistory.Items.Count - 1 do begin
-    iR1 := 0;
-    iR2 := 0;
-    // scan game
-    with lstHistory.Items[i] do begin
-      for j := 1 to SubItems.Count - 1 do begin
-        if SubItems[j] = sP1 then
-          iR1 := j
-        else if SubItems[j] = sP2 then
-          iR2 := j;
-      end;
-    end;
-    if (iR1 > 0) and (iR2 > 0) then begin
-      if iR1 < iR2 then
-        inc(iT1)
-      else
-        inc(iT2);
-    end;
-  end;
-  // show results
-  iTT := iT1 + iT2;
-  if iTT > 0 then begin
-    prbPlayer1.Position := trunc(100.0 * iT1 / iTT + 0.5);
-    prbPlayer2.Position := trunc(100.0 * iT2 / iTT + 0.5);
-    lblAnalyze.Caption := 'Results of ' + IntToStr(iTT)
-    + ' games including ' + sP1 + ' and ' + sP2;
-    lblPlayer1.Caption := sP1 + ' was better ' + IntToStr(iT1)
-    + ' times (' + IntToStr(prbPlayer1.Position) + '%)';
-    lblPlayer2.Caption := sP2 + ' was better ' + IntToStr(iT2)
-    + ' times (' + IntToStr(prbPlayer2.Position) + '%)';
-  end
-  else begin
-    prbPlayer1.Position := 0;
-    prbPlayer2.Position := 0;
-    lblAnalyze.Caption := 'No games including both ' + sP1 + ' and ' + sP2;
-    lblPlayer1.Caption := '';
-    lblPlayer2.Caption := '';
-  end;
-  panAnalyze.Visible := true;
-  Screen.Cursor := crDefault;
-end;
-
-end.
diff --git a/Human.pas b/Human.pas
deleted file mode 100644
index b41fc40..0000000
--- a/Human.pas
+++ /dev/null
@@ -1,87 +0,0 @@
-unit Human;
-
-interface
-
-// Mostra istruzioni per giocatore umano
-procedure MostraIstruzioni;
-
-// Attacco umano
-procedure UomoAttacca(iTf, iTt: integer);
-
-// Trasferimento umano
-procedure UomoSposta(iTf, iTt: integer; bMove: boolean);
-
-implementation
-
-uses SysUtils, Controls,
-     Globals, Main, Attack, Move;
-
-// Mostra istruzioni per giocatore umano
-procedure MostraIstruzioni;
-var
-  sMsg: string;
-begin
-  sMsg := '';
-  if GameState=gsAssigning then begin
-    sMsg := 'Please claim a territory.';
-  end else if (GameState=gsDistributing) then begin
-    if arPlayer[iTurn].NewArmy>1 then begin
-      sMsg := 'You have '+IntToStr(arPlayer[iTurn].NewArmy)+
-              ' armies left to place. Please place an army.';
-    end else begin
-      sMsg := 'You have 1 army left to place. Please place it.';
-    end;
-  end else if ((GameState=gsPlaying) and (HumanPhase=hpPlacement)) then begin
-    if arPlayer[iTurn].NewArmy>1 then begin
-      sMsg := 'You have '+IntToStr(arPlayer[iTurn].NewArmy)+
-              ' armies left to place  (click=1, +shift=5, +ctrl+shift=10, +alt+ctrl+shift=25)';
-    end else begin
-      sMsg := 'You have 1 army left to place. ';
-    end;
-  end else begin
-    if GetFromTerritory=0 then begin
-      sMsg := 'Please choose a territory to attack or move from (click)'+
-              ' or pass (spacebar)';
-    end else begin
-      sMsg := 'From '+arTerritory[GetFromTerritory].Name+
-                '. Please choose a territory to attack or move to.'
-    end;
-  end;
-  fMain.panStatus.Panels[2].Text := sMsg;
-end;
-
-// Attacco umano
-procedure UomoAttacca(iTf, iTt: integer);
-begin
-  fAttack.iTf := iTf;
-  fAttack.iTt := iTt;
-  // Gestione attacco
-  if fAttack.ShowModal=mrOK then begin
-    // test eliminati tutti gli avversari
-    if bEliminatedPlayer and (iNPlayers<2) then exit;
-    // territorio conquistato, spostamento conseguente
-    if arTerritory[iTf].Army>1 then
-      UomoSposta(iTf, iTt, false);
-    // test scambio carte catturate  
-    if bEliminatedPlayer then begin
-      if RImmediateTrade then AssignNewArmies(true);
-      if arPlayer[iTurn].NewArmy>0 then HumanPhase := hpPlacement;
-    end;
-  end;
-end;
-
-// Trasferimento umano
-procedure UomoSposta(iTf, iTt: integer; bMove: boolean);
-begin
-  fMove.iTf := iTf;
-  fMove.iTt := iTt;
-  if (fMove.ShowModal=mrOK) and bMove then begin
-    arPlayer[iTurn].FlMove := true;
-  end else begin
-    SetFromTerritory(0);
-    SetToTerritory(0);
-    MostraIstruzioni;
-  end;
-end;
-
-end.
diff --git a/License.md b/License.md
deleted file mode 100644
index ef7e7ef..0000000
--- a/License.md
+++ /dev/null
@@ -1,674 +0,0 @@
-GNU GENERAL PUBLIC LICENSE
-                       Version 3, 29 June 2007
-
- Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
-                            Preamble
-
-  The GNU General Public License is a free, copyleft license for
-software and other kinds of works.
-
-  The licenses for most software and other practical works are designed
-to take away your freedom to share and change the works.  By contrast,
-the GNU General Public License is intended to guarantee your freedom to
-share and change all versions of a program--to make sure it remains free
-software for all its users.  We, the Free Software Foundation, use the
-GNU General Public License for most of our software; it applies also to
-any other work released this way by its authors.  You can apply it to
-your programs, too.
-
-  When we speak of free software, we are referring to freedom, not
-price.  Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-them if you wish), that you receive source code or can get it if you
-want it, that you can change the software or use pieces of it in new
-free programs, and that you know you can do these things.
-
-  To protect your rights, we need to prevent others from denying you
-these rights or asking you to surrender the rights.  Therefore, you have
-certain responsibilities if you distribute copies of the software, or if
-you modify it: responsibilities to respect the freedom of others.
-
-  For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must pass on to the recipients the same
-freedoms that you received.  You must make sure that they, too, receive
-or can get the source code.  And you must show them these terms so they
-know their rights.
-
-  Developers that use the GNU GPL protect your rights with two steps:
-(1) assert copyright on the software, and (2) offer you this License
-giving you legal permission to copy, distribute and/or modify it.
-
-  For the developers' and authors' protection, the GPL clearly explains
-that there is no warranty for this free software.  For both users' and
-authors' sake, the GPL requires that modified versions be marked as
-changed, so that their problems will not be attributed erroneously to
-authors of previous versions.
-
-  Some devices are designed to deny users access to install or run
-modified versions of the software inside them, although the manufacturer
-can do so.  This is fundamentally incompatible with the aim of
-protecting users' freedom to change the software.  The systematic
-pattern of such abuse occurs in the area of products for individuals to
-use, which is precisely where it is most unacceptable.  Therefore, we
-have designed this version of the GPL to prohibit the practice for those
-products.  If such problems arise substantially in other domains, we
-stand ready to extend this provision to those domains in future versions
-of the GPL, as needed to protect the freedom of users.
-
-  Finally, every program is threatened constantly by software patents.
-States should not allow patents to restrict development and use of
-software on general-purpose computers, but in those that do, we wish to
-avoid the special danger that patents applied to a free program could
-make it effectively proprietary.  To prevent this, the GPL assures that
-patents cannot be used to render the program non-free.
-
-  The precise terms and conditions for copying, distribution and
-modification follow.
-
-                       TERMS AND CONDITIONS
-
-  0. Definitions.
-
-  "This License" refers to version 3 of the GNU General Public License.
-
-  "Copyright" also means copyright-like laws that apply to other kinds of
-works, such as semiconductor masks.
-
-  "The Program" refers to any copyrightable work licensed under this
-License.  Each licensee is addressed as "you".  "Licensees" and
-"recipients" may be individuals or organizations.
-
-  To "modify" a work means to copy from or adapt all or part of the work
-in a fashion requiring copyright permission, other than the making of an
-exact copy.  The resulting work is called a "modified version" of the
-earlier work or a work "based on" the earlier work.
-
-  A "covered work" means either the unmodified Program or a work based
-on the Program.
-
-  To "propagate" a work means to do anything with it that, without
-permission, would make you directly or secondarily liable for
-infringement under applicable copyright law, except executing it on a
-computer or modifying a private copy.  Propagation includes copying,
-distribution (with or without modification), making available to the
-public, and in some countries other activities as well.
-
-  To "convey" a work means any kind of propagation that enables other
-parties to make or receive copies.  Mere interaction with a user through
-a computer network, with no transfer of a copy, is not conveying.
-
-  An interactive user interface displays "Appropriate Legal Notices"
-to the extent that it includes a convenient and prominently visible
-feature that (1) displays an appropriate copyright notice, and (2)
-tells the user that there is no warranty for the work (except to the
-extent that warranties are provided), that licensees may convey the
-work under this License, and how to view a copy of this License.  If
-the interface presents a list of user commands or options, such as a
-menu, a prominent item in the list meets this criterion.
-
-  1. Source Code.
-
-  The "source code" for a work means the preferred form of the work
-for making modifications to it.  "Object code" means any non-source
-form of a work.
-
-  A "Standard Interface" means an interface that either is an official
-standard defined by a recognized standards body, or, in the case of
-interfaces specified for a particular programming language, one that
-is widely used among developers working in that language.
-
-  The "System Libraries" of an executable work include anything, other
-than the work as a whole, that (a) is included in the normal form of
-packaging a Major Component, but which is not part of that Major
-Component, and (b) serves only to enable use of the work with that
-Major Component, or to implement a Standard Interface for which an
-implementation is available to the public in source code form.  A
-"Major Component", in this context, means a major essential component
-(kernel, window system, and so on) of the specific operating system
-(if any) on which the executable work runs, or a compiler used to
-produce the work, or an object code interpreter used to run it.
-
-  The "Corresponding Source" for a work in object code form means all
-the source code needed to generate, install, and (for an executable
-work) run the object code and to modify the work, including scripts to
-control those activities.  However, it does not include the work's
-System Libraries, or general-purpose tools or generally available free
-programs which are used unmodified in performing those activities but
-which are not part of the work.  For example, Corresponding Source
-includes interface definition files associated with source files for
-the work, and the source code for shared libraries and dynamically
-linked subprograms that the work is specifically designed to require,
-such as by intimate data communication or control flow between those
-subprograms and other parts of the work.
-
-  The Corresponding Source need not include anything that users
-can regenerate automatically from other parts of the Corresponding
-Source.
-
-  The Corresponding Source for a work in source code form is that
-same work.
-
-  2. Basic Permissions.
-
-  All rights granted under this License are granted for the term of
-copyright on the Program, and are irrevocable provided the stated
-conditions are met.  This License explicitly affirms your unlimited
-permission to run the unmodified Program.  The output from running a
-covered work is covered by this License only if the output, given its
-content, constitutes a covered work.  This License acknowledges your
-rights of fair use or other equivalent, as provided by copyright law.
-
-  You may make, run and propagate covered works that you do not
-convey, without conditions so long as your license otherwise remains
-in force.  You may convey covered works to others for the sole purpose
-of having them make modifications exclusively for you, or provide you
-with facilities for running those works, provided that you comply with
-the terms of this License in conveying all material for which you do
-not control copyright.  Those thus making or running the covered works
-for you must do so exclusively on your behalf, under your direction
-and control, on terms that prohibit them from making any copies of
-your copyrighted material outside their relationship with you.
-
-  Conveying under any other circumstances is permitted solely under
-the conditions stated below.  Sublicensing is not allowed; section 10
-makes it unnecessary.
-
-  3. Protecting Users' Legal Rights From Anti-Circumvention Law.
-
-  No covered work shall be deemed part of an effective technological
-measure under any applicable law fulfilling obligations under article
-11 of the WIPO copyright treaty adopted on 20 December 1996, or
-similar laws prohibiting or restricting circumvention of such
-measures.
-
-  When you convey a covered work, you waive any legal power to forbid
-circumvention of technological measures to the extent such circumvention
-is effected by exercising rights under this License with respect to
-the covered work, and you disclaim any intention to limit operation or
-modification of the work as a means of enforcing, against the work's
-users, your or third parties' legal rights to forbid circumvention of
-technological measures.
-
-  4. Conveying Verbatim Copies.
-
-  You may convey verbatim copies of the Program's source code as you
-receive it, in any medium, provided that you conspicuously and
-appropriately publish on each copy an appropriate copyright notice;
-keep intact all notices stating that this License and any
-non-permissive terms added in accord with section 7 apply to the code;
-keep intact all notices of the absence of any warranty; and give all
-recipients a copy of this License along with the Program.
-
-  You may charge any price or no price for each copy that you convey,
-and you may offer support or warranty protection for a fee.
-
-  5. Conveying Modified Source Versions.
-
-  You may convey a work based on the Program, or the modifications to
-produce it from the Program, in the form of source code under the
-terms of section 4, provided that you also meet all of these conditions:
-
-    a) The work must carry prominent notices stating that you modified
-    it, and giving a relevant date.
-
-    b) The work must carry prominent notices stating that it is
-    released under this License and any conditions added under section
-    7.  This requirement modifies the requirement in section 4 to
-    "keep intact all notices".
-
-    c) You must license the entire work, as a whole, under this
-    License to anyone who comes into possession of a copy.  This
-    License will therefore apply, along with any applicable section 7
-    additional terms, to the whole of the work, and all its parts,
-    regardless of how they are packaged.  This License gives no
-    permission to license the work in any other way, but it does not
-    invalidate such permission if you have separately received it.
-
-    d) If the work has interactive user interfaces, each must display
-    Appropriate Legal Notices; however, if the Program has interactive
-    interfaces that do not display Appropriate Legal Notices, your
-    work need not make them do so.
-
-  A compilation of a covered work with other separate and independent
-works, which are not by their nature extensions of the covered work,
-and which are not combined with it such as to form a larger program,
-in or on a volume of a storage or distribution medium, is called an
-"aggregate" if the compilation and its resulting copyright are not
-used to limit the access or legal rights of the compilation's users
-beyond what the individual works permit.  Inclusion of a covered work
-in an aggregate does not cause this License to apply to the other
-parts of the aggregate.
-
-  6. Conveying Non-Source Forms.
-
-  You may convey a covered work in object code form under the terms
-of sections 4 and 5, provided that you also convey the
-machine-readable Corresponding Source under the terms of this License,
-in one of these ways:
-
-    a) Convey the object code in, or embodied in, a physical product
-    (including a physical distribution medium), accompanied by the
-    Corresponding Source fixed on a durable physical medium
-    customarily used for software interchange.
-
-    b) Convey the object code in, or embodied in, a physical product
-    (including a physical distribution medium), accompanied by a
-    written offer, valid for at least three years and valid for as
-    long as you offer spare parts or customer support for that product
-    model, to give anyone who possesses the object code either (1) a
-    copy of the Corresponding Source for all the software in the
-    product that is covered by this License, on a durable physical
-    medium customarily used for software interchange, for a price no
-    more than your reasonable cost of physically performing this
-    conveying of source, or (2) access to copy the
-    Corresponding Source from a network server at no charge.
-
-    c) Convey individual copies of the object code with a copy of the
-    written offer to provide the Corresponding Source.  This
-    alternative is allowed only occasionally and noncommercially, and
-    only if you received the object code with such an offer, in accord
-    with subsection 6b.
-
-    d) Convey the object code by offering access from a designated
-    place (gratis or for a charge), and offer equivalent access to the
-    Corresponding Source in the same way through the same place at no
-    further charge.  You need not require recipients to copy the
-    Corresponding Source along with the object code.  If the place to
-    copy the object code is a network server, the Corresponding Source
-    may be on a different server (operated by you or a third party)
-    that supports equivalent copying facilities, provided you maintain
-    clear directions next to the object code saying where to find the
-    Corresponding Source.  Regardless of what server hosts the
-    Corresponding Source, you remain obligated to ensure that it is
-    available for as long as needed to satisfy these requirements.
-
-    e) Convey the object code using peer-to-peer transmission, provided
-    you inform other peers where the object code and Corresponding
-    Source of the work are being offered to the general public at no
-    charge under subsection 6d.
-
-  A separable portion of the object code, whose source code is excluded
-from the Corresponding Source as a System Library, need not be
-included in conveying the object code work.
-
-  A "User Product" is either (1) a "consumer product", which means any
-tangible personal property which is normally used for personal, family,
-or household purposes, or (2) anything designed or sold for incorporation
-into a dwelling.  In determining whether a product is a consumer product,
-doubtful cases shall be resolved in favor of coverage.  For a particular
-product received by a particular user, "normally used" refers to a
-typical or common use of that class of product, regardless of the status
-of the particular user or of the way in which the particular user
-actually uses, or expects or is expected to use, the product.  A product
-is a consumer product regardless of whether the product has substantial
-commercial, industrial or non-consumer uses, unless such uses represent
-the only significant mode of use of the product.
-
-  "Installation Information" for a User Product means any methods,
-procedures, authorization keys, or other information required to install
-and execute modified versions of a covered work in that User Product from
-a modified version of its Corresponding Source.  The information must
-suffice to ensure that the continued functioning of the modified object
-code is in no case prevented or interfered with solely because
-modification has been made.
-
-  If you convey an object code work under this section in, or with, or
-specifically for use in, a User Product, and the conveying occurs as
-part of a transaction in which the right of possession and use of the
-User Product is transferred to the recipient in perpetuity or for a
-fixed term (regardless of how the transaction is characterized), the
-Corresponding Source conveyed under this section must be accompanied
-by the Installation Information.  But this requirement does not apply
-if neither you nor any third party retains the ability to install
-modified object code on the User Product (for example, the work has
-been installed in ROM).
-
-  The requirement to provide Installation Information does not include a
-requirement to continue to provide support service, warranty, or updates
-for a work that has been modified or installed by the recipient, or for
-the User Product in which it has been modified or installed.  Access to a
-network may be denied when the modification itself materially and
-adversely affects the operation of the network or violates the rules and
-protocols for communication across the network.
-
-  Corresponding Source conveyed, and Installation Information provided,
-in accord with this section must be in a format that is publicly
-documented (and with an implementation available to the public in
-source code form), and must require no special password or key for
-unpacking, reading or copying.
-
-  7. Additional Terms.
-
-  "Additional permissions" are terms that supplement the terms of this
-License by making exceptions from one or more of its conditions.
-Additional permissions that are applicable to the entire Program shall
-be treated as though they were included in this License, to the extent
-that they are valid under applicable law.  If additional permissions
-apply only to part of the Program, that part may be used separately
-under those permissions, but the entire Program remains governed by
-this License without regard to the additional permissions.
-
-  When you convey a copy of a covered work, you may at your option
-remove any additional permissions from that copy, or from any part of
-it.  (Additional permissions may be written to require their own
-removal in certain cases when you modify the work.)  You may place
-additional permissions on material, added by you to a covered work,
-for which you have or can give appropriate copyright permission.
-
-  Notwithstanding any other provision of this License, for material you
-add to a covered work, you may (if authorized by the copyright holders of
-that material) supplement the terms of this License with terms:
-
-    a) Disclaiming warranty or limiting liability differently from the
-    terms of sections 15 and 16 of this License; or
-
-    b) Requiring preservation of specified reasonable legal notices or
-    author attributions in that material or in the Appropriate Legal
-    Notices displayed by works containing it; or
-
-    c) Prohibiting misrepresentation of the origin of that material, or
-    requiring that modified versions of such material be marked in
-    reasonable ways as different from the original version; or
-
-    d) Limiting the use for publicity purposes of names of licensors or
-    authors of the material; or
-
-    e) Declining to grant rights under trademark law for use of some
-    trade names, trademarks, or service marks; or
-
-    f) Requiring indemnification of licensors and authors of that
-    material by anyone who conveys the material (or modified versions of
-    it) with contractual assumptions of liability to the recipient, for
-    any liability that these contractual assumptions directly impose on
-    those licensors and authors.
-
-  All other non-permissive additional terms are considered "further
-restrictions" within the meaning of section 10.  If the Program as you
-received it, or any part of it, contains a notice stating that it is
-governed by this License along with a term that is a further
-restriction, you may remove that term.  If a license document contains
-a further restriction but permits relicensing or conveying under this
-License, you may add to a covered work material governed by the terms
-of that license document, provided that the further restriction does
-not survive such relicensing or conveying.
-
-  If you add terms to a covered work in accord with this section, you
-must place, in the relevant source files, a statement of the
-additional terms that apply to those files, or a notice indicating
-where to find the applicable terms.
-
-  Additional terms, permissive or non-permissive, may be stated in the
-form of a separately written license, or stated as exceptions;
-the above requirements apply either way.
-
-  8. Termination.
-
-  You may not propagate or modify a covered work except as expressly
-provided under this License.  Any attempt otherwise to propagate or
-modify it is void, and will automatically terminate your rights under
-this License (including any patent licenses granted under the third
-paragraph of section 11).
-
-  However, if you cease all violation of this License, then your
-license from a particular copyright holder is reinstated (a)
-provisionally, unless and until the copyright holder explicitly and
-finally terminates your license, and (b) permanently, if the copyright
-holder fails to notify you of the violation by some reasonable means
-prior to 60 days after the cessation.
-
-  Moreover, your license from a particular copyright holder is
-reinstated permanently if the copyright holder notifies you of the
-violation by some reasonable means, this is the first time you have
-received notice of violation of this License (for any work) from that
-copyright holder, and you cure the violation prior to 30 days after
-your receipt of the notice.
-
-  Termination of your rights under this section does not terminate the
-licenses of parties who have received copies or rights from you under
-this License.  If your rights have been terminated and not permanently
-reinstated, you do not qualify to receive new licenses for the same
-material under section 10.
-
-  9. Acceptance Not Required for Having Copies.
-
-  You are not required to accept this License in order to receive or
-run a copy of the Program.  Ancillary propagation of a covered work
-occurring solely as a consequence of using peer-to-peer transmission
-to receive a copy likewise does not require acceptance.  However,
-nothing other than this License grants you permission to propagate or
-modify any covered work.  These actions infringe copyright if you do
-not accept this License.  Therefore, by modifying or propagating a
-covered work, you indicate your acceptance of this License to do so.
-
-  10. Automatic Licensing of Downstream Recipients.
-
-  Each time you convey a covered work, the recipient automatically
-receives a license from the original licensors, to run, modify and
-propagate that work, subject to this License.  You are not responsible
-for enforcing compliance by third parties with this License.
-
-  An "entity transaction" is a transaction transferring control of an
-organization, or substantially all assets of one, or subdividing an
-organization, or merging organizations.  If propagation of a covered
-work results from an entity transaction, each party to that
-transaction who receives a copy of the work also receives whatever
-licenses to the work the party's predecessor in interest had or could
-give under the previous paragraph, plus a right to possession of the
-Corresponding Source of the work from the predecessor in interest, if
-the predecessor has it or can get it with reasonable efforts.
-
-  You may not impose any further restrictions on the exercise of the
-rights granted or affirmed under this License.  For example, you may
-not impose a license fee, royalty, or other charge for exercise of
-rights granted under this License, and you may not initiate litigation
-(including a cross-claim or counterclaim in a lawsuit) alleging that
-any patent claim is infringed by making, using, selling, offering for
-sale, or importing the Program or any portion of it.
-
-  11. Patents.
-
-  A "contributor" is a copyright holder who authorizes use under this
-License of the Program or a work on which the Program is based.  The
-work thus licensed is called the contributor's "contributor version".
-
-  A contributor's "essential patent claims" are all patent claims
-owned or controlled by the contributor, whether already acquired or
-hereafter acquired, that would be infringed by some manner, permitted
-by this License, of making, using, or selling its contributor version,
-but do not include claims that would be infringed only as a
-consequence of further modification of the contributor version.  For
-purposes of this definition, "control" includes the right to grant
-patent sublicenses in a manner consistent with the requirements of
-this License.
-
-  Each contributor grants you a non-exclusive, worldwide, royalty-free
-patent license under the contributor's essential patent claims, to
-make, use, sell, offer for sale, import and otherwise run, modify and
-propagate the contents of its contributor version.
-
-  In the following three paragraphs, a "patent license" is any express
-agreement or commitment, however denominated, not to enforce a patent
-(such as an express permission to practice a patent or covenant not to
-sue for patent infringement).  To "grant" such a patent license to a
-party means to make such an agreement or commitment not to enforce a
-patent against the party.
-
-  If you convey a covered work, knowingly relying on a patent license,
-and the Corresponding Source of the work is not available for anyone
-to copy, free of charge and under the terms of this License, through a
-publicly available network server or other readily accessible means,
-then you must either (1) cause the Corresponding Source to be so
-available, or (2) arrange to deprive yourself of the benefit of the
-patent license for this particular work, or (3) arrange, in a manner
-consistent with the requirements of this License, to extend the patent
-license to downstream recipients.  "Knowingly relying" means you have
-actual knowledge that, but for the patent license, your conveying the
-covered work in a country, or your recipient's use of the covered work
-in a country, would infringe one or more identifiable patents in that
-country that you have reason to believe are valid.
-
-  If, pursuant to or in connection with a single transaction or
-arrangement, you convey, or propagate by procuring conveyance of, a
-covered work, and grant a patent license to some of the parties
-receiving the covered work authorizing them to use, propagate, modify
-or convey a specific copy of the covered work, then the patent license
-you grant is automatically extended to all recipients of the covered
-work and works based on it.
-
-  A patent license is "discriminatory" if it does not include within
-the scope of its coverage, prohibits the exercise of, or is
-conditioned on the non-exercise of one or more of the rights that are
-specifically granted under this License.  You may not convey a covered
-work if you are a party to an arrangement with a third party that is
-in the business of distributing software, under which you make payment
-to the third party based on the extent of your activity of conveying
-the work, and under which the third party grants, to any of the
-parties who would receive the covered work from you, a discriminatory
-patent license (a) in connection with copies of the covered work
-conveyed by you (or copies made from those copies), or (b) primarily
-for and in connection with specific products or compilations that
-contain the covered work, unless you entered into that arrangement,
-or that patent license was granted, prior to 28 March 2007.
-
-  Nothing in this License shall be construed as excluding or limiting
-any implied license or other defenses to infringement that may
-otherwise be available to you under applicable patent law.
-
-  12. No Surrender of Others' Freedom.
-
-  If conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License.  If you cannot convey a
-covered work so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you may
-not convey it at all.  For example, if you agree to terms that obligate you
-to collect a royalty for further conveying from those to whom you convey
-the Program, the only way you could satisfy both those terms and this
-License would be to refrain entirely from conveying the Program.
-
-  13. Use with the GNU Affero General Public License.
-
-  Notwithstanding any other provision of this License, you have
-permission to link or combine any covered work with a work licensed
-under version 3 of the GNU Affero General Public License into a single
-combined work, and to convey the resulting work.  The terms of this
-License will continue to apply to the part which is the covered work,
-but the special requirements of the GNU Affero General Public License,
-section 13, concerning interaction through a network will apply to the
-combination as such.
-
-  14. Revised Versions of this License.
-
-  The Free Software Foundation may publish revised and/or new versions of
-the GNU General Public License from time to time.  Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
-  Each version is given a distinguishing version number.  If the
-Program specifies that a certain numbered version of the GNU General
-Public License "or any later version" applies to it, you have the
-option of following the terms and conditions either of that numbered
-version or of any later version published by the Free Software
-Foundation.  If the Program does not specify a version number of the
-GNU General Public License, you may choose any version ever published
-by the Free Software Foundation.
-
-  If the Program specifies that a proxy can decide which future
-versions of the GNU General Public License can be used, that proxy's
-public statement of acceptance of a version permanently authorizes you
-to choose that version for the Program.
-
-  Later license versions may give you additional or different
-permissions.  However, no additional obligations are imposed on any
-author or copyright holder as a result of your choosing to follow a
-later version.
-
-  15. Disclaimer of Warranty.
-
-  THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
-APPLICABLE LAW.  EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
-HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
-OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
-THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
-PURPOSE.  THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
-IS WITH YOU.  SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
-ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
-
-  16. Limitation of Liability.
-
-  IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
-THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
-GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
-USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
-DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
-PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
-EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
-SUCH DAMAGES.
-
-  17. Interpretation of Sections 15 and 16.
-
-  If the disclaimer of warranty and limitation of liability provided
-above cannot be given local legal effect according to their terms,
-reviewing courts shall apply local law that most closely approximates
-an absolute waiver of all civil liability in connection with the
-Program, unless a warranty or assumption of liability accompanies a
-copy of the Program in return for a fee.
-
-                     END OF TERMS AND CONDITIONS
-
-            How to Apply These Terms to Your New Programs
-
-  If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
-  To do so, attach the following notices to the program.  It is safest
-to attach them to the start of each source file to most effectively
-state the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
-    {one line to give the program's name and a brief idea of what it does.}
-    Copyright (C) {year}  {name of author}
-
-    This program is free software: you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation, either version 3 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-Also add information on how to contact you by electronic and paper mail.
-
-  If the program does terminal interaction, make it output a short
-notice like this when it starts in an interactive mode:
-
-    {project}  Copyright (C) {year}  {fullname}
-    This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
-    This is free software, and you are welcome to redistribute it
-    under certain conditions; type `show c' for details.
-
-The hypothetical commands `show w' and `show c' should show the appropriate
-parts of the General Public License.  Of course, your program's commands
-might be different; for a GUI interface, you would use an "about box".
-
-  You should also get your employer (if you work as a programmer) or school,
-if any, to sign a "copyright disclaimer" for the program, if necessary.
-For more information on this, and how to apply and follow the GNU GPL, see
-<http://www.gnu.org/licenses/>.
-
-  The GNU General Public License does not permit incorporating your program
-into proprietary programs.  If your program is a subroutine library, you
-may consider it more useful to permit linking proprietary applications with
-the library.  If this is what you want to do, use the GNU Lesser General
-Public License instead of this License.  But first, please read
-<http://www.gnu.org/philosophy/why-not-lgpl.html>.
diff --git a/Log.dfm b/Log.dfm
deleted file mode 100644
index 2547c0e..0000000
Binary files a/Log.dfm and /dev/null differ
diff --git a/Log.pas b/Log.pas
deleted file mode 100644
index 9e2c780..0000000
--- a/Log.pas
+++ /dev/null
@@ -1,51 +0,0 @@
-unit Log;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls;
-
-type
-  TfLog = class(TForm)
-    txtLog: TMemo;
-    procedure FormShow(Sender: TObject);
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
-  private
-    { Private declarations }
-  public
-  end;
-
-var
-  fLog: TfLog;
-
-procedure ScriviLog(sMsg: string);
-
-implementation
-
-{$R *.DFM}
-
-uses Globals, Main;
-
-procedure TfLog.FormShow(Sender: TObject);
-begin
-  fMain.mnuVieLog.Checked := true;
-  fMain.cmdLog.Down := true;
-end;
-
-procedure TfLog.FormClose(Sender: TObject; var Action: TCloseAction);
-begin
-  fMain.mnuVieLog.Checked := false;
-  fMain.cmdLog.Down := false;
-end;
-
-procedure ScriviLog(sMsg: string);
-begin
-  with fLog.txtLog do begin
-    // if Lines.Count>=MAXLOGLINES then Lines.Delete(0);
-    Lines.Add(IntToStr(iTurnCounter) + ' ' + arPlayer[iTurn]
-        .Name + ' - ' + sMsg);
-  end;
-end;
-
-end.
diff --git a/Main.dfm b/Main.dfm
deleted file mode 100644
index 85fdbe1..0000000
Binary files a/Main.dfm and /dev/null differ
diff --git a/Main.pas b/Main.pas
deleted file mode 100644
index 69e6893..0000000
--- a/Main.pas
+++ /dev/null
@@ -1,470 +0,0 @@
-unit Main;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  Menus, ExtCtrls, StdCtrls, ComCtrls, JvComponentBase, JvPropertyStore,
-  JvProgramVersionCheck, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent,
-  IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ImgList, ToolWin;
-
-type
-  TfMain = class(TForm)
-    panMap: TPanel;
-    imgMap: TImage;
-    mnuMain: TMainMenu;
-    mnuFil: TMenuItem;
-    mnuFilSep1: TMenuItem;
-    mnuFilExit: TMenuItem;
-    mnuFilNew: TMenuItem;
-    mnuFilEnd: TMenuItem;
-    mnuOpt: TMenuItem;
-    mnuOptRules: TMenuItem;
-    mnuVie: TMenuItem;
-    mnuVieStats: TMenuItem;
-    panStatus: TStatusBar;
-    mnuVieLog: TMenuItem;
-    mnuHel: TMenuItem;
-    mnuHelReadme: TMenuItem;
-    mnuHelAbout: TMenuItem;
-    mnuOptMap: TMenuItem;
-    mnuVieHist: TMenuItem;
-    N1: TMenuItem;
-    N2: TMenuItem;
-    N3: TMenuItem;
-    mnuHelCheckUpdates: TMenuItem;
-    IdAntiFreeze: TIdAntiFreeze;
-    mnuHelHomepage: TMenuItem;
-    mnuFilSave: TMenuItem;
-    mnuFilRestore: TMenuItem;
-    N4: TMenuItem;
-    dlgOpen: TOpenDialog;
-    dlgSave: TSaveDialog;
-    tlbToolBar: TToolBar;
-    cmdNewGame: TToolButton;
-    imlButtons: TImageList;
-    cmdEndGame: TToolButton;
-    cmdSaveGame: TToolButton;
-    cmdRestoreGame: TToolButton;
-    cmdStatistics: TToolButton;
-    cmdEndTurn: TToolButton;
-    imlDisButtons: TImageList;
-    Panel1: TPanel;
-    Label1: TLabel;
-    panTurn: TPanel;
-    mnuOptPref: TMenuItem;
-    cmdExit: TToolButton;
-    cmdLog: TToolButton;
-    cmdHistory: TToolButton;
-    cmdRules: TToolButton;
-    cmdMap: TToolButton;
-    cmdPreferences: TToolButton;
-    cmdHelp: TToolButton;
-    cmdHomePage: TToolButton;
-    cmdUpdate: TToolButton;
-    cmdAbout: TToolButton;
-    mnuHelGroup: TMenuItem;
-    N5: TMenuItem;
-    procedure mnuFilExitClick(Sender: TObject);
-    procedure FormShow(Sender: TObject);
-    procedure imgMapMouseUp(Sender: TObject; Button: TMouseButton;
-      Shift: TShiftState; X, Y: Integer);
-    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
-    procedure mnuFilNewClick(Sender: TObject);
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
-    procedure mnuFilEndClick(Sender: TObject);
-    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-    procedure mnuVieStatsClick(Sender: TObject);
-    procedure mnuOptRulesClick(Sender: TObject);
-    procedure mnuOptPlayersClick(Sender: TObject);
-    procedure mnuVieLogClick(Sender: TObject);
-    procedure mnuHelReadmeClick(Sender: TObject);
-    procedure mnuHelAboutClick(Sender: TObject);
-    procedure mnuOptMapClick(Sender: TObject);
-    procedure mnuVieHistClick(Sender: TObject);
-    procedure mnuHelCheckUpdatesClick(Sender: TObject);
-    procedure mnuHelHomepageClick(Sender: TObject);
-    procedure mnuFilSaveClick(Sender: TObject);
-    procedure mnuFilRestoreClick(Sender: TObject);
-    procedure cmdEndTurnClick(Sender: TObject);
-    procedure imgMapMouseMove(Sender: TObject; Shift: TShiftState;
-      X, Y: Integer);
-    procedure mnuOptPrefClick(Sender: TObject);
-    procedure mnuHelGroupClick(Sender: TObject);
-  private
-  public
-    { Public declarations }
-  end;
-
-var
-  fMain: TfMain;
-
-implementation
-
-{$R *.DFM}
-
-uses ShellAPI, Globals, Territ, NewGame, Stats, Human, Rules, Players, Log,
-  Readme,
-  About, ExpSubr, Map, History, CheckUpd, Pref, SplashScreen;
-
-procedure TfMain.FormShow(Sender: TObject);
-var
-  bUpdatesAvailable: Boolean;
-begin
-  bG_TRSim := false;
-  bUpdatesAvailable := false;
-  Setup;
-  Caption := 'TurboRisk ' + sG_AppVers;
-  Application.HelpFile := sG_AppPath + 'TurboRisk.chm';
-  // check for updates
-  if bPrefCheckUpdate then
-    bUpdatesAvailable := fCheckUpd.CheckUpdates(true);
-  // remove splash screen
-  fSplashScreen.Hide;
-  fSplashScreen.Free;
-  if bUpdatesAvailable then begin
-    if MessageDlg(
-      'There are news and/or updates about TurboRisk. Would you like to start the Update Manager?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
-      fCheckUpd.ShowModal;
-  end;
-end;
-
-procedure TfMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-begin
-  CanClose := false;
-  if GameState = gsStopped then begin
-    CanClose := true;
-    exit;
-  end;
-  if bHumanTurn then begin
-    GameCleanup;
-    CanClose := true;
-    exit;
-  end
-  else begin
-    bStopASAP := true;
-    bCloseASAP := true;
-  end;
-end;
-
-procedure TfMain.FormClose(Sender: TObject; var Action: TCloseAction);
-begin
-  Cleanup;
-end;
-
-procedure TfMain.mnuFilNewClick(Sender: TObject);
-begin
-  if GameState <> gsStopped then
-    exit;
-  if fNewGame.ShowModal = mrOK then begin
-    Screen.Cursor := crHourGlass;
-    panStatus.Panels[2].Text := 'Preparing new game, please wait...';
-    Application.ProcessMessages;
-    NewGameSetup;
-    panStatus.Panels[2].Text := '';
-    Screen.Cursor := crDefault;
-    if GameState <> gsStopped then
-      Supervisor
-    else
-      GameCleanup;
-  end;
-end;
-
-procedure TfMain.mnuFilEndClick(Sender: TObject);
-begin
-  if GameState = gsStopped then
-    exit;
-  if bPrefConfirmAbort and (MessageDlg(
-      'Are you sure you want to quit this game?', mtConfirmation,
-      [mbYes, mbNo], 0) <> mrYes) then
-    exit;
-  if bHumanTurn then begin
-    GameCleanup;
-    exit;
-  end
-  else begin
-    bStopASAP := true;
-  end;
-end;
-
-procedure TfMain.mnuFilSaveClick(Sender: TObject);
-begin
-  if not bHumanTurn then
-    exit;
-  dlgSave.InitialDir := sG_AppPath;
-  dlgSave.FileName := 'my_game.trg';
-  if dlgSave.Execute then begin
-    SaveGame(dlgSave.FileName, '');
-    panStatus.Panels[2].Text := 'Game saved.';
-  end;
-end;
-
-procedure TfMain.mnuFilRestoreClick(Sender: TObject);
-begin
-  dlgOpen.InitialDir := sG_AppPath;
-  if dlgOpen.Execute then begin
-    Screen.Cursor := crHourGlass;
-    panStatus.Panels[2].Text := 'Restoring game, please wait...';
-    Application.ProcessMessages;
-    GameCleanup;
-    RestoreGame(dlgOpen.FileName);
-    Screen.Cursor := crDefault;
-    panStatus.Panels[2].Text := '';
-    if GameState = gsStopped then begin
-      GameCleanup;
-      exit;
-    end;
-    MostraIstruzioni;
-    UpdateGridPos;
-    // save and restore enabled (though meaningless)
-    mnuFilSave.Enabled := true;
-    cmdSaveGame.Enabled := true;
-    mnuFilRestore.Enabled := true;
-    cmdRestoreGame.Enabled := true;
-  end;
-end;
-
-procedure TfMain.mnuFilExitClick(Sender: TObject);
-begin
-  Close;
-end;
-
-procedure TfMain.mnuVieStatsClick(Sender: TObject);
-begin
-  if fStats.Visible then begin
-    fStats.Close;
-  end
-  else begin
-    fStats.Show;
-  end;
-end;
-
-procedure TfMain.mnuVieHistClick(Sender: TObject);
-begin
-  fHistory.ShowModal;
-end;
-
-procedure TfMain.mnuVieLogClick(Sender: TObject);
-begin
-  if fLog.Visible then begin
-    fLog.Close;
-  end
-  else begin
-    fLog.Show;
-  end;
-end;
-
-procedure TfMain.mnuOptPlayersClick(Sender: TObject);
-begin
-  fPlayers.ShowModal;
-end;
-
-procedure TfMain.mnuOptPrefClick(Sender: TObject);
-begin
-  fPref.ShowModal;
-end;
-
-procedure TfMain.mnuOptRulesClick(Sender: TObject);
-begin
-  fRules.ShowModal;
-end;
-
-procedure TfMain.mnuOptMapClick(Sender: TObject);
-begin
-  fMap.ShowModal;
-end;
-
-procedure TfMain.mnuHelReadmeClick(Sender: TObject);
-begin
-  // Application.HelpSystem.ShowTableOfContents; // doesn'twork!
-  Application.HelpSystem.ShowContextHelp(100, sG_AppPath + 'TurboRisk.chm');
-end;
-
-procedure TfMain.mnuHelAboutClick(Sender: TObject);
-begin
-  fAbout.ShowModal;
-end;
-
-procedure TfMain.mnuHelCheckUpdatesClick(Sender: TObject);
-begin
-  fCheckUpd.ShowModal;
-end;
-
-procedure TfMain.mnuHelGroupClick(Sender: TObject);
-begin
-  ShellExecute(0, nil, pChar(
-      'http://groups.google.com/group/turborisk'), nil,
-    nil, sw_ShowNormal);
-end;
-
-procedure TfMain.mnuHelHomepageClick(Sender: TObject);
-begin
-  ShellExecute(0, nil, pChar(
-      'http://www.marioferrari.org/freeware/turborisk/turborisk.html'), nil,
-    nil, sw_ShowNormal);
-end;
-
-procedure TfMain.imgMapMouseMove(Sender: TObject; Shift: TShiftState;
-  X, Y: Integer);
-var
-  iT: Integer;
-begin
-  if GameState = gsStopped then
-    exit;
-  // search territory hoovered by mouse
-  iT := TrovaTerritorio(X, Y);
-  // if changed...
-  if iT <> GetHooverTerritory then begin
-    // set new hoovered territory
-    SetHooverTerritory(iT);
-  end;
-end;
-
-procedure TfMain.imgMapMouseUp(Sender: TObject; Button: TMouseButton;
-  Shift: TShiftState; X, Y: Integer);
-var
-  iT: Integer;
-  iColl: Integer;
-begin
-  if not bHumanTurn then
-    exit;
-  iT := TrovaTerritorio(X, Y);
-  cmdEndTurn.Enabled := false; // disable "end turn" button
-  // Puntamento su territorio
-  if iT > 0 then begin
-    case GameState of
-      gsAssigning: begin
-          if arTerritory[iT].Owner = 0 then begin
-            AssegnaTerritorio(iT, iTurn);
-            inc(arTerritory[iT].Army);
-            dec(arPlayer[iTurn].NewArmy);
-            DisplayTerritory(iT);
-            if arPlayer[iTurn].KeepLog then
-              ScriviLog(arTerritory[iT].Name + ' assigned.');
-            // fine turno
-            Supervisor;
-            exit;
-          end;
-        end;
-      gsDistributing: begin
-          if (arTerritory[iT].Owner = iTurn) and (arPlayer[iTurn].NewArmy > 0)
-            then begin
-            CollocaArmata(iT, iTurn, 1);
-            // fine turno
-            Supervisor;
-            exit;
-          end;
-        end;
-      gsPlaying: begin
-          case HumanPhase of
-            hpPlacement: begin
-                if (arTerritory[iT].Owner = iTurn) and
-                  (arPlayer[iTurn].NewArmy > 0) then begin
-                  iColl := 1;
-                  if ssShift in Shift then
-                    inc(iColl);
-                  if ssAlt in Shift then
-                    inc(iColl);
-                  if ssCtrl in Shift then
-                    inc(iColl);
-                  case iColl of
-                    4:
-                      iColl := 25;
-                    3:
-                      iColl := 10;
-                    2:
-                      iColl := 5;
-                  end;
-                  CollocaArmata(iT, iTurn, iColl);
-                  mnuFilSave.Enabled := false; // game save allowed only at the beginning of a turn
-                  cmdSaveGame.Enabled := false;
-                  if arPlayer[iTurn].NewArmy = 0 then begin
-                    HumanPhase := hpAttack;
-                    cmdEndTurn.Enabled := true; // enable "end turn" button
-                  end;
-                  MostraIstruzioni;
-                end;
-              end;
-            hpAttack: begin
-                cmdEndTurn.Enabled := true; // enable "end turn" button
-                if GetFromTerritory = 0 then begin
-                  if (arTerritory[iT].Owner = iTurn) and
-                    (arTerritory[iT].Army >= 2) then begin
-                    SetFromTerritory(iT);
-                    MostraIstruzioni;
-                  end;
-                end
-                else begin
-                  if Confinante(GetFromTerritory, iT) then begin
-                    if arTerritory[iT].Owner <> iTurn then begin
-                      SetToTerritory(iT);
-                      fMain.panStatus.Panels[2].Text := 'Attack in progress...';
-                      UomoAttacca(GetFromTerritory, iT);
-                      if iNPlayers < 2 then begin
-                        // last opponent eliminated, the game ends
-                        Supervisor;
-                        exit;
-                      end;
-                    end
-                    else if (arTerritory[iT].Owner = iTurn)
-                      and not arPlayer[iTurn].FlMove then begin
-                      SetToTerritory(iT);
-                      fMain.panStatus.Panels[2].Text :=
-                        'Troops move in progress...';
-                      UomoSposta(GetFromTerritory, iT, true);
-                      if arPlayer[iTurn].FlMove and RFinalMove then begin
-                        // turn ends
-                        SetFromTerritory(0);
-                        SetToTerritory(0);
-                        Supervisor;
-                      end;
-                      exit;
-                    end;
-                  end;
-                  SetFromTerritory(0);
-                  SetToTerritory(0);
-                  MostraIstruzioni;
-                end;
-              end;
-          end;
-        end;
-    end;
-  end
-  else begin
-    SetFromTerritory(0);
-    SetToTerritory(0);
-    MostraIstruzioni;
-    if bHumanTurn and (GameState = gsPlaying) and (HumanPhase > hpPlacement)
-      then begin
-      cmdEndTurn.Enabled := true; // enable "end turn" button
-    end;
-  end;
-end;
-
-procedure TfMain.FormKeyDown(Sender: TObject; var Key: Word;
-  Shift: TShiftState);
-begin
-  if Key = VK_ESCAPE then
-    Application.Minimize
-  else if Key = VK_SPACE then begin
-    if bHumanTurn and (GameState = gsPlaying) and (HumanPhase > hpPlacement)
-      then begin
-      SetFromTerritory(0);
-      SetToTerritory(0);
-      Supervisor;
-      exit;
-    end;
-  end;
-end;
-
-procedure TfMain.cmdEndTurnClick(Sender: TObject);
-begin
-  if bHumanTurn and (GameState = gsPlaying) and (HumanPhase > hpPlacement) then
-    begin
-    SetFromTerritory(0);
-    SetToTerritory(0);
-    Supervisor;
-  end;
-end;
-
-end.
diff --git a/Map.dfm b/Map.dfm
deleted file mode 100644
index 328f8b8..0000000
--- a/Map.dfm
+++ /dev/null
@@ -1,157 +0,0 @@
-object fMap: TfMap
-  Left = 469
-  Top = 136
-  HelpContext = 430
-  BorderStyle = bsDialog
-  Caption = 'Map'
-  ClientHeight = 470
-  ClientWidth = 636
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
-  Font.Style = []
-  OldCreateOrder = False
-  Position = poScreenCenter
-  OnShow = FormShow
-  PixelsPerInch = 96
-  TextHeight = 13
-  object Label1: TLabel
-    Left = 5
-    Top = 5
-    Width = 71
-    Height = 13
-    Caption = 'Available maps'
-  end
-  object Label2: TLabel
-    Left = 5
-    Top = 230
-    Width = 61
-    Height = 13
-    Caption = 'Map preview'
-  end
-  object Label3: TLabel
-    Left = 330
-    Top = 230
-    Width = 50
-    Height = 13
-    Caption = 'Size (pixel)'
-  end
-  object Label4: TLabel
-    Left = 330
-    Top = 275
-    Width = 31
-    Height = 13
-    Caption = 'Author'
-  end
-  object Label5: TLabel
-    Left = 330
-    Top = 320
-    Width = 41
-    Height = 13
-    Caption = 'Revision'
-  end
-  object lstMap: TListView
-    Left = 5
-    Top = 20
-    Width = 626
-    Height = 201
-    Checkboxes = True
-    Columns = <
-      item
-        Caption = 'Name'
-        Width = 200
-      end
-      item
-        Caption = 'Description'
-        Width = 400
-      end>
-    ReadOnly = True
-    RowSelect = True
-    SortType = stText
-    TabOrder = 0
-    ViewStyle = vsReport
-    OnChange = lstMapChange
-    OnSelectItem = lstMapSelectItem
-  end
-  object panMapPreview: TPanel
-    Left = 5
-    Top = 245
-    Width = 316
-    Height = 220
-    BevelOuter = bvLowered
-    TabOrder = 1
-    object imgMapPreview: TImage
-      Left = 1
-      Top = 1
-      Width = 314
-      Height = 218
-      Align = alClient
-    end
-  end
-  object txtMapSize: TEdit
-    Left = 330
-    Top = 245
-    Width = 91
-    Height = 21
-    ReadOnly = True
-    TabOrder = 2
-  end
-  object cmdOK: TBitBtn
-    Left = 455
-    Top = 435
-    Width = 81
-    Height = 26
-    Caption = 'OK'
-    Default = True
-    DoubleBuffered = True
-    Glyph.Data = {
-      DE010000424DDE01000000000000760000002800000024000000120000000100
-      0400000000006801000000000000000000001000000000000000000000000000
-      80000080000000808000800000008000800080800000C0C0C000808080000000
-      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
-      3333333333333333333333330000333333333333333333333333F33333333333
-      00003333344333333333333333388F3333333333000033334224333333333333
-      338338F3333333330000333422224333333333333833338F3333333300003342
-      222224333333333383333338F3333333000034222A22224333333338F338F333
-      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
-      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
-      0000333333333A222433333333333338F338F33300003333333333A222433333
-      333333338F338F33000033333333333A222433333333333338F338F300003333
-      33333333A222433333333333338F338F00003333333333333A22433333333333
-      3338F38F000033333333333333A223333333333333338F830000333333333333
-      333A333333333333333338330000333333333333333333333333333333333333
-      0000}
-    NumGlyphs = 2
-    ParentDoubleBuffered = False
-    TabOrder = 3
-    OnClick = cmdOKClick
-  end
-  object cmdAnnulla: TBitBtn
-    Left = 545
-    Top = 435
-    Width = 81
-    Height = 26
-    DoubleBuffered = True
-    Kind = bkCancel
-    ParentDoubleBuffered = False
-    TabOrder = 4
-  end
-  object txtMapAuthor: TEdit
-    Left = 330
-    Top = 290
-    Width = 301
-    Height = 21
-    ReadOnly = True
-    TabOrder = 5
-  end
-  object txtMapRevision: TEdit
-    Left = 330
-    Top = 335
-    Width = 301
-    Height = 21
-    ReadOnly = True
-    TabOrder = 6
-  end
-end
diff --git a/Map.pas b/Map.pas
deleted file mode 100644
index 058d0ba..0000000
--- a/Map.pas
+++ /dev/null
@@ -1,147 +0,0 @@
-unit Map;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, ComCtrls, ExtCtrls, Buttons, JvExExtCtrls, JvImage,
-  JvBaseThumbnail, JvThumbImage;
-
-type
-  TfMap = class(TForm)
-    lstMap: TListView;
-    Label1: TLabel;
-    panMapPreview: TPanel;
-    imgMapPreview: TImage;
-    txtMapSize: TEdit;
-    Label2: TLabel;
-    Label3: TLabel;
-    cmdOK: TBitBtn;
-    cmdAnnulla: TBitBtn;
-    txtMapAuthor: TEdit;
-    Label4: TLabel;
-    txtMapRevision: TEdit;
-    Label5: TLabel;
-    procedure FormShow(Sender: TObject);
-    procedure cmdOKClick(Sender: TObject);
-    procedure lstMapChange(Sender: TObject; Item: TListItem;
-      Change: TItemChange);
-    procedure lstMapSelectItem(Sender: TObject; Item: TListItem;
-      Selected: Boolean);
-  private
-    bLoading: boolean;
-  public
-    { Public declarations }
-  end;
-
-var
-  fMap: TfMap;
-
-implementation
-
-{$R *.dfm}
-
-uses Globals, IniFiles, Territ;
-
-procedure TfMap.FormShow(Sender: TObject);
-var
-  SearchRec: TSearchRec;
-  IniFile: TIniFile;
-begin
-  bLoading := true;
-  // load list of map
-  lstMap.Clear;
-  if FindFirst(sG_AppPath+'maps\*.trm', 0, SearchRec) = 0 then begin
-    repeat
-      with lstMap.Items.Add do begin
-        Caption := SearchRec.Name;
-        if SameText(SearchRec.Name,sMapFile) then begin
-          Checked := true;
-          lstMap.ItemIndex := lstMap.Items.Count-1;
-        end;
-        IniFile := TIniFile.Create(sG_AppPath+'maps\'+SearchRec.Name);
-        try
-          SubItems.Add(IniFile.ReadString('Map','Desc',''));
-          SubItems.Add(IniFile.ReadString('Map','Author',''));
-          SubItems.Add(IniFile.ReadString('Map','Revision',''));
-        finally
-          IniFile.Free;
-        end;
-      end;
-    until FindNext(SearchRec)<>0;
-  end;
-  FindClose(SearchRec);
-  bLoading := false;
-  if lstMap.ItemIndex>0 then begin
-    lstMap.ItemFocused := lstMap.Items[lstMap.ItemIndex];
-    lstMapSelectItem(Sender,lstMap.ItemFocused,true);
-  end;
-end;
-
-procedure TfMap.cmdOKClick(Sender: TObject);
-var
-  i, iT: integer;
-begin
-  for i:=0 to lstMap.Items.Count-1 do begin
-    if lstMap.Items[i].Checked then begin
-      sMapFile := lstMap.Items[i].Caption;
-      LoadMap;
-      if GameState<>gsStopped then begin
-        for it:=1 to MAXTERRITORIES do DisplayTerritory(iT);
-      end;
-      break;
-    end;
-  end;
-  ModalResult := mrOK;    
-end;
-
-procedure TfMap.lstMapChange(Sender: TObject; Item: TListItem;
-  Change: TItemChange);
-var
-  i: integer;
-begin
-  if bLoading then exit;
-  // uncheck all other items
-  if Item.Checked then begin
-    for i:=0 to lstMap.Items.Count-1 do begin
-      if lstMap.Items[i]<>Item then lstMap.Items[i].Checked:=false;
-    end;
-  end;
-end;
-
-procedure TfMap.lstMapSelectItem(Sender: TObject; Item: TListItem;
-  Selected: Boolean);
-var
-  sBmpFile: string;
-  bmp: TBitmap;
-begin
-  if bLoading then exit;
-  if lstMap.ItemIndex<0 then exit;
-  sBmpFile := ChangeFileExt(sG_AppPath+'maps\'+Item.Caption,'.bmp');
-  if FileExists(sBmpFile) then begin
-    bmp := TBitmap.Create;
-    try
-      // load bitmap and compute ratio
-      bmp.LoadFromFile(sBmpFile);
-      // stretch it into preview
-      SetStretchBltMode(imgMapPreview.Canvas.Handle, Stretch_Halftone);  // improve strech quality
-      StretchBlt(imgMapPreview.Canvas.Handle, 0, 0, imgMapPreview.Width, imgMapPreview.Height, bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, SrcCopy);
-      imgMapPreview.Refresh;
-      // update controls
-      imgMapPreview.Visible := true;
-      panMapPreview.Caption := '';
-      txtMapSize.Text := IntToStr(bmp.Width)+' x '
-                       + IntToStr(bmp.Height);
-      txtMapAuthor.Text := lstMap.ItemFocused.SubItems[1];
-      txtMapRevision.Text := lstMap.ItemFocused.SubItems[2];
-    finally
-      bmp.Free;
-    end;
-  end else begin
-    imgMapPreview.Visible := false;
-    txtMapSize.Text := '';
-    panMapPreview.Caption := 'Cannot find bitmap file';
-  end;
-end;
-
-end.
diff --git a/Maps/Elliptical_Projection_Map.bmp b/Maps/Elliptical_Projection_Map.bmp
deleted file mode 100644
index 077b27f..0000000
Binary files a/Maps/Elliptical_Projection_Map.bmp and /dev/null differ
diff --git a/Maps/Elliptical_Projection_Map.trm b/Maps/Elliptical_Projection_Map.trm
deleted file mode 100644
index 7a7b39b..0000000
--- a/Maps/Elliptical_Projection_Map.trm
+++ /dev/null
@@ -1,446 +0,0 @@
-[Map]
-Desc=An elliptical (Mollweide) projection map - similar to the standard map
-Author=Nathan Scarbrough - Orignal by Orthuberra found at http://commons.wikimedia.org/wiki/File:Risk_game_map.png
-Revision=1.1
-FontName=Courier New
-FontSize=12
-[Territory_1]
-Color=32896
-Tx=76
-Ty=63
-FFCount=1
-FF1x=91
-FF1y=59
-[Territory_2]
-Color=2576464
-Tx=170
-Ty=71
-FFCount=5
-FF1x=169
-FF1y=60
-FF2x=221
-FF2y=39
-FF3x=286
-FF3y=41
-FF4x=299
-FF4y=41
-FF5x=271
-FF5y=57
-[Territory_3]
-Color=131071
-Tx=439
-Ty=33
-FFCount=1
-FF1x=424
-FF1y=21
-[Territory_4]
-Color=65535
-Tx=144
-Ty=112
-FFCount=1
-FF1x=117
-FF1y=101
-[Territory_5]
-Color=4822164
-Tx=223
-Ty=119
-FFCount=1
-FF1x=222
-FF1y=97
-[Territory_6]
-Color=8388607
-Tx=307
-Ty=115
-FFCount=2
-FF1x=319
-FF1y=98
-FF2x=345
-FF2y=104
-[Territory_7]
-Color=2642000
-Tx=126
-Ty=170
-FFCount=2
-FF1x=121
-FF1y=150
-FF2x=92
-FF2y=206
-[Territory_8]
-Color=98432
-Tx=205
-Ty=189
-FFCount=2
-FF1x=203
-FF1y=149
-FF2x=292
-FF2y=159
-[Territory_9]
-Color=8454143
-Tx=126
-Ty=249
-FFCount=8
-FF1x=112
-FF1y=228
-FF2x=204
-FF2y=316
-FF3x=348
-FF3y=95
-FF4x=217
-FF4y=259
-FF5x=256
-FF5y=274
-FF6x=233
-FF6y=279
-FF7x=279
-FF7y=279
-FF8x=160
-FF8y=247
-[Territory_10]
-Color=8421631
-Tx=250
-Ty=331
-FFCount=2
-FF1x=248
-FF1y=317
-FF2x=281
-FF2y=358
-[Territory_11]
-Color=128
-Tx=261
-Ty=423
-FFCount=2
-FF1x=227
-FF1y=381
-FF2x=324
-FF2y=472
-[Territory_12]
-Color=4210816
-Tx=335
-Ty=403
-FFCount=1
-FF1x=401
-FF1y=389
-[Territory_13]
-Color=255
-Tx=288
-Ty=507
-FFCount=2
-FF1x=305
-FF1y=586
-FF2x=315
-FF2y=601
-[Territory_14]
-Color=6001151
-Tx=543
-Ty=269
-FFCount=1
-FF1x=535
-FF1y=210
-[Territory_15]
-Color=16512
-Tx=637
-Ty=236
-FFCount=1
-FF1x=607
-FF1y=224
-[Territory_16]
-Color=33023
-Tx=696
-Ty=319
-FFCount=1
-FF1x=755
-FF1y=318
-[Territory_17]
-Color=1071022
-Tx=635
-Ty=357
-FFCount=1
-FF1x=618
-FF1y=332
-[Territory_18]
-Color=1327232
-Tx=644
-Ty=457
-FFCount=1
-FF1x=637
-FF1y=515
-[Territory_19]
-Color=22446
-Tx=758
-Ty=448
-FFCount=1
-FF1x=754
-FF1y=431
-[Territory_20]
-Color=16711937
-Tx=511
-Ty=54
-FFCount=1
-FF1x=505
-FF1y=75
-FF2x=595
-FF2y=107
-[Territory_21]
-Color=16744450
-Tx=583
-Ty=55
-FFCount=1
-FF1x=587
-FF1y=89
-FF2x=568
-FF2y=134
-[Territory_22]
-Color=8388608
-Tx=691
-Ty=107
-FFCount=1
-FF1x=649
-FF1y=102
-[Territory_23]
-Color=16711680
-Tx=597
-Ty=123
-FFCount=1
-FF1x=592
-FF1y=123
-[Territory_24]
-Color=8404994
-Tx=500
-Ty=117
-FFCount=2
-FF1x=547
-FF1y=108
-FF2x=540
-FF2y=117
-FF3x=614
-FF3y=143
-FF4x=610
-FF4y=191
-[Territory_25]
-Color=16744448
-Tx=531
-Ty=172
-FFCount=1
-FF1x=554
-FF1y=146
-[Territory_26]
-Color=8404992
-Tx=622
-Ty=159
-FFCount=3
-FF1x=612
-FF1y=193
-FF2x=645
-FF2y=197
-FF3x=608
-FF3y=173
-FF4x=645
-FF4y=197
-[Territory_27]
-Color=17920
-Tx=714
-Ty=211
-FFCount=5
-FF1x=739
-FF1y=300
-FF2x=661
-FF2y=175
-FF3x=659
-FF3y=179
-FF4x=664
-FF4y=178
-FF5x=667
-FF5y=177
-[Territory_28]
-Color=8454016
-Tx=787
-Ty=86
-FFCount=1
-FF1x=758
-FF1y=91
-[Territory_29]
-Color=32768
-Tx=791
-Ty=151
-FFCount=1
-FF1x=801
-FF1y=195
-[Territory_30]
-Color=8421415
-Tx=862
-Ty=247
-FFCount=2
-FF1x=875
-FF1y=318
-FF2x=888
-FF2y=321
-[Territory_31]
-Color=8447104
-Tx=962
-Ty=278
-FFCount=1
-FF1x=949
-FF1y=241
-[Territory_32]
-Color=4227072
-Tx=936
-Ty=205
-FFCount=3
-FF1x=1048
-FF1y=250
-FF2x=1004
-FF2y=274
-FF3x=882
-FF3y=150
-[Territory_33]
-Color=16384
-Tx=951
-Ty=155
-FFCount=1
-FF1x=948
-FF1y=179
-[Territory_34]
-Color=98304
-Tx=855
-Ty=66
-FFCount=1
-FF1x=873
-FF1y=131
-[Territory_35]
-Color=8421376
-Tx=956
-Ty=68
-FFCount=1
-FF1x=932
-FF1y=89
-[Territory_36]
-Color=65408
-Tx=936
-Ty=111
-FFCount=1
-FF1x=898
-FF1y=132
-[Territory_37]
-Color=4215296
-Tx=1078
-Ty=66
-FFCount=5
-FF1x=1048
-FF1y=137
-FF2x=1063
-FF2y=124
-FF3x=1125
-FF3y=64
-FF4x=1135
-FF4y=81
-FF5x=1138
-FF5y=82
-[Territory_38]
-Color=1376128
-Tx=1112
-Ty=189
-FFCount=4
-FF1x=1094
-FF1y=204
-FF2x=1088
-FF2y=159
-FF3x=1083
-FF3y=210
-FF4x=1072
-FF4y=211
-[Territory_39]
-Color=16711808
-Tx=1010
-Ty=351
-FFCount=20
-FF1x=1058
-FF1y=300
-FF2x=1056
-FF2y=307
-FF3x=1073
-FF3y=311
-FF4x=1065
-FF4y=308
-FF5x=1062
-FF5y=313
-FF6x=1047
-FF6y=318
-FF7x=1064
-FF7y=318
-FF8x=1070
-FF8y=316
-FF9x=1073
-FF9y=328
-FF10x=1057
-FF10y=371
-FF11x=1072
-FF11y=405
-FF12x=1057
-FF12y=403
-FF13x=1053
-FF13y=408
-FF14x=1043
-FF14y=403
-FF15x=1015
-FF15y=397
-FF16x=981
-FF16y=369
-FF17x=1034
-FF17y=380
-FF18x=1041
-FF18y=334
-FF19x=1024
-FF19y=378
-FF20x=1048
-FF20y=358
-[Territory_40]
-Color=4194432
-Tx=1037
-Ty=480
-FFCount=1
-FF1x=1074
-FF1y=441
-[Territory_41]
-Color=4194368
-Tx=1115
-Ty=459
-FFCount=2
-FF1x=1098
-FF1y=432
-FF2x=1111
-FF2y=549
-[Territory_42]
-Color=16711935
-Tx=1132
-Ty=382
-FFCount=15
-FF1x=1126
-FF1y=378
-FF2x=1088
-FF2y=353
-FF3x=1181
-FF3y=376
-FF4x=1088
-FF4y=377
-FF5x=1187
-FF5y=384
-FF6x=1195
-FF6y=389
-FF7x=1202
-FF7y=395
-FF8x=1210
-FF8y=399
-FF9x=1204
-FF9y=401
-FF10x=1218
-FF10y=403
-FF11x=1213
-FF11y=407
-FF12x=1219
-FF12y=411
-FF13x=1170
-FF13y=407
-FF14x=1147
-FF14y=405
-FF15x=1130
-FF15y=400
diff --git a/Maps/Realistic Mercator 2k.bmp b/Maps/Realistic Mercator 2k.bmp
deleted file mode 100644
index e7ac913..0000000
Binary files a/Maps/Realistic Mercator 2k.bmp and /dev/null differ
diff --git a/Maps/Realistic Mercator 2k.trm b/Maps/Realistic Mercator 2k.trm
deleted file mode 100644
index 6b381bd..0000000
--- a/Maps/Realistic Mercator 2k.trm	
+++ /dev/null
@@ -1,506 +0,0 @@
-[Map]
-Desc=Realistic Mercator map fitting in 2k resolutions
-FontName=Courier New
-FontSize=14
-Author=GW - Credit to Nathan Scarbrough for colours
-Revision=1.0
-TextFG=0
-TextBG=16777215
-[Territory_1]
-Color=32896
-Tx=70
-Ty=92
-FFCount=3
-FF1x=22
-FF1y=71
-FF2x=80
-FF2y=191
-FF3x=186
-FF3y=227
-[Territory_2]
-Color=2576464
-Tx=222
-Ty=107
-FFCount=3
-FF1x=153
-FF1y=63
-FF2x=233
-FF2y=5
-FF3x=269
-FF3y=12
-[Territory_3]
-Color=131071
-Tx=645
-Ty=38
-FFCount=8
-FF1x=356
-FF1y=11
-FF2x=380
-FF2y=41
-FF3x=364
-FF3y=58
-FF4x=351
-FF4y=88
-FF5x=410
-FF5y=5
-FF6x=473
-FF6y=76
-FF7x=428
-FF7y=116
-FF8x=605
-FF8y=7
-FF9x=526
-FF9y=30
-FF10x=495
-FF10y=21
-FF11x=650
-FF11y=43
-[Territory_4]
-Color=65535
-Tx=234
-Ty=204
-FFCount=2
-FF1x=184
-FF1y=172
-FF2x=219
-FF2y=257
-[Territory_5]
-Color=4822164
-Tx=344
-Ty=214
-FFCount=1
-FF1x=303
-FF1y=174
-[Territory_6]
-Color=8388607
-Tx=493
-Ty=218
-FFCount=3
-FF1x=475
-FF1y=154
-FF2x=571
-FF2y=269
-FF3x=538
-FF3y=262
-[Territory_7]
-Color=2642000
-Tx=277
-Ty=314
-FFCount=1
-FF1x=248
-FF1y=278
-[Territory_8]
-Color=98432
-Tx=401
-Ty=340
-FFCount=1
-FF1x=371
-FF1y=275
-[Territory_9]
-Color=8454143
-Tx=327
-Ty=429
-FFCount=6
-FF1x=290
-FF1y=390
-FF2x=446
-FF2y=434
-FF3x=463
-FF3y=424
-FF4x=467
-FF4y=460
-FF5x=497
-FF5y=451
-FF6x=521
-FF6y=459
-[Territory_10]
-Color=8421631
-Tx=487
-Ty=512
-FFCount=1
-FF1x=475
-FF1y=513
-FF2x=285
-FF2y=428
-FF3x=262
-FF3y=397
-[Territory_11]
-Color=128
-Tx=514
-Ty=627
-FFCount=1
-FF1x=469
-FF1y=564
-FF2x=313
-FF2y=527
-[Territory_12]
-Color=4210816
-Tx=581
-Ty=591
-FFCount=1
-FF1x=515
-FF1y=559
-[Territory_13]
-Color=255
-Tx=514
-Ty=722
-FFCount=3
-FF1x=511
-FF1y=674
-FF2x=556
-FF2y=858
-FF3x=569
-FF3y=857
-[Territory_14]
-Color=6001151
-Tx=857
-Ty=435
-FFCount=1
-FF1x=833
-FF1y=376
-[Territory_15]
-Color=16512
-Tx=979
-Ty=397
-FFCount=1
-FF1x=942
-FF1y=382
-[Territory_16]
-Color=33023
-Tx=1047
-Ty=498
-FFCount=1
-FF1x=1008
-FF1y=450
-[Territory_17]
-Color=1071022
-Tx=977
-Ty=554
-FFCount=1
-FF1x=981
-FF1y=531
-FF2x=542
-FF2y=472
-[Territory_18]
-Color=1327232
-Tx=980
-Ty=646
-FFCount=1
-FF1x=948
-FF1y=587
-[Territory_19]
-Color=22446
-Tx=1129
-Ty=647
-FFCount=1
-FF1x=1105
-FF1y=638
-[Territory_20]
-Color=16711937
-Tx=767
-Ty=65
-FFCount=1
-FF1x=765
-FF1y=106
-[Territory_21]
-Color=16744450
-Tx=920
-Ty=141
-FFCount=3
-FF1x=910
-FF1y=147
-FF2x=968
-FF2y=189
-FF3x=943
-FF3y=70
-[Territory_22]
-Color=8388608
-Tx=1065
-Ty=187
-FFCount=3
-FF1x=992
-FF1y=205
-FF2x=1123
-FF2y=55
-FF3x=1149
-FF3y=11
-[Territory_23]
-Color=16711680
-Tx=933
-Ty=232
-FFCount=1
-FF1x=902
-FF1y=247
-FF2x=905
-FF2y=158
-FF3x=517
-FF3y=201
-FF4x=524
-FF4y=201
-[Territory_24]
-Color=8404994
-Tx=786
-Ty=221
-FFCount=5
-FF1x=836
-FF1y=223
-FF2x=851
-FF2y=192
-FF3x=868
-FF3y=161
-FF4x=859
-FF4y=174
-FF5x=840
-FF5y=185
-[Territory_25]
-Color=16744448
-Tx=836
-Ty=314
-FFCount=3
-FF1x=835
-FF1y=306
-FF2x=890
-FF2y=330
-FF3x=920
-FF3y=312
-[Territory_26]
-Color=8404992
-Tx=971
-Ty=281
-FFCount=4
-FF1x=927
-FF1y=287
-FF2x=922
-FF2y=326
-FF3x=949
-FF3y=344
-FF4x=1003
-FF4y=358
-[Territory_27]
-Color=17920
-Tx=1076
-Ty=356
-FFCount=3
-FF1x=1022
-FF1y=331
-FF2x=1044
-FF2y=359
-FF3x=1017
-FF3y=351
-[Territory_28]
-Color=8454016
-Tx=1240
-Ty=149
-FFCount=1
-FF1x=1186
-FF1y=118
-[Territory_29]
-Color=32768
-Tx=1219
-Ty=279
-FFCount=1
-FF1x=1130
-FF1y=252
-[Territory_30]
-Color=8421415
-Tx=1259
-Ty=405
-FFCount=2
-FF1x=1204
-FF1y=398
-FF2x=1283
-FF2y=510
-FF3x=687
-FF3y=395
-[Territory_31]
-Color=8447104
-Tx=1378
-Ty=454
-FFCount=2
-FF1x=1357
-FF1y=429
-FF2x=1431
-FF2y=450
-FF3x=756
-FF3y=421
-FF4x=817
-FF4y=391
-FF5x=811
-FF5y=396
-FF6x=800
-FF6y=398
-FF7x=820
-FF7y=404
-FF8x=794
-FF8y=413
-FF9x=737
-FF9y=417
-FF10x=807
-FF10y=433
-FF11x=804
-FF11y=439
-FF12x=765
-FF12y=460
-FF13x=798
-FF13y=467
-[Territory_32]
-Color=4227072
-Tx=1366
-Ty=342
-FFCount=2
-FF1x=1261
-FF1y=328
-FF2x=1489
-FF2y=430
-[Territory_33]
-Color=16384
-Tx=1441
-Ty=276
-FFCount=1
-FF1x=1338
-FF1y=260
-[Territory_34]
-Color=98304
-Tx=1348
-Ty=109
-FFCount=1
-FF1x=1284
-FF1y=27
-[Territory_35]
-Color=8421376
-Tx=1510
-Ty=80
-FFCount=1
-FF1x=1410
-FF1y=61
-[Territory_36]
-Color=65408
-Tx=1445
-Ty=195
-FFCount=1
-FF1x=1448
-FF1y=173
-FF2x=831
-FF2y=184
-[Territory_37]
-Color=4215296
-Tx=1717
-Ty=88
-FFCount=4
-FF1x=1562
-FF1y=163
-FF2x=1795
-FF2y=25
-FF3x=1667
-FF3y=251
-FF4x=1602
-FF4y=251
-[Territory_38]
-Color=1376128
-Tx=1601
-Ty=318
-FFCount=6
-FF1x=1542
-FF1y=372
-FF2x=1557
-FF2y=367
-FF3x=1581
-FF3y=350
-FF4x=1602
-FF4y=300
-FF5x=1629
-FF5y=291
-FF6x=1639
-FF6y=285
-[Territory_39]
-Color=16711808
-Tx=1434
-Ty=517
-FFCount=13
-FF1x=1398
-FF1y=560
-FF2x=1440
-FF2y=588
-FF3x=1472
-FF3y=594
-FF4x=1491
-FF4y=593
-FF5x=1484
-FF5y=598
-FF6x=1514
-FF6y=595
-FF7x=1487
-FF7y=561
-FF8x=1474
-FF8y=502
-FF9x=1482
-FF9y=496
-FF10x=1491
-FF10y=461
-FF11x=1511
-FF11y=486
-FF12x=1511
-FF12y=513
-FF13x=1434
-FF13y=546
-FF14x=1625
-FF14y=588
-FF15x=1591
-FF15y=593
-[Territory_40]
-Color=4194432
-Tx=1491
-Ty=658
-FFCount=2
-FF1x=1466
-FF1y=671
-FF2x=1542
-FF2y=607
-[Territory_41]
-Color=4194368
-Tx=1590
-Ty=688
-FFCount=9
-FF1x=1572
-FF1y=743
-FF2x=1622
-FF2y=785
-FF3x=1628
-FF3y=770
-FF4x=1746
-FF4y=792
-FF5x=1772
-FF5y=759
-FF6x=1718
-FF6y=659
-FF7x=1783
-FF7y=641
-FF8x=1788
-FF8y=634
-FF9x=1551
-FF9y=685
-[Territory_42]
-Color=16711935
-Tx=1601
-Ty=542
-FFCount=10
-FF1x=1526
-FF1y=542
-FF2x=1517
-FF2y=566
-FF3x=1537
-FF3y=565
-FF4x=1573
-FF4y=565
-FF5x=1559
-FF5y=578
-FF6x=1636
-FF6y=578
-FF7x=1667
-FF7y=582
-FF8x=1684
-FF8y=589
-FF9x=1694
-FF9y=595
-FF10x=1698
-FF10y=603
diff --git a/Maps/Satellite_Map_Large.bmp b/Maps/Satellite_Map_Large.bmp
deleted file mode 100644
index 41be8ba..0000000
Binary files a/Maps/Satellite_Map_Large.bmp and /dev/null differ
diff --git a/Maps/Satellite_Map_Large.trm b/Maps/Satellite_Map_Large.trm
deleted file mode 100644
index 67ca2fd..0000000
--- a/Maps/Satellite_Map_Large.trm
+++ /dev/null
@@ -1,300 +0,0 @@
-[Map]
-Desc=NASA Topographic Map of the World for 20"+ Widescreen Monitors 
-Author=Nathan Scarbrough - Credit to NASA Visible Earth team for the background image
-Revision=1.0 - Original image is at http://visibleearth.nasa.gov/view_rec.php?id=7130
-FontName=Arial
-FontSize=10
-[Territory_1]
-Color=24576
-Tx=118
-Ty=97
-FFCount=1
-FF1x=114
-FF1y=93
-[Territory_2]
-Color=16608
-Tx=240
-Ty=105
-FFCount=1
-FF1x=237
-FF1y=101
-[Territory_3]
-Color=12639424
-Tx=575
-Ty=61
-FFCount=1
-FF1x=571
-FF1y=57
-[Territory_4]
-Color=24768
-Tx=263
-Ty=155
-FFCount=1
-FF1x=260
-FF1y=152
-[Territory_5]
-Color=16480
-Tx=337
-Ty=155
-FFCount=1
-FF1x=333
-FF1y=152
-[Territory_6]
-Color=24800
-Tx=450
-Ty=157
-FFCount=1
-FF1x=446
-FF1y=154
-[Territory_7]
-Color=24672
-Tx=287
-Ty=215
-FFCount=1
-FF1x=283
-FF1y=212
-[Territory_8]
-Color=49152
-Tx=369
-Ty=218
-FFCount=1
-FF1x=365
-FF1y=215
-[Territory_9]
-Color=57536
-Tx=319
-Ty=298
-FFCount=1
-FF1x=315
-FF1y=295
-[Territory_10]
-Color=4194464
-Tx=460
-Ty=342
-FFCount=1
-FF1x=456
-FF1y=338
-[Territory_11]
-Color=4219104
-Tx=435
-Ty=413
-FFCount=1
-FF1x=431
-FF1y=409
-[Territory_12]
-Color=4194528
-Tx=539
-Ty=419
-FFCount=1
-FF1x=535
-FF1y=417
-[Territory_13]
-Color=4235488
-Tx=478
-Ty=515
-FFCount=1
-FF1x=475
-FF1y=511
-[Territory_14]
-Color=8388800
-Tx=736
-Ty=295
-FFCount=1
-FF1x=732
-FF1y=292
-[Territory_15]
-Color=8413184
-Tx=833
-Ty=268
-FFCount=1
-FF1x=829
-FF1y=264
-[Territory_16]
-Color=8388832
-Tx=907
-Ty=342
-FFCount=1
-FF1x=903
-FF1y=339
-[Territory_17]
-Color=8404992
-Tx=842
-Ty=381
-FFCount=1
-FF1x=838
-FF1y=378
-[Territory_18]
-Color=8405088
-Tx=853
-Ty=457
-FFCount=1
-FF1x=849
-FF1y=454
-[Territory_19]
-Color=8413376
-Tx=960
-Ty=457
-FFCount=1
-FF1x=956
-FF1y=454
-[Territory_20]
-Color=8437824
-Tx=692
-Ty=81
-FFCount=1
-FF1x=688
-FF1y=78
-[Territory_21]
-Color=8437952
-Tx=807
-Ty=87
-FFCount=1
-FF1x=803
-FF1y=85
-[Territory_22]
-Color=8429760
-Tx=894
-Ty=147
-FFCount=1
-FF1x=890
-FF1y=143
-[Territory_23]
-Color=8429568
-Tx=779
-Ty=155
-FFCount=1
-FF1x=776
-FF1y=152
-[Territory_24]
-Color=8437984
-Tx=700
-Ty=146
-FFCount=1
-FF1x=696
-FF1y=143
-[Territory_25]
-Color=8437920
-Tx=717
-Ty=194
-FFCount=1
-FF1x=713
-FF1y=190
-[Territory_26]
-Color=8446112
-Tx=785
-Ty=201
-FFCount=1
-FF1x=781
-FF1y=198
-[Territory_27]
-Color=12583104
-Tx=928
-Ty=251
-FFCount=1
-FF1x=924
-FF1y=248
-[Territory_28]
-Color=12591232
-Tx=1011
-Ty=128
-FFCount=1
-FF1x=1007
-FF1y=124
-[Territory_29]
-Color=12582912
-Tx=1003
-Ty=206
-FFCount=1
-FF1x=999
-FF1y=202
-[Territory_30]
-Color=12599520
-Tx=1075
-Ty=272
-FFCount=1
-FF1x=1071
-FF1y=268
-[Territory_31]
-Color=12632256
-Tx=1175
-Ty=284
-FFCount=1
-FF1x=1171
-FF1y=281
-[Territory_32]
-Color=12583072
-Tx=1146
-Ty=221
-FFCount=1
-FF1x=1142
-FF1y=217
-[Territory_33]
-Color=8413408
-Tx=1225
-Ty=195
-FFCount=1
-FF1x=1221
-FF1y=192
-[Territory_34]
-Color=12632128
-Tx=1116
-Ty=108
-FFCount=1
-FF1x=1112
-FF1y=105
-[Territory_35]
-Color=12615904
-Tx=1235
-Ty=88
-FFCount=1
-FF1x=1231
-FF1y=84
-[Territory_36]
-Color=12623936
-Tx=1210
-Ty=138
-FFCount=1
-FF1x=1206
-FF1y=135
-[Territory_37]
-Color=12624000
-Tx=1398
-Ty=117
-FFCount=1
-FF1x=1394
-FF1y=114
-[Territory_38]
-Color=12624096
-Tx=1358
-Ty=221
-FFCount=1
-FF1x=1354
-FF1y=218
-[Territory_39]
-Color=12583008
-Tx=1227
-Ty=364
-FFCount=1
-FF1x=1223
-FF1y=361
-[Territory_40]
-Color=12607488
-Tx=1267
-Ty=480
-FFCount=1
-FF1x=1263
-FF1y=477
-[Territory_41]
-Color=15780518
-Tx=1353
-Ty=491
-FFCount=1
-FF1x=1349
-FF1y=487
-[Territory_42]
-Color=12607680
-Tx=1343
-Ty=380
-FFCount=1
-FF1x=1339
-FF1y=377
diff --git a/Maps/Satellite_Map_Large_125%DPI.bmp b/Maps/Satellite_Map_Large_125%DPI.bmp
deleted file mode 100644
index 41be8ba..0000000
Binary files a/Maps/Satellite_Map_Large_125%DPI.bmp and /dev/null differ
diff --git a/Maps/Satellite_Map_Large_125%DPI.trm b/Maps/Satellite_Map_Large_125%DPI.trm
deleted file mode 100644
index a475d75..0000000
--- a/Maps/Satellite_Map_Large_125%DPI.trm
+++ /dev/null
@@ -1,300 +0,0 @@
-[Map]
-Desc=NASA Map for Large Fonts (125% Font Size DPI - Windows XP Style Scaling)
-Author=Nathan Scarbrough - Credit to NASA Visible Earth team
-Revision=1.0 - Identical to Satellite Map except for a smaller font size for Large Fonts compatibility
-FontName=Arial
-FontSize=8
-[Territory_1]
-Color=24576
-Tx=118
-Ty=97
-FFCount=1
-FF1x=114
-FF1y=93
-[Territory_2]
-Color=16608
-Tx=240
-Ty=105
-FFCount=1
-FF1x=237
-FF1y=101
-[Territory_3]
-Color=12639424
-Tx=575
-Ty=61
-FFCount=1
-FF1x=571
-FF1y=57
-[Territory_4]
-Color=24768
-Tx=263
-Ty=155
-FFCount=1
-FF1x=260
-FF1y=152
-[Territory_5]
-Color=16480
-Tx=337
-Ty=155
-FFCount=1
-FF1x=333
-FF1y=152
-[Territory_6]
-Color=24800
-Tx=450
-Ty=157
-FFCount=1
-FF1x=446
-FF1y=154
-[Territory_7]
-Color=24672
-Tx=287
-Ty=215
-FFCount=1
-FF1x=283
-FF1y=212
-[Territory_8]
-Color=49152
-Tx=369
-Ty=218
-FFCount=1
-FF1x=365
-FF1y=215
-[Territory_9]
-Color=57536
-Tx=319
-Ty=298
-FFCount=1
-FF1x=315
-FF1y=295
-[Territory_10]
-Color=4194464
-Tx=460
-Ty=342
-FFCount=1
-FF1x=456
-FF1y=338
-[Territory_11]
-Color=4219104
-Tx=435
-Ty=413
-FFCount=1
-FF1x=431
-FF1y=409
-[Territory_12]
-Color=4194528
-Tx=539
-Ty=419
-FFCount=1
-FF1x=535
-FF1y=417
-[Territory_13]
-Color=4235488
-Tx=478
-Ty=515
-FFCount=1
-FF1x=475
-FF1y=511
-[Territory_14]
-Color=8388800
-Tx=736
-Ty=295
-FFCount=1
-FF1x=732
-FF1y=292
-[Territory_15]
-Color=8413184
-Tx=833
-Ty=268
-FFCount=1
-FF1x=829
-FF1y=264
-[Territory_16]
-Color=8388832
-Tx=907
-Ty=342
-FFCount=1
-FF1x=903
-FF1y=339
-[Territory_17]
-Color=8404992
-Tx=842
-Ty=381
-FFCount=1
-FF1x=838
-FF1y=378
-[Territory_18]
-Color=8405088
-Tx=853
-Ty=457
-FFCount=1
-FF1x=849
-FF1y=454
-[Territory_19]
-Color=8413376
-Tx=960
-Ty=457
-FFCount=1
-FF1x=956
-FF1y=454
-[Territory_20]
-Color=8437824
-Tx=692
-Ty=81
-FFCount=1
-FF1x=688
-FF1y=78
-[Territory_21]
-Color=8437952
-Tx=807
-Ty=87
-FFCount=1
-FF1x=803
-FF1y=85
-[Territory_22]
-Color=8429760
-Tx=894
-Ty=147
-FFCount=1
-FF1x=890
-FF1y=143
-[Territory_23]
-Color=8429568
-Tx=779
-Ty=155
-FFCount=1
-FF1x=776
-FF1y=152
-[Territory_24]
-Color=8437984
-Tx=700
-Ty=146
-FFCount=1
-FF1x=696
-FF1y=143
-[Territory_25]
-Color=8437920
-Tx=717
-Ty=194
-FFCount=1
-FF1x=713
-FF1y=190
-[Territory_26]
-Color=8446112
-Tx=785
-Ty=201
-FFCount=1
-FF1x=781
-FF1y=198
-[Territory_27]
-Color=12583104
-Tx=928
-Ty=251
-FFCount=1
-FF1x=924
-FF1y=248
-[Territory_28]
-Color=12591232
-Tx=1011
-Ty=128
-FFCount=1
-FF1x=1007
-FF1y=124
-[Territory_29]
-Color=12582912
-Tx=1003
-Ty=206
-FFCount=1
-FF1x=999
-FF1y=202
-[Territory_30]
-Color=12599520
-Tx=1075
-Ty=272
-FFCount=1
-FF1x=1071
-FF1y=268
-[Territory_31]
-Color=12632256
-Tx=1175
-Ty=284
-FFCount=1
-FF1x=1171
-FF1y=281
-[Territory_32]
-Color=12583072
-Tx=1146
-Ty=221
-FFCount=1
-FF1x=1142
-FF1y=217
-[Territory_33]
-Color=8413408
-Tx=1225
-Ty=195
-FFCount=1
-FF1x=1221
-FF1y=192
-[Territory_34]
-Color=12632128
-Tx=1116
-Ty=108
-FFCount=1
-FF1x=1112
-FF1y=105
-[Territory_35]
-Color=12615904
-Tx=1235
-Ty=88
-FFCount=1
-FF1x=1231
-FF1y=84
-[Territory_36]
-Color=12623936
-Tx=1210
-Ty=138
-FFCount=1
-FF1x=1206
-FF1y=135
-[Territory_37]
-Color=12624000
-Tx=1398
-Ty=117
-FFCount=1
-FF1x=1394
-FF1y=114
-[Territory_38]
-Color=12624096
-Tx=1358
-Ty=221
-FFCount=1
-FF1x=1354
-FF1y=218
-[Territory_39]
-Color=12583008
-Tx=1227
-Ty=364
-FFCount=1
-FF1x=1223
-FF1y=361
-[Territory_40]
-Color=12607488
-Tx=1267
-Ty=480
-FFCount=1
-FF1x=1263
-FF1y=477
-[Territory_41]
-Color=15780518
-Tx=1353
-Ty=491
-FFCount=1
-FF1x=1349
-FF1y=487
-[Territory_42]
-Color=12607680
-Tx=1343
-Ty=380
-FFCount=1
-FF1x=1339
-FF1y=377
diff --git a/Maps/Satellite_Map_Medium.bmp b/Maps/Satellite_Map_Medium.bmp
deleted file mode 100644
index d72a4a0..0000000
Binary files a/Maps/Satellite_Map_Medium.bmp and /dev/null differ
diff --git a/Maps/Satellite_Map_Medium.trm b/Maps/Satellite_Map_Medium.trm
deleted file mode 100644
index 5acd0d8..0000000
--- a/Maps/Satellite_Map_Medium.trm
+++ /dev/null
@@ -1,300 +0,0 @@
-[Map]
-Desc=NASA Topographic Map of the World for 1280 X 800 or 1280 X 1024 screen resolution
-Author=Nathan Scarbrough - Credit to NASA Visible Earth team
-Revision=1.0 - Original image is at http://visibleearth.nasa.gov/view_rec.php?id=7130
-FontName=Arial
-FontSize=9
-[Territory_1]
-Color=24576
-Tx=98
-Ty=78
-FFCount=1
-FF1x=91
-FF1y=73
-[Territory_2]
-Color=16608
-Tx=224
-Ty=80
-FFCount=1
-FF1x=219
-FF1y=76
-[Territory_3]
-Color=12639424
-Tx=468
-Ty=45
-FFCount=1
-FF1x=462
-FF1y=41
-[Territory_4]
-Color=24768
-Tx=211
-Ty=128
-FFCount=1
-FF1x=206
-FF1y=124
-[Territory_5]
-Color=16480
-Tx=276
-Ty=119
-FFCount=1
-FF1x=269
-FF1y=115
-[Territory_6]
-Color=24800
-Tx=367
-Ty=125
-FFCount=1
-FF1x=362
-FF1y=121
-[Territory_7]
-Color=24672
-Tx=228
-Ty=173
-FFCount=1
-FF1x=221
-FF1y=168
-[Territory_8]
-Color=49152
-Tx=296
-Ty=176
-FFCount=1
-FF1x=290
-FF1y=172
-[Territory_9]
-Color=57536
-Tx=252
-Ty=229
-FFCount=1
-FF1x=247
-FF1y=225
-[Territory_10]
-Color=4194464
-Tx=380
-Ty=283
-FFCount=1
-FF1x=374
-FF1y=278
-[Territory_11]
-Color=4219104
-Tx=366
-Ty=342
-FFCount=1
-FF1x=360
-FF1y=338
-[Territory_12]
-Color=4194528
-Tx=443
-Ty=335
-FFCount=1
-FF1x=438
-FF1y=332
-[Territory_13]
-Color=4235488
-Tx=394
-Ty=405
-FFCount=1
-FF1x=388
-FF1y=400
-[Territory_14]
-Color=8388800
-Tx=615
-Ty=235
-FFCount=1
-FF1x=610
-FF1y=231
-[Territory_15]
-Color=8413184
-Tx=684
-Ty=221
-FFCount=1
-FF1x=679
-FF1y=216
-[Territory_16]
-Color=8388832
-Tx=730
-Ty=273
-FFCount=1
-FF1x=723
-FF1y=268
-[Territory_17]
-Color=8404992
-Tx=680
-Ty=317
-FFCount=1
-FF1x=673
-FF1y=312
-[Territory_18]
-Color=8405088
-Tx=695
-Ty=374
-FFCount=1
-FF1x=689
-FF1y=370
-[Territory_19]
-Color=8413376
-Tx=787
-Ty=373
-FFCount=1
-FF1x=780
-FF1y=368
-[Territory_20]
-Color=8437824
-Tx=548
-Ty=61
-FFCount=1
-FF1x=542
-FF1y=57
-[Territory_21]
-Color=8437952
-Tx=681
-Ty=65
-FFCount=1
-FF1x=676
-FF1y=62
-[Territory_22]
-Color=8429760
-Tx=747
-Ty=112
-FFCount=1
-FF1x=741
-FF1y=109
-[Territory_23]
-Color=8429568
-Tx=632
-Ty=125
-FFCount=1
-FF1x=627
-FF1y=123
-[Territory_24]
-Color=8437984
-Tx=581
-Ty=103
-FFCount=1
-FF1x=575
-FF1y=99
-[Territory_25]
-Color=8437920
-Tx=584
-Ty=155
-FFCount=1
-FF1x=578
-FF1y=151
-[Territory_26]
-Color=8446112
-Tx=678
-Ty=146
-FFCount=1
-FF1x=673
-FF1y=143
-[Territory_27]
-Color=12583104
-Tx=779
-Ty=198
-FFCount=1
-FF1x=773
-FF1y=194
-[Territory_28]
-Color=12591232
-Tx=876
-Ty=98
-FFCount=1
-FF1x=869
-FF1y=93
-[Territory_29]
-Color=12582912
-Tx=844
-Ty=157
-FFCount=1
-FF1x=838
-FF1y=153
-[Territory_30]
-Color=12599520
-Tx=873
-Ty=214
-FFCount=1
-FF1x=867
-FF1y=209
-[Territory_31]
-Color=12632256
-Tx=958
-Ty=237
-FFCount=1
-FF1x=953
-FF1y=234
-[Territory_32]
-Color=12583072
-Tx=953
-Ty=189
-FFCount=1
-FF1x=947
-FF1y=184
-[Territory_33]
-Color=8413408
-Tx=988
-Ty=145
-FFCount=1
-FF1x=982
-FF1y=140
-[Territory_34]
-Color=12632128
-Tx=941
-Ty=84
-FFCount=1
-FF1x=935
-FF1y=81
-[Territory_35]
-Color=12615904
-Tx=1030
-Ty=65
-FFCount=1
-FF1x=1024
-FF1y=60
-[Territory_36]
-Color=12623936
-Tx=1008
-Ty=105
-FFCount=1
-FF1x=1002
-FF1y=101
-[Territory_37]
-Color=12624000
-Tx=1090
-Ty=92
-FFCount=1
-FF1x=1085
-FF1y=88
-[Territory_38]
-Color=12624096
-Tx=1106
-Ty=186
-FFCount=1
-FF1x=1100
-FF1y=182
-[Territory_39]
-Color=12583008
-Tx=1001
-Ty=301
-FFCount=1
-FF1x=995
-FF1y=296
-[Territory_40]
-Color=12607488
-Tx=1034
-Ty=390
-FFCount=1
-FF1x=1027
-FF1y=385
-[Territory_41]
-Color=15780518
-Tx=1104
-Ty=393
-FFCount=1
-FF1x=1098
-FF1y=390
-[Territory_42]
-Color=12607680
-Tx=1103
-Ty=307
-FFCount=1
-FF1x=1097
-FF1y=304
diff --git a/Maps/Satellite_Map_Small.bmp b/Maps/Satellite_Map_Small.bmp
deleted file mode 100644
index 07bf580..0000000
Binary files a/Maps/Satellite_Map_Small.bmp and /dev/null differ
diff --git a/Maps/Satellite_Map_Small.trm b/Maps/Satellite_Map_Small.trm
deleted file mode 100644
index edfe857..0000000
--- a/Maps/Satellite_Map_Small.trm
+++ /dev/null
@@ -1,300 +0,0 @@
-[Map]
-Desc=NASA Topographic Map of the World for 1024 X 768 screen resolution 
-Author=Nathan Scarbrough - Credit to NASA Visible Earth team
-Revision=1.0 - Clarity is better on the hi-res version
-FontName=Arial
-FontSize=7
-[Territory_1]
-Color=24576
-Tx=77
-Ty=63
-FFCount=1
-FF1x=73
-FF1y=59
-[Territory_2]
-Color=16608
-Tx=158
-Ty=68
-FFCount=1
-FF1x=154
-FF1y=64
-[Territory_3]
-Color=12639424
-Tx=379
-Ty=39
-FFCount=1
-FF1x=375
-FF1y=35
-[Territory_4]
-Color=24768
-Tx=173
-Ty=101
-FFCount=1
-FF1x=169
-FF1y=97
-[Territory_5]
-Color=16480
-Tx=222
-Ty=102
-FFCount=1
-FF1x=218
-FF1y=98
-[Territory_6]
-Color=24800
-Tx=296
-Ty=103
-FFCount=1
-FF1x=292
-FF1y=99
-[Territory_7]
-Color=24672
-Tx=189
-Ty=141
-FFCount=1
-FF1x=185
-FF1y=137
-[Territory_8]
-Color=49152
-Tx=243
-Ty=143
-FFCount=1
-FF1x=239
-FF1y=139
-[Territory_9]
-Color=57536
-Tx=210
-Ty=196
-FFCount=1
-FF1x=206
-FF1y=192
-[Territory_10]
-Color=4194464
-Tx=303
-Ty=225
-FFCount=1
-FF1x=299
-FF1y=221
-[Territory_11]
-Color=4219104
-Tx=286
-Ty=272
-FFCount=1
-FF1x=282
-FF1y=268
-[Territory_12]
-Color=4194528
-Tx=355
-Ty=276
-FFCount=1
-FF1x=351
-FF1y=272
-[Territory_13]
-Color=4235488
-Tx=315
-Ty=339
-FFCount=1
-FF1x=311
-FF1y=335
-[Territory_14]
-Color=8388800
-Tx=485
-Ty=194
-FFCount=1
-FF1x=481
-FF1y=190
-[Territory_15]
-Color=8413184
-Tx=549
-Ty=176
-FFCount=1
-FF1x=545
-FF1y=172
-[Territory_16]
-Color=8388832
-Tx=598
-Ty=225
-FFCount=1
-FF1x=594
-FF1y=221
-[Territory_17]
-Color=8404992
-Tx=555
-Ty=251
-FFCount=1
-FF1x=551
-FF1y=247
-[Territory_18]
-Color=8405088
-Tx=562
-Ty=301
-FFCount=1
-FF1x=558
-FF1y=297
-[Territory_19]
-Color=8413376
-Tx=633
-Ty=301
-FFCount=1
-FF1x=629
-FF1y=297
-[Territory_20]
-Color=8437824
-Tx=456
-Ty=53
-FFCount=1
-FF1x=452
-FF1y=49
-[Territory_21]
-Color=8437952
-Tx=532
-Ty=57
-FFCount=1
-FF1x=528
-FF1y=53
-[Territory_22]
-Color=8429760
-Tx=589
-Ty=96
-FFCount=1
-FF1x=585
-FF1y=92
-[Territory_23]
-Color=8429568
-Tx=513
-Ty=102
-FFCount=1
-FF1x=509
-FF1y=98
-[Territory_24]
-Color=8437984
-Tx=461
-Ty=96
-FFCount=1
-FF1x=457
-FF1y=92
-[Territory_25]
-Color=8437920
-Tx=472
-Ty=127
-FFCount=1
-FF1x=468
-FF1y=123
-[Territory_26]
-Color=8446112
-Tx=517
-Ty=132
-FFCount=1
-FF1x=513
-FF1y=128
-[Territory_27]
-Color=12583104
-Tx=612
-Ty=165
-FFCount=1
-FF1x=608
-FF1y=161
-[Territory_28]
-Color=12591232
-Tx=667
-Ty=84
-FFCount=1
-FF1x=663
-FF1y=80
-[Territory_29]
-Color=12582912
-Tx=661
-Ty=135
-FFCount=1
-FF1x=657
-FF1y=131
-[Territory_30]
-Color=12599520
-Tx=709
-Ty=179
-FFCount=1
-FF1x=705
-FF1y=175
-[Territory_31]
-Color=12632256
-Tx=775
-Ty=187
-FFCount=1
-FF1x=771
-FF1y=183
-[Territory_32]
-Color=12583072
-Tx=756
-Ty=145
-FFCount=1
-FF1x=752
-FF1y=141
-[Territory_33]
-Color=8413408
-Tx=808
-Ty=128
-FFCount=1
-FF1x=804
-FF1y=124
-[Territory_34]
-Color=12632128
-Tx=736
-Ty=71
-FFCount=1
-FF1x=732
-FF1y=67
-[Territory_35]
-Color=12615904
-Tx=814
-Ty=57
-FFCount=1
-FF1x=810
-FF1y=53
-[Territory_36]
-Color=12623936
-Tx=798
-Ty=90
-FFCount=1
-FF1x=794
-FF1y=86
-[Territory_37]
-Color=12624000
-Tx=922
-Ty=76
-FFCount=1
-FF1x=918
-FF1y=72
-[Territory_38]
-Color=12624096
-Tx=896
-Ty=145
-FFCount=1
-FF1x=892
-FF1y=141
-[Territory_39]
-Color=12583008
-Tx=809
-Ty=239
-FFCount=1
-FF1x=805
-FF1y=235
-[Territory_40]
-Color=12607488
-Tx=836
-Ty=316
-FFCount=1
-FF1x=831
-FF1y=312
-[Territory_41]
-Color=15780518
-Tx=892
-Ty=323
-FFCount=1
-FF1x=888
-FF1y=319
-[Territory_42]
-Color=12607680
-Tx=886
-Ty=250
-FFCount=1
-FF1x=882
-FF1y=246
diff --git a/Maps/Simplified 2k.bmp b/Maps/Simplified 2k.bmp
deleted file mode 100644
index e68c181..0000000
Binary files a/Maps/Simplified 2k.bmp and /dev/null differ
diff --git a/Maps/Simplified 2k.trm b/Maps/Simplified 2k.trm
deleted file mode 100644
index 57a267f..0000000
--- a/Maps/Simplified 2k.trm	
+++ /dev/null
@@ -1,448 +0,0 @@
-[Map]
-Desc=Simplified map fitting in 2k resolutions
-FontName=Courier New
-FontSize=14
-Author=GW - Credit to Nathan Scarbrough for colours
-Revision=1.1
-TextFG=0
-TextBG=16777215
-[Territory_1]
-Color=32896
-Tx=110
-Ty=91
-FFCount=1
-FF1x=42
-FF1y=121
-[Territory_2]
-Color=2576464
-Tx=246
-Ty=96
-FFCount=3
-FF1x=196
-FF1y=75
-FF2x=306
-FF2y=58
-FF3x=349
-FF3y=66
-[Territory_3]
-Color=131071
-Tx=661
-Ty=43
-FFCount=11
-FF1x=347
-FF1y=136
-FF2x=443
-FF2y=107
-FF3x=406
-FF3y=78
-FF4x=418
-FF4y=59
-FF5x=439
-FF5y=57
-FF6x=497
-FF6y=66
-FF7x=490
-FF7y=45
-FF8x=519
-FF8y=79
-FF9x=526
-FF9y=30
-FF10x=495
-FF10y=21
-FF11x=650
-FF11y=43
-[Territory_4]
-Color=65535
-Tx=195
-Ty=163
-FFCount=1
-FF1x=181
-FF1y=145
-[Territory_5]
-Color=4822164
-Tx=307
-Ty=166
-FFCount=1
-FF1x=282
-FF1y=143
-[Territory_6]
-Color=8388607
-Tx=462
-Ty=154
-FFCount=2
-FF1x=421
-FF1y=184
-FF2x=533
-FF2y=199
-[Territory_7]
-Color=2642000
-Tx=158
-Ty=247
-FFCount=1
-FF1x=119
-FF1y=253
-[Territory_8]
-Color=98432
-Tx=304
-Ty=268
-FFCount=1
-FF1x=284
-FF1y=216
-[Territory_9]
-Color=8454143
-Tx=185
-Ty=338
-FFCount=5
-FF1x=134
-FF1y=312
-FF2x=329
-FF2y=374
-FF3x=350
-FF3y=404
-FF4x=384
-FF4y=399
-FF5x=418
-FF5y=404
-FF6x=240
-FF6y=405
-[Territory_10]
-Color=8421631
-Tx=378
-Ty=478
-FFCount=1
-FF1x=351
-FF1y=476
-FF2x=285
-FF2y=428
-FF3x=262
-FF3y=397
-[Territory_11]
-Color=128
-Tx=404
-Ty=613
-FFCount=1
-FF1x=337
-FF1y=569
-FF2x=313
-FF2y=527
-[Territory_12]
-Color=4210816
-Tx=511
-Ty=578
-FFCount=1
-FF1x=400
-FF1y=533
-[Territory_13]
-Color=255
-Tx=435
-Ty=720
-FFCount=2
-FF1x=409
-FF1y=665
-FF2x=473
-FF2y=888
-[Territory_14]
-Color=6001151
-Tx=821
-Ty=390
-FFCount=1
-FF1x=752
-FF1y=380
-[Territory_15]
-Color=16512
-Tx=960
-Ty=343
-FFCount=1
-FF1x=909
-FF1y=312
-[Territory_16]
-Color=33023
-Tx=1039
-Ty=456
-FFCount=1
-FF1x=994
-FF1y=402
-[Territory_17]
-Color=1071022
-Tx=970
-Ty=540
-FFCount=1
-FF1x=954
-FF1y=505
-FF2x=542
-FF2y=472
-[Territory_18]
-Color=1327232
-Tx=971
-Ty=656
-FFCount=1
-FF1x=929
-FF1y=582
-[Territory_19]
-Color=22446
-Tx=1146
-Ty=658
-FFCount=1
-FF1x=1117
-FF1y=645
-[Territory_20]
-Color=16711937
-Tx=782
-Ty=73
-FFCount=1
-FF1x=751
-FF1y=101
-[Territory_21]
-Color=16744450
-Tx=893
-Ty=115
-FFCount=1
-FF1x=881
-FF1y=126
-FF2x=545
-FF2y=154
-[Territory_22]
-Color=8388608
-Tx=1052
-Ty=147
-FFCount=1
-FF1x=979
-FF1y=145
-FF2x=1129
-FF2y=75
-[Territory_23]
-Color=16711680
-Tx=918
-Ty=173
-FFCount=2
-FF1x=879
-FF1y=182
-FF2x=905
-FF2y=158
-FF3x=517
-FF3y=201
-FF4x=524
-FF4y=201
-[Territory_24]
-Color=8404994
-Tx=754
-Ty=165
-FFCount=2
-FF1x=800
-FF1y=168
-FF2x=833
-FF2y=177
-[Territory_25]
-Color=16744448
-Tx=797
-Ty=244
-FFCount=3
-FF1x=797
-FF1y=241
-FF2x=856
-FF2y=265
-FF3x=893
-FF3y=245
-[Territory_26]
-Color=8404992
-Tx=946
-Ty=218
-FFCount=4
-FF1x=898
-FF1y=216
-FF2x=891
-FF2y=259
-FF3x=920
-FF3y=275
-FF4x=920
-FF4y=290
-[Territory_27]
-Color=17920
-Tx=1078
-Ty=293
-FFCount=1
-FF1x=1013
-FF1y=270
-[Territory_28]
-Color=8454016
-Tx=1219
-Ty=149
-FFCount=1
-FF1x=1214
-FF1y=69
-[Territory_29]
-Color=32768
-Tx=1208
-Ty=248
-FFCount=1
-FF1x=1136
-FF1y=202
-[Territory_30]
-Color=8421415
-Tx=1302
-Ty=351
-FFCount=1
-FF1x=1230
-FF1y=335
-FF2x=1272
-FF2y=527
-FF3x=687
-FF3y=395
-[Territory_31]
-Color=8447104
-Tx=1455
-Ty=403
-FFCount=2
-FF1x=1441
-FF1y=389
-FF2x=1517
-FF2y=400
-FF3x=756
-FF3y=421
-FF4x=817
-FF4y=391
-FF5x=811
-FF5y=396
-FF6x=800
-FF6y=398
-FF7x=820
-FF7y=404
-FF8x=794
-FF8y=413
-FF9x=737
-FF9y=417
-FF10x=807
-FF10y=433
-FF11x=804
-FF11y=439
-FF12x=765
-FF12y=460
-FF13x=798
-FF13y=467
-[Territory_32]
-Color=4227072
-Tx=1440
-Ty=316
-FFCount=2
-FF1x=1590
-FF1y=365
-FF2x=1301
-FF2y=303
-[Territory_33]
-Color=16384
-Tx=1474
-Ty=253
-FFCount=1
-FF1x=1381
-FF1y=256
-[Territory_34]
-Color=98304
-Tx=1312
-Ty=116
-FFCount=1
-FF1x=1267
-FF1y=83
-[Territory_35]
-Color=8421376
-Tx=1451
-Ty=103
-FFCount=1
-FF1x=1385
-FF1y=60
-[Territory_36]
-Color=65408
-Tx=1451
-Ty=189
-FFCount=1
-FF1x=1428
-FF1y=213
-FF2x=831
-FF2y=184
-[Territory_37]
-Color=4215296
-Tx=1639
-Ty=90
-FFCount=1
-FF1x=1562
-FF1y=122
-[Territory_38]
-Color=1376128
-Tx=1706
-Ty=246
-FFCount=4
-FF1x=1661
-FF1y=196
-FF2x=1685
-FF2y=238
-FF3x=1697
-FF3y=277
-FF4x=1656
-FF4y=310
-[Territory_39]
-Color=16711808
-Tx=1534
-Ty=517
-FFCount=15
-FF1x=1457
-FF1y=507
-FF2x=1532
-FF2y=519
-FF3x=1513
-FF3y=573
-FF4x=1595
-FF4y=417
-FF5x=1624
-FF5y=449
-FF6x=1615
-FF6y=456
-FF7x=1609
-FF7y=464
-FF8x=1605
-FF8y=453
-FF9x=1596
-FF9y=445
-FF10x=1583
-FF10y=461
-FF11x=1642
-FF11y=520
-FF12x=1611
-FF12y=522
-FF13x=1601
-FF13y=584
-FF14x=1625
-FF14y=588
-FF15x=1591
-FF15y=593
-[Territory_40]
-Color=4194432
-Tx=1563
-Ty=672
-FFCount=1
-FF1x=1510
-FF1y=696
-[Territory_41]
-Color=4194368
-Tx=1662
-Ty=708
-FFCount=3
-FF1x=1693
-FF1y=706
-FF2x=1758
-FF2y=834
-FF3x=1833
-FF3y=789
-FF4x=1723
-FF4y=797
-[Territory_42]
-Color=16711935
-Tx=1738
-Ty=525
-FFCount=4
-FF1x=1679
-FF1y=537
-FF2x=1735
-FF2y=570
-FF3x=1785
-FF3y=568
-FF4x=1796
-FF4y=552
diff --git a/Maps/Simplified Mercator 2k.bmp b/Maps/Simplified Mercator 2k.bmp
deleted file mode 100644
index 076cd6c..0000000
Binary files a/Maps/Simplified Mercator 2k.bmp and /dev/null differ
diff --git a/Maps/Simplified Mercator 2k.trm b/Maps/Simplified Mercator 2k.trm
deleted file mode 100644
index 2088a67..0000000
--- a/Maps/Simplified Mercator 2k.trm	
+++ /dev/null
@@ -1,506 +0,0 @@
-[Map]
-Desc=Simplified Mercator map fitting in 2k resolutions
-FontName=Courier New
-FontSize=14
-Author=GW - Credit to Nathan Scarbrough for colours
-Revision=1.0
-TextFG=0
-TextBG=16777215
-[Territory_1]
-Color=32896
-Tx=56
-Ty=104
-FFCount=1
-FF1x=20
-FF1y=75
-FF2x=80
-FF2y=191
-FF3x=186
-FF3y=227
-[Territory_2]
-Color=2576464
-Tx=224
-Ty=99
-FFCount=2
-FF1x=171
-FF1y=80
-FF2x=304
-FF2y=31
-FF3x=269
-FF3y=12
-[Territory_3]
-Color=131071
-Tx=646
-Ty=60
-FFCount=3
-FF1x=431
-FF1y=12
-FF2x=607
-FF2y=18
-FF3x=354
-FF3y=76
-FF4x=351
-FF4y=88
-FF5x=410
-FF5y=5
-FF6x=473
-FF6y=76
-FF7x=428
-FF7y=116
-FF8x=605
-FF8y=7
-FF9x=526
-FF9y=30
-FF10x=495
-FF10y=21
-FF11x=650
-FF11y=43
-[Territory_4]
-Color=65535
-Tx=233
-Ty=204
-FFCount=1
-FF1x=194
-FF1y=180
-FF2x=219
-FF2y=257
-[Territory_5]
-Color=4822164
-Tx=345
-Ty=207
-FFCount=1
-FF1x=308
-FF1y=176
-[Territory_6]
-Color=8388607
-Tx=496
-Ty=222
-FFCount=1
-FF1x=479
-FF1y=159
-FF2x=571
-FF2y=269
-FF3x=538
-FF3y=262
-[Territory_7]
-Color=2642000
-Tx=280
-Ty=309
-FFCount=1
-FF1x=244
-FF1y=276
-[Territory_8]
-Color=98432
-Tx=406
-Ty=340
-FFCount=1
-FF1x=388
-FF1y=279
-[Territory_9]
-Color=8454143
-Tx=344
-Ty=430
-FFCount=2
-FF1x=293
-FF1y=392
-FF2x=467
-FF2y=444
-FF3x=463
-FF3y=424
-FF4x=467
-FF4y=460
-FF5x=497
-FF5y=451
-FF6x=521
-FF6y=459
-[Territory_10]
-Color=8421631
-Tx=485
-Ty=511
-FFCount=1
-FF1x=483
-FF1y=523
-FF2x=285
-FF2y=428
-FF3x=262
-FF3y=397
-[Territory_11]
-Color=128
-Tx=506
-Ty=621
-FFCount=1
-FF1x=478
-FF1y=574
-FF2x=313
-FF2y=527
-[Territory_12]
-Color=4210816
-Tx=582
-Ty=592
-FFCount=1
-FF1x=568
-FF1y=594
-[Territory_13]
-Color=255
-Tx=506
-Ty=748
-FFCount=1
-FF1x=515
-FF1y=680
-FF2x=556
-FF2y=858
-FF3x=569
-FF3y=857
-[Territory_14]
-Color=6001151
-Tx=858
-Ty=436
-FFCount=1
-FF1x=846
-FF1y=382
-[Territory_15]
-Color=16512
-Tx=979
-Ty=397
-FFCount=1
-FF1x=950
-FF1y=388
-[Territory_16]
-Color=33023
-Tx=1047
-Ty=498
-FFCount=1
-FF1x=1025
-FF1y=452
-[Territory_17]
-Color=1071022
-Tx=977
-Ty=552
-FFCount=1
-FF1x=984
-FF1y=537
-FF2x=542
-FF2y=472
-[Territory_18]
-Color=1327232
-Tx=980
-Ty=646
-FFCount=1
-FF1x=953
-FF1y=596
-[Territory_19]
-Color=22446
-Tx=1127
-Ty=643
-FFCount=1
-FF1x=1113
-FF1y=635
-[Territory_20]
-Color=16711937
-Tx=758
-Ty=66
-FFCount=1
-FF1x=770
-FF1y=99
-[Territory_21]
-Color=16744450
-Tx=921
-Ty=138
-FFCount=1
-FF1x=908
-FF1y=151
-FF2x=968
-FF2y=189
-FF3x=943
-FF3y=70
-[Territory_22]
-Color=8388608
-Tx=1065
-Ty=187
-FFCount=1
-FF1x=1048
-FF1y=203
-FF2x=1123
-FF2y=55
-FF3x=1149
-FF3y=11
-[Territory_23]
-Color=16711680
-Tx=930
-Ty=235
-FFCount=1
-FF1x=911
-FF1y=242
-FF2x=905
-FF2y=158
-FF3x=517
-FF3y=201
-FF4x=524
-FF4y=201
-[Territory_24]
-Color=8404994
-Tx=786
-Ty=221
-FFCount=2
-FF1x=833
-FF1y=227
-FF2x=856
-FF2y=224
-FF3x=868
-FF3y=161
-FF4x=859
-FF4y=174
-FF5x=840
-FF5y=185
-[Territory_25]
-Color=16744448
-Tx=867
-Ty=270
-FFCount=1
-FF1x=833
-FF1y=311
-FF2x=890
-FF2y=330
-FF3x=920
-FF3y=312
-[Territory_26]
-Color=8404992
-Tx=966
-Ty=280
-FFCount=1
-FF1x=920
-FF1y=276
-FF2x=922
-FF2y=326
-FF3x=949
-FF3y=344
-FF4x=1003
-FF4y=358
-[Territory_27]
-Color=17920
-Tx=1076
-Ty=356
-FFCount=1
-FF1x=1021
-FF1y=326
-FF2x=1044
-FF2y=359
-FF3x=1017
-FF3y=351
-[Territory_28]
-Color=8454016
-Tx=1240
-Ty=149
-FFCount=1
-FF1x=1198
-FF1y=110
-[Territory_29]
-Color=32768
-Tx=1192
-Ty=287
-FFCount=1
-FF1x=1142
-FF1y=257
-[Territory_30]
-Color=8421415
-Tx=1259
-Ty=405
-FFCount=1
-FF1x=1203
-FF1y=399
-FF2x=1283
-FF2y=510
-FF3x=687
-FF3y=395
-[Territory_31]
-Color=8447104
-Tx=1379
-Ty=451
-FFCount=1
-FF1x=1362
-FF1y=443
-FF2x=1431
-FF2y=450
-FF3x=756
-FF3y=421
-FF4x=817
-FF4y=391
-FF5x=811
-FF5y=396
-FF6x=800
-FF6y=398
-FF7x=820
-FF7y=404
-FF8x=794
-FF8y=413
-FF9x=737
-FF9y=417
-FF10x=807
-FF10y=433
-FF11x=804
-FF11y=439
-FF12x=765
-FF12y=460
-FF13x=798
-FF13y=467
-[Territory_32]
-Color=4227072
-Tx=1365
-Ty=343
-FFCount=1
-FF1x=1326
-FF1y=321
-FF2x=1489
-FF2y=430
-[Territory_33]
-Color=16384
-Tx=1441
-Ty=276
-FFCount=1
-FF1x=1357
-FF1y=277
-[Territory_34]
-Color=98304
-Tx=1348
-Ty=109
-FFCount=1
-FF1x=1284
-FF1y=22
-[Territory_35]
-Color=8421376
-Tx=1510
-Ty=80
-FFCount=1
-FF1x=1445
-FF1y=29
-[Territory_36]
-Color=65408
-Tx=1445
-Ty=195
-FFCount=1
-FF1x=1450
-FF1y=174
-FF2x=831
-FF2y=184
-[Territory_37]
-Color=4215296
-Tx=1717
-Ty=88
-FFCount=1
-FF1x=1697
-FF1y=64
-FF2x=1795
-FF2y=25
-FF3x=1667
-FF3y=251
-FF4x=1602
-FF4y=251
-[Territory_38]
-Color=1376128
-Tx=1601
-Ty=318
-FFCount=2
-FF1x=1602
-FF1y=300
-FF2x=1580
-FF2y=350
-FF3x=1581
-FF3y=350
-FF4x=1602
-FF4y=300
-FF5x=1629
-FF5y=291
-FF6x=1639
-FF6y=285
-[Territory_39]
-Color=16711808
-Tx=1420
-Ty=555
-FFCount=5
-FF1x=1402
-FF1y=559
-FF2x=1442
-FF2y=587
-FF3x=1454
-FF3y=544
-FF4x=1499
-FF4y=554
-FF5x=1508
-FF5y=489
-FF6x=1514
-FF6y=595
-FF7x=1487
-FF7y=561
-FF8x=1474
-FF8y=502
-FF9x=1482
-FF9y=496
-FF10x=1491
-FF10y=461
-FF11x=1511
-FF11y=486
-FF12x=1511
-FF12y=513
-FF13x=1434
-FF13y=546
-FF14x=1625
-FF14y=588
-FF15x=1591
-FF15y=593
-[Territory_40]
-Color=4194432
-Tx=1485
-Ty=661
-FFCount=1
-FF1x=1514
-FF1y=685
-FF2x=1542
-FF2y=607
-[Territory_41]
-Color=4194368
-Tx=1588
-Ty=693
-FFCount=2
-FF1x=1594
-FF1y=715
-FF2x=1770
-FF2y=768
-FF3x=1628
-FF3y=770
-FF4x=1746
-FF4y=792
-FF5x=1772
-FF5y=759
-FF6x=1718
-FF6y=659
-FF7x=1783
-FF7y=641
-FF8x=1788
-FF8y=634
-FF9x=1551
-FF9y=685
-[Territory_42]
-Color=16711935
-Tx=1580
-Ty=570
-FFCount=2
-FF1x=1554
-FF1y=561
-FF2x=1627
-FF2y=594
-FF3x=1537
-FF3y=565
-FF4x=1573
-FF4y=565
-FF5x=1559
-FF5y=578
-FF6x=1636
-FF6y=578
-FF7x=1667
-FF7y=582
-FF8x=1684
-FF8y=589
-FF9x=1694
-FF9y=595
-FF10x=1698
-FF10y=603
diff --git a/Maps/diagram_large.bmp b/Maps/diagram_large.bmp
deleted file mode 100644
index 48a85f9..0000000
Binary files a/Maps/diagram_large.bmp and /dev/null differ
diff --git a/Maps/diagram_large.trm b/Maps/diagram_large.trm
deleted file mode 100644
index 7a400f1..0000000
--- a/Maps/diagram_large.trm
+++ /dev/null
@@ -1,705 +0,0 @@
-[Map]
-Desc=Diagram style map - Large
-FontName=Courier New
-FontSize=12
-Author=Mario Ferrari
-Revision=1.0
-
-[Territory_1]
-Color=24576
-Tx=9
-Ty=75
-FFCount=1
-FF1x=44
-FF1y=128
-
-[Territory_2]
-Color=16608
-Tx=94
-Ty=77
-FFCount=1
-FF1x=133
-FF1y=129
-FF2x=92
-FF2y=25
-
-[Territory_3]
-Color=12639424
-Tx=307
-Ty=22
-FFCount=1
-FF1x=353
-FF1y=39
-FF2x=142
-FF2y=21
-FF3x=118
-FF3y=22
-FF4x=129
-FF4y=37
-
-[Territory_4]
-Color=24768
-Tx=70
-Ty=178
-FFCount=1
-FF1x=126
-FF1y=178
-
-[Territory_5]
-Name=Ontario
-Cont=1
-Color=16480
-BCount=6
-B_1=2
-B_2=3
-B_3=4
-B_4=6
-B_5=7
-B_6=8
-Tx=186
-Ty=158
-FFCount=1
-FF1x=200
-FF1y=213
-
-[Territory_6]
-Name=Quebec
-Cont=1
-Color=24800
-BCount=3
-B_1=3
-B_2=5
-B_3=8
-Tx=302
-Ty=187
-FFCount=1
-FF1x=277
-FF1y=183
-
-[Territory_7]
-Name=Western US
-Cont=1
-Color=24672
-BCount=4
-B_1=4
-B_2=5
-B_3=8
-B_4=9
-Tx=104
-Ty=258
-FFCount=1
-FF1x=157
-FF1y=254
-
-[Territory_8]
-Name=Eastern US
-Cont=1
-Color=49152
-BCount=4
-B_1=5
-B_2=6
-B_3=7
-B_4=9
-Tx=250
-Ty=282
-FFCount=1
-FF1x=224
-FF1y=274
-
-[Territory_9]
-Name=Central America
-Cont=1
-Color=57536
-BCount=3
-B_1=7
-B_2=8
-B_3=10
-Tx=130
-Ty=339
-FFCount=1
-FF1x=184
-FF1y=342
-FF2x=149
-FF2y=221
-FF3x=168
-FF3y=230
-FF4x=178
-FF4y=233
-FF5x=159
-FF5y=235
-
-[Territory_10]
-Name=Venezuela
-Cont=2
-Color=4194464
-BCount=3
-B_1=9
-B_2=11
-B_3=12
-Tx=226
-Ty=402
-FFCount=1
-FF1x=275
-FF1y=385
-
-[Territory_11]
-Name=Peru
-Cont=2
-Color=4219104
-BCount=3
-B_1=10
-B_2=12
-B_3=13
-Tx=205
-Ty=471
-FFCount=1
-FF1x=259
-FF1y=468
-
-[Territory_12]
-Name=Brazil
-Cont=2
-Color=4194528
-BCount=4
-B_1=10
-B_2=11
-B_3=13
-B_4=14
-Tx=362
-Ty=462
-FFCount=1
-FF1x=333
-FF1y=460
-
-[Territory_13]
-Name=Argentina
-Cont=2
-Color=4235488
-BCount=2
-B_1=11
-B_2=12
-Tx=235
-Ty=560
-FFCount=1
-FF1x=278
-FF1y=580
-FF2x=190
-FF2y=413
-
-[Territory_14]
-Name=North Africa
-Cont=3
-Color=8388800
-BCount=6
-B_1=25
-B_2=26
-B_3=12
-B_4=15
-B_5=16
-B_6=17
-Tx=398
-Ty=347
-FFCount=1
-FF1x=453
-FF1y=350
-
-[Territory_15]
-Name=Egypt
-Cont=3
-Color=8413184
-BCount=4
-B_1=14
-B_2=16
-B_3=26
-B_4=27
-Tx=518
-Ty=358
-FFCount=1
-FF1x=537
-FF1y=319
-
-[Territory_16]
-Name=East Africa
-Cont=3
-Color=8388832
-BCount=6
-B_1=14
-B_2=15
-B_3=17
-B_4=18
-B_5=19
-B_6=27
-Tx=603
-Ty=397
-FFCount=1
-FF1x=576
-FF1y=393
-
-[Territory_17]
-Name=Congo
-Cont=3
-Color=8404992
-BCount=3
-B_1=14
-B_2=16
-B_3=18
-Tx=473
-Ty=445
-FFCount=1
-FF1x=526
-FF1y=436
-
-[Territory_18]
-Name=South Africa
-Cont=3
-Color=8405088
-BCount=3
-B_1=16
-B_2=17
-B_3=19
-Tx=488
-Ty=533
-FFCount=1
-FF1x=541
-FF1y=529
-
-[Territory_19]
-Name=Madagascar
-Cont=3
-Color=8413376
-BCount=2
-B_1=16
-B_2=18
-Tx=627
-Ty=487
-FFCount=1
-FF1x=605
-FF1y=495
-
-[Territory_20]
-Name=Iceland
-Cont=4
-Color=8437824
-BCount=3
-B_1=3
-B_2=21
-B_3=24
-Tx=437
-Ty=92
-FFCount=1
-FF1x=421
-FF1y=108
-
-[Territory_21]
-Name=Scandinavia
-Cont=4
-Color=8437952
-BCount=4
-B_1=20
-B_2=22
-B_3=23
-B_4=24
-Tx=555
-Ty=76
-FFCount=1
-FF1x=534
-FF1y=86
-
-[Territory_22]
-Name=Ukraine
-Cont=4
-Color=8429760
-BCount=6
-B_1=21
-B_2=23
-B_3=26
-B_4=27
-B_5=28
-B_6=29
-Tx=600
-Ty=146
-FFCount=1
-FF1x=590
-FF1y=164
-FF2x=409
-FF2y=2
-
-[Territory_23]
-Name=Northern Europe
-Cont=4
-Color=8429568
-BCount=5
-B_1=21
-B_2=22
-B_3=24
-B_4=25
-B_5=26
-Tx=533
-Ty=172
-FFCount=1
-FF1x=517
-FF1y=186
-
-[Territory_24]
-Name=Great Britain
-Cont=4
-Color=8437984
-BCount=4
-B_1=20
-B_2=21
-B_3=23
-B_4=25
-Tx=409
-Ty=176
-FFCount=1
-FF1x=459
-FF1y=169
-FF2x=282
-FF2y=125
-
-[Territory_25]
-Name=Western Europe
-Cont=4
-Color=8437920
-BCount=4
-B_1=23
-B_2=24
-B_3=26
-B_4=14
-Tx=414
-Ty=262
-FFCount=1
-FF1x=462
-FF1y=254
-
-[Territory_26]
-Name=Southern Europe
-Cont=4
-Color=8446112
-BCount=6
-B_1=22
-B_2=23
-B_3=25
-B_4=27
-B_5=14
-B_6=15
-Tx=555
-Ty=252
-FFCount=1
-FF1x=529
-FF1y=246
-
-[Territory_27]
-Name=Middle East
-Cont=5
-Color=12583104
-BCount=6
-B_1=22
-B_2=26
-B_3=15
-B_4=16
-B_5=29
-B_6=30
-Tx=609
-Ty=343
-FFCount=1
-FF1x=601
-FF1y=306
-
-[Territory_28]
-Name=Yamal-Nemets
-Cont=5
-Color=12591232
-BCount=4
-B_1=22
-B_2=29
-B_3=33
-B_4=34
-Tx=659
-Ty=123
-FFCount=1
-FF1x=688
-FF1y=172
-FF2x=511
-FF2y=234
-FF3x=515
-FF3y=245
-FF4x=518
-FF4y=248
-FF5x=514
-FF5y=251
-FF6x=507
-FF6y=252
-FF7x=518
-FF7y=257
-FF8x=503
-FF8y=262
-FF9x=467
-FF9y=264
-FF10x=511
-FF10y=274
-FF11x=512
-FF11y=279
-FF12x=485
-FF12y=291
-FF13x=506
-FF13y=296
-
-[Territory_29]
-Name=Kazakhstan
-Cont=5
-Color=12582912
-BCount=5
-B_1=22
-B_2=28
-B_3=27
-B_4=30
-B_5=32
-Tx=684
-Ty=229
-FFCount=1
-FF1x=662
-FF1y=238
-
-[Territory_30]
-Name=India
-Cont=5
-Color=12599520
-BCount=4
-B_1=27
-B_2=29
-B_3=31
-B_4=32
-Tx=658
-Ty=362
-FFCount=1
-FF1x=693
-FF1y=327
-FF2x=439
-FF2y=255
-
-[Territory_31]
-Name=Siam
-Cont=5
-Color=12632256
-BCount=3
-B_1=30
-B_2=32
-B_3=39
-Tx=792
-Ty=362
-FFCount=1
-FF1x=766
-FF1y=359
-FF2x=493
-FF2y=230
-
-[Territory_32]
-Name=China
-Cont=5
-Color=12583072
-BCount=4
-B_1=29
-B_2=30
-B_3=31
-B_4=33
-Tx=783
-Ty=295
-FFCount=1
-FF1x=757
-FF1y=289
-FF2x=512
-FF2y=217
-
-[Territory_33]
-Name=Mongolia
-Cont=5
-Color=8413408
-BCount=6
-B_1=28
-B_2=32
-B_3=34
-B_4=36
-B_5=37
-B_6=38
-Tx=795
-Ty=239
-FFCount=1
-FF1x=768
-FF1y=230
-
-[Territory_34]
-Name=Taymyr
-Cont=5
-Color=12632128
-BCount=4
-B_1=28
-B_2=33
-B_3=35
-B_4=36
-Tx=750
-Ty=65
-FFCount=1
-FF1x=734
-FF1y=78
-FF2x=602
-FF2y=53
-
-[Territory_35]
-Name=Yakut
-Cont=5
-Color=12615904
-BCount=3
-B_1=34
-B_2=36
-B_3=37
-Tx=847
-Ty=80
-FFCount=1
-FF1x=829
-FF1y=95
-FF2x=550
-FF2y=133
-FF3x=549
-FF3y=154
-FF4x=549
-FF4y=161
-FF5x=546
-FF5y=175
-
-[Territory_36]
-Name=Buryat
-Cont=5
-Color=12623936
-BCount=4
-B_1=33
-B_2=34
-B_3=35
-B_4=37
-Tx=818
-Ty=171
-FFCount=1
-FF1x=792
-FF1y=154
-
-[Territory_37]
-Name=Koryak
-Cont=5
-Color=12624000
-BCount=5
-B_1=1
-B_2=33
-B_3=35
-B_4=36
-B_5=38
-Tx=937
-Ty=77
-FFCount=1
-FF1x=954
-FF1y=124
-
-[Territory_38]
-Name=Japan
-Cont=5
-Color=12624096
-BCount=2
-B_1=33
-B_2=37
-Tx=893
-Ty=282
-FFCount=1
-FF1x=867
-FF1y=284
-FF2x=550
-FF2y=133
-FF3x=549
-FF3y=154
-FF4x=549
-FF4y=161
-
-[Territory_39]
-Name=Indonesia
-Cont=6
-Color=12583008
-BCount=3
-B_1=31
-B_2=40
-B_3=42
-Tx=814
-Ty=411
-FFCount=1
-FF1x=795
-FF1y=423
-FF2x=511
-FF2y=234
-FF3x=515
-FF3y=245
-FF4x=518
-FF4y=248
-FF5x=514
-FF5y=251
-FF6x=507
-FF6y=252
-FF7x=518
-FF7y=257
-FF8x=467
-FF8y=264
-FF9x=511
-FF9y=274
-FF10x=512
-FF10y=279
-FF11x=485
-FF11y=291
-FF12x=506
-FF12y=296
-FF13x=518
-FF13y=248
-
-[Territory_40]
-Name=Western Australia
-Cont=6
-Color=12607488
-BCount=3
-B_1=39
-B_2=41
-B_3=42
-Tx=761
-Ty=519
-FFCount=1
-FF1x=813
-FF1y=510
-
-[Territory_41]
-Name=Eastern Australia
-Cont=6
-Color=15780518
-BCount=2
-B_1=40
-B_2=42
-Tx=917
-Ty=522
-FFCount=1
-FF1x=891
-FF1y=527
-FF2x=589
-FF2y=326
-FF3x=604
-FF3y=364
-FF4x=603
-FF4y=381
-
-[Territory_42]
-Name=New Guinea
-Cont=6
-Color=12607680
-BCount=3
-B_1=39
-B_2=40
-B_3=41
-Tx=898
-Ty=432
-FFCount=1
-FF1x=877
-FF1y=446
-FF2x=561
-FF2y=289
diff --git a/Maps/diagram_medium.bmp b/Maps/diagram_medium.bmp
deleted file mode 100644
index 2e62a13..0000000
Binary files a/Maps/diagram_medium.bmp and /dev/null differ
diff --git a/Maps/diagram_medium.trm b/Maps/diagram_medium.trm
deleted file mode 100644
index dbd4f54..0000000
--- a/Maps/diagram_medium.trm
+++ /dev/null
@@ -1,705 +0,0 @@
-[Map]
-Desc=Diagram style map - Medium
-FontName=Courier New
-FontSize=10
-Author=Mario Ferrari
-Revision=1.0
-
-[Territory_1]
-Color=24576
-Tx=5
-Ty=59
-FFCount=1
-FF1x=32
-FF1y=97
-
-[Territory_2]
-Color=16608
-Tx=74
-Ty=60
-FFCount=1
-FF1x=101
-FF1y=99
-FF2x=92
-FF2y=25
-
-[Territory_3]
-Color=12639424
-Tx=240
-Ty=18
-FFCount=1
-FF1x=277
-FF1y=51
-FF2x=142
-FF2y=21
-FF3x=118
-FF3y=22
-FF4x=129
-FF4y=37
-
-[Territory_4]
-Color=24768
-Tx=56
-Ty=142
-FFCount=1
-FF1x=98
-FF1y=139
-
-[Territory_5]
-Name=Ontario
-Cont=1
-Color=16480
-BCount=6
-B_1=2
-B_2=3
-B_3=4
-B_4=6
-B_5=7
-B_6=8
-Tx=145
-Ty=124
-FFCount=1
-FF1x=158
-FF1y=166
-
-[Territory_6]
-Name=Quebec
-Cont=1
-Color=24800
-BCount=3
-B_1=3
-B_2=5
-B_3=8
-Tx=236
-Ty=146
-FFCount=1
-FF1x=215
-FF1y=143
-
-[Territory_7]
-Name=Western US
-Cont=1
-Color=24672
-BCount=4
-B_1=4
-B_2=5
-B_3=8
-B_4=9
-Tx=81
-Ty=202
-FFCount=1
-FF1x=122
-FF1y=198
-
-[Territory_8]
-Name=Eastern US
-Cont=1
-Color=49152
-BCount=4
-B_1=5
-B_2=6
-B_3=7
-B_4=9
-Tx=195
-Ty=220
-FFCount=1
-FF1x=174
-FF1y=214
-
-[Territory_9]
-Name=Central America
-Cont=1
-Color=57536
-BCount=3
-B_1=7
-B_2=8
-B_3=10
-Tx=101
-Ty=265
-FFCount=1
-FF1x=143
-FF1y=267
-FF2x=149
-FF2y=221
-FF3x=168
-FF3y=230
-FF4x=178
-FF4y=233
-FF5x=159
-FF5y=235
-
-[Territory_10]
-Name=Venezuela
-Cont=2
-Color=4194464
-BCount=3
-B_1=9
-B_2=11
-B_3=12
-Tx=171
-Ty=309
-FFCount=1
-FF1x=214
-FF1y=301
-
-[Territory_11]
-Name=Peru
-Cont=2
-Color=4219104
-BCount=3
-B_1=10
-B_2=12
-B_3=13
-Tx=159
-Ty=365
-FFCount=1
-FF1x=202
-FF1y=366
-
-[Territory_12]
-Name=Brazil
-Cont=2
-Color=4194528
-BCount=4
-B_1=10
-B_2=11
-B_3=13
-B_4=14
-Tx=282
-Ty=361
-FFCount=1
-FF1x=259
-FF1y=359
-
-[Territory_13]
-Name=Argentina
-Cont=2
-Color=4235488
-BCount=2
-B_1=11
-B_2=12
-Tx=184
-Ty=438
-FFCount=1
-FF1x=221
-FF1y=473
-FF2x=190
-FF2y=413
-
-[Territory_14]
-Name=North Africa
-Cont=3
-Color=8388800
-BCount=6
-B_1=25
-B_2=26
-B_3=12
-B_4=15
-B_5=16
-B_6=17
-Tx=311
-Ty=271
-FFCount=1
-FF1x=353
-FF1y=273
-
-[Territory_15]
-Name=Egypt
-Cont=3
-Color=8413184
-BCount=4
-B_1=14
-B_2=16
-B_3=26
-B_4=27
-Tx=405
-Ty=280
-FFCount=1
-FF1x=419
-FF1y=249
-
-[Territory_16]
-Name=East Africa
-Cont=3
-Color=8388832
-BCount=6
-B_1=14
-B_2=15
-B_3=17
-B_4=18
-B_5=19
-B_6=27
-Tx=471
-Ty=310
-FFCount=1
-FF1x=449
-FF1y=307
-
-[Territory_17]
-Name=Congo
-Cont=3
-Color=8404992
-BCount=3
-B_1=14
-B_2=16
-B_3=18
-Tx=366
-Ty=345
-FFCount=1
-FF1x=410
-FF1y=341
-
-[Territory_18]
-Name=South Africa
-Cont=3
-Color=8405088
-BCount=3
-B_1=16
-B_2=17
-B_3=19
-Tx=378
-Ty=412
-FFCount=1
-FF1x=422
-FF1y=413
-
-[Territory_19]
-Name=Madagascar
-Cont=3
-Color=8413376
-BCount=2
-B_1=16
-B_2=18
-Tx=489
-Ty=372
-FFCount=1
-FF1x=472
-FF1y=387
-
-[Territory_20]
-Name=Iceland
-Cont=4
-Color=8437824
-BCount=3
-B_1=3
-B_2=21
-B_3=24
-Tx=341
-Ty=69
-FFCount=1
-FF1x=328
-FF1y=84
-
-[Territory_21]
-Name=Scandinavia
-Cont=4
-Color=8437952
-BCount=4
-B_1=20
-B_2=22
-B_3=23
-B_4=24
-Tx=436
-Ty=58
-FFCount=1
-FF1x=417
-FF1y=67
-
-[Territory_22]
-Name=Ukraine
-Cont=4
-Color=8429760
-BCount=6
-B_1=21
-B_2=23
-B_3=26
-B_4=27
-B_5=28
-B_6=29
-Tx=466
-Ty=111
-FFCount=1
-FF1x=460
-FF1y=128
-FF2x=409
-FF2y=2
-
-[Territory_23]
-Name=Northern Europe
-Cont=4
-Color=8429568
-BCount=5
-B_1=21
-B_2=22
-B_3=24
-B_4=25
-B_5=26
-Tx=415
-Ty=130
-FFCount=1
-FF1x=403
-FF1y=146
-
-[Territory_24]
-Name=Great Britain
-Cont=4
-Color=8437984
-BCount=4
-B_1=20
-B_2=21
-B_3=23
-B_4=25
-Tx=316
-Ty=135
-FFCount=1
-FF1x=358
-FF1y=132
-FF2x=282
-FF2y=125
-
-[Territory_25]
-Name=Western Europe
-Cont=4
-Color=8437920
-BCount=4
-B_1=23
-B_2=24
-B_3=26
-B_4=14
-Tx=319
-Ty=202
-FFCount=1
-FF1x=360
-FF1y=198
-
-[Territory_26]
-Name=Southern Europe
-Cont=4
-Color=8446112
-BCount=6
-B_1=22
-B_2=23
-B_3=25
-B_4=27
-B_5=14
-B_6=15
-Tx=435
-Ty=195
-FFCount=1
-FF1x=413
-FF1y=192
-
-[Territory_27]
-Name=Middle East
-Cont=5
-Color=12583104
-BCount=6
-B_1=22
-B_2=26
-B_3=15
-B_4=16
-B_5=29
-B_6=30
-Tx=478
-Ty=269
-FFCount=1
-FF1x=469
-FF1y=239
-
-[Territory_28]
-Name=Yamal-Nemets
-Cont=5
-Color=12591232
-BCount=4
-B_1=22
-B_2=29
-B_3=33
-B_4=34
-Tx=515
-Ty=90
-FFCount=1
-FF1x=529
-FF1y=113
-FF2x=511
-FF2y=234
-FF3x=515
-FF3y=245
-FF4x=518
-FF4y=248
-FF5x=514
-FF5y=251
-FF6x=507
-FF6y=252
-FF7x=518
-FF7y=257
-FF8x=503
-FF8y=262
-FF9x=467
-FF9y=264
-FF10x=511
-FF10y=274
-FF11x=512
-FF11y=279
-FF12x=485
-FF12y=291
-FF13x=506
-FF13y=296
-
-[Territory_29]
-Name=Kazakhstan
-Cont=5
-Color=12582912
-BCount=5
-B_1=22
-B_2=28
-B_3=27
-B_4=30
-B_5=32
-Tx=530
-Ty=172
-FFCount=1
-FF1x=517
-FF1y=186
-
-[Territory_30]
-Name=India
-Cont=5
-Color=12599520
-BCount=4
-B_1=27
-B_2=29
-B_3=31
-B_4=32
-Tx=514
-Ty=285
-FFCount=1
-FF1x=540
-FF1y=256
-FF2x=439
-FF2y=255
-
-[Territory_31]
-Name=Siam
-Cont=5
-Color=12632256
-BCount=3
-B_1=30
-B_2=32
-B_3=39
-Tx=619
-Ty=282
-FFCount=1
-FF1x=598
-FF1y=281
-FF2x=493
-FF2y=230
-
-[Territory_32]
-Name=China
-Cont=5
-Color=12583072
-BCount=4
-B_1=29
-B_2=30
-B_3=31
-B_4=33
-Tx=614
-Ty=230
-FFCount=1
-FF1x=590
-FF1y=226
-FF2x=512
-FF2y=217
-
-[Territory_33]
-Name=Mongolia
-Cont=5
-Color=8413408
-BCount=6
-B_1=28
-B_2=32
-B_3=34
-B_4=36
-B_5=37
-B_6=38
-Tx=625
-Ty=184
-FFCount=1
-FF1x=599
-FF1y=179
-
-[Territory_34]
-Name=Taymyr
-Cont=5
-Color=12632128
-BCount=4
-B_1=28
-B_2=33
-B_3=35
-B_4=36
-Tx=592
-Ty=49
-FFCount=1
-FF1x=573
-FF1y=61
-FF2x=602
-FF2y=53
-
-[Territory_35]
-Name=Yakut
-Cont=5
-Color=12615904
-BCount=3
-B_1=34
-B_2=36
-B_3=37
-Tx=665
-Ty=61
-FFCount=1
-FF1x=647
-FF1y=74
-FF2x=550
-FF2y=133
-FF3x=549
-FF3y=154
-FF4x=549
-FF4y=161
-FF5x=546
-FF5y=175
-
-[Territory_36]
-Name=Buryat
-Cont=5
-Color=12623936
-BCount=4
-B_1=33
-B_2=34
-B_3=35
-B_4=37
-Tx=642
-Ty=129
-FFCount=1
-FF1x=618
-FF1y=121
-
-[Territory_37]
-Name=Koryak
-Cont=5
-Color=12624000
-BCount=5
-B_1=1
-B_2=33
-B_3=35
-B_4=36
-B_5=38
-Tx=731
-Ty=58
-FFCount=1
-FF1x=743
-FF1y=101
-
-[Territory_38]
-Name=Japan
-Cont=5
-Color=12624096
-BCount=2
-B_1=33
-B_2=37
-Tx=698
-Ty=220
-FFCount=1
-FF1x=677
-FF1y=222
-FF2x=550
-FF2y=133
-FF3x=549
-FF3y=154
-FF4x=549
-FF4y=161
-
-[Territory_39]
-Name=Indonesia
-Cont=6
-Color=12583008
-BCount=3
-B_1=31
-B_2=40
-B_3=42
-Tx=636
-Ty=321
-FFCount=1
-FF1x=620
-FF1y=331
-FF2x=511
-FF2y=234
-FF3x=515
-FF3y=245
-FF4x=518
-FF4y=248
-FF5x=514
-FF5y=251
-FF6x=507
-FF6y=252
-FF7x=518
-FF7y=257
-FF8x=467
-FF8y=264
-FF9x=511
-FF9y=274
-FF10x=512
-FF10y=279
-FF11x=485
-FF11y=291
-FF12x=506
-FF12y=296
-FF13x=518
-FF13y=248
-
-[Territory_40]
-Name=Western Australia
-Cont=6
-Color=12607488
-BCount=3
-B_1=39
-B_2=41
-B_3=42
-Tx=591
-Ty=404
-FFCount=1
-FF1x=634
-FF1y=398
-
-[Territory_41]
-Name=Eastern Australia
-Cont=6
-Color=15780518
-BCount=2
-B_1=40
-B_2=42
-Tx=716
-Ty=408
-FFCount=1
-FF1x=695
-FF1y=412
-FF2x=589
-FF2y=326
-FF3x=604
-FF3y=364
-FF4x=603
-FF4y=381
-
-[Territory_42]
-Name=New Guinea
-Cont=6
-Color=12607680
-BCount=3
-B_1=39
-B_2=40
-B_3=41
-Tx=701
-Ty=332
-FFCount=1
-FF1x=684
-FF1y=348
-FF2x=561
-FF2y=289
diff --git a/Maps/diagram_small.bmp b/Maps/diagram_small.bmp
deleted file mode 100644
index 2d32ffb..0000000
Binary files a/Maps/diagram_small.bmp and /dev/null differ
diff --git a/Maps/diagram_small.trm b/Maps/diagram_small.trm
deleted file mode 100644
index ac7aee8..0000000
--- a/Maps/diagram_small.trm
+++ /dev/null
@@ -1,705 +0,0 @@
-[Map]
-Desc=Diagram style map - Small
-FontName=Courier New
-FontSize=8
-Author=Mario Ferrari
-Revision=1.0
-
-[Territory_1]
-Color=24576
-Tx=4
-Ty=44
-FFCount=1
-FF1x=27
-FF1y=75
-
-[Territory_2]
-Color=16608
-Tx=59
-Ty=48
-FFCount=1
-FF1x=82
-FF1y=78
-FF2x=92
-FF2y=25
-
-[Territory_3]
-Color=12639424
-Tx=192
-Ty=14
-FFCount=1
-FF1x=227
-FF1y=41
-FF2x=142
-FF2y=21
-FF3x=118
-FF3y=22
-FF4x=129
-FF4y=37
-
-[Territory_4]
-Color=24768
-Tx=44
-Ty=111
-FFCount=1
-FF1x=79
-FF1y=112
-
-[Territory_5]
-Name=Ontario
-Cont=1
-Color=16480
-BCount=6
-B_1=2
-B_2=3
-B_3=4
-B_4=6
-B_5=7
-B_6=8
-Tx=116
-Ty=99
-FFCount=1
-FF1x=126
-FF1y=132
-
-[Territory_6]
-Name=Quebec
-Cont=1
-Color=24800
-BCount=3
-B_1=3
-B_2=5
-B_3=8
-Tx=189
-Ty=117
-FFCount=1
-FF1x=173
-FF1y=115
-
-[Territory_7]
-Name=Western US
-Cont=1
-Color=24672
-BCount=4
-B_1=4
-B_2=5
-B_3=8
-B_4=9
-Tx=61
-Ty=159
-FFCount=1
-FF1x=98
-FF1y=159
-
-[Territory_8]
-Name=Eastern US
-Cont=1
-Color=49152
-BCount=4
-B_1=5
-B_2=6
-B_3=7
-B_4=9
-Tx=156
-Ty=176
-FFCount=1
-FF1x=140
-FF1y=172
-
-[Territory_9]
-Name=Central America
-Cont=1
-Color=57536
-BCount=3
-B_1=7
-B_2=8
-B_3=10
-Tx=81
-Ty=212
-FFCount=1
-FF1x=115
-FF1y=214
-FF2x=149
-FF2y=221
-FF3x=168
-FF3y=230
-FF4x=178
-FF4y=233
-FF5x=159
-FF5y=235
-
-[Territory_10]
-Name=Venezuela
-Cont=2
-Color=4194464
-BCount=3
-B_1=9
-B_2=11
-B_3=12
-Tx=137
-Ty=247
-FFCount=1
-FF1x=172
-FF1y=241
-
-[Territory_11]
-Name=Peru
-Cont=2
-Color=4219104
-BCount=3
-B_1=10
-B_2=12
-B_3=13
-Tx=127
-Ty=292
-FFCount=1
-FF1x=162
-FF1y=293
-
-[Territory_12]
-Name=Brazil
-Cont=2
-Color=4194528
-BCount=4
-B_1=10
-B_2=11
-B_3=13
-B_4=14
-Tx=226
-Ty=289
-FFCount=1
-FF1x=208
-FF1y=288
-
-[Territory_13]
-Name=Argentina
-Cont=2
-Color=4235488
-BCount=2
-B_1=11
-B_2=12
-Tx=147
-Ty=350
-FFCount=1
-FF1x=175
-FF1y=379
-FF2x=190
-FF2y=413
-
-[Territory_14]
-Name=North Africa
-Cont=3
-Color=8388800
-BCount=6
-B_1=25
-B_2=26
-B_3=12
-B_4=15
-B_5=16
-B_6=17
-Tx=249
-Ty=217
-FFCount=1
-FF1x=283
-FF1y=219
-
-[Territory_15]
-Name=Egypt
-Cont=3
-Color=8413184
-BCount=4
-B_1=14
-B_2=16
-B_3=26
-B_4=27
-Tx=324
-Ty=224
-FFCount=1
-FF1x=336
-FF1y=200
-
-[Territory_16]
-Name=East Africa
-Cont=3
-Color=8388832
-BCount=6
-B_1=14
-B_2=15
-B_3=17
-B_4=18
-B_5=19
-B_6=27
-Tx=377
-Ty=248
-FFCount=1
-FF1x=360
-FF1y=246
-
-[Territory_17]
-Name=Congo
-Cont=3
-Color=8404992
-BCount=3
-B_1=14
-B_2=16
-B_3=18
-Tx=293
-Ty=276
-FFCount=1
-FF1x=329
-FF1y=273
-
-[Territory_18]
-Name=South Africa
-Cont=3
-Color=8405088
-BCount=3
-B_1=16
-B_2=17
-B_3=19
-Tx=302
-Ty=330
-FFCount=1
-FF1x=338
-FF1y=331
-
-[Territory_19]
-Name=Madagascar
-Cont=3
-Color=8413376
-BCount=2
-B_1=16
-B_2=18
-Tx=391
-Ty=298
-FFCount=1
-FF1x=378
-FF1y=310
-
-[Territory_20]
-Name=Iceland
-Cont=4
-Color=8437824
-BCount=3
-B_1=3
-B_2=21
-B_3=24
-Tx=273
-Ty=55
-FFCount=1
-FF1x=263
-FF1y=68
-
-[Territory_21]
-Name=Scandinavia
-Cont=4
-Color=8437952
-BCount=4
-B_1=20
-B_2=22
-B_3=23
-B_4=24
-Tx=349
-Ty=46
-FFCount=1
-FF1x=334
-FF1y=54
-
-[Territory_22]
-Name=Ukraine
-Cont=4
-Color=8429760
-BCount=6
-B_1=21
-B_2=23
-B_3=26
-B_4=27
-B_5=28
-B_6=29
-Tx=373
-Ty=89
-FFCount=1
-FF1x=369
-FF1y=103
-FF2x=409
-FF2y=2
-
-[Territory_23]
-Name=Northern Europe
-Cont=4
-Color=8429568
-BCount=5
-B_1=21
-B_2=22
-B_3=24
-B_4=25
-B_5=26
-Tx=332
-Ty=104
-FFCount=1
-FF1x=323
-FF1y=117
-
-[Territory_24]
-Name=Great Britain
-Cont=4
-Color=8437984
-BCount=4
-B_1=20
-B_2=21
-B_3=23
-B_4=25
-Tx=253
-Ty=108
-FFCount=1
-FF1x=287
-FF1y=106
-FF2x=282
-FF2y=125
-
-[Territory_25]
-Name=Western Europe
-Cont=4
-Color=8437920
-BCount=4
-B_1=23
-B_2=24
-B_3=26
-B_4=14
-Tx=255
-Ty=162
-FFCount=1
-FF1x=289
-FF1y=159
-
-[Territory_26]
-Name=Southern Europe
-Cont=4
-Color=8446112
-BCount=6
-B_1=22
-B_2=23
-B_3=25
-B_4=27
-B_5=14
-B_6=15
-Tx=348
-Ty=156
-FFCount=1
-FF1x=331
-FF1y=154
-
-[Territory_27]
-Name=Middle East
-Cont=5
-Color=12583104
-BCount=6
-B_1=22
-B_2=26
-B_3=15
-B_4=16
-B_5=29
-B_6=30
-Tx=382
-Ty=215
-FFCount=1
-FF1x=376
-FF1y=192
-
-[Territory_28]
-Name=Yamal-Nemets
-Cont=5
-Color=12591232
-BCount=4
-B_1=22
-B_2=29
-B_3=33
-B_4=34
-Tx=412
-Ty=72
-FFCount=1
-FF1x=424
-FF1y=91
-FF2x=511
-FF2y=234
-FF3x=515
-FF3y=245
-FF4x=518
-FF4y=248
-FF5x=514
-FF5y=251
-FF6x=507
-FF6y=252
-FF7x=518
-FF7y=257
-FF8x=503
-FF8y=262
-FF9x=467
-FF9y=264
-FF10x=511
-FF10y=274
-FF11x=512
-FF11y=279
-FF12x=485
-FF12y=291
-FF13x=506
-FF13y=296
-
-[Territory_29]
-Name=Kazakhstan
-Cont=5
-Color=12582912
-BCount=5
-B_1=22
-B_2=28
-B_3=27
-B_4=30
-B_5=32
-Tx=424
-Ty=138
-FFCount=1
-FF1x=414
-FF1y=149
-
-[Territory_30]
-Name=India
-Cont=5
-Color=12599520
-BCount=4
-B_1=27
-B_2=29
-B_3=31
-B_4=32
-Tx=411
-Ty=228
-FFCount=1
-FF1x=433
-FF1y=205
-FF2x=439
-FF2y=255
-
-[Territory_31]
-Name=Siam
-Cont=5
-Color=12632256
-BCount=3
-B_1=30
-B_2=32
-B_3=39
-Tx=495
-Ty=226
-FFCount=1
-FF1x=479
-FF1y=225
-FF2x=493
-FF2y=230
-
-[Territory_32]
-Name=China
-Cont=5
-Color=12583072
-BCount=4
-B_1=29
-B_2=30
-B_3=31
-B_4=33
-Tx=491
-Ty=184
-FFCount=1
-FF1x=473
-FF1y=181
-FF2x=512
-FF2y=217
-
-[Territory_33]
-Name=Mongolia
-Cont=5
-Color=8413408
-BCount=6
-B_1=28
-B_2=32
-B_3=34
-B_4=36
-B_5=37
-B_6=38
-Tx=500
-Ty=147
-FFCount=1
-FF1x=480
-FF1y=144
-
-[Territory_34]
-Name=Taymyr
-Cont=5
-Color=12632128
-BCount=4
-B_1=28
-B_2=33
-B_3=35
-B_4=36
-Tx=474
-Ty=39
-FFCount=1
-FF1x=459
-FF1y=49
-FF2x=602
-FF2y=53
-
-[Territory_35]
-Name=Yakut
-Cont=5
-Color=12615904
-BCount=3
-B_1=34
-B_2=36
-B_3=37
-Tx=532
-Ty=49
-FFCount=1
-FF1x=518
-FF1y=60
-FF2x=550
-FF2y=133
-FF3x=549
-FF3y=154
-FF4x=549
-FF4y=161
-FF5x=546
-FF5y=175
-
-[Territory_36]
-Name=Buryat
-Cont=5
-Color=12623936
-BCount=4
-B_1=33
-B_2=34
-B_3=35
-B_4=37
-Tx=514
-Ty=103
-FFCount=1
-FF1x=495
-FF1y=97
-
-[Territory_37]
-Name=Koryak
-Cont=5
-Color=12624000
-BCount=5
-B_1=1
-B_2=33
-B_3=35
-B_4=36
-B_5=38
-Tx=585
-Ty=46
-FFCount=1
-FF1x=592
-FF1y=77
-
-[Territory_38]
-Name=Japan
-Cont=5
-Color=12624096
-BCount=2
-B_1=33
-B_2=37
-Tx=558
-Ty=176
-FFCount=1
-FF1x=542
-FF1y=178
-FF2x=550
-FF2y=133
-FF3x=549
-FF3y=154
-FF4x=549
-FF4y=161
-
-[Territory_39]
-Name=Indonesia
-Cont=6
-Color=12583008
-BCount=3
-B_1=31
-B_2=40
-B_3=42
-Tx=509
-Ty=257
-FFCount=1
-FF1x=497
-FF1y=265
-FF2x=511
-FF2y=234
-FF3x=515
-FF3y=245
-FF4x=518
-FF4y=248
-FF5x=514
-FF5y=251
-FF6x=507
-FF6y=252
-FF7x=518
-FF7y=257
-FF8x=467
-FF8y=264
-FF9x=511
-FF9y=274
-FF10x=512
-FF10y=279
-FF11x=485
-FF11y=291
-FF12x=506
-FF12y=296
-FF13x=518
-FF13y=248
-
-[Territory_40]
-Name=Western Australia
-Cont=6
-Color=12607488
-BCount=3
-B_1=39
-B_2=41
-B_3=42
-Tx=473
-Ty=323
-FFCount=1
-FF1x=508
-FF1y=319
-
-[Territory_41]
-Name=Eastern Australia
-Cont=6
-Color=15780518
-BCount=2
-B_1=40
-B_2=42
-Tx=573
-Ty=326
-FFCount=1
-FF1x=557
-FF1y=330
-FF2x=589
-FF2y=326
-FF3x=604
-FF3y=364
-FF4x=603
-FF4y=381
-
-[Territory_42]
-Name=New Guinea
-Cont=6
-Color=12607680
-BCount=3
-B_1=39
-B_2=40
-B_3=41
-Tx=561
-Ty=266
-FFCount=1
-FF1x=548
-FF1y=279
-FF2x=561
-FF2y=289
diff --git a/Maps/std_map_large.bmp b/Maps/std_map_large.bmp
deleted file mode 100644
index 48a1058..0000000
Binary files a/Maps/std_map_large.bmp and /dev/null differ
diff --git a/Maps/std_map_large.trm b/Maps/std_map_large.trm
deleted file mode 100644
index 7addfc0..0000000
--- a/Maps/std_map_large.trm
+++ /dev/null
@@ -1,408 +0,0 @@
-[Map]
-Desc=Standard map - Large
-FontName=Courier New
-FontSize=12
-Author=Mario Ferrari
-Revision=1.0
-[Territory_1]
-Color=24576
-Tx=32
-Ty=110
-FFCount=1
-FF1x=27
-FF1y=66
-[Territory_2]
-Color=16608
-Tx=116
-Ty=118
-FFCount=2
-FF1x=145
-FF1y=39
-FF2x=109
-FF2y=73
-[Territory_3]
-Color=12639424
-Tx=346
-Ty=48
-FFCount=4
-FF1x=296
-FF1y=1
-FF2x=225
-FF2y=33
-FF3x=186
-FF3y=35
-FF4x=203
-FF4y=58
-[Territory_4]
-Color=24768
-Tx=117
-Ty=187
-FFCount=1
-FF1x=79
-FF1y=161
-[Territory_5]
-Color=16480
-Tx=176
-Ty=196
-FFCount=1
-FF1x=196
-FF1y=161
-[Territory_6]
-Color=24800
-Tx=255
-Ty=198
-FFCount=2
-FF1x=259
-FF1y=146
-FF2x=310
-FF2y=211
-[Territory_7]
-Color=24672
-Tx=142
-Ty=263
-FFCount=1
-FF1x=127
-FF1y=232
-[Territory_8]
-Color=49152
-Tx=208
-Ty=280
-FFCount=1
-FF1x=194
-FF1y=233
-[Territory_9]
-Color=57536
-Tx=153
-Ty=359
-FFCount=5
-FF1x=145
-FF1y=310
-FF2x=235
-FF2y=348
-FF3x=266
-FF3y=362
-FF4x=282
-FF4y=367
-FF5x=251
-FF5y=370
-[Territory_10]
-Color=4194464
-Tx=273
-Ty=392
-FFCount=2
-FF1x=255
-FF1y=408
-FF2x=307
-FF2y=425
-[Territory_11]
-Color=4219104
-Tx=241
-Ty=475
-FFCount=2
-FF1x=247
-FF1y=438
-FF2x=313
-FF2y=527
-[Territory_12]
-Color=4194528
-Tx=311
-Ty=467
-FFCount=1
-FF1x=295
-FF1y=434
-[Territory_13]
-Color=4235488
-Tx=272
-Ty=546
-FFCount=2
-FF1x=271
-FF1y=502
-FF2x=300
-FF2y=651
-[Territory_14]
-Color=8388800
-Tx=456
-Ty=355
-FFCount=1
-FF1x=493
-FF1y=290
-[Territory_15]
-Color=8413184
-Tx=517
-Ty=324
-FFCount=1
-FF1x=502
-FF1y=309
-[Territory_16]
-Color=8388832
-Tx=561
-Ty=405
-FFCount=1
-FF1x=568
-FF1y=352
-[Territory_17]
-Color=8404992
-Tx=528
-Ty=437
-FFCount=2
-FF1x=522
-FF1y=418
-FF2x=542
-FF2y=472
-[Territory_18]
-Color=8405088
-Tx=523
-Ty=514
-FFCount=1
-FF1x=505
-FF1y=458
-[Territory_19]
-Color=8413376
-Tx=614
-Ty=502
-FFCount=1
-FF1x=606
-FF1y=480
-[Territory_20]
-Color=8437824
-Tx=426
-Ty=88
-FFCount=1
-FF1x=418
-FF1y=114
-[Territory_21]
-Color=8437952
-Tx=517
-Ty=94
-FFCount=2
-FF1x=544
-FF1y=65
-FF2x=545
-FF2y=154
-[Territory_22]
-Color=8429760
-Tx=572
-Ty=176
-FFCount=2
-FF1x=646
-FF1y=2
-FF2x=556
-FF2y=78
-[Territory_23]
-Color=8429568
-Tx=490
-Ty=203
-FFCount=4
-FF1x=495
-FF1y=191
-FF2x=499
-FF2y=237
-FF3x=517
-FF3y=201
-FF4x=524
-FF4y=201
-[Territory_24]
-Color=8437984
-Tx=407
-Ty=185
-FFCount=2
-FF1x=468
-FF1y=219
-FF2x=451
-FF2y=209
-[Territory_25]
-Color=8437920
-Tx=425
-Ty=252
-FFCount=1
-FF1x=474
-FF1y=223
-[Territory_26]
-Color=8446112
-Tx=516
-Ty=243
-FFCount=2
-FF1x=512
-FF1y=236
-FF2x=531
-FF2y=279
-[Territory_27]
-Color=12583104
-Tx=581
-Ty=295
-FFCount=1
-FF1x=587
-FF1y=275
-[Territory_28]
-Color=12591232
-Tx=663
-Ty=153
-FFCount=1
-FF1x=666
-FF1y=52
-[Territory_29]
-Color=12582912
-Tx=644
-Ty=247
-FFCount=1
-FF1x=666
-FF1y=211
-[Territory_30]
-Color=12599520
-Tx=672
-Ty=335
-FFCount=3
-FF1x=681
-FF1y=290
-FF2x=693
-FF2y=403
-FF3x=687
-FF3y=395
-[Territory_31]
-Color=12632256
-Tx=724
-Ty=364
-FFCount=3
-FF1x=738
-FF1y=348
-FF2x=778
-FF2y=363
-FF3x=756
-FF3y=421
-FF4x=817
-FF4y=391
-FF5x=811
-FF5y=396
-FF6x=800
-FF6y=398
-FF7x=820
-FF7y=404
-FF8x=794
-FF8y=413
-FF9x=737
-FF9y=417
-FF10x=807
-FF10y=433
-FF11x=804
-FF11y=439
-FF12x=765
-FF12y=460
-FF13x=798
-FF13y=467
-[Territory_32]
-Color=12583072
-Tx=734
-Ty=294
-FFCount=2
-FF1x=718
-FF1y=236
-FF2x=806
-FF2y=350
-[Territory_33]
-Color=8413408
-Tx=783
-Ty=240
-FFCount=1
-FF1x=813
-FF1y=210
-[Territory_34]
-Color=12632128
-Tx=720
-Ty=65
-FFCount=1
-FF1x=738
-FF1y=5
-[Territory_35]
-Color=12615904
-Tx=810
-Ty=98
-FFCount=1
-FF1x=785
-FF1y=38
-[Territory_36]
-Color=12623936
-Tx=774
-Ty=180
-FFCount=2
-FF1x=785
-FF1y=155
-FF2x=831
-FF2y=184
-[Territory_37]
-Color=12624000
-Tx=926
-Ty=114
-FFCount=1
-FF1x=957
-FF1y=88
-[Territory_38]
-Color=12624096
-Tx=876
-Ty=280
-FFCount=3
-FF1x=869
-FF1y=206
-FF2x=866
-FF2y=254
-FF3x=864
-FF3y=275
-[Territory_39]
-Color=12583008
-Tx=727
-Ty=448
-FFCount=12
-FF1x=778
-FF1y=433
-FF2x=807
-FF2y=369
-FF3x=817
-FF3y=391
-FF4x=811
-FF4y=396
-FF5x=800
-FF5y=398
-FF6x=820
-FF6y=404
-FF7x=737
-FF7y=417
-FF8x=807
-FF8y=433
-FF9x=804
-FF9y=439
-FF10x=765
-FF10y=460
-FF11x=798
-FF11y=467
-FF12x=784
-FF12y=466
-FF13x=798
-FF13y=467
-[Territory_40]
-Color=12607488
-Tx=795
-Ty=520
-FFCount=1
-FF1x=838
-FF1y=478
-[Territory_41]
-Color=15780518
-Tx=851
-Ty=537
-FFCount=4
-FF1x=868
-FF1y=478
-FF2x=930
-FF2y=514
-FF3x=953
-FF3y=575
-FF4x=949
-FF4y=601
-[Territory_42]
-Color=12607680
-Tx=870
-Ty=425
-FFCount=2
-FF1x=838
-FF1y=440
-FF2x=893
-FF2y=455
diff --git a/Maps/std_map_large_new_colors.bmp b/Maps/std_map_large_new_colors.bmp
deleted file mode 100644
index 91d09ed..0000000
Binary files a/Maps/std_map_large_new_colors.bmp and /dev/null differ
diff --git a/Maps/std_map_large_new_colors.trm b/Maps/std_map_large_new_colors.trm
deleted file mode 100644
index 12b764f..0000000
--- a/Maps/std_map_large_new_colors.trm
+++ /dev/null
@@ -1,414 +0,0 @@
-[Map]
-Desc=Standard Map - Large - Modified
-FontName=Courier New
-FontSize=12
-Author=Nathan Scarbrough - Credit to Mario for the original
-Revision=1.0
-[Territory_1]
-Color=32896
-Tx=32
-Ty=110
-FFCount=1
-FF1x=27
-FF1y=66
-[Territory_2]
-Color=2576464
-Tx=116
-Ty=118
-FFCount=2
-FF1x=145
-FF1y=39
-FF2x=109
-FF2y=73
-[Territory_3]
-Color=131071
-Tx=346
-Ty=48
-FFCount=4
-FF1x=296
-FF1y=1
-FF2x=225
-FF2y=33
-FF3x=186
-FF3y=35
-FF4x=203
-FF4y=58
-[Territory_4]
-Color=65535
-Tx=117
-Ty=187
-FFCount=1
-FF1x=79
-FF1y=161
-[Territory_5]
-Color=4822164
-Tx=182
-Ty=199
-FFCount=1
-FF1x=196
-FF1y=161
-[Territory_6]
-Color=8388607
-Tx=261
-Ty=198
-FFCount=2
-FF1x=259
-FF1y=146
-FF2x=310
-FF2y=211
-[Territory_7]
-Color=2642000
-Tx=142
-Ty=263
-FFCount=1
-FF1x=127
-FF1y=232
-[Territory_8]
-Color=98432
-Tx=212
-Ty=281
-FFCount=1
-FF1x=194
-FF1y=233
-[Territory_9]
-Color=8454143
-Tx=162
-Ty=352
-FFCount=6
-FF1x=145
-FF1y=310
-FF2x=235
-FF2y=348
-FF3x=266
-FF3y=362
-FF4x=282
-FF4y=367
-FF5x=251
-FF5y=370
-FF6x=240
-FF6y=405
-[Territory_10]
-Color=8421631
-Tx=256
-Ty=406
-FFCount=3
-FF1x=307
-FF1y=425
-FF2x=285
-FF2y=428
-FF3x=262
-FF3y=397
-[Territory_11]
-Color=128
-Tx=258
-Ty=481
-FFCount=2
-FF1x=247
-FF1y=438
-FF2x=313
-FF2y=527
-[Territory_12]
-Color=4210816
-Tx=313
-Ty=462
-FFCount=1
-FF1x=295
-FF1y=434
-[Territory_13]
-Color=255
-Tx=272
-Ty=546
-FFCount=2
-FF1x=300
-FF1y=651
-FF2x=293
-FF2y=519
-[Territory_14]
-Color=6001151
-Tx=457
-Ty=359
-FFCount=1
-FF1x=493
-FF1y=290
-[Territory_15]
-Color=16512
-Tx=519
-Ty=326
-FFCount=1
-FF1x=502
-FF1y=309
-[Territory_16]
-Color=33023
-Tx=562
-Ty=403
-FFCount=1
-FF1x=568
-FF1y=352
-[Territory_17]
-Color=1071022
-Tx=520
-Ty=438
-FFCount=2
-FF1x=522
-FF1y=418
-FF2x=542
-FF2y=472
-[Territory_18]
-Color=1327232
-Tx=524
-Ty=508
-FFCount=1
-FF1x=505
-FF1y=458
-[Territory_19]
-Color=22446
-Tx=613
-Ty=500
-FFCount=1
-FF1x=606
-FF1y=480
-[Territory_20]
-Color=16711937
-Tx=415
-Ty=92
-FFCount=1
-FF1x=415
-FF1y=133
-[Territory_21]
-Color=16744450
-Tx=516
-Ty=95
-FFCount=2
-FF1x=544
-FF1y=65
-FF2x=545
-FF2y=154
-[Territory_22]
-Color=8388608
-Tx=571
-Ty=177
-FFCount=2
-FF1x=646
-FF1y=2
-FF2x=556
-FF2y=78
-[Territory_23]
-Color=16711680
-Tx=494
-Ty=209
-FFCount=4
-FF1x=495
-FF1y=191
-FF2x=499
-FF2y=237
-FF3x=517
-FF3y=201
-FF4x=524
-FF4y=201
-[Territory_24]
-Color=8404994
-Tx=407
-Ty=192
-FFCount=2
-FF1x=468
-FF1y=219
-FF2x=451
-FF2y=209
-[Territory_25]
-Color=16744448
-Tx=452
-Ty=265
-FFCount=1
-FF1x=474
-FF1y=223
-[Territory_26]
-Color=8404992
-Tx=516
-Ty=243
-FFCount=2
-FF1x=512
-FF1y=236
-FF2x=531
-FF2y=279
-[Territory_27]
-Color=17920
-Tx=583
-Ty=296
-FFCount=1
-FF1x=587
-FF1y=275
-[Territory_28]
-Color=8454016
-Tx=663
-Ty=153
-FFCount=1
-FF1x=666
-FF1y=52
-[Territory_29]
-Color=32768
-Tx=643
-Ty=246
-FFCount=1
-FF1x=666
-FF1y=211
-[Territory_30]
-Color=8421415
-Tx=675
-Ty=336
-FFCount=3
-FF1x=681
-FF1y=290
-FF2x=693
-FF2y=403
-FF3x=687
-FF3y=395
-[Territory_31]
-Color=8447104
-Tx=739
-Ty=364
-FFCount=3
-FF1x=738
-FF1y=348
-FF2x=778
-FF2y=363
-FF3x=756
-FF3y=421
-FF4x=817
-FF4y=391
-FF5x=811
-FF5y=396
-FF6x=800
-FF6y=398
-FF7x=820
-FF7y=404
-FF8x=794
-FF8y=413
-FF9x=737
-FF9y=417
-FF10x=807
-FF10y=433
-FF11x=804
-FF11y=439
-FF12x=765
-FF12y=460
-FF13x=798
-FF13y=467
-[Territory_32]
-Color=4227072
-Tx=736
-Ty=295
-FFCount=2
-FF1x=718
-FF1y=236
-FF2x=806
-FF2y=350
-[Territory_33]
-Color=16384
-Tx=774
-Ty=240
-FFCount=1
-FF1x=813
-FF1y=210
-[Territory_34]
-Color=98304
-Tx=719
-Ty=68
-FFCount=1
-FF1x=738
-FF1y=5
-[Territory_35]
-Color=8421376
-Tx=814
-Ty=100
-FFCount=1
-FF1x=785
-FF1y=38
-[Territory_36]
-Color=65408
-Tx=779
-Ty=185
-FFCount=2
-FF1x=785
-FF1y=155
-FF2x=831
-FF2y=184
-[Territory_37]
-Color=4215296
-Tx=926
-Ty=114
-FFCount=1
-FF1x=957
-FF1y=88
-[Territory_38]
-Color=1376128
-Tx=872
-Ty=280
-FFCount=3
-FF1x=869
-FF1y=206
-FF2x=866
-FF2y=254
-FF3x=864
-FF3y=275
-[Territory_39]
-Color=16711808
-Tx=779
-Ty=426
-FFCount=14
-FF1x=807
-FF1y=369
-FF2x=817
-FF2y=391
-FF3x=811
-FF3y=396
-FF4x=765
-FF4y=460
-FF5x=798
-FF5y=467
-FF6x=784
-FF6y=466
-FF7x=797
-FF7y=416
-FF8x=776
-FF8y=434
-FF9x=805
-FF9y=454
-FF10x=801
-FF10y=398
-FF11x=820
-FF11y=408
-FF12x=739
-FF12y=419
-FF13x=814
-FF13y=434
-FF14x=790
-FF14y=448
-[Territory_40]
-Color=4194432
-Tx=795
-Ty=520
-FFCount=1
-FF1x=838
-FF1y=478
-[Territory_41]
-Color=4194368
-Tx=851
-Ty=537
-FFCount=4
-FF1x=868
-FF1y=478
-FF2x=930
-FF2y=514
-FF3x=953
-FF3y=575
-FF4x=949
-FF4y=601
-[Territory_42]
-Color=16711935
-Tx=865
-Ty=426
-FFCount=2
-FF1x=838
-FF1y=440
-FF2x=893
-FF2y=455
diff --git a/Maps/std_map_medium.bmp b/Maps/std_map_medium.bmp
deleted file mode 100644
index 886ecc5..0000000
Binary files a/Maps/std_map_medium.bmp and /dev/null differ
diff --git a/Maps/std_map_medium.trm b/Maps/std_map_medium.trm
deleted file mode 100644
index 235e92b..0000000
--- a/Maps/std_map_medium.trm
+++ /dev/null
@@ -1,396 +0,0 @@
-[Map]
-Desc=Standard map - Medium
-FontName=Courier New
-FontSize=10
-Author=Mario Ferrari
-Revision=1.0
-[Territory_1]
-Color=24576
-Tx=25
-Ty=85
-FFCount=1
-FF1x=17
-FF1y=60
-[Territory_2]
-Color=16608
-Tx=89
-Ty=91
-FFCount=2
-FF1x=75
-FF1y=73
-FF2x=112
-FF2y=30
-[Territory_3]
-Color=12639424
-Tx=266
-Ty=37
-FFCount=4
-FF1x=252
-FF1y=13
-FF2x=173
-FF2y=26
-FF3x=144
-FF3y=27
-FF4x=157
-FF4y=45
-[Territory_4]
-Color=24768
-Tx=90
-Ty=144
-FFCount=1
-FF1x=84
-FF1y=134
-[Territory_5]
-Color=16480
-Tx=135
-Ty=151
-FFCount=1
-FF1x=126
-FF1y=134
-[Territory_6]
-Color=24800
-Tx=199
-Ty=151
-FFCount=2
-FF1x=201
-FF1y=139
-FF2x=238
-FF2y=162
-[Territory_7]
-Color=24672
-Tx=109
-Ty=202
-FFCount=1
-FF1x=105
-FF1y=192
-[Territory_8]
-Color=49152
-Tx=163
-Ty=220
-FFCount=1
-FF1x=157
-FF1y=188
-[Territory_9]
-Color=57536
-Tx=118
-Ty=276
-FFCount=6
-FF1x=131
-FF1y=256
-FF2x=182
-FF2y=269
-FF3x=205
-FF3y=280
-FF4x=217
-FF4y=284
-FF5x=194
-FF5y=286
-FF6x=178
-FF6y=303
-[Territory_10]
-Color=4194464
-Tx=210
-Ty=302
-FFCount=2
-FF1x=201
-FF1y=313
-FF2x=238
-FF2y=327
-[Territory_11]
-Color=4219104
-Tx=182
-Ty=368
-FFCount=2
-FF1x=194
-FF1y=342
-FF2x=237
-FF2y=405
-[Territory_12]
-Color=4194528
-Tx=239
-Ty=359
-FFCount=1
-FF1x=228
-FF1y=332
-[Territory_13]
-Color=4235488
-Tx=209
-Ty=419
-FFCount=2
-FF1x=214
-FF1y=401
-FF2x=232
-FF2y=503
-[Territory_14]
-Color=8388800
-Tx=351
-Ty=273
-FFCount=1
-FF1x=351
-FF1y=235
-[Territory_15]
-Color=8413184
-Tx=396
-Ty=251
-FFCount=2
-FF1x=389
-FF1y=244
-FF2x=413
-FF2y=276
-[Territory_16]
-Color=8388832
-Tx=433
-Ty=314
-FFCount=1
-FF1x=436
-FF1y=277
-[Territory_17]
-Color=8404992
-Tx=403
-Ty=339
-FFCount=2
-FF1x=405
-FF1y=330
-FF2x=421
-FF2y=365
-[Territory_18]
-Color=8405088
-Tx=402
-Ty=395
-FFCount=1
-FF1x=397
-FF1y=362
-[Territory_19]
-Color=8413376
-Tx=472
-Ty=386
-FFCount=1
-FF1x=464
-FF1y=382
-[Territory_20]
-Color=8437824
-Tx=328
-Ty=68
-FFCount=1
-FF1x=319
-FF1y=94
-[Territory_21]
-Color=8437952
-Tx=399
-Ty=72
-FFCount=2
-FF1x=420
-FF1y=55
-FF2x=418
-FF2y=120
-[Territory_22]
-Color=8429760
-Tx=440
-Ty=135
-FFCount=3
-FF1x=473
-FF1y=81
-FF2x=498
-FF2y=2
-FF3x=439
-FF3y=76
-[Territory_23]
-Color=8429568
-Tx=385
-Ty=160
-FFCount=2
-FF1x=386
-FF1y=157
-FF2x=402
-FF2y=181
-[Territory_24]
-Color=8437984
-Tx=309
-Ty=144
-FFCount=2
-FF1x=348
-FF1y=161
-FF2x=363
-FF2y=162
-[Territory_25]
-Color=8437920
-Tx=327
-Ty=194
-FFCount=2
-FF1x=361
-FF1y=181
-FF2x=353
-FF2y=221
-[Territory_26]
-Color=8446112
-Tx=404
-Ty=190
-FFCount=4
-FF1x=394
-FF1y=182
-FF2x=412
-FF2y=214
-FF3x=412
-FF3y=214
-FF4x=419
-FF4y=212
-[Territory_27]
-Color=12583104
-Tx=447
-Ty=229
-FFCount=1
-FF1x=429
-FF1y=215
-[Territory_28]
-Color=12591232
-Tx=510
-Ty=118
-FFCount=1
-FF1x=513
-FF1y=59
-[Territory_29]
-Color=12582912
-Tx=495
-Ty=190
-FFCount=1
-FF1x=476
-FF1y=171
-[Territory_30]
-Color=12599520
-Tx=516
-Ty=259
-FFCount=3
-FF1x=505
-FF1y=255
-FF2x=535
-FF2y=311
-FF3x=530
-FF3y=306
-[Territory_31]
-Color=12632256
-Tx=557
-Ty=280
-FFCount=4
-FF1x=570
-FF1y=268
-FF2x=601
-FF2y=280
-FF3x=583
-FF3y=324
-FF4x=598
-FF4y=299
-[Territory_32]
-Color=12583072
-Tx=565
-Ty=226
-FFCount=2
-FF1x=553
-FF1y=189
-FF2x=624
-FF2y=265
-[Territory_33]
-Color=8413408
-Tx=602
-Ty=185
-FFCount=1
-FF1x=564
-FF1y=179
-[Territory_34]
-Color=12632128
-Tx=554
-Ty=50
-FFCount=1
-FF1x=567
-FF1y=10
-[Territory_35]
-Color=12615904
-Tx=623
-Ty=75
-FFCount=1
-FF1x=614
-FF1y=38
-[Territory_36]
-Color=12623936
-Tx=599
-Ty=143
-FFCount=1
-FF1x=602
-FF1y=124
-[Territory_37]
-Color=12624000
-Tx=712
-Ty=88
-FFCount=1
-FF1x=719
-FF1y=71
-[Territory_38]
-Color=12624096
-Tx=674
-Ty=215
-FFCount=3
-FF1x=659
-FF1y=231
-FF2x=671
-FF2y=159
-FF3x=669
-FF3y=196
-[Territory_39]
-Color=12583008
-Tx=559
-Ty=345
-FFCount=13
-FF1x=605
-FF1y=333
-FF2x=623
-FF2y=285
-FF3x=627
-FF3y=299
-FF4x=631
-FF4y=302
-FF5x=626
-FF5y=306
-FF6x=618
-FF6y=307
-FF7x=631
-FF7y=313
-FF8x=569
-FF8y=322
-FF9x=623
-FF9y=334
-FF10x=621
-FF10y=339
-FF11x=591
-FF11y=355
-FF12x=616
-FF12y=361
-FF13x=602
-FF13y=359
-[Territory_40]
-Color=12607488
-Tx=615
-Ty=400
-FFCount=1
-FF1x=651
-FF1y=376
-[Territory_41]
-Color=15780518
-Tx=655
-Ty=413
-FFCount=4
-FF1x=670
-FF1y=389
-FF2x=718
-FF2y=397
-FF3x=736
-FF3y=444
-FF4x=733
-FF4y=464
-[Territory_42]
-Color=12607680
-Tx=669
-Ty=327
-FFCount=2
-FF1x=667
-FF1y=353
-FF2x=684
-FF2y=352
diff --git a/Maps/std_map_small.bmp b/Maps/std_map_small.bmp
deleted file mode 100644
index a2dd81d..0000000
Binary files a/Maps/std_map_small.bmp and /dev/null differ
diff --git a/Maps/std_map_small.trm b/Maps/std_map_small.trm
deleted file mode 100644
index 470f6bb..0000000
--- a/Maps/std_map_small.trm
+++ /dev/null
@@ -1,737 +0,0 @@
-[Map]
-Desc=Standard map - Small
-FontName=Courier New
-FontSize=8
-Author=Mario Ferrari
-Revision=1.0
-
-[Territory_1]
-Color=24576
-Tx=22
-Ty=69
-FFCount=1
-FF1x=16
-FF1y=53
-
-[Territory_2]
-Color=16608
-Tx=72
-Ty=74
-FFCount=2
-FF1x=64
-FF1y=67
-FF2x=92
-FF2y=25
-
-[Territory_3]
-Color=12639424
-Tx=220
-Ty=29
-FFCount=4
-FF1x=207
-FF1y=11
-FF2x=142
-FF2y=21
-FF3x=118
-FF3y=22
-FF4x=129
-FF4y=37
-
-[Territory_4]
-Color=24768
-Tx=67
-Ty=117
-FFCount=1
-FF1x=69
-FF1y=109
-
-[Territory_5]
-Name=Ontario
-Cont=1
-Color=16480
-BCount=6
-B_1=2
-B_2=3
-B_3=4
-B_4=6
-B_5=7
-B_6=8
-Tx=111
-Ty=123
-FFCount=1
-FF1x=107
-FF1y=108
-
-[Territory_6]
-Name=Quebec
-Cont=1
-Color=24800
-BCount=3
-B_1=3
-B_2=5
-B_3=8
-Tx=165
-Ty=123
-FFCount=3
-FF1x=196
-FF1y=133
-FF2x=164
-FF2y=106
-FF3x=190
-FF3y=127
-
-[Territory_7]
-Name=Western US
-Cont=1
-Color=24672
-BCount=4
-B_1=4
-B_2=5
-B_3=8
-B_4=9
-Tx=92
-Ty=165
-FFCount=1
-FF1x=86
-FF1y=153
-
-[Territory_8]
-Name=Eastern US
-Cont=1
-Color=49152
-BCount=4
-B_1=5
-B_2=6
-B_3=7
-B_4=9
-Tx=134
-Ty=180
-FFCount=1
-FF1x=132
-FF1y=159
-
-[Territory_9]
-Name=Central America
-Cont=1
-Color=57536
-BCount=3
-B_1=7
-B_2=8
-B_3=10
-Tx=90
-Ty=223
-FFCount=5
-FF1x=106
-FF1y=208
-FF2x=149
-FF2y=221
-FF3x=168
-FF3y=230
-FF4x=178
-FF4y=233
-FF5x=159
-FF5y=235
-
-[Territory_10]
-Name=Venezuela
-Cont=2
-Color=4194464
-BCount=3
-B_1=9
-B_2=11
-B_3=12
-Tx=170
-Ty=245
-FFCount=2
-FF1x=168
-FF1y=272
-FF2x=195
-FF2y=266
-
-[Territory_11]
-Name=Peru
-Cont=2
-Color=4219104
-BCount=3
-B_1=10
-B_2=12
-B_3=13
-Tx=149
-Ty=304
-FFCount=1
-FF1x=159
-FF1y=282
-
-[Territory_12]
-Name=Brazil
-Cont=2
-Color=4194528
-BCount=4
-B_1=10
-B_2=11
-B_3=13
-B_4=14
-Tx=197
-Ty=292
-FFCount=1
-FF1x=184
-FF1y=276
-
-[Territory_13]
-Name=Argentina
-Cont=2
-Color=4235488
-BCount=2
-B_1=11
-B_2=12
-Tx=174
-Ty=349
-FFCount=2
-FF1x=177
-FF1y=332
-FF2x=190
-FF2y=413
-
-[Territory_14]
-Name=North Africa
-Cont=3
-Color=8388800
-BCount=6
-B_1=25
-B_2=26
-B_3=12
-B_4=15
-B_5=16
-B_6=17
-Tx=287
-Ty=224
-FFCount=1
-FF1x=290
-FF1y=196
-
-[Territory_15]
-Name=Egypt
-Cont=3
-Color=8413184
-BCount=4
-B_1=14
-B_2=16
-B_3=26
-B_4=27
-Tx=331
-Ty=207
-FFCount=2
-FF1x=320
-FF1y=199
-FF2x=339
-FF2y=228
-
-[Territory_16]
-Name=East Africa
-Cont=3
-Color=8388832
-BCount=6
-B_1=14
-B_2=15
-B_3=17
-B_4=18
-B_5=19
-B_6=27
-Tx=356
-Ty=257
-FFCount=2
-FF1x=347
-FF1y=229
-FF2x=362
-FF2y=293
-
-[Territory_17]
-Name=Congo
-Cont=3
-Color=8404992
-BCount=3
-B_1=14
-B_2=16
-B_3=18
-Tx=331
-Ty=275
-FFCount=2
-FF1x=333
-FF1y=269
-FF2x=345
-FF2y=297
-
-[Territory_18]
-Name=South Africa
-Cont=3
-Color=8405088
-BCount=3
-B_1=16
-B_2=17
-B_3=19
-Tx=333
-Ty=327
-FFCount=1
-FF1x=327
-FF1y=299
-
-[Territory_19]
-Name=Madagascar
-Cont=3
-Color=8413376
-BCount=2
-B_1=16
-B_2=18
-Tx=387
-Ty=315
-FFCount=1
-FF1x=379
-FF1y=314
-
-[Territory_20]
-Name=Iceland
-Cont=4
-Color=8437824
-BCount=3
-B_1=3
-B_2=21
-B_3=24
-Tx=273
-Ty=55
-FFCount=1
-FF1x=265
-FF1y=78
-
-[Territory_21]
-Name=Scandinavia
-Cont=4
-Color=8437952
-BCount=4
-B_1=20
-B_2=22
-B_3=23
-B_4=24
-Tx=315
-Ty=62
-FFCount=2
-FF1x=344
-FF1y=45
-FF2x=321
-FF2y=99
-
-[Territory_22]
-Name=Ukraine
-Cont=4
-Color=8429760
-BCount=6
-B_1=21
-B_2=23
-B_3=26
-B_4=27
-B_5=28
-B_6=29
-Tx=364
-Ty=109
-FFCount=2
-FF1x=392
-FF1y=73
-FF2x=409
-FF2y=2
-
-[Territory_23]
-Name=Northern Europe
-Cont=4
-Color=8429568
-BCount=5
-B_1=21
-B_2=22
-B_3=24
-B_4=25
-B_5=26
-Tx=315
-Ty=132
-FFCount=3
-FF1x=309
-FF1y=134
-FF2x=331
-FF2y=148
-FF3x=339
-FF3y=141
-
-[Territory_24]
-Name=Great Britain
-Cont=4
-Color=8437984
-BCount=4
-B_1=20
-B_2=21
-B_3=23
-B_4=25
-Tx=256
-Ty=111
-FFCount=2
-FF1x=296
-FF1y=137
-FF2x=283
-FF2y=132
-
-[Territory_25]
-Name=Western Europe
-Cont=4
-Color=8437920
-BCount=4
-B_1=23
-B_2=24
-B_3=26
-B_4=14
-Tx=274
-Ty=160
-FFCount=2
-FF1x=301
-FF1y=151
-FF2x=289
-FF2y=180
-
-[Territory_26]
-Name=Southern Europe
-Cont=4
-Color=8446112
-BCount=6
-B_1=22
-B_2=23
-B_3=25
-B_4=27
-B_5=14
-B_6=15
-Tx=332
-Ty=154
-FFCount=2
-FF1x=314
-FF1y=156
-FF2x=336
-FF2y=174
-
-[Territory_27]
-Name=Middle East
-Cont=5
-Color=12583104
-BCount=6
-B_1=22
-B_2=26
-B_3=15
-B_4=16
-B_5=29
-B_6=30
-Tx=370
-Ty=188
-FFCount=1
-FF1x=358
-FF1y=177
-
-[Territory_28]
-Name=Yamal-Nemets
-Cont=5
-Color=12591232
-BCount=4
-B_1=22
-B_2=29
-B_3=33
-B_4=34
-Tx=419
-Ty=94
-FFCount=1
-FF1x=414
-FF1y=88
-FF2x=511
-FF2y=234
-FF3x=515
-FF3y=245
-FF4x=518
-FF4y=248
-FF5x=514
-FF5y=251
-FF6x=507
-FF6y=252
-FF7x=518
-FF7y=257
-FF8x=503
-FF8y=262
-FF9x=467
-FF9y=264
-FF10x=511
-FF10y=274
-FF11x=512
-FF11y=279
-FF12x=485
-FF12y=291
-FF13x=506
-FF13y=296
-
-[Territory_29]
-Name=Kazakhstan
-Cont=5
-Color=12582912
-BCount=5
-B_1=22
-B_2=28
-B_3=27
-B_4=30
-B_5=32
-Tx=406
-Ty=153
-FFCount=1
-FF1x=394
-FF1y=144
-
-[Territory_30]
-Name=India
-Cont=5
-Color=12599520
-BCount=4
-B_1=27
-B_2=29
-B_3=31
-B_4=32
-Tx=430
-Ty=213
-FFCount=2
-FF1x=417
-FF1y=210
-FF2x=439
-FF2y=255
-
-[Territory_31]
-Name=Siam
-Cont=5
-Color=12632256
-BCount=3
-B_1=30
-B_2=32
-B_3=39
-Tx=459
-Ty=228
-FFCount=5
-FF1x=478
-FF1y=264
-FF2x=494
-FF2y=231
-FF3x=474
-FF3y=246
-FF4x=471
-FF4y=212
-FF5x=486
-FF5y=251
-
-[Territory_32]
-Name=China
-Cont=5
-Color=12583072
-BCount=4
-B_1=29
-B_2=30
-B_3=31
-B_4=33
-Tx=464
-Ty=183
-FFCount=2
-FF1x=447
-FF1y=164
-FF2x=512
-FF2y=217
-
-[Territory_33]
-Name=Mongolia
-Cont=5
-Color=8413408
-BCount=6
-B_1=28
-B_2=32
-B_3=34
-B_4=36
-B_5=37
-B_6=38
-Tx=494
-Ty=152
-FFCount=1
-FF1x=469
-FF1y=152
-
-[Territory_34]
-Name=Taymyr
-Cont=5
-Color=12632128
-BCount=4
-B_1=28
-B_2=33
-B_3=35
-B_4=36
-Tx=459
-Ty=57
-FFCount=1
-FF1x=455
-FF1y=26
-FF2x=602
-FF2y=53
-
-[Territory_35]
-Name=Yakut
-Cont=5
-Color=12615904
-BCount=3
-B_1=34
-B_2=36
-B_3=37
-Tx=514
-Ty=61
-FFCount=1
-FF1x=504
-FF1y=33
-FF2x=550
-FF2y=133
-FF3x=549
-FF3y=154
-FF4x=549
-FF4y=161
-FF5x=546
-FF5y=175
-
-[Territory_36]
-Name=Buryat
-Cont=5
-Color=12623936
-BCount=4
-B_1=33
-B_2=34
-B_3=35
-B_4=37
-Tx=493
-Ty=115
-FFCount=2
-FF1x=495
-FF1y=103
-FF2x=526
-FF2y=118
-
-[Territory_37]
-Name=Koryak
-Cont=5
-Color=12624000
-BCount=5
-B_1=1
-B_2=33
-B_3=35
-B_4=36
-B_5=38
-Tx=586
-Ty=72
-FFCount=1
-FF1x=584
-FF1y=68
-
-[Territory_38]
-Name=Japan
-Cont=5
-Color=12624096
-BCount=2
-B_1=33
-B_2=37
-Tx=554
-Ty=176
-FFCount=4
-FF1x=542
-FF1y=189
-FF2x=550
-FF2y=133
-FF3x=549
-FF3y=154
-FF4x=549
-FF4y=161
-
-[Territory_39]
-Name=Indonesia
-Cont=6
-Color=12583008
-BCount=3
-B_1=31
-B_2=40
-B_3=42
-Tx=459
-Ty=281
-FFCount=13
-FF1x=508
-FF1y=296
-FF2x=493
-FF2y=295
-FF3x=475
-FF3y=272
-FF4x=500
-FF4y=274
-FF5x=512
-FF5y=283
-FF6x=514
-FF6y=275
-FF7x=519
-FF7y=258
-FF8x=508
-FF8y=252
-FF9x=512
-FF9y=239
-FF10x=515
-FF10y=253
-FF11x=515
-FF11y=253
-FF12x=516
-FF12y=246
-FF13x=518
-FF13y=248
-
-[Territory_40]
-Name=Western Australia
-Cont=6
-Color=12607488
-BCount=3
-B_1=39
-B_2=41
-B_3=42
-Tx=506
-Ty=328
-FFCount=1
-FF1x=530
-FF1y=317
-
-[Territory_41]
-Name=Eastern Australia
-Cont=6
-Color=15780518
-BCount=2
-B_1=40
-B_2=42
-Tx=541
-Ty=339
-FFCount=5
-FF1x=551
-FF1y=322
-FF2x=589
-FF2y=326
-FF3x=604
-FF3y=364
-FF4x=603
-FF4y=381
-FF5x=552
-FF5y=364
-
-[Territory_42]
-Name=New Guinea
-Cont=6
-Color=12607680
-BCount=3
-B_1=39
-B_2=40
-B_3=41
-Tx=550
-Ty=266
-FFCount=2
-FF1x=547
-FF1y=292
-FF2x=561
-FF2y=289
diff --git a/Move.dfm b/Move.dfm
deleted file mode 100644
index d2d8819..0000000
Binary files a/Move.dfm and /dev/null differ
diff --git a/Move.pas b/Move.pas
deleted file mode 100644
index 9e3c699..0000000
--- a/Move.pas
+++ /dev/null
@@ -1,142 +0,0 @@
-unit Move;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  Buttons, StdCtrls, ExtCtrls;
-
-type
-  TfMove = class(TForm)
-    panFromTerr: TPanel;
-    Label1: TLabel;
-    Label2: TLabel;
-    panFromArmies: TPanel;
-    panToTerr: TPanel;
-    panToArmies: TPanel;
-    cmdOk: TBitBtn;
-    cmdCancel: TBitBtn;
-    SpeedButton1: TSpeedButton;
-    SpeedButton2: TSpeedButton;
-    SpeedButton3: TSpeedButton;
-    SpeedButton4: TSpeedButton;
-    SpeedButton6: TSpeedButton;
-    SpeedButton7: TSpeedButton;
-    SpeedButton8: TSpeedButton;
-    SpeedButton9: TSpeedButton;
-    cmdAll: TBitBtn;
-    cmdBalance: TBitBtn;
-    procedure FormShow(Sender: TObject);
-    procedure MoveArmiesClick(Sender: TObject);
-    procedure cmdOkClick(Sender: TObject);
-    procedure cmdAllClick(Sender: TObject);
-    procedure cmdBalanceClick(Sender: TObject);
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
-    procedure cmdCancelClick(Sender: TObject);
-  private
-    procedure UpdateDisplay;
-  public
-    iProv, iDest, iMinDest,
-    iTf, iTt: integer;        // Territori Da e A attacco
-  end;
-
-var
-  fMove: TfMove;
-
-implementation
-
-{$R *.DFM}
-
-uses Globals, Main, Territ, Log;
-
-procedure TfMove.FormShow(Sender: TObject);
-begin
-  // posizionamento dinamico finestra
-  if arTerritory[iTf].Coord.X > fMain.Width div 2 then
-    Left := fMain.Left + 18
-  else
-    Left := fMain.Left + 338;
-  if arTerritory[iTf].Coord.Y > fMain.Height div 2 then
-    Top := fMain.Top + 70
-  else
-    Top := fMain.Top + 290;
-  // inizializzazione controlli
-  iProv := arTerritory[iTf].Army;
-  iDest := arTerritory[iTt].Army;
-  iMinDest := iDest;
-  panFromTerr.Caption := arTerritory[iTf].Name;
-  panToTerr.Caption   := arTerritory[iTt].Name;
-  UpdateDisplay;
-end;
-
-procedure TfMove.FormClose(Sender: TObject; var Action: TCloseAction);
-begin
-  if (ModalResult<>mrCancel) and arPlayer[iTurn].KeepLog then
-    ScriviLog('Troops move (' + IntToStr(arTerritory[iTt].Army-iMinDest)
-              + ') from ' + arTerritory[iTf].Name + ' to ' + arTerritory[iTt].Name);
-end;
-
-procedure TfMove.UpdateDisplay;
-begin
-  panFromArmies.Caption := IntToStr(iProv);
-  panToArmies.Caption   := IntToStr(iDest);
-end;
-
-procedure TfMove.MoveArmiesClick(Sender: TObject);
-var
-  iMove: integer;
-begin
- iMove := (Sender as TControl).Tag;
- if iProv-iMove<1 then iMove := iProv - 1;
- if iDest+iMove<iMinDest then iMove := iMinDest - iDest;
- dec(iProv,iMove);
- inc(idest,iMove);
- UpdateDisplay;
-end;
-
-procedure TfMove.cmdOkClick(Sender: TObject);
-begin
-  arTerritory[iTf].Army := iProv;
-  arTerritory[iTt].Army := iDest;
-  DisplayTerritory(iTf);
-  DisplayTerritory(iTt);
-  if arTerritory[iTt].Army=iMinDest then  // Se la situazione è quella iniziale
-    ModalResult := mrCancel;              // non considero lo spostamento avvenuto
-end;
-
-procedure TfMove.cmdAllClick(Sender: TObject);
-begin
-  arTerritory[iTf].Army := 1;
-  arTerritory[iTt].Army := iDest + iProv - 1;
-  DisplayTerritory(iTf);
-  DisplayTerritory(iTt);
-  if arTerritory[iTt].Army=iMinDest then  // Se la situazione è quella iniziale
-    ModalResult := mrCancel;              // non considero lo spostamento avvenuto
-end;
-
-procedure TfMove.cmdBalanceClick(Sender: TObject);
-var
-  iBal, iResto: integer;
-begin
-  iBal := (iProv + iDest) div 2;
-  iResto := (iProv + iDest) mod 2;
-  iProv := iBal;
-  iDest := iBal + iResto;
-  while iDest<iMinDest do begin
-    inc(iDest);
-    dec(iProv);
-  end;
-  arTerritory[iTf].Army := iProv;
-  arTerritory[iTt].Army := iDest;
-  DisplayTerritory(iTf);
-  DisplayTerritory(iTt);
-  if arTerritory[iTt].Army=iMinDest then  // Se la situazione è quella iniziale
-    ModalResult := mrCancel;              // non considero lo spostamento avvenuto
-end;
-
-procedure TfMove.cmdCancelClick(Sender: TObject);
-begin
-  //
-end;
-
-end.
diff --git a/NewGame.dfm b/NewGame.dfm
deleted file mode 100644
index f5aff45..0000000
Binary files a/NewGame.dfm and /dev/null differ
diff --git a/NewGame.pas b/NewGame.pas
deleted file mode 100644
index a3928bb..0000000
--- a/NewGame.pas
+++ /dev/null
@@ -1,408 +0,0 @@
-unit NewGame;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, Buttons, ExtCtrls, ImgList;
-
-type
-  TfNewGame = class(TForm)
-    panPlayer1: TPanel;
-    chkName1: TCheckBox;
-    imlPlayers: TImageList;
-    imgType1: TImage;
-    cmdChange1: TSpeedButton;
-    panColor1: TPanel;
-    panPlayer2: TPanel;
-    imgType2: TImage;
-    cmdChange2: TSpeedButton;
-    chkName2: TCheckBox;
-    panColor2: TPanel;
-    Panel1: TPanel;
-    imgType3: TImage;
-    cmdChange3: TSpeedButton;
-    chkName3: TCheckBox;
-    panColor3: TPanel;
-    Panel3: TPanel;
-    imgType4: TImage;
-    cmdChange4: TSpeedButton;
-    chkName4: TCheckBox;
-    panColor4: TPanel;
-    Panel5: TPanel;
-    imgType5: TImage;
-    cmdChange5: TSpeedButton;
-    chkName5: TCheckBox;
-    panColor5: TPanel;
-    Panel7: TPanel;
-    imgType6: TImage;
-    cmdChange6: TSpeedButton;
-    chkName6: TCheckBox;
-    panColor6: TPanel;
-    Panel9: TPanel;
-    imgType7: TImage;
-    cmdChange7: TSpeedButton;
-    chkName7: TCheckBox;
-    panColor7: TPanel;
-    Panel11: TPanel;
-    imgType8: TImage;
-    cmdChange8: TSpeedButton;
-    chkName8: TCheckBox;
-    panColor8: TPanel;
-    Panel13: TPanel;
-    imgType9: TImage;
-    cmdChange9: TSpeedButton;
-    chkName9: TCheckBox;
-    panColor9: TPanel;
-    Panel15: TPanel;
-    imgType10: TImage;
-    cmdChange10: TSpeedButton;
-    chkName10: TCheckBox;
-    panColor10: TPanel;
-    cmdOK: TBitBtn;
-    BitBtn1: TBitBtn;
-    Label1: TLabel;
-    GroupBox1: TGroupBox;
-    Label2: TLabel;
-    cboSetup: TComboBox;
-    cmdSaveSetup: TBitBtn;
-    cmdDeleteSetup: TBitBtn;
-    procedure FormShow(Sender: TObject);
-    procedure cmdOKClick(Sender: TObject);
-    procedure cmdChangeClick(Sender: TObject);
-    procedure cboSetupSelect(Sender: TObject);
-    procedure cmdSaveSetupClick(Sender: TObject);
-    procedure BitBtn1Click(Sender: TObject);
-    procedure cmdDeleteSetupClick(Sender: TObject);
-  private
-    procedure ActivePlayers;
-  public
-    { Public declarations }
-  end;
-
-var
-  fNewGame: TfNewGame;
-
-implementation
-
-{$R *.DFM}
-
-uses Globals, Players, Stats;
-
-procedure TfNewGame.FormShow(Sender: TObject);
-var
-  i: integer;
-begin
-  chkName1.Caption := arPlayer[1].Name;
-  chkName1.Checked := arPlayer[1].Active;
-  imgType1.Picture.Bitmap := nil;
-  if arPlayer[1].Computer then
-    imlPlayers.GetBitmap(1, imgType1.Picture.Bitmap)
-  else
-    imlPlayers.GetBitmap(0, imgType1.Picture.Bitmap);
-  panColor1.Color := arPlayer[1].Color;
-
-  chkName2.Caption := arPlayer[2].Name;
-  chkName2.Checked := arPlayer[2].Active;
-  imgType2.Picture.Bitmap := nil;
-  if arPlayer[2].Computer then
-    imlPlayers.GetBitmap(1, imgType2.Picture.Bitmap)
-  else
-    imlPlayers.GetBitmap(0, imgType2.Picture.Bitmap);
-  panColor2.Color := arPlayer[2].Color;
-
-  chkName3.Caption := arPlayer[3].Name;
-  chkName3.Checked := arPlayer[3].Active;
-  imgType3.Picture.Bitmap := nil;
-  if arPlayer[3].Computer then
-    imlPlayers.GetBitmap(1, imgType3.Picture.Bitmap)
-  else
-    imlPlayers.GetBitmap(0, imgType3.Picture.Bitmap);
-  panColor3.Color := arPlayer[3].Color;
-
-  chkName4.Caption := arPlayer[4].Name;
-  chkName4.Checked := arPlayer[4].Active;
-  imgType4.Picture.Bitmap := nil;
-  if arPlayer[4].Computer then
-    imlPlayers.GetBitmap(1, imgType4.Picture.Bitmap)
-  else
-    imlPlayers.GetBitmap(0, imgType4.Picture.Bitmap);
-  panColor4.Color := arPlayer[4].Color;
-
-  chkName5.Caption := arPlayer[5].Name;
-  chkName5.Checked := arPlayer[5].Active;
-  imgType5.Picture.Bitmap := nil;
-  if arPlayer[5].Computer then
-    imlPlayers.GetBitmap(1, imgType5.Picture.Bitmap)
-  else
-    imlPlayers.GetBitmap(0, imgType5.Picture.Bitmap);
-  panColor5.Color := arPlayer[5].Color;
-
-  chkName6.Caption := arPlayer[6].Name;
-  chkName6.Checked := arPlayer[6].Active;
-  imgType6.Picture.Bitmap := nil;
-  if arPlayer[6].Computer then
-    imlPlayers.GetBitmap(1, imgType6.Picture.Bitmap)
-  else
-    imlPlayers.GetBitmap(0, imgType6.Picture.Bitmap);
-  panColor6.Color := arPlayer[6].Color;
-
-  chkName7.Caption := arPlayer[7].Name;
-  chkName7.Checked := arPlayer[7].Active;
-  imgType7.Picture.Bitmap := nil;
-  if arPlayer[7].Computer then
-    imlPlayers.GetBitmap(1, imgType7.Picture.Bitmap)
-  else
-    imlPlayers.GetBitmap(0, imgType7.Picture.Bitmap);
-  panColor7.Color := arPlayer[7].Color;
-
-  chkName8.Caption := arPlayer[8].Name;
-  chkName8.Checked := arPlayer[8].Active;
-  imgType8.Picture.Bitmap := nil;
-  if arPlayer[8].Computer then
-    imlPlayers.GetBitmap(1, imgType8.Picture.Bitmap)
-  else
-    imlPlayers.GetBitmap(0, imgType8.Picture.Bitmap);
-  panColor8.Color := arPlayer[8].Color;
-
-  chkName9.Caption := arPlayer[9].Name;
-  chkName9.Checked := arPlayer[9].Active;
-  imgType9.Picture.Bitmap := nil;
-  if arPlayer[9].Computer then
-    imlPlayers.GetBitmap(1, imgType9.Picture.Bitmap)
-  else
-    imlPlayers.GetBitmap(0, imgType9.Picture.Bitmap);
-  panColor9.Color := arPlayer[9].Color;
-
-  chkName10.Caption := arPlayer[10].Name;
-  chkName10.Checked := arPlayer[10].Active;
-  imgType10.Picture.Bitmap := nil;
-  if arPlayer[10].Computer then
-    imlPlayers.GetBitmap(1, imgType10.Picture.Bitmap)
-  else
-    imlPlayers.GetBitmap(0, imgType10.Picture.Bitmap);
-  panColor10.Color := arPlayer[10].Color;
-
-  // load quick setup combo
-  cboSetup.Items.Clear;
-  for i := 1 to iPlSetCount do begin
-    cboSetup.Items.Add(arPlayersSet[i].Name);
-  end;
-  if iPlSet = 0 then
-    cboSetup.Text := ''
-  else
-    cboSetup.ItemIndex := iPlSet - 1;
-end;
-
-procedure TfNewGame.cboSetupSelect(Sender: TObject);
-var
-  i, iP: integer;
-begin
-  i := cboSetup.ItemIndex + 1;
-  if i > iPlSetCount then
-    exit;
-  for iP := 1 to MAXPLAYERS do begin
-    if (iP = 1) and not arPlayer[iP].Computer then
-      continue;
-    arPlayer[iP].Name := arPlayersSet[i].arPlSet[iP].Name;
-    arPlayer[iP].Computer := arPlayersSet[i].arPlSet[iP].Computer;
-    arPlayer[iP].PrgFile := arPlayersSet[i].arPlSet[iP].PrgFile;
-    arPlayer[iP].Color := arPlayersSet[i].arPlSet[iP].Color;
-    arPlayer[iP].Active := arPlayersSet[i].arPlSet[iP].Active;
-    arPlayer[iP].CardsHandling := arPlayersSet[i].arPlSet[iP].CardsHandling;
-  end;
-  iPlSet := i;
-  FormShow(Sender);
-end;
-
-procedure TfNewGame.ActivePlayers;
-begin
-  arPlayer[1].Active := chkName1.Checked;
-  arPlayer[2].Active := chkName2.Checked;
-  arPlayer[3].Active := chkName3.Checked;
-  arPlayer[4].Active := chkName4.Checked;
-  arPlayer[5].Active := chkName5.Checked;
-  arPlayer[6].Active := chkName6.Checked;
-  arPlayer[7].Active := chkName7.Checked;
-  arPlayer[8].Active := chkName8.Checked;
-  arPlayer[9].Active := chkName9.Checked;
-  arPlayer[10].Active := chkName10.Checked;
-end;
-
-procedure TfNewGame.cmdChangeClick(Sender: TObject);
-var
-  i: integer;
-begin
-  ActivePlayers;
-  i := (Sender as TSpeedButton).Tag;
-  with fPlayers do begin
-    cboColor.Selected := arPlayer[i].Color;
-    if arPlayer[i].Computer then begin
-      optTipo.ItemIndex := 1;
-      txtName.Text := arPlayer[i].PrgFile;
-    end
-    else begin
-      optTipo.ItemIndex := 0;
-      txtName.Text := arPlayer[i].Name;
-    end;
-    cboPrgFile.Text := arPlayer[i].PrgFile;
-    optCarte.ItemIndex := ord(arPlayer[i].CardsHandling);
-    chkLog.Checked := arPlayer[i].KeepLog;
-  end;
-  // show fPlayers form
-  if fPlayers.ShowModal = mrOK then begin
-    with fPlayers do begin
-      // put player's parameters into array
-      arPlayer[i].Computer := optTipo.ItemIndex = 1;
-      arPlayer[i].CardsHandling := TCardsHandling(optCarte.ItemIndex);
-      arPlayer[i].Color := cboColor.Selected;
-      arPlayer[i].KeepLog := chkLog.Checked;
-      if arPlayer[i].Computer then begin
-        arPlayer[i].PrgFile := cboPrgFile.Text;
-        arPlayer[i].Name := lowercase(ChangeFileExt(cboPrgFile.Text, ''));
-      end
-      else begin
-        arPlayer[i].Name := txtName.Text;
-      end;
-    end;
-    // update stats form with new names and colors
-    UpdateStats;
-    // players set has been modified
-    if iPlSet <= STDPLSETS then
-      iPlSet := 0;
-    // copy parameters in controls
-    FormShow(Sender);
-  end;
-end;
-
-procedure TfNewGame.cmdOKClick(Sender: TObject);
-var
-  iG, iAttivi: integer;
-begin
-  ActivePlayers;
-  iAttivi := 0;
-  for iG := 1 to MAXPLAYERS do begin
-    with arPlayer[iG] do begin
-      if Active then begin
-        inc(iAttivi);
-        if Computer then begin
-          if not FileExists(sG_AppPath + 'players\' + PrgFile) then begin
-            MessageDlg(Name + ':' + sG_AppPath + 'players\' + PrgFile +
-                ' not found.', mtError, [mbOK], 0);
-            ModalResult := mrNone;
-          end;
-        end;
-      end;
-    end;
-  end;
-
-  if iAttivi < 2 then begin
-    ModalResult := mrNone;
-    MessageDlg('At least two players required.', mtError, [mbOK], 0);
-  end;
-
-end;
-
-procedure TfNewGame.cmdSaveSetupClick(Sender: TObject);
-var
-  sName: string;
-  i, iPS, iP: integer;
-begin
-  ActivePlayers;
-  sName := trim(cboSetup.Text);
-  if sName = '' then begin
-    MessageDlg('You must specify a name.', mtError, [mbOK], 0);
-    exit;
-  end;
-  iPS := 0;
-  for i := 1 to MAXPLSETS do begin
-    if CompareText(sName, arPlayersSet[i].Name) = 0 then begin
-      iPS := i;
-      break;
-    end;
-  end;
-  // check for errors and ask for confirmation
-  if iPS > 0 then begin
-    if iPS <= STDPLSETS then begin
-      MessageDlg('"' + sName + '" is a standard setup and cannot be modified.',
-        mtError, [mbOK], 0);
-      exit;
-    end;
-    if MessageDlg('A setup with name "' + sName + '" already exists. Confirm?',
-      mtConfirmation, [mbYes, mbNo], 0) <> mrYes then
-      exit;
-  end
-  else begin
-    if iPlSetCount >= MAXPLSETS then begin
-      MessageDlg('You have reached the maximun number of custom setups.',
-        mtError, [mbOK], 0);
-      exit;
-    end;
-    if MessageDlg('Save current setup with name "' + sName + '". Confirm?',
-      mtConfirmation, [mbYes, mbNo], 0) <> mrYes then
-      exit;
-  end;
-  // save setup
-  if iPS = 0 then begin
-    inc(iPlSetCount);
-    iPS := iPlSetCount;
-  end;
-  arPlayersSet[iPS].Name := sName;
-  for iP := 1 to MAXPLAYERS do begin
-    arPlayersSet[iPS].arPlSet[iP].Name := arPlayer[iP].Name;
-    arPlayersSet[iPS].arPlSet[iP].Computer := arPlayer[iP].Computer;
-    arPlayersSet[iPS].arPlSet[iP].PrgFile := arPlayer[iP].PrgFile;
-    arPlayersSet[iPS].arPlSet[iP].Color := arPlayer[iP].Color;
-    arPlayersSet[iPS].arPlSet[iP].Active := arPlayer[iP].Active;
-    arPlayersSet[iPS].arPlSet[iP].CardsHandling := arPlayer[iP].CardsHandling;
-  end;
-  iPlSet := iPS;
-  FormShow(Sender);
-end;
-
-procedure TfNewGame.cmdDeleteSetupClick(Sender: TObject);
-var
-  sName: string;
-  i, iPS: integer;
-begin
-  ActivePlayers;
-  sName := trim(cboSetup.Text);
-  if sName = '' then begin
-    MessageDlg('You must select an existing setup.', mtError, [mbOK], 0);
-    exit;
-  end;
-  iPS := 0;
-  for i := 1 to MAXPLSETS do begin
-    if CompareText(sName, arPlayersSet[i].Name) = 0 then begin
-      iPS := i;
-      break;
-    end;
-  end;
-  // check for errors and ask for confirmation
-  if iPS = 0 then begin
-    MessageDlg('You must select an existing setup.', mtError, [mbOK], 0);
-    exit;
-  end;
-  if iPS <= STDPLSETS then begin
-    MessageDlg('"' + sName + '" is a standard setup and cannot be deleted.',
-      mtError, [mbOK], 0);
-    exit;
-  end;
-  if MessageDlg('Delete setup with name "' + sName + '". Confirm?',
-    mtConfirmation, [mbYes, mbNo], 0) <> mrYes then
-    exit;
-  // delete setup
-  for i := iPS to iPlSetCount - 1 do begin
-    arPlayersSet[iPS]:=arPlayersSet[iPS+1];
-  end;
-  dec(iPlSetCount);
-  iPlSet := 0;
-  FormShow(Sender);
-end;
-
-procedure TfNewGame.BitBtn1Click(Sender: TObject);
-begin
-  ActivePlayers;
-end;
-
-end.
diff --git a/Players.dfm b/Players.dfm
deleted file mode 100644
index 118c4ac..0000000
Binary files a/Players.dfm and /dev/null differ
diff --git a/Players.pas b/Players.pas
deleted file mode 100644
index 22fb69d..0000000
--- a/Players.pas
+++ /dev/null
@@ -1,87 +0,0 @@
-unit Players;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, Buttons, ExtCtrls, EdisCustom;
-
-type
-  TfPlayers = class(TForm)
-    txtName: TEdit;
-    optTipo: TRadioGroup;
-    lblName: TLabel;
-    Label3: TLabel;
-    cmdOK: TBitBtn;
-    optCarte: TRadioGroup;
-    chkLog: TCheckBox;
-    cboPrgFile: TEdisComboDialog;
-    cboColor: TColorBox;
-    BitBtn1: TBitBtn;
-    procedure FormShow(Sender: TObject);
-    procedure optTipoClick(Sender: TObject);
-    procedure cboPrgFileCustomDlg(Sender: TObject);
-    procedure cboColorChange(Sender: TObject);
-    procedure cmdOKClick(Sender: TObject);
-  private
-    { Private declarations }
-  public
-    { Public declarations }
-  end;
-
-var
-  fPlayers: TfPlayers;
-
-implementation
-
-{$R *.DFM}
-
-uses Globals, Stats, Programs;
-
-procedure TfPlayers.FormShow(Sender: TObject);
-begin
-  optTipoClick(Sender);
-end;
-
-procedure TfPlayers.cboColorChange(Sender: TObject);
-begin
-  if cboColor.Selected = clBlack then
-    cboColor.Selected := clGray;
-  if cboColor.Selected = clWhite then
-    cboColor.Selected := clCream;
-end;
-
-procedure TfPlayers.optTipoClick(Sender: TObject);
-begin
-  case optTipo.ItemIndex of
-    0: begin
-        cboPrgFile.Visible := false;
-        txtName.Visible := true;
-        lblName.Caption := 'Name';
-        optCarte.Enabled := true;
-      end;
-    1: begin
-        cboPrgFile.Visible := true;
-        txtName.Visible := false;
-        lblName.Caption := 'Program';
-        optCarte.Enabled := false;
-      end;
-  end;
-end;
-
-procedure TfPlayers.cboPrgFileCustomDlg(Sender: TObject);
-begin
-  if fPrograms.ShowModal = mrOK then begin
-  end;
-end;
-
-procedure TfPlayers.cmdOKClick(Sender: TObject);
-begin
-  if (optTipo.ItemIndex = 1) and (trim(cboPrgFile.Text) = '') then begin
-    MessageDlg('Specify a program.', mtError, [mbOK], 0);
-    cboPrgFile.SetFocus;
-    ModalResult := mrNone;
-  end;
-end;
-
-end.
diff --git a/Players/alexander.trp b/Players/alexander.trp
deleted file mode 100644
index 56da068..0000000
--- a/Players/alexander.trp
+++ /dev/null
@@ -1,255 +0,0 @@
-{
-Program: Alexander
-
-Author: Alexander Gogava 03.20.99 < alex@argosoft.com >.
-
-Description: A program that tries to assign and attack continents.
-Works best against 1 or 2 other computer players.
-
-History: Ported to TurboRisk 1.3 by Nathan Scarbrough.
-}
-{
-Procedures:
-
-ASSIGNMENT: assign continents with minimal enemy terrirories.
-
-PLACEMENT: place armies to the weakest fronts and territories,
-bordering continents. 
-
-ATTACK: aggressive: perform all attacks if force ratio>1.
-
-OCCUPATION: If both territories are 'front',balance armies. If FromTerritory is not front, all armies move to ToTerritory.
-
-FORTIFICATION: Find largest group of armies near (1 step) to front and move to front; If impossible - move largest group of armies to nearest largest group of armies.
-}
-
-procedure Assignment(var ToTerritory: integer);
-var
-T,TT,T2,i,j,EA,ET,PT,PA,C,MinTer: integer;
-begin
-
-// assign continents with minimal enemy terrirories.
-
- UBufferSet(49,49);
- UBufferSet(50,50);
-ToTerritory:=0;
-for T:=1 to 42 do
-begin
-for T2:=1 to 42 do
-begin
-TT:=T2;
-if (TOwner(T)=0)  then
-if (TOwner(TT)=PMe) then
-if (TContinent(T)=TContinent(TT)) then ToTerritory:=T; 
-end;
-end;
-
-if ToTerritory=0 then
-begin
-MinTer:=100;
-for T:=1 to 42 do
-begin
-if (TOwner(T)=0)  then  
-begin
-C:=TContinent(T);
-CAnalysis(C,PT,PA,ET,EA);
-if ET<=MinTer then 
-begin
-MinTer:=ET;
-ToTerritory:=T;
-end;
-end;
-end;
-end;
-
-end;
-
-
-procedure Placement(var ToTerritory: integer);
-var
-  TT,T,i,j,k,FC,EA,ET,x,CL,LT,LA: integer;
-  Ratio,MaxRatio,Coeff: double;
-begin
-
-// place armies in the weakest fronts and territories,
-// bordering continents. 
-
-  ToTerritory:=0;
-  MaxRatio:=0;
-
-// Change direction 
-  x:=trunc(UBufferGet(49)); x:=-x; UBufferSet(49,x);
-
-if ToTerritory=0 then
-  begin
-  MaxRatio:=0;
-  for TT:=1 to 42 do
-  begin
-  if x<0 then T:=TT else T:=43-TT;
-  if TIsFront(T) then
-    begin  // territory is mine and front
-    TWeakestFront(T,ET,EA);
-    Ratio := TArmies(T)/EA;
-    if Ratio>=1.5 then Ratio:=0;
-    if Ratio>MaxRatio then
-	begin
-        ToTerritory:=T;
-        MaxRatio:=Ratio;
-        end;
-    end;
-end;
-end;
-
-if ToTerritory=0 then
-begin
-MaxRatio:=0;
-for TT:=1 to 42 do
-  begin
-  if x<0 then T:=TT else T:=43-TT;
-  if TIsFront(T) then 
-     for i:=1 to TBordersCount(T) do
-     if ((TContinent(TBorder(T,i))<>TContinent(T)) and                     (TOwner(TBorder(T,i))<>PMe))then 
-     begin 
-     Ratio:=TArmies(T)/TArmies(TBorder(T,i));
-     if Ratio>=2.0 then Ratio:=0;
-     if Ratio>MaxRatio then 
-       begin
-       MaxRatio:=Ratio;
-       ToTerritory:=T;
-       end;
-       end;
-  end;
-end;
-
-if ToTerritory=0 then
-begin
- MaxRatio:=0; 
-  for TT:=1 to 42 do 
-  begin
-  if x<0 then T:=TT else T:=43-TT;
-    if TIsFront(T) then begin 
-      TStrongestFront(T,ET,EA);
-      Ratio := EA/TArmies(T);
-      if Ratio>MaxRatio then begin
-        ToTerritory:=T;
-        MaxRatio:=Ratio;
-      end;
-    end;
-  end;
-end;
-
-end;
-
-
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  T,TT,ET,EA,i,j,BC,FR1,FR2, y: integer;
-  Leadter,Lead,WeakTer,Weak:Integer;
-  MaxRatio,Ratio: Double;
-begin
-
-// aggressive: perform all attacks if force ratio>1
-
-FromTerritory:=0;
-ToTerritory:=0;
-
-// Change direction 
-y:=trunc(UBufferGet(50)); y:=-y; UBufferSet(50,y);
-  begin
-  MaxRatio:=0;
-  for TT:=1 to 42 do
-    begin
-    if y<0 then T:=TT else T:=43-TT;
-    if TIsFront(T)                      // territory is mine and front
-    and (TArmies(T)>1) then
-    begin                               // attack is possible
-    TWeakestFront(T,ET,EA);
-    Ratio := TArmies(T)/EA;
-    if Ratio>1.0 then if (Ratio>MaxRatio) then 
-              begin
-              FromTerritory:=T;
-              ToTerritory:=ET;
-              MaxRatio:=Ratio;
-              end;
-      end;
-    end;
-  end;
-end;
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-begin
-
-// If both territories are 'front', balance armies: 2/3 . 
-// If FromTerritory is 
-// not front, all armies move to ToTerritory.
-
-  Armies:=0;
- // if both territories are 'front'
-  if  TIsFront(FromTerritory) and TIsFront(ToTerritory) then
- // balance armies
-   Armies:=2*(TArmies(FromTerritory)-TArmies(ToTerritory)) div 3
- //  else if 'From' is not 'front':
-   else 
-if  TIsFront(FromTerritory)=false then
-    Armies:=TArmies(FromTerritory)-1;
-end;
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  i,T,TT,B,MaxArmy,XArmy: integer;
-begin
-
-// Find largest group of armies and move to front;
-// If impossible - find next; 
-// If impossible - move largest group of armies 
-// to nearest largest group of armies.
-
-FromTerritory:=0; ToTerritory:=0; Armies:=0; XArmy:=10000;
-for i:=1 to 42 do
-if ToTerritory=0 then
-begin
-  MaxArmy := 1;
-  for T:=1 to 42 do begin
-    if TIsMine(T) and not TIsFront(T) then begin
-// territory is mine and not "front"
-      if (TArmies(T)>MaxArmy)and(TArmies(T)<XArmy) then begin
-        MaxArmy := TArmies(T);
-        FromTerritory := T;
-      end;
-    end;
-  end;
-if FromTerritory>0 then begin
-    // check if can move armies to front...
-    for B:=1 to TBordersCount(FromTerritory) do begin
-      if ToTerritory=0 then begin
-        TT:=TBorder(FromTerritory,B);
-        if TIsMine(TT) and TIsFront(TT) then begin
-          ToTerritory:=TT;
-        end;
-      end;
-    end;
-if ToTerritory=0 then XArmy:=MaxArmy;
-end;
-// otherwise move armies in the bordering territory with maximum armies
-if FromTerritory>0 then if ToTerritory=0 then 
-begin
-MaxArmy:=0;
-for B:=1 to TBordersCount(FromTerritory) do 
-   begin
-   T:=TBorder(FromTerritory,B);
-   if TIsMine(T) then if TArmies(T)>MaxArmy then
-	begin
-        ToTerritory:=T;
-	MaxArmy:=TArmies(T);
-	end;
-    end;
-end;
-    // Move all armies to destination (except the one which must stay)
-    if ToTerritory>0 then begin
-    Armies:=TArmies(FromTerritory)-1;
-    end;
-  end;
-end;
-
-begin
-end.
\ No newline at end of file
diff --git a/Players/australian+.trp b/Players/australian+.trp
deleted file mode 100644
index 6612d89..0000000
--- a/Players/australian+.trp
+++ /dev/null
@@ -1,2005 +0,0 @@
-{ 
-Program: Australian+
-
-Author: Nathan Scarbrough
-Email: Nathan.Scarbrough@gmail.com
-Credit to Anthony Covey-Crump for the original Australian
-
-Description: This program is the same as Australian except I added Vexer's kill player code so that Australian would be able to recognize when human players are weak and be able to target and destroy them.
-The kill player code also helps Australian end the game more quickly and efficiently when he's winning.
-
-Australian+ plays best with Card Turn In Value based on combination or a more gradual progression than +5 each trade, e.g. +1 each trade.
-Take a look at Australian.trp's description for more details.
-
-History: Version 2.0 March 2010
-}
-
-{---------------------------------Kill Player Code---------------------------------------------------}
-                                           // by Nathan Scarbrough (adapted from Vexer.trp)
-                                           // uses UBuffers 52, 56, 61, 63, 73, 74, 98, 99
-
-
-
-function bg(x: integer): integer;
-begin result:= trunc(UBufferGet(x)); end;
-
-procedure bs(x, y: integer);
-begin UBufferSet(x, y); end;
-
-function PTC: integer; begin result:= PTerritoriesCount(PMe); end;
-
-Function GameHasNoHumans: boolean;
-var
-  P: integer;
-begin
-  result:= true;
-  for P:= 1 to 10 do begin
-    if PHuman(P) and PAlive(P) then result:= false;
-  end;
-end;
-
-function GameHasOneHuman(var P: integer): boolean;
-Var Human, C: integer;
-Begin
-  C:= 0;
-  For P:= 1 to 10 do begin
-    If PHuman(P) and PAlive(P)then begin
-      C:= C + 1;
-      Human:= P;
-    end;
-  end;
-  if C = 1 then begin
-    result:= true;
-    P:= Human;
-  end else begin
-    result:= false;
-    P:= 0;
-  end;
-end;
-
-procedure ArmySort(var Army: array of integer);
-var
-  TC, x, x1, temp, T: integer;
-begin
-  TC:= PTerritoriesCount(Pme);
-  SetArrayLength(Army, 43);
-  For T:= 1 to 42 do Army[T]:= 0;
-  x:= 0;
-  For T:= 1 to 42 do begin
-    if TIsMine(T) then begin
-      x:= x + 1;
-      Army[x]:= T;
-    end;
-  end;
-  For x:= 1 to TC - 1 do begin
-    For x1:= x + 1 to TC do begin
-      if TArmies(Army[x1]) > TArmies(Army[x]) then begin
-        temp:= Army[x];
-        Army[x]:= Army[x1];
-        Army[x1]:= temp;
-      end;
-    end;
-  end;
-end;
-
-Function BestFT(TT: integer): integer;
-var
-  MaxArmy, B, BT: integer;
-Begin
-  Result:= 0;
-  MaxArmy:= 0;
-  For B:= 1 to TBordersCount(TT) do begin
-    BT:= TBorder(TT, B);
-    if TIsMine(BT) and (TArmies(BT) > MaxArmy) then begin
-      MaxArmy:= TArmies(BT);
-      Result:= BT;
-    end;
-  end;
-end;
-
-Function TsAreConnected(P, T, T1: integer): boolean;
-Var
-  X, BT, C, B: integer;
-  TOwnerIsPlayerP, Checked: array of boolean;
-begin
-  SetArrayLength(Checked, 43);
-  For x:= 1 to 42 do Checked[x]:= False;
-  SetArrayLength(TOwnerIsPlayerP, 43);
-  For x:= 1 to 42 do TOwnerIsPlayerP[x]:= False;
-
-  Result:= False;
-  TOwnerIsPlayerP[T]:= True;
-  if (  not ( TIsMine(T1) and TIsMine(T) )  ) and TIsBordering(T, T1) then Result:= True;
-  Repeat
-    if TOwnerIsPlayerP[T] and (not Checked[T]) then begin
-      C:= 0;
-      For B:= 1 to TBordersCount(T) do begin
-        BT:= TBorder(T, B);
-        if ( (TOwner(BT) = P) or ((TOwner(BT) <> PMe) and (P = 0)) ) and (not TOwnerIsPlayerP[BT]) then begin
-          C:= C + 1;
-          TOwnerIsPlayerP[BT]:= True;
-          if TIsBordering(BT, T1) then begin
-            Result:= True;
-            exit;
-          end;
-        end;
-      end;
-      Checked[T]:= True;
-      if C > 0 then T:= 0;
-    end;
-    T:= T + 1;
-  Until (T > 42);
-end;
-
-Procedure AddConnectedTsArmies(T: integer; var CTArmies, Ts: Integer);
-Var
-  P, X, BT, C, B: integer;
-  TOwnerIsPlayerP, Checked: array of boolean;
-begin
-  SetArrayLength(Checked, 43);
-  For x:= 1 to 42 do Checked[x]:= False;
-  SetArrayLength(TOwnerIsPlayerP, 43);
-  For x:= 1 to 42 do TOwnerIsPlayerP[x]:= False;
-
-  P:= TOwner(T);
-  TOwnerIsPlayerP[T]:= True;
-  CTArmies:= 0;
-  Ts:= 0;
-  Repeat
-    if TOwnerIsPlayerP[T] and (not Checked[T]) then begin
-      C:= 0;
-      For B:= 1 to TBordersCount(T) do begin
-        BT:= TBorder(T, B);
-        if (TOwner(BT) = P) and (not TOwnerIsPlayerP[BT]) then begin
-          C:= C + 1;
-          TOwnerIsPlayerP[BT]:= True;
-        end;
-      end;
-      Checked[T]:= True;
-      CTArmies:= CTArmies + TArmies(T);
-      Ts:= Ts + 1;
-      if C > 0 then T:= 0;
-    end;
-    T:= T + 1;
-  Until (T > 42);
-end;
-
-procedure RankSort(var Rank: array of integer);
-var
-  temp, APC, x, x1, P: integer;
-begin
-  x:= 0;
-  SetArrayLength(Rank, 11);
-  For P:= 1 to 10 do Rank[P]:= 0;
-  For P:= 1 to 10 do begin
-    if (PArmiesCount(P) > 0) then begin
-      x:= x + 1;
-      Rank[x]:= P;
-    end;
-  end;
-  APC:= SAlivePlayersCount;
-  For x:= 1 to APC - 1 do begin
-    For x1:= x + 1 to APC do begin
-      if PArmiesCount(Rank[x1]) > PArmiesCount(Rank[x]) then begin
-        temp:= Rank[x];
-        Rank[x]:= Rank[x1];
-        Rank[x1]:= temp;
-      end;
-    end;
-  end;
-end;
-
-Procedure KillPAttack(P, FT: integer; var TT: integer);
-Var
-  Distance1, Distance2, C1, tempTT, Total2, ST, B1, Total, X, BT, C, B, T: integer;
-  TOwnerIsPlayerP, Checked: array of boolean;
-begin
-
-  SetArrayLength(Checked, 43);
-  SetArrayLength(TOwnerIsPlayerP, 43);
-
-  TT:= 0;
-  For B1:= 1 to TBordersCount(FT) do begin
-
-    For x:= 1 to 42 do Checked[x]:= False;
-    For x:= 1 to 42 do TOwnerIsPlayerP[x]:= False;
-
-    T:= TBorder(FT, B1);
-    if (Not ((TArmies(FT) < 4) and (TArmies(T) > 1))) then begin
-      if (  (TOwner(T) = P) or ( (P = 0) and (TOwner(T) <> PMe) )  ) then begin
-        C:= 0;
-        For B:= 1 to TBordersCount(T) do
-         if (  (TOwner(TBorder(T, B)) = P) or ( (P = 0) and (TOwner(TBorder(T, B)) <> PMe) )  )
-          then C:= C + 1;
-        if (C = 0) and (TArmies(FT) > TArmies(T)) then begin
-          TT:= T;
-          exit;
-        end;
-
-        tempTT:= T;
-        TOwnerIsPlayerP[T]:= True;
-        Total:= 0;
-        Repeat
-          if TOwnerIsPlayerP[T] and (not Checked[T]) then begin
-            C:= 0;
-            For B:= 1 to TBordersCount(T) do begin
-              BT:= TBorder(T, B);
-              if (  (TOwner(BT) = P) or ( (P = 0) and (TOwner(BT) <> PMe) )  )
-               and (not TOwnerIsPlayerP[BT]) then begin
-                C:= C + 1;
-                TOwnerIsPlayerP[BT]:= True;
-              end;
-            end;
-            Checked[T]:= True;
-            Total:= Total + 1;
-            ST:= T;
-            if C > 0 then T:= 0;
-          end;
-          T:= T + 1;
-        Until (T > 42);
-
-        For x:= 1 to 42 do Checked[x]:= False;
-        For x:= 1 to 42 do TOwnerIsPlayerP[x]:= False;
-
-        T:= ST;
-        TOwnerIsPlayerP[T]:= True;
-        Total2:= 0;
-        Repeat
-          if TOwnerIsPlayerP[T] and (not Checked[T]) then begin
-            C:= 0;
-            For B:= 1 to TBordersCount(T) do begin
-              BT:= TBorder(T, B);
-              if (  (TOwner(BT) = P) or ( (P = 0) and (TOwner(BT) <> PMe) )  )
-               and (not TOwnerIsPlayerP[BT]) and (not (BT = tempTT)) then begin
-                C:= C + 1;
-                TOwnerIsPlayerP[BT]:= True;
-              end;
-            end;
-            Checked[T]:= True;
-            Total2:= Total2 + 1;
-            if C > 0 then T:= 0;
-          end;
-          T:= T + 1;
-        Until (T > 42);
-
-        if Total2 = Total - 1 then begin
-          if TT = 0 then TT:= TempTT else begin
-            C:= 0; C1:= 0;
-            For B:= 1 to TBordersCount(TT) do
-             if (TOwner(TBorder(TT, B)) = P) or ( (P = 0) and (TOwner(TBorder(TT, B)) <> PMe) ) then C:= C + 1;
-            For B:= 1 to TBordersCount(TempTT) do
-             if (TOwner(TBorder(TempTT, B)) = P) or ( (P = 0) and (TOwner(TBorder(TempTT, B)) <> PMe) ) then C1:= C1 + 1;
-            if C1 < C then TT:= TempTT;
-            If (C = 1) and (C1 = 1) and TIsBordering(TT, TempTT) then begin
-              Distance1:= 0;
-              Distance2:= 0;
-              For T:= 1 to 42 do begin
-                if (TOwner(T) <> Pme) and (not ((T = TT) or (T = TempTT)) ) then begin
-                  if (TDistance(T, TT) < Distance1) or (Distance1 = 0) then Distance1:= TDistance(T, TT);
-                  if (TDistance(T, TempTT) < Distance2) or (Distance2 = 0) then Distance2:= TDistance(T, TempTT);
-                end;
-              end;
-              if Distance2 > Distance1 then TT:= TempTT;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-end;
-
-procedure KillPlayer_Placement(var ToTerritory: integer);
-var
-  BFT, Priority, aMinCost, P, WP, Extra2, Extra, BT1, Total, B, BT, Y, CTArmies, Ts,
-  MyArmies, TT, PL, EA, Cost, T, minPressure, x: integer;
-
-  MinCost, Rank, Army: array of integer;
-  HasEnough: array of boolean;
-  pathexists, go: boolean;
-begin
-  setarraylength(HasEnough, 43);
-  setarraylength(MinCost, 43);
-
-  ToTerritory:=0;
-  ArmySort(Army);
-  RankSort(Rank);
-
-  if Rank[SAlivePlayersCount] <> PMe then WP:= Rank[SAlivePlayersCount] else WP:=0;
-  if GameHasOneHuman(P) then WP:= P;
-  bs(63, WP);
-
-
-  if (bg(52) > 0) and (bg(56) > 0) then ToTerritory:= bg(52) else begin
-    if SAlivePlayersCount > 2 then begin
-      MyArmies:= 0;
-      // need to take into account two non adjoining ts
-      For T:= 1 to 42 do begin
-        if (TOwner(T) = WP) and (TFrontsCount(T) = 0) then begin // Enemy T is surrounded by me
-          For B:= 1 to TBordersCount(T) do begin
-            BT:= TBorder(T, B);
-            MyArmies:= MyArmies + TArmies(BT) - 1;
-          end;
-          BFT:= BestFT(T);
-          if MyArmies < TPressure(BFT) + TFrontsCount(BFT) + 3 then begin
-            ToTerritory:= BFT;
-            exit;
-          end;
-        end;
-      end;
-
-      aMinCost:= 999999999;
-      Priority:= 0;
-      For x:= 1 to PTC do begin
-        MinCost[Army[x]]:= 999999999;
-        For T:= 1 to 42 do begin
-         if TOwner(T) = WP then begin
-           Cost:= 0;
-           PathExists:= False;
-           if TWeakestPath(Army[x], T, TT, PL, EA) then begin
-             PathExists:= True;
-             Cost:= PL + EA - TArmies(Army[x]);
-             if (Cost < MinCost[Army[x]]) then MinCost[Army[x]]:= Cost;
-           end;
-         end;
-        end;
-        if PathExists then begin
-          if MinCost[Army[x]] < aMinCost then begin
-            aMinCost:= MinCost[Army[x]];
-            Priority:= x;
-          end;
-        end;
-      end;
-      if priority > 0 then begin
-        Cost:= aMinCost + TArmies(Army[Priority]);
-        if TArmies(Army[Priority]) < Cost + PArmiesCount(WP) + PTerritoriesCount(WP) then begin
-          ToTerritory:= Army[Priority];
-          exit;
-        end;
-      end;
-    end;
-
-    bs(52, 0);
-    Extra2:= bg(56);
-    for x:= 1 to 42 do HasEnough[x]:= False;
-    Repeat
-      for Y:= 1 to PTC do begin
-        If TIsFront(Army[y]) then begin
-          Total:= 0;
-          go:= True;
-          if Y > 1 then for x:= Y-1 downto 1 do
-           if HasEnough[Army[x]] then if TsAreConnected(0, Army[y], Army[x]) then go:= False;
-          if go then begin
-            Total:= 0;
-            For B:= 1 to TFrontsCount(Army[y]) do begin
-              BT:= TFront(Army[y], B);
-              go:= True;
-              if B > 1 then for x:= B-1 downto 1 do begin
-                BT1:= TFront(Army[y], x);
-                if TsAreConnected(0, BT, BT1) then go:= False;
-              end;
-              If go then begin
-                AddConnectedTsArmies(BT, CTArmies, Ts);
-                Total:= Total + CTArmies + Ts;
-              end;
-            end;
-            Extra:= Ts div 3;
-            if Extra < 2 then Extra:= 2;
-            if TArmies(Army[y]) < Total + Extra + Extra2 then begin
-              If ToTerritory = 0 then begin
-                ToTerritory:= Army[y];
-                minPressure:= TPressure(Army[y]);
-              end else begin
-                if (TPressure(Army[y]) < minPressure) then begin
-                  minPressure:= TPressure(Army[y]);
-                  ToTerritory:= Army[y];
-                end;
-              end;
-            end else HasEnough[Army[y]]:= True;
-          end;
-        end;
-      end;
-      If ToTerritory = 0 then begin
-        Extra2:= Extra2 + 4;
-        bs(56, Extra2);
-      end;
-    Until ToTerritory > 0;
-  end;
-
-  if Extra2 >= 12 then bs(52, ToTerritory);
-  if PNewArmies(PMe) = 1 then begin
-    bs(52, 0);
-    bs(56, 0);
-  end;
-end;
-
-procedure KillPlayer_Attack(var FromTerritory, ToTerritory: integer);
-var
-  loop, WP, P, B, BT, PL, x, Cost, TT, EA,
-  MaxCost, C, Armies, Y, MinCost, MinDiff: integer;
-
-  Rank, Army: Array of integer;
-
-begin
-  // the occupation routine sometimes determines where the next attack should be and stores it in buffer 73
-  if (bg(73) > 0) and (TArmies(bg(73)) > 1) then begin
-    FromTerritory:= bg(73);
-    KillPAttack(bg(74), FromTerritory, ToTerritory);
-    if ToTerritory > 0 then exit else begin
-      FromTerritory:= 0;
-      bs(73, 0);
-    end;
-  end;
-
-  RankSort(Rank);
-  ArmySort(Army);
-  if Rank[SAlivePlayersCount] <> PMe then WP:= Rank[SAlivePlayersCount] else WP:=0;
-  if GameHasOneHuman(P) then WP:= P;
-  bs(63, WP);
-  MinCost:= 0;
-  MaxCost:= PArmiesCount(PMe) div 2;
-
-  loop:= 0;
-  Repeat
-  For y:= 1 to PTC do begin
-    if TIsFront(Army[y]) and (TArmies(Army[y]) > 1) then begin
-      C:= 0;
-      For B:= 1 to TBordersCount(Army[y]) do begin
-        BT:= TBorder(Army[y], B);
-        If (TOwner(BT) = WP) or ( (WP = 0) and (not TIsMine(BT)) ) then begin
-          C:= C + 1;
-          If C = 1 then TT:= BT else TT:= 0;
-        end;
-      end;
-      If C = 1 then begin
-        if (  not ( (TArmies(TT) > 1) and (TArmies(BestFT(TT)) < 4) )  ) then begin
-          ToTerritory:= TT;
-          FromTerritory:= BestFT(ToTerritory);
-          exit;
-        end;
-      end else if c > 1 then begin
-        KillPAttack(WP, Army[y], TT);
-        If TT > 0 then begin
-          ToTerritory:= TT;
-          FromTerritory:= Army[y];
-          exit;
-        end;
-      end;
-      If C > 1 then begin
-        MinDiff:= 0;
-        For B:= 1 to TBordersCount(Army[y]) do begin
-          BT:= TBorder(Army[y], B);
-          If (TOwner(BT) = WP) or ( (WP = 0) and (not TIsMine(BT)) )
-           and (not ( (TArmies(BT) > 1) and (TArmies(BestFT(BT)) < 4) )) then begin
-            if (trunc(abs(Army[y] - BT)) < MinDiff) or (MinDiff = 0) then begin
-              MinDiff:= trunc(abs(Army[y] - BT));
-              ToTerritory:= BT;
-              FromTerritory:= BestFT(ToTerritory);
-            end;
-          end;
-        end;
-      end;
-    end;
-
-    if FromTerritory = 0 then begin
-      For x:= 1 to 42 do begin
-        IF TOwner(x) = WP then begin
-          If TWeakestPath(Army[y], x, TT, PL, EA) then begin
-            Armies:= TArmies(Army[y]);
-            Cost:= EA + PL;
-            if ( (Cost < MinCost) or (MinCost = 0) ) and (Armies > TArmies(TT))
-             and (Armies > 3) and (Cost < MaxCost) then begin
-              MinCost:= Cost;
-              ToTerritory:= TT;
-              FromTerritory:= BestFT(ToTerritory);
-            end;
-          end;
-        end;
-      end;
-    end;
-
-  end;
-  loop:= loop + 1;
-  if (ToTerritory = 0) and (bg(99) > 0) then WP:= 0;
-  Until (ToTerritory > 0) or (loop > 1);
-end;
-
-procedure KillPlayer_Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  c, TTtotal, FTtotal, T, P, BothTotal, FTA: integer;
-  TsConnTT, TsConnFT, TsConnBoth: boolean;
-  Army: array of integer;
-begin
-  bs(73, 0);
-  P:= 0;
-  FTA:= TArmies(FromTerritory) - 1;
-  Armies:=FTA;  // Default is to occupy all
-  ArmySort(Army);
-
-  TTtotal:= 0;
-  FTtotal:= 0;
-  BothTotal:= 0;
-  For T:= 1 to 42 do begin
-    if ( ((P = 0) and (TOwner(T) <> PMe)) or (TOwner(T) = P) ) then begin
-      TsConnTT:= TsAreConnected(P, T, ToTerritory);
-      TsConnFT:= TsAreConnected(P, T, FromTerritory);
-      if TsConnTT and TsConnFT then TsConnBoth:= True else TsConnBoth:= False;
-      if TsConnBoth then BothTotal:= BothTotal + TArmies(T) + 1;
-      if TsConnTT and (not TsConnFT) then TTtotal:= TTtotal + TArmies(T) + 1;
-      if TsConnFT and (not TsConnTT) then FTtotal:= FTtotal + TArmies(T) + 1;
-    end;
-  end;
-  TTtotal:= TTtotal + 1;  // make sure TTtotal has enough so add an extra army
-  if TTtotal > FTA then Armies:= FTA;
-  if (TTtotal < FTA) and (FTtotal >= FTA-TTtotal) then Armies:= TTtotal;
-  if (TTtotal < FTA) and (FTtotal < FTA-TTtotal) then Armies:= FTA - FTtotal;
-  if (TTtotal = 0) and (FTtotal = 0) then Armies:= FTA;
-  if (TTtotal = 0) and (FTtotal <> 0) then Armies:= 0;
-  if (TTtotal = 0) and (FTtotal <> 0) and (BothTotal <> 0) then begin
-    if (FTtotal < BothTotal) then Armies:= FTA - FTtotal;
-    if (FTtotal > BothTotal) then Armies:= BothTotal;
-    if Armies > FTA then Armies:= FTA;
-    bs(73, ToTerritory);
-    bs(74, P);
-  end;
-  if (FromTerritory = 31) and (ToTerritory = 39) then begin
-    c:= 0;
-    For T:= 40 to 42 do if (TOwner(T) <> PMe) then c:= c + TArmies(T) + 2;
-    Armies:= c;
-    if Armies > FTA then Armies:= FTA;
-  end;
-end;
-
-procedure KillPlayer_Fortification(var FromTerritory, ToTerritory, Armies: integer);
-Var
-  FT, P, WP, aMinPL, B, BT, Cost, TT, PL, EA, aMinCost, x, MaxArmy, T: integer;
-  Rank, MinPL, TTa, MinCost, Army: array of integer;
-
-begin
-  FromTerritory:= 0;
-  ToTerritory:= 0;
-  ArmySort(Army);
-  RankSort(Rank);
-  SetArrayLength(MinCost, 43);
-  SetArrayLength(MinPL, 43);
-  SetArrayLength(TTa, 43);
-
-  if Rank[SAlivePlayersCount] <> PMe then WP:= Rank[SAlivePlayersCount] else WP:=0;
-  if GameHasOneHuman(P) then WP:= P;
-
-  For x:= 1 to PTC do begin
-    MinCost[Army[x]]:= 0;
-    MinPL[x]:= 0;
-    TTa[x]:= 0;
-    For T:= 1 to 42 do begin
-     if TOwner(T) = WP then begin
-       Cost:= 0;
-       if TWeakestPath(Army[x], T, TT, PL, EA) then begin
-         Cost:= PL + EA - TArmies(T);
-         if (Cost < MinCost[Army[x]]) or (MinCost[Army[x]] = 0) then MinCost[Army[x]]:= Cost;
-       end;
-       if (not TIsFront(Army[x])) and (TArmies(Army[x]) > 3) then begin
-         TShortestPath(Army[x], T, TT, PL);
-         if (PL < MinPL[x]) or (MinPL[x] = 0) then begin
-           MinPL[x]:= PL;
-           TTa[x]:= TT;
-         end;
-       end;
-     end;
-    end;
-  end;
-
-  if SAlivePlayersCount > 2 then begin
-    aMinCost:= 0;
-    For x:= PTC downto 1 do begin
-      if TArmies(Army[x]) > 1 then begin
-        For B:= 1 to TBordersCount(Army[x]) do begin
-          BT:= TBorder(Army[x], B);
-          if TIsMine(BT) then begin
-            if MinCost[BT] > 0 then begin
-              if ( (MinCost[BT] < MinCost[Army[x]]) or (MinCost[Army[x]] = 0) ) and ((MinCost[BT] <= aMinCost) or (AMinCost = 0)) then begin
-                if (  (MinCost[BT] = aMinCost) and ( (TArmies(BT) > TArmies(ToTerritory)) or (TArmies(Army[x]) > TArmies(FromTerritory)) )  ) or (MinCost[BT] <> aMinCost) then begin
-                  aMinCost:= MinCost[BT];
-                  FromTerritory:= Army[x];
-                  ToTerritory:= BT;
-                  Armies:= TArmies(FromTerritory) - 1;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-
-  if FromTerritory = 0 then begin
-    aMinPL:= 0;
-    For x:= 1 to PTC do begin
-      if ( (MinPL[x] <= aMinPL) or (aMinPL = 0) ) and (MinPL[x] > 0) then begin
-        if (  (MinPL[x] = aMinPL) and ( (TArmies(TTa[x]) > TArmies(ToTerritory)) or (TArmies(Army[x]) > TArmies(FromTerritory)) )  ) or (MinPL[x] <> aMinPL) then begin
-          aMinPL:= MinPL[x];
-          FromTerritory:= Army[x];
-          ToTerritory:= TTa[x];
-          Armies:= TArmies(FromTerritory) - 1;
-        end;
-      end;
-    end;
-  end;
-
-  if (FromTerritory = 0) or (bg(63) = 0) then begin
-    MaxArmy:= 1;
-    For T:= 1 to 42 do begin
-      if TIsMine(T) and (not TIsFront(T)) then begin
-        if (TArmies(T) > MaxArmy) then begin
-          MaxArmy:= TArmies(T);
-          FT:= T;
-          Armies:= TArmies(FromTerritory) - 1;
-        end;
-      end;
-    end;
-    if (FT > 0) and (not (FT = FromTerritory)) then begin // if it's the same FT that the previous code determined, don't change the ToTerritory
-      if not (  (FromTerritory > 0) and ( (TArmies(FT) < 4) and (TArmies(FromTerritory) > 3) )  ) then begin
-        FromTerritory:= FT;      // might not be neccessary to do the following > 0 check
-        if TPathToFront(FromTerritory) > 0 then ToTerritory:= TPathToFront(FromTerritory) else FromTerritory:= 0;
-        Armies:= TArmies(FromTerritory) - 1;
-      end;
-    end;
-  end;
-
-end;
-
-{-------------------------------------End Kill Player Code---------------------------------}
-
-
-procedure Assignment(var ToTerritory: integer);
-var
-  T,Y,Z: integer;
-  MaximumValue,Value:integer;
-begin
-  ToTerritory:=0;
-  for T:=1 to 42 do begin
-    if TOwner(T)=0 then begin
-      Value:=0;
-      if (T<39) then 
-        Value:=Value+10;
-      Y:=TBordersCount(T);
-      for Z:=1 to Y do begin
-        if TIsMine(TBorder(T,Z)) then Value:=Value-1;
-      end;
-      if (Value>=MaximumValue) then begin
-        MaximumValue:=Value;
-        ToTerritory:=T;
-      end;
-    end;
-  end;
-        
-end;
-
-procedure Placement(var ToTerritory: integer);
-var
-  T,TA,X,Y,T2,D,D2,Z,KillPlayer: integer;
-  MaxTerritoryValue,TerritoryValue,Score: double;
-  TerritoryTo: integer;
-  TerritoryArmies: integer;
-  PT,PA,ET,EA:integer;
-  TotalArmies: double;
-  A:Integer;
-
-begin
-    // check for kill player mode
-  if (UBufferGet(99) = 1) or (UBufferGet(98) > 0) then begin
-    KillPlayer_Placement(ToTerritory);
-    exit;
-  end;
-
-  TerritoryTo:=0;
-  UBufferSet(49,0); 
-  if ((PArmiesCount(PMe) < 10) and (not (trunc(ubufferget(50))=2))) then begin
-    UBufferSet(50,1);
-  end;
-  if ((PArmiesCount(PMe) > 25) and (trunc(ubufferget(50))=1)) then begin
-    UBufferSet(50,2);
-  end;
-  if (trunc(ubufferget(50))=1) then begin
-    MaxTerritoryValue:=0;
-    for T:=1 to 42 do begin
-      if (TIsMine(T) and TIsFront(T)) then begin
-        TWeakestFront(T,ET,EA);
-        Score:=1000-EA;
-        Score:=Score-((double(TPressure(T))/TFrontsCount(T))*2);
-        Score:=Score+(TArmies(T) div 3);
-        if (T>38) then Score:=Score-100;
-        if ((T>9) and (T<14)) then Score:=Score-50;
-        if (Score> MaxTerritoryValue) then begin
-          MaxTerritoryValue:=Score;
-          TerritoryTo:=T;
-        end;
-      end;
-    end;
-  end
-  else begin
-   
-    CAnalysis(6,PT,PA,ET,EA);
-    UBufferSet(39,EA);
-    UBufferSet(40,EA-1);
-    UBufferSet(41,EA-2);
-    UBufferSet(42,EA-1);
-    if (PA>EA+4) then begin
-      UBufferSet(39,EA-25);
-      UBufferSet(40,EA-26);
-      UBufferSet(41,EA-27);
-      UBufferSet(40,EA-26);
-    end;
-    CAnalysis(2,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+1000;
-    UBufferSet(10,EA+6);
-    UBufferSet(12,EA+6);
-    UBufferSet(13,EA+4);
-    UBufferSet(11,EA+5);
-    if (PA>(EA+4)) then begin
-      UBufferSet(10,EA-20);
-      UBufferSet(12,EA-20);
-      UBufferSet(13,EA-22);
-      UBufferSet(11,EA-21);
-    end;  
-    CAnalysis(4,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+1000;
-    if (not (COwner(2)=PMe)) then EA:=EA+1000;
-    UBufferSet(14,EA+6);
-    UBufferSet(15,EA+6);
-    UBufferSet(16,EA+6);
-    UBufferSet(17,EA+6);
-    UBufferSet(18,EA+6);
-    UBufferSet(19,EA+6);
-    if ((PA>(EA+9)) and (COwner(2)=PMe)) then begin
-      UBufferSet(14,EA-20);
-      UBufferSet(15,EA-19);
-      UBufferSet(16,EA-20);
-      UBufferSet(17,EA-21);
-      UBufferSet(18,EA-22);
-      UBufferSet(19,EA-23);
-    end;
-    CAnalysis(1,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+1000;
-    if (not (COwner(2)=PMe)) then EA:=EA+1000;
-    UBufferSet(1,EA+6);
-    UBufferSet(2,EA+6);
-    UBufferSet(3,EA+6);
-    UBufferSet(4,EA+6);
-    UBufferSet(5,EA+6);
-    UBufferSet(6,EA+6);
-    UBufferSet(7,EA+6);
-    UBufferSet(8,EA+6);
-    UBufferSet(9,EA+6);
-    CAnalysis(3,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+1000;
-    if (not (COwner(2)=PMe)) then EA:=EA+1000;
-    if (not (COwner(4)=PMe)) then EA:=EA+15;
-    UBufferSet(20,EA+6);
-    UBufferSet(21,EA+6);
-    UBufferSet(22,EA+6);
-    UBufferSet(23,EA+6);
-    UBufferSet(24,EA+6);
-    UBufferSet(25,EA+6);
-    UBufferSet(26,EA+6);
-    CAnalysis(5,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+1000;
-    if (not (COwner(2)=PMe)) then EA:=EA+1000;
-    if (not (COwner(4)=PMe)) then EA:=EA+15;
-    if (not (COwner(1)=PMe)) then EA:=EA+15;
-    if (not (COwner(3)=PMe)) then EA:=EA+15;
-    UBufferSet(27,EA+6);
-    UBufferSet(28,EA+6);
-    UBufferSet(29,EA+6);
-    UBufferSet(30,EA+6);
-    UBufferSet(31,EA+6);
-    UBufferSet(32,EA+6);
-    UBufferSet(33,EA+6);
-    UBufferSet(34,EA+6);
-    UBufferSet(35,EA+6);
-    UBufferSet(36,EA+6);
-    UBufferSet(37,EA+6);
-    UBufferSet(38,EA+6);
-    
-    TotalArmies:=0;
-    KillPlayer:=0;
-
-    UBufferSet(49,0);
-    for T:=1 to 10 do begin
-      TotalArmies:=TotalArmies+PArmiesCount(T);
-    end;
-    for T:=1 to 10 do begin
-      if ((COwner(6)=T) or (COwner(6)=PMe)) then begin
-      if ((not (T=PMe))
-      and (PArmiesCount(T)>trunc(TotalArmies * 0.35))) then begin
-        KillPlayer:=T;
-      end;
-      if ((not (T=PMe))
-      and (PArmiesCount(T)>trunc((TotalArmies-PArmiesCount(PMe))*0.41))) then begin
-        KillPlayer:=T;
-      end;
-      if ((KillPlayer=T) and ((COwner(6)=PMe) or (COwner(6)=T))) then begin
-        KillPlayer:=0;
-        Y:=0;
-        Z:=0;
-        for T2:=1 to 6 do begin
-          if (COwner(T2)=T) then Y:=Y+CBonus(T2);
-          if (COwner(T2)=PMe) then Z:=Z+CBonus(T2);
-        end;
-        if (PTerritoriesCount(T)>11) then begin
-          Y:=Y+((PTerritoriesCount(T) div 3)-3);
-        end;
-        if (PTerritoriesCount(PMe)>11) then begin
-          Z:=Z+((PTerritoriesCount(PMe) div 3)-3);
-        end;
-        if ((Y>Z+3) and ((COwner(6)=T) or (COwner(6)=PMe))) then begin
-          KillPlayer:=T;
-          UBufferSet(49,T);
-        end;
-      end;   
-      end;
-    end;
-    
-    if (not (KillPlayer=0)) then begin
-      for T:=1 to 42 do begin
-        if TOwner(T)=KillPlayer then begin
-          UBufferSet(T,TArmies(T));
-        end;
-        if ((COwner(TContinent(T)))=KillPlayer) then begin
-          UBufferSet(T,-15-(CBonus(TContinent(T))*2)+TArmies(T));
-        end;
-      end;
-    end;
-    if (PArmiesCount(PMe)>TotalArmies+50) then begin
-      for T:=1 to 42 do begin
-        if (not (TIsMine(T))) then begin
-          UBufferSet(T,TArmies(T));
-          if ((COwner(TContinent(T)))>0) then begin
-            UBufferSet(T,-30+TArmies(T));
-          end;
-        end;
-      end;
-    end;
-
-    for X:=1 to 8 do begin
-      for T:=1 to 42 do begin
-        if (not TIsMine(T)) then begin
-          Y:=TBordersCount(T);
-          for Z:=1 to Y do begin
-            T2:=TBorder(T,Z);
-            if (not TIsMine(T2)) then begin
-              D:=trunc(UBufferGet(T));
-              D2:=trunc(UBufferGet(T2));
-              if (D>(D2+TArmies(T))) then begin
-                D:=D2+TArmies(T)+1;
-                UBufferSet(T,D);
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-    
-    for T:=1 to 42 do begin
-      if (TIsMine(T)) then begin
-        UBufferSet(T,0);
-      end;
-    end;
-    if (KillPlayer=0) then begin
-      CAnalysis(6,PT,PA,ET,EA);
-      if (COwner(6)=PMe) then begin
-        if TIsFront(39) then begin
-          TA:=25;
-          if (TArmies(38)>TA-5) then TA:=TArmies(38)+5;
-          for A:=1 to 38 do begin
-            if ((not TIsMine(A)) and (TArmies(A) > TA)) then begin
-              TA:=TArmies(A);
-            end;
-          end; 
-          UBufferSet(39,TA);
-        end
-        else begin
-          TA:=25;
-          if (TPressure(31)>TA) then TA:=TPressure(31);
-          for A:=1 to 38 do begin
-            if ((not TIsMine(A)) and (TArmies(A) > TA)) then begin
-              TA:=TArmies(A);
-            end;
-          end; 
-          UBufferSet(31,TA);
-        end;
-      end
-      else begin
-        if ((PA > (EA * 2)) or (PA>(EA+5))) and TIsMine(40) then begin
-          if (TIsMine(41)) then begin
-            TerritoryTo:=40;
-          end;
-          if (TIsMine(42)) then begin
-            TerritoryTo:=40;
-          end;
-          if (TIsMine(39)) then begin
-            TerritoryTo:=40;
-          end;
-          if (TIsMine(40)) then begin
-            TerritoryTo:=40;
-          end;
-        end;
-      end;
-     
-      if (COwner(6)=PMe) then begin
-      CAnalysis(2,PT,PA,ET,EA);
-      if (TerritoryTo=0) then begin
-        if (COwner(2)=PMe) then begin
-          if (not (TIsMine(14))) then begin
-            TA:=20;
-            if (TArmies(14)>TA-12) then TA:=TArmies(14)+12;
-            UBufferSet(12,TA);
-          end
-          else begin
-            TA:=20;
-            if (TPressure(14)>TA) then TA:=TPressure(14);
-            UBufferSet(14,TA);
-          end;
-          if (not (TIsMine(9))) then begin
-            TA:=20;
-            for X:=1 to 9 do begin
-              if ((TArmies(X)>TA-12) and (not TIsMine(X))) then TA:=TArmies(X)+12;
-            end;
-            UBufferSet(10,TA);
-          end
-          else begin
-            TA:=20;
-            for X:=1 to 9 do begin
-              if ((TArmies(X)>TA-12) and (not TIsMine(X))) then TA:=TArmies(X)+12;
-            end;
-            if ((TOwner(7)=TOwner(8)) and (not TIsMine(7))
-                 and (TA < TArmies(7)+TArmies(8)+12)) then begin
-              TA:=TArmies(7)+TArmies(8)+12;
-            end;
-            UBufferSet(9,TA);
-          end;
-        end
-        else begin
-           if (PA>1) then begin
-
-            if ((TArmies(11)<1000) and TIsMine(11)) then TerritoryTo:=11;
-            if ((TArmies(13)<1000) and TIsMine(13)) then TerritoryTo:=13;
-            if ((TArmies(10)<1000) and TIsMine(10)) then TerritoryTo:=10;
-            if ((TArmies(12)<1000) and TIsMine(12)) then TerritoryTo:=12;
-          end;
-        end;
-      end;
-      
-      if ((TerritoryTo=0)
-      and (not (COwner(2)=PMe))) then begin
-
-            if ((TArmies(14)<1000) and TIsMine(14)) then TerritoryTo:=14;
-
-      end;
-      CAnalysis(1,PT,PA,ET,EA);
-      if ((TerritoryTo=0)
-      and (COwner(2)=PMe)) then begin
-        if (((PA div 2)>EA) or (PA>(EA+10))) then begin
-          if ((TArmies(1)<20) and TIsMine(1)) then TerritoryTo:=1;
-          if ((TArmies(3)<20) and TIsMine(3)) then TerritoryTo:=3;
- 
-        end;
-      end;
-      CAnalysis(4,PT,PA,ET,EA);
-      if ((TerritoryTo=0) 
-      and (COwner(2)=PMe)) then begin
-        if (((PA div 2)>EA)or (PA>(EA+10))) then begin
-          if ((TArmies(14)<20) and TIsMine(14)) then TerritoryTo:=14;
-          if ((TArmies(15)<20) and TIsMine(15)) then TerritoryTo:=15;
-          if ((TArmies(16)<20) and TIsMine(16)) then TerritoryTo:=16;
-  
-        end;
-      end; 
-      if ((COwner(4)=PMe)) then begin
-        UBufferSet(14,20);
-        UBufferSet(15,20);
-        UBufferSet(16,20);
-      end;
-      end;
-    end;
-    IF (kILLpLAYER>0) THEN BEGIN
-      CAnalysis(6,PT,PA,ET,EA);
-      if (COwner(6)=PMe) then begin
-        if TIsFront(39) then begin
-          TA:=12;
-          for A:=1 to 38 do begin
-            if ((not TIsMine(A)) and ((double(TArmies(A)) / 2) > double(TA))) then begin
-              TA:=TArmies(A) div 2;
-            end;
-          end; 
-          UBufferSet(39,TA);
-        end
-        else begin
-          TA:=12;
-          if (TPressure(31)>TA) then TA:=TPressure(31);
-          for A:=1 to 38 do begin
-            if ((not TIsMine(A)) and (double(TArmies(A)) / 2 > double(TA))) then begin
-              TA:=TArmies(A) div 2;
-            end;
-          end; 
-          UBufferSet(31,TA);
-        end;
-      end;
-    end;
- 
-    if (TerritoryTo=0) then begin  
-      MaxTerritoryValue:=0;
-      for T:=1 to 42 do begin
-        if TIsMine(T) then begin
-          Y:=TBordersCount(T);
-          D:=1000;
-          for Z:=1 to Y do begin
-            T2:=TBorder(T,Z);
-            if not(TIsMine(T2)) then begin
-              D2:=trunc(UBufferGet(T2));
-              if (D2<D) then begin
-                D:=D2;
-                TA:=T2;
-              end;
-            end;
-          end;
-          if ((TArmies(T)-(trunc(ubufferget(T))+D))>trunc(MaxTerritoryValue)) then begin
-            MaxTerritoryValue:=TArmies(T)-(trunc(ubufferget(T))+D);
-            TerritoryTo:=T;
-          end;
-          if (KillPlayer=0) then begin
-            if (TArmies(T)<trunc(ubufferget(T))) then begin
-              if ((1000+trunc(ubufferget(T))-TArmies(T))>trunc(MaxTerritoryValue)) then begin
-                MaxTerritoryValue:=1000+trunc(ubufferget(T))-TArmies(T);
-                TerritoryTo:=T;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-    if (TerritoryTo=0) then begin
-      MaxTerritoryValue:=0;
-      for T:=1 to 42 do begin
-        if TIsFront(T) then begin 
-          TerritoryValue:=1;
-          TWeakestFront(T,ET,EA);
-          TerritoryArmies:=TArmies(T);
-          if EA<3 then begin
-              TerritoryValue:=TerritoryArmies*(3-EA);
-          end;
-          if EA>2 then begin
-            if EA>100 then begin
-              EA:=100;
-            end;
-            TerritoryValue:=TerritoryValue+TArmies(T)+(100-EA);
-          end;
-          if ((TerritoryValue>=MaxTerritoryValue) 
-              and ((TArmies(T)>1) or (TerritoryTo=0)) ) then begin
-            MaxTerritoryValue:=TerritoryValue;
-            TerritoryTo:=T;
-          end;
-        end;
-      end;
-    end;
-  end;
-  ToTerritory:=TerritoryTo;
-
-end;
-
-
-
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  T,X,Y,T2,TA,D,D2,Z,Z2,Y2,FT,FA,KillPlayer: integer;
-  MaxTerritoryValue,TerritoryValue: double;
-//  TerritoryValue: integer;
-  TerritoryArmies: integer;
-  PT,PA,ET,EA,ET2,EA2:integer;
-  TotalArmies,A,TerritoryTo:Integer;
-
-  MaxPoints, Points, CForce: double;
-  P: integer;
-
-begin
-UMessageOn;
-
-  // reset kill mode if the game no longer has human players
-  if UBufferGet(98) > 0 then begin
-   if GameHasNoHumans then UBufferSet(98, 0);
-  end;
-
-  // check for kill player mode
-  if (UBufferGet(99) = 1) or (UBufferGet(98) > 0) then begin
-    KillPlayer_Attack(FromTerritory, ToTerritory);
-    If (not ((FromTerritory = 0) and (UBufferGet(98) > 0))) then exit;
-  end;
-
-  FromTerritory:=0;
-  ToTerritory:=0;
-  MaxTerritoryValue:=0;
-  
-  KillPlayer:=trunc(UBufferGet(49));
-    CAnalysis(6,PT,PA,ET,EA);
-    X:=0;
-    if (COwner(6)>0) then begin
-      Y:=CTerritoriesCount(5);
-      for T:=32 to 38 do begin
-        if ((COwner(6)=TOwner(T)) and (TArmies(T)>X+40)) then begin
-          X:=TArmies(T)-40;
-        end;
-      end;
-    end; 
-    EA:=EA+X;
-    UBufferSet(39,EA);
-    UBufferSet(40,EA-1);
-    UBufferSet(41,EA-2);
-    UBufferSet(42,EA-1);
-    if (PA>EA+4) then begin
-      UBufferSet(39,EA-25);
-      UBufferSet(40,EA-26);
-      UBufferSet(41,EA-27);
-      UBufferSet(40,EA-26);
-    end;
-    CAnalysis(2,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+1000;
-    if ((COwner(6)=PMe) and (PA=0) and (not TIsMine(14))) then begin
-      if ((COwner(1)=COwner(2))
-      or (COwner(3)=COwner(2))
-      or (COwner(4)=COwner(2))
-      or (COwner(5)=COwner(2))) then begin
-        EA:=EA;
-      end
-      else begin
-//        X:=EA;
-//        CAnalysis(1,PT,PA,ET,EA);
-//        X:=X+EA;
-//        CAnalysis(4,PT,PA,ET,EA);
-//        X:=X+EA;
-//        CAnalysis(2,PT,PA,ET,EA);
-//        EA:=X;
-        EA:=EA+100;
-      end;
-    end;
-
-    UBufferSet(10,EA+6);
-    UBufferSet(12,EA+6);
-    UBufferSet(13,EA+4);
-    UBufferSet(11,EA+5);
-    if (PA>(EA+4)) then begin
-      UBufferSet(10,EA-20);
-      UBufferSet(12,EA-20);
-      UBufferSet(13,EA-22);
-      UBufferSet(11,EA-21);
-    end;  
-    CAnalysis(4,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+1000;
-    if (not (COwner(2)=PMe)) then EA:=EA+1000;
-    UBufferSet(14,EA+6);
-    UBufferSet(15,EA+6);
-    UBufferSet(16,EA+6);
-    UBufferSet(17,EA+6);
-    UBufferSet(18,EA+6);
-    UBufferSet(19,EA+6);
-    if ((PA>(EA+9)) and (COwner(2)=PMe)) then begin
-      UBufferSet(14,EA-20);
-      UBufferSet(15,EA-19);
-      UBufferSet(16,EA-20);
-      UBufferSet(17,EA-21);
-      UBufferSet(18,EA-22);
-      UBufferSet(19,EA-23);
-    end;
-    CAnalysis(1,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+1000;
-    if (not (COwner(2)=PMe)) then EA:=EA+1000;
-    UBufferSet(1,EA+6);
-    UBufferSet(2,EA+6);
-    UBufferSet(3,EA+6);
-    UBufferSet(4,EA+6);
-    UBufferSet(5,EA+6);
-    UBufferSet(6,EA+6);
-    UBufferSet(7,EA+6);
-    UBufferSet(8,EA+6);
-    UBufferSet(9,EA+6);
-    CAnalysis(3,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+1000;
-    if (not (COwner(2)=PMe)) then EA:=EA+1000;
-    if (not (COwner(4)=PMe)) then EA:=EA+15;
-    UBufferSet(20,EA+6);
-    UBufferSet(21,EA+6);
-    UBufferSet(22,EA+6);
-    UBufferSet(23,EA+6);
-    UBufferSet(24,EA+6);
-    UBufferSet(25,EA+6);
-    UBufferSet(26,EA+6);
-    CAnalysis(5,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+1000;
-    if (not (COwner(2)=PMe)) then EA:=EA+1000;
-    if (not (COwner(4)=PMe)) then EA:=EA+15;
-    if (not (COwner(1)=PMe)) then EA:=EA+15;
-    if (not (COwner(3)=PMe)) then EA:=EA+15;
-    UBufferSet(27,EA+6);
-    UBufferSet(28,EA+6);
-    UBufferSet(29,EA+6);
-    UBufferSet(30,EA+6);
-    UBufferSet(31,EA+6);
-    UBufferSet(32,EA+6);
-    UBufferSet(33,EA+6);
-    UBufferSet(34,EA+6);
-    UBufferSet(35,EA+6);
-    UBufferSet(36,EA+6);
-    UBufferSet(37,EA+6);
-    UBufferSet(38,EA+6);
-    
-    TotalArmies:=0;
-    KillPlayer:=0;
-    UBufferSet(49,0);
-
-    for T:=1 to 10 do begin
-      TotalArmies:=TotalArmies+PArmiesCount(T);
-    end;
-
-    for T:=1 to 10 do begin
-      if ((COwner(6)=T) or (COwner(6)=PMe)) then begin
-        if ((not (T=PMe)) and (PArmiesCount(T)>trunc(TotalArmies * 0.35))) then begin
-          KillPlayer:=T;
-        end;
-
-        if ((not (T=PMe))
-        and (PArmiesCount(T)>trunc((TotalArmies-PArmiesCount(PMe))*0.41))) then begin
-          KillPlayer:=T;
-        end;
-
-        if ((KillPlayer=T) and ((COwner(6)=PMe) or (COwner(6)=T))) then begin
-          KillPlayer:=0;
-          Y:=0;
-          Z:=0;
-          for T2:=1 to 6 do begin
-            if (COwner(T2)=T) then Y:=Y+CBonus(T2);
-            if (COwner(T2)=PMe) then Z:=Z+CBonus(T2);
-          end;
-          if (PTerritoriesCount(T)>11) then begin
-            Y:=Y+((PTerritoriesCount(T) div 3)-3);
-          end;
-          if (PTerritoriesCount(PMe)>11) then begin
-            Z:=Z+((PTerritoriesCount(PMe) div 3)-3);
-          end;
-          if (Y>Z+3) then begin
-            KillPlayer:=T;
-            UBufferSet(49,T);
-          end;
-        end;   
-      end;
-    end;
-    
-    if (not (KillPlayer=0)) then begin
-      for T:=1 to 42 do begin
-        if TOwner(T)=KillPlayer then begin
-          UBufferSet(T,TArmies(T));
-        end;
-        if ((COwner(TContinent(T)))=KillPlayer) then begin
-          UBufferSet(T,-15-(CBonus(TContinent(T))*2)+TArmies(T));
-        end;
-      end;
-    end;
-    if (PArmiesCount(PMe)>TotalArmies+50) then begin
-      for T:=1 to 42 do begin
-        if (not (TIsMine(T))) then begin
-          UBufferSet(T,TArmies(T));
-          if ((COwner(TContinent(T)))>0) then begin
-            UBufferSet(T,-30+TArmies(T));
-          end;
-        end;
-      end;
-    end;
-
-    for X:=1 to 8 do begin
-      for T:=1 to 42 do begin
-        if (not TIsMine(T)) then begin
-          Y:=TBordersCount(T);
-          for Z:=1 to Y do begin
-            T2:=TBorder(T,Z);
-            if (not TIsMine(T2)) then begin
-              D:=trunc(UBufferGet(T));
-              D2:=trunc(UBufferGet(T2));
-              if (D>(D2+TArmies(T))) then begin
-                D:=D2+TArmies(T)+1;
-                UBufferSet(T,D);
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-    
-    for T:=1 to 42 do begin
-      if (TIsMine(T)) then begin
-        UBufferSet(T,0);
-      end;
-    end;
-    if (KillPlayer=0) then begin
-      CAnalysis(6,PT,PA,ET,EA);
-      if (COwner(6)=PMe) then begin
-        if TIsFront(39) then begin
-          TA:=25;
-          if (TArmies(38)>TA-5) then TA:=TArmies(38)+5;
-          for A:=1 to 38 do begin
-            if ((not TIsMine(A)) and (TArmies(A) > TA)) then begin
-              TA:=TArmies(A);
-            end;
-          end; 
-          UBufferSet(39,TA);
-        end
-        else begin
-          TA:=25;
-          if (TPressure(31)>TA) then TA:=TPressure(31);
-          for A:=1 to 38 do begin
-            if ((not TIsMine(A)) and (TArmies(A) > TA)) then begin
-              TA:=TArmies(A);
-            end;
-          end; 
-          UBufferSet(31,TA);
-        end;
-      end
-      else begin
-        if ((PA > (EA * 2)) or (PA>(EA+5))) then begin
-          if (TIsMine(41)) then begin
-            TerritoryTo:=40;
-          end;
-          if (TIsMine(42)) then begin
-            TerritoryTo:=40;
-          end;
-          if (TIsMine(39)) then begin
-            TerritoryTo:=40;
-          end;
-          if (TIsMine(40)) then begin
-            TerritoryTo:=40;
-          end;
-        end;
-      end;
-     
-      if (COwner(6)=PMe) then begin
-      CAnalysis(2,PT,PA,ET,EA);
-      if (TerritoryTo=0) then begin
-        if (COwner(2)=PMe) then begin
-          if (not (TIsMine(14))) then begin
-            TA:=20;
-            if (TArmies(14)>TA-12) then TA:=TArmies(14)+12;
-            UBufferSet(12,TA);
-          end
-          else begin
-            TA:=20;
-            if (TPressure(14)>TA) then TA:=TPressure(14);
-            UBufferSet(14,TA);
-          end;
-          if (not (TIsMine(9))) then begin
-            TA:=20;
-            for X:=1 to 9 do begin
-              if ((TArmies(X)>TA-12) and (not TIsMine(X))) then TA:=TArmies(X)+12;
-            end;
-            UBufferSet(10,TA);
-          end
-          else begin
-            TA:=20;
-            for X:=1 to 9 do begin
-              if ((TArmies(X)>TA-12) and (not TIsMine(X))) then TA:=TArmies(X)+12;
-            end;
-            if ((TOwner(7)=TOwner(8)) and (not TIsMine(7))
-              and (TA < TArmies(7)+TArmies(8)+12)) then begin
-              TA:=TArmies(7)+TArmies(8)+12;
-            end;
-            UBufferSet(9,TA);
-          end;
-        end
-        else begin
-           if (((PA div 2)>EA) or (PA>(EA+6))) then begin
-            if ((TArmies(10)<20) and TIsMine(10)) then TerritoryTo:=10;
-            if ((TArmies(12)<20) and TIsMine(12)) then TerritoryTo:=12;
-          end;
-        end;
-      end;
-      CAnalysis(1,PT,PA,ET,EA);
-      if ((TerritoryTo=0)
-      and (COwner(2)=PMe)) then begin
-        if (((PA div 2)>EA) or (PA>(EA+10))) then begin
-          if ((TArmies(1)<20) and TIsMine(1)) then TerritoryTo:=1;
-          if ((TArmies(3)<20) and TIsMine(3)) then TerritoryTo:=3;
- 
-        end;
-      end;
-      CAnalysis(4,PT,PA,ET,EA);
-      if ((TerritoryTo=0) 
-      and (COwner(2)=PMe)) then begin
-        if (((PA div 2)>EA)or (PA>(EA+10))) then begin
-          if ((TArmies(14)<20) and TIsMine(14)) then TerritoryTo:=14;
-          if ((TArmies(15)<20) and TIsMine(15)) then TerritoryTo:=15;
-          if ((TArmies(16)<20) and TIsMine(16)) then TerritoryTo:=16;
-  
-        end;
-      end; 
-      if ((COwner(4)=PMe)) then begin
-        UBufferSet(14,20);
-        UBufferSet(15,20);
-        UBufferSet(16,20);
-      end;
-      end;
-    end;
-
-    IF (kILLpLAYER>0) THEN BEGIN
-      CAnalysis(6,PT,PA,ET,EA);
-      if (COwner(6)=PMe) then begin
-        if TIsFront(39) then begin
-          TA:=12;
-          for A:=1 to 38 do begin
-            if ((not TIsMine(A)) and ((double(TArmies(A)) / 2) > double(TA))) then begin
-              TA:=TArmies(A) div 2;
-            end;
-          end; 
-          UBufferSet(39,TA);
-        end
-        else begin
-          TA:=12;
-          if (TPressure(31)>TA) then TA:=TPressure(31);
-          for A:=1 to 38 do begin
-            if ((not TIsMine(A)) and (double(TArmies(A)) / 2 > double(TA))) then begin
-              TA:=TArmies(A) div 2;
-            end;
-          end; 
-          UBufferSet(31,TA);
-        end;
-      end;
-    end;
-
-  CAnalysis(6,PT,PA,ET,EA);
-  if (PA>EA+5) then begin
-    if (TIsMine(40) and (TArmies(40)>3)) then begin
-      if (not (TIsMine(42))) then begin
-        FromTerritory:=40;
-        ToTerritory:=42;
-      end;
-      if (not (TIsMine(41))) then begin
-        FromTerritory:=40;
-        ToTerritory:=41;
-      end;
-    end;
-  end;
-
-  if (COwner(6)=PMe) then begin
-    CAnalysis(2,PT,PA,ET,EA);
-    if (PA>EA+5) then begin
-      if (TIsMine(12) and TIsMine(10) and (not (COwner(2)=PMe))) then begin
-        if (TArmies(12)>3) then begin
-          FromTerritory:=12;
-          if (not (TIsMine(13))) then ToTerritory:=13;
-          if (not (TIsMine(11))) then ToTerritory:=11;
-        end;
-        if (TArmies(10)>3) then begin
-          if (not (TIsMine(11))) then begin
-            FromTerritory:=10;
-            ToTerritory:=11;
-          end;
-        end;
-      end;
-    end;
-  end;
-  if (COwner(2)=PMe) then begin
-    if ((not TIsMine(9))
-    and (TArmies(10)>(TArmies(9)+8))
-    and (COwner(1)>0)) then begin
-      FromTerritory:=10;
-      ToTerritory:=9;
-    end;
-
-    if ((TIsMine(14)) and (COwner(3)>0) and (not (COwner(3)=PMe))) then begin
-      if (TArmies(25)<TArmies(26)) then begin
-        if (TArmies(14)>(TArmies(25)+5)) then begin
-          FromTerritory:=14;
-          ToTerritory:=25;
-        end;
-      end
-      else begin
-        if (TArmies(14)>(TArmies(26)+5)) then begin
-          FromTerritory:=14;
-          ToTerritory:=26;
-        end;
-      end;
-    end;
-    if ((TIsMine(15)) and (COwner(5)>0) and (not (COwner(5)=PMe))) then begin
-      if (TArmies(15)>(TArmies(27)+5)) then begin
-        FromTerritory:=15;
-        ToTerritory:=27;
-      end;
-    end;
-    if ((TIsMine(16)) and (COwner(5)>0) and (not (COwner(5)=PMe))) then begin
-      if (TArmies(16)>(TArmies(27)+5)) then begin
-        FromTerritory:=16;
-        ToTerritory:=27;
-      end;
-    end;
-  end;
-  if (COwner(6)=PMe) then begin
-    if ((not TIsMine(31))
-    and (TArmies(39)>(TArmies(31)+8))
-    and (COwner(5)>0)) then begin
-      FromTerritory:=39;
-      ToTerritory:=31;
-    end;
-  end;
-
-
-  TA:=0;  //  bug fix by Nathan Scarbrough 6-9-10 #*#
-  if (FromTerritory=0) then begin
-    for T:=1 to 42 do begin
-      D:=1000;
-      if TIsMine(T) then begin
-        Y:=TBordersCount(T);
-        for Z:=1 to Y do begin
-          T2:=TBorder(T,Z);
-          if not(TIsMine(T2)) then begin
-            D2:=trunc(UBufferGet(T2));
-            if (D2<D) then begin 
-              D:=D2;
-              TA:=T2;
-            end;
-          end;
-        end;
-        if TIsBordering(T, TA) and (not TIsMine(TA)) then begin //  bug fix by Nathan Scarbrough 6-9-10 #*#
-          if (KillPlayer>0) then begin
-            if (((TArmies(T)-(25+D))>trunc(MaxTerritoryValue))
-            and (TArmies(T)>3)) then begin
-              MaxTerritoryValue:=TArmies(T)-(5+D);
-              FromTerritory:=T;
-              ToTerritory:=TA;
-            end;
-          end
-          else begin
-            if (((TArmies(T)-(15+trunc(ubufferget(T))+D))>trunc(MaxTerritoryValue*1.15))
-            and (TArmies(T)>3)) then begin
-              MaxTerritoryValue:=(double(TArmies(T)) - (15+ubufferget(T)+D))/1.15;
-              FromTerritory:=T;
-              ToTerritory:=TA;
-              if not SConquest then begin
-                if (((TArmies(T)-(15+D))>trunc(MaxTerritoryValue))
-                and (TArmies(T)>3)) then begin
-                  MaxTerritoryValue:=TArmies(T)-(15+D);
-                  FromTerritory:=T;
-                  ToTerritory:=TA;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-          
-  if (FromTerritory=0) then begin
-    MaxTerritoryValue:=0;
-    if not SConquest then begin  
-      for T:=1 to 42 do begin
-        if ((TIsFront(T)) and (trunc(ubufferget(T))=0)) then begin 
-          if (TArmies(T)>3) then begin
-            TerritoryValue:=0;
-            TerritoryArmies:=TArmies(T);
-            TWeakestFront(T,ET,EA);
-            if EA<3 then begin
-              TerritoryValue:=TerritoryValue+((3-EA)*200);
-              if (TerritoryArmies>100) then begin
-                TerritoryArmies:=100;
-              end;
-              TerritoryValue:=TerritoryValue+TerritoryArmies;
-            end;
-            Y:=TBordersCount(T);
-            for Z:=1 to Y do begin
-            TA:=TBorder(T,Z);
-            if ((not COwner(6)=PMe) and (COwner(6)=TOwner(TA)) and (TArmies(T)>(TArmies(TA)+10))) then begin
-              if ((COwner(6)=COwner(TContinent(TA)))
-                and (trunc(TerritoryValue) < 10000-TArmies(TA))) then begin
-                TerritoryValue:=10000-TArmies(TA);
-                FromTerritory:=T;
-                ToTerritory:=TA;
-              end;
-              if ((COwner(6)=COwner(TContinent(TA)))
-                and (TArmies(TA)*5<TArmies(T))
-                and (TerritoryValue < 1000 - TArmies(TA))) then begin
-                TerritoryValue:=1000-TArmies(TA);
-                FromTerritory:=T;
-                ToTerritory:=TA;
-              end;
-            end;
-            if (TerritoryValue>MaxTerritoryValue) then begin
-              MaxTerritoryValue:=TerritoryValue;
-              FromTerritory:=T;
-            end;
-            end;        
-          end;
-        end;
-      end;
-      if (FromTerritory>0) then begin
-        MaxTerritoryValue:=0;
-        TWeakestFront(FromTerritory,ET,EA);
-        Y:=TBordersCount(FromTerritory);
-        for Z:=1 to Y do begin
-          T2:=TBorder(FromTerritory,Z);
-          if ((TArmies(T2)=EA)and (not TIsMine(T2))) then begin
-            TWeakestFront(T2,ET2,EA2);
-            Y2:=TBordersCount(T2);
-            FA:=0;
-            FT:=0;
-            for Z2:=1 to Y2 do begin
-              if (not (TIsMine(TBorder(T2,Z2)))) then begin
-                FA:=FA+TArmies(TBorder(T2,Z2));
-                FT:=FT+1;
-              end;
-            end;
-            if (FT>0) then begin      // added a few zeros to fix bug (NS) *#*
-              TerritoryValue:=10000000-(double(EA2)*4+(double(FA)/FT));
-            end
-            else begin 
-             TerritoryValue:=500;
-            end;
-            if (TerritoryValue>MaxTerritoryValue) then begin
-              MaxTerritoryValue:=TerritoryValue;
-              ToTerritory:=T2;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-
-  // Code added by Nathan Scarbrough  06-08-10
-  // Forces Australian to get a card whenever it would be beneficial to do so
-  // It also prevents the game from becoming stagnant
-
-  if (ToTerritory = 0) and (not SCardsBasedOnCombo) and (not SConquest) and (PArmiesCount(PMe) > 30) then begin
-
-    CForce:= (PCardTurnInValue(PMe) div 3) + 2;
-    // if I haven't earned a card in the last 3 turns then increase CForce
-    if (bg(61) > 2) and (not SCardsBasedOnCombo) then begin
-    if GameHasOneHuman(P) and (  PArmiesCount(P) > ( trunc(0.9 * double(PArmiesCount(PMe))) )  ) then
-      CForce:= trunc(double(CForce) * 1.4 * double(bg(61) - 1)) + 2
-    else
-      CForce:= trunc(double(CForce) * 1.8 * double(bg(61) - 1)) + 3;
-    end;
-
-    // look for the attack with the best chance to win
-    MaxPoints:=0;
-    Points:= 0;
-    for T:=1 to 42 do begin
-      if TIsFront(T) and (TArmies(T) > 2) then begin
-        TWeakestFront(T, ET, EA);
-        if (EA < CForce) and (TArmies(T) > EA) then begin
-          Points:= (1/double(EA)) - (1/double(TArmies(T)));
-          if (Points > MaxPoints) then begin
-            MaxPoints:= Points;
-            FromTerritory:= T;
-            ToTerritory:= ET;
-          end;
-        end;
-      end;
-    end;
-  end;
-
-end;
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-  KillPlayer: integer;
-
-begin
-  // check for kill player mode
-  if (UBufferGet(99) = 1) or (UBufferGet(98) > 0) then begin
-    KillPlayer_Occupation(FromTerritory, ToTerritory, Armies);
-    exit;
-  end;
-
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  Armies:=0;
-  Armies:=(TArmies(FromTerritory)-1); 
-  UBufferSet(ToTerritory,0);
-
-
-  if (COwner(6)=PMe) then begin
-    if ((FromTerritory=39) and (ToTerritory=31)) then begin
-      UBufferSet(31,ubufferget(39));
-      UBufferSet(39,0);
-      if (ubufferget(31)<25) then UBufferSet(31,25);
-    end;
-  end;
-  if (COwner(6)=PMe) then begin
-  if (COwner(2)=PMe) then begin
-    if ((FromTerritory=12) and (ToTerritory=14)) then begin
-      UBufferSet(14,ubufferget(12));
-      UBufferSet(12,0);
-    end;
-  end;
-  if (COwner(2)=PMe) then begin
-    if ((FromTerritory=10) and (ToTerritory=9)) then begin
-      UBufferSet(9,ubufferget(10));
-      UBufferSet(10,0);
-    end;
-  end;
-  end;
-  Armies:=(TArmies(FromTerritory)-1)
-
-  if ToIsFront then begin
-    Armies:=(TArmies(FromTerritory)-(1+trunc(UBufferGet(FromTerritory))));
-    if (Armies<0) then Armies:=0;  
-  end;
-  if (ToTerritory=41) then begin
-    Armies:=0;
-  end;
-  if ((ToTerritory=40) and (FromTerritory=39)) then begin
-    Armies:=(TArmies(FromTerritory)-1);
-    if (Armies > (TArmies(42)+5)) then Armies := (TArmies(42)+5);
-    if (Armies < (TArmies(39) div 2)) then Armies:=(TArmies(39) div 2);
-  end;
-  if ((ToTerritory=42) and (FromTerritory=39)) then begin
-    Armies:=0;
-  end;
-  if (ToTerritory=39) then begin
-    Armies:=(TArmies(FromTerritory)-1);
-  end;
-
-
-  if ((FromTerritory=31) and (ToTerritory=39)) then begin
-    UBufferSet(39, ubufferget(39)-25);
-    UBufferSet(40, ubufferget(40)-25);
-    UBufferSet(41, ubufferget(41)-25);
-    UBufferSet(42, ubufferget(42)-25);
-  end;
-  if (COwner(6)=PMe) then begin
-  if (((FromTerritory=14) and (ToTerritory=12))
-   or ((FromTerritory=9) and (ToTerritory=10))) then begin
-    UBufferSet(10,ubufferget(10)-29);
-    UBufferSet(12,ubufferget(12)-29);
-    UBufferSet(13,ubufferget(13)-29);
-    UBufferSet(11,ubufferget(11)-29);
-  end;
-  
-  if ((FromTerritory=12) and (ToTerritory=13)) then begin
-    Armies:=0;
-  end;
-  if ((FromTerritory=12) and (ToTerritory=11)) then begin
-    Armies:=0;
-  end;
-  if ((FromTerritory=10) and (ToTerritory=11)) then begin
-    Armies:=0;
-  end;
-  if ((FromTerritory=12) and (ToTerritory=10)) then begin
-    Armies:=(TArmies(FromTerritory) div 2);
-  end;
-  if ((FromTerritory=10) and (ToTerritory=12)) then begin
-    Armies:=(TArmies(FromTerritory) div 2);
-  end;
-  if ((FromTerritory=12) and (ToTerritory=14)) then begin
-    Armies:=(TArmies(FromTerritory) - 20);
-    if (Armies<0) then Armies:=0;
-  end;
-  if ((FromTerritory=10) and (ToTerritory=9)) then begin
-    Armies:=(TArmies(FromTerritory) -20);
-    if (Armies<0) then Armies:=0;
-  end;
-  if (COwner(2)=PMe) then begin
-    if ((FromTerritory=12) and (ToTerritory=14)) then begin
-      Armies:=(TArmies(FromTerritory) - 1);
-      if (Armies<0) then Armies:=0;
-    end;
-    if ((FromTerritory=10) and (ToTerritory=9)) then begin
-      Armies:=(TArmies(FromTerritory) - 1);
-      if (Armies<0) then Armies:=0;
-    end;
-    if (FromTerritory=9) then begin
-      Armies:=(TArmies(FromTerritory) - 20);
-      if (Armies<0) then Armies:=0;
-    end;
-    if (FromTerritory=14) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if (Armies<0) then Armies:=0;
-    end;
-  end;   
-
-  if ((COwner(6)=PMe) and (COwner(2)=PMe)) then begin
-    if (FromTerritory=14) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if (Armies<0) then Armies:=0;
-    end;
-    if (FromTerritory=15) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if (Armies<0) then Armies:=0;
-    end;
-    if (FromTerritory=16) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if (Armies<0) then Armies:=0;
-    end;
-    if (FromTerritory=1) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if (Armies<0) then Armies:=0;
-    end;
-    if (FromTerritory=3) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if (Armies<0) then Armies:=0;
-    end;
-  end;
-  
-  if ((FromTerritory=14) and (ToTerritory=17)) then begin
-    Armies:=(TArmies(FromTerritory) div 2);
-  end;
-  if ((FromTerritory=20) and (ToTerritory=19)) then begin
-    Armies:=(TArmies(FromTerritory) div 2);
-  end;
-  if (COwner(4)=PMe) then begin
-    if ((FromTerritory=16) and (ToTerritory=15)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-    if ((FromTerritory=15) and (ToTerritory=16)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-    if ((FromTerritory=16) and (ToTerritory=14)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-    if ((FromTerritory=14) and (ToTerritory=16)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-    if ((FromTerritory=14) and (ToTerritory=15)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-    if ((FromTerritory=15) and (ToTerritory=14)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-  end;
-  if (COwner(3)=PMe) then begin
-    if ((FromTerritory=22)
-    or  (FromTerritory=26)
-    or  (FromTerritory=20)) then begin
-      Armies:=TArmies(FromTerritory)-20;
-      if Armies<0 then Armies:=0;
-    end;
-  end;
-  end;
-  if ((KillPlayer>0) and (not (FromTerritory=31))) then Armies:=(TArmies(FromTerritory)-1);
-If (Armies<0) then Armies:=0;
-
-
-end;
-
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  T,B,MaxArmy: integer;
-
-  // Kill Player variables
-  extra, X, C, C1, TotalEnemyArmies, P, MaxPArmiesCount: integer;
-  Human, Abort: boolean;
-  TM: double;
-begin
-  if not SConquest then bs(61, bg(61)+1) else bs(61,0);   //  61 - successive turns without conquest counter
-  if GameHasOneHuman(P) then begin
-    C:= 0;
-    C1:= 0;
-    For X:= 1 to 10 do begin
-      if PActive(X) and (PProgram(X) = 'vexer.trp') then C:= C + 1;   // check to see if Vexer is dead
-      if PAlive(X) and (PProgram(X) = 'vexer.trp') then C1:= C1 + 1;
-    end;
-    extra:= 0;
-    if (PCardTurnInValue(P) > PCardTurnInValue(PMe)) and (PCardCount(P) > 1) then Extra:= PCardTurnInValue(P) - PCardTurnInValue(PMe);
-    If (C = 1) and (C1 = 0) and ( PArmiesCount(PMe) > (2 * PArmiesCount(P) + 3) + Extra ) then begin
-      UBufferSet(98, 1);
-    end;
-    if PArmiesCount(PMe) > (3 * PArmiesCount(P)) then begin
-      UBufferSet(98, 1);
-    end;
-  end;
-
-
-  {----------------------------------finisher----------------------------------}
-  // improved finisher.trp code
-  if (UBufferGet(99) = 0) and (PCardCount(PMe) > 2) then begin
-    if SCardsBasedOnCombo then TM:= 1.0 else TM:=0.8;
-    Abort:=False;
-    Human:=False;
-    TotalEnemyArmies:=0;
-    MaxPArmiesCount:=0;	// The number of armies that my strongest enemy has
-    for P:= 1 to 10 do begin
-      if (PAlive(P)) and (P<>PMe) then begin
-        if PArmiesCount(P) >= MaxPArmiesCount then begin
-          MaxPArmiesCount:= PArmiesCount(P);
-          if (NOT (PArmiesCount(P) = MaxPArmiesCount)) then Abort:=False;	// 1st and 2nd strongest armies are the same, don't reset abort to false
-          if (PCardCount(P) > 2) and (PCardTurnInValue(P) > 25) then Abort:= True;
-        end;
-        if PHuman(P) and (PCardCount(P) > 3) and (PCardTurnInValue(P) > 20) then Abort:= True;
-        if PHuman(P) then begin
-          if (not (PArmiesCount(P) < trunc(double(PArmiesCount(PMe)) * 0.25))) then TM:= TM + 0.2;
-          If PCardTurnInValue(P) > PCardTurnInValue(PMe) then TotalEnemyArmies:= TotalEnemyArmies + PCardTurnInValue(P) - PCardTurnInValue(PMe);
-        end;
-        If (pos('vexer', lowercase(PProgram(P))) > 0) then begin
-          if (not (PArmiesCount(P) < trunc(double(PArmiesCount(PMe)) * 0.25))) then TM:= TM + 0.2;
-          if (PCardCount(P) > 3) and (PCardTurnInValue(P) > 25) then Abort:= True;
-          If PCardTurnInValue(P) > PCardTurnInValue(PMe) then TotalEnemyArmies:= TotalEnemyArmies + PCardTurnInValue(P) - PCardTurnInValue(PMe);
-        end;                                                    // pretend there are more enemy armies if his CTIV is greater then mine
-        TotalEnemyArmies:= TotalEnemyArmies + PArmiesCount(p);
-      end;
-    end;
-
-    // if there's more than 4 players, I'll get a lot of cards by killing them so then lower the threshold multiplier
-    if (SAlivePlayersCount > 4) then TM:= TM - 0.1;
-
-    // if I have a lot of armies then lower TM because on average when attacking 3 dice against 2
-    // I'll take out 7 enemy armies for every 6 I lose, so I need less armies to win
-    if (PArmiesCount(PMe) > 200) then begin
-      TM:= TM * 0.9;
-      abort:= false;
-    end;
-    if (PArmiesCount(PMe) > 400) then TM:= TM * 0.95;
-
-    if (PArmiesCount(PMe) > trunc(TotalEnemyArmies * TM)) and (NOT Abort) then UBufferSet(99, 1);
-    if (PArmiesCount(PMe) > trunc(TotalEnemyArmies*1.4)) then UBufferSet(99, 1);		// If TM > 1.4 then switch to Kill Player even if Abort = true
-  end;
-
-  // check for kill player mode
-  if (UBufferGet(99) = 1) or (UBufferGet(98) > 0) then begin
-    KillPlayer_Fortification(FromTerritory, ToTerritory, Armies);
-    exit;
-  end;
-
-
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-  MaxArmy:=1;
-  if (COwner(6)=PMe)
-    then begin
-    if (TArmies(40)>1) then begin
-      Armies:=TArmies(40)-1;
-      FromTerritory:=40;
-      ToTerritory:=39;
-    end;
-    if (TArmies(42)>1) then begin
-      Armies:=TArmies(42)-1;
-      FromTerritory:=42;
-      ToTerritory:=39;
-    end;
-  end;
-  
-  if (FromTerritory=0) then begin
-    for T:=1 to 42 do begin
-      if ((TIsMine(T)) 
-      and (trunc(ubufferget(T))=0) 
-      and (not TIsFront(T))) then begin  
-        if TArmies(T)>MaxArmy then begin
-          MaxArmy := TArmies(T);
-          FromTerritory := T;
-        end;
-      end; 
-    end;
-    
-    if FromTerritory>0 then begin
-      for B:=1 to TBordersCount(FromTerritory) do begin
-        if ToTerritory=0 then begin
-          T:=TBorder(FromTerritory,B);
-          if TIsMine(T) and TIsFront(T) then begin
-            ToTerritory:=T;
-          end;
-        end;
-      end;
-      if ToTerritory=0 then begin
-        for B:=1 to TBordersCount(FromTerritory) do begin
-          if ToTerritory=0 then begin
-            T:=TBorder(FromTerritory,B);
-            if TIsMine(T) then begin
-              ToTerritory:=T;
-            end;
-          end;
-        end;
-      end;
-      if ToTerritory>0 then begin
-        Armies:=TArmies(FromTerritory)-1;
-      end;
-    end;
-  end;
-end;
-
-begin
-end.
\ No newline at end of file
diff --git a/Players/australian.trp b/Players/australian.trp
deleted file mode 100644
index 2ae9e56..0000000
--- a/Players/australian.trp
+++ /dev/null
@@ -1,1228 +0,0 @@
-{ 
-Program: Australian
-
-Author: Anthony Covey-Crump
-
-Description:  This program is Descartes with a different strategy. 
-It is named after your typical australian who travels the world over, 
-but with an eventual view of getting back to australia. 
-
-History: Initially ported to TurboRisk 1.3 by Paul R. Brown 
-and then patched by Nathan Scarbrough.
-}
-
-procedure Assignment(var ToTerritory: integer);
-var
-  T,Y,Z: integer;
-  MaximumValue,Value:integer;
-begin
-  ToTerritory:=0;
-  for T:=1 to 42 do begin
-    if TOwner(T)=0 then begin
-      Value:=0;
-      if (T<39) then 
-        Value:=Value+10;
-      Y:=TBordersCount(T);
-      for Z:=1 to Y do begin
-        if TIsMine(TBorder(T,Z)) then Value:=Value-1;
-      end;
-      if (Value>=MaximumValue) then begin
-        MaximumValue:=Value;
-        ToTerritory:=T;
-      end;
-    end;
-  end;
-        
-end;
-
-procedure Placement(var ToTerritory: integer);
-var
-  T,TA,X,Y,T2,D,D2,Z,KillPlayer: integer;
-  MaxTerritoryValue,TerritoryValue,Score: double;
-  TerritoryTo: integer;
-  TerritoryArmies: integer;
-  PT,PA,ET,EA:integer;
-  TotalArmies: double;
-  A:Integer;
-
-begin
-  TerritoryTo:=0;
-  UBufferSet(49,0); 
-  if ((PArmiesCount(PMe) < 10) and (not (trunc(ubufferget(50))=2))) then begin
-    UBufferSet(50,1);
-  end;
-  if ((PArmiesCount(PMe) > 25) and (trunc(ubufferget(50))=1)) then begin
-    UBufferSet(50,2);
-  end;
-  if (trunc(ubufferget(50))=1) then begin
-    MaxTerritoryValue:=0;
-    for T:=1 to 42 do begin
-      if (TIsMine(T) and TIsFront(T)) then begin
-        TWeakestFront(T,ET,EA);
-        Score:=1000-EA;
-        Score:=Score-((double(TPressure(T))/TFrontsCount(T))*2);
-        Score:=Score+(TArmies(T) div 3);
-        if (T>38) then Score:=Score-100;
-        if ((T>9) and (T<14)) then Score:=Score-50;
-        if (Score> MaxTerritoryValue) then begin
-          MaxTerritoryValue:=Score;
-          TerritoryTo:=T;
-        end;
-      end;
-    end;
-  end
-  else begin
-   
-    CAnalysis(6,PT,PA,ET,EA);
-    UBufferSet(39,EA);
-    UBufferSet(40,EA-1);
-    UBufferSet(41,EA-2);
-    UBufferSet(42,EA-1);
-    if (PA>EA+4) then begin
-      UBufferSet(39,EA-25);
-      UBufferSet(40,EA-26);
-      UBufferSet(41,EA-27);
-      UBufferSet(40,EA-26);
-    end;
-    CAnalysis(2,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+1000;
-    UBufferSet(10,EA+6);
-    UBufferSet(12,EA+6);
-    UBufferSet(13,EA+4);
-    UBufferSet(11,EA+5);
-    if (PA>(EA+4)) then begin
-      UBufferSet(10,EA-20);
-      UBufferSet(12,EA-20);
-      UBufferSet(13,EA-22);
-      UBufferSet(11,EA-21);
-    end;  
-    CAnalysis(4,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+1000;
-    if (not (COwner(2)=PMe)) then EA:=EA+1000;
-    UBufferSet(14,EA+6);
-    UBufferSet(15,EA+6);
-    UBufferSet(16,EA+6);
-    UBufferSet(17,EA+6);
-    UBufferSet(18,EA+6);
-    UBufferSet(19,EA+6);
-    if ((PA>(EA+9)) and (COwner(2)=PMe)) then begin
-      UBufferSet(14,EA-20);
-      UBufferSet(15,EA-19);
-      UBufferSet(16,EA-20);
-      UBufferSet(17,EA-21);
-      UBufferSet(18,EA-22);
-      UBufferSet(19,EA-23);
-    end;
-    CAnalysis(1,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+1000;
-    if (not (COwner(2)=PMe)) then EA:=EA+1000;
-    UBufferSet(1,EA+6);
-    UBufferSet(2,EA+6);
-    UBufferSet(3,EA+6);
-    UBufferSet(4,EA+6);
-    UBufferSet(5,EA+6);
-    UBufferSet(6,EA+6);
-    UBufferSet(7,EA+6);
-    UBufferSet(8,EA+6);
-    UBufferSet(9,EA+6);
-    CAnalysis(3,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+1000;
-    if (not (COwner(2)=PMe)) then EA:=EA+1000;
-    if (not (COwner(4)=PMe)) then EA:=EA+15;
-    UBufferSet(20,EA+6);
-    UBufferSet(21,EA+6);
-    UBufferSet(22,EA+6);
-    UBufferSet(23,EA+6);
-    UBufferSet(24,EA+6);
-    UBufferSet(25,EA+6);
-    UBufferSet(26,EA+6);
-    CAnalysis(5,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+1000;
-    if (not (COwner(2)=PMe)) then EA:=EA+1000;
-    if (not (COwner(4)=PMe)) then EA:=EA+15;
-    if (not (COwner(1)=PMe)) then EA:=EA+15;
-    if (not (COwner(3)=PMe)) then EA:=EA+15;
-    UBufferSet(27,EA+6);
-    UBufferSet(28,EA+6);
-    UBufferSet(29,EA+6);
-    UBufferSet(30,EA+6);
-    UBufferSet(31,EA+6);
-    UBufferSet(32,EA+6);
-    UBufferSet(33,EA+6);
-    UBufferSet(34,EA+6);
-    UBufferSet(35,EA+6);
-    UBufferSet(36,EA+6);
-    UBufferSet(37,EA+6);
-    UBufferSet(38,EA+6);
-    
-    TotalArmies:=0;
-    KillPlayer:=0;
-
-    UBufferSet(49,0);
-    for T:=1 to 10 do begin
-      TotalArmies:=TotalArmies+PArmiesCount(T);
-    end;
-    for T:=1 to 10 do begin
-      if ((COwner(6)=T) or (COwner(6)=PMe)) then begin
-      if ((not (T=PMe))
-      and (PArmiesCount(T)>trunc(TotalArmies * 0.35))) then begin
-        KillPlayer:=T;
-      end;
-      if ((not (T=PMe))
-      and (PArmiesCount(T)>trunc((TotalArmies-PArmiesCount(PMe))*0.41))) then begin
-        KillPlayer:=T;
-      end;
-      if ((KillPlayer=T) and ((COwner(6)=PMe) or (COwner(6)=T))) then begin
-        KillPlayer:=0;
-        Y:=0;
-        Z:=0;
-        for T2:=1 to 6 do begin
-          if (COwner(T2)=T) then Y:=Y+CBonus(T2);
-          if (COwner(T2)=PMe) then Z:=Z+CBonus(T2);
-        end;
-        if (PTerritoriesCount(T)>11) then begin
-          Y:=Y+((PTerritoriesCount(T) div 3)-3);
-        end;
-        if (PTerritoriesCount(PMe)>11) then begin
-          Z:=Z+((PTerritoriesCount(PMe) div 3)-3);
-        end;
-        if ((Y>Z+3) and ((COwner(6)=T) or (COwner(6)=PMe))) then begin
-          KillPlayer:=T;
-          UBufferSet(49,T);
-        end;
-      end;   
-      end;
-    end;
-    
-    if (not (KillPlayer=0)) then begin
-      for T:=1 to 42 do begin
-        if TOwner(T)=KillPlayer then begin
-          UBufferSet(T,TArmies(T));
-        end;
-        if ((COwner(TContinent(T)))=KillPlayer) then begin
-          UBufferSet(T,-15-(CBonus(TContinent(T))*2)+TArmies(T));
-        end;
-      end;
-    end;
-    if (PArmiesCount(PMe)>TotalArmies+50) then begin
-      for T:=1 to 42 do begin
-        if (not (TIsMine(T))) then begin
-          UBufferSet(T,TArmies(T));
-          if ((COwner(TContinent(T)))>0) then begin
-            UBufferSet(T,-30+TArmies(T));
-          end;
-        end;
-      end;
-    end;
-
-    for X:=1 to 8 do begin
-      for T:=1 to 42 do begin
-        if (not TIsMine(T)) then begin
-          Y:=TBordersCount(T);
-          for Z:=1 to Y do begin
-            T2:=TBorder(T,Z);
-            if (not TIsMine(T2)) then begin
-              D:=trunc(UBufferGet(T));
-              D2:=trunc(UBufferGet(T2));
-              if (D>(D2+TArmies(T))) then begin
-                D:=D2+TArmies(T)+1;
-                UBufferSet(T,D);
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-    
-    for T:=1 to 42 do begin
-      if (TIsMine(T)) then begin
-        UBufferSet(T,0);
-      end;
-    end;
-    if (KillPlayer=0) then begin
-      CAnalysis(6,PT,PA,ET,EA);
-      if (COwner(6)=PMe) then begin
-        if TIsFront(39) then begin
-          TA:=25;
-          if (TArmies(38)>TA-5) then TA:=TArmies(38)+5;
-          for A:=1 to 38 do begin
-            if ((not TIsMine(A)) and (TArmies(A) > TA)) then begin
-              TA:=TArmies(A);
-            end;
-          end; 
-          UBufferSet(39,TA);
-        end
-        else begin
-          TA:=25;
-          if (TPressure(31)>TA) then TA:=TPressure(31);
-          for A:=1 to 38 do begin
-            if ((not TIsMine(A)) and (TArmies(A) > TA)) then begin
-              TA:=TArmies(A);
-            end;
-          end; 
-          UBufferSet(31,TA);
-        end;
-      end
-      else begin
-        if ((PA > (EA * 2)) or (PA>(EA+5))) and TIsMine(40) then begin
-          if (TIsMine(41)) then begin
-            TerritoryTo:=40;
-          end;
-          if (TIsMine(42)) then begin
-            TerritoryTo:=40;
-          end;
-          if (TIsMine(39)) then begin
-            TerritoryTo:=40;
-          end;
-          if (TIsMine(40)) then begin
-            TerritoryTo:=40;
-          end;
-        end;
-      end;
-     
-      if (COwner(6)=PMe) then begin
-      CAnalysis(2,PT,PA,ET,EA);
-      if (TerritoryTo=0) then begin
-        if (COwner(2)=PMe) then begin
-          if (not (TIsMine(14))) then begin
-            TA:=20;
-            if (TArmies(14)>TA-12) then TA:=TArmies(14)+12;
-            UBufferSet(12,TA);
-          end
-          else begin
-            TA:=20;
-            if (TPressure(14)>TA) then TA:=TPressure(14);
-            UBufferSet(14,TA);
-          end;
-          if (not (TIsMine(9))) then begin
-            TA:=20;
-            for X:=1 to 9 do begin
-              if ((TArmies(X)>TA-12) and (not TIsMine(X))) then TA:=TArmies(X)+12;
-            end;
-            UBufferSet(10,TA);
-          end
-          else begin
-            TA:=20;
-            for X:=1 to 9 do begin
-              if ((TArmies(X)>TA-12) and (not TIsMine(X))) then TA:=TArmies(X)+12;
-            end;
-            if ((TOwner(7)=TOwner(8)) and (not TIsMine(7))
-                 and (TA < TArmies(7)+TArmies(8)+12)) then begin
-              TA:=TArmies(7)+TArmies(8)+12;
-            end;
-            UBufferSet(9,TA);
-          end;
-        end
-        else begin
-           if (PA>1) then begin
-
-            if ((TArmies(11)<1000) and TIsMine(11)) then TerritoryTo:=11;
-            if ((TArmies(13)<1000) and TIsMine(13)) then TerritoryTo:=13;
-            if ((TArmies(10)<1000) and TIsMine(10)) then TerritoryTo:=10;
-            if ((TArmies(12)<1000) and TIsMine(12)) then TerritoryTo:=12;
-          end;
-        end;
-      end;
-      
-      if ((TerritoryTo=0)
-      and (not (COwner(2)=PMe))) then begin
-
-            if ((TArmies(14)<1000) and TIsMine(14)) then TerritoryTo:=14;
-
-      end;
-      CAnalysis(1,PT,PA,ET,EA);
-      if ((TerritoryTo=0)
-      and (COwner(2)=PMe)) then begin
-        if (((PA div 2)>EA) or (PA>(EA+10))) then begin
-          if ((TArmies(1)<20) and TIsMine(1)) then TerritoryTo:=1;
-          if ((TArmies(3)<20) and TIsMine(3)) then TerritoryTo:=3;
- 
-        end;
-      end;
-      CAnalysis(4,PT,PA,ET,EA);
-      if ((TerritoryTo=0) 
-      and (COwner(2)=PMe)) then begin
-        if (((PA div 2)>EA)or (PA>(EA+10))) then begin
-          if ((TArmies(14)<20) and TIsMine(14)) then TerritoryTo:=14;
-          if ((TArmies(15)<20) and TIsMine(15)) then TerritoryTo:=15;
-          if ((TArmies(16)<20) and TIsMine(16)) then TerritoryTo:=16;
-  
-        end;
-      end; 
-      if ((COwner(4)=PMe)) then begin
-        UBufferSet(14,20);
-        UBufferSet(15,20);
-        UBufferSet(16,20);
-      end;
-      end;
-    end;
-    IF (kILLpLAYER>0) THEN BEGIN
-      CAnalysis(6,PT,PA,ET,EA);
-      if (COwner(6)=PMe) then begin
-        if TIsFront(39) then begin
-          TA:=12;
-          for A:=1 to 38 do begin
-            if ((not TIsMine(A)) and ((double(TArmies(A)) / 2) > double(TA))) then begin
-              TA:=TArmies(A) div 2;
-            end;
-          end; 
-          UBufferSet(39,TA);
-        end
-        else begin
-          TA:=12;
-          if (TPressure(31)>TA) then TA:=TPressure(31);
-          for A:=1 to 38 do begin
-            if ((not TIsMine(A)) and (double(TArmies(A)) / 2 > double(TA))) then begin
-              TA:=TArmies(A) div 2;
-            end;
-          end; 
-          UBufferSet(31,TA);
-        end;
-      end;
-    end;
- 
-    if (TerritoryTo=0) then begin  
-      MaxTerritoryValue:=0;
-      for T:=1 to 42 do begin
-        if TIsMine(T) then begin
-          Y:=TBordersCount(T);
-          D:=1000;
-          for Z:=1 to Y do begin
-            T2:=TBorder(T,Z);
-            if not(TIsMine(T2)) then begin
-              D2:=trunc(UBufferGet(T2));
-              if (D2<D) then begin
-                D:=D2;
-                TA:=T2;
-              end;
-            end;
-          end;
-          if ((TArmies(T)-(trunc(ubufferget(T))+D))>trunc(MaxTerritoryValue)) then begin
-            MaxTerritoryValue:=TArmies(T)-(trunc(ubufferget(T))+D);
-            TerritoryTo:=T;
-          end;
-          if (KillPlayer=0) then begin
-            if (TArmies(T)<trunc(ubufferget(T))) then begin
-              if ((1000+trunc(ubufferget(T))-TArmies(T))>trunc(MaxTerritoryValue)) then begin
-                MaxTerritoryValue:=1000+trunc(ubufferget(T))-TArmies(T);
-                TerritoryTo:=T;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-    if (TerritoryTo=0) then begin
-      MaxTerritoryValue:=0;
-      for T:=1 to 42 do begin
-        if TIsFront(T) then begin 
-          TerritoryValue:=1;
-          TWeakestFront(T,ET,EA);
-          TerritoryArmies:=TArmies(T);
-          if EA<3 then begin
-              TerritoryValue:=TerritoryArmies*(3-EA);
-          end;
-          if EA>2 then begin
-            if EA>100 then begin
-              EA:=100;
-            end;
-            TerritoryValue:=TerritoryValue+TArmies(T)+(100-EA);
-          end;
-          if ((TerritoryValue>=MaxTerritoryValue) 
-              and ((TArmies(T)>1) or (TerritoryTo=0)) ) then begin
-            MaxTerritoryValue:=TerritoryValue;
-            TerritoryTo:=T;
-          end;
-        end;
-      end;
-    end;
-  end;
-  ToTerritory:=TerritoryTo;
-
-end;
-
-
-
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  T,X,Y,T2,TA,D,D2,Z,Z2,Y2,FT,FA,KillPlayer: integer;
-  MaxTerritoryValue,TerritoryValue: double;
-//  TerritoryValue: integer;
-  TerritoryArmies: integer;
-  PT,PA,ET,EA,ET2,EA2:integer;
-  TotalArmies,A,TerritoryTo:Integer;
-//  Au27,Au29,Au30,Au31,Au32,Au33,Au36,Au39:Integer;
-begin
-  FromTerritory:=0;
-  ToTerritory:=0;
-  MaxTerritoryValue:=0;
-  
-  KillPlayer:=trunc(UBufferGet(49));
-    CAnalysis(6,PT,PA,ET,EA);
-    X:=0;
-    if (COwner(6)>0) then begin
-      Y:=CTerritoriesCount(5);
-      for T:=32 to 38 do begin
-        if ((COwner(6)=TOwner(T)) and (TArmies(T)>X+40)) then begin
-          X:=TArmies(T)-40;
-        end;
-      end;
-    end; 
-    EA:=EA+X;
-    UBufferSet(39,EA);
-    UBufferSet(40,EA-1);
-    UBufferSet(41,EA-2);
-    UBufferSet(42,EA-1);
-    if (PA>EA+4) then begin
-      UBufferSet(39,EA-25);
-      UBufferSet(40,EA-26);
-      UBufferSet(41,EA-27);
-      UBufferSet(40,EA-26);
-    end;
-    CAnalysis(2,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+1000;
-    if ((COwner(6)=PMe) and (PA=0) and (not TIsMine(14))) then begin
-      if ((COwner(1)=COwner(2))
-      or (COwner(3)=COwner(2))
-      or (COwner(4)=COwner(2))
-      or (COwner(5)=COwner(2))) then begin
-        EA:=EA;
-      end
-      else begin
-//        X:=EA;
-//        CAnalysis(1,PT,PA,ET,EA);
-//        X:=X+EA;
-//        CAnalysis(4,PT,PA,ET,EA);
-//        X:=X+EA;
-//        CAnalysis(2,PT,PA,ET,EA);
-//        EA:=X;
-        EA:=EA+100;
-      end;
-    end;
-
-    UBufferSet(10,EA+6);
-    UBufferSet(12,EA+6);
-    UBufferSet(13,EA+4);
-    UBufferSet(11,EA+5);
-    if (PA>(EA+4)) then begin
-      UBufferSet(10,EA-20);
-      UBufferSet(12,EA-20);
-      UBufferSet(13,EA-22);
-      UBufferSet(11,EA-21);
-    end;  
-    CAnalysis(4,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+1000;
-    if (not (COwner(2)=PMe)) then EA:=EA+1000;
-    UBufferSet(14,EA+6);
-    UBufferSet(15,EA+6);
-    UBufferSet(16,EA+6);
-    UBufferSet(17,EA+6);
-    UBufferSet(18,EA+6);
-    UBufferSet(19,EA+6);
-    if ((PA>(EA+9)) and (COwner(2)=PMe)) then begin
-      UBufferSet(14,EA-20);
-      UBufferSet(15,EA-19);
-      UBufferSet(16,EA-20);
-      UBufferSet(17,EA-21);
-      UBufferSet(18,EA-22);
-      UBufferSet(19,EA-23);
-    end;
-    CAnalysis(1,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+1000;
-    if (not (COwner(2)=PMe)) then EA:=EA+1000;
-    UBufferSet(1,EA+6);
-    UBufferSet(2,EA+6);
-    UBufferSet(3,EA+6);
-    UBufferSet(4,EA+6);
-    UBufferSet(5,EA+6);
-    UBufferSet(6,EA+6);
-    UBufferSet(7,EA+6);
-    UBufferSet(8,EA+6);
-    UBufferSet(9,EA+6);
-    CAnalysis(3,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+1000;
-    if (not (COwner(2)=PMe)) then EA:=EA+1000;
-    if (not (COwner(4)=PMe)) then EA:=EA+15;
-    UBufferSet(20,EA+6);
-    UBufferSet(21,EA+6);
-    UBufferSet(22,EA+6);
-    UBufferSet(23,EA+6);
-    UBufferSet(24,EA+6);
-    UBufferSet(25,EA+6);
-    UBufferSet(26,EA+6);
-    CAnalysis(5,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+1000;
-    if (not (COwner(2)=PMe)) then EA:=EA+1000;
-    if (not (COwner(4)=PMe)) then EA:=EA+15;
-    if (not (COwner(1)=PMe)) then EA:=EA+15;
-    if (not (COwner(3)=PMe)) then EA:=EA+15;
-    UBufferSet(27,EA+6);
-    UBufferSet(28,EA+6);
-    UBufferSet(29,EA+6);
-    UBufferSet(30,EA+6);
-    UBufferSet(31,EA+6);
-    UBufferSet(32,EA+6);
-    UBufferSet(33,EA+6);
-    UBufferSet(34,EA+6);
-    UBufferSet(35,EA+6);
-    UBufferSet(36,EA+6);
-    UBufferSet(37,EA+6);
-    UBufferSet(38,EA+6);
-    
-    TotalArmies:=0;
-    KillPlayer:=0;
-    UBufferSet(49,0);
-
-    for T:=1 to 10 do begin
-      TotalArmies:=TotalArmies+PArmiesCount(T);
-    end;
-
-    for T:=1 to 10 do begin
-      if ((COwner(6)=T) or (COwner(6)=PMe)) then begin
-        if ((not (T=PMe)) and (PArmiesCount(T)>trunc(TotalArmies * 0.35))) then begin
-          KillPlayer:=T;
-        end;
-
-        if ((not (T=PMe))
-        and (PArmiesCount(T)>trunc((TotalArmies-PArmiesCount(PMe))*0.41))) then begin
-          KillPlayer:=T;
-        end;
-
-        if ((KillPlayer=T) and ((COwner(6)=PMe) or (COwner(6)=T))) then begin
-          KillPlayer:=0;
-          Y:=0;
-          Z:=0;
-          for T2:=1 to 6 do begin
-            if (COwner(T2)=T) then Y:=Y+CBonus(T2);
-            if (COwner(T2)=PMe) then Z:=Z+CBonus(T2);
-          end;
-          if (PTerritoriesCount(T)>11) then begin
-            Y:=Y+((PTerritoriesCount(T) div 3)-3);
-          end;
-          if (PTerritoriesCount(PMe)>11) then begin
-            Z:=Z+((PTerritoriesCount(PMe) div 3)-3);
-          end;
-          if (Y>Z+3) then begin
-            KillPlayer:=T;
-            UBufferSet(49,T);
-          end;
-        end;   
-      end;
-    end;
-    
-    if (not (KillPlayer=0)) then begin
-      for T:=1 to 42 do begin
-        if TOwner(T)=KillPlayer then begin
-          UBufferSet(T,TArmies(T));
-        end;
-        if ((COwner(TContinent(T)))=KillPlayer) then begin
-          UBufferSet(T,-15-(CBonus(TContinent(T))*2)+TArmies(T));
-        end;
-      end;
-    end;
-    if (PArmiesCount(PMe)>TotalArmies+50) then begin
-      for T:=1 to 42 do begin
-        if (not (TIsMine(T))) then begin
-          UBufferSet(T,TArmies(T));
-          if ((COwner(TContinent(T)))>0) then begin
-            UBufferSet(T,-30+TArmies(T));
-          end;
-        end;
-      end;
-    end;
-
-    for X:=1 to 8 do begin
-      for T:=1 to 42 do begin
-        if (not TIsMine(T)) then begin
-          Y:=TBordersCount(T);
-          for Z:=1 to Y do begin
-            T2:=TBorder(T,Z);
-            if (not TIsMine(T2)) then begin
-              D:=trunc(UBufferGet(T));
-              D2:=trunc(UBufferGet(T2));
-              if (D>(D2+TArmies(T))) then begin
-                D:=D2+TArmies(T)+1;
-                UBufferSet(T,D);
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-    
-    for T:=1 to 42 do begin
-      if (TIsMine(T)) then begin
-        UBufferSet(T,0);
-      end;
-    end;
-    if (KillPlayer=0) then begin
-      CAnalysis(6,PT,PA,ET,EA);
-      if (COwner(6)=PMe) then begin
-        if TIsFront(39) then begin
-          TA:=25;
-          if (TArmies(38)>TA-5) then TA:=TArmies(38)+5;
-          for A:=1 to 38 do begin
-            if ((not TIsMine(A)) and (TArmies(A) > TA)) then begin
-              TA:=TArmies(A);
-            end;
-          end; 
-          UBufferSet(39,TA);
-        end
-        else begin
-          TA:=25;
-          if (TPressure(31)>TA) then TA:=TPressure(31);
-          for A:=1 to 38 do begin
-            if ((not TIsMine(A)) and (TArmies(A) > TA)) then begin
-              TA:=TArmies(A);
-            end;
-          end; 
-          UBufferSet(31,TA);
-        end;
-      end
-      else begin
-        if ((PA > (EA * 2)) or (PA>(EA+5))) then begin
-          if (TIsMine(41)) then begin
-            TerritoryTo:=40;
-          end;
-          if (TIsMine(42)) then begin
-            TerritoryTo:=40;
-          end;
-          if (TIsMine(39)) then begin
-            TerritoryTo:=40;
-          end;
-          if (TIsMine(40)) then begin
-            TerritoryTo:=40;
-          end;
-        end;
-      end;
-     
-      if (COwner(6)=PMe) then begin
-      CAnalysis(2,PT,PA,ET,EA);
-      if (TerritoryTo=0) then begin
-        if (COwner(2)=PMe) then begin
-          if (not (TIsMine(14))) then begin
-            TA:=20;
-            if (TArmies(14)>TA-12) then TA:=TArmies(14)+12;
-            UBufferSet(12,TA);
-          end
-          else begin
-            TA:=20;
-            if (TPressure(14)>TA) then TA:=TPressure(14);
-            UBufferSet(14,TA);
-          end;
-          if (not (TIsMine(9))) then begin
-            TA:=20;
-            for X:=1 to 9 do begin
-              if ((TArmies(X)>TA-12) and (not TIsMine(X))) then TA:=TArmies(X)+12;
-            end;
-            UBufferSet(10,TA);
-          end
-          else begin
-            TA:=20;
-            for X:=1 to 9 do begin
-              if ((TArmies(X)>TA-12) and (not TIsMine(X))) then TA:=TArmies(X)+12;
-            end;
-            if ((TOwner(7)=TOwner(8)) and (not TIsMine(7))
-              and (TA < TArmies(7)+TArmies(8)+12)) then begin
-              TA:=TArmies(7)+TArmies(8)+12;
-            end;
-            UBufferSet(9,TA);
-          end;
-        end
-        else begin
-           if (((PA div 2)>EA) or (PA>(EA+6))) then begin
-            if ((TArmies(10)<20) and TIsMine(10)) then TerritoryTo:=10;
-            if ((TArmies(12)<20) and TIsMine(12)) then TerritoryTo:=12;
-          end;
-        end;
-      end;
-      CAnalysis(1,PT,PA,ET,EA);
-      if ((TerritoryTo=0)
-      and (COwner(2)=PMe)) then begin
-        if (((PA div 2)>EA) or (PA>(EA+10))) then begin
-          if ((TArmies(1)<20) and TIsMine(1)) then TerritoryTo:=1;
-          if ((TArmies(3)<20) and TIsMine(3)) then TerritoryTo:=3;
- 
-        end;
-      end;
-      CAnalysis(4,PT,PA,ET,EA);
-      if ((TerritoryTo=0) 
-      and (COwner(2)=PMe)) then begin
-        if (((PA div 2)>EA)or (PA>(EA+10))) then begin
-          if ((TArmies(14)<20) and TIsMine(14)) then TerritoryTo:=14;
-          if ((TArmies(15)<20) and TIsMine(15)) then TerritoryTo:=15;
-          if ((TArmies(16)<20) and TIsMine(16)) then TerritoryTo:=16;
-  
-        end;
-      end; 
-      if ((COwner(4)=PMe)) then begin
-        UBufferSet(14,20);
-        UBufferSet(15,20);
-        UBufferSet(16,20);
-      end;
-      end;
-    end;
-
-    IF (kILLpLAYER>0) THEN BEGIN
-      CAnalysis(6,PT,PA,ET,EA);
-      if (COwner(6)=PMe) then begin
-        if TIsFront(39) then begin
-          TA:=12;
-          for A:=1 to 38 do begin
-            if ((not TIsMine(A)) and ((double(TArmies(A)) / 2) > double(TA))) then begin
-              TA:=TArmies(A) div 2;
-            end;
-          end; 
-          UBufferSet(39,TA);
-        end
-        else begin
-          TA:=12;
-          if (TPressure(31)>TA) then TA:=TPressure(31);
-          for A:=1 to 38 do begin
-            if ((not TIsMine(A)) and (double(TArmies(A)) / 2 > double(TA))) then begin
-              TA:=TArmies(A) div 2;
-            end;
-          end; 
-          UBufferSet(31,TA);
-        end;
-      end;
-    end;
-
-  CAnalysis(6,PT,PA,ET,EA);
-  if (PA>EA+5) then begin
-    if (TIsMine(40) and (TArmies(40)>3)) then begin
-      if (not (TIsMine(42))) then begin
-        FromTerritory:=40;
-        ToTerritory:=42;
-      end;
-      if (not (TIsMine(41))) then begin
-        FromTerritory:=40;
-        ToTerritory:=41;
-      end;
-    end;
-  end;
-
-  if (COwner(6)=PMe) then begin
-    CAnalysis(2,PT,PA,ET,EA);
-    if (PA>EA+5) then begin
-      if (TIsMine(12) and TIsMine(10) and (not (COwner(2)=PMe))) then begin
-        if (TArmies(12)>3) then begin
-          FromTerritory:=12;
-          if (not (TIsMine(13))) then ToTerritory:=13;
-          if (not (TIsMine(11))) then ToTerritory:=11;
-        end;
-        if (TArmies(10)>3) then begin
-          if (not (TIsMine(11))) then begin
-            FromTerritory:=10;
-            ToTerritory:=11;
-          end;
-        end;
-      end;
-    end;
-  end;
-  if (COwner(2)=PMe) then begin
-    if ((not TIsMine(9))
-    and (TArmies(10)>(TArmies(9)+8))
-    and (COwner(1)>0)) then begin
-      FromTerritory:=10;
-      ToTerritory:=9;
-    end;
-
-    if ((TIsMine(14)) and (COwner(3)>0) and (not (COwner(3)=PMe))) then begin
-      if (TArmies(25)<TArmies(26)) then begin
-        if (TArmies(14)>(TArmies(25)+5)) then begin
-          FromTerritory:=14;
-          ToTerritory:=25;
-        end;
-      end
-      else begin
-        if (TArmies(14)>(TArmies(26)+5)) then begin
-          FromTerritory:=14;
-          ToTerritory:=26;
-        end;
-      end;
-    end;
-    if ((TIsMine(15)) and (COwner(5)>0) and (not (COwner(5)=PMe))) then begin
-      if (TArmies(15)>(TArmies(27)+5)) then begin
-        FromTerritory:=15;
-        ToTerritory:=27;
-      end;
-    end;
-    if ((TIsMine(16)) and (COwner(5)>0) and (not (COwner(5)=PMe))) then begin
-      if (TArmies(16)>(TArmies(27)+5)) then begin
-        FromTerritory:=16;
-        ToTerritory:=27;
-      end;
-    end;
-  end;
-  if (COwner(6)=PMe) then begin
-    if ((not TIsMine(31))
-    and (TArmies(39)>(TArmies(31)+8))
-    and (COwner(5)>0)) then begin
-      FromTerritory:=39;
-      ToTerritory:=31;
-    end;
-  end;
-  
-  TA:=0;  //  bug fix by Nathan Scarbrough 6-9-10 #*#
-  if (FromTerritory=0) then begin
-    for T:=1 to 42 do begin
-      D:=1000;
-      if TIsMine(T) then begin
-        Y:=TBordersCount(T);
-        for Z:=1 to Y do begin
-          T2:=TBorder(T,Z);
-          if not(TIsMine(T2)) then begin
-            D2:=trunc(UBufferGet(T2));
-            if (D2<D) then begin 
-              D:=D2;
-              TA:=T2;
-            end;
-          end;
-        end;
-        if TIsBordering(T, TA) and (not TIsMine(TA)) then begin //  bug fix by Nathan Scarbrough 6-9-10 #*#
-          if (KillPlayer>0) then begin
-            if (((TArmies(T)-(25+D))>trunc(MaxTerritoryValue))
-            and (TArmies(T)>3)) then begin
-              MaxTerritoryValue:=TArmies(T)-(5+D);
-              FromTerritory:=T;
-              ToTerritory:=TA;
-            end;
-          end
-          else begin
-            if (((TArmies(T)-(15+trunc(ubufferget(T))+D))>trunc(MaxTerritoryValue*1.15))
-            and (TArmies(T)>3)) then begin
-              MaxTerritoryValue:=(double(TArmies(T)) - (15+ubufferget(T)+D))/1.15;
-              FromTerritory:=T;
-              ToTerritory:=TA;
-              if not SConquest then begin
-                if (((TArmies(T)-(15+D))>trunc(MaxTerritoryValue))
-                and (TArmies(T)>3)) then begin
-                  MaxTerritoryValue:=TArmies(T)-(15+D);
-                  FromTerritory:=T;
-                  ToTerritory:=TA;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-          
-  if (FromTerritory=0) then begin
-    MaxTerritoryValue:=0;
-    if not SConquest then begin  
-      for T:=1 to 42 do begin
-        if ((TIsFront(T)) and (trunc(ubufferget(T))=0)) then begin 
-          if (TArmies(T)>3) then begin
-            TerritoryValue:=0;
-            TerritoryArmies:=TArmies(T);
-            TWeakestFront(T,ET,EA);
-            if EA<3 then begin
-              TerritoryValue:=TerritoryValue+((3-EA)*200);
-              if (TerritoryArmies>100) then begin
-                TerritoryArmies:=100;
-              end;
-              TerritoryValue:=TerritoryValue+TerritoryArmies;
-            end;
-            Y:=TBordersCount(T);
-            for Z:=1 to Y do begin
-            TA:=TBorder(T,Z);
-            if ((not COwner(6)=PMe) and (COwner(6)=TOwner(TA)) and (TArmies(T)>(TArmies(TA)+10))) then begin
-              if ((COwner(6)=COwner(TContinent(TA)))
-                and (trunc(TerritoryValue) < 10000-TArmies(TA))) then begin
-                TerritoryValue:=10000-TArmies(TA);
-                FromTerritory:=T;
-                ToTerritory:=TA;
-              end;
-              if ((COwner(6)=COwner(TContinent(TA)))
-                and (TArmies(TA)*5<TArmies(T))
-                and (TerritoryValue < 1000 - TArmies(TA))) then begin
-                TerritoryValue:=1000-TArmies(TA);
-                FromTerritory:=T;
-                ToTerritory:=TA;
-              end;
-            end;
-            if (TerritoryValue>MaxTerritoryValue) then begin
-              MaxTerritoryValue:=TerritoryValue;
-              FromTerritory:=T;
-            end;
-            end;        
-          end;
-        end;
-      end;
-      if (FromTerritory>0) then begin
-        MaxTerritoryValue:=0;
-        TWeakestFront(FromTerritory,ET,EA);
-        Y:=TBordersCount(FromTerritory);
-        for Z:=1 to Y do begin
-          T2:=TBorder(FromTerritory,Z);
-          if ((TArmies(T2)=EA)and (not TIsMine(T2))) then begin
-            TWeakestFront(T2,ET2,EA2);
-            Y2:=TBordersCount(T2);
-            FA:=0;
-            FT:=0;
-            for Z2:=1 to Y2 do begin
-              if (not (TIsMine(TBorder(T2,Z2)))) then begin
-                FA:=FA+TArmies(TBorder(T2,Z2));
-                FT:=FT+1;
-              end;
-            end;
-            if (FT>0) then begin      // added a few zeroes to fix bug (NS) *#*
-              TerritoryValue:=10000000-(double(EA2)*4+(double(FA)/FT));
-            end
-            else begin 
-             TerritoryValue:=500;
-            end;
-            if (TerritoryValue>MaxTerritoryValue) then begin
-              MaxTerritoryValue:=TerritoryValue;
-              ToTerritory:=T2;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-end;
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-  KillPlayer: integer;
-
-begin
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  Armies:=0;
-  Armies:=(TArmies(FromTerritory)-1); 
-  UBufferSet(ToTerritory,0);
-
-
-  if (COwner(6)=PMe) then begin
-    if ((FromTerritory=39) and (ToTerritory=31)) then begin
-      UBufferSet(31,ubufferget(39));
-      UBufferSet(39,0);
-      if (ubufferget(31)<25) then UBufferSet(31,25);
-    end;
-  end;
-  if (COwner(6)=PMe) then begin
-  if (COwner(2)=PMe) then begin
-    if ((FromTerritory=12) and (ToTerritory=14)) then begin
-      UBufferSet(14,ubufferget(12));
-      UBufferSet(12,0);
-    end;
-  end;
-  if (COwner(2)=PMe) then begin
-    if ((FromTerritory=10) and (ToTerritory=9)) then begin
-      UBufferSet(9,ubufferget(10));
-      UBufferSet(10,0);
-    end;
-  end;
-  end;
-  Armies:=(TArmies(FromTerritory)-1)
-
-  if ToIsFront then begin
-    Armies:=(TArmies(FromTerritory)-(1+trunc(UBufferGet(FromTerritory))));
-    if (Armies<0) then Armies:=0;  
-  end;
-  if (ToTerritory=41) then begin
-    Armies:=0;
-  end;
-  if ((ToTerritory=40) and (FromTerritory=39)) then begin
-    Armies:=(TArmies(FromTerritory)-1);
-    if (Armies > (TArmies(42)+5)) then Armies := (TArmies(42)+5);
-    if (Armies < (TArmies(39) div 2)) then Armies:=(TArmies(39) div 2);
-  end;
-  if ((ToTerritory=42) and (FromTerritory=39)) then begin
-    Armies:=0;
-  end;
-  if (ToTerritory=39) then begin
-    Armies:=(TArmies(FromTerritory)-1);
-  end;
-
-
-  if ((FromTerritory=31) and (ToTerritory=39)) then begin
-    UBufferSet(39, ubufferget(39)-25);
-    UBufferSet(40, ubufferget(40)-25);
-    UBufferSet(41, ubufferget(41)-25);
-    UBufferSet(42, ubufferget(42)-25);
-  end;
-  if (COwner(6)=PMe) then begin
-  if (((FromTerritory=14) and (ToTerritory=12))
-   or ((FromTerritory=9) and (ToTerritory=10))) then begin
-    UBufferSet(10,ubufferget(10)-29);
-    UBufferSet(12,ubufferget(12)-29);
-    UBufferSet(13,ubufferget(13)-29);
-    UBufferSet(11,ubufferget(11)-29);
-  end;
-  
-  if ((FromTerritory=12) and (ToTerritory=13)) then begin
-    Armies:=0;
-  end;
-  if ((FromTerritory=12) and (ToTerritory=11)) then begin
-    Armies:=0;
-  end;
-  if ((FromTerritory=10) and (ToTerritory=11)) then begin
-    Armies:=0;
-  end;
-  if ((FromTerritory=12) and (ToTerritory=10)) then begin
-    Armies:=(TArmies(FromTerritory) div 2);
-  end;
-  if ((FromTerritory=10) and (ToTerritory=12)) then begin
-    Armies:=(TArmies(FromTerritory) div 2);
-  end;
-  if ((FromTerritory=12) and (ToTerritory=14)) then begin
-    Armies:=(TArmies(FromTerritory) - 20);
-    if (Armies<0) then Armies:=0;
-  end;
-  if ((FromTerritory=10) and (ToTerritory=9)) then begin
-    Armies:=(TArmies(FromTerritory) -20);
-    if (Armies<0) then Armies:=0;
-  end;
-  if (COwner(2)=PMe) then begin
-    if ((FromTerritory=12) and (ToTerritory=14)) then begin
-      Armies:=(TArmies(FromTerritory) - 1);
-      if (Armies<0) then Armies:=0;
-    end;
-    if ((FromTerritory=10) and (ToTerritory=9)) then begin
-      Armies:=(TArmies(FromTerritory) - 1);
-      if (Armies<0) then Armies:=0;
-    end;
-    if (FromTerritory=9) then begin
-      Armies:=(TArmies(FromTerritory) - 20);
-      if (Armies<0) then Armies:=0;
-    end;
-    if (FromTerritory=14) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if (Armies<0) then Armies:=0;
-    end;
-  end;   
-
-  if ((COwner(6)=PMe) and (COwner(2)=PMe)) then begin
-    if (FromTerritory=14) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if (Armies<0) then Armies:=0;
-    end;
-    if (FromTerritory=15) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if (Armies<0) then Armies:=0;
-    end;
-    if (FromTerritory=16) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if (Armies<0) then Armies:=0;
-    end;
-    if (FromTerritory=1) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if (Armies<0) then Armies:=0;
-    end;
-    if (FromTerritory=3) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if (Armies<0) then Armies:=0;
-    end;
-  end;
-  
-  if ((FromTerritory=14) and (ToTerritory=17)) then begin
-    Armies:=(TArmies(FromTerritory) div 2);
-  end;
-  if ((FromTerritory=20) and (ToTerritory=19)) then begin
-    Armies:=(TArmies(FromTerritory) div 2);
-  end;
-  if (COwner(4)=PMe) then begin
-    if ((FromTerritory=16) and (ToTerritory=15)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-    if ((FromTerritory=15) and (ToTerritory=16)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-    if ((FromTerritory=16) and (ToTerritory=14)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-    if ((FromTerritory=14) and (ToTerritory=16)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-    if ((FromTerritory=14) and (ToTerritory=15)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-    if ((FromTerritory=15) and (ToTerritory=14)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-  end;
-  if (COwner(3)=PMe) then begin
-    if ((FromTerritory=22)
-    or  (FromTerritory=26)
-    or  (FromTerritory=20)) then begin
-      Armies:=TArmies(FromTerritory)-20;
-      if Armies<0 then Armies:=0;
-    end;
-  end;
-  end;
-  if ((KillPlayer>0) and (not (FromTerritory=31))) then Armies:=(TArmies(FromTerritory)-1);
-If (Armies<0) then Armies:=0;
-
-
-end;
-
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  T,B,MaxArmy: integer;
-begin
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-  MaxArmy:=1;
-  if (COwner(6)=PMe)
-    then begin
-    if (TArmies(40)>1) then begin
-      Armies:=TArmies(40)-1;
-      FromTerritory:=40;
-      ToTerritory:=39;
-    end;
-    if (TArmies(42)>1) then begin
-      Armies:=TArmies(42)-1;
-      FromTerritory:=42;
-      ToTerritory:=39;
-    end;
-  end;
-  
-  if (FromTerritory=0) then begin
-    for T:=1 to 42 do begin
-      if ((TIsMine(T)) 
-      and (trunc(ubufferget(T))=0) 
-      and (not TIsFront(T))) then begin  
-        if TArmies(T)>MaxArmy then begin
-          MaxArmy := TArmies(T);
-          FromTerritory := T;
-        end;
-      end; 
-    end;
-    
-    if FromTerritory>0 then begin
-      for B:=1 to TBordersCount(FromTerritory) do begin
-        if ToTerritory=0 then begin
-          T:=TBorder(FromTerritory,B);
-          if TIsMine(T) and TIsFront(T) then begin
-            ToTerritory:=T;
-          end;
-        end;
-      end;
-      if ToTerritory=0 then begin
-        for B:=1 to TBordersCount(FromTerritory) do begin
-          if ToTerritory=0 then begin
-            T:=TBorder(FromTerritory,B);
-            if TIsMine(T) then begin
-              ToTerritory:=T;
-            end;
-          end;
-        end;
-      end;
-      if ToTerritory>0 then begin
-        Armies:=TArmies(FromTerritory)-1;
-      end;
-    end;
-  end;
-end;
-
-begin
-end.
\ No newline at end of file
diff --git a/Players/australian09.trp b/Players/australian09.trp
deleted file mode 100644
index 5b98731..0000000
--- a/Players/australian09.trp
+++ /dev/null
@@ -1,3402 +0,0 @@
-{
-Program: Australian09 v0.2
-Author: Anthony Covey-Crump (coveycrump@yahoo.com)
-Description: This was a complete re-write in 2009-10, and does not play the same strategy as australian or australian+, although it does start off similar.
-It is designed to play in games with lots of players, and cards trade based on combination.
-
-Thanks to Nathan Scarbrough for advice on various issues.
-}
-
-var
-  B,MaxArmy,MaximumValue,Value: integer;
-  LAValue,LAValue2,TF:Integer;
-  EnemyT,EnemyA,X3: integer;
-  
-  T,X,Y,T2,D,D2,Z,TA,FT,FA,KP1,KP2,KP1A,KP2A,KillPlayer,C,TTo,TFrom,X2,C2,Y2,V,Z2,PMax : integer;
-  Ratio,MaxRatio,Score: double;
-  MaxTerritoryValue,TerritoryValue,TerritoryTo,TerritoryFrom: integer;
-  Fronts,TerritoryArmies: integer;
-  PT,PA,ET,EA,ET2,EA2:integer;
-  TotalArmies,PlayerArmies,P,A:Integer;
-  Test:Boolean;
-  ProX,ProT,ProY,ProTA,ProV,ProZ,ProT2:Integer;
-  CAX,CAC,CAZ:Integer;
-  CNT,CNT2,CNM,CNX,CNY:Integer;
-  CVAZ,CVAY,CVAT,CVAValue,CVAY2,CVAT2,CVAN,CVC,CVAN2,CVATA,CVATF:Integer;
-  CVALP,CValX,CValY,CVAI,CVAI2,CVAA,CVAB,CVAY3,CVAT3,CVAB2,CVANewArmies:Integer;
-  CVAFreeArmies,CVAMaxFreeArmy,CVAValue2:Integer;
-  SOBTX,SOBTT,Routine:Integer;
-  DEValue,DEVal2,DEX,DEY,DEZ,DET3:Integer;
-  CVAPoints,CVAPointValue:double;
-  ValInd:Integer;
-  NValue,NT,NT2,NF,NF1,NX,NY,NZ,NF2:Integer;
-
-  FromIsFront, ToIsFront: boolean;
-  Calc:integer;
-  ABT,ABTI,ABTC,ABTN:Integer;
-  T40,T41,T42:Integer;
-  MyArmiesMap: Array of Integer;
-  AttackArmies: Array of Integer;
-  MineArmies: Array of Boolean;
-  KP2009,killreason: Integer;
-  ValIndex, ValProtection: array of Integer;
-  MyAttackC,PlayersCount,ThreatPlayer:integer;
-  MyStartC: Array of Integer;
-  MyConnected: Array of Integer;
-  DistanceToAttackFront: Array of Integer;
-  SpreadLevel: Integer;
-  StartTurnPlayerScore: Array of Integer;
-  StartTurnPlayerCScore: Array of Integer;
-  StartTurnPlayerScoreOrdered: Array of Integer;
-  StartTurnCOwner: Array of Integer;
-  mrbigarmies,mrsecondarmies,mrbig,Turn:integer;
-  aalive,dalive,ealive,lastturnfrom,lastturnto:integer;
-  AverageEnemyArmies,EnemiesAlive:integer;
-  DomAccumulate, DomAttack:boolean;
-
-{_________________________ m/l/UBuffer ______________________________}
-
-procedure m(s: string);  // shortens m to m
-begin
-  //Umessage(s); // comment off this line to disable all ms
-  //if PTerritoriesCount(Pme) = 41 then l('Armies: ' + i(PArmiesCount(Pme)));
-end;
-
-procedure l(s: string);  // shortens l to l
-begin
-  //Ulog(s);  // comment off this line to disable all ls
-  //if PTerritoriesCount(Pme) = 41 then l('Armies: ' + i(PArmiesCount(Pme)));
-end;
-
-function i(x: integer): string;  // shortens i to i
-begin result:= inttostr(x); end;
-
-procedure sn(s: string);  // shortens l to l
-begin
-  //Utakesnapshot(s + ' Player ' + PProgram(PMe) + ' Turn ' + i(turn));  // comment off this line to disable all ls
-  //if PTerritoriesCount(Pme) = 41 then l('Armies: ' + i(PArmiesCount(Pme)));
-end;
-
-function f(x: double): string;  // shortens floattostr to f
-begin result:= floattostr(x); end;
-
-// example m('ToTerritory: ' + i(ToTerritory) + ' FromTerritory: ' + i(FromTerritory));
-
-function bg(x: integer): integer;
-begin result:= trunc(UBufferGet(x)); end;
-                                              // use these for integer storage
-procedure bs(x, y: integer);
-begin UBufferSet(x, y); end;
-{______________________________________________________________________________}
-  FUNCTION ContinentValuation (CVC : integer):integer;
-    BEGIN
-        CAnalysis(CVC,PT,PA,ET,EA);
-        if (CVC=1) then begin
-          CValX:=30;
-          if dalive=1 then CValx:=CValx+1000;
-        end;
-        if (CVC=2) then begin
-          CValX:=20;
-          if dalive=1 then CValx:=CValx+1000;
-        end;
-        if (CVC=3) then begin
-          CValX:=40;
-        end;
-        if (CVC=4) then begin
-          CValX:=30;
-          if dalive=1 then CValx:=CValx+1000;
-        end;
-        if (CVC=5) then begin
-          CValX:=50;
-          if aalive=1 then CValx:=CValx+1000;
-        end;
-        if (CVC=6) then begin
-          if (PA=0) then begin
-            CValX:=40;
-          end else
-          begin
-            CValX:=10;
-          end;
-          if aalive=1 then CValx:=CValx+1000;
-        end;
-        for CNT:=1 to 42 do begin
-          CNM :=0;
-          if (not TIsMine(CNT)) then begin
-            CNX:=TBordersCount(CNT);
-            for CNY :=1 to CNX do begin
-              CNT2:= TBorder(CNT,CNY);
-              if (TContinent(CNT2)=CVC) then CNM :=1;
-            end;
-            if (CNM =1 ) then CValX :=CValX + TArmies(CNT);
-          end;
-        end;
-                
-        CValY:=CValX+3;
-        if (CValY < 1) then begin
-          CValY := 1;
-        end;
-        result:=CValY;
-    end;//ContinentValuation
-
-function LoneTerritoryValue(Territory:integer): double;
-var
-  WE,T,X,MinD,res:integer;
-begin
-  res:=1000;
-  MinD:=10000;
-  If (TContinent(Territory)=2) or (TContinent(Territory)=6) then begin
-    res:=res-500;
-  end;
-  WE:=0;
-  for X:=1 to TBordersCount(Territory) do begin
-    T:=TBorder(Territory,X);
-    if (not TIsMine(T)) then begin
-      if TArmies(T)> WE then WE:=TArmies(T);
-    end;
-    if (not (TIsMine(T))) and (TArmies(T)=1) then begin
-      if (TContinent(T)<>2) and (TContinent(T)<>6) then begin
-        res:=res+100;
-      end;
-    end;
-    if (not (TIsMine(T))) and (TArmies(T)=2) then begin
-      if (TContinent(T)<>2) and (TContinent(T)<>6) then begin
-        res:=res+30;
-      end;
-    end;
-    if (not (TIsMine(T))) and (TArmies(T)=3) then begin
-      if (TContinent(T)<>2) and (TContinent(T)<>6) then begin
-        res:=res+10;
-      end;
-    end;
-    if (TContinent(T)=2) or (TContinent(T)=6) then begin
-      res:=res-500;
-    end;
-    if ( pos('frank', lowercase(PProgram(TOwner(T)))) > 0 ) then begin
-      if ( pos('australian', lowercase(PProgram(PMe))) > 0 ) then begin
-        if (PArmiesCount(TOwner(T))<mrsecondarmies) or (PArmiesCount(PMe)<mrsecondarmies) then begin
-          res:=res-(TArmies(T)*100);
-        end;
-      end;
-    end;
-  end;
-  if (WE > 0) and (WE<100) then res:=res+100-WE;
-  result:=double(res);
-  if not SCardsBasedOnCombo then begin
-    MinD:=10000;
-    result:=-100;
-    for X:=1 to TFrontsCount(Territory) do begin
-      T2:=TFront(Territory,X);
-      if TArmies(T2) < Mind then begin
-        result:=100-TArmies(T2);
-        Mind:=TArmies(T2);
-      end;
-    end;
-  end;
-
-end;
-
-
-function minnowWhere(var FromTerritory, ToTerritory: integer): boolean;
-var
-  T,X,C,Y,T2,D,D2,Z: integer;
-  E14,E9,MaxTerritoryValue: integer;
-  PT,PA,ET,EA:integer;
-  P:Integer;
-  loopcontrol:boolean;
-  nicestart: array of integer;
-begin
-  SetArrayLength(nicestart,43);
-  for T:=1 to 42 do begin
-    ValIndex[T]:=1000000;
-  end;
-  if ( pos('endeavour', lowercase(PProgram(PMe))) > 0 ) then begin
-    for C:=1 to 6 do begin
-      Y:=CTerritoriesCount(C);
-      X:=trunc(ContinentValuation(C)*1.1);
-//      l('CFCFC ' + i(C) + ' ' + i(X));
-      for Z:=1 to Y do begin
-        T:=CTerritory(C,Z);
-        ValIndex[T]:=X;
-      end;
-    end;
-  end;
-  if ( pos('australian', lowercase(PProgram(PMe))) > 0 ) then begin
-    CAnalysis(6,PT,PA,ET,EA);
-    if (PA<5) then begin
-      if COwner(6) > 0 then begin
-//        if COwner(6) = COwner(5) then begin
-//          ValIndex[39]:=EA-200;
-//        end else begin
-          MaxTerritoryValue:=10;
-          P:=COwner(6);
-          if ( pos('frank', lowercase(PProgram(P))) > 0 ) or ( pos('zotob', lowercase(PProgram(P))) > 0 ) or PHuman(P) then begin
-            for T:=27 to 38 do begin
-              if (T <> 31) then begin
-                Y:=TOwner(T);
-                if ( pos('frank', lowercase(PProgram(Y))) > 0 ) or ( pos('zotob', lowercase(PProgram(Y))) > 0 ) or PHuman(Y) then begin
-                  if TArmies(T) > MaxTerritoryValue then begin
-                    MaxTerritoryValue:=TArmies(T);
-                  end;
-                end;
-              end;
-            end;
-          end;
-          ValIndex[39]:=EA+MaxTerritoryValue;
-      //  end;
-      end else begin
-        ValIndex[39]:=EA+100;
-      end;
-    end else begin
-      for T:=39 to 42 do begin
-        ValIndex[T]:=TArmies(T);
-        if (not TIsMine(T)) then begin
-          for X:=1 to TBordersCount(T) do begin
-            T2:=TBorder(T,X);
-            if (TISMine(T2)) and (TArmies(T2)>3) then begin
-              FromTerritory:=T2;
-              ToTerritory:=T;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  if ( pos('descartes', lowercase(PProgram(PMe))) > 0 ) then begin
-    CAnalysis(2,PT,PA,ET,EA);
-    if not (TISMine(9)) then begin
-      E9:=TArmies(9);
-    end else begin
-      E9:=0;
-    end;
-    if not (TIsMine(14)) then begin
-      E14:=TArmies(14);
-    end else begin
-      E14:=0;
-    end;
-    if (PA<5) then begin
-      if StartTurnCOwner[2] > 0 then begin
-        P:=StartTurnCOwner[2];
-        if ((StartTurnCOwner[2]=StartTurnCOwner[1]) or (StartTurnCOwner[2]=StartTurnCOwner[4]) or ( pos('zotob', lowercase(PProgram(P))) > 0 ) or PHuman(P)) then begin
-          ValIndex[10]:=40+EA+E9+E14;
-          ValIndex[12]:=40+EA+E9+E14;
-          ValIndex[9]:=40+EA+E9+E14;
-          ValIndex[14]:=40+EA+E9+E14;
-        end else begin
-          ValIndex[10]:=60+EA+E9+E14;
-          ValIndex[12]:=60+EA+E9+E14;
-          ValIndex[9]:=60+EA+E9+E14;
-          ValIndex[14]:=60+EA+E9+E14;
-        end;
-      end else begin
-        ValIndex[10]:=100+EA+E9+E14;
-        ValIndex[12]:=100+EA+E9+E14;
-        ValIndex[9]:=100+EA+E9+E14;
-        ValIndex[14]:=100+EA+E9+E14;
-      end;
-//      l('DESC V14 ' + i(ValIndex[14]) + ' V9 ' + i(ValIndex[9]));
-    end else begin
-      if not (TIsMine(10)) then begin
-        ValIndex[10]:=EA;
-      end;
-      if not (TIsMine(11)) then begin
-        ValIndex[11]:=EA-1;
-      end;
-      if not (TIsMine(12)) then begin
-        ValIndex[12]:=EA;
-      end;
-      if not (TIsMine(13)) then begin
-        ValIndex[13]:=EA-2;
-      end;
-    end;          
-  end;
-  if (trunc(UBufferGet(99)) = 99) then begin
-    for T:=1 to 42 do begin
-      if TContinent(T) = 1 then nicestart[T]:=3;
-      if TContinent(T) = 2 then nicestart[T]:=1;
-      if TContinent(T) = 3 then nicestart[T]:=5;
-      if TContinent(T) = 4 then nicestart[T]:=2;
-      if TContinent(T) = 5 then nicestart[T]:=4;
-      if TContinent(T) = 6 then nicestart[T]:=0;
-    end;
-    for C:=1 to 6 do begin
-      for X:=1 to CEntriesCount(C) do begin
-        nicestart[Centry(C,X)]:=nicestart[CEntry(C,X)]-2;
-      end;
-    end;
-    X:=-10000;
-    for T:=1 to 42 do begin
-      if (TIsMine(T)) and (nicestart[T]> X) then begin
-        X:=nicestart[T];
-        FromTerritory:=T;
-      end;
-    end;
-//    l('nice start rec ' + i(FromTerritory) + ' score ' + i(X));
-  end;      
-  if (FromTerritory=0) then begin
-    MaxTerritoryValue:=-100000;
-    loopcontrol:=true;
-    while loopcontrol do begin
-      loopcontrol:=false;
-      for T:=1 to 42 do begin
-        for X:=1 to TBordersCount(T) do begin
-          T2:=TBorder(T,X);
-          if TIsMine(T) then begin
-            Z:=ValIndex[T2]+1;
-          end else begin
-            Z:=ValIndex[T2]+TArmies(T)+1;
-          end;
-          if ValIndex[T] > Z then begin
-            ValIndex[T]:=Z;
-            loopcontrol:=true;
-          end;
-        end;
-      end;
-    end;
-    if routine=1 then begin
-      D:=-1000000;
-    end else begin
-      D:=0;
-    end;
-    for T:=1 to 42 do begin
-      if TIsMine(T) then begin
-        Y:=TBordersCount(T);
-        for Z:=1 to Y do begin  
-          T2:=TBorder(T,Z);
-//          if (not TIsMine(T2)) then begin
-            D2:=TArmies(T)-ValIndex[T2];
-            if TArmies(T)=1 then begin
-              D2:=D2-1000;
-            end;
-            if (D2>D) then begin
-              D:=D2;
-              FromTerritory:=T;
-              if (D>0) then begin
-                ToTerritory:=T2;
-              end;
-            end;
-//          end;
-        end;
-      end;
-    end;
-    if (not ((lastturnfrom=FromTerritory) and (lastturnto=99))) then begin 
-//      l('XXXTF ' + i(FromTerritory) + ' TA ' + i(ToTerritory) + ' A ' + i(TArmies(FromTerritory))+ ' VI ' + i(ValIndex[ToTerritory])+' D ' + i(D));
-    end;
-  end;
-end;
-
-procedure conquestAttack(var FromTerritory, ToTerritory: integer);
-var
-  T,T2,X,Y:integer;
-  Value:double;
-begin
-  if (not SConquest) and (ToTerritory=0) then begin
-    Value:=-100000;
-    for T:=1 to 42 do begin
-      if (TIsMine(T)) and (TArmies(T) > 1) then begin
-        for X:=1 to TFrontsCount(T) do begin
-          T2:=TFront(T,X);
-          if (TArmies(T2)=1) and (LoneTerritoryValue(T2)>Value) then begin
-            FromTerritory:=T;
-            ToTerritory:=T2;
-            Value:=LoneTerritoryValue(T2);
-          end;
-        end;
-      end;
-    end;
-    if (ToTerritory=0) and ((PArmiesCount(PMe)>AverageEnemyArmies) or (PArmiesCount(PMe) > 50)) then begin
-      for T:=1 to 42 do begin
-        if (TIsMine(T)) and (TArmies(T) > 1) then begin
-          for X:=1 to TFrontsCount(T) do begin
-            T2:=TFront(T,X);
-            if (TArmies(T2)=2) and (LoneTerritoryValue(T2)>Value) then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              Value:=LoneTerritoryValue(T2);
-            end;
-          end;
-        end;
-      end;
-    end;
-    if (ToTerritory=0) and ((PArmiesCount(PMe)>AverageEnemyArmies) or (PArmiesCount(PMe) > 75)) then begin
-      for T:=1 to 42 do begin
-        if (TIsMine(T)) and (TArmies(T) > 1) then begin
-          for X:=1 to TFrontsCount(T) do begin
-            T2:=TFront(T,X);
-            if (TArmies(T2)=3) and (LoneTerritoryValue(T2)>Value) then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              Value:=LoneTerritoryValue(T2);
-            end;
-          end;
-        end;
-      end;
-    end;
-    if (ToTerritory=0) and ((PArmiesCount(PMe)>AverageEnemyArmies) and (PArmiesCount(PMe) > 75)) then begin
-      for T:=1 to 42 do begin
-        if (TIsMine(T)) and (TArmies(T) > 1) then begin
-          for X:=1 to TFrontsCount(T) do begin
-            T2:=TFront(T,X);
-            if (TArmies(T2)=4) and (LoneTerritoryValue(T2)>Value) then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              Value:=LoneTerritoryValue(T2);
-            end;
-          end;
-        end;
-      end;
-    end;
-    if (ToTerritory=0) and ((PArmiesCount(PMe)>AverageEnemyArmies) and (PArmiesCount(PMe) > 125)) then begin
-      for T:=1 to 42 do begin
-        if (TIsMine(T)) and (TArmies(T) > 1) then begin
-          for X:=1 to TFrontsCount(T) do begin
-            T2:=TFront(T,X);
-            if (TArmies(T2)=5) and (LoneTerritoryValue(T2)>Value) then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              Value:=LoneTerritoryValue(T2);
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-    l('Cards attack from ' + i(FromTerritory) + ' to ' + i(ToTerritory) + ' armies to kill ' + i(TArmies(ToTerritory)) + ' val ' + f(Value)); 
-  end;
-end;
-
-
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-
-
-  FUNCTION Protection (ProT, ProY, ProTA : integer):integer;
-    BEGIN
-      IF (ProY=0) THEN BEGIN
-        ProX:=TBordersCount(ProT);
-        ProV:=0;
-        for ProZ:=1 to ProX do begin
-          ProT2:=TBorder(ProT,ProZ);
-          if (not (TIsMine(ProT2)) AND (ProT2 <> ProTA)) then begin
-            if (TArmies(ProT2)>ProV) then begin
-              ProV:=TArmies(ProT2);
-            end;
-          end;
-        end;
-      END;
-      if ((ProV>0) and (ProV<100)) then begin
-        ProV:=ProV+10;
-      end;
-      result:=ProV;
-    end;//protection
-
-  FUNCTION SumOfBorders(SOBT1,SOBT2:Integer):Integer;
-    begin
-      SOBTX:=0;
-      for SOBTT:=1 To 42 do begin
-        if ((not (TOwner(SOBTT) = PMe))
-            and (not (SOBTT=SOBT1))
-            and (not (SOBTT=SOBT2))) then begin
-          if (TIsBordering(SOBT1,SOBTT) OR TIsBordering(SOBT2,SOBTT)) then begin
-            SOBTX := SOBTX + TArmies(SOBTT);
-          end;
-        end;
-      end;
-      result:=SOBTX;
-    end;
-
-  FUNCTION ContinentValueAttack(CVAX2:Integer):Integer;
-    begin//
-      TerritoryTo:=0;
-      TerritoryFrom:=0;
-//      l('AAA');
-      CVAZ:=CTerritoriesCount(CAX);
-      // defence first
-      if (routine = 1) then begin
-        for CVAY:=1 to CVAZ do begin
-          CVAT:=CTerritory(CAX,CVAY);
-          if (TOwner(CVAT) = PMe) then begin
-            CVAN:=Protection(CVAT,0,0);
-            if (TArmies(CVAT)<CVAN) then begin
-              TerritoryFrom:=CVAT;
-              TerritoryTo:=0;
-              ValInd:=10;
-            end;
-          end;
-        end;
-      end;
-
-      //else attack
-      if (TerritoryFrom = 0) then begin
-        CVAValue:= -10000;
-        CVAPointValue:=-10000.2;
-        CVATA:=0;
-        // choose territory to attack
-        for CVAY2:=1 to CVAZ do begin
-          CVAT2:=CTerritory(CAX,CVAY2);
-          if (not (TOwner(CVAT2)=PMe)) then begin
-            // is it bordering us
-            CVAN:=0;
-            for CVAY:=1 to CVAZ do begin
-              CVAT:=CTerritory(CAX,CVAY);
-              if ((TOwner(CVAT)=PMe) AND (TIsBordering(CVAT,CVAT2))) then begin
-                CVAN:=1;
-              end;
-            end;
-            if (CVAN=1) then begin
-              // calculate new armies, not currently bordering us
-              CVANewArmies:=0;
-              CVAB:=TBordersCount(CVAT2);
-              for CVAY3:=1 to CVAB do begin
-                CVAI:=0;
-                CVAI2:=0;
-                CVAT3:=TBorder(CVAT2,CVAY3);
-                if (not (TISMine(CVAT3))) then begin
-                  CVAB2:=TBordersCount(CVAT3);
-                  for CVAY:=1 to CVAB2 do begin
-                    CVAT:=TBorder(CVAT3,CVAY);
-                    if ((TContinent(CVAT) = CAX) AND
-                        (TISMine(CVAT))) then begin
-                      CVAI:=1;
-                    end;
-                  end;
-                  if (CVAI=0) then begin
-                    CVANewArmies:=CVANewArmies+TArmies(CVAT3);
-                  end;
-                end;
-              end;
-              CVAMaxFreeArmy:=0;
-              CVAFreeArmies:=0;
-              for CVAY:=1 to CVAZ do begin
-                CVAT:= CTerritory(CAX,CVAY);
-                if (TIsBordering(CVAT,CVAT2) AND TISMine(CVAT)) then begin
-                  CVAI:=Protection(CVAT,0,CVAT2);
-                  CVAFreeArmies:=CVAFreeArmies+(TArmies(CVAT)-CVAI);
-                  if (TArmies(CVAT)-CVAI > CVAMaxFreeArmy) then begin
-                    CVAMaxFreeArmy:=TArmies(CVAT)-CVAI;
-                  end;
-                end;
-              end;
-              CVAPoints:= CVAFreeArmies-CVANewArmies-(TArmies(CVAT2)*1.01);
-//              //umessage('Points ',CVAPoints,' ',CVAPointValue);
-              CVAN2:=CVAMaxFreeArmy-TArmies(CVAT2);
-              if (CVAN2 < (CVAFreeArmies-TArmies(CVAT2))) then begin
-                CVAN2:=CVAFreeArmies-TArmies(CVAT2);
-              end;
-              TStrongestFront(CVAT2,ET,EA);
-              if (CVAPoints> CVAPointValue) then begin 
-//   //umessage('Pick Terr ',CVAT2,' ',CVAN2,' ',EA,' ',CVAFreeArmies,' ',TArmies(CVAT2)*0.99,' ',CVAPoints);
-                CVAValue:=CVAN2-EA;
-                CVATA:=CVAT2;
-                CVAPointValue:=CVAPoints;
-//                CVANewArmies2:=CVANewArmies;
-              end;
-            end;
-          end;
-        end;
-        TStrongestFront(CVATA,ET,EA);
-        //choose whether to attack and Territory From    
-        if (CVAValue < 0) then begin
-          CVAValue2:= -10000;
-          for CVAY:=1 TO CVAZ do begin
-            CVAT:=CTerritory(CAX,CVAY);
-            if (TIsBordering(CVAT,CVATA) AND TISMine(CVAT) AND (TArmies(CVAT)>TArmies(CVATA))) then begin
-              CVAI:=Protection(CVAT,0,CVATA);
-              if (TArmies(CVAT)-CVAI>CVAValue2) then begin
-                TerritoryFrom:=CVAT;
-                CVAValue2:=TArmies(CVAT)-CVAI;
-//              //umessage('Attack 0 ',TerritoryFrom,' ',TerritoryTo);
-                ValInd:=11;
-              end;
-            end;
-          end;
-        end else begin
-//          l('Cont A point a ' + i(CVATA) + ' ' + i(CVAValue) + ' ' + i(EA));     
-//          //umessage('Territories of place we are attacking ',TArmies(CVATA));
-          if ((TArmies(CVATA) < 3) or (routine=1)) then begin
-//            l('zzz ' + i(CVATA) + ' ' + i(CVAValue) + ' ' + i(EA) + ' ' + i(TArmies(CVATA)));     
-            CVAValue2:= -10000;
-            for CVAY:= 1 TO CVAZ do begin
-              CVAT:=CTerritory(CAX,CVAY);
-              if (TIsBordering(CVAT,CVATA) AND TIsMine(CVAT)) then begin
-//                l('yzz ' + i(CVAT));     
-                CVAI:=Protection(CVAT,0,CVATA);
-//                //umessage('Final Kill attack',CVAT,' ',CVAI,' ',CVAValue2);
-//                l('CVAT ' + i(CVAT) + ' CVAI ' + i(CVAI) + ' CVAValue2 ' + i(CVAVALUe2) + ' Arms ' + i(TArmies(CVAT)) + ' TA ' + i(TArmies(CVATA)+10));     
-                if ((TArmies(CVAT)-CVAI>CVAValue2) AND ((TArmies(CVAT)-CVAI>(TArmies(CVATA)+10)) OR (Routine = 1))) then begin
-                  TerritoryFrom:=CVAT;
-                  TerritoryTo:=CVATA;
-                  ValInd:=12;
-//              //umessage('Attack 1 ',TerritoryFrom,' ',TerritoryTo);
-                  CVAValue2:=TArmies(CVAT)-CVAI;
-                end;
-                if ((CVAI=0) AND (TArmies(CVAT)>(TArmies(CVATA)+10))
-                    AND (TArmies(CVAT)+10000>CVAValue2)) then begin
-                  CVAValue2:=TArmies(CVAT)+10000;
-                  TerritoryFrom:=CVAT;
-                  TerritoryTo:=CVATA;
-                  ValInd:=13;
-//              //umessage('Attack 2 ',TerritoryFrom,' ',TerritoryTo);
-                end;
-              end;
-            end;
-          end else begin
-//            //umessage('Preparatory attack');
-            CVAValue2:=-10000;
-            for CVAY:=1 TO CVAZ do begin
-              CVAT:=CTerritory(CAX,CVAY);
-              if (TIsBordering(CVAT,CVATA) AND TIsMine(CVAT)) then begin
-                CVAI:=Protection(CVAT,0,CVATA);
-                if ((TArmies(CVAT)-CVAI>CVAValue2) AND (((TArmies(CVAT)-CVAI)>TArmies(CVATA)))) then begin
-                  TerritoryFrom:=CVAT;
-                  TerritoryTo:=CVATA;
-                  ValInd:=14;
-                  CVAValue2:=TArmies(CVAT)-CVAI;
-//              //umessage('Attack 3 ',TerritoryFrom,' ',TerritoryTo);
-                end;
-                if ((CVAI=0) AND (TArmies(CVAT)>(TArmies(CVATA)))
-                    AND (TArmies(CVAT)+10000>CVAValue2)) then begin
-                  CVAValue2:=TArmies(CVAT)+10000;
-                  TerritoryFrom:=CVAT;
-                  CVAT3:=CVAT;
-                  TerritoryTo:=CVATA;
-                  ValInd:=15;
-//              //umessage('Attack 4 ',TerritoryFrom,' ',TerritoryTo);
-                end;
-              end;
-            end;
-            CVAValue2:=-10000;
-            for CVAY:=1 TO CVAZ do begin
-              CVAT:=CTerritory(CAX,CVAY);
-              if (TIsBordering(CVAT,CVATA) AND TISMine(CVAT) AND (TArmies(CVAT)>1)
-                 AND (CVAT<>CVAT3)) then begin
-                CVAI:=Protection(CVAT,0,CVATA);
-                if (CVAI=0) then CVAI2:=100000-CVAI+TArmies(CVAT);
-                if (CVAI>0) then CVAI2:=10000-CVAI+TArmies(CVAT);
-                if ((CVAI2>CVAValue2) AND (TArmies(CVAT)>CVAI)) then begin
-                  TerritoryFrom:=CVAT;
-                  TerritoryTo:=CVATA;
-                  CVAValue2:=CVAI2;
-//              //umessage('Attack 5 ',TerritoryFrom,' ',TerritoryTo);
-                  ValInd:=16;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;//ContinentValueAttack
-
-  FUNCTION LesseningAttack(DEParam:Integer):Integer;
-    BEGIN
-      TerritoryTo:=0;
-      TerritoryFrom:=0;
-      for T:=1 to 42 do begin
-	X:=0;
-        X2:=0;
-        LAValue:=0;
-        if (not (TISMine(T))) then begin
-          Y:=TBordersCount(T);
-          for Z:=1 to Y do begin
-            T2:=TBorder(T,Z);
-            if (TIsMine(T2)) then begin
-              if ((TArmies(T2)>100) and (TArmies(T2) <(TArmies(T)+10))) then begin
-                Y2:=TBordersCount(T2);
-                X3:=0;
-                LAValue2:=0;
-                for Z2:=1 to Y2 do begin
-                  TA:=TBorder(T2,Z2);
-                  if ((not (TA=T)) and (not TIsMine(TA))) then begin
-                    if (TArmies(TA)>LAValue2) then begin
-                      LaValue2:=TArmies(TA);
-                    end;
-                  end;
-                end;
-                if (TArmies(T2)>LAValue2) then begin
-                  X:=X+1;
-                  X2:=X2+TArmies(T2)-LAValue2;
-                end;
-              end;
-            end;
-          end;
-          if ((X>1) and ((X2-TArmies(T))>LAValue)) then begin
-            LAValue:=X2-TArmies(T);
-            TerritoryTo:=T;
-          end;
-        end;
-      end;
-      if (TerritoryTo>0) then begin
-        l('Lessening Attack ' + i(TerritoryTo)); 
-        T:=TerritoryTo;
-        Y:=TBordersCount(T);
-        LAValue:=0;
-        for Z:=1 to Y do begin
-          T2:=TBorder(T,Z);
-          if (TIsMine(T2)) then begin
-            if ((TArmies(T2)>100) and (TArmies(T2) <TArmies(T)+10)) then begin
-              if (TFrontsCount(T)>1) then begin
-                Y2:=TBordersCount(T2);
-                for Z2:=1 to Y2 do begin
-                  TA:=TBorder(T2,Z2);
-                  if ((not (TA=T)) and (not TIsMine(T))) then begin
-                    if (TArmies(T2)>(TArmies(TA)+10)+LAValue) then begin
-                      LAValue:=TArmies(T2)-TArmies(TA)-10;
-                      TerritoryFrom:=T2;
-                    end;
-                  end;
-                end;
-              end else
-              begin
-                if (TArmies(T2)>LAValue) then begin
-                  LAValue := TArmies(T2) - 10;
-                  TerritoryFrom:=T2;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    END;//Lessening Attacking
-
-
-  FUNCTION ContinentAttacking(CAValue:Integer):Integer;
-    begin
-      CAX:=0;
-      for CAC:=1 to 6 do begin
-        CAnalysis(CAC,PT,PA,ET,EA);
-        if (PA>0) then begin
-          if (EA>0) then begin
-            X:=ContinentValuation(CAC);
-//            l('C ' + i(CAC) + ' X ' + i(X) + ' PA ' + i(PA) + ' CAValue ' + i(CAValue));
-            if ((double(PA)/X)>CAValue) then begin
-//              l('D ' + i(CAC) + ' X ' + i(X) + ' PA ' + i(PA) + ' CAValue ' + i(CAValue));
-              CAX:=CAC;
-              CAValue:=trunc((double(PA-EA))/X);
-            end;
-          end;
-        end;
-      end;
-      if (CAX>0) then begin
-        CAZ:=ContinentValueAttack(1);//
-      end;
-    end;//ContinentAttacking  
-
-  FUNCTION DesirabilityAttacking(DEParam:Integer):Integer;
-    BEGIN
-      TerritoryTo:=0;
-      TerritoryFrom:=0;
-      if (routine=1) then begin
-        DEValue:= -10000;
-      end;
-      if (routine=2) then begin
-        DEValue:= 0;
-      end;
-      for T:=1 to 42 do begin
-        if (TISMine(T) AND (TArmies(T)>1)) then begin
-          X:=TBordersCount(T);
-          for Y:=1 to X do begin
-            T2:=TBorder(T,Y);
-            if (not TISMine(T2)) then begin
-              X2:=0;
-              if (T<40) then begin
-                X2:=valindex[T];
-              end;
-              if (X2>0) then begin
-                X2:=Protection(T,0,T2);
-                if (X2=0) then X2:=10;
-              end;
-              if (TArmies(T)-X2-valindex[T2]>DEValue) then begin
-// don't desire attack when should be continent attacking.
-                DEVal2:=1;
-                if ((TContinent(T) = TContinent(T2)) and (routine=2)) then begin
-                  DEVal2:=0;
-                  DEX:=valindex[T2];
-                  DEY:=TBordersCount(T2);
-                  for DEZ:=1 to DEY do begin
-                    DET3:=TBorder(T2,DEZ);
-                    if (valindex[DET3]<DEX) AND (not (TOwner(DET3)=PMe)) then begin
-                      DEVal2:=1;
-                    end;
-                  end;
-                end;
-                if (DEVal2=1) then begin
-                  TerritoryFrom:=T;
-                  TerritoryTo:=T2;
-                  DEValue:=TArmies(T)-X2-valindex[T2];
-//                  l('Desire Attack ' + i(TArmies(T)) + ' ' + i(X2)  + ' ' + i(T2)  + ' ' + i(valindex[T2]) + ' ');
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;//desirability attacking
-
-  FUNCTION TerritoryValues (nothing: boolean):boolean;
-  var
-    fff,ggg:integer;
-    BEGIN
-      fff:=0;
-      ggg:=0;
-      MinnowWhere(fff,ggg);
-
-      // calculate defence territory values
-      for T:=1 to 39 do begin
-        if (TIsMine(T)) then begin
-          ValProtection[T]:=0;
-        end;
-      end;
-
-      // australia
-      CAnalysis(6,PT,PA,ET,EA);          
-
-      for Z:=1 to 5 do begin
-        Z2:=CTerritoriesCount(Z);
-        CAnalysis(Z,PT,PA,ET,EA);
-        if (PA>EA) then begin
-          X:=ContinentValuation(Z);
-          if (double(PA)/X > 1.0) then begin
-            for Y:=1 to Z2 do begin
-              T2:=CTerritory(Z,Y);
-              if (TIsMine(T2)) then begin
-                X2:=Protection(T2,0,T2);
-                if (X2=0) then begin
-                  Y2:=TBordersCount(T2);
-                  for D:=1 to Y2 do begin
-                    TA:=TBorder(T2,D);
-                    if (not (TContinent(T2)=TContinent(TA))) then begin
-                      X2:=10;
-                    end;
-                  end;
-
-                end;
-                ValProtection[T2]:=X2;
-              end;
-            end;
-          end;
-        end;
-      end;
-
-    END;//FUNCTION TerritoryValues
-
-  FUNCTION ActiveBorder (ABT:Integer):Boolean;
-    BEGIN
-      ABTN:=TBordersCount(ABT);
-      result:=false;
-      for ABTI:=1 to ABTN  do begin
-        ABTC:=TBorder(ABT,ABTI);
-        if ((not (COwner(TContinent(ABTC))=PMe))
-            AND (TContinent(ABT)<>TContinent(ABTC))) then result:=true;
-      end;
-    end;
-
-procedure EndeavourPlacement(var ToTerritory: integer);
-begin //routine PLACEMENT
-  
-  Routine:=1;
-  
-  TerritoryValues(True);
-  TerritoryTo:=0;
-  TerritoryFrom:=0;
-  ToTerritory:=0;
-  
-  //initial placement code
-  if ((PArmiesCount(PMe) < 10) and (not (trunc(UBufferGet(50))=2))) then begin
-    UBufferSet(50,1);
-  end;
-  if ((PArmiesCount(PMe) > 25) and (trunc(UBufferGet(50))=1)) then begin
-    UBufferSet(50,2);
-  end;
-  
-  if (trunc(UBufferGet(50))=1) then begin
-    MaxTerritoryValue:=0;
-    for T:=1 to 42 do begin
-      if (TIsMine(T) and TIsFront(T)) then begin
-        TWeakestFront(T,ET,EA);
-        Score:=1000-EA;
-        Score:=Score-((double(TPressure(T)*2)/TFrontsCount(T)));
-        Score:=Score+(TArmies(T) div 3);
-        if (T>38) then Score:=Score-100;
-        if ((T>9) and (T<14)) then Score:=Score-50;
-        if (Score> MaxTerritoryValue) then begin
-          MaxTerritoryValue:=trunc(Score);
-          TerritoryTo:=T;
-        end;
-      end;
-    end;
-  end
-  else begin
-
-    if (PArmiesCount(PMe)<trunc(UBufferGet(39+PMe))) then begin
-      X:=trunc(UBufferGet(39+PMe))-PArmiesCount(PMe);
-      for T:=1 to 10 do begin
-        Y:=trunc(UBufferGet(39+T));
-        UBufferSet(39+T,Y-X);
-      end;
-    end;
-    UBufferSet(39+PMe,PArmiesCount(PMe));
-
-    if (PNewArmies(PMe)=1) then begin
-      for T:=1 to 10 do begin
-        if (not (T=PMe)) then begin
-          X:=trunc(UBufferGet(39+T));
-          Y:=PArmiesCount(PMe)-PArmiesCount(T);
-//          l('Player ' + i(T) +  ' ' + i(X-Y));
-          if (not (X=1000)) then begin
-            if (Y<(X-1)) then begin
-              UBufferSet(39+T,X-1);
-            end;
-          end;
-        end; 
-      end;
-    end;
-   
-  // assign defensive armies
-    if (TerritoryTo=0) then begin  
-      MaxTerritoryValue:=0;
-      for T:=1 to 39 do begin
-        if TIsMine(T) then begin
-          D:=ValProtection[T]-TArmies(T);
-          if (D>MaxTerritoryValue) then begin
-            MaxTerritoryValue:=D;
-            TerritoryTo:=T;
-//            //umessage('Defensive A ',TerritoryTo);
-          end;
-        end;
-      end;
-    end;
-   
-   // continent attacking
-    if (TerritoryTo=0) then begin
-      ContinentAttacking(1);
-
-      if (TerritoryFrom>0) then begin
-        TerritoryTo:=TerritoryFrom;
-//        //umessage('Conta Placement ',TerritoryTo);
-      end;
-    end;
-
-   
-
-  //desirability attacking
-    if (TerritoryTo=0) then begin
-      DesirabilityAttacking(1);
-
-      if (TerritoryFrom>0) then begin
-        TerritoryTo:=TerritoryFrom;
-      end;
-    end;
-
-
-   
-    if (TerritoryTo=0) then begin
-      MaxTerritoryValue:=0;
-      for T:=1 to 42 do begin
-        if (TIsFront(T) AND (TOwner(T) = PMe)) then begin 
-          if (TArmies(T)>MaxTerritoryValue) then begin
-            MaxTerritoryValue:=TArmies(T);
-            TerritoryTo:=T;
-          end;
-        end;
-      end;
-    end;
-
-  end;
-
-//  //umessage(trunc(UBufferGet(39)));
-  ToTerritory:=TerritoryTo;
-
-
-
-end;
-
-procedure endeavourAttack(var FromTerritory, ToTerritory: integer);
-
-
-begin
-  Routine:=2;
-  FromTerritory:=0;
-  ToTerritory:=0;
-  MaxTerritoryValue:=0;
-  TerritoryTo:=0;
-  TerritoryFrom:=0;
-  TerritoryValues(True);  
-  ValInd:=0;
-  KillPlayer:=0;
-  UBufferSet(50,3);
-
-
-
-  //Continent Attacking
-  if (FromTerritory=0) then begin
-    ContinentAttacking(1);
-    if (TerritoryTo>0) then begin
-      ToTerritory:=TerritoryTo;
-      FromTerritory:=TerritoryFrom;
-//      l('Continent Attacking ' + i(ValInd));
-      if (TArmies(FromTerritory)=1) then begin
-        //umessage('Attack Problem : ValInd = ',ValInd);
-      end;
-    end;
-  end;
-
-
-
-  //Desirability Attacking
-  if (FromTerritory=0) then begin
-    DesirabilityAttacking(1);
-    if (TerritoryTo>0) then begin
-      ToTerritory:=TerritoryTo;
-      FromTerritory:=TerritoryFrom;
-//      l('Desirability Attacking');
-      UBufferSet(50,4);
-//      //umessage('Desire Attack ',FromTerritory,' ',ToTerritory);
-    end;
-  end;
-
-
-
-  // Lessening Attack
-  if (FromTerritory=0) then begin
-    LesseningAttack(1);
-    if (TerritoryTo>0) then begin
-      ToTerritory:=TerritoryTo;
-      FromTerritory:=TerritoryFrom;
-      l('Lessening Attacking');
-    end;
-  end;
-
-  // Attack Dangerous Neighbour
-  if (FromTerritory=0) then begin
-    LesseningAttack(1);
-    if (TerritoryTo>0) then begin
-      ToTerritory:=TerritoryTo;
-      FromTerritory:=TerritoryFrom;
-      l('Lessening Attacking');
-    end;
-  end;
-
-          
-  if (FromTerritory=0) then begin
-    MaxTerritoryValue:=0;
-    if not SConquest then begin  
-      conquestAttack(FromTerritory,ToTerritory);
-    end;
-  end;
-
-  if (PArmiesCount(PMe)<trunc(UBufferGet(39+PMe))) then begin
-    X:=trunc(UBufferGet(39+PMe))-PArmiesCount(PMe);
-    for T:=1 to 10 do begin
-      Y:=trunc(UBufferGet(39+T));
-      if (not (Y=1000)) then begin
-        UBufferSet(39+T,Y-X);
-      end;
-    end;
-  end;
-  for T:=1 to 10 do begin
-    if (not (T=PMe)) then begin
-      X:=trunc(UBufferGet(39+T));
-      Y:=PArmiesCount(PMe)-PArmiesCount(T);
-//      l('Player ',X,' ',Y);
-      if (Y>X) then begin
-        UBufferSet(39+T,Y);
-      end;
-      if (Y<X-10) Then begin
-//        //umessage('Player ',T,' strong.');
-      end;
-    end;
-  end;
-    
-
-end;
-
-procedure endeavourOccupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-begin
-  T40:=trunc(UBufferGet(40));
-  T41:=trunc(UBufferGet(41));
-  T42:=trunc(UBufferGet(42));
-  UBufferSet(40,0);
-  UBufferSet(41,0);
-  UBufferSet(42,0);
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  Armies:=0;
-  Calc:=0;
-
-  //desirability attacking
-  if (Calc=0) then begin
-//     l('Desire1 ' + i(trunc(UBufferGet(50))));
-    if (trunc(UBufferGet(50))=4) then begin
-//      l('Desire2 ' + i(ValProtection[FromTerritory]));
-      if (ValProtection[FromTerritory]=0) or (FromTerritory>39) then begin
-        Armies:=TArmies(FromTerritory)-1;
-      end else
-      begin
-        Armies:=TArmies(FromTerritory)-ValProtection[FromTerritory];
-      end;
-      Calc:=1;
-    end;
-  end;
-
-  // don't move out of more favourable continent
-  if (Calc=0) then begin
-    C:=TContinent(FromTerritory);
-    C2:=TContinent(ToTerritory);
-    X:=ValIndex[ToTerritory];
-    Y:=trunc(ContinentValuation(C)*1.1);
-    if ((C<>C2) AND (not (COwner(C)=PMe)) AND (Y<X)) then begin
-      Armies:=0;
-      Calc:=1;
-      l('Stay in favourable continent' + i(Y) + ' ' + i(X));
-    end;
-  //don't let a small army wander
-    CAnalysis(C,PT,PA,ET,EA);
-    if ((PA>EA) and (TArmies(FromTerritory)<X) AND (PT>1) 
-        AND (C<>C2)) then begin
-      Z:=CTerritoriesCount(C);
-      for Z2:=1 to Z do begin
-        T:=CTerritory(C,Z2);
-        if ((TArmies(T)>1) AND (T <> FromTerritory)) then begin  
-          Armies:=0;
-          Calc:=1;
-          l('Small Armies stay at home');
-        end;
-      end;
-    end;
-  end;
-
-  // Streamline Attacking Scan ahead
-  if (Calc=0) then begin
-    X:=ValIndex[ToTerritory];
-    Y:=TBordersCount(ToTerritory);
-    for Z:=1 to Y do begin
-      T2:=TBorder(ToTerritory,Z);
-      if (ValIndex[T2]<X) AND (not (TOwner(T2)=PMe)) then begin
-        if (TContinent(T2) <> TContinent(FromTerritory)) then begin
-          Armies:=TArmies(FromTerritory)-(1+ValProtection[FromTerritory]);
-          if (Armies<0) then Armies:=0;  
-          Calc:=1;
-//          l('Streamline Attacking Scan Ahead ' + i(ToTerritory) + ' ' + i(T2));
-        end;
-      end;
-    end;
-  end;
-
-
-
-  // desirability continent moving
-  
-  if (Calc=0) then begin
-    if (TContinent(FromTerritory) <> TContinent(ToTerritory)) then begin
-      X2:=0;
-      if (COwner(TContinent(FromTerritory))=PMe) then begin
-        X2:=Protection(FromTerritory,0,ToTerritory);
-    //              //umessage('Desire Attack ',TArmies(T),' ',X2,' ',DEValue);
-        if (ValProtection[FromTerritory]>0) AND (X2=0) then begin
-          X2:=10;
-        end;
-      end;
-      if (TArmies(FromTerritory)-X2-valIndex[ToTerritory]>0) then begin
-        Armies:=TArmies(FromTerritory)-X2-1;
-        if (Armies<0) then Armies:=0;
-        Calc:=1;
-//        l('Desirability continent moving');
-      end;
-    end;
-  end;
-  ValIndex[ToTerritory]:=0;
-
-
-  //ContinentAttacking
-
-  if (Calc=0) then begin
-    C:=TContinent(FromTerritory);
-//    l('Attacking 1 ',FromTerritory,' ',ToTerritory);
-    CAnalysis(C,PT,PA,ET,EA);
-    Y:=ContinentValuation(C);
-    if (Y>0) then begin
-      if ((double(PA)/Y)>1.2) then begin
-        if (C=TContinent(ToTerritory)) then begin
-          ProT:=FromTerritory;
-          ProTA:=ToTerritory;
-          X:=Protection(ProT,0,ProTA);
-          TF:=FromTerritory;
-          if (TArmies(TF)>X) then begin
-            Armies:=TArmies(TF)-X-1;
-            X:=Protection(ProTA,0,0);
-            if (Armies >X) then begin
-              Fronts:=TFrontsCount(TF);
-              for T:=1 to Fronts do begin
-                if (TContinent(TFront(TF,T))=C) then begin
-                  Armies:=X;
-                end;
-              end;
-            end;
-            if (not (FromIsFront)) then begin
-              if (ActiveBorder(FromTerritory)) then begin
-                Armies:=TArmies(FromTerritory)-10;
-              end else begin
-                Armies:=TArmies(FromTerritory)-1;
-              end;
-            end;
-            Calc:=1;
-//          l('Cont Att Moving 2 ' + i(FromTerritory)  + ' ' + i(ToTerritory));
-          end
-          else begin
-            Calc:=1;
-            Armies:=0;
-//          l('Cont Att Moving 3 ' + i(FromTerritory)  + ' ' + i(ToTerritory));
-          end;
-        end
-        else begin
-          Armies:=0;
-          Calc:=1;
-//          l('Cont Att Moving 4 ' + i(FromTerritory)  + ' ' + i(ToTerritory));
-        end;
-      end;
-    end;
-  end;
-
-  if (Calc=0) then begin
-    if ToIsFront then begin
-      Armies:=TArmies(FromTerritory)-(1+valProtection[FromTerritory]);
-      Calc:=1;
-      if (Armies<0) then Armies:=0;  
-//      l('Occupation Default ' + i(Armies));
-    end;
-  end;
-
-
-
-
-  UBufferSet(40,T40);
-  UBufferSet(41,T41);
-  UBufferSet(42,T42);
-
-
-
-     
-
-end;
-
-function oldFortification(var FromTerritory, ToTerritory, Armies: integer):boolean;
-
-
-begin
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-  MaxArmy:=1;
-  if (COwner(6)=PMe)
-    then begin
-    if (TArmies(40)>1) then begin
-      Armies:=TArmies(40)-1;
-      FromTerritory:=40;
-      ToTerritory:=39;
-    end;
-    if (TArmies(42)>1) then begin
-      Armies:=TArmies(42)-1;
-      FromTerritory:=42;
-      ToTerritory:=39;
-
-    end;
-    if (TArmies(41)>1) then begin
-      Armies:=TArmies(41)-1;
-      FromTerritory:=41;
-      ToTerritory:=40;
-
-    end;
-  end;
-  
-  if (FromTerritory=0) then begin
-    for T:=1 to 39 do begin
-      if ((TIsMine(T)) 
-      and (not TIsFront(T))) then begin  
-        if (TArmies(T)-valProtection[T]>MaxArmy) then begin
-          MaxArmy := TArmies(T)-valProtection[T];
-          FromTerritory := T;
-        end;
-      end; 
-    end;
-    if (FromTerritory=0) then begin
-      for T:=40 to 42 do begin
-        if ((TIsMine(T)) 
-        and (not TIsFront(T))) then begin  
-          if (TArmies(T)>MaxArmy) then begin
-            MaxArmy := TArmies(T)-1;
-            FromTerritory := T;
-          end;
-        end; 
-      end;
-    end;
-    
-    if (FromTerritory>0) then begin
-      for B:=1 to TBordersCount(FromTerritory) do begin
-        if ToTerritory=0 then begin
-          T:=TBorder(FromTerritory,B);
-          if TIsMine(T) and TIsFront(T) then begin
-            ToTerritory:=T;
-          end;
-        end;
-      end;
-      if ToTerritory=0 then begin
-        for B:=1 to TBordersCount(FromTerritory) do begin
-          if ToTerritory=0 then begin
-            T:=TBorder(FromTerritory,B);
-            if TIsMine(T) then begin
-              ToTerritory:=T;
-            end;
-          end;
-        end;
-      end;
-      if ToTerritory>0 then begin
-        Armies:=TArmies(FromTerritory)-valProtection[FromTerritory]-1;
-      end;
-      if (Armies > TArmies(FromTerritory) - 1) then begin
-        Armies := TArmies(FromTerritory) - 1;
-      end;
-    end;
-  end;
-
-  if (FromTerritory=0) then begin
-  //Unite lost territories
-
-    for C:=1 to 6 do begin
-      CAnalysis(C,PT,PA,ET,EA);
-      Y:=ContinentValuation(C);
-      if ((Y>0) and (EA>0)) then begin
-        if ((double(PA)/Y)<1) then begin
-          Z:=CTerritoriesCount(C);
-          for X:=1 to Z do begin
-            T:=CTerritory(C,X);
-            if ((TOwner(T)=PMe) AND (TArmies(T)>1)) then begin
-              Z2:=TBordersCount(X);
-              for X2:=1 to Z2 do begin
-                T2:=TBorder(T,X2);
-                if ((TOwner(T2)=PMe) AND (TArmies(T2)>1) and TIsFront(T2)) then begin
-                  FromTerritory:=T;
-                  ToTerritory:=T2;
-                  Armies:=TArmies(FromTerritory)-1;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;  
-
-end;
-
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-
-
-procedure oldAttack(var FromTerritory, ToTerritory: integer);
-var
-  T,T2,X,Y:integer;
-  Value:double;
-begin
-  MinnowWhere(X,Y);
-  if (not TisMine(Y)) then begin
-//    l('BBBTF ' + i(X) + ' TA ' + i(Y) + ' A ' + i(TArmies(X))+ ' VI ' + i(ValIndex[Y]));
-    if TArmies(X) > ValIndex[Y] then begin
-      FromTerritory:=X;
-      ToTerritory:=Y;
-    end;
-  end else begin
-    FromTerritory:=0;
-    ToTerritory:=0;
-  end;
-  if (not SConquest) and (ToTerritory=0) then begin
-    conquestAttack(FromTerritory,ToTerritory);
-  end;
-end;
-
-
-procedure OldOccupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-begin
-      FromIsFront := TIsFront(FromTerritory);
-      ToIsFront := TIsFront(ToTerritory);
-      Armies:=0;
-
-
-
-      if ToIsFront then begin
-        Armies:=TArmies(FromTerritory)-1;
-        if (Armies<0) then Armies:=0;
-      end;
-      if (ToTerritory=41) then begin
-        Armies:=0;
-      end;
-      if ((ToTerritory=40) and (FromTerritory=39)) then begin
-        Armies:=(TArmies(FromTerritory)-1);
-        if (Armies > (TArmies(42)+5)) then Armies := (TArmies(42)+5);
-        if (Armies < (TArmies(39) div 2)) then Armies:=(TArmies(39) div 2);
-      end;
-      if ((ToTerritory=42) and (FromTerritory=39)) then begin
-        Armies:=0;
-      end;
-      if (ToTerritory=39) then begin
-        Armies:=(TArmies(FromTerritory)-1);
-      end;
-
-end;
-
-
-//end of old australian code
-//end of old australian code
-//end of old australian code
-//end of old australian code
-//end of old australian code
-//end of old australian code
-//end of old australian code
-//end of old australian code
-//end of old australian code
-
-
-
-//Tony Buffers
-// Buffer 99 - First run placement routine
-// Buffer 98 - From Territory
-// Buffer 97 - To Territory
-
-function TDistancetoFront(QTerr: integer): integer;
-var
-  BBMaxDistToFront: integer;
-  BBDisttoFront,Notused,T: integer;
-  Control: boolean;
-begin
-  BBMaxDisttoFront:=1000;
-  for T:=1 to 42 do begin
-    if TIsMine(T) then begin
-      if TIsFront(T) then begin
-        Control:=TShortestPath(QTerr,T,Notused,BBDisttoFront);
-        if BBDisttoFront < BBMaxDisttoFront then begin
-          BBMaxDisttoFront:=BBDisttoFront;
-        end;
-      end;
-    end;
-  end;
-  result:= BBMaxDisttoFront;
-end;
-
-function EArmiesThatCouldReach(QFromTerr,QToTerr: integer):integer;
-var
-  ENumberCanReach: array of integer;
-  vulnT,vulnT2,BorderCountry:integer;
-  LoopControl: boolean;
-begin
-  SetArrayLength(ENumberCanReach,43);
-  LoopControl:=true;
-  for vulnT:=1 to 42 do begin
-    ENumberCanReach[vulnT]:=-10000;
-  end;
-  ENumberCanReach[QFromTerr]:=MyArmiesMap[QFromTerr];
-  while loopcontrol do begin
-    loopcontrol:=false;
-    for vulnT:=1 to 42 do begin
-      For vulnT2:=1 to TBordersCount(vulnT) do begin
-        BorderCountry:=TBorder(vulnT,vulnT2);
-        if (vulnT = QToTerr) then begin
-          If ENumberCanReach[BorderCountry] > ENumberCanReach[vulnT] then begin
-            ENumberCanReach[vulnT]:=ENumberCanReach[BorderCountry];
-            loopcontrol:=True;
-          end;
-        end else begin
-          If ENumberCanReach[BorderCountry] > (ENumberCanReach[vulnT] + MyArmiesMap[vulnT]) then begin
-            ENumberCanReach[vulnT]:=ENumberCanReach[BorderCountry]-MyArmiesMap[vulnT];
-            loopcontrol:=True;
-          end;
-        end;
-      end;
-    end;
-  end;
-  result:=ENumberCanReach[QToTerr];
-end;
-
-
-
-function OldVulnLevel(QTerr: integer): integer;
-var
-  T: integer;
-  MaxArmiesThatCouldReach, ArmiesThatCouldReach: integer;
-begin
-  MaxArmiesThatCouldReach:=-10000;
-  for T:=1 to 42 do begin
-    if not(TIsMine(T)) then begin
-//    if (MyArmiesMap[T] > MyArmiesMap[QTerr]) then begin
-      ArmiesThatCouldReach:=EArmiesThatCouldReach(T,QTerr);
-      if ArmiesThatCouldReach > MaxArmiesThatCouldReach then begin
-        MaxArmiesThatCouldReach:=ArmiesThatCouldReach;
-      end;
-//      end;
-    end;
-  end;
-  result:=MaxArmiesThatCouldReach;
-end;
-
-
-function PlayerCScore(QPlayer: integer): integer;
-var
-  T: integer;
-begin
-  result:=0;
-  for T:=1 to 6 do begin
-    if (COwner(T)=QPlayer) then result:=result+CBonus(T);
-  end;
-end;
-
-
-function PlayerScore(QPlayer: integer): integer;
-begin
-  result:=PlayerCScore(Qplayer);
-  if (PTerritoriesCount(QPlayer)>11) then begin
-    result:=result+((PTerritoriesCount(QPlayer) div 3)-3);
-  end;
-  if PAlive(Qplayer) then begin
-    result:=result+3;
-  end;
-end;
-
-function TotalEnemyArmies(): integer;
-var
-  T,P:integer;
-begin
-  T:=0;
-  for P:=1 to 10 do begin
-    if (P<>PMe) then begin
-      T:=T+PArmiesCount(P);
-    end;
-  end;
-  result:=T;
-end;
-
-function TotalEnemyScore(): integer;
-var
-  S,P:integer;
-begin
-  S:=0;
-  for P:=1 to 10 do begin
-    if (P<>PMe) then begin
-      S:=S+PlayerScore(P);
-    end;
-  end;
-  result:=S;
-end;
-
-function ArePlayersConnected(P1,P2:integer):boolean;
-var
-  T,T2:integer;
-  output:boolean;
-begin
-  output:=false;
-  if (P<>PMe) then begin
-    for T:=1 to 42 do begin
-      if TOwner(T)=P1 then begin
-        for T2:=1 to TBordersCount(T) do begin
-          if TOwner(TBorder(T,T2)) = P2 then begin
-            output:=true;
-          end;
-        end;
-      end;
-    end;
-  end;
-  result:=output;
-end;    
-
-
-function EnemywithMostArmies(): integer;
-var
-  P,E,X:integer;
-begin
-  E:=0;
-  X:=0;
-  for P:=1 to 10 do begin
-    if (P<>PMe) then begin
-      If PArmiesCount(P) > X then begin
-        X:=PArmiesCount(P);
-        E:=P;
-      end;
-    end;
-  end;
-  result:=E;
-end;
-      
-function ConnectedEnemywithMostArmies(): integer;
-var
-  P,E,X:integer;
-begin
-  E:=0;
-  X:=0;
-  for P:=1 to 10 do begin
-    if (P<>PMe) and (ArePlayersConnected(P,PMe)) then begin
-      If PArmiesCount(P) > X then begin
-        X:=PArmiesCount(P);
-        E:=P;
-      end;
-    end;
-  end;
-  result:=E;
-end;
-
-procedure calculatebigarmies();
-var 
-  T:integer;
-  ifcontrol:boolean;
-begin
-  mrbig:=0;
-  mrbigarmies:=0;
-  mrsecondarmies:=0;
-  for T:=1 to 10 do begin
-    ifcontrol:=false;
-    if (pos('australian',lowercase(PProgram(Towner(T))))>0) then begin
-      if (PlayerScore(T)=0) then begin
-        ifcontrol:=true;
-      end;
-    end;
-    if (pos('descartes',lowercase(PProgram(Towner(T))))>0) then begin
-      if (PlayerScore(T)=0) then begin
-        ifcontrol:=true;
-      end;
-    end;
-    if (not ifcontrol) then begin
-      if PArmiesCount(T)>mrbigarmies then begin
-        mrsecondarmies:=mrbigarmies;
-        mrbigarmies:=PArmiesCount(T);
-        mrbig:=T;
-      end else begin
-        if PArmiesCount(T)>=mrsecondarmies then begin
-          mrsecondarmies:=PArmiesCount(T);
-        end;
-      end;
-    end;
-  end;
-end;
-
-function TerrPlayerBordering(T,P:integer):boolean;
-var
-  T2:integer;
-  output:boolean;
-begin
-  output:=false
-  for T2:=1 to TBordersCount(T) do begin
-    if TOwner(TBorder(T,T2)) = P then begin
-      output:=true;
-    end;
-  end;
-  result:=output;
-end;    
-
-function TerrContinentBordering(T,C:integer):boolean;
-var
-  T2:integer;
-  output:boolean;
-begin
-  output:=false
-  for T2:=1 to TBordersCount(T) do begin
-    if TContinent(TBorder(T,T2)) = C then begin
-      output:=true;
-    end;
-  end;
-  result:=output;
-end;    
-
-function TerrContinentFrontBordering(T,C:integer):boolean;
-var
-  T2:integer;
-  output:boolean;
-begin
-  output:=false
-  for T2:=1 to TFrontsCount(T) do begin
-    if TContinent(TFront(T,T2)) = C then begin
-      output:=true;
-    end;
-  end;
-  result:=output;
-end;    
-
-
-
-function calculatevuln(): boolean;
-var
-  T, T2, BorderT,ET,EA,X,Y,Score,P,WatchPlayer: integer;
-  control,loopcontrol: boolean;
-  Prog:String;
-begin
-  loopcontrol:=True;
-  WatchPlayer:=0;
-  SetArrayLength(AttackArmies,43);
-  for T:=1 to 42 do begin
-    If (MineArmies[T]) then begin
-      AttackArmies[T]:=-10000;
-    end else begin
-      AttackArmies[T]:=MyArmiesMap[T]+14;
-    end;
-    if not (TIsMine(T)) then begin
-      P:=TOwner(T);
-      Score:=PlayerScore(P);
-      Prog:=lowercase(PProgram(P));
-      if (pos('australian',Prog)>0) and (Score=3) then begin
-        WatchPlayer:=1;
-        if not (COwner(6)=PMe) then begin
-          AttackArmies[T]:=-10000;
-        end;
-      end;
-      if (Prog='descartes09.trp') and (Score>3) then begin
-        WatchPlayer:=1;
-//        if (not ArePlayersConnected(TOwner(T),PMe)) then begin
-          AttackArmies[T]:=-10000;
-//        end;
-      end;
-      if (Prog='endeavour09.trp') and (Score>3) then begin
-        WatchPlayer:=1;
-//        if (not ArePlayersConnected(TOwner(T),PMe)) then begin
-          AttackArmies[T]:=-10000;
-//        end;
-      end;
-      if (Prog='australian09.trp') and (Score>3) then begin
-        WatchPlayer:=1;
-//        if (not ArePlayersConnected(TOwner(T),PMe)) then begin
-          AttackArmies[T]:=-10000;
-//        end;
-      end;
-      if (Prog='descartes09.trp') and (Score=3) then begin
-        WatchPlayer:=1;
-        if not (COwner(2)=PMe) then begin
-          AttackArmies[T]:=-10000;
-        end;
-      end;
-      if (Prog='endeavour09.trp') and (Score=3) then begin
-        WatchPlayer:=1;
-        if (not (COwner(4)=PMe)) then begin
-          AttackArmies[T]:=-10000;
-        end;
-      end;
-      if (Prog='vexer.trp') and (PArmiesCount(TOwner(T))<PArmiesCount(PMe)) then begin
-        WatchPlayer:=1;
-        AttackArmies[T]:=-10000;
-      end;
-      if (Prog='frank.trp') then begin
-        WatchPlayer:=1;
-      end;
-      if (Prog='descartes.trp') then begin
-        WatchPlayer:=1;
-      end;
-      if (pos('australian',Prog)>0) then begin
-        WatchPlayer:=1;
-      end;
-      if (Prog='endeavour.trp') then begin
-        WatchPlayer:=1;
-      end;
-      if (Prog='zotob.trp') then begin
-        WatchPlayer:=1;
-      end;
-      if PHuman(P) then begin
-        WatchPlayer:=1;
-      end;
-      if (Prog='frank.trp') and (COwner(6)=PMe) and (Score=3) then begin
-        AttackArmies[T]:=AttackArmies[T]+13;
-      end;
-      if (COwner(6)=P) and (COwner(2)=PMe) then begin
-        AttackArmies[T]:=AttackArmies[T] div 2;
-      end;
-      if (COwner(2)=P) and (COwner(6)=PMe) then begin
-        AttackArmies[T]:=AttackArmies[T] div 2;
-      end;
-      if PHuman(P) and (COwner(6)=PMe) and (Score=3) then begin
-        AttackArmies[T]:=AttackArmies[T]+13;
-      end;
-      if (KP2009=mrbig) and (PArmiesCount(PMe)=mrsecondarmies) and (TOwner(T)=KP2009) then begin
-        AttackArmies[T]:=-10000;
-      end;
-      if (PlayersCount = 2) or (WatchPlayer=0) then begin
-        AttackArmies[T]:=-10000;
-      end;
-    end;
-  end;
-  while loopcontrol do begin
-    loopcontrol:=false;
-    for T:=1 to 42 do begin
-      for T2:=1 to TBordersCount(T) do begin
-        BorderT:=TBorder(T,T2);
-        if AttackArmies[BorderT] > (1+AttackArmies[T] + MyArmiesMap[T]) then begin
-          AttackArmies[T]:=AttackArmies[BorderT]-MyArmiesMap[T]-1;
-          loopcontrol:=True;
-        end;
-      end;
-    end;
-  end;
-  for C:=1 to 6 do begin
-    if COwner(C) = PMe then begin
-      for X:=1 to CEntriesCount(C) do begin
-        T:=CEntry(C,X);
-        for Y:=1 to CTerritoriesCount(C) do begin
-          T2:=CTerritory(C,Y);
-          if (T <> T2) then begin
-            AttackArmies[T]:=AttackArmies[T]-(MyArmiesMap[T2]-1);
-          end;
-        end;
-      end;
-    end;
-  end;
-  for T:=1 to 42 do begin
-    if (AttackArmies[T]<0) then AttackArmies[T]:=0;
-//    l('attarmies T ' + i(T) + ' ' + i(AttackArmies[T]));
-    if (TOwner(T) = PMe) and TIsFront(T) then begin
-      if (COwner(TContinent(T)) = PMe) then begin
-         Y:=TFrontsCount(T);
-         EA:=0;
-         for X:=1 to Y do begin
-           T2:=TFront(T,X);
-           if EA < MyArmiesMap[T2] then EA:=MyArmiesMap[T2];
-         end;
-         if (EA>MyArmiesMap[T]) then begin
-           AttackArmies[T]:=AttackArmies[T]+(EA-MyArmiesMap[T])+1000;
-         end;
-         if (11>MyArmiesMap[T]) then begin
-           AttackArmies[T]:=AttackArmies[T]+11-(MyArmiesMap[T]*2)+1500;
-         end;
-         if (6>MyArmiesMap[T]) then begin
-           AttackArmies[T]:=AttackArmies[T]+13-(MyArmiesMap[T]*3)+3000;
-         end;
-      end;
-      if (TContinent(T) = myattackC) then begin
-         AttackArmies[T]:=0;
-         if (11>MyArmiesMap[T]) then begin
-           AttackArmies[T]:=11-MyArmiesMap[T];
-         end;
-         if (6>MyArmiesMap[T]) then begin
-           AttackArmies[T]:=13-(MyArmiesMap[T]*2);
-         end;
-      end;
-    end;
-    if (TOwner(T) = PMe) and not (TIsFront(T)) then begin
-      if TContinent(T) = myattackC then begin
-        AttackArmies[T]:=0;
-      end;
-    end;
-  end;
-  result:=true;
-end;
-
-function calcmyfronts():integer;
-var
-  myfT1,myfT2,sumfronts,myfborder: integer;
-  isfront:boolean;
-begin
-  sumfronts:=0;
-  for myfT1:=1 to 42 do begin
-    if MineArmies[myFT1] then begin
-      isfront:=false;
-      for myfT2:= 1 to TBordersCount(myft1) do begin
-        myfborder:=TBorder(myfT1,myfT2);
-        if MineArmies[myfborder]=false then begin
-          isfront:=true;
-        end;
-      end;
-      if isfront = true then begin
-        sumfronts:=sumfronts+MyArmiesMap[myft1];
-      end;
-    end;
-  end;
-  result:=sumfronts;
-end;
-
-function calcmyborders():integer;
-var
-  mybT1,mybT2,sumborders,mybborder: integer;
-  ismyborder:boolean;
-begin
-  sumborders:=0;
-  for mybT1:=1 to 42 do begin
-    if not MineArmies[mybT1] then begin
-      ismyborder:=false;
-      for mybT2:= 1 to TBordersCount(mybt1) do begin
-        mybborder:=TBorder(mybT1,mybT2);
-        if MineArmies[mybborder]=true then begin
-          ismyborder:=true;
-        end;
-      end;
-      if ismyborder = true then begin
-        sumborders:=sumborders+MyArmiesMap[mybt1];
-      end;
-    end;
-  end;
-  result:=sumborders;
-end;
-
-function calcmynewborders(T:integer):integer;
-var
-  X,T2,X2,T3,sumborders: integer;
-  ismyborder:boolean;
-begin
-  sumborders:=0;
-  for X:=1 to TBordersCount(T) do begin
-    T2:=TBorder(T,X);
-    if not(TIsMine(T2)) then begin
-      ismyborder:=false;
-      for X2:= 1 to TBordersCount(T2) do begin
-        T3:=TBorder(T2,X2);
-        if TIsMine(T3) then begin
-          ismyborder:=true;
-        end;
-      end;
-      if ismyborder = false then begin
-        sumborders:=sumborders+Tarmies(T2);
-      end;
-    end;
-  end;
-  result:=sumborders;
-end;
-
-procedure calculateoverallvuln(var overallvuln,maxvuln:integer);
-var
-  C,T,X,V:integer;
-  control:boolean;
-begin
-  overallvuln:=0;
-  maxvuln:=0;
-  control:=calculatevuln();
-//  for T:=1 to 42 do begin
-//    l('jjj ' + i(T) + ' ' + i(AttackArmies[T]));
-//  end;
-  for C:=1 to 6 do begin
-    if COwner(C) = PMe then begin
-      for X:=1 to CEntriesCount(C) do begin
-        T:=CEntry(C,X);
-        V:=AttackArmies[T];
-        if V>0 then begin
-          overallvuln:=overallvuln+V;
-          if V> maxvuln then begin
-            maxvuln:=V;
-          end;
-        end;
-      end;
-    end;
-    if (C=myAttackC) then begin
-      for X:=1 to CTerritoriesCount(C) do begin
-        T:=CTerritory(C,X);
-        if TIsMine(T) then begin
-          V:=AttackArmies[T];
-          if V>0 then begin
-            overallvuln:=overallvuln+V;
-          end;
-        end;
-      end;
-    end;
-  end;
-end;
-
-procedure setupmymaps();
-var 
-  T:integer;
-begin
-  for T:=1 to 42 do begin
-    MyArmiesMap[T]:=TArmies(T);
-    MineArmies[T]:=TIsMine(T);
-  end;
-end;
-
-
-function goodvulnattack(fromc,toc: integer):boolean;
-var
-  overallvuln,maxvuln,newoverallvuln,newmaxvuln:integer;
-begin
-  setupmymaps();
-  calculateoverallvuln(overallvuln,maxvuln);
-  MyArmiesMap[fromc]:=MyArmiesMap[fromc]-1;
-  MyArmiesMap[toc]:=MyArmiesMap[toc]-1;
-  calculateoverallvuln(newoverallvuln,newmaxvuln);
-  l('MMMov ' + i(overallvuln) + ' nov ' + i(newoverallvuln) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln));
-  if (overallvuln>=newoverallvuln) and (maxvuln>=newmaxvuln) then begin
-    result:= true;
-  end else begin
-    result:= false;
-  end;
-end;
-
-function AreContinentsConnected(C1,C2:integer):boolean;
-var
-  T,T2,T3:integer;
-  output:boolean;
-begin
-  output:=false
-  if (C1 <> C2) then begin
-    for T:=1 to CEntriesCount(C1) do begin
-      T2:=CEntry(C1,T);
-      for T3:= 1 to TBordersCount(T2) do begin
-        if TContinent(TBorder(T2,T3)) = C2 then begin
-          output:=true;
-        end;
-      end;
-    end;
-  end;
-  result:=output;
-end;    
-
-function ArePlayerContinentsConnected(P1,P2:integer):boolean;
-var
-  T,T2:integer;
-  output:boolean;
-begin
-  output:=false;
-  for T:=1 to 6 do begin
-    for T2:=1 to 6 do begin
-      if T <> T2 then begin
-        if COwner(T) = P1 then begin
-          if COwner(T2) = P2 then begin
-            if AreContinentsConnected(T,T2) then begin
-              output:=true;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  result:=output;
-end;    
-
-
-function endgameplay():integer;
-var
-  PP,X:integer;
-begin
-  PP:=0;
-//  l('Hello ' + i(PlayerScore(PMe)) + ' ' + i(TotalEnemyScore()));
-  PP:=ConnectedEnemywithMostArmies();
-  l('endgameplay kill ' + i(PP));
-  result:=PP;
-end;
-
-
-
-function shallikillaplayer():integer;
-var
-  P,MaxValue,PP:integer;
-begin
-  //first of all, need to pick off any cheeky neighbours
-  PP:=0;
-  MaxValue:=0;
-  
-  if PlayerScore(PMe) > 4 then begin
-
-    if (PArmiesCount(PMe)>=mrsecondarmies) then begin
-      for P:=1 to 10 do begin
-        if (P <> PMe) then begin
-          if (ArePlayerContinentsConnected(P,PMe)) or (PlayerScore(P)>10) then begin
-            if (PlayerCScore(P)>PlayerCScore(PMe)+1) then begin
-              if PlayerCScore(P)>MaxValue then begin
-                MaxValue:=PlayerCScore(P) + (PArmiesCount(P) div 10);
-//                l('Cheeky score ' + i(P) + ' ' + i(MaxValue));
-                PP:=P;
-              end;
-            end;
-          end;
-        end;
-      end;
-      if PP>0 then begin
-//        l('Cheeky22 neighbour ' + i(PP));
-      end;
-    end;
-    if (PP=0) then begin  
-      if (PArmiesCount(PMe)>=mrsecondarmies) then begin
-        if (mrbig <> PMe) and (ArePlayersConnected(PMe,MrBig)) then begin
-          PP:=Mrbig;
-          if (PP<>KP2009) then l('KillMrBig ' + i(PP));
-        end;
-      end;
-    end;
-            
-    if (PP=0) then begin  
-      if (PArmiesCount(PMe)=mrsecondarmies) and (mrsecondarmies<mrbigarmies) then begin
-        if ((PlayerScore(MrBig) > (PlayerScore(PMe)+1)) and (PlayerScore(MrBig) > 6)) then begin
-          KP2009:=MrBig;
-          PP:=MrBig;
-        end;
-      end;
-    end;
-//    if (PP=0) then begin  
-//      if (PArmiesCount(PMe)=mrbigarmies) then begin
-//        l('KKK - Mr Big has ' + i(mrbigarmies) + ' Mr 2 has ' + i(mrsecondarmies) + ' Big Score ' + i(PlayerScore(MrBig)) + ' Me Score ' + i(PlayerScore(PMe)));
-//        for P:=1 to 10 do begin
-//          if (P <> PMe) then begin
-//            if (ArePlayersConnected(P,PMe)) then begin
-//              if (PlayerScore(P)>PlayerScore(Pme)) or (PlayerCScore(P)>PlayerCScore(PME)) then begin
-//                KP2009:=P;
-//                PP:=P;
-//              end;
-//            end;
-//          end;
-//        end;
-//     end;
-//    end;
-//    MaxValue:=1000000;
-//    if (PP=0) then begin  
-//      if (PArmiesCount(PMe)>(mrsecondarmies+30)) then begin
-//        l('KWP - Mr Big has ' + i(mrbigarmies) + ' Mr 2 has ' + i(mrsecondarmies) + ' Big Score ' + i(PlayerScore(MrBig)) + ' Me Score ' + i(PlayerScore(PMe)));
-//        for P:=1 to 10 do begin
-//          if (P <> PMe) then begin
-//            if (ArePlayersConnected(P,PMe)) then begin
-//              if PArmiesCount(P)<MaxValue then begin
-//                KP2009:=P;
-//                PP:=P;
-//                MaxValue:=PArmiesCount(P);
-//              end;
-//            end;
-//          end;
-//        end;
-//      end;
-//    end;
-  end;
-  
-  result:=PP;
-end;
-
-function DoesBorderMe(C:integer):boolean;
-var
-  X,T,BorderC:integer;
-begin
-  result:=false;
-  for X:=1 to CBordersCount(C) do begin
-    T:=CBorder(C,X);
-    BorderC:=TContinent(T);
-    if COwner(BorderC) = PMe then result:=true;
-  end;
-end;
-
-procedure calcDistanceToAttackFront();
-var
-  T,X,T2:integer;
-  control:boolean;
-begin
-  for T:=1 to 42 do begin
-    DistanceToAttackFront[T]:=0;
-  end;
-  if (KP2009>0) then begin
-    for T:=1 to 42 do begin
-      if TerrPlayerBordering(T,KP2009) and TIsMine(T) then begin
-        DistanceToAttackFront[T]:=1;
-      end;
-    end;
-  end;
-  for T:=1 to 42 do begin
-    if TIsMine(T) and TIsFront(T) and TerrContinentFrontBordering(T,MyAttackC) and (DistanceToAttackFront[T]=0) then begin
-      if (COwner(TContinent(T))>0) then DistanceToAttackFront[T]:=2;
-      if (TContinent(T)=myAttackC) then DistanceToAttackFront[T]:=1;
-    end;
-  end;
-  control:=true;
-  while control do begin
-    control:=false;
-    for T:=1 to 42 do begin
-      if (DistanceToAttackFront[T]>0) then begin
-        for X:=1 to TBordersCount(T) do begin
-          T2:=TBorder(T,X);
-          if (DistanceToAttackFront[T2] = 0) or (DistanceToAttackFront[T2] > (DistanceToAttackFront[T]+1)) then begin
-            DistanceToAttackFront[T2]:=DistanceToAttackFront[T]+1;
-            control:=true;
-          end;
-        end;
-      end;
-    end;
-  end;
-//    for T:=1 to 42 do begin
-//        l('distattfront ' + i(T) + ' ' + i(DistanceToAttackFront[T]));
-//    end;
-end;
-
-procedure CalcMyAttackC();
-var
-  E,T,T2,C,X,PT,PA,ET,EA:integer;
-  CScore: array of integer;
-  MaxTerritoryValue:integer;
-  ifcontrol,control:boolean;
-begin
-  MaxTerritoryValue:=-1000000;
-  SetArrayLength(CScore,7);
-  for C:=1 to 6 do begin
-    ifcontrol:=false;
-    CScore[C]:=-1000000;
-    if (COwner(C)=PMe) then begin
-      ifcontrol:=true;
-    end;
-    CAnalysis(C,PT,PA,ET,EA);
-    if (PA=0) and (not ifcontrol) then begin
-      ifcontrol:=true;
-      for X:=1 to CEntriesCount(C) do begin
-        if TerrPlayerBordering(CEntry(C,X),PMe) then begin
-          ifcontrol:=false;
-        end;
-      end;
-    end;
-    if (not ifcontrol) then begin
-      CScore[C]:=0;
-      if (PT > 0) then begin
-        CScore[C]:=CScore[C] + (PT*5);
-      end;
-      if DoesBorderMe(C) Then begin
-        CScore[C]:=CScore[C]+150;
-      end;
-      E:=0;
-      for X:=1 to CTerritoriesCount(C) do begin
-        T:=CTerritory(C,X);
-        if (not(TOwner(T)=PMe)) and (TArmies(T)>1) then begin
-          if (E=0) or (E=TOwner(T)) then begin
-            E:=TOwner(T);
-          end else begin
-            E:=100;
-          end;
-        end;
-      end;
-      if E <> 100 then CScore[C]:=CScore[C]+75;
-      if E = ThreatPlayer then CScore[C]:=CScore[C]+50;
-      if (COwner(C)>0) Then begin
-        CScore[C]:=CScore[C]+50;
-        if COwner(C)=ThreatPlayer then CScore[C]:=CScore[C]+50;
-      end;
-      CScore[C]:=CScore[C]-EA;
-      for X:=1 to CTerritoriesCount(C) do begin
-        T:=CTerritory(C,X);
-        if TIsMine(T) and (MyConnected[T] = 0) then begin
-          CScore[C]:=CScore[C]+TArmies(T);
-        end;
-      end;
-      if CScore[C]>MaxTerritoryValue then begin
-        MaxTerritoryValue:=CScore[C];
-        MyAttackC:=C;
-      end;
-    end;
-  end;
-  calcDistanceToAttackFront();
-end;
-
-function MyCTerr(Territory: integer): boolean;
-begin
-  result:=false;
-  if COwner(TContinent(Territory))=PMe then begin
-    result:=true;
-  end;
-  if TContinent(Territory)=MyAttackC then begin
-    result:=true;
-  end;
-end;
-
-function OnlyForeignTerrInC(Territory: integer): boolean;
-var
-  C,E,X,CT: integer;
-begin
-  result:=true;
-  C:=TContinent(Territory);
-  for X:=1 to CTerritoriesCount(C) do begin
-    CT := CTerritory(C,X);
-    if CT <> Territory then begin
-       if E=0 then begin
-         E:=TOwner(CT);
-       end else begin
-         if E<>TOwner(CT) then begin
-           result:=false;
-         end;
-       end;
-    end;
-  end;
-end;
-
-
-
-function CalcEnemyAreas(C:integer): integer;
-var
-  T1,T2,X,Y,EnemCount:integer;
-  loopcontrol:boolean;
-  EnemAreas:array of integer;
-begin
-  loopcontrol:=false;
-  SetArrayLength(EnemAreas,13);
-  for X:=1 to CTerritoriesCount(C) do begin
-    if not (MineArmies[CTerritory(C,X)]) then begin
-      EnemAreas[X]:=X;
-    end else begin
-      EnemAreas[X]:=0;
-    end;
-  end;
-  while loopcontrol=false do begin    
-    loopcontrol:=true;
-    for X:=1 to CTerritoriesCount(C) do begin
-      for Y:=1 to CTerritoriesCount(C) do begin
-        T1:=CTerritory(C,X);
-        T2:=CTerritory(C,Y);
-        if (X<>Y) and (not MineArmies[T1]) and (not (MineArmies[T2])) then begin
-          if (TIsBordering(T1,T2)) then begin
-            if EnemAreas[X] < EnemAreas[Y] then begin
-              EnemAreas[X]:=EnemAreas[Y];
-              loopcontrol:=false;
-            end;
-            if EnemAreas[X] > EnemAreas[Y] then begin
-              EnemAreas[Y]:=EnemAreas[X];
-              loopcontrol:=false;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  EnemCount:=0;
-  for X:=1 to CTerritoriesCount(C) do begin
-    if (EnemAreas[X]=X) then begin
-      EnemCount:=EnemCount+1;
-    end;
-  end;
-  result:=EnemCount;
-end;
-
-function protectweakspots(var ToTerritory:Integer): boolean;
-var
-  Weakest,WeakestMargin,WeakestValue,T,T2,X:integer;
-  FWMargin,WeakestTerr:integer;
-begin
-  result:=false;
-  FWMargin:=-1000000;
-  for T:=1 to 42 do begin
-    WeakestValue:=1000000;
-    Weakest:=0;
-    if (not MineArmies[T]) then begin
-      for X:=1 to (TBordersCount(T)) do begin
-        T2:=TBorder(T,X);
-        if MineArmies[T] <> MineArmies[T2] then begin
-          if MyArmiesMap[T2]< WeakestValue then begin
-            WeakestValue:=MyArmiesMap[T2];
-            WeakestMargin:=MyArmiesMap[T]-MyArmiesMap[T2];
-            if MineArmies[T2] then begin
-              Weakest:=PMe;
-            end else begin
-              Weakest:=Towner(T2);
-            end;
-            WeakestTerr:=T2;
-          end;
-        end;
-      end;
-      if Weakest=PMe then begin
-        result:=true;
-        if WeakestMargin>FWMargin then begin
-          ToTerritory:=WeakestTerr;
-          FWMargin:=WeakestMargin;
-        end;
-      end;
-    end;
-  end;
-end;
-
-function NastyPlayer(var C,C2,P:Integer): boolean;
-var
-  control: boolean;
-begin
-  control:=false;
-  if StartTurnPlayerCScore[P] > (StartTurnPlayerCScore[PMe] + 1) then begin
-    control:=true;
-  end;
-//  if (COwner(C2) <> PMe) and (COwner(C2) > 0) then begin
-//    control:=true;
-//  end;
-//  if (PProgram(P)='raptorbot.trp') then begin
-//    control:=false;
-//  end;
-//  if (PProgram(P)='shy.trp') then begin
-//    control:=false;
-//  end;
-//  if (PProgram(P)='zotob.trp') and (C2 <> 2) then begin
-//    control:=false;
-//  end;
-//  if (PProgram(P)='vexer.trp') and (C2 <> 2) then begin
-//    control:=false;
-//  end;
-//  if (PlayerScore(P) > PlayerScore(PMe)+1 ) then begin
-//    control:=true;
-//  end;
-  if ((StartTurnPlayerScore[P] >= StartTurnPlayerScore[PMe] ) or (StartTurnPlayerCScore[P]>6)) and ((P=MrBig) or (PMe=MrBig)) then begin
-    control:=true;
-  end;
-  result:=control;
-end;
-
-procedure AttackPlayer(P:integer; var FromTerritory,ToTerritory:Integer);
-var
-  T, T2, D: integer;
-begin
-      MaxTerritoryValue:=-100000;
-  //    if (PArmiesCount(PMe)=mrsecondarmies) and (PArmiesCount(PMe)<mrbigarmies) then begin
-        for T:=1 to 42 do begin
-          if TIsMine(T) and (TArmies(T)>3) then begin
-            for T2:=1 to TFrontsCount(T) do begin
-              D:=TFront(T,T2);
-              if TOwner(D)=P then begin
-//                l('KA GVA From ' + i(T) + ' To ' + i(D) + ' FA ' + i(TArmies(T)) + ' TA ' + i(TArmies(D)));
-                if (TArmies(T)-TArmies(D)) > MaxTerritoryValue then begin
-                  MaxTerritoryValue:=TArmies(T)-TArmies(D);
-                  FromTerritory:=T;
-                  ToTerritory:=D;
-                end;
-              end;
-            end;
-          end;
-  //      end;
-      end;
-      if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-        l('Kill Attack F ' + i(FromTerritory) + ' T ' + i(ToTerritory));
-      end;
-end;
-
-procedure KillPlace(var ToTerritory:Integer);
-var
-  MaxTerritoryValue:integer;
-begin
-  if KP2009>0 then begin
-    l('KP2009 ' + i(KP2009));
-    if ArePlayersConnected(PMe,KP2009) then begin
-      MaxTerritoryValue:=0;
-      for T:=1 to 42 do begin
-        if TIsMine(T) and TerrPlayerBordering(T,KP2009) then begin
-          if TArmies(T)> MaxTerritoryValue then begin
-            MaxTerritoryValue:=TArmies(T);
-            ToTerritory:=T;
-            UBufferSet(98,T);
-          end;
-        end;
-      end;
-      if (ToTerritory>0) then begin
-        l('APlace ' + i(ToTerritory));
-      end;
-    end;
-  end;
-end;
-
-procedure DefensivePlace(var ToTerritory:Integer);
-var
-  overallvuln,maxvuln,newoverallvuln,newmaxvuln,NScore,Score:integer;
-begin
-  setupmymaps();
-  calculateoverallvuln(overallvuln,maxvuln);
-  if (overallvuln <> 0) or (maxvuln <> 0) then begin
-    l('POV '+ i(overallvuln)+' PMV '+i(maxvuln));
-    Score:=0;
-    for T:=1 to 42 do begin
-      If TisMine(T) and (MyCTerr(T)) then begin
-        setupmymaps();
-        MyArmiesMap[T]:=MyArmiesMap[T]+1;
-        calculateoverallvuln(newoverallvuln,newmaxvuln);
-        NScore:=((maxvuln-newmaxvuln)*10) + (overallvuln-newoverallvuln)
-        if NScore >= Score then begin
-          if NScore=Score then begin
-            if (TDistancetofront(T)<TDistanceToFront(ToTerritory)) then begin
-              ToTerritory:=T;
-            end;
-          end else begin
-            Score:=NScore;
-            ToTerritory:=T;
-          end;
-        end;                    
-      end;
-    end;
-    if (ToTerritory>0) then l('Defensive place ' + i(ToTerritory) + ' ' + floattostr(Score)); 
-  end;
-end;
-
-
-
-procedure FindSensibleAttack(var FromTerritory,ToTerritory:Integer);
-var
-  T,T2: integer;
-  MaxTerritoryValue,TerritoryValue: integer;
-  PossAttackTerritory: integer;
-  MyBorders,EnemyAreas,NewEnemyAreas:integer;
-begin
-  setupmymaps();
-  MaxTerritoryValue:=-10000;
-  l('SMAC ' + i(MyAttackC) + ' PAT ' + i(PossAttackTerritory) + ' EA ' + i(EnemyAreas) + ' NEA ' + i(NewEnemyAreas));
-  for T:=1 to 42 do begin
-    if TIsMine(T) then begin
-      for T2:=1 to TFrontsCount(T) do begin
-        PossAttackTerritory:=TFront(T,T2);
-        l('FMAC ' + i(MyAttackC) + ' PAT ' + i(PossAttackTerritory) + ' EA ' + i(EnemyAreas) + ' NEA ' + i(NewEnemyAreas));
-        if (TContinent(PossAttackTerritory)=MyAttACkC) then begin
-          setupmymaps();
-          EnemyAreas:=CalcEnemyAreas(MyAttackC);
-          MyArmiesMap[PossAttackTerritory]:=3;
-          MineArmies[PossAttackTerritory]:=True;
-          MyArmiesMap[T]:=TArmies(T)+2-TArmies(PossAttackTerritory);
-          NewEnemyAreas:=CalcEnemyAreas(MyAttackC);
-          l('MAC ' + i(MyAttackC) + ' PAT ' + i(PossAttackTerritory) + ' EA ' + i(EnemyAreas) + ' NEA ' + i(NewEnemyAreas));
-          if (EnemyAreas >= NewEnemyAreas) then begin
-            MyBorders:=calcMyBorders()
-            TerritoryValue:=0 - (MyBorders+TArmies(PossAttackTerritory));
-            if TerritoryValue > MaxTerritoryValue then begin
-              l('Border Value T ' + i(T) + ' PATer ' + i(PossAttackTerritory) + ' TV ' + i(TerritoryValue));
-              MaxTerritoryValue:=TerritoryValue;
-              FromTerritory:=T;
-              ToTerritory:=PossAttackTerritory;
-            end;
-          end;
-        end;                  
-      end;
-    end;
-          
-  end;
-end;
-
-procedure SpreadAttack(var FromTerritory,ToTerritory:integer);
-var
-  PossAttackCountry:integer;
-begin
-  l('Spread Attack Start');
-  For T:=1 to 42 do begin
-    if (TIsMine(T)  and (TArmies(T) > 5) and TIsFront(T)) then begin
-      for T2:=1 to TFrontsCount(T) do begin
-        PossAttackCountry:=Tfront(T,T2);
-        if TArmies(PossAttackCountry)=1 then begin
-          FromTerritory:=T;
-          ToTerritory:=PossAttackCountry;
-        end;
-      end;
-    end;
-  end;
-end;
-
-
-procedure BorderAttack(var FromTerritory,ToTerritory:integer);
-var
-  T,Y:integer;
-begin
-  for C:=1 to 6 do begin
-    if COwner(C) = PMe then begin
-//      l('Border Attack ? ' + i(C));
-      for C2:=1 to 6 do begin
-        if AreContinentsConnected(C,C2) and (COwner(C2)>0) and (COwner(C2) <> PMe) then begin
-          Y:=COwner(C2);
-          if NastyPlayer(C,C2,Y) then begin
-//            l('Border Attack 2 ? ' + i(C) + ' ' + i(C2));
-            MaxTerritoryValue:=0;
-            for X:=1 to CEntriesCount(C) do begin
-              T:=CEntry(C,X);
-              Y:=0;
-              for D:=1 to TBordersCount(T) do begin;
-                if (TOwner(TBorder(T,D)) <> COwner(C2)) and (TOwner(TBorder(T,D)) <> PMe) then begin
-                  if TArmies(TBorder(T,D)) > Y then begin
-                    Y:=TArmies(TBorder(T,D));
-                  end;
-                end;
-              end;
-              for D:=1 to TBordersCount(T) do begin;
-                T2:=TBorder(T,D);
-                if TContinent(T2) = C2 then begin
-                  if (TArmies(T) - TArmies(T2) - Y) > MaxTerritoryValue then begin
-                    MaxTerritoryValue:=TArmies(T)-TArmies(T2)-Y;
-                    FromTerritory:=T;
-                    ToTerritory:=T2;
-//                    l('Border Attack 3 ? ' + i(C) + ' ' + i(C2));
-                  end;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-    l('Border Attack F ' + i(FromTerritory) + ' T ' + i(ToTerritory));
-  end;
-end;
-
-procedure BigAttack(var FromTerritory,ToTerritory:integer);
-var
-  PossAttackCountry,MyBorders,TerritoryValue,MaxTerritoryValue:integer;
-begin
-//  l('Big Attack Start me '+ i(PArmiesCount(PMe))+ ' mrs ' + i(mrsecondarmies) + ' psm ' + i(PlayerScore(PMe)));
-  If (PArmiesCount(Pme)>mrsecondarmies) and (PlayerScore(PMe)> 4) and ((not SConquest) or ((mrbigarmies-mrsecondarmies)>10)) then begin
-    If (( not (StartTurnPlayerScore[PMe] = StartTurnPlayerScoreOrdered[1])) or ((PArmiesCount(PMe)-mrsecondarmies)>((StartTurnPlayerScoreOrdered[1]-StartTurnPlayerScoreOrdered[2])*10))) then begin
-      MaxTerritoryValue:=-100000;
-      For T:=1 to 42 do begin
-        if (TIsMine(T)  and (TArmies(T) > 3) and TIsFront(T)) then begin
-          if (TFrontsCount(T) = 1) or (TArmies(T)>TPressure(T)) then begin
-            for T2:=1 to TFrontsCount(T) do begin
-              PossAttackCountry:=Tfront(T,T2);
-  //                if ((TContinent(PossAttackCountry)=MyAttackC) or ((TContinent(T)<>MyAttackC) and (COwner(TContinent(T)) <> PMe))) then begin
-              if TContinent(PossAttackCountry)=MyAttackC then begin
-                setupmymaps();
-                MineArmies[PossAttackCountry]:=True;
-                MyBorders:=calcMyNewBorders(PossAttackCountry)
-                TerritoryValue:=0 - (MyBorders);
-                if TContinent(PossAttackCountry)=MyAttackC then begin
-                  TerritoryValue:=TerritoryValue+100;
-                end;
-                if (TerritoryValue > MaxTerritoryValue) then begin              
-//                 l('ABorder Value T ' + i(T) + ' PATer ' + i(PossAttackCountry) + ' TV ' + i(TerritoryValue));
-                  FromTerritory:=T;
-                  ToTerritory:=PossAttackCountry;
-                  MaxTerritoryValue:=TerritoryValue;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-      if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-        l('Big Attack F ' + i(FromTerritory) + ' T ' + i(ToTerritory));
-      end;
-    end;
-  end;
-end;
-
-procedure GeneralMACAttack(var FromTerritory,ToTerritory:integer);
-var
-  X,Y:integer;
-begin
-  //general attack in myattackC
-  X:=trunc(UBufferget(98));
-  Y:=trunc(UBufferget(97));
-  if Y > 0 then begin
-    If not TIsMine(Y) then begin
-      if (TArmies(X)> (TArmies(Y) + 11)) and ((PArmiesCount(PMe)-TArmies(Y)) > AverageEnemyArmies) then begin
-        FromTerritory:=trunc(UBufferGet(98));
-        ToTerritory:=trunc(UBufferGet(97));
-      end;
-    end;
-  end;
-  if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-    l('General MyAttackC Attack F ' + i(FromTerritory) + ' T ' + i(ToTerritory));
-  end;
-end;
-
-procedure OneAttack(var FromTerritory,ToTerritory:integer);
-var
-  T2:integer;
-begin
-  for T:=1 to 42 do begin
-    if TIsMine(T) and (TArmies(T)>2)then begin
-      for X:=1 to TFrontsCount(T) do begin
-        T2:=TFront(T,X);
-        if TArmies(T2)=1 then begin
-          FromTerritory:=T;
-          ToTerritory:=T2;
-        end;
-      end;
-    end;
-  end;
-  if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-    l('One Attack F ' + i(FromTerritory) + ' T ' + i(ToTerritory));
-  end;
-end;
-
-procedure ReduceVulnAttack(var FromTerritory,ToTerritory:integer);
-var
-  overallvuln, maxvuln, newoverallvuln, newmaxvuln: integer;
-begin
-  if PArmiesCount(PMe)>AverageEnemyArmies then begin
-    for T:=1 to 42 do begin
-      if TIsMine(T) and (TArmies(T)>2)then begin
-        for X:=1 to TFrontsCount(T) do begin
-          T2:=TFront(T,X);
-  //        l('2ReduceVuln Attack F ' + i(T) + ' T ' + i(T2)+ ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln));
-          if TArmies(T) > 11 then begin
-            setupmymaps();
-            calculateoverallvuln(overallvuln,maxvuln);
-            MyArmiesMap[T]:=TArmies(T)-1;
-            MyArmiesMap[T2]:=TArmies(T2)-1;
-            calculateoverallvuln(newoverallvuln,newmaxvuln);
-  //          l('3ReduceVuln Attack F ' + i(T) + ' T ' + i(T2)+ ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln));
-            if (maxvuln > newmaxvuln) or ((maxvuln=newmaxvuln) and (overallvuln>newoverallvuln)) then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-            end;
-          end;
-        end;
-      end;
-    end;
-    if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-      l('ReduceVuln Attack F ' + i(FromTerritory) + ' T ' + i(ToTerritory)+ ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln));
-    end;
-  end;
-end;
-
-procedure TroopsMove(FromTerritory, ToTerritory	: integer; var Armies: integer; var Value: double);
-var
-  X, FromStrongestFront, ToStrongestFront, TryTest: integer;
-  FairArmies, overallvuln, maxvuln, newoverallvuln, newmaxvuln: integer;
-  LowerBound, UpperBound, originalmaxvuln, originaloverallvuln: integer;
-  SetLowerBound: boolean;
-  control, loopcontrol: boolean;
-  FromIsFront, ToIsFront: boolean;
-  var newValue: double;
-begin
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  loopcontrol:=true;
-  If FromIsFront and ToIsFront then begin
-    control:=TStrongestFront(FromTerritory,X,FromStrongestFront);
-    control:=TStrongestFront(ToTerritory,X,ToStrongestFront);
-    FairArmies:=trunc((ToStrongestFront * TArmies(FromTerritory)) div (FromStrongestFront+ToStrongestFront));
-  end;
-  if (not ToIsFront) and (not FromIsFront) then begin
-    FairArmies:=trunc(TArmies(FromTerritory) div 2);
-  end;
-  setupmymaps();
-  calculateoverallvuln(originaloverallvuln,originalmaxvuln);
-  Armies:=0;
-  LowerBound:= SpreadLevel;
-  Upperbound:= TArmies(FromTerritory)-SpreadLevel;                       // Upperbound needs to be one more than the total possible so that the LowerBound has the possibility to be that value
-  while (UpperBound - LowerBound > 1) do begin           // loop until UpperBound - LowerBound = 1
-    SetLowerBound:= False;
-    TryTest:= ((UpperBound + LowerBound) div 2) ;        // instead of increasing by 1, check the middle value
-    MyArmiesMap[FromTerritory]:=TArmies(FromTerritory)-(TryTest-1);
-    MyArmiesMap[ToTerritory]:=TArmies(ToTerritory)+(TryTest-1);
-    calculateoverallvuln(overallvuln,maxvuln);
-    MyArmiesMap[FromTerritory]:=MyArmiesMap[FromTerritory]-1;
-    MyArmiesMap[ToTerritory]:=MyArmiesMap[ToTerritory]+1;
-    calculateoverallvuln(newoverallvuln,newmaxvuln);
-    if (newmaxvuln=maxvuln) and (newoverallvuln = overallvuln) then begin
-      if (DistanceToAttackFront[ToTerritory] = DistanceToAttackFront[FromTerritory]) then begin
-        if LowerBound < FairArmies then SetLowerBound:= True;
-      end;
-    end;
-    newValue:= ((originalmaxvuln-newmaxvuln)*1000) + ((originaloverallvuln-newoverallvuln)*10) + (DistanceToAttackFront[FromTerritory]-DistanceToAttackFront[ToTerritory])*TryTest;
-//    l('sss Trytest ' + i(Trytest) + ' F ' + i(FromTerritory) + ' T ' + i(ToTerritory) + ' FA '+ i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln) + ' dttf ' + i(DistancetoAttackfront[FromTerritory]) + ' dttt ' + i(DistanceToAttackFront[ToTerritory]) + ' origo ' + i(originaloverallvuln) + ' origm ' + i(originalmaxvuln) + ' nv ' + floattostr(newValue));
-    if (newValue> Value) or SetLowerBound then begin
-      Value:=newValue;
-      LowerBound:=TryTest;
-      Armies:=LowerBound;
-    end else begin
-      UpperBound:=TryTest;
-    end;
-  end;
-//  l('Oddupation F ' + i(FromTerritory) + ' T ' + i(ToTerritory) + ' FA '+ i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln) + ' a ' + i(Armies) + ' v ' + floattostr(Value) + ' origo ' + i(originaloverallvuln) + ' origm ' + i(originalmaxvuln));
-end;
-
-procedure preparevalues();
-var
-  X,Turn,T2,Score:integer;
-  Prog:String;
-  control:boolean;
-begin
-  Turn:=trunc(UBufferGet(150));
-  if (Turn=0) then begin
-    Turn:=20;
-  end;
-  Turn:=Turn+1;
-  sn('P');
-  UBufferset(150,Turn);
-  for T:=1 to 42 do begin
-    X:=trunc(UBufferGet(100+T));
-    if X <> 0 then begin
-      if TOwner(T) <> X then begin
-        UBufferset(150+T,Turn);
-      end;
-    end;
-  end;
-  for C:=1 to 6 do begin
-    StartTurnCOwner[C]:=COwner(C);
-  end;
-  for C:=1 to 6 do begin
-    if COwner(C) = PMe then begin
-      MyStartC[C]:=1;
-    end;
-  end;
-  aalive:=0;
-  dalive:=0;
-  ealive:=0;
-  AverageEnemyArmies:=0;
-  EnemiesAlive:=0;
-  Score:=0;
-  PlayersCount:=0;
-  for P:=1 to 10 do begin
-    if PAlive(P) then begin
-      PlayersCount:=PlayersCount+1;
-      X:=PlayerScore(P);
-      if ArePlayersConnected(P,PMe) and (X>Score) then begin
-        Score:=X;
-        ThreatPlayer:=P;
-      end;
-      if (P<>PMe) then begin
-        EnemiesAlive:=EnemiesAlive+1;
-        AverageEnemyArmies:=AverageEnemyArmies+PArmiesCount(P);
-      end;
-      Prog:=lowercase(PProgram(P));
-      if (pos('australian',Prog)>0) then aalive:=1;
-      if (Prog='descartes09.trp') then dalive:=1;
-      if (Prog='endeavour09.trp') then ealive:=1;
-      StartTurnPlayerScore[P]:=PlayerScore(P);
-      StartTurnPlayerCScore[P]:=PlayerCScore(P);
-      StartTurnPlayerScoreOrdered[P]:=PlayerScore(P);
-    end;
-  end;
-//  l('ThreatPlayer ' + i(ThreatPlayer));
-  AverageEnemyArmies:= AverageEnemyArmies div EnemiesAlive;
-  for P:=1 to 9 do begin
-    for X:=1 to (10-P) do begin
-      if StartTurnPlayerScoreOrdered[X]<StartTurnPlayerScoreOrdered[X+1] then begin
-        Y:=StartTurnPlayerScoreOrdered[X];
-        StartTurnPlayerScoreOrdered[X]:=StartTurnPlayerScoreOrdered[X+1];
-        StartTurnPlayerScoreOrdered[X+1]:=Y;
-      end;
-    end;
-  end;
-  if PlayerCScore(PMe) > 0 then begin
-    for C:=1 to 6 do begin
-      if COwner(C) = PMe then begin
-        for T:=1 to CTerritoriesCount(C) do begin
-          MyConnected[CTerritory(C,T)]:=1;
-        end;
-      end;
-    end;
-  end else begin
-    MaxTerritoryValue:=0;
-    for T:=1 to 42 do begin
-      if TIsMine(T) and (TArmies(T)>MaxTerritoryValue) then begin
-        T2:=T;
-        MaxTerritoryValue:=TArmies(T);
-      end;
-    end;
-    MyConnected[T2]:=1;
-  end;
-  control:=true
-  while control do begin
-    control:=false;
-    for T:=1 to 42 do begin
-      if MyConnected[T] = 1 then begin
-        for X:=1 to TBordersCount(T) do begin
-          T2:=TBorder(T,X);
-          if TIsMine(T) and (TArmies(T) > 1) and (MyConnected[T]=0) then begin
-            MyConnected[T]:=1;
-            control:=true;
-          end;
-        end;
-      end;
-    end;
-  end;
-  calcMyAttackC();
-  l('Turn ' + i(Turn) + ' Start armies ' + i(PArmiesCount(PMe)) + ' Mr Big has ' + i(mrbigarmies) + ' Mr 2 has ' + i(mrsecondarmies) + ' Big Score ' + i(PlayerScore(MrBig)) + ' Me Score ' + i(PlayerScore(PMe)) + ' MyAttackC ' + i(MyAttackC));
-  if ((PlayerScore(PMe) > TotalEnemyScore()) and (PlayersCount>2))then begin
-    X:= (PlayerScore(PMe) - StartTurnPlayerScoreOrdered[2])*10;
-    if X > 100 then X:=100; 
-    if (PArmiesCount(PMe) > mrsecondarmies + X) then begin
-      DomAttack:=True;
-      l('DomAttack');
-    end else begin
-      DomAccumulate:=True;
-      l('DomAccumulate');
-    end;
-  end;
-end;
-
-procedure Assignment(var ToTerritory: integer);
-var
-  T,Y,Z: integer;
-  MaximumValue,Value:integer;
-begin
-  MaximumValue:=-1000;
-  ToTerritory:=0;
-  for T:=1 to 42 do begin
-    if TOwner(T)=0 then begin
-      Value:=0;
-      if (T<39) then
-        Value:=Value+10;
-      Y:=TBordersCount(T);
-      for Z:=1 to Y do begin
-        if (not TIsMine(TBorder(T,Z))) then Value:=Value+1;
-      end;
-      if (Value>=MaximumValue) then begin
-        MaximumValue:=Value;
-        ToTerritory:=T;
-      end;
-    end;
-//  end;
-  end; // end "if PProgram(PMe) = ..."
-end; // end procedure Assignment
-
-procedure Placement(var ToTerritory: integer);
-var
-  T,X,Y,T2,C,P: integer;
-  Score, NScore: double;
-  MaxTerritoryValue,TerritoryValue: integer;
-  ET,EA:integer;
-  PlacementTerritory, AttackTerritory, PossAttackTerritory,possvulnlevel: integer;
-  control:boolean;
-  MyFronts,MyBorders:integer;
-  MinMaxDistance,MinOverallDistance:integer;
-  overallvuln, maxvuln, newoverallvuln,newmaxvuln: integer;
-  lessmax,lessoverall:Boolean;
-begin
-//  if not FinisherPlacement(ToTerritory) then begin
-////
-  routine:=1;
-  calculatebigarmies();
-  lastturnfrom:=trunc(UBufferGet(148));
-  lastturnto:=trunc(UBufferGet(149));
-  SetArrayLength(MyArmiesMap,43);
-  SetArrayLength(MineArmies,43);
-  SetArrayLength(ValIndex,43);
-  SetArrayLength(ValProtection,43);
-  SetArrayLength(MyConnected,43);
-  SetArrayLength(StartTurnCOwner,7);
-  SetArrayLength(MyStartC,7);
-  SetArrayLength(StartTurnPlayerScore,11);
-  SetArrayLength(StartTurnPlayerCScore,11);
-  SetArrayLength(StartTurnPlayerScoreOrdered,11);
-  setArrayLength(DistanceToAttackFront,43);
-  PlacementTerritory:=0;
-  AttackTerritory:=0;
-  ToTerritory:=0;
-  if (COwner(MyAttackC)=PMe) then begin
-    calcMyAttackC();
-    l('MyAttackC ' + i(MyAttackC));
-  end;
-  if (bg(99) = 0) or (bg(100) = 0) then begin
-    preparevalues();
-  end;
-  if PArmiesCount(PMe) < 10 then begin
-    UBufferset(99,99);
-    ubufferset(98,0);
-    ubufferset(97,0);
-  end;
-  if (PlayerScore(PMe)< 5) then begin
-    if ( pos('endeavour', lowercase(PProgram(PMe))) > 0 ) then begin                
-      EndeavourPlacement(ToTerritory);
-    end else begin
-      MinnowWhere(ToTerritory,X);
-    end;
-    ubufferset(99,1);
-    ubufferset(98,0);
-    ubufferset(97,0);
-  end else begin
-    ToTerritory:=0;
-    If (trunc(UBufferGet(99)) = 0) then begin
-      //I think this is the first run
-      ubufferset(99,1);
-      ubufferset(98,0);
-      ubufferset(97,0);
-      killreason:=0;
-      //Endgame Play
-      if DomAttack then begin
-        KP2009:=endgameplay();
-        if KP2009 > 0 then begin
-          killreason:=1;
-          calcDistanceToAttackFront();
-        end;
-      end;
-      //Kill Play
-      if KP2009 = 0 then begin
-        KP2009:=shallikillaplayer();
-        if KP2009 > 0 then begin
-          killreason:=2;
-          calcDistanceToAttackFront();
-        end;
-      end;
-      if DomAttack or DomAccumulate then begin
-        if (killreason=2) then KillPlace(ToTerritory);
-        if ToTerritory=0 then DefensivePlace(ToTerritory);
-        if ToTerritory=0 then KillPlace(ToTerritory);
-      end else begin
-        KillPlace(ToTerritory);
-        if ToTerritory=0 then DefensivePlace(ToTerritory);
-      end;
-      UBufferSet(98,ToTerritory);
-    end;
-    If trunc(UBufferGet(98)) > 0 then begin
-      ToTerritory:=trunc(Ubufferget(98));
-    end else begin
-      setupmymaps();
-      MaxTerritoryValue:=-10000;
-      for T:=1 to 42 do begin
-        if TIsMine(T) then begin
-          for X:=1 to TFrontsCount(T) do begin
-            PossAttackTerritory:=TFront(T,X);
-            if (TContinent(PossAttackTerritory)=MyAttackC) and (TArmies(T)+2-TArmies(PossAttackTerritory) > 0) then begin 
-              setupmymaps();
-              MyArmiesMap[PossAttackTerritory]:=3;
-              MineArmies[PossAttackTerritory]:=True;
-              MyArmiesMap[T]:=TArmies(T)+2-TArmies(PossAttackTerritory);
-              control:=calculatevuln();
-              possvulnlevel:=0;
-              if COwner(6)=PMe then begin
-                possvulnlevel:=AttackArmies[39];
-              end else begin
-                if COwner(2)=PMe then begin
-                  if (AttackArmies[10]) < AttackArmies[12] then begin
-                    possvulnlevel:=AttackArmies[10];
-                  end else begin
-                    possvulnlevel:=AttackArmies[12];
-                  end;
-                end;
-              end;
-              MyFronts:=calcMyFronts();
-              MyBorders:=calcMyNewBorders(PossAttackTerritory)
-              TerritoryValue:=0 - (MyBorders);
-              if TerritoryValue > MaxTerritoryValue then begin
-//                l('XCCT ' + i(T) + ' PAT ' + i(PossAttackTerritory) + ' TV ' + i(TerritoryValue) + ' possvulnlevel ' + i(possvulnlevel));
-                MaxTerritoryValue:=TerritoryValue;
-                PlacementTerritory:=T;
-                if possvulnlevel <= 0 then begin
-                  AttackTerritory:=PossAttackTerritory;
-//                  l('Attack On');
-                end else begin
-                  AttackTerritory:=0;
-//                  l('Attack0');
-                end;
-    	      end;
-            end;                  
-          end;
-        end;
-      end;
-      if (PlacementTerritory > 0) then l('General MAC attack placement From ' + i(PlacementTerritory) + ' To ' + i(AttackTerritory) + ' val ' + i(MaxTerritoryValue));
-      if (PlacementTerritory = 0) then begin
-        l('Second Last Option Placement');
-        Score:=-1000;
-        for T:=1 to 42 do begin
-          for X:=1 to TFrontsCount(T) do begin
-            T2:=TFront(T,X);
-            if (TISMine(T) and TIsFront(T) and MyCTerr(T) and (TContinent(T2)=MyAttackC)) then begin
-              PossAttackTerritory:=TFront(T,T2);
-              control:=TStrongestFront(T,ET,EA);
-              if EA / TArmies(T) > Score then begin
-                Score:= EA/TArmies(T);
-                PlacementTerritory:=T;
-              end;
-            end;
-          end;
-        end;
-      end;
-      if (PlacementTerritory = 0) then begin
-        l('Last Option Placement');
-        Score:=-1000;
-        for T:=1 to 42 do begin
-          for X:=1 to TFrontsCount(T) do begin
-            T2:=TFront(T,X);
-            if (TISMine(T) and TIsFront(T) and (TContinent(T2)=MyAttackC)) then begin
-              PossAttackTerritory:=TFront(T,T2);
-              control:=TStrongestFront(T,ET,EA);
-              if EA / TArmies(T) > Score then begin
-                Score:= EA/TArmies(T);
-                PlacementTerritory:=T;
-              end;
-            end;
-          end;
-        end;
-      end;
-      if PlacementTerritory>0 then begin      
-        UBufferSet(98,PlacementTerritory);
-        UBufferSet(97,AttackTerritory);
-        ToTerritory:=PlacementTerritory;
-        l('Placeplan ' + i(PlacementTerritory) + ' ' + i(AttackTerritory));
-      end;
-    end;
-          
-  end;
-  UBufferset(148,ToTerritory);
-  UBufferSet(149,99);
-
-  UBufferset(99,1);
-//  end; // end "if not FinisherPlacement..."
-end; // end procedure Placement
-  
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  T,X,T2,D,C,C2,Y: integer;
-  MaxTerritoryValue,TerritoryValue: integer;
-  PossAttackCountry: integer;
-  myborders:integer;
-  control:boolean;
-begin
-  routine:=2;
-//  if not FinisherAttack(FromTerritory, ToTerritory) then begin
-  UBufferSet(100,1);
-  lastturnfrom:=trunc(UBufferGet(148));
-  lastturnto:=trunc(UBufferGet(149));
-  calculatebigarmies();
-  if (trunc(UBufferGet(99))=99) then UBufferSet(99,1);
-  UBufferSet(50,3);
-  FromTerritory:=0;
-  ToTerritory:=0;
-  PlayersCount:=0;
-  for X:=1 to 10 do begin
-    if PAlive(X) then begin
-      PlayersCount:=PlayersCount+1;
-    end;
-  end;
-  if (PlayerScore(PMe)> 4) then begin
-    if DomAttack then begin
-      X:= (PlayerScore(PMe) - StartTurnPlayerScoreOrdered[2])*10;
-      if X > 100 then X:=100; 
-      if (PArmiesCount(PMe) > mrsecondarmies + X) then AttackPlayer(KP2009,FromTerritory,ToTerritory);
-    end;
-    if DomAccumulate then begin
-      if (FromTerritory=0) and (not Sconquest) then OneAttack(FromTerritory,ToTerritory);            
-    end;
-    if (not DomAttack) and (not DomAccumulate) then begin
-      if (killreason = 1) then begin
-        if not (PArmiesCount(PMe)>mrsecondarmies+10) then begin
-          killreason:=0;
-          KP2009:=0;
-        end;
-      end;
-      X:=shallikillaplayer();
-      if KP2009 <> X then begin
-        KP2009:=X;
-        calcDistanceToAttackFront();
-      end;
-      if KP2009 > 0 then AttackPlayer(KP2009,FromTerritory,ToTerritory);
-      if (FromTerritory=0) then BorderAttack(FromTerritory,ToTerritory);
-      if (FromTerritory=0) then ReduceVulnAttack(FromTerritory,ToTerritory);            
-      if (FromTerritory=0) then BigAttack(FromTerritory,ToTerritory);    
-      if (FromTerritory=0) and (not Sconquest) then GeneralMACAttack(FromTerritory,ToTerritory);
-      if (FromTerritory=0) and (not Sconquest) then OneAttack(FromTerritory,ToTerritory);            
-    end;
-  end else begin
-    If (PArmiesCount(PMe) = mrsecondarmies) and (PlayerScore(MrBig) > 4) then begin
-      AttackPlayer(MrBig,FromTerritory,ToTerritory);
-    end;
-    if (ToTerritory = 0) then begin  
-      if ( pos('endeavour', lowercase(PProgram(PMe))) > 0 ) then begin                
-        endeavourAttack(FromTerritory,ToTerritory);
-      end else begin
-        oldAttack(FromTerritory,ToTerritory);
-      end;
-    end;
-
-    if ToTerritory=0 then FromTerritory:=0;
-  end;
-  if (ToTerritory=0) and (not SCardsBasedonCombo) and (not SConquest) then begin
-    MaxTerritoryValue:=10000;
-    for T:=1 to 42 do begin
-      if TIsMine(T) and (TArmies(T) > 1) then begin
-        for X:=1 to TFrontsCount(T) do begin
-          T2:=TFront(T,X);
-          if TArmies(T2)<MaxTerritoryValue then begin
-            FromTerritory:=T;
-            ToTerritory:=T2;
-            MaxTerritoryValue:=TArmies(T2);
-            l('Last Option');
-          end;
-        end;
-      end;
-    end;
-  end;
-  UBufferset(148,FromTerritory);
-  UBufferSet(149,ToTerritory);
-  if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-//    l('AAATF ' + i(FromTerritory) + ' TA ' + i(ToTerritory) + ' A ' + i(TArmies(FromTerritory))+ ' VI ' + i(ValIndex[ToTerritory])+' D ' + i(D));
-  end;
-//  end; // end "if not FinisherAttack..."
-end; // end procedure Attack
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-  T:integer;
-  Value:double;
-  X,KillPlayer: integer;
-  FairArmies,overallvuln,newoverallvuln,maxvuln,newmaxvuln:Integer;
-  TryTest,FromStrongestFront,ToStrongestFront:Integer;
-  loopcontrol,control,ifcontrol:Boolean;
-begin
-//  if not FinisherOccupation(FromTerritory, ToTerritory, Armies) then begin
-//  l('Occupation Start');
-  calcmyattackc();
-  if (killreason = 2) then begin
-    if PlayerScore(KP2009) < StartTurnPlayerScore[PMe] then begin
-      KP2009:=0;
-      killreason:=0;
-      l('No longer killing ' + i(KP2009));
-    end;
-  end;
-  ifcontrol:=false;
-  if (not ifcontrol) then begin
-  if (PlayerScore(PMe) > 4) then begin
-      TroopsMove(FromTerritory,ToTerritory,Armies,Value);
-  end else begin
-      if ( pos('endeavour', lowercase(PProgram(PMe))) > 0 ) then begin                
-        endeavourOccupation(FromTerritory,ToTerritory,Armies);
-      end else begin
-        oldOccupation(FromTerritory,ToTerritory,Armies);
-      end;
-  end;
-  end;
-  //Spread Override
-  if (SpreadLevel > 0) and (PlayerScore(PMe)> 4) then begin
-    if (TArmies(FromTerritory)-Armies) < SpreadLevel then begin
-      l ('Spread Override');
-      if (TArmies(FromTerritory)>SpreadLevel) then begin
-        Armies:=TArmies(FromTerritory) - SpreadLevel;
-      end else begin
-        Armies:=0;
-      end;
-    end;
-  end;
-
-//  end; // end "if not FinisherOccupation..."
-  if ((TContinent(FromTerritory)=2) and (TContinent(ToTerritory)=2)) then begin
-    l('Armies being moved' + i(Armies));
-  end;
-end; // end procedure Occupation
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  X,T,T2,B,Dest,MaxArmy,D,D2: integer;
-  ArmySize: integer;
-  Value, MaxValue: double;
-  overallvuln, maxvuln, newoverallvuln,newmaxvuln: integer;
-  control,loopcontrol:Boolean;
-  MaxTerritoryValue,currentFrom,currentdest:Integer;
-  FromValue,ToValue:double;
-begin
-  sn('f');
-  calcmyattackc();
-  ubufferset(99,0);
-//  if not FinisherFortification(FromTerritory, ToTerritory, Armies) then begin
-//  l('Fortify routine AttackC is still ' + i(MyAttackC));
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-  MaxArmy:=0;
-  MaxValue:=0;
-  setupmymaps();
-  if ((FromTerritory=0) and (PlayerScore(PMe)> 4)) then begin
-    calculateoverallvuln(overallvuln,maxvuln);
-    if (overallvuln <> 0) or (maxvuln <> 0) then begin
-      l('COV '+ i(overallvuln)+' CMV '+i(maxvuln));
-    end;
-    for T:=1 to 42 do begin
-      If TisMine(T) then begin
-        if Tarmies(T) > (Spreadlevel + 1) then begin
-          for T2:= 1 to TBordersCount(T) do begin
-            Dest:=TBorder(T,T2);
-            IF TIsMine(Dest) then begin
-              setupmymaps();
-              calculateoverallvuln(overallvuln,maxvuln);
-              MyArmiesMap[T]:=MyArmiesMap[T]-1;
-              MyArmiesMap[Dest]:=MyArmiesMap[Dest]+1;
-              calculateoverallvuln(newoverallvuln,newmaxvuln);
-//              l('EFort From ' + i(T) + ' To ' + i(Dest) + ' Armies ' + i(ArmySize)+ ' Fa ' + i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln) + ' value ' + floattostr(value));
-              if ((maxvuln>0) and (newmaxvuln< maxvuln))
-              or (((overallvuln>0) and (newoverallvuln< overallvuln)) and (maxvuln=newmaxvuln))
-              or ((maxvuln=newmaxvuln) and (overallvuln=newoverallvuln) and (DistanceToAttackFront[dest]<DistanceToAttackFront[T])) then begin
-                ArmySize:=0;
-                Value:=0;
-                TroopsMove(T,Dest,ArmySize,Value);
-//                l('KFort From ' + i(T) + ' To ' + i(Dest) + ' Armies ' + i(ArmySize)+ ' Fa ' + i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln) + ' value ' + floattostr(value));
-                if Value > MaxValue then begin
-                  FromTerritory:=T;
-                  ToTerritory:=Dest;
-                  Armies:=ArmySize;
-                  MaxValue:=Value;
-                  l('JFort From ' + i(FromTerritory) + ' To ' + i(ToTerritory) + ' Armies ' + i(Armies)+ ' Fa ' + i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln) + ' value ' + floattostr(value));
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  if (FromTerritory=0) and (PlayerScore(PMe)=3) then begin
-    D:=0;
-    for T:=1 to 42 do begin
-      if TIsMine(T) and (TArmies(T)>1) then begin
-        Y:=TBordersCount(T);
-        for Z:=1 to Y do begin  
-          T2:=TBorder(T,Z);
-          if TIsMine(T2) then begin
-            D2:=TArmies(T)-ValIndex[T2];
-            if (D2>D) then begin
-              D:=D2;
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              Armies:=TArmies(T)-1;
-              l('Desire Fort ' + i(FromTerritory) + ' TA ' + i(ToTerritory) + ' A ' + i(TArmies(FromTerritory))+ ' VI ' + i(ValIndex[ToTerritory])+' D ' + i(D));
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-
-  if ((FromTerritory=0) or (not SCardsBasedonCombo)) and (PlayerScore(PMe)<5) then begin
-    MaxValue:=0;
-    for T:=1 to 42 do begin
-      if TIsMine(T) and (TArmies(T) > 1) then begin
-        for X:=1 to TBordersCount(T) do begin
-          T2:=TBorder(T,X);
-          if TIsMine(T2) then begin
-            FromValue:=LoneTerritoryValue(T);
-            ToValue:=LoneTerritoryValue(T2);
-            if ((ToValue-FromValue)*TArmies(T))>MaxValue then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              Armies:=TArmies(T)-1;
-              MaxValue:=((ToValue-FromValue)*TArmies(T));
-              l('LTVFort From ' + i(FromTerritory) + ' To ' + i(ToTerritory) + ' Armies ' + i(Armies)+ ' Fa ' + i(TArmies(FromTerritory)) + ' maxvalue ' + floattostr(maxvalue));
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;            
- 
-  l('End Turn armies ' + i(PArmiesCount(PMe)));
-  for T:=1 to 10 do begin
-    UBufferSet(80+T,PArmiesCount(T))
-  end;
-  if (COwner(2)=PMe) then begin
-    if (TArmies(13)>1) or (TArmies(11)>1) then begin
-       l('EEEFort From ' + i(FromTerritory) + ' To ' + i(ToTerritory) + ' Armies ' + i(Armies)+ i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln));
-    end;
-  end;
-  if (COwner(6)=PMe) then begin
-    if (TArmies(40)>1) or (TArmies(41)>1) or (TArmies(42)>1) then begin
-       l('EEEFort From ' + i(FromTerritory) + ' To ' + i(ToTerritory) + ' Armies ' + i(Armies)+ i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln));
-    end;
-  end;
-
-  if (SpreadLevel > 0) and (PlayerScore(PMe)> 4) then begin
-    if (TArmies(FromTerritory)-Armies) < SpreadLevel then begin
-      l ('fort Spread Override');
-      if (TArmies(FromTerritory)>SpreadLevel) then begin
-        Armies:=TArmies(FromTerritory) - SpreadLevel;
-      end else begin
-        Armies:=0;
-        FromTerritory:=0;
-        ToTerritory:=0;
-      end;
-    end;
-  end;
-
-  for T:=1 to 42 do begin
-    if TArmies(T) > 1 then begin
-      UBufferset(100+T,TOwner(T));
-    end else begin
-      UBufferset(100+T,0);
-    end;
-  end;
-
-end; // end procedure Fortification
-begin
-end.
\ No newline at end of file
diff --git a/Players/borg.trp b/Players/borg.trp
deleted file mode 100644
index db94a5b..0000000
--- a/Players/borg.trp
+++ /dev/null
@@ -1,322 +0,0 @@
-{
-Program: Borg
-
-Author: Greg
-
-Description: It cooperates with other players with the same program name.
-}
-
-procedure Assignment(var ToTerritory: integer);
-var
-T,TT,T2,EA,ET,PT,PA,C,MinTer: integer;
-begin
-
-
-ToTerritory:=0;
-for T:=1 to 42 do
-begin
-for T2:=1 to 42 do
-begin
-TT:=43-T2;
-if (TOwner(T)=0)  then
-if (TOwner(TT)=PMe) then
-if (TContinent(T)=TContinent(TT)) then ToTerritory:=T; 
-end;
-end;
-
-if ToTerritory=0 then
-begin
-MinTer:=100;
-for T:=1 to 42 do
-begin
-if (TOwner(T)=0)  then  
-begin
-C:=TContinent(T);
-CAnalysis(C,PT,PA,ET,EA);
-
-if ET<=MinTer then 
-begin
-MinTer:=ET;
-ToTerritory:=T;
-end;
-end;
-end;
-end;
-
-end;
-
-
-procedure Placement(var ToTerritory: integer);
-var
-  MostArmies,MostIn,PP,TT,AA,PT,PA,ET,EA,T,k,j,m: integer;
-  Special,TAHis,AHis,AMine,ThemRat,Ratio,MaxRatio,SumFriends: double;
-  EnemyLeft:boolean;
-begin
-    EnemyLeft:=false;
-    for k:=1 to 10 do if (PProgram(k)<>PProgram(PMe)) and (PArmiesCount(k)<>0) then EnemyLeft:=true;
-  // reinforce territory with greatest ratio between total enemy armies and
-  // own armies and a lof of other things
-  ToTerritory:=0;
-  MaxRatio:=0;
- While ToTerritory=0 do
- begin
-  for T:=1 to 42 do 
-  begin
-     if TIsFront(T) then 
-     begin  // territory is mine and front
-      MostArmies:=0;
-      MostIn:=0;
-      j:=TContinent(T);
-      for k:=1 to CTerritoriesCount(j) do
-      begin
-       m:=CTerritory(j,k);
-       If (TOwner(m)=PMe) and (TArmies(m)>MostArmies) then
-       begin
-        MostArmies:=TArmies(m);
-        MostIn:=m;
-       end;
-      end;
-      SumFriends:=0;
-      for k:=1 to 42 do
-      Special:=1;
-      if TIsBordering(T,k) then
-      begin
-       if (TContinent(k)<>TContinent(T)) then Special:=Special+0.5;
-       if (PProgram(TOwner(k))=PProgram(PMe)) and (Towner(k)<>PMe) then
-       begin
-        SumFriends:=SumFriends+TArmies(k);
-       end;
-      end;
-      if CAnalysis(TContinent(T),PT,PA,ET,EA) then
-      begin
-       if (PT>=2) then Special:=Special+(PT-1);
-       if (CTerritoriesCount(TContinent(T))-PT)=1 then Special:=Special+1;
-      end;
-      // 
-      if CLeader(TContinent(T),PP,TT,AA) then
-      If (PProgram(PP)=PProgram(PMe)) and (PP<>PMe) then Special:=Special-2;
-
-      AHis:=0;
-      AMine:=PNewArmies(PMe)+PArmiesCount(PMe);
-      for k:=1 to TFrontsCount(T) do
-      begin
-       j:=TFront(T,k);
- TAHis:=double(PNewArmies(TOwner(j)))+double(PArmiesCount(TOwner(j)))+double(PTerritoriesCount(TOwner(j)))/3.0;
-       IF (TAHis>AHis) then AHis:=TAHis;
-      end; 
-      AHis:=AHis;
-      ThemRat:=AHis /AMine;
-      if (ThemRat<1) then ThemRat:=1;
-      If (k=MostIn) then Special:=Special*1.5;
-      if not EnemyLeft then SumFriends:=0;
-      If Special<0 then Special:=0;
-      Ratio := Special+(double(TPressure(T))*ThemRat-(SumFriends)*(ThemRat-0.01)) / double(TArmies(T));
-      if Ratio>=MaxRatio then begin
-        ToTerritory:=T;
-        MaxRatio:=Ratio;
-      end;
-    end;
-  end;
-  EnemyLeft:=false;
- end;
-
-  
-end;
-  
-
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  T,EnemyT,EnemyA: integer;
-  Special,Ratio,MaxRatio: double;
-  k,curConsider,Cont,myTot,yrTot:integer;
-  YepItsABorder,IsFriend,EnemyLeft:boolean;
-  TheOwner,j:integer;
-begin
-    EnemyLeft:=false;
-    for k:=1 to 10 do if (PProgram(k)<>PProgram(PMe)) and (PArmiesCount(k)<>0) then EnemyLeft:=true;
-    FromTerritory:=0;
-    ToTerritory:=0;
-    EnemyT:=0;
-    MaxRatio:=1.1;
-    for T:=1 to 42 do 
-    begin
-     if TIsFront(T)                      // territory is mine and front
-     and (TArmies(T)>1) then 
-     begin       // attack is possible
-      for k:=1 to 42 do
-      if TIsBordering(T,k) then
-      begin
-       EnemyA:=-12;
-       Special:=0;
-       TheOwner:=TOwner(k);
-       IsFriend:=(PProgram(TheOwner)=PProgram(PMe)) and (TheOwner<>PMe);
-       Cont:=TContinent(k);
-       myTot:=0;
-       yrTot:=0;
-       YepItsABorder:=false;
-       for j:=1 to TBordersCount(k) do
-       begin
-        if (TContinent(TBorder(k,j))<>TContinent(k)) 
-        and ((PProgram(TBorder(k,j))<>PProgram(PMe)) or not EnemyLeft)
-        then YepItsABorder:=true;
-       end;  
-
-       For j:=1 to CTerritoriesCount(Cont) do
-       begin
-        curConsider:=CTerritory(Cont,j);
-        if (TOwner(curConsider)=TheOwner) then yrTot:=yrTot+1;
-        if (TOwner(curConsider)=PMe) then myTot:=myTot+1;
-       end;
-       if (TArmies(k)=1) and (TArmies(T)>5) then IsFriend:=false;
-       if (PTerritoriesCount(PMe)>3) then Special:=Special+2;
-       if (MyTot>=2) then Special:=Special+(MyTot-1);
-       if ((CTerritoriesCount(Cont)-myTot)=1) and (TContinent(k)=Cont) then Special:=Special+4;
-       if IsFriend then Special:=Special-2;
-       if (PProgram(TOwner(k))<>PProgram(PMe)) and TIsFront(k) then Special:=Special+1;
-       if not(IsFriend and EnemyLeft) then      
-       begin
-	  if ((TArmies(k)<EnemyA)or(EnemyA=-12)) and (TOwner(k)<>PMe) then
-        begin
-         EnemyT:=k;
-         EnemyA:=TArmies(k);
-         If YepItsABorder Then Special:=Special-0.2;
-         Ratio :=(double(TArmies(T))/double(EnemyA))+Special;
-         if (Ratio>MaxRatio) and ((Ratio-Special>0.9) or (URandom(0)>0.9)) then 
-         begin
-          FromTerritory:=T;
-          ToTerritory:=EnemyT;
-          MaxRatio:=Ratio;
-         end;//if (Ratio)
-        end; //if (Less and not mine)
-       end;  //if is bordering.
-      end;   //for k loop
-     end;    //if is front
-    end;     //for T loop
-  If (MaxRatio<1.1) and ((URandom(0)>0.5) or SConquest) then 
-  begin
-   ToTerritory:=0;
-   FromTerritory:=0;
-  end;
-end;
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront,FConBor,TConBor: boolean;
-  TOwn,j:integer;
-begin
-  FromIsFront := False;
-  ToIsFront := False;
-  For j:=1 to TBordersCount(FromTerritory) do
-  begin
-   TOwn:=TOwner(TBorder(FromTerritory,j));
-   If PProgram(TOwn)<>PProgram(PMe) then FromIsFront:=true;
-  end; 
-  For j:=1 to TBordersCount(ToTerritory) do
-  begin
-   TOwn:=TOwner(TBorder(ToTerritory,j));
-   If PProgram(TOwn)<>PProgram(PMe) then ToIsFront:=true;
-  end; 
-  Armies:=(TArmies(FromTerritory)-TArmies(ToTerritory)) div 2;
-  FConBor:=False;
-  TConBor:=False;
-  for j:=1 to TBordersCount(FromTerritory) do
-  begin
-   if (TContinent(TBorder(FromTerritory,j))<>TContinent(FromTerritory)) then FConBor:=true;
-  end; 
-  for j:=1 to TBordersCount(ToTerritory) do
-  begin
-   if (TContinent(TBorder(ToTerritory,j))<>TContinent(ToTerritory)) then TConBor:=true;
-  end; 
-  if ToIsFront and ((not FromIsFront) or (TConBor and not FConBor)) then
-  begin
-     Armies:=TArmies(FromTerritory)-1;
-  end;
-end;
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  j,TheOwner,T,B,MaxArmy: integer;
-  OnlyFriends,EnemyLeft,DohK:boolean;
-begin
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
- begin
-    EnemyLeft:=false;
-    for j:=1 to 10 do if (PProgram(j)<>PProgram(PMe)) and (PArmiesCount(j)<>0) then EnemyLeft:=true;
-  // look for the greatest nuber of armies which is not on a front territory
-  MaxArmy := 1;
-  for T:=1 to 42 do begin
-    OnlyFriends:=true;
-    for j:=1 to TBordersCount(T) do
-    begin
-     TheOwner:=TOwner(TBorder(T,j));
-     if (PProgram(TheOwner)<>PProgram(PMe)) then OnlyFriends:=false;
-    end;
-    if TIsMine(T) and not OnlyFriends then begin  // territory is mine and not "front"  
-      if TArmies(T)>MaxArmy then 
-      begin
-        MaxArmy := TArmies(T);
-        FromTerritory := T;
-      end;
-    end;
-  end;
-  // if there are armies to move...
-  if FromTerritory>0 then begin
-    // check if can move armies to front...
-    for B:=1 to TBordersCount(FromTerritory) do begin
-      if ToTerritory=0 then begin
-        T:=TBorder(FromTerritory,B);
-        if TIsMine(T) and TIsFront(T) then 
-        begin       
-         OnlyFriends:=true;
-         for j:=1 to TBordersCount(T) do
-         begin
-          TheOwner:=TOwner(TBorder(T,j));
-          if (PProgram(TheOwner)<>PProgram(PMe)) then OnlyFriends:=false;
-         end;
-         if not EnemyLeft and Not OnlyFriends then begin
-           ToTerritory:=T;
-         end;
-        end;
-      end;
-    end;
-    // otherwise move armies in the first bordering territory
-    if ToTerritory=0 then begin
-      DohK:=false;
-      for B:=1 to TBordersCount(FromTerritory) do begin
-          T:=TBorder(FromTerritory,B);
-          if (TIsMine(T))  then begin
-            ToTerritory:=T;
-          end;
-        end;
-      end;
-    end;
-    // Move all armies to destination (except the one which must stay)
-    if ToTerritory>0 then 
-    begin
-     Armies:=(TArmies(FromTerritory))-1;
-     for j:=1 to 6 do
-     begin
-      if (TContinent(TBorder(FromTerritory,j))<>TContinent(FromTerritory)) 
-      and not(TContinent(TBorder(ToTerritory,j))<>TContinent(ToTerritory)) then
-      begin
-       Armies:=(TArmies(FromTerritory)) div 2;
-       if Armies=0 then
-       begin
-        ToTerritory:=0;
-        FromTerritory:=0;
-       end;
-      end;
-     end;
-    end;
-  if (ToTerritory=0) or (FromTerritory=0) then
-  begin
-        ToTerritory:=0;
-        FromTerritory:=0;
-  end;
-  end;
-end;
-
-begin
-end.
diff --git a/Players/brainless_iv.trp b/Players/brainless_iv.trp
deleted file mode 100644
index 8c2c5bb..0000000
--- a/Players/brainless_iv.trp
+++ /dev/null
@@ -1,231 +0,0 @@
-{
-Program: brainless IV
-
-Author: Mattias Beimers
-
-Email: matheiusb+tr@gmail.com - If you can find a bug, please send a snapshot (dumpfile) to this emailadres
-
-Description: This AI looks very stupid, hence the name ;-)
-He can be very annoying, and has a surprisingly large desire of power and a lot of patience to get what he wants!
-He's made for a 10 player game with cards based on progression, and is not good anymore (but still anoying) when you take other rules.
-
-Special thanks to Mario Ferrari and his wonderfull program, I really enjoy it,
-and to my friend, Chiel ten Brinke, who created brainless (the first) and inspired
-me to make brainless the fourth
-
-History: First version, brainless, was made by Chiel ten Brinke,
-this one just walked around getting strong, but had no world-conqueror algoritm.
-Attempts at brainless 2 and 3 were made, but they never became strong.
-This brainless version is a complete new AI, but with the same thought behind it.
-Later adds were made for TR 2.0 (mostly path and card functions)
-}
-
-
-{
-POSSIBLE IMPROVEMENTS:
-
-- Better kill player function
-  (current one kills players with up to 3 territories (must boder eachother) and then only if he is beside them by chance)
-- Smarter territory hopping - go to territories where the most other weak territories are bordering
-- Cooperation when there are two brainless IV's
-  (this will simply mean that one runs himself death as soon as they have enough armies together)
-- A hybrid with an AI who knows how to play with cards based on combination (im working on one at the moment)
-}
-
-
-function GetAttT: integer;
-var
-  T,A,MaxA: integer;
-begin
-  // Determine which T is your strongest front to attack with
-  MaxA:=0;
-  for T:=1 to 42 do begin
-    A:=TArmies(T);
-    if (TIsFront(T)) and ( (A>MaxA) or ((A>=MaxA) and (T<39)) ) then begin
-      MaxA:=A;
-      result:=T;
-    end;
-  end;
-end;
-
-
-function KillP(T: integer; var ET: integer): boolean;
-var
-  T1,T2,T3,P,PT,N,H: integer;
-begin
-  // Provides T from a player who can easily be killed (max 3 T's) from one Territory
-  ET:=0;
-  result:=false;
-  T2:=0;
-  T3:=0;
-  for N:=1 to TFrontsCount(T) do begin
-    T1:=TFront(T,N);
-    P:=TOwner(T1);
-    PT:=PTerritoriesCount(P);
-    if (PT<4)
-    and (  ( (TArmies(T)>10*PArmiesCount(P)) and (SCardsBasedOnCombo) and (PCardCount(P)>2) )
-    or ( (TArmies(T)>5*PArmiesCount(P)) and (not(SCardsBasedOnCombo)) and (PCardCount(P)>1) )  )
-    then begin
-      if PT=1 then T2:=-1;
-      if PT<3 then T3:=-1;
-      for H:=1 to 42 do begin
-        if TOwner(H)=P then begin
-          if (T2>0) and (T3=0) and (TIsBordering(H,T2)) then T3:=H;
-          if (T2=0) and (TIsBordering(H,T1)) then begin
-            T2:=H;
-            H:=0;
-          end;
-        end;
-      end;
-      if (T2<>0) and (T3<>0) then begin
-        ET:=T1;
-        result:=true;
-      end;
-    end;
-  end;
-end;
-
-
-procedure Assignment(var TT: integer);
-var
-  T: integer;
-begin
-  // Prefers Asia so he can walk around freely
-  T:=0;
-  repeat
-    T:=T+1;
-    if TOwner(T)=0 then
-      TT:=T;
-  until ( (TT>0) and (T=38) ) or (T=42);
-end;
-
-
-procedure Placement(var TT: integer);
-begin
-  TT:=GetAttT;
-end;
-
-
-procedure Attack(var T, TT: integer);
-var
-  A,N,ET,EA,F,MinF,P,TPA: integer;
-begin
-  TT:=0;
-  T:=GetAttT;
-  A:=TArmies(T);
-
-  // Card-Attack
-  if (not SConquest) and (TIsFront(T)) then begin
-    TWeakestFront(T,ET,EA);
-    if ( (A>3*EA) and (EA<99) and (not(SCardsBasedOnCombo)) )
-    or ( (A>4*EA) and ( (EA<4) or ( (EA<5) and (A>99) ) ) and (SCardsBasedOnCombo) ) then TT:=ET;
-  end;
-
-  // Kill a player
-  if KillP(T,ET) then TT:=ET;
-
-  // Number of armies of all my enemies
-  TPA:=0;
-  for P:=1 to 10 do begin
-    if (PActive(P)) and (P<>PMe) then
-      TPA:=TPA+PArmiesCount(P);
-  end;
-
-  // Attack the whole world in one turn (if possible)
-  MinF:=11;
-  if (TIsFront(T)) and ( (A>TPA) or (SAlivePlayersCount=2) ) then begin
-    for N:=1 to TFrontsCount(T) do begin
-      ET:=TFront(T,N);
-      F:=TFrontsCount(ET);
-      if (MinF<>0) then begin
-        if (ET=31) then F:=-1;  // To Siam
-        if (T=31) and (ET=39) then F:=-1;  // From Siam to Indonesia
-        if (COwner(3)=PMe) and (COwner(5)=PMe) and (ET=16) then F:=-1;  // To E-Afrika
-        if (COwner(3)=PMe) and (COwner(4)=PMe) and (ET=29) then F:=-1;  // To Kazakhstan
-        if (COwner(1)=PMe) and (T=14) and (ET=12) then F:=-1;  // To Brazil
-      end;
-      if ( (F<MinF) or (F=0) or ( (F=MinF) and (not TIsEntry(ET)) ) ) and (A>TArmies(ET)) then begin
-        MinF:=F;
-        TT:=ET;
-      end;
-    end;
-  end;
-  if (TT=0) then T:=0;
-end;
-
-
-procedure Occupation(FT, TT: integer; var A: integer);
-var
-  C,PT,PA,ET,EA,RA: integer;
-begin
-  A:=0;
-  if (TIsFront(TT)) or (not TIsFront(FT)) then
-    A:=TArmies(FT)-1;
-  if (FT=31) and (TT=39) then begin  // Australia
-    RA:=0;
-    for C:=1 to 5 do begin
-      CAnalysis(C,PT,PA,ET,EA);
-      RA:=RA+EA;
-    end;
-    CAnalysis(6,PT,PA,ET,EA);
-    if (TArmies(FT)>RA+EA) and (RA>0) then
-      A:=2*EA+5;
-  end;
-  if (COwner(1)=PMe) and ((COwner(4)<>PMe) or (COwner(3)<>PMe)) and (FT=14) and (TT=12) then begin  // S-America
-    RA:=0;
-    for C:=1 to 5 do begin
-      CAnalysis(C,PT,PA,ET,EA);
-      RA:=RA+EA;
-    end;
-    CAnalysis(6,PT,PA,ET,EA);
-    if (TArmies(FT)>RA+EA) and (RA>0) then
-      A:=2*EA+5;
-  end;
-end;
-
-
-procedure Fortification(var FT, TT, Armies: integer);
-var
-  T,AT,A,T1,PL,F,MaxF: integer;
-begin
-  FT:=0;
-  TT:=0;
-  Armies:=0;
-  AT:=GetAttT;
-
-  A:=1;
-  for T:=1 to 42 do begin
-    TShortestPath(T,AT,T1,PL);
-    if (PL=0) or (not TIsMine(T1)) then PL:=99;
-    if (TIsMine(T)) and ( (not TIsFront(T)) or (PL<5) ) then begin
-      if (TArmies(T)>A) then   // Strongest army
-      begin
-        A:=TArmies(T);
-        FT:=T;
-        TT:=TPathToFront(T);                     // Move to front
-        if (PL<5) and (TIsMine(T1)) then TT:=T1; // Or even better, move to attack territory
-        Armies:=TArmies(T)-1;
-      end;
-    end;
-  end;
-
-  if not (SConquest) then begin // Move attack territory if it couldnt get cards
-    MaxF:=0;
-    PL:=0;
-    for A:=1 to TBordersCount(AT) do begin
-      T:=TBorder(AT,A);
-      F:=TFrontsCount(T);
-      if (TIsMine(T)) and ( (F>MaxF) or ((F>=MaxF) and (TBordersCount(T)>PL)) ) then begin
-        MaxF:=F;
-        PL:=TBordersCount(T);
-        FT:=AT;
-        TT:=T;
-        Armies:=TArmies(FT)-1;
-      end;
-    end;
-  end;
-end;
-
-
-begin
-end.
\ No newline at end of file
diff --git a/Players/descartes.trp b/Players/descartes.trp
deleted file mode 100644
index 9d6220e..0000000
--- a/Players/descartes.trp
+++ /dev/null
@@ -1,1238 +0,0 @@
-{
-Program: Descartes
-
-Author: Anthony Covey-Crump (coveycrump@yahoo.com), 30/12/2000
-
-Description: This program is designed to work against 9 other computer players.
-It is a stealth specialist and tries to build up forces unnoticed before launching 
-devastating attacks, but can get in trouble if one of the other players becomes strong too quickly. 
-At the time of writing, frank and wyrm are the threats.
-
-Runs a little slower than the other programs. Apologies for that, but I was 
-confronted by the necessity to use 3-layered loops for the algorithm to function.
-
-None of this borg-style cooperation here by the way. These will fight
-to the death - can take quite a while though.
-
-History: Bug in procedure attack invalid to territory fixed by Nathan Scarbrough.
-}
-
-procedure Assignment(var ToTerritory: integer);
-var
-  T,Y,Z: integer;
-  MaximumValue,Value:integer;
-begin
-//for initial placement -- check every territory.  ultimately want the
-//territory with the highest "value"
-
-  ToTerritory:=0;
-  for T:=1 to 42 do begin
-    if TOwner(T)=0 then begin
-      Value:=0;
-      if (T<39) then //add points for a territory NOT being in australia
-        Value:=Value+10;
-
-      Y:=TBordersCount(T);
-      for Z:=1 to Y do begin  //take away a point for every T i own that borders current T
-        if TIsMine(TBorder(T,Z)) then Value:=Value-1;
-      end;
-
-//so value will be highest if territory is not in australia and i own no borders
-      if (Value>=MaximumValue) then begin
-        MaximumValue:=Value;
-        ToTerritory:=T;
-      end;
-    end;
-  end;
-        
-end;
-
-procedure Placement(var ToTerritory: integer);
-var
-  T,X,Y,T2,D,D2,Z,TA,KillPlayer: integer;
-  Score: double;
-  MaxTerritoryValue,TerritoryValue,TerritoryTo: integer;
-  TerritoryArmies: integer;
-  PT,PA,ET,EA:integer;
-  TotalArmies,PlayerArmies,P,A:Integer;
-  testa: double;
-  testb: integer;
-begin
-  TerritoryTo:=0;
-  UBufferSet(49,0); 
-  if ((PArmiesCount(PMe) < 10) and (not ((trunc(UBufferGet(50)))=2))) then begin
-    UBufferSet(50,1);
-  end;
-  if ((PArmiesCount(PMe) > 25) and ((trunc(UBufferGet(50)))=1)) then begin
-    UBufferSet(50,2);
-  end;
-
-  if ((trunc(UBufferGet(50)))=1) then begin  //probably have less than 10 armies
-    MaxTerritoryValue:=0;
-    for T:=1 to 42 do begin
-      if (TIsMine(T) and TIsFront(T)) then begin
-        TWeakestFront(T,ET,EA);
-        Score:=1000-EA;
-        Score:=Score-((double(TPressure(T))/TFrontsCount(T))*2); //#*#
-        Score:=Score+(TArmies(T) div 3);
-        if (T>38) then Score:=Score-100;
-        if ((T>9) and (T<14)) then Score:=Score-50;
-        if (Score> MaxTerritoryValue) then begin
-          MaxTerritoryValue:=trunc(Score);
-          TerritoryTo:=T;
-        end;
-      end;
-    end;
-  end
-  else begin
-   
-    CAnalysis(6,PT,PA,ET,EA);
-
-    UBufferSet(39,EA);
-    UBufferSet(40,EA-1);
-    UBufferSet(41,EA-2);
-    UBufferSet(42,EA-1);
-    if (PA>EA+4) then begin	    //if i have more than 4 armies more than the enemy
-      UBufferSet(39,EA-25);
-      UBufferSet(40,EA-26);
-      UBufferSet(41,EA-27);
-      UBufferSet(40,EA-26);
-    end;
-
-    CAnalysis(2,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+4;  //if i don't own australia, make more of an effort to get SA
-    UBufferSet(10,EA+6);
-    UBufferSet(12,EA+6);
-    UBufferSet(13,EA+4);
-    UBufferSet(11,EA+5);
-    if (PA>(EA+4)) then begin
-      UBufferSet(10,EA-20);
-      UBufferSet(12,EA-20);
-      UBufferSet(13,EA-22);
-      UBufferSet(11,EA-21);
-    end;  
-    
-    CAnalysis(4,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+4;
-    if (not (COwner(2)=PMe)) then EA:=EA+15;
-    UBufferSet(14,EA+6);
-    UBufferSet(15,EA+6);
-    UBufferSet(16,EA+6);
-    UBufferSet(17,EA+6);
-    UBufferSet(18,EA+6);
-    UBufferSet(19,EA+6);
-    if ((PA>(EA+9)) and (COwner(2)=PMe)) then begin
-      UBufferSet(14,EA-20);
-      UBufferSet(15,EA-19);
-      UBufferSet(16,EA-20);
-      UBufferSet(17,EA-21);
-      UBufferSet(18,EA-22);
-      UBufferSet(19,EA-23);
-    end;
-    CAnalysis(1,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+5;
-    if (not (COwner(2)=PMe)) then EA:=EA+15;
-    UBufferSet(1,EA+6);
-    UBufferSet(2,EA+6);
-    UBufferSet(3,EA+6);
-    UBufferSet(4,EA+6);
-    UBufferSet(5,EA+6);
-    UBufferSet(6,EA+6);
-    UBufferSet(7,EA+6);
-    UBufferSet(8,EA+6);
-    UBufferSet(9,EA+6);
-    CAnalysis(3,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+15;
-    if (not (COwner(2)=PMe)) then EA:=EA+15;
-    if (not (COwner(4)=PMe)) then EA:=EA+15;
-    UBufferSet(20,EA+6);
-    UBufferSet(21,EA+6);
-    UBufferSet(22,EA+6);
-    UBufferSet(23,EA+6);
-    UBufferSet(24,EA+6);
-    UBufferSet(25,EA+6);
-    UBufferSet(26,EA+6);
-
-    CAnalysis(5,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+15;
-    if (not (COwner(2)=PMe)) then EA:=EA+15;
-    if (not (COwner(4)=PMe)) then EA:=EA+15;
-    if (not (COwner(1)=PMe)) then EA:=EA+15;
-    if (not (COwner(3)=PMe)) then EA:=EA+15;
-    UBufferSet(27,EA+6);
-    UBufferSet(28,EA+6);
-    UBufferSet(29,EA+6);
-    UBufferSet(30,EA+6);
-    UBufferSet(31,EA+6);
-    UBufferSet(32,EA+6);
-    UBufferSet(33,EA+6);
-    UBufferSet(34,EA+6);
-    UBufferSet(35,EA+6);
-    UBufferSet(36,EA+6);
-    UBufferSet(37,EA+6);
-    UBufferSet(38,EA+6);
-//	-----
-//  we understand up to here
-    
-    TotalArmies:=0;
-    KillPlayer:=0;
-    UBufferSet(49,0);
-    for T:=1 to 10 do begin
-      TotalArmies:=TotalArmies+PArmiesCount(T);
-    end;
-
-//  testa:= 1.45;
-//  umessage('double is ' + floattostr(testa));
-
-{  testb:=4;
-  t:=30;
-  testb:=t div testb;
-  //ulog('testb is ' + inttostr(testb));
-  testb:=4;
-  t:=30;
-  testb:=t/testb;
-  //ulog('testb is ' + inttostr(testb));
- }
-//  umessage('int is ' + inttostr(testb));
-{
-  testa:=testb * testa;
-  umessage('int times float is ' + floattostr(testa));
-
-  testb:=testb * testa;
-  umessage('int times float into int is ' + inttostr(testb));
- }
-    for T:=1 to 10 do 
-    begin
-		  testa:=double(TotalArmies) * 0.35;
-
-    	  if ((not (T=PMe))
-	      	and (PArmiesCount(T)>trunc(testa))) then 
-	      begin
-			        KillPlayer:=T;
-	      end;				   
-	
-//		  ulog('after first if');
-
-			testa:=double(TotalArmies-PArmiesCount(PMe))*0.41;
-//		  ulog('before second');
-
-    	  if ((not (T=PMe))
-		      and (PArmiesCount(T)>trunc(testa))) then 
-		  begin
-		        KillPlayer:=T;
-	      end;
-			
-//			ulog('after second');
-
-	      if (KillPlayer=T) then 
-	      begin
-    		    KillPlayer:=0;
-
-		        Y:=0;
-	    	    Z:=0;
-	        	for T2:=1 to 6 do 
-	        	begin
-			          if (COwner(T2)=T) then Y:=Y+CBonus(T2);
-			          if (COwner(T2)=PMe) then Z:=Z+CBonus(T2);
-	        	end;
-
-//				ulog('before first div');
-
-	          if (PTerritoriesCount(T)>11) then 
-	          begin
-	          		Y:=Y+((PTerritoriesCount(T) div 3)-3);
-		      end;
-
-//	   		  ulog('after first div');
-		      if (PTerritoriesCount(PMe)>11) then 
-		      begin
-			        Z:=Z+((PTerritoriesCount(PMe) div 3)-3);
-		      end;
-	    	  if (Y>Z+3) then 
-	    	  begin
-	          	  KillPlayer:=T;
-			      UBufferSet(49,T);
-		      end;
-      	  end;   
-    end;
-    
-    if (not (KillPlayer=0)) then begin
-      for T:=1 to 42 do begin
-        if TOwner(T)=KillPlayer then begin
-          UBufferSet(T,TArmies(T));
-        end;
-        if ((COwner(TContinent(T)))=KillPlayer) then begin
-          UBufferSet(T,-15-(CBonus(TContinent(T))*2)+TArmies(T));
-        end;
-      end;
-    end;
-    
-    if (PArmiesCount(PMe)>TotalArmies+50) then begin
-      for T:=1 to 42 do begin
-        if (not (TIsMine(T))) then begin
-          UBufferSet(T,TArmies(T));
-          if ((COwner(TContinent(T)))>0) then begin
-            UBufferSet(T,-30+TArmies(T));
-          end;
-        end;
-      end;
-    end;
-
-  //	ulog('right before x is 1 to 8');
-	    
-    for X:=1 to 8 do 
-    begin
-      for T:=1 to 42 do  //check each territory 
-      begin
-        if (not TIsMine(T)) then  //if i don't own this territory
-        begin
-          Y:=TBordersCount(T);		   //count the borders
-          for Z:=1 to Y do 	//cycle thru the borders of this territory
-          begin
-            T2:=TBorder(T,Z);  //check each territory bordering T
-            if (not TIsMine(T2)) then  //if i don't own a border of T
-            begin
-              D:=trunc(UBufferGet(T));  //set D to be  whatever score is for this territory
-              D2:=trunc(UBufferGet(T2));  //set D2 to be score for this particular border
-              if (D>(D2+TArmies(T))) then //if score for this T is more than score for border + armies in that border
-              begin
-                D:=D2+TArmies(T)+1; //set score for this T to be border armies + border score + 1
-                UBufferSet(T,D);
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-//	ulog('right after monster nested for loop');
-    
-    for T:=1 to 42 do begin
-      if (TIsMine(T)) then begin
-        UBufferSet(T,0);
-      end;
-    end;
-
-    if (KillPlayer=0) then begin
-      CAnalysis(6,PT,PA,ET,EA);
-      if (COwner(6)=PMe) then 
-      begin
-        if TIsFront(39) then 
-        begin
-          TA:=25;
-          if (TArmies(38)>TA-5) then TA:=TArmies(38)+5;
-          CLeader(5,P,T,A);          
-          if ((A>TA) and (not (P=PMe))) then TA:=A;
-          UBufferSet(39,TA);
-        end
-        else
-        begin
-          TA:=25;
-          if (TPressure(31)>TA) then TA:=TPressure(31);
-          CLeader(5,P,T,A);
-          if ((A>TA) and (not (P=PMe))) then TA:=A;
-          UBufferSet(31,TA);
-        end;
-      end
-      else begin
-        if ((PA > (EA * 2)) or (PA>(EA+5))) then begin
-{          if (TIsMine(41)) then begin
-            TerritoryTo:=40;
-          end;
-          if (TIsMine(42)) then begin
-            TerritoryTo:=40;
-          end;
-          if (TIsMine(39)) then begin
-            TerritoryTo:=40;
-          end;
-          if (TIsMine(40)) then begin
-            TerritoryTo:=40;
-          end;
-		  }
-		  if (TIsMine(41)) then begin
-            TerritoryTo:=41;
-          end;
-          if (TIsMine(42)) then begin
-            TerritoryTo:=42;
-          end;
-          if (TIsMine(39)) then begin
-            TerritoryTo:=39;
-          end;
-          if (TIsMine(40)) then begin
-            TerritoryTo:=40;
-          end;
-        end;
-      end;
-     		  //after determining if he owns australia
-      CAnalysis(2,PT,PA,ET,EA);
-      if (TerritoryTo=0) then begin
-        if (COwner(2)=PMe) then begin
-          if (not (TIsMine(14))) then begin
-            TA:=20;
-            if (TArmies(14)>TA-12) then TA:=TArmies(14)+12;
-            if (TPressure(14)>TA) then TA:=TPressure(14);
-            UBufferSet(12,TA);
-          end
-          else begin
-            TA:=20;
-            if (TPressure(14)>TA) then TA:=TPressure(14);
-            UBufferSet(14,TA);
-          end;
-          if (not (TIsMine(9))) then begin
-            TA:=20;
-            if (TArmies(9)>TA-12) then TA:=TArmies(9)+12;
-            if (TPressure(9)>TA) then TA:=TPressure(9);
-            CLeader(1,P,T,A);
-            if ((A>TA) and (not (P=PMe))) then TA:=A;
-            UBufferSet(10,TA);
-          end
-          else begin
-            TA:=20;
-            if (TPressure(9)>TA-12) then TA:=TPressure(9)+12;
-            CLeader(1,P,T,A);
-            if ((A>TA) and (not (P=PMe))) then TA:=A;
-            UBufferSet(9,TA);
-          end;
-        end
-        else begin
-           if (((PA div 2)>EA) or (PA>(EA+6))) then begin
-            if ((TArmies(10)<20) and TIsMine(10)) then TerritoryTo:=10;
-            if ((TArmies(12)<20) and TIsMine(12)) then TerritoryTo:=12;
-          end;
-        end;
-      end;
-      CAnalysis(1,PT,PA,ET,EA);
-      if ((TerritoryTo=0)
-      and (COwner(2)=PMe)) then begin
-        if (((PA div 2)>EA) or (PA>(EA+10))) then begin
-          if ((TArmies(1)<20) and TIsMine(1)) then TerritoryTo:=1;
-          if ((TArmies(3)<20) and TIsMine(3)) then TerritoryTo:=3;
- 
-        end;
-      end;
-      CAnalysis(4,PT,PA,ET,EA);
-      if ((TerritoryTo=0) 
-      and (COwner(2)=PMe)) then begin
-        if (((PA div 2)>EA)or (PA>(EA+10))) then begin
-          if ((TArmies(14)<20) and TIsMine(14)) then TerritoryTo:=14;
-          if ((TArmies(15)<20) and TIsMine(15)) then TerritoryTo:=15;
-          if ((TArmies(16)<20) and TIsMine(16)) then TerritoryTo:=16;
-  
-        end;
-      end; 
-      if ((COwner(4)=PMe)) then begin
-        UBufferSet(14,20);
-        UBufferSet(15,20);
-        UBufferSet(16,20);
-      end;
-    end;
- 
-// ulog('after checking for ownership on each C');
-    if (TerritoryTo=0) then begin  
-      MaxTerritoryValue:=0;
-      for T:=1 to 42 do begin
-        if TIsMine(T) then begin
-          Y:=TBordersCount(T);
-          D:=1000;
-          for Z:=1 to Y do begin
-            T2:=TBorder(T,Z);
-            if not(TIsMine(T2)) then begin
-              D2:=trunc(UBufferGet(T2));
-              if (D2<D) then begin
-                D:=D2;
-                TA:=T2;
-              end;
-            end;
-          end;
-		  
-          if ((TArmies(T)-((trunc(UBufferGet(T)))+D))>MaxTerritoryValue) then begin
-            MaxTerritoryValue:=TArmies(T)-(trunc(UBufferGet(T))+D);
-            TerritoryTo:=T;
-          end;
-          if (KillPlayer=0) then begin
-            if (TArmies(T)<(trunc(UBufferGet(T)))) then begin
-              if ((1000+(trunc(UBufferGet(T)))-TArmies(T))>MaxTerritoryValue) then begin
-                MaxTerritoryValue:=1000+(trunc(UBufferGet(T)))-TArmies(T);
-                TerritoryTo:=T;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-//	ulog('after checking ubuffer');
-
-    if (TerritoryTo=0) then begin
-      MaxTerritoryValue:=0;
-      for T:=1 to 42 do begin
-        if TIsFront(T) then begin 
-          TerritoryValue:=1;
-          TWeakestFront(T,ET,EA);
-          TerritoryArmies:=TArmies(T);
-          if EA<3 then begin
-            TerritoryValue:=TerritoryValue+((3-EA)*200);
-            if (TerritoryArmies>9) then begin
-              TerritoryArmies:=TerritoryArmies-10;
-              if (TerritoryArmies>100) then begin
-                TerritoryArmies:=100;
-              end;
-              TerritoryValue:=TerritoryValue+(100-TerritoryArmies);
-            end;
-          end;
-          if EA>2 then begin
-            if EA>100 then begin
-              EA:=100;
-            end;
-            TerritoryValue:=TerritoryValue+(100-EA);
-          end;
-          if ((TerritoryValue>=MaxTerritoryValue) 
-              and ((TArmies(T)>1) or (TerritoryTo=0)) ) then begin
-            MaxTerritoryValue:=TerritoryValue;
-            TerritoryTo:=T;
-          end;
-        end;
-      end;
-    end;
-  end;
-  ToTerritory:=TerritoryTo;
-//  FromTerritory:=TerritoryFrom;
-end;
-
-
-
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  T,X,Y,T2,D,D2,TA,Z,Z2,Y2,FT,FA,KillPlayer: integer;
-  EnemyT,EnemyA: integer;
-  Ratio,MaxRatio: double;
-  MaxTerritoryValue,TerritoryValue: integer;
-  TerritoryArmies: integer;
-  PT,PA,ET,EA,ET2,EA2:integer;
-  Au27,Au29,Au30,Au31,Au32,Au33,Au36,Au39:Integer;
-begin
-  FromTerritory:=0;
-  ToTerritory:=0;
-  MaxTerritoryValue:=0;
-  
-  KillPlayer:=trunc(UBufferGet(49));
-  CAnalysis(6,PT,PA,ET,EA);
-  if (PA>EA+5) then begin
-    if (TIsMine(40) and (TArmies(40)>3)) then begin
-      if (not (TIsMine(42))) then begin
-        FromTerritory:=40;
-        ToTerritory:=42;
-      end;
-      if (not (TIsMine(41))) then begin
-        FromTerritory:=40;
-        ToTerritory:=41;
-      end;
-    end;
-  end;
-
-  CAnalysis(2,PT,PA,ET,EA);
-  if (PA>EA+5) then begin
-    if (TIsMine(12) and TIsMine(10) and (not (COwner(2)=PMe))) then begin
-      if (TArmies(12)>3) then begin
-        FromTerritory:=12;
-        if (not (TIsMine(13))) then ToTerritory:=13;
-        if (not (TIsMine(11))) then ToTerritory:=11;
-      end;
-      if (TArmies(10)>3) then begin
-        if (not (TIsMine(11))) then begin
-          FromTerritory:=10;
-          ToTerritory:=11;
-        end;
-      end;
-    end;
-  end;
-
-  if (COwner(2)=PMe) then begin
-    if ((not TIsMine(9))
-    and (TArmies(10)>(TArmies(9)+8))
-    and (COwner(1)>0)) then begin
-      FromTerritory:=10;
-      ToTerritory:=9;
-    end;
-    if ((not TIsMine(14))
-    and (TArmies(12)>(TArmies(14)+10))
-    and (COwner(4)>0)) then begin
-      FromTerritory:=12;
-      ToTerritory:=14;
-    end;
-    if ((TIsMine(14)) and (COwner(3)>0) and (not (COwner(3)=PMe))) then begin
-      if (TArmies(25)<TArmies(26)) then begin
-        if (TArmies(14)>(TArmies(25)+5)) then begin
-          FromTerritory:=14;
-          ToTerritory:=25;
-        end;
-      end
-      else begin
-        if (TArmies(14)>(TArmies(26)+5)) then begin
-          FromTerritory:=14;
-          ToTerritory:=26;
-        end;
-      end;
-    end;
-//#*# fixed invalid fromterritory problem
-    if ((TIsMine(15)) and (COwner(5)>0) and (not (COwner(5)=PMe))) then begin
-      if (TArmies(15)>(TArmies(27)+5)) then begin
-        FromTerritory:=15;
-        ToTerritory:=27;
-      end;
-    end;
-    if ((TIsMine(16)) and (COwner(5)>0) and (not (COwner(5)=PMe))) then begin
-      if (TArmies(16)>(TArmies(27)+5)) then begin
-        FromTerritory:=16;
-        ToTerritory:=27;
-      end;
-    end;
-
-  end;
-  if (COwner(6)=PMe) then begin
-    if ((not TIsMine(31))
-    and (TArmies(39)>(TArmies(31)+8))
-    and (COwner(5)>0)) then begin
-      FromTerritory:=39;
-      ToTerritory:=31;
-    end;
-  end;
-  
-  if (FromTerritory=0) then begin
-    for T:=1 to 42 do begin
-      D:=1000;
-      if TIsMine(T) then begin
-        Y:=TBordersCount(T);
-        for Z:=1 to Y do begin
-          T2:=TBorder(T,Z);
-          if not(TIsMine(T2)) then begin
-            D2:=trunc(UBufferGet(T2));
-            if (D2<D) then begin 
-              D:=D2;
-              TA:=T2;
-            end;
-          end;
-        end;
-        if (KillPlayer>0) then begin
-          if (((TArmies(T)-(25+D))>MaxTerritoryValue)
-          and (TArmies(T)>3)) then begin
-            MaxTerritoryValue:=TArmies(T)-(5+D);
-            FromTerritory:=T;
-            ToTerritory:=TA;
-          end;
-        end
-        else begin
-          if (((TArmies(T)-(25+(trunc(UBufferGet(T)))+D))>MaxTerritoryValue)
-          and (TArmies(T)>3)) then begin
-            MaxTerritoryValue:=TArmies(T) - (25+(trunc(UBufferGet(T)))+D);
-            FromTerritory:=T;
-            ToTerritory:=TA;
-            if not SConquest then begin
-              if (((TArmies(T)-(15+D))>MaxTerritoryValue)
-              and (TArmies(T)>3)) then begin
-                MaxTerritoryValue:=TArmies(T)-(15+D);
-                FromTerritory:=T;
-                ToTerritory:=TA;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-          
-  if (FromTerritory=0) then begin
-    MaxTerritoryValue:=0;
-    if not SConquest then begin  
-      for T:=1 to 42 do begin
-        if ((TIsFront(T)) and ((trunc(UBufferGet(T)))=0)) then begin 
-          if (TArmies(T)>3) then begin
-            TerritoryValue:=0;
-            TerritoryArmies:=TArmies(T);
-            TWeakestFront(T,ET,EA);
-            if EA<3 then begin
-              TerritoryValue:=TerritoryValue+((3-EA)*200);
-              if (TerritoryArmies>100) then begin
-                TerritoryArmies:=100;
-              end;
-              TerritoryValue:=TerritoryValue+TerritoryArmies;
-          
-          
-            end;
-            if (TerritoryValue>MaxTerritoryValue) then begin
-              MaxTerritoryValue:=TerritoryValue;
-              FromTerritory:=T;
-            end;        
-          end;
-        end;
-      end;
-      if (FromTerritory>0) then begin
-        MaxTerritoryValue:=0;
-        TWeakestFront(FromTerritory,ET,EA);
-        Y:=TBordersCount(FromTerritory);
-        for Z:=1 to Y do begin
-          T2:=TBorder(FromTerritory,Z);
-          if ((TArmies(T2)=EA)and (not TIsMine(T2))) then begin
-            TWeakestFront(T2,ET2,EA2);
-            Y2:=TBordersCount(T2);
-            FA:=0;
-            FT:=0;
-            for Z2:=1 to Y2 do begin
-              if (not (TIsMine(TBorder(T2,Z2)))) then begin
-                FA:=FA+TArmies(TBorder(T2,Z2));
-                FT:=FT+1;
-              end;
-            end;
-            if (FT>0) then begin
-              TerritoryValue:=1000-(EA2*4+(FA/FT));
-            end
-            else begin 
-             TerritoryValue:=500;
-            end;
-            if (TerritoryValue>MaxTerritoryValue) then begin
-              MaxTerritoryValue:=TerritoryValue;
-              ToTerritory:=T2;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-end;
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-  T,C:integer;
-  X,Y,T2,D,D2,Z,TA,KillPlayer: integer;
-  Ratio,MaxRatio,Score: double;
-  MaxTerritoryValue,TerritoryValue: integer;
-  TerritoryArmies,TerritoryTo: integer;
-  PT,PA,ET,EA:integer;
-  value1d, value2d: double;
-  value1i, value2i: integer;
-  TotalArmies,PlayerArmies,P,A:Integer;
-
-begin
-
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  Armies:=0;
-   
-  //copied from placement routine start    
-    CAnalysis(6,PT,PA,ET,EA);
-    UBufferSet(39,EA);
-    UBufferSet(40,EA-1);
-    UBufferSet(41,EA-2);
-    UBufferSet(42,EA-1);
-    if (PA>EA+4) then begin
-      UBufferSet(39,EA-25);
-      UBufferSet(40,EA-26);
-      UBufferSet(41,EA-27);
-      UBufferSet(40,EA-26);
-    end;
-    CAnalysis(2,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+4;
-    UBufferSet(10,EA+6);
-    UBufferSet(12,EA+6);
-    UBufferSet(13,EA+4);
-    UBufferSet(11,EA+5);
-    if (PA>(EA+4)) then begin
-      UBufferSet(10,EA-20);
-      UBufferSet(12,EA-20);
-      UBufferSet(13,EA-22);
-      UBufferSet(11,EA-21);
-    end;  
-    CAnalysis(4,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+4;
-    if (not (COwner(2)=PMe)) then EA:=EA+15;
-    UBufferSet(14,EA+6);
-    UBufferSet(15,EA+6);
-    UBufferSet(16,EA+6);
-    UBufferSet(17,EA+6);
-    UBufferSet(18,EA+6);
-    UBufferSet(19,EA+6);
-    if ((PA>(EA+9)) and (COwner(2)=PMe)) then begin
-      UBufferSet(14,EA-20);
-      UBufferSet(15,EA-19);
-      UBufferSet(16,EA-20);
-      UBufferSet(17,EA-21);
-      UBufferSet(18,EA-22);
-      UBufferSet(19,EA-23);
-    end;
-    CAnalysis(1,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+5;
-    if (not (COwner(2)=PMe)) then EA:=EA+15;
-    UBufferSet(1,EA+6);
-    UBufferSet(2,EA+6);
-    UBufferSet(3,EA+6);
-    UBufferSet(4,EA+6);
-    UBufferSet(5,EA+6);
-    UBufferSet(6,EA+6);
-    UBufferSet(7,EA+6);
-    UBufferSet(8,EA+6);
-    UBufferSet(9,EA+6);
-
-    CAnalysis(3,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+15;
-    if (not (COwner(2)=PMe)) then EA:=EA+15;
-    if (not (COwner(4)=PMe)) then EA:=EA+15;
-    UBufferSet(20,EA+6);
-    UBufferSet(21,EA+6);
-    UBufferSet(22,EA+6);
-    UBufferSet(23,EA+6);
-    UBufferSet(24,EA+6);
-    UBufferSet(25,EA+6);
-    UBufferSet(26,EA+6);
-    
-    CAnalysis(5,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+15;
-    if (not (COwner(2)=PMe)) then EA:=EA+15;
-    if (not (COwner(4)=PMe)) then EA:=EA+15;
-    if (not (COwner(1)=PMe)) then EA:=EA+15;
-    if (not (COwner(3)=PMe)) then EA:=EA+15;
-    UBufferSet(27,EA+6);
-    UBufferSet(28,EA+6);
-    UBufferSet(29,EA+6);
-    UBufferSet(30,EA+6);
-    UBufferSet(31,EA+6);
-    UBufferSet(32,EA+6);
-    UBufferSet(33,EA+6);
-    UBufferSet(34,EA+6);
-    UBufferSet(35,EA+6);
-    UBufferSet(36,EA+6);
-    UBufferSet(37,EA+6);
-    UBufferSet(38,EA+6);
-    
-    TotalArmies:=0;
-    KillPlayer:=0;
-    UBufferSet(49,0);
-    for T:=1 to 10 do begin
-      TotalArmies:=TotalArmies+PArmiesCount(T);
-    end;
-    for T:=1 to 10 do 
-    begin
-		value1d:=(double(TotalArmies)) * 0.35;
-
-      if ((not (T=PMe))
-      and (PArmiesCount(T)>(trunc(value1d)))) then begin
-        KillPlayer:=T;
-      end;
-	
-	  value2d:=(double(TotalArmies-PArmiesCount(PMe)))*0.41;
-      if ((not (T=PMe))
-      and (PArmiesCount(T)>(trunc(value2d)))) then begin
-        KillPlayer:=T;
-      end;
-    
-      if (KillPlayer=T) then begin
-        KillPlayer:=0;
-    
-        Y:=0;
-        Z:=0;
-        for T2:=1 to 6 do begin
-          if (COwner(T2)=T) then Y:=Y+CBonus(T2);
-          if (COwner(T2)=PMe) then Z:=Z+CBonus(T2);
-        end;
-        if (PTerritoriesCount(T)>11) then begin
-          Y:=Y+((PTerritoriesCount(T) div 3)-3);
-        end;
-        if (PTerritoriesCount(PMe)>11) then begin
-          Z:=Z+((PTerritoriesCount(PMe) div 3)-3);
-        end;
-        if (Y>Z+3) then begin
-          KillPlayer:=T;
-          UBufferSet(49,T);
-
-        end;
-      end;   
-    end;
-    
-    if (not (KillPlayer=0)) then begin
-      for T:=1 to 42 do begin
-        if TOwner(T)=KillPlayer then begin
-          UBufferSet(T,TArmies(T));
-        end;
-        if ((COwner(TContinent(T)))=KillPlayer) then begin
-          UBufferSet(T,-15-(CBonus(TContinent(T))*2)+TArmies(T));
-        end;
-      end;
-    end;
-    if (PArmiesCount(PMe)>TotalArmies+50) then begin
-      for T:=1 to 42 do begin
-        if (not (TIsMine(T))) then begin
-          UBufferSet(T,TArmies(T));
-          if ((COwner(TContinent(T)))>0) then begin
-            UBufferSet(T,-30+TArmies(T));
-          end;
-        end;
-      end;
-    end;
-
-    for X:=1 to 8 do begin
-      for T:=1 to 42 do begin
-        if (not TIsMine(T)) then begin
-          Y:=TBordersCount(T);
-          for Z:=1 to Y do begin
-            T2:=TBorder(T,Z);
-            if (not TIsMine(T2)) then begin
-              D:=trunc(UBufferGet(T));
-              D2:=trunc(UBufferGet(T2));
-              if (D>(D2+TArmies(T))) then begin
-                D:=D2+TArmies(T)+1;
-                UBufferSet(T,D);
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-    
-    if (KillPlayer=0) then begin
-      CAnalysis(6,PT,PA,ET,EA);
-      if (COwner(6)=PMe) then begin
-        if TIsFront(39) then begin
-          TA:=25;
-          if (TArmies(38)>TA-5) then TA:=TArmies(38)+5;
-          CLeader(5,P,T,A);          
-          if ((A>TA) and (not (P=PMe))) then TA:=A;
-          UBufferSet(39,TA);
-        end
-        else begin
-          TA:=25;
-          if (TPressure(31)>TA) then TA:=TPressure(31);
-          CLeader(5,P,T,A);
-          if ((A>TA) and (not (P=PMe))) then TA:=A;
-          UBufferSet(31,TA);
-        end;
-      end;
-    end;
-    
-    for T:=1 to 42 do begin
-      if (TIsMine(T)) then begin
-        UBufferSet(T,0);
-      end;
-    end;
-    if (KillPlayer=0) then begin
-      CAnalysis(6,PT,PA,ET,EA);
-      if (COwner(6)=PMe) then begin
-        if TIsFront(39) then begin
-          TA:=25;
-          if (TArmies(38)>TA-5) then TA:=TArmies(38)+5;
-          CLeader(5,P,T,A);          
-          if ((A>TA) and (not (P=PMe))) then TA:=A;
-          UBufferSet(39,TA);
-        end
-        else begin
-          TA:=25;
-          if (TPressure(31)>TA) then TA:=TPressure(31);
-          CLeader(5,P,T,A);
-          if ((A>TA) and (not (P=PMe))) then TA:=A;
-          UBufferSet(31,TA);
-        end;
-      end
-      else begin
-        if ((PA > (EA div 2)) or (PA>(EA+5))) then begin
-          if (TIsMine(40)) then begin
-            TerritoryTo:=40;
-          end
-          else begin
-            TerritoryTo:=39;
-          end;
-        end;
-      end;
-     
-      CAnalysis(2,PT,PA,ET,EA);
-      if (TerritoryTo=0) then begin
-        if (COwner(2)=PMe) then begin
-          if (not (TIsMine(14))) then begin
-            TA:=20;
-            if (TArmies(14)>TA-12) then TA:=TArmies(14)+12;
-            if (TPressure(14)>TA) then TA:=TPressure(14);
-            UBufferSet(12,TA);
-          end
-          else begin
-            TA:=20;
-            if (TPressure(14)>TA) then TA:=TPressure(14);
-            UBufferSet(14,TA);
-          end;
-          if (not (TIsMine(9))) then begin
-            TA:=20;
-            if (TArmies(9)>TA-12) then TA:=TArmies(9)+12;
-            if (TPressure(9)>TA) then TA:=TPressure(9);
-            CLeader(1,P,T,A);
-            if ((A>TA) and (not (P=PMe))) then TA:=A;
-            UBufferSet(10,TA);
-          end
-          else begin
-            TA:=20;
-            if (TPressure(9)>TA-12) then TA:=TPressure(9)+12;
-            CLeader(1,P,T,A);
-            if ((A>TA) and (not (P=PMe))) then TA:=A;
-            UBufferSet(9,TA);
-          end;
-        end
-        else begin
-           if ((PA>(EA div 2)) or (PA>(EA+6))) then begin
-            if ((TArmies(10)<20) and TIsMine(10)) then TerritoryTo:=10;
-            if ((TArmies(12)<20) and TIsMine(12)) then TerritoryTo:=12;
-          end;
-        end;
-      end;
-      CAnalysis(1,PT,PA,ET,EA);
-      if ((TerritoryTo=0)
-      and (COwner(2)=PMe)) then begin
-        if ((PA>(EA div 2)) or (PA>(EA+10))) then begin
-          if ((TArmies(1)<20) and TIsMine(1)) then TerritoryTo:=1;
-          if ((TArmies(3)<20) and TIsMine(3)) then TerritoryTo:=3;
- 
-        end;
-      end;
-      CAnalysis(4,PT,PA,ET,EA);
-      if ((TerritoryTo=0) 
-      and (COwner(2)=PMe)) then begin
-        if ((PA>(EA div 2))or (PA>(EA+10))) then begin
-          if ((TArmies(14)<20) and TIsMine(14)) then TerritoryTo:=14;
-          if ((TArmies(15)<20) and TIsMine(15)) then TerritoryTo:=15;
-          if ((TArmies(16)<20) and TIsMine(16)) then TerritoryTo:=16;
-  
-        end;
-      end; 
-      if ((COwner(4)=PMe)) then begin
-        UBufferSet(14,20);
-        UBufferSet(15,20);
-        UBufferSet(16,20);
-      end;
-    end; 
-
-
-  UBufferSet(ToTerritory,0);
-
-  
-  if (COwner(6)=PMe) then begin
-    if ((FromTerritory=39) and (ToTerritory=31)) then begin
-      UBufferSet(31,(trunc(UBufferGet(39))));
-      UBufferSet(39,0);
-      if ((trunc(UBufferGet(31)))<25) then UBufferSet(31,25);
-    end;
-  end;
-  if (COwner(2)=PMe) then begin
-    if ((FromTerritory=12) and (ToTerritory=14)) then begin
-      UBufferSet(14,(trunc(UBufferGet(12))));
-      UBufferSet(12,0);
-    end;
-  end;
-  if (COwner(2)=PMe) then begin
-    if ((FromTerritory=10) and (ToTerritory=9)) then begin
-      UBufferSet(9,(trunc(UBufferGet(10))));
-      UBufferSet(10,0);
-    end;
-  end;
-
-
-  if ToIsFront then begin
-    Armies:=TArmies(FromTerritory)-(1+(trunc(UBufferGet(FromTerritory))));
-    if (Armies<0) then Armies:=0;  
-  end;
-  if (ToTerritory=41) then begin
-    Armies:=0;
-  end;
-  if ((ToTerritory=40)and (FromTerritory=39)) then begin
-    Armies:=TArmies(FromTerritory)-1;
-    if (Armies > TArmies(42)+5) then Armies := TArmies(42)+5;
-    if (Armies < (TArmies(39) div 2)) then Armies:=(TArmies(39) div 2);
-  end;
-  if ((ToTerritory=42) and (FromTerritory=39)) then begin
-    Armies:=0;
-  end;
-  if (ToTerritory=39) then begin
-    Armies:=TArmies(FromTerritory)-1;
-  end;
-
-
-  if ((FromTerritory=31) and(ToTerritory=39)) then begin
-    UBufferSet(39, (trunc(UBufferGet(39)))-25);
-    UBufferSet(40, (trunc(UBufferGet(40)))-25);
-    UBufferSet(41, (trunc(UBufferGet(41)))-25);
-    UBufferSet(42, (trunc(UBufferGet(42)))-25);
-  end;
-  if (((FromTerritory=14) and(ToTerritory=12))
-   or ((FromTerritory=9) and (ToTerritory=10))) then begin
-    UBufferSet(10,(trunc(UBufferGet(10)))-29);
-    UBufferSet(12,(trunc(UBufferGet(12)))-29);
-    UBufferSet(13,(trunc(UBufferGet(13)))-29);
-    UBufferSet(11,(trunc(UBufferGet(11)))-29);
-  end;
-
-
-
-  
-  if ((FromTerritory=12) and (ToTerritory=13)) then begin
-    Armies:=0;
-  end;
-  if ((FromTerritory=12) and (ToTerritory=11)) then begin
-    Armies:=0;
-  end;
-  if ((FromTerritory=10) and (ToTerritory=11)) then begin
-    Armies:=0;
-  end;
-  if ((FromTerritory=12) and (ToTerritory=10)) then begin
-    Armies:=(TArmies(FromTerritory) div 2);
-  end;
-  if ((FromTerritory=10) and (ToTerritory=12)) then begin
-    Armies:=(TArmies(FromTerritory) div 2);
-  end;
-  if ((FromTerritory=12) and (ToTerritory=14)) then begin
-    Armies:=(TArmies(FromTerritory) -20);
-    if Armies<0 then Armies:=0;
-  end;
-  if ((FromTerritory=10) and (ToTerritory=9)) then begin
-    Armies:=(TArmies(FromTerritory) -20);
-    if Armies<0 then Armies:=0;
-  end;
-  if (COwner(2)=PMe) then begin
-    if ((FromTerritory=12) and (ToTerritory=14)) then begin
-      Armies:=(TArmies(FromTerritory) -1);
-      if Armies<0 then Armies:=0;
-    end;
-    if ((FromTerritory=10) and (ToTerritory=9)) then begin
-      Armies:=(TArmies(FromTerritory) -1);
-      if Armies<0 then Armies:=0;
-    end;
-    if (FromTerritory=9) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if Armies<0 then Armies:=0;
-    end;
-    if (FromTerritory=14) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if Armies<0 then Armies:=0;
-    end;
-
-  end;   
-
-
-  if ((COwner(6)=PMe) and (COwner(2)=PMe)) then begin
-    if (FromTerritory=14) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if Armies<0 then Armies:=0;
-    end;
-    if (FromTerritory=15) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if Armies<0 then Armies:=0;
-    end;
-    if (FromTerritory=16) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if Armies<0 then Armies:=0;
-    end;
-    if (FromTerritory=1) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if Armies<0 then Armies:=0;
-    end;
-    if (FromTerritory=3) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if Armies<0 then Armies:=0;
-    end;
-
-  end;
-  
-  if ((FromTerritory=14) and (ToTerritory=17)) then begin
-    Armies:=(TArmies(FromTerritory) div 2);
-  end;
-  if ((FromTerritory=20) and (ToTerritory=19)) then begin
-    Armies:=(TArmies(FromTerritory) div 2);
-  end;
-  if (COwner(4)=PMe) then begin
-    if ((FromTerritory=16) and (ToTerritory=15)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-    if ((FromTerritory=15) and (ToTerritory=16)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-    if ((FromTerritory=16) and (ToTerritory=14)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-    if ((FromTerritory=14) and (ToTerritory=16)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-    if ((FromTerritory=14) and (ToTerritory=15)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-    if ((FromTerritory=15) and (ToTerritory=14)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-  end;
-  if (COwner(3)=PMe) then begin
-    if ((FromTerritory=22)
-    or  (FromTerritory=26)
-    or  (FromTerritory=20)) then begin
-      Armies:=TArmies(FromTerritory)-20;
-      if Armies<0 then Armies:=0;
-    end;
-  end;
-  if (KillPlayer>0) then Armies:=TArmies(FromTerritory)-1;
-
-end;
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  T,B,MaxArmy: integer;
-begin
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-  MaxArmy:=1;
-  if (COwner(6)=PMe)
-    then begin
-    if (TArmies(40)>1) then begin
-      Armies:=TArmies(40)-1;
-      FromTerritory:=40;
-      ToTerritory:=39;
-    end;
-    if (TArmies(42)>1) then begin
-      Armies:=TArmies(42)-1;
-      FromTerritory:=42;
-      ToTerritory:=39;
-
-    end;
-
-  end;
-  
-  if (FromTerritory=0) then begin
-    for T:=1 to 42 do begin
-      if ((TIsMine(T)) 
-      and ((trunc(UBufferGet(T)))=0) 
-      and (not TIsFront(T))) then begin  
-        if TArmies(T)>MaxArmy then begin
-          MaxArmy := TArmies(T);
-          FromTerritory := T;
-        end;
-      end; 
-    end;
-    
-    if FromTerritory>0 then begin
-      for B:=1 to TBordersCount(FromTerritory) do begin
-        if ToTerritory=0 then begin
-          T:=TBorder(FromTerritory,B);
-          if TIsMine(T) and TIsFront(T) then begin
-            ToTerritory:=T;
-          end;
-        end;
-      end;
-      if ToTerritory=0 then begin
-        for B:=1 to TBordersCount(FromTerritory) do begin
-          if ToTerritory=0 then begin
-            T:=TBorder(FromTerritory,B);
-            if TIsMine(T) then begin
-              ToTerritory:=T;
-            end;
-          end;
-        end;
-      end;
-      if ToTerritory>0 then begin
-        Armies:=TArmies(FromTerritory)-1;
-      end;
-    end;
-  end;
-end;
-
-begin
-
-end.
\ No newline at end of file
diff --git a/Players/descartes09.trp b/Players/descartes09.trp
deleted file mode 100644
index fc3e51f..0000000
--- a/Players/descartes09.trp
+++ /dev/null
@@ -1,3404 +0,0 @@
-{
-Program: Descartes09 v0.2
-
-Author: Anthony Covey-Crump (coveycrump@yahoo.com)
-Description: This was a complete re-write in 2009-10, and plays a different strategy than descartes.
-It is designed to play in games with lots of players, and cards trade based on combination.
-
-
-Thanks to Nathan Scarbrough for advice on various issues.
-}
-
-var
-  B,MaxArmy,MaximumValue,Value: integer;
-  LAValue,LAValue2,TF:Integer;
-  EnemyT,EnemyA,X3: integer;
-  
-  T,X,Y,T2,D,D2,Z,TA,FT,FA,KP1,KP2,KP1A,KP2A,KillPlayer,C,TTo,TFrom,X2,C2,Y2,V,Z2,PMax : integer;
-  Ratio,MaxRatio,Score: double;
-  MaxTerritoryValue,TerritoryValue,TerritoryTo,TerritoryFrom: integer;
-  Fronts,TerritoryArmies: integer;
-  PT,PA,ET,EA,ET2,EA2:integer;
-  TotalArmies,PlayerArmies,P,A:Integer;
-  Test:Boolean;
-  ProX,ProT,ProY,ProTA,ProV,ProZ,ProT2:Integer;
-  CAX,CAC,CAZ:Integer;
-  CNT,CNT2,CNM,CNX,CNY:Integer;
-  CVAZ,CVAY,CVAT,CVAValue,CVAY2,CVAT2,CVAN,CVC,CVAN2,CVATA,CVATF:Integer;
-  CVALP,CValX,CValY,CVAI,CVAI2,CVAA,CVAB,CVAY3,CVAT3,CVAB2,CVANewArmies:Integer;
-  CVAFreeArmies,CVAMaxFreeArmy,CVAValue2:Integer;
-  SOBTX,SOBTT,Routine:Integer;
-  DEValue,DEVal2,DEX,DEY,DEZ,DET3:Integer;
-  CVAPoints,CVAPointValue:double;
-  ValInd:Integer;
-  NValue,NT,NT2,NF,NF1,NX,NY,NZ,NF2:Integer;
-
-  FromIsFront, ToIsFront: boolean;
-  Calc:integer;
-  ABT,ABTI,ABTC,ABTN:Integer;
-  T40,T41,T42:Integer;
-  MyArmiesMap: Array of Integer;
-  AttackArmies: Array of Integer;
-  MineArmies: Array of Boolean;
-  KP2009,killreason: Integer;
-  ValIndex, ValProtection: array of Integer;
-  MyAttackC,PlayersCount,ThreatPlayer:integer;
-  MyStartC: Array of Integer;
-  MyConnected: Array of Integer;
-  DistanceToAttackFront: Array of Integer;
-  SpreadLevel: Integer;
-  StartTurnPlayerScore: Array of Integer;
-  StartTurnPlayerCScore: Array of Integer;
-  StartTurnPlayerScoreOrdered: Array of Integer;
-  StartTurnCOwner: Array of Integer;
-  mrbigarmies,mrsecondarmies,mrbig,Turn:integer;
-  aalive,dalive,ealive,lastturnfrom,lastturnto:integer;
-  AverageEnemyArmies,EnemiesAlive:integer;
-  DomAccumulate, DomAttack:boolean;
-
-{_________________________ m/l/UBuffer ______________________________}
-
-procedure m(s: string);  // shortens m to m
-begin
-  //Umessage(s); // comment off this line to disable all ms
-  //if PTerritoriesCount(Pme) = 41 then l('Armies: ' + i(PArmiesCount(Pme)));
-end;
-
-procedure l(s: string);  // shortens l to l
-begin
-  //Ulog(s);  // comment off this line to disable all ls
-  //if PTerritoriesCount(Pme) = 41 then l('Armies: ' + i(PArmiesCount(Pme)));
-end;
-
-function i(x: integer): string;  // shortens i to i
-begin result:= inttostr(x); end;
-
-procedure sn(s: string);  // shortens l to l
-begin
-  //Utakesnapshot(s + ' Player ' + PProgram(PMe) + ' Turn ' + i(turn));  // comment off this line to disable all ls
-  //if PTerritoriesCount(Pme) = 41 then l('Armies: ' + i(PArmiesCount(Pme)));
-end;
-
-function f(x: double): string;  // shortens floattostr to f
-begin result:= floattostr(x); end;
-
-// example m('ToTerritory: ' + i(ToTerritory) + ' FromTerritory: ' + i(FromTerritory));
-
-function bg(x: integer): integer;
-begin result:= trunc(UBufferGet(x)); end;
-                                              // use these for integer storage
-procedure bs(x, y: integer);
-begin UBufferSet(x, y); end;
-{______________________________________________________________________________}
-  FUNCTION ContinentValuation (CVC : integer):integer;
-    BEGIN
-        CAnalysis(CVC,PT,PA,ET,EA);
-        if (CVC=1) then begin
-          CValX:=30;
-          if dalive=1 then CValx:=CValx+1000;
-        end;
-        if (CVC=2) then begin
-          CValX:=20;
-          if dalive=1 then CValx:=CValx+1000;
-        end;
-        if (CVC=3) then begin
-          CValX:=40;
-        end;
-        if (CVC=4) then begin
-          CValX:=30;
-          if dalive=1 then CValx:=CValx+1000;
-        end;
-        if (CVC=5) then begin
-          CValX:=50;
-          if aalive=1 then CValx:=CValx+1000;
-        end;
-        if (CVC=6) then begin
-          if (PA=0) then begin
-            CValX:=40;
-          end else
-          begin
-            CValX:=10;
-          end;
-          if aalive=1 then CValx:=CValx+1000;
-        end;
-        for CNT:=1 to 42 do begin
-          CNM :=0;
-          if (not TIsMine(CNT)) then begin
-            CNX:=TBordersCount(CNT);
-            for CNY :=1 to CNX do begin
-              CNT2:= TBorder(CNT,CNY);
-              if (TContinent(CNT2)=CVC) then CNM :=1;
-            end;
-            if (CNM =1 ) then CValX :=CValX + TArmies(CNT);
-          end;
-        end;
-                
-        CValY:=CValX+3;
-        if (CValY < 1) then begin
-          CValY := 1;
-        end;
-        result:=CValY;
-    end;//ContinentValuation
-
-function LoneTerritoryValue(Territory:integer): double;
-var
-  WE,T,X,MinD,res:integer;
-begin
-  res:=1000;
-  MinD:=10000;
-  If (TContinent(Territory)=2) or (TContinent(Territory)=6) then begin
-    res:=res-500;
-  end;
-  WE:=0;
-  for X:=1 to TBordersCount(Territory) do begin
-    T:=TBorder(Territory,X);
-    if (not TIsMine(T)) then begin
-      if TArmies(T)> WE then WE:=TArmies(T);
-    end;
-    if (not (TIsMine(T))) and (TArmies(T)=1) then begin
-      if (TContinent(T)<>2) and (TContinent(T)<>6) then begin
-        res:=res+100;
-      end;
-    end;
-    if (not (TIsMine(T))) and (TArmies(T)=2) then begin
-      if (TContinent(T)<>2) and (TContinent(T)<>6) then begin
-        res:=res+30;
-      end;
-    end;
-    if (not (TIsMine(T))) and (TArmies(T)=3) then begin
-      if (TContinent(T)<>2) and (TContinent(T)<>6) then begin
-        res:=res+10;
-      end;
-    end;
-    if (TContinent(T)=2) or (TContinent(T)=6) then begin
-      res:=res-500;
-    end;
-    if ( pos('frank', lowercase(PProgram(TOwner(T)))) > 0 ) then begin
-      if ( pos('australian', lowercase(PProgram(PMe))) > 0 ) then begin
-        if (PArmiesCount(TOwner(T))<mrsecondarmies) or (PArmiesCount(PMe)<mrsecondarmies) then begin
-          res:=res-(TArmies(T)*100);
-        end;
-      end;
-    end;
-  end;
-  if (WE > 0) and (WE<100) then res:=res+100-WE;
-  result:=double(res);
-  if not SCardsBasedOnCombo then begin
-    MinD:=10000;
-    result:=-100;
-    for X:=1 to TFrontsCount(Territory) do begin
-      T2:=TFront(Territory,X);
-      if TArmies(T2) < Mind then begin
-        result:=100-TArmies(T2);
-        Mind:=TArmies(T2);
-      end;
-    end;
-  end;
-
-end;
-
-
-function minnowWhere(var FromTerritory, ToTerritory: integer): boolean;
-var
-  T,X,C,Y,T2,D,D2,Z: integer;
-  E14,E9,MaxTerritoryValue: integer;
-  PT,PA,ET,EA:integer;
-  P:Integer;
-  loopcontrol:boolean;
-  nicestart: array of integer;
-begin
-  SetArrayLength(nicestart,43);
-  for T:=1 to 42 do begin
-    ValIndex[T]:=1000000;
-  end;
-  if ( pos('endeavour', lowercase(PProgram(PMe))) > 0 ) then begin
-    for C:=1 to 6 do begin
-      Y:=CTerritoriesCount(C);
-      X:=trunc(ContinentValuation(C)*1.1);
-//      l('CFCFC ' + i(C) + ' ' + i(X));
-      for Z:=1 to Y do begin
-        T:=CTerritory(C,Z);
-        ValIndex[T]:=X;
-      end;
-    end;
-  end;
-  if ( pos('australian', lowercase(PProgram(PMe))) > 0 ) then begin
-    CAnalysis(6,PT,PA,ET,EA);
-    if (PA<5) then begin
-      if COwner(6) > 0 then begin
-//        if COwner(6) = COwner(5) then begin
-//          ValIndex[39]:=EA-200;
-//        end else begin
-          MaxTerritoryValue:=10;
-          P:=COwner(6);
-          if ( pos('frank', lowercase(PProgram(P))) > 0 ) or ( pos('zotob', lowercase(PProgram(P))) > 0 ) or PHuman(P) then begin
-            for T:=27 to 38 do begin
-              if (T <> 31) then begin
-                Y:=TOwner(T);
-                if ( pos('frank', lowercase(PProgram(Y))) > 0 ) or ( pos('zotob', lowercase(PProgram(Y))) > 0 ) or PHuman(Y) then begin
-                  if TArmies(T) > MaxTerritoryValue then begin
-                    MaxTerritoryValue:=TArmies(T);
-                  end;
-                end;
-              end;
-            end;
-          end;
-          ValIndex[39]:=EA+MaxTerritoryValue;
-      //  end;
-      end else begin
-        ValIndex[39]:=EA+100;
-      end;
-    end else begin
-      for T:=39 to 42 do begin
-        ValIndex[T]:=TArmies(T);
-        if (not TIsMine(T)) then begin
-          for X:=1 to TBordersCount(T) do begin
-            T2:=TBorder(T,X);
-            if (TISMine(T2)) and (TArmies(T2)>3) then begin
-              FromTerritory:=T2;
-              ToTerritory:=T;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  if ( pos('descartes', lowercase(PProgram(PMe))) > 0 ) then begin
-    CAnalysis(2,PT,PA,ET,EA);
-    if not (TISMine(9)) then begin
-      E9:=TArmies(9);
-    end else begin
-      E9:=0;
-    end;
-    if not (TIsMine(14)) then begin
-      E14:=TArmies(14);
-    end else begin
-      E14:=0;
-    end;
-    if (PA<5) then begin
-      if StartTurnCOwner[2] > 0 then begin
-        P:=StartTurnCOwner[2];
-        if ((StartTurnCOwner[2]=StartTurnCOwner[1]) or (StartTurnCOwner[2]=StartTurnCOwner[4]) or ( pos('zotob', lowercase(PProgram(P))) > 0 ) or PHuman(P)) then begin
-          ValIndex[10]:=40+EA+E9+E14;
-          ValIndex[12]:=40+EA+E9+E14;
-          ValIndex[9]:=40+EA+E9+E14;
-          ValIndex[14]:=40+EA+E9+E14;
-        end else begin
-          ValIndex[10]:=60+EA+E9+E14;
-          ValIndex[12]:=60+EA+E9+E14;
-          ValIndex[9]:=60+EA+E9+E14;
-          ValIndex[14]:=60+EA+E9+E14;
-        end;
-      end else begin
-        ValIndex[10]:=100+EA+E9+E14;
-        ValIndex[12]:=100+EA+E9+E14;
-        ValIndex[9]:=100+EA+E9+E14;
-        ValIndex[14]:=100+EA+E9+E14;
-      end;
-//      l('DESC V14 ' + i(ValIndex[14]) + ' V9 ' + i(ValIndex[9]));
-    end else begin
-      if not (TIsMine(10)) then begin
-        ValIndex[10]:=EA;
-      end;
-      if not (TIsMine(11)) then begin
-        ValIndex[11]:=EA-1;
-      end;
-      if not (TIsMine(12)) then begin
-        ValIndex[12]:=EA;
-      end;
-      if not (TIsMine(13)) then begin
-        ValIndex[13]:=EA-2;
-      end;
-    end;          
-  end;
-  if (trunc(UBufferGet(99)) = 99) then begin
-    for T:=1 to 42 do begin
-      if TContinent(T) = 1 then nicestart[T]:=3;
-      if TContinent(T) = 2 then nicestart[T]:=1;
-      if TContinent(T) = 3 then nicestart[T]:=5;
-      if TContinent(T) = 4 then nicestart[T]:=2;
-      if TContinent(T) = 5 then nicestart[T]:=4;
-      if TContinent(T) = 6 then nicestart[T]:=0;
-    end;
-    for C:=1 to 6 do begin
-      for X:=1 to CEntriesCount(C) do begin
-        nicestart[Centry(C,X)]:=nicestart[CEntry(C,X)]-2;
-      end;
-    end;
-    X:=-10000;
-    for T:=1 to 42 do begin
-      if (TIsMine(T)) and (nicestart[T]> X) then begin
-        X:=nicestart[T];
-        FromTerritory:=T;
-      end;
-    end;
-//    l('nice start rec ' + i(FromTerritory) + ' score ' + i(X));
-  end;      
-  if (FromTerritory=0) then begin
-    MaxTerritoryValue:=-100000;
-    loopcontrol:=true;
-    while loopcontrol do begin
-      loopcontrol:=false;
-      for T:=1 to 42 do begin
-        for X:=1 to TBordersCount(T) do begin
-          T2:=TBorder(T,X);
-          if TIsMine(T) then begin
-            Z:=ValIndex[T2]+1;
-          end else begin
-            Z:=ValIndex[T2]+TArmies(T)+1;
-          end;
-          if ValIndex[T] > Z then begin
-            ValIndex[T]:=Z;
-            loopcontrol:=true;
-          end;
-        end;
-      end;
-    end;
-    if routine=1 then begin
-      D:=-1000000;
-    end else begin
-      D:=0;
-    end;
-    for T:=1 to 42 do begin
-      if TIsMine(T) then begin
-        Y:=TBordersCount(T);
-        for Z:=1 to Y do begin  
-          T2:=TBorder(T,Z);
-//          if (not TIsMine(T2)) then begin
-            D2:=TArmies(T)-ValIndex[T2];
-            if TArmies(T)=1 then begin
-              D2:=D2-1000;
-            end;
-            if (D2>D) then begin
-              D:=D2;
-              FromTerritory:=T;
-              if (D>0) then begin
-                ToTerritory:=T2;
-              end;
-            end;
-//          end;
-        end;
-      end;
-    end;
-    if (not ((lastturnfrom=FromTerritory) and (lastturnto=99))) then begin 
-//      l('XXXTF ' + i(FromTerritory) + ' TA ' + i(ToTerritory) + ' A ' + i(TArmies(FromTerritory))+ ' VI ' + i(ValIndex[ToTerritory])+' D ' + i(D));
-    end;
-  end;
-end;
-
-procedure conquestAttack(var FromTerritory, ToTerritory: integer);
-var
-  T,T2,X,Y:integer;
-  Value:double;
-begin
-  if (not SConquest) and (ToTerritory=0) then begin
-    Value:=-100000;
-    for T:=1 to 42 do begin
-      if (TIsMine(T)) and (TArmies(T) > 1) then begin
-        for X:=1 to TFrontsCount(T) do begin
-          T2:=TFront(T,X);
-          if (TArmies(T2)=1) and (LoneTerritoryValue(T2)>Value) then begin
-            FromTerritory:=T;
-            ToTerritory:=T2;
-            Value:=LoneTerritoryValue(T2);
-          end;
-        end;
-      end;
-    end;
-    if (ToTerritory=0) and ((PArmiesCount(PMe)>AverageEnemyArmies) or (PArmiesCount(PMe) > 50)) then begin
-      for T:=1 to 42 do begin
-        if (TIsMine(T)) and (TArmies(T) > 1) then begin
-          for X:=1 to TFrontsCount(T) do begin
-            T2:=TFront(T,X);
-            if (TArmies(T2)=2) and (LoneTerritoryValue(T2)>Value) then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              Value:=LoneTerritoryValue(T2);
-            end;
-          end;
-        end;
-      end;
-    end;
-    if (ToTerritory=0) and ((PArmiesCount(PMe)>AverageEnemyArmies) or (PArmiesCount(PMe) > 75)) then begin
-      for T:=1 to 42 do begin
-        if (TIsMine(T)) and (TArmies(T) > 1) then begin
-          for X:=1 to TFrontsCount(T) do begin
-            T2:=TFront(T,X);
-            if (TArmies(T2)=3) and (LoneTerritoryValue(T2)>Value) then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              Value:=LoneTerritoryValue(T2);
-            end;
-          end;
-        end;
-      end;
-    end;
-    if (ToTerritory=0) and ((PArmiesCount(PMe)>AverageEnemyArmies) and (PArmiesCount(PMe) > 75)) then begin
-      for T:=1 to 42 do begin
-        if (TIsMine(T)) and (TArmies(T) > 1) then begin
-          for X:=1 to TFrontsCount(T) do begin
-            T2:=TFront(T,X);
-            if (TArmies(T2)=4) and (LoneTerritoryValue(T2)>Value) then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              Value:=LoneTerritoryValue(T2);
-            end;
-          end;
-        end;
-      end;
-    end;
-    if (ToTerritory=0) and ((PArmiesCount(PMe)>AverageEnemyArmies) and (PArmiesCount(PMe) > 125)) then begin
-      for T:=1 to 42 do begin
-        if (TIsMine(T)) and (TArmies(T) > 1) then begin
-          for X:=1 to TFrontsCount(T) do begin
-            T2:=TFront(T,X);
-            if (TArmies(T2)=5) and (LoneTerritoryValue(T2)>Value) then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              Value:=LoneTerritoryValue(T2);
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-    l('Cards attack from ' + i(FromTerritory) + ' to ' + i(ToTerritory) + ' armies to kill ' + i(TArmies(ToTerritory)) + ' val ' + f(Value)); 
-  end;
-end;
-
-
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-
-
-  FUNCTION Protection (ProT, ProY, ProTA : integer):integer;
-    BEGIN
-      IF (ProY=0) THEN BEGIN
-        ProX:=TBordersCount(ProT);
-        ProV:=0;
-        for ProZ:=1 to ProX do begin
-          ProT2:=TBorder(ProT,ProZ);
-          if (not (TIsMine(ProT2)) AND (ProT2 <> ProTA)) then begin
-            if (TArmies(ProT2)>ProV) then begin
-              ProV:=TArmies(ProT2);
-            end;
-          end;
-        end;
-      END;
-      if ((ProV>0) and (ProV<100)) then begin
-        ProV:=ProV+10;
-      end;
-      result:=ProV;
-    end;//protection
-
-  FUNCTION SumOfBorders(SOBT1,SOBT2:Integer):Integer;
-    begin
-      SOBTX:=0;
-      for SOBTT:=1 To 42 do begin
-        if ((not (TOwner(SOBTT) = PMe))
-            and (not (SOBTT=SOBT1))
-            and (not (SOBTT=SOBT2))) then begin
-          if (TIsBordering(SOBT1,SOBTT) OR TIsBordering(SOBT2,SOBTT)) then begin
-            SOBTX := SOBTX + TArmies(SOBTT);
-          end;
-        end;
-      end;
-      result:=SOBTX;
-    end;
-
-  FUNCTION ContinentValueAttack(CVAX2:Integer):Integer;
-    begin//
-      TerritoryTo:=0;
-      TerritoryFrom:=0;
-//      l('AAA');
-      CVAZ:=CTerritoriesCount(CAX);
-      // defence first
-      if (routine = 1) then begin
-        for CVAY:=1 to CVAZ do begin
-          CVAT:=CTerritory(CAX,CVAY);
-          if (TOwner(CVAT) = PMe) then begin
-            CVAN:=Protection(CVAT,0,0);
-            if (TArmies(CVAT)<CVAN) then begin
-              TerritoryFrom:=CVAT;
-              TerritoryTo:=0;
-              ValInd:=10;
-            end;
-          end;
-        end;
-      end;
-
-      //else attack
-      if (TerritoryFrom = 0) then begin
-        CVAValue:= -10000;
-        CVAPointValue:=-10000.2;
-        CVATA:=0;
-        // choose territory to attack
-        for CVAY2:=1 to CVAZ do begin
-          CVAT2:=CTerritory(CAX,CVAY2);
-          if (not (TOwner(CVAT2)=PMe)) then begin
-            // is it bordering us
-            CVAN:=0;
-            for CVAY:=1 to CVAZ do begin
-              CVAT:=CTerritory(CAX,CVAY);
-              if ((TOwner(CVAT)=PMe) AND (TIsBordering(CVAT,CVAT2))) then begin
-                CVAN:=1;
-              end;
-            end;
-            if (CVAN=1) then begin
-              // calculate new armies, not currently bordering us
-              CVANewArmies:=0;
-              CVAB:=TBordersCount(CVAT2);
-              for CVAY3:=1 to CVAB do begin
-                CVAI:=0;
-                CVAI2:=0;
-                CVAT3:=TBorder(CVAT2,CVAY3);
-                if (not (TISMine(CVAT3))) then begin
-                  CVAB2:=TBordersCount(CVAT3);
-                  for CVAY:=1 to CVAB2 do begin
-                    CVAT:=TBorder(CVAT3,CVAY);
-                    if ((TContinent(CVAT) = CAX) AND
-                        (TISMine(CVAT))) then begin
-                      CVAI:=1;
-                    end;
-                  end;
-                  if (CVAI=0) then begin
-                    CVANewArmies:=CVANewArmies+TArmies(CVAT3);
-                  end;
-                end;
-              end;
-              CVAMaxFreeArmy:=0;
-              CVAFreeArmies:=0;
-              for CVAY:=1 to CVAZ do begin
-                CVAT:= CTerritory(CAX,CVAY);
-                if (TIsBordering(CVAT,CVAT2) AND TISMine(CVAT)) then begin
-                  CVAI:=Protection(CVAT,0,CVAT2);
-                  CVAFreeArmies:=CVAFreeArmies+(TArmies(CVAT)-CVAI);
-                  if (TArmies(CVAT)-CVAI > CVAMaxFreeArmy) then begin
-                    CVAMaxFreeArmy:=TArmies(CVAT)-CVAI;
-                  end;
-                end;
-              end;
-              CVAPoints:= CVAFreeArmies-CVANewArmies-(TArmies(CVAT2)*1.01);
-//              //umessage('Points ',CVAPoints,' ',CVAPointValue);
-              CVAN2:=CVAMaxFreeArmy-TArmies(CVAT2);
-              if (CVAN2 < (CVAFreeArmies-TArmies(CVAT2))) then begin
-                CVAN2:=CVAFreeArmies-TArmies(CVAT2);
-              end;
-              TStrongestFront(CVAT2,ET,EA);
-              if (CVAPoints> CVAPointValue) then begin 
-//   //umessage('Pick Terr ',CVAT2,' ',CVAN2,' ',EA,' ',CVAFreeArmies,' ',TArmies(CVAT2)*0.99,' ',CVAPoints);
-                CVAValue:=CVAN2-EA;
-                CVATA:=CVAT2;
-                CVAPointValue:=CVAPoints;
-//                CVANewArmies2:=CVANewArmies;
-              end;
-            end;
-          end;
-        end;
-        TStrongestFront(CVATA,ET,EA);
-        //choose whether to attack and Territory From    
-        if (CVAValue < 0) then begin
-          CVAValue2:= -10000;
-          for CVAY:=1 TO CVAZ do begin
-            CVAT:=CTerritory(CAX,CVAY);
-            if (TIsBordering(CVAT,CVATA) AND TISMine(CVAT) AND (TArmies(CVAT)>TArmies(CVATA))) then begin
-              CVAI:=Protection(CVAT,0,CVATA);
-              if (TArmies(CVAT)-CVAI>CVAValue2) then begin
-                TerritoryFrom:=CVAT;
-                CVAValue2:=TArmies(CVAT)-CVAI;
-//              //umessage('Attack 0 ',TerritoryFrom,' ',TerritoryTo);
-                ValInd:=11;
-              end;
-            end;
-          end;
-        end else begin
-//          l('Cont A point a ' + i(CVATA) + ' ' + i(CVAValue) + ' ' + i(EA));     
-//          //umessage('Territories of place we are attacking ',TArmies(CVATA));
-          if ((TArmies(CVATA) < 3) or (routine=1)) then begin
-//            l('zzz ' + i(CVATA) + ' ' + i(CVAValue) + ' ' + i(EA) + ' ' + i(TArmies(CVATA)));     
-            CVAValue2:= -10000;
-            for CVAY:= 1 TO CVAZ do begin
-              CVAT:=CTerritory(CAX,CVAY);
-              if (TIsBordering(CVAT,CVATA) AND TIsMine(CVAT)) then begin
-//                l('yzz ' + i(CVAT));     
-                CVAI:=Protection(CVAT,0,CVATA);
-//                //umessage('Final Kill attack',CVAT,' ',CVAI,' ',CVAValue2);
-//                l('CVAT ' + i(CVAT) + ' CVAI ' + i(CVAI) + ' CVAValue2 ' + i(CVAVALUe2) + ' Arms ' + i(TArmies(CVAT)) + ' TA ' + i(TArmies(CVATA)+10));     
-                if ((TArmies(CVAT)-CVAI>CVAValue2) AND ((TArmies(CVAT)-CVAI>(TArmies(CVATA)+10)) OR (Routine = 1))) then begin
-                  TerritoryFrom:=CVAT;
-                  TerritoryTo:=CVATA;
-                  ValInd:=12;
-//              //umessage('Attack 1 ',TerritoryFrom,' ',TerritoryTo);
-                  CVAValue2:=TArmies(CVAT)-CVAI;
-                end;
-                if ((CVAI=0) AND (TArmies(CVAT)>(TArmies(CVATA)+10))
-                    AND (TArmies(CVAT)+10000>CVAValue2)) then begin
-                  CVAValue2:=TArmies(CVAT)+10000;
-                  TerritoryFrom:=CVAT;
-                  TerritoryTo:=CVATA;
-                  ValInd:=13;
-//              //umessage('Attack 2 ',TerritoryFrom,' ',TerritoryTo);
-                end;
-              end;
-            end;
-          end else begin
-//            //umessage('Preparatory attack');
-            CVAValue2:=-10000;
-            for CVAY:=1 TO CVAZ do begin
-              CVAT:=CTerritory(CAX,CVAY);
-              if (TIsBordering(CVAT,CVATA) AND TIsMine(CVAT)) then begin
-                CVAI:=Protection(CVAT,0,CVATA);
-                if ((TArmies(CVAT)-CVAI>CVAValue2) AND (((TArmies(CVAT)-CVAI)>TArmies(CVATA)))) then begin
-                  TerritoryFrom:=CVAT;
-                  TerritoryTo:=CVATA;
-                  ValInd:=14;
-                  CVAValue2:=TArmies(CVAT)-CVAI;
-//              //umessage('Attack 3 ',TerritoryFrom,' ',TerritoryTo);
-                end;
-                if ((CVAI=0) AND (TArmies(CVAT)>(TArmies(CVATA)))
-                    AND (TArmies(CVAT)+10000>CVAValue2)) then begin
-                  CVAValue2:=TArmies(CVAT)+10000;
-                  TerritoryFrom:=CVAT;
-                  CVAT3:=CVAT;
-                  TerritoryTo:=CVATA;
-                  ValInd:=15;
-//              //umessage('Attack 4 ',TerritoryFrom,' ',TerritoryTo);
-                end;
-              end;
-            end;
-            CVAValue2:=-10000;
-            for CVAY:=1 TO CVAZ do begin
-              CVAT:=CTerritory(CAX,CVAY);
-              if (TIsBordering(CVAT,CVATA) AND TISMine(CVAT) AND (TArmies(CVAT)>1)
-                 AND (CVAT<>CVAT3)) then begin
-                CVAI:=Protection(CVAT,0,CVATA);
-                if (CVAI=0) then CVAI2:=100000-CVAI+TArmies(CVAT);
-                if (CVAI>0) then CVAI2:=10000-CVAI+TArmies(CVAT);
-                if ((CVAI2>CVAValue2) AND (TArmies(CVAT)>CVAI)) then begin
-                  TerritoryFrom:=CVAT;
-                  TerritoryTo:=CVATA;
-                  CVAValue2:=CVAI2;
-//              //umessage('Attack 5 ',TerritoryFrom,' ',TerritoryTo);
-                  ValInd:=16;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;//ContinentValueAttack
-
-  FUNCTION LesseningAttack(DEParam:Integer):Integer;
-    BEGIN
-      TerritoryTo:=0;
-      TerritoryFrom:=0;
-      for T:=1 to 42 do begin
-	X:=0;
-        X2:=0;
-        LAValue:=0;
-        if (not (TISMine(T))) then begin
-          Y:=TBordersCount(T);
-          for Z:=1 to Y do begin
-            T2:=TBorder(T,Z);
-            if (TIsMine(T2)) then begin
-              if ((TArmies(T2)>100) and (TArmies(T2) <(TArmies(T)+10))) then begin
-                Y2:=TBordersCount(T2);
-                X3:=0;
-                LAValue2:=0;
-                for Z2:=1 to Y2 do begin
-                  TA:=TBorder(T2,Z2);
-                  if ((not (TA=T)) and (not TIsMine(TA))) then begin
-                    if (TArmies(TA)>LAValue2) then begin
-                      LaValue2:=TArmies(TA);
-                    end;
-                  end;
-                end;
-                if (TArmies(T2)>LAValue2) then begin
-                  X:=X+1;
-                  X2:=X2+TArmies(T2)-LAValue2;
-                end;
-              end;
-            end;
-          end;
-          if ((X>1) and ((X2-TArmies(T))>LAValue)) then begin
-            LAValue:=X2-TArmies(T);
-            TerritoryTo:=T;
-          end;
-        end;
-      end;
-      if (TerritoryTo>0) then begin
-        l('Lessening Attack ' + i(TerritoryTo)); 
-        T:=TerritoryTo;
-        Y:=TBordersCount(T);
-        LAValue:=0;
-        for Z:=1 to Y do begin
-          T2:=TBorder(T,Z);
-          if (TIsMine(T2)) then begin
-            if ((TArmies(T2)>100) and (TArmies(T2) <TArmies(T)+10)) then begin
-              if (TFrontsCount(T)>1) then begin
-                Y2:=TBordersCount(T2);
-                for Z2:=1 to Y2 do begin
-                  TA:=TBorder(T2,Z2);
-                  if ((not (TA=T)) and (not TIsMine(T))) then begin
-                    if (TArmies(T2)>(TArmies(TA)+10)+LAValue) then begin
-                      LAValue:=TArmies(T2)-TArmies(TA)-10;
-                      TerritoryFrom:=T2;
-                    end;
-                  end;
-                end;
-              end else
-              begin
-                if (TArmies(T2)>LAValue) then begin
-                  LAValue := TArmies(T2) - 10;
-                  TerritoryFrom:=T2;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    END;//Lessening Attacking
-
-
-  FUNCTION ContinentAttacking(CAValue:Integer):Integer;
-    begin
-      CAX:=0;
-      for CAC:=1 to 6 do begin
-        CAnalysis(CAC,PT,PA,ET,EA);
-        if (PA>0) then begin
-          if (EA>0) then begin
-            X:=ContinentValuation(CAC);
-//            l('C ' + i(CAC) + ' X ' + i(X) + ' PA ' + i(PA) + ' CAValue ' + i(CAValue));
-            if ((double(PA)/X)>CAValue) then begin
-//              l('D ' + i(CAC) + ' X ' + i(X) + ' PA ' + i(PA) + ' CAValue ' + i(CAValue));
-              CAX:=CAC;
-              CAValue:=trunc((double(PA-EA))/X);
-            end;
-          end;
-        end;
-      end;
-      if (CAX>0) then begin
-        CAZ:=ContinentValueAttack(1);//
-      end;
-    end;//ContinentAttacking  
-
-  FUNCTION DesirabilityAttacking(DEParam:Integer):Integer;
-    BEGIN
-      TerritoryTo:=0;
-      TerritoryFrom:=0;
-      if (routine=1) then begin
-        DEValue:= -10000;
-      end;
-      if (routine=2) then begin
-        DEValue:= 0;
-      end;
-      for T:=1 to 42 do begin
-        if (TISMine(T) AND (TArmies(T)>1)) then begin
-          X:=TBordersCount(T);
-          for Y:=1 to X do begin
-            T2:=TBorder(T,Y);
-            if (not TISMine(T2)) then begin
-              X2:=0;
-              if (T<40) then begin
-                X2:=valindex[T];
-              end;
-              if (X2>0) then begin
-                X2:=Protection(T,0,T2);
-                if (X2=0) then X2:=10;
-              end;
-              if (TArmies(T)-X2-valindex[T2]>DEValue) then begin
-// don't desire attack when should be continent attacking.
-                DEVal2:=1;
-                if ((TContinent(T) = TContinent(T2)) and (routine=2)) then begin
-                  DEVal2:=0;
-                  DEX:=valindex[T2];
-                  DEY:=TBordersCount(T2);
-                  for DEZ:=1 to DEY do begin
-                    DET3:=TBorder(T2,DEZ);
-                    if (valindex[DET3]<DEX) AND (not (TOwner(DET3)=PMe)) then begin
-                      DEVal2:=1;
-                    end;
-                  end;
-                end;
-                if (DEVal2=1) then begin
-                  TerritoryFrom:=T;
-                  TerritoryTo:=T2;
-                  DEValue:=TArmies(T)-X2-valindex[T2];
-//                  l('Desire Attack ' + i(TArmies(T)) + ' ' + i(X2)  + ' ' + i(T2)  + ' ' + i(valindex[T2]) + ' ');
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;//desirability attacking
-
-  FUNCTION TerritoryValues (nothing: boolean):boolean;
-  var
-    fff,ggg:integer;
-    BEGIN
-      fff:=0;
-      ggg:=0;
-      MinnowWhere(fff,ggg);
-
-      // calculate defence territory values
-      for T:=1 to 39 do begin
-        if (TIsMine(T)) then begin
-          ValProtection[T]:=0;
-        end;
-      end;
-
-      // australia
-      CAnalysis(6,PT,PA,ET,EA);          
-
-      for Z:=1 to 5 do begin
-        Z2:=CTerritoriesCount(Z);
-        CAnalysis(Z,PT,PA,ET,EA);
-        if (PA>EA) then begin
-          X:=ContinentValuation(Z);
-          if (double(PA)/X > 1.0) then begin
-            for Y:=1 to Z2 do begin
-              T2:=CTerritory(Z,Y);
-              if (TIsMine(T2)) then begin
-                X2:=Protection(T2,0,T2);
-                if (X2=0) then begin
-                  Y2:=TBordersCount(T2);
-                  for D:=1 to Y2 do begin
-                    TA:=TBorder(T2,D);
-                    if (not (TContinent(T2)=TContinent(TA))) then begin
-                      X2:=10;
-                    end;
-                  end;
-
-                end;
-                ValProtection[T2]:=X2;
-              end;
-            end;
-          end;
-        end;
-      end;
-
-    END;//FUNCTION TerritoryValues
-
-  FUNCTION ActiveBorder (ABT:Integer):Boolean;
-    BEGIN
-      ABTN:=TBordersCount(ABT);
-      result:=false;
-      for ABTI:=1 to ABTN  do begin
-        ABTC:=TBorder(ABT,ABTI);
-        if ((not (COwner(TContinent(ABTC))=PMe))
-            AND (TContinent(ABT)<>TContinent(ABTC))) then result:=true;
-      end;
-    end;
-
-procedure EndeavourPlacement(var ToTerritory: integer);
-begin //routine PLACEMENT
-  
-  Routine:=1;
-  
-  TerritoryValues(True);
-  TerritoryTo:=0;
-  TerritoryFrom:=0;
-  ToTerritory:=0;
-  
-  //initial placement code
-  if ((PArmiesCount(PMe) < 10) and (not (trunc(UBufferGet(50))=2))) then begin
-    UBufferSet(50,1);
-  end;
-  if ((PArmiesCount(PMe) > 25) and (trunc(UBufferGet(50))=1)) then begin
-    UBufferSet(50,2);
-  end;
-  
-  if (trunc(UBufferGet(50))=1) then begin
-    MaxTerritoryValue:=0;
-    for T:=1 to 42 do begin
-      if (TIsMine(T) and TIsFront(T)) then begin
-        TWeakestFront(T,ET,EA);
-        Score:=1000-EA;
-        Score:=Score-((double(TPressure(T)*2)/TFrontsCount(T)));
-        Score:=Score+(TArmies(T) div 3);
-        if (T>38) then Score:=Score-100;
-        if ((T>9) and (T<14)) then Score:=Score-50;
-        if (Score> MaxTerritoryValue) then begin
-          MaxTerritoryValue:=trunc(Score);
-          TerritoryTo:=T;
-        end;
-      end;
-    end;
-  end
-  else begin
-
-    if (PArmiesCount(PMe)<trunc(UBufferGet(39+PMe))) then begin
-      X:=trunc(UBufferGet(39+PMe))-PArmiesCount(PMe);
-      for T:=1 to 10 do begin
-        Y:=trunc(UBufferGet(39+T));
-        UBufferSet(39+T,Y-X);
-      end;
-    end;
-    UBufferSet(39+PMe,PArmiesCount(PMe));
-
-    if (PNewArmies(PMe)=1) then begin
-      for T:=1 to 10 do begin
-        if (not (T=PMe)) then begin
-          X:=trunc(UBufferGet(39+T));
-          Y:=PArmiesCount(PMe)-PArmiesCount(T);
-//          l('Player ' + i(T) +  ' ' + i(X-Y));
-          if (not (X=1000)) then begin
-            if (Y<(X-1)) then begin
-              UBufferSet(39+T,X-1);
-            end;
-          end;
-        end; 
-      end;
-    end;
-   
-  // assign defensive armies
-    if (TerritoryTo=0) then begin  
-      MaxTerritoryValue:=0;
-      for T:=1 to 39 do begin
-        if TIsMine(T) then begin
-          D:=ValProtection[T]-TArmies(T);
-          if (D>MaxTerritoryValue) then begin
-            MaxTerritoryValue:=D;
-            TerritoryTo:=T;
-//            //umessage('Defensive A ',TerritoryTo);
-          end;
-        end;
-      end;
-    end;
-   
-   // continent attacking
-    if (TerritoryTo=0) then begin
-      ContinentAttacking(1);
-
-      if (TerritoryFrom>0) then begin
-        TerritoryTo:=TerritoryFrom;
-//        //umessage('Conta Placement ',TerritoryTo);
-      end;
-    end;
-
-   
-
-  //desirability attacking
-    if (TerritoryTo=0) then begin
-      DesirabilityAttacking(1);
-
-      if (TerritoryFrom>0) then begin
-        TerritoryTo:=TerritoryFrom;
-      end;
-    end;
-
-
-   
-    if (TerritoryTo=0) then begin
-      MaxTerritoryValue:=0;
-      for T:=1 to 42 do begin
-        if (TIsFront(T) AND (TOwner(T) = PMe)) then begin 
-          if (TArmies(T)>MaxTerritoryValue) then begin
-            MaxTerritoryValue:=TArmies(T);
-            TerritoryTo:=T;
-          end;
-        end;
-      end;
-    end;
-
-  end;
-
-//  //umessage(trunc(UBufferGet(39)));
-  ToTerritory:=TerritoryTo;
-
-
-
-end;
-
-procedure endeavourAttack(var FromTerritory, ToTerritory: integer);
-
-
-begin
-  Routine:=2;
-  FromTerritory:=0;
-  ToTerritory:=0;
-  MaxTerritoryValue:=0;
-  TerritoryTo:=0;
-  TerritoryFrom:=0;
-  TerritoryValues(True);  
-  ValInd:=0;
-  KillPlayer:=0;
-  UBufferSet(50,3);
-
-
-
-  //Continent Attacking
-  if (FromTerritory=0) then begin
-    ContinentAttacking(1);
-    if (TerritoryTo>0) then begin
-      ToTerritory:=TerritoryTo;
-      FromTerritory:=TerritoryFrom;
-//      l('Continent Attacking ' + i(ValInd));
-      if (TArmies(FromTerritory)=1) then begin
-        //umessage('Attack Problem : ValInd = ',ValInd);
-      end;
-    end;
-  end;
-
-
-
-  //Desirability Attacking
-  if (FromTerritory=0) then begin
-    DesirabilityAttacking(1);
-    if (TerritoryTo>0) then begin
-      ToTerritory:=TerritoryTo;
-      FromTerritory:=TerritoryFrom;
-//      l('Desirability Attacking');
-      UBufferSet(50,4);
-//      //umessage('Desire Attack ',FromTerritory,' ',ToTerritory);
-    end;
-  end;
-
-
-
-  // Lessening Attack
-  if (FromTerritory=0) then begin
-    LesseningAttack(1);
-    if (TerritoryTo>0) then begin
-      ToTerritory:=TerritoryTo;
-      FromTerritory:=TerritoryFrom;
-      l('Lessening Attacking');
-    end;
-  end;
-
-  // Attack Dangerous Neighbour
-  if (FromTerritory=0) then begin
-    LesseningAttack(1);
-    if (TerritoryTo>0) then begin
-      ToTerritory:=TerritoryTo;
-      FromTerritory:=TerritoryFrom;
-      l('Lessening Attacking');
-    end;
-  end;
-
-          
-  if (FromTerritory=0) then begin
-    MaxTerritoryValue:=0;
-    if not SConquest then begin  
-      conquestAttack(FromTerritory,ToTerritory);
-    end;
-  end;
-
-  if (PArmiesCount(PMe)<trunc(UBufferGet(39+PMe))) then begin
-    X:=trunc(UBufferGet(39+PMe))-PArmiesCount(PMe);
-    for T:=1 to 10 do begin
-      Y:=trunc(UBufferGet(39+T));
-      if (not (Y=1000)) then begin
-        UBufferSet(39+T,Y-X);
-      end;
-    end;
-  end;
-  for T:=1 to 10 do begin
-    if (not (T=PMe)) then begin
-      X:=trunc(UBufferGet(39+T));
-      Y:=PArmiesCount(PMe)-PArmiesCount(T);
-//      l('Player ',X,' ',Y);
-      if (Y>X) then begin
-        UBufferSet(39+T,Y);
-      end;
-      if (Y<X-10) Then begin
-//        //umessage('Player ',T,' strong.');
-      end;
-    end;
-  end;
-    
-
-end;
-
-procedure endeavourOccupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-begin
-  T40:=trunc(UBufferGet(40));
-  T41:=trunc(UBufferGet(41));
-  T42:=trunc(UBufferGet(42));
-  UBufferSet(40,0);
-  UBufferSet(41,0);
-  UBufferSet(42,0);
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  Armies:=0;
-  Calc:=0;
-
-  //desirability attacking
-  if (Calc=0) then begin
-//     l('Desire1 ' + i(trunc(UBufferGet(50))));
-    if (trunc(UBufferGet(50))=4) then begin
-//      l('Desire2 ' + i(ValProtection[FromTerritory]));
-      if (ValProtection[FromTerritory]=0) or (FromTerritory>39) then begin
-        Armies:=TArmies(FromTerritory)-1;
-      end else
-      begin
-        Armies:=TArmies(FromTerritory)-ValProtection[FromTerritory];
-      end;
-      Calc:=1;
-    end;
-  end;
-
-  // don't move out of more favourable continent
-  if (Calc=0) then begin
-    C:=TContinent(FromTerritory);
-    C2:=TContinent(ToTerritory);
-    X:=ValIndex[ToTerritory];
-    Y:=trunc(ContinentValuation(C)*1.1);
-    if ((C<>C2) AND (not (COwner(C)=PMe)) AND (Y<X)) then begin
-      Armies:=0;
-      Calc:=1;
-      l('Stay in favourable continent' + i(Y) + ' ' + i(X));
-    end;
-  //don't let a small army wander
-    CAnalysis(C,PT,PA,ET,EA);
-    if ((PA>EA) and (TArmies(FromTerritory)<X) AND (PT>1) 
-        AND (C<>C2)) then begin
-      Z:=CTerritoriesCount(C);
-      for Z2:=1 to Z do begin
-        T:=CTerritory(C,Z2);
-        if ((TArmies(T)>1) AND (T <> FromTerritory)) then begin  
-          Armies:=0;
-          Calc:=1;
-          l('Small Armies stay at home');
-        end;
-      end;
-    end;
-  end;
-
-  // Streamline Attacking Scan ahead
-  if (Calc=0) then begin
-    X:=ValIndex[ToTerritory];
-    Y:=TBordersCount(ToTerritory);
-    for Z:=1 to Y do begin
-      T2:=TBorder(ToTerritory,Z);
-      if (ValIndex[T2]<X) AND (not (TOwner(T2)=PMe)) then begin
-        if (TContinent(T2) <> TContinent(FromTerritory)) then begin
-          Armies:=TArmies(FromTerritory)-(1+ValProtection[FromTerritory]);
-          if (Armies<0) then Armies:=0;  
-          Calc:=1;
-//          l('Streamline Attacking Scan Ahead ' + i(ToTerritory) + ' ' + i(T2));
-        end;
-      end;
-    end;
-  end;
-
-
-
-  // desirability continent moving
-  
-  if (Calc=0) then begin
-    if (TContinent(FromTerritory) <> TContinent(ToTerritory)) then begin
-      X2:=0;
-      if (COwner(TContinent(FromTerritory))=PMe) then begin
-        X2:=Protection(FromTerritory,0,ToTerritory);
-    //              //umessage('Desire Attack ',TArmies(T),' ',X2,' ',DEValue);
-        if (ValProtection[FromTerritory]>0) AND (X2=0) then begin
-          X2:=10;
-        end;
-      end;
-      if (TArmies(FromTerritory)-X2-valIndex[ToTerritory]>0) then begin
-        Armies:=TArmies(FromTerritory)-X2-1;
-        if (Armies<0) then Armies:=0;
-        Calc:=1;
-//        l('Desirability continent moving');
-      end;
-    end;
-  end;
-  ValIndex[ToTerritory]:=0;
-
-
-  //ContinentAttacking
-
-  if (Calc=0) then begin
-    C:=TContinent(FromTerritory);
-//    l('Attacking 1 ',FromTerritory,' ',ToTerritory);
-    CAnalysis(C,PT,PA,ET,EA);
-    Y:=ContinentValuation(C);
-    if (Y>0) then begin
-      if ((double(PA)/Y)>1.2) then begin
-        if (C=TContinent(ToTerritory)) then begin
-          ProT:=FromTerritory;
-          ProTA:=ToTerritory;
-          X:=Protection(ProT,0,ProTA);
-          TF:=FromTerritory;
-          if (TArmies(TF)>X) then begin
-            Armies:=TArmies(TF)-X-1;
-            X:=Protection(ProTA,0,0);
-            if (Armies >X) then begin
-              Fronts:=TFrontsCount(TF);
-              for T:=1 to Fronts do begin
-                if (TContinent(TFront(TF,T))=C) then begin
-                  Armies:=X;
-                end;
-              end;
-            end;
-            if (not (FromIsFront)) then begin
-              if (ActiveBorder(FromTerritory)) then begin
-                Armies:=TArmies(FromTerritory)-10;
-              end else begin
-                Armies:=TArmies(FromTerritory)-1;
-              end;
-            end;
-            Calc:=1;
-//          l('Cont Att Moving 2 ' + i(FromTerritory)  + ' ' + i(ToTerritory));
-          end
-          else begin
-            Calc:=1;
-            Armies:=0;
-//          l('Cont Att Moving 3 ' + i(FromTerritory)  + ' ' + i(ToTerritory));
-          end;
-        end
-        else begin
-          Armies:=0;
-          Calc:=1;
-//          l('Cont Att Moving 4 ' + i(FromTerritory)  + ' ' + i(ToTerritory));
-        end;
-      end;
-    end;
-  end;
-
-  if (Calc=0) then begin
-    if ToIsFront then begin
-      Armies:=TArmies(FromTerritory)-(1+valProtection[FromTerritory]);
-      Calc:=1;
-      if (Armies<0) then Armies:=0;  
-//      l('Occupation Default ' + i(Armies));
-    end;
-  end;
-
-
-
-
-  UBufferSet(40,T40);
-  UBufferSet(41,T41);
-  UBufferSet(42,T42);
-
-
-
-     
-
-end;
-
-function oldFortification(var FromTerritory, ToTerritory, Armies: integer):boolean;
-
-
-begin
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-  MaxArmy:=1;
-  if (COwner(6)=PMe)
-    then begin
-    if (TArmies(40)>1) then begin
-      Armies:=TArmies(40)-1;
-      FromTerritory:=40;
-      ToTerritory:=39;
-    end;
-    if (TArmies(42)>1) then begin
-      Armies:=TArmies(42)-1;
-      FromTerritory:=42;
-      ToTerritory:=39;
-
-    end;
-    if (TArmies(41)>1) then begin
-      Armies:=TArmies(41)-1;
-      FromTerritory:=41;
-      ToTerritory:=40;
-
-    end;
-  end;
-  
-  if (FromTerritory=0) then begin
-    for T:=1 to 39 do begin
-      if ((TIsMine(T)) 
-      and (not TIsFront(T))) then begin  
-        if (TArmies(T)-valProtection[T]>MaxArmy) then begin
-          MaxArmy := TArmies(T)-valProtection[T];
-          FromTerritory := T;
-        end;
-      end; 
-    end;
-    if (FromTerritory=0) then begin
-      for T:=40 to 42 do begin
-        if ((TIsMine(T)) 
-        and (not TIsFront(T))) then begin  
-          if (TArmies(T)>MaxArmy) then begin
-            MaxArmy := TArmies(T)-1;
-            FromTerritory := T;
-          end;
-        end; 
-      end;
-    end;
-    
-    if (FromTerritory>0) then begin
-      for B:=1 to TBordersCount(FromTerritory) do begin
-        if ToTerritory=0 then begin
-          T:=TBorder(FromTerritory,B);
-          if TIsMine(T) and TIsFront(T) then begin
-            ToTerritory:=T;
-          end;
-        end;
-      end;
-      if ToTerritory=0 then begin
-        for B:=1 to TBordersCount(FromTerritory) do begin
-          if ToTerritory=0 then begin
-            T:=TBorder(FromTerritory,B);
-            if TIsMine(T) then begin
-              ToTerritory:=T;
-            end;
-          end;
-        end;
-      end;
-      if ToTerritory>0 then begin
-        Armies:=TArmies(FromTerritory)-valProtection[FromTerritory]-1;
-      end;
-      if (Armies > TArmies(FromTerritory) - 1) then begin
-        Armies := TArmies(FromTerritory) - 1;
-      end;
-    end;
-  end;
-
-  if (FromTerritory=0) then begin
-  //Unite lost territories
-
-    for C:=1 to 6 do begin
-      CAnalysis(C,PT,PA,ET,EA);
-      Y:=ContinentValuation(C);
-      if ((Y>0) and (EA>0)) then begin
-        if ((double(PA)/Y)<1) then begin
-          Z:=CTerritoriesCount(C);
-          for X:=1 to Z do begin
-            T:=CTerritory(C,X);
-            if ((TOwner(T)=PMe) AND (TArmies(T)>1)) then begin
-              Z2:=TBordersCount(X);
-              for X2:=1 to Z2 do begin
-                T2:=TBorder(T,X2);
-                if ((TOwner(T2)=PMe) AND (TArmies(T2)>1) and TIsFront(T2)) then begin
-                  FromTerritory:=T;
-                  ToTerritory:=T2;
-                  Armies:=TArmies(FromTerritory)-1;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;  
-
-end;
-
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-
-
-procedure oldAttack(var FromTerritory, ToTerritory: integer);
-var
-  T,T2,X,Y:integer;
-  Value:double;
-begin
-  MinnowWhere(X,Y);
-  if (not TisMine(Y)) then begin
-//    l('BBBTF ' + i(X) + ' TA ' + i(Y) + ' A ' + i(TArmies(X))+ ' VI ' + i(ValIndex[Y]));
-    if TArmies(X) > ValIndex[Y] then begin
-      FromTerritory:=X;
-      ToTerritory:=Y;
-    end;
-  end else begin
-    FromTerritory:=0;
-    ToTerritory:=0;
-  end;
-  if (not SConquest) and (ToTerritory=0) then begin
-    conquestAttack(FromTerritory,ToTerritory);
-  end;
-end;
-
-
-procedure OldOccupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-begin
-      FromIsFront := TIsFront(FromTerritory);
-      ToIsFront := TIsFront(ToTerritory);
-      Armies:=0;
-
-
-
-      if ToIsFront then begin
-        Armies:=TArmies(FromTerritory)-1;
-        if (Armies<0) then Armies:=0;
-      end;
-      if (ToTerritory=41) then begin
-        Armies:=0;
-      end;
-      if ((ToTerritory=40) and (FromTerritory=39)) then begin
-        Armies:=(TArmies(FromTerritory)-1);
-        if (Armies > (TArmies(42)+5)) then Armies := (TArmies(42)+5);
-        if (Armies < (TArmies(39) div 2)) then Armies:=(TArmies(39) div 2);
-      end;
-      if ((ToTerritory=42) and (FromTerritory=39)) then begin
-        Armies:=0;
-      end;
-      if (ToTerritory=39) then begin
-        Armies:=(TArmies(FromTerritory)-1);
-      end;
-
-end;
-
-
-//end of old australian code
-//end of old australian code
-//end of old australian code
-//end of old australian code
-//end of old australian code
-//end of old australian code
-//end of old australian code
-//end of old australian code
-//end of old australian code
-
-
-
-//Tony Buffers
-// Buffer 99 - First run placement routine
-// Buffer 98 - From Territory
-// Buffer 97 - To Territory
-
-function TDistancetoFront(QTerr: integer): integer;
-var
-  BBMaxDistToFront: integer;
-  BBDisttoFront,Notused,T: integer;
-  Control: boolean;
-begin
-  BBMaxDisttoFront:=1000;
-  for T:=1 to 42 do begin
-    if TIsMine(T) then begin
-      if TIsFront(T) then begin
-        Control:=TShortestPath(QTerr,T,Notused,BBDisttoFront);
-        if BBDisttoFront < BBMaxDisttoFront then begin
-          BBMaxDisttoFront:=BBDisttoFront;
-        end;
-      end;
-    end;
-  end;
-  result:= BBMaxDisttoFront;
-end;
-
-function EArmiesThatCouldReach(QFromTerr,QToTerr: integer):integer;
-var
-  ENumberCanReach: array of integer;
-  vulnT,vulnT2,BorderCountry:integer;
-  LoopControl: boolean;
-begin
-  SetArrayLength(ENumberCanReach,43);
-  LoopControl:=true;
-  for vulnT:=1 to 42 do begin
-    ENumberCanReach[vulnT]:=-10000;
-  end;
-  ENumberCanReach[QFromTerr]:=MyArmiesMap[QFromTerr];
-  while loopcontrol do begin
-    loopcontrol:=false;
-    for vulnT:=1 to 42 do begin
-      For vulnT2:=1 to TBordersCount(vulnT) do begin
-        BorderCountry:=TBorder(vulnT,vulnT2);
-        if (vulnT = QToTerr) then begin
-          If ENumberCanReach[BorderCountry] > ENumberCanReach[vulnT] then begin
-            ENumberCanReach[vulnT]:=ENumberCanReach[BorderCountry];
-            loopcontrol:=True;
-          end;
-        end else begin
-          If ENumberCanReach[BorderCountry] > (ENumberCanReach[vulnT] + MyArmiesMap[vulnT]) then begin
-            ENumberCanReach[vulnT]:=ENumberCanReach[BorderCountry]-MyArmiesMap[vulnT];
-            loopcontrol:=True;
-          end;
-        end;
-      end;
-    end;
-  end;
-  result:=ENumberCanReach[QToTerr];
-end;
-
-
-
-function OldVulnLevel(QTerr: integer): integer;
-var
-  T: integer;
-  MaxArmiesThatCouldReach, ArmiesThatCouldReach: integer;
-begin
-  MaxArmiesThatCouldReach:=-10000;
-  for T:=1 to 42 do begin
-    if not(TIsMine(T)) then begin
-//    if (MyArmiesMap[T] > MyArmiesMap[QTerr]) then begin
-      ArmiesThatCouldReach:=EArmiesThatCouldReach(T,QTerr);
-      if ArmiesThatCouldReach > MaxArmiesThatCouldReach then begin
-        MaxArmiesThatCouldReach:=ArmiesThatCouldReach;
-      end;
-//      end;
-    end;
-  end;
-  result:=MaxArmiesThatCouldReach;
-end;
-
-
-function PlayerCScore(QPlayer: integer): integer;
-var
-  T: integer;
-begin
-  result:=0;
-  for T:=1 to 6 do begin
-    if (COwner(T)=QPlayer) then result:=result+CBonus(T);
-  end;
-end;
-
-
-function PlayerScore(QPlayer: integer): integer;
-begin
-  result:=PlayerCScore(Qplayer);
-  if (PTerritoriesCount(QPlayer)>11) then begin
-    result:=result+((PTerritoriesCount(QPlayer) div 3)-3);
-  end;
-  if PAlive(Qplayer) then begin
-    result:=result+3;
-  end;
-end;
-
-function TotalEnemyArmies(): integer;
-var
-  T,P:integer;
-begin
-  T:=0;
-  for P:=1 to 10 do begin
-    if (P<>PMe) then begin
-      T:=T+PArmiesCount(P);
-    end;
-  end;
-  result:=T;
-end;
-
-function TotalEnemyScore(): integer;
-var
-  S,P:integer;
-begin
-  S:=0;
-  for P:=1 to 10 do begin
-    if (P<>PMe) then begin
-      S:=S+PlayerScore(P);
-    end;
-  end;
-  result:=S;
-end;
-
-function ArePlayersConnected(P1,P2:integer):boolean;
-var
-  T,T2:integer;
-  output:boolean;
-begin
-  output:=false;
-  if (P<>PMe) then begin
-    for T:=1 to 42 do begin
-      if TOwner(T)=P1 then begin
-        for T2:=1 to TBordersCount(T) do begin
-          if TOwner(TBorder(T,T2)) = P2 then begin
-            output:=true;
-          end;
-        end;
-      end;
-    end;
-  end;
-  result:=output;
-end;    
-
-
-function EnemywithMostArmies(): integer;
-var
-  P,E,X:integer;
-begin
-  E:=0;
-  X:=0;
-  for P:=1 to 10 do begin
-    if (P<>PMe) then begin
-      If PArmiesCount(P) > X then begin
-        X:=PArmiesCount(P);
-        E:=P;
-      end;
-    end;
-  end;
-  result:=E;
-end;
-      
-function ConnectedEnemywithMostArmies(): integer;
-var
-  P,E,X:integer;
-begin
-  E:=0;
-  X:=0;
-  for P:=1 to 10 do begin
-    if (P<>PMe) and (ArePlayersConnected(P,PMe)) then begin
-      If PArmiesCount(P) > X then begin
-        X:=PArmiesCount(P);
-        E:=P;
-      end;
-    end;
-  end;
-  result:=E;
-end;
-
-procedure calculatebigarmies();
-var 
-  T:integer;
-  ifcontrol:boolean;
-begin
-  mrbig:=0;
-  mrbigarmies:=0;
-  mrsecondarmies:=0;
-  for T:=1 to 10 do begin
-    ifcontrol:=false;
-    if (pos('australian',lowercase(PProgram(Towner(T))))>0) then begin
-      if (PlayerScore(T)=0) then begin
-        ifcontrol:=true;
-      end;
-    end;
-    if (pos('descartes',lowercase(PProgram(Towner(T))))>0) then begin
-      if (PlayerScore(T)=0) then begin
-        ifcontrol:=true;
-      end;
-    end;
-    if (not ifcontrol) then begin
-      if PArmiesCount(T)>mrbigarmies then begin
-        mrsecondarmies:=mrbigarmies;
-        mrbigarmies:=PArmiesCount(T);
-        mrbig:=T;
-      end else begin
-        if PArmiesCount(T)>=mrsecondarmies then begin
-          mrsecondarmies:=PArmiesCount(T);
-        end;
-      end;
-    end;
-  end;
-end;
-
-function TerrPlayerBordering(T,P:integer):boolean;
-var
-  T2:integer;
-  output:boolean;
-begin
-  output:=false
-  for T2:=1 to TBordersCount(T) do begin
-    if TOwner(TBorder(T,T2)) = P then begin
-      output:=true;
-    end;
-  end;
-  result:=output;
-end;    
-
-function TerrContinentBordering(T,C:integer):boolean;
-var
-  T2:integer;
-  output:boolean;
-begin
-  output:=false
-  for T2:=1 to TBordersCount(T) do begin
-    if TContinent(TBorder(T,T2)) = C then begin
-      output:=true;
-    end;
-  end;
-  result:=output;
-end;    
-
-function TerrContinentFrontBordering(T,C:integer):boolean;
-var
-  T2:integer;
-  output:boolean;
-begin
-  output:=false
-  for T2:=1 to TFrontsCount(T) do begin
-    if TContinent(TFront(T,T2)) = C then begin
-      output:=true;
-    end;
-  end;
-  result:=output;
-end;    
-
-
-
-function calculatevuln(): boolean;
-var
-  T, T2, BorderT,ET,EA,X,Y,Score,P,WatchPlayer: integer;
-  control,loopcontrol: boolean;
-  Prog:String;
-begin
-  loopcontrol:=True;
-  WatchPlayer:=0;
-  SetArrayLength(AttackArmies,43);
-  for T:=1 to 42 do begin
-    If (MineArmies[T]) then begin
-      AttackArmies[T]:=-10000;
-    end else begin
-      AttackArmies[T]:=MyArmiesMap[T]+14;
-    end;
-    if not (TIsMine(T)) then begin
-      P:=TOwner(T);
-      Score:=PlayerScore(P);
-      Prog:=lowercase(PProgram(P));
-      if (pos('australian',Prog)>0) and (Score=3) then begin
-        WatchPlayer:=1;
-        if not (COwner(6)=PMe) then begin
-          AttackArmies[T]:=-10000;
-        end;
-      end;
-      if (Prog='descartes09.trp') and (Score>3) then begin
-        WatchPlayer:=1;
-//        if (not ArePlayersConnected(TOwner(T),PMe)) then begin
-          AttackArmies[T]:=-10000;
-//        end;
-      end;
-      if (Prog='endeavour09.trp') and (Score>3) then begin
-        WatchPlayer:=1;
-//        if (not ArePlayersConnected(TOwner(T),PMe)) then begin
-          AttackArmies[T]:=-10000;
-//        end;
-      end;
-      if (Prog='australian09.trp') and (Score>3) then begin
-        WatchPlayer:=1;
-//        if (not ArePlayersConnected(TOwner(T),PMe)) then begin
-          AttackArmies[T]:=-10000;
-//        end;
-      end;
-      if (Prog='descartes09.trp') and (Score=3) then begin
-        WatchPlayer:=1;
-        if not (COwner(2)=PMe) then begin
-          AttackArmies[T]:=-10000;
-        end;
-      end;
-      if (Prog='endeavour09.trp') and (Score=3) then begin
-        WatchPlayer:=1;
-        if (not (COwner(4)=PMe)) then begin
-          AttackArmies[T]:=-10000;
-        end;
-      end;
-      if (Prog='vexer.trp') and (PArmiesCount(TOwner(T))<PArmiesCount(PMe)) then begin
-        WatchPlayer:=1;
-        AttackArmies[T]:=-10000;
-      end;
-      if (Prog='frank.trp') then begin
-        WatchPlayer:=1;
-      end;
-      if (Prog='descartes.trp') then begin
-        WatchPlayer:=1;
-      end;
-      if (pos('australian',Prog)>0) then begin
-        WatchPlayer:=1;
-      end;
-      if (Prog='endeavour.trp') then begin
-        WatchPlayer:=1;
-      end;
-      if (Prog='zotob.trp') then begin
-        WatchPlayer:=1;
-      end;
-      if PHuman(P) then begin
-        WatchPlayer:=1;
-      end;
-      if (Prog='frank.trp') and (COwner(6)=PMe) and (Score=3) then begin
-        AttackArmies[T]:=AttackArmies[T]+13;
-      end;
-      if (COwner(6)=P) and (COwner(2)=PMe) then begin
-        AttackArmies[T]:=AttackArmies[T] div 2;
-      end;
-      if (COwner(2)=P) and (COwner(6)=PMe) then begin
-        AttackArmies[T]:=AttackArmies[T] div 2;
-      end;
-      if PHuman(P) and (COwner(6)=PMe) and (Score=3) then begin
-        AttackArmies[T]:=AttackArmies[T]+13;
-      end;
-      if (KP2009=mrbig) and (PArmiesCount(PMe)=mrsecondarmies) and (TOwner(T)=KP2009) then begin
-        AttackArmies[T]:=-10000;
-      end;
-      if (PlayersCount = 2) or (WatchPlayer=0) then begin
-        AttackArmies[T]:=-10000;
-      end;
-    end;
-  end;
-  while loopcontrol do begin
-    loopcontrol:=false;
-    for T:=1 to 42 do begin
-      for T2:=1 to TBordersCount(T) do begin
-        BorderT:=TBorder(T,T2);
-        if AttackArmies[BorderT] > (1+AttackArmies[T] + MyArmiesMap[T]) then begin
-          AttackArmies[T]:=AttackArmies[BorderT]-MyArmiesMap[T]-1;
-          loopcontrol:=True;
-        end;
-      end;
-    end;
-  end;
-  for C:=1 to 6 do begin
-    if COwner(C) = PMe then begin
-      for X:=1 to CEntriesCount(C) do begin
-        T:=CEntry(C,X);
-        for Y:=1 to CTerritoriesCount(C) do begin
-          T2:=CTerritory(C,Y);
-          if (T <> T2) then begin
-            AttackArmies[T]:=AttackArmies[T]-(MyArmiesMap[T2]-1);
-          end;
-        end;
-      end;
-    end;
-  end;
-  for T:=1 to 42 do begin
-    if (AttackArmies[T]<0) then AttackArmies[T]:=0;
-//    l('attarmies T ' + i(T) + ' ' + i(AttackArmies[T]));
-    if (TOwner(T) = PMe) and TIsFront(T) then begin
-      if (COwner(TContinent(T)) = PMe) then begin
-         Y:=TFrontsCount(T);
-         EA:=0;
-         for X:=1 to Y do begin
-           T2:=TFront(T,X);
-           if EA < MyArmiesMap[T2] then EA:=MyArmiesMap[T2];
-         end;
-         if (EA>MyArmiesMap[T]) then begin
-           AttackArmies[T]:=AttackArmies[T]+(EA-MyArmiesMap[T])+1000;
-         end;
-         if (11>MyArmiesMap[T]) then begin
-           AttackArmies[T]:=AttackArmies[T]+11-(MyArmiesMap[T]*2)+1500;
-         end;
-         if (6>MyArmiesMap[T]) then begin
-           AttackArmies[T]:=AttackArmies[T]+13-(MyArmiesMap[T]*3)+3000;
-         end;
-      end;
-      if (TContinent(T) = myattackC) then begin
-         AttackArmies[T]:=0;
-         if (11>MyArmiesMap[T]) then begin
-           AttackArmies[T]:=11-MyArmiesMap[T];
-         end;
-         if (6>MyArmiesMap[T]) then begin
-           AttackArmies[T]:=13-(MyArmiesMap[T]*2);
-         end;
-      end;
-    end;
-    if (TOwner(T) = PMe) and not (TIsFront(T)) then begin
-      if TContinent(T) = myattackC then begin
-        AttackArmies[T]:=0;
-      end;
-    end;
-  end;
-  result:=true;
-end;
-
-function calcmyfronts():integer;
-var
-  myfT1,myfT2,sumfronts,myfborder: integer;
-  isfront:boolean;
-begin
-  sumfronts:=0;
-  for myfT1:=1 to 42 do begin
-    if MineArmies[myFT1] then begin
-      isfront:=false;
-      for myfT2:= 1 to TBordersCount(myft1) do begin
-        myfborder:=TBorder(myfT1,myfT2);
-        if MineArmies[myfborder]=false then begin
-          isfront:=true;
-        end;
-      end;
-      if isfront = true then begin
-        sumfronts:=sumfronts+MyArmiesMap[myft1];
-      end;
-    end;
-  end;
-  result:=sumfronts;
-end;
-
-function calcmyborders():integer;
-var
-  mybT1,mybT2,sumborders,mybborder: integer;
-  ismyborder:boolean;
-begin
-  sumborders:=0;
-  for mybT1:=1 to 42 do begin
-    if not MineArmies[mybT1] then begin
-      ismyborder:=false;
-      for mybT2:= 1 to TBordersCount(mybt1) do begin
-        mybborder:=TBorder(mybT1,mybT2);
-        if MineArmies[mybborder]=true then begin
-          ismyborder:=true;
-        end;
-      end;
-      if ismyborder = true then begin
-        sumborders:=sumborders+MyArmiesMap[mybt1];
-      end;
-    end;
-  end;
-  result:=sumborders;
-end;
-
-function calcmynewborders(T:integer):integer;
-var
-  X,T2,X2,T3,sumborders: integer;
-  ismyborder:boolean;
-begin
-  sumborders:=0;
-  for X:=1 to TBordersCount(T) do begin
-    T2:=TBorder(T,X);
-    if not(TIsMine(T2)) then begin
-      ismyborder:=false;
-      for X2:= 1 to TBordersCount(T2) do begin
-        T3:=TBorder(T2,X2);
-        if TIsMine(T3) then begin
-          ismyborder:=true;
-        end;
-      end;
-      if ismyborder = false then begin
-        sumborders:=sumborders+Tarmies(T2);
-      end;
-    end;
-  end;
-  result:=sumborders;
-end;
-
-procedure calculateoverallvuln(var overallvuln,maxvuln:integer);
-var
-  C,T,X,V:integer;
-  control:boolean;
-begin
-  overallvuln:=0;
-  maxvuln:=0;
-  control:=calculatevuln();
-//  for T:=1 to 42 do begin
-//    l('jjj ' + i(T) + ' ' + i(AttackArmies[T]));
-//  end;
-  for C:=1 to 6 do begin
-    if COwner(C) = PMe then begin
-      for X:=1 to CEntriesCount(C) do begin
-        T:=CEntry(C,X);
-        V:=AttackArmies[T];
-        if V>0 then begin
-          overallvuln:=overallvuln+V;
-          if V> maxvuln then begin
-            maxvuln:=V;
-          end;
-        end;
-      end;
-    end;
-    if (C=myAttackC) then begin
-      for X:=1 to CTerritoriesCount(C) do begin
-        T:=CTerritory(C,X);
-        if TIsMine(T) then begin
-          V:=AttackArmies[T];
-          if V>0 then begin
-            overallvuln:=overallvuln+V;
-          end;
-        end;
-      end;
-    end;
-  end;
-end;
-
-procedure setupmymaps();
-var 
-  T:integer;
-begin
-  for T:=1 to 42 do begin
-    MyArmiesMap[T]:=TArmies(T);
-    MineArmies[T]:=TIsMine(T);
-  end;
-end;
-
-
-function goodvulnattack(fromc,toc: integer):boolean;
-var
-  overallvuln,maxvuln,newoverallvuln,newmaxvuln:integer;
-begin
-  setupmymaps();
-  calculateoverallvuln(overallvuln,maxvuln);
-  MyArmiesMap[fromc]:=MyArmiesMap[fromc]-1;
-  MyArmiesMap[toc]:=MyArmiesMap[toc]-1;
-  calculateoverallvuln(newoverallvuln,newmaxvuln);
-  l('MMMov ' + i(overallvuln) + ' nov ' + i(newoverallvuln) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln));
-  if (overallvuln>=newoverallvuln) and (maxvuln>=newmaxvuln) then begin
-    result:= true;
-  end else begin
-    result:= false;
-  end;
-end;
-
-function AreContinentsConnected(C1,C2:integer):boolean;
-var
-  T,T2,T3:integer;
-  output:boolean;
-begin
-  output:=false
-  if (C1 <> C2) then begin
-    for T:=1 to CEntriesCount(C1) do begin
-      T2:=CEntry(C1,T);
-      for T3:= 1 to TBordersCount(T2) do begin
-        if TContinent(TBorder(T2,T3)) = C2 then begin
-          output:=true;
-        end;
-      end;
-    end;
-  end;
-  result:=output;
-end;    
-
-function ArePlayerContinentsConnected(P1,P2:integer):boolean;
-var
-  T,T2:integer;
-  output:boolean;
-begin
-  output:=false;
-  for T:=1 to 6 do begin
-    for T2:=1 to 6 do begin
-      if T <> T2 then begin
-        if COwner(T) = P1 then begin
-          if COwner(T2) = P2 then begin
-            if AreContinentsConnected(T,T2) then begin
-              output:=true;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  result:=output;
-end;    
-
-
-function endgameplay():integer;
-var
-  PP,X:integer;
-begin
-  PP:=0;
-//  l('Hello ' + i(PlayerScore(PMe)) + ' ' + i(TotalEnemyScore()));
-  PP:=ConnectedEnemywithMostArmies();
-  l('endgameplay kill ' + i(PP));
-  result:=PP;
-end;
-
-
-
-function shallikillaplayer():integer;
-var
-  P,MaxValue,PP:integer;
-begin
-  //first of all, need to pick off any cheeky neighbours
-  PP:=0;
-  MaxValue:=0;
-  
-  if PlayerScore(PMe) > 4 then begin
-
-    if (PArmiesCount(PMe)>=mrsecondarmies) then begin
-      for P:=1 to 10 do begin
-        if (P <> PMe) then begin
-          if (ArePlayerContinentsConnected(P,PMe)) or (PlayerScore(P)>10) then begin
-            if (PlayerCScore(P)>PlayerCScore(PMe)+1) then begin
-              if PlayerCScore(P)>MaxValue then begin
-                MaxValue:=PlayerCScore(P) + (PArmiesCount(P) div 10);
-//                l('Cheeky score ' + i(P) + ' ' + i(MaxValue));
-                PP:=P;
-              end;
-            end;
-          end;
-        end;
-      end;
-      if PP>0 then begin
-//        l('Cheeky22 neighbour ' + i(PP));
-      end;
-    end;
-    if (PP=0) then begin  
-      if (PArmiesCount(PMe)>=mrsecondarmies) then begin
-        if (mrbig <> PMe) and (ArePlayersConnected(PMe,MrBig)) then begin
-          PP:=Mrbig;
-          if (PP<>KP2009) then l('KillMrBig ' + i(PP));
-        end;
-      end;
-    end;
-            
-    if (PP=0) then begin  
-      if (PArmiesCount(PMe)=mrsecondarmies) and (mrsecondarmies<mrbigarmies) then begin
-        if ((PlayerScore(MrBig) > (PlayerScore(PMe)+1)) and (PlayerScore(MrBig) > 6)) then begin
-          KP2009:=MrBig;
-          PP:=MrBig;
-        end;
-      end;
-    end;
-//    if (PP=0) then begin  
-//      if (PArmiesCount(PMe)=mrbigarmies) then begin
-//        l('KKK - Mr Big has ' + i(mrbigarmies) + ' Mr 2 has ' + i(mrsecondarmies) + ' Big Score ' + i(PlayerScore(MrBig)) + ' Me Score ' + i(PlayerScore(PMe)));
-//        for P:=1 to 10 do begin
-//          if (P <> PMe) then begin
-//            if (ArePlayersConnected(P,PMe)) then begin
-//              if (PlayerScore(P)>PlayerScore(Pme)) or (PlayerCScore(P)>PlayerCScore(PME)) then begin
-//                KP2009:=P;
-//                PP:=P;
-//              end;
-//            end;
-//          end;
-//        end;
-//     end;
-//    end;
-//    MaxValue:=1000000;
-//    if (PP=0) then begin  
-//      if (PArmiesCount(PMe)>(mrsecondarmies+30)) then begin
-//        l('KWP - Mr Big has ' + i(mrbigarmies) + ' Mr 2 has ' + i(mrsecondarmies) + ' Big Score ' + i(PlayerScore(MrBig)) + ' Me Score ' + i(PlayerScore(PMe)));
-//        for P:=1 to 10 do begin
-//          if (P <> PMe) then begin
-//            if (ArePlayersConnected(P,PMe)) then begin
-//              if PArmiesCount(P)<MaxValue then begin
-//                KP2009:=P;
-//                PP:=P;
-//                MaxValue:=PArmiesCount(P);
-//              end;
-//            end;
-//          end;
-//        end;
-//      end;
-//    end;
-  end;
-  
-  result:=PP;
-end;
-
-function DoesBorderMe(C:integer):boolean;
-var
-  X,T,BorderC:integer;
-begin
-  result:=false;
-  for X:=1 to CBordersCount(C) do begin
-    T:=CBorder(C,X);
-    BorderC:=TContinent(T);
-    if COwner(BorderC) = PMe then result:=true;
-  end;
-end;
-
-procedure calcDistanceToAttackFront();
-var
-  T,X,T2:integer;
-  control:boolean;
-begin
-  for T:=1 to 42 do begin
-    DistanceToAttackFront[T]:=0;
-  end;
-  if (KP2009>0) then begin
-    for T:=1 to 42 do begin
-      if TerrPlayerBordering(T,KP2009) and TIsMine(T) then begin
-        DistanceToAttackFront[T]:=1;
-      end;
-    end;
-  end;
-  for T:=1 to 42 do begin
-    if TIsMine(T) and TIsFront(T) and TerrContinentFrontBordering(T,MyAttackC) and (DistanceToAttackFront[T]=0) then begin
-      if (COwner(TContinent(T))>0) then DistanceToAttackFront[T]:=2;
-      if (TContinent(T)=myAttackC) then DistanceToAttackFront[T]:=1;
-    end;
-  end;
-  control:=true;
-  while control do begin
-    control:=false;
-    for T:=1 to 42 do begin
-      if (DistanceToAttackFront[T]>0) then begin
-        for X:=1 to TBordersCount(T) do begin
-          T2:=TBorder(T,X);
-          if (DistanceToAttackFront[T2] = 0) or (DistanceToAttackFront[T2] > (DistanceToAttackFront[T]+1)) then begin
-            DistanceToAttackFront[T2]:=DistanceToAttackFront[T]+1;
-            control:=true;
-          end;
-        end;
-      end;
-    end;
-  end;
-//    for T:=1 to 42 do begin
-//        l('distattfront ' + i(T) + ' ' + i(DistanceToAttackFront[T]));
-//    end;
-end;
-
-procedure CalcMyAttackC();
-var
-  E,T,T2,C,X,PT,PA,ET,EA:integer;
-  CScore: array of integer;
-  MaxTerritoryValue:integer;
-  ifcontrol,control:boolean;
-begin
-  MaxTerritoryValue:=-1000000;
-  SetArrayLength(CScore,7);
-  for C:=1 to 6 do begin
-    ifcontrol:=false;
-    CScore[C]:=-1000000;
-    if (COwner(C)=PMe) then begin
-      ifcontrol:=true;
-    end;
-    CAnalysis(C,PT,PA,ET,EA);
-    if (PA=0) and (not ifcontrol) then begin
-      ifcontrol:=true;
-      for X:=1 to CEntriesCount(C) do begin
-        if TerrPlayerBordering(CEntry(C,X),PMe) then begin
-          ifcontrol:=false;
-        end;
-      end;
-    end;
-    if (not ifcontrol) then begin
-      CScore[C]:=0;
-      if (PT > 0) then begin
-        CScore[C]:=CScore[C] + (PT*5);
-      end;
-      if DoesBorderMe(C) Then begin
-        CScore[C]:=CScore[C]+150;
-      end;
-      E:=0;
-      for X:=1 to CTerritoriesCount(C) do begin
-        T:=CTerritory(C,X);
-        if (not(TOwner(T)=PMe)) and (TArmies(T)>1) then begin
-          if (E=0) or (E=TOwner(T)) then begin
-            E:=TOwner(T);
-          end else begin
-            E:=100;
-          end;
-        end;
-      end;
-      if E <> 100 then CScore[C]:=CScore[C]+75;
-      if E = ThreatPlayer then CScore[C]:=CScore[C]+50;
-      if (COwner(C)>0) Then begin
-        CScore[C]:=CScore[C]+50;
-        if COwner(C)=ThreatPlayer then CScore[C]:=CScore[C]+50;
-      end;
-      CScore[C]:=CScore[C]-EA;
-      for X:=1 to CTerritoriesCount(C) do begin
-        T:=CTerritory(C,X);
-        if TIsMine(T) and (MyConnected[T] = 0) then begin
-          CScore[C]:=CScore[C]+TArmies(T);
-        end;
-      end;
-      if CScore[C]>MaxTerritoryValue then begin
-        MaxTerritoryValue:=CScore[C];
-        MyAttackC:=C;
-      end;
-    end;
-  end;
-  calcDistanceToAttackFront();
-end;
-
-function MyCTerr(Territory: integer): boolean;
-begin
-  result:=false;
-  if COwner(TContinent(Territory))=PMe then begin
-    result:=true;
-  end;
-  if TContinent(Territory)=MyAttackC then begin
-    result:=true;
-  end;
-end;
-
-function OnlyForeignTerrInC(Territory: integer): boolean;
-var
-  C,E,X,CT: integer;
-begin
-  result:=true;
-  C:=TContinent(Territory);
-  for X:=1 to CTerritoriesCount(C) do begin
-    CT := CTerritory(C,X);
-    if CT <> Territory then begin
-       if E=0 then begin
-         E:=TOwner(CT);
-       end else begin
-         if E<>TOwner(CT) then begin
-           result:=false;
-         end;
-       end;
-    end;
-  end;
-end;
-
-
-
-function CalcEnemyAreas(C:integer): integer;
-var
-  T1,T2,X,Y,EnemCount:integer;
-  loopcontrol:boolean;
-  EnemAreas:array of integer;
-begin
-  loopcontrol:=false;
-  SetArrayLength(EnemAreas,13);
-  for X:=1 to CTerritoriesCount(C) do begin
-    if not (MineArmies[CTerritory(C,X)]) then begin
-      EnemAreas[X]:=X;
-    end else begin
-      EnemAreas[X]:=0;
-    end;
-  end;
-  while loopcontrol=false do begin    
-    loopcontrol:=true;
-    for X:=1 to CTerritoriesCount(C) do begin
-      for Y:=1 to CTerritoriesCount(C) do begin
-        T1:=CTerritory(C,X);
-        T2:=CTerritory(C,Y);
-        if (X<>Y) and (not MineArmies[T1]) and (not (MineArmies[T2])) then begin
-          if (TIsBordering(T1,T2)) then begin
-            if EnemAreas[X] < EnemAreas[Y] then begin
-              EnemAreas[X]:=EnemAreas[Y];
-              loopcontrol:=false;
-            end;
-            if EnemAreas[X] > EnemAreas[Y] then begin
-              EnemAreas[Y]:=EnemAreas[X];
-              loopcontrol:=false;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  EnemCount:=0;
-  for X:=1 to CTerritoriesCount(C) do begin
-    if (EnemAreas[X]=X) then begin
-      EnemCount:=EnemCount+1;
-    end;
-  end;
-  result:=EnemCount;
-end;
-
-function protectweakspots(var ToTerritory:Integer): boolean;
-var
-  Weakest,WeakestMargin,WeakestValue,T,T2,X:integer;
-  FWMargin,WeakestTerr:integer;
-begin
-  result:=false;
-  FWMargin:=-1000000;
-  for T:=1 to 42 do begin
-    WeakestValue:=1000000;
-    Weakest:=0;
-    if (not MineArmies[T]) then begin
-      for X:=1 to (TBordersCount(T)) do begin
-        T2:=TBorder(T,X);
-        if MineArmies[T] <> MineArmies[T2] then begin
-          if MyArmiesMap[T2]< WeakestValue then begin
-            WeakestValue:=MyArmiesMap[T2];
-            WeakestMargin:=MyArmiesMap[T]-MyArmiesMap[T2];
-            if MineArmies[T2] then begin
-              Weakest:=PMe;
-            end else begin
-              Weakest:=Towner(T2);
-            end;
-            WeakestTerr:=T2;
-          end;
-        end;
-      end;
-      if Weakest=PMe then begin
-        result:=true;
-        if WeakestMargin>FWMargin then begin
-          ToTerritory:=WeakestTerr;
-          FWMargin:=WeakestMargin;
-        end;
-      end;
-    end;
-  end;
-end;
-
-function NastyPlayer(var C,C2,P:Integer): boolean;
-var
-  control: boolean;
-begin
-  control:=false;
-  if StartTurnPlayerCScore[P] > (StartTurnPlayerCScore[PMe] + 1) then begin
-    control:=true;
-  end;
-//  if (COwner(C2) <> PMe) and (COwner(C2) > 0) then begin
-//    control:=true;
-//  end;
-//  if (PProgram(P)='raptorbot.trp') then begin
-//    control:=false;
-//  end;
-//  if (PProgram(P)='shy.trp') then begin
-//    control:=false;
-//  end;
-//  if (PProgram(P)='zotob.trp') and (C2 <> 2) then begin
-//    control:=false;
-//  end;
-//  if (PProgram(P)='vexer.trp') and (C2 <> 2) then begin
-//    control:=false;
-//  end;
-//  if (PlayerScore(P) > PlayerScore(PMe)+1 ) then begin
-//    control:=true;
-//  end;
-  if ((StartTurnPlayerScore[P] >= StartTurnPlayerScore[PMe] ) or (StartTurnPlayerCScore[P]>6)) and ((P=MrBig) or (PMe=MrBig)) then begin
-    control:=true;
-  end;
-  result:=control;
-end;
-
-procedure AttackPlayer(P:integer; var FromTerritory,ToTerritory:Integer);
-var
-  T, T2, D: integer;
-begin
-      MaxTerritoryValue:=-100000;
-  //    if (PArmiesCount(PMe)=mrsecondarmies) and (PArmiesCount(PMe)<mrbigarmies) then begin
-        for T:=1 to 42 do begin
-          if TIsMine(T) and (TArmies(T)>3) then begin
-            for T2:=1 to TFrontsCount(T) do begin
-              D:=TFront(T,T2);
-              if TOwner(D)=P then begin
-//                l('KA GVA From ' + i(T) + ' To ' + i(D) + ' FA ' + i(TArmies(T)) + ' TA ' + i(TArmies(D)));
-                if (TArmies(T)-TArmies(D)) > MaxTerritoryValue then begin
-                  MaxTerritoryValue:=TArmies(T)-TArmies(D);
-                  FromTerritory:=T;
-                  ToTerritory:=D;
-                end;
-              end;
-            end;
-          end;
-  //      end;
-      end;
-      if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-        l('Kill Attack F ' + i(FromTerritory) + ' T ' + i(ToTerritory));
-      end;
-end;
-
-procedure KillPlace(var ToTerritory:Integer);
-var
-  MaxTerritoryValue:integer;
-begin
-  if KP2009>0 then begin
-    l('KP2009 ' + i(KP2009));
-    if ArePlayersConnected(PMe,KP2009) then begin
-      MaxTerritoryValue:=0;
-      for T:=1 to 42 do begin
-        if TIsMine(T) and TerrPlayerBordering(T,KP2009) then begin
-          if TArmies(T)> MaxTerritoryValue then begin
-            MaxTerritoryValue:=TArmies(T);
-            ToTerritory:=T;
-            UBufferSet(98,T);
-          end;
-        end;
-      end;
-      if (ToTerritory>0) then begin
-        l('APlace ' + i(ToTerritory));
-      end;
-    end;
-  end;
-end;
-
-procedure DefensivePlace(var ToTerritory:Integer);
-var
-  overallvuln,maxvuln,newoverallvuln,newmaxvuln,NScore,Score:integer;
-begin
-  setupmymaps();
-  calculateoverallvuln(overallvuln,maxvuln);
-  if (overallvuln <> 0) or (maxvuln <> 0) then begin
-    l('POV '+ i(overallvuln)+' PMV '+i(maxvuln));
-    Score:=0;
-    for T:=1 to 42 do begin
-      If TisMine(T) and (MyCTerr(T)) then begin
-        setupmymaps();
-        MyArmiesMap[T]:=MyArmiesMap[T]+1;
-        calculateoverallvuln(newoverallvuln,newmaxvuln);
-        NScore:=((maxvuln-newmaxvuln)*10) + (overallvuln-newoverallvuln)
-        if NScore >= Score then begin
-          if NScore=Score then begin
-            if (TDistancetofront(T)<TDistanceToFront(ToTerritory)) then begin
-              ToTerritory:=T;
-            end;
-          end else begin
-            Score:=NScore;
-            ToTerritory:=T;
-          end;
-        end;                    
-      end;
-    end;
-    if (ToTerritory>0) then l('Defensive place ' + i(ToTerritory) + ' ' + floattostr(Score)); 
-  end;
-end;
-
-
-
-procedure FindSensibleAttack(var FromTerritory,ToTerritory:Integer);
-var
-  T,T2: integer;
-  MaxTerritoryValue,TerritoryValue: integer;
-  PossAttackTerritory: integer;
-  MyBorders,EnemyAreas,NewEnemyAreas:integer;
-begin
-  setupmymaps();
-  MaxTerritoryValue:=-10000;
-  l('SMAC ' + i(MyAttackC) + ' PAT ' + i(PossAttackTerritory) + ' EA ' + i(EnemyAreas) + ' NEA ' + i(NewEnemyAreas));
-  for T:=1 to 42 do begin
-    if TIsMine(T) then begin
-      for T2:=1 to TFrontsCount(T) do begin
-        PossAttackTerritory:=TFront(T,T2);
-        l('FMAC ' + i(MyAttackC) + ' PAT ' + i(PossAttackTerritory) + ' EA ' + i(EnemyAreas) + ' NEA ' + i(NewEnemyAreas));
-        if (TContinent(PossAttackTerritory)=MyAttACkC) then begin
-          setupmymaps();
-          EnemyAreas:=CalcEnemyAreas(MyAttackC);
-          MyArmiesMap[PossAttackTerritory]:=3;
-          MineArmies[PossAttackTerritory]:=True;
-          MyArmiesMap[T]:=TArmies(T)+2-TArmies(PossAttackTerritory);
-          NewEnemyAreas:=CalcEnemyAreas(MyAttackC);
-          l('MAC ' + i(MyAttackC) + ' PAT ' + i(PossAttackTerritory) + ' EA ' + i(EnemyAreas) + ' NEA ' + i(NewEnemyAreas));
-          if (EnemyAreas >= NewEnemyAreas) then begin
-            MyBorders:=calcMyBorders()
-            TerritoryValue:=0 - (MyBorders+TArmies(PossAttackTerritory));
-            if TerritoryValue > MaxTerritoryValue then begin
-              l('Border Value T ' + i(T) + ' PATer ' + i(PossAttackTerritory) + ' TV ' + i(TerritoryValue));
-              MaxTerritoryValue:=TerritoryValue;
-              FromTerritory:=T;
-              ToTerritory:=PossAttackTerritory;
-            end;
-          end;
-        end;                  
-      end;
-    end;
-          
-  end;
-end;
-
-procedure SpreadAttack(var FromTerritory,ToTerritory:integer);
-var
-  PossAttackCountry:integer;
-begin
-  l('Spread Attack Start');
-  For T:=1 to 42 do begin
-    if (TIsMine(T)  and (TArmies(T) > 5) and TIsFront(T)) then begin
-      for T2:=1 to TFrontsCount(T) do begin
-        PossAttackCountry:=Tfront(T,T2);
-        if TArmies(PossAttackCountry)=1 then begin
-          FromTerritory:=T;
-          ToTerritory:=PossAttackCountry;
-        end;
-      end;
-    end;
-  end;
-end;
-
-
-procedure BorderAttack(var FromTerritory,ToTerritory:integer);
-var
-  T,Y:integer;
-begin
-  for C:=1 to 6 do begin
-    if COwner(C) = PMe then begin
-//      l('Border Attack ? ' + i(C));
-      for C2:=1 to 6 do begin
-        if AreContinentsConnected(C,C2) and (COwner(C2)>0) and (COwner(C2) <> PMe) then begin
-          Y:=COwner(C2);
-          if NastyPlayer(C,C2,Y) then begin
-//            l('Border Attack 2 ? ' + i(C) + ' ' + i(C2));
-            MaxTerritoryValue:=0;
-            for X:=1 to CEntriesCount(C) do begin
-              T:=CEntry(C,X);
-              Y:=0;
-              for D:=1 to TBordersCount(T) do begin;
-                if (TOwner(TBorder(T,D)) <> COwner(C2)) and (TOwner(TBorder(T,D)) <> PMe) then begin
-                  if TArmies(TBorder(T,D)) > Y then begin
-                    Y:=TArmies(TBorder(T,D));
-                  end;
-                end;
-              end;
-              for D:=1 to TBordersCount(T) do begin;
-                T2:=TBorder(T,D);
-                if TContinent(T2) = C2 then begin
-                  if (TArmies(T) - TArmies(T2) - Y) > MaxTerritoryValue then begin
-                    MaxTerritoryValue:=TArmies(T)-TArmies(T2)-Y;
-                    FromTerritory:=T;
-                    ToTerritory:=T2;
-//                    l('Border Attack 3 ? ' + i(C) + ' ' + i(C2));
-                  end;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-    l('Border Attack F ' + i(FromTerritory) + ' T ' + i(ToTerritory));
-  end;
-end;
-
-procedure BigAttack(var FromTerritory,ToTerritory:integer);
-var
-  PossAttackCountry,MyBorders,TerritoryValue,MaxTerritoryValue:integer;
-begin
-//  l('Big Attack Start me '+ i(PArmiesCount(PMe))+ ' mrs ' + i(mrsecondarmies) + ' psm ' + i(PlayerScore(PMe)));
-  If (PArmiesCount(Pme)>mrsecondarmies) and (PlayerScore(PMe)> 4) and ((not SConquest) or ((mrbigarmies-mrsecondarmies)>10)) then begin
-    If (( not (StartTurnPlayerScore[PMe] = StartTurnPlayerScoreOrdered[1])) or ((PArmiesCount(PMe)-mrsecondarmies)>((StartTurnPlayerScoreOrdered[1]-StartTurnPlayerScoreOrdered[2])*10))) then begin
-      MaxTerritoryValue:=-100000;
-      For T:=1 to 42 do begin
-        if (TIsMine(T)  and (TArmies(T) > 3) and TIsFront(T)) then begin
-          if (TFrontsCount(T) = 1) or (TArmies(T)>TPressure(T)) then begin
-            for T2:=1 to TFrontsCount(T) do begin
-              PossAttackCountry:=Tfront(T,T2);
-  //                if ((TContinent(PossAttackCountry)=MyAttackC) or ((TContinent(T)<>MyAttackC) and (COwner(TContinent(T)) <> PMe))) then begin
-              if TContinent(PossAttackCountry)=MyAttackC then begin
-                setupmymaps();
-                MineArmies[PossAttackCountry]:=True;
-                MyBorders:=calcMyNewBorders(PossAttackCountry)
-                TerritoryValue:=0 - (MyBorders);
-                if TContinent(PossAttackCountry)=MyAttackC then begin
-                  TerritoryValue:=TerritoryValue+100;
-                end;
-                if (TerritoryValue > MaxTerritoryValue) then begin              
-//                 l('ABorder Value T ' + i(T) + ' PATer ' + i(PossAttackCountry) + ' TV ' + i(TerritoryValue));
-                  FromTerritory:=T;
-                  ToTerritory:=PossAttackCountry;
-                  MaxTerritoryValue:=TerritoryValue;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-      if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-        l('Big Attack F ' + i(FromTerritory) + ' T ' + i(ToTerritory));
-      end;
-    end;
-  end;
-end;
-
-procedure GeneralMACAttack(var FromTerritory,ToTerritory:integer);
-var
-  X,Y:integer;
-begin
-  //general attack in myattackC
-  X:=trunc(UBufferget(98));
-  Y:=trunc(UBufferget(97));
-  if Y > 0 then begin
-    If not TIsMine(Y) then begin
-      if (TArmies(X)> (TArmies(Y) + 11)) and ((PArmiesCount(PMe)-TArmies(Y)) > AverageEnemyArmies) then begin
-        FromTerritory:=trunc(UBufferGet(98));
-        ToTerritory:=trunc(UBufferGet(97));
-      end;
-    end;
-  end;
-  if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-    l('General MyAttackC Attack F ' + i(FromTerritory) + ' T ' + i(ToTerritory));
-  end;
-end;
-
-procedure OneAttack(var FromTerritory,ToTerritory:integer);
-var
-  T2:integer;
-begin
-  for T:=1 to 42 do begin
-    if TIsMine(T) and (TArmies(T)>2)then begin
-      for X:=1 to TFrontsCount(T) do begin
-        T2:=TFront(T,X);
-        if TArmies(T2)=1 then begin
-          FromTerritory:=T;
-          ToTerritory:=T2;
-        end;
-      end;
-    end;
-  end;
-  if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-    l('One Attack F ' + i(FromTerritory) + ' T ' + i(ToTerritory));
-  end;
-end;
-
-procedure ReduceVulnAttack(var FromTerritory,ToTerritory:integer);
-var
-  overallvuln, maxvuln, newoverallvuln, newmaxvuln: integer;
-begin
-  if PArmiesCount(PMe)>AverageEnemyArmies then begin
-    for T:=1 to 42 do begin
-      if TIsMine(T) and (TArmies(T)>2)then begin
-        for X:=1 to TFrontsCount(T) do begin
-          T2:=TFront(T,X);
-  //        l('2ReduceVuln Attack F ' + i(T) + ' T ' + i(T2)+ ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln));
-          if TArmies(T) > 11 then begin
-            setupmymaps();
-            calculateoverallvuln(overallvuln,maxvuln);
-            MyArmiesMap[T]:=TArmies(T)-1;
-            MyArmiesMap[T2]:=TArmies(T2)-1;
-            calculateoverallvuln(newoverallvuln,newmaxvuln);
-  //          l('3ReduceVuln Attack F ' + i(T) + ' T ' + i(T2)+ ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln));
-            if (maxvuln > newmaxvuln) or ((maxvuln=newmaxvuln) and (overallvuln>newoverallvuln)) then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-            end;
-          end;
-        end;
-      end;
-    end;
-    if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-      l('ReduceVuln Attack F ' + i(FromTerritory) + ' T ' + i(ToTerritory)+ ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln));
-    end;
-  end;
-end;
-
-procedure TroopsMove(FromTerritory, ToTerritory	: integer; var Armies: integer; var Value: double);
-var
-  X, FromStrongestFront, ToStrongestFront, TryTest: integer;
-  FairArmies, overallvuln, maxvuln, newoverallvuln, newmaxvuln: integer;
-  LowerBound, UpperBound, originalmaxvuln, originaloverallvuln: integer;
-  SetLowerBound: boolean;
-  control, loopcontrol: boolean;
-  FromIsFront, ToIsFront: boolean;
-  var newValue: double;
-begin
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  loopcontrol:=true;
-  If FromIsFront and ToIsFront then begin
-    control:=TStrongestFront(FromTerritory,X,FromStrongestFront);
-    control:=TStrongestFront(ToTerritory,X,ToStrongestFront);
-    FairArmies:=trunc((ToStrongestFront * TArmies(FromTerritory)) div (FromStrongestFront+ToStrongestFront));
-  end;
-  if (not ToIsFront) and (not FromIsFront) then begin
-    FairArmies:=trunc(TArmies(FromTerritory) div 2);
-  end;
-  setupmymaps();
-  calculateoverallvuln(originaloverallvuln,originalmaxvuln);
-  Armies:=0;
-  LowerBound:= SpreadLevel;
-  Upperbound:= TArmies(FromTerritory)-SpreadLevel;                       // Upperbound needs to be one more than the total possible so that the LowerBound has the possibility to be that value
-  while (UpperBound - LowerBound > 1) do begin           // loop until UpperBound - LowerBound = 1
-    SetLowerBound:= False;
-    TryTest:= ((UpperBound + LowerBound) div 2) ;        // instead of increasing by 1, check the middle value
-    MyArmiesMap[FromTerritory]:=TArmies(FromTerritory)-(TryTest-1);
-    MyArmiesMap[ToTerritory]:=TArmies(ToTerritory)+(TryTest-1);
-    calculateoverallvuln(overallvuln,maxvuln);
-    MyArmiesMap[FromTerritory]:=MyArmiesMap[FromTerritory]-1;
-    MyArmiesMap[ToTerritory]:=MyArmiesMap[ToTerritory]+1;
-    calculateoverallvuln(newoverallvuln,newmaxvuln);
-    if (newmaxvuln=maxvuln) and (newoverallvuln = overallvuln) then begin
-      if (DistanceToAttackFront[ToTerritory] = DistanceToAttackFront[FromTerritory]) then begin
-        if LowerBound < FairArmies then SetLowerBound:= True;
-      end;
-    end;
-    newValue:= ((originalmaxvuln-newmaxvuln)*1000) + ((originaloverallvuln-newoverallvuln)*10) + (DistanceToAttackFront[FromTerritory]-DistanceToAttackFront[ToTerritory])*TryTest;
-//    l('sss Trytest ' + i(Trytest) + ' F ' + i(FromTerritory) + ' T ' + i(ToTerritory) + ' FA '+ i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln) + ' dttf ' + i(DistancetoAttackfront[FromTerritory]) + ' dttt ' + i(DistanceToAttackFront[ToTerritory]) + ' origo ' + i(originaloverallvuln) + ' origm ' + i(originalmaxvuln) + ' nv ' + floattostr(newValue));
-    if (newValue> Value) or SetLowerBound then begin
-      Value:=newValue;
-      LowerBound:=TryTest;
-      Armies:=LowerBound;
-    end else begin
-      UpperBound:=TryTest;
-    end;
-  end;
-//  l('Oddupation F ' + i(FromTerritory) + ' T ' + i(ToTerritory) + ' FA '+ i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln) + ' a ' + i(Armies) + ' v ' + floattostr(Value) + ' origo ' + i(originaloverallvuln) + ' origm ' + i(originalmaxvuln));
-end;
-
-procedure preparevalues();
-var
-  X,Turn,T2,Score:integer;
-  Prog:String;
-  control:boolean;
-begin
-  Turn:=trunc(UBufferGet(150));
-  if (Turn=0) then begin
-    Turn:=20;
-  end;
-  Turn:=Turn+1;
-  sn('P');
-  UBufferset(150,Turn);
-  for T:=1 to 42 do begin
-    X:=trunc(UBufferGet(100+T));
-    if X <> 0 then begin
-      if TOwner(T) <> X then begin
-        UBufferset(150+T,Turn);
-      end;
-    end;
-  end;
-  for C:=1 to 6 do begin
-    StartTurnCOwner[C]:=COwner(C);
-  end;
-  for C:=1 to 6 do begin
-    if COwner(C) = PMe then begin
-      MyStartC[C]:=1;
-    end;
-  end;
-  aalive:=0;
-  dalive:=0;
-  ealive:=0;
-  AverageEnemyArmies:=0;
-  EnemiesAlive:=0;
-  Score:=0;
-  PlayersCount:=0;
-  for P:=1 to 10 do begin
-    if PAlive(P) then begin
-      PlayersCount:=PlayersCount+1;
-      X:=PlayerScore(P);
-      if ArePlayersConnected(P,PMe) and (X>Score) then begin
-        Score:=X;
-        ThreatPlayer:=P;
-      end;
-      if (P<>PMe) then begin
-        EnemiesAlive:=EnemiesAlive+1;
-        AverageEnemyArmies:=AverageEnemyArmies+PArmiesCount(P);
-      end;
-      Prog:=lowercase(PProgram(P));
-      if (pos('australian',Prog)>0) then aalive:=1;
-      if (Prog='descartes09.trp') then dalive:=1;
-      if (Prog='endeavour09.trp') then ealive:=1;
-      StartTurnPlayerScore[P]:=PlayerScore(P);
-      StartTurnPlayerCScore[P]:=PlayerCScore(P);
-      StartTurnPlayerScoreOrdered[P]:=PlayerScore(P);
-    end;
-  end;
-//  l('ThreatPlayer ' + i(ThreatPlayer));
-  AverageEnemyArmies:= AverageEnemyArmies div EnemiesAlive;
-  for P:=1 to 9 do begin
-    for X:=1 to (10-P) do begin
-      if StartTurnPlayerScoreOrdered[X]<StartTurnPlayerScoreOrdered[X+1] then begin
-        Y:=StartTurnPlayerScoreOrdered[X];
-        StartTurnPlayerScoreOrdered[X]:=StartTurnPlayerScoreOrdered[X+1];
-        StartTurnPlayerScoreOrdered[X+1]:=Y;
-      end;
-    end;
-  end;
-  if PlayerCScore(PMe) > 0 then begin
-    for C:=1 to 6 do begin
-      if COwner(C) = PMe then begin
-        for T:=1 to CTerritoriesCount(C) do begin
-          MyConnected[CTerritory(C,T)]:=1;
-        end;
-      end;
-    end;
-  end else begin
-    MaxTerritoryValue:=0;
-    for T:=1 to 42 do begin
-      if TIsMine(T) and (TArmies(T)>MaxTerritoryValue) then begin
-        T2:=T;
-        MaxTerritoryValue:=TArmies(T);
-      end;
-    end;
-    MyConnected[T2]:=1;
-  end;
-  control:=true
-  while control do begin
-    control:=false;
-    for T:=1 to 42 do begin
-      if MyConnected[T] = 1 then begin
-        for X:=1 to TBordersCount(T) do begin
-          T2:=TBorder(T,X);
-          if TIsMine(T) and (TArmies(T) > 1) and (MyConnected[T]=0) then begin
-            MyConnected[T]:=1;
-            control:=true;
-          end;
-        end;
-      end;
-    end;
-  end;
-  calcMyAttackC();
-  l('Turn ' + i(Turn) + ' Start armies ' + i(PArmiesCount(PMe)) + ' Mr Big has ' + i(mrbigarmies) + ' Mr 2 has ' + i(mrsecondarmies) + ' Big Score ' + i(PlayerScore(MrBig)) + ' Me Score ' + i(PlayerScore(PMe)) + ' MyAttackC ' + i(MyAttackC));
-  if ((PlayerScore(PMe) > TotalEnemyScore()) and (PlayersCount>2))then begin
-    X:= (PlayerScore(PMe) - StartTurnPlayerScoreOrdered[2])*10;
-    if X > 100 then X:=100; 
-    if (PArmiesCount(PMe) > mrsecondarmies + X) then begin
-      DomAttack:=True;
-      l('DomAttack');
-    end else begin
-      DomAccumulate:=True;
-      l('DomAccumulate');
-    end;
-  end;
-end;
-
-procedure Assignment(var ToTerritory: integer);
-var
-  T,Y,Z: integer;
-  MaximumValue,Value:integer;
-begin
-  MaximumValue:=-1000;
-  ToTerritory:=0;
-  for T:=1 to 42 do begin
-    if TOwner(T)=0 then begin
-      Value:=0;
-      if (T<39) then
-        Value:=Value+10;
-      Y:=TBordersCount(T);
-      for Z:=1 to Y do begin
-        if (not TIsMine(TBorder(T,Z))) then Value:=Value+1;
-      end;
-      if (Value>=MaximumValue) then begin
-        MaximumValue:=Value;
-        ToTerritory:=T;
-      end;
-    end;
-//  end;
-  end; // end "if PProgram(PMe) = ..."
-end; // end procedure Assignment
-
-procedure Placement(var ToTerritory: integer);
-var
-  T,X,Y,T2,C,P: integer;
-  Score, NScore: double;
-  MaxTerritoryValue,TerritoryValue: integer;
-  ET,EA:integer;
-  PlacementTerritory, AttackTerritory, PossAttackTerritory,possvulnlevel: integer;
-  control:boolean;
-  MyFronts,MyBorders:integer;
-  MinMaxDistance,MinOverallDistance:integer;
-  overallvuln, maxvuln, newoverallvuln,newmaxvuln: integer;
-  lessmax,lessoverall:Boolean;
-begin
-//  if not FinisherPlacement(ToTerritory) then begin
-////
-  routine:=1;
-  calculatebigarmies();
-  lastturnfrom:=trunc(UBufferGet(148));
-  lastturnto:=trunc(UBufferGet(149));
-  SetArrayLength(MyArmiesMap,43);
-  SetArrayLength(MineArmies,43);
-  SetArrayLength(ValIndex,43);
-  SetArrayLength(ValProtection,43);
-  SetArrayLength(MyConnected,43);
-  SetArrayLength(StartTurnCOwner,7);
-  SetArrayLength(MyStartC,7);
-  SetArrayLength(StartTurnPlayerScore,11);
-  SetArrayLength(StartTurnPlayerCScore,11);
-  SetArrayLength(StartTurnPlayerScoreOrdered,11);
-  setArrayLength(DistanceToAttackFront,43);
-  PlacementTerritory:=0;
-  AttackTerritory:=0;
-  ToTerritory:=0;
-  if (COwner(MyAttackC)=PMe) then begin
-    calcMyAttackC();
-    l('MyAttackC ' + i(MyAttackC));
-  end;
-  if (bg(99) = 0) or (bg(100) = 0) then begin
-    preparevalues();
-  end;
-  if PArmiesCount(PMe) < 10 then begin
-    UBufferset(99,99);
-    ubufferset(98,0);
-    ubufferset(97,0);
-  end;
-  if (PlayerScore(PMe)< 5) then begin
-    if ( pos('endeavour', lowercase(PProgram(PMe))) > 0 ) then begin                
-      EndeavourPlacement(ToTerritory);
-    end else begin
-      MinnowWhere(ToTerritory,X);
-    end;
-    ubufferset(99,1);
-    ubufferset(98,0);
-    ubufferset(97,0);
-  end else begin
-    ToTerritory:=0;
-    If (trunc(UBufferGet(99)) = 0) then begin
-      //I think this is the first run
-      ubufferset(99,1);
-      ubufferset(98,0);
-      ubufferset(97,0);
-      killreason:=0;
-      //Endgame Play
-      if DomAttack then begin
-        KP2009:=endgameplay();
-        if KP2009 > 0 then begin
-          killreason:=1;
-          calcDistanceToAttackFront();
-        end;
-      end;
-      //Kill Play
-      if KP2009 = 0 then begin
-        KP2009:=shallikillaplayer();
-        if KP2009 > 0 then begin
-          killreason:=2;
-          calcDistanceToAttackFront();
-        end;
-      end;
-      if DomAttack or DomAccumulate then begin
-        if (killreason=2) then KillPlace(ToTerritory);
-        if ToTerritory=0 then DefensivePlace(ToTerritory);
-        if ToTerritory=0 then KillPlace(ToTerritory);
-      end else begin
-        KillPlace(ToTerritory);
-        if ToTerritory=0 then DefensivePlace(ToTerritory);
-      end;
-      UBufferSet(98,ToTerritory);
-    end;
-    If trunc(UBufferGet(98)) > 0 then begin
-      ToTerritory:=trunc(Ubufferget(98));
-    end else begin
-      setupmymaps();
-      MaxTerritoryValue:=-10000;
-      for T:=1 to 42 do begin
-        if TIsMine(T) then begin
-          for X:=1 to TFrontsCount(T) do begin
-            PossAttackTerritory:=TFront(T,X);
-            if (TContinent(PossAttackTerritory)=MyAttackC) and (TArmies(T)+2-TArmies(PossAttackTerritory) > 0) then begin 
-              setupmymaps();
-              MyArmiesMap[PossAttackTerritory]:=3;
-              MineArmies[PossAttackTerritory]:=True;
-              MyArmiesMap[T]:=TArmies(T)+2-TArmies(PossAttackTerritory);
-              control:=calculatevuln();
-              possvulnlevel:=0;
-              if COwner(6)=PMe then begin
-                possvulnlevel:=AttackArmies[39];
-              end else begin
-                if COwner(2)=PMe then begin
-                  if (AttackArmies[10]) < AttackArmies[12] then begin
-                    possvulnlevel:=AttackArmies[10];
-                  end else begin
-                    possvulnlevel:=AttackArmies[12];
-                  end;
-                end;
-              end;
-              MyFronts:=calcMyFronts();
-              MyBorders:=calcMyNewBorders(PossAttackTerritory)
-              TerritoryValue:=0 - (MyBorders);
-              if TerritoryValue > MaxTerritoryValue then begin
-//                l('XCCT ' + i(T) + ' PAT ' + i(PossAttackTerritory) + ' TV ' + i(TerritoryValue) + ' possvulnlevel ' + i(possvulnlevel));
-                MaxTerritoryValue:=TerritoryValue;
-                PlacementTerritory:=T;
-                if possvulnlevel <= 0 then begin
-                  AttackTerritory:=PossAttackTerritory;
-//                  l('Attack On');
-                end else begin
-                  AttackTerritory:=0;
-//                  l('Attack0');
-                end;
-    	      end;
-            end;                  
-          end;
-        end;
-      end;
-      if (PlacementTerritory > 0) then l('General MAC attack placement From ' + i(PlacementTerritory) + ' To ' + i(AttackTerritory) + ' val ' + i(MaxTerritoryValue));
-      if (PlacementTerritory = 0) then begin
-        l('Second Last Option Placement');
-        Score:=-1000;
-        for T:=1 to 42 do begin
-          for X:=1 to TFrontsCount(T) do begin
-            T2:=TFront(T,X);
-            if (TISMine(T) and TIsFront(T) and MyCTerr(T) and (TContinent(T2)=MyAttackC)) then begin
-              PossAttackTerritory:=TFront(T,T2);
-              control:=TStrongestFront(T,ET,EA);
-              if EA / TArmies(T) > Score then begin
-                Score:= EA/TArmies(T);
-                PlacementTerritory:=T;
-              end;
-            end;
-          end;
-        end;
-      end;
-      if (PlacementTerritory = 0) then begin
-        l('Last Option Placement');
-        Score:=-1000;
-        for T:=1 to 42 do begin
-          for X:=1 to TFrontsCount(T) do begin
-            T2:=TFront(T,X);
-            if (TISMine(T) and TIsFront(T) and (TContinent(T2)=MyAttackC)) then begin
-              PossAttackTerritory:=TFront(T,T2);
-              control:=TStrongestFront(T,ET,EA);
-              if EA / TArmies(T) > Score then begin
-                Score:= EA/TArmies(T);
-                PlacementTerritory:=T;
-              end;
-            end;
-          end;
-        end;
-      end;
-      if PlacementTerritory>0 then begin      
-        UBufferSet(98,PlacementTerritory);
-        UBufferSet(97,AttackTerritory);
-        ToTerritory:=PlacementTerritory;
-        l('Placeplan ' + i(PlacementTerritory) + ' ' + i(AttackTerritory));
-      end;
-    end;
-          
-  end;
-  UBufferset(148,ToTerritory);
-  UBufferSet(149,99);
-
-  UBufferset(99,1);
-//  end; // end "if not FinisherPlacement..."
-end; // end procedure Placement
-  
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  T,X,T2,D,C,C2,Y: integer;
-  MaxTerritoryValue,TerritoryValue: integer;
-  PossAttackCountry: integer;
-  myborders:integer;
-  control:boolean;
-begin
-  routine:=2;
-//  if not FinisherAttack(FromTerritory, ToTerritory) then begin
-  UBufferSet(100,1);
-  lastturnfrom:=trunc(UBufferGet(148));
-  lastturnto:=trunc(UBufferGet(149));
-  calculatebigarmies();
-  if (trunc(UBufferGet(99))=99) then UBufferSet(99,1);
-  UBufferSet(50,3);
-  FromTerritory:=0;
-  ToTerritory:=0;
-  PlayersCount:=0;
-  for X:=1 to 10 do begin
-    if PAlive(X) then begin
-      PlayersCount:=PlayersCount+1;
-    end;
-  end;
-  if (PlayerScore(PMe)> 4) then begin
-    if DomAttack then begin
-      X:= (PlayerScore(PMe) - StartTurnPlayerScoreOrdered[2])*10;
-      if X > 100 then X:=100; 
-      if (PArmiesCount(PMe) > mrsecondarmies + X) then AttackPlayer(KP2009,FromTerritory,ToTerritory);
-    end;
-    if DomAccumulate then begin
-      if (FromTerritory=0) and (not Sconquest) then OneAttack(FromTerritory,ToTerritory);            
-    end;
-    if (not DomAttack) and (not DomAccumulate) then begin
-      if (killreason = 1) then begin
-        if not (PArmiesCount(PMe)>mrsecondarmies+10) then begin
-          killreason:=0;
-          KP2009:=0;
-        end;
-      end;
-      X:=shallikillaplayer();
-      if KP2009 <> X then begin
-        KP2009:=X;
-        calcDistanceToAttackFront();
-      end;
-      if KP2009 > 0 then AttackPlayer(KP2009,FromTerritory,ToTerritory);
-      if (FromTerritory=0) then BorderAttack(FromTerritory,ToTerritory);
-      if (FromTerritory=0) then ReduceVulnAttack(FromTerritory,ToTerritory);            
-      if (FromTerritory=0) then BigAttack(FromTerritory,ToTerritory);    
-      if (FromTerritory=0) and (not Sconquest) then GeneralMACAttack(FromTerritory,ToTerritory);
-      if (FromTerritory=0) and (not Sconquest) then OneAttack(FromTerritory,ToTerritory);            
-    end;
-  end else begin
-    If (PArmiesCount(PMe) = mrsecondarmies) and (PlayerScore(MrBig) > 4) then begin
-      AttackPlayer(MrBig,FromTerritory,ToTerritory);
-    end;
-    if (ToTerritory = 0) then begin  
-      if ( pos('endeavour', lowercase(PProgram(PMe))) > 0 ) then begin                
-        endeavourAttack(FromTerritory,ToTerritory);
-      end else begin
-        oldAttack(FromTerritory,ToTerritory);
-      end;
-    end;
-
-    if ToTerritory=0 then FromTerritory:=0;
-  end;
-  if (ToTerritory=0) and (not SCardsBasedonCombo) and (not SConquest) then begin
-    MaxTerritoryValue:=10000;
-    for T:=1 to 42 do begin
-      if TIsMine(T) and (TArmies(T) > 1) then begin
-        for X:=1 to TFrontsCount(T) do begin
-          T2:=TFront(T,X);
-          if TArmies(T2)<MaxTerritoryValue then begin
-            FromTerritory:=T;
-            ToTerritory:=T2;
-            MaxTerritoryValue:=TArmies(T2);
-            l('Last Option');
-          end;
-        end;
-      end;
-    end;
-  end;
-  UBufferset(148,FromTerritory);
-  UBufferSet(149,ToTerritory);
-  if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-//    l('AAATF ' + i(FromTerritory) + ' TA ' + i(ToTerritory) + ' A ' + i(TArmies(FromTerritory))+ ' VI ' + i(ValIndex[ToTerritory])+' D ' + i(D));
-  end;
-//  end; // end "if not FinisherAttack..."
-end; // end procedure Attack
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-  T:integer;
-  Value:double;
-  X,KillPlayer: integer;
-  FairArmies,overallvuln,newoverallvuln,maxvuln,newmaxvuln:Integer;
-  TryTest,FromStrongestFront,ToStrongestFront:Integer;
-  loopcontrol,control,ifcontrol:Boolean;
-begin
-//  if not FinisherOccupation(FromTerritory, ToTerritory, Armies) then begin
-//  l('Occupation Start');
-  calcmyattackc();
-  if (killreason = 2) then begin
-    if PlayerScore(KP2009) < StartTurnPlayerScore[PMe] then begin
-      KP2009:=0;
-      killreason:=0;
-      l('No longer killing ' + i(KP2009));
-    end;
-  end;
-  ifcontrol:=false;
-  if (not ifcontrol) then begin
-  if (PlayerScore(PMe) > 4) then begin
-      TroopsMove(FromTerritory,ToTerritory,Armies,Value);
-  end else begin
-      if ( pos('endeavour', lowercase(PProgram(PMe))) > 0 ) then begin                
-        endeavourOccupation(FromTerritory,ToTerritory,Armies);
-      end else begin
-        oldOccupation(FromTerritory,ToTerritory,Armies);
-      end;
-  end;
-  end;
-  //Spread Override
-  if (SpreadLevel > 0) and (PlayerScore(PMe)> 4) then begin
-    if (TArmies(FromTerritory)-Armies) < SpreadLevel then begin
-      l ('Spread Override');
-      if (TArmies(FromTerritory)>SpreadLevel) then begin
-        Armies:=TArmies(FromTerritory) - SpreadLevel;
-      end else begin
-        Armies:=0;
-      end;
-    end;
-  end;
-
-//  end; // end "if not FinisherOccupation..."
-  if ((TContinent(FromTerritory)=2) and (TContinent(ToTerritory)=2)) then begin
-    l('Armies being moved' + i(Armies));
-  end;
-end; // end procedure Occupation
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  X,T,T2,B,Dest,MaxArmy,D,D2: integer;
-  ArmySize: integer;
-  Value, MaxValue: double;
-  overallvuln, maxvuln, newoverallvuln,newmaxvuln: integer;
-  control,loopcontrol:Boolean;
-  MaxTerritoryValue,currentFrom,currentdest:Integer;
-  FromValue,ToValue:double;
-begin
-  sn('f');
-  calcmyattackc();
-  ubufferset(99,0);
-//  if not FinisherFortification(FromTerritory, ToTerritory, Armies) then begin
-//  l('Fortify routine AttackC is still ' + i(MyAttackC));
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-  MaxArmy:=0;
-  MaxValue:=0;
-  setupmymaps();
-  if ((FromTerritory=0) and (PlayerScore(PMe)> 4)) then begin
-    calculateoverallvuln(overallvuln,maxvuln);
-    if (overallvuln <> 0) or (maxvuln <> 0) then begin
-      l('COV '+ i(overallvuln)+' CMV '+i(maxvuln));
-    end;
-    for T:=1 to 42 do begin
-      If TisMine(T) then begin
-        if Tarmies(T) > (Spreadlevel + 1) then begin
-          for T2:= 1 to TBordersCount(T) do begin
-            Dest:=TBorder(T,T2);
-            IF TIsMine(Dest) then begin
-              setupmymaps();
-              calculateoverallvuln(overallvuln,maxvuln);
-              MyArmiesMap[T]:=MyArmiesMap[T]-1;
-              MyArmiesMap[Dest]:=MyArmiesMap[Dest]+1;
-              calculateoverallvuln(newoverallvuln,newmaxvuln);
-//              l('EFort From ' + i(T) + ' To ' + i(Dest) + ' Armies ' + i(ArmySize)+ ' Fa ' + i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln) + ' value ' + floattostr(value));
-              if ((maxvuln>0) and (newmaxvuln< maxvuln))
-              or (((overallvuln>0) and (newoverallvuln< overallvuln)) and (maxvuln=newmaxvuln))
-              or ((maxvuln=newmaxvuln) and (overallvuln=newoverallvuln) and (DistanceToAttackFront[dest]<DistanceToAttackFront[T])) then begin
-                ArmySize:=0;
-                Value:=0;
-                TroopsMove(T,Dest,ArmySize,Value);
-//                l('KFort From ' + i(T) + ' To ' + i(Dest) + ' Armies ' + i(ArmySize)+ ' Fa ' + i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln) + ' value ' + floattostr(value));
-                if Value > MaxValue then begin
-                  FromTerritory:=T;
-                  ToTerritory:=Dest;
-                  Armies:=ArmySize;
-                  MaxValue:=Value;
-                  l('JFort From ' + i(FromTerritory) + ' To ' + i(ToTerritory) + ' Armies ' + i(Armies)+ ' Fa ' + i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln) + ' value ' + floattostr(value));
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  if (FromTerritory=0) and (PlayerScore(PMe)=3) then begin
-    D:=0;
-    for T:=1 to 42 do begin
-      if TIsMine(T) and (TArmies(T)>1) then begin
-        Y:=TBordersCount(T);
-        for Z:=1 to Y do begin  
-          T2:=TBorder(T,Z);
-          if TIsMine(T2) then begin
-            D2:=TArmies(T)-ValIndex[T2];
-            if (D2>D) then begin
-              D:=D2;
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              Armies:=TArmies(T)-1;
-              l('Desire Fort ' + i(FromTerritory) + ' TA ' + i(ToTerritory) + ' A ' + i(TArmies(FromTerritory))+ ' VI ' + i(ValIndex[ToTerritory])+' D ' + i(D));
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-
-  if ((FromTerritory=0) or (not SCardsBasedonCombo)) and (PlayerScore(PMe)<5) then begin
-    MaxValue:=0;
-    for T:=1 to 42 do begin
-      if TIsMine(T) and (TArmies(T) > 1) then begin
-        for X:=1 to TBordersCount(T) do begin
-          T2:=TBorder(T,X);
-          if TIsMine(T2) then begin
-            FromValue:=LoneTerritoryValue(T);
-            ToValue:=LoneTerritoryValue(T2);
-            if ((ToValue-FromValue)*TArmies(T))>MaxValue then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              Armies:=TArmies(T)-1;
-              MaxValue:=((ToValue-FromValue)*TArmies(T));
-              l('LTVFort From ' + i(FromTerritory) + ' To ' + i(ToTerritory) + ' Armies ' + i(Armies)+ ' Fa ' + i(TArmies(FromTerritory)) + ' maxvalue ' + floattostr(maxvalue));
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;            
- 
-  l('End Turn armies ' + i(PArmiesCount(PMe)));
-  for T:=1 to 10 do begin
-    UBufferSet(80+T,PArmiesCount(T))
-  end;
-  if (COwner(2)=PMe) then begin
-    if (TArmies(13)>1) or (TArmies(11)>1) then begin
-       l('EEEFort From ' + i(FromTerritory) + ' To ' + i(ToTerritory) + ' Armies ' + i(Armies)+ i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln));
-    end;
-  end;
-  if (COwner(6)=PMe) then begin
-    if (TArmies(40)>1) or (TArmies(41)>1) or (TArmies(42)>1) then begin
-       l('EEEFort From ' + i(FromTerritory) + ' To ' + i(ToTerritory) + ' Armies ' + i(Armies)+ i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln));
-    end;
-  end;
-
-  if (SpreadLevel > 0) and (PlayerScore(PMe)> 4) then begin
-    if (TArmies(FromTerritory)-Armies) < SpreadLevel then begin
-      l ('fort Spread Override');
-      if (TArmies(FromTerritory)>SpreadLevel) then begin
-        Armies:=TArmies(FromTerritory) - SpreadLevel;
-      end else begin
-        Armies:=0;
-        FromTerritory:=0;
-        ToTerritory:=0;
-      end;
-    end;
-  end;
-
-  for T:=1 to 42 do begin
-    if TArmies(T) > 1 then begin
-      UBufferset(100+T,TOwner(T));
-    end else begin
-      UBufferset(100+T,0);
-    end;
-  end;
-
-end; // end procedure Fortification
-begin
-end.
\ No newline at end of file
diff --git a/Players/digger.trp b/Players/digger.trp
deleted file mode 100644
index 28c243a..0000000
--- a/Players/digger.trp
+++ /dev/null
@@ -1,542 +0,0 @@
-{
-Program: digger.trp (formerly unsimple.trp)
-
-Author: Martin Nehrdich
-
-Description: Less focused on taking and maintaining continents than Napoleon.trp
-Tries hard to conquer at least one territory per turn.
-Features Do or Die attacks.  See the program file for a much more detailed description.
-
-History: 06.03.2000 - 08.04.2000 (during exams, must be the game)
-continued programming in the period 20.11.2000 - 30.12.2000
-(renamed to digger on 30.12.2000, digger is my favorite stuffed pet)
-
-Ported to TurboRisk 1.3 by Nathan Scarbrough June 09
-
-}
-// fixed bug - search for #*# to find it - Nathan Scarbrough July 09
- //
- // a computer program for the Turborisk game by Mario Ferrari
- // written by
- //
-
- //
- // This program has been programmed before I looked into other programs
- // (except simple.trp), therefor similarities to other programs means
- // a good job of those programmers. ;)
- //  Well, okay, I have peeked into other programs a bit, but I haven't copied any
- // parts of them, because most parts were finished by that time.
- // The only thing is an idea from borg, I prefer attacking of someone else, not
- // 'friends' with the same program. But I do still attack them.
- //
- // Enjoy fighting,
- // and may the Force be with you,
- //    Martin
- // e-mail: Krulle@redseven.de
- //
- //
- // Procedures and comments:
- //
- // ASSIGNMENT:
- // In the first assignment turn, the continential bonusses will be written in the log,
- // as well as the names of territories bordering another continent.
- // If someone (doesn't matter who) has all territories except one on a continent, 
- // I take the last one, either for my own bonus, or to avoid giving him the bonus.
- // I prefer assigning of territories on small continents, especially if I border other
- // owned territories by me.
- // I also prefer territories on empty continents.
- // This routine just took an hour on the 08th april to program.
- // Actually, I prefer random assignment, but I wanted something programmed, not just the
- // last free territory assigned. (Other way round than simple.trp).
- //
- // PLACEMENT: place armies in the territory with worst ratio own forces/enemy forces bordering
- // with special efforts on territories having only one bordering enemy territory (tripled
- // Ratio if enemy territory is enclosed and force ratio <=2.1, if force ratio >2.1 do not place
- // armies here (force should be big enough), doubled ratio if it's just a one-front territory,
- // but only the strongest territory will be reinforced.
- // If at least half the continent is owned, the Ratio is also increased by 4 * ratio
- // owned/total territories on continent. The Ratio is decreased if there are too many fronts
- // (TPressure gets too big with more fronts, but TStrongestFront is not high enough.)
- // The Ratio is also increased by 3/2 if the territory is bordering a continent owned by me
- // (to defend it better).
- // This routine has a big problem: During placement of the armies before the first attack
- // (the turn, where everybody places armies) I leave accidentically some territories undefended.
- // Need to change that. 08/04/2000: Solved. Matter of minutes. (Added BeforeFirstAttackTurn routine)
- //
- // ATTACK: perform attack with best ratio own forces/enemy forces,
- // a first occupation is a must (enemy may outnumber me by 3:2), following attacks only
- // if the ratio is > 1.5 (3 own armies against 2 enemy armies, not counting the army
- // which must stay).
- // IF the army-ratio is greater 2.5, the attack is chosen as a "DoOrDie"-attack, suspended only,
- //  if the forceratio is smaller 0.4.
- //  "DoOrDie" added on 30 december 2000
- // Ratio is tripled if the attacked territory is completely encircled and
- //  the forceratio is reached be two-thirds (the conquered territory would not be front)
- // Ratio is doubled if minimal forceratio is reached and the territory has only
- //  one bordering enemy territory.
- // Ratio is doubled (again) if minimal forceratio is reached and the
- //  attacked territory is on same continent.
- // Ratio is multiplied by 2.1 if minimal forceratio is reached and the territory attacked
- //  is on a continent which is owned completely by someone.
- // Ratio is doubled (again) if minimal forceratio is reached and the
- //  attacked territory is the last one the attacked enemy owns (to conquer his cards).
- // Decrease Ratio by 10% if the attacked territory belongs to another player with the same program.
- //
- // As is clear now, I evaluate a lot within the Placementroutine, which increases my
- // attack possibilities a lot, compared to simple.trp.
- // The combination Place Armies on half/nearly my continent and perform best
- // attack ratio leads to trying to conquer several continents at the same time.
- // Therefore I'm not as focussed as napoleon.trp in conquering a continent.
- // But I do defend other territories according the pressure.
- // One effect of stronger placement on one-front-territories and owned territories
- // as well as preferred attacking from these territories is a strong offence against other
- // continents. (i.e. Alaska will be preffered attacked if Koryat is mine and none of
- // the other Asian territories bordering Koryat is enemy territory). The same effect
- // as struggler.trp, but with less difficult evaluations.
- // During the changes I've made, this effect became weaker (due to other preferations added),
- // but it is still there.
- //
- // OCCUPATION:
- // If both territories are 'front' balance armies, except if both territories border the
- // same enemy territory as only front. In this case all armies will be moved (to increase
- // attackpossibility).
- // If only the conquered is front move all armies
- // else do not move armies.
- //
- // FORTIFICATION: look for weakest front and reinforce it, if not possible,
- // move the biggest army on a non-front-territory to any (random) bordering territory.
- //
- //
- // Basically, the Fortification-Bug was the reason for me to write my own program.
- // At first, I thought it was the programming of simple.trp and the others. But when I did
- // not find any possible problem within the fortification routine of simple.trp, I started
- // to modify simple.trp (-=> unsimple.trp). But the problem stayed. When I added the line
- // ULog('Fortification routine called');
- // and the line did not show up in the log, I knew the bug must be somewhere else.
- // Watching the log, I found out, that if Occupation returned a single time something else
- // than Armies=0, I thought, I could change it within the Occupation routine. Actually, I thought
- // I could program a computerenemy that good, that it would need no occupation. Ha! I was wrong!
- // An Occupationarmy is needed much more than any fortificationarmy.
- // 
- // Regardless the fact, that Mario Ferrari believed that he fixed the bug with version 1.2
- // and the bug still being there, I believe this turborisk to be one of the very best
- // computerversions of this classical strategy game. Especially the fact, that you can program
- // your own enemies. If you want it easy (because you like cheating, or you're just unable to
- // win against the computer, but want to), you can always add a line in the attack routine
- // going something like
- // IF PProgram(ToTerritory)='human' THEN Ratio:=0;
- // or something like that (depends on the program).
- //
- // Bug be thanks, a new program is born.
- //
- //
- //
- // Comments are in the code, if code has been unabled, it is still there
- // (for example the ULog code in the fortification routine) easily recognizable
- // by the commentslashes as the first tho symbols (even before a space)
- //
- // Symbols ULog and UMessage: #9 : Tab;   #10 : New Line
- //
- // Usage of UBuffer:
- //
- // 48: DoOrDie (0..42), FromTerritory (0 for none)
- // 49: DoOrDie (0..42), ToTerritory (0 for none)
- // 50: Killed Hunam and laughed: 0=not yet, 1=done
-
-
-
-PROCEDURE Assignment(var ToTerritory: integer);
-VAR
-  T, B, BT, C,
-  PT, PA,            // Players Territories and Armies
-  LP, LT, LA,        // Leader on this continent, his territories and armies
-  ET, EA : Integer;  // Enemy Territories and Armies
-  Ratio, MaxRatio  : Double;
-
-{ FUNCTION TBordersAnotherContinent (TTBAC:Integer): Boolean;
- VAR BTBAC, CTBAC : Integer;
-     TBAC : Boolean;
- BEGIN
-   TBAC := False;
-   CTBAC:=TContinent(TTBAC);
-   FOR BTBAC:=1 TO TBordersCount (TTBAC) DO
-    IF TContinent(TBorder(TTBAC,BTBAC)) <> CTBAC THEN
-     TBAC:=True;
-   result := TBAC
- END;
-}
-BEGIN
-  // If you want to know how big the bonusses are, start the game with assignment
-  // of territories in turn (not randomly), keep log of this player switched on
-  // and take a look in the log
-{  IF PTerritoriesCount(PMe) = 0 THEN
-  BEGIN
-    ULog('What a great game, Yeah!');
-    ULog('Message from ', PName(PMe),' Player ID#', PMe, ', program controlled by ', PProgram(PMe),'.');
-    ULog(' ');
-    ULog('Continential Bonusses and number of territories:');
-    FOR C:=1 TO 6 DO
-    BEGIN
-      ULog('Continent id: ', C,' has ',CTerritoriesCount(C),' territories, which bring together a bonus of ',CBonus(C), ' armies');
-      ULog('Territories allowing access to this territory:');
-      FOR BT:=1 TO CTerritoriesCount(C) DO
-      BEGIN
-        T:=CTerritory(C,BT);
-        IF TIsEntry(T) THEN
-         ULog(TName(T));
-      END;
-      ULog(' ')
-    END;
-    ULog('Let me kick butt!');
-    ULog(' ')
-  END;
-}
-  ToTerritory:=0;
-  MaxRatio:=0;
-
-  // My new one:
-  T:=42;
-  REPEAT
-    IF TOwner(T)=0 THEN
-    BEGIN
-      C:=TContinent(T);
-      CAnalysis(C, PT,PA,ET,EA);
-      Ratio:=(double(PT)+1)/double(CTerritoriesCount(C)+ET);
-      IF ET = 0 THEN Ratio:=Ratio*2;       // IF no enemy on this continent yet, take it.
-      FOR B:= 1 TO TBordersCount(T) DO
-      BEGIN
-        BT:=TBorder(T,B);
-        IF TOwner(BT)=PMe THEN Ratio:=Ratio*1.1;  // Having myself as neighbour makes less fronts to defend
-        IF COwner(TContinent(BT))=PMe THEN Ratio:=Ratio*1.25
-      END;
-      CLeader(C, LP,LT,LA);
-      IF (LT=CTerritoriesCount(C)-1) AND (LP>0) THEN Ratio:=Ratio*10+10;  // I want THIS territory, either to avoid the enemy getting the bonus, or to make it my bonus
-      IF Ratio>MaxRatio THEN
-      BEGIN
-        ToTerritory:=T;
-        MaxRatio:=Ratio
-      END;
-    END;
-    T:=T-1
-  UNTIL T<1;
-{  IF ToTerritory=0 THEN
-   UMessage('Player #',PMe,' (',PName(PMe),')',#10,
-            'Critical Error!',#10,
-            'Procedure Assignment called',#10,
-            'but no free territory found') }
-END; //PROCEDURE Assignment
-
-
-
-PROCEDURE Placement(var ToTerritory: integer);
-VAR
-  T, B, PT, PA, ET, EA    : Integer;
-  Ratio, MaxRatio, CRatio : Double;
-  BeforeFirstAttackTurn   : Boolean;
-
-  //Function returns false if the territory to attack would become a front of me
-{  FUNCTION EnemyTerritoryIsEnclosed(TT:Integer):Boolean;
-  VAR BTETIE : Integer;
-      ETIE : Boolean;
-  BEGIN
-    ETIE := TRUE;
-    FOR BTETIE := 1 TO TBordersCount(TT) DO
-     IF TOwner(TBorder (TT,BTETIE))<>PMe THEN ETIE:=False;  //Territory would remain a border
-    result:=ETIE;
-  END; //function EnemyTerritoryIsEnclosed(TT:Integer):Boolean; }
-
-BEGIN
-  // reinforce territory with greatest ratio between total enemy armies and own armies
-  // modified by some factors (on same continent, number of fronts, ...)
-  ToTerritory:=0;
-  MaxRatio:=0;
-
-  BeforeFirstAttackTurn:=False;
-  FOR T:=1 TO 10 DO
-    IF PActive(T) AND (T<>PMe) AND (PNewArmies(T)>1) THEN BeforeFirstAttackTurn:=True;
-  // I need to defend every territory if BFAT is True. Later I only strengthen certain
-  // territories to prevent useless placement of armies.
-
-  T:=42;
-  REPEAT
-    IF TIsFront(T) THEN         // territory is mine and front
-    BEGIN
-      Ratio := double(TPressure(T)) / double(TArmies(T));
-
-      //Increase the pressure if there is only one territory attackable (easy defending)
-      IF TFrontsCount(T)=1 THEN
-      BEGIN
-        ET:=TFront(T,1);
-        IF TFrontsCount(ET) = 0 THEN
-        BEGIN
-          IF Ratio > 2.1 THEN Ratio:=0.5;  // Forceratio is already big enough to kill this front, prefer other fronts
-          Ratio:=Ratio*3                   // eliminate this front!
-        END
-         ELSE Ratio:=Ratio*2;
-
-        IF NOT BeforeFirstAttackTurn THEN
-        // Strengthen only the strongest territory bordering this enemyterritory to prevent
-        // useless placement of armies which become useless after conquering the territory.
-         FOR B:=1 TO TBordersCount(ET) DO
-          IF (TArmies(TBorder(ET,B))>TArmies(T)) and TIsMine(TBorder(ET,B)) THEN Ratio:=0; //bigger army found, reinforcement of this territory not needed
-                                        // added the above part ^ to fix bug #*#
-      END;  //IF TFrontsCount(T)=1
-      //too much borders makes TPressure shoot high
-      IF TFrontsCount(T)>2 THEN Ratio:=Ratio/(double(TFrontsCount(T))/2);
-
-      //Defend Territories bordering owned continent
-      FOR B:=1 TO TBordersCount(T) DO
-      BEGIN
-        ET:=TBorder(T,B);
-        IF COwner(TContinent(ET))<>0 THEN Ratio:=Ratio*1.5
-      END;
-
-      // IF continent is at least half mine, multiply the ratio by the 4 * CRatio owned/total territories on continent
-      CAnalysis(TContinent(T),PT,PA,ET,EA);
-      CRatio := double(PT)/double(PT+ET);
-      IF CRatio > 0.5 THEN Ratio := Ratio* 4*CRatio;
-      // Has the same effect as the two lines below (half continent => 0.5 * 4 =2; 75% * 4 = 3), 
-      // which were my first (and most simple) try to reinforce continents.
-//      IF PT / CTerritoriesCount(TContinent(T)) > 0.75 THEN Ratio:=Ratio*3     //Triple the pressure if 75% of the Continent is already mine
-//      ELSE IF PT / CTerritoriesCount(TContinent(T)) >0.5 THEN Ratio:=Ratio*2; //Double it, if 50% is mine
-
-      IF Ratio>MaxRatio THEN
-      BEGIN
-        ToTerritory:=T;
-        MaxRatio:=Ratio
-      END;
-    END;
-    T:=T-1
-  UNTIL T<1
-END;  //PROCEDURE Placement
-
-
-
-PROCEDURE Attack(var FromTerritory, ToTerritory: integer);
-VAR
-  T, B, EnemyT: Integer;
-  Ratio, MaxRatio, MinAttackRatio: Double;
-  SuspendDoOrDie : Boolean;
-
-  //Function returns false if the territory to attack would become a front of me
-{  FUNCTION EnemyTerritoryIsEnclosed(TT:Integer):Boolean;
-  VAR BT, BTF : Integer;
-      ETIE : Boolean;
-  BEGIN
-    ETIE := True;
-    FOR BTF := 1 TO TBordersCount(TT) DO
-    BEGIN
-      BT := TBorder (TT,BTF);
-      IF TOwner(BT)<>PMe THEN ETIE:=False;  //Territory would remain a front
-    END;
-    result:=ETIE;
-  END; //function EnemyTerritoryIsEnclosed  }
-
-BEGIN
-
-  //Just for fun: disable it if you want to
-{
-  IF SConquest AND (trunc(UBufferGet(50))<>1) THEN
-   FOR T:=1 TO 10 DO  IF ((PProgram(T)='human') AND (PTerritoriesCount(T)=0)) AND PActive(T) THEN
-  BEGIN
-    UMessage('Dear ',PName(T),'!', #10,
-             'You have lost!', #10,
-             'And I am still alive!',#10,
-             'HaHa!',#10,
-             'Greetings from',#10,
-              PName(PMe));
-    UBufferSet(50,1);
-  END; //is done only in the first round a human is destroyed. If multiple humans are destroyed in one turn, I laugh upon all of them
-}
-  //Suspend "DoOrDie"
-  SuspendDoOrDie := False;
-  FromTerritory:=trunc(UBufferGet(48));
-  ToTerritory:=trunc(UBufferGet(49));
-  IF TIsMine(ToTerritory) THEN           // "do or die"-attack has been successful
-   SuspendDoOrDie := True;
-  IF TArmies(FromTerritory)=1 THEN SuspendDoOrDie := True; //not enough armies to attack
-  IF double(TArmies(FromTerritory)-1)/double(TArmies(ToTerritory))<0.4 THEN SuspendDoOrDie:=True;  //lost too many armies already
-  IF SuspendDoOrDie THEN
-  BEGIN
-    ToTerritory:=0;
-    FromTerritory:=0;
-    UBufferSet(48,0);
-    UBufferSet(49,0)
-  END; //Suspend "DoOrDie"
-
-  IF SConquest THEN            // if have one conquest already
-    MinAttackRatio:=1.5        // attack only if enemy is outnumbered 3 to 2 (more aggresive? Lower Ratio (e.g. MaxRatio:=1.3))
-  ELSE MinAttackRatio:=0.75;   // else attack if max. outnumbered by 2 to 3 (increase the chance to get a card)
-                               // MinAttackRatio is decreased by one-third if the enemy territory is completely enclosed by me
-  MaxRatio := MinAttackRatio;
-
-  IF (FromTerritory=0) OR (ToTerritory=0) THEN
-  BEGIN
-    T:=42;
-    REPEAT
-      IF TIsFront(T) AND (TArmies(T)>1) THEN   // territory is mine, front and attack is possible
-      BEGIN
-        FOR B:=1 TO TBordersCount(T) DO
-        BEGIN
-          EnemyT := TBorder(T,B);
-          IF NOT TIsMine(EnemyT) THEN
-          BEGIN
-            Ratio:=(double(TArmies(T))-1)/double(TArmies(EnemyT));     // an extra of 1 army needed (the defending one)
-            IF (TFrontsCount(EnemyT) = 0) AND (Ratio>=2*MinAttackRatio/3) THEN Ratio:=Ratio*3;  //Do attack if the enemy territory is completely enclosed and two-thirds of the minimal forceratio is reached
-            IF Ratio >= MinAttackRatio THEN            // make sure, the force ratio is above MinAttackRatio
-            BEGIN
-              IF TFrontsCount(T)=1 THEN Ratio:=Ratio*2;     // prefer attacking of territories which do not increase the number of territories to defend (makes ratio*6 if territory is enclosed, it's a must!)
-              IF TContinent(T)=TContinent(EnemyT) THEN Ratio:=Ratio*2; // prefer attacking of territories on same continent
-              IF COwner(TContinent(EnemyT))<>0 THEN Ratio:=Ratio*2.1;  // take the army-bonus the enemy gets.
-              IF PTerritoriesCount(TOwner(EnemyT))=1 THEN Ratio:=Ratio*5;  // prefer attacking of the last territory the enemy owns (to conquer his cards)
-              IF PProgram(TOwner(EnemyT))=PProgram(PMe) THEN Ratio:=Ratio*0.90; // prefer attacking of someone else than a good friend (anyone who has the same program) (but I do still attack them, if not well defended)
-
-              IF Ratio>=MaxRatio THEN                  // if attack is more prefered than last one, do set new attack
-              BEGIN
-                FromTerritory:=T;
-                ToTerritory:=EnemyT;
-                MaxRatio:=Ratio
-              END;  //IF Ratio>=MaxRatio
-            END;  //IF Ratio>=MinAttackRatio
-          END;  //IF NOT TIsMine
-        END   //FOR B:=1 TO TBordersCount
-      END;  //IF TIsFront
-      T:=T-1
-    UNTIL T<1;
-
-    // check if good enough as "DoOrDie"
-    Ratio:=(TArmies(FromTerritory)-1)/TArmies(ToTerritory);
-    IF Ratio>2.5 THEN
-    BEGIN
-      UBufferSet(48,FromTerritory);
-      UBufferSet(49,ToTerritory)
-    END;
-
-  END;  //IF (FromTerritory=0) OR (ToTerritory=0)
-END;  //PROCEDURE Attack
-
-
-
-PROCEDURE Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-BEGIN
-  // very simple but effective routine
-  // nearly the same as simple.trp (why change it, it works great!)
-  // 02/04/2000: Oops. Seems like I've changed quite a few bit. Hmmm...
-  // I just needed some change.
-
-  // if both territories are 'front' balance armies, except if both armies border the same
-  //  enemy territory as only front. In this case all armies will be moved (to increase attackpossibility).
-  // if "To" is front move all armies in the conquered territory except the one which must stay
-  // if none of them is front, do not move armies
-
-  Armies:=0;
-  IF TIsFront(FromTerritory) AND TIsFront(ToTerritory) THEN
-  BEGIN
-    IF TArmies(FromTerritory)>TArmies(ToTerritory) THEN
-    BEGIN
-      IF (TFrontsCount(FromTerritory)=1) AND (TFrontsCount(ToTerritory)=1) THEN
-      BEGIN      // It makes a following attack easier if the troops stay together, therefore move all
-        IF (TFront(FromTerritory,1)=TFront(ToTerritory,1)) AND ((double(TArmies(FromTerritory))+2)/double(TArmies(TFront(ToTerritory,1)))>1.2) THEN Armies:=TArmies(FromTerritory)-1;
-      END
-      ELSE
-       Armies:=(TArmies(FromTerritory)-TArmies(ToTerritory)) div 2
-    END;  //IF TArmies(FromTerritory)>...
-  END
-  ELSE IF TIsFront(ToTerritory) THEN
-  Armies:=TArmies(FromTerritory)-1;
-
-  // Until at least version 1.2 of turborisk fortification will NOT be called if  armies <> 0
-  // in any occupation (even if only in the first of 5 occupations additional
-  // troop movement was done)
-  // Workaround: armies := 0; has the negative side that no effective occupation will be done.
-  // At least on my PC (Win95, no Delphi installed), fortification will not be called
-END;  //PROCEDURE Occupation
-
-
-
-
-PROCEDURE Fortification(var FromTerritory, ToTerritory, Armies: integer);
-VAR T, FromT, BiggestArmy, B, MinArmy, MaxArmy  :Integer;
-BEGIN
-  //Search weakest front and fortify it with the biggest army 
-  //standing on a bordering, non-front territory.
-  //If there are several weakest fronts,
-  //fortify the one with the biggest fortifying army
-  //If it is not possible to fortify a front, search the biggest army on a non-front
-  //territory and move it to any other bordering territory
-
-  //Up to at least Version 1.2 it is possible, that the fortification-routine
-  //will not be called if there was additional troop-movement after conquering
-  //a territory (i.e. Ukraine was conquered from Scandinavia and aditional
-  //2 troops were moved to make it 5 defenders, (3 are moved initially (if available))).
-
-
-//  ULog(PName(PMe),': Fortification routine called!');
-  MinArmy:=1500;    //smallest frontarmy must be smaller than this one (should be no problem...)
-  Armies:=0;        //Do not move armies until moveable army found
-  BiggestArmy:=1;   //Need at least 2 Armies to have one to move [TArmies(FromT) > BiggestArmy]
-  ToTerritory:=0;
-  FromTerritory:=0;
-  FromT:=0; //From Territory
-  T:=42;
-  REPEAT
-    IF TIsFront(T) AND (TArmies(T)<=MinArmy) THEN  //TIsFront(T) can only be true if TIsMine(T) is True
-    BEGIN
-//      ULog('Evaluating Frontterritory id ',T,': ',TName(T),' Bordering countries:');
-      FOR B:=1 TO TBordersCount(T) DO
-      BEGIN
-        FromT:=TBorder(T,B);
-//        IF TIsFront(FromT) THEN ULog(TName(FromT),' is mine and front')
-//        ELSE BEGIN                  //not front. TIsFront also turns false if T is not mine
-//          IF TIsMine(FromT) THEN ULog(TName(FromT),' is mine and not front! <=-')
-//           ELSE ULog(TName(FromT), ' is not mine (Owner: ',PName(TOwner(FromT)),')');
-//        END;
-        IF (TIsMine(FromT) AND (NOT TIsFront(FromT))) AND (TArmies(FromT)>BiggestArmy) THEN
-        BEGIN
-          MinArmy:=TArmies(T);
-          FromTerritory:=FromT;
-          ToTerritory:=T;
-          Armies:=TArmies(FromTerritory)-1;
-          BiggestArmy:=Armies;
-//          ULog('Chosen fortification: ',TName(FromTerritory),' -=> ',TName(ToTerritory),'  ',Armies,'Armies');
-        END;
-      END;
-    END;
-    T:=T-1;
-  UNTIL T<1;
-
-  IF Armies = 0 THEN   //no fortification of a front possible, move the biggest other army anywhere
-  BEGIN
-//    ULog('No inforceable front found, trying to move the biggest non-front-army');
-    MaxArmy := 1;
-    T:=42;
-    REPEAT
-      IF TIsMine(T) AND NOT TIsFront(T) THEN    // territory is mine and not "front"
-      BEGIN
-        IF TArmies(T)>MaxArmy THEN
-        BEGIN
-          MaxArmy := TArmies(T);
-          FromTerritory := T;
-        END;
-      END;
-      T:=T-1;
-    UNTIL T<1;
-    // if there are armies to move...
-    // move armies to a random bordering territory
-    IF FromTerritory>0 THEN
-    BEGIN
-//      ULog('The biggest army is in: ',TName(FromTerritory),' and has ',TArmies(FromTerritory),' armies');
-
-      B:=trunc(URandom(TBordersCount(FromTerritory)))+1;
-//      ULog('Trying to move those armies to bordering territory #',B,' (',TName(TBorder(FromTerritory,B)),')');
-      ToTerritory:=TBorder(FromTerritory,B);    // Random movement can be very surprising
-      // Move all armies to destination (except the one which must stay)
-      Armies:=TArmies(FromTerritory)-1;
-    END;
-  END;  //IF Armies = 0
-
-END;  //PROCEDURE Fortification
-
-//The bigger Army is the Force!
-begin
-end.
\ No newline at end of file
diff --git a/Players/endeavour09.trp b/Players/endeavour09.trp
deleted file mode 100644
index 23ebe18..0000000
--- a/Players/endeavour09.trp
+++ /dev/null
@@ -1,3401 +0,0 @@
-{
-Program: Endeavour09
-Author: Anthony Covey-Crump (coveycrump@yahoo.com)
-Description: This is a composite player - it plays like Endeavour (a previously unreleased player) until it holds a continent, then it plays like australian09.
-It has a more open starting strategy than australian09 / descartes09, although it will try to avoid going for the start-continent of either of the other 2 players.
-}
-
-
-var
-  B,MaxArmy,MaximumValue,Value: integer;
-  LAValue,LAValue2,TF:Integer;
-  EnemyT,EnemyA,X3: integer;
-  
-  T,X,Y,T2,D,D2,Z,TA,FT,FA,KP1,KP2,KP1A,KP2A,KillPlayer,C,TTo,TFrom,X2,C2,Y2,V,Z2,PMax : integer;
-  Ratio,MaxRatio,Score: double;
-  MaxTerritoryValue,TerritoryValue,TerritoryTo,TerritoryFrom: integer;
-  Fronts,TerritoryArmies: integer;
-  PT,PA,ET,EA,ET2,EA2:integer;
-  TotalArmies,PlayerArmies,P,A:Integer;
-  Test:Boolean;
-  ProX,ProT,ProY,ProTA,ProV,ProZ,ProT2:Integer;
-  CAX,CAC,CAZ:Integer;
-  CNT,CNT2,CNM,CNX,CNY:Integer;
-  CVAZ,CVAY,CVAT,CVAValue,CVAY2,CVAT2,CVAN,CVC,CVAN2,CVATA,CVATF:Integer;
-  CVALP,CValX,CValY,CVAI,CVAI2,CVAA,CVAB,CVAY3,CVAT3,CVAB2,CVANewArmies:Integer;
-  CVAFreeArmies,CVAMaxFreeArmy,CVAValue2:Integer;
-  SOBTX,SOBTT,Routine:Integer;
-  DEValue,DEVal2,DEX,DEY,DEZ,DET3:Integer;
-  CVAPoints,CVAPointValue:double;
-  ValInd:Integer;
-  NValue,NT,NT2,NF,NF1,NX,NY,NZ,NF2:Integer;
-
-  FromIsFront, ToIsFront: boolean;
-  Calc:integer;
-  ABT,ABTI,ABTC,ABTN:Integer;
-  T40,T41,T42:Integer;
-  MyArmiesMap: Array of Integer;
-  AttackArmies: Array of Integer;
-  MineArmies: Array of Boolean;
-  KP2009,killreason: Integer;
-  ValIndex, ValProtection: array of Integer;
-  MyAttackC,PlayersCount,ThreatPlayer:integer;
-  MyStartC: Array of Integer;
-  MyConnected: Array of Integer;
-  DistanceToAttackFront: Array of Integer;
-  SpreadLevel: Integer;
-  StartTurnPlayerScore: Array of Integer;
-  StartTurnPlayerCScore: Array of Integer;
-  StartTurnPlayerScoreOrdered: Array of Integer;
-  StartTurnCOwner: Array of Integer;
-  mrbigarmies,mrsecondarmies,mrbig,Turn:integer;
-  aalive,dalive,ealive,lastturnfrom,lastturnto:integer;
-  AverageEnemyArmies,EnemiesAlive:integer;
-  DomAccumulate, DomAttack:boolean;
-
-{_________________________ m/l/UBuffer ______________________________}
-
-procedure m(s: string);  // shortens m to m
-begin
-  //Umessage(s); // comment off this line to disable all ms
-  //if PTerritoriesCount(Pme) = 41 then l('Armies: ' + i(PArmiesCount(Pme)));
-end;
-
-procedure l(s: string);  // shortens l to l
-begin
-  //Ulog(s);  // comment off this line to disable all ls
-  //if PTerritoriesCount(Pme) = 41 then l('Armies: ' + i(PArmiesCount(Pme)));
-end;
-
-function i(x: integer): string;  // shortens i to i
-begin result:= inttostr(x); end;
-
-procedure sn(s: string);  // shortens l to l
-begin
-  //Utakesnapshot(s + ' Player ' + PProgram(PMe) + ' Turn ' + i(turn));  // comment off this line to disable all ls
-  //if PTerritoriesCount(Pme) = 41 then l('Armies: ' + i(PArmiesCount(Pme)));
-end;
-
-function f(x: double): string;  // shortens floattostr to f
-begin result:= floattostr(x); end;
-
-// example m('ToTerritory: ' + i(ToTerritory) + ' FromTerritory: ' + i(FromTerritory));
-
-function bg(x: integer): integer;
-begin result:= trunc(UBufferGet(x)); end;
-                                              // use these for integer storage
-procedure bs(x, y: integer);
-begin UBufferSet(x, y); end;
-{______________________________________________________________________________}
-  FUNCTION ContinentValuation (CVC : integer):integer;
-    BEGIN
-        CAnalysis(CVC,PT,PA,ET,EA);
-        if (CVC=1) then begin
-          CValX:=30;
-          if dalive=1 then CValx:=CValx+1000;
-        end;
-        if (CVC=2) then begin
-          CValX:=20;
-          if dalive=1 then CValx:=CValx+1000;
-        end;
-        if (CVC=3) then begin
-          CValX:=40;
-        end;
-        if (CVC=4) then begin
-          CValX:=30;
-          if dalive=1 then CValx:=CValx+1000;
-        end;
-        if (CVC=5) then begin
-          CValX:=50;
-          if aalive=1 then CValx:=CValx+1000;
-        end;
-        if (CVC=6) then begin
-          if (PA=0) then begin
-            CValX:=40;
-          end else
-          begin
-            CValX:=10;
-          end;
-          if aalive=1 then CValx:=CValx+1000;
-        end;
-        for CNT:=1 to 42 do begin
-          CNM :=0;
-          if (not TIsMine(CNT)) then begin
-            CNX:=TBordersCount(CNT);
-            for CNY :=1 to CNX do begin
-              CNT2:= TBorder(CNT,CNY);
-              if (TContinent(CNT2)=CVC) then CNM :=1;
-            end;
-            if (CNM =1 ) then CValX :=CValX + TArmies(CNT);
-          end;
-        end;
-                
-        CValY:=CValX+3;
-        if (CValY < 1) then begin
-          CValY := 1;
-        end;
-        result:=CValY;
-    end;//ContinentValuation
-
-function LoneTerritoryValue(Territory:integer): double;
-var
-  WE,T,X,MinD,res:integer;
-begin
-  res:=1000;
-  MinD:=10000;
-  If (TContinent(Territory)=2) or (TContinent(Territory)=6) then begin
-    res:=res-500;
-  end;
-  WE:=0;
-  for X:=1 to TBordersCount(Territory) do begin
-    T:=TBorder(Territory,X);
-    if (not TIsMine(T)) then begin
-      if TArmies(T)> WE then WE:=TArmies(T);
-    end;
-    if (not (TIsMine(T))) and (TArmies(T)=1) then begin
-      if (TContinent(T)<>2) and (TContinent(T)<>6) then begin
-        res:=res+100;
-      end;
-    end;
-    if (not (TIsMine(T))) and (TArmies(T)=2) then begin
-      if (TContinent(T)<>2) and (TContinent(T)<>6) then begin
-        res:=res+30;
-      end;
-    end;
-    if (not (TIsMine(T))) and (TArmies(T)=3) then begin
-      if (TContinent(T)<>2) and (TContinent(T)<>6) then begin
-        res:=res+10;
-      end;
-    end;
-    if (TContinent(T)=2) or (TContinent(T)=6) then begin
-      res:=res-500;
-    end;
-    if ( pos('frank', lowercase(PProgram(TOwner(T)))) > 0 ) then begin
-      if ( pos('australian', lowercase(PProgram(PMe))) > 0 ) then begin
-        if (PArmiesCount(TOwner(T))<mrsecondarmies) or (PArmiesCount(PMe)<mrsecondarmies) then begin
-          res:=res-(TArmies(T)*100);
-        end;
-      end;
-    end;
-  end;
-  if (WE > 0) and (WE<100) then res:=res+100-WE;
-  result:=double(res);
-  if not SCardsBasedOnCombo then begin
-    MinD:=10000;
-    result:=-100;
-    for X:=1 to TFrontsCount(Territory) do begin
-      T2:=TFront(Territory,X);
-      if TArmies(T2) < Mind then begin
-        result:=100-TArmies(T2);
-        Mind:=TArmies(T2);
-      end;
-    end;
-  end;
-
-end;
-
-
-function minnowWhere(var FromTerritory, ToTerritory: integer): boolean;
-var
-  T,X,C,Y,T2,D,D2,Z: integer;
-  E14,E9,MaxTerritoryValue: integer;
-  PT,PA,ET,EA:integer;
-  P:Integer;
-  loopcontrol:boolean;
-  nicestart: array of integer;
-begin
-  SetArrayLength(nicestart,43);
-  for T:=1 to 42 do begin
-    ValIndex[T]:=1000000;
-  end;
-  if ( pos('endeavour', lowercase(PProgram(PMe))) > 0 ) then begin
-    for C:=1 to 6 do begin
-      Y:=CTerritoriesCount(C);
-      X:=trunc(ContinentValuation(C)*1.1);
-//      l('CFCFC ' + i(C) + ' ' + i(X));
-      for Z:=1 to Y do begin
-        T:=CTerritory(C,Z);
-        ValIndex[T]:=X;
-      end;
-    end;
-  end;
-  if ( pos('australian', lowercase(PProgram(PMe))) > 0 ) then begin
-    CAnalysis(6,PT,PA,ET,EA);
-    if (PA<5) then begin
-      if COwner(6) > 0 then begin
-//        if COwner(6) = COwner(5) then begin
-//          ValIndex[39]:=EA-200;
-//        end else begin
-          MaxTerritoryValue:=10;
-          P:=COwner(6);
-          if ( pos('frank', lowercase(PProgram(P))) > 0 ) or ( pos('zotob', lowercase(PProgram(P))) > 0 ) or PHuman(P) then begin
-            for T:=27 to 38 do begin
-              if (T <> 31) then begin
-                Y:=TOwner(T);
-                if ( pos('frank', lowercase(PProgram(Y))) > 0 ) or ( pos('zotob', lowercase(PProgram(Y))) > 0 ) or PHuman(Y) then begin
-                  if TArmies(T) > MaxTerritoryValue then begin
-                    MaxTerritoryValue:=TArmies(T);
-                  end;
-                end;
-              end;
-            end;
-          end;
-          ValIndex[39]:=EA+MaxTerritoryValue;
-      //  end;
-      end else begin
-        ValIndex[39]:=EA+100;
-      end;
-    end else begin
-      for T:=39 to 42 do begin
-        ValIndex[T]:=TArmies(T);
-        if (not TIsMine(T)) then begin
-          for X:=1 to TBordersCount(T) do begin
-            T2:=TBorder(T,X);
-            if (TISMine(T2)) and (TArmies(T2)>3) then begin
-              FromTerritory:=T2;
-              ToTerritory:=T;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  if ( pos('descartes', lowercase(PProgram(PMe))) > 0 ) then begin
-    CAnalysis(2,PT,PA,ET,EA);
-    if not (TISMine(9)) then begin
-      E9:=TArmies(9);
-    end else begin
-      E9:=0;
-    end;
-    if not (TIsMine(14)) then begin
-      E14:=TArmies(14);
-    end else begin
-      E14:=0;
-    end;
-    if (PA<5) then begin
-      if StartTurnCOwner[2] > 0 then begin
-        P:=StartTurnCOwner[2];
-        if ((StartTurnCOwner[2]=StartTurnCOwner[1]) or (StartTurnCOwner[2]=StartTurnCOwner[4]) or ( pos('zotob', lowercase(PProgram(P))) > 0 ) or PHuman(P)) then begin
-          ValIndex[10]:=40+EA+E9+E14;
-          ValIndex[12]:=40+EA+E9+E14;
-          ValIndex[9]:=40+EA+E9+E14;
-          ValIndex[14]:=40+EA+E9+E14;
-        end else begin
-          ValIndex[10]:=60+EA+E9+E14;
-          ValIndex[12]:=60+EA+E9+E14;
-          ValIndex[9]:=60+EA+E9+E14;
-          ValIndex[14]:=60+EA+E9+E14;
-        end;
-      end else begin
-        ValIndex[10]:=100+EA+E9+E14;
-        ValIndex[12]:=100+EA+E9+E14;
-        ValIndex[9]:=100+EA+E9+E14;
-        ValIndex[14]:=100+EA+E9+E14;
-      end;
-//      l('DESC V14 ' + i(ValIndex[14]) + ' V9 ' + i(ValIndex[9]));
-    end else begin
-      if not (TIsMine(10)) then begin
-        ValIndex[10]:=EA;
-      end;
-      if not (TIsMine(11)) then begin
-        ValIndex[11]:=EA-1;
-      end;
-      if not (TIsMine(12)) then begin
-        ValIndex[12]:=EA;
-      end;
-      if not (TIsMine(13)) then begin
-        ValIndex[13]:=EA-2;
-      end;
-    end;          
-  end;
-  if (trunc(UBufferGet(99)) = 99) then begin
-    for T:=1 to 42 do begin
-      if TContinent(T) = 1 then nicestart[T]:=3;
-      if TContinent(T) = 2 then nicestart[T]:=1;
-      if TContinent(T) = 3 then nicestart[T]:=5;
-      if TContinent(T) = 4 then nicestart[T]:=2;
-      if TContinent(T) = 5 then nicestart[T]:=4;
-      if TContinent(T) = 6 then nicestart[T]:=0;
-    end;
-    for C:=1 to 6 do begin
-      for X:=1 to CEntriesCount(C) do begin
-        nicestart[Centry(C,X)]:=nicestart[CEntry(C,X)]-2;
-      end;
-    end;
-    X:=-10000;
-    for T:=1 to 42 do begin
-      if (TIsMine(T)) and (nicestart[T]> X) then begin
-        X:=nicestart[T];
-        FromTerritory:=T;
-      end;
-    end;
-//    l('nice start rec ' + i(FromTerritory) + ' score ' + i(X));
-  end;      
-  if (FromTerritory=0) then begin
-    MaxTerritoryValue:=-100000;
-    loopcontrol:=true;
-    while loopcontrol do begin
-      loopcontrol:=false;
-      for T:=1 to 42 do begin
-        for X:=1 to TBordersCount(T) do begin
-          T2:=TBorder(T,X);
-          if TIsMine(T) then begin
-            Z:=ValIndex[T2]+1;
-          end else begin
-            Z:=ValIndex[T2]+TArmies(T)+1;
-          end;
-          if ValIndex[T] > Z then begin
-            ValIndex[T]:=Z;
-            loopcontrol:=true;
-          end;
-        end;
-      end;
-    end;
-    if routine=1 then begin
-      D:=-1000000;
-    end else begin
-      D:=0;
-    end;
-    for T:=1 to 42 do begin
-      if TIsMine(T) then begin
-        Y:=TBordersCount(T);
-        for Z:=1 to Y do begin  
-          T2:=TBorder(T,Z);
-//          if (not TIsMine(T2)) then begin
-            D2:=TArmies(T)-ValIndex[T2];
-            if TArmies(T)=1 then begin
-              D2:=D2-1000;
-            end;
-            if (D2>D) then begin
-              D:=D2;
-              FromTerritory:=T;
-              if (D>0) then begin
-                ToTerritory:=T2;
-              end;
-            end;
-//          end;
-        end;
-      end;
-    end;
-    if (not ((lastturnfrom=FromTerritory) and (lastturnto=99))) then begin 
-//      l('XXXTF ' + i(FromTerritory) + ' TA ' + i(ToTerritory) + ' A ' + i(TArmies(FromTerritory))+ ' VI ' + i(ValIndex[ToTerritory])+' D ' + i(D));
-    end;
-  end;
-end;
-
-procedure conquestAttack(var FromTerritory, ToTerritory: integer);
-var
-  T,T2,X,Y:integer;
-  Value:double;
-begin
-  if (not SConquest) and (ToTerritory=0) then begin
-    Value:=-100000;
-    for T:=1 to 42 do begin
-      if (TIsMine(T)) and (TArmies(T) > 1) then begin
-        for X:=1 to TFrontsCount(T) do begin
-          T2:=TFront(T,X);
-          if (TArmies(T2)=1) and (LoneTerritoryValue(T2)>Value) then begin
-            FromTerritory:=T;
-            ToTerritory:=T2;
-            Value:=LoneTerritoryValue(T2);
-          end;
-        end;
-      end;
-    end;
-    if (ToTerritory=0) and ((PArmiesCount(PMe)>AverageEnemyArmies) or (PArmiesCount(PMe) > 50)) then begin
-      for T:=1 to 42 do begin
-        if (TIsMine(T)) and (TArmies(T) > 1) then begin
-          for X:=1 to TFrontsCount(T) do begin
-            T2:=TFront(T,X);
-            if (TArmies(T2)=2) and (LoneTerritoryValue(T2)>Value) then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              Value:=LoneTerritoryValue(T2);
-            end;
-          end;
-        end;
-      end;
-    end;
-    if (ToTerritory=0) and ((PArmiesCount(PMe)>AverageEnemyArmies) or (PArmiesCount(PMe) > 75)) then begin
-      for T:=1 to 42 do begin
-        if (TIsMine(T)) and (TArmies(T) > 1) then begin
-          for X:=1 to TFrontsCount(T) do begin
-            T2:=TFront(T,X);
-            if (TArmies(T2)=3) and (LoneTerritoryValue(T2)>Value) then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              Value:=LoneTerritoryValue(T2);
-            end;
-          end;
-        end;
-      end;
-    end;
-    if (ToTerritory=0) and ((PArmiesCount(PMe)>AverageEnemyArmies) and (PArmiesCount(PMe) > 75)) then begin
-      for T:=1 to 42 do begin
-        if (TIsMine(T)) and (TArmies(T) > 1) then begin
-          for X:=1 to TFrontsCount(T) do begin
-            T2:=TFront(T,X);
-            if (TArmies(T2)=4) and (LoneTerritoryValue(T2)>Value) then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              Value:=LoneTerritoryValue(T2);
-            end;
-          end;
-        end;
-      end;
-    end;
-    if (ToTerritory=0) and ((PArmiesCount(PMe)>AverageEnemyArmies) and (PArmiesCount(PMe) > 125)) then begin
-      for T:=1 to 42 do begin
-        if (TIsMine(T)) and (TArmies(T) > 1) then begin
-          for X:=1 to TFrontsCount(T) do begin
-            T2:=TFront(T,X);
-            if (TArmies(T2)=5) and (LoneTerritoryValue(T2)>Value) then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              Value:=LoneTerritoryValue(T2);
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-    l('Cards attack from ' + i(FromTerritory) + ' to ' + i(ToTerritory) + ' armies to kill ' + i(TArmies(ToTerritory)) + ' val ' + f(Value)); 
-  end;
-end;
-
-
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-//old endeavour
-
-
-  FUNCTION Protection (ProT, ProY, ProTA : integer):integer;
-    BEGIN
-      IF (ProY=0) THEN BEGIN
-        ProX:=TBordersCount(ProT);
-        ProV:=0;
-        for ProZ:=1 to ProX do begin
-          ProT2:=TBorder(ProT,ProZ);
-          if (not (TIsMine(ProT2)) AND (ProT2 <> ProTA)) then begin
-            if (TArmies(ProT2)>ProV) then begin
-              ProV:=TArmies(ProT2);
-            end;
-          end;
-        end;
-      END;
-      if ((ProV>0) and (ProV<100)) then begin
-        ProV:=ProV+10;
-      end;
-      result:=ProV;
-    end;//protection
-
-  FUNCTION SumOfBorders(SOBT1,SOBT2:Integer):Integer;
-    begin
-      SOBTX:=0;
-      for SOBTT:=1 To 42 do begin
-        if ((not (TOwner(SOBTT) = PMe))
-            and (not (SOBTT=SOBT1))
-            and (not (SOBTT=SOBT2))) then begin
-          if (TIsBordering(SOBT1,SOBTT) OR TIsBordering(SOBT2,SOBTT)) then begin
-            SOBTX := SOBTX + TArmies(SOBTT);
-          end;
-        end;
-      end;
-      result:=SOBTX;
-    end;
-
-  FUNCTION ContinentValueAttack(CVAX2:Integer):Integer;
-    begin//
-      TerritoryTo:=0;
-      TerritoryFrom:=0;
-//      l('AAA');
-      CVAZ:=CTerritoriesCount(CAX);
-      // defence first
-      if (routine = 1) then begin
-        for CVAY:=1 to CVAZ do begin
-          CVAT:=CTerritory(CAX,CVAY);
-          if (TOwner(CVAT) = PMe) then begin
-            CVAN:=Protection(CVAT,0,0);
-            if (TArmies(CVAT)<CVAN) then begin
-              TerritoryFrom:=CVAT;
-              TerritoryTo:=0;
-              ValInd:=10;
-            end;
-          end;
-        end;
-      end;
-
-      //else attack
-      if (TerritoryFrom = 0) then begin
-        CVAValue:= -10000;
-        CVAPointValue:=-10000.2;
-        CVATA:=0;
-        // choose territory to attack
-        for CVAY2:=1 to CVAZ do begin
-          CVAT2:=CTerritory(CAX,CVAY2);
-          if (not (TOwner(CVAT2)=PMe)) then begin
-            // is it bordering us
-            CVAN:=0;
-            for CVAY:=1 to CVAZ do begin
-              CVAT:=CTerritory(CAX,CVAY);
-              if ((TOwner(CVAT)=PMe) AND (TIsBordering(CVAT,CVAT2))) then begin
-                CVAN:=1;
-              end;
-            end;
-            if (CVAN=1) then begin
-              // calculate new armies, not currently bordering us
-              CVANewArmies:=0;
-              CVAB:=TBordersCount(CVAT2);
-              for CVAY3:=1 to CVAB do begin
-                CVAI:=0;
-                CVAI2:=0;
-                CVAT3:=TBorder(CVAT2,CVAY3);
-                if (not (TISMine(CVAT3))) then begin
-                  CVAB2:=TBordersCount(CVAT3);
-                  for CVAY:=1 to CVAB2 do begin
-                    CVAT:=TBorder(CVAT3,CVAY);
-                    if ((TContinent(CVAT) = CAX) AND
-                        (TISMine(CVAT))) then begin
-                      CVAI:=1;
-                    end;
-                  end;
-                  if (CVAI=0) then begin
-                    CVANewArmies:=CVANewArmies+TArmies(CVAT3);
-                  end;
-                end;
-              end;
-              CVAMaxFreeArmy:=0;
-              CVAFreeArmies:=0;
-              for CVAY:=1 to CVAZ do begin
-                CVAT:= CTerritory(CAX,CVAY);
-                if (TIsBordering(CVAT,CVAT2) AND TISMine(CVAT)) then begin
-                  CVAI:=Protection(CVAT,0,CVAT2);
-                  CVAFreeArmies:=CVAFreeArmies+(TArmies(CVAT)-CVAI);
-                  if (TArmies(CVAT)-CVAI > CVAMaxFreeArmy) then begin
-                    CVAMaxFreeArmy:=TArmies(CVAT)-CVAI;
-                  end;
-                end;
-              end;
-              CVAPoints:= CVAFreeArmies-CVANewArmies-(TArmies(CVAT2)*1.01);
-//              //umessage('Points ',CVAPoints,' ',CVAPointValue);
-              CVAN2:=CVAMaxFreeArmy-TArmies(CVAT2);
-              if (CVAN2 < (CVAFreeArmies-TArmies(CVAT2))) then begin
-                CVAN2:=CVAFreeArmies-TArmies(CVAT2);
-              end;
-              TStrongestFront(CVAT2,ET,EA);
-              if (CVAPoints> CVAPointValue) then begin 
-//   //umessage('Pick Terr ',CVAT2,' ',CVAN2,' ',EA,' ',CVAFreeArmies,' ',TArmies(CVAT2)*0.99,' ',CVAPoints);
-                CVAValue:=CVAN2-EA;
-                CVATA:=CVAT2;
-                CVAPointValue:=CVAPoints;
-//                CVANewArmies2:=CVANewArmies;
-              end;
-            end;
-          end;
-        end;
-        TStrongestFront(CVATA,ET,EA);
-        //choose whether to attack and Territory From    
-        if (CVAValue < 0) then begin
-          CVAValue2:= -10000;
-          for CVAY:=1 TO CVAZ do begin
-            CVAT:=CTerritory(CAX,CVAY);
-            if (TIsBordering(CVAT,CVATA) AND TISMine(CVAT) AND (TArmies(CVAT)>TArmies(CVATA))) then begin
-              CVAI:=Protection(CVAT,0,CVATA);
-              if (TArmies(CVAT)-CVAI>CVAValue2) then begin
-                TerritoryFrom:=CVAT;
-                CVAValue2:=TArmies(CVAT)-CVAI;
-//              //umessage('Attack 0 ',TerritoryFrom,' ',TerritoryTo);
-                ValInd:=11;
-              end;
-            end;
-          end;
-        end else begin
-//          l('Cont A point a ' + i(CVATA) + ' ' + i(CVAValue) + ' ' + i(EA));     
-//          //umessage('Territories of place we are attacking ',TArmies(CVATA));
-          if ((TArmies(CVATA) < 3) or (routine=1)) then begin
-//            l('zzz ' + i(CVATA) + ' ' + i(CVAValue) + ' ' + i(EA) + ' ' + i(TArmies(CVATA)));     
-            CVAValue2:= -10000;
-            for CVAY:= 1 TO CVAZ do begin
-              CVAT:=CTerritory(CAX,CVAY);
-              if (TIsBordering(CVAT,CVATA) AND TIsMine(CVAT)) then begin
-//                l('yzz ' + i(CVAT));     
-                CVAI:=Protection(CVAT,0,CVATA);
-//                //umessage('Final Kill attack',CVAT,' ',CVAI,' ',CVAValue2);
-//                l('CVAT ' + i(CVAT) + ' CVAI ' + i(CVAI) + ' CVAValue2 ' + i(CVAVALUe2) + ' Arms ' + i(TArmies(CVAT)) + ' TA ' + i(TArmies(CVATA)+10));     
-                if ((TArmies(CVAT)-CVAI>CVAValue2) AND ((TArmies(CVAT)-CVAI>(TArmies(CVATA)+10)) OR (Routine = 1))) then begin
-                  TerritoryFrom:=CVAT;
-                  TerritoryTo:=CVATA;
-                  ValInd:=12;
-//              //umessage('Attack 1 ',TerritoryFrom,' ',TerritoryTo);
-                  CVAValue2:=TArmies(CVAT)-CVAI;
-                end;
-                if ((CVAI=0) AND (TArmies(CVAT)>(TArmies(CVATA)+10))
-                    AND (TArmies(CVAT)+10000>CVAValue2)) then begin
-                  CVAValue2:=TArmies(CVAT)+10000;
-                  TerritoryFrom:=CVAT;
-                  TerritoryTo:=CVATA;
-                  ValInd:=13;
-//              //umessage('Attack 2 ',TerritoryFrom,' ',TerritoryTo);
-                end;
-              end;
-            end;
-          end else begin
-//            //umessage('Preparatory attack');
-            CVAValue2:=-10000;
-            for CVAY:=1 TO CVAZ do begin
-              CVAT:=CTerritory(CAX,CVAY);
-              if (TIsBordering(CVAT,CVATA) AND TIsMine(CVAT)) then begin
-                CVAI:=Protection(CVAT,0,CVATA);
-                if ((TArmies(CVAT)-CVAI>CVAValue2) AND (((TArmies(CVAT)-CVAI)>TArmies(CVATA)))) then begin
-                  TerritoryFrom:=CVAT;
-                  TerritoryTo:=CVATA;
-                  ValInd:=14;
-                  CVAValue2:=TArmies(CVAT)-CVAI;
-//              //umessage('Attack 3 ',TerritoryFrom,' ',TerritoryTo);
-                end;
-                if ((CVAI=0) AND (TArmies(CVAT)>(TArmies(CVATA)))
-                    AND (TArmies(CVAT)+10000>CVAValue2)) then begin
-                  CVAValue2:=TArmies(CVAT)+10000;
-                  TerritoryFrom:=CVAT;
-                  CVAT3:=CVAT;
-                  TerritoryTo:=CVATA;
-                  ValInd:=15;
-//              //umessage('Attack 4 ',TerritoryFrom,' ',TerritoryTo);
-                end;
-              end;
-            end;
-            CVAValue2:=-10000;
-            for CVAY:=1 TO CVAZ do begin
-              CVAT:=CTerritory(CAX,CVAY);
-              if (TIsBordering(CVAT,CVATA) AND TISMine(CVAT) AND (TArmies(CVAT)>1)
-                 AND (CVAT<>CVAT3)) then begin
-                CVAI:=Protection(CVAT,0,CVATA);
-                if (CVAI=0) then CVAI2:=100000-CVAI+TArmies(CVAT);
-                if (CVAI>0) then CVAI2:=10000-CVAI+TArmies(CVAT);
-                if ((CVAI2>CVAValue2) AND (TArmies(CVAT)>CVAI)) then begin
-                  TerritoryFrom:=CVAT;
-                  TerritoryTo:=CVATA;
-                  CVAValue2:=CVAI2;
-//              //umessage('Attack 5 ',TerritoryFrom,' ',TerritoryTo);
-                  ValInd:=16;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;//ContinentValueAttack
-
-  FUNCTION LesseningAttack(DEParam:Integer):Integer;
-    BEGIN
-      TerritoryTo:=0;
-      TerritoryFrom:=0;
-      for T:=1 to 42 do begin
-	X:=0;
-        X2:=0;
-        LAValue:=0;
-        if (not (TISMine(T))) then begin
-          Y:=TBordersCount(T);
-          for Z:=1 to Y do begin
-            T2:=TBorder(T,Z);
-            if (TIsMine(T2)) then begin
-              if ((TArmies(T2)>100) and (TArmies(T2) <(TArmies(T)+10))) then begin
-                Y2:=TBordersCount(T2);
-                X3:=0;
-                LAValue2:=0;
-                for Z2:=1 to Y2 do begin
-                  TA:=TBorder(T2,Z2);
-                  if ((not (TA=T)) and (not TIsMine(TA))) then begin
-                    if (TArmies(TA)>LAValue2) then begin
-                      LaValue2:=TArmies(TA);
-                    end;
-                  end;
-                end;
-                if (TArmies(T2)>LAValue2) then begin
-                  X:=X+1;
-                  X2:=X2+TArmies(T2)-LAValue2;
-                end;
-              end;
-            end;
-          end;
-          if ((X>1) and ((X2-TArmies(T))>LAValue)) then begin
-            LAValue:=X2-TArmies(T);
-            TerritoryTo:=T;
-          end;
-        end;
-      end;
-      if (TerritoryTo>0) then begin
-        l('Lessening Attack ' + i(TerritoryTo)); 
-        T:=TerritoryTo;
-        Y:=TBordersCount(T);
-        LAValue:=0;
-        for Z:=1 to Y do begin
-          T2:=TBorder(T,Z);
-          if (TIsMine(T2)) then begin
-            if ((TArmies(T2)>100) and (TArmies(T2) <TArmies(T)+10)) then begin
-              if (TFrontsCount(T)>1) then begin
-                Y2:=TBordersCount(T2);
-                for Z2:=1 to Y2 do begin
-                  TA:=TBorder(T2,Z2);
-                  if ((not (TA=T)) and (not TIsMine(T))) then begin
-                    if (TArmies(T2)>(TArmies(TA)+10)+LAValue) then begin
-                      LAValue:=TArmies(T2)-TArmies(TA)-10;
-                      TerritoryFrom:=T2;
-                    end;
-                  end;
-                end;
-              end else
-              begin
-                if (TArmies(T2)>LAValue) then begin
-                  LAValue := TArmies(T2) - 10;
-                  TerritoryFrom:=T2;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    END;//Lessening Attacking
-
-
-  FUNCTION ContinentAttacking(CAValue:Integer):Integer;
-    begin
-      CAX:=0;
-      for CAC:=1 to 6 do begin
-        CAnalysis(CAC,PT,PA,ET,EA);
-        if (PA>0) then begin
-          if (EA>0) then begin
-            X:=ContinentValuation(CAC);
-//            l('C ' + i(CAC) + ' X ' + i(X) + ' PA ' + i(PA) + ' CAValue ' + i(CAValue));
-            if ((double(PA)/X)>CAValue) then begin
-//              l('D ' + i(CAC) + ' X ' + i(X) + ' PA ' + i(PA) + ' CAValue ' + i(CAValue));
-              CAX:=CAC;
-              CAValue:=trunc((double(PA-EA))/X);
-            end;
-          end;
-        end;
-      end;
-      if (CAX>0) then begin
-        CAZ:=ContinentValueAttack(1);//
-      end;
-    end;//ContinentAttacking  
-
-  FUNCTION DesirabilityAttacking(DEParam:Integer):Integer;
-    BEGIN
-      TerritoryTo:=0;
-      TerritoryFrom:=0;
-      if (routine=1) then begin
-        DEValue:= -10000;
-      end;
-      if (routine=2) then begin
-        DEValue:= 0;
-      end;
-      for T:=1 to 42 do begin
-        if (TISMine(T) AND (TArmies(T)>1)) then begin
-          X:=TBordersCount(T);
-          for Y:=1 to X do begin
-            T2:=TBorder(T,Y);
-            if (not TISMine(T2)) then begin
-              X2:=0;
-              if (T<40) then begin
-                X2:=valindex[T];
-              end;
-              if (X2>0) then begin
-                X2:=Protection(T,0,T2);
-                if (X2=0) then X2:=10;
-              end;
-              if (TArmies(T)-X2-valindex[T2]>DEValue) then begin
-// don't desire attack when should be continent attacking.
-                DEVal2:=1;
-                if ((TContinent(T) = TContinent(T2)) and (routine=2)) then begin
-                  DEVal2:=0;
-                  DEX:=valindex[T2];
-                  DEY:=TBordersCount(T2);
-                  for DEZ:=1 to DEY do begin
-                    DET3:=TBorder(T2,DEZ);
-                    if (valindex[DET3]<DEX) AND (not (TOwner(DET3)=PMe)) then begin
-                      DEVal2:=1;
-                    end;
-                  end;
-                end;
-                if (DEVal2=1) then begin
-                  TerritoryFrom:=T;
-                  TerritoryTo:=T2;
-                  DEValue:=TArmies(T)-X2-valindex[T2];
-//                  l('Desire Attack ' + i(TArmies(T)) + ' ' + i(X2)  + ' ' + i(T2)  + ' ' + i(valindex[T2]) + ' ');
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;//desirability attacking
-
-  FUNCTION TerritoryValues (nothing: boolean):boolean;
-  var
-    fff,ggg:integer;
-    BEGIN
-      fff:=0;
-      ggg:=0;
-      MinnowWhere(fff,ggg);
-
-      // calculate defence territory values
-      for T:=1 to 39 do begin
-        if (TIsMine(T)) then begin
-          ValProtection[T]:=0;
-        end;
-      end;
-
-      // australia
-      CAnalysis(6,PT,PA,ET,EA);          
-
-      for Z:=1 to 5 do begin
-        Z2:=CTerritoriesCount(Z);
-        CAnalysis(Z,PT,PA,ET,EA);
-        if (PA>EA) then begin
-          X:=ContinentValuation(Z);
-          if (double(PA)/X > 1.0) then begin
-            for Y:=1 to Z2 do begin
-              T2:=CTerritory(Z,Y);
-              if (TIsMine(T2)) then begin
-                X2:=Protection(T2,0,T2);
-                if (X2=0) then begin
-                  Y2:=TBordersCount(T2);
-                  for D:=1 to Y2 do begin
-                    TA:=TBorder(T2,D);
-                    if (not (TContinent(T2)=TContinent(TA))) then begin
-                      X2:=10;
-                    end;
-                  end;
-
-                end;
-                ValProtection[T2]:=X2;
-              end;
-            end;
-          end;
-        end;
-      end;
-
-    END;//FUNCTION TerritoryValues
-
-  FUNCTION ActiveBorder (ABT:Integer):Boolean;
-    BEGIN
-      ABTN:=TBordersCount(ABT);
-      result:=false;
-      for ABTI:=1 to ABTN  do begin
-        ABTC:=TBorder(ABT,ABTI);
-        if ((not (COwner(TContinent(ABTC))=PMe))
-            AND (TContinent(ABT)<>TContinent(ABTC))) then result:=true;
-      end;
-    end;
-
-procedure EndeavourPlacement(var ToTerritory: integer);
-begin //routine PLACEMENT
-  
-  Routine:=1;
-  
-  TerritoryValues(True);
-  TerritoryTo:=0;
-  TerritoryFrom:=0;
-  ToTerritory:=0;
-  
-  //initial placement code
-  if ((PArmiesCount(PMe) < 10) and (not (trunc(UBufferGet(50))=2))) then begin
-    UBufferSet(50,1);
-  end;
-  if ((PArmiesCount(PMe) > 25) and (trunc(UBufferGet(50))=1)) then begin
-    UBufferSet(50,2);
-  end;
-  
-  if (trunc(UBufferGet(50))=1) then begin
-    MaxTerritoryValue:=0;
-    for T:=1 to 42 do begin
-      if (TIsMine(T) and TIsFront(T)) then begin
-        TWeakestFront(T,ET,EA);
-        Score:=1000-EA;
-        Score:=Score-((double(TPressure(T)*2)/TFrontsCount(T)));
-        Score:=Score+(TArmies(T) div 3);
-        if (T>38) then Score:=Score-100;
-        if ((T>9) and (T<14)) then Score:=Score-50;
-        if (Score> MaxTerritoryValue) then begin
-          MaxTerritoryValue:=trunc(Score);
-          TerritoryTo:=T;
-        end;
-      end;
-    end;
-  end
-  else begin
-
-    if (PArmiesCount(PMe)<trunc(UBufferGet(39+PMe))) then begin
-      X:=trunc(UBufferGet(39+PMe))-PArmiesCount(PMe);
-      for T:=1 to 10 do begin
-        Y:=trunc(UBufferGet(39+T));
-        UBufferSet(39+T,Y-X);
-      end;
-    end;
-    UBufferSet(39+PMe,PArmiesCount(PMe));
-
-    if (PNewArmies(PMe)=1) then begin
-      for T:=1 to 10 do begin
-        if (not (T=PMe)) then begin
-          X:=trunc(UBufferGet(39+T));
-          Y:=PArmiesCount(PMe)-PArmiesCount(T);
-//          l('Player ' + i(T) +  ' ' + i(X-Y));
-          if (not (X=1000)) then begin
-            if (Y<(X-1)) then begin
-              UBufferSet(39+T,X-1);
-            end;
-          end;
-        end; 
-      end;
-    end;
-   
-  // assign defensive armies
-    if (TerritoryTo=0) then begin  
-      MaxTerritoryValue:=0;
-      for T:=1 to 39 do begin
-        if TIsMine(T) then begin
-          D:=ValProtection[T]-TArmies(T);
-          if (D>MaxTerritoryValue) then begin
-            MaxTerritoryValue:=D;
-            TerritoryTo:=T;
-//            //umessage('Defensive A ',TerritoryTo);
-          end;
-        end;
-      end;
-    end;
-   
-   // continent attacking
-    if (TerritoryTo=0) then begin
-      ContinentAttacking(1);
-
-      if (TerritoryFrom>0) then begin
-        TerritoryTo:=TerritoryFrom;
-//        //umessage('Conta Placement ',TerritoryTo);
-      end;
-    end;
-
-   
-
-  //desirability attacking
-    if (TerritoryTo=0) then begin
-      DesirabilityAttacking(1);
-
-      if (TerritoryFrom>0) then begin
-        TerritoryTo:=TerritoryFrom;
-      end;
-    end;
-
-
-   
-    if (TerritoryTo=0) then begin
-      MaxTerritoryValue:=0;
-      for T:=1 to 42 do begin
-        if (TIsFront(T) AND (TOwner(T) = PMe)) then begin 
-          if (TArmies(T)>MaxTerritoryValue) then begin
-            MaxTerritoryValue:=TArmies(T);
-            TerritoryTo:=T;
-          end;
-        end;
-      end;
-    end;
-
-  end;
-
-//  //umessage(trunc(UBufferGet(39)));
-  ToTerritory:=TerritoryTo;
-
-
-
-end;
-
-procedure endeavourAttack(var FromTerritory, ToTerritory: integer);
-
-
-begin
-  Routine:=2;
-  FromTerritory:=0;
-  ToTerritory:=0;
-  MaxTerritoryValue:=0;
-  TerritoryTo:=0;
-  TerritoryFrom:=0;
-  TerritoryValues(True);  
-  ValInd:=0;
-  KillPlayer:=0;
-  UBufferSet(50,3);
-
-
-
-  //Continent Attacking
-  if (FromTerritory=0) then begin
-    ContinentAttacking(1);
-    if (TerritoryTo>0) then begin
-      ToTerritory:=TerritoryTo;
-      FromTerritory:=TerritoryFrom;
-//      l('Continent Attacking ' + i(ValInd));
-      if (TArmies(FromTerritory)=1) then begin
-        //umessage('Attack Problem : ValInd = ',ValInd);
-      end;
-    end;
-  end;
-
-
-
-  //Desirability Attacking
-  if (FromTerritory=0) then begin
-    DesirabilityAttacking(1);
-    if (TerritoryTo>0) then begin
-      ToTerritory:=TerritoryTo;
-      FromTerritory:=TerritoryFrom;
-//      l('Desirability Attacking');
-      UBufferSet(50,4);
-//      //umessage('Desire Attack ',FromTerritory,' ',ToTerritory);
-    end;
-  end;
-
-
-
-  // Lessening Attack
-  if (FromTerritory=0) then begin
-    LesseningAttack(1);
-    if (TerritoryTo>0) then begin
-      ToTerritory:=TerritoryTo;
-      FromTerritory:=TerritoryFrom;
-      l('Lessening Attacking');
-    end;
-  end;
-
-  // Attack Dangerous Neighbour
-  if (FromTerritory=0) then begin
-    LesseningAttack(1);
-    if (TerritoryTo>0) then begin
-      ToTerritory:=TerritoryTo;
-      FromTerritory:=TerritoryFrom;
-      l('Lessening Attacking');
-    end;
-  end;
-
-          
-  if (FromTerritory=0) then begin
-    MaxTerritoryValue:=0;
-    if not SConquest then begin  
-      conquestAttack(FromTerritory,ToTerritory);
-    end;
-  end;
-
-  if (PArmiesCount(PMe)<trunc(UBufferGet(39+PMe))) then begin
-    X:=trunc(UBufferGet(39+PMe))-PArmiesCount(PMe);
-    for T:=1 to 10 do begin
-      Y:=trunc(UBufferGet(39+T));
-      if (not (Y=1000)) then begin
-        UBufferSet(39+T,Y-X);
-      end;
-    end;
-  end;
-  for T:=1 to 10 do begin
-    if (not (T=PMe)) then begin
-      X:=trunc(UBufferGet(39+T));
-      Y:=PArmiesCount(PMe)-PArmiesCount(T);
-//      l('Player ',X,' ',Y);
-      if (Y>X) then begin
-        UBufferSet(39+T,Y);
-      end;
-      if (Y<X-10) Then begin
-//        //umessage('Player ',T,' strong.');
-      end;
-    end;
-  end;
-    
-
-end;
-
-procedure endeavourOccupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-begin
-  T40:=trunc(UBufferGet(40));
-  T41:=trunc(UBufferGet(41));
-  T42:=trunc(UBufferGet(42));
-  UBufferSet(40,0);
-  UBufferSet(41,0);
-  UBufferSet(42,0);
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  Armies:=0;
-  Calc:=0;
-
-  //desirability attacking
-  if (Calc=0) then begin
-//     l('Desire1 ' + i(trunc(UBufferGet(50))));
-    if (trunc(UBufferGet(50))=4) then begin
-//      l('Desire2 ' + i(ValProtection[FromTerritory]));
-      if (ValProtection[FromTerritory]=0) or (FromTerritory>39) then begin
-        Armies:=TArmies(FromTerritory)-1;
-      end else
-      begin
-        Armies:=TArmies(FromTerritory)-ValProtection[FromTerritory];
-      end;
-      Calc:=1;
-    end;
-  end;
-
-  // don't move out of more favourable continent
-  if (Calc=0) then begin
-    C:=TContinent(FromTerritory);
-    C2:=TContinent(ToTerritory);
-    X:=ValIndex[ToTerritory];
-    Y:=trunc(ContinentValuation(C)*1.1);
-    if ((C<>C2) AND (not (COwner(C)=PMe)) AND (Y<X)) then begin
-      Armies:=0;
-      Calc:=1;
-      l('Stay in favourable continent' + i(Y) + ' ' + i(X));
-    end;
-  //don't let a small army wander
-    CAnalysis(C,PT,PA,ET,EA);
-    if ((PA>EA) and (TArmies(FromTerritory)<X) AND (PT>1) 
-        AND (C<>C2)) then begin
-      Z:=CTerritoriesCount(C);
-      for Z2:=1 to Z do begin
-        T:=CTerritory(C,Z2);
-        if ((TArmies(T)>1) AND (T <> FromTerritory)) then begin  
-          Armies:=0;
-          Calc:=1;
-          l('Small Armies stay at home');
-        end;
-      end;
-    end;
-  end;
-
-  // Streamline Attacking Scan ahead
-  if (Calc=0) then begin
-    X:=ValIndex[ToTerritory];
-    Y:=TBordersCount(ToTerritory);
-    for Z:=1 to Y do begin
-      T2:=TBorder(ToTerritory,Z);
-      if (ValIndex[T2]<X) AND (not (TOwner(T2)=PMe)) then begin
-        if (TContinent(T2) <> TContinent(FromTerritory)) then begin
-          Armies:=TArmies(FromTerritory)-(1+ValProtection[FromTerritory]);
-          if (Armies<0) then Armies:=0;  
-          Calc:=1;
-//          l('Streamline Attacking Scan Ahead ' + i(ToTerritory) + ' ' + i(T2));
-        end;
-      end;
-    end;
-  end;
-
-
-
-  // desirability continent moving
-  
-  if (Calc=0) then begin
-    if (TContinent(FromTerritory) <> TContinent(ToTerritory)) then begin
-      X2:=0;
-      if (COwner(TContinent(FromTerritory))=PMe) then begin
-        X2:=Protection(FromTerritory,0,ToTerritory);
-    //              //umessage('Desire Attack ',TArmies(T),' ',X2,' ',DEValue);
-        if (ValProtection[FromTerritory]>0) AND (X2=0) then begin
-          X2:=10;
-        end;
-      end;
-      if (TArmies(FromTerritory)-X2-valIndex[ToTerritory]>0) then begin
-        Armies:=TArmies(FromTerritory)-X2-1;
-        if (Armies<0) then Armies:=0;
-        Calc:=1;
-//        l('Desirability continent moving');
-      end;
-    end;
-  end;
-  ValIndex[ToTerritory]:=0;
-
-
-  //ContinentAttacking
-
-  if (Calc=0) then begin
-    C:=TContinent(FromTerritory);
-//    l('Attacking 1 ',FromTerritory,' ',ToTerritory);
-    CAnalysis(C,PT,PA,ET,EA);
-    Y:=ContinentValuation(C);
-    if (Y>0) then begin
-      if ((double(PA)/Y)>1.2) then begin
-        if (C=TContinent(ToTerritory)) then begin
-          ProT:=FromTerritory;
-          ProTA:=ToTerritory;
-          X:=Protection(ProT,0,ProTA);
-          TF:=FromTerritory;
-          if (TArmies(TF)>X) then begin
-            Armies:=TArmies(TF)-X-1;
-            X:=Protection(ProTA,0,0);
-            if (Armies >X) then begin
-              Fronts:=TFrontsCount(TF);
-              for T:=1 to Fronts do begin
-                if (TContinent(TFront(TF,T))=C) then begin
-                  Armies:=X;
-                end;
-              end;
-            end;
-            if (not (FromIsFront)) then begin
-              if (ActiveBorder(FromTerritory)) then begin
-                Armies:=TArmies(FromTerritory)-10;
-              end else begin
-                Armies:=TArmies(FromTerritory)-1;
-              end;
-            end;
-            Calc:=1;
-//          l('Cont Att Moving 2 ' + i(FromTerritory)  + ' ' + i(ToTerritory));
-          end
-          else begin
-            Calc:=1;
-            Armies:=0;
-//          l('Cont Att Moving 3 ' + i(FromTerritory)  + ' ' + i(ToTerritory));
-          end;
-        end
-        else begin
-          Armies:=0;
-          Calc:=1;
-//          l('Cont Att Moving 4 ' + i(FromTerritory)  + ' ' + i(ToTerritory));
-        end;
-      end;
-    end;
-  end;
-
-  if (Calc=0) then begin
-    if ToIsFront then begin
-      Armies:=TArmies(FromTerritory)-(1+valProtection[FromTerritory]);
-      Calc:=1;
-      if (Armies<0) then Armies:=0;  
-//      l('Occupation Default ' + i(Armies));
-    end;
-  end;
-
-
-
-
-  UBufferSet(40,T40);
-  UBufferSet(41,T41);
-  UBufferSet(42,T42);
-
-
-
-     
-
-end;
-
-function oldFortification(var FromTerritory, ToTerritory, Armies: integer):boolean;
-
-
-begin
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-  MaxArmy:=1;
-  if (COwner(6)=PMe)
-    then begin
-    if (TArmies(40)>1) then begin
-      Armies:=TArmies(40)-1;
-      FromTerritory:=40;
-      ToTerritory:=39;
-    end;
-    if (TArmies(42)>1) then begin
-      Armies:=TArmies(42)-1;
-      FromTerritory:=42;
-      ToTerritory:=39;
-
-    end;
-    if (TArmies(41)>1) then begin
-      Armies:=TArmies(41)-1;
-      FromTerritory:=41;
-      ToTerritory:=40;
-
-    end;
-  end;
-  
-  if (FromTerritory=0) then begin
-    for T:=1 to 39 do begin
-      if ((TIsMine(T)) 
-      and (not TIsFront(T))) then begin  
-        if (TArmies(T)-valProtection[T]>MaxArmy) then begin
-          MaxArmy := TArmies(T)-valProtection[T];
-          FromTerritory := T;
-        end;
-      end; 
-    end;
-    if (FromTerritory=0) then begin
-      for T:=40 to 42 do begin
-        if ((TIsMine(T)) 
-        and (not TIsFront(T))) then begin  
-          if (TArmies(T)>MaxArmy) then begin
-            MaxArmy := TArmies(T)-1;
-            FromTerritory := T;
-          end;
-        end; 
-      end;
-    end;
-    
-    if (FromTerritory>0) then begin
-      for B:=1 to TBordersCount(FromTerritory) do begin
-        if ToTerritory=0 then begin
-          T:=TBorder(FromTerritory,B);
-          if TIsMine(T) and TIsFront(T) then begin
-            ToTerritory:=T;
-          end;
-        end;
-      end;
-      if ToTerritory=0 then begin
-        for B:=1 to TBordersCount(FromTerritory) do begin
-          if ToTerritory=0 then begin
-            T:=TBorder(FromTerritory,B);
-            if TIsMine(T) then begin
-              ToTerritory:=T;
-            end;
-          end;
-        end;
-      end;
-      if ToTerritory>0 then begin
-        Armies:=TArmies(FromTerritory)-valProtection[FromTerritory]-1;
-      end;
-      if (Armies > TArmies(FromTerritory) - 1) then begin
-        Armies := TArmies(FromTerritory) - 1;
-      end;
-    end;
-  end;
-
-  if (FromTerritory=0) then begin
-  //Unite lost territories
-
-    for C:=1 to 6 do begin
-      CAnalysis(C,PT,PA,ET,EA);
-      Y:=ContinentValuation(C);
-      if ((Y>0) and (EA>0)) then begin
-        if ((double(PA)/Y)<1) then begin
-          Z:=CTerritoriesCount(C);
-          for X:=1 to Z do begin
-            T:=CTerritory(C,X);
-            if ((TOwner(T)=PMe) AND (TArmies(T)>1)) then begin
-              Z2:=TBordersCount(X);
-              for X2:=1 to Z2 do begin
-                T2:=TBorder(T,X2);
-                if ((TOwner(T2)=PMe) AND (TArmies(T2)>1) and TIsFront(T2)) then begin
-                  FromTerritory:=T;
-                  ToTerritory:=T2;
-                  Armies:=TArmies(FromTerritory)-1;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;  
-
-end;
-
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-// Use australian 2009 code after I have 1 continent
-
-
-procedure oldAttack(var FromTerritory, ToTerritory: integer);
-var
-  T,T2,X,Y:integer;
-  Value:double;
-begin
-  MinnowWhere(X,Y);
-  if (not TisMine(Y)) then begin
-//    l('BBBTF ' + i(X) + ' TA ' + i(Y) + ' A ' + i(TArmies(X))+ ' VI ' + i(ValIndex[Y]));
-    if TArmies(X) > ValIndex[Y] then begin
-      FromTerritory:=X;
-      ToTerritory:=Y;
-    end;
-  end else begin
-    FromTerritory:=0;
-    ToTerritory:=0;
-  end;
-  if (not SConquest) and (ToTerritory=0) then begin
-    conquestAttack(FromTerritory,ToTerritory);
-  end;
-end;
-
-
-procedure OldOccupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-begin
-      FromIsFront := TIsFront(FromTerritory);
-      ToIsFront := TIsFront(ToTerritory);
-      Armies:=0;
-
-
-
-      if ToIsFront then begin
-        Armies:=TArmies(FromTerritory)-1;
-        if (Armies<0) then Armies:=0;
-      end;
-      if (ToTerritory=41) then begin
-        Armies:=0;
-      end;
-      if ((ToTerritory=40) and (FromTerritory=39)) then begin
-        Armies:=(TArmies(FromTerritory)-1);
-        if (Armies > (TArmies(42)+5)) then Armies := (TArmies(42)+5);
-        if (Armies < (TArmies(39) div 2)) then Armies:=(TArmies(39) div 2);
-      end;
-      if ((ToTerritory=42) and (FromTerritory=39)) then begin
-        Armies:=0;
-      end;
-      if (ToTerritory=39) then begin
-        Armies:=(TArmies(FromTerritory)-1);
-      end;
-
-end;
-
-
-//end of old australian code
-//end of old australian code
-//end of old australian code
-//end of old australian code
-//end of old australian code
-//end of old australian code
-//end of old australian code
-//end of old australian code
-//end of old australian code
-
-
-
-//Tony Buffers
-// Buffer 99 - First run placement routine
-// Buffer 98 - From Territory
-// Buffer 97 - To Territory
-
-function TDistancetoFront(QTerr: integer): integer;
-var
-  BBMaxDistToFront: integer;
-  BBDisttoFront,Notused,T: integer;
-  Control: boolean;
-begin
-  BBMaxDisttoFront:=1000;
-  for T:=1 to 42 do begin
-    if TIsMine(T) then begin
-      if TIsFront(T) then begin
-        Control:=TShortestPath(QTerr,T,Notused,BBDisttoFront);
-        if BBDisttoFront < BBMaxDisttoFront then begin
-          BBMaxDisttoFront:=BBDisttoFront;
-        end;
-      end;
-    end;
-  end;
-  result:= BBMaxDisttoFront;
-end;
-
-function EArmiesThatCouldReach(QFromTerr,QToTerr: integer):integer;
-var
-  ENumberCanReach: array of integer;
-  vulnT,vulnT2,BorderCountry:integer;
-  LoopControl: boolean;
-begin
-  SetArrayLength(ENumberCanReach,43);
-  LoopControl:=true;
-  for vulnT:=1 to 42 do begin
-    ENumberCanReach[vulnT]:=-10000;
-  end;
-  ENumberCanReach[QFromTerr]:=MyArmiesMap[QFromTerr];
-  while loopcontrol do begin
-    loopcontrol:=false;
-    for vulnT:=1 to 42 do begin
-      For vulnT2:=1 to TBordersCount(vulnT) do begin
-        BorderCountry:=TBorder(vulnT,vulnT2);
-        if (vulnT = QToTerr) then begin
-          If ENumberCanReach[BorderCountry] > ENumberCanReach[vulnT] then begin
-            ENumberCanReach[vulnT]:=ENumberCanReach[BorderCountry];
-            loopcontrol:=True;
-          end;
-        end else begin
-          If ENumberCanReach[BorderCountry] > (ENumberCanReach[vulnT] + MyArmiesMap[vulnT]) then begin
-            ENumberCanReach[vulnT]:=ENumberCanReach[BorderCountry]-MyArmiesMap[vulnT];
-            loopcontrol:=True;
-          end;
-        end;
-      end;
-    end;
-  end;
-  result:=ENumberCanReach[QToTerr];
-end;
-
-
-
-function OldVulnLevel(QTerr: integer): integer;
-var
-  T: integer;
-  MaxArmiesThatCouldReach, ArmiesThatCouldReach: integer;
-begin
-  MaxArmiesThatCouldReach:=-10000;
-  for T:=1 to 42 do begin
-    if not(TIsMine(T)) then begin
-//    if (MyArmiesMap[T] > MyArmiesMap[QTerr]) then begin
-      ArmiesThatCouldReach:=EArmiesThatCouldReach(T,QTerr);
-      if ArmiesThatCouldReach > MaxArmiesThatCouldReach then begin
-        MaxArmiesThatCouldReach:=ArmiesThatCouldReach;
-      end;
-//      end;
-    end;
-  end;
-  result:=MaxArmiesThatCouldReach;
-end;
-
-
-function PlayerCScore(QPlayer: integer): integer;
-var
-  T: integer;
-begin
-  result:=0;
-  for T:=1 to 6 do begin
-    if (COwner(T)=QPlayer) then result:=result+CBonus(T);
-  end;
-end;
-
-
-function PlayerScore(QPlayer: integer): integer;
-begin
-  result:=PlayerCScore(Qplayer);
-  if (PTerritoriesCount(QPlayer)>11) then begin
-    result:=result+((PTerritoriesCount(QPlayer) div 3)-3);
-  end;
-  if PAlive(Qplayer) then begin
-    result:=result+3;
-  end;
-end;
-
-function TotalEnemyArmies(): integer;
-var
-  T,P:integer;
-begin
-  T:=0;
-  for P:=1 to 10 do begin
-    if (P<>PMe) then begin
-      T:=T+PArmiesCount(P);
-    end;
-  end;
-  result:=T;
-end;
-
-function TotalEnemyScore(): integer;
-var
-  S,P:integer;
-begin
-  S:=0;
-  for P:=1 to 10 do begin
-    if (P<>PMe) then begin
-      S:=S+PlayerScore(P);
-    end;
-  end;
-  result:=S;
-end;
-
-function ArePlayersConnected(P1,P2:integer):boolean;
-var
-  T,T2:integer;
-  output:boolean;
-begin
-  output:=false;
-  if (P<>PMe) then begin
-    for T:=1 to 42 do begin
-      if TOwner(T)=P1 then begin
-        for T2:=1 to TBordersCount(T) do begin
-          if TOwner(TBorder(T,T2)) = P2 then begin
-            output:=true;
-          end;
-        end;
-      end;
-    end;
-  end;
-  result:=output;
-end;    
-
-
-function EnemywithMostArmies(): integer;
-var
-  P,E,X:integer;
-begin
-  E:=0;
-  X:=0;
-  for P:=1 to 10 do begin
-    if (P<>PMe) then begin
-      If PArmiesCount(P) > X then begin
-        X:=PArmiesCount(P);
-        E:=P;
-      end;
-    end;
-  end;
-  result:=E;
-end;
-      
-function ConnectedEnemywithMostArmies(): integer;
-var
-  P,E,X:integer;
-begin
-  E:=0;
-  X:=0;
-  for P:=1 to 10 do begin
-    if (P<>PMe) and (ArePlayersConnected(P,PMe)) then begin
-      If PArmiesCount(P) > X then begin
-        X:=PArmiesCount(P);
-        E:=P;
-      end;
-    end;
-  end;
-  result:=E;
-end;
-
-procedure calculatebigarmies();
-var 
-  T:integer;
-  ifcontrol:boolean;
-begin
-  mrbig:=0;
-  mrbigarmies:=0;
-  mrsecondarmies:=0;
-  for T:=1 to 10 do begin
-    ifcontrol:=false;
-    if (pos('australian',lowercase(PProgram(Towner(T))))>0) then begin
-      if (PlayerScore(T)=0) then begin
-        ifcontrol:=true;
-      end;
-    end;
-    if (pos('descartes',lowercase(PProgram(Towner(T))))>0) then begin
-      if (PlayerScore(T)=0) then begin
-        ifcontrol:=true;
-      end;
-    end;
-    if (not ifcontrol) then begin
-      if PArmiesCount(T)>mrbigarmies then begin
-        mrsecondarmies:=mrbigarmies;
-        mrbigarmies:=PArmiesCount(T);
-        mrbig:=T;
-      end else begin
-        if PArmiesCount(T)>=mrsecondarmies then begin
-          mrsecondarmies:=PArmiesCount(T);
-        end;
-      end;
-    end;
-  end;
-end;
-
-function TerrPlayerBordering(T,P:integer):boolean;
-var
-  T2:integer;
-  output:boolean;
-begin
-  output:=false
-  for T2:=1 to TBordersCount(T) do begin
-    if TOwner(TBorder(T,T2)) = P then begin
-      output:=true;
-    end;
-  end;
-  result:=output;
-end;    
-
-function TerrContinentBordering(T,C:integer):boolean;
-var
-  T2:integer;
-  output:boolean;
-begin
-  output:=false
-  for T2:=1 to TBordersCount(T) do begin
-    if TContinent(TBorder(T,T2)) = C then begin
-      output:=true;
-    end;
-  end;
-  result:=output;
-end;    
-
-function TerrContinentFrontBordering(T,C:integer):boolean;
-var
-  T2:integer;
-  output:boolean;
-begin
-  output:=false
-  for T2:=1 to TFrontsCount(T) do begin
-    if TContinent(TFront(T,T2)) = C then begin
-      output:=true;
-    end;
-  end;
-  result:=output;
-end;    
-
-
-
-function calculatevuln(): boolean;
-var
-  T, T2, BorderT,ET,EA,X,Y,Score,P,WatchPlayer: integer;
-  control,loopcontrol: boolean;
-  Prog:String;
-begin
-  loopcontrol:=True;
-  WatchPlayer:=0;
-  SetArrayLength(AttackArmies,43);
-  for T:=1 to 42 do begin
-    If (MineArmies[T]) then begin
-      AttackArmies[T]:=-10000;
-    end else begin
-      AttackArmies[T]:=MyArmiesMap[T]+14;
-    end;
-    if not (TIsMine(T)) then begin
-      P:=TOwner(T);
-      Score:=PlayerScore(P);
-      Prog:=lowercase(PProgram(P));
-      if (pos('australian',Prog)>0) and (Score=3) then begin
-        WatchPlayer:=1;
-        if not (COwner(6)=PMe) then begin
-          AttackArmies[T]:=-10000;
-        end;
-      end;
-      if (Prog='descartes09.trp') and (Score>3) then begin
-        WatchPlayer:=1;
-//        if (not ArePlayersConnected(TOwner(T),PMe)) then begin
-          AttackArmies[T]:=-10000;
-//        end;
-      end;
-      if (Prog='endeavour09.trp') and (Score>3) then begin
-        WatchPlayer:=1;
-//        if (not ArePlayersConnected(TOwner(T),PMe)) then begin
-          AttackArmies[T]:=-10000;
-//        end;
-      end;
-      if (Prog='australian09.trp') and (Score>3) then begin
-        WatchPlayer:=1;
-//        if (not ArePlayersConnected(TOwner(T),PMe)) then begin
-          AttackArmies[T]:=-10000;
-//        end;
-      end;
-      if (Prog='descartes09.trp') and (Score=3) then begin
-        WatchPlayer:=1;
-        if not (COwner(2)=PMe) then begin
-          AttackArmies[T]:=-10000;
-        end;
-      end;
-      if (Prog='endeavour09.trp') and (Score=3) then begin
-        WatchPlayer:=1;
-        if (not (COwner(4)=PMe)) then begin
-          AttackArmies[T]:=-10000;
-        end;
-      end;
-      if (Prog='vexer.trp') and (PArmiesCount(TOwner(T))<PArmiesCount(PMe)) then begin
-        WatchPlayer:=1;
-        AttackArmies[T]:=-10000;
-      end;
-      if (Prog='frank.trp') then begin
-        WatchPlayer:=1;
-      end;
-      if (Prog='descartes.trp') then begin
-        WatchPlayer:=1;
-      end;
-      if (pos('australian',Prog)>0) then begin
-        WatchPlayer:=1;
-      end;
-      if (Prog='endeavour.trp') then begin
-        WatchPlayer:=1;
-      end;
-      if (Prog='zotob.trp') then begin
-        WatchPlayer:=1;
-      end;
-      if PHuman(P) then begin
-        WatchPlayer:=1;
-      end;
-      if (Prog='frank.trp') and (COwner(6)=PMe) and (Score=3) then begin
-        AttackArmies[T]:=AttackArmies[T]+13;
-      end;
-      if (COwner(6)=P) and (COwner(2)=PMe) then begin
-        AttackArmies[T]:=AttackArmies[T] div 2;
-      end;
-      if (COwner(2)=P) and (COwner(6)=PMe) then begin
-        AttackArmies[T]:=AttackArmies[T] div 2;
-      end;
-      if PHuman(P) and (COwner(6)=PMe) and (Score=3) then begin
-        AttackArmies[T]:=AttackArmies[T]+13;
-      end;
-      if (KP2009=mrbig) and (PArmiesCount(PMe)=mrsecondarmies) and (TOwner(T)=KP2009) then begin
-        AttackArmies[T]:=-10000;
-      end;
-      if (PlayersCount = 2) or (WatchPlayer=0) then begin
-        AttackArmies[T]:=-10000;
-      end;
-    end;
-  end;
-  while loopcontrol do begin
-    loopcontrol:=false;
-    for T:=1 to 42 do begin
-      for T2:=1 to TBordersCount(T) do begin
-        BorderT:=TBorder(T,T2);
-        if AttackArmies[BorderT] > (1+AttackArmies[T] + MyArmiesMap[T]) then begin
-          AttackArmies[T]:=AttackArmies[BorderT]-MyArmiesMap[T]-1;
-          loopcontrol:=True;
-        end;
-      end;
-    end;
-  end;
-  for C:=1 to 6 do begin
-    if COwner(C) = PMe then begin
-      for X:=1 to CEntriesCount(C) do begin
-        T:=CEntry(C,X);
-        for Y:=1 to CTerritoriesCount(C) do begin
-          T2:=CTerritory(C,Y);
-          if (T <> T2) then begin
-            AttackArmies[T]:=AttackArmies[T]-(MyArmiesMap[T2]-1);
-          end;
-        end;
-      end;
-    end;
-  end;
-  for T:=1 to 42 do begin
-    if (AttackArmies[T]<0) then AttackArmies[T]:=0;
-//    l('attarmies T ' + i(T) + ' ' + i(AttackArmies[T]));
-    if (TOwner(T) = PMe) and TIsFront(T) then begin
-      if (COwner(TContinent(T)) = PMe) then begin
-         Y:=TFrontsCount(T);
-         EA:=0;
-         for X:=1 to Y do begin
-           T2:=TFront(T,X);
-           if EA < MyArmiesMap[T2] then EA:=MyArmiesMap[T2];
-         end;
-         if (EA>MyArmiesMap[T]) then begin
-           AttackArmies[T]:=AttackArmies[T]+(EA-MyArmiesMap[T])+1000;
-         end;
-         if (11>MyArmiesMap[T]) then begin
-           AttackArmies[T]:=AttackArmies[T]+11-(MyArmiesMap[T]*2)+1500;
-         end;
-         if (6>MyArmiesMap[T]) then begin
-           AttackArmies[T]:=AttackArmies[T]+13-(MyArmiesMap[T]*3)+3000;
-         end;
-      end;
-      if (TContinent(T) = myattackC) then begin
-         AttackArmies[T]:=0;
-         if (11>MyArmiesMap[T]) then begin
-           AttackArmies[T]:=11-MyArmiesMap[T];
-         end;
-         if (6>MyArmiesMap[T]) then begin
-           AttackArmies[T]:=13-(MyArmiesMap[T]*2);
-         end;
-      end;
-    end;
-    if (TOwner(T) = PMe) and not (TIsFront(T)) then begin
-      if TContinent(T) = myattackC then begin
-        AttackArmies[T]:=0;
-      end;
-    end;
-  end;
-  result:=true;
-end;
-
-function calcmyfronts():integer;
-var
-  myfT1,myfT2,sumfronts,myfborder: integer;
-  isfront:boolean;
-begin
-  sumfronts:=0;
-  for myfT1:=1 to 42 do begin
-    if MineArmies[myFT1] then begin
-      isfront:=false;
-      for myfT2:= 1 to TBordersCount(myft1) do begin
-        myfborder:=TBorder(myfT1,myfT2);
-        if MineArmies[myfborder]=false then begin
-          isfront:=true;
-        end;
-      end;
-      if isfront = true then begin
-        sumfronts:=sumfronts+MyArmiesMap[myft1];
-      end;
-    end;
-  end;
-  result:=sumfronts;
-end;
-
-function calcmyborders():integer;
-var
-  mybT1,mybT2,sumborders,mybborder: integer;
-  ismyborder:boolean;
-begin
-  sumborders:=0;
-  for mybT1:=1 to 42 do begin
-    if not MineArmies[mybT1] then begin
-      ismyborder:=false;
-      for mybT2:= 1 to TBordersCount(mybt1) do begin
-        mybborder:=TBorder(mybT1,mybT2);
-        if MineArmies[mybborder]=true then begin
-          ismyborder:=true;
-        end;
-      end;
-      if ismyborder = true then begin
-        sumborders:=sumborders+MyArmiesMap[mybt1];
-      end;
-    end;
-  end;
-  result:=sumborders;
-end;
-
-function calcmynewborders(T:integer):integer;
-var
-  X,T2,X2,T3,sumborders: integer;
-  ismyborder:boolean;
-begin
-  sumborders:=0;
-  for X:=1 to TBordersCount(T) do begin
-    T2:=TBorder(T,X);
-    if not(TIsMine(T2)) then begin
-      ismyborder:=false;
-      for X2:= 1 to TBordersCount(T2) do begin
-        T3:=TBorder(T2,X2);
-        if TIsMine(T3) then begin
-          ismyborder:=true;
-        end;
-      end;
-      if ismyborder = false then begin
-        sumborders:=sumborders+Tarmies(T2);
-      end;
-    end;
-  end;
-  result:=sumborders;
-end;
-
-procedure calculateoverallvuln(var overallvuln,maxvuln:integer);
-var
-  C,T,X,V:integer;
-  control:boolean;
-begin
-  overallvuln:=0;
-  maxvuln:=0;
-  control:=calculatevuln();
-//  for T:=1 to 42 do begin
-//    l('jjj ' + i(T) + ' ' + i(AttackArmies[T]));
-//  end;
-  for C:=1 to 6 do begin
-    if COwner(C) = PMe then begin
-      for X:=1 to CEntriesCount(C) do begin
-        T:=CEntry(C,X);
-        V:=AttackArmies[T];
-        if V>0 then begin
-          overallvuln:=overallvuln+V;
-          if V> maxvuln then begin
-            maxvuln:=V;
-          end;
-        end;
-      end;
-    end;
-    if (C=myAttackC) then begin
-      for X:=1 to CTerritoriesCount(C) do begin
-        T:=CTerritory(C,X);
-        if TIsMine(T) then begin
-          V:=AttackArmies[T];
-          if V>0 then begin
-            overallvuln:=overallvuln+V;
-          end;
-        end;
-      end;
-    end;
-  end;
-end;
-
-procedure setupmymaps();
-var 
-  T:integer;
-begin
-  for T:=1 to 42 do begin
-    MyArmiesMap[T]:=TArmies(T);
-    MineArmies[T]:=TIsMine(T);
-  end;
-end;
-
-
-function goodvulnattack(fromc,toc: integer):boolean;
-var
-  overallvuln,maxvuln,newoverallvuln,newmaxvuln:integer;
-begin
-  setupmymaps();
-  calculateoverallvuln(overallvuln,maxvuln);
-  MyArmiesMap[fromc]:=MyArmiesMap[fromc]-1;
-  MyArmiesMap[toc]:=MyArmiesMap[toc]-1;
-  calculateoverallvuln(newoverallvuln,newmaxvuln);
-  l('MMMov ' + i(overallvuln) + ' nov ' + i(newoverallvuln) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln));
-  if (overallvuln>=newoverallvuln) and (maxvuln>=newmaxvuln) then begin
-    result:= true;
-  end else begin
-    result:= false;
-  end;
-end;
-
-function AreContinentsConnected(C1,C2:integer):boolean;
-var
-  T,T2,T3:integer;
-  output:boolean;
-begin
-  output:=false
-  if (C1 <> C2) then begin
-    for T:=1 to CEntriesCount(C1) do begin
-      T2:=CEntry(C1,T);
-      for T3:= 1 to TBordersCount(T2) do begin
-        if TContinent(TBorder(T2,T3)) = C2 then begin
-          output:=true;
-        end;
-      end;
-    end;
-  end;
-  result:=output;
-end;    
-
-function ArePlayerContinentsConnected(P1,P2:integer):boolean;
-var
-  T,T2:integer;
-  output:boolean;
-begin
-  output:=false;
-  for T:=1 to 6 do begin
-    for T2:=1 to 6 do begin
-      if T <> T2 then begin
-        if COwner(T) = P1 then begin
-          if COwner(T2) = P2 then begin
-            if AreContinentsConnected(T,T2) then begin
-              output:=true;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  result:=output;
-end;    
-
-
-function endgameplay():integer;
-var
-  PP,X:integer;
-begin
-  PP:=0;
-//  l('Hello ' + i(PlayerScore(PMe)) + ' ' + i(TotalEnemyScore()));
-  PP:=ConnectedEnemywithMostArmies();
-  l('endgameplay kill ' + i(PP));
-  result:=PP;
-end;
-
-
-
-function shallikillaplayer():integer;
-var
-  P,MaxValue,PP:integer;
-begin
-  //first of all, need to pick off any cheeky neighbours
-  PP:=0;
-  MaxValue:=0;
-  
-  if PlayerScore(PMe) > 4 then begin
-
-    if (PArmiesCount(PMe)>=mrsecondarmies) then begin
-      for P:=1 to 10 do begin
-        if (P <> PMe) then begin
-          if (ArePlayerContinentsConnected(P,PMe)) or (PlayerScore(P)>10) then begin
-            if (PlayerCScore(P)>PlayerCScore(PMe)+1) then begin
-              if PlayerCScore(P)>MaxValue then begin
-                MaxValue:=PlayerCScore(P) + (PArmiesCount(P) div 10);
-//                l('Cheeky score ' + i(P) + ' ' + i(MaxValue));
-                PP:=P;
-              end;
-            end;
-          end;
-        end;
-      end;
-      if PP>0 then begin
-//        l('Cheeky22 neighbour ' + i(PP));
-      end;
-    end;
-    if (PP=0) then begin  
-      if (PArmiesCount(PMe)>=mrsecondarmies) then begin
-        if (mrbig <> PMe) and (ArePlayersConnected(PMe,MrBig)) then begin
-          PP:=Mrbig;
-          if (PP<>KP2009) then l('KillMrBig ' + i(PP));
-        end;
-      end;
-    end;
-            
-    if (PP=0) then begin  
-      if (PArmiesCount(PMe)=mrsecondarmies) and (mrsecondarmies<mrbigarmies) then begin
-        if ((PlayerScore(MrBig) > (PlayerScore(PMe)+1)) and (PlayerScore(MrBig) > 6)) then begin
-          KP2009:=MrBig;
-          PP:=MrBig;
-        end;
-      end;
-    end;
-//    if (PP=0) then begin  
-//      if (PArmiesCount(PMe)=mrbigarmies) then begin
-//        l('KKK - Mr Big has ' + i(mrbigarmies) + ' Mr 2 has ' + i(mrsecondarmies) + ' Big Score ' + i(PlayerScore(MrBig)) + ' Me Score ' + i(PlayerScore(PMe)));
-//        for P:=1 to 10 do begin
-//          if (P <> PMe) then begin
-//            if (ArePlayersConnected(P,PMe)) then begin
-//              if (PlayerScore(P)>PlayerScore(Pme)) or (PlayerCScore(P)>PlayerCScore(PME)) then begin
-//                KP2009:=P;
-//                PP:=P;
-//              end;
-//            end;
-//          end;
-//        end;
-//     end;
-//    end;
-//    MaxValue:=1000000;
-//    if (PP=0) then begin  
-//      if (PArmiesCount(PMe)>(mrsecondarmies+30)) then begin
-//        l('KWP - Mr Big has ' + i(mrbigarmies) + ' Mr 2 has ' + i(mrsecondarmies) + ' Big Score ' + i(PlayerScore(MrBig)) + ' Me Score ' + i(PlayerScore(PMe)));
-//        for P:=1 to 10 do begin
-//          if (P <> PMe) then begin
-//            if (ArePlayersConnected(P,PMe)) then begin
-//              if PArmiesCount(P)<MaxValue then begin
-//                KP2009:=P;
-//                PP:=P;
-//                MaxValue:=PArmiesCount(P);
-//              end;
-//            end;
-//          end;
-//        end;
-//      end;
-//    end;
-  end;
-  
-  result:=PP;
-end;
-
-function DoesBorderMe(C:integer):boolean;
-var
-  X,T,BorderC:integer;
-begin
-  result:=false;
-  for X:=1 to CBordersCount(C) do begin
-    T:=CBorder(C,X);
-    BorderC:=TContinent(T);
-    if COwner(BorderC) = PMe then result:=true;
-  end;
-end;
-
-procedure calcDistanceToAttackFront();
-var
-  T,X,T2:integer;
-  control:boolean;
-begin
-  for T:=1 to 42 do begin
-    DistanceToAttackFront[T]:=0;
-  end;
-  if (KP2009>0) then begin
-    for T:=1 to 42 do begin
-      if TerrPlayerBordering(T,KP2009) and TIsMine(T) then begin
-        DistanceToAttackFront[T]:=1;
-      end;
-    end;
-  end;
-  for T:=1 to 42 do begin
-    if TIsMine(T) and TIsFront(T) and TerrContinentFrontBordering(T,MyAttackC) and (DistanceToAttackFront[T]=0) then begin
-      if (COwner(TContinent(T))>0) then DistanceToAttackFront[T]:=2;
-      if (TContinent(T)=myAttackC) then DistanceToAttackFront[T]:=1;
-    end;
-  end;
-  control:=true;
-  while control do begin
-    control:=false;
-    for T:=1 to 42 do begin
-      if (DistanceToAttackFront[T]>0) then begin
-        for X:=1 to TBordersCount(T) do begin
-          T2:=TBorder(T,X);
-          if (DistanceToAttackFront[T2] = 0) or (DistanceToAttackFront[T2] > (DistanceToAttackFront[T]+1)) then begin
-            DistanceToAttackFront[T2]:=DistanceToAttackFront[T]+1;
-            control:=true;
-          end;
-        end;
-      end;
-    end;
-  end;
-//    for T:=1 to 42 do begin
-//        l('distattfront ' + i(T) + ' ' + i(DistanceToAttackFront[T]));
-//    end;
-end;
-
-procedure CalcMyAttackC();
-var
-  E,T,T2,C,X,PT,PA,ET,EA:integer;
-  CScore: array of integer;
-  MaxTerritoryValue:integer;
-  ifcontrol,control:boolean;
-begin
-  MaxTerritoryValue:=-1000000;
-  SetArrayLength(CScore,7);
-  for C:=1 to 6 do begin
-    ifcontrol:=false;
-    CScore[C]:=-1000000;
-    if (COwner(C)=PMe) then begin
-      ifcontrol:=true;
-    end;
-    CAnalysis(C,PT,PA,ET,EA);
-    if (PA=0) and (not ifcontrol) then begin
-      ifcontrol:=true;
-      for X:=1 to CEntriesCount(C) do begin
-        if TerrPlayerBordering(CEntry(C,X),PMe) then begin
-          ifcontrol:=false;
-        end;
-      end;
-    end;
-    if (not ifcontrol) then begin
-      CScore[C]:=0;
-      if (PT > 0) then begin
-        CScore[C]:=CScore[C] + (PT*5);
-      end;
-      if DoesBorderMe(C) Then begin
-        CScore[C]:=CScore[C]+150;
-      end;
-      E:=0;
-      for X:=1 to CTerritoriesCount(C) do begin
-        T:=CTerritory(C,X);
-        if (not(TOwner(T)=PMe)) and (TArmies(T)>1) then begin
-          if (E=0) or (E=TOwner(T)) then begin
-            E:=TOwner(T);
-          end else begin
-            E:=100;
-          end;
-        end;
-      end;
-      if E <> 100 then CScore[C]:=CScore[C]+75;
-      if E = ThreatPlayer then CScore[C]:=CScore[C]+50;
-      if (COwner(C)>0) Then begin
-        CScore[C]:=CScore[C]+50;
-        if COwner(C)=ThreatPlayer then CScore[C]:=CScore[C]+50;
-      end;
-      CScore[C]:=CScore[C]-EA;
-      for X:=1 to CTerritoriesCount(C) do begin
-        T:=CTerritory(C,X);
-        if TIsMine(T) and (MyConnected[T] = 0) then begin
-          CScore[C]:=CScore[C]+TArmies(T);
-        end;
-      end;
-      if CScore[C]>MaxTerritoryValue then begin
-        MaxTerritoryValue:=CScore[C];
-        MyAttackC:=C;
-      end;
-    end;
-  end;
-  calcDistanceToAttackFront();
-end;
-
-function MyCTerr(Territory: integer): boolean;
-begin
-  result:=false;
-  if COwner(TContinent(Territory))=PMe then begin
-    result:=true;
-  end;
-  if TContinent(Territory)=MyAttackC then begin
-    result:=true;
-  end;
-end;
-
-function OnlyForeignTerrInC(Territory: integer): boolean;
-var
-  C,E,X,CT: integer;
-begin
-  result:=true;
-  C:=TContinent(Territory);
-  for X:=1 to CTerritoriesCount(C) do begin
-    CT := CTerritory(C,X);
-    if CT <> Territory then begin
-       if E=0 then begin
-         E:=TOwner(CT);
-       end else begin
-         if E<>TOwner(CT) then begin
-           result:=false;
-         end;
-       end;
-    end;
-  end;
-end;
-
-
-
-function CalcEnemyAreas(C:integer): integer;
-var
-  T1,T2,X,Y,EnemCount:integer;
-  loopcontrol:boolean;
-  EnemAreas:array of integer;
-begin
-  loopcontrol:=false;
-  SetArrayLength(EnemAreas,13);
-  for X:=1 to CTerritoriesCount(C) do begin
-    if not (MineArmies[CTerritory(C,X)]) then begin
-      EnemAreas[X]:=X;
-    end else begin
-      EnemAreas[X]:=0;
-    end;
-  end;
-  while loopcontrol=false do begin    
-    loopcontrol:=true;
-    for X:=1 to CTerritoriesCount(C) do begin
-      for Y:=1 to CTerritoriesCount(C) do begin
-        T1:=CTerritory(C,X);
-        T2:=CTerritory(C,Y);
-        if (X<>Y) and (not MineArmies[T1]) and (not (MineArmies[T2])) then begin
-          if (TIsBordering(T1,T2)) then begin
-            if EnemAreas[X] < EnemAreas[Y] then begin
-              EnemAreas[X]:=EnemAreas[Y];
-              loopcontrol:=false;
-            end;
-            if EnemAreas[X] > EnemAreas[Y] then begin
-              EnemAreas[Y]:=EnemAreas[X];
-              loopcontrol:=false;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  EnemCount:=0;
-  for X:=1 to CTerritoriesCount(C) do begin
-    if (EnemAreas[X]=X) then begin
-      EnemCount:=EnemCount+1;
-    end;
-  end;
-  result:=EnemCount;
-end;
-
-function protectweakspots(var ToTerritory:Integer): boolean;
-var
-  Weakest,WeakestMargin,WeakestValue,T,T2,X:integer;
-  FWMargin,WeakestTerr:integer;
-begin
-  result:=false;
-  FWMargin:=-1000000;
-  for T:=1 to 42 do begin
-    WeakestValue:=1000000;
-    Weakest:=0;
-    if (not MineArmies[T]) then begin
-      for X:=1 to (TBordersCount(T)) do begin
-        T2:=TBorder(T,X);
-        if MineArmies[T] <> MineArmies[T2] then begin
-          if MyArmiesMap[T2]< WeakestValue then begin
-            WeakestValue:=MyArmiesMap[T2];
-            WeakestMargin:=MyArmiesMap[T]-MyArmiesMap[T2];
-            if MineArmies[T2] then begin
-              Weakest:=PMe;
-            end else begin
-              Weakest:=Towner(T2);
-            end;
-            WeakestTerr:=T2;
-          end;
-        end;
-      end;
-      if Weakest=PMe then begin
-        result:=true;
-        if WeakestMargin>FWMargin then begin
-          ToTerritory:=WeakestTerr;
-          FWMargin:=WeakestMargin;
-        end;
-      end;
-    end;
-  end;
-end;
-
-function NastyPlayer(var C,C2,P:Integer): boolean;
-var
-  control: boolean;
-begin
-  control:=false;
-  if StartTurnPlayerCScore[P] > (StartTurnPlayerCScore[PMe] + 1) then begin
-    control:=true;
-  end;
-//  if (COwner(C2) <> PMe) and (COwner(C2) > 0) then begin
-//    control:=true;
-//  end;
-//  if (PProgram(P)='raptorbot.trp') then begin
-//    control:=false;
-//  end;
-//  if (PProgram(P)='shy.trp') then begin
-//    control:=false;
-//  end;
-//  if (PProgram(P)='zotob.trp') and (C2 <> 2) then begin
-//    control:=false;
-//  end;
-//  if (PProgram(P)='vexer.trp') and (C2 <> 2) then begin
-//    control:=false;
-//  end;
-//  if (PlayerScore(P) > PlayerScore(PMe)+1 ) then begin
-//    control:=true;
-//  end;
-  if ((StartTurnPlayerScore[P] >= StartTurnPlayerScore[PMe] ) or (StartTurnPlayerCScore[P]>6)) and ((P=MrBig) or (PMe=MrBig)) then begin
-    control:=true;
-  end;
-  result:=control;
-end;
-
-procedure AttackPlayer(P:integer; var FromTerritory,ToTerritory:Integer);
-var
-  T, T2, D: integer;
-begin
-      MaxTerritoryValue:=-100000;
-  //    if (PArmiesCount(PMe)=mrsecondarmies) and (PArmiesCount(PMe)<mrbigarmies) then begin
-        for T:=1 to 42 do begin
-          if TIsMine(T) and (TArmies(T)>3) then begin
-            for T2:=1 to TFrontsCount(T) do begin
-              D:=TFront(T,T2);
-              if TOwner(D)=P then begin
-//                l('KA GVA From ' + i(T) + ' To ' + i(D) + ' FA ' + i(TArmies(T)) + ' TA ' + i(TArmies(D)));
-                if (TArmies(T)-TArmies(D)) > MaxTerritoryValue then begin
-                  MaxTerritoryValue:=TArmies(T)-TArmies(D);
-                  FromTerritory:=T;
-                  ToTerritory:=D;
-                end;
-              end;
-            end;
-          end;
-  //      end;
-      end;
-      if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-        l('Kill Attack F ' + i(FromTerritory) + ' T ' + i(ToTerritory));
-      end;
-end;
-
-procedure KillPlace(var ToTerritory:Integer);
-var
-  MaxTerritoryValue:integer;
-begin
-  if KP2009>0 then begin
-    l('KP2009 ' + i(KP2009));
-    if ArePlayersConnected(PMe,KP2009) then begin
-      MaxTerritoryValue:=0;
-      for T:=1 to 42 do begin
-        if TIsMine(T) and TerrPlayerBordering(T,KP2009) then begin
-          if TArmies(T)> MaxTerritoryValue then begin
-            MaxTerritoryValue:=TArmies(T);
-            ToTerritory:=T;
-            UBufferSet(98,T);
-          end;
-        end;
-      end;
-      if (ToTerritory>0) then begin
-        l('APlace ' + i(ToTerritory));
-      end;
-    end;
-  end;
-end;
-
-procedure DefensivePlace(var ToTerritory:Integer);
-var
-  overallvuln,maxvuln,newoverallvuln,newmaxvuln,NScore,Score:integer;
-begin
-  setupmymaps();
-  calculateoverallvuln(overallvuln,maxvuln);
-  if (overallvuln <> 0) or (maxvuln <> 0) then begin
-    l('POV '+ i(overallvuln)+' PMV '+i(maxvuln));
-    Score:=0;
-    for T:=1 to 42 do begin
-      If TisMine(T) and (MyCTerr(T)) then begin
-        setupmymaps();
-        MyArmiesMap[T]:=MyArmiesMap[T]+1;
-        calculateoverallvuln(newoverallvuln,newmaxvuln);
-        NScore:=((maxvuln-newmaxvuln)*10) + (overallvuln-newoverallvuln)
-        if NScore >= Score then begin
-          if NScore=Score then begin
-            if (TDistancetofront(T)<TDistanceToFront(ToTerritory)) then begin
-              ToTerritory:=T;
-            end;
-          end else begin
-            Score:=NScore;
-            ToTerritory:=T;
-          end;
-        end;                    
-      end;
-    end;
-    if (ToTerritory>0) then l('Defensive place ' + i(ToTerritory) + ' ' + floattostr(Score)); 
-  end;
-end;
-
-
-
-procedure FindSensibleAttack(var FromTerritory,ToTerritory:Integer);
-var
-  T,T2: integer;
-  MaxTerritoryValue,TerritoryValue: integer;
-  PossAttackTerritory: integer;
-  MyBorders,EnemyAreas,NewEnemyAreas:integer;
-begin
-  setupmymaps();
-  MaxTerritoryValue:=-10000;
-  l('SMAC ' + i(MyAttackC) + ' PAT ' + i(PossAttackTerritory) + ' EA ' + i(EnemyAreas) + ' NEA ' + i(NewEnemyAreas));
-  for T:=1 to 42 do begin
-    if TIsMine(T) then begin
-      for T2:=1 to TFrontsCount(T) do begin
-        PossAttackTerritory:=TFront(T,T2);
-        l('FMAC ' + i(MyAttackC) + ' PAT ' + i(PossAttackTerritory) + ' EA ' + i(EnemyAreas) + ' NEA ' + i(NewEnemyAreas));
-        if (TContinent(PossAttackTerritory)=MyAttACkC) then begin
-          setupmymaps();
-          EnemyAreas:=CalcEnemyAreas(MyAttackC);
-          MyArmiesMap[PossAttackTerritory]:=3;
-          MineArmies[PossAttackTerritory]:=True;
-          MyArmiesMap[T]:=TArmies(T)+2-TArmies(PossAttackTerritory);
-          NewEnemyAreas:=CalcEnemyAreas(MyAttackC);
-          l('MAC ' + i(MyAttackC) + ' PAT ' + i(PossAttackTerritory) + ' EA ' + i(EnemyAreas) + ' NEA ' + i(NewEnemyAreas));
-          if (EnemyAreas >= NewEnemyAreas) then begin
-            MyBorders:=calcMyBorders()
-            TerritoryValue:=0 - (MyBorders+TArmies(PossAttackTerritory));
-            if TerritoryValue > MaxTerritoryValue then begin
-              l('Border Value T ' + i(T) + ' PATer ' + i(PossAttackTerritory) + ' TV ' + i(TerritoryValue));
-              MaxTerritoryValue:=TerritoryValue;
-              FromTerritory:=T;
-              ToTerritory:=PossAttackTerritory;
-            end;
-          end;
-        end;                  
-      end;
-    end;
-          
-  end;
-end;
-
-procedure SpreadAttack(var FromTerritory,ToTerritory:integer);
-var
-  PossAttackCountry:integer;
-begin
-  l('Spread Attack Start');
-  For T:=1 to 42 do begin
-    if (TIsMine(T)  and (TArmies(T) > 5) and TIsFront(T)) then begin
-      for T2:=1 to TFrontsCount(T) do begin
-        PossAttackCountry:=Tfront(T,T2);
-        if TArmies(PossAttackCountry)=1 then begin
-          FromTerritory:=T;
-          ToTerritory:=PossAttackCountry;
-        end;
-      end;
-    end;
-  end;
-end;
-
-
-procedure BorderAttack(var FromTerritory,ToTerritory:integer);
-var
-  T,Y:integer;
-begin
-  for C:=1 to 6 do begin
-    if COwner(C) = PMe then begin
-//      l('Border Attack ? ' + i(C));
-      for C2:=1 to 6 do begin
-        if AreContinentsConnected(C,C2) and (COwner(C2)>0) and (COwner(C2) <> PMe) then begin
-          Y:=COwner(C2);
-          if NastyPlayer(C,C2,Y) then begin
-//            l('Border Attack 2 ? ' + i(C) + ' ' + i(C2));
-            MaxTerritoryValue:=0;
-            for X:=1 to CEntriesCount(C) do begin
-              T:=CEntry(C,X);
-              Y:=0;
-              for D:=1 to TBordersCount(T) do begin;
-                if (TOwner(TBorder(T,D)) <> COwner(C2)) and (TOwner(TBorder(T,D)) <> PMe) then begin
-                  if TArmies(TBorder(T,D)) > Y then begin
-                    Y:=TArmies(TBorder(T,D));
-                  end;
-                end;
-              end;
-              for D:=1 to TBordersCount(T) do begin;
-                T2:=TBorder(T,D);
-                if TContinent(T2) = C2 then begin
-                  if (TArmies(T) - TArmies(T2) - Y) > MaxTerritoryValue then begin
-                    MaxTerritoryValue:=TArmies(T)-TArmies(T2)-Y;
-                    FromTerritory:=T;
-                    ToTerritory:=T2;
-//                    l('Border Attack 3 ? ' + i(C) + ' ' + i(C2));
-                  end;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-    l('Border Attack F ' + i(FromTerritory) + ' T ' + i(ToTerritory));
-  end;
-end;
-
-procedure BigAttack(var FromTerritory,ToTerritory:integer);
-var
-  PossAttackCountry,MyBorders,TerritoryValue,MaxTerritoryValue:integer;
-begin
-//  l('Big Attack Start me '+ i(PArmiesCount(PMe))+ ' mrs ' + i(mrsecondarmies) + ' psm ' + i(PlayerScore(PMe)));
-  If (PArmiesCount(Pme)>mrsecondarmies) and (PlayerScore(PMe)> 4) and ((not SConquest) or ((mrbigarmies-mrsecondarmies)>10)) then begin
-    If (( not (StartTurnPlayerScore[PMe] = StartTurnPlayerScoreOrdered[1])) or ((PArmiesCount(PMe)-mrsecondarmies)>((StartTurnPlayerScoreOrdered[1]-StartTurnPlayerScoreOrdered[2])*10))) then begin
-      MaxTerritoryValue:=-100000;
-      For T:=1 to 42 do begin
-        if (TIsMine(T)  and (TArmies(T) > 3) and TIsFront(T)) then begin
-          if (TFrontsCount(T) = 1) or (TArmies(T)>TPressure(T)) then begin
-            for T2:=1 to TFrontsCount(T) do begin
-              PossAttackCountry:=Tfront(T,T2);
-  //                if ((TContinent(PossAttackCountry)=MyAttackC) or ((TContinent(T)<>MyAttackC) and (COwner(TContinent(T)) <> PMe))) then begin
-              if TContinent(PossAttackCountry)=MyAttackC then begin
-                setupmymaps();
-                MineArmies[PossAttackCountry]:=True;
-                MyBorders:=calcMyNewBorders(PossAttackCountry)
-                TerritoryValue:=0 - (MyBorders);
-                if TContinent(PossAttackCountry)=MyAttackC then begin
-                  TerritoryValue:=TerritoryValue+100;
-                end;
-                if (TerritoryValue > MaxTerritoryValue) then begin              
-//                 l('ABorder Value T ' + i(T) + ' PATer ' + i(PossAttackCountry) + ' TV ' + i(TerritoryValue));
-                  FromTerritory:=T;
-                  ToTerritory:=PossAttackCountry;
-                  MaxTerritoryValue:=TerritoryValue;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-      if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-        l('Big Attack F ' + i(FromTerritory) + ' T ' + i(ToTerritory));
-      end;
-    end;
-  end;
-end;
-
-procedure GeneralMACAttack(var FromTerritory,ToTerritory:integer);
-var
-  X,Y:integer;
-begin
-  //general attack in myattackC
-  X:=trunc(UBufferget(98));
-  Y:=trunc(UBufferget(97));
-  if Y > 0 then begin
-    If not TIsMine(Y) then begin
-      if (TArmies(X)> (TArmies(Y) + 11)) and ((PArmiesCount(PMe)-TArmies(Y)) > AverageEnemyArmies) then begin
-        FromTerritory:=trunc(UBufferGet(98));
-        ToTerritory:=trunc(UBufferGet(97));
-      end;
-    end;
-  end;
-  if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-    l('General MyAttackC Attack F ' + i(FromTerritory) + ' T ' + i(ToTerritory));
-  end;
-end;
-
-procedure OneAttack(var FromTerritory,ToTerritory:integer);
-var
-  T2:integer;
-begin
-  for T:=1 to 42 do begin
-    if TIsMine(T) and (TArmies(T)>2)then begin
-      for X:=1 to TFrontsCount(T) do begin
-        T2:=TFront(T,X);
-        if TArmies(T2)=1 then begin
-          FromTerritory:=T;
-          ToTerritory:=T2;
-        end;
-      end;
-    end;
-  end;
-  if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-    l('One Attack F ' + i(FromTerritory) + ' T ' + i(ToTerritory));
-  end;
-end;
-
-procedure ReduceVulnAttack(var FromTerritory,ToTerritory:integer);
-var
-  overallvuln, maxvuln, newoverallvuln, newmaxvuln: integer;
-begin
-  if PArmiesCount(PMe)>AverageEnemyArmies then begin
-    for T:=1 to 42 do begin
-      if TIsMine(T) and (TArmies(T)>2)then begin
-        for X:=1 to TFrontsCount(T) do begin
-          T2:=TFront(T,X);
-  //        l('2ReduceVuln Attack F ' + i(T) + ' T ' + i(T2)+ ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln));
-          if TArmies(T) > 11 then begin
-            setupmymaps();
-            calculateoverallvuln(overallvuln,maxvuln);
-            MyArmiesMap[T]:=TArmies(T)-1;
-            MyArmiesMap[T2]:=TArmies(T2)-1;
-            calculateoverallvuln(newoverallvuln,newmaxvuln);
-  //          l('3ReduceVuln Attack F ' + i(T) + ' T ' + i(T2)+ ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln));
-            if (maxvuln > newmaxvuln) or ((maxvuln=newmaxvuln) and (overallvuln>newoverallvuln)) then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-            end;
-          end;
-        end;
-      end;
-    end;
-    if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-      l('ReduceVuln Attack F ' + i(FromTerritory) + ' T ' + i(ToTerritory)+ ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln));
-    end;
-  end;
-end;
-
-procedure TroopsMove(FromTerritory, ToTerritory	: integer; var Armies: integer; var Value: double);
-var
-  X, FromStrongestFront, ToStrongestFront, TryTest: integer;
-  FairArmies, overallvuln, maxvuln, newoverallvuln, newmaxvuln: integer;
-  LowerBound, UpperBound, originalmaxvuln, originaloverallvuln: integer;
-  SetLowerBound: boolean;
-  control, loopcontrol: boolean;
-  FromIsFront, ToIsFront: boolean;
-  var newValue: double;
-begin
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  loopcontrol:=true;
-  If FromIsFront and ToIsFront then begin
-    control:=TStrongestFront(FromTerritory,X,FromStrongestFront);
-    control:=TStrongestFront(ToTerritory,X,ToStrongestFront);
-    FairArmies:=trunc((ToStrongestFront * TArmies(FromTerritory)) div (FromStrongestFront+ToStrongestFront));
-  end;
-  if (not ToIsFront) and (not FromIsFront) then begin
-    FairArmies:=trunc(TArmies(FromTerritory) div 2);
-  end;
-  setupmymaps();
-  calculateoverallvuln(originaloverallvuln,originalmaxvuln);
-  Armies:=0;
-  LowerBound:= SpreadLevel;
-  Upperbound:= TArmies(FromTerritory)-SpreadLevel;                       // Upperbound needs to be one more than the total possible so that the LowerBound has the possibility to be that value
-  while (UpperBound - LowerBound > 1) do begin           // loop until UpperBound - LowerBound = 1
-    SetLowerBound:= False;
-    TryTest:= ((UpperBound + LowerBound) div 2) ;        // instead of increasing by 1, check the middle value
-    MyArmiesMap[FromTerritory]:=TArmies(FromTerritory)-(TryTest-1);
-    MyArmiesMap[ToTerritory]:=TArmies(ToTerritory)+(TryTest-1);
-    calculateoverallvuln(overallvuln,maxvuln);
-    MyArmiesMap[FromTerritory]:=MyArmiesMap[FromTerritory]-1;
-    MyArmiesMap[ToTerritory]:=MyArmiesMap[ToTerritory]+1;
-    calculateoverallvuln(newoverallvuln,newmaxvuln);
-    if (newmaxvuln=maxvuln) and (newoverallvuln = overallvuln) then begin
-      if (DistanceToAttackFront[ToTerritory] = DistanceToAttackFront[FromTerritory]) then begin
-        if LowerBound < FairArmies then SetLowerBound:= True;
-      end;
-    end;
-    newValue:= ((originalmaxvuln-newmaxvuln)*1000) + ((originaloverallvuln-newoverallvuln)*10) + (DistanceToAttackFront[FromTerritory]-DistanceToAttackFront[ToTerritory])*TryTest;
-//    l('sss Trytest ' + i(Trytest) + ' F ' + i(FromTerritory) + ' T ' + i(ToTerritory) + ' FA '+ i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln) + ' dttf ' + i(DistancetoAttackfront[FromTerritory]) + ' dttt ' + i(DistanceToAttackFront[ToTerritory]) + ' origo ' + i(originaloverallvuln) + ' origm ' + i(originalmaxvuln) + ' nv ' + floattostr(newValue));
-    if (newValue> Value) or SetLowerBound then begin
-      Value:=newValue;
-      LowerBound:=TryTest;
-      Armies:=LowerBound;
-    end else begin
-      UpperBound:=TryTest;
-    end;
-  end;
-//  l('Oddupation F ' + i(FromTerritory) + ' T ' + i(ToTerritory) + ' FA '+ i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln) + ' a ' + i(Armies) + ' v ' + floattostr(Value) + ' origo ' + i(originaloverallvuln) + ' origm ' + i(originalmaxvuln));
-end;
-
-procedure preparevalues();
-var
-  X,Turn,T2,Score:integer;
-  Prog:String;
-  control:boolean;
-begin
-  Turn:=trunc(UBufferGet(150));
-  if (Turn=0) then begin
-    Turn:=20;
-  end;
-  Turn:=Turn+1;
-  sn('P');
-  UBufferset(150,Turn);
-  for T:=1 to 42 do begin
-    X:=trunc(UBufferGet(100+T));
-    if X <> 0 then begin
-      if TOwner(T) <> X then begin
-        UBufferset(150+T,Turn);
-      end;
-    end;
-  end;
-  for C:=1 to 6 do begin
-    StartTurnCOwner[C]:=COwner(C);
-  end;
-  for C:=1 to 6 do begin
-    if COwner(C) = PMe then begin
-      MyStartC[C]:=1;
-    end;
-  end;
-  aalive:=0;
-  dalive:=0;
-  ealive:=0;
-  AverageEnemyArmies:=0;
-  EnemiesAlive:=0;
-  Score:=0;
-  PlayersCount:=0;
-  for P:=1 to 10 do begin
-    if PAlive(P) then begin
-      PlayersCount:=PlayersCount+1;
-      X:=PlayerScore(P);
-      if ArePlayersConnected(P,PMe) and (X>Score) then begin
-        Score:=X;
-        ThreatPlayer:=P;
-      end;
-      if (P<>PMe) then begin
-        EnemiesAlive:=EnemiesAlive+1;
-        AverageEnemyArmies:=AverageEnemyArmies+PArmiesCount(P);
-      end;
-      Prog:=lowercase(PProgram(P));
-      if (pos('australian',Prog)>0) then aalive:=1;
-      if (Prog='descartes09.trp') then dalive:=1;
-      if (Prog='endeavour09.trp') then ealive:=1;
-      StartTurnPlayerScore[P]:=PlayerScore(P);
-      StartTurnPlayerCScore[P]:=PlayerCScore(P);
-      StartTurnPlayerScoreOrdered[P]:=PlayerScore(P);
-    end;
-  end;
-//  l('ThreatPlayer ' + i(ThreatPlayer));
-  AverageEnemyArmies:= AverageEnemyArmies div EnemiesAlive;
-  for P:=1 to 9 do begin
-    for X:=1 to (10-P) do begin
-      if StartTurnPlayerScoreOrdered[X]<StartTurnPlayerScoreOrdered[X+1] then begin
-        Y:=StartTurnPlayerScoreOrdered[X];
-        StartTurnPlayerScoreOrdered[X]:=StartTurnPlayerScoreOrdered[X+1];
-        StartTurnPlayerScoreOrdered[X+1]:=Y;
-      end;
-    end;
-  end;
-  if PlayerCScore(PMe) > 0 then begin
-    for C:=1 to 6 do begin
-      if COwner(C) = PMe then begin
-        for T:=1 to CTerritoriesCount(C) do begin
-          MyConnected[CTerritory(C,T)]:=1;
-        end;
-      end;
-    end;
-  end else begin
-    MaxTerritoryValue:=0;
-    for T:=1 to 42 do begin
-      if TIsMine(T) and (TArmies(T)>MaxTerritoryValue) then begin
-        T2:=T;
-        MaxTerritoryValue:=TArmies(T);
-      end;
-    end;
-    MyConnected[T2]:=1;
-  end;
-  control:=true
-  while control do begin
-    control:=false;
-    for T:=1 to 42 do begin
-      if MyConnected[T] = 1 then begin
-        for X:=1 to TBordersCount(T) do begin
-          T2:=TBorder(T,X);
-          if TIsMine(T) and (TArmies(T) > 1) and (MyConnected[T]=0) then begin
-            MyConnected[T]:=1;
-            control:=true;
-          end;
-        end;
-      end;
-    end;
-  end;
-  calcMyAttackC();
-  l('Turn ' + i(Turn) + ' Start armies ' + i(PArmiesCount(PMe)) + ' Mr Big has ' + i(mrbigarmies) + ' Mr 2 has ' + i(mrsecondarmies) + ' Big Score ' + i(PlayerScore(MrBig)) + ' Me Score ' + i(PlayerScore(PMe)) + ' MyAttackC ' + i(MyAttackC));
-  if ((PlayerScore(PMe) > TotalEnemyScore()) and (PlayersCount>2))then begin
-    X:= (PlayerScore(PMe) - StartTurnPlayerScoreOrdered[2])*10;
-    if X > 100 then X:=100; 
-    if (PArmiesCount(PMe) > mrsecondarmies + X) then begin
-      DomAttack:=True;
-      l('DomAttack');
-    end else begin
-      DomAccumulate:=True;
-      l('DomAccumulate');
-    end;
-  end;
-end;
-
-procedure Assignment(var ToTerritory: integer);
-var
-  T,Y,Z: integer;
-  MaximumValue,Value:integer;
-begin
-  MaximumValue:=-1000;
-  ToTerritory:=0;
-  for T:=1 to 42 do begin
-    if TOwner(T)=0 then begin
-      Value:=0;
-      if (T<39) then
-        Value:=Value+10;
-      Y:=TBordersCount(T);
-      for Z:=1 to Y do begin
-        if (not TIsMine(TBorder(T,Z))) then Value:=Value+1;
-      end;
-      if (Value>=MaximumValue) then begin
-        MaximumValue:=Value;
-        ToTerritory:=T;
-      end;
-    end;
-//  end;
-  end; // end "if PProgram(PMe) = ..."
-end; // end procedure Assignment
-
-procedure Placement(var ToTerritory: integer);
-var
-  T,X,Y,T2,C,P: integer;
-  Score, NScore: double;
-  MaxTerritoryValue,TerritoryValue: integer;
-  ET,EA:integer;
-  PlacementTerritory, AttackTerritory, PossAttackTerritory,possvulnlevel: integer;
-  control:boolean;
-  MyFronts,MyBorders:integer;
-  MinMaxDistance,MinOverallDistance:integer;
-  overallvuln, maxvuln, newoverallvuln,newmaxvuln: integer;
-  lessmax,lessoverall:Boolean;
-begin
-//  if not FinisherPlacement(ToTerritory) then begin
-////
-  routine:=1;
-  calculatebigarmies();
-  lastturnfrom:=trunc(UBufferGet(148));
-  lastturnto:=trunc(UBufferGet(149));
-  SetArrayLength(MyArmiesMap,43);
-  SetArrayLength(MineArmies,43);
-  SetArrayLength(ValIndex,43);
-  SetArrayLength(ValProtection,43);
-  SetArrayLength(MyConnected,43);
-  SetArrayLength(StartTurnCOwner,7);
-  SetArrayLength(MyStartC,7);
-  SetArrayLength(StartTurnPlayerScore,11);
-  SetArrayLength(StartTurnPlayerCScore,11);
-  SetArrayLength(StartTurnPlayerScoreOrdered,11);
-  setArrayLength(DistanceToAttackFront,43);
-  PlacementTerritory:=0;
-  AttackTerritory:=0;
-  ToTerritory:=0;
-  if (COwner(MyAttackC)=PMe) then begin
-    calcMyAttackC();
-    l('MyAttackC ' + i(MyAttackC));
-  end;
-  if (bg(99) = 0) or (bg(100) = 0) then begin
-    preparevalues();
-  end;
-  if PArmiesCount(PMe) < 10 then begin
-    UBufferset(99,99);
-    ubufferset(98,0);
-    ubufferset(97,0);
-  end;
-  if (PlayerScore(PMe)< 5) then begin
-    if ( pos('endeavour', lowercase(PProgram(PMe))) > 0 ) then begin                
-      EndeavourPlacement(ToTerritory);
-    end else begin
-      MinnowWhere(ToTerritory,X);
-    end;
-    ubufferset(99,1);
-    ubufferset(98,0);
-    ubufferset(97,0);
-  end else begin
-    ToTerritory:=0;
-    If (trunc(UBufferGet(99)) = 0) then begin
-      //I think this is the first run
-      ubufferset(99,1);
-      ubufferset(98,0);
-      ubufferset(97,0);
-      killreason:=0;
-      //Endgame Play
-      if DomAttack then begin
-        KP2009:=endgameplay();
-        if KP2009 > 0 then begin
-          killreason:=1;
-          calcDistanceToAttackFront();
-        end;
-      end;
-      //Kill Play
-      if KP2009 = 0 then begin
-        KP2009:=shallikillaplayer();
-        if KP2009 > 0 then begin
-          killreason:=2;
-          calcDistanceToAttackFront();
-        end;
-      end;
-      if DomAttack or DomAccumulate then begin
-        if (killreason=2) then KillPlace(ToTerritory);
-        if ToTerritory=0 then DefensivePlace(ToTerritory);
-        if ToTerritory=0 then KillPlace(ToTerritory);
-      end else begin
-        KillPlace(ToTerritory);
-        if ToTerritory=0 then DefensivePlace(ToTerritory);
-      end;
-      UBufferSet(98,ToTerritory);
-    end;
-    If trunc(UBufferGet(98)) > 0 then begin
-      ToTerritory:=trunc(Ubufferget(98));
-    end else begin
-      setupmymaps();
-      MaxTerritoryValue:=-10000;
-      for T:=1 to 42 do begin
-        if TIsMine(T) then begin
-          for X:=1 to TFrontsCount(T) do begin
-            PossAttackTerritory:=TFront(T,X);
-            if (TContinent(PossAttackTerritory)=MyAttackC) and (TArmies(T)+2-TArmies(PossAttackTerritory) > 0) then begin 
-              setupmymaps();
-              MyArmiesMap[PossAttackTerritory]:=3;
-              MineArmies[PossAttackTerritory]:=True;
-              MyArmiesMap[T]:=TArmies(T)+2-TArmies(PossAttackTerritory);
-              control:=calculatevuln();
-              possvulnlevel:=0;
-              if COwner(6)=PMe then begin
-                possvulnlevel:=AttackArmies[39];
-              end else begin
-                if COwner(2)=PMe then begin
-                  if (AttackArmies[10]) < AttackArmies[12] then begin
-                    possvulnlevel:=AttackArmies[10];
-                  end else begin
-                    possvulnlevel:=AttackArmies[12];
-                  end;
-                end;
-              end;
-              MyFronts:=calcMyFronts();
-              MyBorders:=calcMyNewBorders(PossAttackTerritory)
-              TerritoryValue:=0 - (MyBorders);
-              if TerritoryValue > MaxTerritoryValue then begin
-//                l('XCCT ' + i(T) + ' PAT ' + i(PossAttackTerritory) + ' TV ' + i(TerritoryValue) + ' possvulnlevel ' + i(possvulnlevel));
-                MaxTerritoryValue:=TerritoryValue;
-                PlacementTerritory:=T;
-                if possvulnlevel <= 0 then begin
-                  AttackTerritory:=PossAttackTerritory;
-//                  l('Attack On');
-                end else begin
-                  AttackTerritory:=0;
-//                  l('Attack0');
-                end;
-    	      end;
-            end;                  
-          end;
-        end;
-      end;
-      if (PlacementTerritory > 0) then l('General MAC attack placement From ' + i(PlacementTerritory) + ' To ' + i(AttackTerritory) + ' val ' + i(MaxTerritoryValue));
-      if (PlacementTerritory = 0) then begin
-        l('Second Last Option Placement');
-        Score:=-1000;
-        for T:=1 to 42 do begin
-          for X:=1 to TFrontsCount(T) do begin
-            T2:=TFront(T,X);
-            if (TISMine(T) and TIsFront(T) and MyCTerr(T) and (TContinent(T2)=MyAttackC)) then begin
-              PossAttackTerritory:=TFront(T,T2);
-              control:=TStrongestFront(T,ET,EA);
-              if EA / TArmies(T) > Score then begin
-                Score:= EA/TArmies(T);
-                PlacementTerritory:=T;
-              end;
-            end;
-          end;
-        end;
-      end;
-      if (PlacementTerritory = 0) then begin
-        l('Last Option Placement');
-        Score:=-1000;
-        for T:=1 to 42 do begin
-          for X:=1 to TFrontsCount(T) do begin
-            T2:=TFront(T,X);
-            if (TISMine(T) and TIsFront(T) and (TContinent(T2)=MyAttackC)) then begin
-              PossAttackTerritory:=TFront(T,T2);
-              control:=TStrongestFront(T,ET,EA);
-              if EA / TArmies(T) > Score then begin
-                Score:= EA/TArmies(T);
-                PlacementTerritory:=T;
-              end;
-            end;
-          end;
-        end;
-      end;
-      if PlacementTerritory>0 then begin      
-        UBufferSet(98,PlacementTerritory);
-        UBufferSet(97,AttackTerritory);
-        ToTerritory:=PlacementTerritory;
-        l('Placeplan ' + i(PlacementTerritory) + ' ' + i(AttackTerritory));
-      end;
-    end;
-          
-  end;
-  UBufferset(148,ToTerritory);
-  UBufferSet(149,99);
-
-  UBufferset(99,1);
-//  end; // end "if not FinisherPlacement..."
-end; // end procedure Placement
-  
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  T,X,T2,D,C,C2,Y: integer;
-  MaxTerritoryValue,TerritoryValue: integer;
-  PossAttackCountry: integer;
-  myborders:integer;
-  control:boolean;
-begin
-  routine:=2;
-//  if not FinisherAttack(FromTerritory, ToTerritory) then begin
-  UBufferSet(100,1);
-  lastturnfrom:=trunc(UBufferGet(148));
-  lastturnto:=trunc(UBufferGet(149));
-  calculatebigarmies();
-  if (trunc(UBufferGet(99))=99) then UBufferSet(99,1);
-  UBufferSet(50,3);
-  FromTerritory:=0;
-  ToTerritory:=0;
-  PlayersCount:=0;
-  for X:=1 to 10 do begin
-    if PAlive(X) then begin
-      PlayersCount:=PlayersCount+1;
-    end;
-  end;
-  if (PlayerScore(PMe)> 4) then begin
-    if DomAttack then begin
-      X:= (PlayerScore(PMe) - StartTurnPlayerScoreOrdered[2])*10;
-      if X > 100 then X:=100; 
-      if (PArmiesCount(PMe) > mrsecondarmies + X) then AttackPlayer(KP2009,FromTerritory,ToTerritory);
-    end;
-    if DomAccumulate then begin
-      if (FromTerritory=0) and (not Sconquest) then OneAttack(FromTerritory,ToTerritory);            
-    end;
-    if (not DomAttack) and (not DomAccumulate) then begin
-      if (killreason = 1) then begin
-        if not (PArmiesCount(PMe)>mrsecondarmies+10) then begin
-          killreason:=0;
-          KP2009:=0;
-        end;
-      end;
-      X:=shallikillaplayer();
-      if KP2009 <> X then begin
-        KP2009:=X;
-        calcDistanceToAttackFront();
-      end;
-      if KP2009 > 0 then AttackPlayer(KP2009,FromTerritory,ToTerritory);
-      if (FromTerritory=0) then BorderAttack(FromTerritory,ToTerritory);
-      if (FromTerritory=0) then ReduceVulnAttack(FromTerritory,ToTerritory);            
-      if (FromTerritory=0) then BigAttack(FromTerritory,ToTerritory);    
-      if (FromTerritory=0) and (not Sconquest) then GeneralMACAttack(FromTerritory,ToTerritory);
-      if (FromTerritory=0) and (not Sconquest) then OneAttack(FromTerritory,ToTerritory);            
-    end;
-  end else begin
-    If (PArmiesCount(PMe) = mrsecondarmies) and (PlayerScore(MrBig) > 4) then begin
-      AttackPlayer(MrBig,FromTerritory,ToTerritory);
-    end;
-    if (ToTerritory = 0) then begin  
-      if ( pos('endeavour', lowercase(PProgram(PMe))) > 0 ) then begin                
-        endeavourAttack(FromTerritory,ToTerritory);
-      end else begin
-        oldAttack(FromTerritory,ToTerritory);
-      end;
-    end;
-
-    if ToTerritory=0 then FromTerritory:=0;
-  end;
-  if (ToTerritory=0) and (not SCardsBasedonCombo) and (not SConquest) then begin
-    MaxTerritoryValue:=10000;
-    for T:=1 to 42 do begin
-      if TIsMine(T) and (TArmies(T) > 1) then begin
-        for X:=1 to TFrontsCount(T) do begin
-          T2:=TFront(T,X);
-          if TArmies(T2)<MaxTerritoryValue then begin
-            FromTerritory:=T;
-            ToTerritory:=T2;
-            MaxTerritoryValue:=TArmies(T2);
-            l('Last Option');
-          end;
-        end;
-      end;
-    end;
-  end;
-  UBufferset(148,FromTerritory);
-  UBufferSet(149,ToTerritory);
-  if (FromTerritory>0) and (not ((lastturnfrom=FromTerritory) and (lastturnto=ToTerritory))) then begin 
-//    l('AAATF ' + i(FromTerritory) + ' TA ' + i(ToTerritory) + ' A ' + i(TArmies(FromTerritory))+ ' VI ' + i(ValIndex[ToTerritory])+' D ' + i(D));
-  end;
-//  end; // end "if not FinisherAttack..."
-end; // end procedure Attack
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-  T:integer;
-  Value:double;
-  X,KillPlayer: integer;
-  FairArmies,overallvuln,newoverallvuln,maxvuln,newmaxvuln:Integer;
-  TryTest,FromStrongestFront,ToStrongestFront:Integer;
-  loopcontrol,control,ifcontrol:Boolean;
-begin
-//  if not FinisherOccupation(FromTerritory, ToTerritory, Armies) then begin
-//  l('Occupation Start');
-  calcmyattackc();
-  if (killreason = 2) then begin
-    if PlayerScore(KP2009) < StartTurnPlayerScore[PMe] then begin
-      KP2009:=0;
-      killreason:=0;
-      l('No longer killing ' + i(KP2009));
-    end;
-  end;
-  ifcontrol:=false;
-  if (not ifcontrol) then begin
-  if (PlayerScore(PMe) > 4) then begin
-      TroopsMove(FromTerritory,ToTerritory,Armies,Value);
-  end else begin
-      if ( pos('endeavour', lowercase(PProgram(PMe))) > 0 ) then begin                
-        endeavourOccupation(FromTerritory,ToTerritory,Armies);
-      end else begin
-        oldOccupation(FromTerritory,ToTerritory,Armies);
-      end;
-  end;
-  end;
-  //Spread Override
-  if (SpreadLevel > 0) and (PlayerScore(PMe)> 4) then begin
-    if (TArmies(FromTerritory)-Armies) < SpreadLevel then begin
-      l ('Spread Override');
-      if (TArmies(FromTerritory)>SpreadLevel) then begin
-        Armies:=TArmies(FromTerritory) - SpreadLevel;
-      end else begin
-        Armies:=0;
-      end;
-    end;
-  end;
-
-//  end; // end "if not FinisherOccupation..."
-  if ((TContinent(FromTerritory)=2) and (TContinent(ToTerritory)=2)) then begin
-    l('Armies being moved' + i(Armies));
-  end;
-end; // end procedure Occupation
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  X,T,T2,B,Dest,MaxArmy,D,D2: integer;
-  ArmySize: integer;
-  Value, MaxValue: double;
-  overallvuln, maxvuln, newoverallvuln,newmaxvuln: integer;
-  control,loopcontrol:Boolean;
-  MaxTerritoryValue,currentFrom,currentdest:Integer;
-  FromValue,ToValue:double;
-begin
-  sn('f');
-  calcmyattackc();
-  ubufferset(99,0);
-//  if not FinisherFortification(FromTerritory, ToTerritory, Armies) then begin
-//  l('Fortify routine AttackC is still ' + i(MyAttackC));
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-  MaxArmy:=0;
-  MaxValue:=0;
-  setupmymaps();
-  if ((FromTerritory=0) and (PlayerScore(PMe)> 4)) then begin
-    calculateoverallvuln(overallvuln,maxvuln);
-    if (overallvuln <> 0) or (maxvuln <> 0) then begin
-      l('COV '+ i(overallvuln)+' CMV '+i(maxvuln));
-    end;
-    for T:=1 to 42 do begin
-      If TisMine(T) then begin
-        if Tarmies(T) > (Spreadlevel + 1) then begin
-          for T2:= 1 to TBordersCount(T) do begin
-            Dest:=TBorder(T,T2);
-            IF TIsMine(Dest) then begin
-              setupmymaps();
-              calculateoverallvuln(overallvuln,maxvuln);
-              MyArmiesMap[T]:=MyArmiesMap[T]-1;
-              MyArmiesMap[Dest]:=MyArmiesMap[Dest]+1;
-              calculateoverallvuln(newoverallvuln,newmaxvuln);
-//              l('EFort From ' + i(T) + ' To ' + i(Dest) + ' Armies ' + i(ArmySize)+ ' Fa ' + i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln) + ' value ' + floattostr(value));
-              if ((maxvuln>0) and (newmaxvuln< maxvuln))
-              or (((overallvuln>0) and (newoverallvuln< overallvuln)) and (maxvuln=newmaxvuln))
-              or ((maxvuln=newmaxvuln) and (overallvuln=newoverallvuln) and (DistanceToAttackFront[dest]<DistanceToAttackFront[T])) then begin
-                ArmySize:=0;
-                Value:=0;
-                TroopsMove(T,Dest,ArmySize,Value);
-//                l('KFort From ' + i(T) + ' To ' + i(Dest) + ' Armies ' + i(ArmySize)+ ' Fa ' + i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln) + ' value ' + floattostr(value));
-                if Value > MaxValue then begin
-                  FromTerritory:=T;
-                  ToTerritory:=Dest;
-                  Armies:=ArmySize;
-                  MaxValue:=Value;
-                  l('JFort From ' + i(FromTerritory) + ' To ' + i(ToTerritory) + ' Armies ' + i(Armies)+ ' Fa ' + i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln) + ' value ' + floattostr(value));
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  if (FromTerritory=0) and (PlayerScore(PMe)=3) then begin
-    D:=0;
-    for T:=1 to 42 do begin
-      if TIsMine(T) and (TArmies(T)>1) then begin
-        Y:=TBordersCount(T);
-        for Z:=1 to Y do begin  
-          T2:=TBorder(T,Z);
-          if TIsMine(T2) then begin
-            D2:=TArmies(T)-ValIndex[T2];
-            if (D2>D) then begin
-              D:=D2;
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              Armies:=TArmies(T)-1;
-              l('Desire Fort ' + i(FromTerritory) + ' TA ' + i(ToTerritory) + ' A ' + i(TArmies(FromTerritory))+ ' VI ' + i(ValIndex[ToTerritory])+' D ' + i(D));
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-
-  if ((FromTerritory=0) or (not SCardsBasedonCombo)) and (PlayerScore(PMe)<5) then begin
-    MaxValue:=0;
-    for T:=1 to 42 do begin
-      if TIsMine(T) and (TArmies(T) > 1) then begin
-        for X:=1 to TBordersCount(T) do begin
-          T2:=TBorder(T,X);
-          if TIsMine(T2) then begin
-            FromValue:=LoneTerritoryValue(T);
-            ToValue:=LoneTerritoryValue(T2);
-            if ((ToValue-FromValue)*TArmies(T))>MaxValue then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              Armies:=TArmies(T)-1;
-              MaxValue:=((ToValue-FromValue)*TArmies(T));
-              l('LTVFort From ' + i(FromTerritory) + ' To ' + i(ToTerritory) + ' Armies ' + i(Armies)+ ' Fa ' + i(TArmies(FromTerritory)) + ' maxvalue ' + floattostr(maxvalue));
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;            
- 
-  l('End Turn armies ' + i(PArmiesCount(PMe)));
-  for T:=1 to 10 do begin
-    UBufferSet(80+T,PArmiesCount(T))
-  end;
-  if (COwner(2)=PMe) then begin
-    if (TArmies(13)>1) or (TArmies(11)>1) then begin
-       l('EEEFort From ' + i(FromTerritory) + ' To ' + i(ToTerritory) + ' Armies ' + i(Armies)+ i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln));
-    end;
-  end;
-  if (COwner(6)=PMe) then begin
-    if (TArmies(40)>1) or (TArmies(41)>1) or (TArmies(42)>1) then begin
-       l('EEEFort From ' + i(FromTerritory) + ' To ' + i(ToTerritory) + ' Armies ' + i(Armies)+ i(TArmies(FromTerritory)) + ' mv ' + i(maxvuln) + ' nmv ' + i(newmaxvuln) + ' ov ' + i(overallvuln) + ' nov ' + i(newoverallvuln));
-    end;
-  end;
-
-  if (SpreadLevel > 0) and (PlayerScore(PMe)> 4) then begin
-    if (TArmies(FromTerritory)-Armies) < SpreadLevel then begin
-      l ('fort Spread Override');
-      if (TArmies(FromTerritory)>SpreadLevel) then begin
-        Armies:=TArmies(FromTerritory) - SpreadLevel;
-      end else begin
-        Armies:=0;
-        FromTerritory:=0;
-        ToTerritory:=0;
-      end;
-    end;
-  end;
-
-  for T:=1 to 42 do begin
-    if TArmies(T) > 1 then begin
-      UBufferset(100+T,TOwner(T));
-    end else begin
-      UBufferset(100+T,0);
-    end;
-  end;
-
-end; // end procedure Fortification
-begin
-end.
\ No newline at end of file
diff --git a/Players/era$or-bot.trp b/Players/era$or-bot.trp
deleted file mode 100644
index b63d69f..0000000
--- a/Players/era$or-bot.trp
+++ /dev/null
@@ -1,375 +0,0 @@
-{
-Program: Era$or-bot
-
-Author: Pierre Polet (p.polet@lemel.fr), 10-12-1999 
-
-Description: Here is a bot very hard to kill. It adapts itself  regarding number 
-and in kind of players that it afronte. It conquers continents and protect them. 
-}
-
-//             Era$or-bot is one of strongest" bot that
-//             exists for TurBoRisk ;)
-//             it's the first I realise.
-//             I just looked into simple.trp
-//             I have tested Era$or-bot with all bots there were
-//             with the prog and with various conditions
-//             and it wins really often!
-//             enjoys with it .. please report me bugs and comments.
-//
-//                                          
-//  +--^----------,--------,-----,--------^-,  _________\
-//  | |||||||||   `--------'     |          O |ErA$oR-Bot)
-//  `+---------------------------^----------|  ---------/
-//    `\_,---------,---------,--------------'
-//      / XXXXXX /'|       /'
-//     / XXXXXX /  `\    /'   (c) Pierre Polet 10-12-1999 (french Team)
-//    / XXXXXX /`-------'              p.polet@lemel.fr
-//   / XXXXXX /                   www.multimania.com/pprogs/
-//  / XXXXXX /
-// (________(             
-//  `------'        
-//  
-
-
-procedure Assignment(var ToTerritory: integer);
-var
-  T: integer;
-begin
-  ToTerritory:=0;
-  T:=1;
-  repeat
-    if TOwner(T)=0 then
-      ToTerritory:=T;
-    T:=T+1;
-  until (ToTerritory>0) or (T>42);
-end;
-
-procedure Placement(var ToTerritory: integer);
-
-Var
-
- PT	: integer;
- PA	: integer;
- ET	: integer;
- EA	: integer;
- ENT	: integer;
- ENA	: integer;
- EnemyA	: integer;
- EnemyT	: integer;
- U	: integer;
- Z	: integer;
- X	: integer;
- Y	: integer;
- W	: integer;
- T	: integer;
- PF	: integer;
- continent : integer;
- territoire: integer;
- ETF	: integer;
- EAF	: integer;
- 
- Tscore:	double;
- score :	double;
- Cscore:	double;
- Coef:		double;
- Maxratio: double;
- 
- Begin
- 
-  score:=0;
-  Tscore:=0;
-
-  For T:=1 to 42 do Begin
-	Cscore:=0;
-    If Tisfront(T) then begin
-
-     CAnalysis(TContinent(T),PT,PA,ET,EA);
-
-	if EA = 0 then begin  
-
-	  TstrongestFront(t,ent,ena);
-	  Cscore:= 0.0001;
-
-	  if PHuman(Towner(ent)) then 
-	    Coef:= 0.4
-	    Else 
-	    coef:= 0.1;
-	
-
-	  if Cowner(ent) <> 0 then 
-	    coef := coef + 1.1
-	    Else
-	    coef := coef + 1;
-	
-
-	  if double(Tarmies(T)) / ena < coef then begin
-	    Cscore := 12; 
-          end;
-	end; 
-
-	if EA <> 0 then  
-        Cscore := ((double(PT)) / CterritoriesCount(Tcontinent(T))) + ((double(Pa)) / EA) + (1/double(CterritoriesCount(Tcontinent(T))-PT))*10;
-
-	if Cscore > Score then begin
-	  score := Cscore;
-	  continent := Tcontinent(t);
-	end;
-      end;
-   end;
-
-       If Continent=1 then 
-       begin 
-         X:=1;
-         Y:=9;
-       end;
-
-       If Continent=2 then
-       begin 
-         X:=10;
-         Y:=13;
-       end;
- 
-       If Continent=3 then 
-       begin 
-         X:=20;
-         Y:=26;
-       end;
-
-       If Continent=4 then 
-       begin 
-         X:=14;
-         Y:=19;
-       end;
-
-       If Continent=5 then
-       begin 
-         X:=27;
-         Y:=38;
-       end;   
-
-       If Continent=6 then 
-       begin 
-         X:=39;
-         Y:=42;
-       end;
-
- Tscore := -10000;
- Score := -10000;
- Maxratio:= -10000;
- 
- for T:= x to y do begin
-
-	if TisFront(t) then begin
-	   Canalysis(continent,PT,PA,ET,EA);
-
-		if EA = 0 then
-		   Tscore:= Tpressure(t)-Tarmies(T);
-     
-
-		For U:= X to Y do begin
-
-		if EA <> 0 then begin  
-		   If (Tismine(U) = False) and (Tisbordering(T,U)) then  
-	           Tscore:= Tarmies(T) - Tarmies(U);
-		end;
-
-		If Tscore >= Maxratio then 
-		Maxratio:= TScore;
-	
-		end;
-
-		if Maxratio > Score then begin
-		   Score := Maxratio;
-		   territoire:=T;
-		end;
-	 end; 
- end;
-    ToTerritory:=territoire;
-end;
-
-procedure Attack(var FromTerritory, ToTerritory: integer);
-Var
- Tscore:	double;
- coef :     double;
-
- Tarrive:	Integer;
- arrive:	integer;
- Tdepart:	Integer;
- Continent:	Integer;
- PA:		Integer;
- PT:		Integer;
- ET:		Integer;
- EA: 		Integer;
- ENT: 		integer;
- ENA: 		integer;
- PlayerT:	Integer;
- PlayerA:	Integer;
- EnemyA:	Integer;
- EnemyT:	Integer;
- U:		Integer;
- Y:		Integer;
- X:		Integer;
- T:		Integer;
- //agressivite:	double;
-
- Begin
- Coef:= 1.3 + double(SplayersCount)/20;
- 	   Tdepart:=0;
-	   Tarrive:=0;
-	For t:= 1 to 42 do begin
-	   Tscore:=-10000;
-	  if tisFront(T) and (Tarmies(T)>2) then Begin
-
-	    Continent := TContinent(t);
-
- 		If Continent=1 then 
-       		begin 
-        	 X:=1;
-        	 Y:=9;
-       		end;
-
-       		If Continent=2 then
-      		 begin 
-        	 X:=10;
-        	 Y:=13;
-       		end;
- 
-      		 If Continent=3 then 
-      		 begin 
-       		  X:=20;
-       		  Y:=26;
-      		 end;
-
-      		 If Continent=4 then 
-     		  begin 
-      		   X:=14;
-       		   Y:=19;
-     		  end;
-
-      		 If Continent=5 then
-      		 begin 
-      		   X:=27;
-      		   Y:=38;
-     		  end;   
-
-       		If Continent=6 then 
-      		 begin 
-        	  X:=39;
-       		  Y:=42;
-      		 end;
-
-		   Canalysis(Continent,PT,PA,ET,EA);
-		For U:= x to y do begin
-		 If EA <> 0 then begin	                 
-		     iF (Tisbordering(T,U)) and (Tismine(U) = False) then begin
-			  Tscore:= double(Tarmies(T)) / double(Tarmies(U));
-			  arrive:=u;
-		     end;
-		 end;
-
-                 if EA = 0 then begin
-                  if trunc(double(Tpressure(T))*(1.3+(double(SplayersCount)/20))) < Tarmies(T) then begin
-		   TWeakestFront(t,ent,ena);
-		   Tscore:= double(Tarmies(T)) / double(EnA);
-		   arrive:= ENT;
-		  end;
-		 end;
-
-		if Tscore > Coef then begin
-		  coef:= Tscore;
-		  Tdepart:=T;
-		  Tarrive:=arrive;
- 		end;
-		end
-          end;
-	end;
-
-  if (Tdepart<>0) and (Tarrive<>0) then begin 
-	FromTerritory:=Tdepart;
-        ToTerritory:=Tarrive;  
-  end;
-end;
-
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-
-var
- EnemyT	: integer;
- EnemyA	: integer;
- Tnumber	: integer;
- Anumber	: integer;
- ETnumber	: integer;
- EAnumber	: integer;
-
- FromIsFront, ToIsFront: boolean;
-
-begin
-
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  Armies:=0;
-         
-  if  FromIsFront and ToIsFront then begin
-
-    Armies:=(TArmies(FromTerritory)-(TArmies(ToTerritory)) div 2);
-
-      
-  end else if FromisFront then begin
- 
-TStrongestFront(FromTerritory,EnemyT,EnemyA);
-    if EnemyT > Tarmies(FromTerritory) then begin
-        Armies:= 1;
-       end else
-         if EnemyT < TArmies(FromTerritory) then
-             Armies:=TArmies(FromTerritory)-EnemyA ;
-
-  end else begin
-    Armies:=(TArmies(FromTerritory)-2);
-  end;
-end;
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  T,B,MaxArmy: integer;
-begin
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-
-
-  MaxArmy := 1;
-  for T:=1 to 42 do begin
-    if TIsMine(T) and not TIsFront(T) then begin
-      if TArmies(T)>MaxArmy then begin
-        MaxArmy := TArmies(T);
-        FromTerritory := T;
-      end;
-    end;
-  end;
-  if FromTerritory>0 then begin
-    for B:=1 to TBordersCount(FromTerritory) do begin
-      if ToTerritory=0 then begin
-        T:=TBorder(FromTerritory,B);
-        if TIsMine(T) and TIsFront(T) then begin
-          ToTerritory:=T;
-        end;
-      end;
-    end;
-    if ToTerritory=0 then begin
-      for B:=1 to TBordersCount(FromTerritory) do begin
-        if ToTerritory=0 then begin
-          T:=TBorder(FromTerritory,B);
-          if TIsMine(T) then begin
-            ToTerritory:=T;
-          end;
-        end;
-      end;
-    end;
-    if ToTerritory>0 then begin
-      Armies:=TArmies(FromTerritory)-1;
-    end;
-  end;
-end;
-
-begin
-end.
diff --git a/Players/finisher.trp b/Players/finisher.trp
deleted file mode 100644
index 89bbd10..0000000
--- a/Players/finisher.trp
+++ /dev/null
@@ -1,770 +0,0 @@
-{
-Program: Finisher                 Author: Nathan Scarbrough
-                                                     Email: Nathan.Scarbrough@gmail.com
-
-Description: This is a super aggressive TRP that wins one on one games against most TRPs and sometimes wins 3 players games.
-
-Actually this player is meant to be combined with other TRPs to create hybrids that are stronger, more realistic players.
-
-A Finisher hybrid will play as the other TRP until it has more armies than all the other players combined at which point the finisher code takes over to quickly and efficiently finish the game within just a few turns.
-
-This drastic change of strategy mimics what humans do when they see the opportunity to take the whole board at once.  If you find that your TRP conquers the world with hundreds of left over armies, then you should consider adding the Finisher code.  Finisher typically conquers the world with fewer than 100 armies left.
-
-To create a hybrid simply copy and paste the variable declarations and code from each of your 5 procedures into Finishers procedures.
-
-History: Version 1.0 June 2009
-}
-
-{ INSTRUCTIONS:
-
-  To make a hybrid, paste your functions up here and then scroll down to the bottom
-  and paste your variable declarations into the procedures.
-  Then paste the code from your procedures into the designated places.
-  
-  Finisher works best with TRPs that keep all of their armies on fronts, however this is not a requirement.
-  If Finisher fails to conquer the world because too many of your armies are not on fronts,
-  then do a search for #*# and then increase the initial value of the variable TM
-
-  The only requirement is that your TRP doesn't use UBuffer 100.
-  Finisher uses this buffer to keep track of when the hybrid TRP is in Finisher mode. }
-  
-
-procedure FinisherAssignment(var ToTerritory: integer);
-var
-  T: integer;
-begin
-  // find the first free territory
-  ToTerritory:= 0;
-  T:= 1;
-  repeat
-    if TOwner(T)= 0 then
-      ToTerritory:= T;
-    T:= T + 1;
-  until (ToTerritory > 0) or (T > 42);
-end;
-
-function FinisherPlacement(var ToTerritory: integer): boolean;
-var
-  CID: Array of Integer;
-  Abort: Boolean;
-  TM: Double;
-  MaxPArmiesCount, WeakestPMaxBArmies, WeakestPBArmies, HumanBArmies, HumanMaxBArmies, Priority,
-  TotalArmies, TotalEnemyArmies, PT,PA,ET,EA, B, X, T, P, BT, BT1, B1, B2, Count,
-  WeakestP, WeakestPA, MinPressure, MaxPressure, Pressure: integer;
-  
-begin
-
-if PProgram(PMe) = 'finisher.trp' then UBufferSet(100, 1);
-
-if (UBufferGet(100) = 1) and (not (PProgram(PMe) = 'finisher.trp')) then begin
-
-  TM:=1.0;	// #*# Threshold Multiplier, increase this number in the tenth's place if Finisher isn't successful often enough
-
-  Abort:=False;
-  TotalEnemyArmies:=0;
-  MaxPArmiesCount:=0;	// The number of armies that my strongest enemy has
-  for P:= 1 to 10 do begin
-    If (PAlive(P)) and (P<>PMe) then begin
-      If PArmiesCount(P) >= MaxPArmiesCount then begin
-        If (NOT (PArmiesCount(P) = MaxPArmiesCount)) then Abort:=False;	// Only Abort if strongest enemy has > 3 cards
-        MaxPArmiesCount:= PArmiesCount(P);
-        If (PCardCount(P) > 3) and (PCardTurnInValue(P) > 25) then Abort:= True;
-      end;
-      If PHuman(P) and (PCardCount(P) > 3) and (PCardTurnInValue(P) > 20) then Abort:= True;
-      If PHuman(P) then TM:= TM + 0.1;
-      If PCardCount(P) > 2 then TM:= TM + (double(PCardTurnInValue(P))/200);	// decrease the denominator's value if you want to play more conservatively
-      TotalEnemyArmies:=TotalEnemyArmies + PArmiesCount(p);
-    end;
-  end;
-
-  { if I have a lot of cards or a lot of armies then lower the threshold multiplier }
-  if (PCardCount(PMe) > 2) and (SAlivePlayersCount > 4) and (PCardTurnInValue(P) > 20)
-  then TM:= TM - (double(PCardTurnInValue(PMe))/80)
-  else if (PCardCount(PMe) > 3) and (SAlivePlayersCount > 3) and (PCardTurnInValue(P) > 20)
-  then TM:= TM - (double(PCardTurnInValue(PMe))/100);
-
-  { if I have a lot of armies then lower TM because on average when attacking 3 dice against 2
-    I'll take out 7 enemy armies for every 6 I lose, so I need less armies to win }
-  if (PArmiesCount(PMe) + PNewArmies(PMe) > 200) and (PArmiesCount(PMe) + PNewArmies(PMe) < 1000)
-  then TM:= TM - double(PArmiesCount(PMe) + PNewArmies(PMe))/2000;
-
-  if (PArmiesCount(PMe) + PNewArmies(PMe) < trunc(TotalEnemyArmies * TM)) or Abort then begin
-    UBufferSet(100, 0);
-    result:=false;
-//    UMessage('end Finisher');
-  end;
-end;
-
-if (UBufferGet(100) = 1) then begin
-  result:= true;
-  
-  { find the weakest player }
-  WeakestPA:=99999;
-  WeakestP:=0; // weakest player
-  for P:= 1 to 10 do begin
-    If (PAlive(P)) and (P<>PMe) then begin
-      If PArmiesCount(P) < WeakestPA then begin
-        WeakestP:=P;
-        WeakestPA:=PArmiesCount(P);
-      end;
-    end;
-  end;
-
-  Priority:= 0;
-  MaxPressure:= -100000;
-  WeakestPMaxBArmies:= 0;   // weakest player max armies bordering T
-  HumanMaxBArmies:= 0;      // human    "      "
-  SetArrayLength(CID, 10);	// CID = check if duplicate
-  Repeat
-    Priority:= Priority + 1;
-    MinPressure:=999999;
-    for T:=1 to 42 do begin
-      WeakestPBArmies:= 0;  // WeakestP's armies on bordering territory ET
-      HumanBArmies:= 0;
-      for X:= 0 to 9 do CID[X]:= 0;
-      if TIsFront(T) then begin
-        pressure:= TPressure(T);
-        for B:= 1 to TBordersCount(T) do begin
-          ET:= TBorder(T, B);
-          if Not TIsMine(ET) then begin
-            if TOwner(ET) = WeakestP then WeakestPBArmies:= WeakestPMaxBArmies + TArmies(ET);
-            if PHuman(TOwner(ET)) then HumanBArmies:= HumanMaxBArmies + TArmies(ET);
-
-            for B1:= 1 to TBordersCount(ET) do begin
-              BT:=TBorder(ET, B1);
-              If TIsMine(BT) and (TArmies(BT) > 1) and (BT <> T) and (TArmies(BT) < TArmies(ET)+ 1)
-              and (Not ( (TArmies(BT) < 4) and (TArmies(ET) > 1) ))
-              then begin
-                Pressure:= Pressure - TArmies(BT) + 3;
-                if PHuman(TOwner(ET)) then HumanMaxBArmies:= HumanMaxBArmies - TArmies(BT);
-                if TOwner(ET) = WeakestP then WeakestPBArmies:= WeakestPBArmies - TArmies(BT);
-              end;
-              If TIsMine(BT) and (TArmies(BT) > 1) and (BT <> T) and (TArmies(BT) > TArmies(ET))
-              then begin
-                Pressure:= Pressure - TArmies(ET);
-                if PHuman(TOwner(ET)) then HumanMaxBArmies:= HumanMaxBArmies - TArmies(ET);
-                if TOwner(ET) = WeakestP then WeakestPBArmies:= WeakestPBArmies - TArmies(ET);
-              end;
-
-              Count:=0;
-              if (TBordersCount(BT) = TFrontsCount(BT)) and (Not TIsMine(BT)) then begin
-                For X:= 0 to 9 do if CID[X] = BT then Count:=Count + 1;
-                if count = 0 then begin;
-                  Pressure:= Pressure + TArmies(BT) + 1;
-                  if TOwner(BT) = WeakestP then WeakestPBArmies:= WeakestPBArmies + TArmies(BT) + 1;
-                  if PHuman(TOwner(BT)) then HumanBArmies:= HumanBArmies + TArmies(BT) + 1;
-                  For X:= 0 to 9 do begin
-                    if CID[X] = 0 then begin
-                      CID[X]:= BT;
-                      X:=9;
-                    end;
-                  end;
-                end;
-                For B2:= 1 to TBordersCount(BT) do begin
-                  Count:=0;
-                  BT1:= TBorder(BT, B2);
-                  If (Not TIsMine(BT1)) and (TBordersCount(BT1) = TFrontsCount(BT1)) and (BT1 <> ET)
-                  then begin
-                    For X:= 0 to 9 do if CID[X] = BT1 then Count:=Count + 1;
-                    If Count = 0 then begin
-                      Pressure:= Pressure + TArmies(BT1) + 1;
-                      if TOwner(BT1) = WeakestP then WeakestPBArmies:= WeakestPBArmies + TArmies(BT1) + 1;
-                      if PHuman(TOwner(BT1)) then HumanBArmies:= HumanBArmies + TArmies(BT1) + 1;
-
-                      For X:= 0 to 9 do begin
-                        if CID[X] = 0 then begin
-                          CID[X]:= BT1;
-                          X:=9;
-                        end;
-                      end;
-                    end;
-                  end;
-                end;
-              end;
-            end;
-          end;
-        end;
-
-        if (Pressure > 0) and (TArmies(T) < Pressure + 2)  // Priority 1: kill humans
-        and (Priority = 1) and (HumanBArmies > HumanMaxBArmies) then begin	// place until I have 2 more than the pressure
-          HumanMaxBArmies:= HumanBArmies;
-          ToTerritory:= T;
-        end;
-        if (Pressure > 0) and (TArmies(T) < Pressure + 2)  // Priority 2: kill weakest player
-        and (Priority = 2) and (WeakestPBArmies > WeakestPMaxBArmies) then begin	// place until I have 2 more than the pressure
-          WeakestPMaxBArmies:= WeakestPBArmies;
-          ToTerritory:= T;
-        end;
-        if (Pressure > MaxPressure) and (TArmies(T) < Pressure + 2)  // Priority 3: fortify T with greatest pressure
-        and (Priority = 3) then begin	                               // place until I have 2 more than the pressure
-          ToTerritory:= T;
-          MaxPressure:= Pressure;
-        end;
-
-        if (Pressure > MaxPressure) and (TArmies(T) < Pressure + 4)  // Priority 4: fortify T with greatest pressure
-        and (Priority = 4) then begin                                // place until I have 4 more than the pressure
-          ToTerritory:= T;
-          MinPressure:= Pressure;
-        end;
-        if (Pressure > MaxPressure) and (Priority >= 5) then begin    // Priority 5: fortify T with greatest pressure until I have no more armies
-          ToTerritory:= T;
-          MaxPressure:= Pressure;
-        end;
-      end;
-    end;
-  until (ToTerritory <> 0);
-
-  { Make sure I have enough Armies to take Australia - this code will override the above code except
-   when priority = 1 or 2 }
-  if Not (Priority < 3) then begin
-    if (Not (COwner(6) = PMe)) and ( (   TIsMine(31) or (  ( TIsMine(30) or TIsMine(32) ) and (Not TIsMine(31))  )   ) or
-    TIsMine(39) or TIsMine(40) or TIsMine(41) or TIsMine(42) ) then begin
-      CAnalysis(6, PT,PA,ET,EA);
-      TotalArmies:=0;
-      If TIsMine(31) and (Not TIsMine(39)) then TotalArmies:= TArmies(31);
-      For T:= 39 to 42 do if TIsMine(T) then TotalArmies:=TotalArmies + TArmies(T);
-
-      If TotalArmies - PT < EA + 4 then begin
-        ToTerritory:= 0;
-        if TIsMine(42) then ToTerritory:=42;
-        if TIsMine(41) then ToTerritory:=41;
-        if TIsMine(40) then ToTerritory:=40;
-        if (ToTerritory = 0) and TIsMine(39) then ToTerritory:=39;
-        if (ToTerritory = 0) and TIsMine(31) then ToTerritory:=31;
-        if (ToTerritory = 0) and TIsMine(32) then ToTerritory:=32;
-        if (ToTerritory = 0) and TIsMine(30) then ToTerritory:=30;
-        if ((ToTerritory = 30) or (ToTerritory = 32)) and TIsMine(30) and TIsMine(32) then
-          if TArmies(32) > TArmies(30) then ToTerritory:=32;
-      end;
-      
-    end;
-  end;
-  
-end else result:= false;
-end;
-
-function FinisherAttack(var FromTerritory, ToTerritory: integer): boolean;
-var
-  B, T, B1, T1, FT, TT, TF, SkipF, SkipT, SkipT1, SkipF1, SkipT2, SkipF2,
-  MinArmy, BIB, ChangeCheck, MyLargestArmy, PT,PA,ET,EA : integer;
-  ResetSU, SkipUkraine, SkipOverrides: boolean;
-
-begin
-
-if PProgram(PMe) = 'finisher.trp' then UBufferSet(100, 1);
-
-if UBufferGet(100) = 1 then begin
-  result:= true;
-  
-  { If a territory only has one front then attack with this territory first until my armies = 3 or enemy armies < 3.
-  Don't conquer the territory because the code below will determine that. This code just makes sure that not too
-  many armies get blocked in. }
-  FromTerritory:=0;
-  ToTerritory:=0;
-  MinArmy:=99999;
-  For T:= 1 to 42 do begin
-    iF TIsMine(T) and (TFrontsCount(T) = 1) and (TArmies(T) < MinArmy)
-    and (TArmies(TFront(T,1)) > 2) and (TArmies(T) > 3) then begin
-      FromTerritory:= T; FT:=7;
-      ToTerritory:= TFront(T,1); TT:=7;
-      MinArmy:= TArmies(T);  // get rid of my smallest armies first
-    end;
-  end;
-
-  if FromTerritory = 0 then begin
-    if (COwner(5) = PMe) then SkipUkraine:=false else SkipUkraine:= true;
-    SkipOverrides:= False;
-    ResetSU:= False;
-    FT:=0;		TT:=0;
-    SkipT:=0;		SkipF:=0;	//SkipT = Skip ToTerritory, SkipF = Skip FromTerritory
-    SkipT1:=0;	SkipF1:=0;
-    SkipT2:=0;	SkipF2:=0;
-    MyLargestArmy:=0;
-    for T:=1 to 43 do begin
-      if (T = 22) and SkipUkraine then T:=23;
-      if (T = 26) and SkipUkraine then T:=27;  // SkipUkraine is also for skipping Southern Europe
-      if TIsMine(T) and TIsFront(T) and (TArmies(T) > 1) then begin		// must have at least 2 armies to perform an attack
-
-        { Find my T with the largest Army and attack the bordering territory with the highest territory number }
-        For B:=1 to TFrontsCount(T) do begin
-          TF:= TFront(T,B);  // TF = Territory Front
-          if (TArmies(T) >= MyLargestArmy) and (NOT ( (TF = SkipT) and (T = SkipF) ))	// don't attack the territory SkipT
-          and (NOT ( (TF = SkipT1) and (T = SkipF1) ))						// if T is the territory SkipF
-          and (NOT ( (TF = SkipT2) and (T = SkipF2) ))
-          and ( NOT ((TArmies(T) < 4) and (TArmies(TF) > 1)) ) then begin		         // don't attack with 1 or 2 armies against 2 or more
-            if (  (TF >= ToTerritory) or ( (T = 37) and (B = 1) )  ) and 	           // find the front with the highest
-              (  Not ( (TContinent(T) = 3) and (TContinent(TF) = 3) )  ) then begin  // territory number if the continent
-              FromTerritory:=T;	FT:=1;							                                 // is not Europe
-              ToTerritory:=TF; TT:=1;
-              MyLargestArmy:=TArmies(T);
-            end;
-            if ( (TContinent(T) = 3) and (TContinent(TF) = 3) ) then begin
-              if ToTerritory = 0 then ToTerritory:=99;
-              if (TF < ToTerritory) then begin   // in Europe find the front with the lowest territory number
-                FromTerritory:=T;   FT:=2;   // FT and TT are used for debugging to determine which part of the code
-                ToTerritory:=TF;   TT:=2;    // determined the FromTerritory and the ToTerritory
-                MyLargestArmy:=TArmies(T);
-              end;
-            end;
-
-            { this code will override the above code. If a territory is surrounded by me then I will
-             attack it first, starting with my bordering territory with the fewest armies. }
-            if TFrontsCount(TF) = 0 then begin  // TFrontsCount(TF) is 0 when I am surrounding it
-              FromTerritory:= T;
-              MinArmy:= TArmies(T);
-              For B1:= 1 to TBordersCount(TF) do begin // check to see if I can attack from a border that has fewer armies.
-                BIB:= TBorder(TF, B1);   // BIB = Blocked in Border
-                if (TFrontsCount(BIB) = 1) and (NOT ( (TArmies(BIB) < 4) and (TArmies(TF) > 1) ))
-                and (NOT (TArmies(BIB) = 1)) and (TArmies(BIB) < MinArmy) then begin
-                  FromTerritory:= BIB; FT:=3;
-                  MinArmy:= TArmies(BIB);
-                end;
-              end;
-              ToTerritory:=TF; TT:=3;
-              B:= TFrontsCount(T);	// ends the loop "For B:=1 to TFrontsCount(T)"
-              T:= 43;			          // ends the loop "for T:=1 to 43"
-              SkipOverrides:=True;	// need to end the loops so that TFront(T,B) doesn't change
-            end;
-
-          end;  // ends "TArmies(T) >= MyLargestArmy"
-        end;  // ends "For B:=1 to TFrontsCount(T)"
-
-        { Course correction that needs to check for Skips, must be placed before the block in check so the ToTerritory is right }
-        if (FromTerritory = 27) and (COwner(5) = PMe) and (Not TIsMine(22)) and (Not TIsMine(26))
-        and (NOT ( (SkipT=22) and (SkipF=27) ))
-        and (NOT ( (SkipT1=22) and (SkipF1=27) ))
-        and (NOT ( (SkipT2=22) and (SkipF2=27) ))
-        and (NOT ( (TArmies(27) < 4) and (TArmies(22) > 1) )) then begin ToTerritory:=22; TT:=4; end;
-
-        { Don't attack a territory if it blocks in my armies on another territory
-          only check if the FromTerritory can attack elsewhere }
-        If (T = FromTerritory) and (TFrontsCount(FromTerritory) > 1)
-        and ( (SkipT = 0) or (SkipT1 = 0) or (SkipT2 = 0) ) then begin
-          For T1:= 1 to TBordersCount(ToTerritory) do begin
-            BIB:= TBorder(ToTerritory,T1);		// BIB = Blocked in Border
-            If TIsFront(BIB) and (BIB <> FromTerritory)
-            and (TArmies(BIB) >= TArmies(ToTerritory) + 2) and (TFrontsCount(BIB) = 1) then begin
-              If SkipT1 <> 0 then begin
-                SkipT2:=ToTerritory;
-                SkipF2:=FromTerritory;
-              end;
-              If SkipT <> 0 then begin
-                SkipT1:=ToTerritory;
-                SkipF1:=FromTerritory;
-              end else begin
-                SkipT:=ToTerritory;
-                SkipF:=FromTerritory;
-              end;
-              If (BIB = 22) or (BIB = 26) then SkipUkraine:=False;
-              T:=0;		// restart the loop: For T:= 1 to 43 this time skipping these territories
-              MyLargestArmy:=0;
-              FromTerritory:=0;
-              ToTerritory:=0;
-              SkipOverrides:=False;
-            end;
-          end;
-        end;
-
-      end;  // end if TIsMine
-
-      { Rules for Ukraine and Southern Europe }
-      if (T = 42) and ( (TArmies(FromTerritory) < 5) or (FromTerritory = 0) ) and ( TIsMine(22) or TIsMine(26) ) and (NOT SkipOverrides)
-      and SkipUkraine then ResetSU:= True;
-
-      if (T = 42) and ((FromTerritory = 15) or (FromTerritory = 16))
-      and (ToTerritory = 27) and (TArmies(FromTerritory) < TArmies(26))
-      and SkipUkraine and (COwner(3) = PMe) then ResetSU:= True;
-
-      CAnalysis(3, PT,PA,ET,EA);
-      if (T = 42) and ((FromTerritory = 15) or (FromTerritory = 16)) and (ToTerritory = 27)
-      and ( TArmies(FromTerritory) < TArmies(26)-(ET+EA+PT - (PA-TArmies(26))) ) and (ET+EA+PT - (PA-TArmies(26)) >= 0)
-      and SkipUkraine then ResetSU:= True;
-
-      if ResetSU and SkipUkraine then begin
-        SkipUkraine:= False;	MyLargestArmy:=0;
-        FromTerritory:=0;		ToTerritory:=0;
-        SkipOverrides:=False;	T:= 0;
-        ResetSU:=False;
-      end;
-    if T = 42 then T:=43;
-    end;  // end for T:=1 to 43
-
-    { Override the above calculation if ToTerritory is in South America }
-    if (TContinent(FromTerritory) = 2) and (TContinent(ToTerritory) = 2) then begin
-      if (FromTerritory = 10) and (NOT TIsmine(11)) then ToTerritory:= 11;
-      if (FromTerritory = 12) and (NOT TIsmine(13)) then ToTerritory:= 13;
-      if (FromTerritory = 12) and TIsmine(13) and (NOT TIsMine(11)) then ToTerritory:= 11;
-      if (FromTerritory = 11) and (NOT TIsmine(13)) then ToTerritory:= 13;
-      if (FromTerritory = 11) and TIsmine(13) and (NOT TIsMine(12)) then ToTerritory:= 12;
-      TT:=5;
-    end;
-
-    { Course corrections }
-    if NOT SkipOverrides then begin
-      ChangeCheck:= ToTerritory;
-
-      CAnalysis(4 ,PT,PA,ET,EA);
-      if (FromTerritory = 27) and (COwner(5) = PMe) and (Not TIsMine(16)) and (PA - PT < EA + ET + 2)
-      and (NOT ( (TArmies(27) < 4) and (TArmies(16) > 1) )) then ToTerritory:= 16;	// make sure not to attack with 1 army against 2 or more
-
-      if (FromTerritory = 16) and (Not TIsMine(15)) and (PT = 5)
-      and (NOT ( (TArmies(16) < 4) and (TArmies(15) > 1) )) then ToTerritory:=15;
-
-      if (FromTerritory = 15) and (Not TIsMine(26))
-      and (NOT ( (TArmies(15) < 4) and (TArmies(26) > 1) )) then ToTerritory:=26;
-
-      if (FromTerritory = 16) and (ToTerritory = 19) and TIsMine(17) and (Not TIsMine(18)) and (TArmies(17) > 1)
-      and (NOT ( (TArmies(17) < 4)and (TArmies(18) > 1) )) then begin
-        ToTerritory:= 18;
-        FromTerritory:= 17;  FT:=17;
-      end;
-      if (FromTerritory = 34) and (NOT TIsMine(35))
-      and (NOT ( (TArmies(34) < 4)and (TArmies(35) > 1) )) then ToTerritory:= 35;
-      if (FromTerritory = 35) and (NOT TIsMine(36))
-      and (NOT ( (TArmies(35) < 4) and (TArmies(36) > 1) )) then ToTerritory:= 36;
-      if (Fromterritory = 14) and (Not TIsMine(17))
-      and (NOT ( (TArmies(14) < 4) and (TArmies(17) > 1) )) then ToTerritory:= 17;
-
-      if (FromTerritory = 14) and (Not TIsMine(12))
-      and (NOT ( (TArmies(14) < 4) and (TArmies(12) > 1) )) then ToTerritory:=12;
-      // NA
-      if (FromTerritory = 8) and (Not TIsMine(6))
-      and (NOT ( (TArmies(8) < 4) and (TArmies(6) > 1) )) then ToTerritory:=6;
-      if (FromTerritory = 4) and (Not TIsMine(1))
-      and (NOT ( (TArmies(4) < 4) and (TArmies(1) > 1) )) then ToTerritory:=1;
-      if (FromTerritory = 1) and (Not TIsMine(2))
-      and (NOT ( (TArmies(1) < 4) and (TArmies(2) > 1) )) then ToTerritory:=2;
-      if (FromTerritory = 2) and (Not TIsMine(4))
-      and (NOT ( (TArmies(2) < 4) and (TArmies(4) > 1) )) then ToTerritory:=4;
-
-      if (FromTerritory = 32) and (Not TIsMine(31))
-      and (NOT ( (TArmies(32) < 4) and (TArmies(31) > 1) )) then ToTerritory:=31;
-
-      if TIsMine(22) and TIsBordering(ToTerritory, 22) and (TFrontsCount(22) = 1)
-      and (TArmies(22) > TArmies(FromTerritory)) then begin FromTerritory:= 22; FT:=4; end;
-      if TIsMine(26) and TIsBordering(ToTerritory, 26) and (TFrontsCount(26) = 1)
-      and (TArmies(26) > TArmies(FromTerritory)) then begin FromTerritory:= 26; FT:=5; end;
-
-      if TIsMine(37) and TIsBordering(ToTerritory, 37) and (TFrontsCount(37) = 1)
-      and (TArmies(37) > TArmies(FromTerritory)) then begin FromTerritory:= 37; FT:=6; end;
-
-      if (FromTerritory = 37) and (ToTerritory = 35) and (Not TIsMine(1))
-      and (NOT ( (TArmies(37) < 4) and (TArmies(1) > 1) )) then ToTerritory:= 1;	// don't want armies getting trapped in Asia
-
-      if (FromTerritory = 22) and (Not TIsMine(28))
-      and (NOT ( (TArmies(22) < 4) and (TArmies(28) > 1) )) then begin
-        CAnalysis(5, PT,PA,ET,EA);
-        If (PA < PT + 3) or (PA - PT < ET + EA) then ToTerritory:= 28;
-      end;
-
-      if (FromTerritory = 22) and (Not TIsMine(29))
-      and (NOT ( (TArmies(22) < 4) and (TArmies(29) > 1) )) then begin
-        CAnalysis(5, PT,PA,ET,EA);
-        If (PA < PT + 3) or (PA -PT < ET + EA) then ToTerritory:= 29;	// If there aren't any armies left in Asia to battle
-      end;											                                      // with then battle Asia from Ukraine
-      if ChangeCheck <> ToTerritory then TT:=6;
-    end;  // end course corrections
-  end; // end "if FromTerritory = 0"
-
-end else result:= false; // end "if UBufferGet(100) = 1"
-end;
-
-function FinisherOccupation(FromTerritory, ToTerritory: integer; Var Armies: integer): boolean;
-var
-  PT,PA,ET,EA, PT1,PA1,ET1,EA1, PT2,PA2,ET2,EA2: integer;
-  FT, TT, T, MyBorderingArmies, Count, B: integer;
-
-begin
-  if PProgram(PMe) = 'finisher.trp' then UBufferSet(100, 1);
-
-  if UBufferGet(100) = 1 then begin
-    result:= true;
-    Armies:= TArmies(FromTerritory) - 1;
-
-    { Don't get all your armies stuck in South Africa or Madagascar }
-    if (FromTerritory = 16) and (ToTerritory = 19) and TIsMine(17) and (NOT TIsMine(18)) then Armies:= TArmies(18);
-    if (FromTerritory = 17) and (ToTerritory = 18) and TIsMine(16) and (NOT TIsMine(19)) then Armies:= TArmies(19);
-    if (FromTerritory = 27) and (ToTerritory = 16) and TIsMine(14) then begin
-      Armies:=0;
-      For T:= 17 to 19 do if Not TIsMine(T) then Armies:= Armies + TArmies(T);
-      Armies:= Armies - TArmies(14) + 1;
-    end;
-
-    { For greenland spilt the armies between what NA needs and what Europe needs }
-    CAnalysis(3, PT,PA,ET,EA);
-    CAnalysis(1, PT1,PA1,ET1,EA1);
-    if (FromTerritory = 20) and (ToTerritory = 3) and (Not (COwner(3) = PMe)) then begin
-      if ((EA1+ET1-PA1+PT1) > 0) and ((EA+ET+PT)-(PA-TArmies(FromTerritory)) > 0)
-      then Armies:= round(   Armies * (  (double(EA1)+ET1-PA1+PT1) /
-                         ( (EA1+ET1-PA1+PT1) + ((EA+ET+PT)-(PA-TArmies(FromTerritory))) )  )   );
-    end;
-
-    { If I have enough armies to take Asia but NA needs help then leave some armies behind }
-    if (FromTerritory = 37) and (ToTerritory = 36) and (PA - PT > ET + EA) and (PA1 - PT1 < EA1 + ET1)
-    and (Not TIsMine(1)) then begin
-      Armies:= ET + EA;
-    end;
-
-    { Split armies in Ukraine and Southern Europe between Europe and Asia }
-    if (FromTerritory = 22) or (FromTerritory = 26) then begin
-      CAnalysis(3, PT,PA,ET,EA);
-      CAnalysis(5, PT1,PA1,ET1,EA1);
-      CAnalysis(6, PT2,PA2,ET2,EA2);
-
-      if (ToTerritory > 26) and ((EA1+ET1-PA1+PT1) + (EA2-PA2+PT2+ET2) > 0) and ((EA+ET+PT)-(PA-TArmies(FromTerritory)) > 0)
-      then begin
-        Armies:= round(   Armies * (  ((double(EA1)+ET1-PA1+PT1) + (EA2-PA2+PT2+ET2))/
-                    ( (EA1+ET1-PA1+PT1) + (EA2-PA2+PT2+ET2) + ((EA+ET+PT)-(PA-TArmies(FromTerritory))) )  )   );
-      end;
-
-      if (ToTerritory > 26) and ((EA1+ET1-PA1+PT1) + (EA2+ET2-PA2+PT2) > 0) and ((EA+ET+PT)-(PA-TArmies(FromTerritory)) <= 0)
-      then begin
-        Armies:=TArmies(FromTerritory)-1;
-      end;
-
-      if (ToTerritory < 27) and ((EA1+ET1-PA1+PT1) + (EA2+ET2-PA2+PT2) > 0) and ( (EA+ET+PT)-(PA-TArmies(FromTerritory)) > 0 )
-      then begin
-        Armies:= round(   Armies * (  (double(EA)+ET+PT-(PA-TArmies(FromTerritory)))/
-                        ( (EA1+ET1-PA1+PT1) + (EA+ET+PT-(PA-TArmies(FromTerritory))) + (EA2+ET2-PA2+PT2) )  )   );
-      end;
-
-      if (ToTerritory < 27) and ( (EA1+ET1-PA1+PT1) + (EA2+ET2-PA2+PT2) <= 0 ) and (EA+ET-PA+PT > 0) then begin
-        Armies:=TArmies(FromTerritory)-1;
-      end;
-    end;
-
-    { Only send in enough armies to Australia to conquer it unless Australia is all that is left }
-    CAnalysis(6, PT,PA,ET,EA);
-    If (FromTerritory = 31) and (ToTerritory = 39) and (PTerritoriesCount(PMe) < 39)
-    then Armies:= ET + EA;
-    If (FromTerritory = 32) and (ToTerritory = 31) and (PTerritoriesCount(PMe) < 38)
-    then Armies:= ET + EA + 1;
-    If (FromTerritory = 30) and (ToTerritory = 31) and (PTerritoriesCount(PMe) < 38)
-    then Armies:= ET + EA + 1;
-
-    { Check to see how many armies to send into SA }
-    if (FromTerritory = 14) and (ToTerritory = 12) then begin
-      CAnalysis(2, PT,PA,ET,EA);
-      if TIsMine(9) and ( (Not TIsMine(8)) or (Not TIsMine(7)) ) then begin
-        Armies:=0;
-        For T:= 7 to 8 do If Not TIsMine(T) then Armies:=Armies + TArmies(T);
-        Armies:= Armies + (ET+EA)-(PA-PT);
-      end;
-      if TIsMine(9) and TIsMine(8) and TIsMine(7) then Armies:= PA-PT+ET+EA;
-    end;
-    if (FromTerritory = 9) and (ToTerritory = 10) then begin
-      CAnalysis(2, PT,PA,ET,EA);
-      if TIsMine(14) then Armies:= (ET+EA)-(PA-PT);
-    end;
-
-    if (TFrontsCount(ToTerritory) = 0) then Armies:=0;
-
-    { Only send armies to a dead end with enough armies to take out the end territory }
-    TStrongestFront(ToTerritory, ET, EA);
-    if (TFrontsCount(FromTerritory) > 0) and (TFrontsCount(ToTerritory) = 1) and (TFrontsCount(ET) = 0)
-    and (Not (TIsBordering(FromTerritory, ET))) then begin
-      For B:= 1 to TBordersCount(ET) do MyBorderingArmies:= MyBorderingArmies + TArmies(TBorder(ET, B))-1;
-      If MyBorderingArmies < EA + 2 then Armies:= EA - MyBorderingArmies + 2 else Armies:=0;
-    end;
-
-    { If both territories are blocked in then determine which T is closer to a front }
-    if (TFrontsCount(ToTerritory) = 0) and (TFrontsCount(FromTerritory) = 0) then begin
-      count:= 0;
-      TT:= ToTerritory;
-      FT:= FromTerritory;
-      repeat
-        Count:= Count + 1;
-        TT:= TPathToFront(TT);
-        FT:= TPathToFront(FT);
-      until TIsFront(FT) or TIsFront(TT) or (Count = 14);
-      if TIsFront(FT) and (Not TIsFront(TT)) then Armies:= 0 else Armies:=TArmies(FromTerritory)-1;
-    end;
-
-    if Armies > TArmies(FromTerritory)-1 then Armies:=TArmies(FromTerritory)-1;
-  end else result:= false;
-end;
-
-function FinisherFortification(var FromTerritory, ToTerritory, Armies: integer): boolean;
-var
-  TargetT, MaxArmy, MaxArmy1, MaxPressure, SkipT, SkipT1, SkipT2, X, B1, T1, PL,
-  B, T, TotalEnemyArmies, P, MaxPArmiesCount: integer;
-  Abort: boolean;
-  TM: double;
-  
-begin
-  if PProgram(PMe) = 'finisher.trp' then UBufferSet(100, 1);
-
-  { Check to see if I have enough armies to switch to Finisher }
-  if UBufferGet(100) = 0 then begin
-
-    TM:=1.0;	// #*# Threshold Multiplier, increase this number in the tenth's place if Finisher isn't successful often enough
-    Abort:=False;
-    TotalEnemyArmies:=0;
-    MaxPArmiesCount:=0;	// The number of armies that my strongest enemy has
-    for P:= 1 to 10 do begin
-      if (PAlive(P)) and (P<>PMe) then begin
-        if PArmiesCount(P) >= MaxPArmiesCount then begin
-          if (NOT (PArmiesCount(P) = MaxPArmiesCount)) then Abort:=False;	// Only Abort if strongest enemy has > 2 cards
-          MaxPArmiesCount:= PArmiesCount(P);
-          if (PCardCount(P) > 2) and (PCardTurnInValue(P) > 25) then Abort:= True;
-        end;
-        if PHuman(P) and (PCardCount(P) > 2) and (PCardTurnInValue(P) > 20) then Abort:= True;
-        if PHuman(P) then TM:= TM + 0.1;
-        if PCardCount(P) > 2 then TM:= TM + (double(PCardTurnInValue(P))/200);	// decrease the denominator's value if you want to play more conservatively
-        TotalEnemyArmies:=TotalEnemyArmies + PArmiesCount(p);
-      end;
-    end;
-
-    { if I have a lot of cards or a lot of armies then lower the threshold multiplier }
-    if (PCardCount(PMe) > 2) and (SAlivePlayersCount > 4) and (PCardTurnInValue(P) > 20)
-    then TM:= TM - (double(PCardTurnInValue(PMe))/80)
-    else if (PCardCount(PMe) > 3) and (SAlivePlayersCount > 3) and (PCardTurnInValue(P) > 20)
-    then TM:= TM - (double(PCardTurnInValue(PMe))/100);
-
-    { if I have a lot of armies then lower TM because on average when attacking 3 dice against 2
-      I'll take out 7 enemy armies for every 6 I lose, so I need less armies to win }
-    if (PArmiesCount(PMe) > 200) and (PArmiesCount(PMe) < 1000) then TM:= TM - double(PArmiesCount(PMe))/2000;
-
-    if (UBufferGet(100) <> 1) then begin
-      if (PArmiesCount(PMe) > trunc(TotalEnemyArmies * TM)) and (NOT Abort) then UBufferSet(100, 1);
-      if (PArmiesCount(PMe) > trunc(TotalEnemyArmies*1.4)) then UBufferSet(100, 1);		// If TM > 1.4 then switch to Finisher even if Abort = true
-    end;
-  end;
-
-if UBufferGet(100) = 1 then begin
-  result:= true;
-
-  { Find the largest army that can be moved to a front within one or two fortifications
-    priority is given to an army that can be moved to a front in one move }
-  SkipT:=0;		// these variables are used to skip territories whose armies can't be moved to a front in 2 moves
-  SkipT1:=0;	// and when those armies are equal to the armies on another blocked in territory
-  SkipT2:=0;
-  MaxArmy1:= 99999;
-  X:= 0;
-  Repeat
-    X:= X + 1
-    
-    { Find the largest army that is blocked in }
-    MaxArmy:=0;
-    for T:= 1 to 42 do begin
-      if (SkipT=T) or (SkipT1=T) or (SkipT2=T) then T:= T + 1;
-      if TIsMine(T) and (not TIsFront(T)) then begin
-	      if (TArmies(T) > MaxArmy) and (TArmies(T) > 1) and (TArmies(T) <= MaxArmy1) then begin
-	        FromTerritory:= T;
-	        MaxArmy:= TArmies(T);
-	      end;
-      end;
-    end;
-
-    { Move the army to FromTerritory's border with the greatest pressure }
-    MaxPressure:=0;
-    for B:= 1 to (TBordersCount(FromTerritory)) do begin
-      T:=TBorder(FromTerritory, B);
-      if TIsFront(T) then begin
-        if TPressure(T) > MaxPressure then begin
-	        ToTerritory:= T;
-	        MaxPressure:=TPressure(T);
-	      end;
-      end;
-    end;
-
-    { If T has no borders that are front then check T's border's borders for a front }
-    if ToTerritory=0 then begin
-      for B:= 1 to (TBordersCount(FromTerritory)) do begin
-        T:=TBorder(FromTerritory, B);
-        if (TIsMine(T) and (not TIsFront(T))) then begin	// the not TIsFront part probably isn't necessary
-          for B1:= 1 to (TBordersCount(T)) do begin
-            T1:=TBorder(T, B1);
-            if TIsFront(T1) then ToTerritory:= T;
-          end;
-        end;
-      end;
-    end;
-
-    { If we still haven't found a ToTerritory then Skip FromTerritory in the next go through the loop }
-    if ToTerritory=0 then begin
-      if MaxArmy=MaxArmy1 then begin
-        if (SkipT1>0) then SkipT2:= FromTerritory;	// If SkipT1 is already used then use SkipT2
-        if (SkipT>0) and (SkipT1 = 0) then SkipT1:= FromTerritory;	// If SkipT is already used then use SkipT1
-	  if SkipT = 0 then SkipT:=FromTerritory;
-      end;
-      MaxArmy1:= MaxArmy;
-    end;
-    if ToTerritory <> 0 then Armies:= TArmies(FromTerritory)-1;
-  Until (ToTerritory <> 0) or (X > 6);  // try 7 times to find a suitable fortification
-
-  { if the above code failed to find a fortification then find the largest blocked in army and move it toward
-    the largest enemy army }
-  if ToTerritory = 0 then begin
-    MaxArmy:=0;
-    for T:= 1 to 42 do begin   // Find my largest army
-      if TIsMine(T) and (not TIsFront(T)) then begin
-	      if (TArmies(T) > MaxArmy) and (TArmies(T) > 1) then begin
-	        FromTerritory:= T;
-	        MaxArmy:= TArmies(T);
-	      end;
-      end;
-    end;
-
-    MaxArmy:=0;
-    for T:= 1 to 42 do begin    // Find the largest enemy army
-      if (not TIsMine(T)) and (TArmies(T) > MaxArmy) then begin
-        TargetT:= T;
-        MaxArmy:= TArmies(T);
-      end;
-    end;
-
-    TShortestPath(FromTerritory, TargetT, ToTerritory, PL);
-    Armies:= TArmies(FromTerritory) - 1;
-  end;
-end else result:= false; // ends "if UBufferGet(100) = 1"
-
-end;
-
-procedure Assignment(var ToTerritory: integer);
-// var
-begin
-  if PProgram(PMe) = 'finisher.trp' then FinisherAssignment(ToTerritory) else begin
-    // paste your code here
-    
-  end; // end "if PProgram(PMe) = ..."
-end; // end procedure Assignment
-
-procedure Placement(var ToTerritory: integer);
-// var
-begin
-  if not FinisherPlacement(ToTerritory) then begin
-    // paste your code here
-    
-  end; // end "if not FinisherPlacement..."
-end; // end procedure Placement
-
-procedure Attack(var FromTerritory, ToTerritory: integer);
-// var
-begin
-  if not FinisherAttack(FromTerritory, ToTerritory) then begin
-    // paste your code here
-    
-  end; // end "if not FinisherAttack..."
-end; // end procedure Attack
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-//var
-begin
-  if not FinisherOccupation(FromTerritory, ToTerritory, Armies) then begin
-    // paste your code here
-    
-  end; // end "if not FinisherOccupation..."
-end; // end procedure Occupation
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-// var
-begin
-  if not FinisherFortification(FromTerritory, ToTerritory, Armies) then begin
-    // paste your code here
-    
-  end; // end "if not FinisherFortification..."
-end; // end procedure Fortification
-
-begin
-end.
\ No newline at end of file
diff --git a/Players/frank+.trp b/Players/frank+.trp
deleted file mode 100644
index 3edd5e8..0000000
--- a/Players/frank+.trp
+++ /dev/null
@@ -1,7751 +0,0 @@
-{
-Program: Frank+
-
-Author: Nathan Scarbrough
-Email: Nathan.Scarbrough@gmail.com
-
-Description: This program is the same as Frank except I added Vexer's kill player code so that Frank would be able to recognize when human players are weak and be able to target and destroy them.
-The kill player code also helps Frank end the game more quickly and efficiently when he's winning.
-
-Take a look at Frank.trp's description for more details.
-
-Credit to Heitor Mansel for the original Frank
-
-History: Version 2.0 March 2010
-}
-
-// available UBuffers, 1-5, 18, 22, 23, 31, 48, 51-100 except 52, 56, 61, 63, 73, 74, 98, 99 which are used by the kill player code
-
-procedure CONTROL_PANEL;
-  var
-    T: Integer;
-    KillBubble, Cooperative, TrySouthAmericaFirst, PutApart: boolean;
-  
-Begin
-  //##################### FRANK'S CONTROL PANEL ################################
-    
-  KillBubble:=False; //Bubble feature when needed
-  
-  Cooperative:=False; 
-  //No Bubble attacks if continent owner has the same program name.
-  
-  TrySouthAmericaFirst:=False;  //If False try Australia first
-
-  PutApart:=True;
-  //In Assignment, try not put armies in the same continent (SA and Au).
-
-  //#############################################################################
-
-  For T:=1 to 10 do
-    if pactive(T) then if ( pos('australian', lowercase(PProgram(T))) > 0 ) and (SPlayersCount=3) then
-      Begin
-        TrySouthAmericaFirst:=True;
-        UBufferset(32, 1);
-        UBufferSet(10,-T);
-    end;
-
-  If SPlayersCount<=4 then KillBubble:=True;
-  If Cooperative then UBufferSet(29, 1) else UBufferSet(29, 0);
-  If KillBubble then UBufferSet(33, 1) else UBufferSet(33, 0);
-  
-  UBufferSet(30, 1); //First placement 
-  If TrySouthAmericaFirst then UBufferSet(32,1) else UBufferset(32,0); //For placement do not put in Australia if a territory in S.A.
-  UBufferSet(39, SPlayersCount);  //Set the initial number of players
-  UBufferSet(25,0); //Not in Bubble mode
-  UBufferSet(15, 0); //If 0 then No Messages
-  If SPlayersCount>2 then UBufferSet(38, 1) else UBufferSet(38, 0);
-  
-  UBufferSet(14,1); //Do not run the Control Panel again
-  
-end; //############# END FRANK'S CONTROL PANEL ###################################
-
-{_________________________ UMessage/Ulog/UBuffer ______________________________}
-
-procedure m(s: string);  //
-begin
-  ULog('message: ' + s);  // duplicates all messages to the log
-  case UDialog(s,'Continue;SnapShot;Stop;Both') of
-    1: ;
-    2: UTakeSnapShot(s);
-    3: begin
-      UAbortGame;
-      exit;
-    end;
-    4: begin
-      UTakeSnapShot(s);
-      UAbortGame;
-      exit;
-    end;
-  end;
-end;
-
-
-function bg(x: integer): integer;
-begin result:= trunc(UBufferGet(x)); end;
-                                              // use these for integer storage
-procedure bs(x, y: integer);
-begin UBufferSet(x, y); end;
-{______________________________________________________________________________}
-
-{---------------------------------Kill Player Code---------------------------------------------------}
-                                           // by Nathan Scarbrough (adapted from Vexer.trp)
-                                           // uses UBuffers 52, 56, 63, 73, 74, 98, 99
-
-
-function PTC: integer; begin result:= PTerritoriesCount(PMe); end;
-
-Function GameHasNoHumans: boolean;
-var
-  P: integer;
-begin
-  result:= true;
-  for P:= 1 to 10 do begin
-    if PHuman(P) and PAlive(P) then result:= false;
-  end;
-end;
-
-function GameHasOneHuman(var P: integer): boolean;
-Var Human, C: integer;
-Begin
-  C:= 0;
-  For P:= 1 to 10 do begin
-    If PHuman(P) and PAlive(P)then begin
-      C:= C + 1;
-      Human:= P;
-    end;
-  end;
-  if C = 1 then begin
-    result:= true;
-    P:= Human;
-  end else begin
-    result:= false;
-    P:= 0;
-  end;
-end;
-
-procedure ArmySort(var Army: array of integer);
-var
-  TC, x, x1, temp, T: integer;
-begin
-  TC:= PTerritoriesCount(Pme);
-  SetArrayLength(Army, 43);
-  For T:= 1 to 42 do Army[T]:= 0;
-  x:= 0;
-  For T:= 1 to 42 do begin
-    if TIsMine(T) then begin
-      x:= x + 1;
-      Army[x]:= T;
-    end;
-  end;
-  For x:= 1 to TC - 1 do begin
-    For x1:= x + 1 to TC do begin
-      if TArmies(Army[x1]) > TArmies(Army[x]) then begin
-        temp:= Army[x];
-        Army[x]:= Army[x1];
-        Army[x1]:= temp;
-      end;
-    end;
-  end;
-end;
-
-Function BestFT(TT: integer): integer;
-var
-  MaxArmy, B, BT: integer;
-Begin
-  Result:= 0;
-  MaxArmy:= 0;
-  For B:= 1 to TBordersCount(TT) do begin
-    BT:= TBorder(TT, B);
-    if TIsMine(BT) and (TArmies(BT) > MaxArmy) then begin
-      MaxArmy:= TArmies(BT);
-      Result:= BT;
-    end;
-  end;
-end;
-
-Function TsAreConnected(P, T, T1: integer): boolean;
-Var
-  X, BT, C, B: integer;
-  TOwnerIsPlayerP, Checked: array of boolean;
-begin
-  SetArrayLength(Checked, 43);
-  For x:= 1 to 42 do Checked[x]:= False;
-  SetArrayLength(TOwnerIsPlayerP, 43);
-  For x:= 1 to 42 do TOwnerIsPlayerP[x]:= False;
-
-  Result:= False;
-  TOwnerIsPlayerP[T]:= True;
-  if (  not ( TIsMine(T1) and TIsMine(T) )  ) and TIsBordering(T, T1) then Result:= True;
-  Repeat
-    if TOwnerIsPlayerP[T] and (not Checked[T]) then begin
-      C:= 0;
-      For B:= 1 to TBordersCount(T) do begin
-        BT:= TBorder(T, B);
-        if ( (TOwner(BT) = P) or ((TOwner(BT) <> PMe) and (P = 0)) ) and (not TOwnerIsPlayerP[BT]) then begin
-          C:= C + 1;
-          TOwnerIsPlayerP[BT]:= True;
-          if TIsBordering(BT, T1) then begin
-            Result:= True;
-            exit;
-          end;
-        end;
-      end;
-      Checked[T]:= True;
-      if C > 0 then T:= 0;
-    end;
-    T:= T + 1;
-  Until (T > 42);
-end;
-
-Procedure AddConnectedTsArmies(T: integer; var CTArmies, Ts: Integer);
-Var
-  P, X, BT, C, B: integer;
-  TOwnerIsPlayerP, Checked: array of boolean;
-begin
-  SetArrayLength(Checked, 43);
-  For x:= 1 to 42 do Checked[x]:= False;
-  SetArrayLength(TOwnerIsPlayerP, 43);
-  For x:= 1 to 42 do TOwnerIsPlayerP[x]:= False;
-
-  P:= TOwner(T);
-  TOwnerIsPlayerP[T]:= True;
-  CTArmies:= 0;
-  Ts:= 0;
-  Repeat
-    if TOwnerIsPlayerP[T] and (not Checked[T]) then begin
-      C:= 0;
-      For B:= 1 to TBordersCount(T) do begin
-        BT:= TBorder(T, B);
-        if (TOwner(BT) = P) and (not TOwnerIsPlayerP[BT]) then begin
-          C:= C + 1;
-          TOwnerIsPlayerP[BT]:= True;
-        end;
-      end;
-      Checked[T]:= True;
-      CTArmies:= CTArmies + TArmies(T);
-      Ts:= Ts + 1;
-      if C > 0 then T:= 0;
-    end;
-    T:= T + 1;
-  Until (T > 42);
-end;
-
-procedure RankSort(var Rank: array of integer);
-var
-  temp, APC, x, x1, P: integer;
-begin
-  x:= 0;
-  SetArrayLength(Rank, 11);
-  For P:= 1 to 10 do Rank[P]:= 0;
-  For P:= 1 to 10 do begin
-    if (PArmiesCount(P) > 0) then begin
-      x:= x + 1;
-      Rank[x]:= P;
-    end;
-  end;
-  APC:= SAlivePlayersCount;
-  For x:= 1 to APC - 1 do begin
-    For x1:= x + 1 to APC do begin
-      if PArmiesCount(Rank[x1]) > PArmiesCount(Rank[x]) then begin
-        temp:= Rank[x];
-        Rank[x]:= Rank[x1];
-        Rank[x1]:= temp;
-      end;
-    end;
-  end;
-end;
-
-Procedure KillPAttack(P, FT: integer; var TT: integer);
-Var
-  Distance1, Distance2, C1, tempTT, Total2, ST, B1, Total, X, BT, C, B, T: integer;
-  TOwnerIsPlayerP, Checked: array of boolean;
-begin
-
-  SetArrayLength(Checked, 43);
-  SetArrayLength(TOwnerIsPlayerP, 43);
-
-  TT:= 0;
-  For B1:= 1 to TBordersCount(FT) do begin
-
-    For x:= 1 to 42 do Checked[x]:= False;
-    For x:= 1 to 42 do TOwnerIsPlayerP[x]:= False;
-
-    T:= TBorder(FT, B1);
-    if (Not ((TArmies(FT) < 4) and (TArmies(T) > 1))) then begin
-      if (  (TOwner(T) = P) or ( (P = 0) and (TOwner(T) <> PMe) )  ) then begin
-        C:= 0;
-        For B:= 1 to TBordersCount(T) do
-         if (  (TOwner(TBorder(T, B)) = P) or ( (P = 0) and (TOwner(TBorder(T, B)) <> PMe) )  )
-          then C:= C + 1;
-        if (C = 0) and (TArmies(FT) > TArmies(T)) then begin
-          TT:= T;
-          exit;
-        end;
-
-        tempTT:= T;
-        TOwnerIsPlayerP[T]:= True;
-        Total:= 0;
-        Repeat
-          if TOwnerIsPlayerP[T] and (not Checked[T]) then begin
-            C:= 0;
-            For B:= 1 to TBordersCount(T) do begin
-              BT:= TBorder(T, B);
-              if (  (TOwner(BT) = P) or ( (P = 0) and (TOwner(BT) <> PMe) )  )
-               and (not TOwnerIsPlayerP[BT]) then begin
-                C:= C + 1;
-                TOwnerIsPlayerP[BT]:= True;
-              end;
-            end;
-            Checked[T]:= True;
-            Total:= Total + 1;
-            ST:= T;
-            if C > 0 then T:= 0;
-          end;
-          T:= T + 1;
-        Until (T > 42);
-
-        For x:= 1 to 42 do Checked[x]:= False;
-        For x:= 1 to 42 do TOwnerIsPlayerP[x]:= False;
-
-        T:= ST;
-        TOwnerIsPlayerP[T]:= True;
-        Total2:= 0;
-        Repeat
-          if TOwnerIsPlayerP[T] and (not Checked[T]) then begin
-            C:= 0;
-            For B:= 1 to TBordersCount(T) do begin
-              BT:= TBorder(T, B);
-              if (  (TOwner(BT) = P) or ( (P = 0) and (TOwner(BT) <> PMe) )  )
-               and (not TOwnerIsPlayerP[BT]) and (not (BT = tempTT)) then begin
-                C:= C + 1;
-                TOwnerIsPlayerP[BT]:= True;
-              end;
-            end;
-            Checked[T]:= True;
-            Total2:= Total2 + 1;
-            if C > 0 then T:= 0;
-          end;
-          T:= T + 1;
-        Until (T > 42);
-
-        if Total2 = Total - 1 then begin
-          if TT = 0 then TT:= TempTT else begin
-            C:= 0; C1:= 0;
-            For B:= 1 to TBordersCount(TT) do
-             if (TOwner(TBorder(TT, B)) = P) or ( (P = 0) and (TOwner(TBorder(TT, B)) <> PMe) ) then C:= C + 1;
-            For B:= 1 to TBordersCount(TempTT) do
-             if (TOwner(TBorder(TempTT, B)) = P) or ( (P = 0) and (TOwner(TBorder(TempTT, B)) <> PMe) ) then C1:= C1 + 1;
-            if C1 < C then TT:= TempTT;
-            If (C = 1) and (C1 = 1) and TIsBordering(TT, TempTT) then begin
-              Distance1:= 0;
-              Distance2:= 0;
-              For T:= 1 to 42 do begin
-                if (TOwner(T) <> Pme) and (not ((T = TT) or (T = TempTT)) ) then begin
-                  if (TDistance(T, TT) < Distance1) or (Distance1 = 0) then Distance1:= TDistance(T, TT);
-                  if (TDistance(T, TempTT) < Distance2) or (Distance2 = 0) then Distance2:= TDistance(T, TempTT);
-                end;
-              end;
-              if Distance2 > Distance1 then TT:= TempTT;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-end;
-
-procedure KillPlayer_Placement(var ToTerritory: integer);
-var
-  BFT, Priority, aMinCost, P, WP, Extra2, Extra, BT1, Total, B, BT, Y, CTArmies, Ts,
-  MyArmies, TT, PL, EA, Cost, T, minPressure, x: integer;
-
-  MinCost, Rank, Army: array of integer;
-  HasEnough: array of boolean;
-  pathexists, go: boolean;
-begin
-  setarraylength(HasEnough, 43);
-  setarraylength(MinCost, 43);
-
-  ToTerritory:=0;
-  ArmySort(Army);
-  RankSort(Rank);
-
-  if Rank[SAlivePlayersCount] <> PMe then WP:= Rank[SAlivePlayersCount] else WP:=0;
-  if GameHasOneHuman(P) then WP:= P;
-  bs(63, WP);
-
-
-  if (bg(52) > 0) and (bg(56) > 0) then ToTerritory:= bg(52) else begin
-    if SAlivePlayersCount > 2 then begin
-      MyArmies:= 0;
-      // need to take into account two non adjoining ts
-      For T:= 1 to 42 do begin
-        if (TOwner(T) = WP) and (TFrontsCount(T) = 0) then begin // Enemy T is surrounded by me
-          For B:= 1 to TBordersCount(T) do begin
-            BT:= TBorder(T, B);
-            MyArmies:= MyArmies + TArmies(BT) - 1;
-          end;
-          BFT:= BestFT(T);
-          if MyArmies < TPressure(BFT) + TFrontsCount(BFT) + 3 then begin
-            ToTerritory:= BFT;
-            exit;
-          end;
-        end;
-      end;
-
-      aMinCost:= 999999999;
-      Priority:= 0;
-      For x:= 1 to PTC do begin
-        MinCost[Army[x]]:= 999999999;
-        For T:= 1 to 42 do begin
-         if TOwner(T) = WP then begin
-           Cost:= 0;
-           PathExists:= False;
-           if TWeakestPath(Army[x], T, TT, PL, EA) then begin
-             PathExists:= True;
-             Cost:= PL + EA - TArmies(Army[x]);
-             if (Cost < MinCost[Army[x]]) then MinCost[Army[x]]:= Cost;
-           end;
-         end;
-        end;
-        if PathExists then begin
-          if MinCost[Army[x]] < aMinCost then begin
-            aMinCost:= MinCost[Army[x]];
-            Priority:= x;
-          end;
-        end;
-      end;
-      if priority > 0 then begin
-        Cost:= aMinCost + TArmies(Army[Priority]);
-        if TArmies(Army[Priority]) < Cost + PArmiesCount(WP) + PTerritoriesCount(WP) then begin
-          ToTerritory:= Army[Priority];
-          exit;
-        end;
-      end;
-    end;
-
-    bs(52, 0);
-    Extra2:= bg(56);
-    for x:= 1 to 42 do HasEnough[x]:= False;
-    Repeat
-      for Y:= 1 to PTC do begin
-        If TIsFront(Army[y]) then begin
-          Total:= 0;
-          go:= True;
-          if Y > 1 then for x:= Y-1 downto 1 do
-           if HasEnough[Army[x]] then if TsAreConnected(0, Army[y], Army[x]) then go:= False;
-          if go then begin
-            Total:= 0;
-            For B:= 1 to TFrontsCount(Army[y]) do begin
-              BT:= TFront(Army[y], B);
-              go:= True;
-              if B > 1 then for x:= B-1 downto 1 do begin
-                BT1:= TFront(Army[y], x);
-                if TsAreConnected(0, BT, BT1) then go:= False;
-              end;
-              If go then begin
-                AddConnectedTsArmies(BT, CTArmies, Ts);
-                Total:= Total + CTArmies + Ts;
-              end;
-            end;
-            Extra:= Ts div 3;
-            if Extra < 2 then Extra:= 2;
-            if TArmies(Army[y]) < Total + Extra + Extra2 then begin
-              If ToTerritory = 0 then begin
-                ToTerritory:= Army[y];
-                minPressure:= TPressure(Army[y]);
-              end else begin
-                if (TPressure(Army[y]) < minPressure) then begin
-                  minPressure:= TPressure(Army[y]);
-                  ToTerritory:= Army[y];
-                end;
-              end;
-            end else HasEnough[Army[y]]:= True;
-          end;
-        end;
-      end;
-      If ToTerritory = 0 then begin
-        Extra2:= Extra2 + 4;
-        bs(56, Extra2);
-      end;
-    Until ToTerritory > 0;
-  end;
-
-  if Extra2 >= 12 then bs(52, ToTerritory);
-  if PNewArmies(PMe) = 1 then begin
-    bs(52, 0);
-    bs(56, 0);
-  end;
-end;
-
-procedure KillPlayer_Attack(var FromTerritory, ToTerritory: integer);
-var
-  loop, WP, P, B, BT, PL, x, Cost, TT, EA,
-  MaxCost, C, Armies, Y, MinCost, MinDiff: integer;
-
-  Rank, Army: Array of integer;
-
-begin
-  // the occupation routine sometimes determines where the next attack should be and stores it in buffer 73
-  if (bg(73) > 0) and (TArmies(bg(73)) > 1) then begin
-    FromTerritory:= bg(73);
-    KillPAttack(bg(74), FromTerritory, ToTerritory);
-    if ToTerritory > 0 then exit else begin
-      FromTerritory:= 0;
-      bs(73, 0);
-    end;
-  end;
-
-  RankSort(Rank);
-  ArmySort(Army);
-  if Rank[SAlivePlayersCount] <> PMe then WP:= Rank[SAlivePlayersCount] else WP:=0;
-  if GameHasOneHuman(P) then WP:= P;
-  bs(63, WP);
-  MinCost:= 0;
-  MaxCost:= PArmiesCount(PMe) div 2;
-
-  loop:= 0;
-  Repeat
-  For y:= 1 to PTC do begin
-    if TIsFront(Army[y]) and (TArmies(Army[y]) > 1) then begin
-      C:= 0;
-      For B:= 1 to TBordersCount(Army[y]) do begin
-        BT:= TBorder(Army[y], B);
-        If (TOwner(BT) = WP) or ( (WP = 0) and (not TIsMine(BT)) ) then begin
-          C:= C + 1;
-          If C = 1 then TT:= BT else TT:= 0;
-        end;
-      end;
-      If C = 1 then begin
-        if (  not ( (TArmies(TT) > 1) and (TArmies(BestFT(TT)) < 4) )  ) then begin
-          ToTerritory:= TT;
-          FromTerritory:= BestFT(ToTerritory);
-          exit;
-        end;
-      end else if c > 1 then begin
-        KillPAttack(WP, Army[y], TT);
-        If TT > 0 then begin
-          ToTerritory:= TT;
-          FromTerritory:= Army[y];
-          exit;
-        end;
-      end;
-      If C > 1 then begin
-        MinDiff:= 0;
-        For B:= 1 to TBordersCount(Army[y]) do begin
-          BT:= TBorder(Army[y], B);
-          If (TOwner(BT) = WP) or ( (WP = 0) and (not TIsMine(BT)) )
-           and (not ( (TArmies(BT) > 1) and (TArmies(BestFT(BT)) < 4) )) then begin
-            if (trunc(abs(Army[y] - BT)) < MinDiff) or (MinDiff = 0) then begin
-              MinDiff:= trunc(abs(Army[y] - BT));
-              ToTerritory:= BT;
-              FromTerritory:= BestFT(ToTerritory);
-            end;
-          end;
-        end;
-      end;
-    end;
-
-    if FromTerritory = 0 then begin
-      For x:= 1 to 42 do begin
-        IF TOwner(x) = WP then begin
-          If TWeakestPath(Army[y], x, TT, PL, EA) then begin
-            Armies:= TArmies(Army[y]);
-            Cost:= EA + PL;
-            if ( (Cost < MinCost) or (MinCost = 0) ) and (Armies > TArmies(TT))
-             and (Armies > 3) and (Cost < MaxCost) then begin
-              MinCost:= Cost;
-              ToTerritory:= TT;
-              FromTerritory:= BestFT(ToTerritory);
-            end;
-          end;
-        end;
-      end;
-    end;
-
-  end;
-  loop:= loop + 1;
-  if (ToTerritory = 0) and (bg(99) > 0) then WP:= 0;
-  Until (ToTerritory > 0) or (loop > 1);
-end;
-
-procedure KillPlayer_Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  c, TTtotal, FTtotal, T, P, BothTotal, FTA: integer;
-  TsConnTT, TsConnFT, TsConnBoth: boolean;
-  Army: array of integer;
-begin
-  bs(73, 0);
-  P:= 0;
-  FTA:= TArmies(FromTerritory) - 1;
-  Armies:=FTA;  // Default is to occupy all
-  ArmySort(Army);
-
-  TTtotal:= 0;
-  FTtotal:= 0;
-  BothTotal:= 0;
-  For T:= 1 to 42 do begin
-    if ( ((P = 0) and (TOwner(T) <> PMe)) or (TOwner(T) = P) ) then begin
-      TsConnTT:= TsAreConnected(P, T, ToTerritory);
-      TsConnFT:= TsAreConnected(P, T, FromTerritory);
-      if TsConnTT and TsConnFT then TsConnBoth:= True else TsConnBoth:= False;
-      if TsConnBoth then BothTotal:= BothTotal + TArmies(T) + 1;
-      if TsConnTT and (not TsConnFT) then TTtotal:= TTtotal + TArmies(T) + 1;
-      if TsConnFT and (not TsConnTT) then FTtotal:= FTtotal + TArmies(T) + 1;
-    end;
-  end;
-  TTtotal:= TTtotal + 1;  // make sure TTtotal has enough so add an extra army
-  if TTtotal > FTA then Armies:= FTA;
-  if (TTtotal < FTA) and (FTtotal >= FTA-TTtotal) then Armies:= TTtotal;
-  if (TTtotal < FTA) and (FTtotal < FTA-TTtotal) then Armies:= FTA - FTtotal;
-  if (TTtotal = 0) and (FTtotal = 0) then Armies:= FTA;
-  if (TTtotal = 0) and (FTtotal <> 0) then Armies:= 0;
-  if (TTtotal = 0) and (FTtotal <> 0) and (BothTotal <> 0) then begin
-    if (FTtotal < BothTotal) then Armies:= FTA - FTtotal;
-    if (FTtotal > BothTotal) then Armies:= BothTotal;
-    if Armies > FTA then Armies:= FTA;
-    bs(73, ToTerritory);
-    bs(74, P);
-  end;
-  if (FromTerritory = 31) and (ToTerritory = 39) then begin
-    c:= 0;
-    For T:= 40 to 42 do if (TOwner(T) <> PMe) then c:= c + TArmies(T) + 2;
-    Armies:= c;
-    if Armies > FTA then Armies:= FTA;
-  end;
-end;
-
-procedure KillPlayer_Fortification(var FromTerritory, ToTerritory, Armies: integer);
-Var
-  FT, P, WP, aMinPL, B, BT, Cost, TT, PL, EA, aMinCost, x, MaxArmy, T: integer;
-  Rank, MinPL, TTa, MinCost, Army: array of integer;
-
-begin
-  FromTerritory:= 0;
-  ToTerritory:= 0;
-  ArmySort(Army);
-  RankSort(Rank);
-  SetArrayLength(MinCost, 43);
-  SetArrayLength(MinPL, 43);
-  SetArrayLength(TTa, 43);
-
-  if Rank[SAlivePlayersCount] <> PMe then WP:= Rank[SAlivePlayersCount] else WP:=0;
-  if GameHasOneHuman(P) then WP:= P;
-
-  For x:= 1 to PTC do begin
-    MinCost[Army[x]]:= 0;
-    MinPL[x]:= 0;
-    TTa[x]:= 0;
-    For T:= 1 to 42 do begin
-     if TOwner(T) = WP then begin
-       Cost:= 0;
-       if TWeakestPath(Army[x], T, TT, PL, EA) then begin
-         Cost:= PL + EA - TArmies(T);
-         if (Cost < MinCost[Army[x]]) or (MinCost[Army[x]] = 0) then MinCost[Army[x]]:= Cost;
-       end;
-       if (not TIsFront(Army[x])) and (TArmies(Army[x]) > 3) then begin
-         TShortestPath(Army[x], T, TT, PL);
-         if (PL < MinPL[x]) or (MinPL[x] = 0) then begin
-           MinPL[x]:= PL;
-           TTa[x]:= TT;
-         end;
-       end;
-     end;
-    end;
-  end;
-
-  if SAlivePlayersCount > 2 then begin
-    aMinCost:= 0;
-    For x:= PTC downto 1 do begin
-      if TArmies(Army[x]) > 1 then begin
-        For B:= 1 to TBordersCount(Army[x]) do begin
-          BT:= TBorder(Army[x], B);
-          if TIsMine(BT) then begin
-            if MinCost[BT] > 0 then begin
-              if ( (MinCost[BT] < MinCost[Army[x]]) or (MinCost[Army[x]] = 0) ) and ((MinCost[BT] <= aMinCost) or (AMinCost = 0)) then begin
-                if (  (MinCost[BT] = aMinCost) and ( (TArmies(BT) > TArmies(ToTerritory)) or (TArmies(Army[x]) > TArmies(FromTerritory)) )  ) or (MinCost[BT] <> aMinCost) then begin
-                  aMinCost:= MinCost[BT];
-                  FromTerritory:= Army[x];
-                  ToTerritory:= BT;
-                  Armies:= TArmies(FromTerritory) - 1;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-
-  if FromTerritory = 0 then begin
-    aMinPL:= 0;
-    For x:= 1 to PTC do begin
-      if ( (MinPL[x] <= aMinPL) or (aMinPL = 0) ) and (MinPL[x] > 0) then begin
-        if (  (MinPL[x] = aMinPL) and ( (TArmies(TTa[x]) > TArmies(ToTerritory)) or (TArmies(Army[x]) > TArmies(FromTerritory)) )  ) or (MinPL[x] <> aMinPL) then begin
-          aMinPL:= MinPL[x];
-          FromTerritory:= Army[x];
-          ToTerritory:= TTa[x];
-          Armies:= TArmies(FromTerritory) - 1;
-        end;
-      end;
-    end;
-  end;
-
-  if (FromTerritory = 0) or (bg(63) = 0) then begin
-    MaxArmy:= 1;
-    For T:= 1 to 42 do begin
-      if TIsMine(T) and (not TIsFront(T)) then begin
-        if (TArmies(T) > MaxArmy) then begin
-          MaxArmy:= TArmies(T);
-          FT:= T;
-          Armies:= TArmies(FromTerritory) - 1;
-        end;
-      end;
-    end;
-    if (FT > 0) and (not (FT = FromTerritory)) then begin // if it's the same FT that the previous code determined, don't change the ToTerritory
-      if not (  (FromTerritory > 0) and ( (TArmies(FT) < 4) and (TArmies(FromTerritory) > 3) )  ) then begin
-        FromTerritory:= FT;      // might not be neccessary to do the following > 0 check
-        if TPathToFront(FromTerritory) > 0 then ToTerritory:= TPathToFront(FromTerritory) else FromTerritory:= 0;
-        Armies:= TArmies(FromTerritory) - 1;
-      end;
-    end;
-  end;
-
-end;
-
-{-------------------------------------End Kill Player Code---------------------------------}
-
-Function EvalT(T: integer; TrySouthAmericaFirst: boolean): double;
-  var
-   FreeT, Points: double; 
-   C,CT,PT,PA,ET,EA,LP,LT,LA: integer;
-   Bypass: boolean;
-Begin
-
-//Optimize reinforce
-  Bypass:=False;
-  Points:=0;
-  C:=TContinent(T);
-  CT:=CTerritoriesCount(C);
-  CAnalysis(C,PT,PA,ET,EA);
-  CLeader(C,LP,LT,LA);
-  FreeT:=CT-PT-ET;
-  // the leader of the continent it's not me and owns all territories less one
-  if LP>0 then begin
-    if (LP<>PMe) and (LT>=CT-1) then 
-    begin
-      Points:=Points+100.0;    // I must avoid enemy conquers the continent
-      If (NOT ((C=6) and TrySouthAmericaFirst)) or (SPlayersCount<4) then Bypass:=True; 
-    end;
-  end;
-  // evaluate my chances to conquer the continent
-  Points:=Points+1.0*(PT+1+FreeT/SPlayersCount)/(ET+FreeT*SPlayersCount/(SplayersCount-1));
-  result:=Points;
-end;
-
-
-
-//## from weapon.txt
-function TPStrongestBorder(TXX, PXX: integer; var PTXX, PAXX: integer): boolean;
-var
- AXX,
- BXX,
- IXX: integer;
-begin
-  if (TXX < 1) or (TXX > 42) or (PXX < 1) or (PXX > 10) then 
-    result :=false
-  else begin
-    result :=true;
-    PTXX :=0;
-    PAXX :=0;
-    for IXX :=1 to TBordersCount(TXX) do begin
-      BXX :=TBorder(TXX, IXX);
-      if TOwner(BXX)=PXX then begin
-        AXX :=TArmies(BXX); 
-        if AXX >= PAXX then begin
-          PTXX :=BXX;
-          PAXX :=AXX;
-        end;
-      end;
-    end;
-  end;
-end;
-
-
-
-function TargetCplacement(Small: integer): integer;
-var
-  T, C, BestC, Diff, BestDiff: integer;
-  PT, PA, ET, EA, X : integer;
-
-begin
-  // LOCAL FUNCTION TARGETCplacement:  determines the target continent to attack
-  // best ratio of armies in the continent and its borders
-  BestDiff:=SMALL;
-  for C:=1 to 6 do
-    begin
-      PT:=0;
-      PA:=0;
-      ET:=0;
-      EA:=0;
-      CAnalysis(C, PT, PA, ET, EA);
-      if (ET>0) then
-        begin
-          // sub CBORDERANALYSIS:  adjust PT, PA, ET, and EA to reflect
-          // territories that border the given continent
-          for X:=1 to CBordersCount(C) do
-            begin
-              T:=Cborder(C,X);
-              if TIsMine(T) then
-                begin
-                  PT:=PT+1;
-                  PA:=PA+TArmies(T);
-                end
-              else
-                begin
-                  ET:=ET+1;
-                  EA:=EA+TArmies(T);
-                end;
-            end;
-        end;
-      Diff:=PA-ET-EA;
-      if (ET>0) and (PT>0) and (Diff>BestDiff) then
-        begin
-          BestDiff:=Diff;
-          BestC:=C;
-        end;
-//      //If UBufferGet(15) then //umessage(BestC);      //If UBufferGet(15) then //umessage(BestDiff);
-    end;
-  result:=BestC;
-end;
-
-
-
-function MyTPressure(T, MaxFronts: integer): integer;
-var
-  Pressure, MyB, MyT: integer;
-begin
-  // LOCAL FUNCTION MYTPressure:  returns available armies bordering on [enemy?] territory T
-  // my territories must have at most MaxFronts fronts in order to count its armies
-  Pressure:=0;
-  for MyB:=1 to TBordersCount(T) do
-    begin
-      MyT:=TBorder(T,MyB);
-      if TIsMine(MyT) and (TFrontsCount(MyT)<=MaxFronts) then
-        Pressure:=Pressure+TArmies(MyT);
-    end;
-  result:=Pressure;
-end;
-
-
-
-function TargetTplacement(EnemyC, Small, Allfronts, onefronts: integer; force: double): integer;
-var
-  T, T2, BestT, Diff, BestDiff: integer;
-  ET, EA, X, Y : integer;
-
-begin
-  // LOCAL FUNCTION TARGETTplacement:  determines the target territory to attack
-  // will return a territory on another continent if no attacks are available
-  // on the desired continent {can also return 0 if no feasible attack is available at all}
-  // uses local global ENEMYC
-  BestDiff:=SMALL;
-  BestT:=0;
-  for X:=1 to CTerritoriesCount(EnemyC) do
-    begin
-      T:=CTerritory(EnemyC,X);
-//      //If UBufferGet(15) then //umessage('Checking out territory #',X,' of target continent ',ENEMYC);
-      Y:=MyTPressure(T,ALLFRONTS);
-//      //If UBufferGet(15) then //umessage('Looking at territory ',T,' which you have ',Y,' total pressure on');
-      if (Y>0) and ((trunc(FORCE*TArmies(T)))<(PNewArmies(PMe)+Y)) and (not TIsMine(T)) then
-        begin
-          // if its an enemy territory that can be conquered, then compute
-          // your 1-front armies (+) less attacked armies (-) less new exposure to enemies (-)
-          Diff:=MyTPressure(T,ONEFRONTS)-TArmies(T);
-//          //If UBufferGet(15) then //umessage('Initial Diff (1-front armies less attacked) is ',Diff);
-          for Y:=1 to TBordersCount(T) do
-            begin
-              T2:=TBorder(T,Y);
-//              //If UBufferGet(15) then //umessage('Secondary loop, looking at territory #',Y,' (namely ',T2,') with my pressure of ',MyTPressure(T2,ALLFRONTS),' and armies ',TArmies(T2));
-              if (MyTPressure(T2,ALLFRONTS)=0) and (not(TIsMine(T2))) then
-                Diff:=Diff-TArmies(T2);
-              // new exposure when territory is conquered
-            end;
-//          //If UBufferGet(15) then //umessage('A conquerable territory on target continent ',EnemyC,' is ',T);
-//          //If UBufferGet(15) then //umessage('my [wasted] 1-front armies less attacked armies less new exposures is ',Diff);
-          if (Diff>BestDiff) then
-            begin
-               BestDiff:=Diff;
-               BestT:=T;
-            end;
-        end;
-    end;
-  if (BestT=0) then
-    begin
-      // look for easiest territory that can be taken [may be on another continent]
-      for T:=1 to 42 do
-        begin
-          if TIsMine(T) then
-            begin
-              TWeakestFront(T,ET,EA);
-              Diff:=TArmies(T)-EA;
-              if (Diff>BestDiff) then
-                begin
-                  BestDiff:=Diff;
-                  BestT:=ET;
-                end;
-            end;
-        end;
-//      TWeakestFront(BestT,ET,EA);
-//      Diff:=PNewArmies(PMe)*NEWRATIO; // allow only a %-age of new armies to go for this attack
-//      Diff:=Diff+TArmies(BestT)-EA*FORCE;
-//      if Diff<1 then BestT:=0;
-    end;
-  result:=BestT;
-end;
-
-
-
-//####STRUGGLER FUNCT
-    // Evaluation function for the pair "territory from"-"territory to" (TF-TT).
-  // It return a value > 1 for strategic attacks
-function Eval(TF,TT: integer): double;
-    var
-    Points: double;   // value assigned to the FROM/TO pair
-    CF,CT,            // FROM and TO continents
-    AF,AT,            // armies on FROM and TO teritories
-    PT,PA,            // my territories and armies on FROM continent
-    ET,EA,            // enemy territories and armies on FROM continent
-    LP,               // leader player on FROM continent
-    LT,LA: integer;   // leader's territories and armies on FROM continent
-    
-  begin
-    Points:=0;
-    CF:=TContinent(TF);
-    CT:=TContinent(TT);
-    AF:=TArmies(TF);
-    AT:=TArmies(TT);
-    // FROM and TO territories are on different continents
-    if CF<>CT then begin
-      // enemy owns the TO continent
-      if COwner(CT)>0 then begin
-        Points:=Points+2.0;
-      end;
-    end
-    // FROM and TO territories are on the same continent
-    else begin
-      CAnalysis(CF,PT,PA,ET,EA);
-      CLeader(CF,LP,LT,LA);
-      // evaluate my chances to conquer the continent
-      Points:=Points+1.0*(PA+1)/(EA+ET);
-    end;
-    // if enemy owns just one territory, I try to kill him to get his cards
-    if PTerritoriesCount(TOwner(TF))<2 then begin
-      Points:=Points+20.0;
-    end;
-    // if haven't conquered a territory, add some points for
-    // a generic evaluation of the attack ratio
-    if not SConquest then begin
-      Points:=Points+1.0*AF/AT;
-    end;
-    result:=Points;
-  end;
-  //####STRUGGLER END FUNCT
-
-
-
-//###Wyrm
-
-function TargetCattack(Small: integer): integer;
-var
-  T, C, BestC, Diff, BestDiff: integer;
-  PT, PA, ET, EA, X, Y: integer;
-
-begin
-  // LOCAL FUNCTION TARGETCattack:  determines the target continent to attack
-  // best ratio of armies in the continent and its borders
-
-  BestDiff:=0; // will hold maximum number of armies controlled by leading player Y
-  for X:=1 to 10 do
-    if (PActive(X)) and (X<>PMe) then
-      if (PArmiesCount(X)>BestDiff) then
-        begin
-          BestDiff:=PArmiesCount(X);
-          Y:=X; // Y holds the leading player's number
-        end;
-
-  BestDiff:=SMALL;
-  for C:=1 to 6 do
-    begin
-      PT:=0;
-      PA:=0;
-      ET:=0;
-      EA:=0;
-      CAnalysis(C, PT, PA, ET, EA);
-      if (ET>0) then
-        begin
-          // sub CBORDERANALYSIS:  adjust PT, PA, ET, and EA to reflect
-          // territories that border the given continent
-          for X:=1 to CBordersCount(C) do
-            begin
-              T:=Cborder(C,X);
-              if TIsMine(T) then
-                begin
-                  PT:=PT+1;
-                  PA:=PA+TArmies(T);
-                end
-              else
-                begin
-                  ET:=ET+1;
-                  EA:=EA+TArmies(T);
-                end;
-            end;
-        end;
-      Diff:=PA-ET-EA;
-
-      if (COwner(C)=Y) and SConquest and (PT>0) then // attack the leading player's continents
-        begin
-          Diff:=Diff+500;
-//          //If UBufferGet(15) then //umessage(PName(PMe),' is favoring an extra attack on ',PName(Y),', in continent # ',C,', because they are the leader');
-        end;
-
-      if (COwner(C)>0) and (COwner(C)<>PMe) and SConquest and (PT>0) then
-//        if (PArmiesCount(COwner(C))>PArmiesCount(PMe)) then
-          Diff:=Diff+500;
-// actually, just attack that other continent anyway, no matter what
-      // also attack an opponent's continent if they are about to run over you themselves
-
-      if (ET>0) and (PT>0) and (Diff>BestDiff) then
-        begin
-          BestDiff:=Diff;
-          BestC:=C;
-        end;
-//        //If UBufferGet(15) then //umessage('best continent=',BestC,' with my armies less his armies of ',BestDiff);
-    end;
-  result:=BestC;
-end;
-
-
-
-function TargetTattack(enemyc, small, allfronts, onefronts: integer; force: double): integer;
-var
-  T, T2, BestT, BestT2, Diff, BestDiff: integer;
-  ET, EA, X, Y: integer;
-
-begin
-  // LOCAL FUNCTION TARGETTattack:  determines the target territory to attack
-  // will return a territory on another continent if no attacks are available
-  // on the desired continent {can also return 0 if no feasible attack is available at all}
-  // uses local global ENEMYC
-  BestDiff:=SMALL*5;
-  BestT:=0;
-  for X:=1 to CTerritoriesCount(EnemyC) do
-    begin
-      T:=CTerritory(EnemyC,X);
-//      //If UBufferGet(15) then //umessage('Checking out territory #',X,' of target continent ',ENEMYC);
-      Y:=MyTPressure(T,ALLFRONTS);
-//      if SConquest then
-//        //If UBufferGet(15) then //umessage('Looking at territory ',T,' which you have ',Y,' total pressure on');
-      if (Y>0) and (trunc(FORCE*TArmies(T))<(PNewArmies(PMe)+Y)) and (not TIsMine(T)) then
-        begin
-          // if its an enemy territory that can be conquered, then compute
-          // your 1-front armies (+) less attacked armies (-) less new exposure to enemies (-)
-          Diff:=MyTPressure(T,ONEFRONTS)-TArmies(T);
-//          //If UBufferGet(15) then //umessage('Initial Diff (1-front armies less attacked) is ',Diff);
-          for Y:=1 to TBordersCount(T) do
-            begin
-              T2:=TBorder(T,Y);
-//              //If UBufferGet(15) then //umessage('Secondary loop, looking at territory #',Y,' (namely ',T2,') with my pressure of ',MyTPressure(T2,ALLFRONTS),' and armies ',TArmies(T2));
-              if (MyTPressure(T2,ALLFRONTS)=0) and (not(TIsMine(T2))) then
-                Diff:=Diff-TArmies(T2);
-              // new exposure when territory is conquered
-            end;
-//          if SConquest then
-//            //If UBufferGet(15) then //umessage('A conquerable territory on target continent ',EnemyC,' is ',T);
-//          //If UBufferGet(15) then //umessage('my [wasted] 1-front armies less attacked armies less new exposures is ',Diff);
-          if (Diff>BestDiff) then
-            begin
-               BestDiff:=Diff;
-               BestT2:=BestT; //2nd better
-               BestT:=T;
-               
-            end;
-        end;
-    end;
-  if (BestT=0) and (not SConquest) then
-    begin
-      // look for easiest territory that can be taken [may be on another continent]
-      for T:=1 to 42 do
-          if TIsMine(T) then
-            begin
-              TWeakestFront(T,ET,EA);
-              Diff:=TArmies(T)-EA;
-              if (Diff>BestDiff) then
-                begin
-                  BestDiff:=Diff;
-                  BestT2:=BestT; //2nd better
-                  BestT:=ET;
-                  
-                end;
-            end;
-    end;
-    //#########################Stop Wyrm going to Europe and Middle East too early
-    ////If UBufferGet(15) then //umessage('UBufferGet(40) ',UBufferGet(40), '  BestT  ', BestT, '  BestT2  ', BestT2);
-    If ((UBufferGet(39)>3) and ( BestT=27)  and (UBufferGet(40)<6) ) then BestT:=BestT2; 
-    If ((UBufferGet(39)>3) and (BestT2=27) and (UBufferGet(40)<6) ) then BestT:=0;
-    UBufferSet(41, 0);
-    UBufferSet(42, 0);
-    UBufferSet(43, 0);
-    UBufferSet(44, 0);
-    UBufferSet(45, 0); //Siam reinforcement
-    UBufferSet(26, 0); //Venezuela reinforcement    
-  result:=BestT;
-end;
-
-
-procedure Assignment(var ToTerritory: integer);
-var
-  T, i, cont, naterr, saterr,PT2,PA2,ET2,EA2,LPa,LTa,LAa,PTa,PAa,ETa,EAa: integer;
-  Value,MaxValue: double;
-  Bypass, TrySouthAmericaFirst, PutApart: boolean;
-	
-  
-begin
-
-//###Rules
-CONTROL_PANEL;
-
-  // choose unassigned territory with greatest value
-  ToTerritory:=0;
-  MaxValue:=0;
-  for T:=1 to 42 do begin
-    if TOwner(T)=0 then 
-      begin  // territory is unassigned
-      Value:=EvalT(T, TrySouthAmericaFirst);
-      if Value>MaxValue then begin
-        ToTerritory:=T;
-        MaxValue:=Value;
-      end;
-    end;
-  end;
- 
-//Do not permit totality in North America
-CLeader(1,LPa,LTa,LAa);
-CAnalysis(1,PTa,PAa,ETa,EAa);
-If ((LTa=8) and (ETa=8)) then 
-Begin 
-For T:=1 to 9 do If TOwner(T)=0 then ToTerritory:=T;
-Bypass:=True;
-//If UBufferGet(15) then //umessage('Do not permit totality in North America');
-end;
-
-//Do not permit totality in Africa
-If SPlayersCount<4 then 
-begin
-CLeader(4,LPa,LTa,LAa);
-CAnalysis(4,PTa,PAa,ETa,EAa);
-If ((LTa=5) and (ETa=5)) then 
-Begin 
-For T:=14 to 19 do If TOwner(T)=0 then ToTerritory:=T;
-Bypass:=True;
-//If UBufferGet(15) then //umessage('Do not permit totality in Africa');
-end;
-end;
-
-//Do not permit totality in Europe
-If SPlayersCount<=3 then 
-begin
-CLeader(3,LPa,LTa,LAa);
-CAnalysis(3,PTa,PAa,ETa,EAa);
-If ((LTa=6) and (ETa=6)) then 
-Begin 
-For T:=20 to 26 do If TOwner(T)=0 then ToTerritory:=T;
-Bypass:=True;
-//If UBufferGet(15) then //umessage('Do not permit totality in Europe');
-end;
-end;
-
-If (UBufferGet(39)<=4) then
-Begin
-//Do not permit totality in South America
-CLeader(2,LPa,LTa,LAa);
-CAnalysis(2,PTa,PAa,ETa,EAa);
-If ((LTa=3) and (ETa=3)) then 
-Begin 
-For T:=10 to 13 do If TOwner(T)=0 then ToTerritory:=T;
-Bypass:=True;
-//If UBufferGet(15) then //umessage('Do not permit totality in South America');
-end;
-end;
-
-
-CLeader(TContinent(ToTerritory),LPa,LTa,LAa);
-If ((PProgram(LPa)=PProgram(PMe)) and ((UBufferGet(29)=1) or (PutApart))) then Bypass:=False;
-
-
-//CLeader(6,LPa,LTa,LAa);
-//For T:=1 to 10 do i:=i+PArmiesCount(T);
-If (Not TrySouthAmericaFirst) and 
-(
-((PProgram(TOwner(39))=PProgram(PMe)) and (TOwner(39)<>PMe)) or
-((PProgram(TOwner(40))=PProgram(PMe)) and (TOwner(40)<>PMe)) or
-((PProgram(TOwner(41))=PProgram(PMe)) and (TOwner(41)<>PMe)) or
-((PProgram(TOwner(42))=PProgram(PMe)) and (TOwner(42)<>PMe)) 
-)
- then TrySouthAmericaFirst:=True;
-
-
-
-If (Not Bypass) then begin //Bypass
-
-cont:=0; 
-For i:=1 to 9 do 
-  If TIsMine(i) then cont:=cont+1;
-  
-  
-//2:if success in Australia achar contiguous in asia, if no contiguous try India, Chine, Japan
-if SPlayersCount>2 then
-begin
-if ((TOwner(34)=0) and ((TOwner(36)=PMe) or (TOwner(37)=PMe) or (TOwner(35)=PMe)) ) then ToTerritory:=34;  //Try Taymyr if Buryat or Koryak or Yakut owned
-if ((TOwner(35)=0) and ((TOwner(33)=PMe) or (TOwner(36)=PMe)) ) then ToTerritory:=35;  //Try Yakut if Mongolia or Koryak or Buryat owned
-if ((TOwner(36)=0) and ((TOwner(33)=PMe) or (TOwner(37)=PMe) or (TOwner(38)=PMe)) ) then ToTerritory:=36;  //Try Buryat if Mongolia or Japan owned
-if ((TOwner(33)=0) and ((TOwner(32)=PMe) or (TOwner(37)=PMe) or (TOwner(38)=PMe)) ) then ToTerritory:=33;  //Try Mongolia if China or Koryak or Japan owned
-
-if ((TOwner(37)=0) and (cont>3)) then ToTerritory:=37;  //Try Koryak if success in NA
-
-
-if ((TOwner(29)=0)) then ToTerritory:=29;
-if (TOwner(38)=0)  then ToTerritory:=38;
-if ((TOwner(37)=0) and ((SPlayersCount>2) or TIsMine(1)) ) then ToTerritory:=37;
- 
-
-if ((TOwner(30)=0) and ((TOwner(31)=PMe) or (UBufferGet(50)=66)) ) then ToTerritory:=30;  //Try India if Siam owned
-if ((TOwner(32)=0) and ((TOwner(31)=PMe) or (TOwner(30)=PMe) or (UBufferGet(50)=66)) ) then ToTerritory:=32;  //Try China if Siam or India owned
-end;
-
-if ((TOwner(37)=0) and (cont>6) and ((SPlayersCount>2) or TIsMine(1)) ) then ToTerritory:=37;  //Try Koryak if very success in NA
-
-
-
-
-//1:if success in NA find contiguous in Europe 
-if ((TOwner(21)=0) and (TOwner(20)=PMe)) then ToTerritory:=21;  //Try Scandinavia if Iceland owned
-if ((TOwner(24)=0) and (TOwner(20)=PMe)) then ToTerritory:=24;  //Try Great Britain if Iceland owned
-if ( (TOwner(20)=0) and ((TOwner(3)=PMe) or (cont>3)) ) then ToTerritory:=20;  //Try Iceland if got Greenland or success in NA
-
-
-CAnalysis(2,PT2,PA2,ET2,EA2);
-saterr:=ET2; 
-
-
-If (TArmies(39)+TArmies(40)+TArmies(41)+TArmies(42)=4) then
-   if ( ((ET2>2) or (ET2+PT2=4)) and (SPlayersCount<6)) then UBufferSet(49, 2); //Can go NA!
-
-  
-CAnalysis(1,PT2,PA2,ET2,EA2);
-naterr:=ET2;
-
-If (SPlayersCount<5) or TrySouthAmericaFirst then
-if (UBufferGet(49)=2) or (TrySouthAmericaFirst) then  //(TrySouthAmericaFirst and (saterr<4))
-//If SPlayersCount=2 then
-
-begin
-//umessage('dfdf');
-if TOwner(9)=0 then ToTerritory:=9;  //Mexico
-if TOwner(1)=0 then ToTerritory:=1;  //Alaska
-if TOwner(3)=0 then ToTerritory:=3;  //Greenland
-
-if TOwner(2)=0 then ToTerritory:=2;  //Northwest Territory
-if TOwner(4)=0 then ToTerritory:=4;  //Alberta
-if TOwner(5)=0 then ToTerritory:=5;  //Ontario
-if TOwner(7)=0 then ToTerritory:=7;  //Western US
-if TOwner(8)=0 then ToTerritory:=8;  //Eastern US
-if TOwner(6)=0 then ToTerritory:=6;  //Quebec
-end;
-
-
-
-If (NOT (
-(
-((PProgram(TOwner(10))=PProgram(PMe)) and (TOwner(10)<>PMe)) or
-((PProgram(TOwner(11))=PProgram(PMe)) and (TOwner(11)<>PMe)) or
-((PProgram(TOwner(12))=PProgram(PMe)) and (TOwner(12)<>PMe)) or
-((PProgram(TOwner(13))=PProgram(PMe)) and (TOwner(13)<>PMe)) 
-) and PutApart )
-) then
-Begin
-if naterr<5 then 
-	if ((saterr<2) or (TOwner(10)=PMe)) then if TOwner(9)=0 then ToTerritory:=9;  //Mexico now  if South America to be mine and North America not occupied 
-
-if saterr<2 then if TOwner(12)=0 then ToTerritory:=12;  //Brazil
-if (((saterr<3) and (naterr<5)) or (saterr<2)) then if TOwner(10)=0 then ToTerritory:=10;  //Venezuela
-if saterr<2 then if TOwner(11)=0 then ToTerritory:=11;  //Peru
-if saterr<2 then if TOwner(13)=0 then ToTerritory:=13;  //Argentina
-end;
-
-
-
-If (NOT (
-(
-((PProgram(TOwner(10))=PProgram(PMe)) and (TOwner(10)<>PMe)) or
-((PProgram(TOwner(11))=PProgram(PMe)) and (TOwner(11)<>PMe)) or
-((PProgram(TOwner(12))=PProgram(PMe)) and (TOwner(12)<>PMe)) or
-((PProgram(TOwner(13))=PProgram(PMe)) and (TOwner(13)<>PMe)) 
-) and (PutApart or TrySouthAmericaFirst ) )
-) then
-Begin
-if naterr<5 then 
-	if ((saterr<3) or (TOwner(10)=PMe)) then if TOwner(9)=0 then ToTerritory:=9;  //Mexico now  if South America to be mine and North America not occupied 
-
-if saterr<4 then if TOwner(12)=0 then ToTerritory:=12;  //Brazil
-if (((saterr<5) and (naterr<5)) or (saterr<2)) then if TOwner(10)=0 then ToTerritory:=10;  //Venezuela
-if saterr<4 then if TOwner(11)=0 then ToTerritory:=11;  //Peru
-if saterr<4 then if TOwner(13)=0 then ToTerritory:=13;  //Argentina
-end;
-
-
-if ((TOwner(31)=0) and 
-  ((TOwner(39)=PMe) or (TOwner(40)=PMe) or (TOwner(41)=PMe) or (TOwner(42)=PMe))) 
-    then ToTerritory:=31;  //Try Siam if some Australia territory is owned
-    
-
-
-
-CAnalysis(6,PT2,PA2,ET2,EA2); //Try Australia first if players>2
-
-if ((TOwner(39)=PMe) or (TOwner(40)=PMe) or (TOwner(41)=PMe) or (TOwner(42)=PMe)) then UBufferSet(50, 66);
-
-If NOT (TrySouthAmericaFirst and (SPlayersCount<4)) then
-If (NOT (
-(
-((PProgram(TOwner(39))=PProgram(PMe)) and (TOwner(39)<>PMe)) or
-((PProgram(TOwner(40))=PProgram(PMe)) and (TOwner(40)<>PMe)) or
-((PProgram(TOwner(41))=PProgram(PMe)) and (TOwner(41)<>PMe)) or
-((PProgram(TOwner(42))=PProgram(PMe)) and (TOwner(42)<>PMe)) 
-) and PutApart )
-) then
-begin
-If ET2<3 then 
-  If ( (TOwner(39)=0) and ((TOwner(40)=PMe) or (TOwner(41)=PMe) or (TOwner(42)=PMe)) ) then ToTerritory:=39; 
-
-If SPlayersCount>2 then If ET2<4 then If TOwner(39)=0 then ToTerritory:=39;
-If SPlayersCount>2 then If ET2<4 then If TOwner(42)=0 then ToTerritory:=42;
-If SPlayersCount>2 then If ET2<4 then If TOwner(40)=0 then ToTerritory:=40;
-If SPlayersCount>2 then If ET2<4 then If TOwner(41)=0 then ToTerritory:=41; 
-end;
-
-//Try First South America
-If TrySouthAmericaFirst then
-If (NOT (
-(
-((PProgram(TOwner(10))=PProgram(PMe)) and (TOwner(10)<>PMe)) or
-((PProgram(TOwner(11))=PProgram(PMe)) and (TOwner(11)<>PMe)) or
-((PProgram(TOwner(12))=PProgram(PMe)) and (TOwner(12)<>PMe)) or
-((PProgram(TOwner(13))=PProgram(PMe)) and (TOwner(13)<>PMe)) 
-) and PutApart )
-) then
-Begin
-If TOwner(12)=0 then ToTerritory:=12;  //Brazil
-If TOwner(10)=0 then ToTerritory:=10;  //Venezuela
-If TOwner(11)=0 then ToTerritory:=11;  //Peru
-If TOwner(13)=0 then ToTerritory:=13;  //Argentina
-end;
-
-
-end; //Bypass
-////umessage('ToTerritory ', ToTerritory, ' Bypass ',Bypass);
-
-If ((UBufferGet(10)<0) or (UBufferGet(32)=1)) and (SPlayersCount=3) then
-Begin
-I:=ToTerritory;
-ToTerritory:=0;
-  T:=1;
-  repeat
-    if TOwner(T)=0 then
-      ToTerritory:=T;
-    T:=T+1;
-  until (ToTerritory>0) or (T>42);
-  
-  If (T>14) then ToTerritory:=I;
-end;
-end;
-
-// procP
-procedure Placement(var ToTerritory: integer);
-var
-  EnemyC, EnemyT, T, T2, B, C, D, Diff, BestDiff: integer;
-  PT, PA, ET, EA, X, Y, AnyAttack: integer;
-  A1, A2, R: boolean;
-  A,J,PT2,PA2,ET2,EA2,PT3,PA3,ET3,EA3,W,LP,LT,LA,PlayerStrong,AsiaRelease,Danger: integer;
-  SMALL, ALLFRONTS, ONEFRONTS, CBONUS, MINARMIES: integer;
-  Ratio,MaxRatio: double;
-  FORCE, NEWRATIO: double;
-  Reinforce, BypassRelease, ProtectAustralia, Bubble: Boolean;
-  
-
-//### wyrm
-
-begin
-
-  // check for kill player mode
-  if (UBufferGet(99) = 1) or (UBufferGet(98) > 0) then begin
-    KillPlayer_Placement(ToTerritory);
-    exit;
-  end;
-
-  //if UBufferGet(39)>2 then begin  //Playing as Wyrm
-  
-  // PLACEMENT:  defines ToTerritory (where 1 army will be placed)
-  // 1) make sure ANY attack is possible
-  // 2) reinforce existing continents
-  // 3) make sure desired attack is possible
-  // 4) beef up the target continent
-  // 5) take care of the rest of your territories
-
-
-  SMALL:=-9999;       // CONSTANTS SECTION
-  FORCE:=1.2;
-  MINARMIES:=5;
-  ALLFRONTS:=10;
-  ONEFRONTS:=1;
-  CBONUS:=12;          // bonus for reinforcing territories in current target continent
-  NEWRATIO:=0.5;      // %-age of new armies that can go towards an out-of-continent attack
-
-  ToTerritory:=0;
-  AnyAttack:=0;
-  for T:=1 to 42 do
-    begin
-      if TIsMine(T) then
-        begin
-          TWeakestFront(T,ET,EA);
-          if (TArmies(T)>trunc(MINARMIES+EA*FORCE)) then
-            AnyAttack:=1;
-        end;
-    end;
-
-  for C:=1 to 6 do // reinforce existing continents if necessary - to defend against STRONGEST front first
-    if (COwner(C)=PMe) and (ToTerritory=0) and (AnyAttack=1) then
-      begin
-        for B:=1 to CTerritoriesCount(C) do
-          begin
-            T:=CTerritory(C,B);
-            if TIsFront(T) then
-              begin
-                TStrongestFront(T,ET,EA);
-                if (double(TArmies(T))<(MINARMIES+EA*FORCE)) then // shortfall in my territory T
-                  if (ToTerritory=0) then ToTerritory:=T
-                  else if (TArmies(T)>TArmies(ToTerritory)) then ToTerritory:=T;
-              end;
-          end;
-      end;
-
-
-  EnemyC:=TargetCplacement(small);
-  EnemyT:=TargetTplacement(EnemyC, Small, Allfronts, onefronts, force);
-
-  if (EnemyT<>0) and (double(MyTPressure(EnemyT,ALLFRONTS))<((MINARMIES+TArmies(EnemyT)*FORCE))) then
-    begin
-      // continue to reinforce until attack is possible - put them all in strongest country
-      BestDiff:=SMALL;
-      for B:=1 to TBordersCount(EnemyT) do
-        begin
-          T:=TBorder(EnemyT,B);
-          Diff:=TArmies(T);
-          if TIsFront(T) and (Diff>BestDiff) then
-            begin
-              BestDiff:=Diff;
-              ToTerritory:=T;
-            end;
-        end;      
-    end;
-
-  if (ToTerritory=0) and (1=1) then // attack is already guaranteed.  beef up the target continent
-    begin
-      PT:=0;
-      PA:=0;
-      ET:=0;
-      EA:=0;
-      BestDiff:=SMALL;
-      CAnalysis(EnemyC, PT, PA, ET, EA);
-      if (double(PA-PT)<(MINARMIES+ET+EA*FORCE)) then
-        begin // place more armies in the continent so that you can capture the whole thing
-          for B:=1 to CTerritoriesCount(EnemyC) do
-            begin
-              T:=CTerritory(EnemyC,B);
-              Diff:=TArmies(T); // put in strongest
-              if (PNewArmies(PMe)>5) then
-                Diff:=-TArmies(T);  // but put in weakest front until 5 armies left
-              if TIsFront(T) and (Diff>BestDiff) then
-                begin
-                  ToTerritory:=T;
-                  BestDiff:=Diff;
-                end;
-            end;
-        end;
-    end;
-
-  for C:=1 to 6 do // reinforce existing continents if necessary - WEAKEST front first
-    if (COwner(C)=PMe) and (ToTerritory=0) then // if you own the continent and already have an attack
-      begin
-        for B:=1 to CTerritoriesCount(C) do
-          begin
-            T:=CTerritory(C,B);
-            if TIsFront(T) then
-              begin
-                TStrongestFront(T,ET,EA);
-                if (double(TArmies(T))<(EA*FORCE)) then
-                  if (ToTerritory=0) then ToTerritory:=T
-                  else if (TArmies(T)>TArmies(ToTerritory)) then ToTerritory:=T;
-              end;
-          end;
-      end;
-
-  TWeakestFront(EnemyT,ET,EA);
-  if (EnemyT<>0) and (ToTerritory=0) and (double(MyTPressure(EnemyT,ALLFRONTS))<(EA+MINARMIES+TArmies(EnemyT)*FORCE)) then
-    begin
-      // continue to reinforce until attack is possible - put them all in strongest country
-      BestDiff:=SMALL;
-      for B:=1 to TBordersCount(EnemyT) do
-        begin
-          T:=TBorder(EnemyT,B);
-          if TIsMine(T) and (TArmies(T)>BestDiff) then
-            begin
-              BestDiff:=TArmies(T);
-              ToTerritory:=T;
-            end;
-        end;      
-    end;
-
-
-  for C:=1 to 6 do // reinforce existing continents if necessary
-    if (COwner(C)=PMe) and (ToTerritory=0) then // if you own the continent and already have an attack
-      begin
-        for B:=1 to CTerritoriesCount(C) do
-          begin
-            T:=CTerritory(C,B);
-            if TIsFront(T) then
-              begin
-                if (double(TArmies(T))<(TPressure(T)*FORCE)) then
-                  if (ToTerritory=0) then ToTerritory:=T
-                  else if (TArmies(T)>TArmies(ToTerritory)) then ToTerritory:=T;
-              end;
-          end;
-      end;
-
-
-  if ToTerritory=0 then // attack is already guaranteed
-    begin
-      BestDiff:=SMALL;
-      for T:=1 to 42 do
-        begin
-          TWeakestFront(T,ET,EA);
-          Diff:=TArmies(T)+PNewArmies(PMe)-EA; // worthwhile to fortify this one?
-          if (TContinent(T)=EnemyC) then
-            Diff:=1; // but always worthwhile fortifying your target continent
-          if TIsFront(T) and (Diff>0) then 
-            begin  // territory is mine and front and can be made stronger than the weakest front
-              Diff:=TPressure(T)-TArmies(T);
-              if TIsBordering(T,EnemyT) then
-                Diff:=TPressure(T)+(TArmies(T) div 8); // avoid fortifying around a country you're about to take
-              if (TContinent(T)=EnemyC) then
-                Diff:=Diff+CBONUS;
-//              //If UBufferGet(15) then //umessage('Territory ',T,' is worthy of fortification with Pressure - Armies + Bonus of ',Diff);
-              if (Diff>BestDiff) then
-                begin
-                  ToTerritory:=T;
-                  BestDiff:=Diff;
-                end;
-            end;
-        end;
-    end;
-    
-    //#################################
-    
-    If UBufferGet(14)<>1 then CONTROL_PANEL;
-
-begin
-
-UBufferSet(10,0);
-//Says the number of players and TotalArmies
-A:=0;
-B:=0;
-    R:=False;
-    PlayerStrong:=0;
-    For J:=1 to 10 do
-    If PTerritoriesCount(J)>0 then
-    Begin
-
-If PTerritoriesCount(J)>0 then D:=D+1;
-
-B:=B+PArmiesCount(J);
-
-if palive(J) then if ( pos('australian', lowercase(PProgram(J))) > 0 ) then UBufferSet(10,-J);
- 
-     A1:=False; 
-     A2:=False;
-     If J<>PMe then
-     If NOT R then
-     For C:=1 to 6 do
-      Begin
-       If A1 then A2:=True;
-       If COwner(C)=J then A1:=True else A1:=False;
-       If (A2 and A1 ) then Begin R:=True; PlayerStrong:=J; C:=6; end;
-      end;
- 
-    end;
-    
-    If R then UBufferSet(37, 1) else UbufferSet(37, 0);
-    If R then UBufferSet(36, PlayerStrong) else UBufferSet(36, 0); //What player have more than one continent
-UBufferSet(39,D);
-UBufferSet(49,B);
-
-////umessage(' TotalArmies ', UBufferGet(49), ' number of players ', UBufferGet(39), ' PlayerStrong ', UBufferGet(36));
-    
-
-If PHuman(COwner(6)) then UBufferSet(10,-COwner(6));
-
-//Detect accumulator
-If false then
-If UBufferGet(10)=0 then
- For J:=1 to 42 do 
-  Begin
-   If (PArmiesCount(TOwner(J))>25) and (PTerritoriesCount(TOwner(J))<5) and (TOwner(J)<>PMe) then UBufferSet(10,TOwner(J));
-  end;
-
-
-    CAnalysis(5,PT,PA,ET,EA);
-    Reinforce:=NOT ( ((COwner(6)=PMe) and (PT>10) and (EA<20)) or (R=True) );
-    //If ((COwner(1)<>PMe) and (COwner(1)<>0)) then Reinforce:=False;
-    
-     A:=0;
- For J:=1 to 38 do 
- Begin
- C:=-16;
- If TContinent(J)=5 then C:=0 else If (TContinent(J)=4) or (TContinent(J)=3) or (J<6) then C:=-10;
- 
- If ( (TArmies(J)+C>A) and (NOT TIsMine(J)) ) then 
- Begin 
- A:=TArmies(J); 
- T:=J; 
- end;
- end;
-
-
-ProtectAustralia:=False;
-Danger:=0;
-If COwner(6)=PMe then
-Begin 
- If TContinent(T)=5 then C:=0 else C:=16;
- If (TContinent(T)=4) or (TContinent(T)=3) then C:=10;
- J:=0;
- If UBufferGet(36)<>0 then
-  If (COwner(4)=trunc(UBufferGet(36))) or (COwner(3)=trunc(UBufferGet(36))) and TIsMine(27) then J:=1+trunc(URandom(4));
- If TOwner(T)=-(trunc(UBufferGet(10))) then C:=C-8+J;
- If TIsMine(31) then A:=TArmies(31) else A:=1;
-If ((TArmies(T)>=TArmies(39)+A+C+J) and (COwner(6)=PMe) ) then ProtectAustralia:=True;
-If (TArmies(30)+TArmies(32)>TArmies(31)-6) and (TOwner(30)=TOwner(32)) then ProtectAustralia:=True;
-If (TContinent(T)=5) and (TArmies(T)-TArmies(39)-A >15) then Danger:=T;
-If (UBufferGet(10)<0) then
-  if (TOwner(T)=-(trunc(UBufferGet(10)))) and 
-    (TArmies(T)-TArmies(39)-A-1 >0) then Danger:=T;
-If (UBufferGet(39)=2) and (Not TIsFront(31)) then
- Begin
- Danger:=0;
- ProtectAustralia:=False;
- end;
-end;
-
-//ubufferset(39, 4);
-             //   UMessage('here1');
-If trunc(UBufferGet(39))> 3 then
-Begin
-
-
-IF Reinforce or ProtectAustralia then Begin //Reinforce#1      
-
-       //Leave some armies on China 
-       If ((PT>3) and (PT<8) and (COwner(6)=PMe)) then 
-       begin
-       If ( (PArmiesCount(PMe)>40) and TIsMine(32) and (TArmies(32)<6) and ((NOT TIsMine(33)) or (NOT TIsMine(29))) ) then ToTerritory:=32;
-       If ( (PArmiesCount(PMe)>40) and TIsMine(30) and (TArmies(30)<2) ) then ToTerritory:=30;
-       end;
-       
-       
-       //Leave some armies in Mongolia 
-       If ((ToTerritory<>35) and (ToTerritory<>36) and (ToTerritory<>38)) then
-       If ( (UBufferGet(36)=0) and //##0==ok
-            (not TIsMine(37)) and 
-             TIsMine(33) and 
-             (TArmies(33)<7) and 
-             (UBufferGet(10)=0)
-           ) then ToTerritory:=33;
-
-     //Prefer China instead India to invade Asia
-     If UBufferGet(39)>3 then
-     If  ((TIsMine(31)=True) and 
-          (TIsMine(30)=True) and 
-          (TIsMine(32)=True) and 
-          (COwner(6)=PMe) and
-          (TArmies(30)>3) and
-          (TArmies(32)<16) and
-          (PT=3)) then ToTerritory:=32;
- 
-           
-           
-       //Put armies in S.A. if it isn't mine
-       CAnalysis(2,PT,PA,ET,EA);
-       If PT>0 then
-       If (UBufferGet(39)>2) then
-       If (UBufferGet(39)>4) or ((COwner(6)=PMe) and (PTerritoriesCount(PMe)>16)) or (COwner(6)<>PMe) or (COwner(1)=PMe) then
-       Begin
-       
-       CAnalysis(5,PT2,PA2,ET2,EA2);
-       If (((PA<2*EA) or (PA<30)) and ((PT2<6) or (UBufferGet(32)=1)) ) then
-       Begin
-       If ((COwner(2)<>PMe) and (TContinent(ToTerritory)<>2)) and TIsMine(11) then ToTerritory:=11;
-       If ((COwner(2)<>PMe) and (TContinent(ToTerritory)<>2)) and TIsMine(13) then ToTerritory:=13;
-       If ((COwner(2)<>PMe) or ((UBufferGet(32)=1) and (TContinent(ToTerritory)>2))) and TIsMine(12) then ToTerritory:=12;
-       If ((COwner(2)<>PMe) or ((UBufferGet(32)=1) and (TContinent(ToTerritory)>2))) and TIsMine(10) then ToTerritory:=10;
-       end;
-       end;
-       
-         
-      //Brazil 2
-     If (COwner(2)=PMe) then 
-     begin
-     If (COwner(1)=PMe) then C:=0 else C:=4;
-     If ((COwner(1)=PMe) and (TArmies(1)>TArmies(37)+12)) then C:=4;
-     If ((TArmies(12)<20) and ((TArmies(12)<TArmies(14)+8+(C div 2)) OR (UBufferGet(39)>4))) then ToTerritory:=12;
-     If ((TArmies(10)<6+C) and (TArmies(12)>11) ) then ToTerritory:=10; 
-     If (TArmies(12)<10) then ToTerritory:=12;
-     If ((TArmies(10)<6) and (TArmies(12)>11)) then ToTerritory:=10;
-     If ((TArmies(10)<4) and (TArmies(12)>6) and (TArmies(12)>TArmies(14)+3) ) then ToTerritory:=10;
-     If ((TArmies(12)<4)) then ToTerritory:=12;
-     end;
-      
-            
-    //Fill Indonesia with 4 armies#
-    If ((TArmies(39)<2) and (COwner(6)=PMe) and (UBufferGet(45)<>0)) then 
-     Begin
-     ToTerritory:=39;
-     UBufferSet(41, 0);
-     end;
- 
-
-If ProtectAustralia then 
-If UBufferGet(39)>3 then
-Begin
-
-      //Protect Siam with one more armie
-      If (Reinforce or (TArmies(31)<10)) then
-      If ( TIsMine(31) and (COwner(6)=PMe) and (TArmies(31)<16) and (UBufferGet(45)=0) ) then 
-       Begin
-        ToTerritory:=31;
-        UBufferSet(45, 1);
-        //If UBufferGet(15) then //umessage('Armie placed in Siam ' );
-       end
-      else
-       UBufferSet(45, 2);
-       
-       If TIsMine(39) then ToTerritory:=39;
-       If TIsMine(31) then ToTerritory:=31;
-
-end;//Protect Australia   
-
-      //Try Fill Koryak with 8 if Asia is mine 
-      If ( TIsMine(37) and 
-          (TArmies(37)<8) and 
-          (NOT (COwner(1)=PMe)) and
-          (COwner(5)=PMe) ) then  //Asia is mine
-       Begin
-        ToTerritory:=37;
-        PT:=777;
-        //If UBufferGet(15) then //umessage('Fill Koryak with 8');
-       end;
-       
-end;  //Reinforce#1   
-
-
-     CAnalysis(5,PT,PA,ET,EA);
-     If PT=11 then
-     Begin 
-     
-     If (TContinent(ToTerritory)=5) and (ToTerritory<>31) then
-     Begin
-     TStrongestFront(ToTerritory,ET2,EA2);
-     If (TArmies(ToTerritory)>EA2+10) or (UBufferGet(36)=0) then A:=234;
-     end;
-
-//Put in Asia before putting on Europe or Africa or South America
-If ((A=234) or (TContinent(Toterritory)=2) or (TContinent(Toterritory)=3) or (TContinent(Toterritory)=4)) then
-Begin
-B:=0;
-C:=0;
-  For T:=27 to 38 do //Find what is not mine
-   begin 
-    If (TIsMine(T)=False) then B:=T;
-    If TIsBordering(B,T) and (B<>0) and TIsMine(T) and (TArmies(T)>TArmies(C)) then C:=T;
-   end;
-
-If TIsMine(C) then ToTerritory:=C;
-If TIsBordering(B,37) and TIsMine(37) then ToTerritory:=37;
-end;
-
-end; //pt=11
-
-     //Protect Koryak with one more armie 
-      If ( TIsMine(37) and 
-          (TArmies(37)<8) and 
-          (NOT (COwner(1)=PMe)) and
-          (UBufferGet(44)=0) and
-          (PT>7) and 
-          (TArmies(39)>9) ) then  //Indonesia secured
-       Begin
-        ToTerritory:=37;
-        UBufferSet(44, 1);
-        //If UBufferGet(15) then //umessage('Armie placed in Koryak');
-       end;
-       
-
-
-
-      //Try Fill Koryak with 10+T if Asia is mine and Koryak was already filled with 8
-      If ( TIsMine(37) and 
-          ((TIsMine(1)=False) or(TIsMine(1) and (TArmies(1)<20))) and 
-          ((TArmies(37)<14) OR ((NOT TIsMine(1)) and (TArmies(37)-TArmies(1)<10))) and 
-          (NOT (COwner(1)=PMe)) and
-          (TArmies(37)>7) and
-          (PT<>777) and
-          (COwner(5)=PMe) ) then
-       Begin
-        ToTerritory:=37;
-        //If UBufferGet(15) then //umessage('Fill Koryak with 14');
-       end;
-       
-If UBufferGet(36)<>0 then
-If (Danger=0) or (trunc(UBufferGet(36))=TOwner(Danger)) or (ToTerritory<>31) then 
-Begin
-     //Put everything in India if someone have 2 continents 
-     If ( (UBufferGet(36)>0) and 
-           TIsMine(30) and 
-          (TArmies(30)<14) and
-    ( ((COwner(3)<>0) and (COwner(3)=UBufferGet(36))) OR 
-      ((COwner(4)<>0) and (COwner(4)=UBufferGet(36))) ) and 
-      (TIsMine(27)=False) and 
-      (TIsMine(29)=False) ) then ToTerritory:=30;
-      
-     //Put everything in Kazakhstan if someone have 2 continents (one being EU or AF and M.E. not mine)
-     If ( (UBufferGet(36)>0) and (TIsMine(29)=True) and (TArmies(29)<14) and
-    ( ((COwner(3)<>0) and (COwner(3)=UBufferGet(36))) OR 
-      ((COwner(4)<>0) and (COwner(4)=UBufferGet(36))) ) and 
-      (TIsMine(27)=False) ) then ToTerritory:=29;
-
-
-     //Put everything in Middle East if someone have 2 continents (one being EU or AF)
-If UBufferGet(36)<>0 then
-Begin
-
-If (COwner(4)=0) then
- Begin
- A:=0;
- If ( (COwner(3)<>0) and (COwner(3)<>PMe) and (TArmies(26)<=TArmies(22)) ) then Begin A:=TArmies(26); T:=26; end;
- If ( (COwner(3)<>0) and (COwner(3)<>PMe) and (TArmies(22)< TArmies(26)) ) then Begin A:=TArmies(22); T:=22; end;
- end;
- 
-If (COwner(3)=0) then
- Begin
- B:=0;
- If ( (COwner(4)<>0) and (COwner(4)<>PMe) and (TArmies(16)<=TArmies(15)) ) then Begin B:=TArmies(16); T2:=16; end;
- If ( (COwner(4)<>0) and (COwner(4)<>PMe) and (TArmies(15)< TArmies(16)) ) then Begin B:=TArmies(15); T2:=15; end;
- end;
- 
-
-     If ( TIsMine(27) and (TArmies(27)<A+B+8) and
-     ((COwner(3)=trunc(UBufferGet(36))) OR (COwner(4)=trunc(UBufferGet(36))))
-      ) then ToTerritory:=27;
-
-end;
-end;
-
-      //Do not permit placements in Africa, Europe and Asia if you hold South America
-      //(Permit put on Asia if you hold Australia too)
-      If (COwner(6)=PMe) then C:=4 else C:=5;
-      If PTerritoriesCount(PMe)<22 then
-      If ( Not ((COwner(5)=PMe) and (COwner(6)=PMe)) ) then
-      If ( (((TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4) or (TContinent(ToTerritory)=C)) and (COwner(2)=PMe) and (PArmiesCount(PMe)<200)) OR
-           ((ToTerritory=12) and (Tarmies(12)>(trunc(1.2*Tarmies(14)+10))) and (Tarmies(12)>36)) ) then 
-      Begin
-      If TIsMine(3) then ToTerritory:=3;
-      If TIsMine(1) then ToTerritory:=1;
-      If TIsMine(10) then ToTerritory:=10;
-      If TIsMine(9) then ToTerritory:=9;
-      If TIsMine(4) then ToTerritory:=4;
-      If TIsMine(6) then ToTerritory:=6;
-      If TIsMine(8) then ToTerritory:=8;
-      If TIsMine(7) then ToTerritory:=7;
-      If TIsMine(5) then ToTerritory:=5;
-      
-      If (COwner(1)=PMe) then
-      Begin
-      If (COwner(2)=PMe) then ToTerritory:=3;
-      If (COwner(2)=PMe) then ToTerritory:=1;
-      If ((TArmies(3)<32)) then ToTerritory:=3;
-      If ((TArmies(1)<32)) then ToTerritory:=1;
-      If ((TArmies(3)<12)) then ToTerritory:=3;
-      If ((TArmies(1)<12)) then ToTerritory:=1;
-      If ((double(TArmies(3))<(1.2*TArmies(20)+4)) and (Not TisMine(20))) then ToTerritory:=3;
-      If ((double(TArmies(1))<(1.3*TArmies(37)+6)) and (Not TisMine(37))) then ToTerritory:=1;
-      If ((TArmies(3)<4)) then ToTerritory:=3;
-      If ((TArmies(1)<6)) then ToTerritory:=1;
-      end;
-      
-      If (TIsMine(14) and (TArmies(14)<4)) then ToTerritory:=14;
-      CAnalysis(2,PT,PA,ET,EA);
-      If ((TArmies(12)<30) and TIsMine(12) and (PA<40)) then ToTerritory:=12;
-      If ((TArmies(12)<10) and TIsMine(12)) then ToTerritory:=12;
-      end;
-   
-      //Do not weaken these 
-      If ( (PArmiesCount(PMe)>130) and (TArmies(3)<12) and (COwner(1)=PMe) ) then ToTerritory:=3;
-      If ( (PArmiesCount(PMe)>130) and (TArmies(1)<12) and (COwner(1)=PMe) ) then ToTerritory:=1;
-   
-      //Basic N.A. Protection
-      If (COwner(2)=PMe) then
-      If ( (((TArmies(12)>35) and (TArmies(12)>TArmies(14))) or (TArmies(12)>TArmies(14)+16)) ) then
-      Begin
-      If (TIsMine(3) and (TArmies(3)<22) and (COwner(1)=PMe)) then ToTerritory:=3;
-      If (TIsMine(1) and (TArmies(1)<32) and (COwner(1)=PMe)) then ToTerritory:=1;
-      If (TIsMine(3) and (TArmies(3)<16) and (COwner(1)=PMe)) then ToTerritory:=3;
-      If (TIsMine(1) and (TArmies(1)<24) and (COwner(1)=PMe)) then ToTerritory:=1;
-      If (TIsMine(3) and (TArmies(3)<10) and (COwner(1)=PMe)) then ToTerritory:=3;
-      If (TIsMine(1) and (TArmies(1)<16) and (COwner(1)=PMe)) then ToTerritory:=1;
-      If (TIsMine(3) and (double(TArmies(3))<(1.2*TArmies(20)+2)) and (Not TisMine(20))) then ToTerritory:=3;
-      If (TIsMine(1) and (double(TArmies(1))<(1.3*TArmies(37)+4)) and (Not TisMine(37))) then ToTerritory:=1;
-      If (TIsMine(3) and (TArmies(3)<4)) then ToTerritory:=3;
-      If (TIsMine(1) and (TArmies(1)<6)) then ToTerritory:=1;
-      end;
-      If ((COwner(2)=PMe) and (TArmies(12)>=20) and (TArmies(12)>TArmies(14))) then
-      Begin
-      If (TIsMine(3) and (TArmies(3)<6) and (COwner(1)=PMe)) then ToTerritory:=3;
-      If (TIsMine(1) and (TArmies(1)<12) and (COwner(1)=PMe)) then ToTerritory:=1;
-      end;
-      
-      If TArmies(9)>20 then C:=5 else C:=0;
-      //Fortify Alaska instead Greenland if necessary
-      If ((TArmies(1)<TArmies(37)+5+C) and (TIsMine(37)=False) and (COwner(1)=PMe) and ((ToTerritory=3) or ((ToTerritory=9) and (TArmies(9)>TArmies(10)+6))) and (TArmies(3)>TArmies(20)+3)) then  ToTerritory:=1;
-   
-      //Fortify Greenland instead Alaska if necessary
-      If ((TArmies(3)<TArmies(20)+5+C) and (TIsMine(20)=False) and (COwner(1)=PMe) and ((ToTerritory=1) or ((ToTerritory=9) and (TArmies(9)>TArmies(10)+6))) and (TArmies(1)>TArmies(37)+10)) then  ToTerritory:=3;
-   
-     //Put everything in Brazil if enemy is heavy on North Africa
-     If ((COwner(2)=PMe) and ((COwner(1)=0) or (COwner(1)=PMe)) and (TIsMine(14)=False) and (TArmies(12)<TArmies(14)+2)) then ToTerritory:=12;
-      
-     //Attack Mexico
-      CAnalysis(1,PT,PA,ET,EA);
-      If ((ET<=2) and (TIsMine(9)=False) and TIsMine(8) and ((TArmies(9)<30) or (PNewArmies(PMe)+TArmies(7)+TArmies(8)>TArmies(9)))) then ToTerritory:=8; 
-      If ((ET<=2) and (TIsMine(9)=False) and TIsMine(7) and ((TArmies(9)<30) or (PNewArmies(PMe)+TArmies(7)+TArmies(8)>TArmies(9)))) then ToTerritory:=7;
-     
-     //Put everything in Northwest Territory if someone got in North America
-     if TIsMine(2) then //and (TArmies(2)<EA+4*ET) 
-      If ((ET<=2) and ((TIsMine(1)=False) or (TIsMine(3)=False)) and ((TArmies(12)>TArmies(14)) or TIsMine(14) or (TIsMine(12)=False)) ) then ToTerritory:=2; 
-    
-     //UBufferGet(43)= initial PNewArmies
-     If (UBufferGet(43)=0) then UBufferSet(43, PNewArmies(PMe));
-     
-
-    
-    //If Asia occupied try put in Alaska 
-If( (COwner(5)<>0) and (COwner(5)=trunc(UBufferGet(36))) and TIsMine(1) and (TArmies(1)<6+TArmies(37) ) ) then ToTerritory:=1;
-    
-       If (COwner(5)=PMe) then
-       Begin
-       //Fortify comquered Asia
-       If ((COwner(5)=PMe) and (TArmies(27)<14)) then ToTerritory:=27;
-       If ((COwner(5)=PMe) and (TArmies(28)<8)) then ToTerritory:=28;
-       If ((COwner(5)=PMe) and (TArmies(29)<8)) then ToTerritory:=29;
-       If ((COwner(5)=PMe) and (TArmies(27)<10)) then ToTerritory:=27;
-       If ((COwner(5)=PMe) and (NOT (COwner(1)=PMe)) and (TArmies(37)<8)) then ToTerritory:=37;
-
-       //Mimimum reinforcement in Asia
-       If ((COwner(5)=PMe) and (TArmies(28)<4)) then ToTerritory:=28;
-       If ((COwner(5)=PMe) and (TArmies(29)<4)) then ToTerritory:=29;
-       If ((COwner(5)=PMe) and (TArmies(37)<4)) then ToTerritory:=37;
-       If ((COwner(5)=PMe) and (TArmies(27)<6)) then ToTerritory:=27;
-       end;
-
-If ((TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4)) then
-Begin
-If UBufferGet(39)>4 then 
-Begin
-       //Fortify Asia/Aust before putting something on Europe or Africa if Players>4
-       If ((TArmies(28)<10) and TIsMine(28)) then ToTerritory:=28;
-       If ((TArmies(29)<12) and TIsMine(29)) then ToTerritory:=29;
-       If ((TArmies(27)<20) and TIsMine(27)) then ToTerritory:=27;
-       If ((TArmies(28)<8) and TIsMine(28)) then ToTerritory:=28;
-       If ((TArmies(37)<18) and TIsMine(37) and (NOT (COwner(1)=PMe))) then ToTerritory:=37;
-       If ((TArmies(39)<12) and (COwner(5)=0) and TIsMine(39)) then ToTerritory:=39;
-       If ((TArmies(31)<10) and (COwner(5)=0) and (UBufferGet(36)=0) and TIsMine(31)) then ToTerritory:=31;
-       If (((TContinent(ToTerritory)=4)) and (COwner(5)=0) and (TArmies(33)<10) and TIsMine(33)) then ToTerritory:=33;
-       
-       end;  
-
-       If ((TArmies(27)<4) and TIsMine(27)) then ToTerritory:=27;
-       If ((TArmies(29)<4) and TIsMine(29)) then ToTerritory:=29;
-       If ((TArmies(28)<4) and TIsMine(28)) then ToTerritory:=28;
-       If ((TArmies(37)<4) and TIsMine(37)) then ToTerritory:=37; 
-end;
-
-     CAnalysis(2,PT2,PA2,ET2,EA2);
-     If (UBufferGet(32)=0) or (PT2=0) or (PTerritoriesCount(PMe)>12) then
-Begin//##
-     //Prepare to attack Siam from India if China not mine
-     If (((TIsMine(31)=False) and 
-         (TIsMine(39)=False) and 
-         (TIsMine(40)=False) and 
-         (TIsMine(41)=False) and 
-         (TIsMine(42)=False)) and
-         (TArmies(31)+ TArmies(39)<(trunc(UBufferGet(43))+TArmies(30)) ) and
-         (TIsMine(30)=True)) then 
-       ToTerritory:=30;
-
-    //Prepare to attack Siam from China  (#concentrate in kazak)  
-    If ( ((TArmies(32)>TArmies(30)) and TIsMine(30)) or (TIsMine(30)=False) ) then
-     If ((
-         (TIsMine(31)=False) and 
-         (TIsMine(39)=False) and 
-         (TIsMine(40)=False) and 
-         (TIsMine(41)=False) and 
-         (TIsMine(42)=False)) and
-         (TArmies(31)+ TArmies(39)+TArmies(40)+TArmies(41)+TArmies(42)-3<(trunc(UBufferGet(43))+TArmies(32)) ) and
-          TIsMine(32) ) then 
-          ToTerritory:=32;
-     
-    
-    //Prepare to attack Indonesia from Siam
-    CAnalysis(6,PT,PA,ET,EA);
-      If ( TIsMine(31) and 
-           (PT=0) and
-           (COwner(6)<>PMe) and 
-           (TArmies(31)+PNewArmies(PMe)>=TArmies(39)+TArmies(40)+TArmies(41)-4) and
-           (TArmies(31)<TArmies(39)+TArmies(40)+TArmies(41)+TArmies(42)+6)
-          ) then 
-        ToTerritory:=31;
-        
-CAnalysis(6,PT,PA,ET,EA);
-If PT=0 then
-Begin
-     //Fortify China to conquest Australia
-     If (  TIsMine(32) and 
-          (TIsMine(31)=False) and 
-          (((TArmies(32)>TArmies(30)) and TIsMine(30)) or (TIsMine(30)=False)) and
-          (TArmies(32)+PNewArmies(PMe)>TArmies(31)+TArmies(39)+TArmies(40))
-         ) then ToTerritory:=32;
-     
-          //Fortify India to conquest Australia
-     If (  TIsMine(30) and 
-          (TIsMine(31)=False) and 
-          (((TArmies(30)>=TArmies(32)) and TIsMine(32)) or (TIsMine(32)=False)) and
-          (TArmies(30)+PNewArmies(PMe)>TArmies(31)+TArmies(39)+TArmies(40))
-         ) then ToTerritory:=30;
-
-          //Fortify Siam to conquest Australia
-     If (  TIsMine(31) and 
-          (TArmies(31)+PNewArmies(PMe)>TArmies(39)+TArmies(40)+TArmies(41)+TArmies(42)-4)
-         ) then ToTerritory:=31;
-end;
-
-end;//##
-
-end; //if UBufferGet(39)>3
-
-
-//Case specific Players=3
- If UBufferGet(39)=3 then
-Begin
-CAnalysis(5,PT,PA,ET,EA);
-CAnalysis(1,PT2,PA2,ET2,EA2);
-
-
-If NOT ((UBufferGet(39)>4) or ((COwner(6)=PMe) and (PTerritoriesCount(PMe)>16)) or (COwner(6)<>PMe) or (COwner(1)=PMe)) then
-      If (TContinent(ToTerritory)=2) then
-      If UBufferGet(32)=0 then
-       Begin
-       //umessage(' larica ', ToTerritory);
-       If TIsFront(33) then ToTerritory:=33;
-       If TIsFront(27) then ToTerritory:=27;
-       If TIsFront(32) then ToTerritory:=32;
-       If TIsFront(30) then ToTerritory:=30;
-       If TIsFront(31) then ToTerritory:=31;
-       If TIsFront(39) then ToTerritory:=39;
-       If (TContinent(ToTerritory)=2) then ToTerritory:=0;
-       end;
-
-
-       If ((TArmies(31)<4) and (PNewArmies(PMe)>8) and (COwner(6)=PMe) and TIsMine(31)) then ToTerritory:=31;
-       
-If ( (TContinent(ToTerritory)<>5) and (TContinent(ToTerritory)<>1) ) then
-Begin
-
-       If (((TContinent(ToTerritory)=3) and (COwner(6)=PMe)) and (TArmies(33)<4) and TIsMine(33)) then ToTerritory:=33;
-       If (((TContinent(ToTerritory)=3)) and (TArmies(37)<6) and TIsMine(37)) then ToTerritory:=37;
-       
-//if c2 not mine
-       If (((TContinent(ToTerritory)=2) or (TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4)) and (TArmies(32)<2) and (PT>4) and (PT<9) and TIsMine(32)) then ToTerritory:=32;
-       If (((TContinent(ToTerritory)=2) or (TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4)) and (TArmies(30)<2) and (PT>4) and (PT<9) and TIsMine(30)) then ToTerritory:=30;
-       If (((TContinent(ToTerritory)=2) or (TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4)) and (TArmies(33)<6) and (TArmies(33)+TArmies(35)+TArmies(36)+TArmies(38)<11) and (PT>4) and (PT<9) and TIsMine(33)) then ToTerritory:=33; 
-       If ( (TContinent(ToTerritory)<>5) and (TArmies(27)<16) and TIsMine(27) and (PT>10)) then ToTerritory:=27;
-       If (((TContinent(ToTerritory)=2) or (TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4)) and (TArmies(37)<4) and TIsMine(37) and (TIsFront(37) or (NOT TIsMine(27))) ) then ToTerritory:=37;
-       If (((TContinent(ToTerritory)=2) or (TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4)) and (TArmies(29)<6) and (PT>4) and TIsMine(29)) then ToTerritory:=29; 
-       If (((TContinent(ToTerritory)=2) or (TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4)) and (TArmies(28)<6) and (PT>4) and TIsMine(28)) then ToTerritory:=28;  
-       If ( (TContinent(ToTerritory)<>5)  and (TArmies(27)<12) and TIsMine(27) and (PT>9)) then ToTerritory:=27;
-end;
-
-
-       If ((TArmies(39)<TArmies(31)) and (TIsMine(31)=False) and (COwner(6)=PMe)) then ToTerritory:=39;
-       If TIsMine(1) then C:=9 else C:=8+TArmies(1); 
-       If ((COwner(5)=PMe) and (NOT (COwner(1)=PMe)) and (TArmies(37)<C)) then ToTerritory:=37;
-       If ((COwner(5)=PMe) and (TArmies(27)<10)) then ToTerritory:=27;
-       If ((COwner(5)=PMe) and (TArmies(28)<4)) then ToTerritory:=28;
-       If ((COwner(5)=PMe) and (TArmies(29)<4)) then ToTerritory:=29;
-       If ((PT>9) and (TArmies(33)<2) and TIsMine(33)) then ToTerritory:=33;
-       If ((COwner(5)=PMe) and (TArmies(37)<4)) then ToTerritory:=37;
-       If ((COwner(5)=PMe) and (TArmies(27)<4)) then ToTerritory:=27;
-       
-       If ((COwner(2)=PMe) and (TArmies(12)<4)) then ToTerritory:=12;
-       
-       If (PT<9) and (EA2<16) and (PT2<8) then
-       If (TContinent(ToTerritory)<>6) and (ToTerritory<>31) then
-       Begin
-       If TIsMine(1) and ((NOT TIsMine(2)) or (NOT TIsMine(4))) then T:=1;
-       If TIsMine(7) and TIsFront(7)then T:=7;
-       If TIsMine(8) and TIsFront(8)then T:=8;
-       If TIsMine(6) and TIsFront(6) then T:=6;
-       If TIsMine(4) and TIsFront(4) then T:=4;
-       If TIsMine(2) and TIsFront(2) then T:=2;
-       If TIsMine(5) and TIsFront(5) then T:=5;
-       If ( ((TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=2)) and TIsMine(T) ) then ToTerritory:=T;
-       end;
-
-If ( (COwner(2)=PMe) and (TArmies(12)<TArmies(14)+2) and (Not TIsMine(14)) ) then ToTerritory:=12;
-
-
-      If (UBufferGet(10)<>0) and (COwner(6)=-(trunc(UBufferGet(10)))) then C:=6 else C:=0;
-      If ToTerritory=12 then
-      If (COwner(1)=PMe) and (COwner(2)=PMe) then
-      If TArmies(12)-TArmies(14)>20 then C:= round((TArmies(12)-TArmies(14)-15)/3);  //#*# used round instead of trunc calculations using c will be slightly different than in ver 1.2 too complicated to fix
-
-      If (COwner(1)=PMe) then
-      Begin
-      If (TOwner(20)=COwner(6)) and (NOT (TOwner(1)=COwner(6))) then C:=C+3;
-      If (COwner(3)<>PMe) then
-       If ((double(TArmies(3))<(1.2*TArmies(20)+5+C)) and ((Not TisMine(20)) or (TArmies(3)<20))) then ToTerritory:=3;
-      If TOwner(37)=COwner(6) then C:=C+3;
-      If (COwner(5)<>PMe) then 
-       if TIsMine(20) or (TArmies(3)>TArmies(20)+1) then
-        If ((double(TArmies(1))<(1.3*TArmies(37)+6+C)) and ((Not TisMine(37)) or (TArmies(1)<20))) then ToTerritory:=1;
-      If ((TArmies(3)<6)) then ToTerritory:=3;
-      If ((TArmies(1)<6)) then ToTerritory:=1;
-      If ((TArmies(3)<4)) then ToTerritory:=3;
-      If ((TArmies(1)<4)) then ToTerritory:=1;
-      //umessage('n.a. put ', ToTerritory); 
-      end;
-
-If (UBufferGet(36)=0) or (Danger<>0) then //##00 ok
-Begin
-       If ProtectAustralia and TIsMine(39) then ToTerritory:=39;
-       If ProtectAustralia and TIsMine(31) then ToTerritory:=31;
-end;
-
-If (UBufferGet(36)<>0) then
-If (Danger=0) or 
-((trunc(UBufferGet(36))=TOwner(Danger)) and 
-      ( (PArmiesCount(-(trunc(UBufferGet(10))))<TArmies(31)) or (ToTerritory<>31) or (TArmies(31)<35) )) or 
-(ToTerritory<>31) then 
-Begin
-     //Put everything in India if someone have 2 continents
-     If (  (UBufferGet(36)<>0) and 
-           TIsMine(30) and 
-          (TArmies(30)<10) and
-    ( ((COwner(3)<>0) and (COwner(3)=trunc(UBufferGet(36)))) OR 
-      ((COwner(4)<>0) and (COwner(4)=trunc(UBufferGet(36)))) ) and 
-      (TIsMine(27)=False) and 
-      (TIsMine(29)=False) ) then ToTerritory:=30;
-      
-     //Put everything in Kazakhstan if someone have 2 continents (one being EU or AF and M.E. not mine)
-     If ( (UBufferGet(36)<>0) and (TIsMine(29)=True) and (TArmies(29)<10) and
-    ( ((COwner(3)<>0) and (COwner(3)=trunc(UBufferGet(36)))) OR 
-      ((COwner(4)<>0) and (COwner(4)=trunc(UBufferGet(36)))) ) and 
-      (TIsMine(27)=False) ) then ToTerritory:=29;
-
-
-       //Put armies in SA c1 occupied
-If (COwner(1)<>0) and (COwner(1)<>PMe) and (ToTerritory<>10) then //or UBufferGet(32)
-Begin
-       CAnalysis(2,PT,PA,ET,EA);
-       CAnalysis(1,PT2,PA2,ET2,EA2);
-       CLeader(6,LP,LT,LA);
-       If NOT ((LT>0) and (UBufferGet(39)=3)) then
-       If ( ((double(PA)<(1.5*EA+2)) and ((COwner(5)=PMe) or (LP<>PMe)) and (PT2<5)) or 
-            ((PProgram(LP)=PProgram(PMe)) and (LP<>PMe)) ) then
-       Begin
-       //umessage( 'Put armies in SA c1 occupied');
-       If ((COwner(2)<>PMe) and ( ((TContinent(ToTerritory)<>2) ) ) and TIsMine(11)) then ToTerritory:=11;
-       If ((COwner(2)<>PMe) and ( ((TContinent(ToTerritory)<>2) ) ) and TIsMine(13)) then ToTerritory:=13;
-       If ((COwner(2)<>PMe) and ( ((TContinent(ToTerritory)<>2) ) ) and TIsMine(12)) then ToTerritory:=12;
-       If ((COwner(2)<>PMe) and ( ((TContinent(ToTerritory)<>2) ) ) and TIsMine(10)) then ToTerritory:=10;
-       end;
-end;
-
-
-     //Put in Siam to atack EU or Af
-    If UBufferGet(39)=3 then
-     If (COwner(1)=0) and TIsMine(31) then
-      If (COwner(3)=trunc(UBufferGet(36))) or (COwner(4)=trunc(UBufferGet(36))) then
-       If (NOT TIsMine(27)) and (NOT TIsMine(28)) and (NOT TIsMine(29)) and (NOT TIsMine(30)) then
-        If (TContinent(ToTerritory)<>1) and (TContinent(ToTerritory)<>4) and (TContinent(ToTerritory)<>2) then
-         ToTerritory:=31;  
-
-     //Put everything in Middle East if someone have 2 continents (one being EU or AF)
-If (COwner(3)=trunc(UBufferGet(36))) or (COwner(4)=trunc(UBufferGet(36))) and (UBufferGet(36)<>0) then
-Begin//one rule
-A:=0;
-If (COwner(4)=0) then
- Begin
- If ( (COwner(3)<>0) and (COwner(3)<>PMe) and (TArmies(26)<=TArmies(22)) ) then Begin A:=TArmies(26); T:=26; end;
- If ( (COwner(3)<>0) and (COwner(3)<>PMe) and (TArmies(22)< TArmies(26)) ) then Begin A:=TArmies(22); T:=22; end;
- end;
- 
- Begin
- B:=0;
- If ( (COwner(4)<>0) and (COwner(4)<>PMe) and (TArmies(16)<=TArmies(15)) ) then Begin B:=TArmies(16); T2:=16; end;
- If ( (COwner(4)<>0) and (COwner(4)<>PMe) and (TArmies(15)< TArmies(16)) ) then Begin B:=TArmies(15); T2:=15; end;
- end;
-
-     If ( (TIsMine(27)=True) and (TArmies(27)<A+B+8) and
-    ( ((COwner(3)<>0) and (COwner(3)=trunc(UBufferGet(36)))) OR 
-      ((COwner(4)<>0) and (COwner(4)=trunc(UBufferGet(36)))) )
-      ) then ToTerritory:=27;
-      
-end;//one rule
-
-end;
-
-    //Prepare to attack Indonesia from Siam
-If (COwner(6)<>PMe) then
-If TIsMine(31) then
-If (UBufferGet(39)>2) then
-Begin
-    CAnalysis(6,PT,PA,ET,EA);
-      If ( 
-           (PT=0) and
-           (TArmies(31)+PNewArmies(PMe)>=TArmies(39)+TArmies(40)+TArmies(41)-4) and
-           (TArmies(31)<TArmies(39)+TArmies(40)+TArmies(41)+TArmies(42)+6)
-          ) then ToTerritory:=31;
-end;
-
-
-end; //Players=3
-
-//Let the bubble with few players under extreme weakness
-If UBufferGet(10)<0 then
-If (UBufferGet(8)=0) and (UBufferGet(9)=0) then
-Begin
-If (UBufferGet(39)=3) then
-If PTerritoriesCount(PMe)<1+trunc(UBufferGet(39)) then
- If (-(trunc(UBufferGet(10)))=COwner(6)) then UBufferSet(33, 0);
-
- If (UBufferGet(39)=4) then UBufferSet(33, 0);
-end;
-
-//N.A. invasion
-If COwner(TContinent(ToTerritory))<>PMe then
-If (TContinent(ToTerritory)<>1) and (TContinent(ToTerritory)<>6) then
-If ToTerritory<>31 then
-If UBufferGet(30)=0 then
-Begin
-
-A:=1;
-For T:=1 to 9 do
- If Not TIsMine(T) then Begin C:=T; T:=9; end;
-For T:=C+1 to 9 do
- If (Not TIsMine(T)) and (TOwner(C)<>TOwner(T)) then Begin A:=2; T:=9; end;
-
-If A=1 then C:=12 else C:=8;
-
-If COwner(6)<>PMe then
-Begin
-B:=0;
-If TIsMine(30) then B:=TArmies(30);
-If TIsMine(32) then B:=TArmies(32)+B;
-If ((ToTerritory=30) or (ToTerritory=32)) and (PNewArmies(PMe)+B+1>TArmies(31)+TArmies(39)) then C:=-1000;
-end;
-
-CAnalysis(1,PT,PA,ET,EA);
-CAnalysis(TContinent(ToTerritory),PT2,PA2,ET2,EA2);
-
-If (PT<7) and (PT2 + ET2 > 0) then  // added (PT2 + ET2 > 0) to prevent divide by zero bug, Nathan Scarbrough 6-9-10 #*#
-If (((double(PA2)+PT2)/(double(PA2)+PT2+EA2+PA2)<0.7) and (double(PT2)/(double(PT2)+ET2)<0.7)) or
-((TContinent(ToTerritory)=5) and ((COwner(6)=-(trunc(UBufferGet(10)))) or (COwner(6)=trunc(UBufferGet(10)))))
-then
-If EA+ET-(PT+PA+PNewArmies(PMe)-3)<C then
-Begin
-//umessage('N.A. Invasion ', ToTerritory ); 
-If TIsFront(9) then ToTerritory:=9;
-If TIsFront(1) and ((Not TIsMine(2)) or (Not TIsMine(4))) then ToTerritory:=1;
-If TIsFront(3) and ((Not TIsMine(2)) or (Not TIsMine(5)) or (Not TIsMine(6))) then ToTerritory:=3;
-If TIsFront(8) then ToTerritory:=8;
-If TIsFront(7) then ToTerritory:=7;
-If TIsFront(6) then ToTerritory:=6;
-If TIsFront(4) then ToTerritory:=4;
-If TIsFront(2) then ToTerritory:=2;
-If TIsFront(5) then ToTerritory:=5;
-
-If (COwner(3)<>0) and TIsFront(3) then ToTerritory:=3;
-
-end;
-
-end;
-
-
-end;//>2
-
-     UBufferSet(46, 0); //Test Ukrania if occupant is strong
-     UBufferSet(47, 0); //Test Egypt if occupant is strong
-     
-
-//ANY PLAYERS
-
-
-//Put in 37 given this situation #
-If TIsMine(37) then
-If ((ToTerritory=35) or (ToTerritory=36) or (ToTerritory=38) or (ToTerritory=33)) then 
-Begin
-CAnalysis(5,PT,PA,ET,EA);
-     If (PT>=10) and (PT<12) then
-      If ((TFrontsCount(37)>=1) or ((TFrontsCount(37)=3) and (NOT TIsMine(1)))) then 
-        If NOT (TIsMine(33) and TIsMine(35) and TIsMine(36) and TIsMine(38)) then ToTerritory:=37;
-end;
-
-//Fortify N.A. a bit 
-If (COwner(1)=PMe) then 
-begin
-CAnalysis(2,PT,PA,ET,EA);
-If UBufferGet(39)>2 then If ((TArmies(1)<6) and (COwner(1)=PMe) and (COwner(3)<>PMe)) then ToTerritory:=1;
-If UBufferGet(39)>2 then If ((TArmies(3)<6) and (COwner(1)=PMe) and (COwner(3)<>PMe)) then ToTerritory:=3;
-
-If PT>1 then C:=6 else C:=12;
-If UBufferGet(39)=2 then C:=4;
-If ((TArmies(9)<C) and TIsFront(9) and (COwner(1)=PMe) and (COwner(2)<>PMe)) then ToTerritory:=9;
-If ((TArmies(1)<4) and (COwner(1)=PMe) and (COwner(3)<>PMe)) then ToTerritory:=1;
-If ((TArmies(3)<4) and (COwner(1)=PMe) and (COwner(3)<>PMe)) then ToTerritory:=3;
-If ((TArmies(9)<4) and (COwner(1)=PMe) and (COwner(2)<>PMe)) then ToTerritory:=9;
-
-If UBufferGet(39)>2 then
-If  (
-(TArmies(3)>trunc(1.5*TArmies(20))) and 
-(TArmies(3)>30) and
-(TArmies(1)>trunc(1.5*TArmies(37))) and 
-(TArmies(1)>34) and
-((ToTerritory=3) or (ToTerritory=1)) 
-) then
-Begin 
-If (COwner(6)=-UBufferGet(10)) or (UBufferGet(10)>0) then C:=6;
-If TArmies(2)<8+C then ToTerritory:=2;
-
-If ( (TArmies(10)<20) and 
-      TIsMine(10) and
-     (TArmies(7)+TArmies(8)+TArmies(9)<20) ) then ToTerritory:=10;
-
-If TArmies(2)<8 then ToTerritory:=2;
-If TArmies(6)<4 then ToTerritory:=6;
-If TArmies(5)<4 then ToTerritory:=5;
-If TArmies(4)<4 then ToTerritory:=4;
-end;
-
-end;
-
-
-     //Swap ToTerritory= 35 to 37/27 #
-     If (ToTerritory=35) then
-     If ( (COwner(5)=PMe) and 
-          (TArmies(35)>3) 
-         ) then 
-Begin
-If (COwner(1)<>PMe) and (TArmies(37)<20) then ToTerritory:=37;
-         
-  If URandom(0)>0.3 then
-Begin
-  MaxRatio:=0;
-  for T:=1 to 42 do begin
-    if TIsFront(T) and TIsMine(T) then begin  // territory is mine and front
-      Ratio :=TPressure(T) / TArmies(T);
-      if Ratio>MaxRatio then begin
-        ToTerritory:=T;
-        MaxRatio:=Ratio;
-      end;
-    end;
-  end;
-end;
-
-CAnalysis(1,PT,PA,ET,EA);
-If (URandom(0)>0.3) and (PT>7) and TIsFront(27) and (TArmies(27)<20) then ToTerritory:=27;
-         
-end;
-
-
-       //Protect with 2 S.A. territories#
-       CAnalysis(2,PT,PA,ET,EA);
-       If ((EA>3) and (PT<>4)) or (UBufferGet(32)=1) then 
-       Begin
-       If ((UBufferGet(39)=2) or (UBufferGet(32)=1)) then If ((TArmies(10)=1) and TIsMine(10)) then ToTerritory:=10;
-       If (PT<>4) and ((UBufferGet(39)=2) or (UBufferGet(32)=1)) then If ((TArmies(11)=1) and TIsMine(11)) then ToTerritory:=11;
-       If (TArmies(12)=1) and TIsMine(12) then ToTerritory:=12;
-       If (PT<>4) and ((UBufferGet(39)=2) or (UBufferGet(32)=1)) then If ((TArmies(13)=1) and TIsMine(13)) then ToTerritory:=13;
-       end;
-
-
-     //Put armies in Northwest Territory if someone got in North America
-     If ((TContinent(ToTerritory)<>6) and (ToTerritory<>31)) then
-     Begin
-      CAnalysis(1,PT,PA,ET,EA);
-      If ((TArmies(7)<TArmies(9)+2) and TIsMine(7) and (NOT TIsMine(9)) and (PT>6) and (COwner(2)<>PMe) and ((COwner(5)=0) or (COwner(5)=PMe)) ) then  
-      Begin
-      ToTerritory:=7;
-      If (NOT TIsMine(9)) and (TArmies(8)<4) and (TArmies(9)>12) and (PT=8) and (TArmies(7)+TArmies(8)+PNewArmies(PMe)<TArmies(9)) then ToTerritory:=8;
-      //If (NOT TIsMine(9)) and (PT=8) and (TArmies(9)>30) and (URandom(0)>0.5) and (TArmies(7)+TArmies(8)+PNewArmies(PMe)<TArmies(9)) then ToTerritory:=8;
-      end;
-      
-      If (ET<=2) then 
-       If ((TArmies(12)>TArmies(14)) or TIsMine(14) or (TIsMine(12)=False)) then
-      Begin
-      If ((ET<=2) and ((TIsMine(1)=False) or (TIsMine(3)=False)) and TIsMine(2) and (TArmies(2)<=TArmies(1)+TArmies(3)+1)) then ToTerritory:=2;
-      
-      If ET=1 then
-      Begin
-      If UBufferGet(39)>2 then If ((ET=1) and (TIsMine(1)=False) and (TArmies(2)>=TArmies(4))) then ToTerritory:=2;
-      If ((ET=1) and (TIsMine(1)=False) and (TArmies(4)>TArmies(2))) then ToTerritory:=4;
-      If ((ET=1) and (TIsMine(1)=False) and (TArmies(2)<4) and (TArmies(1)>12)) and (TArmies(2)+TArmies(4)+PNewArmies(PMe)<TArmies(1)) then ToTerritory:=2;
-      If ((ET=1) and (TIsMine(1)=False) and (TArmies(4)<4) and (TArmies(1)>12)) and (TArmies(2)+TArmies(4)+PNewArmies(PMe)<TArmies(1)) then ToTerritory:=4;
-
-      If ((ET=1) and (TIsMine(3)=False) and (TArmies(2)>=TArmies(5)) and (TArmies(2)>=TArmies(6))) then ToTerritory:=2; 
-      If ((ET=1) and (TIsMine(3)=False) and (TArmies(5)>TArmies(2)) and (TArmies(5)>=TArmies(6))) then ToTerritory:=5;
-      If ((ET=1) and (TIsMine(3)=False) and (TArmies(6)>TArmies(2)) and (TArmies(6)>TArmies(5))) then ToTerritory:=6;
-      If ((ET=1) and (TIsMine(3)=False) and (TArmies(2)<4) and (TArmies(3)>12) and (TArmies(2)+TArmies(5)+TArmies(6)+PNewArmies(PMe)-2<TArmies(3)) ) then ToTerritory:=2;
-      If ((ET=1) and (TIsMine(3)=False) and (TArmies(5)<4) and (TArmies(3)>12) and (PNewArmies(PMe)+TArmies(5)+TArmies(6)+TArmies(2)-2<TArmies(3)) ) then ToTerritory:=5;
-      If ((ET=1) and (TIsMine(3)=False) and (TArmies(6)<4) and (TArmies(3)>12) and (PNewArmies(PMe)+TArmies(5)+TArmies(6)+TArmies(2)-2<TArmies(3)) ) then ToTerritory:=6;
-      end;//et=1
-      end;
-      end;
-
-If (Danger=0) or (COwner(1)=TOwner(Danger)) then 
-Begin//danger=0
-
-
-//Put armies to attack North America#
-If (TIsMine(37)=False) then
-Begin
-CAnalysis(5,PT,PA,ET,EA);
-If (((TOwner(1)=COwner(1)) and (COwner(1)<>PMe)) or (PT=11)) then
-If (COwner(1)=trunc(UBufferGet(36))) or ((UBufferGet(36)=0) and (UBufferGet(39)<6)) then //##ok
-Begin
-
-If TIsMine(33) then A:=TArmies(33) else A:=0;
-If TIsMine(35) then B:=TArmies(35) else B:=0;
-If TIsMine(36) then C:=TArmies(36) else C:=0;
-If TIsMine(38) then D:=TArmies(38) else D:=0;
-T:=33;
-//If ( (A>=B) and (A>=C) and (A>=D) ) then T:=33;
-If ( (B>A) and (B>=C) and (B>=D) ) then T:=35;
-If ( (C>A) and (C>B) and (C>=D) ) then T:=36;
-If ( (D>A) and (D>B) and (D>C) ) then T:=38;
-
-If COwner(1)=trunc(UBufferGet(36)) then X:=12 else X:=4;
-
-     If ( TIsMine(T) and 
-          ( (COwner(1)=TOwner(37)) or (TArmies(37)<14) ) and 
-          (TArmies(T)<=TArmies(37)+TArmies(1)+X)
-         ) then ToTerritory:=T;
-end;
-end;
-
-
-     //Put N+X on Koryak if someone have North America #
-     If ((COwner(1)=trunc(UBufferGet(36))) and (trunc(UBufferGet(36))<>0)) then X:=12 else X:=8;
-     If ( TIsMine(37) and 
-          (TArmies(37)<=TArmies(1)+X) and
-          (COwner(1)<>0) and 
-          (COwner(1)<>PMe) and
-          ( (trunc(UBufferGet(36))=TOwner(1)) or ((PTerritoriesCount(TOwner(1))>9+trunc(UBufferGet(39))) and (trunc(UBufferGet(36))=0)) ) //##ok
-         ) then 
-         If NOT ( 
-   (ToTerritory=27) and (double(PNewArmies(PMe)+TArmies(37))<(0.8*TArmies(1))) and
-   (COwner(4)=COwner(1)) and 
-   ((PNewArmies(PMe)+TArmies(27)>TArmies(16)) or (PNewArmies(PMe)+TArmies(27)>TArmies(15))) 
-   ) then ToTerritory:=37;
-
-     //Put in Venezuela if PNewArmies can get in North America #
-     if TIsMine(10) then
-     If (NOT TIsMine(37)) or (TArmies(37)-TArmies(1)<TArmies(10)-TArmies(9)) then
-     If ( (COwner(1)<>0) and (COwner(1)<>PMe) and (TArmies(10)<=TArmies(9)+3) and (TArmies(10)+PNewArmies(PMe)>=TArmies(9)) ) then ToTerritory:=10;
-
-end; //Danger
-
-If UBufferGet(39)>2 then
-Begin
-
-     //Put everything on Indonesia if enemy is heavy on Siam
-     If ((COwner(6)=PMe) and (TIsMine(31)=False) and (double(TArmies(39))<(1.4*TArmies(31)+7))) then ToTerritory:=39;
-
-     //Put everything on Siam if enemy is heavy on China
-     If ((COwner(6)=PMe) and (TIsMine(32)=False) and (TIsMine(31)=True) and (TArmies(31)+TArmies(39)<TArmies(32)+12)) then ToTerritory:=31;
-
-end; //>2
-
-     //Put armies in Australia if it isn't mine 
-If COwner(6)<>PMe then
-Begin
-CAnalysis(6,PT,PA,ET,EA);
-
-If PT>0 then
-Begin 
-
-IF ((PA<EA+4) and (PA<6)) or (UBufferGet(39)>2) then 
-If UBufferGet(32)=0 then
-If (NOT ((PT=3) and (PA>EA+3+4) and (UBufferGet(39)<4)) ) then
-Begin
-
-       If ( (PT=3) and (NOT (TIsMine(40) and TIsMine(42))) ) then ToTerritory:=39;
-       If (( ((TContinent(ToTerritory)<>6) ) ) and TIsMine(42)) then ToTerritory:=42;
-       If (( ((TContinent(ToTerritory)<>6) ) ) and TIsMine(40)) then ToTerritory:=40;
-       If (( ((TContinent(ToTerritory)<>6) ) ) and TIsMine(39)) then ToTerritory:=39;
-       If (( ((TContinent(ToTerritory)<>6) ) ) and TIsMine(41)) then ToTerritory:=41;
-       If TIsMine(40) and TIsMine(41) and TIsMine(42) and TIsMine(31) and (NOT TIsMine(39)) then ToTerritory:=31;
-end;
-
-If (UBufferGet(39)>2) then
- If (PA>EA+7) and (TContinent(ToTerritory)=6) then
-  Begin
-   ToTerritory:=0;
-   If TIsMine(31) and (TArmies(31)<8) then ToTerritory:=31;
-  end;
-
-end;
-end;
-
-       
-       //Die hard in Asia
-       If UBufferGet(12)<30 then
-       If (COwner(6)<>PMe) and (UBufferGet(30)=0) then
-       Begin
-       CAnalysis(5,PT,PA,ET,EA);
-       If PA<3 then
-       Begin
-       B:=0;
-       For T:=21 to 38 do If TIsMine(T) then If ((B=0) or (NOT ((T=37) and (B>27)))) then  B:=T;
-       If ((TArmies(B)<2) and TIsMine(B)) then 
-        if PTerritoriesCount(PMe)<6 then ToTerritory:=B;
-       UBufferSet(12,UBufferGet(12)+1);
-       end;
-       end;
-
-
-       //Protect with 2 Australia territories
-       CAnalysis(6,PT,PA,ET,EA);
-       If (((EA>3) and (UBufferGet(30)=1)) or ((EA>3) and (EA>PNewArmies(PMe)+PA))) then
-       If (PT>1) or (UBufferGet(32)=0) then
-       Begin
-       If ((COwner(6)<>PMe) and (TArmies(39)=1) and TIsMine(39)) then ToTerritory:=39;
-       If ((COwner(6)<>PMe) and (TArmies(40)=1) and TIsMine(40)) then ToTerritory:=40;
-       If ((COwner(6)<>PMe) and (TArmies(41)=1) and TIsMine(41) and ((Not TIsMine(40)) or (Not TIsMine(42))) ) then ToTerritory:=41;
-       If ((COwner(6)<>PMe) and (TArmies(42)=1) and TIsMine(42)) then ToTerritory:=42;
-       end;
-
-If PTerritoriesCount(-(trunc(UBufferGet(10))))=1 then
-If (COwner(6)=PMe) then
-If (UBufferGet(36)=0) or (((double(PArmiesCount(trunc(UBufferGet(36))))/UBufferGet(49))<0.4) and (COwner(6)=PMe)) then
-For T:=39 downto 1 do
-If TOwner(T)=-(trunc(UBufferGet(10))) then
- Begin
- TPStrongestBorder(T, PMe, PT,PA);
- If PT<>0 then
-  If (PA+PNewArmies(PMe)>TArmies(T)) and (PA-TArmies(T)<9) then ToTerritory:=PT;
- T:=1;
- If (ToTerritory=31) and (UBufferGet(25)=1) then Danger:=T;
- //umessage('directed attack ', ToTerritory);
- end;
-
-   
-If UBufferGet(39)=3 then C:=4 else C:=2;
-If (UBufferGet(39)<4) then
- If (TFrontsCount(ToTerritory)=1) then
-  If TArmies(ToTerritory)>TArmies(TFront(ToTerritory,1))+C then
-   If TFront(TFront(ToTerritory,1),1)<=0 then
-    For T:=42 DOWNTO 1 do
- If TIsFront(T) then
-  If (T<>ToTerritory) and (Not TIsBordering(T, TFront(ToTerritory,1))) then 
-Begin
-//umessage('ToTerritory ',ToTerritory, ' T  ', T);
-ToTerritory:=T;
-T:=1;
-end;
-
-//Kill crazy bub
-If (not TIsMine(trunc(UBufferGet(6)))) or (TArmies(trunc(UBufferGet(6)))<3) then UBufferSet(6,0);
-
-
-    
-If UBufferGet(33)=0 then
-Begin//KillBubble
-
-//Reset if the Bubble was killed
- If (TIsMine(trunc(UBufferGet(20)))=False) then 
- Begin 
- UBufferSet(24,0);
- UBufferSet(25,0); 
- end;
- 
-CAnalysis(1,PT,PA,ET,EA);
-If (PA+2*PT<EA+ET) then Bubble:=True else Bubble:=False;
-If ((PA>20) and (EA<30)) then Bubble:=False;
-
-CAnalysis(6,PT,PA,ET,EA);
-CAnalysis(5,PT2,PA2,ET2,EA2);
-CAnalysis(2,PT3,PA3,ET3,EA3);
-
-If UBufferGet(10)<0 then C:=1 else C:=20;
-If UBufferGet(10)<0 then D:=1 else D:=0;
-
-//If (PArmiesCount(PMe)<40) then
-
-If ( (UBufferGet(25)=0) and Bubble) then 
-If (PTerritoriesCount(trunc(UBufferGet(36)))<20) or (COwner(6)=-(trunc(UBufferGet(10)))) then 
- If ( 
-     ((PA=0) and (PA3<5) and (PT3<2) and (UBufferGet(30)=0) and (PT2<5) and (PTerritoriesCount(PMe)<6) and (UBufferGet(39)>3))
-  OR ((COwner(6)=PMe) and TIsMine(31) and (PT3<=2*D) and (PT2>1) and (PT2<5+D) and (PA2-TArmies(31)<EA2-C) and (PTerritoriesCount(PMe)<8+2*D) and (((UBufferGet(36)=0) and (EA2>25)) or (UBufferGet(10)<0)) )
-  OR ((PA=0) and (PA3=0) and (UBufferGet(30)=0) and (PTerritoriesCount(PMe)<5) and (PArmiesCount(PMe)<20))
-  OR (((PA=0) or (UBufferGet(32)=1)) and (COwner(2)=PMe) and (COwner(1)=0) and (TArmies(12)>7) and (TArmies(10)>5) and (PTerritoriesCount(PMe)>4) and (PTerritoriesCount(PMe)<11))
-   ) then 
- Begin  //?????
- UBufferSet(25,1); //Frank in Bubble Mode
- 
- If (
-     ((PT=0) and (PT2=0) and (UBufferGet(24)=0)) or (Cowner(2)=PMe)
-    ) then 
-  Begin
-  W:=1;
-  UBufferSet(24,1);
-  end
-  else W:=27; 
-
- B:=0; 
- For T:=W to 38 do 
- Begin
-  If T=31 then
-   if COwner(6)=PMe then T:=32;
-  If (T>9) and (T<13) and (COwner(2)=PMe) then T:=14;
-  
-  If TIsMine(T) then
-   If TArmies(T)>TArmies(B) then B:=T; //Choose the territory
- end;
- 
-   If (PT=0) and (B>0) then
-   For T:=1 to 26 do
-    If TIsMine(T) and (TArmies(T)>TArmies(B)+15) then Begin B:=T; UBufferSet(24,1); end;
- 
- If COwner(2)=PMe then
-  Begin
-  If TIsMine(3) and (TArmies(B)-TArmies(3)<2) then B:=3;
-  If TIsMine(9) and (TArmies(B)-TArmies(9)<2) then B:=9;
-  If TIsMine(8) and (TArmies(B)-TArmies(8)<2) then B:=8;
-  If TIsMine(7) and (TArmies(B)-TArmies(7)<2) then B:=7;
-  If TIsMine(4) and (TArmies(B)-TArmies(4)<2) then B:=4;
-  If TIsMine(2) and (TArmies(B)-TArmies(2)<2) then B:=2;
-  If TIsMine(5) and (TArmies(B)-TArmies(5)<2) then B:=5;
-  end;
-  
- UBufferSet(20,B);
- ////If UBufferGet(15) then 
- //umessage('BUBBLE MODE ACTIVATED, BUBBLE= ',UBufferGet(20));
- If B=0 then Begin UBufferSet(25,0); UBufferSet(24,0); end;
- 
- end;//?
-
-
-
-
-//Any Bubble Release
-If ((UBufferGet(25)=1) and (UBufferGet(36)<>0)) then
-If COwner(6)<>-(trunc(UBufferGet(10))) then
-If 
-(
-(
-
-( (COwner(5)=trunc(UBufferGet(36))) and (TContinent(trunc(UBufferGet(20)))<>2) and ((COwner(5)=-(trunc(UBufferGet(10)))) or (UBufferGet(10)>=0)) ) OR
-
-( (TContinent(trunc(UBufferGet(20)))=5) and 
-  (COwner(6)=PMe) and
-  (PTerritoriesCount(trunc(UBufferGet(36)))>18) or
- ((COwner(4)=trunc(UBufferGet(36))) OR (COwner(3)=trunc(UBufferGet(36)))) ) OR
-
-//( (TContinent(trunc(UBufferGet(20)))=5) and
-//  (COwner(6)<>trunc(UBufferGet(36))) and  
-// ((COwner(4)=trunc(UBufferGet(36))) AND (COwner(3)=trunc(UBufferGet(36))) AND (COwner(6)<>COwner(3))) ) OR
-
-( (TContinent(trunc(UBufferGet(20)))=5) and (COwner(6)<>-(trunc(UBufferGet(10)))) and
-  (COwner(6)<>trunc(UBufferGet(36))) and 
- ((COwner(1)=trunc(UBufferGet(36))) AND (COwner(3)=trunc(UBufferGet(36)))) )
-
-) AND
-
-( ( (PArmiesCount(PMe)>60) or (TArmies(trunc(UBufferGet(20)))>24) ))
-
-)
-then
-Begin 
-UBufferSet(24,0);
-UBufferSet(25,0);
-////umessage(' Bubble Released - someone strong');
-end;
-
-If ((UBufferGet(25)=1) and (PT>0) and (PT<4)) then
-Begin 
-UBufferSet(24,0);
-UBufferSet(25,0);
-end;
-
-
-//Asia Bubble Release
-If ((UBufferGet(25)=1) and (UBufferGet(24)=0)) then
-Begin
-B:=200;
-If PArmiesCount(-(trunc(UBufferGet(10))))>30 then C:=15 else C:=0;
-If (COwner(6)=PMe) then B:=50+C+EA2-3*PT2;
-If ((COwner(6)=PMe) and (EA2<30) and (TArmies(trunc(UBufferGet(20)))>2*EA2) ) then B:=0;
-If ( TContinent(trunc(UBufferGet(20)))=6 ) then B:=EA; //Release if in Australia
-If (COwner(6)=-(trunc(UBufferGet(10)))) and (TContinent(trunc(UBufferGet(20)))=5) then B:=500;
-
-AsiaRelease:=B;
-end;
-
-
-//Release world Bubble
-If ( (UBufferGet(24)=1) and (UBufferGet(25)=1) ) THEN 
-Begin
-CAnalysis(TContinent(trunc(UBufferGet(20))),PT,PA,ET,EA);
-CAnalysis(1,PT2,PA2,ET2,EA2);
-     If (TContinent(trunc(UBufferGet(20)))=2) then J:=5 else J:=20;
-     If (TContinent(trunc(UBufferGet(20)))=1) and (EA2<25) then J:=5;
-     If ((TContinent(trunc(UBufferGet(20)))<>3) and (TContinent(trunc(UBufferGet(20)))<>4)) then B:=EA+J else B:=400;
-     If PA2>EA2+12 then B:=0;
-     If (PT2>6) and (COwner(2)=PMe) then B:=0;
-     If UBufferGet(39)<4 then J:=J-7;
-
-end;
-
-BypassRelease:=False;
-If (NOT ((UBufferGet(20)=30) or (UBufferGet(20)=32)) ) then
-If ((UBufferGet(24)=0) and (UBufferGet(25)=1)) then
-Begin
-CAnalysis(6,PT,PA,ET,EA);
-If ( NOT(PProgram(COwner(6))=PProgram(PMe))) and ((UBufferGet(29)=1) ) then //Cooperative
-IF ( ( (TArmies(trunc(UBufferGet(20)))>TArmies(31)+EA+10) and (COwner(6)<>PMe) ) OR
-     ( (b=31) and (TArmies(trunc(UBufferGet(20)))>EA+10) and (COwner(6)<>PMe) ) 
-    ) then BypassRelease:=True;
-end;
-
-//The Release
-If ( (TArmies(trunc(UBufferGet(20)))>B) and (UBufferGet(25)=1) and (BypassRelease=False)) then 
-Begin 
-UBufferSet(24,0);
-UBufferSet(25,0);
-
-
-end;
- 
-
- 
-
-//World Bubble 
-
-//Make the World Bubble an Asia bubble if it get in Asia
-If (TContinent(trunc(UBufferGet(20)))=5) then UBufferSet(24,0);
-
-//Make the Asia Bubble a World Bubble 
-If (UBufferGet(24)=0) then
-If (UBufferGet(25)=1) then
-Begin
-CAnalysis(TContinent(trunc(UBufferGet(20))),PT,PA,ET,EA);
-If ( (EA>100) and 
-     (UBufferGet(24)=0) and 
-     (COwner(6)<>0) and 
-     (COwner(6)<>PMe) ) then UBufferSet(24,1);
-
-If ((TContinent(trunc(UBufferGet(20)))<>5) and 
-    (TContinent(trunc(UBufferGet(20)))<>6)) then UBufferSet(24,1);
-    
-CLeader(5,LP,LT,LA);
-If (COwner(6)=LP) and (LT=11) and (LA>TArmies(trunc(UBufferGet(20)))+15) then UBufferSet(24,1);
-
-end;    
- 
-////umessage('W   ', W, '   UBufferGet(20) ', UBufferGet(20), '   UBufferGet(24) ', UBufferGet(24), '   UBufferGet(25) ', UBufferGet(25));
-
-
-
-//put in bubble
-If UBufferGet(25)=1 then
-begin
-If COwner(1)=trunc(UBufferGet(36)) then C:=15 else C:=10;
-////If UBufferGet(15) then //umessage('before Bubble ToTerritory=',ToTerritory);
- If (NOT (     ( ((ToTerritory=31) and ProtectAustralia) or 
-((ToTerritory=39) and ((TArmies(39)<TArmies(31)+15) or ProtectAustralia)) ) or
-              ( (((ToTerritory=37) and (TArmies(1)-TArmies(37)<C)) or (((ToTerritory=35) or (ToTerritory=36) or (ToTerritory=38)) and (TArmies(37)<C))) 
-              and 
-              ((Danger=0) or (COwner(1)=TOwner(Danger))) 
-              and
-              (((COwner(1)=trunc(UBufferGet(36))) and (UBufferGet(36)<>0)) 
-              OR ((COwner(1)<>0) and (PArmiesCount(COwner(1))>40) and (UBufferGet(36)=0))) )  //##=0 ok
-         )
-     ) then
-  Begin 
-  CLeader(2, T2,T,A);
-  If (T2=PMe) and (Not TIsMine(14)) and (TArmies(12)-TArmies(14)<10) then C:=7 else C:=12;
-  If (T2=PMe) and (Not TIsMine(9)) and (TArmies(10)-TArmies(9)<10) then C:=7;
-  If (T2=PMe) and (COwner(1)<>0) and (COwner(1)<>PMe) then C:=4;
-  If (T2<>PMe) or (TArmies(trunc(UBufferGet(20)))<C) then ToTerritory:=trunc(UBufferGet(20));
-  UBufferSet(21,0);
-  end;
-
-D:=20;
-For T:=38 DOWNTO 15 do
- If (TArmies(T)>20) then
- If Not TIsMine(T) then
- If (TArmies(T)<30) then
-  If (TOwner(T)=-(trunc(UBufferGet(10)))) or (T>=30) then 
-  Begin D:=TArmies(T); T:=15; end;
-  
-
-  //Bubble restraint
-  If TIsMine(31) then
-  If ToTerritory=trunc(UBufferGet(20)) then
-  //if TContinent(trunc(UBufferGet(20)))>2 then
-  If NOT ((ToTerritory=27) and (UBufferGet(36)<>0) and ((COwner(3)=trunc(UBufferGet(36))) or (COwner(4)=trunc(UBufferGet(36))))) then
-   If (COwner(6)=PMe) then
-    If (TArmies(trunc(UBufferGet(20)))>D+3) and (UBufferGet(10)<0) then Toterritory:=31;
-  
-  CLeader(2, T2,T,A);
-  If TArmies(31)>10 then C:=7 else C:=6;
-  If (UBufferGet(32)=1) and (T2=PMe) and (TArmies(12)>10) and (TArmies(10)>7) then C:=11;
-  If TIsMine(31) and (TArmies(31)<2) then C:=1;
-  If TArmies(trunc(UBufferGet(20)))<C then ToTerritory:=trunc(UBufferGet(20)); //Protects the bubble
-end;
-
-end; //KillBubble
-
-
-
-//#######Aust. - N.A. Attack  
-If TIsMine(31) then
-If COwner(6)=PMe then
-If (TArmies(31)>70-PTerritoriesCount(trunc(UBufferGet(36)))) or (UBufferGet(9)<>0) then
-If (NOT TIsMine(32)) and (NOT TIsMine(33)) and (NOT TIsMine(37)) and (NOT TIsMine(1)) then
-If (UBufferGet(10)<0) or ((PTerritoriesCount(COwner(1))>22) and (COwner(1)<>PMe)) then
-
-Begin
-CAnalysis(1,PT,PA,ET,EA);
-If ((COwner(1)<>0) and (trunc(UBufferGet(36))=COwner(1))) and (PArmiesCount(COwner(1))>60) 
-then C:=10+3*trunc(UBufferGet(39)) else C:=36+3*trunc(UBufferGet(39));
-If (PTerritoriesCount(COwner(1))>25) then C:=0;
-D:=0;
-If TOwner(20)=-(trunc(UBufferGet(10))) then D:=TArmies(20)-5;
-If TOwner(10)=-(trunc(UBufferGet(10))) then D:=TArmies(10)-5;
-
-
-if (double(TArmies(32))+TArmies(33)+TArmies(37)<(double(TArmies(31))/3)) or ((COwner(1)<>0) and (trunc(UBufferGet(36))=COwner(1))) then
- If TArmies(32)+TArmies(33)+TArmies(37)+TArmies(10)+TArmies(20)+EA+C-D<TArmies(31) then 
-Begin
-ToTerritory:=31;
-end;
-end;
-
-//######Aust. - S.A. Attack  
-If TIsMine(31) then
-If (TArmies(31)>50) or (UBufferGet(9)<>0) then
-If (NOT TIsMine(30)) and (NOT TIsMine(27)) and (NOT TIsMine(26)) then
-If ((COwner(4)=COwner(3)) and ((COwner(2)=COwner(1)) or (COwner(2)=COwner(3))) and (COwner(2)<>PMe) and (COwner(2)<>0) and (COwner(2)<>PMe)) then
-If PTerritoriesCount(COwner(2))>20 then 
-
-Begin
-CAnalysis(2,PT,PA,ET,EA);
-If PTerritoriesCount(COwner(2))>29 then C:=7 else C:=20;
-If TArmies(30)+TArmies(27)+TArmies(26)+TArmies(14)+EA<TArmies(31)-C-3*trunc(UBufferGet(39)) then
-Begin
-ToTerritory:=31;
-end;
-end;
-
-
-
-If (UBufferGet(9)=33) and TIsMine(32) then ToTerritory:=32;
-
-If (TIsMine(ToTerritory)=False) then
-begin
-//umessage('Placement BUG FOUND: Initial ToTerritory ',ToTerritory);
-//UBufferSet(15, 1);
-
-X:=0;
-For T:=1 to 42 do 
- If ((TArmies(T)>X) and TIsMine(T) and TIsFront(T)) then Begin Y:=T; X:=TArmies(T); end;
-ToTerritory:=Y;
-
-  If TIsMine(27) then ToTerritory:=27;
-  //umessage('Placement BUG FOUND: Final ToTerritory ',ToTerritory);
-end;
-
-////If UBufferGet(15) then //umessage('Final ToTerritory ',ToTerritory);
-
-end;  //Placement
-
-// procA
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  EnemyC, T, T2, B, B2, C, Diff, BestDiff: integer;
-  PT, PA, ET, EA, X, Y, XX, YY: integer;
-  Ratio: double;
-  SMALL, ALLFRONTS, ONEFRONTS, CBONUS, MINARMIES: integer;
-  R, A2, A3: boolean;
-  a1,a4,PT2,PA2, EA2,ET2,J,A,D,PlayerStrong,W,LPa,LTa,LAa: integer;
-  FORCE, NEWRATIO: double;
-  NormalBubble, GO, BypassStruggler, BypassBubble, GOAsia, attack3: boolean;
-
-  CForce, P: integer;
-  Points, MaxPoints: double;
-  Vexer: integer;
-
-  //STRUGGLER
-  F,FCount: integer;
-  Value,MaxValue: double;
-  Label Bubble1, TryAsia;
-
-begin
-  // reset kill mode if the game no longer has human players
-  if UBufferGet(98) > 0 then begin
-   if GameHasNoHumans then UBufferSet(98, 0);
-  end;
-
-  // check for kill player mode
-  if (UBufferGet(99) = 1) or (UBufferGet(98) > 0) then begin
-    KillPlayer_Attack(FromTerritory, ToTerritory);
-    If (not ((FromTerritory = 0) and (UBufferGet(98) > 0))) then exit;
-  end;
-
-BypassStruggler:=False;
-begin //###Wyrm 
-
-  SMALL:=-9999;       // CONSTANTS SECTION
-  FORCE:=0.95;         // smaller FORCE than in PLACEMENT procedure to encourage attacks
-  MINARMIES:=2;
-  ALLFRONTS:=10;
-  ONEFRONTS:=1;
-  CBONUS:=5;          // bonus for reinforcing territories in current target continent
-  NEWRATIO:=0.5;      // %-age of new armies that can go towards an out-of-continent attack
-  
-  
-  //##############
-  //CAnalysis(5, PT, PA, ET, EA);
-  //If EA<10 then FORCE:=0.85 else FORCE:=0.95;
-  //#############
-  
-
-  EnemyC:=TargetCattack(small);
-  PT:=0;
-  PA:=0;
-  ET:=0;
-  EA:=0;
-  CAnalysis(EnemyC, PT, PA, ET, EA);
-
-  BestDiff:=0; // will hold maximum number of armies controlled by leading player B
-  for T:=1 to 10 do
-    if (PActive(T)) and (T<>PMe) then
-      if (PArmiesCount(T)>BestDiff) then
-        begin
-          BestDiff:=PArmiesCount(T);
-          B:=T;
-        end;
-
-
-  if ((PA-PT)>trunc((double(MINARMIES)+ET+EA)/FORCE)) or (not SConquest) or (COwner(EnemyC)>0) then
-    begin
-      ToTerritory:=TargetTattack(enemyc, small, allfronts, onefronts, force);
-      if (ToTerritory<>0) then
-        begin
-          // calculate the correct territory to attack from
-          // 1)  weakest 1-front if ToTerritory armies > 2, otherwise strongest 1-front
-          // 2)  highest TArmies-TPressure.  This may not be the best
-          BestDiff:=SMALL*5;
-          for B:=1 to TBordersCount(ToTerritory) do
-            begin
-              T:=TBorder(ToTerritory,B);
-              if TIsMine(T) and (TArmies(T)>1) and ((TArmies(T)>2) or (TArmies(ToTerritory)=1)) then // no attacks ever with 2 or less armies
-                begin
-                  Diff:=TArmies(T)-(TPressure(T) div 3); // stress armies more than pressure
-                  if (TArmies(T)<4) and (TArmies(ToTerritory)>1) then
-                    Diff:=Diff+SMALL*2; // discourage these attacks with less than 4 armies
-                  if (TFrontsCount(T)=1) then
-                    begin
-                      if (TArmies(ToTerritory)>2) then
-                        Diff:=Diff-SMALL-TArmies(T)*2  // weakest 1-front will be picked
-                      else
-                        Diff:=Diff-SMALL; // strongest 1-front will be picked
-                    end;
-                  if (Diff>BestDiff) then
-                    begin
-                      BestDiff:=Diff;
-                      FromTerritory:=T;
-                    end;
-                end;
-            end;
-          BestDiff:=(MyTPressure(ToTerritory,ALLFRONTS))-(TArmies(ToTerritory));
-          if (BestDiff<0) then
-            begin
-//              //If UBufferGet(15) then //umessage('About to abort an attack on target continent ',EnemyC,' from ',FromTerritory,' to ',ToTerritory,' with enemy armies ',TArmies(ToTerritory),' and MyTPressure ',MyTPressure(ToTerritory,ALLFRONTS),' for a total negative difference of ',BestDiff);
-//              //If UBufferGet(15) then //umessage('double checking - enemy armies ',TArmies(ToTerritory),' and MyTPressure ',MyTPressure(ToTerritory,ALLFRONTS),' for a total negative difference of ',BestDiff);
-              FromTerritory:=0; // abort attacks that won't work
-            end;
-        end;
-    end;
-    
-    
-    
-//#######ATTACK RULES 
-////If UBufferGet(15) then //umessage('INITIAL: ToTerritory:=',ToTerritory, '  FromTerritory:=', FromTerritory, '  SConquest= ', SConquest);
-
-
-
-//Says the number of players and TotalArmies and PlayerStrong
-UBufferSet(10,0);
-//A:=0;
-B:=0;
-    R:=False;
-    PlayerStrong:=0;
-    For J:=1 to 10 do
-    If PTerritoriesCount(J)>0 then
-    Begin
-
-If PTerritoriesCount(J)>0 then D:=D+1;
-
-B:=B+PArmiesCount(J);
-
-if palive(J) then if ( pos('australian', lowercase(PProgram(J))) > 0 ) then UBufferSet(10,-J);
- 
-     A3:=False; 
-     A2:=False;
-     If J<>PMe then
-     If NOT R then
-     For C:=1 to 6 do
-      Begin
-       If A3 then A2:=True;
-       If COwner(C)=J then A3:=True else A3:=False;
-       If (A2 and A3 ) then Begin R:=True; PlayerStrong:=J; C:=6; end;
-      end;
-    end;
-    
-    If R then UBufferSet(37, 1) else UBufferSet(37,0);
-    If R then UBufferSet(36, PlayerStrong) else UBufferSet(36, 0); 
-UBufferSet(39,D);
-UBufferSet(49,B);
-
-
-//Release world Bubble
-If (UBufferGet(25)=1) then
-Begin
-CAnalysis(TContinent(trunc(UBufferGet(20))),PT,PA,ET,EA);
-CAnalysis(1,PT2,PA2,ET2,EA2);
-If ( (UBufferGet(24)=1) and (UBufferGet(25)=1) ) THEN 
-Begin
-     B:=trunc(0.6*UBufferGet(49));
-     If (TContinent(trunc(UBufferGet(20)))=2) then J:=5 else J:=20;
-     If ((TContinent(trunc(UBufferGet(20)))<>3) and (TContinent(trunc(UBufferGet(20)))<>4) and (TContinent(trunc(UBufferGet(20)))<>5)) then B:=EA+J;      
-     If (COwner(6)=-(trunc(UBufferGet(10)))) and (TContinent(trunc(UBufferGet(20)))=5) then B:=500;
-     If (PA2>EA2+14) or (UBufferGet(39)=2) then B:=0;
-
-//The Release
-If ( (TArmies(trunc(UBufferGet(20)))>B) and (UBufferGet(25)=1) ) then 
-Begin 
-UBufferSet(24,0);
-UBufferSet(25,0);
-////umessage(' Bubble Released B= ', B);
-end;
-
-end;
-end;
-
-    
-If ((FromTerritory=0) or (ToTerritory=0)) then 
-     begin
-      FromTerritory:=0;
-      ToTerritory:=0;
-     end;
-
-
-//Stop big attacks
-If UBufferGet(39)<5 then
-If TArmies(Toterritory)>20 then
-If (TArmies(Toterritory)>(PArmiesCount(PMe) div 2)) and 
-   (UBufferGet(36)<>0) and
-   (TOwner(Toterritory)<>trunc(UBufferGet(36))) then 
-If Toterritory<39 then
-   FromTerritory:=0;
-
-CAnalysis(1,PT,PA,ET,EA); 
-//Don't attack Koryak from Alaska if not needed
-If ((FromTerritory=1) and (ToTerritory=37)) then
-Begin
-If TOwner(Toterritory)<>-(trunc(UBufferGet(10))) then
- If (UBufferGet(39)>2) and (( ((TArmies(1)<20) or (TArmies(37)>3)) and (COwner(5)=0) and (PT>=6) and (PArmiesCount(PMe)<160) )) then FromTerritory:=0;
- 
- If SConquest then
-  If TOwner(37)<>-(trunc(UBufferGet(10))) then
-   If TOwner(37)<>COwner(6) then
-    If TOwner(37)<>trunc(UBufferGet(36)) then
-     If COwner(5)=0 then FromTerritory:=0;
-end;
-
-If (SConquest and (UBufferGet(39)=2)) then GOAsia:=False else GOAsia:=True;
-CAnalysis(5,PT,PA,ET,EA);
-   
- 
-If (((ET<=3) and (ET>0) and (EA<14)) OR (PA>2*EA+10+2*trunc(UBufferGet(39)))) then GOAsia:=True;
-
-If COwner(6)<>PMe  then GOAsia:=False;
-
-//Do not make weak attacks in Asia 
-If SConquest then
-If (TOwner(ToTerritory)<>-(trunc(UBufferGet(10)))) then //Lame hate
-If (UBufferGet(39)>3) then
-If ((TContinent(ToTerritory)=5) and 
-   (TContinent(FromTerritory)=5) and
-   (TArmies(FromTerritory)<4) and 
-   (ET>2) and 
-   (EA>5) 
-   ) then 
-   Begin
-   FromTerritory:=0;
-
-   //If UBufferGet(15) then //umessage('Weak attack blocked GOAsia ',GOAsia);
-   end;
-
-If SConquest and (EA>PA-TArmies(31)-12) and (UBufferGet(39)>3) then GOAsia:=False;
-   
-//Do not Attack NA if I am weak in SA
-If UBufferGet(39)>3 then
-If ((COwner(2)=PMe) and (COwner(1)=0) and (PArmiesCount(PMe)<100) and 
-    (FromTerritory=10) and (ToTerritory=9) and (TArmies(12)<20)) then FromTerritory:=0;
-
-//Do not attack S.A. from N.A. if strong
-If FromTerritory=9 then
-If ToTerritory=10 then
-Begin
-CAnalysis(2,PT,PA,ET,EA);
- If ((COwner(1)=PMe) and ((TArmies(12)>TArmies(9)) or (TArmies(11)>TArmies(9)))) then FromTerritory:=0;
- If ( (COwner(2)=0) and (EA>10) and ((EA+double(TArmies(14))/3 > double(TArmies(9))) OR (EA>30)) and (PA=0) ) then FromTerritory:=0;
-
-end;
-
- 
- 
-//Attack North Africa from Brazil only if Africa holder is strong
-If ( (FromTerritory=12) and (ToTerritory=14) and 
-     ((PArmiesCount(PMe)<210) or ((PTerritoriesCount(PMe)<22) and (PArmiesCount(PMe)<300))) ) then
-BEGIN
- If ( (COwner(4)=0) or 
-(
-((COwner(4)<>0) and (PTerritoriesCount(COwner(4))<13)) or
-
-(((COwner(4)<>0) and (PTerritoriesCount(COwner(4))<15)) and (PArmiesCount(-(trunc(UBufferGet(10))))>PArmiesCount(PMe)) and (TOwner(14)<>-(trunc(UBufferGet(10)))))
-)
-
- ) then 
-      Begin
-       FromTerritory:=0; 
-       ToTerritory:=0; 
-       //If UBufferGet(15) then //umessage('Brazil->Africa attack blocked');
-      end;
-
-CLeader(5,LPa,LTa,LAa); 
-If ( (COwner(4)<>0) and (COwner(4)<>trunc(UBufferGet(36))) and (COwner(6)<>COwner(4)) and 
-  (COwner(6)=LPa) and (LTa>8) and (COwner(6)<>0) and (PTerritoriesCount(COwner(4))<15) ) then FromTerritory:=0;
-  
-END;
-
-//Brazil to North Africa
-If FromTerritory=12 then
-If ( (UBufferGet(39)>2) and
-    (ToTerritory=14) and 
-    (TArmies(14)>25) and 
-    (trunc(UBufferGet(36))<>TOwner(14)) and
-  ( ((PArmiesCount(PMe)<200) AND (UBufferGet(10)>=0)) OR
-    ((PArmiesCount(PMe)<150+PArmiesCount(-(trunc(UBufferGet(10))))) AND (UBufferGet(10)<0)) )
-    ) then 
-    Begin
-    CLeader(4,LPa,LTa,LAa); 
-    If (LPa<>PMe) or (LTa<5) then FromTerritory:=0;
-    end;
-
-  
-If UBufferGet(39)>3 then
- Begin
-    If ((FromTerritory=37) and (ToTerritory=1)) then 
- If ( (COwner(1)=0) and (PArmiesCount(PMe)<130) and (COwner(5)=0) and 
-      ((PTerritoriesCount(PMe)>10) or (COwner(6)=PMe)) ) then 
-     begin
-      FromTerritory:=0;
-      ////If UBufferGet(15) then //umessage('Attack to Alaska from Koryak stopped');
-     end;
- end;
-
- 
-    //Don't attack Ukrania or Southern Europe if none holds Europe
-    CAnalysis(3,PT,PA,ET,EA);
-    Begin
-     If ((PArmiesCount(PMe)<170) or (PTerritoriesCount(PMe)<16)) then
-      If ( NOT (((PT>=4) and (PA>15) and (EA<25)) or (COwner(4)=PMe) or ((COwner(5)=PMe) and (COwner(3)<>0))) ) then 
-       If ( ((ToTerritory=22) or (ToTerritory=26)) and
-      ((FromTerritory=27) or (FromTerritory=28) or (FromTerritory=29)) and 
-      (COwner(3)=0) ) then 
-      Begin
-      FromTerritory:=0; 
-      ToTerritory:=0;
-      GOAsia:=True;
-      If SConquest and (EA>PA-TArmies(31)-10) and (UBufferGet(39)>3) then GOAsia:=False;
-      //If UBufferGet(15) then //umessage('Europe attack blocked - no owner');
-      end;
-    end;
-
-UBufferSet(46, 0);
-If COwner(3)<>0 then
- If ( ((PArmiesCount(TOwner(22))>35) or (PTerritoriesCount(TOwner(22))>=12)) and (COwner(3)<>PMe) ) then UBufferSet(46, 1); // Europe holder is strong
-
-    //If held, don't attack Ukrania or Southern Europe if player is weak
-    If (UBufferGet(46)<>1) then
-    If COwner(5)<>PMe then
-     If ( (PArmiesCount(PMe)<130) or (PTerritoriesCount(PMe)<16) ) then
-      If ( ((ToTerritory=22) or (ToTerritory=26)) and
-      ((FromTerritory=27) or (FromTerritory=28) or (FromTerritory=29)) and 
-      (COwner(3)<>0) ) then 
-      Begin
-      FromTerritory:=0; 
-      GOAsia:=True;
-      If SConquest and (EA>PA-TArmies(31)-10) and (UBufferGet(39)>3) then GOAsia:=False;
-      //If UBufferGet(15) then //umessage('Europe attack blocked - still weak' );
-      end;
-
-//Don't attack Egypt or East Africa If no player holds Africa
-CAnalysis(4,PT,PA,ET,EA);
-IF (PT<=3) then //(PTerritoriesCount(PMe)<=18)
-     If ((PArmiesCount(PMe)<170) and (PTerritoriesCount(PMe)<24)) then
-      If ( ((ToTerritory=15) or (ToTerritory=16)) and 
-           (COwner(4)=0) and 
-           (FromTerritory=27) ) then 
-      Begin
-      FromTerritory:=0; 
-      ToTerritory:=0;
-      //If UBufferGet(15) then //umessage('Africa attack blocked - no owner');
-      end;
-If ( ((PArmiesCount(TOwner(15))>30) or (PTerritoriesCount(TOwner(15))>12)) and (COwner(4)<>0) and (COwner(4)<>PMe) ) then UBufferSet(47, 1) else UBufferSet(47, 0);// Egypt holder is strong
-
-//In holding, dont't attack Egypt or East Africa If the player is weak
-     If PArmiesCount(PMe)<140 then
-      If ( ((ToTerritory=15) or (ToTerritory=16)) and 
-           (FromTerritory=27) and
-           (COwner(4)<>0) and 
-           (UBufferGet(47)<>1) ) then 
-      Begin
-       FromTerritory:=0; 
-       ToTerritory:=0; 
-       //If UBufferGet(15) then //umessage('Africa attack blocked - still weak');
-      end;
-
-
-  
-
- // attack Australia with China if viable#
-    If ( ((TArmies(32)>TArmies(30)) and TIsMine(30)) or (TIsMine(30)=False) ) then
-      If ( (TIsMine(32)=True) and 
-           (TIsMine(31)=False) and 
-           (TIsMine(39)=False) and 
-           (TIsMine(40)=False) and
-           (TIsMine(41)=False) and
-           (TIsMine(42)=False) and
-           (TArmies(31)+TArmies(39)+TArmies(40)+TArmies(41)<TArmies(32))
-          ) then 
-      Begin
-      ToTerritory:=31;
-      FromTerritory:=32;
-      end;
-      
-      B:=5;
-      //attack India from Middle East if can get Indonesia later#
-      If ( not (PProgram(COwner(6))=PProgram(PMe)) and (UBufferGet(29)=0)) then //Cooperative AU
-      If ((TArmies(27)-B>TArmies(30)+TArmies(31)+TArmies(39)) and
-          (TIsMine(27)=True) and 
-          (TIsMine(30)=False) and 
-          (TIsMine(31)=False) and
-          (TIsMine(39)=False) 
-         ) 
-        then
-          Begin
-          ToTerritory:=30;
-          FromTerritory:=27;
-          B:=0;
-          end;
-  
-      //Attack Siam from Indonesia 
-      If (TIsMine(31)=False) then
-      If (COwner(6)=PMe) then
-      If (( (PTerritoriesCount(PMe)<10) and (FromTerritory=0) and (TArmies(39) div 3>=TArmies(31)) and ((TArmies(39)>15) or ((TArmies(39)>3) and (NOT SConquest))))) OR
-         ((TArmies(39)>TArmies(31)+4) and (UBufferGet(39)=2))  then 
-        Begin
-        ToTerritory:=31;
-        FromTerritory:=39;
-        //If UBufferGet(15) then //umessage('Forced attack from Indonesia' );
-        end;
-      
-      //Do not Attack Siam if a stronger force is waiting
-       If ( (FromTerritory=39) and 
-            (ToTerritory=31) and 
-            (TIsMine(32)=False) and
-            (TArmies(32)>TArmies(39)-TArmies(31)) 
-          ) then FromTerritory:=0;
-
-       If ( (FromTerritory=39) and 
-            (ToTerritory=31) and 
-            (TIsMine(30)=False) and
-            (TArmies(30)>TArmies(39)-TArmies(31)) 
-          ) then FromTerritory:=0;
-      
-If not TIsMine(31) then
-Begin
-      //attack Siam from India and China if can get Indonesia
-      if ToTerritory<>31 then
-      If ( (TArmies(30)+TArmies(32)-4>(trunc(0.8*(TArmies(31)+TArmies(39))))) and 
-           (TArmies(30)+TArmies(32)>5) and
-            TIsMine(30) and TIsMine(32) and (TIsMine(31)=False) ) then
-      Begin
-       If (TArmies(30)>TArmies(32)) then 
-        Begin
-        ToTerritory:=31;
-        FromTerritory:=30;
-        //If UBufferGet(15) then //umessage('attack from India to Siam' );
-        end;
-       If (TArmies(32)>=TArmies(30)) then
-        Begin
-        //If UBufferGet(15) then //umessage('attack from China to Siam ' );
-        ToTerritory:=31;
-        FromTerritory:=32;
-        end;
-      end;
-      
-      If (TIsMine(29) and TIsMine(33) and (TArmies(29)>TArmies(33))) then T:=29 else T:=33;
-      If ((T=29) and (TIsMine(30)=False) and (TArmies(30)<TArmies(32))) then C:=30 else C:=32;
-      
-      If (TIsMine(T) and 
-         (TIsMine(C)=False) and 
-         (COwner(6)<>PMe) and
-         (TArmies(T)>TArmies(C)+TArmies(31)+TArmies(39)+3)) then
-         Begin
-         ToTerritory:=C;
-         FromTerritory:=T;
-         UBufferSet(13,ToTerritory);
-         end;
-end;  
-
-      // attack Indonesia from Siam if ratio <.8
-      If not TIsMine(39) then
-      If ( (COwner(6)<>0) and (TArmies(31)>5) and 
-           (TArmies(31)> trunc(0.8*(TArmies(39)+TArmies(40)+TArmies(41)+TArmies(42))) ) and 
-           TIsMine(31)) then
-      If (PArmiesCount(PMe)-TArmies(31)>10) or 
-         (PArmiesCount(-(trunc(UBufferGet(10))))<30) or 
-         (PArmiesCount(PMe)-(0.8*double(TArmies(39))+TArmies(40)
-                  +TArmies(41)+TArmies(42))>double(PArmiesCount(-(trunc(UBufferGet(10))))-15)) then
-       Begin
-       //If UBufferGet(15) then //umessage('attack from Siam to Indonesia ' );
-       ToTerritory:=39;
-       FromTerritory:=31;
-       UBufferSet(25,0); //Frank is not in Bubble Mode
-       end;
-
-If COwner(6)=0 then
-If TIsMine(39) or TIsMine(40) or TIsMine(41) or TIsMine(42) then
-Begin
-
-//Initiate attack to New Guinea if armies in Indonesia are > the sum of rest in Australia
-If TIsMine(40) then a1:=0 else a1:=TArmies(40);
-If TIsMine(41) then a4:=0 else a4:=TArmies(41);
-If ((TArmies(39)>1) and 
-    (a1+a4+TArmies(42)<TArmies(39)) and
-    TIsMine(39) and 
-    (TIsMine(42)= False)
-   ) then
- Begin
- ToTerritory:=42;
- FromTerritory:=39;
- BypassStruggler:=True;
- end;
- 
-     //Initiate attack to Western Australia if armies in Indonesia are > the sum of rest in Australia
-     If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then 
-     Begin
-If TIsMine(42) then a1:=0 else a1:=TArmies(42);
-If TIsMine(41) then a4:=0 else a4:=TArmies(41);
-If ((TArmies(39)>1) and 
-    (a1+a4+TArmies(40)<TArmies(39)) and
-    TIsMine(39) and 
-    (TIsMine(40)= False)
-   ) then
- Begin
- ToTerritory:=40;
- FromTerritory:=39;
- BypassStruggler:=True;
- end;
-end;
-
-
-     //Initiate attack to Western Australia if armies in 41 are > the sum of rest in Australia
-     If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then
-     Begin
-If TIsMine(42) then a1:=0 else a1:=TArmies(42);
-If TIsMine(39) then a4:=0 else a4:=TArmies(39);
-
-If ((TArmies(41)>1) and 
-    (a1+a4+TArmies(40)<TArmies(41)) and
-    TIsMine(41) and 
-    (TIsMine(40)= False)
-   ) then
- Begin
- ToTerritory:=40;
- FromTerritory:=41;
- BypassStruggler:=True;
- end;
-end;
- 
-     //Attack to Indonesia from Western Australia if armies > the sum of EA in Australia
-     If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then 
-     Begin
-If TIsMine(42) then a1:=0 else a1:=TArmies(42);
-If TIsMine(41) then a4:=0 else a4:=TArmies(41);
-If ((TArmies(40)>1) and 
-    (a1+a4+TArmies(39)<TArmies(40)) and
-    TIsMine(40) and 
-    (TIsMine(39)= False)
-   ) then
- Begin
- ToTerritory:=39;
- FromTerritory:=40;
- end;
-end;
-
-
-//Attack to Eastern Australia from New Guinea if armies > the sum of EA in Australia
-     If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then
-     Begin
-If TIsMine(39) then a1:=0 else a1:=TArmies(39);
-If TIsMine(40) then a4:=0 else a4:=TArmies(40);
-If ((TArmies(42)>1) and 
-    (a1+a4+TArmies(41)<TArmies(42)) and
-     TIsMine(42) and 
-    (TIsMine(41)= False)
-   ) then
- Begin
- ToTerritory:=41;
- FromTerritory:=42;
- BypassStruggler:=True;
- end;
-end;
-
-
-     //Attack to Eastern Australia from Western Australia if armies > the sum of EA in Australia
-     If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then
-     Begin
-If TIsMine(39) then a1:=0 else a1:=TArmies(39);
-If TIsMine(42) then a4:=0 else a4:=TArmies(42);
-If ((TArmies(40)>1) and 
-    (a1+a4+TArmies(41)<TArmies(40)) and
-    TIsMine(40) and 
-    (TIsMine(41)= False)
-   ) then
- Begin
- ToTerritory:=41;
- FromTerritory:=40;
- BypassStruggler:=True;
- end;
-end;
-
-
-     //Attack to Western Australia from Eastern Australia if armies > the sum of EA in Australia
-     If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then 
-     Begin
-If TIsMine(39) then a1:=0 else a1:=TArmies(39);
-If TIsMine(42) then a4:=0 else a4:=TArmies(42);
-If ((TArmies(41)>1) and 
-    (a1+a4+TArmies(40)<TArmies(41)) and
-    TIsMine(41) and 
-    (TIsMine(40)= False)
-   ) then
- Begin
- ToTerritory:=40;
- FromTerritory:=41;
- BypassStruggler:=True;
- end;
-end;
-
-
-     If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then
-     Begin
-If TIsMine(39) then a1:=0 else a1:=TArmies(39);
-If TIsMine(40) then a4:=0 else a4:=TArmies(40);
-If ((TArmies(41)>1) and 
-    (a1+a4+TArmies(42)<TArmies(41)) and
-    TIsMine(41) and 
-    (TIsMine(42)= False)
-   ) then
- Begin
- ToTerritory:=42;
- FromTerritory:=41;
- BypassStruggler:=True;
- end;
-end;
-
-
-     //Attack to New Guinea from Western Australia if armies > the sum of EA in Australia
-     If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then 
-     Begin
-If TIsMine(39) then a1:=0 else a1:=TArmies(39);
-If TIsMine(41) then a4:=0 else a4:=TArmies(41);
-If ((TArmies(40)>1) and 
-    (a1+a4+TArmies(42)<TArmies(40)) and
-    (TIsMine(40)= True) and 
-    (TIsMine(42)= False)
-   ) then
- Begin
- ToTerritory:=42;
- FromTerritory:=40;
- BypassStruggler:=True;
- end;
-end;
-
-//42>40
-If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then
-Begin
-If TIsMine(39) then a1:=0 else a1:=TArmies(39);
-If TIsMine(41) then a4:=0 else a4:=TArmies(41);
-If ((TArmies(42)>1) and 
-    (a1+a4+TArmies(40)<TArmies(42)) and
-    TIsMine(42) and 
-    (TIsMine(40)= False)
-   ) then
- Begin
- ToTerritory:=40;
- FromTerritory:=42;
- BypassStruggler:=True;
- end;
-end;
-
-//42>39
-     If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then 
-Begin
-If TIsMine(30) then a1:=0 else a1:=TArmies(30);
-If TIsMine(41) then a4:=0 else a4:=TArmies(41);
-If ((TArmies(42)>1) and 
-    (a1+a4+TArmies(39)<TArmies(42)) and
-    TIsMine(42) and 
-    (TIsMine(39)= False)
-   ) then
- Begin
- ToTerritory:=39;
- FromTerritory:=42;
- BypassStruggler:=True;
- end;
-end;
-
-     If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then
-Begin
-CAnalysis(6,PT,PA,ET,EA);
-If TIsMine(39) and (TArmies(39)-4>EA) and (PT=1) then 
- Begin
- If TArmies(40)>=TArmies(42) then T:=42 else T:=40;
- ToTerritory:=T;
- FromTerritory:=39;
- BypassStruggler:=True;
- end;
-end;
-
-end; //C6 not mine
-
-If (FromTerritory=31) then
-Begin
-       //Attack India from Middle East instead Siam if Middle East armies >4
-       CAnalysis(5,PT,PA,ET,EA);
-       If ((FromTerritory=31) and 
-            (ToTerritory=30) and 
-            TIsMine(27) and
-            (TIsMine(30)=False) and
-           (TArmies(27)>4) and
-           (PT<9) and 
-           ((UBufferGet(36)<>0)=False)
-          ) then
-           Begin
-             //If UBufferGet(15) then //umessage('Attack to India swapped from Siam to Middle East');
-            FromTerritory:=27;
-            end;
- 
-       //Attack India from China instead Siam if China Stronger
-       If ( (FromTerritory=31) and 
-            (ToTerritory=30) and 
-            TIsMine(32) and
-            (TArmies(32)>TArmies(31)-1) and
-            (TArmies(31)<30) ) then
-             Begin
-             //If UBufferGet(15) then //umessage('Attack swapped from Siam to China');
-             FromTerritory:=32;
-             end;
-             
-       //Attack China from India instead Siam if India Stronger
-       If ( (FromTerritory=31) and 
-            (ToTerritory=32) and 
-            TIsMine(30) and (TIsMine(32)=False) and
-            (TArmies(30)>TArmies(31)-1) and
-            (TArmies(31)<30) ) then
-             Begin
-             //If UBufferGet(15) then //umessage('Attack swapped from Siam to India');
-             FromTerritory:=30;
-             end;
-             
-       //Attack China from Mongolia instead Siam if Mongolia Stronger
-       If ( (FromTerritory=31) and 
-            (ToTerritory=32) and 
-            TIsMine(33) and (TIsMine(32)=False) and
-            (TArmies(33)>TArmies(31)-1) and
-            (TArmies(31)<35) ) then
-             Begin
-             //If UBufferGet(15) then //umessage('Attack swapped from Siam to Mongolia');
-             FromTerritory:=33;
-             end;
- 
-     //Choose less armies to attack from Siam
-     If NOT ((ToTerritory=30) and (((COwner(3)=trunc(UBufferGet(36))) or (COwner(4)=trunc(UBufferGet(36)))) and (trunc(UBufferGet(36))<>0))) then
-     If ( (COwner(6)=PMe) and 
-          (FromTerritory=31) and
-          ((ToTerritory=30) or (ToTerritory=32)) ) then 
-     Begin
-      If (((COwner(3)=trunc(UBufferGet(36))) or (COwner(4)=trunc(UBufferGet(36)))) and (UBufferGet(36)<>0)) then C:=2 else C:=0;
-      If ((UBufferGet(39)<4) and (C=0)) then C:=1;
-      if (TIsMine(32)=False) and (TArmies(32)+C<=TArmies(30)) then ToTerritory:=32;
-      if (TIsMine(30)=False) and (TArmies(32)+C>TArmies(30)) then ToTerritory:=30;
-      
-      //If UBufferGet(15) then //umessage('Choose less armies to attack from Siam');
-     end;
- 
-end;
- 
-       //Swap China attack to Kazakhstan from China to Mongolia if less= armies
-       If ( (FromTerritory=32) and 
-            (ToTerritory=29) and 
-            (TIsMine(33)=False) and
-            (TArmies(33)<=TArmies(29)) ) then
-             Begin
-             //If UBufferGet(15) then //umessage('China attack swapped of Kazakhstan to Mongolia');
-             ToTerritory:=33;
-             end;
-   
-      //Attack mexico if Venezuela strong
-      If ((SConquest=False) and (FromTerritory=0)) then
-      If (TIsMine(9)=False) and (COwner(2)=PMe) then
-      If
-        ( ((TArmies(10)>20) and (TArmies(9)<8) and (TArmies(12)>TArmies(14)+4)) OR 
-          ((TArmies(10)>9 ) and (TArmies(9)=1)) ) then 
-       Begin
-        ToTerritory:=9;
-        FromTerritory:=10;
-        //If UBufferGet(15) then //umessage('Forced attack to Mexico= ');
-        CAnalysis(1,PT,PA,ET,EA);
-        If (double(TArmies(10)+PA)<(0.7*EA)) and (UBufferGet(24)=1) then UBufferSet(16,FromTerritory);
-       end;
-
-If TIsMine(12) then
-Begin
-  CAnalysis(2,PT,PA,ET,EA);
-  //Brazil to Venezuela#
-If( (PT=3) and 
-    (TIsMine(10)=False) and
-    (TArmies(12)>TArmies(10)+6)
-   ) then
-  Begin
-   ToTerritory:=10;
-   FromTerritory:=12;
-   BypassStruggler:=True;
-   //If UBufferGet(15) then //umessage('Brazil to Venezuela');
-  end;
-
-
-  //Brazil to Argentina
-If( (TIsMine(13)=False) and
-    (TArmies(12)>=4) and
-    (TArmies(13)<=2) and
-    (PA>7)
-   ) then
-  Begin
-   ToTerritory:=13;
-   FromTerritory:=12;
-   //If UBufferGet(15) then //umessage('Brazil to Argentina');
-  end;  
-
-end;
-
-
- If (COwner(5)=0) then
- Begin
-      //Don't attack from Siam if Armies<4 
-      If ( (FromTerritory=31) and ((ToTerritory=30) or (ToTerritory=32)) ) then
-       If (TArmies(31)<4) then 
-       Begin
-       FromTerritory:=0;
-       //If UBufferGet(15) then //umessage('Attack from Siam Blocked');
-       end;
- 
-       //Don't attack China or India from Siam if enemy stronger in China or India
-       //If ( TIsMine(31) and (FromTerritory=31) and ((ToTerritory=30) or (ToTerritory=32)) and
-        //   ( ((TArmies(31)<TArmies(32)) and (TIsMine(32)=False)) or
-        //     ((TArmies(31)<TArmies(30)) and (TIsMine(30)=False)) 
-        //    )
-        //   ) then FromTerritory:=0;
-           
- end;
- 
-
-        
-      //North America 
-      
-      CAnalysis(1,PT2,PA2,ET2,EA2); // and (EA2<>0)
-If PA2-PT2>2 then
-Begin
-
-A:=1;
-For T:=1 to 9 do
- If Not TIsMine(T) then Begin C:=T; T:=9; end;
-For T:=C+1 to 9 do
- If (Not TIsMine(T)) and (TOwner(C)<>TOwner(T)) then Begin A:=2; T:=9; end;
-
-
-      CLeader(1,LPa,LTa,LAa);
-      If ((PA2>trunc(1.3*EA2)) or ((LTa=8) and (TIsMine(1)=False) and (UBufferGet(39)>3)) ) then GO:=SConquest else GO:=False; 
-      If (A=1) then
-       If ((UBufferGet(39)<5) and (PA2>EA2) and 
-      ((UBufferGet(25)=0) or (COwner(2)=PMe)) ) or (UBufferGet(39)=3) then GO:=SConquest; 
-      
-       
-      //Try attack someone for cards from Mexico
-      If (COwner(2)=PMe) then
-      Begin
-      TWeakestFront(9,ET,EA);
-      If ( (SConquest=False) and (FromTerritory=0) ) then
-       If ( TIsMine(9) and (TArmies(9)>8) and (EA<5) ) then
-        If ET>0 then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=9;
-If ToTerritory=10 then
- If ((COwner(1)=PMe) and ((TArmies(12)>TArmies(9)) or (TArmies(11)>TArmies(9)))) then FromTerritory:=0;
-       end;
-      end;
-      
-If PT2<9 then
-If (SConquest=GO) and (FromTerritory=0) then
-Begin 
-      //Try attack someone for cards from Eastern US
-      TWeakestFront(8,ET,EA);
-      If ET>0 then
-      If (SConquest=GO) and (FromTerritory=0) then
-       If ( (TIsMine(8)=True) and (TArmies(8)>5) and (EA<4) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=8;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Eastern US= ', ET );
-       end;
-       
-      //Try attack someone for cards from Western US
-      TWeakestFront(7,ET,EA);
-      If ET>0 then
-      If (SConquest=GO) and (FromTerritory=0) then
-       If ( (TIsMine(7)=True) and (TArmies(7)>5) and (EA<4) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=7;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Western US= ', ET );
-       end;
-
-
-      //Try attack someone for cards from Quebec
-      TWeakestFront(6,ET,EA);
-      If ET>0 then
-      If (SConquest=GO) and (FromTerritory=0) then
-       If ( (TIsMine(6)=True) and (TArmies(6)>5) and (EA<4) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=6;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Quebec= ', ET );
-       end;
-      
-      //Try attack someone for cards from Ontario
-      TWeakestFront(5,ET,EA);
-      If ET>0 then
-      If (SConquest=GO) and (FromTerritory=0) then
-       If ( (TIsMine(5)=True) and (TArmies(5)>5) and (EA<4) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=5;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Ontario= ', ET );
-       end;
-      
-      //Try attack someone for cards from Alberta
-      TWeakestFront(4,ET,EA);
-      If ET>0 then
-      If (SConquest=GO) and (FromTerritory=0) then
-       If ( (TIsMine(4)=True) and (TArmies(4)>5) and (EA<4) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=4;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Alberta= ', ET );
-       end;
-       
-              
-      //Try attack someone for cards from Northwest Territory
-      TWeakestFront(2,ET,EA);
-      If ET>0 then
-      If (SConquest=GO) and (FromTerritory=0) then
-       If ( (TIsMine(2)=True) and (TArmies(2)>5) and (EA<4) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=2;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Alberta= ', ET );
-       end;
-       
-
-      //Try attack someone for cards from Mexico
-      TWeakestFront(9,ET,EA);
-      If ET>0 then
-      If (SConquest=GO) and (FromTerritory=0) then
-       If ( (TIsMine(9)=True) and (TArmies(9)>8) and (EA<5) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=9;
-If ToTerritory=10 then
- If ((COwner(1)=PMe) and ((TArmies(12)>TArmies(9)) or (TArmies(11)>TArmies(9)))) then FromTerritory:=0;
-       end;
-
-end; //PT2<9
-
-
-
-//Try attack EU if the holder is strong
-If (COwner(3)<>0) then
-If NOT TIsMine(3) then 
-Begin
-CAnalysis(1,PT,PA,ET,EA);
-
-If ((COwner(3)=trunc(UBufferGet(36))) or 
-( (COwner(3)=TOwner(3)) and (PT>5) and (PT<8) and ((COwner(3)=TOwner(3)) or (COwner(3)=TOwner(5)) or (COwner(3)=TOwner(6))) )
-)  then
- Begin
- TPStrongestBorder(3, PMe, PT2,PA2);
- If ((PA2>TArmies(3)) and (PT2<>0)) then
-  Begin
-   ToTerritory:=3;
-   FromTerritory:=PT2;
-   BypassStruggler:=True;
-   If TArmies(FromTerritory)<30 then UBufferSet(13,ToTerritory); //Pass all
-  end;
- end;
- 
-end;
-
-
-
-//Attack Iceland if Europe is occupied
-If (COwner(3)=TOwner(20)) then
-Begin
-      a1:=0;
-      a4:=0;
-CAnalysis(3,PT,PA,ET,EA);
-If ((COwner(6)=-(trunc(UBufferGet(10)))) or (UBufferGet(39)>5)) and (COwner(6)<>0) then C:=12 else C:=9; 
-If ((TArmies(3)>TArmies(20)) and 
-     TIsMine(3) and 
-    (TOwner(20)<>PMe) and 
-    (COwner(3)<>0) and 
-    (( (PTerritoriesCount(COwner(3))>C) or (TOwner(20)=-(trunc(UBufferGet(10)))) )) 
-    ) then
-      Begin
-      a1:=FromTerritory;
-      a4:=ToTerritory;
-      ToTerritory:=20;
-      FromTerritory:=3;
-      BypassStruggler:=True;
-      //umessage('Forced attack to Iceland' );
-      end; 
-end;
-
-
-//Do not Attack Iceland from Greenland if none holds Europe
-  // see also //Attack Iceland if Europe is occupied
-If (FromTerritory=3) and (ToTerritory=20) then
-Begin 
- if (COwner(3)=0) and (COwner(6)=-(trunc(UBufferGet(10)))) and (COwner(6)<>0) and (TArmies(3)-TArmies(20)-10<PArmiesCount(COwner(6))) then FromTerritory:=0; 
- if (COwner(3)=0) and (PArmiesCount(PMe)<180) then FromTerritory:=0;
-
-CLeader(4,A,B,C);
-CAnalysis(1,PT,PA,ET,EA);
-CAnalysis(5,PT2,PA2,ET2,EA2);
-
-If (PT2<10) then
- if (PArmiesCount(COwner(3))<70) and 
-   ((PTerritoriesCount(COwner(3))<12) or (A<>COwner(3))) and (COwner(3)<>trunc(UBufferGet(36))) and 
- ((PArmiesCount(PMe)<220) and (PArmiesCount(-(trunc(UBufferGet(10))))>30)) 
-  and (PT>6) and (COwner(6)=-(trunc(UBufferGet(10)))) then FromTerritory:=0;
-
-If ((UBufferGet(36)<>0) and (trunc(UBufferGet(36))<>COwner(3)) and ( (COwner(4)=trunc(UBufferGet(36))) OR (COwner(4)=trunc(UBufferGet(36))) OR 
-(((TArmies(21)>TArmies(3)+2) OR (TArmies(24)>TArmies(3)+2)) and (PT>6)) OR (COwner(5)=trunc(UBufferGet(36))) ))
- then FromTerritory:=0;
-
-If (COwner(3)<>0) and (TArmies(20)>1) then
- If (trunc(UBufferGet(36))<>COwner(3)) and ((-UBufferGet(10)=UBufferGet(36)) or (UBufferGet(10)=UBufferGet(36))) then FromTerritory:=0;
-
-if FromTerritory=0 then
- if (a1>0) and (a4>0) then
- if (a4<>20) then
- begin
- FromTerritory:=a1;
- ToTerritory:=a4;
-end
-
-end;
-
-      //Try attack someone for cards from Greenland
-      TWeakestFront(3,ET,EA);
-      If ET>0 then
-      If (SConquest=GO) and (FromTerritory=0) then
-       If ( TIsMine(3) and (TArmies(3)-TArmies(20)>4) and ((EA=1) or ((EA<4) and (COwner(3)<>0))) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=3;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Greenland= ', ET );
-        if (SConquest and (ToTerritory=20) and (COwner(3)=0)) then FromTerritory:=0;
-       end;
-       
-       //Do not Attack Island from Greenland if none holds Europe
-If (FromTerritory=3) and (ToTerritory=20) then
- if SConquest and (COwner(3)=0) and (PArmiesCount(PMe)<180) then FromTerritory:=0;
-
-
-//Use North Africa attack instead Island
-If ((FromTerritory=3) and (ToTerritory=20)) then
-If TArmies(12)>4+trunc(UBufferGet(39)) then
-Begin
-CAnalysis(1,PT,PA,ET,EA);
-If PT=9 then C:=12 else C:=8;
-If( 
-    (PT>5) and
-    (COwner(2)=PMe) and
-    (COwner(3)<>PMe) and
-    (COwner(3)<>0) and
-    (NOT TIsMine(14)) and
-  //(TArmies(3)-TArmies(20)<15) and
-    ((TArmies(14)+TArmies(25)<TArmies(12)-4) or (TArmies(14)+TArmies(26)<TArmies(12)-4)) and
-    ((TArmies(14)<C) or (COwner(3)=TOwner(14)) or (-(trunc(UBufferGet(10)))=TOwner(14))) and
-    ((TArmies(14)+TArmies(25)<=TArmies(20)+1) or (TArmies(14)+TArmies(26)<=TArmies(20)+1)) and
-    ((TArmies(25)<C-4) or (TArmies(26)<C-4)) 
-   )
-    then
-  Begin
-   ToTerritory:=14;
-   FromTerritory:=12;
-//umessage('Try North Africa attack instead Island');
-  end;
-  
-If (TArmies(25)<3) or (TArmies(26)<3) then C:=4 else C:=0;
-
-   If (COwner(3)<>0) and (COwner(2)=PMe) then
-   If (COwner(3)=COwner(4)) and 
-    ((PTerritoriesCount(COwner(3))>13) or (TArmies(14)+TArmies(25)-5<TArmies(20)) or (TArmies(14)+TArmies(26)-5<TArmies(20))) and 
-    ( (TArmies(12)>TArmies(14)+TArmies(25)+8-C) or (TArmies(12)>TArmies(14)+TArmies(26)+8-C) ) and 
-    ((TArmies(25)<6) or (TArmies(26)<6)) then
-      Begin
-   ToTerritory:=14;
-   FromTerritory:=12;
-//umessage('Try North Africa attack instead Island2222222222222222');
-  end;
-    
-    
-end;
-
-end; //Have some terr in c1
-
-
-//S.A.
-
-      //Try attack someone for cards from Venezuela
-      
-      If ( (FromTerritory=0) and (SConquest=False) ) then
-       If ( (COwner(2)=PMe) and (NOT TIsMine(9)) and (TArmies(10)>8) and (TArmies(9)<=(TArmies(10) div 8)) ) then
-       Begin
-        ToTerritory:=9;
-        FromTerritory:=10;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Venezuela= ', ET );
-       end;
-
-
-If (FromTerritory=0) and (SConquest=False) then GOAsia:=True;
-//GOAsia:=True;
-
-//ASIA
-CAnalysis(5,PT,PA,ET,EA);
-If PA-PT>2 then
-Begin
-
-If PT<12 then
-Begin
-////umessage('GOAsia ', GOAsia, 'True ',True);
-
-a1:=0;
-If FromTerritory=31 then
-If PT<8 then
-If COwner(6)=PMe then
- If (TArmies(31)<PArmiesCount(-(trunc(UBufferGet(10))))) and (PA-TArmies(31)-PT>3) then
-  If (ToTerritory<>-(trunc(UBufferGet(10)))) and (PTerritoriesCount(TOwner(ToTerritory))>1) then
- Begin
-a1:=FromTerritory;
-a4:=ToTerritory;
-FromTerritory:=0;
-//umessage('31 attempt');
-end;
-
-
-If ToTerritory=31 then
-If TArmies(31)<3 then
-If FromTerritory<>39 then
-If COwner(6)<>PMe then
-Begin
-If (TArmies(30)>TArmies(32)) and TIsMine(30) and (TArmies(30)>2) then FromTerritory:=30;
-If (TArmies(30)<=TArmies(32)) and TIsMine(32) and (TArmies(32)>2) then FromTerritory:=32;
-end;
-
-If FromTerritory=27 then
-If UBUfferGet(36)>0 then
-If COwner(TContinent(ToTerritory))=0 then
-If (COwner(4)=trunc(UBUfferGet(36))) or (COwner(3)=trunc(UBUfferGet(36))) then
- Begin
-a1:=FromTerritory;
-a4:=ToTerritory;
-FromTerritory:=0;
-//umessage('27 attempt');
-end;
-
-
-//Protect Alaska by Asia
-CAnalysis(1,PT2,PA2,ET2,EA2);
-If ( ((FromTerritory=0) or (SConquest=False)) and (PT2>6) and (TIsMine(37)=False)) then
-Begin
-
-If ( (TArmies(33)>TArmies(37)) and (TArmies(33)>3) and TIsMine(33) ) then Begin FromTerritory:=33; ToTerritory:=37; end;
-If ( (TArmies(36)>TArmies(37)) and (TArmies(36)>3) and TIsMine(36) ) then Begin FromTerritory:=36; ToTerritory:=37; end;
-If ( (TArmies(35)>TArmies(37)) and (TArmies(35)>3) and TIsMine(35) ) then Begin FromTerritory:=35; ToTerritory:=37; end;
-If ( (TArmies(38)>TArmies(37)) and (TArmies(38)>3) and TIsMine(38) ) then Begin FromTerritory:=38; ToTerritory:=37; end;
-If TContinent(FromTerritory)=5 then UBufferSet(13,37);
-end;
-
-W:=0;
-
-TryAsia:
-
-If GOAsia and (FromTerritory=0) then
-Begin //##1
-
-//Try attack someone for cards from Mongolia
-      TWeakestFront(33,ET,EA);
-      ////If UBufferGet(15) then //umessage('TWeakestFront(33,ET,EA)= ', ET , ' ', EA);
-      If ( GOAsia and (FromTerritory=0) ) then
-      If ET>0 then
-       If ( TIsMine(33) and (TArmies(33)>4-W) and (EA<4-W) ) then
-       Begin
-        If ((ET=28) and (TArmies(38)=TArmies(28)) and (TIsMine(38)=False)) then ET:=38;
-        If ((ET=28) and (TArmies(36)=TArmies(28)) and (TIsMine(36)=False)) then ET:=36;
-        If ((ET=28) and (TArmies(37)=TArmies(28)) and (TIsMine(37)=False)) then ET:=37;
-        If ((ET=28) and (TArmies(34)=TArmies(28)) and (TIsMine(34)=False)) then ET:=34;
-        ToTerritory:=ET;
-        FromTerritory:=33;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Mongolia= ', ET );
-       end;
- 
-      //Try attack someone for cards from Yakut
-      TWeakestFront(35,ET,EA);
-      If ( GOAsia and (FromTerritory=0) ) then
-      If ET>0 then
-       If ( TIsMine(35) and (TArmies(35)>4-W) and (EA<4-W) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=35;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Yakut= ', ET );
-       end;
-       
-      //Try attack someone for cards from Taymyr
-      TWeakestFront(34,ET,EA);
-      If GOAsia and (FromTerritory=0) then
-      If ET>0 then
-       If ( TIsMine(34) and (TArmies(34)>4-W) and (EA<4-W) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=34;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Taymyr= ', ET );
-       end;
-
-      //Try attack someone for cards from China
-      TWeakestFront(32,ET,EA);
-      ////If UBufferGet(15) then //umessage('TWeakestFront(32,ET,EA)= ', ET , ' ', EA);
-      If GOAsia and (FromTerritory=0) then
-      If ET>0 then
-       If ((TIsMine(32)=True) and (TArmies(32)>5-W) and (EA<4-W) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=32;
-        If ( (ToTerritory=29) and (TArmies(29)=TArmies(33)) and (TIsMine(33)=False) ) then ToTerritory:=33;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from China= ', ET );
-       end;
-
-      //Try attack someone for cards from Buryat
-      TWeakestFront(36,ET,EA);
-      If GOAsia and (FromTerritory=0) then
-      If ET>0 then
-       If ( (TIsMine(36)=True) and (TArmies(36)>4-W) and (EA<4-W) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=36;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Taymyr= ', ET );
-       end;
-       
-      //Try attack China from Kazakhstan for cards
-      If GOAsia and (FromTerritory=0) then
-       If ( (TIsMine(29)=True) and (TIsMine(32)=False) and (TArmies(29)>5-W) and (TArmies(32)<4-W) ) then
-       Begin
-        ToTerritory:=32;
-        FromTerritory:=29;
-        //If UBufferGet(15) then //umessage('Try attack China from Kazakhstan for cards= ', ET );
-       end; 
-
-       
-      //Try attack India from M.E. for cards 
-      If GOAsia and (FromTerritory=0) then
-       If ( (TIsMine(27)=True) and (TIsMine(30)=False) and (TArmies(27)>4-W) and (TArmies(30)<4-W) and (COwner(3)=0) and (COwner(4)=0) ) then
-       Begin
-        ToTerritory:=30;
-        FromTerritory:=27;
-        //If UBufferGet(15) then //umessage('Try attack India from M.E. for cards' );
-       end;
-       
-       
-      //Try attack someone for cards from India
-      TWeakestFront(30,ET,EA);
-      ////If UBufferGet(15) then //umessage('TWeakestFront(30,ET,EA)= ', ET , ' ', EA);
-      If GOAsia and (FromTerritory=0) then
-      If ET>0 then
-       If ( TIsMine(30) and (TArmies(30)>4-W) and (EA<3-W) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=30;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from India= ', ET );
-       end;
- 
- 
-If (a1=31) or (a1=27) then
-If FromTerritory=0 then
- Begin
- FromTerritory:=a1;
- ToTerritory:=a4;
- end;
- 
- 
- 
-      //Try attack someone for cards from Siam
-      TWeakestFront(31,ET,EA);
-      If (SConquest=False) and (FromTerritory=0) then
-      If ET>0 then
-       If ( TIsMine(31) and (TArmies(31)>=5) and (EA<=2) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=31;
-        UBufferSet(16,31);
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Siam= ', ET );
-       end;
-   
- end; //##1
- 
-
- 
-       //Don't attack China or India from Siam if enemy stronger in China or India #2
-       If (FromTerritory=31) then
-        If ( ((ToTerritory=30) or (ToTerritory=32)) and
-           ( ((TArmies(31)<TArmies(32)) and (TIsMine(32)=False)) or
-             ((TArmies(31)<TArmies(30)) and (TIsMine(30)=False)) 
-            )
-           ) then FromTerritory:=0;
-           
-           
-           
-     //Try attack India if someone strong in EU and Af
- If TIsMine(31) then
-  If NOT TIsMine(27) then
-   If ((ToTerritory=32) and (FromTerritory=31)) or (FromTerritory=0) then 
-    If UBufferGet(39)<5 then
-     If (UBufferGet(10)>=0) or ((UBufferGet(10)<0) and (TArmies(31)>PArmiesCount(-(trunc(UBufferGet(10))))+20)) then 
-      If (((COwner(3)=trunc(UBufferGet(36))) or (COwner(4)=trunc(UBufferGet(36)))) and (trunc(UBufferGet(36))<>0)) then 
-       If ( (NOT TIsMine(29)) and (NOT TIsMine(30))) then
-        if (TArmies(31)>5) and (TArmies(31)>TArmies(30)+5) and (TArmies(30)<8) then
-         If COwner(6)=PMe then
-          If Not ((TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4)) then
-         Begin
-          ToTerritory:=30;
-          FromTerritory:=31;
-          ByPassStruggler:=True;
-         end;
- 
-
-//testeeeee
-       
-end; //Rules if Asia isn't mine
-
-If GOAsia and (FromTerritory=0) then
-Begin //##2
-
-      //Try attack someone for cards from Yamal-Nemets
-      TWeakestFront(28,ET,EA);
-      CAnalysis(3,PT2,PA2,ET2,EA2);
-      ////If UBufferGet(15) then //umessage('TWeakestFront(28,ET,EA)= ', ET , ' ', EA);
-       If ( TIsMine(28) and (TArmies(28)>4-W) and (EA<3-W) ) then
-       If ET>0 then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=28;
-        If (COwner(3)=0) and (ET=22) then 
-        begin
-        If ((TArmies(29)=TArmies(22)) and (TIsMine(29)=False)) then ToTerritory:=29;
-        If ((TArmies(33)=TArmies(22)) and (TIsMine(33)=False)) then ToTerritory:=33;
-        If ((TArmies(34)=TArmies(22)) and (TIsMine(34)=False)) then ToTerritory:=34;
-        
-        If ((TArmies(22)>1) and (COwner(3)=0)) then FromTerritory:=0;
-        If (SConquest and (COwner(3)=0)) then FromTerritory:=0;
-        end;
-        
-        If ToTerritory=22 then UBufferSet(16,22); //Pass nothing
-        
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Yamal-Nemets= ', ET );
-       end;
-       
-   
-      //Try attack someone for cards from Kazakhstan
-      TWeakestFront(29,ET,EA);
-      CAnalysis(3,PT2,PA2,ET2,EA2);
-      ////If UBufferGet(15) then //umessage('TWeakestFront(29,ET,EA)= ', ET , ' ', EA);
-      If ET>0 then
-      If GOAsia and (FromTerritory=0) then
-       If ( (TIsMine(29)=True) and (TArmies(29)>4-W) and (EA<3-W) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=29;
-
-        If COwner(3)=0 then
-        Begin
-        If ((ET=22) and (TArmies(27)=TArmies(22)) and (TIsMine(27)=False)) then ToTerritory:=27;
-        If ((ET=22) and (TArmies(28)=TArmies(22)) and (TIsMine(28)=False)) then ToTerritory:=28;
-        If ((ET=22) and (TArmies(30)=TArmies(22)) and (TIsMine(30)=False)) then ToTerritory:=30;
-        If ((ET=22) and (TArmies(32)=TArmies(22)) and (TIsMine(32)=False)) then ToTerritory:=32;
-        end;
-        If ((ET=28) and (TArmies(32)=TArmies(28)) and (TIsMine(32)=False)) then ToTerritory:=32;
-        If ((ET=27) and (TArmies(32)=TArmies(27)) and (TIsMine(32)=False)) then ToTerritory:=32;
-        If ((ET=28) and (TArmies(30)=TArmies(28)) and (TIsMine(30)=False)) then ToTerritory:=30;
-        If ((ET=27) and (TArmies(30)=TArmies(27)) and (TIsMine(30)=False)) then ToTerritory:=30;
-
-        If ((ToTerritory=22) and (TArmies(22)>1) and (COwner(3)=0)) then FromTerritory:=0;
-        If ((ToTerritory=22) and SConquest and (COwner(3)=0)) then FromTerritory:=0;
-
-        If ToTerritory=22 then UBufferSet(16,22); //Pass nothing
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Kazakhstan= ', ET );
-       end;
-
-// from 27 to 29
-If GOAsia and (FromTerritory=0) then
- If (TIsMine(27) and (NOT TIsMine(29)) and (TArmies(27)>TArmies(29)+3) and (TArmies(29)<4)) then
-  If (NOT (((COwner(3)=trunc(UBufferGet(36))) or (COwner(4)=trunc(UBufferGet(36)))) and (UBufferGet(36)<>0))) then 
-       Begin
-        ToTerritory:=29;
-        FromTerritory:=27;
-       end;
-              
-      //Try attack someone for cards from Koryak
-      TWeakestFront(37,ET,EA);
-      If ET>0 then
-      If GOAsia and (FromTerritory=0) then
-       If ((TIsMine(37)=True) and (TArmies(37)>2+EA-W) and (double(EA)<2+double(TArmies(37))/9-W)) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=37;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Koryak= ', ET );
-        If ToTerritory=1 then FromTerritory:=0; 
-       end;
-
-      //Try attack someone for cards from M.E.
-      TWeakestFront(27,ET,EA);
-      If ET>0 then
-      If SConquest=False then
-      If (FromTerritory=0) or 
-      ( ((FromTerritory=28) or (FromTerritory=29)) and (ToTerritory=22) and (COwner(3)=0) and (EA<TArmies(22)) ) then
-       If (TIsMine(27) and (TArmies(27)>2+EA) and 
-       ((EA=1) or ((EA<4) and (COwner(TContinent(ET))<>0)) and (ET<>ToTerritory))) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=27;
-       end;
-
-end; //##2
-
-
-
-//Detect lone territory in Asia#
-If ((TContinent(ToTerritory)<>5) or (FromTerritory=0)) then
-Begin
-CAnalysis(5,PT,PA,ET,EA);
-If (PT=11) then 
-Begin
-
-B:=0;
-B2:=0;
-  For T:=27 to 38 do //Find what is not mine
-   begin 
-    If Not TIsMine(T) then B:=T;
-    If (PTerritoriesCount(TOwner(T))=1) and (Not TIsMine(T)) then B2:=T;
-   end;
-   
-//Detect lone game territory in Asia and try attack it     
-If ( (PTerritoriesCount(TOwner(B2))=1) and (TArmies(B2)<35) ) then
- Begin
- TPStrongestBorder(B2, PMe, PT2,PA2);
- If ((PA2>TArmies(B2)) and (PT2<>0)) then
-  Begin
-   ToTerritory:=B2;
-   FromTerritory:=PT2;
-   ////umessage('Try attack to lone game territory in Asia from ', TName(PT2) );
-   B:=775;
-  end;
- end;
-
-
-//Detect lone territory in Asia and try attack it     
-If ( (ET=1) and (B<>0) and (EA<30) and (B<>775) ) then
- Begin
- TPStrongestBorder(B, PMe, PT2,PA2);
- If ((PA2>EA) and (PT2<>0)) then
-  Begin
-   ToTerritory:=B;
-   FromTerritory:=PT2;
-   ////umessage('Try attack lone territory in Asia from ', TName(PT2) );
-  end;
- end;
-
-end;
-end;
-
-If FromTerritory=0 then
-If PT<11 then
-If PT>1 then
-If (Not SConquest) and (W=0) then
-Begin
-W:=1;
-//umessage('Asia retry');
-Goto TryAsia;
-end;
-
-
-//Swap 29 to 22 if necessary
- If TIsMine(22) then
- If ((ET>8) and TIsMine(28)) then
- If (FromTerritory=29) and (ToTerritory=27) and (TArmies(22)>=TArmies(29)) then
-  FromTerritory:=22;
-  
-If (Not TIsMine(29)) and TIsMine(32) then
-If TContinent(ToTerritory)<>3 then
-If PTerritoriesCount(COwner(3))>14 then
-If UBufferGet(39)<5 then
-If (FromTerritory=0) or ((FromTerritory=32) and (COwner(1)<>COwner(3))) then
-If TArmies(32)>TArmies(29)+TArmies(22)+1 then
- Begin
- FromTerritory:=32;
- ToTerritory:=29;
- UBufferSet(13,ToTerritory);
- end;
-
-end; //I have more than 2 armies in asia
-
-
-
-//Detect lone territory in N.A#
-CAnalysis(1,PT,PA,ET,EA);
-
-if PT>5 then
-If PT<9 then
-If ((FromTerritory=0) OR (PT=8)) then 
-If ((TContinent(ToTerritory)<>1) or (FromTerritory=0)) or 
-  ((TContinent(ToTerritory)=1) and 
-   (TContinent(FromTerritory)=1) and 
-   (TArmies(FromTerritory)<6) and 
-   (PT=8)
-  ) then
-Begin
-
-If (ToTerritory=9) then
-If TArmies(9)<3 then
-If (PT>6) and (TContinent(FromTerritory)=1) then
-Begin
-TPStrongestBorder(9, PMe, PT2,PA2);
-ToTerritory:=9;
-If (TContinent(PT2)=1) then FromTerritory:=PT2;
-end;
-
-B:=0;
-B2:=0;
-  For T:=1 to 9 do //Find what is not mine
-   begin 
-    If Not TIsMine(T) then B:=T;
-    If ((PTerritoriesCount(TOwner(T))=1) and (Not TIsMine(T))) then B2:=T;
-   end;
-If B2<>0 then B:=B2;
-
-   
-If ( (ET<=4) and (PA>EA+8) and (B<>0) and ((EA<30) or (TOwner(B)=COwner(6))) and (B<>775) ) then
- Begin
- TPStrongestBorder(B, PMe, PT2, PA2);
- If ((B2<>0) OR (PT=8)) then C:=0 else C:=1;
- If ((PA2>TArmies(B)+C) and (PT2<>0)) then
-  Begin
-   ToTerritory:=B;
-   FromTerritory:=PT2;
-   //If UBufferGet(15) then //umessage('Try attack (ET<=2) territory in N.A. from ', TName(PT2) );
-  end;
- end;
-//umessage(b);
-
-
-If PT=8 then
-Begin
-
-//If FromTerritory=0 then
-
-A:=0;
-For C:=1 to TBordersCount(B) do
-If TIsMine(TBorder(B,C)) then A:=A + TArmies(TBorder(B,C));
-
-If A>13 then D:=85 else D:=100; //changed from .85 and 1 so that D remains an integer
-
-If (100*(A-TBordersCount(B)))>D*EA then  //mutiply everything D is compared to by 100
-Begin
-TPStrongestBorder(B, PMe, PT2, PA2);
-FromTerritory:=PT2;
-ToTerritory:=B;
-end;
-//umessage(a,b);
-
- If ToTerritory=B then
-  If TContinent(FromTerritory)=1 then
-   If TArmies(FromTerritory)<6 then
-  Begin
-  TPStrongestBorder(B, PMe, PT2, PA2);
-  If (PA2>5) then FromTerritory:=PT2;
-  end;
-
-end;
-
-
-
-end;
-
-
-//Detect lone territory in S.A.#
-CAnalysis(2,PT,PA,ET,EA);
-If PT<4 then
-If PA-PT>1 then
-If ToTerritory<>14 then
-Begin
-
-If ((PA>EA+5) or (UBufferGet(39)=3)) then D:=1 else D:=0;
-B:=0;
-B2:=0;
-  For T:=10 to 13 do //Find what is not mine
-   begin 
-    If Not TIsMine(T) then B:=T; 
-    If ((PTerritoriesCount(TOwner(T))=1) and (Not TIsMine(T))) then B2:=T;
-    //<0
-   end;
-
-If ((B=13) and 
-     TIsMine(10) and 
-     TIsMine(11) and 
-    (NOT TIsMine(12)) and 
-    (TArmies(11)<=TArmies(13)+1) and
-    (TArmies(10)>TArmies(11))
-   ) then B:=12;
-
-If ((B=13) and 
-     TIsMine(10) and 
-     (ET=3)
-   ) then B:=11;
-
-If ((B2<>0) OR (PT=3)) then C:=0 else C:=1;
-  
-If ((ET<=2+D) and (B<>0)) then
- Begin
- TPStrongestBorder(B, PMe, PT2, PA2);
- If ((PA-4-C>TArmies(B)+C) and (PT2<>0)) then
-  If (PA2>2) or (PA2>TArmies(B)) then
-  Begin
-   ToTerritory:=B;
-   FromTerritory:=PT2;
-  end;
-  
-  
-If PT=3 then
-Begin
-
- If (
-    ((FromTerritory=12) OR (FromTerritory=10) OR (FromTerritory=13)) and 
-     (ToTerritory<>11) and (ToTerritory<>14) and TIsMine(11) and
-     (TArmies(11)>3) and ((TArmies(ToTerritory)>2) or ((ToTerritory=10) and (COwner(1)=0)))
-    ) then FromTerritory:=11;
-    
-end;
-    
-    
- end;
-
-end;
-
-
-
-
-//Detect and try attack lone game territory anywhere
-If (UBufferGet(39)>2) then
-Begin
-D:=0;
-
-If UBufferGet(10)>=0 then
-For J:=1 to 10 do
-  If PTerritoriesCount(J)=1 then Begin D:=1; J:=10; end;
-
-If (UBufferGet(10)<0) or (D=1) then
-If (UBufferGet(10)<0) or (PTerritoriesCount(trunc(UBufferGet(36)))<25) OR (PTerritoriesCount(PMe)>25) then
-Begin
-
-//Lame fix
-A:=0;
-If UBufferGet(10)<0 then
- If (PArmiesCount(-(trunc(UBufferGet(10))))<8) or 
- ( (COwner(6)=PMe) and (UBufferGet(36)=0) and (PTerritoriesCount(-(trunc(UBufferGet(10))))<6) and (Not ((COwner(1)=PMe) or (COwner(5)=PMe))) ) then //##0 ok
-   A:=343;
-
-B:=0; 
-For T:=1 to 42 do 
-If NOT TIsMine(T) then
- If (PTerritoriesCount(TOwner(T))=1) OR ((A=343) and (TOwner(T)=-(trunc(UBufferGet(10))))) then 
-Begin
-T2:=B;
-B:=T;
-TPStrongestBorder(B, PMe, PT, PA);
-If PT=0 then B:=T2; //If no contact, keep last success result B
-end;
-
-If B>0 then
-Begin
-TPStrongestBorder(B, PMe, PT, PA);
-If (((UBufferGet(36)<>0)=False) and (COwner(6)=PMe)) then C:=10 else C:=0;
-If (((PTerritoriesCount(TOwner(B))=1) and (TArmies(B)<10+C)) OR (TOwner(B)=-(trunc(UBufferGet(10))))) and (PT>0) and (PA>TArmies(B)) then 
-  Begin
-   ToTerritory:=B;
-   FromTerritory:=PT;
-   //If UBufferGet(15) then //umessage('Try attack lone GAME territory from ', TName(PT) );
-   If (TArmies(B)<=2) and (Not SConquest) then BypassBubble:=True;
-   If COwner(6)=PMe then
-    If (TOwner(ToTerritory)=-(trunc(UBufferGet(10)))) and (PTerritoriesCount(-(trunc(UBufferGet(10))))<=3) then BypassBubble:=True;
-  end;
-  end;
-end;
-end;
-
-
-//Get 33 from 32 if someone holds N.A.
-If (COwner(1)<>0) and (COwner(1)<>PMe) then
-If (COwner(1)=trunc(UBufferGet(36))) or ((UBufferGet(36)=0) and (UBufferGet(39)<6)) then //## 0 ok
-Begin
-
- If NOT (TIsMine(33) or TIsMine(35) or TIsMine(36) or TIsMine(37)) then
-  If TIsMine(32) and (TArmies(32)>TArmies(33)+2) and (TArmies(33)<8) then
-   Begin
-   ToTerritory:=33;
-   FromTerritory:=32;
-   end;
-
-
-
-//Prepare to get Koryak to get Alaska#
-If Not TIsMine(37) then
-Begin
-
-If TIsMine(33) then A:=TArmies(33) else A:=0;
-If TIsMine(35) then B:=TArmies(35) else B:=0;
-If TIsMine(36) then C:=TArmies(36) else C:=0;
-If TIsMine(38) then D:=TArmies(38) else D:=0;
-T:=33;
-//If ( (A>B) and (A>C) and (A>D) ) then T:=33;
-If ( (B>A) and (B>=C) and (B>=D) ) then T:=35;
-If ( (C>A) and (C>B) and (C>=D) ) then T:=36;
-If ( (D>A) and (D>B) and (D>C) ) then T:=38;
-
-If ( (UBufferGet(29)=0) and (PProgram(COwner(1))<>PProgram(PMe)) ) then //Cooperative NA
- If( TIsMine(T) and 
-    (TArmies(T)>TArmies(37)) and
-    ( (TArmies(37)<14) OR (TOwner(37)=TOwner(1)) )
-   ) then
-  Begin
-   ToTerritory:=37;
-   FromTerritory:=T;
-   BypassStruggler:=True;
-   If (COwner(1)=trunc(UBUfferGet(36))) and (COwner(1)<>0) and (T<>trunc(UBufferGet(20))) then BypassBubble:=True;
-   UBufferSet(13,37);
-   //If UBufferGet(15) then //umessage('Try Koryak from Mongolia if North America occupied ######');
-  end;
-end;
-
-end;
-
-
-//Protect Asia from Europe
-If (TContinent(FromTerritory)=3) or (FromTerritory=0) or 
-   ((ToTerritory=22) and (TContinent(FromTerritory)=5)) then
-If Not TIsMine(22) then
-If TContinent(ToTerritory)<>4 then
-Begin
-If TIsMine(21) then A:=TArmies(21) else A:=0;
-If TIsMine(23) then B:=TArmies(23) else B:=0;
-If TIsMine(26) then C:=TArmies(26) else C:=0;
-If A+B+C>4 then
-Begin
-T:=26;
-IF ((A>=B) and (A>=C)) then T:=21;
-IF ((B>A) and (B>=C)) then T:=23;
-
-If ((COwner(5)=PMe) and TIsMine(T) and (TArmies(T)>4) and (NOT TIsMine(22))) then
-Begin 
-FromTerritory:=T; 
-ToTerritory:=22; 
-end;
-end;
-end;
-
-//Always attack Africa if the holder is strong
-If COwner(4)<>0 then
-If TIsMine(27) then
-If (trunc(UBufferGet(36))=COwner(4)) or ((FromTerritory=0) and (UBufferGet(39)=2)) then
-If (COwner(5)<>PMe) or (TArmies(27)>6) then
-If (COwner(6)=PMe) or (COwner(4)=COwner(6)) or (COwner(1)=PMe) or (COwner(2)=PMe) then
-Begin
-If COwner(4)=COwner(3) then C:=1 else C:=0;
-If (( ((PTerritoriesCount(TOwner(15))>=12) or (trunc(UBufferGet(36))=COwner(4))) and (COwner(4)<>PMe) and (COwner(4)=TOwner(15))) and 
-     TIsMine(27) and 
-    (TArmies(15)>=TArmies(16)+C) and 
-    (TArmies(27)>TArmies(16)+1)) then
-      Begin
-      ToTerritory:=16;
-      FromTerritory:=27;
-      BypassStruggler:=True;
-      end;
-If (( ((PTerritoriesCount(TOwner(15))>=12) or (trunc(UBufferGet(36))=COwner(4))) and 
-      (COwner(4)<>PMe) and  
-      (COwner(4)=TOwner(15))) and 
-       TIsMine(27) and 
-      (TArmies(16)+C>TArmies(15)) and 
-      (TArmies(27)>TArmies(15)+1)) then
-      begin
-      ToTerritory:=15;
-      FromTerritory:=27;
-      BypassStruggler:=True;
-      end;
-      
- If FromTerritory=27 then
-  If (TContinent(ToTerritory)=4) then     
-   If Not TIsMine(26) then
- Begin
- 
-  If (COwner(3)=COwner(4)) and (COwner(4)<>0) then
-  If TArmies(ToTerritory) + TArmies(14) + TArmies(25)>= TArmies(14) + TArmies(26) then
-  If TArmies(FromTerritory)> TArmies(14) + TArmies(26) then
-      begin
-      ToTerritory:=26;
-      BypassStruggler:=True;
-      end;
- 
- If (COwner(4)<>0) and (TArmies(14)<5) and ((TOwner(26)=TOwner(15)) or (TArmies(26)<4)) then
-  If ( TArmies(ToTerritory) - (TArmies(14) + TArmies(26)) )>2 then
-      begin
-      ToTerritory:=26;
-      BypassStruggler:=True;
-      end;
-  
-  
-  end;
-   
-end;
-
-//Kamikaze attack
-If FromTerritory=0 then
-If COwner(4)<>0 then
-If COwner(4)=trunc(UBufferGet(36)) then
-If (TArmies(27)>4) then
-If ((COwner(5)=PMe) and (COwner(3)=0)) or (UBufferGet(39)=2) then
-If (COwner(6)=PMe) or (COwner(4)=COwner(6)) then
-Begin
-If (TArmies(16)<=TArmies(15)) then
- If (TArmies(16)>TArmies(27)+4) then
-  Begin
-  FromTerritory:=27;
-  ToTerritory:=16;
-  end;
-  
-If (TArmies(16)>TArmies(15)) then
- If (TArmies(15)>TArmies(27)+4) then
-  Begin
-  FromTerritory:=27;
-  ToTerritory:=15;
-  end;
-end;
-
-
-
-//attack East Africa instead Egypt if less armies
-    If ( ((ToTerritory=15) or (ToTerritory=16)) and (FromTerritory=27) ) then
-      If ((COwner(4)<>0) and ((COwner(3)=0) or ((TArmies(15)-1>TArmies(16)) and (ToTerritory=15)) ) ) then  
-        If (TArmies(15)>=TArmies(16)) then ToTerritory:=16 else ToTerritory:=15;  
-       
-     If TIsMine(31)=False then
-     if ToTerritory<>31 then
-      If ( (TIsMine(30)=True) and  
-           (TIsMine(39)=False) and 
-           (TArmies(31)+TArmies(39)<TArmies(30))
-          ) then 
-      Begin
-      ToTerritory:=31;
-      FromTerritory:=30;
-      BypassStruggler:=True;
-      end;
-   
-
-
-
-If COwner(3)<>0 then
-If COwner(3)<>PMe then
-Begin// (COwner(3)<>0)
-
-
-
-If ToTerritory=26 then
- If ((FromTerritory=27) and (Not TIsMine(22))) then
-Begin
-CAnalysis(5,PT,PA,ET,EA);
-If PT>4 then
- If ((COwner(4)=0) and (TArmies(22)<=TArmies(26))) then ToTerritory:=22;
-end;
-
-If (COwner(3)=trunc(UBufferGet(36))) and (COwner(3)<>PMe) then
-Begin
-
-If ((FromTerritory=0) or ((FromTerritory=27) and (TContinent(ToTerritory)=5) )) then
- If ( //(TArmies(26)<TArmies(22)) and 
-     (TArmies(26)<TArmies(27)) and
-     ( ((TArmies(29)<=TArmies(22)) and TIsMine(29)) or (NOT TIsMine(29)) ) and 
-     ( ((TArmies(28)<=TArmies(22)) and TIsMine(28)) or (NOT TIsMine(28)) ) and
-      TIsMine(27) 
-     ) then 
-     Begin
-     FromTerritory:=27;
-     ToTerritory:=26;
-     BypassStruggler:=True;
-     end;
-     
-If ToTerritory=26 then
- If ((FromTerritory=27) and (Not TIsMine(22))) then
- If ((COwner(4)=0) and (TArmies(22)<TArmies(26))) then ToTerritory:=22;
- 
-
-If ((ToTerritory=22) and (FromTerritory=27)) then
-If (COwner(3)=COwner(4)) then
-Begin
- If TArmies(15)<TArmies(14) then A:=TArmies(15) else A:=TArmies(14);
- 
- If (A<6) and (TArmies(26)-TArmies(22)<4) then
- If (TArmies(27)>TArmies(26)+A+1) then 
-     Begin
-     FromTerritory:=27;
-     ToTerritory:=26;
-     BypassStruggler:=True;
-     end;
-end;
-
-end;
-
-
-
-//Africa to Europe#
-If (COwner(3)<>0) then
-If (COwner(3)<>PMe) then
-Begin
-If TArmies(25)<TArmies(26) then T:=25 else T:=26;
-If (TIsMine(15) and TIsMine(14) and (TArmies(15)>TArmies(14))) then T2:=15 else T2:=14;
-If (TIsMine(15) and (Not TIsMine(14)) and (TArmies(26)<TArmies(14)+TArmies(25)) ) then Begin T2:=15; T:=26; end else T2:=14;
-
-If( (COwner(3)<>PMe) and 
-     TIsMine(T2) and 
-    (TArmies(T2)>TArmies(T))
-   ) then
-  Begin
-   ToTerritory:=T;
-   FromTerritory:=T2;
-   BypassStruggler:=True;
-   //If UBufferGet(15) then //umessage('Africa to Europe');
-  end;
-end;
-
-
-      //Don't miss an attack to destroy somebody's totality in Europe
-      If ((FromTerritory=0) and 
-          (COwner(4)=TOwner(26)) and
-          (COwner(3)<>PMe) and 
-          (COwner(3)<>0) and 
-           TIsMine(27) and 
-          (TArmies(26)<TArmies(27)) and
-          (TArmies(26)<TArmies(22)) and
-          (TArmies(26)<4) 
-         ) then 
-      Begin
-      ToTerritory:=26;
-      FromTerritory:=27;
-      ////If UBufferGet(15) then 
-      //umessage('Must not appear##################3Forced attack to Europe' );
-      UBufferSet(28,0);
-      If ((TArmies(14)<=3) and (TArmies(27)>TArmies(14)+2)) then UBufferSet(28,TArmies(14)+2);
-      If ((COwner(4)=COwner(1)) and (TArmies(14)+TArmies(12)<5) and (TArmies(27)>TArmies(14)+TArmies(12)+2)) then UBufferSet(28,TArmies(14)+TArmies(12)+2);
-      UBufferSet(27,26);
-      BypassStruggler:=True;
-      end;
-      
-
-end; //(COwner(3)<>0)
-
-
-
-//Attack North Africa if can get in Europe by Western Europe later#
-If ((COwner(3)<>0) or (COwner(2)<>0)) then
-If NOT ((FromTerritory=15) and (ToTerritory=26)) then
-Begin
-If ( TIsMine(16) and (TIsMine(14)=False) ) then
- If (((TArmies(14)+TArmies(25)<TArmies(16)) and (COwner(3)<>0)) OR ((TArmies(14)+TArmies(12)<TArmies(16)) and (COwner(2)<>0))) then
-      Begin
-      ToTerritory:=14;
-      FromTerritory:=16;
-      UBufferSet(13,14);
-      end;
-If ( TIsMine(15) and (TIsMine(14)=False) ) then
- If (((TArmies(14)+TArmies(25)<TArmies(15)) and (COwner(3)<>0)) OR ((TArmies(14)+TArmies(12)<TArmies(15)) and (COwner(2)<>0))) then
-      Begin
-      ToTerritory:=14;
-      FromTerritory:=15;
-      UBufferSet(13,14);
-      end;
-
-end;
-
-//Asia protection attack
-If COwner(5)=PMe then
-If (FromTerritory=0) or ((COwner(TContinent(ToTerritory))=0) and (not Sconquest) and (ToTerritory<>22)) then
-If ((TArmies(28)<4) or (TArmies(29)<4)) and (TArmies(22)=1) then
-If not TIsMine(22) then
-Begin
-If TArmies(29)>TArmies(28) then FromTerritory:=29 else FromTerritory:=28;
-If (TArmies(FromTerritory)<3) or 
-   ( (TOwner(23)=TOwner(22)) and (TArmies(23)-1>TArmies(FromTerritory)) ) or
-   ( (TOwner(21)=TOwner(22)) and (TArmies(21)-1>TArmies(FromTerritory)) ) then FromTerritory:=0;
-ToTerritory:=22;
-end;
-
-//Choose a good attack to Ukrania
-If ToTerritory=22 then 
-Begin
-CAnalysis(5,PT,PA,ET,EA);
-GO:=((PT=12) or ( (PT=11) and ((Not TIsMine(37)) or (Not TIsMine(36)) or (Not TIsMine(35)) or (Not TIsMine(38))) ));
-If ( GO and (FromTerritory=27) ) then
-Begin
-If ((PT=12) and (TArmies(27)>6)) then C:=2 else C:=1;
-If ((TArmies(29)+C>=TArmies(27)) and (TArmies(29)> TArmies(28))) then FromTerritory:=29;
-If ((TArmies(28)+C>=TArmies(27)) and (TArmies(28)>=TArmies(29)) and (TArmies(28)>1)) then FromTerritory:=28;
-end;
-
-If ( GO and ((FromTerritory=28) or (FromTerritory=29)) ) then
-Begin
-If ( (FromTerritory=29) and (TArmies(28)>=TArmies(29)) ) then FromTerritory:=28;
-If ( (FromTerritory=28) and (TArmies(29)> TArmies(28)) ) then FromTerritory:=29;
-If (TArmies(27)>2*TArmies(FromTerritory)+2) then FromTerritory:=27;
-end;
-
-If (GO and 
-   (FromTerritory=27) and 
-   ( SConquest or ((TArmies(27)<8) and (PT=12)) ) and
-   (COwner(3)=0)) then FromTerritory:=0;
-
-end;
-
-
-//Try attack Middle East if someone got 2 continents
-If ( NOT ((COwner(3)<>0) and ((ToTerritory=22) or (ToTerritory=26))) ) then
-If ( (TIsMine(27)=False) and 
-     ((UBufferGet(36)<>0) and ((COwner(3)=trunc(UBufferGet(36))) or (COwner(4)=trunc(UBufferGet(36))))) ) then 
-Begin
- TPStrongestBorder(27, PMe, PT2,PA2);
- If ( (PA2-1>TArmies(27)) and ((TArmies(27)<10) or (TOwner(27)=trunc(UBufferGet(36)))) ) then
-   Begin
-    ToTerritory:=27;
-    FromTerritory:=PT2;
-    //If UBufferGet(15) then //umessage('Try conquest Middle East to "get in touch" with the strong player ' );
-    If ((FromTerritory=29) and (TArmies(22)<TArmies(29)) and (TArmies(22)<=TArmies(26)+1) and (COwner(3)=TOwner(22)) and (COwner(3)=trunc(UBufferGet(36)))) then ToTerritory:=22;
-   end;
-end;    
-
- 
-  
-//26 to 14
-If TIsMine(26) then
-If (Cowner(4)<>0) then
- If ( (Cowner(4)<>PMe) and ((TArmies(26)>TArmies(14)) or (TArmies(26)>TArmies(15))) ) then
-  Begin
-   if (TArmies(14)<15) then ToTerritory:=14;
-   If (TArmies(15)<=TArmies(14)) and ((COwner(2)=0) or (TArmies(12)+TArmies(14)>TArmies(26))) then ToTerritory:=15;
-   If (ToTerritory=14) or (ToTerritory=15) then 
-   Begin
-   FromTerritory:=26;
-   BypassStruggler:=True;
-   end;
-  end;
-  
-  
-  
-  
-If (COwner(1)<>0) then
-If (COwner(1)<>PMe) then
-Begin //c1
-  
-//North Africa attack strategy#
-If TIsMine(14) then
-If COwner(1)=COwner(2) then
-If( (COwner(3)<>COwner(1)) and 
-    (TIsMine(10)=False) and
-    (TIsMine(12)=False) and
-    (TArmies(14)>TArmies(12)+TArmies(10)+TArmies(9)+1)
-   ) then
-  Begin
-   ToTerritory:=12;
-   FromTerritory:=14;
-   //If UBufferGet(15) then //umessage('Try attack South America and North America');
-  end;
-  
-
-//Brazil to Venezuela if can get Mexico#
-If( TIsMine(12) and 
-    (TIsMine(10)=False) and
-    (TArmies(12)>TArmies(10)+TArmies(9)+1)
-   ) then
-  Begin
-   ToTerritory:=10;
-   FromTerritory:=12;
-   BypassStruggler:=True;
-   //If UBufferGet(15) then //umessage('Brazil to Venezuela to get Mexico');
-  end;
-
-  
-//If North America occupied try Alaska attack
-If TIsMine(37) then
-If ( NOT ( 
-(COwner(1)<>trunc(UBufferGet(36))) and 
-(UBufferGet(36)<>0) and
-(PTerritoriesCount(COwner(1))<15) 
-)) then
-If( (TOwner(1)=COwner(1)) and
-    ( (TArmies(37)>TArmies(1)) or ((TArmies(37)>trunc(0.8*TArmies(1)-0.7)) and (TArmies(37)>3)) )
-   ) then
-  Begin
-   ToTerritory:=1;
-   FromTerritory:=37;
-   BypassStruggler:=True;
-   If (COwner(1)=trunc(UBufferGet(36))) and (COwner(1)<>0) and (37<>UBufferGet(20)) then BypassBubble:=True;
-  end;
-  
-end;//c1
-
-
-
-// Venezuela to Mexico if North America occupied#
-If ( ((FromTerritory=0) and (SConquest=False) and (COwner(2)=PMe)) OR 
-     ((COwner(1)<>0) and (COwner(1)<>PMe)) ) then 
-begin
-CLeader(1,LPa,LTa,LAa);
-CAnalysis(1,PT,PA,ET,EA);
-If( (((LTa>=8) and (double(EA)<(1.4*LTa)) and (TArmies(9)<4) and (TArmies(10)>15) and (TOwner(9)=TOwner(8)) and (TOwner(9)=TOwner(7)) )) and 
-     TIsMine(10) and 
-    (NOT TIsMine(9)) and 
-    (TArmies(10)>TArmies(9))
-   ) then
-  Begin
-   ToTerritory:=9;
-   FromTerritory:=10;
-  end;
-  
-If ((LTa=9) and (LPa<>PMe) and (TArmies(10)>TArmies(9)) and TIsMine(10)) then 
-  Begin
-   ToTerritory:=9;
-   FromTerritory:=10;
-   BypassStruggler:=True;
-  end;
-  
-end;
-
-
-
-
-//Attack from Indonesia if someone holds Asia
-If FromTerritory=0 then
-If COwner(6)=PMe then
- If (COwner(5)<>PMe) and ((COwner(5)<>0) or (TOwner(31)=trunc(UBufferGet(36)))) then
-  If TArmies(39)>TArmies(31) then
-       Begin
-       ToTerritory:=31;
-       FromTerritory:=39;
-       BypassStruggler:=True;
-       end;
-
-
-
-//If Asia occupied try Koryak attack
-If TIsFront(1) then
-If TArmies(1)>1 then
-Begin //TIsFront(1)
-
-If TOwner(37)=COwner(5) then
-If( 
-    (COwner(5)<>PMe) and 
-    ((TArmies(1)>TArmies(37)) or ((TArmies(1)>3) and (TArmies(1)>trunc(0.8*TArmies(37)-0.7))))
-   ) then
-  Begin
-   ToTerritory:=37;
-   FromTerritory:=1;
-   BypassStruggler:=True;
-   //If UBufferGet(15) then //umessage('Try attack Koryak if Asia occupied');
-  end;
-  
-      
-      //Try attack someone for cards from Alaska
-      TWeakestFront(1,ET,EA);
-      If (SConquest=GO) and (FromTerritory=0) then
-       If ( (TIsMine(1)=True) and (TArmies(1)>5) and (EA<4) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=1;
-        If (ET=37) and SConquest then FromTerritory:=0;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Alaska= ', ET );
-       end;
-
-//Don't attack Koryak from Alaska if not needed 
-If ((FromTerritory=1) and (ToTerritory=37)) then
- If SConquest then
-  Begin
-   if UBufferGet(10)<>0 then C:=40 else C:=20;
-   If ( (TArmies(1)<C) and (COwner(5)=0) and (PArmiesCount(PMe)<100+C) ) then FromTerritory:=0;
-  end;
- 
-  
-end; //TIsFront(1)
-
-
-//Do not weaken Koryak if someone holds North America
-If ((COwner(1)<>0) and (COwner(1)<>PMe) and (FromTerritory=37) and (TContinent(ToTerritory)=5) and (TArmies(ToTerritory)<=2) ) then UBufferSet(16,37); //Pass nothing
-
-//Attack from Brazil for cards
-If TIsMine(12) then 
-If (FromTerritory=0) then
-If ((SConquest=False) and (TArmies(12)>6) and (TArmies(12)>TArmies(14)+1) and (TIsMine(14)=False) and 
-( (TArmies(14)=1) or (TArmies(14)<4) and (PTerritoriesCount(COwner(4))>11) )) then
-  Begin
-   ToTerritory:=14;
-   FromTerritory:=12;
-   UBufferSet(13,14);
-  end;  
-
-
-
-//Lame block attacks 
-If FromTerritory=31 then
-If ((ToTerritory=30) or (ToTerritory=32)) then
-If (TArmies(ToTerritory)>3) or 
-   ((TArmies(ToTerritory)>2) and ((TArmies(32)>5) or (TArmies(30)>5)) )
-    or SConquest then
-If (PArmiesCount(-(trunc(UBufferGet(10))))>40) and (UBufferGet(9)>=0) then
-if PTerritoriesCount(PMe)<21 then
-Begin
-CAnalysis(5,PT,PA,ET,EA);
-D:=0;
-For T:=1 to 38 do
- If (TArmies(T)>30) then
-  If (TOwner(T)=-(trunc(UBufferGet(10)))) then
-   If PArmiesCount(-(trunc(UBufferGet(10))))-TArmies(T)<=TArmies(T) then
-    Begin
-    D:=T;
-    T:=38;
-    end;
-
-If (PT>1) or (TArmies(ToTerritory)>2) then
-if (TArmies(D)>TArmies(31)-TArmies(ToTerritory)+6) then
-  If (TOwner(ToTerritory)<>-(trunc(UBufferGet(10)))) then
-   Begin 
-    FromTerritory:=0;
-    //umessage('Lame block attacks ToTerritory ',ToTerritory);
-   end;
-
-end;
-
-//Crazy Bubble
-If UBufferGet(6)<>0 then
-If FromTerritory=0 then
-Begin
-
-TWeakestFront(trunc(UBufferGet(6)),ET,EA);
-If UBufferGet(39)=2 then C:=0 else C:=1;
-If (TContinent(ET)=TContinent(trunc(UBufferGet(6)))) and (TArmies(trunc(UBufferGet(6)))-EA>C) then
-Begin
-FromTerritory:=trunc(UBufferGet(6));
-ToTerritory:=ET;
-//umessage('Crazy bub ', UBufferGet(6), '> ', ET);
-end
- else
- UBufferSet(6,0);
- 
-end;
-
-
-//Try get cards
-If ((FromTerritory=0) or ((FromTerritory=trunc(UBufferGet(20))) and (trunc(UBufferGet(25))=1))) and (not SConquest) then
-Begin
-
-For T:=1 to 42 do
-If TIsFront(T) then
-If TArmies(T)>2 then
-If COwner(TContinent(T))<>PMe then
-If T<>trunc(UBufferGet(20)) then
-Begin
-TWeakestFront(T,ET,EA);
-If EA=1 then
-  Begin
-   ToTerritory:=ET;
-   FromTerritory:=T;
-   //umessage('cards attak ', T, '> ', ET);
-   T:=42;
-  end;
-end;
-
-If FromTerritory=0 then
-For T:=1 to 42 do
-If TIsFront(T) then
-If TArmies(T)=2 then
-If COwner(TContinent(T))<>PMe then
-If T<>trunc(UBufferGet(20)) then
-Begin
-TWeakestFront(T,ET,EA);
-If EA=1 then
-  Begin
-   ToTerritory:=ET;
-   FromTerritory:=T;
-   //umessage('cards attak2 ', T, '> ', ET);
-   T:=42;
-  end;  
-end;
-
-If ((UBufferGet(9)<>0) or (UBufferGet(8)<>0)) and 
-   ((FromTerritory=31) or (FromTerritory=32) or (FromTerritory=30) or 
-   (FromTerritory=trunc(UBufferGet(20))) or (FromTerritory=trunc(UBufferGet(9))) or (ToTerritory=trunc(UBufferGet(9)))) then FromTerritory:=0;
-end;
-
-
-If (TContinent(ToTerritory)=1) or (TContinent(ToTerritory)=4) or (TContinent(ToTerritory)=3) then BypassStruggler:=True;
-If (FromTerritory=27) or (ToTerritory=27) then BypassStruggler:=True;
-
-If UBufferGet(25)=1 then
-Begin 
-
-If COwner(2)=PMe then
-Begin
-CAnalysis(1,PT,PA,ET,EA);
-If ((PA+TArmies(10)>trunc(0.8*EA)) and (TContinent(ToTerritory)=1)) 
-   or ((TContinent(FromTerritory)=2) and (COwner(TContinent(ToTerritory))<>0)) then BypassBubble:=True;
-end;
-
-If (TContinent(ToTerritory)=2) and (FromTerritory<>trunc(UBufferGet(20))) then BypassBubble:=True;
-If (TContinent(ToTerritory)=1) and (COwner(2)=PMe) then BypassBubble:=True;
-end;
-
-
-//#########################BUBBLE ATTACK
-a1:=FromTerritory;
-a4:=ToTerritory;
-
-//If (((TContinent(FromTerritory)=6) or (TContinent(ToTerritory)=6)) and (COwner(6)<>PMe)) then UBufferSet(25,0);
-
-
-If (UBufferGet(25)=1) then
-begin //buble
-////If UBufferGet(15) then //umessage('before1 Bubble attack: FromTerritory= ',FromTerritory, '    ToTerritory= ', ToTerritory, '  W= ',W);
-
-b:=trunc(UBufferGet(20));
-NormalBubble:=True;
-FromTerritory:=0;
-
-
-If TIsFront(9) then
- If COwner(2)=PMe then
-Begin
-TWeakestFront(b,ET,EA);
- if EA>2 then
-  if TContinent(trunc(UBufferGet(20)))>2 then
-   If TArmies(trunc(UBufferGet(20)))-TArmies(9)<4 then UBufferSet(20,9);
-end;
-
-//Bubble attack to Alaska
-
-CAnalysis(1,PT,PA,ET,EA);
-A:=0;
-If (b=33) or (b=37) then D:=TArmies(trunc(UBufferGet(20))) else D:=0;
-If (TArmies(b)>EA+TArmies(33)+TArmies(37)-D+20) then A:=333;
-
-If UBufferGet(36)<>0 then
-If (COwner(6)<>-(trunc(UBufferGet(10)))) or (PTerritoriesCount(COwner(1))>26) then
-If ( (UBufferGet(29)=0) and (PProgram(COwner(1))<>PProgram(PMe)) ) then //Cooperative
-If (
-   (COwner(1)=trunc(UBufferGet(36))) and 
-   (COwner(1)<>0) and 
-   ( ((TArmies(b)>TArmies(1)+6) and (COwner(6)=PMe)) or (TArmies(b)>TArmies(1)+20) )
-   ) then A:=333;
-
-If A=333 then
-Begin //change (TArmies(37)<10)
-If (TOwner(37)=COwner(1)) then C:=13 else C:=25;  //changed from 1.3 and 2.5
-
-  If ( TIsBordering(33,b) and 
-      (double(TArmies(33))<(double(TArmies(b)) / 3)) and
-     ((double(TArmies(37))<((double(TArmies(b))/ (double(C)/10) )))) and  // divide by 10 to match change made above
-      (TArmies(b)-TArmies(33)-TArmies(37)>TArmies(1)) and 
-      (TIsMine(37)=False) and
-      (TIsMine(33)=False) ) then Begin 
-          ToTerritory:=33; FromTerritory:=b; UBufferSet(13,ToTerritory); end;
-
-T:=0;
-If Not TIsMine(35) then T:=35;
-If Not TIsMine(36) then T:=36;
-If ( (Not TIsMine(35)) and (Not TIsMine(36)) and (TArmies(35)< TArmies(36)) ) then T:=35;
-If ( (Not TIsMine(35)) and (Not TIsMine(36)) and (TArmies(35)>=TArmies(36)) ) then T:=36;
-
-If ( (T<>0) and (TArmies(T)<=TArmies(33)) ) then
-  If ( TIsBordering(T,b) and 
-      (double(TArmies(T))<(double(TArmies(b)) / 3)) and
-     ((double(TArmies(37))<(double(TArmies(b)) / (double(C)/10) ))) and  // divide by 10 to match change made above
-      (TArmies(b)-TArmies(T)-TArmies(37)>TArmies(1)) and 
-      (TIsMine(37)=False) and
-      (TIsMine(T)=False) ) then Begin ToTerritory:=T; FromTerritory:=b; UBufferSet(13,ToTerritory); end;
-      
-      
-  If ( TIsBordering(37,b) and 
-      (TIsMine(37)=False) and
-     ((double(TArmies(37))<(double(TArmies(b)) / (double(C)/10) ))) and
-      (TArmies(37)+TArmies(1)<TArmies(b))
-  ) then Begin ToTerritory:=37; FromTerritory:=b; UBufferSet(13,ToTerritory); end;
-  
-  If ( TIsBordering(1,b) and (TIsMine(1)=False) ) then Begin ToTerritory:=1; FromTerritory:=b; end;
-
-  
-  If ToTerritory=1 then
-   If (TArmies(b)>EA+15) or ((TArmies(b)>EA) and (EA<18)) then 
-    Begin
-    UBufferSet(13,1);
-    If (TArmies(b)>EA+15) then UBufferSet(7,1);
-    If (TArmies(b)>EA+2) and (COwner(6)=PMe) then UBufferSet(7,1);
-    end;  
-    
-    
-
-  If FromTerritory=0 then NormalBubble:=True else NormalBubble:=False;
-end;
-
-
-//Bubble attack to Australia
-CAnalysis(6,PT,PA,ET,EA);
-If ( (UBufferGet(29)=0) and (PProgram(COwner(6))<>PProgram(PMe)) ) then //Cooperative
-IF ( ( (TArmies(b)>TArmies(31)+EA+12) and (b<>31) and (COwner(6)<>PMe) ) OR
-     ( (b=31) and (TArmies(b)>EA+8) and (COwner(6)<>PMe) ) 
-    ) then
-If Not ((PTerritoriesCount(trunc(UBufferGet(36)))>24) and (COwner(6)<>trunc(UBufferGet(36)))) then
-If NOT ( (UBufferGet(36)>0) and (UBufferGet(36)<>-UBufferGet(10)) and (Cowner(6)=-(trunc(UBufferGet(10)))) ) then
- Begin
-  If ( TIsBordering(33,b) and (TIsMine(33)=False) and (TIsMine(32)=False) and (TIsMine(31)=False) and (double(TArmies(33))<(double(TArmies(b)) / 3)) and (TArmies(33)+TArmies(32)+TArmies(31)+EA<TArmies(b)) ) then
-  Begin 
-  ToTerritory:=33; 
-  If (b=28) and (TIsMine(29)=False) and (TArmies(29)<TArmies(33)) then ToTerritory:=29; 
-  FromTerritory:=b; 
-  UBufferSet(13,ToTerritory); 
-  end;
-  
-  If ( TIsBordering(30,b) and (TIsMine(30)=False) and (TIsMine(31)=False) and (TArmies(b)>TArmies(31)+TArmies(30)+EA)) then Begin ToTerritory:=30; FromTerritory:=b; UBufferSet(13,ToTerritory); end;
-  If ( TIsBordering(32,b) and (TIsMine(32)=False) and (TIsMine(31)=False) and (TArmies(b)>TArmies(31)+TArmies(32)+EA)) then Begin ToTerritory:=32; FromTerritory:=b; UBufferSet(13,ToTerritory); end;
-  
-  If ( TIsBordering(32,b) and TIsBordering(30,b) and (TArmies(32)<=TArmies(30)) and (TIsMine(31)=False) and (TIsMine(32)=False) and (TArmies(b)>TArmies(31)+TArmies(32)+EA)) then Begin ToTerritory:=32; FromTerritory:=b; UBufferSet(13,ToTerritory); end;
-  If ( TIsBordering(32,b) and TIsBordering(30,b) and (TArmies(32)> TArmies(30)) and (TIsMine(31)=False) and (TIsMine(30)=False) and (TArmies(b)>TArmies(31)+TArmies(30)+EA)) then Begin ToTerritory:=30; FromTerritory:=b; UBufferSet(13,ToTerritory); end;
-
-  If ( TIsBordering(31,b) and (TIsMine(31)=False) ) then Begin ToTerritory:=31; FromTerritory:=b; UBufferSet(13,ToTerritory); end;
-  If ( TIsBordering(39,b) and (TIsMine(39)=False) ) then Begin ToTerritory:=39; FromTerritory:=b; end;
-  If b=39 then UBufferSet(25,0);
- 
-  If FromTerritory=0 then NormalBubble:=True else NormalBubble:=False;
- end;
- 
- //Bubble attack to S.A.
-If (b>6) and (b<28) then
-Begin
-
- C:=1000;
- For T:=15 to 27 do
-  If
-  TIsBordering(b, T) and 
-  TIsBordering(T, 14) and 
-  (NOT TIsMine(T)) and
-  (TArmies(T)<C) then
-  Begin
-   A:=T;
-   C:=TArmies(T);
-  end;
- 
- CAnalysis(2,PT,PA,ET,EA);
- If (COwner(2)=trunc(UBufferGet(36))) and (COwner(2)<>0) and ((UBufferGet(10)=0) or (COwner(2)=-(trunc(UBufferGet(10))))) then D:=12 else D:=25;
- If TIsBordering(b, 9) then
- If TArmies(b)>EA+D+TArmies(9)+4+(TArmies(14) div 3) then
- If Not TIsMine(9) then
- Begin
-  ToTerritory:=9;
-  FromTerritory:=b;
-  NormalBubble:=False;
-  UBufferSet(13,ToTerritory); 
- End;
- 
- If (b=9) then
- If TArmies(b)>EA+D+(TArmies(14) div 3) then
- If Not TIsMine(10) then
- Begin
-  ToTerritory:=10;
-  FromTerritory:=b;
-  NormalBubble:=False;
-  UBufferSet(13,ToTerritory); 
- End;
- 
- 
- If TIsBordering(b, A) then
- If ((TArmies(b)>EA+D+C+TArmies(14)) and (Not TIsMine(14))) and 
- ((EA<35) OR ((trunc(UBufferGet(36))=COwner(2)) and (COwner(2)<>0)) )  then
- If (b<>27) or (COwner(6)<>PMe) then
- Begin
-  ToTerritory:=A;
-  FromTerritory:=b;
-  NormalBubble:=False;
-  UBufferSet(13,ToTerritory); 
- End;
- 
- If TIsBordering(14,b) or (b=14) then
-Begin
- 
- If ((TArmies(b)>EA+D+TArmies(14)) and (Not TIsMine(14)) and ((EA<35) OR (trunc(UBufferGet(36))=TOwner(13))) ) then
- Begin
- ToTerritory:=14; 
- FromTerritory:=b; 
- NormalBubble:=False;
- UBufferSet(13,ToTerritory); 
- end;
-
- If (TArmies(b)>EA+D-1) and (Not TIsMine(12)) and (b=14) then
-   Begin
-   ToTerritory:=12; 
-   FromTerritory:=b; 
-   NormalBubble:=False;
-   UBufferSet(13,ToTerritory); 
-   end;
-end;
-end;//S.A. Bubble attack
-
-
-If NormalBubble then
-Begin //NormalBubble
- If (SConquest=False)  then 
-  begin 
-        If (UBufferGet(24)=1) then W:=1 else W:=27;
-        If (UBufferGet(24)<>1) then
-        Begin
-        If COwner(3)<>0 then W:=22;
-        If COwner(4)<>0 then W:=15;
-        end;
-Bubble1:
-        
-        FromTerritory:=0;
-        ToTerritory:=0;
-        a:=99999;
-        b:=trunc(UBufferGet(20));
-        For T:=W to 42 do //delimiter
-         If TIsBordering(T,b) then
-          If NOT TIsMine(T) then
-          Begin
-           If (TArmies(T)<a) or 
-          ((TOwner(T)=trunc(UBufferGet(36))) and (TOwner(ToTerritory)<>trunc(UBufferGet(36))) and (TArmies(T)<=a+1))
-            then begin a:=TArmies(T); ToTerritory:=T; end;
-          end;
-
-D:=trunc(URandom(101));
-
-if ( (UBufferGet(21)=1) or (TArmies(ToTerritory)<3) or ((UBufferGet(21)=0) and (D>80)) ) then   //changed to 80 from .8
-  If ( (TArmies(ToTerritory)<4) and (ToTerritory<>0) ) then 
-          Begin  //20%
-          FromTerritory:=b;
-          UBufferSet(21,1);
-          end
-         else 
-          Begin
-          FromTerritory:=0;
-          UBufferSet(21,0);
-          end;
-
-IF (D<80) or (UBufferGet(21)=2) THEN  // changed from .8
-  If ( ((double(TArmies(ToTerritory))<(double(TArmies(b)) / 10)) or (TArmies(ToTerritory)<4)) and (ToTerritory<>0) ) then
-Begin
-FromTerritory:=b;
-
-If UBufferGet(21)=0 then
- If NOT ((ToTerritory=33) and (TArmies(ToTerritory)<5)) then
-  If TArmies(ToTerritory)>2 then
-Begin
-If (TArmies(ToTerritory)>3) and (URandom(0)<0.8) and (URandom(0)<(double(TArmies(ToTerritory))/10)) then FromTerritory:=0;
-
-If (COwner(6)<>PMe) and (TArmies(ToTerritory)>2) and (URandom(0)<0.7) and (URandom(0)<(double(TArmies(ToTerritory)))/8) then FromTerritory:=0;
-end;
-
-UBufferSet(21,2);
-end;
-
-If TArmies(b)<4 then FromTerritory:=0;
-  
-end; //sconquest false
-
-
-
-
-          
-//Randomize the bubble movement a bit
-If a1=b then
-If ( ((URandom(0)>0.15) or (TOwner(a4)=-(trunc(UBufferGet(10))))) and (FromTerritory=b)) then
- If (TArmies(ToTerritory)=TArmies(a4)) or (TOwner(a4)=-(trunc(UBufferGet(10)))) then
- If ((a4<>22) and (a4<>28) and (a4<>29) and (a4<>3) and (a4<>1) and (a4<>37)) or (TOwner(a4)=-(trunc(UBufferGet(10)))) then 
- If COwner(6)=PMe then
- If TArmies(b)>3 then
-  Begin
-  FromTerritory:=a1;
-  ToTerritory:=a4;
-  If TContinent(a4)<>5 then UBufferSet(17, 1);
-  ////umessage('random movement');
-  end;
- 
-//Territory Preferences
-//If ((trunc(UBufferGet(36))<>COwner(3)) or (trunc(UBufferGet(36))<>COwner(4))) and (UBufferGet(36)<>0) then
-If (ToTerritory=27) and (FromTerritory=29) and (TArmies(28)=TArmies(27)) and (NOT TIsMine(28)) and TIsFront(28) then ToTerritory:=28;
-
-If TIsBordering(FromTerritory,33) then
- If (TArmies(33)=TArmies(ToTerritory)) and (NOT TIsMine(33)) then ToTerritory:=33;
-
-If (W>1) then
- If ((COwner(TContinent(ToTerritory))=0) or (FromTerritory=0)) then
-  If ((TArmies(ToTerritory)>1) or (FromTerritory=0)) then
-Begin
-W:=1;
-Goto Bubble1;
-end;
-
-
-
-UBufferSet(17, 0);
-
-If (
-((FromTerritory=0) and (a1<>b) and (a1<>31) and 
-((a1<>39) or (TArmies(31)<5)) and (SConquest=False)) 
-or BypassBubble 
-or ((a1=14) and (TContinent(ToTerritory)=3) and (COwner(2)=PMe))
-
-) then // and (a1>34)
-          Begin
-          FromTerritory:=a1;
-          ToTerritory:=a4;
-          If (a1=b) then
-           If (TContinent(ToTerritory)<>5) and (TContinent(b)=5) then 
-           Begin
-           UBufferSet(17, 1); //don't change the bubble position in this attack
-           UBufferSet(16,b); //Pass nothing
-           end;
-          end;
-
-
-
-end; //NormalBubble
-If b=39 then UBufferSet(25,0);
-
-
-If (FromTerritory=b) and (TContinent(ToTerritory)=5) then UBufferSet(17, 0);
-
-If (FromTerritory=0) and (COwner(6)=0) then
-Begin
-CAnalysis(6,PT,PA,ET,EA);
-If TIsMine(39) and (TArmies(39)-4>EA) and (PT=1) then 
- Begin
- If TArmies(40)>=TArmies(42) then T:=42 else T:=40;
- ToTerritory:=T;
- FromTerritory:=39;
- BypassStruggler:=True;
- end;
-end;
-
-end; //bubble 
-
-
-
-//Hold the Wyrm's result in the case players=2
-XX:=FromTerritory;
-YY:=ToTerritory;
-
-end;
-    
-
-
-    //Go STRUGGLER attack if a bug is found
-    
-
-   If FromTerritory<>0 then 
-    If ( (TIsMine(ToTerritory)=True) or 
-         (TIsMine(FromTerritory)=False) or
-         (TArmies(FromTerritory)<=1) or
-         (TIsBordering(ToTerritory, FromTerritory)=False)
-        )
-     then 
-        Begin
-        a4:=222;
-        //umessage('Attack bug found!!! Report it and receive the latest version of Frank. Attacking with STRUGGLER: FromTerritory= ', FromTerritory,'  ToTerritory= ', ToTerritory);
-        end;
-        
-  If (UBufferGet(39)=2) then
-   If 	(FromTerritory<12) and (FromTerritory>25) then ByPassStruggler:=True;
-
-//Attack with struggler if strong player and 3 players
-attack3:=False;
-If FromTerritory=0 then
-if UBufferGet(39)=3 then  
-if (
-((PTerritoriesCount(COwner(3))>20) and (COwner(3)<>PMe)) or
-((PTerritoriesCount(COwner(1))>20) and (COwner(1)<>PMe)) or
-((PTerritoriesCount(COwner(5))>20) and (COwner(5)<>PMe)) or
-((PTerritoriesCount(COwner(6))>20) and (COwner(6)<>PMe)) or
-((PTerritoriesCount(COwner(4))>20) and (COwner(4)<>PMe))
-) then
-attack3:=True;
-
-
-
-  
-//###STRUGGLER
-If ((BypassStruggler=False) or (a4=222) or attack3) then
-Begin
-
-If ((a4=222) or attack3 or (UBufferGet(19)<>0) or (UBufferGet(39)=2)) then 
-//If FromTerritory=0 then
-BEGIN
- 
-begin
-  // perform the attack with highest point value if force ratio>=1.2
-  FromTerritory:=0;
-  ToTerritory:=0;
-  MaxValue:=0;
-  // scan all territories
-  for T:=1 to 42 do begin
-    if TIsFront(T)                      // territory is mine and front
-    and (TArmies(T)>1) then begin       // and attack is possible
-      // scan all possible fronts
-      FCount:=TFrontsCount(T);
-      for F:=1 to FCount do begin
-        T2:=TFront(T,F);
-        Ratio :=double( TArmies(T) ) / TArmies(T2);
-        if Ratio>=1.2 then begin
-          Value:=Eval(T,T2);
-          // consider only strategic attacks
-          if Value>=1.0 then begin
-            if Value>MaxValue then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              MaxValue:=Value;
-            end;
-          end; 
-        end;
-      end;
-    end;
-  end;
-end;
-
-
-
-//## Struggler rules
- // attack Australia with China if viable#
- If not TIsMine(31) then
- If TIsMine(32) then
-    If ( ((TArmies(32)>TArmies(30)) and TIsMine(30)) or (TIsMine(30)=False) ) then
-      If ( (TIsMine(39)=False) and 
-           (TIsMine(40)=False) and
-           (TIsMine(41)=False) and
-           (TIsMine(42)=False) and
-           (TArmies(31)+TArmies(39)+TArmies(40)+TArmies(41)<TArmies(32))
-          ) then 
-      Begin
-      ToTerritory:=31;
-      FromTerritory:=32;
-      end;
-     
-      
-      B:=5;
-      //attack India from Middle East if can get Indonesia later#
-      If ((TArmies(27)-B>TArmies(30)+TArmies(31)+TArmies(39)) and
-          (TIsMine(27)=True) and 
-          (TIsMine(30)=False) and 
-          (TIsMine(31)=False) and
-          (TIsMine(39)=False) 
-         ) 
-        then
-          Begin
-          ToTerritory:=30;
-          FromTerritory:=27;
-          B:=0;
-          end;
-          
-//Attack Af 
-If TIsMine(12) then
- If COwner(4)<>0 then 
-  If COwner(4)<>PMe then 
-   If TArmies(12)>TArmies(14) then
-         Begin
-          ToTerritory:=14;
-          FromTerritory:=12;
-         end;
-         
-If COwner(1)<>0 then
-if COwner(1)<>PMe then
-Begin //c1<>PMe
-
-//Prepare to get Koryak to get Alaska#
-If( TIsMine(33) and 
-    (TIsMine(37)=False) and
-    (TArmies(33)>TArmies(37)+1) 
-   ) then
-  Begin
-   ToTerritory:=37;
-   FromTerritory:=33;
-   //If UBufferGet(15) then //umessage('Try Koryak from Mongolia if North America occupied ######');
-   UBufferSet(27,37);
-   UBufferSet(28,9999);
-  end;
-  
-  
-//Brazil to Venezuela if can get Mexico#
-If( 
-     TIsMine(12) and 
-    (TIsMine(10)=False) and
-    (TArmies(12)>TArmies(10)+TArmies(9)+1)
-   ) then
-  Begin
-   ToTerritory:=10;
-   FromTerritory:=12;
-   //If UBufferGet(15) then //umessage('Brazil to Venezuela to get Mexico');
-  end;
-
-// Venezuela to Mexico if North America occupied#
-If( 
-     TIsMine(10) and 
-    (TArmies(10)>TArmies(9))
-   ) then
-  Begin
-   ToTerritory:=9;
-   FromTerritory:=10;
-   //If UBufferGet(15) then //umessage('Try get in North America from Venezuela');
-  end;
-  
-end; //c1<>PMe
- 
- 
-//If UBufferGet(15) then //umessage('Struggler end: ToTerritory:=',ToTerritory, '  FromTerritory:=', FromTerritory, '  SConquest= ', SConquest);
-
-END; //STRUGGLER
-
-end; //BypassStruggler=False
-
-//All players Rules
-
-
-//Attack Mexico with strongest territory
-If ToTerritory=9 then
- If TIsMine(7) and TIsMine(8) then
-  If ((FromTerritory=7) or (FromTerritory=8)) and (TArmies(9)<3) then
-   If TArmies(7)>TArmies(8) then FromTerritory:=7 else FromTerritory:=8;
-
-
-//Attack optimization to 2 and 3 players
-X:=0; 
-Y:=0;
-D:=0;
-If (FromTerritory=0) then
-//If (UBufferGet(39)=2) or ((UBufferGet(39)=3) and (PTerritoriesCount(trunc(UBufferGet(36)))>20) ) then
-If (UBufferGet(39)=2) or attack3 then
-If (PTerritoriesCount(PMe)<=42-12) or (NOT SConquest) then 
-If UBufferGet(25)=0 then
-For T:=1 to 42 do
-If TIsfront(T) or (T=42) then
-  If (TArmies(T)>3+D) or (T=42) then
-   If (FromTerritory=0) or ((TArmies(ToTerritory)>1) and (FromTerritory<>0)) then
-    If (COwner(TContinent(T))<>PMe) or (TArmies(T)>6) then
-     If NOT (attack3 and (PTerritoriesCount(TOwner(T))<12) and SConquest) then
-    Begin
-    If T<>42 then
-    Begin //<>42
-    TWeakestFront(T, ET,EA);
-    
-     If EA=1 then
-     Begin
-      FromTerritory:=T;
-      ToTerritory:=ET;
-     end;
-     
-     if EA>1 then
-     If ((TArmies(ToTerritory)>1) and (FromTerritory<>0)) or (FromTerritory=0) then
-     If TArmies(T)-EA>2+D then
-     If (FromTerritory=0) or ((TArmies(T)-EA>TArmies(FromTerritory)-TArmies(ToTerritory)) and (FromTerritory<>0)) then
-     Begin
-      FromTerritory:=T;
-      ToTerritory:=ET;
-     end;
-     
-     Ea2:=666; 
-     //umessage(FromTerritory, ToTerritory);
-     
-     
-     If (FromTerritory=31) and (COwner(6)=PMe) and (TArmies(31)+TArmies(39)<7) then FromTerritory:=0;
-     
-     If (FromTerritory=20) and (COwner(1)=PMe) and (TArmies(3)<4) then FromTerritory:=0;
-     If (FromTerritory=37) and (COwner(1)=PMe) and (TArmies(1)<4) then FromTerritory:=0;
-     If (FromTerritory=14) and (COwner(2)=PMe) and (TArmies(12)<4) then FromTerritory:=0;
-     If (FromTerritory=27) and ((COwner(3)=PMe) or (COwner(4)=PMe)) and (TArmies(27)<10) then FromTerritory:=0;
-//     If (((FromTerritory>8) and (FromTerritory<13)) and (TArmies(FromTerritory)<11)) and ((COwner(1)=PMe) or (COwner(4)=PMe)) then FromTerritory:=0;
-     If (FromTerritory=31) and (ToTerritory=32) and SConquest and (COwner(6)=PMe) and (UBufferGet(39)=3) then FromTerritory:=0;
-     //If (UBufferGet(39)=3) and (TOwner(ToTerritory)<>trunc(UBufferGet(36))) then FromTerritory:=0;
-
-If attack3 and SConquest then
- If ((PTerritoriesCount(TOwner(ToTerritory))<21) and (trunc(UBufferGet(36))<>TOwner(ToTerritory))) then FromTerritory:=0;
-     
-     If FromTerritory<>0 then 
-     Begin
-      Y:=ToTerritory;
-      X:=FromTerritory;
-     end;
-
-     If FromTerritory=0 then 
-     Begin
-      ToTerritory:=Y;
-      FromTerritory:=X;
-     end;
-     
-     end;//dif 42
-     
-     //umessage('ttttttttttttttt', D, T, 'FromTerritory ',FromTerritory);
-     
-   If (D=0) and (T=42) and (FromTerritory=0) then 
-      Begin D:=-1; T:=1; 
-      //umessage('DDDDDDDDDDDDDDDDd', D, T); 
-      end;
-      
-//If (COwner(TContinent(FromTerritory))=PMe) then C:=1;     
-If (FromTerritory<>0) and (COwner(TContinent(FromTerritory))<>PMe) then UBufferSet(11,ToTerritory) else UBufferSet(11,0);
-     
-    end;
-
-If Not (UBufferGet(39)>2) then
-If (a4<>222) and (XX<>0) and (YY<>0) and ( (FromTerritory=0) or (TContinent(XX)=2) or (TContinent(YY)=2) or (TContinent(XX)>4) or (XX=1) or (YY=1) or (XX=3) or (YY=3) or (YY=9) ) then
-Begin
-FromTerritory:=XX;
-ToTerritory:=YY;
-end;
-
-
-//Lame Bubble
-If TArmies(30)<=TArmies(32) then C:=TArmies(30) else C:=TArmies(32);
-
-If TIsMine(31) then
-If NOT (TIsMine(30) and TIsMine(32)) then
-If PTerritoriesCount(-(trunc(UBufferGet(10))))<3 then
-If PArmiesCount(-(trunc(UBufferGet(10))))>70 then
- If (UBufferGet(36)=0) then  //##=0 ok
-  If (COwner(6)=PMe) then
-   If PArmiesCount(-(trunc(UBufferGet(10))))+10<TArmies(31)-C then
-   Begin
-   A:=0; For T:=1 to 38 do If (A=0) and (TOwner(T)=-(trunc(UBufferGet(10)))) then A:=T;
-   
- If (TArmies(A)>=PArmiesCount(-(trunc(UBufferGet(10))))-1) or (TArmies(A)=1) then UBufferSet(8, 31);
- 
- //If (PTerritoriesCount(trunc(UBufferGet(36)))>18) then UBufferSet(8, 31);
- end;
-
-
-If (UBufferGet(8)<>0) then
-Begin
-If (ToTerritory<>31) and (FromTerritory<>31) and (trunc(UBufferGet(8))=FromTerritory) then FromTerritory:=0;
- 
-If PArmiesCount(-(trunc(UBufferGet(10))))=0 then UBufferSet(8, 0);
-
-If (UBufferGet(8)=31) then
- Begin
- If TIsMine(31) and (Not TIsMine(30)) then
- If (TArmies(30)<TArmies(32)) and (double( TArmies(30) ) < double( TArmies(31) )/10) then
-  Begin
-  ToTerritory:=30;
-  FromTerritory:=31;
-  UBufferSet(8, 30);
-  UBufferSet(13, 30);
-  end;
-  
- If TIsMine(31) and (Not TIsMine(32)) then
- If (TArmies(30)>=TArmies(32)) and (double( TArmies(32) ) < (double( TArmies(31) )/10)) then
-  Begin
-  ToTerritory:=32;
-  FromTerritory:=31;
-  UBufferSet(8, 32);
-  UBufferSet(13, 32);
-  end;
-  //umessage('lame bubble att');
-  UBufferSet(9, 444);
- end;
-
- 
-
-
-If TIsMine(trunc(UBufferGet(8))) then
- If TIsBordering(31, trunc(UBufferGet(8))) then
-Begin
-CAnalysis(6,PT,PA,ET,EA);
-If (Not TIsMine(31)) and (TArmies(trunc(UBufferGet(8)))>trunc(0.9*(TArmies(31)+EA))) then
-  Begin
-  ToTerritory:=31;
-  FromTerritory:=trunc(UBufferGet(8));
-  UBufferSet(13, 31);
-  If (UBufferGet(9)=444) and (TOwner(39)<>-(trunc(UBufferGet(10)))) then UBufferSet(9, 555);
-  end;
-
-If TIsMine(trunc(UBufferGet(8))) and (TArmies(trunc(UBufferGet(8)))<22) and (TArmies(31)>21) 
- and TIsMine(31) and (COwner(6)=PMe) then UBufferSet(8, 0);
- 
-If TIsMine(31) then C:=0 else C:=TArmies(31);
-
-If (UBufferGet(8)=30) or (UBufferGet(8)=32) then
-If TIsMine(trunc(UBufferGet(8))) then
-If (double(TArmies(trunc(UBufferGet(8))))<(0.9*(C+EA))) then
-If TArmies(trunc(UBufferGet(8)))>TArmies(trunc(UBufferGet(20)))+5 then
-Begin
-UBufferSet(20,UBufferGet(8));
-UBufferSet(25,1);
-UBufferSet(8,0); 
-end;
-
-end;
- 
-end;//lame b.
-
- 
-//########Aust. - N.A. Attack  
-If TIsMine(31) then
-If COwner(6)=PMe then
-If (TArmies(31)>70-PTerritoriesCount(trunc(UBufferGet(36)))) or (UBufferGet(9)<>0) then
-If (NOT TIsMine(32)) and (NOT TIsMine(33)) and (NOT TIsMine(37)) and (NOT TIsMine(1)) then
-If (UBufferGet(10)<0) or ((PTerritoriesCount(COwner(1))>22) and (COwner(1)<>PMe)) then
-
-Begin
-CAnalysis(1,PT,PA,ET,EA);
-//If (PArmiesCount(-(trunc(UBufferGet(10))))>100) OR 
-//   ((COwner(1)=trunc(UBufferGet(36))) and (PTerritoriesCount(-(trunc(UBufferGet(10))))>16)) OR
-//    then
-If ((COwner(1)<>0) and (trunc(UBufferGet(36))=COwner(1))) and (PArmiesCount(COwner(1))>60) 
-then C:=10+3*trunc(UBufferGet(39)) else C:=36+3*trunc(UBufferGet(39));
-If (PTerritoriesCount(COwner(1))>25) then C:=0;
-D:=0;
-If TOwner(20)=-(trunc(UBufferGet(10))) then D:=TArmies(20)-5;
-If TOwner(10)=-(trunc(UBufferGet(10))) then D:=TArmies(10)-5;
-
-
-if (double(TArmies(32))+TArmies(33)+TArmies(37)<(double(TArmies(31)) / 3)) or ((COwner(1)<>0) and (trunc(UBufferGet(36))=COwner(1))) then
- If TArmies(32)+TArmies(33)+TArmies(37)+TArmies(10)+TArmies(20)+EA+C-D<TArmies(31) then 
-Begin
-ToTerritory:=32;
-FromTerritory:=31;
-UBufferSet(9, 32);
-UBufferSet(13, 32);
-UBufferSet(25, 0); //Frank is not in Bubble Mode
-If PTerritoriesCount(trunc(UBufferGet(36)))<15+2*trunc(UBufferGet(39)) then
- If PArmiesCount(-(trunc(UBufferGet(10))))>35 then UBufferSet(8, -1); //Stop one round
-end;
-end;
-
-//######Aust. - S.A. Attack  
-If TIsMine(31) then
-//If COwner(6)=PMe then
-If (TArmies(31)>50) or (UBufferGet(9)<>0) then
-If (NOT TIsMine(30)) and (NOT TIsMine(27)) and (NOT TIsMine(26)) then
-If ((COwner(4)=COwner(3)) and ((COwner(2)=COwner(1)) or (COwner(2)=COwner(3))) and (COwner(2)<>PMe) and (COwner(2)<>0) and (COwner(2)<>PMe)) then
-If PTerritoriesCount(COwner(2))>20 then 
-If UBufferGet(9)<>32 then
-
-Begin
-CAnalysis(2,PT,PA,ET,EA);
-If PTerritoriesCount(COwner(2))>29 then C:=7 else 
-Begin If (UBufferGet(9)=30) then C:=16 else C:=20; end;
-
-If TArmies(30)+TArmies(27)+TArmies(26)+TArmies(14)+EA<TArmies(31)-C-3*trunc(UBufferGet(39)) then
-Begin
-ToTerritory:=30;
-FromTerritory:=31;
-UBufferSet(9, 30);
-UBufferSet(13, 30);
-UBufferSet(25, 0); //Frank is not in Bubble Mode
-end;
-end;
-
-
-
-If UBufferGet(9)<>0 then
-If (UBufferGet(9)<444) then
-Begin
-//CAnalysis(1,PT,PA,ET,EA);
-
-
-
-if false then
-if (UBufferGet(9)=33) then
- If COwner(6)=PMe then
- If PArmiesCount(-(trunc(UBufferGet(10))))>80 then
-  If ((PTerritoriesCount(COwner(1))>15) and (PTerritoriesCount(COwner(1))<27) and 
-  (COwner(1)=trunc(UBufferGet(36)))) then UBufferSet(8, -1); //Stop one round
-
-If TArmies(27)<40 then C:=3 else C:=8;
-If COwner(3)=0 then C:=1;
-
-if (UBufferGet(9)=30) and TIsMine(30) then UBufferSet(9, 27);
-if (UBufferGet(9)=27) and TIsMine(27) then
- Begin
- If (TArmies(26)-TArmies(15)<C) then UBufferSet(9, 26) else UBufferSet(9, 15);
- If (UBufferGet(9)=15) and (TArmies(16)<TArmies(15)) then UBufferSet(9, 16);
- end;
- 
-If (UBufferGet(9)=26) and TIsMine(26) then 
-Begin 
-UBufferSet(9, 0);
-UBufferSet(25, 1);
-UBufferSet(20, 26);
-UBufferSet(24, 1);
-end;
-If (UBufferGet(9)=15) and TIsMine(15) then 
-Begin 
-UBufferSet(9, 0);
-UBufferSet(25, 1);
-UBufferSet(20, 15);
-UBufferSet(24, 1);
-end;
-If (UBufferGet(9)=16) and TIsMine(16) then 
-Begin 
-UBufferSet(9, 0);
-UBufferSet(25, 1);
-UBufferSet(20, 16);
-UBufferSet(24, 1);
-end;
-
-                                                  // bug fix (by NS) #*#
-if (UBufferGet(9)=27) and (NOT TIsMine(27)) and TIsMine(30) then
- Begin
-  ToTerritory:=27;
-  FromTerritory:=30;
-  UBufferSet(13, 27);
- end;
-
-If TIsMine(27) then begin // bug fix (by NS) #*#
- if (UBufferGet(9)=26) and (NOT TIsMine(26)) then
- Begin
-  ToTerritory:=26;
-  FromTerritory:=27;
-  UBufferSet(13, 26);
- end;
-
- if (UBufferGet(9)=15) and (NOT TIsMine(15)) then
- Begin
-  ToTerritory:=15;
-  FromTerritory:=27;
-  UBufferSet(13, 15);
- end;
-
- if (UBufferGet(9)=16) and (NOT TIsMine(16)) then
- Begin
-  ToTerritory:=16;
-  FromTerritory:=27;
-  UBufferSet(13, 16);
- end;
-end;
- 
-if (UBufferGet(9)=32) and TIsMine(32) then UBufferSet(9, 33);
-if (UBufferGet(9)=33) and TIsMine(33) then UBufferSet(9, 37);
-if (UBufferGet(9)=37) and TIsMine(37) then UBufferSet(9, 1);
-If (UBufferGet(9)=1)  and TIsMine( 1) then Begin UBufferSet(9, 0); UBufferSet(25, 0); end;
-//If (NOT TIsMine(39)) and (NOT TIsMine(32)) then UBufferSet(9, 0);
-
-if (UBufferGet(9)=33) and (NOT TIsMine(33)) then
- if TIsMine(32) then
- Begin
-  ToTerritory:=33;
-  FromTerritory:=32;
-  UBufferSet(13, 33);
-  
-If (UBufferGet(9)=33) then
-if ((TArmies(33)>40) and (TOwner(33)<>trunc(UBufferGet(36))) and (NOT TIsMine(33))) or
-   ((TArmies(37)>40) and (TOwner(37)<>trunc(UBufferGet(36))) and (NOT TIsMine(37))) then
-Begin
-UBufferSet(9, 0);
-UBufferSet(8, 32);
-end;
-
- end;
- 
-
-if (UBufferGet(9)=37) and (NOT TIsMine(37)) then
- if TIsMine(33) then
- Begin
-  ToTerritory:=37;
-  FromTerritory:=33;
-  UBufferSet(13, 37);
- end;
- 
-if UBufferGet(9)=1 then
- if TIsMine(37) and (NOT TIsMine(1)) then
- Begin
-  ToTerritory:=1;
-  FromTerritory:=37;
-  UBufferSet(13, 1);
-  UBufferSet(7,1);
- end;
-
-
-//umessage('ALASKA ATTACK= ', UBufferGet(9) );
-If (UBufferGet(9)<>0) and (TArmies(FromTerritory)<7) then UBufferSet(9, 0);
-
-end;
-
-
-
-//end the turn
-If (UBufferGet(9)<>0) then
-If ((UBufferGet(8)=-1) and TIsMine(32)) 
- then 
- Begin
-  If (TOwner(39)<>-(trunc(UBufferGet(10)))) then FromTerritory:=0;
-  UBufferSet(8, 0);
- end;
-
- 
-If (UBufferGet(9)=555) then 
-  Begin
-  FromTerritory:=0;
-  UBufferSet(9, 0);
-  end;
-  
-
-//conquest mode
-If UBufferGet(7)<>0 then
-If ToTerritory<>20 then
-Begin
-
-If TIsMine(4) and (Not TIsMine(7)) and (TArmies(4)>TArmies(7)) then Begin FromTerritory:=4; ToTerritory:=7; end;
-
-If TIsMine(5) and (Not TIsMine(4)) and (TArmies(5)>TArmies(4)) then Begin FromTerritory:=5; ToTerritory:=4; end;
-
-If TIsMine(6) and (Not TIsMine(5)) and (TArmies(6)>TArmies(5)) then Begin FromTerritory:=6; ToTerritory:=5; end;
-
-If TIsMine(1) and (Not TIsMine(2)) and (TArmies(1)>TArmies(2)) then Begin FromTerritory:=1; ToTerritory:=2; end;
-
-If TIsMine(2) and (Not TIsMine(3)) and (TArmies(2)>TArmies(3)) then Begin FromTerritory:=2; ToTerritory:=3; end;
-
-If TIsMine(3) and (Not TIsMine(6)) and (TArmies(3)>TArmies(6)) then Begin FromTerritory:=3; ToTerritory:=6; UBufferSet(25,0); UBufferSet(24,0); end;
-
-end;
-
- 
- 
-//Plays Strugger until 4 territories are conquered
-If (PTerritoriesCount(PMe)>(UBufferGet(19))+4) then UBufferSet(19,0); 
-
-UBufferSet(30, 0); //End of the First placement 
-////If UBufferGet(15) then //umessage('Final2: ToTerritory:=',ToTerritory, '  FromTerritory:=', FromTerritory, '  SConquest= ', SConquest);
-
-// code added by Nathan Scarbrough 5-31-10
-// When Frank was written the PCardTurnInValue function didn't exist.
-// This code takes Card Turn in value into account
-// if no attack then check to see if it would be wise to get a card
-
-  if (ToTerritory = 0) and (not SCardsBasedOnCombo) and (not SConquest) then begin
-    Vexer:= 0;
-    For P:= 1 to 10 do if (PProgram(P) = 'vexer.trp') and PAlive(P) then vexer:= P;
-    if (not (  (PArmiesCount(PMe) < 11) and (PArmiesCount(Vexer) > 20) and ( (PCardCount(PMe) > 1) or (PCardCount(PMe) + PCardCount(Vexer) >= 4) )  ))
-     or (PCardCount(PMe) + PCardCount(Vexer) >= 5) then begin
-
-      CForce:= (PCardTurnInValue(PMe) div 3) + 2;
-      // if I haven't earned a card in the last 3 turns then increase CForce
-      if (bg(61) > 2) and (not SCardsBasedOnCombo) then begin
-      if GameHasOneHuman(P) and (  PArmiesCount(P) > ( trunc(0.9 * double(PArmiesCount(PMe))) )  ) then
-        CForce:= trunc(double(CForce) * 1.4 * double(bg(61) - 1)) + 2
-      else
-        CForce:= trunc(double(CForce) * 1.8 * double(bg(61) - 1)) + 3;
-      end;
-      // look for the attack with the best chance to win
-      MaxPoints:=0;
-      Points:= 0;
-      for T:=1 to 42 do begin
-        if TIsFront(T) and (TArmies(T) > 2) then begin
-          TWeakestFront(T, ET, EA);
-          if (EA < CForce) and (TArmies(T) > EA) then begin
-            Points:= (1/double(EA)) - (1/double(TArmies(T)));
-            if (Points > MaxPoints) then begin
-              MaxPoints:= Points;
-              FromTerritory:= T;
-              ToTerritory:= ET;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-end;
-
-// procO
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-  EA, ET, Buffer ,LP,LT,LA, trail ,PT,PA,PT2,PA2,ET2,EA2,A,C,T: integer;
-
-BEGIN
-  // check for kill player mode
-  if (UBufferGet(99) = 1) or (UBufferGet(98) > 0) then begin
-    KillPlayer_Occupation(FromTerritory, ToTerritory, Armies);
-    exit;
-  end;
-
-
-if (UBufferGet(39)=2) then begin //###Unsimple
-
-  Armies:=0;
-  IF TIsFront(FromTerritory) AND TIsFront(ToTerritory) THEN
-  BEGIN
-    IF TArmies(FromTerritory)>TArmies(ToTerritory) THEN
-    BEGIN
-      IF (TFrontsCount(FromTerritory)=1) AND (TFrontsCount(ToTerritory)=1) THEN
-      BEGIN      // It makes a following attack easier if the troops stay together, therefore move all
-        IF (TFront(FromTerritory,1)=TFront(ToTerritory,1)) AND ((double(TArmies(FromTerritory))+2)/(double(TArmies(TFront(ToTerritory,1))))>1.2) THEN Armies:=TArmies(FromTerritory)-1;
-      END
-      ELSE Armies:=(TArmies(FromTerritory)-TArmies(ToTerritory)) div 2;
-    END;
-  END
-  ELSE IF TIsFront(ToTerritory) THEN
-   Armies:=TArmies(FromTerritory)-1;
-   
-END;
-
-
-//((UBufferGet(28)=-1) or ((UBufferGet(28)<>-1) and (trunc(UBufferGet(27))<>ToTerritory)))
-If True then
-Begin //Bypass PROCEDURE Occupation
-
-if UBufferGet(39)>2 then  //###Wyrm
-begin
-  // very simple but effective routine
-  // moves ARMIES from FROMTERRITORY to TOTERRITORY (which was just conquered)
-
-  FromIsFront :=TIsFront(FromTerritory);
-  ToIsFront :=TIsFront(ToTerritory);
-  Armies:=0;
-
-  if  FromIsFront and ToIsFront then  // if both territories are 'front'
-      begin
-        TStrongestFront(FromTerritory,ET,EA); // idea is to leave behind only what you need
-	Buffer:=TArmies(FromTerritory) div 8;
-        if (Buffer<3) then
-          Buffer:=3;
-        EA:=EA+Buffer; // leave some extra
-        ET:=(1+TArmies(FromTerritory)-TArmies(ToTerritory)) div 2; // balancing move
-        if (EA>TArmies(FromTerritory)-ET) then
-          Armies:=ET // will always move at least armies to balance territories
-        else Armies:=TArmies(FromTerritory)-EA; // but maybe more
-      end 
-    else if FromisFront then // only "From" territory is front
-      begin 
-        // all armies stay in From territory, so there's nothing to do
-      end
-    else
-      begin
-        // all armies in the conquered territory (except one which must stay)
-        Armies:=TArmies(FromTerritory)-1;
-      end;
-   end;
-   //###############################
-  
-
-//Reset Alaska attack if failed
-if (UBufferGet(9)=32) and (Not TIsMine(32)) then UBufferSet(9, 0);
-
-
-
-If (PArmiesCount(PMe)<200) or (COwner(6)=-(trunc(UBufferGet(10)))) then
-Begin
-
-
-If ((FromTerritory=39) and (ToTerritory=31)) then
- if (UBufferGet(39)>2) then
-  if NOT ( (UBufferGet(39)=3) and (PTerritoriesCount(trunc(UBufferGet(36)))>30) ) then
- Begin
-   If Armies>4 then Armies:=5;
-   
-If TArmies(39)-3*trunc(UBufferGet(39))>0 then
-Begin
-   A:=0;
-   For C:=1 to 38 do
-    If ((TArmies(C)>25) and (NOT TIsMine(C))) then A:=1;
-   
-   If ((A=0) or (UBufferGet(39)<4)) then 
-   Begin
-    If TArmies(39)>20 then 
-     Begin
-      Armies:=TArmies(39)-3*trunc(UBufferGet(39));
-     end;
-    If (UBufferGet(39)<4) and (A=0) then 
-     If (TArmies(39)<16) and (TArmies(39)>5) then Armies:=TArmies(FromTerritory)-2;
-   end;
-end;
-
-If (UBufferGet(10)<0) OR (UBufferGet(39)<4) then Armies:=TArmies(FromTerritory)-1;
- end;
-
-If ((FromTerritory=9) and (ToTerritory=10)) then 
-If UBufferGet(39)>2 then
-Begin
-CAnalysis(2,PT,PA,ET,EA);
-If (COwner(6)=-(trunc(UBufferGet(10)))) and (TArmies(31)>40) then C:=round(double(TArmies(31))/4) else C:=0;  //#*# rounding makes it not exactly the same as before but close
-If TIsMine(14) then A:=0 else A:=TArmies(14);
-
-If (COwner(1)=PMe) and (EA+A+C>TArmies(9)) then
- If (TArmies(9)>2) then Armies:=1 else Armies:=0;
- //umessage('%%%%%%%%%%%%%%%%%%%%%%%%% ' , Armies);
-end;
- 
-
-//Brazil to Venezuela
-If ((FromTerritory=12) and (ToTerritory=10)) then 
-Begin
-CAnalysis(1,PT,PA,ET,EA);
-Armies:=((TArmies(12)+TArmies(10)) div 2) - TArmies(10);
-If TArmies(12)<=TArmies(14) then Armies:=0;
-IF (COwner(1)<>0) and (EA>0) and (TArmies(12)>EA) then 
-Begin
-Armies:=TArmies(FromTerritory)-1;
-If (TArmies(12)-EA>4) and (COwner(2)=PMe) and (TArmies(14)<8) then Armies:=TArmies(FromTerritory)-4;
-If (TArmies(12)>EA+TArmies(14)+10) then Armies:=EA -10 + (TArmies(12)-EA) div 2;
-end;
-end;
-
-//Venezuela to Peru 
-If ((FromTerritory=10) and (ToTerritory=11)) then 
-Begin
-CAnalysis(2,PT,PA,ET,EA);
-If ((EA<PA-4-3) and (ET=3)) then Armies:=ET-3-3;
-If ((EA<PA-8-3) and (ET=3)) then Armies:=ET-5-3;
-If ((EA<PA-14-3) and (ET=3)) then Armies:=ET-9-3;
-If TIsFront(11) then
- If ((UBufferGet(39)=2) and TIsMine(9) and (PA>EA+3)) then Armies:=TArmies(FromTerritory)-1;
-end;
-
-//Venezuela to Mexico
-If ((FromTerritory=10) and (ToTerritory=9)) then 
-Begin
-CLeader(1,LP,LT,LA);
-CAnalysis(1,PT,PA,ET,EA);
-If ((LT=8) and (LP<>PMe) and (TArmies(10)>2)) then Armies:=TArmies(FromTerritory)-2;
-If ((EA<20) and (TArmies(10)>15)) then Armies:=TArmies(FromTerritory)-2;
-If (LT=8) and (LP<>PMe) and (EA<TArmies(10)) then Armies:=TArmies(FromTerritory)-1;
-end;
-   
-
-    //Armies when conquering Alaska from Koryak
-If ( (FromTerritory=37) and (ToTerritory=1) and (UBufferGet(39)>2)) then 
- Begin
- CAnalysis(1,PT,PA,ET,EA);
- CAnalysis(5,PT2,PA2,ET2,EA2);
- CLeader(1,LP,LT,LA);
- 
- If ((TArmies(FromTerritory)-Armies=1) and (Armies>0)) then Armies:=TArmies(FromTerritory)-2;
- If ((TArmies(FromTerritory)-Armies<4) and (TArmies(37)>8)) then Armies:=TArmies(FromTerritory)-4;
- If ((TArmies(FromTerritory)-Armies<8) and (TArmies(37)>16)) then Armies:=TArmies(FromTerritory)-8;
- If ((EA>60) and (COwner(1)=0)) then Armies:=0;
- If ((Armies>20) and (COwner(5)<>PMe)) then Armies:=20;
- If ((PT2>6) and (PT2<120)) then Armies:=1;
- 
- If ((TArmies(2)+TArmies(4)<5) and (ET=8) and (PT2=12)) then
-Begin
-If (TArmies(37)>12) then Armies:=TArmies(FromTerritory)-2;
-If (TArmies(37)>24) then Armies:=20; 
-end;
-
-//Lame fix
-If (TArmies(37)>80) and 
-   (TArmies(31)<20) and 
-   (PArmiesCount(-(trunc(UBufferGet(10))))>100) then Armies:=TArmies(FromTerritory)-2;
-
-If (PT=12) and (TArmies(37)=4) then Armies:=0;
-
-If (Not TIsMine(27)) or ((TArmies(27)<TArmies(26)) and (TArmies(27)<TArmies(22))) then
-If (LT=8) and (LP=COwner(3)) and (COwner(3)<>0) and (PT2<9) and 
-(TArmies(2)+TArmies(3)+TArmies(20)<8) and (TArmies(37)>TArmies(2)+TArmies(3)+TArmies(20)) then
-Armies:=TArmies(2)+TArmies(3)+TArmies(20);
-
-If (COwner(6)=PMe) or (EA<14) then
-If ((COwner(2)=LP) or (LP=trunc(UBufferGet(36)))) and (LP<>0) and (LP<>PMe) then
-If (UBufferGet(9)=0) and ((UBufferGet(25)=0) or (UBufferGet(20)<>37)) then
-Begin
-If (LT=8) and (PT2<10) and (TArmies(37)>5) and ((UBufferGet(39)<5) or (LP=trunc(UBufferGet(36)))) then
- If (COwner(5)=PMe) then Armies:=TArmies(37)-4 else Armies:=TArmies(37)-2;
-If (Armies>10) and (TArmies(37)<4) and (COwner(5)=PMe) then Armies:=TArmies(37)-4;
-If (LT=8) and (Armies>1) and ((UBufferGet(39)<5) or (LP=trunc(UBufferGet(36)))) and 
-((PT2<10) or (TArmies(37)-Armies>3)) then UBufferSet(6,1);
-end;
- 
- end;
-  
- //Pass few armies when conquering Europa or Africa from Asia
- If ( (TContinent(FromTerritory)=5) and 
-     ((TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4)) and (Armies>9)) then Armies:=9;
-    
- //Leave 2 in Asia
- If ((TContinent(FromTerritory)=5) and 
-     (TContinent(ToTerritory)<>5) and
-     (TArmies(FromTerritory)-Armies=1) and
-     (TArmies(FromTerritory)>=3)
-    ) then Armies:=TArmies(FromTerritory)-2;
- 
- //Pass few armies from Asia
- If ( (TContinent(FromTerritory)=5) and 
-     ((TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4)) and (PArmiesCount(PMe)<150) and (Armies>1)) then 
-     Begin
-     Armies:=1;
-     If (TArmies(FromTerritory)<5) then Armies:=0;
-     end; 
- 
- //Try a good defence in Ukrania
- If (COwner(5)=PMe) and (ToTerritory=22) then
- Begin
- If (FromTerritory=28) and (TArmies(28)>TArmies(29)) then Armies:=TArmies(28)-TArmies(29);
- If (FromTerritory=29) and (TArmies(29)>TArmies(28)+2) then Armies:=TArmies(29)-TArmies(28)-2;
- end;
-
-
-//22 to C3
-If ((FromTerritory=22) and (TContinent(ToTerritory)=3)) then 
-Begin
-If (ToTerritory<>26) then Armies:=1;
-If (TArmies(22)-Armies=1) then Armies:=Armies-1;
-end;
-
-
-end;//end 200 armies
-
-
-//Armies from Alaska to Koryak
-If (FromTerritory=1) and (ToTerritory=37) then
-If ( (UBufferGet(39)>2) and ((PArmiesCount(PMe)<200) or (COwner(1)<>PMe)) ) then 
- Begin
- If ( (TArmies(1)>8) or (2*((TArmies(1)+1) div 2)=(TArmies(1)+1)) ) then Armies:=1 else Armies:=0;
- If (COwner(1)<>PMe) then Armies:=0;
- end;
- 
-
-//Don't pass to 41 if C6 is mine
-If ((ToTerritory=41) and (COwner(6)=PMe)) then Armies:=0;
-
-//Don't pass armies from Greenland to Iceland
-If (FromTerritory=3) and (ToTerritory=20) then
-If ((PTerritoriesCount(PMe)<24) and (UBufferGet(39)>2)) then
-Begin
-CLeader(3,LP,LT,LA); 
-If (TArmies(3)>8) and (LT=6) and (TArmies(21)<4) and (TArmies(24)<4) then Armies:=1 else Armies:=0;
-CLeader(1,LP,LT,LA);
-If (LP=PMe) and ((LT=8) or (LT=7)) then Armies:=0;
-end;
-     
-
-//Armies in upper N. A.
-If TContinent(FromTerritory)=1 then
-If ((ToTerritory=1) or (ToTerritory=2) or (ToTerritory=4)) then
-Begin
-CLeader(1,LP,LT,LA);
-If (LT=8) and ((NOT TIsMine(1)) or ((NOT TIsMine(4)) and (ToTerritory=1)) ) then Armies:=TArmies(FromTerritory)-1;
-If ((ToTerritory=1) and (LT=9)) then Armies:=TArmies(FromTerritory)-1;
-end;
-
-
-//Don't pass armies from Koryak
-If ((FromTerritory=37) and (TContinent(ToTerritory)=5) and (COwner(5)=PMe)) then Armies:=0;
-If (FromTerritory=37) and (NOT TIsFront(ToTerritory)) then Armies:=0;
-     
-//Pass all armies to Middle East from India
-If ((ToTerritory=27) and 
-    (FromTerritory=30) ) then Armies:=TArmies(FromTerritory)-1;
-    
-//Pass all armies to Middle East from China to Mongolia if Someone holds N. A.
-If (ToTerritory=33) then
- If ((FromTerritory=32) and (COwner(1)<>0) and (COwner(1)<>PMe)) then Armies:=TArmies(FromTerritory)-1;
-
-//Armies from Siam 
-If ( (FromTerritory=31) and ((ToTerritory=30) or (ToTerritory=32)) ) then 
-Begin
-
-    Armies:=0;
-    CAnalysis(5,PT,PA,ET,EA);
-    If ((ToTerritory=30) or (PT>8)) then C:=1 else C:=0;
-    If (UBufferGet(39)=3) and (UBufferGet(10)=0) and (TArmies(31)>12) then C:=C+3;
-    If (TArmies(31)>2) then Armies:=1;
-    If (TArmies(31)>9) then Armies:=3+C;
-    If (TArmies(31)>12) then Armies:=4+C;
-    If (TArmies(31)>18) then Armies:=7 +2*C;
-    If (TArmies(31)>24) then Armies:=9 +2*C;
-    If UBufferGet(39)<4 then A:=2 else A:=3;
-    If (TArmies(31)>100) then Armies:=TArmies(31) div A;
-    For C:=27 to 38 do 
-     If ((TArmies(C)>TArmies(31)+6) and (NOT TIsMine(C))) then If Armies>1 then Armies:=1;
-    If PT=2 then 
-    Begin
-     If (ToTerritory=32) then
-      Begin
-      If TArmies(33)>TArmies(30) then Armies:=TArmies(33) else Armies:=TArmies(30);
-      If (Not TIsFront(32)) and (UBufferGet(39)>3) then Armies:=0;
-      end;
-     If (ToTerritory=30) then
-      If TArmies(32)>TArmies(29) then Armies:=TArmies(32) else Armies:=TArmies(29);
-     If (Armies>=TArmies(31)) and (TArmies(31)>1) then Armies:=1; 
-     If (Armies>11) then Armies:=11;
-    end;
-     
-//end; // @@@ (page down)
-
-
-//Pass more armies from Siam to India if someone strong in Africa or Europe
-If ( (FromTerritory=31) and (ToTerritory=30) ) then
- If UBufferGet(10)>=0 then
- If ( ((COwner(3)=trunc(UBufferGet(36))) or (COwner(4)=trunc(UBufferGet(36)))) and (NOT TIsMine(27)) and (UBufferGet(36)<>0)) then
-  Begin
-  If TArmies(31)>6 then Armies:=2;
-  If TArmies(31)>10 then Armies:=6;
-  If TArmies(31)>15 then Armies:=10;
-  If TArmies(31)>25 then Armies:=14;
-  If TArmies(31)>35 then Armies:=20;
-  end;
-  
-
-  
-//Lame fix
-If UBufferGet(10)<>0 then 
-  Begin
-
-A:=PArmiesCount(-(trunc(UBufferGet(10))));
-For C:=38 DOWNTO 1 do
- If (TArmies(C)>(TArmies(31) div 2)) then
-  If (TOwner(C)=-(trunc(UBufferGet(10)))) or (TOwner(C)=trunc(UBufferGet(10))) then 
-  Begin A:=TArmies(C); C:=1; end;
-  
-  If (PT=2) and (A>TArmies(31)-Armies) then Armies:=Armies div 2;
-  if (A>TArmies(31)-Armies) then Armies:=1;
-  if (A>TArmies(31)+5-Armies) then Armies:=0;
-  If (PT=2) and (Armies=0) then Armies:=1;
-  If (Armies>3) and (trunc(UBufferGet(36))=COwner(1)) and (UBufferGet(10)<0) then Armies:=1;
-
-  end;
-
-
-If (UBufferGet(39)=2) and (TArmies(31)>4) then Armies:=TArmies(31)-4;
- 
-   
-end; // @@@
-
-
-
-If ( (FromTerritory=16) and (ToTerritory=27) ) then 
- If UBufferGet(39)>2 then Armies:=TArmies(FromTerritory)-1;
-
-//Prepare to attack a Strong Player in Europe
-If ((ToTerritory=2) or (ToTerritory=5) or (ToTerritory=6)) then 
-If NOT TIsMine(3) then 
-If (COwner(3)=trunc(UBufferGet(36))) and (UBufferGet(36)<>0) then
-If TArmies(FromTerritory)>TArmies(3)+TArmies(20) then
-If (COwner(5)<>PMe) or (FromTerritory<>1) then
-if TArmies(3)+TArmies(20)<9 then
-Begin
-If TArmies(FromTerritory)>TArmies(3)+TArmies(20)+1 then C:=1 else C:=0;
-If Armies<TArmies(3)+TArmies(20)+C then Armies:=TArmies(3)+TArmies(20)+C;
-end;
-    
-    
-    //Pass all but one armie when conquering Siam from India or China
-If ( ((FromTerritory=30) or (FromTerritory=32)) and (ToTerritory=31) ) then 
- Armies:=TArmies(FromTerritory)-1;
-
-//Armies from North Africa to Congo
-If ( (FromTerritory=14) and (ToTerritory=17) ) then
- Begin
- A:=(TArmies(18)+TArmies(19))+3;
- If ((NOT TIsMine(18)) and (NOT TIsMine(19)) and (TArmies(14)>A)) then Armies:=A;
- end;
-
-//Armies from North Africa to Brazil
-If ( (FromTerritory=14) and (ToTerritory=12) ) then
-Begin
- If ((COwner(1)<>0) and 
-     (COwner(1)<>PMe) and 
-     (TArmies(10)+TArmies(9)<TArmies(14)-1+3)) then Armies:=TArmies(FromTerritory)-1;
- 
- If (COwner(4)<>PMe) then Armies:=TArmies(FromTerritory)-1;
-end;
- 
- 
-     //Pass all armies when conquering India from Middle East
-If ((TIsMine(32)=False) and TIsMine(31) and (UBufferGet(39)>2)) then
-If (FromTerritory=27) and (ToTerritory=30) and (TArmies(27)>4) then 
- Armies:=TArmies(FromTerritory)-4;
- 
-//29 to 27
-If ToTerritory=27 then
-Begin
- If ( ((FromTerritory=29) or (FromTerritory=22)) ) then
-  If ( ((NOT (Cowner(5)=PMe)) or TIsMine(22)) and (COwner(4)=trunc(UBufferGet(36))) and (COwner(4)<>0) ) then If TArmies(FromTerritory)>1 then Armies:=TArmies(FromTerritory)-2 else Armies:=TArmies(FromTerritory)-1;
-
-If (Cowner(5)=PMe) and (FromTerritory=29) and (TArmies(29)-Armies>TArmies(28)) then Armies:=TArmies(29)-TArmies(28);
-end;
-   
-//26 to 14
-If FromTerritory=26 then
-If ( (ToTerritory=14) and (COwner(2)<>0) and (COwner(3)<>PMe) ) then Armies:=TArmies(FromTerritory)-1;
-
-
-      //Pass armies when conquering Indonesia from Siam
-If (FromTerritory=31) and (ToTerritory=39) then 
-Begin
-Armies:=TArmies(FromTerritory)-1;
-C:=10; If (TArmies(40)+TArmies(41)+TArmies(42)<4) or (UBufferGet(39)=2) then C:=5;
- If (COwner(6)=PMe) then Armies:=0 else 
-    If TArmies(31)>(TArmies(40)+TArmies(41)+TArmies(42)+C) then
-     Armies:=(TArmies(40)+TArmies(41)+TArmies(42)+C);
-end;
- 
-      //Pass all armies when conquering Koryak if North America occupied
-If ToTerritory=37 then
-If (  (COwner(1)<>PMe) and (COwner(1)<>0) ) then
- If (FromTerritory=35) or (FromTerritory=36) or (FromTerritory=33) or (FromTerritory=38) then 
-  Armies:=TArmies(FromTerritory)-1;
- 
-
- 
-     //Pass all armies when conquering Venezuela from Peru
-If FromTerritory=11 then
-Begin
-If ToTerritory=10 then 
- Armies:=TArmies(FromTerritory)-1;
- 
-If ToTerritory=13 then 
- If TIsMine(10) and (NOT TIsMine(12)) then 
- Armies:=TArmies(FromTerritory)-1;
-end;
-
-//Pass all armies when conquering Koryak from Mongolia
-If ToTerritory=37 then
- If ( (FromTerritory>32) and (COwner(5)=PMe) ) then 
- Armies:=TArmies(FromTerritory)-1;
- 
-//Pass few armies when conquering Africa from Middle East
-If FromTerritory=27 then
-Begin //from=27
-
-
-CLeader(4,LP,LT,LA);
-//Don't pass armies from 27 if PlayerStrong in c4
- If (LT>=5) and ((TContinent(ToTerritory)=5) or (ToTerritory=22)) and (LP<>PMe) and
- ((LP=trunc(UBufferGet(36))) or (COwner(2)=LP) or 
-  ((TOwner(15)=PMe) and (TArmies(15)=3)) or ((TOwner(16)=PMe) and (TArmies(16)=3))
-  ) then Armies:=0;
- 
- 
-//Pass all armies from Middle East if can get in Australia
-If ( (ToTerritory=30) and 
-     (TArmies(31)+TArmies(39)+TArmies(40)<TArmies(27)) and 
-     (TIsMine(31)=False) and
-     (COwner(6)<>PMe) and (COwner(6)<>0) ) then Armies:=TArmies(FromTerritory)-1;
-
-If ((ToTerritory=15) or (ToTerritory=16)) and (UBufferGet(39)>2) then 
-Begin
- Begin
-  Armies:=0;
-  If (TArmies(27)>22) then Armies:=3;
-  If (TArmies(27)>34) then Armies:=9;
-  //If UBufferGet(15) then //umessage('Pass few armies when conquering Africa from Middle East ', Armies);
- end;
- If (PTerritoriesCount(PMe)<10) or (COwner(6)<>PMe) then Armies:=0;
-end;
-
-
-//Armies to South Europe
-If (FromTerritory=27) and (ToTerritory=26) then
-Begin
-
-If COwner(4)<>0 then
-Begin
-If TArmies(27)>7 then C:=1 else C:=0;
-If COwner(4)<>PMe then A:=TArmies(14) else A:=0;
-If (COwner(4)<>PMe) and (TArmies(15)<TArmies(14)) and ((COwner(2)<>COwner(4)) or (TArmies(14)+TArmies(12)<5+C)) then A:=TArmies(15);
-
-If ((COwner(2)=COwner(4)) and 
-    (COwner(2)<>PMe) and 
-    (TArmies(12)<3+C)) then 
-    Begin 
-    A:=TArmies(12)+TArmies(14);
-    If (COwner(2)=COwner(1)) and (TArmies(10)+TArmies(9)=2) then Begin A:=A+2; C:=C+2; end;
-    end;
-    
-If A>5+C then Armies:=0 else Armies:=A;
-If TArmies(27)>1 then
- If ( ((TArmies(27)-Armies<6) and (COwner(5)=PMe)) or (TArmies(27)-Armies<2) ) then Armies:=Armies-2;
-
-If Armies>=TArmies(27) then Armies:=0;
-  
-If COwner(4)<>PMe then
- If (TArmies(15)=1) and 
- ((COwner(2)=0) or ((Armies=4) and ((TArmies(12)>1) or (TArmies(14)>1))) ) then Armies:=0;
- 
-end;
-
-If COwner(4)=0 then
- If ((COwner(2)=0) or (TArmies(12)+TArmies(14)>6)) and 
-    (UBufferGet(39)>2) and (PTerritoriesCount(PMe)<20) and 
-    (TArmies(27)<30) then Armies:=0;
- 
-   
-end;
-
-
-
-//If Europe or S.A. occupied by someone else try get it by Africa
-If ( (FromTerritory=27) and ((ToTerritory=15) or (ToTerritory=16)) ) then
-Begin
-If TArmies(27)>7 then C:=1 else C:=0;
-A:=0;
-If ((COwner(2)=LP) and 
-    (COwner(2)<>PMe) and 
-    (COwner(2)<>0) and 
-    (TArmies(12)<3+C)) then A:=TArmies(12);
-    
-If ((COwner(3)=LP) and 
-    (COwner(3)<>PMe) and 
-    (COwner(3)<>0) and 
-    (TArmies(25)<TArmies(26)) and 
-    (TArmies(25)<3+C)) then A:=TArmies(25);
-    
-If ((TArmies(27)-A<6) and (COwner(5)=PMe)) then A:=0;
-    
-If A<>0 then
- If ( (TIsMine(14)=False) and (TArmies(14)+A<=5) and (TArmies(27)>TArmies(14)+A) ) then Armies:=TArmies(14)+A;
-
-If (COwner(2)=LP) and (COwner(2)<>0) and (COwner(2)<>PMe) and (COwner(1)=COwner(2)) and 
-(TArmies(14)+TArmies(12)+TArmies(10)+TArmies(9)<=5) and (TArmies(27)>Armies+2) then Armies:=Armies+A;
-end;
-
-//Try a better proportion when conquering Kazakhstan from Middle East
-If ((FromTerritory=27) and (ToTerritory=29) and (COwner(5)=PMe)) then 
- If (Armies>(TArmies(27) div 2)) then Armies:=TArmies(27) div 3;
- 
- If (COwner(6)<>PMe) then
-  If (ToTerritory=26) or (ToTerritory=15) or (ToTerritory=16) then Armies:=0;
-
-end;//end from=27
-
-
-
-//Pass all from 16 or 15 to 14 if COwner c3 or c2<>0
-If ( (ToTerritory=14) and ((FromTerritory=15) or (FromTerritory=16)) ) then 
- If UBufferGet(39)>2 then 
-  If ( ((COwner(2)<>0) and (COwner(2)<>PMe)) OR ((COwner(3)<>0) and (COwner(3)<>PMe)) ) 
-   then Armies:=TArmies(FromTerritory)-1;
- 
- 
-//Try a better proportion when conquering 28 from 29
-If ((FromTerritory=29) and (ToTerritory=28) and (COwner(5)=PMe)) then Armies:=TArmies(29) div 2 - 1;
- 
- 
-//Pass all armies from 29 if someone strong in c4 
-If ( (FromTerritory=29) and (ToTerritory=27) ) then 
-Begin
- CAnalysis(5,PT,PA,ET,EA);
- If ((COwner(4)=trunc(UBufferGet(36))) and (UBufferGet(36)<>0) and (PT<11)) then Armies:=TArmies(FromTerritory)-1;
-end;
-
-//Pass all to Koryak if c5 mine 
-If ((COwner(5)=PMe) and (ToTerritory=37)) then UBufferSet(13,37);
-
-//Pass all if can get c6
-If TContinent(ToTerritory)=6 then
-Begin
-CAnalysis(6,PT,PA,ET,EA);
-
-If (PT=3) then
-If NOT ((NOT TIsMine(41)) and (ToTerritory=39)) then
-If TIsFront(ToTerritory) and (TArmies(ToTerritory)+TArmies(FromTerritory)-1>EA) then Armies:=TArmies(FromTerritory)-1;
-
-If (PT=2) then
-If (TArmies(FromTerritory)+1>EA) then Armies:=TArmies(FromTerritory)-1;
-
-If (PT=4) and (FromTerritory=39) then Armies:=0;
-
-end;
-
-If ((FromTerritory=12) and (ToTerritory=14)) then
-  If UBufferGet(13)<>0 then UBufferSet(13,0);
-  
-  
-  If (COwner(1)=PMe) then
-   If (PArmiesCount(PMe)>=200) then
-    If ((ToTerritory=14) and (FromTerritory=12) and (COwner(2)=PMe)) or 
-       ((ToTerritory=37) and (FromTerritory=1)) or 
-       ((ToTerritory=20) and (FromTerritory=3)) then
-       Begin
-       C:=0;
-       A:=Armies;
-       For T:=1 to 39 do
-        If (Not TIsMine(T)) and (TArmies(T)>C) then C:=TArmies(T);
-        
-       If (TArmies(FromTerritory) - C - 10 < 0) then Armies:=0 else Armies:=TArmies(FromTerritory) - C - 10;
-       If TArmies(FromTerritory) - Armies < 0 then Armies:=0;
-       If (C>TArmies(1)) or (C>TArmies(3)) or (C>(TArmies(12)+(TArmies(10) div 2))) then Armies:=Armies div 2;
-       UBufferSet(13,0);
-       If (Armies=0) and (A>0) then Armies:=1;
-       end;
-
-
-//Don't pass armies from Brazil to North Africa if none holds Europe
-If ((FromTerritory=12) and (ToTerritory=14)) then
- If (UBufferGet(39)>2) and 
-((PArmiesCount(PMe)<201) or ( (COwner(3)>0) and (COwner(3)<>PMe) and ((TArmies(25)<8) or (TArmies(26)<8)) )) then
-Begin
-Armies:=0;
-If ((COwner(3)<>0) and (COwner(3)<>PMe) and (UBufferGet(39)>2)) then 
-Begin
-CLeader(4,LP,LT,LA);
-If (COwner(3)=LP) or (COwner(1)=PMe) then
-Begin
-If (TArmies(12)>25) or (COwner(1)=PMe) then C:=1 else C:=0;
-If ((TArmies(25)<=TArmies(26)) and (TArmies(12)>TArmies(25)+1+4)) then Armies:=TArmies(25)+C;
-If ((TArmies(26)<TArmies(25)) and (TArmies(12)>TArmies(26)+1+4)) then Armies:=TArmies(26)+C;
-end;
-end;
-If Armies>6+C then Armies:=6+C;
-end;
-
-
-       
-       
-//2-3 players strategy
-//if UBufferGet(11)<>0 then 
- If trunc(UBufferGet(11))=ToTerritory then
-  if TIsFront(FromTerritory) then 
-    Begin
-//If ((UBufferGet(39)=2) and TIsFront(FromTerritory)) then Armies:=TArmies(FromTerritory)-2 else 
-
-If  (FromTerritory<>1) or (COwner(5)<>0) then
- If ((TContinent(FromTerritory)=TContinent(ToTerritory)) and (FromTerritory<>31)) then Armies:=TArmies(FromTerritory)-1;
-     ////umessage('passed all-11');
-     end;
-UBufferSet(11,0);
-
-
-
-//CrazyBubpass
-If (FromTerritory=trunc(UBufferGet(6))) and (UBufferGet(6)<>0) then 
-Begin
-Armies:=TArmies(FromTerritory)-1;
-UBufferSet(6,ToTerritory);
-end;
-
-
-A:=1;
-If UBufferGet(25)=1 then
-If COwner(2)=PMe then
-Begin
-For T:=1 to 9 do
- If Not TIsMine(T) then Begin C:=T; T:=9; end;
-For T:=C+1 to 9 do
- If (Not TIsMine(T)) and (TOwner(C)<>TOwner(T)) then Begin A:=2; T:=9; end;
-end;
-
-
-
-//##################Bubble mode
-//If UBufferGet(9)=0 then // continue passing all
-If UBufferGet(25)=1 then
- If (((ToTerritory=15) or (ToTerritory=16) or (ToTerritory=22) or (ToTerritory=1) or (ToTerritory=26)) and (UBufferGet(24)=0)) then
-  Begin
-  Armies:=0;
-  //UBufferSet(17,-ToTerritory);
-  end
- else
-  begin
-  trail:=1; If (TContinent(trunc(UBufferGet(20)))=1) and (COwner(2)=PMe) and (TArmies(12)>TArmies(14)+4) and 
-               (A=1) and (FromTerritory=trunc(UBufferGet(20))) and TIsFront(FromTerritory) then trail:=2;
-  
-  If FromTerritory=31 then
-  Begin
-  If TArmies(40)+TArmies(41)+TArmies(42)<6 then C:=4 else C:=10;
-  If (ToTerritory=39) and (NOT TIsMine(40)) then
-   If TArmies(31)>(TArmies(40)+TArmies(41)+TArmies(42)+10) then
-    Trail:=TArmies(31)-(TArmies(40)+TArmies(41)+TArmies(42)+C);
-  end;
-  
-   UBufferSet(17, 0); 
-   
-   
-  TWeakestFront(FromTerritory, ET,EA);
-  TWeakestFront(ToTerritory, ET2,EA2);
-  
-  If ((EA2>EA) and (EA>0)) or (ET2=0) then
-  If trunc(UBufferGet(13))<>ToTerritory then
-  If (FromTerritory=trunc(UBufferGet(20))) then
-  Begin
-  Armies:=0;
-  UBufferSet(17,-ToTerritory);
-  end;
-
-
-//  //umessage(UBufferGet(13), ToTerritory);
-CAnalysis(1,PT2,PA2,T,C);
-
-  If UBufferGet(20)=33 then
-  If (Not ((TArmies(31)>62) and TIsMine(31) and (C<TArmies(31)-10)) ) or (Not TIsMine(31)) then
-   If trunc(UBufferGet(13))<>ToTerritory then
-   // If Not ((ToTerritory=37) and (COwner(1)<>0) and (TArmies(33)>TArmies(1))) then
-     If TArmies(33)>TArmies(32) then
-      If FromTerritory=33 then
-  Begin
-   If (EA=1) or (ToTerritory=38) then
-  Begin
-  Armies:=0;
-  UBufferSet(17,-33);
-  end;
-  end;
-
-UBufferSet(21,0); //Reset Bubble attack method
-  
-CLeader(2,LP,LT,LA);
-
-If (FromTerritory=trunc(UBufferGet(20))) 
-or ((TContinent(FromTerritory)>2) and (TContinent(ToTerritory)>2))
-or (LP<>PMe) then
-   If (UBufferGet(17)=0) then Armies:=TArmies(FromTerritory)-trail;
-   
-   If (UBufferGet(17)=0) and 
-      (FromTerritory=trunc(UBufferGet(20)))
-      then UBufferSet(20,ToTerritory);
-      
-   If FromTerritory=31 then
-   If (ToTerritory<>39) and (COwner(6)=PMe) and (UBufferGet(20)<>31) then 
-    If (trunc(UBufferGet(8))<>ToTerritory) and (UBufferGet(9)=0) then
-   Begin
-   Armies:=0;
-   UBufferSet(13,0);
-   end;
-
-  end;
-
-UBufferSet(28,-1);
-UBufferSet(27,0);
-end; //Bypass Occupation
-
-//((UBufferGet(28)=-1) or ((UBufferGet(28)<>-1) and (trunc(UBufferGet(27))<>ToTerritory)))
-//If ((UBufferGet(28)<>-1) and (trunc(UBufferGet(27))=ToTerritory)) then
-//Begin
-//If (Armies=9999) then Armies:=TArmies(FromTerritory)-1 else Armies:=trunc(UBufferGet(28));
-UBufferSet(28,-1);
-UBufferSet(27,0);
-//end;
-
-//conquest mode
-If UBufferGet(7)<>0 then
-Begin
-CAnalysis(1,PT,PA,ET,EA);
-CAnalysis(2,PT2,PA2,ET2,EA2);
-C:=PA+PA2-EA-EA2-15-TArmies(14) div 2; 
-If C<0 then C:=0;
-
-If (FromTerritory>3) and (ToTerritory<10) then Armies:=TArmies(FromTerritory)-1;
-If (FromTerritory=1) and (ToTerritory=2) then Armies:=TArmies(FromTerritory)-6-TArmies(37)-(c div 4);
-If (FromTerritory=2) and (ToTerritory=3) then Armies:=TArmies(FromTerritory)-1;
-If (FromTerritory=3) and (ToTerritory=6) then Armies:=TArmies(FromTerritory)-8-TArmies(20)-(c div 4);
-If (FromTerritory=3) and (ToTerritory=6) and TIsMine(20) and (TArmies(3)<30) and (TArmies(3)>4) 
-  then Armies:=TArmies(FromTerritory)-4;
-
-end;
-
-If (FromTerritory=trunc(UBufferGet(8))) and (ToTerritory<>31) and (-1<>UBufferGet(8)) then Armies:=0;
-
- //Pass nothing
- If (trunc(UBufferGet(16))=ToTerritory) or (trunc(UBufferGet(16))=FromTerritory) then Armies:=0;
- UBufferSet(16,0);
-
- //Pass All
- If trunc(UBufferGet(13))=ToTerritory then
-  If ToTerritory<>0 then 
- Begin
- If (FromTerritory<>27) or (UBufferGet(9)=26) or (UBufferGet(9)=15) or (COwner(6)<>PMe) then Armies:=TArmies(FromTerritory)-1;
- end;
- UBufferSet(13,0);
-
- If FromTerritory=12 then
-  If (ToTerritory=14) and (Armies=TArmies(12)-1) and (UBufferGet(39)>3) then Armies:=0;
-  
-If Armies<0 then Armies:=0;
-
-end;
-
-// procF
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  BestFrom,BestArmies,F,T,Arm,B,MaxArmy,Diff,BestDiff,EA,ET: integer;
-  SMALL, ALLFRONTS, ONEFRONTS, MinArmy, BiggestArmy, FromT, counter,   PT,PA,W, LP,LT,LA: integer;
-
-  // Kill Player variables
-  extra, X, C, C1, TotalEnemyArmies, P, MaxPArmiesCount: integer;
-  Human, Abort: boolean;
-  TM: double;
-begin
-  if not SConquest then bs(61, bg(61)+1) else bs(61,0);   //  61 - successive turns without conquest counter
-
-  if GameHasOneHuman(P) then begin
-    C:= 0;
-    C1:= 0;
-    For X:= 1 to 10 do begin
-      if PActive(X) and (PProgram(X) = 'vexer.trp') then C:= C + 1;   // check to see if Vexer is dead
-      if PAlive(X) and (PProgram(X) = 'vexer.trp') then C1:= C1 + 1;
-    end;
-    extra:= 0;
-    if (PCardTurnInValue(P) > PCardTurnInValue(PMe)) and (PCardCount(P) > 1) then Extra:= PCardTurnInValue(P) - PCardTurnInValue(PMe);
-    If (C = 1) and (C1 = 0) and ( PArmiesCount(PMe) > (2 * PArmiesCount(P) + 3) + Extra ) then begin
-      UBufferSet(98, 1);
-    end;
-    if PArmiesCount(PMe) > (3 * PArmiesCount(P)) then begin
-      UBufferSet(98, 1);
-    end;
-  end;
-
-
-  {----------------------------------finisher----------------------------------}
-  // improved finisher.trp code
-  if (UBufferGet(99) = 0) and (PCardCount(PMe) > 2) then begin
-    if SCardsBasedOnCombo then TM:= 1.0 else TM:=0.8;
-    Abort:=False;
-    Human:=False;
-    TotalEnemyArmies:=0;
-    MaxPArmiesCount:=0;	// The number of armies that my strongest enemy has
-    for P:= 1 to 10 do begin
-      if (PAlive(P)) and (P<>PMe) then begin
-        if PArmiesCount(P) >= MaxPArmiesCount then begin
-          MaxPArmiesCount:= PArmiesCount(P);
-          if (NOT (PArmiesCount(P) = MaxPArmiesCount)) then Abort:=False;	// 1st and 2nd strongest armies are the same, don't reset abort to false
-          if (PCardCount(P) > 2) and (PCardTurnInValue(P) > 25) then Abort:= True;
-        end;
-        if PHuman(P) and (PCardCount(P) > 3) and (PCardTurnInValue(P) > 20) then Abort:= True;
-        if PHuman(P) then begin
-          if (not (PArmiesCount(P) < trunc(double(PArmiesCount(PMe)) * 0.25))) then TM:= TM + 0.2;
-          If PCardTurnInValue(P) > PCardTurnInValue(PMe) then TotalEnemyArmies:= TotalEnemyArmies + PCardTurnInValue(P) - PCardTurnInValue(PMe);
-        end;
-        If (pos('vexer', lowercase(PProgram(P))) > 0) then begin
-          if (not (PArmiesCount(P) < trunc(double(PArmiesCount(PMe)) * 0.25))) then TM:= TM + 0.2;
-          if (PCardCount(P) > 3) and (PCardTurnInValue(P) > 25) then Abort:= True;
-          If PCardTurnInValue(P) > PCardTurnInValue(PMe) then TotalEnemyArmies:= TotalEnemyArmies + PCardTurnInValue(P) - PCardTurnInValue(PMe);
-        end;                                                    // pretend there are more enemy armies if his CTIV is greater then mine
-        TotalEnemyArmies:= TotalEnemyArmies + PArmiesCount(p);
-      end;
-    end;
-
-    // if there's more than 4 players, I'll get a lot of cards by killing them so then lower the threshold multiplier
-    if (SAlivePlayersCount > 4) then TM:= TM - 0.1;
-
-    // if I have a lot of armies then lower TM because on average when attacking 3 dice against 2
-    // I'll take out 7 enemy armies for every 6 I lose, so I need less armies to win
-    if (PArmiesCount(PMe) > 200) then begin
-      TM:= TM * 0.9;
-      abort:= false;
-    end;
-    if (PArmiesCount(PMe) > 400) then TM:= TM * 0.95;
-
-    if (PArmiesCount(PMe) > trunc(TotalEnemyArmies * TM)) and (NOT Abort) then UBufferSet(99, 1);
-    if (PArmiesCount(PMe) > trunc(TotalEnemyArmies*1.4)) then UBufferSet(99, 1);		// If TM > 1.4 then switch to Kill Player even if Abort = true
-  end;
-
-  // check for kill player mode
-  if (UBufferGet(99) = 1) or (UBufferGet(98) > 0) then begin
-    KillPlayer_Fortification(FromTerritory, ToTerritory, Armies);
-    exit;
-  end;
-
-
-if (UBufferGet(39)>2) then begin //###Wyrm
-
-counter:=trunc(UBufferGet(40))+1;
-UBufferSet(40, counter);
-////If UBufferGet(15) then //umessage('Calling procedure Fortification UBufferSet(40, counter)', UBufferGet(40) );
-
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-  ALLFRONTS:=10;
-  ONEFRONTS:=1;
-  SMALL:=-9999;
-
-  // look for front country that needs the most help.  favor continents that you
-  // already own, and countries that can be helped by 0-fronts
-  // "most help" implies difference between MyArmies and the strongest front
-
-  // for each of your fronts, determine the FromTerritory, the deficit, and the benefit able to be provided
-
-
-  BestArmies:=0;
-  BestDiff:=SMALL;
-//  //If UBufferGet(15) then //umessage('Calling procedure Fortification');
-
-  for T:=1 to 42 do
-    if TIsFront(T) then
-      begin
-        TStrongestFront(T,ET,EA);
-        Diff:=EA-TArmies(T); // your current deficit
-        BestArmies:=0;
-        for B:=1 to TBordersCount(T) do
-          begin
-            F:=TBorder(T,B);  // start looking for the best FromTerritory
-            if TIsMine(F) and (TArmies(F)>1) then
-              begin
-                TStrongestFront(F,ET,EA);
-                if (not TIsFront(F)) then
-                  Arm:=TArmies(F)-1
-                else
-                  Arm:=TArmies(F)-EA; // the absolute most you can spare
-//                  //If UBufferGet(15) then //umessage(TName(T),' has a deficit of ',Diff,' but can be helped by ',TName(F),' which can spare ',Arm,' armies');
-                if (Arm>BestArmies) then
-                  begin
-                    BestArmies:=Arm;
-                    BestFrom:=F;
-                  end;
-              end;
-          end;
-        // now you have found your best FromTerritory "BestFrom" for this ToTerritory T
-        // it can spare "BestArmies" and you had desired "Diff"
-        B:=Diff;
-        if (B>BestArmies) then
-          B:=BestArmies; // you needed more than you could can spare
-        if (B>BestDiff) and ((B+BestArmies)>1) and (BestArmies>2) then
-          begin
-            Armies:=(B+BestArmies) div 2;
-            if (not TIsFront(BestFrom)) then
-              Armies:=BestArmies;
-//            //If UBufferGet(15) then //umessage('Found a better fortification:  move ',Armies,' armies from ',TName(BestFrom),' to ',TName(T));
-            BestDiff:=B;
-            FromTerritory:=BestFrom;
-            ToTerritory:=T;
-          end;
-      end;
-
-  if (ToTerritory=0) then // use original fortification code -- find largest zero-front
-begin
-  MaxArmy :=1;
-  for T:=1 to 42 do begin
-    if TIsMine(T) and not TIsFront(T) then begin  // territory is mine and not "front"
-      if TArmies(T)>MaxArmy then begin
-        MaxArmy :=TArmies(T);
-        FromTerritory :=T;
-      end;
-    end;
-  end;
-  // if there are armies to move...
-  if FromTerritory>0 then begin
-    // check if can move armies to front...
-    for B:=1 to TBordersCount(FromTerritory) do begin
-      if ToTerritory=0 then begin
-        T:=TBorder(FromTerritory,B);
-        if TIsMine(T) and TIsFront(T) then begin
-          ToTerritory:=T;
-        end;
-      end;
-    end;
-    // otherwise move armies in the first bordering territory
-    if ToTerritory=0 then begin
-      for B:=1 to TBordersCount(FromTerritory) do begin
-        if ToTerritory=0 then begin
-          T:=TBorder(FromTerritory,B);
-          if TIsMine(T) then begin
-            ToTerritory:=T;
-          end;
-        end;
-      end;
-    end;
-    // Move all armies to destination (except the one which must stay)
-    if ToTerritory>0 then begin
-      Armies:=TArmies(FromTerritory)-1;
-    end;
-  end;
-end;
-
-//################
-
-//Armies Alaska> Koryak
-If  FromTerritory=1 then
-If ( (ToTerritory=37) and (UBufferGet(39)>2) and (PArmiesCount(PMe)<200) ) then 
- Begin
- If (Armies>1) then Armies:=1;
- If (TArmies(1)>16) then Armies:=3;
- If (TArmies(1)>26) then Armies:=5;
- 
- If ((Armies=1) and (TArmies(37)=4)) or (UBufferGet(10)<0) then Armies:=0;
- If (((TArmies(37)=1) or (TArmies(37)=3)) and (TArmies(1)>6)) then Armies:=1;
- If (COwner(1)=PMe) and (TArmies(37)<4) and (TArmies(1)>20) and TIsFront(37) then Armies:=4-TArmies(37);
- end;
-
-//Don't unprotect Alaska
-If  ToTerritory=2 then
- If ((FromTerritory=1) or (FromTerritory=3)) then
-Begin
-If TArmies(FromTerritory)>20 then B:=3 else B:=1;
-If TArmies(FromTerritory)>40 then B:=5;
-
-If (FromTerritory=1) and ((Not TIsMine(37)) or (TArmies(37)<4)) then 
- If (Armies>TArmies(1)-TArmies(37)-B) then Armies:=TArmies(1)-TArmies(37)-B else Armies:=0;
-If (FromTerritory=3) and ((Not TIsMine(20)) or (TArmies(20)<4)) then 
- If (Armies>TArmies(3)-TArmies(20)-B) then Armies:=TArmies(3)-TArmies(20)-B else Armies:=0;
-
-CAnalysis(1,PT,PA,ET,EA);
-If PT=8 then
-Begin
- B:=TArmies(FromTerritory)+TArmies(2)-EA;
- If B>3 then Armies:=EA + B div 2;
- If (FromTerritory=1) and (ToTerritory=2) and (TArmies(2)>3) then 
-  If TArmies(FromTerritory)-Armies<TArmies(37)+4 then
-  Begin
-  If (Not TIsMine(37)) then Armies:=TArmies(1)-TArmies(37)-4;
-  If TIsMine(37) then Armies:=TArmies(1)-6;
-  end;
- 
- If (FromTerritory=3) and (ToTerritory=2) and (TArmies(2)>3) then 
-  If TArmies(FromTerritory)-Armies<TArmies(20)+4 then 
-  Begin
-  If (Not TIsMine(20)) then Armies:=TArmies(3)-TArmies(20)-4;
-  If TIsMine(20) then Armies:=TArmies(3)-6;
-  end;
-  
-  If COwner(1)=PMe then FromTerritory:=0;
-end;
-
-If Armies<=0 then FromTerritory:=0;
-end;
-
-//Don't pass too much from Indonesia to Siam   
-If ( (FromTerritory=39) and (ToTerritory=31) ) then 
-   if TArmies(39)<5 then FromTerritory:=0 else Armies:=TArmies(39)-1;
-
-If TArmies(39)>4 then
- //If (UBufferGet(10)<0) OR (UBufferGet(39)<5) then
-  If TIsMine(31) and TIsMine(39) then
-    Begin
-     FromTerritory:=39;
-     ToTerritory:=31;
-     Armies:=TArmies(39)-1;
-    end;
-
-//Don't pass from Venezuela to Mexico
-If ( (FromTerritory=10) and (ToTerritory=9) ) then  FromTerritory:=0;
-
-//Don't pass from Venezuela to to Brazil if not needed
-If ( (FromTerritory=10) and (ToTerritory=12) and (TArmies(12)>trunc(1.3*TArmies(14)+6)) ) then FromTerritory:=0;
-
-
-//Don't pass from Brazil to North Africa   
-If ( (FromTerritory=12) and (ToTerritory=14) ) then  FromTerritory:=0;
-
-
-//Don't pass too much from Brazil to North Africa
-If ((FromTerritory=12) and (ToTerritory=14)) then 
-Begin
-   If ((TArmies(12)-Armies<10) and (TArmies(12)-5>10)) then Armies:=5;
-   If ((TArmies(12)-Armies<10) and (TArmies(12)-15>10)) then Armies:=15; 
-   If ((Armies>4) and (COwner(3)=0)) then Armies:=5;
-   If ((TArmies(12)<9) and (COwner(3)=0)) then FromTerritory:=0;
-end;
-
-//Don't pass too much from Brazil to Venezuela
-If ((FromTerritory=12) and (ToTerritory=10)) then 
-Begin
-   If (TArmies(12)-Armies<TArmies(14)+2) then FromTerritory:=0;
-   If (TArmies(12)-3>TArmies(14)+2) then Armies:=3;
-   If (TArmies(12)-5>TArmies(14)+2) then Armies:=5;
-   If (TArmies(12)-7>TArmies(14)+2) then Armies:=7;
-   If (TArmies(12)-11>TArmies(14)+2) then Armies:=11;
-   If (TArmies(12)-15>TArmies(14)+2) then Armies:=15;
-   If (TArmies(12)-25>TArmies(14)+2) then Armies:=25;
-end;
-
-
-//Don't pass armies from Geenland to Iceland
-If (FromTerritory=3) and (ToTerritory=20) then
-If ((PArmiesCount(PMe)<200) or (COwner(6)=-(trunc(UBufferGet(10)))) and (UBufferGet(39)>2)) then
-Begin
-CLeader(3,LP,LT,LA); 
-If (TArmies(3)>12) and (TArmies(20)<4) and (LT=6) then Armies:=4-TArmies(20) else FromTerritory:=0;
-If COwner(1)<>PMe then FromTerritory:=0;
-end;
-
-//Armies from Middle East
-If (FromTerritory=27) then
-Begin
-If (Toterritory=26) then
- If (PTerritoriesCount(PMe)<20) and ((TArmies(27)<25) and (COwner(5)=PMe)) then Armies:=0;
-
-If (Toterritory=26) and (COwner(5)<>PMe) then Armies:=0;
- 
-If ((PArmiesCount(PMe)<200) or (COwner(6)=-(trunc(UBufferGet(10))))) and ((TContinent(ToTerritory)=4) OR (TContinent(ToTerritory)=3)) and (UBufferGet(39)>2) and (Armies>7) then Armies:=7;
-
-If (COwner(5)=PMe) and (TArmies(29)=TArmies(28)) then Armies:=0;
-
-
-If COwner(5)=PMe then B:=5 else B:=0;
-If ((COwner(5)=PMe) and (TArmies(28)>=8) and (TArmies(29)>8)) then B:=16;
-If (((PArmiesCount(PMe)<200) or (COwner(6)<>PMe)) and (TContinent(ToTerritory)=4) and (UBufferGet(39)>2) and (Armies>1) and (TArmies(27)-Armies<6+B)) then Armies:=1;
-If (COwner(5)=PMe) and (Toterritory=22) then
- Begin
- If (TArmies(29)+TArmies(22)+Armies>=TArmies(27)-2) and 
-    (TArmies(28)+TArmies(22)+Armies>=TArmies(27)-2) then Armies:=Armies div 2 - 1;
- end;
-If (((TArmies(15)=3) and TIsMine(15)) or ((TArmies(16)=3) and TIsMine(16))) and (Toterritory=22) then Armies:=0;
-end;
-
-//22 to C3
-If ((FromTerritory=22) and (TContinent(ToTerritory)=3)) then 
-Begin
-If (ToTerritory<>26) then Armies:=1;
-If (TArmies(22)-Armies=1) then Armies:=Armies-1;
-end;
-
-
-//Armies from Siam
-If ( (FromTerritory=31) and ((ToTerritory=30) or (ToTerritory=32)) ) then 
- Begin
- Armies:=TArmies(31) div 8+1;
- CAnalysis(5,PT,PA,ET,EA);
- If (PT>10) or (((trunc(UBufferGet(36))=COwner(3)) or (trunc(UBufferGet(36))=COwner(4))) and (UBufferGet(36)<>0)) then
- Begin
-  If Armies>7 then Armies:=7;
-  If TArmies(31)>50 then Armies:=TArmies(31) div 5;
-  If TArmies(31)+TArmies(39)<15 then FromTerritory:=0;
-  If (SConquest or (NOT TIsFront(ToTerritory))) then For T:=27 to 38 do If ( (TArmies(T)>TArmies(31)+TArmies(39)+8) and (NOT (TIsMine(T))) ) then FromTerritory:=0;
- end;
- If (UBufferGet(10)<0) and (((PArmiesCount(-(trunc(UBufferGet(10))))*1.4))>double(TArmies(31))) then Armies:=0;
- If COwner(6)<>PMe then Armies:=0;
- end;
- 
-
- 
-If TIsMine(27) then
- If TIsMine(15) or TIsMine(16) then
-  Begin
-   CLeader(4,LP,LT,LA);
-   If NOT (LP=PMe) then
-    If UBufferGet(39)>2 then Begin
-     If TIsMine(15) and (TArmies(15)>1) and (COwner(6)=PMe) then Begin
-      FromTerritory:=15;
-      ToTerritory:=27;
-      Armies:=TArmies(15)-1;
-     end;
-    
-     If TIsMine(16) and (TArmies(16)>1) and (COwner(6)=PMe) then Begin
-      FromTerritory:=16;
-      ToTerritory:=27;
-      Armies:=TArmies(16)-1;
-     end;
-    end;
-  end;
-
-end;
-
-     
-If COwner(6)=PMe then
-Begin
-   //Pass all armies from Eastern Australia to New Guinea
-   If ((TArmies(41)>2) and (TArmies(42)=1)) then
-     Begin
-     //If UBufferGet(15) then //umessage('All armies passed from Eastern Australia to New Guinea');
-     FromTerritory:=41;
-     ToTerritory:=42;
-     Armies:=TArmies(41)-1;
-     end;
-     
-    //Pass all armies from New Guinea to Indonesia
-   If ((TArmies(42)>2)) then
-     Begin
-     //If UBufferGet(15) then //umessage('All armies passed from New Guinea to Indonesia');
-     FromTerritory:=42;
-     ToTerritory:=39;
-     Armies:=TArmies(42)-1;
-     end;
-     
-   //Pass all armies from western Australia to Indonesia
-   If ((TArmies(40)>2)) then
-     Begin
-     //If UBufferGet(15) then //umessage('All armies passed from New Guinea to Indonesia');
-     FromTerritory:=40;
-     ToTerritory:=39;
-     Armies:=TArmies(40)-1;
-     end;
-end;
-
-
-//Pass armies to attack Mexico
-If (TIsMine(9)=False) then
-Begin
-CAnalysis(1,PT,PA,ET,EA);
-If (
-    (PT=8) and 
-    (TArmies(1)>28) and 
-    (Cowner(2)=TOwner(9)) and 
-    (Cowner(2)<>PMe) and
-    (Cowner(5)=0)) then
-     Begin
-     //If UBufferGet(15) then //umessage('Pass armies to attack Mexico from Alaska');
-     FromTerritory:=1;
-     ToTerritory:=4;
-     Armies:=TArmies(1)-8;
-     end;
-     
-If ((PT=8) and 
-    (TArmies(3)>28) and 
-    (Cowner(2)=TOwner(9)) and 
-    (Cowner(2)<>PMe) and
-    (Cowner(3)=0)) then
-     Begin
-     //If UBufferGet(15) then //umessage('Pass armies to attack Mexico from Greenland');
-     FromTerritory:=3;
-     ToTerritory:=5;
-     Armies:=TArmies(3)-8;
-     end;
-   
-If ((PT=8) and (TArmies(5)>19) ) then
-     Begin
-     //If UBufferGet(15) then //umessage('Pass armies to attack Mexico from Ontario');
-     FromTerritory:=5;
-     ToTerritory:=7;
-     Armies:=TArmies(FromTerritory)-1;
-     end;
-     
-
-If ((PT=8) and
-    (TArmies(4)>19) ) then
-     Begin
-     //If UBufferGet(15) then //umessage('Pass armies to attack Mexico from Alberta');
-     FromTerritory:=4;
-     ToTerritory:=7;
-     Armies:=TArmies(FromTerritory)-1;
-     end;
-
-end;
-
-If TIsMine(1) then
-  If (PArmiesCount(PMe)>=200) then
-   If (COwner(1)=PMe) then
-    If ((ToTerritory=14) and (FromTerritory=12)) or 
-       ((ToTerritory=37) and (FromTerritory=1)) or 
-       ((ToTerritory=20) and (FromTerritory=3)) then
-       Begin
-       B:=0;
-       For T:=1 to 39 do
-        If (Not TIsMine(T)) and (TArmies(T)>B) then B:=TArmies(T);
-        
-       If (TArmies(FromTerritory) - B + 10 < 0) then Armies:=0 else Armies:=TArmies(FromTerritory) - B + 10;
-       If TArmies(FromTerritory) - Armies < 0 then Armies:=0;
-       If (B>TArmies(1)) or (B>TArmies(3)) or (B>TArmies(12)) then Armies:=0;
-       end;
-       
-
- 
-// pass to 27 from 26
-If (FromTerritory=0) or (Armies=0) then
-Begin
-If TIsMine(26) then
- If TIsMine(27) and (TArmies(26)=3)  then
-  Begin
- FromTerritory:=26;
- ToTerritory:=27;
- Armies:=2;
- end;
- 
-// pass to 3 from 20
-If TIsMine(20) then
-If (FromTerritory=0) or (Armies=0) then
-if (PTerritoriesCount(PMe)<15) or (TArmies(3)<5) then
- If (COwner(1)=PMe) and (TArmies(20)=3)  then
-  Begin
- FromTerritory:=20;
- ToTerritory:=3;
- Armies:=2;
- end;
-
-
-If TIsMine(22) then
- If NOT TIsMine(28) then
-  If TIsMine(27) and (TArmies(22)>=3) then
-   If (COwner(4)=
-(UBufferGet(36))) and (COwner(4)<>0) then
-    If ToTerritory<>27 then
- Begin
- FromTerritory:=22;
- ToTerritory:=27;
- Armies:=TArmies(22)-1;
- end;
-end;
-
-//Bug Control
-If TArmies(FromTerritory)<=Armies then Armies:=TArmies(FromTerritory)-1;
-If Armies<=0 then FromTerritory:=0;
-
-
-
-
-//end; 
-
-//##################
-
-if Not (UBufferGet(39)>2) then begin //###Unsimple
-BEGIN
-  MinArmy:=1500;    //smallest frontarmy must be smaller than this one (should be no problem...)
-  Armies:=0;        //Do not move armies until moveable army found
-  BiggestArmy:=1;   //Need at least 2 Armies to have one to move [TArmies(FromT) > BiggestArmy]
-  ToTerritory:=0;
-  FromTerritory:=0;
-  FromT:=0; //From Territory
-  T:=42;
-  REPEAT
-    IF TIsFront(T) AND (TArmies(T)<=MinArmy) THEN  //TIsFront(T) can only be true if TIsMine(T) is True
-    BEGIN
-
-      FOR B:=1 TO TBordersCount(T) DO
-      BEGIN
-        FromT:=TBorder(T,B);
-
-        IF (TIsMine(FromT) AND (NOT TIsFront(FromT))) AND (TArmies(FromT)>BiggestArmy) THEN
-        BEGIN
-          MinArmy:=TArmies(T);
-          FromTerritory:=FromT;
-          ToTerritory:=T;
-          Armies:=TArmies(FromTerritory)-1;
-          BiggestArmy:=Armies;
-        END;
-      END;
-    END;
-    T:=T-1;
-  UNTIL T<1;
-
-  IF Armies=0 THEN   //no fortification of a front possible, move the biggest other army anywhere
-  BEGIN
-    MaxArmy :=1;
-    T:=42;
-    REPEAT
-      IF TIsMine(T) AND NOT TIsFront(T) THEN    // territory is mine and not "front"
-      BEGIN
-        IF TArmies(T)>MaxArmy THEN
-        BEGIN
-          MaxArmy :=TArmies(T);
-          FromTerritory :=T;
-        END;
-      END;
-      T:=T-1;
-    UNTIL T<1;
-    // if there are armies to move...
-    // move armies to a random bordering territory
-    IF FromTerritory>0 THEN
-    BEGIN
-    //Umessage('The biggest army is in: ' + TName(FromTerritory) + ' and has ' + inttostr(TArmies(FromTerritory)) + ' armies');
-      B:=trunc(URandom(TBordersCount(FromTerritory)))+1; 
-      ToTerritory:=TBorder(FromTerritory,B+1); 
-      If NOT TIsFront(ToTerritory) then ToTerritory:=TBorder(FromTerritory,B-1);
-      If NOT TIsFront(ToTerritory) then ToTerritory:=TBorder(FromTerritory,B+2);
-      If NOT TIsFront(ToTerritory) then ToTerritory:=TBorder(FromTerritory,B-2);
-      If NOT TIsFront(ToTerritory) then ToTerritory:=TBorder(FromTerritory,B);    
-      // Move all armies
-      Armies:=TArmies(FromTerritory)-1;
-      
-    END;
-  END;  //IF Armies=0
-
-END;  //PROCEDURE Fortification
-
-end; //###Unsimple
-
-//ALL PLAYERS FORTIFY
-    If ( (FromTerritory=33) and (TArmies(33)<8) ) then FromTerritory:=0; //and ((ToTerritory=32) or (ToTerritory=30)))
-    
-    If TIsMine(32) then B:=TArmies(32) else B:=0; 
-    If ( ((TArmies(27)+TArmies(30)+B-2)> TArmies(31)) and
-     (TArmies(27)>5) and
-     (COwner(6)<>PMe) and
-      TIsMine(27) and
-      TIsMine(30) and
-     (Not TIsMine(31))
-    ) then
-     Begin
-     //If UBufferGet(15) then //umessage('Middle East armies passed2  ');
-     FromTerritory:=27;
-     ToTerritory:=30;
-     Armies:=TArmies(27)-1;
-     end;
- 
-   //If India is heavy on Siam try pass all China armies
-   If ( TIsMine(31) and 
-       (TIsMine(30)=False) and 
-       (TArmies(30)>TArmies(31)) and 
-        TIsMine(32) and 
-       (TArmies(32)>1) ) then
-        Begin
-        //If UBufferGet(15) then //umessage('All armies passed from China to Siam');
-        FromTerritory:=32;
-        ToTerritory:=31;
-        Armies:=TArmies(32)-1;
-        end;
-       
-    //If China is heavy on Siam try pass all India armies
-    If ( TIsMine(31) and 
-       (TIsMine(32)=False) and 
-       (TArmies(32)>TArmies(31)) and 
-        TIsMine(30) and 
-       (TArmies(30)>1) ) then
-        Begin
-        //If UBufferGet(15) then //umessage('All armies passed from India to Siam');
-        FromTerritory:=30;
-        ToTerritory:=31;
-        Armies:=TArmies(30)-1;
-        end;
-        
-      If ((FromTerritory=29) and 
-          (ToTerritory=27) and 
-          ((TArmies(29)<TArmies(27)) or (TArmies(29)<6)) ) then Armies:=1;
-      
- 
-
- //Lame pass
-If TIsMine(32) then 
-If TIsMine(31) then
-if UBufferGet(9)=0 then
-If COwner(6)=PMe then
-If (TArmies(31)+TArmies(32)>72-PTerritoriesCount(trunc(UBufferGet(36)))) or (UBufferGet(9)<>0) then
-If (NOT TIsMine(33)) and (NOT TIsMine(37)) and (NOT TIsMine(1)) then
-If (UBufferGet(10)<0) or ((PTerritoriesCount(COwner(1))>22) and (COwner(1)<>PMe)) then
-
-Begin
-CAnalysis(1,PT,PA,ET,EA);
-If ((COwner(1)<>0) and (trunc(UBufferGet(36))=COwner(1))) and (PArmiesCount(COwner(1))>60) 
-then B:=10+3*trunc(UBufferGet(39)) else B:=36+3*trunc(UBufferGet(39));
-If (PTerritoriesCount(COwner(1))>25) then B:=0;
-W:=0;
-If TOwner(20)=-(trunc(UBufferGet(10))) then W:=TArmies(20)-5;
-If TOwner(10)=-(trunc(UBufferGet(10))) then W:=TArmies(10)-5;
-
-
-if (double(TArmies(32))+TArmies(33)+TArmies(37)<(double(TArmies(31)) / 3)) or ((COwner(1)<>0) and (trunc(UBufferGet(36))=COwner(1))) then
- If (TArmies(32)+TArmies(33)+TArmies(37)+TArmies(10)+TArmies(20)+EA+B-W)<TArmies(31) then 
-Begin
-If (UBufferGet(10)<0) then T:=1 else T:=6;
-If TIsMine(32) then ToTerritory:=32;
-If TIsMine(31) then FromTerritory:=31;
-Armies:=TArmies(FromTerritory)-T;
-UBufferSet(9, 33);
-UBufferSet(25, 0); //Frank is not in Bubble Mode
-If PArmiesCount(-(trunc(UBufferGet(10))))>35 then UBufferSet(8, -1); //Stop one round
-//umessage('lame pass');
-end;
-end;
-
-
-//#######Aust. - S.A. lame pass  
-If TIsMine(31) then
-//If COwner(6)=PMe then
-If (TArmies(31)>50) then
-If TIsMine(30) and (NOT TIsMine(27)) and (NOT TIsMine(26)) then
-If ((COwner(4)=COwner(3)) and ((COwner(2)=COwner(1)) or (COwner(2)=COwner(3))) and (COwner(2)<>PMe) and (COwner(2)<>0) and (COwner(2)<>PMe)) then
-If PTerritoriesCount(COwner(2))>20 then 
-If UBufferGet(9)<>32 then
-Begin
-CAnalysis(2,PT,PA,ET,EA);
-If PTerritoriesCount(COwner(2))>26 then T:=7 else T:=20;
-If TArmies(30)+TArmies(27)+TArmies(26)+TArmies(14)+EA<TArmies(30)+TArmies(31)-T-3*trunc(UBufferGet(39)) then
-Begin
-ToTerritory:=30;
-FromTerritory:=31;
-Armies:=TArmies(31)-1;
-UBufferSet(9, 27);
-UBufferSet(25, 0);
-UBufferSet(8, 0);
-end;
-end;
-
-if fromterritory > 0 then if not tismine(toterritory) then umessage('before bubble fortify');
-
-//#############Bubble FORTIFY
- If UBufferGet(25)=1 then
- BEGIN
-    If TIsBordering(-(trunc(UBufferGet(17))), trunc(UBufferGet(20))) and TIsMine(-(trunc(UBufferGet(17)))) and TIsMine(trunc(UBufferGet(20))) then
-    Begin 
-      FromTerritory:=-(trunc(UBufferGet(17)));
-      ToTerritory:=trunc(UBufferGet(20));
-      Armies:=TArmies(FromTerritory)-1;
-  //umessage('FromTerritory', FromTerritory, ToTerritory, Armies, 'UBufferGet(17) ' , UBufferGet(17));
-      UBufferSet(17, 0);
-    end
-  else
-
-begin //Bubble
-  If NOT ( ((COwner(2)=PMe) and (TContinent(ToTerritory)=2)) or 
-           ((COwner(6)=PMe) and (TContinent(ToTerritory)=6) and (NOT SConquest)) ) then FromTerritory:=0;
-
-  If (UBufferGet(24)=1) then W:=1 else W:=27;
-  
-  If (SConquest=False) then
-   For T:=W to 38 do
-    Begin
-    if T=31 then
-     If TIsMine(31) and (COwner(6)=PMe) then T:=32;
-     
-    If (TIsBordering(T, trunc(UBufferGet(20))) and TIsMine(T) and (TIsFront(T) or ((NOT TIsFront(T)) and (TArmies(trunc(UBufferGet(20)))<4))) ) then 
-     Begin
-      FromTerritory:=trunc(UBufferGet(20));
-      ToTerritory:=T;
-      If TIsBordering(FromTerritory,33) and TIsFront(33) and TIsMine(33) and (TArmies(ToTerritory)=1) then ToTerritory:=33;
-      Armies:=TArmies(trunc(UBufferGet(20)))-1;
-      T:=42;
-      UBufferSet(20,ToTerritory);
-      
-     end;
-    end;
-    
-  If (SConquest=True) then
-   For T:=1 to 38 do
-   if TIsMine(T) then
-    if TArmies(T)>1 then
-    If TIsBordering(T, trunc(UBufferGet(20))) and ((T<>31) or ((T=31) and (COwner(6)<>PMe))) and TIsMine(trunc(UBufferGet(20))) then
-     Begin
-      FromTerritory:=T;
-      ToTerritory:=trunc(UBufferGet(20));
-      Armies:=TArmies(T)-1;
-      T:=38;
-     end;
- 
- If (COwner(2)=PMe) and ((ToTerritory=10) or (ToTerritory=12)) then FromTerritory:=0;
-     
-end;//Bubble
-END;
-if fromterritory > 0 then if not tismine(toterritory) then umessage('after bubble fortify');
-If (UBufferGet(9)<>0) and (FromTerritory=32) then FromTerritory:=0;
-
-//Lame bubble pass
-If (UBufferGet(8)>0) then
-If (UBufferGet(8)<>31) then
-if TIsMine(31) and TIsMine(trunc(UBufferGet(8))) then
-Begin
-CAnalysis(5,PT,PA,ET,EA);
-If PT<8 then
-Begin
-FromTerritory:=trunc(UBufferGet(8));
-ToTerritory:=31;
-Armies:=TArmies(trunc(UBufferGet(8)))-1;
-end;
-UBufferSet(8,0);
-//umessage('lame return');
-end;
-
- //Armies from North Africa
-If (FromTerritory=0) or (Armies=0) then
- If TIsMine(14) then
- If TArmies(14)>1 then
- If UBufferGet(20)<>14 then
- Begin
-  CAnalysis(4,PT,PA,ET,EA);
-  If (COwner(2)=PMe) and (PT=1) then // and (TArmies(14)=3)
-     Begin
-     FromTerritory:=14;
-     ToTerritory:=12;
-     Armies:=TArmies(FromTerritory)-1;
-     end;
- end;
-
- UBufferSet(7,0);
- 
-//Bug Control
-If TArmies(FromTerritory)<=Armies then Armies:=TArmies(FromTerritory)-1;
-If Armies<=0 then FromTerritory:=0;
-
-end;
- 
-begin
-  //UDialogOn;
-  //ULogOn;
-  //UMessageOn;
-end.
diff --git a/Players/frank.trp b/Players/frank.trp
deleted file mode 100644
index 0122e51..0000000
--- a/Players/frank.trp
+++ /dev/null
@@ -1,6963 +0,0 @@
-{
-Program: Frank 
-
-Author: Heitor Mansel - February 25, 2002
- 
-Description: This is the latest version of Frankenstein program, made 
-of the strengths of several players plus a large rule 'skeleton'.
-
-Plays a combination of: STRUGGLER or WYRM(attack) 
-+ WYRM(placement, occupation) + WYRM or UNSIMPLE(Fortification) 
-+ RULES.
-
-History: Ported to TurboRisk 1.3 by Nathan Scarbrough.
-
-Version 1.2 - Greatly expanded and optimized rule body
-- Better adaptation to the players' number and strength;
-- Smarter in Australia/Asia and South America/North America strategy;
-- Smarter "Floating Bubble" feature: One territory armies accumulation and attack;
-- Bug control in all procedures;
-- Some customization of player's behavior in "Frank's Control Panel";
-}
-
-// available UBuffers, 1-5, 18, 22, 23, 31, 48, 51-100
-
-procedure CONTROL_PANEL;
-  var
-    T: Integer;
-    KillBubble, Cooperative, TrySouthAmericaFirst, PutApart: boolean;
-  
-Begin
-  //##################### FRANK'S CONTROL PANEL ################################
-    
-  KillBubble:=False; //Bubble feature when needed
-  
-  Cooperative:=False; 
-  //No Bubble attacks if continent owner has the same program name.
-  
-  TrySouthAmericaFirst:=False;  //If False try Australia first
-
-  PutApart:=True;
-  //In Assignment, try not put armies in the same continent (SA and Au).
-
-  //#############################################################################
-
-  For T:=1 to 10 do
-    if pactive(T) then if ( pos('australian', lowercase(PProgram(T))) > 0 ) and (SPlayersCount=3) then
-      Begin
-        TrySouthAmericaFirst:=True;
-        UBufferset(32, 1);
-        UBufferSet(10,-T);
-    end;
-
-  If SPlayersCount<=4 then KillBubble:=True;
-  If Cooperative then UBufferSet(29, 1) else UBufferSet(29, 0);
-  If KillBubble then UBufferSet(33, 1) else UBufferSet(33, 0);
-  
-  UBufferSet(30, 1); //First placement 
-  If TrySouthAmericaFirst then UBufferSet(32,1) else UBufferset(32,0); //For placement do not put in Australia if a territory in S.A.
-  UBufferSet(39, SPlayersCount);  //Set the initial number of players
-  UBufferSet(25,0); //Not in Bubble mode
-  UBufferSet(15, 0); //If 0 then No Messages
-  If SPlayersCount>2 then UBufferSet(38, 1) else UBufferSet(38, 0);
-  
-  UBufferSet(14,1); //Do not run the Control Panel again
-  
-end; //############# END FRANK'S CONTROL PANEL ###################################
-
-
-
-Function EvalT(T: integer; TrySouthAmericaFirst: boolean): double;
-  var
-   FreeT, Points: double; 
-   C,CT,PT,PA,ET,EA,LP,LT,LA: integer;
-   Bypass: boolean;
-Begin
-
-//Optimize reinforce
-  Bypass:=False;
-  Points:=0;
-  C:=TContinent(T);
-  CT:=CTerritoriesCount(C);
-  CAnalysis(C,PT,PA,ET,EA);
-  CLeader(C,LP,LT,LA);
-  FreeT:=CT-PT-ET;
-  // the leader of the continent it's not me and owns all territories less one
-  if LP>0 then begin
-    if (LP<>PMe) and (LT>=CT-1) then 
-    begin
-      Points:=Points+100.0;    // I must avoid enemy conquers the continent
-      If (NOT ((C=6) and TrySouthAmericaFirst)) or (SPlayersCount<4) then Bypass:=True; 
-    end;
-  end;
-  // evaluate my chances to conquer the continent
-  Points:=Points+1.0*(PT+1+FreeT/SPlayersCount)/(ET+FreeT*SPlayersCount/(SplayersCount-1));
-  result:=Points;
-end;
-
-
-
-//## from weapon.txt
-function TPStrongestBorder(TXX, PXX: integer; var PTXX, PAXX: integer): boolean;
-var
- AXX,
- BXX,
- IXX: integer;
-begin
-  if (TXX < 1) or (TXX > 42) or (PXX < 1) or (PXX > 10) then 
-    result :=false
-  else begin
-    result :=true;
-    PTXX :=0;
-    PAXX :=0;
-    for IXX :=1 to TBordersCount(TXX) do begin
-      BXX :=TBorder(TXX, IXX);
-      if TOwner(BXX)=PXX then begin
-        AXX :=TArmies(BXX); 
-        if AXX >= PAXX then begin
-          PTXX :=BXX;
-          PAXX :=AXX;
-        end;
-      end;
-    end;
-  end;
-end;
-
-
-
-function TargetCplacement(Small: integer): integer;
-var
-  T, C, BestC, Diff, BestDiff: integer;
-  PT, PA, ET, EA, X : integer;
-
-begin
-  // LOCAL FUNCTION TARGETCplacement:  determines the target continent to attack
-  // best ratio of armies in the continent and its borders
-  BestDiff:=SMALL;
-  for C:=1 to 6 do
-    begin
-      PT:=0;
-      PA:=0;
-      ET:=0;
-      EA:=0;
-      CAnalysis(C, PT, PA, ET, EA);
-      if (ET>0) then
-        begin
-          // sub CBORDERANALYSIS:  adjust PT, PA, ET, and EA to reflect
-          // territories that border the given continent
-          for X:=1 to CBordersCount(C) do
-            begin
-              T:=Cborder(C,X);
-              if TIsMine(T) then
-                begin
-                  PT:=PT+1;
-                  PA:=PA+TArmies(T);
-                end
-              else
-                begin
-                  ET:=ET+1;
-                  EA:=EA+TArmies(T);
-                end;
-            end;
-        end;
-      Diff:=PA-ET-EA;
-      if (ET>0) and (PT>0) and (Diff>BestDiff) then
-        begin
-          BestDiff:=Diff;
-          BestC:=C;
-        end;
-//      //If UBufferGet(15) then //umessage(BestC);      //If UBufferGet(15) then //umessage(BestDiff);
-    end;
-  result:=BestC;
-end;
-
-
-
-function MyTPressure(T, MaxFronts: integer): integer;
-var
-  Pressure, MyB, MyT: integer;
-begin
-  // LOCAL FUNCTION MYTPressure:  returns available armies bordering on [enemy?] territory T
-  // my territories must have at most MaxFronts fronts in order to count its armies
-  Pressure:=0;
-  for MyB:=1 to TBordersCount(T) do
-    begin
-      MyT:=TBorder(T,MyB);
-      if TIsMine(MyT) and (TFrontsCount(MyT)<=MaxFronts) then
-        Pressure:=Pressure+TArmies(MyT);
-    end;
-  result:=Pressure;
-end;
-
-
-
-function TargetTplacement(EnemyC, Small, Allfronts, onefronts: integer; force: double): integer;
-var
-  T, T2, BestT, Diff, BestDiff: integer;
-  ET, EA, X, Y : integer;
-
-begin
-  // LOCAL FUNCTION TARGETTplacement:  determines the target territory to attack
-  // will return a territory on another continent if no attacks are available
-  // on the desired continent {can also return 0 if no feasible attack is available at all}
-  // uses local global ENEMYC
-  BestDiff:=SMALL;
-  BestT:=0;
-  for X:=1 to CTerritoriesCount(EnemyC) do
-    begin
-      T:=CTerritory(EnemyC,X);
-//      //If UBufferGet(15) then //umessage('Checking out territory #',X,' of target continent ',ENEMYC);
-      Y:=MyTPressure(T,ALLFRONTS);
-//      //If UBufferGet(15) then //umessage('Looking at territory ',T,' which you have ',Y,' total pressure on');
-      if (Y>0) and ((trunc(FORCE*TArmies(T)))<(PNewArmies(PMe)+Y)) and (not TIsMine(T)) then
-        begin
-          // if its an enemy territory that can be conquered, then compute
-          // your 1-front armies (+) less attacked armies (-) less new exposure to enemies (-)
-          Diff:=MyTPressure(T,ONEFRONTS)-TArmies(T);
-//          //If UBufferGet(15) then //umessage('Initial Diff (1-front armies less attacked) is ',Diff);
-          for Y:=1 to TBordersCount(T) do
-            begin
-              T2:=TBorder(T,Y);
-//              //If UBufferGet(15) then //umessage('Secondary loop, looking at territory #',Y,' (namely ',T2,') with my pressure of ',MyTPressure(T2,ALLFRONTS),' and armies ',TArmies(T2));
-              if (MyTPressure(T2,ALLFRONTS)=0) and (not(TIsMine(T2))) then
-                Diff:=Diff-TArmies(T2);
-              // new exposure when territory is conquered
-            end;
-//          //If UBufferGet(15) then //umessage('A conquerable territory on target continent ',EnemyC,' is ',T);
-//          //If UBufferGet(15) then //umessage('my [wasted] 1-front armies less attacked armies less new exposures is ',Diff);
-          if (Diff>BestDiff) then
-            begin
-               BestDiff:=Diff;
-               BestT:=T;
-            end;
-        end;
-    end;
-  if (BestT=0) then
-    begin
-      // look for easiest territory that can be taken [may be on another continent]
-      for T:=1 to 42 do
-        begin
-          if TIsMine(T) then
-            begin
-              TWeakestFront(T,ET,EA);
-              Diff:=TArmies(T)-EA;
-              if (Diff>BestDiff) then
-                begin
-                  BestDiff:=Diff;
-                  BestT:=ET;
-                end;
-            end;
-        end;
-//      TWeakestFront(BestT,ET,EA);
-//      Diff:=PNewArmies(PMe)*NEWRATIO; // allow only a %-age of new armies to go for this attack
-//      Diff:=Diff+TArmies(BestT)-EA*FORCE;
-//      if Diff<1 then BestT:=0;
-    end;
-  result:=BestT;
-end;
-
-
-
-//####STRUGGLER FUNCT
-    // Evaluation function for the pair "territory from"-"territory to" (TF-TT).
-  // It return a value > 1 for strategic attacks
-function Eval(TF,TT: integer): double;
-    var
-    Points: double;   // value assigned to the FROM/TO pair
-    CF,CT,            // FROM and TO continents
-    AF,AT,            // armies on FROM and TO teritories
-    PT,PA,            // my territories and armies on FROM continent
-    ET,EA,            // enemy territories and armies on FROM continent
-    LP,               // leader player on FROM continent
-    LT,LA: integer;   // leader's territories and armies on FROM continent
-    
-  begin
-    Points:=0;
-    CF:=TContinent(TF);
-    CT:=TContinent(TT);
-    AF:=TArmies(TF);
-    AT:=TArmies(TT);
-    // FROM and TO territories are on different continents
-    if CF<>CT then begin
-      // enemy owns the TO continent
-      if COwner(CT)>0 then begin
-        Points:=Points+2.0;
-      end;
-    end
-    // FROM and TO territories are on the same continent
-    else begin
-      CAnalysis(CF,PT,PA,ET,EA);
-      CLeader(CF,LP,LT,LA);
-      // evaluate my chances to conquer the continent
-      Points:=Points+1.0*(PA+1)/(EA+ET);
-    end;
-    // if enemy owns just one territory, I try to kill him to get his cards
-    if PTerritoriesCount(TOwner(TF))<2 then begin
-      Points:=Points+20.0;
-    end;
-    // if haven't conquered a territory, add some points for
-    // a generic evaluation of the attack ratio
-    if not SConquest then begin
-      Points:=Points+1.0*AF/AT;
-    end;
-    result:=Points;
-  end;
-  //####STRUGGLER END FUNCT
-
-
-
-//###Wyrm
-
-function TargetCattack(Small: integer): integer;
-var
-  T, C, BestC, Diff, BestDiff: integer;
-  PT, PA, ET, EA, X, Y: integer;
-
-begin
-  // LOCAL FUNCTION TARGETCattack:  determines the target continent to attack
-  // best ratio of armies in the continent and its borders
-
-  BestDiff:=0; // will hold maximum number of armies controlled by leading player Y
-  for X:=1 to 10 do
-    if (PActive(X)) and (X<>PMe) then
-      if (PArmiesCount(X)>BestDiff) then
-        begin
-          BestDiff:=PArmiesCount(X);
-          Y:=X; // Y holds the leading player's number
-        end;
-
-  BestDiff:=SMALL;
-  for C:=1 to 6 do
-    begin
-      PT:=0;
-      PA:=0;
-      ET:=0;
-      EA:=0;
-      CAnalysis(C, PT, PA, ET, EA);
-      if (ET>0) then
-        begin
-          // sub CBORDERANALYSIS:  adjust PT, PA, ET, and EA to reflect
-          // territories that border the given continent
-          for X:=1 to CBordersCount(C) do
-            begin
-              T:=Cborder(C,X);
-              if TIsMine(T) then
-                begin
-                  PT:=PT+1;
-                  PA:=PA+TArmies(T);
-                end
-              else
-                begin
-                  ET:=ET+1;
-                  EA:=EA+TArmies(T);
-                end;
-            end;
-        end;
-      Diff:=PA-ET-EA;
-
-      if (COwner(C)=Y) and SConquest and (PT>0) then // attack the leading player's continents
-        begin
-          Diff:=Diff+500;
-//          //If UBufferGet(15) then //umessage(PName(PMe),' is favoring an extra attack on ',PName(Y),', in continent # ',C,', because they are the leader');
-        end;
-
-      if (COwner(C)>0) and (COwner(C)<>PMe) and SConquest and (PT>0) then
-//        if (PArmiesCount(COwner(C))>PArmiesCount(PMe)) then
-          Diff:=Diff+500;
-// actually, just attack that other continent anyway, no matter what
-      // also attack an opponent's continent if they are about to run over you themselves
-
-      if (ET>0) and (PT>0) and (Diff>BestDiff) then
-        begin
-          BestDiff:=Diff;
-          BestC:=C;
-        end;
-//        //If UBufferGet(15) then //umessage('best continent=',BestC,' with my armies less his armies of ',BestDiff);
-    end;
-  result:=BestC;
-end;
-
-
-
-function TargetTattack(enemyc, small, allfronts, onefronts: integer; force: double): integer;
-var
-  T, T2, BestT, BestT2, Diff, BestDiff: integer;
-  ET, EA, X, Y: integer;
-
-begin
-  // LOCAL FUNCTION TARGETTattack:  determines the target territory to attack
-  // will return a territory on another continent if no attacks are available
-  // on the desired continent {can also return 0 if no feasible attack is available at all}
-  // uses local global ENEMYC
-  BestDiff:=SMALL*5;
-  BestT:=0;
-  for X:=1 to CTerritoriesCount(EnemyC) do
-    begin
-      T:=CTerritory(EnemyC,X);
-//      //If UBufferGet(15) then //umessage('Checking out territory #',X,' of target continent ',ENEMYC);
-      Y:=MyTPressure(T,ALLFRONTS);
-//      if SConquest then
-//        //If UBufferGet(15) then //umessage('Looking at territory ',T,' which you have ',Y,' total pressure on');
-      if (Y>0) and (trunc(FORCE*TArmies(T))<(PNewArmies(PMe)+Y)) and (not TIsMine(T)) then
-        begin
-          // if its an enemy territory that can be conquered, then compute
-          // your 1-front armies (+) less attacked armies (-) less new exposure to enemies (-)
-          Diff:=MyTPressure(T,ONEFRONTS)-TArmies(T);
-//          //If UBufferGet(15) then //umessage('Initial Diff (1-front armies less attacked) is ',Diff);
-          for Y:=1 to TBordersCount(T) do
-            begin
-              T2:=TBorder(T,Y);
-//              //If UBufferGet(15) then //umessage('Secondary loop, looking at territory #',Y,' (namely ',T2,') with my pressure of ',MyTPressure(T2,ALLFRONTS),' and armies ',TArmies(T2));
-              if (MyTPressure(T2,ALLFRONTS)=0) and (not(TIsMine(T2))) then
-                Diff:=Diff-TArmies(T2);
-              // new exposure when territory is conquered
-            end;
-//          if SConquest then
-//            //If UBufferGet(15) then //umessage('A conquerable territory on target continent ',EnemyC,' is ',T);
-//          //If UBufferGet(15) then //umessage('my [wasted] 1-front armies less attacked armies less new exposures is ',Diff);
-          if (Diff>BestDiff) then
-            begin
-               BestDiff:=Diff;
-               BestT2:=BestT; //2nd better
-               BestT:=T;
-               
-            end;
-        end;
-    end;
-  if (BestT=0) and (not SConquest) then
-    begin
-      // look for easiest territory that can be taken [may be on another continent]
-      for T:=1 to 42 do
-          if TIsMine(T) then
-            begin
-              TWeakestFront(T,ET,EA);
-              Diff:=TArmies(T)-EA;
-              if (Diff>BestDiff) then
-                begin
-                  BestDiff:=Diff;
-                  BestT2:=BestT; //2nd better
-                  BestT:=ET;
-                  
-                end;
-            end;
-    end;
-    //#########################Stop Wyrm going to Europe and Middle East too early
-    ////If UBufferGet(15) then //umessage('UBufferGet(40) ',UBufferGet(40), '  BestT  ', BestT, '  BestT2  ', BestT2);
-    If ((UBufferGet(39)>3) and ( BestT=27)  and (UBufferGet(40)<6) ) then BestT:=BestT2; 
-    If ((UBufferGet(39)>3) and (BestT2=27) and (UBufferGet(40)<6) ) then BestT:=0;
-    UBufferSet(41, 0);
-    UBufferSet(42, 0);
-    UBufferSet(43, 0);
-    UBufferSet(44, 0);
-    UBufferSet(45, 0); //Siam reinforcement
-    UBufferSet(26, 0); //Venezuela reinforcement    
-  result:=BestT;
-end;
-
-
-procedure Assignment(var ToTerritory: integer);
-var
-  T, i, cont, naterr, saterr,PT2,PA2,ET2,EA2,LPa,LTa,LAa,PTa,PAa,ETa,EAa: integer;
-  Value,MaxValue: double;
-  Bypass, TrySouthAmericaFirst, PutApart: boolean;
-	
-  
-begin
-
-//###Rules
-CONTROL_PANEL;
-
-  // choose unassigned territory with greatest value
-  ToTerritory:=0;
-  MaxValue:=0;
-  for T:=1 to 42 do begin
-    if TOwner(T)=0 then 
-      begin  // territory is unassigned
-      Value:=EvalT(T, TrySouthAmericaFirst);
-      if Value>MaxValue then begin
-        ToTerritory:=T;
-        MaxValue:=Value;
-      end;
-    end;
-  end;
- 
-//Do not permit totality in North America
-CLeader(1,LPa,LTa,LAa);
-CAnalysis(1,PTa,PAa,ETa,EAa);
-If ((LTa=8) and (ETa=8)) then 
-Begin 
-For T:=1 to 9 do If TOwner(T)=0 then ToTerritory:=T;
-Bypass:=True;
-//If UBufferGet(15) then //umessage('Do not permit totality in North America');
-end;
-
-//Do not permit totality in Africa
-If SPlayersCount<4 then 
-begin
-CLeader(4,LPa,LTa,LAa);
-CAnalysis(4,PTa,PAa,ETa,EAa);
-If ((LTa=5) and (ETa=5)) then 
-Begin 
-For T:=14 to 19 do If TOwner(T)=0 then ToTerritory:=T;
-Bypass:=True;
-//If UBufferGet(15) then //umessage('Do not permit totality in Africa');
-end;
-end;
-
-//Do not permit totality in Europe
-If SPlayersCount<=3 then 
-begin
-CLeader(3,LPa,LTa,LAa);
-CAnalysis(3,PTa,PAa,ETa,EAa);
-If ((LTa=6) and (ETa=6)) then 
-Begin 
-For T:=20 to 26 do If TOwner(T)=0 then ToTerritory:=T;
-Bypass:=True;
-//If UBufferGet(15) then //umessage('Do not permit totality in Europe');
-end;
-end;
-
-If (UBufferGet(39)<=4) then
-Begin
-//Do not permit totality in South America
-CLeader(2,LPa,LTa,LAa);
-CAnalysis(2,PTa,PAa,ETa,EAa);
-If ((LTa=3) and (ETa=3)) then 
-Begin 
-For T:=10 to 13 do If TOwner(T)=0 then ToTerritory:=T;
-Bypass:=True;
-//If UBufferGet(15) then //umessage('Do not permit totality in South America');
-end;
-end;
-
-
-CLeader(TContinent(ToTerritory),LPa,LTa,LAa);
-If ((PProgram(LPa)=PProgram(PMe)) and ((UBufferGet(29)=1) or (PutApart))) then Bypass:=False;
-
-
-//CLeader(6,LPa,LTa,LAa);
-//For T:=1 to 10 do i:=i+PArmiesCount(T);
-If (Not TrySouthAmericaFirst) and 
-(
-((PProgram(TOwner(39))=PProgram(PMe)) and (TOwner(39)<>PMe)) or
-((PProgram(TOwner(40))=PProgram(PMe)) and (TOwner(40)<>PMe)) or
-((PProgram(TOwner(41))=PProgram(PMe)) and (TOwner(41)<>PMe)) or
-((PProgram(TOwner(42))=PProgram(PMe)) and (TOwner(42)<>PMe)) 
-)
- then TrySouthAmericaFirst:=True;
-
-
-
-If (Not Bypass) then begin //Bypass
-
-cont:=0; 
-For i:=1 to 9 do 
-  If TIsMine(i) then cont:=cont+1;
-  
-  
-//2:if success in Australia achar contiguous in asia, if no contiguous try India, Chine, Japan
-if SPlayersCount>2 then
-begin
-if ((TOwner(34)=0) and ((TOwner(36)=PMe) or (TOwner(37)=PMe) or (TOwner(35)=PMe)) ) then ToTerritory:=34;  //Try Taymyr if Buryat or Koryak or Yakut owned
-if ((TOwner(35)=0) and ((TOwner(33)=PMe) or (TOwner(36)=PMe)) ) then ToTerritory:=35;  //Try Yakut if Mongolia or Koryak or Buryat owned
-if ((TOwner(36)=0) and ((TOwner(33)=PMe) or (TOwner(37)=PMe) or (TOwner(38)=PMe)) ) then ToTerritory:=36;  //Try Buryat if Mongolia or Japan owned
-if ((TOwner(33)=0) and ((TOwner(32)=PMe) or (TOwner(37)=PMe) or (TOwner(38)=PMe)) ) then ToTerritory:=33;  //Try Mongolia if China or Koryak or Japan owned
-
-if ((TOwner(37)=0) and (cont>3)) then ToTerritory:=37;  //Try Koryak if success in NA
-
-
-if ((TOwner(29)=0)) then ToTerritory:=29;
-if (TOwner(38)=0)  then ToTerritory:=38;
-if ((TOwner(37)=0) and ((SPlayersCount>2) or TIsMine(1)) ) then ToTerritory:=37;
- 
-
-if ((TOwner(30)=0) and ((TOwner(31)=PMe) or (UBufferGet(50)=66)) ) then ToTerritory:=30;  //Try India if Siam owned
-if ((TOwner(32)=0) and ((TOwner(31)=PMe) or (TOwner(30)=PMe) or (UBufferGet(50)=66)) ) then ToTerritory:=32;  //Try China if Siam or India owned
-end;
-
-if ((TOwner(37)=0) and (cont>6) and ((SPlayersCount>2) or TIsMine(1)) ) then ToTerritory:=37;  //Try Koryak if very success in NA
-
-
-
-
-//1:if success in NA find contiguous in Europe 
-if ((TOwner(21)=0) and (TOwner(20)=PMe)) then ToTerritory:=21;  //Try Scandinavia if Iceland owned
-if ((TOwner(24)=0) and (TOwner(20)=PMe)) then ToTerritory:=24;  //Try Great Britain if Iceland owned
-if ( (TOwner(20)=0) and ((TOwner(3)=PMe) or (cont>3)) ) then ToTerritory:=20;  //Try Iceland if got Greenland or success in NA
-
-
-CAnalysis(2,PT2,PA2,ET2,EA2);
-saterr:=ET2; 
-
-
-If (TArmies(39)+TArmies(40)+TArmies(41)+TArmies(42)=4) then
-   if ( ((ET2>2) or (ET2+PT2=4)) and (SPlayersCount<6)) then UBufferSet(49, 2); //Can go NA!
-
-  
-CAnalysis(1,PT2,PA2,ET2,EA2);
-naterr:=ET2;
-
-If (SPlayersCount<5) or TrySouthAmericaFirst then
-if (UBufferGet(49)=2) or (TrySouthAmericaFirst) then  //(TrySouthAmericaFirst and (saterr<4))
-//If SPlayersCount=2 then
-
-begin
-//umessage('dfdf');
-if TOwner(9)=0 then ToTerritory:=9;  //Mexico
-if TOwner(1)=0 then ToTerritory:=1;  //Alaska
-if TOwner(3)=0 then ToTerritory:=3;  //Greenland
-
-if TOwner(2)=0 then ToTerritory:=2;  //Northwest Territory
-if TOwner(4)=0 then ToTerritory:=4;  //Alberta
-if TOwner(5)=0 then ToTerritory:=5;  //Ontario
-if TOwner(7)=0 then ToTerritory:=7;  //Western US
-if TOwner(8)=0 then ToTerritory:=8;  //Eastern US
-if TOwner(6)=0 then ToTerritory:=6;  //Quebec
-end;
-
-
-
-If (NOT (
-(
-((PProgram(TOwner(10))=PProgram(PMe)) and (TOwner(10)<>PMe)) or
-((PProgram(TOwner(11))=PProgram(PMe)) and (TOwner(11)<>PMe)) or
-((PProgram(TOwner(12))=PProgram(PMe)) and (TOwner(12)<>PMe)) or
-((PProgram(TOwner(13))=PProgram(PMe)) and (TOwner(13)<>PMe)) 
-) and PutApart )
-) then
-Begin
-if naterr<5 then 
-	if ((saterr<2) or (TOwner(10)=PMe)) then if TOwner(9)=0 then ToTerritory:=9;  //Mexico now  if South America to be mine and North America not occupied 
-
-if saterr<2 then if TOwner(12)=0 then ToTerritory:=12;  //Brazil
-if (((saterr<3) and (naterr<5)) or (saterr<2)) then if TOwner(10)=0 then ToTerritory:=10;  //Venezuela
-if saterr<2 then if TOwner(11)=0 then ToTerritory:=11;  //Peru
-if saterr<2 then if TOwner(13)=0 then ToTerritory:=13;  //Argentina
-end;
-
-
-
-If (NOT (
-(
-((PProgram(TOwner(10))=PProgram(PMe)) and (TOwner(10)<>PMe)) or
-((PProgram(TOwner(11))=PProgram(PMe)) and (TOwner(11)<>PMe)) or
-((PProgram(TOwner(12))=PProgram(PMe)) and (TOwner(12)<>PMe)) or
-((PProgram(TOwner(13))=PProgram(PMe)) and (TOwner(13)<>PMe)) 
-) and (PutApart or TrySouthAmericaFirst ) )
-) then
-Begin
-if naterr<5 then 
-	if ((saterr<3) or (TOwner(10)=PMe)) then if TOwner(9)=0 then ToTerritory:=9;  //Mexico now  if South America to be mine and North America not occupied 
-
-if saterr<4 then if TOwner(12)=0 then ToTerritory:=12;  //Brazil
-if (((saterr<5) and (naterr<5)) or (saterr<2)) then if TOwner(10)=0 then ToTerritory:=10;  //Venezuela
-if saterr<4 then if TOwner(11)=0 then ToTerritory:=11;  //Peru
-if saterr<4 then if TOwner(13)=0 then ToTerritory:=13;  //Argentina
-end;
-
-
-if ((TOwner(31)=0) and 
-  ((TOwner(39)=PMe) or (TOwner(40)=PMe) or (TOwner(41)=PMe) or (TOwner(42)=PMe))) 
-    then ToTerritory:=31;  //Try Siam if some Australia territory is owned
-    
-
-
-
-CAnalysis(6,PT2,PA2,ET2,EA2); //Try Australia first if players>2
-
-if ((TOwner(39)=PMe) or (TOwner(40)=PMe) or (TOwner(41)=PMe) or (TOwner(42)=PMe)) then UBufferSet(50, 66);
-
-If NOT (TrySouthAmericaFirst and (SPlayersCount<4)) then
-If (NOT (
-(
-((PProgram(TOwner(39))=PProgram(PMe)) and (TOwner(39)<>PMe)) or
-((PProgram(TOwner(40))=PProgram(PMe)) and (TOwner(40)<>PMe)) or
-((PProgram(TOwner(41))=PProgram(PMe)) and (TOwner(41)<>PMe)) or
-((PProgram(TOwner(42))=PProgram(PMe)) and (TOwner(42)<>PMe)) 
-) and PutApart )
-) then
-begin
-If ET2<3 then 
-  If ( (TOwner(39)=0) and ((TOwner(40)=PMe) or (TOwner(41)=PMe) or (TOwner(42)=PMe)) ) then ToTerritory:=39; 
-
-If SPlayersCount>2 then If ET2<4 then If TOwner(39)=0 then ToTerritory:=39;
-If SPlayersCount>2 then If ET2<4 then If TOwner(42)=0 then ToTerritory:=42;
-If SPlayersCount>2 then If ET2<4 then If TOwner(40)=0 then ToTerritory:=40;
-If SPlayersCount>2 then If ET2<4 then If TOwner(41)=0 then ToTerritory:=41; 
-end;
-
-//Try First South America
-If TrySouthAmericaFirst then
-If (NOT (
-(
-((PProgram(TOwner(10))=PProgram(PMe)) and (TOwner(10)<>PMe)) or
-((PProgram(TOwner(11))=PProgram(PMe)) and (TOwner(11)<>PMe)) or
-((PProgram(TOwner(12))=PProgram(PMe)) and (TOwner(12)<>PMe)) or
-((PProgram(TOwner(13))=PProgram(PMe)) and (TOwner(13)<>PMe)) 
-) and PutApart )
-) then
-Begin
-If TOwner(12)=0 then ToTerritory:=12;  //Brazil
-If TOwner(10)=0 then ToTerritory:=10;  //Venezuela
-If TOwner(11)=0 then ToTerritory:=11;  //Peru
-If TOwner(13)=0 then ToTerritory:=13;  //Argentina
-end;
-
-
-end; //Bypass
-////umessage('ToTerritory ', ToTerritory, ' Bypass ',Bypass);
-
-If ((UBufferGet(10)<0) or (UBufferGet(32)=1)) and (SPlayersCount=3) then
-Begin
-I:=ToTerritory;
-ToTerritory:=0;
-  T:=1;
-  repeat
-    if TOwner(T)=0 then
-      ToTerritory:=T;
-    T:=T+1;
-  until (ToTerritory>0) or (T>42);
-  
-  If (T>14) then ToTerritory:=I;
-end;
-end;
-
-
-procedure Placement(var ToTerritory: integer);
-var
-  EnemyC, EnemyT, T, T2, B, C, D, Diff, BestDiff: integer;
-  PT, PA, ET, EA, X, Y, AnyAttack: integer;
-  A1, A2, R: boolean;
-  A,J,PT2,PA2,ET2,EA2,PT3,PA3,ET3,EA3,W,LP,LT,LA,PlayerStrong,AsiaRelease,Danger: integer;
-  SMALL, ALLFRONTS, ONEFRONTS, CBONUS, MINARMIES: integer;
-  Ratio,MaxRatio: double;
-  FORCE, NEWRATIO: double;
-  Reinforce, BypassRelease, ProtectAustralia, Bubble: Boolean;
-  
-
-//### wyrm
-
-begin
-  //if UBufferGet(39)>2 then begin  //Playing as Wyrm
-  
-  // PLACEMENT:  defines ToTerritory (where 1 army will be placed)
-  // 1) make sure ANY attack is possible
-  // 2) reinforce existing continents
-  // 3) make sure desired attack is possible
-  // 4) beef up the target continent
-  // 5) take care of the rest of your territories
-
-
-  SMALL:=-9999;       // CONSTANTS SECTION
-  FORCE:=1.2;
-  MINARMIES:=5;
-  ALLFRONTS:=10;
-  ONEFRONTS:=1;
-  CBONUS:=12;          // bonus for reinforcing territories in current target continent
-  NEWRATIO:=0.5;      // %-age of new armies that can go towards an out-of-continent attack
-
-  ToTerritory:=0;
-  AnyAttack:=0;
-  for T:=1 to 42 do
-    begin
-      if TIsMine(T) then
-        begin
-          TWeakestFront(T,ET,EA);
-          if (TArmies(T)>trunc(MINARMIES+EA*FORCE)) then
-            AnyAttack:=1;
-        end;
-    end;
-
-  for C:=1 to 6 do // reinforce existing continents if necessary - to defend against STRONGEST front first
-    if (COwner(C)=PMe) and (ToTerritory=0) and (AnyAttack=1) then
-      begin
-        for B:=1 to CTerritoriesCount(C) do
-          begin
-            T:=CTerritory(C,B);
-            if TIsFront(T) then
-              begin
-                TStrongestFront(T,ET,EA);
-                if (double(TArmies(T))<(MINARMIES+EA*FORCE)) then // shortfall in my territory T
-                  if (ToTerritory=0) then ToTerritory:=T
-                  else if (TArmies(T)>TArmies(ToTerritory)) then ToTerritory:=T;
-              end;
-          end;
-      end;
-
-
-  EnemyC:=TargetCplacement(small);
-  EnemyT:=TargetTplacement(EnemyC, Small, Allfronts, onefronts, force);
-
-  if (EnemyT<>0) and (double(MyTPressure(EnemyT,ALLFRONTS))<((MINARMIES+TArmies(EnemyT)*FORCE))) then
-    begin
-      // continue to reinforce until attack is possible - put them all in strongest country
-      BestDiff:=SMALL;
-      for B:=1 to TBordersCount(EnemyT) do
-        begin
-          T:=TBorder(EnemyT,B);
-          Diff:=TArmies(T);
-          if TIsFront(T) and (Diff>BestDiff) then
-            begin
-              BestDiff:=Diff;
-              ToTerritory:=T;
-            end;
-        end;      
-    end;
-
-  if (ToTerritory=0) and (1=1) then // attack is already guaranteed.  beef up the target continent
-    begin
-      PT:=0;
-      PA:=0;
-      ET:=0;
-      EA:=0;
-      BestDiff:=SMALL;
-      CAnalysis(EnemyC, PT, PA, ET, EA);
-      if (double(PA-PT)<(MINARMIES+ET+EA*FORCE)) then
-        begin // place more armies in the continent so that you can capture the whole thing
-          for B:=1 to CTerritoriesCount(EnemyC) do
-            begin
-              T:=CTerritory(EnemyC,B);
-              Diff:=TArmies(T); // put in strongest
-              if (PNewArmies(PMe)>5) then
-                Diff:=-TArmies(T);  // but put in weakest front until 5 armies left
-              if TIsFront(T) and (Diff>BestDiff) then
-                begin
-                  ToTerritory:=T;
-                  BestDiff:=Diff;
-                end;
-            end;
-        end;
-    end;
-
-  for C:=1 to 6 do // reinforce existing continents if necessary - WEAKEST front first
-    if (COwner(C)=PMe) and (ToTerritory=0) then // if you own the continent and already have an attack
-      begin
-        for B:=1 to CTerritoriesCount(C) do
-          begin
-            T:=CTerritory(C,B);
-            if TIsFront(T) then
-              begin
-                TStrongestFront(T,ET,EA);
-                if (double(TArmies(T))<(EA*FORCE)) then
-                  if (ToTerritory=0) then ToTerritory:=T
-                  else if (TArmies(T)>TArmies(ToTerritory)) then ToTerritory:=T;
-              end;
-          end;
-      end;
-
-  TWeakestFront(EnemyT,ET,EA);
-  if (EnemyT<>0) and (ToTerritory=0) and (double(MyTPressure(EnemyT,ALLFRONTS))<(EA+MINARMIES+TArmies(EnemyT)*FORCE)) then
-    begin
-      // continue to reinforce until attack is possible - put them all in strongest country
-      BestDiff:=SMALL;
-      for B:=1 to TBordersCount(EnemyT) do
-        begin
-          T:=TBorder(EnemyT,B);
-          if TIsMine(T) and (TArmies(T)>BestDiff) then
-            begin
-              BestDiff:=TArmies(T);
-              ToTerritory:=T;
-            end;
-        end;      
-    end;
-
-
-  for C:=1 to 6 do // reinforce existing continents if necessary
-    if (COwner(C)=PMe) and (ToTerritory=0) then // if you own the continent and already have an attack
-      begin
-        for B:=1 to CTerritoriesCount(C) do
-          begin
-            T:=CTerritory(C,B);
-            if TIsFront(T) then
-              begin
-                if (double(TArmies(T))<(TPressure(T)*FORCE)) then
-                  if (ToTerritory=0) then ToTerritory:=T
-                  else if (TArmies(T)>TArmies(ToTerritory)) then ToTerritory:=T;
-              end;
-          end;
-      end;
-
-
-  if ToTerritory=0 then // attack is already guaranteed
-    begin
-      BestDiff:=SMALL;
-      for T:=1 to 42 do
-        begin
-          TWeakestFront(T,ET,EA);
-          Diff:=TArmies(T)+PNewArmies(PMe)-EA; // worthwhile to fortify this one?
-          if (TContinent(T)=EnemyC) then
-            Diff:=1; // but always worthwhile fortifying your target continent
-          if TIsFront(T) and (Diff>0) then 
-            begin  // territory is mine and front and can be made stronger than the weakest front
-              Diff:=TPressure(T)-TArmies(T);
-              if TIsBordering(T,EnemyT) then
-                Diff:=TPressure(T)+(TArmies(T) div 8); // avoid fortifying around a country you're about to take
-              if (TContinent(T)=EnemyC) then
-                Diff:=Diff+CBONUS;
-//              //If UBufferGet(15) then //umessage('Territory ',T,' is worthy of fortification with Pressure - Armies + Bonus of ',Diff);
-              if (Diff>BestDiff) then
-                begin
-                  ToTerritory:=T;
-                  BestDiff:=Diff;
-                end;
-            end;
-        end;
-    end;
-    
-    //#################################
-    
-    If UBufferGet(14)<>1 then CONTROL_PANEL;
-
-begin
-
-UBufferSet(10,0);
-//Says the number of players and TotalArmies
-A:=0;
-B:=0;
-    R:=False;
-    PlayerStrong:=0;
-    For J:=1 to 10 do
-    If PTerritoriesCount(J)>0 then
-    Begin
-
-If PTerritoriesCount(J)>0 then D:=D+1;
-
-B:=B+PArmiesCount(J);
-
-if palive(J) then if ( pos('australian', lowercase(PProgram(J))) > 0 ) then UBufferSet(10,-J);
- 
-     A1:=False; 
-     A2:=False;
-     If J<>PMe then
-     If NOT R then
-     For C:=1 to 6 do
-      Begin
-       If A1 then A2:=True;
-       If COwner(C)=J then A1:=True else A1:=False;
-       If (A2 and A1 ) then Begin R:=True; PlayerStrong:=J; C:=6; end;
-      end;
- 
-    end;
-    
-    If R then UBufferSet(37, 1) else UbufferSet(37, 0);
-    If R then UBufferSet(36, PlayerStrong) else UBufferSet(36, 0); //What player have more than one continent
-UBufferSet(39,D);
-UBufferSet(49,B);
-
-////umessage(' TotalArmies ', UBufferGet(49), ' number of players ', UBufferGet(39), ' PlayerStrong ', UBufferGet(36));
-    
-  
-If PHuman(COwner(6)) then UBufferSet(10,-COwner(6));
-
-//Detect accumulator
-If false then
-If UBufferGet(10)=0 then
- For J:=1 to 42 do 
-  Begin
-   If (PArmiesCount(TOwner(J))>25) and (PTerritoriesCount(TOwner(J))<5) and (TOwner(J)<>PMe) then UBufferSet(10,TOwner(J));
-  end;
-
-
-    CAnalysis(5,PT,PA,ET,EA);
-    Reinforce:=NOT ( ((COwner(6)=PMe) and (PT>10) and (EA<20)) or (R=True) );
-    //If ((COwner(1)<>PMe) and (COwner(1)<>0)) then Reinforce:=False;
-    
-     A:=0;
- For J:=1 to 38 do 
- Begin
- C:=-16;
- If TContinent(J)=5 then C:=0 else If (TContinent(J)=4) or (TContinent(J)=3) or (J<6) then C:=-10;
- 
- If ( (TArmies(J)+C>A) and (NOT TIsMine(J)) ) then 
- Begin 
- A:=TArmies(J); 
- T:=J; 
- end;
- end;
-
-
-ProtectAustralia:=False;
-Danger:=0;
-If COwner(6)=PMe then
-Begin 
- If TContinent(T)=5 then C:=0 else C:=16;
- If (TContinent(T)=4) or (TContinent(T)=3) then C:=10;
- J:=0;
- If UBufferGet(36)<>0 then
-  If (COwner(4)=trunc(UBufferGet(36))) or (COwner(3)=trunc(UBufferGet(36))) and TIsMine(27) then J:=1+trunc(URandom(4));
- If TOwner(T)=-(trunc(UBufferGet(10))) then C:=C-8+J;
- If TIsMine(31) then A:=TArmies(31) else A:=1;
-If ((TArmies(T)>=TArmies(39)+A+C+J) and (COwner(6)=PMe) ) then ProtectAustralia:=True;
-If (TArmies(30)+TArmies(32)>TArmies(31)-6) and (TOwner(30)=TOwner(32)) then ProtectAustralia:=True;
-If (TContinent(T)=5) and (TArmies(T)-TArmies(39)-A >15) then Danger:=T;
-If (UBufferGet(10)<0) then
-  if (TOwner(T)=-(trunc(UBufferGet(10)))) and 
-    (TArmies(T)-TArmies(39)-A-1 >0) then Danger:=T;
-If (UBufferGet(39)=2) and (Not TIsFront(31)) then
- Begin
- Danger:=0;
- ProtectAustralia:=False;
- end;
-end;
-
-
-
-If UBufferGet(39)>3 then 
-Begin //>3
-       
-
-IF Reinforce or ProtectAustralia then Begin //Reinforce#1      
-       //Leave some armies on China 
-       If ((PT>3) and (PT<8) and (COwner(6)=PMe)) then 
-       begin
-       If ( (PArmiesCount(PMe)>40) and TIsMine(32) and (TArmies(32)<6) and ((NOT TIsMine(33)) or (NOT TIsMine(29))) ) then ToTerritory:=32;
-       If ( (PArmiesCount(PMe)>40) and TIsMine(30) and (TArmies(30)<2) ) then ToTerritory:=30;
-       end;
-       
-       
-       //Leave some armies in Mongolia 
-       If ((ToTerritory<>35) and (ToTerritory<>36) and (ToTerritory<>38)) then
-       If ( (UBufferGet(36)=0) and //##0==ok
-            (not TIsMine(37)) and 
-             TIsMine(33) and 
-             (TArmies(33)<7) and 
-             (UBufferGet(10)=0)
-           ) then ToTerritory:=33;
-
-     //Prefer China instead India to invade Asia
-     If UBufferGet(39)>3 then
-     If  ((TIsMine(31)=True) and 
-          (TIsMine(30)=True) and 
-          (TIsMine(32)=True) and 
-          (COwner(6)=PMe) and
-          (TArmies(30)>3) and
-          (TArmies(32)<16) and
-          (PT=3)) then ToTerritory:=32;
- 
-           
-           
-       //Put armies in S.A. if it isn't mine
-       CAnalysis(2,PT,PA,ET,EA);
-       If PT>0 then
-       If (UBufferGet(39)>2) then
-       If (UBufferGet(39)>4) or ((COwner(6)=PMe) and (PTerritoriesCount(PMe)>16)) or (COwner(6)<>PMe) or (COwner(1)=PMe) then
-       Begin
-       
-       CAnalysis(5,PT2,PA2,ET2,EA2);
-       If (((PA<2*EA) or (PA<30)) and ((PT2<6) or (UBufferGet(32)=1)) ) then
-       Begin
-       If ((COwner(2)<>PMe) and (TContinent(ToTerritory)<>2)) and TIsMine(11) then ToTerritory:=11;
-       If ((COwner(2)<>PMe) and (TContinent(ToTerritory)<>2)) and TIsMine(13) then ToTerritory:=13;
-       If ((COwner(2)<>PMe) or ((UBufferGet(32)=1) and (TContinent(ToTerritory)>2))) and TIsMine(12) then ToTerritory:=12;
-       If ((COwner(2)<>PMe) or ((UBufferGet(32)=1) and (TContinent(ToTerritory)>2))) and TIsMine(10) then ToTerritory:=10;
-       end;
-       end;
-       
-         
-      //Brazil 2
-     If (COwner(2)=PMe) then 
-     begin
-     If (COwner(1)=PMe) then C:=0 else C:=4;
-     If ((COwner(1)=PMe) and (TArmies(1)>TArmies(37)+12)) then C:=4;
-     If ((TArmies(12)<20) and ((TArmies(12)<TArmies(14)+8+(C div 2)) OR (UBufferGet(39)>4))) then ToTerritory:=12;
-     If ((TArmies(10)<6+C) and (TArmies(12)>11) ) then ToTerritory:=10; 
-     If (TArmies(12)<10) then ToTerritory:=12;
-     If ((TArmies(10)<6) and (TArmies(12)>11)) then ToTerritory:=10;
-     If ((TArmies(10)<4) and (TArmies(12)>6) and (TArmies(12)>TArmies(14)+3) ) then ToTerritory:=10;
-     If ((TArmies(12)<4)) then ToTerritory:=12;
-     end;
-      
-            
-    //Fill Indonesia with 4 armies#
-    If ((TArmies(39)<2) and (COwner(6)=PMe) and (UBufferGet(45)<>0)) then 
-     Begin
-     ToTerritory:=39;
-     UBufferSet(41, 0);
-     end;
- 
-
-If ProtectAustralia then 
-If UBufferGet(39)>3 then
-Begin
-
-      //Protect Siam with one more armie
-      If (Reinforce or (TArmies(31)<10)) then
-      If ( TIsMine(31) and (COwner(6)=PMe) and (TArmies(31)<16) and (UBufferGet(45)=0) ) then 
-       Begin
-        ToTerritory:=31;
-        UBufferSet(45, 1);
-        //If UBufferGet(15) then //umessage('Armie placed in Siam ' );
-       end
-      else
-       UBufferSet(45, 2);
-       
-       If TIsMine(39) then ToTerritory:=39;
-       If TIsMine(31) then ToTerritory:=31;
-
-end;//Protect Australia   
-
-      //Try Fill Koryak with 8 if Asia is mine 
-      If ( TIsMine(37) and 
-          (TArmies(37)<8) and 
-          (NOT (COwner(1)=PMe)) and
-          (COwner(5)=PMe) ) then  //Asia is mine
-       Begin
-        ToTerritory:=37;
-        PT:=777;
-        //If UBufferGet(15) then //umessage('Fill Koryak with 8');
-       end;
-       
-end;  //Reinforce#1   
-
-
-     CAnalysis(5,PT,PA,ET,EA);
-     If PT=11 then
-     Begin 
-     
-     If (TContinent(ToTerritory)=5) and (ToTerritory<>31) then
-     Begin
-     TStrongestFront(ToTerritory,ET2,EA2);
-     If (TArmies(ToTerritory)>EA2+10) or (UBufferGet(36)=0) then A:=234;
-     end;
-
-//Put in Asia before putting on Europe or Africa or South America
-If ((A=234) or (TContinent(Toterritory)=2) or (TContinent(Toterritory)=3) or (TContinent(Toterritory)=4)) then
-Begin
-B:=0;
-C:=0;
-  For T:=27 to 38 do //Find what is not mine
-   begin 
-    If (TIsMine(T)=False) then B:=T;
-    If TIsBordering(B,T) and (B<>0) and TIsMine(T) and (TArmies(T)>TArmies(C)) then C:=T;
-   end;
-
-If TIsMine(C) then ToTerritory:=C;
-If TIsBordering(B,37) and TIsMine(37) then ToTerritory:=37;
-end;
-
-end; //pt=11
-     
-     //Protect Koryak with one more armie 
-      If ( TIsMine(37) and 
-          (TArmies(37)<8) and 
-          (NOT (COwner(1)=PMe)) and
-          (UBufferGet(44)=0) and
-          (PT>7) and 
-          (TArmies(39)>9) ) then  //Indonesia secured
-       Begin
-        ToTerritory:=37;
-        UBufferSet(44, 1);
-        //If UBufferGet(15) then //umessage('Armie placed in Koryak');
-       end;
-       
-
-
-
-      //Try Fill Koryak with 10+T if Asia is mine and Koryak was already filled with 8
-      If ( TIsMine(37) and 
-          ((TIsMine(1)=False) or(TIsMine(1) and (TArmies(1)<20))) and 
-          ((TArmies(37)<14) OR ((NOT TIsMine(1)) and (TArmies(37)-TArmies(1)<10))) and 
-          (NOT (COwner(1)=PMe)) and
-          (TArmies(37)>7) and
-          (PT<>777) and
-          (COwner(5)=PMe) ) then
-       Begin
-        ToTerritory:=37;
-        //If UBufferGet(15) then //umessage('Fill Koryak with 14');
-       end;
-       
-If UBufferGet(36)<>0 then
-If (Danger=0) or (trunc(UBufferGet(36))=TOwner(Danger)) or (ToTerritory<>31) then 
-Begin
-     //Put everything in India if someone have 2 continents 
-     If ( (UBufferGet(36)>0) and 
-           TIsMine(30) and 
-          (TArmies(30)<14) and
-    ( ((COwner(3)<>0) and (COwner(3)=UBufferGet(36))) OR 
-      ((COwner(4)<>0) and (COwner(4)=UBufferGet(36))) ) and 
-      (TIsMine(27)=False) and 
-      (TIsMine(29)=False) ) then ToTerritory:=30;
-      
-     //Put everything in Kazakhstan if someone have 2 continents (one being EU or AF and M.E. not mine)
-     If ( (UBufferGet(36)>0) and (TIsMine(29)=True) and (TArmies(29)<14) and
-    ( ((COwner(3)<>0) and (COwner(3)=UBufferGet(36))) OR 
-      ((COwner(4)<>0) and (COwner(4)=UBufferGet(36))) ) and 
-      (TIsMine(27)=False) ) then ToTerritory:=29;
-
-
-     //Put everything in Middle East if someone have 2 continents (one being EU or AF)
-If UBufferGet(36)<>0 then
-Begin
-
-If (COwner(4)=0) then
- Begin
- A:=0;
- If ( (COwner(3)<>0) and (COwner(3)<>PMe) and (TArmies(26)<=TArmies(22)) ) then Begin A:=TArmies(26); T:=26; end;
- If ( (COwner(3)<>0) and (COwner(3)<>PMe) and (TArmies(22)< TArmies(26)) ) then Begin A:=TArmies(22); T:=22; end;
- end;
- 
-If (COwner(3)=0) then
- Begin
- B:=0;
- If ( (COwner(4)<>0) and (COwner(4)<>PMe) and (TArmies(16)<=TArmies(15)) ) then Begin B:=TArmies(16); T2:=16; end;
- If ( (COwner(4)<>0) and (COwner(4)<>PMe) and (TArmies(15)< TArmies(16)) ) then Begin B:=TArmies(15); T2:=15; end;
- end;
- 
-
-     If ( TIsMine(27) and (TArmies(27)<A+B+8) and
-     ((COwner(3)=trunc(UBufferGet(36))) OR (COwner(4)=trunc(UBufferGet(36))))
-      ) then ToTerritory:=27;
-
-end;
-end;
-
-      //Do not permit placements in Africa, Europe and Asia if you hold South America
-      //(Permit put on Asia if you hold Australia too)
-      If (COwner(6)=PMe) then C:=4 else C:=5;
-      If PTerritoriesCount(PMe)<22 then
-      If ( Not ((COwner(5)=PMe) and (COwner(6)=PMe)) ) then
-      If ( (((TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4) or (TContinent(ToTerritory)=C)) and (COwner(2)=PMe) and (PArmiesCount(PMe)<200)) OR
-           ((ToTerritory=12) and (Tarmies(12)>(trunc(1.2*Tarmies(14)+10))) and (Tarmies(12)>36)) ) then 
-      Begin
-      If TIsMine(3) then ToTerritory:=3;
-      If TIsMine(1) then ToTerritory:=1;
-      If TIsMine(10) then ToTerritory:=10;
-      If TIsMine(9) then ToTerritory:=9;
-      If TIsMine(4) then ToTerritory:=4;
-      If TIsMine(6) then ToTerritory:=6;
-      If TIsMine(8) then ToTerritory:=8;
-      If TIsMine(7) then ToTerritory:=7;
-      If TIsMine(5) then ToTerritory:=5;
-      
-      If (COwner(1)=PMe) then
-      Begin
-      If (COwner(2)=PMe) then ToTerritory:=3;
-      If (COwner(2)=PMe) then ToTerritory:=1;
-      If ((TArmies(3)<32)) then ToTerritory:=3;
-      If ((TArmies(1)<32)) then ToTerritory:=1;
-      If ((TArmies(3)<12)) then ToTerritory:=3;
-      If ((TArmies(1)<12)) then ToTerritory:=1;
-      If ((double(TArmies(3))<(1.2*TArmies(20)+4)) and (Not TisMine(20))) then ToTerritory:=3;
-      If ((double(TArmies(1))<(1.3*TArmies(37)+6)) and (Not TisMine(37))) then ToTerritory:=1;
-      If ((TArmies(3)<4)) then ToTerritory:=3;
-      If ((TArmies(1)<6)) then ToTerritory:=1;
-      end;
-      
-      If (TIsMine(14) and (TArmies(14)<4)) then ToTerritory:=14;
-      CAnalysis(2,PT,PA,ET,EA);
-      If ((TArmies(12)<30) and TIsMine(12) and (PA<40)) then ToTerritory:=12;
-      If ((TArmies(12)<10) and TIsMine(12)) then ToTerritory:=12;
-      end;
-   
-      //Do not weaken these 
-      If ( (PArmiesCount(PMe)>130) and (TArmies(3)<12) and (COwner(1)=PMe) ) then ToTerritory:=3;
-      If ( (PArmiesCount(PMe)>130) and (TArmies(1)<12) and (COwner(1)=PMe) ) then ToTerritory:=1;
-   
-      //Basic N.A. Protection
-      If (COwner(2)=PMe) then
-      If ( (((TArmies(12)>35) and (TArmies(12)>TArmies(14))) or (TArmies(12)>TArmies(14)+16)) ) then
-      Begin
-      If (TIsMine(3) and (TArmies(3)<22) and (COwner(1)=PMe)) then ToTerritory:=3;
-      If (TIsMine(1) and (TArmies(1)<32) and (COwner(1)=PMe)) then ToTerritory:=1;
-      If (TIsMine(3) and (TArmies(3)<16) and (COwner(1)=PMe)) then ToTerritory:=3;
-      If (TIsMine(1) and (TArmies(1)<24) and (COwner(1)=PMe)) then ToTerritory:=1;
-      If (TIsMine(3) and (TArmies(3)<10) and (COwner(1)=PMe)) then ToTerritory:=3;
-      If (TIsMine(1) and (TArmies(1)<16) and (COwner(1)=PMe)) then ToTerritory:=1;
-      If (TIsMine(3) and (double(TArmies(3))<(1.2*TArmies(20)+2)) and (Not TisMine(20))) then ToTerritory:=3;
-      If (TIsMine(1) and (double(TArmies(1))<(1.3*TArmies(37)+4)) and (Not TisMine(37))) then ToTerritory:=1;
-      If (TIsMine(3) and (TArmies(3)<4)) then ToTerritory:=3;
-      If (TIsMine(1) and (TArmies(1)<6)) then ToTerritory:=1;
-      end;
-      If ((COwner(2)=PMe) and (TArmies(12)>=20) and (TArmies(12)>TArmies(14))) then
-      Begin
-      If (TIsMine(3) and (TArmies(3)<6) and (COwner(1)=PMe)) then ToTerritory:=3;
-      If (TIsMine(1) and (TArmies(1)<12) and (COwner(1)=PMe)) then ToTerritory:=1;
-      end;
-      
-      If TArmies(9)>20 then C:=5 else C:=0;
-      //Fortify Alaska instead Greenland if necessary
-      If ((TArmies(1)<TArmies(37)+5+C) and (TIsMine(37)=False) and (COwner(1)=PMe) and ((ToTerritory=3) or ((ToTerritory=9) and (TArmies(9)>TArmies(10)+6))) and (TArmies(3)>TArmies(20)+3)) then  ToTerritory:=1;
-   
-      //Fortify Greenland instead Alaska if necessary
-      If ((TArmies(3)<TArmies(20)+5+C) and (TIsMine(20)=False) and (COwner(1)=PMe) and ((ToTerritory=1) or ((ToTerritory=9) and (TArmies(9)>TArmies(10)+6))) and (TArmies(1)>TArmies(37)+10)) then  ToTerritory:=3;
-   
-     //Put everything in Brazil if enemy is heavy on North Africa
-     If ((COwner(2)=PMe) and ((COwner(1)=0) or (COwner(1)=PMe)) and (TIsMine(14)=False) and (TArmies(12)<TArmies(14)+2)) then ToTerritory:=12;
-      
-     //Attack Mexico
-      CAnalysis(1,PT,PA,ET,EA);
-      If ((ET<=2) and (TIsMine(9)=False) and TIsMine(8) and ((TArmies(9)<30) or (PNewArmies(PMe)+TArmies(7)+TArmies(8)>TArmies(9)))) then ToTerritory:=8; 
-      If ((ET<=2) and (TIsMine(9)=False) and TIsMine(7) and ((TArmies(9)<30) or (PNewArmies(PMe)+TArmies(7)+TArmies(8)>TArmies(9)))) then ToTerritory:=7;
-     
-     //Put everything in Northwest Territory if someone got in North America
-     if TIsMine(2) then //and (TArmies(2)<EA+4*ET) 
-      If ((ET<=2) and ((TIsMine(1)=False) or (TIsMine(3)=False)) and ((TArmies(12)>TArmies(14)) or TIsMine(14) or (TIsMine(12)=False)) ) then ToTerritory:=2; 
-    
-     //UBufferGet(43)= initial PNewArmies
-     If (UBufferGet(43)=0) then UBufferSet(43, PNewArmies(PMe));
-     
-
-    
-    //If Asia occupied try put in Alaska 
-If( (COwner(5)<>0) and (COwner(5)=trunc(UBufferGet(36))) and TIsMine(1) and (TArmies(1)<6+TArmies(37) ) ) then ToTerritory:=1;
-    
-       If (COwner(5)=PMe) then
-       Begin
-       //Fortify comquered Asia
-       If ((COwner(5)=PMe) and (TArmies(27)<14)) then ToTerritory:=27;
-       If ((COwner(5)=PMe) and (TArmies(28)<8)) then ToTerritory:=28;
-       If ((COwner(5)=PMe) and (TArmies(29)<8)) then ToTerritory:=29;
-       If ((COwner(5)=PMe) and (TArmies(27)<10)) then ToTerritory:=27;
-       If ((COwner(5)=PMe) and (NOT (COwner(1)=PMe)) and (TArmies(37)<8)) then ToTerritory:=37;
-
-       //Mimimum reinforcement in Asia
-       If ((COwner(5)=PMe) and (TArmies(28)<4)) then ToTerritory:=28;
-       If ((COwner(5)=PMe) and (TArmies(29)<4)) then ToTerritory:=29;
-       If ((COwner(5)=PMe) and (TArmies(37)<4)) then ToTerritory:=37;
-       If ((COwner(5)=PMe) and (TArmies(27)<6)) then ToTerritory:=27;
-       end;
-
-If ((TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4)) then
-Begin
-If UBufferGet(39)>4 then 
-Begin
-       //Fortify Asia/Aust before putting something on Europe or Africa if Players>4
-       If ((TArmies(28)<10) and TIsMine(28)) then ToTerritory:=28;
-       If ((TArmies(29)<12) and TIsMine(29)) then ToTerritory:=29;
-       If ((TArmies(27)<20) and TIsMine(27)) then ToTerritory:=27;
-       If ((TArmies(28)<8) and TIsMine(28)) then ToTerritory:=28;
-       If ((TArmies(37)<18) and TIsMine(37) and (NOT (COwner(1)=PMe))) then ToTerritory:=37;
-       If ((TArmies(39)<12) and (COwner(5)=0) and TIsMine(39)) then ToTerritory:=39;
-       If ((TArmies(31)<10) and (COwner(5)=0) and (UBufferGet(36)=0) and TIsMine(31)) then ToTerritory:=31;
-       If (((TContinent(ToTerritory)=4)) and (COwner(5)=0) and (TArmies(33)<10) and TIsMine(33)) then ToTerritory:=33;
-       
-       end;  
-
-       If ((TArmies(27)<4) and TIsMine(27)) then ToTerritory:=27;
-       If ((TArmies(29)<4) and TIsMine(29)) then ToTerritory:=29;
-       If ((TArmies(28)<4) and TIsMine(28)) then ToTerritory:=28;
-       If ((TArmies(37)<4) and TIsMine(37)) then ToTerritory:=37; 
-end;
-
-     CAnalysis(2,PT2,PA2,ET2,EA2);
-     If (UBufferGet(32)=0) or (PT2=0) or (PTerritoriesCount(PMe)>12) then
-Begin//##
-     //Prepare to attack Siam from India if China not mine
-     If (((TIsMine(31)=False) and 
-         (TIsMine(39)=False) and 
-         (TIsMine(40)=False) and 
-         (TIsMine(41)=False) and 
-         (TIsMine(42)=False)) and
-         (TArmies(31)+ TArmies(39)<(trunc(UBufferGet(43))+TArmies(30)) ) and
-         (TIsMine(30)=True)) then 
-       ToTerritory:=30;
-
-    //Prepare to attack Siam from China  (#concentrate in kazak)  
-    If ( ((TArmies(32)>TArmies(30)) and TIsMine(30)) or (TIsMine(30)=False) ) then
-     If ((
-         (TIsMine(31)=False) and 
-         (TIsMine(39)=False) and 
-         (TIsMine(40)=False) and 
-         (TIsMine(41)=False) and 
-         (TIsMine(42)=False)) and
-         (TArmies(31)+ TArmies(39)+TArmies(40)+TArmies(41)+TArmies(42)-3<(trunc(UBufferGet(43))+TArmies(32)) ) and
-          TIsMine(32) ) then 
-          ToTerritory:=32;
-     
-    
-    //Prepare to attack Indonesia from Siam
-    CAnalysis(6,PT,PA,ET,EA);
-      If ( TIsMine(31) and 
-           (PT=0) and
-           (COwner(6)<>PMe) and 
-           (TArmies(31)+PNewArmies(PMe)>=TArmies(39)+TArmies(40)+TArmies(41)-4) and
-           (TArmies(31)<TArmies(39)+TArmies(40)+TArmies(41)+TArmies(42)+6)
-          ) then 
-        ToTerritory:=31;
-        
-CAnalysis(6,PT,PA,ET,EA);
-If PT=0 then
-Begin
-     //Fortify China to conquest Australia
-     If (  TIsMine(32) and 
-          (TIsMine(31)=False) and 
-          (((TArmies(32)>TArmies(30)) and TIsMine(30)) or (TIsMine(30)=False)) and
-          (TArmies(32)+PNewArmies(PMe)>TArmies(31)+TArmies(39)+TArmies(40))
-         ) then ToTerritory:=32;
-     
-          //Fortify India to conquest Australia
-     If (  TIsMine(30) and 
-          (TIsMine(31)=False) and 
-          (((TArmies(30)>=TArmies(32)) and TIsMine(32)) or (TIsMine(32)=False)) and
-          (TArmies(30)+PNewArmies(PMe)>TArmies(31)+TArmies(39)+TArmies(40))
-         ) then ToTerritory:=30;
-
-          //Fortify Siam to conquest Australia
-     If (  TIsMine(31) and 
-          (TArmies(31)+PNewArmies(PMe)>TArmies(39)+TArmies(40)+TArmies(41)+TArmies(42)-4)
-         ) then ToTerritory:=31;
-end;
-
-end;//##
-
-end; //>3
-  
-  
-//Case specific Players=3
- If UBufferGet(39)=3 then
-Begin
-CAnalysis(5,PT,PA,ET,EA);
-CAnalysis(1,PT2,PA2,ET2,EA2);
-
-
-If NOT ((UBufferGet(39)>4) or ((COwner(6)=PMe) and (PTerritoriesCount(PMe)>16)) or (COwner(6)<>PMe) or (COwner(1)=PMe)) then
-      If (TContinent(ToTerritory)=2) then
-      If UBufferGet(32)=0 then
-       Begin
-       //umessage(' larica ', ToTerritory);
-       If TIsFront(33) then ToTerritory:=33;
-       If TIsFront(27) then ToTerritory:=27;
-       If TIsFront(32) then ToTerritory:=32;
-       If TIsFront(30) then ToTerritory:=30;
-       If TIsFront(31) then ToTerritory:=31;
-       If TIsFront(39) then ToTerritory:=39;
-       If (TContinent(ToTerritory)=2) then ToTerritory:=0;
-       end;
-
-
-       If ((TArmies(31)<4) and (PNewArmies(PMe)>8) and (COwner(6)=PMe) and TIsMine(31)) then ToTerritory:=31;
-       
-If ( (TContinent(ToTerritory)<>5) and (TContinent(ToTerritory)<>1) ) then
-Begin
-
-       If (((TContinent(ToTerritory)=3) and (COwner(6)=PMe)) and (TArmies(33)<4) and TIsMine(33)) then ToTerritory:=33;
-       If (((TContinent(ToTerritory)=3)) and (TArmies(37)<6) and TIsMine(37)) then ToTerritory:=37;
-       
-//if c2 not mine
-       If (((TContinent(ToTerritory)=2) or (TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4)) and (TArmies(32)<2) and (PT>4) and (PT<9) and TIsMine(32)) then ToTerritory:=32;
-       If (((TContinent(ToTerritory)=2) or (TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4)) and (TArmies(30)<2) and (PT>4) and (PT<9) and TIsMine(30)) then ToTerritory:=30;
-       If (((TContinent(ToTerritory)=2) or (TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4)) and (TArmies(33)<6) and (TArmies(33)+TArmies(35)+TArmies(36)+TArmies(38)<11) and (PT>4) and (PT<9) and TIsMine(33)) then ToTerritory:=33; 
-       If ( (TContinent(ToTerritory)<>5) and (TArmies(27)<16) and TIsMine(27) and (PT>10)) then ToTerritory:=27;
-       If (((TContinent(ToTerritory)=2) or (TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4)) and (TArmies(37)<4) and TIsMine(37) and (TIsFront(37) or (NOT TIsMine(27))) ) then ToTerritory:=37;
-       If (((TContinent(ToTerritory)=2) or (TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4)) and (TArmies(29)<6) and (PT>4) and TIsMine(29)) then ToTerritory:=29; 
-       If (((TContinent(ToTerritory)=2) or (TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4)) and (TArmies(28)<6) and (PT>4) and TIsMine(28)) then ToTerritory:=28;  
-       If ( (TContinent(ToTerritory)<>5)  and (TArmies(27)<12) and TIsMine(27) and (PT>9)) then ToTerritory:=27;
-end;
-
-
-       If ((TArmies(39)<TArmies(31)) and (TIsMine(31)=False) and (COwner(6)=PMe)) then ToTerritory:=39;
-       If TIsMine(1) then C:=9 else C:=8+TArmies(1); 
-       If ((COwner(5)=PMe) and (NOT (COwner(1)=PMe)) and (TArmies(37)<C)) then ToTerritory:=37;
-       If ((COwner(5)=PMe) and (TArmies(27)<10)) then ToTerritory:=27;
-       If ((COwner(5)=PMe) and (TArmies(28)<4)) then ToTerritory:=28;
-       If ((COwner(5)=PMe) and (TArmies(29)<4)) then ToTerritory:=29;
-       If ((PT>9) and (TArmies(33)<2) and TIsMine(33)) then ToTerritory:=33;
-       If ((COwner(5)=PMe) and (TArmies(37)<4)) then ToTerritory:=37;
-       If ((COwner(5)=PMe) and (TArmies(27)<4)) then ToTerritory:=27;
-       
-       If ((COwner(2)=PMe) and (TArmies(12)<4)) then ToTerritory:=12;
-       
-       If (PT<9) and (EA2<16) and (PT2<8) then
-       If (TContinent(ToTerritory)<>6) and (ToTerritory<>31) then
-       Begin
-       If TIsMine(1) and ((NOT TIsMine(2)) or (NOT TIsMine(4))) then T:=1;
-       If TIsMine(7) and TIsFront(7)then T:=7;
-       If TIsMine(8) and TIsFront(8)then T:=8;
-       If TIsMine(6) and TIsFront(6) then T:=6;
-       If TIsMine(4) and TIsFront(4) then T:=4;
-       If TIsMine(2) and TIsFront(2) then T:=2;
-       If TIsMine(5) and TIsFront(5) then T:=5;
-       If ( ((TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=2)) and TIsMine(T) ) then ToTerritory:=T;
-       end;
-
-If ( (COwner(2)=PMe) and (TArmies(12)<TArmies(14)+2) and (Not TIsMine(14)) ) then ToTerritory:=12;
-
-
-      If (UBufferGet(10)<>0) and (COwner(6)=-(trunc(UBufferGet(10)))) then C:=6 else C:=0;
-      If ToTerritory=12 then
-      If (COwner(1)=PMe) and (COwner(2)=PMe) then
-      If TArmies(12)-TArmies(14)>20 then C:= round((TArmies(12)-TArmies(14)-15)/3);  //#*# used round instead of trunc calculations using c will be slightly different than in ver 1.2 too complicated to fix
-
-      If (COwner(1)=PMe) then
-      Begin
-      If (TOwner(20)=COwner(6)) and (NOT (TOwner(1)=COwner(6))) then C:=C+3;
-      If (COwner(3)<>PMe) then
-       If ((double(TArmies(3))<(1.2*TArmies(20)+5+C)) and ((Not TisMine(20)) or (TArmies(3)<20))) then ToTerritory:=3;
-      If TOwner(37)=COwner(6) then C:=C+3;
-      If (COwner(5)<>PMe) then 
-       if TIsMine(20) or (TArmies(3)>TArmies(20)+1) then
-        If ((double(TArmies(1))<(1.3*TArmies(37)+6+C)) and ((Not TisMine(37)) or (TArmies(1)<20))) then ToTerritory:=1;
-      If ((TArmies(3)<6)) then ToTerritory:=3;
-      If ((TArmies(1)<6)) then ToTerritory:=1;
-      If ((TArmies(3)<4)) then ToTerritory:=3;
-      If ((TArmies(1)<4)) then ToTerritory:=1;
-      //umessage('n.a. put ', ToTerritory); 
-      end;
-       
-If (UBufferGet(36)=0) or (Danger<>0) then //##00 ok
-Begin
-       If ProtectAustralia and TIsMine(39) then ToTerritory:=39;
-       If ProtectAustralia and TIsMine(31) then ToTerritory:=31;
-end;
-
-If (UBufferGet(36)<>0) then
-If (Danger=0) or 
-((trunc(UBufferGet(36))=TOwner(Danger)) and 
-      ( (PArmiesCount(-(trunc(UBufferGet(10))))<TArmies(31)) or (ToTerritory<>31) or (TArmies(31)<35) )) or 
-(ToTerritory<>31) then 
-Begin
-     //Put everything in India if someone have 2 continents
-     If (  (UBufferGet(36)<>0) and 
-           TIsMine(30) and 
-          (TArmies(30)<10) and
-    ( ((COwner(3)<>0) and (COwner(3)=trunc(UBufferGet(36)))) OR 
-      ((COwner(4)<>0) and (COwner(4)=trunc(UBufferGet(36)))) ) and 
-      (TIsMine(27)=False) and 
-      (TIsMine(29)=False) ) then ToTerritory:=30;
-      
-     //Put everything in Kazakhstan if someone have 2 continents (one being EU or AF and M.E. not mine)
-     If ( (UBufferGet(36)<>0) and (TIsMine(29)=True) and (TArmies(29)<10) and
-    ( ((COwner(3)<>0) and (COwner(3)=trunc(UBufferGet(36)))) OR 
-      ((COwner(4)<>0) and (COwner(4)=trunc(UBufferGet(36)))) ) and 
-      (TIsMine(27)=False) ) then ToTerritory:=29;
-      
-
-       //Put armies in SA c1 occupied
-If (COwner(1)<>0) and (COwner(1)<>PMe) and (ToTerritory<>10) then //or UBufferGet(32)
-Begin
-       CAnalysis(2,PT,PA,ET,EA);
-       CAnalysis(1,PT2,PA2,ET2,EA2);
-       CLeader(6,LP,LT,LA);
-       If NOT ((LT>0) and (UBufferGet(39)=3)) then
-       If ( ((double(PA)<(1.5*EA+2)) and ((COwner(5)=PMe) or (LP<>PMe)) and (PT2<5)) or 
-            ((PProgram(LP)=PProgram(PMe)) and (LP<>PMe)) ) then
-       Begin
-       //umessage( 'Put armies in SA c1 occupied');
-       If ((COwner(2)<>PMe) and ( ((TContinent(ToTerritory)<>2) ) ) and TIsMine(11)) then ToTerritory:=11;
-       If ((COwner(2)<>PMe) and ( ((TContinent(ToTerritory)<>2) ) ) and TIsMine(13)) then ToTerritory:=13;
-       If ((COwner(2)<>PMe) and ( ((TContinent(ToTerritory)<>2) ) ) and TIsMine(12)) then ToTerritory:=12;
-       If ((COwner(2)<>PMe) and ( ((TContinent(ToTerritory)<>2) ) ) and TIsMine(10)) then ToTerritory:=10;
-       end;
-end;
-
-
-     //Put in Siam to atack EU or Af
-    If UBufferGet(39)=3 then
-     If (COwner(1)=0) and TIsMine(31) then
-      If (COwner(3)=trunc(UBufferGet(36))) or (COwner(4)=trunc(UBufferGet(36))) then
-       If (NOT TIsMine(27)) and (NOT TIsMine(28)) and (NOT TIsMine(29)) and (NOT TIsMine(30)) then
-        If (TContinent(ToTerritory)<>1) and (TContinent(ToTerritory)<>4) and (TContinent(ToTerritory)<>2) then
-         ToTerritory:=31;  
-
-     //Put everything in Middle East if someone have 2 continents (one being EU or AF)
-If (COwner(3)=trunc(UBufferGet(36))) or (COwner(4)=trunc(UBufferGet(36))) and (UBufferGet(36)<>0) then
-Begin//one rule
-A:=0;
-If (COwner(4)=0) then
- Begin
- If ( (COwner(3)<>0) and (COwner(3)<>PMe) and (TArmies(26)<=TArmies(22)) ) then Begin A:=TArmies(26); T:=26; end;
- If ( (COwner(3)<>0) and (COwner(3)<>PMe) and (TArmies(22)< TArmies(26)) ) then Begin A:=TArmies(22); T:=22; end;
- end;
- 
- Begin
- B:=0;
- If ( (COwner(4)<>0) and (COwner(4)<>PMe) and (TArmies(16)<=TArmies(15)) ) then Begin B:=TArmies(16); T2:=16; end;
- If ( (COwner(4)<>0) and (COwner(4)<>PMe) and (TArmies(15)< TArmies(16)) ) then Begin B:=TArmies(15); T2:=15; end;
- end;
-
-     If ( (TIsMine(27)=True) and (TArmies(27)<A+B+8) and
-    ( ((COwner(3)<>0) and (COwner(3)=trunc(UBufferGet(36)))) OR 
-      ((COwner(4)<>0) and (COwner(4)=trunc(UBufferGet(36)))) )
-      ) then ToTerritory:=27;
-      
-end;//one rule
-
-end;
-
-    //Prepare to attack Indonesia from Siam
-If (COwner(6)<>PMe) then
-If TIsMine(31) then
-If (UBufferGet(39)>2) then
-Begin
-    CAnalysis(6,PT,PA,ET,EA);
-      If ( 
-           (PT=0) and
-           (TArmies(31)+PNewArmies(PMe)>=TArmies(39)+TArmies(40)+TArmies(41)-4) and
-           (TArmies(31)<TArmies(39)+TArmies(40)+TArmies(41)+TArmies(42)+6)
-          ) then ToTerritory:=31;
-end;
-
-
-end; //Players=3
-
-//Let the bubble with few players under extreme weakness
-If UBufferGet(10)<0 then
-If (UBufferGet(8)=0) and (UBufferGet(9)=0) then
-Begin
-If (UBufferGet(39)=3) then
-If PTerritoriesCount(PMe)<1+trunc(UBufferGet(39)) then
- If (-(trunc(UBufferGet(10)))=COwner(6)) then UBufferSet(33, 0);
-
- If (UBufferGet(39)=4) then UBufferSet(33, 0);
-end;
-
-//N.A. invasion
-If COwner(TContinent(ToTerritory))<>PMe then
-If (TContinent(ToTerritory)<>1) and (TContinent(ToTerritory)<>6) then
-If ToTerritory<>31 then
-If UBufferGet(30)=0 then
-Begin
-
-A:=1;
-For T:=1 to 9 do
- If Not TIsMine(T) then Begin C:=T; T:=9; end;
-For T:=C+1 to 9 do
- If (Not TIsMine(T)) and (TOwner(C)<>TOwner(T)) then Begin A:=2; T:=9; end;
-
-If A=1 then C:=12 else C:=8;
-
-If COwner(6)<>PMe then
-Begin
-B:=0;
-If TIsMine(30) then B:=TArmies(30);
-If TIsMine(32) then B:=TArmies(32)+B;
-If ((ToTerritory=30) or (ToTerritory=32)) and (PNewArmies(PMe)+B+1>TArmies(31)+TArmies(39)) then C:=-1000;
-end;
-
-CAnalysis(1,PT,PA,ET,EA);
-CAnalysis(TContinent(ToTerritory),PT2,PA2,ET2,EA2);
-
-If (PT<7) and (PT2 + ET2 > 0) then  // added (PT2 + ET2 > 0) to prevent divide by zero bug, Nathan Scarbrough 6-9-10 #*#
-If (((double(PA2)+PT2)/(double(PA2)+PT2+EA2+PA2)<0.7) and (double(PT2)/(double(PT2)+ET2)<0.7)) or 
-((TContinent(ToTerritory)=5) and ((COwner(6)=-(trunc(UBufferGet(10)))) or (COwner(6)=trunc(UBufferGet(10)))))
-then
-If EA+ET-(PT+PA+PNewArmies(PMe)-3)<C then
-Begin
-//umessage('N.A. Invasion ', ToTerritory ); 
-If TIsFront(9) then ToTerritory:=9;
-If TIsFront(1) and ((Not TIsMine(2)) or (Not TIsMine(4))) then ToTerritory:=1;
-If TIsFront(3) and ((Not TIsMine(2)) or (Not TIsMine(5)) or (Not TIsMine(6))) then ToTerritory:=3;
-If TIsFront(8) then ToTerritory:=8;
-If TIsFront(7) then ToTerritory:=7;
-If TIsFront(6) then ToTerritory:=6;
-If TIsFront(4) then ToTerritory:=4;
-If TIsFront(2) then ToTerritory:=2;
-If TIsFront(5) then ToTerritory:=5;
-
-If (COwner(3)<>0) and TIsFront(3) then ToTerritory:=3;
-
-end;
-
-end;
-
-
-end;//>2
-
-     UBufferSet(46, 0); //Test Ukrania if occupant is strong
-     UBufferSet(47, 0); //Test Egypt if occupant is strong
-     
-
-//ANY PLAYERS
-
-
-//Put in 37 given this situation #
-If TIsMine(37) then
-If ((ToTerritory=35) or (ToTerritory=36) or (ToTerritory=38) or (ToTerritory=33)) then 
-Begin
-CAnalysis(5,PT,PA,ET,EA);
-     If (PT>=10) and (PT<12) then
-      If ((TFrontsCount(37)>=1) or ((TFrontsCount(37)=3) and (NOT TIsMine(1)))) then 
-        If NOT (TIsMine(33) and TIsMine(35) and TIsMine(36) and TIsMine(38)) then ToTerritory:=37;
-end;
-
-//Fortify N.A. a bit 
-If (COwner(1)=PMe) then 
-begin
-CAnalysis(2,PT,PA,ET,EA);
-If UBufferGet(39)>2 then If ((TArmies(1)<6) and (COwner(1)=PMe) and (COwner(3)<>PMe)) then ToTerritory:=1;
-If UBufferGet(39)>2 then If ((TArmies(3)<6) and (COwner(1)=PMe) and (COwner(3)<>PMe)) then ToTerritory:=3;
-
-If PT>1 then C:=6 else C:=12;
-If UBufferGet(39)=2 then C:=4;
-If ((TArmies(9)<C) and TIsFront(9) and (COwner(1)=PMe) and (COwner(2)<>PMe)) then ToTerritory:=9;
-If ((TArmies(1)<4) and (COwner(1)=PMe) and (COwner(3)<>PMe)) then ToTerritory:=1;
-If ((TArmies(3)<4) and (COwner(1)=PMe) and (COwner(3)<>PMe)) then ToTerritory:=3;
-If ((TArmies(9)<4) and (COwner(1)=PMe) and (COwner(2)<>PMe)) then ToTerritory:=9;
-
-If UBufferGet(39)>2 then
-If  (
-(TArmies(3)>trunc(1.5*TArmies(20))) and 
-(TArmies(3)>30) and
-(TArmies(1)>trunc(1.5*TArmies(37))) and 
-(TArmies(1)>34) and
-((ToTerritory=3) or (ToTerritory=1)) 
-) then
-Begin 
-If (COwner(6)=-UBufferGet(10)) or (UBufferGet(10)>0) then C:=6;
-If TArmies(2)<8+C then ToTerritory:=2;
-
-If ( (TArmies(10)<20) and 
-      TIsMine(10) and
-     (TArmies(7)+TArmies(8)+TArmies(9)<20) ) then ToTerritory:=10;
-
-If TArmies(2)<8 then ToTerritory:=2;
-If TArmies(6)<4 then ToTerritory:=6;
-If TArmies(5)<4 then ToTerritory:=5;
-If TArmies(4)<4 then ToTerritory:=4;
-end;
-
-end;
-
-
-     //Swap ToTerritory= 35 to 37/27 #
-     If (ToTerritory=35) then
-     If ( (COwner(5)=PMe) and 
-          (TArmies(35)>3) 
-         ) then 
-Begin
-If (COwner(1)<>PMe) and (TArmies(37)<20) then ToTerritory:=37;
-         
-  If URandom(0)>0.3 then
-Begin
-  MaxRatio:=0;
-  for T:=1 to 42 do begin
-    if TIsFront(T) and TIsMine(T) then begin  // territory is mine and front
-      Ratio :=TPressure(T) / TArmies(T);
-      if Ratio>MaxRatio then begin
-        ToTerritory:=T;
-        MaxRatio:=Ratio;
-      end;
-    end;
-  end;
-end;
-
-CAnalysis(1,PT,PA,ET,EA);
-If (URandom(0)>0.3) and (PT>7) and TIsFront(27) and (TArmies(27)<20) then ToTerritory:=27;
-         
-end;
-
-
-       //Protect with 2 S.A. territories#
-       CAnalysis(2,PT,PA,ET,EA);
-       If ((EA>3) and (PT<>4)) or (UBufferGet(32)=1) then 
-       Begin
-       If ((UBufferGet(39)=2) or (UBufferGet(32)=1)) then If ((TArmies(10)=1) and TIsMine(10)) then ToTerritory:=10;
-       If (PT<>4) and ((UBufferGet(39)=2) or (UBufferGet(32)=1)) then If ((TArmies(11)=1) and TIsMine(11)) then ToTerritory:=11;
-       If (TArmies(12)=1) and TIsMine(12) then ToTerritory:=12;
-       If (PT<>4) and ((UBufferGet(39)=2) or (UBufferGet(32)=1)) then If ((TArmies(13)=1) and TIsMine(13)) then ToTerritory:=13;
-       end;
-
-
-     //Put armies in Northwest Territory if someone got in North America
-     If ((TContinent(ToTerritory)<>6) and (ToTerritory<>31)) then
-     Begin
-      CAnalysis(1,PT,PA,ET,EA);
-      If ((TArmies(7)<TArmies(9)+2) and TIsMine(7) and (NOT TIsMine(9)) and (PT>6) and (COwner(2)<>PMe) and ((COwner(5)=0) or (COwner(5)=PMe)) ) then  
-      Begin
-      ToTerritory:=7;
-      If (NOT TIsMine(9)) and (TArmies(8)<4) and (TArmies(9)>12) and (PT=8) and (TArmies(7)+TArmies(8)+PNewArmies(PMe)<TArmies(9)) then ToTerritory:=8;
-      //If (NOT TIsMine(9)) and (PT=8) and (TArmies(9)>30) and (URandom(0)>0.5) and (TArmies(7)+TArmies(8)+PNewArmies(PMe)<TArmies(9)) then ToTerritory:=8;
-      end;
-      
-      If (ET<=2) then 
-       If ((TArmies(12)>TArmies(14)) or TIsMine(14) or (TIsMine(12)=False)) then
-      Begin
-      If ((ET<=2) and ((TIsMine(1)=False) or (TIsMine(3)=False)) and TIsMine(2) and (TArmies(2)<=TArmies(1)+TArmies(3)+1)) then ToTerritory:=2;
-      
-      If ET=1 then
-      Begin
-      If UBufferGet(39)>2 then If ((ET=1) and (TIsMine(1)=False) and (TArmies(2)>=TArmies(4))) then ToTerritory:=2;
-      If ((ET=1) and (TIsMine(1)=False) and (TArmies(4)>TArmies(2))) then ToTerritory:=4;
-      If ((ET=1) and (TIsMine(1)=False) and (TArmies(2)<4) and (TArmies(1)>12)) and (TArmies(2)+TArmies(4)+PNewArmies(PMe)<TArmies(1)) then ToTerritory:=2;
-      If ((ET=1) and (TIsMine(1)=False) and (TArmies(4)<4) and (TArmies(1)>12)) and (TArmies(2)+TArmies(4)+PNewArmies(PMe)<TArmies(1)) then ToTerritory:=4;
-
-      If ((ET=1) and (TIsMine(3)=False) and (TArmies(2)>=TArmies(5)) and (TArmies(2)>=TArmies(6))) then ToTerritory:=2; 
-      If ((ET=1) and (TIsMine(3)=False) and (TArmies(5)>TArmies(2)) and (TArmies(5)>=TArmies(6))) then ToTerritory:=5;
-      If ((ET=1) and (TIsMine(3)=False) and (TArmies(6)>TArmies(2)) and (TArmies(6)>TArmies(5))) then ToTerritory:=6;
-      If ((ET=1) and (TIsMine(3)=False) and (TArmies(2)<4) and (TArmies(3)>12) and (TArmies(2)+TArmies(5)+TArmies(6)+PNewArmies(PMe)-2<TArmies(3)) ) then ToTerritory:=2;
-      If ((ET=1) and (TIsMine(3)=False) and (TArmies(5)<4) and (TArmies(3)>12) and (PNewArmies(PMe)+TArmies(5)+TArmies(6)+TArmies(2)-2<TArmies(3)) ) then ToTerritory:=5;
-      If ((ET=1) and (TIsMine(3)=False) and (TArmies(6)<4) and (TArmies(3)>12) and (PNewArmies(PMe)+TArmies(5)+TArmies(6)+TArmies(2)-2<TArmies(3)) ) then ToTerritory:=6;
-      end;//et=1
-      end;
-      end;
-
-If (Danger=0) or (COwner(1)=TOwner(Danger)) then 
-Begin//danger=0
-
-
-//Put armies to attack North America#
-If (TIsMine(37)=False) then
-Begin
-CAnalysis(5,PT,PA,ET,EA);
-If (((TOwner(1)=COwner(1)) and (COwner(1)<>PMe)) or (PT=11)) then
-If (COwner(1)=trunc(UBufferGet(36))) or ((UBufferGet(36)=0) and (UBufferGet(39)<6)) then //##ok
-Begin
-
-If TIsMine(33) then A:=TArmies(33) else A:=0;
-If TIsMine(35) then B:=TArmies(35) else B:=0;
-If TIsMine(36) then C:=TArmies(36) else C:=0;
-If TIsMine(38) then D:=TArmies(38) else D:=0;
-T:=33;
-//If ( (A>=B) and (A>=C) and (A>=D) ) then T:=33;
-If ( (B>A) and (B>=C) and (B>=D) ) then T:=35;
-If ( (C>A) and (C>B) and (C>=D) ) then T:=36;
-If ( (D>A) and (D>B) and (D>C) ) then T:=38;
-
-If COwner(1)=trunc(UBufferGet(36)) then X:=12 else X:=4;
-
-     If ( TIsMine(T) and 
-          ( (COwner(1)=TOwner(37)) or (TArmies(37)<14) ) and 
-          (TArmies(T)<=TArmies(37)+TArmies(1)+X)
-         ) then ToTerritory:=T;
-end;
-end;
-
-
-     //Put N+X on Koryak if someone have North America #
-     If ((COwner(1)=trunc(UBufferGet(36))) and (trunc(UBufferGet(36))<>0)) then X:=12 else X:=8;
-     If ( TIsMine(37) and 
-          (TArmies(37)<=TArmies(1)+X) and
-          (COwner(1)<>0) and 
-          (COwner(1)<>PMe) and
-          ( (trunc(UBufferGet(36))=TOwner(1)) or ((PTerritoriesCount(TOwner(1))>9+trunc(UBufferGet(39))) and (trunc(UBufferGet(36))=0)) ) //##ok
-         ) then 
-         If NOT ( 
-   (ToTerritory=27) and (double(PNewArmies(PMe)+TArmies(37))<(0.8*TArmies(1))) and
-   (COwner(4)=COwner(1)) and 
-   ((PNewArmies(PMe)+TArmies(27)>TArmies(16)) or (PNewArmies(PMe)+TArmies(27)>TArmies(15))) 
-   ) then ToTerritory:=37;
-
-     //Put in Venezuela if PNewArmies can get in North America #
-     if TIsMine(10) then
-     If (NOT TIsMine(37)) or (TArmies(37)-TArmies(1)<TArmies(10)-TArmies(9)) then
-     If ( (COwner(1)<>0) and (COwner(1)<>PMe) and (TArmies(10)<=TArmies(9)+3) and (TArmies(10)+PNewArmies(PMe)>=TArmies(9)) ) then ToTerritory:=10;
-
-end; //Danger
-
-If UBufferGet(39)>2 then
-Begin
-
-     //Put everything on Indonesia if enemy is heavy on Siam
-     If ((COwner(6)=PMe) and (TIsMine(31)=False) and (double(TArmies(39))<(1.4*TArmies(31)+7))) then ToTerritory:=39;
-
-     //Put everything on Siam if enemy is heavy on China
-     If ((COwner(6)=PMe) and (TIsMine(32)=False) and (TIsMine(31)=True) and (TArmies(31)+TArmies(39)<TArmies(32)+12)) then ToTerritory:=31;
-
-end; //>2
-
-     //Put armies in Australia if it isn't mine 
-If COwner(6)<>PMe then
-Begin
-CAnalysis(6,PT,PA,ET,EA);
-
-If PT>0 then
-Begin 
-
-IF ((PA<EA+4) and (PA<6)) or (UBufferGet(39)>2) then 
-If UBufferGet(32)=0 then
-If (NOT ((PT=3) and (PA>EA+3+4) and (UBufferGet(39)<4)) ) then
-Begin
-
-       If ( (PT=3) and (NOT (TIsMine(40) and TIsMine(42))) ) then ToTerritory:=39;
-       If (( ((TContinent(ToTerritory)<>6) ) ) and TIsMine(42)) then ToTerritory:=42;
-       If (( ((TContinent(ToTerritory)<>6) ) ) and TIsMine(40)) then ToTerritory:=40;
-       If (( ((TContinent(ToTerritory)<>6) ) ) and TIsMine(39)) then ToTerritory:=39;
-       If (( ((TContinent(ToTerritory)<>6) ) ) and TIsMine(41)) then ToTerritory:=41;
-       If TIsMine(40) and TIsMine(41) and TIsMine(42) and TIsMine(31) and (NOT TIsMine(39)) then ToTerritory:=31;
-end;
-
-If (UBufferGet(39)>2) then
- If (PA>EA+7) and (TContinent(ToTerritory)=6) then
-  Begin
-   ToTerritory:=0;
-   If TIsMine(31) and (TArmies(31)<8) then ToTerritory:=31;
-  end;
-
-end;
-end;
-
-       
-       //Die hard in Asia
-       If UBufferGet(12)<30 then
-       If (COwner(6)<>PMe) and (UBufferGet(30)=0) then
-       Begin
-       CAnalysis(5,PT,PA,ET,EA);
-       If PA<3 then
-       Begin
-       B:=0;
-       For T:=21 to 38 do If TIsMine(T) then If ((B=0) or (NOT ((T=37) and (B>27)))) then  B:=T;
-       If ((TArmies(B)<2) and TIsMine(B)) then 
-        if PTerritoriesCount(PMe)<6 then ToTerritory:=B;
-       UBufferSet(12,UBufferGet(12)+1);
-       end;
-       end;
-
-
-       //Protect with 2 Australia territories
-       CAnalysis(6,PT,PA,ET,EA);
-       If (((EA>3) and (UBufferGet(30)=1)) or ((EA>3) and (EA>PNewArmies(PMe)+PA))) then
-       If (PT>1) or (UBufferGet(32)=0) then
-       Begin
-       If ((COwner(6)<>PMe) and (TArmies(39)=1) and TIsMine(39)) then ToTerritory:=39;
-       If ((COwner(6)<>PMe) and (TArmies(40)=1) and TIsMine(40)) then ToTerritory:=40;
-       If ((COwner(6)<>PMe) and (TArmies(41)=1) and TIsMine(41) and ((Not TIsMine(40)) or (Not TIsMine(42))) ) then ToTerritory:=41;
-       If ((COwner(6)<>PMe) and (TArmies(42)=1) and TIsMine(42)) then ToTerritory:=42;
-       end;
-
-If PTerritoriesCount(-(trunc(UBufferGet(10))))=1 then
-If (COwner(6)=PMe) then
-If (UBufferGet(36)=0) or (((double(PArmiesCount(trunc(UBufferGet(36))))/UBufferGet(49))<0.4) and (COwner(6)=PMe)) then
-For T:=39 downto 1 do
-If TOwner(T)=-(trunc(UBufferGet(10))) then
- Begin
- TPStrongestBorder(T, PMe, PT,PA);
- If PT<>0 then
-  If (PA+PNewArmies(PMe)>TArmies(T)) and (PA-TArmies(T)<9) then ToTerritory:=PT;
- T:=1;
- If (ToTerritory=31) and (UBufferGet(25)=1) then Danger:=T;
- //umessage('directed attack ', ToTerritory);
- end;
-
-   
-If UBufferGet(39)=3 then C:=4 else C:=2;
-If (UBufferGet(39)<4) then
- If (TFrontsCount(ToTerritory)=1) then
-  If TArmies(ToTerritory)>TArmies(TFront(ToTerritory,1))+C then
-   If TFront(TFront(ToTerritory,1),1)<=0 then
-    For T:=42 DOWNTO 1 do
- If TIsFront(T) then
-  If (T<>ToTerritory) and (Not TIsBordering(T, TFront(ToTerritory,1))) then 
-Begin
-//umessage('ToTerritory ',ToTerritory, ' T  ', T);
-ToTerritory:=T;
-T:=1;
-end;
-
-//Kill crazy bub
-If (not TIsMine(trunc(UBufferGet(6)))) or (TArmies(trunc(UBufferGet(6)))<3) then UBufferSet(6,0);
-
-
-    
-If UBufferGet(33)=0 then
-Begin//KillBubble
-
-//Reset if the Bubble was killed
- If (TIsMine(trunc(UBufferGet(20)))=False) then 
- Begin 
- UBufferSet(24,0);
- UBufferSet(25,0); 
- end;
- 
-CAnalysis(1,PT,PA,ET,EA);
-If (PA+2*PT<EA+ET) then Bubble:=True else Bubble:=False;
-If ((PA>20) and (EA<30)) then Bubble:=False;
-
-CAnalysis(6,PT,PA,ET,EA);
-CAnalysis(5,PT2,PA2,ET2,EA2);
-CAnalysis(2,PT3,PA3,ET3,EA3);
-
-If UBufferGet(10)<0 then C:=1 else C:=20;
-If UBufferGet(10)<0 then D:=1 else D:=0;
-
-//If (PArmiesCount(PMe)<40) then
-
-If ( (UBufferGet(25)=0) and Bubble) then 
-If (PTerritoriesCount(trunc(UBufferGet(36)))<20) or (COwner(6)=-(trunc(UBufferGet(10)))) then 
- If ( 
-     ((PA=0) and (PA3<5) and (PT3<2) and (UBufferGet(30)=0) and (PT2<5) and (PTerritoriesCount(PMe)<6) and (UBufferGet(39)>3))
-  OR ((COwner(6)=PMe) and TIsMine(31) and (PT3<=2*D) and (PT2>1) and (PT2<5+D) and (PA2-TArmies(31)<EA2-C) and (PTerritoriesCount(PMe)<8+2*D) and (((UBufferGet(36)=0) and (EA2>25)) or (UBufferGet(10)<0)) )
-  OR ((PA=0) and (PA3=0) and (UBufferGet(30)=0) and (PTerritoriesCount(PMe)<5) and (PArmiesCount(PMe)<20))
-  OR (((PA=0) or (UBufferGet(32)=1)) and (COwner(2)=PMe) and (COwner(1)=0) and (TArmies(12)>7) and (TArmies(10)>5) and (PTerritoriesCount(PMe)>4) and (PTerritoriesCount(PMe)<11))
-   ) then 
- Begin  //?????
- UBufferSet(25,1); //Frank in Bubble Mode
- 
- If (
-     ((PT=0) and (PT2=0) and (UBufferGet(24)=0)) or (Cowner(2)=PMe)
-    ) then 
-  Begin
-  W:=1;
-  UBufferSet(24,1);
-  end
-  else W:=27; 
-
- B:=0; 
- For T:=W to 38 do 
- Begin
-  If T=31 then
-   if COwner(6)=PMe then T:=32;
-  If (T>9) and (T<13) and (COwner(2)=PMe) then T:=14;
-  
-  If TIsMine(T) then
-   If TArmies(T)>TArmies(B) then B:=T; //Choose the territory
- end;
- 
-   If (PT=0) and (B>0) then
-   For T:=1 to 26 do
-    If TIsMine(T) and (TArmies(T)>TArmies(B)+15) then Begin B:=T; UBufferSet(24,1); end;
- 
- If COwner(2)=PMe then
-  Begin
-  If TIsMine(3) and (TArmies(B)-TArmies(3)<2) then B:=3;
-  If TIsMine(9) and (TArmies(B)-TArmies(9)<2) then B:=9;
-  If TIsMine(8) and (TArmies(B)-TArmies(8)<2) then B:=8;
-  If TIsMine(7) and (TArmies(B)-TArmies(7)<2) then B:=7;
-  If TIsMine(4) and (TArmies(B)-TArmies(4)<2) then B:=4;
-  If TIsMine(2) and (TArmies(B)-TArmies(2)<2) then B:=2;
-  If TIsMine(5) and (TArmies(B)-TArmies(5)<2) then B:=5;
-  end;
-  
- UBufferSet(20,B);
- ////If UBufferGet(15) then 
- //umessage('BUBBLE MODE ACTIVATED, BUBBLE= ',UBufferGet(20));
- If B=0 then Begin UBufferSet(25,0); UBufferSet(24,0); end;
- 
- end;//?
-
-   
-
-
-//Any Bubble Release
-If ((UBufferGet(25)=1) and (UBufferGet(36)<>0)) then
-If COwner(6)<>-(trunc(UBufferGet(10))) then
-If 
-(
-(
-
-( (COwner(5)=trunc(UBufferGet(36))) and (TContinent(trunc(UBufferGet(20)))<>2) and ((COwner(5)=-(trunc(UBufferGet(10)))) or (UBufferGet(10)>=0)) ) OR
-
-( (TContinent(trunc(UBufferGet(20)))=5) and 
-  (COwner(6)=PMe) and
-  (PTerritoriesCount(trunc(UBufferGet(36)))>18) or
- ((COwner(4)=trunc(UBufferGet(36))) OR (COwner(3)=trunc(UBufferGet(36)))) ) OR
-
-//( (TContinent(trunc(UBufferGet(20)))=5) and
-//  (COwner(6)<>trunc(UBufferGet(36))) and  
-// ((COwner(4)=trunc(UBufferGet(36))) AND (COwner(3)=trunc(UBufferGet(36))) AND (COwner(6)<>COwner(3))) ) OR
-
-( (TContinent(trunc(UBufferGet(20)))=5) and (COwner(6)<>-(trunc(UBufferGet(10)))) and
-  (COwner(6)<>trunc(UBufferGet(36))) and 
- ((COwner(1)=trunc(UBufferGet(36))) AND (COwner(3)=trunc(UBufferGet(36)))) )
-
-) AND
-
-( ( (PArmiesCount(PMe)>60) or (TArmies(trunc(UBufferGet(20)))>24) ))
-
-)
-then
-Begin 
-UBufferSet(24,0);
-UBufferSet(25,0);
-////umessage(' Bubble Released - someone strong');
-end;
-
-If ((UBufferGet(25)=1) and (PT>0) and (PT<4)) then
-Begin 
-UBufferSet(24,0);
-UBufferSet(25,0);
-end;
-
-
-//Asia Bubble Release
-If ((UBufferGet(25)=1) and (UBufferGet(24)=0)) then
-Begin
-B:=200;
-If PArmiesCount(-(trunc(UBufferGet(10))))>30 then C:=15 else C:=0;
-If (COwner(6)=PMe) then B:=50+C+EA2-3*PT2;
-If ((COwner(6)=PMe) and (EA2<30) and (TArmies(trunc(UBufferGet(20)))>2*EA2) ) then B:=0;
-If ( TContinent(trunc(UBufferGet(20)))=6 ) then B:=EA; //Release if in Australia
-If (COwner(6)=-(trunc(UBufferGet(10)))) and (TContinent(trunc(UBufferGet(20)))=5) then B:=500;
-
-AsiaRelease:=B;
-end;
-
-
-//Release world Bubble
-If ( (UBufferGet(24)=1) and (UBufferGet(25)=1) ) THEN 
-Begin
-CAnalysis(TContinent(trunc(UBufferGet(20))),PT,PA,ET,EA);
-CAnalysis(1,PT2,PA2,ET2,EA2);
-     If (TContinent(trunc(UBufferGet(20)))=2) then J:=5 else J:=20;
-     If (TContinent(trunc(UBufferGet(20)))=1) and (EA2<25) then J:=5;
-     If ((TContinent(trunc(UBufferGet(20)))<>3) and (TContinent(trunc(UBufferGet(20)))<>4)) then B:=EA+J else B:=400;
-     If PA2>EA2+12 then B:=0;
-     If (PT2>6) and (COwner(2)=PMe) then B:=0;
-     If UBufferGet(39)<4 then J:=J-7;
-
-end;
-
-BypassRelease:=False;
-If (NOT ((UBufferGet(20)=30) or (UBufferGet(20)=32)) ) then
-If ((UBufferGet(24)=0) and (UBufferGet(25)=1)) then
-Begin
-CAnalysis(6,PT,PA,ET,EA);
-If ( NOT(PProgram(COwner(6))=PProgram(PMe))) and ((UBufferGet(29)=1) ) then //Cooperative
-IF ( ( (TArmies(trunc(UBufferGet(20)))>TArmies(31)+EA+10) and (COwner(6)<>PMe) ) OR
-     ( (b=31) and (TArmies(trunc(UBufferGet(20)))>EA+10) and (COwner(6)<>PMe) ) 
-    ) then BypassRelease:=True;
-end;
-
-//The Release
-If ( (TArmies(trunc(UBufferGet(20)))>B) and (UBufferGet(25)=1) and (BypassRelease=False)) then 
-Begin 
-UBufferSet(24,0);
-UBufferSet(25,0);
-
-
-end;
- 
-
- 
-
-//World Bubble 
-
-//Make the World Bubble an Asia bubble if it get in Asia
-If (TContinent(trunc(UBufferGet(20)))=5) then UBufferSet(24,0);
-
-//Make the Asia Bubble a World Bubble 
-If (UBufferGet(24)=0) then
-If (UBufferGet(25)=1) then
-Begin
-CAnalysis(TContinent(trunc(UBufferGet(20))),PT,PA,ET,EA);
-If ( (EA>100) and 
-     (UBufferGet(24)=0) and 
-     (COwner(6)<>0) and 
-     (COwner(6)<>PMe) ) then UBufferSet(24,1);
-
-If ((TContinent(trunc(UBufferGet(20)))<>5) and 
-    (TContinent(trunc(UBufferGet(20)))<>6)) then UBufferSet(24,1);
-    
-CLeader(5,LP,LT,LA);
-If (COwner(6)=LP) and (LT=11) and (LA>TArmies(trunc(UBufferGet(20)))+15) then UBufferSet(24,1);
-
-end;    
- 
-////umessage('W   ', W, '   UBufferGet(20) ', UBufferGet(20), '   UBufferGet(24) ', UBufferGet(24), '   UBufferGet(25) ', UBufferGet(25));
-
-
-
-//put in bubble
-If UBufferGet(25)=1 then
-begin
-If COwner(1)=trunc(UBufferGet(36)) then C:=15 else C:=10;
-////If UBufferGet(15) then //umessage('before Bubble ToTerritory=',ToTerritory);
- If (NOT (     ( ((ToTerritory=31) and ProtectAustralia) or 
-((ToTerritory=39) and ((TArmies(39)<TArmies(31)+15) or ProtectAustralia)) ) or
-              ( (((ToTerritory=37) and (TArmies(1)-TArmies(37)<C)) or (((ToTerritory=35) or (ToTerritory=36) or (ToTerritory=38)) and (TArmies(37)<C))) 
-              and 
-              ((Danger=0) or (COwner(1)=TOwner(Danger))) 
-              and
-              (((COwner(1)=trunc(UBufferGet(36))) and (UBufferGet(36)<>0)) 
-              OR ((COwner(1)<>0) and (PArmiesCount(COwner(1))>40) and (UBufferGet(36)=0))) )  //##=0 ok
-         )
-     ) then
-  Begin 
-  CLeader(2, T2,T,A);
-  If (T2=PMe) and (Not TIsMine(14)) and (TArmies(12)-TArmies(14)<10) then C:=7 else C:=12;
-  If (T2=PMe) and (Not TIsMine(9)) and (TArmies(10)-TArmies(9)<10) then C:=7;
-  If (T2=PMe) and (COwner(1)<>0) and (COwner(1)<>PMe) then C:=4;
-  If (T2<>PMe) or (TArmies(trunc(UBufferGet(20)))<C) then ToTerritory:=trunc(UBufferGet(20));
-  UBufferSet(21,0);
-  end;
-
-D:=20;
-For T:=38 DOWNTO 15 do
- If (TArmies(T)>20) then
- If Not TIsMine(T) then
- If (TArmies(T)<30) then
-  If (TOwner(T)=-(trunc(UBufferGet(10)))) or (T>=30) then 
-  Begin D:=TArmies(T); T:=15; end;
-  
-
-  //Bubble restraint
-  If TIsMine(31) then
-  If ToTerritory=trunc(UBufferGet(20)) then
-  //if TContinent(trunc(UBufferGet(20)))>2 then
-  If NOT ((ToTerritory=27) and (UBufferGet(36)<>0) and ((COwner(3)=trunc(UBufferGet(36))) or (COwner(4)=trunc(UBufferGet(36))))) then
-   If (COwner(6)=PMe) then
-    If (TArmies(trunc(UBufferGet(20)))>D+3) and (UBufferGet(10)<0) then Toterritory:=31;
-  
-  CLeader(2, T2,T,A);
-  If TArmies(31)>10 then C:=7 else C:=6;
-  If (UBufferGet(32)=1) and (T2=PMe) and (TArmies(12)>10) and (TArmies(10)>7) then C:=11;
-  If TIsMine(31) and (TArmies(31)<2) then C:=1;
-  If TArmies(trunc(UBufferGet(20)))<C then ToTerritory:=trunc(UBufferGet(20)); //Protects the bubble
-end;
-
-end; //KillBubble
-
-
-
-//#######Aust. - N.A. Attack  
-If TIsMine(31) then
-If COwner(6)=PMe then
-If (TArmies(31)>70-PTerritoriesCount(trunc(UBufferGet(36)))) or (UBufferGet(9)<>0) then
-If (NOT TIsMine(32)) and (NOT TIsMine(33)) and (NOT TIsMine(37)) and (NOT TIsMine(1)) then
-If (UBufferGet(10)<0) or ((PTerritoriesCount(COwner(1))>22) and (COwner(1)<>PMe)) then
-
-Begin
-CAnalysis(1,PT,PA,ET,EA);
-If ((COwner(1)<>0) and (trunc(UBufferGet(36))=COwner(1))) and (PArmiesCount(COwner(1))>60) 
-then C:=10+3*trunc(UBufferGet(39)) else C:=36+3*trunc(UBufferGet(39));
-If (PTerritoriesCount(COwner(1))>25) then C:=0;
-D:=0;
-If TOwner(20)=-(trunc(UBufferGet(10))) then D:=TArmies(20)-5;
-If TOwner(10)=-(trunc(UBufferGet(10))) then D:=TArmies(10)-5;
-
-
-if (double(TArmies(32))+TArmies(33)+TArmies(37)<(double(TArmies(31))/3)) or ((COwner(1)<>0) and (trunc(UBufferGet(36))=COwner(1))) then
- If TArmies(32)+TArmies(33)+TArmies(37)+TArmies(10)+TArmies(20)+EA+C-D<TArmies(31) then 
-Begin
-ToTerritory:=31;
-end;
-end;
-
-//######Aust. - S.A. Attack  
-If TIsMine(31) then
-If (TArmies(31)>50) or (UBufferGet(9)<>0) then
-If (NOT TIsMine(30)) and (NOT TIsMine(27)) and (NOT TIsMine(26)) then
-If ((COwner(4)=COwner(3)) and ((COwner(2)=COwner(1)) or (COwner(2)=COwner(3))) and (COwner(2)<>PMe) and (COwner(2)<>0) and (COwner(2)<>PMe)) then
-If PTerritoriesCount(COwner(2))>20 then 
-
-Begin
-CAnalysis(2,PT,PA,ET,EA);
-If PTerritoriesCount(COwner(2))>29 then C:=7 else C:=20;
-If TArmies(30)+TArmies(27)+TArmies(26)+TArmies(14)+EA<TArmies(31)-C-3*trunc(UBufferGet(39)) then
-Begin
-ToTerritory:=31;
-end;
-end;
-
-
-
-If (UBufferGet(9)=33) and TIsMine(32) then ToTerritory:=32;
-
-If (TIsMine(ToTerritory)=False) then
-begin
-//umessage('Placement BUG FOUND: Initial ToTerritory ',ToTerritory);
-//UBufferSet(15, 1);
-
-X:=0;
-For T:=1 to 42 do 
- If ((TArmies(T)>X) and TIsMine(T) and TIsFront(T)) then Begin Y:=T; X:=TArmies(T); end;
-ToTerritory:=Y;
-
-  If TIsMine(27) then ToTerritory:=27;
-  //umessage('Placement BUG FOUND: Final ToTerritory ',ToTerritory);
-end;
-
-////If UBufferGet(15) then //umessage('Final ToTerritory ',ToTerritory);
-
-end;  //Placement
-
-
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  EnemyC, T, T2, B, B2, C, Diff, BestDiff: integer;
-  PT, PA, ET, EA, X, Y, XX, YY: integer;
-  Ratio: double;
-  SMALL, ALLFRONTS, ONEFRONTS, CBONUS, MINARMIES: integer;
-  R, A2, A3: boolean;
-  a1,a4,PT2,PA2, EA2,ET2,J,A,D,PlayerStrong,W,LPa,LTa,LAa: integer;
-  FORCE, NEWRATIO: double;
-  NormalBubble, GO, BypassStruggler, BypassBubble, GOAsia, attack3: boolean;
-
-  
-
-  //STRUGGLER
-  F,FCount: integer;
-  Value,MaxValue: double;
-  Label Bubble1, TryAsia;
-
-begin 
-BypassStruggler:=False;
-begin //###Wyrm 
-
-  SMALL:=-9999;       // CONSTANTS SECTION
-  FORCE:=0.95;         // smaller FORCE than in PLACEMENT procedure to encourage attacks
-  MINARMIES:=2;
-  ALLFRONTS:=10;
-  ONEFRONTS:=1;
-  CBONUS:=5;          // bonus for reinforcing territories in current target continent
-  NEWRATIO:=0.5;      // %-age of new armies that can go towards an out-of-continent attack
-  
-  
-  //##############
-  //CAnalysis(5, PT, PA, ET, EA);
-  //If EA<10 then FORCE:=0.85 else FORCE:=0.95;
-  //#############
-  
-
-  EnemyC:=TargetCattack(small);
-  PT:=0;
-  PA:=0;
-  ET:=0;
-  EA:=0;
-  CAnalysis(EnemyC, PT, PA, ET, EA);
-
-  BestDiff:=0; // will hold maximum number of armies controlled by leading player B
-  for T:=1 to 10 do
-    if (PActive(T)) and (T<>PMe) then
-      if (PArmiesCount(T)>BestDiff) then
-        begin
-          BestDiff:=PArmiesCount(T);
-          B:=T;
-        end;
-
-
-  if ((PA-PT)>trunc((double(MINARMIES)+ET+EA)/FORCE)) or (not SConquest) or (COwner(EnemyC)>0) then
-    begin
-      ToTerritory:=TargetTattack(enemyc, small, allfronts, onefronts, force);
-      if (ToTerritory<>0) then
-        begin
-          // calculate the correct territory to attack from
-          // 1)  weakest 1-front if ToTerritory armies > 2, otherwise strongest 1-front
-          // 2)  highest TArmies-TPressure.  This may not be the best
-          BestDiff:=SMALL*5;
-          for B:=1 to TBordersCount(ToTerritory) do
-            begin
-              T:=TBorder(ToTerritory,B);
-              if TIsMine(T) and (TArmies(T)>1) and ((TArmies(T)>2) or (TArmies(ToTerritory)=1)) then // no attacks ever with 2 or less armies
-                begin
-                  Diff:=TArmies(T)-(TPressure(T) div 3); // stress armies more than pressure
-                  if (TArmies(T)<4) and (TArmies(ToTerritory)>1) then
-                    Diff:=Diff+SMALL*2; // discourage these attacks with less than 4 armies
-                  if (TFrontsCount(T)=1) then
-                    begin
-                      if (TArmies(ToTerritory)>2) then
-                        Diff:=Diff-SMALL-TArmies(T)*2  // weakest 1-front will be picked
-                      else
-                        Diff:=Diff-SMALL; // strongest 1-front will be picked
-                    end;
-                  if (Diff>BestDiff) then
-                    begin
-                      BestDiff:=Diff;
-                      FromTerritory:=T;
-                    end;
-                end;
-            end;
-          BestDiff:=(MyTPressure(ToTerritory,ALLFRONTS))-(TArmies(ToTerritory));
-          if (BestDiff<0) then
-            begin
-//              //If UBufferGet(15) then //umessage('About to abort an attack on target continent ',EnemyC,' from ',FromTerritory,' to ',ToTerritory,' with enemy armies ',TArmies(ToTerritory),' and MyTPressure ',MyTPressure(ToTerritory,ALLFRONTS),' for a total negative difference of ',BestDiff);
-//              //If UBufferGet(15) then //umessage('double checking - enemy armies ',TArmies(ToTerritory),' and MyTPressure ',MyTPressure(ToTerritory,ALLFRONTS),' for a total negative difference of ',BestDiff);
-              FromTerritory:=0; // abort attacks that won't work
-            end;
-        end;
-    end;
-    
-    
-    
-//#######ATTACK RULES 
-////If UBufferGet(15) then //umessage('INITIAL: ToTerritory:=',ToTerritory, '  FromTerritory:=', FromTerritory, '  SConquest= ', SConquest);
-
-
-
-//Says the number of players and TotalArmies and PlayerStrong
-UBufferSet(10,0);
-//A:=0;
-B:=0;
-    R:=False;
-    PlayerStrong:=0;
-    For J:=1 to 10 do
-    If PTerritoriesCount(J)>0 then
-    Begin
-
-If PTerritoriesCount(J)>0 then D:=D+1;
-
-B:=B+PArmiesCount(J);
-
-if palive(J) then if ( pos('australian', lowercase(PProgram(J))) > 0 ) then UBufferSet(10,-J);
- 
-     A3:=False; 
-     A2:=False;
-     If J<>PMe then
-     If NOT R then
-     For C:=1 to 6 do
-      Begin
-       If A3 then A2:=True;
-       If COwner(C)=J then A3:=True else A3:=False;
-       If (A2 and A3 ) then Begin R:=True; PlayerStrong:=J; C:=6; end;
-      end;
-    end;
-    
-    If R then UBufferSet(37, 1) else UBufferSet(37,0);
-    If R then UBufferSet(36, PlayerStrong) else UBufferSet(36, 0); 
-UBufferSet(39,D);
-UBufferSet(49,B);
-
-
-//Release world Bubble
-If (UBufferGet(25)=1) then
-Begin
-CAnalysis(TContinent(trunc(UBufferGet(20))),PT,PA,ET,EA);
-CAnalysis(1,PT2,PA2,ET2,EA2);
-If ( (UBufferGet(24)=1) and (UBufferGet(25)=1) ) THEN 
-Begin
-     B:=trunc(0.6*UBufferGet(49));
-     If (TContinent(trunc(UBufferGet(20)))=2) then J:=5 else J:=20;
-     If ((TContinent(trunc(UBufferGet(20)))<>3) and (TContinent(trunc(UBufferGet(20)))<>4) and (TContinent(trunc(UBufferGet(20)))<>5)) then B:=EA+J;      
-     If (COwner(6)=-(trunc(UBufferGet(10)))) and (TContinent(trunc(UBufferGet(20)))=5) then B:=500;
-     If (PA2>EA2+14) or (UBufferGet(39)=2) then B:=0;
-
-//The Release
-If ( (TArmies(trunc(UBufferGet(20)))>B) and (UBufferGet(25)=1) ) then 
-Begin 
-UBufferSet(24,0);
-UBufferSet(25,0);
-////umessage(' Bubble Released B= ', B);
-end;
-
-end;
-end;
-
-    
-If ((FromTerritory=0) or (ToTerritory=0)) then 
-     begin
-      FromTerritory:=0;
-      ToTerritory:=0;
-     end;
-
-
-//Stop big attacks
-If UBufferGet(39)<5 then
-If TArmies(Toterritory)>20 then
-If (TArmies(Toterritory)>(PArmiesCount(PMe) div 2)) and 
-   (UBufferGet(36)<>0) and
-   (TOwner(Toterritory)<>trunc(UBufferGet(36))) then 
-If Toterritory<39 then
-   FromTerritory:=0;
-
-CAnalysis(1,PT,PA,ET,EA); 
-//Don't attack Koryak from Alaska if not needed
-If ((FromTerritory=1) and (ToTerritory=37)) then
-Begin
-If TOwner(Toterritory)<>-(trunc(UBufferGet(10))) then
- If (UBufferGet(39)>2) and (( ((TArmies(1)<20) or (TArmies(37)>3)) and (COwner(5)=0) and (PT>=6) and (PArmiesCount(PMe)<160) )) then FromTerritory:=0;
- 
- If SConquest then
-  If TOwner(37)<>-(trunc(UBufferGet(10))) then
-   If TOwner(37)<>COwner(6) then
-    If TOwner(37)<>trunc(UBufferGet(36)) then
-     If COwner(5)=0 then FromTerritory:=0;
-end;
-
-If (SConquest and (UBufferGet(39)=2)) then GOAsia:=False else GOAsia:=True;
-CAnalysis(5,PT,PA,ET,EA);
-   
- 
-If (((ET<=3) and (ET>0) and (EA<14)) OR (PA>2*EA+10+2*trunc(UBufferGet(39)))) then GOAsia:=True;
-
-If COwner(6)<>PMe  then GOAsia:=False;
-
-//Do not make weak attacks in Asia 
-If SConquest then
-If (TOwner(ToTerritory)<>-(trunc(UBufferGet(10)))) then //Lame hate
-If (UBufferGet(39)>3) then
-If ((TContinent(ToTerritory)=5) and 
-   (TContinent(FromTerritory)=5) and
-   (TArmies(FromTerritory)<4) and 
-   (ET>2) and 
-   (EA>5) 
-   ) then 
-   Begin
-   FromTerritory:=0;
-
-   //If UBufferGet(15) then //umessage('Weak attack blocked GOAsia ',GOAsia);
-   end;
-
-If SConquest and (EA>PA-TArmies(31)-12) and (UBufferGet(39)>3) then GOAsia:=False;
-   
-//Do not Attack NA if I am weak in SA
-If UBufferGet(39)>3 then
-If ((COwner(2)=PMe) and (COwner(1)=0) and (PArmiesCount(PMe)<100) and 
-    (FromTerritory=10) and (ToTerritory=9) and (TArmies(12)<20)) then FromTerritory:=0;
-
-//Do not attack S.A. from N.A. if strong
-If FromTerritory=9 then
-If ToTerritory=10 then
-Begin
-CAnalysis(2,PT,PA,ET,EA);
- If ((COwner(1)=PMe) and ((TArmies(12)>TArmies(9)) or (TArmies(11)>TArmies(9)))) then FromTerritory:=0;
- If ( (COwner(2)=0) and (EA>10) and ((EA+double(TArmies(14))/3 > double(TArmies(9))) OR (EA>30)) and (PA=0) ) then FromTerritory:=0;
-
-end;
-
- 
- 
-//Attack North Africa from Brazil only if Africa holder is strong
-If ( (FromTerritory=12) and (ToTerritory=14) and 
-     ((PArmiesCount(PMe)<210) or ((PTerritoriesCount(PMe)<22) and (PArmiesCount(PMe)<300))) ) then
-BEGIN
- If ( (COwner(4)=0) or 
-(
-((COwner(4)<>0) and (PTerritoriesCount(COwner(4))<13)) or
-
-(((COwner(4)<>0) and (PTerritoriesCount(COwner(4))<15)) and (PArmiesCount(-(trunc(UBufferGet(10))))>PArmiesCount(PMe)) and (TOwner(14)<>-(trunc(UBufferGet(10)))))
-)
-
- ) then 
-      Begin
-       FromTerritory:=0; 
-       ToTerritory:=0; 
-       //If UBufferGet(15) then //umessage('Brazil->Africa attack blocked');
-      end;
-
-CLeader(5,LPa,LTa,LAa); 
-If ( (COwner(4)<>0) and (COwner(4)<>trunc(UBufferGet(36))) and (COwner(6)<>COwner(4)) and 
-  (COwner(6)=LPa) and (LTa>8) and (COwner(6)<>0) and (PTerritoriesCount(COwner(4))<15) ) then FromTerritory:=0;
-  
-END;
-
-//Brazil to North Africa
-If FromTerritory=12 then
-If ( (UBufferGet(39)>2) and
-    (ToTerritory=14) and 
-    (TArmies(14)>25) and 
-    (trunc(UBufferGet(36))<>TOwner(14)) and
-  ( ((PArmiesCount(PMe)<200) AND (UBufferGet(10)>=0)) OR
-    ((PArmiesCount(PMe)<150+PArmiesCount(-(trunc(UBufferGet(10))))) AND (UBufferGet(10)<0)) )
-    ) then 
-    Begin
-    CLeader(4,LPa,LTa,LAa); 
-    If (LPa<>PMe) or (LTa<5) then FromTerritory:=0;
-    end;
-
-  
-If UBufferGet(39)>3 then
- Begin
-    If ((FromTerritory=37) and (ToTerritory=1)) then 
- If ( (COwner(1)=0) and (PArmiesCount(PMe)<130) and (COwner(5)=0) and 
-      ((PTerritoriesCount(PMe)>10) or (COwner(6)=PMe)) ) then 
-     begin
-      FromTerritory:=0;
-      ////If UBufferGet(15) then //umessage('Attack to Alaska from Koryak stopped');
-     end;
- end;
-
- 
-    //Don't attack Ukrania or Southern Europe if none holds Europe
-    CAnalysis(3,PT,PA,ET,EA);
-    Begin
-     If ((PArmiesCount(PMe)<170) or (PTerritoriesCount(PMe)<16)) then
-      If ( NOT (((PT>=4) and (PA>15) and (EA<25)) or (COwner(4)=PMe) or ((COwner(5)=PMe) and (COwner(3)<>0))) ) then 
-       If ( ((ToTerritory=22) or (ToTerritory=26)) and
-      ((FromTerritory=27) or (FromTerritory=28) or (FromTerritory=29)) and 
-      (COwner(3)=0) ) then 
-      Begin
-      FromTerritory:=0; 
-      ToTerritory:=0;
-      GOAsia:=True;
-      If SConquest and (EA>PA-TArmies(31)-10) and (UBufferGet(39)>3) then GOAsia:=False;
-      //If UBufferGet(15) then //umessage('Europe attack blocked - no owner');
-      end;
-    end;
-
-UBufferSet(46, 0);
-If COwner(3)<>0 then
- If ( ((PArmiesCount(TOwner(22))>35) or (PTerritoriesCount(TOwner(22))>=12)) and (COwner(3)<>PMe) ) then UBufferSet(46, 1); // Europe holder is strong
-
-    //If held, don't attack Ukrania or Southern Europe if player is weak
-    If (UBufferGet(46)<>1) then
-    If COwner(5)<>PMe then
-     If ( (PArmiesCount(PMe)<130) or (PTerritoriesCount(PMe)<16) ) then
-      If ( ((ToTerritory=22) or (ToTerritory=26)) and
-      ((FromTerritory=27) or (FromTerritory=28) or (FromTerritory=29)) and 
-      (COwner(3)<>0) ) then 
-      Begin
-      FromTerritory:=0; 
-      GOAsia:=True;
-      If SConquest and (EA>PA-TArmies(31)-10) and (UBufferGet(39)>3) then GOAsia:=False;
-      //If UBufferGet(15) then //umessage('Europe attack blocked - still weak' );
-      end;
-
-//Don't attack Egypt or East Africa If no player holds Africa
-CAnalysis(4,PT,PA,ET,EA);
-IF (PT<=3) then //(PTerritoriesCount(PMe)<=18)
-     If ((PArmiesCount(PMe)<170) and (PTerritoriesCount(PMe)<24)) then
-      If ( ((ToTerritory=15) or (ToTerritory=16)) and 
-           (COwner(4)=0) and 
-           (FromTerritory=27) ) then 
-      Begin
-      FromTerritory:=0; 
-      ToTerritory:=0;
-      //If UBufferGet(15) then //umessage('Africa attack blocked - no owner');
-      end;
-If ( ((PArmiesCount(TOwner(15))>30) or (PTerritoriesCount(TOwner(15))>12)) and (COwner(4)<>0) and (COwner(4)<>PMe) ) then UBufferSet(47, 1) else UBufferSet(47, 0);// Egypt holder is strong
-
-//In holding, dont't attack Egypt or East Africa If the player is weak
-     If PArmiesCount(PMe)<140 then
-      If ( ((ToTerritory=15) or (ToTerritory=16)) and 
-           (FromTerritory=27) and
-           (COwner(4)<>0) and 
-           (UBufferGet(47)<>1) ) then 
-      Begin
-       FromTerritory:=0; 
-       ToTerritory:=0; 
-       //If UBufferGet(15) then //umessage('Africa attack blocked - still weak');
-      end;
-
-
-  
-
- // attack Australia with China if viable#
-    If ( ((TArmies(32)>TArmies(30)) and TIsMine(30)) or (TIsMine(30)=False) ) then
-      If ( (TIsMine(32)=True) and 
-           (TIsMine(31)=False) and 
-           (TIsMine(39)=False) and 
-           (TIsMine(40)=False) and
-           (TIsMine(41)=False) and
-           (TIsMine(42)=False) and
-           (TArmies(31)+TArmies(39)+TArmies(40)+TArmies(41)<TArmies(32))
-          ) then 
-      Begin
-      ToTerritory:=31;
-      FromTerritory:=32;
-      end;
-      
-      B:=5;
-      //attack India from Middle East if can get Indonesia later#
-      If ( not (PProgram(COwner(6))=PProgram(PMe)) and (UBufferGet(29)=0)) then //Cooperative AU
-      If ((TArmies(27)-B>TArmies(30)+TArmies(31)+TArmies(39)) and
-          (TIsMine(27)=True) and 
-          (TIsMine(30)=False) and 
-          (TIsMine(31)=False) and
-          (TIsMine(39)=False) 
-         ) 
-        then
-          Begin
-          ToTerritory:=30;
-          FromTerritory:=27;
-          B:=0;
-          end;
-  
-      //Attack Siam from Indonesia 
-      If (TIsMine(31)=False) then
-      If (COwner(6)=PMe) then
-      If (( (PTerritoriesCount(PMe)<10) and (FromTerritory=0) and (TArmies(39) div 3>=TArmies(31)) and ((TArmies(39)>15) or ((TArmies(39)>3) and (NOT SConquest))))) OR
-         ((TArmies(39)>TArmies(31)+4) and (UBufferGet(39)=2))  then 
-        Begin
-        ToTerritory:=31;
-        FromTerritory:=39;
-        //If UBufferGet(15) then //umessage('Forced attack from Indonesia' );
-        end;
-      
-      //Do not Attack Siam if a stronger force is waiting
-       If ( (FromTerritory=39) and 
-            (ToTerritory=31) and 
-            (TIsMine(32)=False) and
-            (TArmies(32)>TArmies(39)-TArmies(31)) 
-          ) then FromTerritory:=0;
-
-       If ( (FromTerritory=39) and 
-            (ToTerritory=31) and 
-            (TIsMine(30)=False) and
-            (TArmies(30)>TArmies(39)-TArmies(31)) 
-          ) then FromTerritory:=0;
-      
-If not TIsMine(31) then
-Begin
-      //attack Siam from India and China if can get Indonesia
-      if ToTerritory<>31 then
-      If ( (TArmies(30)+TArmies(32)-4>(trunc(0.8*(TArmies(31)+TArmies(39))))) and 
-           (TArmies(30)+TArmies(32)>5) and
-            TIsMine(30) and TIsMine(32) and (TIsMine(31)=False) ) then
-      Begin
-       If (TArmies(30)>TArmies(32)) then 
-        Begin
-        ToTerritory:=31;
-        FromTerritory:=30;
-        //If UBufferGet(15) then //umessage('attack from India to Siam' );
-        end;
-       If (TArmies(32)>=TArmies(30)) then
-        Begin
-        //If UBufferGet(15) then //umessage('attack from China to Siam ' );
-        ToTerritory:=31;
-        FromTerritory:=32;
-        end;
-      end;
-      
-      If (TIsMine(29) and TIsMine(33) and (TArmies(29)>TArmies(33))) then T:=29 else T:=33;
-      If ((T=29) and (TIsMine(30)=False) and (TArmies(30)<TArmies(32))) then C:=30 else C:=32;
-      
-      If (TIsMine(T) and 
-         (TIsMine(C)=False) and 
-         (COwner(6)<>PMe) and
-         (TArmies(T)>TArmies(C)+TArmies(31)+TArmies(39)+3)) then
-         Begin
-         ToTerritory:=C;
-         FromTerritory:=T;
-         UBufferSet(13,ToTerritory);
-         end;
-end;  
-
-      // attack Indonesia from Siam if ratio <.8
-      If not TIsMine(39) then
-      If ( (COwner(6)<>0) and (TArmies(31)>5) and 
-           (TArmies(31)> trunc(0.8*(TArmies(39)+TArmies(40)+TArmies(41)+TArmies(42))) ) and 
-           TIsMine(31)) then
-      If (PArmiesCount(PMe)-TArmies(31)>10) or 
-         (PArmiesCount(-(trunc(UBufferGet(10))))<30) or 
-         (PArmiesCount(PMe)-(0.8*double(TArmies(39))+TArmies(40)
-                  +TArmies(41)+TArmies(42))>double(PArmiesCount(-(trunc(UBufferGet(10))))-15)) then
-       Begin
-       //If UBufferGet(15) then //umessage('attack from Siam to Indonesia ' );
-       ToTerritory:=39;
-       FromTerritory:=31;
-       UBufferSet(25,0); //Frank is not in Bubble Mode
-       end;
-
-If COwner(6)=0 then
-If TIsMine(39) or TIsMine(40) or TIsMine(41) or TIsMine(42) then
-Begin
-
-//Initiate attack to New Guinea if armies in Indonesia are > the sum of rest in Australia
-If TIsMine(40) then a1:=0 else a1:=TArmies(40);
-If TIsMine(41) then a4:=0 else a4:=TArmies(41);
-If ((TArmies(39)>1) and 
-    (a1+a4+TArmies(42)<TArmies(39)) and
-    TIsMine(39) and 
-    (TIsMine(42)= False)
-   ) then
- Begin
- ToTerritory:=42;
- FromTerritory:=39;
- BypassStruggler:=True;
- end;
- 
-     //Initiate attack to Western Australia if armies in Indonesia are > the sum of rest in Australia
-     If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then 
-     Begin
-If TIsMine(42) then a1:=0 else a1:=TArmies(42);
-If TIsMine(41) then a4:=0 else a4:=TArmies(41);
-If ((TArmies(39)>1) and 
-    (a1+a4+TArmies(40)<TArmies(39)) and
-    TIsMine(39) and 
-    (TIsMine(40)= False)
-   ) then
- Begin
- ToTerritory:=40;
- FromTerritory:=39;
- BypassStruggler:=True;
- end;
-end;
-
-
-     //Initiate attack to Western Australia if armies in 41 are > the sum of rest in Australia
-     If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then
-     Begin
-If TIsMine(42) then a1:=0 else a1:=TArmies(42);
-If TIsMine(39) then a4:=0 else a4:=TArmies(39);
-
-If ((TArmies(41)>1) and 
-    (a1+a4+TArmies(40)<TArmies(41)) and
-    TIsMine(41) and 
-    (TIsMine(40)= False)
-   ) then
- Begin
- ToTerritory:=40;
- FromTerritory:=41;
- BypassStruggler:=True;
- end;
-end;
- 
-     //Attack to Indonesia from Western Australia if armies > the sum of EA in Australia
-     If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then 
-     Begin
-If TIsMine(42) then a1:=0 else a1:=TArmies(42);
-If TIsMine(41) then a4:=0 else a4:=TArmies(41);
-If ((TArmies(40)>1) and 
-    (a1+a4+TArmies(39)<TArmies(40)) and
-    TIsMine(40) and 
-    (TIsMine(39)= False)
-   ) then
- Begin
- ToTerritory:=39;
- FromTerritory:=40;
- end;
-end;
-
-
-//Attack to Eastern Australia from New Guinea if armies > the sum of EA in Australia
-     If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then
-     Begin
-If TIsMine(39) then a1:=0 else a1:=TArmies(39);
-If TIsMine(40) then a4:=0 else a4:=TArmies(40);
-If ((TArmies(42)>1) and 
-    (a1+a4+TArmies(41)<TArmies(42)) and
-     TIsMine(42) and 
-    (TIsMine(41)= False)
-   ) then
- Begin
- ToTerritory:=41;
- FromTerritory:=42;
- BypassStruggler:=True;
- end;
-end;
-
-
-     //Attack to Eastern Australia from Western Australia if armies > the sum of EA in Australia
-     If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then
-     Begin
-If TIsMine(39) then a1:=0 else a1:=TArmies(39);
-If TIsMine(42) then a4:=0 else a4:=TArmies(42);
-If ((TArmies(40)>1) and 
-    (a1+a4+TArmies(41)<TArmies(40)) and
-    TIsMine(40) and 
-    (TIsMine(41)= False)
-   ) then
- Begin
- ToTerritory:=41;
- FromTerritory:=40;
- BypassStruggler:=True;
- end;
-end;
-
-
-     //Attack to Western Australia from Eastern Australia if armies > the sum of EA in Australia
-     If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then 
-     Begin
-If TIsMine(39) then a1:=0 else a1:=TArmies(39);
-If TIsMine(42) then a4:=0 else a4:=TArmies(42);
-If ((TArmies(41)>1) and 
-    (a1+a4+TArmies(40)<TArmies(41)) and
-    TIsMine(41) and 
-    (TIsMine(40)= False)
-   ) then
- Begin
- ToTerritory:=40;
- FromTerritory:=41;
- BypassStruggler:=True;
- end;
-end;
-
-
-     If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then
-     Begin
-If TIsMine(39) then a1:=0 else a1:=TArmies(39);
-If TIsMine(40) then a4:=0 else a4:=TArmies(40);
-If ((TArmies(41)>1) and 
-    (a1+a4+TArmies(42)<TArmies(41)) and
-    TIsMine(41) and 
-    (TIsMine(42)= False)
-   ) then
- Begin
- ToTerritory:=42;
- FromTerritory:=41;
- BypassStruggler:=True;
- end;
-end;
-
-
-     //Attack to New Guinea from Western Australia if armies > the sum of EA in Australia
-     If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then 
-     Begin
-If TIsMine(39) then a1:=0 else a1:=TArmies(39);
-If TIsMine(41) then a4:=0 else a4:=TArmies(41);
-If ((TArmies(40)>1) and 
-    (a1+a4+TArmies(42)<TArmies(40)) and
-    (TIsMine(40)= True) and 
-    (TIsMine(42)= False)
-   ) then
- Begin
- ToTerritory:=42;
- FromTerritory:=40;
- BypassStruggler:=True;
- end;
-end;
-
-//42>40
-If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then
-Begin
-If TIsMine(39) then a1:=0 else a1:=TArmies(39);
-If TIsMine(41) then a4:=0 else a4:=TArmies(41);
-If ((TArmies(42)>1) and 
-    (a1+a4+TArmies(40)<TArmies(42)) and
-    TIsMine(42) and 
-    (TIsMine(40)= False)
-   ) then
- Begin
- ToTerritory:=40;
- FromTerritory:=42;
- BypassStruggler:=True;
- end;
-end;
-
-//42>39
-     If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then 
-Begin
-If TIsMine(30) then a1:=0 else a1:=TArmies(30);
-If TIsMine(41) then a4:=0 else a4:=TArmies(41);
-If ((TArmies(42)>1) and 
-    (a1+a4+TArmies(39)<TArmies(42)) and
-    TIsMine(42) and 
-    (TIsMine(39)= False)
-   ) then
- Begin
- ToTerritory:=39;
- FromTerritory:=42;
- BypassStruggler:=True;
- end;
-end;
-
-     If (FromTerritory=0) or (TContinent(ToTerritory)<>6) then
-Begin
-CAnalysis(6,PT,PA,ET,EA);
-If TIsMine(39) and (TArmies(39)-4>EA) and (PT=1) then 
- Begin
- If TArmies(40)>=TArmies(42) then T:=42 else T:=40;
- ToTerritory:=T;
- FromTerritory:=39;
- BypassStruggler:=True;
- end;
-end;
-
-end; //C6 not mine
-
-If (FromTerritory=31) then
-Begin
-       //Attack India from Middle East instead Siam if Middle East armies >4
-       CAnalysis(5,PT,PA,ET,EA);
-       If ((FromTerritory=31) and 
-            (ToTerritory=30) and 
-            TIsMine(27) and
-            (TIsMine(30)=False) and
-           (TArmies(27)>4) and
-           (PT<9) and 
-           ((UBufferGet(36)<>0)=False)
-          ) then
-           Begin
-             //If UBufferGet(15) then //umessage('Attack to India swapped from Siam to Middle East');
-            FromTerritory:=27;
-            end;
- 
-       //Attack India from China instead Siam if China Stronger
-       If ( (FromTerritory=31) and 
-            (ToTerritory=30) and 
-            TIsMine(32) and
-            (TArmies(32)>TArmies(31)-1) and
-            (TArmies(31)<30) ) then
-             Begin
-             //If UBufferGet(15) then //umessage('Attack swapped from Siam to China');
-             FromTerritory:=32;
-             end;
-             
-       //Attack China from India instead Siam if India Stronger
-       If ( (FromTerritory=31) and 
-            (ToTerritory=32) and 
-            TIsMine(30) and (TIsMine(32)=False) and
-            (TArmies(30)>TArmies(31)-1) and
-            (TArmies(31)<30) ) then
-             Begin
-             //If UBufferGet(15) then //umessage('Attack swapped from Siam to India');
-             FromTerritory:=30;
-             end;
-             
-       //Attack China from Mongolia instead Siam if Mongolia Stronger
-       If ( (FromTerritory=31) and 
-            (ToTerritory=32) and 
-            TIsMine(33) and (TIsMine(32)=False) and
-            (TArmies(33)>TArmies(31)-1) and
-            (TArmies(31)<35) ) then
-             Begin
-             //If UBufferGet(15) then //umessage('Attack swapped from Siam to Mongolia');
-             FromTerritory:=33;
-             end;
- 
-     //Choose less armies to attack from Siam
-     If NOT ((ToTerritory=30) and (((COwner(3)=trunc(UBufferGet(36))) or (COwner(4)=trunc(UBufferGet(36)))) and (trunc(UBufferGet(36))<>0))) then
-     If ( (COwner(6)=PMe) and 
-          (FromTerritory=31) and
-          ((ToTerritory=30) or (ToTerritory=32)) ) then 
-     Begin
-      If (((COwner(3)=trunc(UBufferGet(36))) or (COwner(4)=trunc(UBufferGet(36)))) and (UBufferGet(36)<>0)) then C:=2 else C:=0;
-      If ((UBufferGet(39)<4) and (C=0)) then C:=1;
-      if (TIsMine(32)=False) and (TArmies(32)+C<=TArmies(30)) then ToTerritory:=32;
-      if (TIsMine(30)=False) and (TArmies(32)+C>TArmies(30)) then ToTerritory:=30;
-      
-      //If UBufferGet(15) then //umessage('Choose less armies to attack from Siam');
-     end;
- 
-end;
- 
-       //Swap China attack to Kazakhstan from China to Mongolia if less= armies
-       If ( (FromTerritory=32) and 
-            (ToTerritory=29) and 
-            (TIsMine(33)=False) and
-            (TArmies(33)<=TArmies(29)) ) then
-             Begin
-             //If UBufferGet(15) then //umessage('China attack swapped of Kazakhstan to Mongolia');
-             ToTerritory:=33;
-             end;
-   
-      //Attack mexico if Venezuela strong
-      If ((SConquest=False) and (FromTerritory=0)) then
-      If (TIsMine(9)=False) and (COwner(2)=PMe) then
-      If
-        ( ((TArmies(10)>20) and (TArmies(9)<8) and (TArmies(12)>TArmies(14)+4)) OR 
-          ((TArmies(10)>9 ) and (TArmies(9)=1)) ) then 
-       Begin
-        ToTerritory:=9;
-        FromTerritory:=10;
-        //If UBufferGet(15) then //umessage('Forced attack to Mexico= ');
-        CAnalysis(1,PT,PA,ET,EA);
-        If (double(TArmies(10)+PA)<(0.7*EA)) and (UBufferGet(24)=1) then UBufferSet(16,FromTerritory);
-       end;
-
-If TIsMine(12) then
-Begin
-  CAnalysis(2,PT,PA,ET,EA);
-  //Brazil to Venezuela#
-If( (PT=3) and 
-    (TIsMine(10)=False) and
-    (TArmies(12)>TArmies(10)+6)
-   ) then
-  Begin
-   ToTerritory:=10;
-   FromTerritory:=12;
-   BypassStruggler:=True;
-   //If UBufferGet(15) then //umessage('Brazil to Venezuela');
-  end;
-
-
-  //Brazil to Argentina
-If( (TIsMine(13)=False) and
-    (TArmies(12)>=4) and
-    (TArmies(13)<=2) and
-    (PA>7)
-   ) then
-  Begin
-   ToTerritory:=13;
-   FromTerritory:=12;
-   //If UBufferGet(15) then //umessage('Brazil to Argentina');
-  end;  
-
-end;
-
-
- If (COwner(5)=0) then
- Begin
-      //Don't attack from Siam if Armies<4 
-      If ( (FromTerritory=31) and ((ToTerritory=30) or (ToTerritory=32)) ) then
-       If (TArmies(31)<4) then 
-       Begin
-       FromTerritory:=0;
-       //If UBufferGet(15) then //umessage('Attack from Siam Blocked');
-       end;
- 
-       //Don't attack China or India from Siam if enemy stronger in China or India
-       //If ( TIsMine(31) and (FromTerritory=31) and ((ToTerritory=30) or (ToTerritory=32)) and
-        //   ( ((TArmies(31)<TArmies(32)) and (TIsMine(32)=False)) or
-        //     ((TArmies(31)<TArmies(30)) and (TIsMine(30)=False)) 
-        //    )
-        //   ) then FromTerritory:=0;
-           
- end;
- 
-
-        
-      //North America 
-      
-      CAnalysis(1,PT2,PA2,ET2,EA2); // and (EA2<>0)
-If PA2-PT2>2 then
-Begin
-
-A:=1;
-For T:=1 to 9 do
- If Not TIsMine(T) then Begin C:=T; T:=9; end;
-For T:=C+1 to 9 do
- If (Not TIsMine(T)) and (TOwner(C)<>TOwner(T)) then Begin A:=2; T:=9; end;
-
-
-      CLeader(1,LPa,LTa,LAa);
-      If ((PA2>trunc(1.3*EA2)) or ((LTa=8) and (TIsMine(1)=False) and (UBufferGet(39)>3)) ) then GO:=SConquest else GO:=False; 
-      If (A=1) then
-       If ((UBufferGet(39)<5) and (PA2>EA2) and 
-      ((UBufferGet(25)=0) or (COwner(2)=PMe)) ) or (UBufferGet(39)=3) then GO:=SConquest; 
-      
-       
-      //Try attack someone for cards from Mexico
-      If (COwner(2)=PMe) then
-      Begin
-      TWeakestFront(9,ET,EA);
-      If ( (SConquest=False) and (FromTerritory=0) ) then
-       If ( TIsMine(9) and (TArmies(9)>8) and (EA<5) ) then
-        If ET>0 then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=9;
-If ToTerritory=10 then
- If ((COwner(1)=PMe) and ((TArmies(12)>TArmies(9)) or (TArmies(11)>TArmies(9)))) then FromTerritory:=0;
-       end;
-      end;
-      
-If PT2<9 then
-If (SConquest=GO) and (FromTerritory=0) then
-Begin 
-      //Try attack someone for cards from Eastern US
-      TWeakestFront(8,ET,EA);
-      If ET>0 then
-      If (SConquest=GO) and (FromTerritory=0) then
-       If ( (TIsMine(8)=True) and (TArmies(8)>5) and (EA<4) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=8;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Eastern US= ', ET );
-       end;
-       
-      //Try attack someone for cards from Western US
-      TWeakestFront(7,ET,EA);
-      If ET>0 then
-      If (SConquest=GO) and (FromTerritory=0) then
-       If ( (TIsMine(7)=True) and (TArmies(7)>5) and (EA<4) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=7;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Western US= ', ET );
-       end;
-
-
-      //Try attack someone for cards from Quebec
-      TWeakestFront(6,ET,EA);
-      If ET>0 then
-      If (SConquest=GO) and (FromTerritory=0) then
-       If ( (TIsMine(6)=True) and (TArmies(6)>5) and (EA<4) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=6;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Quebec= ', ET );
-       end;
-      
-      //Try attack someone for cards from Ontario
-      TWeakestFront(5,ET,EA);
-      If ET>0 then
-      If (SConquest=GO) and (FromTerritory=0) then
-       If ( (TIsMine(5)=True) and (TArmies(5)>5) and (EA<4) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=5;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Ontario= ', ET );
-       end;
-      
-      //Try attack someone for cards from Alberta
-      TWeakestFront(4,ET,EA);
-      If ET>0 then
-      If (SConquest=GO) and (FromTerritory=0) then
-       If ( (TIsMine(4)=True) and (TArmies(4)>5) and (EA<4) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=4;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Alberta= ', ET );
-       end;
-       
-              
-      //Try attack someone for cards from Northwest Territory
-      TWeakestFront(2,ET,EA);
-      If ET>0 then
-      If (SConquest=GO) and (FromTerritory=0) then
-       If ( (TIsMine(2)=True) and (TArmies(2)>5) and (EA<4) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=2;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Alberta= ', ET );
-       end;
-       
-
-      //Try attack someone for cards from Mexico
-      TWeakestFront(9,ET,EA);
-      If ET>0 then
-      If (SConquest=GO) and (FromTerritory=0) then
-       If ( (TIsMine(9)=True) and (TArmies(9)>8) and (EA<5) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=9;
-If ToTerritory=10 then
- If ((COwner(1)=PMe) and ((TArmies(12)>TArmies(9)) or (TArmies(11)>TArmies(9)))) then FromTerritory:=0;
-       end;
-
-end; //PT2<9
-
-
-
-//Try attack EU if the holder is strong
-If (COwner(3)<>0) then
-If NOT TIsMine(3) then 
-Begin
-CAnalysis(1,PT,PA,ET,EA);
-
-If ((COwner(3)=trunc(UBufferGet(36))) or 
-( (COwner(3)=TOwner(3)) and (PT>5) and (PT<8) and ((COwner(3)=TOwner(3)) or (COwner(3)=TOwner(5)) or (COwner(3)=TOwner(6))) )
-)  then
- Begin
- TPStrongestBorder(3, PMe, PT2,PA2);
- If ((PA2>TArmies(3)) and (PT2<>0)) then
-  Begin
-   ToTerritory:=3;
-   FromTerritory:=PT2;
-   BypassStruggler:=True;
-   If TArmies(FromTerritory)<30 then UBufferSet(13,ToTerritory); //Pass all
-  end;
- end;
- 
-end;
-
-
-
-//Attack Iceland if Europe is occupied
-If (COwner(3)=TOwner(20)) then
-Begin
-      a1:=0;
-      a4:=0;
-CAnalysis(3,PT,PA,ET,EA);
-If ((COwner(6)=-(trunc(UBufferGet(10)))) or (UBufferGet(39)>5)) and (COwner(6)<>0) then C:=12 else C:=9; 
-If ((TArmies(3)>TArmies(20)) and 
-     TIsMine(3) and 
-    (TOwner(20)<>PMe) and 
-    (COwner(3)<>0) and 
-    (( (PTerritoriesCount(COwner(3))>C) or (TOwner(20)=-(trunc(UBufferGet(10)))) )) 
-    ) then
-      Begin
-      a1:=FromTerritory;
-      a4:=ToTerritory;
-      ToTerritory:=20;
-      FromTerritory:=3;
-      BypassStruggler:=True;
-      //umessage('Forced attack to Iceland' );
-      end; 
-end;
-
-
-//Do not Attack Iceland from Greenland if none holds Europe
-  // see also //Attack Iceland if Europe is occupied
-If (FromTerritory=3) and (ToTerritory=20) then
-Begin 
- if (COwner(3)=0) and (COwner(6)=-(trunc(UBufferGet(10)))) and (COwner(6)<>0) and (TArmies(3)-TArmies(20)-10<PArmiesCount(COwner(6))) then FromTerritory:=0; 
- if (COwner(3)=0) and (PArmiesCount(PMe)<180) then FromTerritory:=0;
-
-CLeader(4,A,B,C);
-CAnalysis(1,PT,PA,ET,EA);
-CAnalysis(5,PT2,PA2,ET2,EA2);
-
-If (PT2<10) then
- if (PArmiesCount(COwner(3))<70) and 
-   ((PTerritoriesCount(COwner(3))<12) or (A<>COwner(3))) and (COwner(3)<>trunc(UBufferGet(36))) and 
- ((PArmiesCount(PMe)<220) and (PArmiesCount(-(trunc(UBufferGet(10))))>30)) 
-  and (PT>6) and (COwner(6)=-(trunc(UBufferGet(10)))) then FromTerritory:=0;
-
-If ((UBufferGet(36)<>0) and (trunc(UBufferGet(36))<>COwner(3)) and ( (COwner(4)=trunc(UBufferGet(36))) OR (COwner(4)=trunc(UBufferGet(36))) OR 
-(((TArmies(21)>TArmies(3)+2) OR (TArmies(24)>TArmies(3)+2)) and (PT>6)) OR (COwner(5)=trunc(UBufferGet(36))) ))
- then FromTerritory:=0;
-
-If (COwner(3)<>0) and (TArmies(20)>1) then
- If (trunc(UBufferGet(36))<>COwner(3)) and ((-UBufferGet(10)=UBufferGet(36)) or (UBufferGet(10)=UBufferGet(36))) then FromTerritory:=0;
-
-if FromTerritory=0 then
- if (a1>0) and (a4>0) then
- if (a4<>20) then
- begin
- FromTerritory:=a1;
- ToTerritory:=a4;
-end
-
-end;
-
-      //Try attack someone for cards from Greenland
-      TWeakestFront(3,ET,EA);
-      If ET>0 then
-      If (SConquest=GO) and (FromTerritory=0) then
-       If ( TIsMine(3) and (TArmies(3)-TArmies(20)>4) and ((EA=1) or ((EA<4) and (COwner(3)<>0))) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=3;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Greenland= ', ET );
-        if (SConquest and (ToTerritory=20) and (COwner(3)=0)) then FromTerritory:=0;
-       end;
-       
-       //Do not Attack Island from Greenland if none holds Europe
-If (FromTerritory=3) and (ToTerritory=20) then
- if SConquest and (COwner(3)=0) and (PArmiesCount(PMe)<180) then FromTerritory:=0;
-
-
-//Use North Africa attack instead Island
-If ((FromTerritory=3) and (ToTerritory=20)) then
-If TArmies(12)>4+trunc(UBufferGet(39)) then
-Begin
-CAnalysis(1,PT,PA,ET,EA);
-If PT=9 then C:=12 else C:=8;
-If( 
-    (PT>5) and
-    (COwner(2)=PMe) and
-    (COwner(3)<>PMe) and
-    (COwner(3)<>0) and
-    (NOT TIsMine(14)) and
-  //(TArmies(3)-TArmies(20)<15) and
-    ((TArmies(14)+TArmies(25)<TArmies(12)-4) or (TArmies(14)+TArmies(26)<TArmies(12)-4)) and
-    ((TArmies(14)<C) or (COwner(3)=TOwner(14)) or (-(trunc(UBufferGet(10)))=TOwner(14))) and
-    ((TArmies(14)+TArmies(25)<=TArmies(20)+1) or (TArmies(14)+TArmies(26)<=TArmies(20)+1)) and
-    ((TArmies(25)<C-4) or (TArmies(26)<C-4)) 
-   )
-    then
-  Begin
-   ToTerritory:=14;
-   FromTerritory:=12;
-//umessage('Try North Africa attack instead Island');
-  end;
-  
-If (TArmies(25)<3) or (TArmies(26)<3) then C:=4 else C:=0;
-
-   If (COwner(3)<>0) and (COwner(2)=PMe) then
-   If (COwner(3)=COwner(4)) and 
-    ((PTerritoriesCount(COwner(3))>13) or (TArmies(14)+TArmies(25)-5<TArmies(20)) or (TArmies(14)+TArmies(26)-5<TArmies(20))) and 
-    ( (TArmies(12)>TArmies(14)+TArmies(25)+8-C) or (TArmies(12)>TArmies(14)+TArmies(26)+8-C) ) and 
-    ((TArmies(25)<6) or (TArmies(26)<6)) then
-      Begin
-   ToTerritory:=14;
-   FromTerritory:=12;
-//umessage('Try North Africa attack instead Island2222222222222222');
-  end;
-    
-    
-end;
-
-end; //Have some terr in c1
-
-
-//S.A.
-
-      //Try attack someone for cards from Venezuela
-      
-      If ( (FromTerritory=0) and (SConquest=False) ) then
-       If ( (COwner(2)=PMe) and (NOT TIsMine(9)) and (TArmies(10)>8) and (TArmies(9)<=(TArmies(10) div 8)) ) then
-       Begin
-        ToTerritory:=9;
-        FromTerritory:=10;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Venezuela= ', ET );
-       end;
-
-
-If (FromTerritory=0) and (SConquest=False) then GOAsia:=True;
-//GOAsia:=True;
-
-//ASIA
-CAnalysis(5,PT,PA,ET,EA);
-If PA-PT>2 then
-Begin
-
-If PT<12 then
-Begin
-////umessage('GOAsia ', GOAsia, 'True ',True);
-
-a1:=0;
-If FromTerritory=31 then
-If PT<8 then
-If COwner(6)=PMe then
- If (TArmies(31)<PArmiesCount(-(trunc(UBufferGet(10))))) and (PA-TArmies(31)-PT>3) then
-  If (ToTerritory<>-(trunc(UBufferGet(10)))) and (PTerritoriesCount(TOwner(ToTerritory))>1) then
- Begin
-a1:=FromTerritory;
-a4:=ToTerritory;
-FromTerritory:=0;
-//umessage('31 attempt');
-end;
-
-
-If ToTerritory=31 then
-If TArmies(31)<3 then
-If FromTerritory<>39 then
-If COwner(6)<>PMe then
-Begin
-If (TArmies(30)>TArmies(32)) and TIsMine(30) and (TArmies(30)>2) then FromTerritory:=30;
-If (TArmies(30)<=TArmies(32)) and TIsMine(32) and (TArmies(32)>2) then FromTerritory:=32;
-end;
-
-If FromTerritory=27 then
-If UBUfferGet(36)>0 then
-If COwner(TContinent(ToTerritory))=0 then
-If (COwner(4)=trunc(UBUfferGet(36))) or (COwner(3)=trunc(UBUfferGet(36))) then
- Begin
-a1:=FromTerritory;
-a4:=ToTerritory;
-FromTerritory:=0;
-//umessage('27 attempt');
-end;
-
-
-//Protect Alaska by Asia
-CAnalysis(1,PT2,PA2,ET2,EA2);
-If ( ((FromTerritory=0) or (SConquest=False)) and (PT2>6) and (TIsMine(37)=False)) then
-Begin
-
-If ( (TArmies(33)>TArmies(37)) and (TArmies(33)>3) and TIsMine(33) ) then Begin FromTerritory:=33; ToTerritory:=37; end;
-If ( (TArmies(36)>TArmies(37)) and (TArmies(36)>3) and TIsMine(36) ) then Begin FromTerritory:=36; ToTerritory:=37; end;
-If ( (TArmies(35)>TArmies(37)) and (TArmies(35)>3) and TIsMine(35) ) then Begin FromTerritory:=35; ToTerritory:=37; end;
-If ( (TArmies(38)>TArmies(37)) and (TArmies(38)>3) and TIsMine(38) ) then Begin FromTerritory:=38; ToTerritory:=37; end;
-If TContinent(FromTerritory)=5 then UBufferSet(13,37);
-end;
-
-W:=0;
-
-TryAsia:
-
-If GOAsia and (FromTerritory=0) then
-Begin //##1
-
-//Try attack someone for cards from Mongolia
-      TWeakestFront(33,ET,EA);
-      ////If UBufferGet(15) then //umessage('TWeakestFront(33,ET,EA)= ', ET , ' ', EA);
-      If ( GOAsia and (FromTerritory=0) ) then
-      If ET>0 then
-       If ( TIsMine(33) and (TArmies(33)>4-W) and (EA<4-W) ) then
-       Begin
-        If ((ET=28) and (TArmies(38)=TArmies(28)) and (TIsMine(38)=False)) then ET:=38;
-        If ((ET=28) and (TArmies(36)=TArmies(28)) and (TIsMine(36)=False)) then ET:=36;
-        If ((ET=28) and (TArmies(37)=TArmies(28)) and (TIsMine(37)=False)) then ET:=37;
-        If ((ET=28) and (TArmies(34)=TArmies(28)) and (TIsMine(34)=False)) then ET:=34;
-        ToTerritory:=ET;
-        FromTerritory:=33;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Mongolia= ', ET );
-       end;
- 
-      //Try attack someone for cards from Yakut
-      TWeakestFront(35,ET,EA);
-      If ( GOAsia and (FromTerritory=0) ) then
-      If ET>0 then
-       If ( TIsMine(35) and (TArmies(35)>4-W) and (EA<4-W) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=35;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Yakut= ', ET );
-       end;
-       
-      //Try attack someone for cards from Taymyr
-      TWeakestFront(34,ET,EA);
-      If GOAsia and (FromTerritory=0) then
-      If ET>0 then
-       If ( TIsMine(34) and (TArmies(34)>4-W) and (EA<4-W) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=34;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Taymyr= ', ET );
-       end;
-
-      //Try attack someone for cards from China
-      TWeakestFront(32,ET,EA);
-      ////If UBufferGet(15) then //umessage('TWeakestFront(32,ET,EA)= ', ET , ' ', EA);
-      If GOAsia and (FromTerritory=0) then
-      If ET>0 then
-       If ((TIsMine(32)=True) and (TArmies(32)>5-W) and (EA<4-W) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=32;
-        If ( (ToTerritory=29) and (TArmies(29)=TArmies(33)) and (TIsMine(33)=False) ) then ToTerritory:=33;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from China= ', ET );
-       end;
-
-      //Try attack someone for cards from Buryat
-      TWeakestFront(36,ET,EA);
-      If GOAsia and (FromTerritory=0) then
-      If ET>0 then
-       If ( (TIsMine(36)=True) and (TArmies(36)>4-W) and (EA<4-W) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=36;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Taymyr= ', ET );
-       end;
-       
-      //Try attack China from Kazakhstan for cards
-      If GOAsia and (FromTerritory=0) then
-       If ( (TIsMine(29)=True) and (TIsMine(32)=False) and (TArmies(29)>5-W) and (TArmies(32)<4-W) ) then
-       Begin
-        ToTerritory:=32;
-        FromTerritory:=29;
-        //If UBufferGet(15) then //umessage('Try attack China from Kazakhstan for cards= ', ET );
-       end; 
-
-       
-      //Try attack India from M.E. for cards 
-      If GOAsia and (FromTerritory=0) then
-       If ( (TIsMine(27)=True) and (TIsMine(30)=False) and (TArmies(27)>4-W) and (TArmies(30)<4-W) and (COwner(3)=0) and (COwner(4)=0) ) then
-       Begin
-        ToTerritory:=30;
-        FromTerritory:=27;
-        //If UBufferGet(15) then //umessage('Try attack India from M.E. for cards' );
-       end;
-       
-       
-      //Try attack someone for cards from India
-      TWeakestFront(30,ET,EA);
-      ////If UBufferGet(15) then //umessage('TWeakestFront(30,ET,EA)= ', ET , ' ', EA);
-      If GOAsia and (FromTerritory=0) then
-      If ET>0 then
-       If ( TIsMine(30) and (TArmies(30)>4-W) and (EA<3-W) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=30;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from India= ', ET );
-       end;
- 
- 
-If (a1=31) or (a1=27) then
-If FromTerritory=0 then
- Begin
- FromTerritory:=a1;
- ToTerritory:=a4;
- end;
- 
- 
- 
-      //Try attack someone for cards from Siam
-      TWeakestFront(31,ET,EA);
-      If (SConquest=False) and (FromTerritory=0) then
-      If ET>0 then
-       If ( TIsMine(31) and (TArmies(31)>=5) and (EA<=2) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=31;
-        UBufferSet(16,31);
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Siam= ', ET );
-       end;
-   
- end; //##1
- 
-
- 
-       //Don't attack China or India from Siam if enemy stronger in China or India #2
-       If (FromTerritory=31) then
-        If ( ((ToTerritory=30) or (ToTerritory=32)) and
-           ( ((TArmies(31)<TArmies(32)) and (TIsMine(32)=False)) or
-             ((TArmies(31)<TArmies(30)) and (TIsMine(30)=False)) 
-            )
-           ) then FromTerritory:=0;
-           
-           
-           
-     //Try attack India if someone strong in EU and Af
- If TIsMine(31) then
-  If NOT TIsMine(27) then
-   If ((ToTerritory=32) and (FromTerritory=31)) or (FromTerritory=0) then 
-    If UBufferGet(39)<5 then
-     If (UBufferGet(10)>=0) or ((UBufferGet(10)<0) and (TArmies(31)>PArmiesCount(-(trunc(UBufferGet(10))))+20)) then 
-      If (((COwner(3)=trunc(UBufferGet(36))) or (COwner(4)=trunc(UBufferGet(36)))) and (trunc(UBufferGet(36))<>0)) then 
-       If ( (NOT TIsMine(29)) and (NOT TIsMine(30))) then
-        if (TArmies(31)>5) and (TArmies(31)>TArmies(30)+5) and (TArmies(30)<8) then
-         If COwner(6)=PMe then
-          If Not ((TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4)) then
-         Begin
-          ToTerritory:=30;
-          FromTerritory:=31;
-          ByPassStruggler:=True;
-         end;
- 
-
-//testeeeee
-       
-end; //Rules if Asia isn't mine
-
-If GOAsia and (FromTerritory=0) then
-Begin //##2
-
-      //Try attack someone for cards from Yamal-Nemets
-      TWeakestFront(28,ET,EA);
-      CAnalysis(3,PT2,PA2,ET2,EA2);
-      ////If UBufferGet(15) then //umessage('TWeakestFront(28,ET,EA)= ', ET , ' ', EA);
-       If ( TIsMine(28) and (TArmies(28)>4-W) and (EA<3-W) ) then
-       If ET>0 then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=28;
-        If (COwner(3)=0) and (ET=22) then 
-        begin
-        If ((TArmies(29)=TArmies(22)) and (TIsMine(29)=False)) then ToTerritory:=29;
-        If ((TArmies(33)=TArmies(22)) and (TIsMine(33)=False)) then ToTerritory:=33;
-        If ((TArmies(34)=TArmies(22)) and (TIsMine(34)=False)) then ToTerritory:=34;
-        
-        If ((TArmies(22)>1) and (COwner(3)=0)) then FromTerritory:=0;
-        If (SConquest and (COwner(3)=0)) then FromTerritory:=0;
-        end;
-        
-        If ToTerritory=22 then UBufferSet(16,22); //Pass nothing
-        
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Yamal-Nemets= ', ET );
-       end;
-       
-   
-      //Try attack someone for cards from Kazakhstan
-      TWeakestFront(29,ET,EA);
-      CAnalysis(3,PT2,PA2,ET2,EA2);
-      ////If UBufferGet(15) then //umessage('TWeakestFront(29,ET,EA)= ', ET , ' ', EA);
-      If ET>0 then
-      If GOAsia and (FromTerritory=0) then
-       If ( (TIsMine(29)=True) and (TArmies(29)>4-W) and (EA<3-W) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=29;
-
-        If COwner(3)=0 then
-        Begin
-        If ((ET=22) and (TArmies(27)=TArmies(22)) and (TIsMine(27)=False)) then ToTerritory:=27;
-        If ((ET=22) and (TArmies(28)=TArmies(22)) and (TIsMine(28)=False)) then ToTerritory:=28;
-        If ((ET=22) and (TArmies(30)=TArmies(22)) and (TIsMine(30)=False)) then ToTerritory:=30;
-        If ((ET=22) and (TArmies(32)=TArmies(22)) and (TIsMine(32)=False)) then ToTerritory:=32;
-        end;
-        If ((ET=28) and (TArmies(32)=TArmies(28)) and (TIsMine(32)=False)) then ToTerritory:=32;
-        If ((ET=27) and (TArmies(32)=TArmies(27)) and (TIsMine(32)=False)) then ToTerritory:=32;
-        If ((ET=28) and (TArmies(30)=TArmies(28)) and (TIsMine(30)=False)) then ToTerritory:=30;
-        If ((ET=27) and (TArmies(30)=TArmies(27)) and (TIsMine(30)=False)) then ToTerritory:=30;
-
-        If ((ToTerritory=22) and (TArmies(22)>1) and (COwner(3)=0)) then FromTerritory:=0;
-        If ((ToTerritory=22) and SConquest and (COwner(3)=0)) then FromTerritory:=0;
-
-        If ToTerritory=22 then UBufferSet(16,22); //Pass nothing
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Kazakhstan= ', ET );
-       end;
-
-// from 27 to 29
-If GOAsia and (FromTerritory=0) then
- If (TIsMine(27) and (NOT TIsMine(29)) and (TArmies(27)>TArmies(29)+3) and (TArmies(29)<4)) then
-  If (NOT (((COwner(3)=trunc(UBufferGet(36))) or (COwner(4)=trunc(UBufferGet(36)))) and (UBufferGet(36)<>0))) then 
-       Begin
-        ToTerritory:=29;
-        FromTerritory:=27;
-       end;
-              
-      //Try attack someone for cards from Koryak
-      TWeakestFront(37,ET,EA);
-      If ET>0 then
-      If GOAsia and (FromTerritory=0) then
-       If ((TIsMine(37)=True) and (TArmies(37)>2+EA-W) and (double(EA)<2+double(TArmies(37))/9-W)) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=37;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Koryak= ', ET );
-        If ToTerritory=1 then FromTerritory:=0; 
-       end;
-
-      //Try attack someone for cards from M.E.
-      TWeakestFront(27,ET,EA);
-      If ET>0 then
-      If SConquest=False then
-      If (FromTerritory=0) or 
-      ( ((FromTerritory=28) or (FromTerritory=29)) and (ToTerritory=22) and (COwner(3)=0) and (EA<TArmies(22)) ) then
-       If (TIsMine(27) and (TArmies(27)>2+EA) and 
-       ((EA=1) or ((EA<4) and (COwner(TContinent(ET))<>0)) and (ET<>ToTerritory))) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=27;
-       end;
-
-end; //##2
-
-
-
-//Detect lone territory in Asia#
-If ((TContinent(ToTerritory)<>5) or (FromTerritory=0)) then
-Begin
-CAnalysis(5,PT,PA,ET,EA);
-If (PT=11) then 
-Begin
-
-B:=0;
-B2:=0;
-  For T:=27 to 38 do //Find what is not mine
-   begin 
-    If Not TIsMine(T) then B:=T;
-    If (PTerritoriesCount(TOwner(T))=1) and (Not TIsMine(T)) then B2:=T;
-   end;
-   
-//Detect lone game territory in Asia and try attack it     
-If ( (PTerritoriesCount(TOwner(B2))=1) and (TArmies(B2)<35) ) then
- Begin
- TPStrongestBorder(B2, PMe, PT2,PA2);
- If ((PA2>TArmies(B2)) and (PT2<>0)) then
-  Begin
-   ToTerritory:=B2;
-   FromTerritory:=PT2;
-   ////umessage('Try attack to lone game territory in Asia from ', TName(PT2) );
-   B:=775;
-  end;
- end;
-
-
-//Detect lone territory in Asia and try attack it     
-If ( (ET=1) and (B<>0) and (EA<30) and (B<>775) ) then
- Begin
- TPStrongestBorder(B, PMe, PT2,PA2);
- If ((PA2>EA) and (PT2<>0)) then
-  Begin
-   ToTerritory:=B;
-   FromTerritory:=PT2;
-   ////umessage('Try attack lone territory in Asia from ', TName(PT2) );
-  end;
- end;
-
-end;
-end;
-
-If FromTerritory=0 then
-If PT<11 then
-If PT>1 then
-If (Not SConquest) and (W=0) then
-Begin
-W:=1;
-//umessage('Asia retry');
-Goto TryAsia;
-end;
-
-
-//Swap 29 to 22 if necessary
- If TIsMine(22) then
- If ((ET>8) and TIsMine(28)) then
- If (FromTerritory=29) and (ToTerritory=27) and (TArmies(22)>=TArmies(29)) then
-  FromTerritory:=22;
-  
-If (Not TIsMine(29)) and TIsMine(32) then
-If TContinent(ToTerritory)<>3 then
-If PTerritoriesCount(COwner(3))>14 then
-If UBufferGet(39)<5 then
-If (FromTerritory=0) or ((FromTerritory=32) and (COwner(1)<>COwner(3))) then
-If TArmies(32)>TArmies(29)+TArmies(22)+1 then
- Begin
- FromTerritory:=32;
- ToTerritory:=29;
- UBufferSet(13,ToTerritory);
- end;
-
-end; //I have more than 2 armies in asia
-
-
-
-//Detect lone territory in N.A#
-CAnalysis(1,PT,PA,ET,EA);
-
-if PT>5 then
-If PT<9 then
-If ((FromTerritory=0) OR (PT=8)) then 
-If ((TContinent(ToTerritory)<>1) or (FromTerritory=0)) or 
-  ((TContinent(ToTerritory)=1) and 
-   (TContinent(FromTerritory)=1) and 
-   (TArmies(FromTerritory)<6) and 
-   (PT=8)
-  ) then
-Begin
-
-If (ToTerritory=9) then
-If TArmies(9)<3 then
-If (PT>6) and (TContinent(FromTerritory)=1) then
-Begin
-TPStrongestBorder(9, PMe, PT2,PA2);
-ToTerritory:=9;
-If (TContinent(PT2)=1) then FromTerritory:=PT2;
-end;
-
-B:=0;
-B2:=0;
-  For T:=1 to 9 do //Find what is not mine
-   begin 
-    If Not TIsMine(T) then B:=T;
-    If ((PTerritoriesCount(TOwner(T))=1) and (Not TIsMine(T))) then B2:=T;
-   end;
-If B2<>0 then B:=B2;
-
-   
-If ( (ET<=4) and (PA>EA+8) and (B<>0) and ((EA<30) or (TOwner(B)=COwner(6))) and (B<>775) ) then
- Begin
- TPStrongestBorder(B, PMe, PT2, PA2);
- If ((B2<>0) OR (PT=8)) then C:=0 else C:=1;
- If ((PA2>TArmies(B)+C) and (PT2<>0)) then
-  Begin
-   ToTerritory:=B;
-   FromTerritory:=PT2;
-   //If UBufferGet(15) then //umessage('Try attack (ET<=2) territory in N.A. from ', TName(PT2) );
-  end;
- end;
-//umessage(b);
-
-
-If PT=8 then
-Begin
-
-//If FromTerritory=0 then
-
-A:=0;
-For C:=1 to TBordersCount(B) do
-If TIsMine(TBorder(B,C)) then A:=A + TArmies(TBorder(B,C));
-
-If A>13 then D:=85 else D:=100; //changed from .85 and 1 so that D remains an integer
-
-If (100*(A-TBordersCount(B)))>D*EA then  //mutiply everything D is compared to by 100
-Begin
-TPStrongestBorder(B, PMe, PT2, PA2);
-FromTerritory:=PT2;
-ToTerritory:=B;
-end;
-//umessage(a,b);
-
- If ToTerritory=B then
-  If TContinent(FromTerritory)=1 then
-   If TArmies(FromTerritory)<6 then
-  Begin
-  TPStrongestBorder(B, PMe, PT2, PA2);
-  If (PA2>5) then FromTerritory:=PT2;
-  end;
-
-end;
-
-
-
-end;
-
-
-//Detect lone territory in S.A.#
-CAnalysis(2,PT,PA,ET,EA);
-If PT<4 then
-If PA-PT>1 then
-If ToTerritory<>14 then
-Begin
-
-If ((PA>EA+5) or (UBufferGet(39)=3)) then D:=1 else D:=0;
-B:=0;
-B2:=0;
-  For T:=10 to 13 do //Find what is not mine
-   begin 
-    If Not TIsMine(T) then B:=T; 
-    If ((PTerritoriesCount(TOwner(T))=1) and (Not TIsMine(T))) then B2:=T;
-    //<0
-   end;
-
-If ((B=13) and 
-     TIsMine(10) and 
-     TIsMine(11) and 
-    (NOT TIsMine(12)) and 
-    (TArmies(11)<=TArmies(13)+1) and
-    (TArmies(10)>TArmies(11))
-   ) then B:=12;
-
-If ((B=13) and 
-     TIsMine(10) and 
-     (ET=3)
-   ) then B:=11;
-
-If ((B2<>0) OR (PT=3)) then C:=0 else C:=1;
-  
-If ((ET<=2+D) and (B<>0)) then
- Begin
- TPStrongestBorder(B, PMe, PT2, PA2);
- If ((PA-4-C>TArmies(B)+C) and (PT2<>0)) then
-  If (PA2>2) or (PA2>TArmies(B)) then
-  Begin
-   ToTerritory:=B;
-   FromTerritory:=PT2;
-  end;
-  
-  
-If PT=3 then
-Begin
-
- If (
-    ((FromTerritory=12) OR (FromTerritory=10) OR (FromTerritory=13)) and 
-     (ToTerritory<>11) and (ToTerritory<>14) and TIsMine(11) and
-     (TArmies(11)>3) and ((TArmies(ToTerritory)>2) or ((ToTerritory=10) and (COwner(1)=0)))
-    ) then FromTerritory:=11;
-    
-end;
-    
-    
- end;
-
-end;
-
-
-
-
-//Detect and try attack lone game territory anywhere
-If (UBufferGet(39)>2) then
-Begin
-D:=0;
-
-If UBufferGet(10)>=0 then
-For J:=1 to 10 do
-  If PTerritoriesCount(J)=1 then Begin D:=1; J:=10; end;
-
-If (UBufferGet(10)<0) or (D=1) then
-If (UBufferGet(10)<0) or (PTerritoriesCount(trunc(UBufferGet(36)))<25) OR (PTerritoriesCount(PMe)>25) then
-Begin
-
-//Lame fix
-A:=0;
-If UBufferGet(10)<0 then
- If (PArmiesCount(-(trunc(UBufferGet(10))))<8) or 
- ( (COwner(6)=PMe) and (UBufferGet(36)=0) and (PTerritoriesCount(-(trunc(UBufferGet(10))))<6) and (Not ((COwner(1)=PMe) or (COwner(5)=PMe))) ) then //##0 ok
-   A:=343;
-
-B:=0; 
-For T:=1 to 42 do 
-If NOT TIsMine(T) then
- If (PTerritoriesCount(TOwner(T))=1) OR ((A=343) and (TOwner(T)=-(trunc(UBufferGet(10))))) then 
-Begin
-T2:=B;
-B:=T;
-TPStrongestBorder(B, PMe, PT, PA);
-If PT=0 then B:=T2; //If no contact, keep last success result B
-end;
-
-If B>0 then
-Begin
-TPStrongestBorder(B, PMe, PT, PA);
-If (((UBufferGet(36)<>0)=False) and (COwner(6)=PMe)) then C:=10 else C:=0;
-If (((PTerritoriesCount(TOwner(B))=1) and (TArmies(B)<10+C)) OR (TOwner(B)=-(trunc(UBufferGet(10))))) and (PT>0) and (PA>TArmies(B)) then 
-  Begin
-   ToTerritory:=B;
-   FromTerritory:=PT;
-   //If UBufferGet(15) then //umessage('Try attack lone GAME territory from ', TName(PT) );
-   If (TArmies(B)<=2) and (Not SConquest) then BypassBubble:=True;
-   If COwner(6)=PMe then
-    If (TOwner(ToTerritory)=-(trunc(UBufferGet(10)))) and (PTerritoriesCount(-(trunc(UBufferGet(10))))<=3) then BypassBubble:=True;
-  end;
-  end;
-end;
-end;
-
-
-//Get 33 from 32 if someone holds N.A.
-If (COwner(1)<>0) and (COwner(1)<>PMe) then
-If (COwner(1)=trunc(UBufferGet(36))) or ((UBufferGet(36)=0) and (UBufferGet(39)<6)) then //## 0 ok
-Begin
-
- If NOT (TIsMine(33) or TIsMine(35) or TIsMine(36) or TIsMine(37)) then
-  If TIsMine(32) and (TArmies(32)>TArmies(33)+2) and (TArmies(33)<8) then
-   Begin
-   ToTerritory:=33;
-   FromTerritory:=32;
-   end;
-
-
-
-//Prepare to get Koryak to get Alaska#
-If Not TIsMine(37) then
-Begin
-
-If TIsMine(33) then A:=TArmies(33) else A:=0;
-If TIsMine(35) then B:=TArmies(35) else B:=0;
-If TIsMine(36) then C:=TArmies(36) else C:=0;
-If TIsMine(38) then D:=TArmies(38) else D:=0;
-T:=33;
-//If ( (A>B) and (A>C) and (A>D) ) then T:=33;
-If ( (B>A) and (B>=C) and (B>=D) ) then T:=35;
-If ( (C>A) and (C>B) and (C>=D) ) then T:=36;
-If ( (D>A) and (D>B) and (D>C) ) then T:=38;
-
-If ( (UBufferGet(29)=0) and (PProgram(COwner(1))<>PProgram(PMe)) ) then //Cooperative NA
- If( TIsMine(T) and 
-    (TArmies(T)>TArmies(37)) and
-    ( (TArmies(37)<14) OR (TOwner(37)=TOwner(1)) )
-   ) then
-  Begin
-   ToTerritory:=37;
-   FromTerritory:=T;
-   BypassStruggler:=True;
-   If (COwner(1)=trunc(UBUfferGet(36))) and (COwner(1)<>0) and (T<>trunc(UBufferGet(20))) then BypassBubble:=True;
-   UBufferSet(13,37);
-   //If UBufferGet(15) then //umessage('Try Koryak from Mongolia if North America occupied ######');
-  end;
-end;
-
-end;
-
-
-//Protect Asia from Europe
-If (TContinent(FromTerritory)=3) or (FromTerritory=0) or 
-   ((ToTerritory=22) and (TContinent(FromTerritory)=5)) then
-If Not TIsMine(22) then
-If TContinent(ToTerritory)<>4 then
-Begin
-If TIsMine(21) then A:=TArmies(21) else A:=0;
-If TIsMine(23) then B:=TArmies(23) else B:=0;
-If TIsMine(26) then C:=TArmies(26) else C:=0;
-If A+B+C>4 then
-Begin
-T:=26;
-IF ((A>=B) and (A>=C)) then T:=21;
-IF ((B>A) and (B>=C)) then T:=23;
-
-If ((COwner(5)=PMe) and TIsMine(T) and (TArmies(T)>4) and (NOT TIsMine(22))) then
-Begin 
-FromTerritory:=T; 
-ToTerritory:=22; 
-end;
-end;
-end;
-
-//Always attack Africa if the holder is strong
-If COwner(4)<>0 then
-If TIsMine(27) then
-If (trunc(UBufferGet(36))=COwner(4)) or ((FromTerritory=0) and (UBufferGet(39)=2)) then
-If (COwner(5)<>PMe) or (TArmies(27)>6) then
-If (COwner(6)=PMe) or (COwner(4)=COwner(6)) or (COwner(1)=PMe) or (COwner(2)=PMe) then
-Begin
-If COwner(4)=COwner(3) then C:=1 else C:=0;
-If (( ((PTerritoriesCount(TOwner(15))>=12) or (trunc(UBufferGet(36))=COwner(4))) and (COwner(4)<>PMe) and (COwner(4)=TOwner(15))) and 
-     TIsMine(27) and 
-    (TArmies(15)>=TArmies(16)+C) and 
-    (TArmies(27)>TArmies(16)+1)) then
-      Begin
-      ToTerritory:=16;
-      FromTerritory:=27;
-      BypassStruggler:=True;
-      end;
-If (( ((PTerritoriesCount(TOwner(15))>=12) or (trunc(UBufferGet(36))=COwner(4))) and 
-      (COwner(4)<>PMe) and  
-      (COwner(4)=TOwner(15))) and 
-       TIsMine(27) and 
-      (TArmies(16)+C>TArmies(15)) and 
-      (TArmies(27)>TArmies(15)+1)) then
-      begin
-      ToTerritory:=15;
-      FromTerritory:=27;
-      BypassStruggler:=True;
-      end;
-      
- If FromTerritory=27 then
-  If (TContinent(ToTerritory)=4) then     
-   If Not TIsMine(26) then
- Begin
- 
-  If (COwner(3)=COwner(4)) and (COwner(4)<>0) then
-  If TArmies(ToTerritory) + TArmies(14) + TArmies(25)>= TArmies(14) + TArmies(26) then
-  If TArmies(FromTerritory)> TArmies(14) + TArmies(26) then
-      begin
-      ToTerritory:=26;
-      BypassStruggler:=True;
-      end;
- 
- If (COwner(4)<>0) and (TArmies(14)<5) and ((TOwner(26)=TOwner(15)) or (TArmies(26)<4)) then
-  If ( TArmies(ToTerritory) - (TArmies(14) + TArmies(26)) )>2 then
-      begin
-      ToTerritory:=26;
-      BypassStruggler:=True;
-      end;
-  
-  
-  end;
-   
-end;
-
-//Kamikaze attack
-If FromTerritory=0 then
-If COwner(4)<>0 then
-If COwner(4)=trunc(UBufferGet(36)) then
-If (TArmies(27)>4) then
-If ((COwner(5)=PMe) and (COwner(3)=0)) or (UBufferGet(39)=2) then
-If (COwner(6)=PMe) or (COwner(4)=COwner(6)) then
-Begin
-If (TArmies(16)<=TArmies(15)) then
- If (TArmies(16)>TArmies(27)+4) then
-  Begin
-  FromTerritory:=27;
-  ToTerritory:=16;
-  end;
-  
-If (TArmies(16)>TArmies(15)) then
- If (TArmies(15)>TArmies(27)+4) then
-  Begin
-  FromTerritory:=27;
-  ToTerritory:=15;
-  end;
-end;
-
-
-
-//attack East Africa instead Egypt if less armies
-    If ( ((ToTerritory=15) or (ToTerritory=16)) and (FromTerritory=27) ) then
-      If ((COwner(4)<>0) and ((COwner(3)=0) or ((TArmies(15)-1>TArmies(16)) and (ToTerritory=15)) ) ) then  
-        If (TArmies(15)>=TArmies(16)) then ToTerritory:=16 else ToTerritory:=15;  
-       
-     If TIsMine(31)=False then
-     if ToTerritory<>31 then
-      If ( (TIsMine(30)=True) and  
-           (TIsMine(39)=False) and 
-           (TArmies(31)+TArmies(39)<TArmies(30))
-          ) then 
-      Begin
-      ToTerritory:=31;
-      FromTerritory:=30;
-      BypassStruggler:=True;
-      end;
-   
-
-
-
-If COwner(3)<>0 then
-If COwner(3)<>PMe then
-Begin// (COwner(3)<>0)
-
-
-
-If ToTerritory=26 then
- If ((FromTerritory=27) and (Not TIsMine(22))) then
-Begin
-CAnalysis(5,PT,PA,ET,EA);
-If PT>4 then
- If ((COwner(4)=0) and (TArmies(22)<=TArmies(26))) then ToTerritory:=22;
-end;
-
-If (COwner(3)=trunc(UBufferGet(36))) and (COwner(3)<>PMe) then
-Begin
-
-If ((FromTerritory=0) or ((FromTerritory=27) and (TContinent(ToTerritory)=5) )) then
- If ( //(TArmies(26)<TArmies(22)) and 
-     (TArmies(26)<TArmies(27)) and
-     ( ((TArmies(29)<=TArmies(22)) and TIsMine(29)) or (NOT TIsMine(29)) ) and 
-     ( ((TArmies(28)<=TArmies(22)) and TIsMine(28)) or (NOT TIsMine(28)) ) and
-      TIsMine(27) 
-     ) then 
-     Begin
-     FromTerritory:=27;
-     ToTerritory:=26;
-     BypassStruggler:=True;
-     end;
-     
-If ToTerritory=26 then
- If ((FromTerritory=27) and (Not TIsMine(22))) then
- If ((COwner(4)=0) and (TArmies(22)<TArmies(26))) then ToTerritory:=22;
- 
-
-If ((ToTerritory=22) and (FromTerritory=27)) then
-If (COwner(3)=COwner(4)) then
-Begin
- If TArmies(15)<TArmies(14) then A:=TArmies(15) else A:=TArmies(14);
- 
- If (A<6) and (TArmies(26)-TArmies(22)<4) then
- If (TArmies(27)>TArmies(26)+A+1) then 
-     Begin
-     FromTerritory:=27;
-     ToTerritory:=26;
-     BypassStruggler:=True;
-     end;
-end;
-
-end;
-
-
-
-//Africa to Europe#
-If (COwner(3)<>0) then
-If (COwner(3)<>PMe) then
-Begin
-If TArmies(25)<TArmies(26) then T:=25 else T:=26;
-If (TIsMine(15) and TIsMine(14) and (TArmies(15)>TArmies(14))) then T2:=15 else T2:=14;
-If (TIsMine(15) and (Not TIsMine(14)) and (TArmies(26)<TArmies(14)+TArmies(25)) ) then Begin T2:=15; T:=26; end else T2:=14;
-
-If( (COwner(3)<>PMe) and 
-     TIsMine(T2) and 
-    (TArmies(T2)>TArmies(T))
-   ) then
-  Begin
-   ToTerritory:=T;
-   FromTerritory:=T2;
-   BypassStruggler:=True;
-   //If UBufferGet(15) then //umessage('Africa to Europe');
-  end;
-end;
-
-
-      //Don't miss an attack to destroy somebody's totality in Europe
-      If ((FromTerritory=0) and 
-          (COwner(4)=TOwner(26)) and
-          (COwner(3)<>PMe) and 
-          (COwner(3)<>0) and 
-           TIsMine(27) and 
-          (TArmies(26)<TArmies(27)) and
-          (TArmies(26)<TArmies(22)) and
-          (TArmies(26)<4) 
-         ) then 
-      Begin
-      ToTerritory:=26;
-      FromTerritory:=27;
-      ////If UBufferGet(15) then 
-      //umessage('Must not appear##################3Forced attack to Europe' );
-      UBufferSet(28,0);
-      If ((TArmies(14)<=3) and (TArmies(27)>TArmies(14)+2)) then UBufferSet(28,TArmies(14)+2);
-      If ((COwner(4)=COwner(1)) and (TArmies(14)+TArmies(12)<5) and (TArmies(27)>TArmies(14)+TArmies(12)+2)) then UBufferSet(28,TArmies(14)+TArmies(12)+2);
-      UBufferSet(27,26);
-      BypassStruggler:=True;
-      end;
-      
-
-end; //(COwner(3)<>0)
-
-
-
-//Attack North Africa if can get in Europe by Western Europe later#
-If ((COwner(3)<>0) or (COwner(2)<>0)) then
-If NOT ((FromTerritory=15) and (ToTerritory=26)) then
-Begin
-If ( TIsMine(16) and (TIsMine(14)=False) ) then
- If (((TArmies(14)+TArmies(25)<TArmies(16)) and (COwner(3)<>0)) OR ((TArmies(14)+TArmies(12)<TArmies(16)) and (COwner(2)<>0))) then
-      Begin
-      ToTerritory:=14;
-      FromTerritory:=16;
-      UBufferSet(13,14);
-      end;
-If ( TIsMine(15) and (TIsMine(14)=False) ) then
- If (((TArmies(14)+TArmies(25)<TArmies(15)) and (COwner(3)<>0)) OR ((TArmies(14)+TArmies(12)<TArmies(15)) and (COwner(2)<>0))) then
-      Begin
-      ToTerritory:=14;
-      FromTerritory:=15;
-      UBufferSet(13,14);
-      end;
-
-end;
-
-//Asia protection attack
-If COwner(5)=PMe then
-If (FromTerritory=0) or ((COwner(TContinent(ToTerritory))=0) and (not Sconquest) and (ToTerritory<>22)) then
-If ((TArmies(28)<4) or (TArmies(29)<4)) and (TArmies(22)=1) then
-If not TIsMine(22) then
-Begin
-If TArmies(29)>TArmies(28) then FromTerritory:=29 else FromTerritory:=28;
-If (TArmies(FromTerritory)<3) or 
-   ( (TOwner(23)=TOwner(22)) and (TArmies(23)-1>TArmies(FromTerritory)) ) or
-   ( (TOwner(21)=TOwner(22)) and (TArmies(21)-1>TArmies(FromTerritory)) ) then FromTerritory:=0;
-ToTerritory:=22;
-end;
-
-//Choose a good attack to Ukrania
-If ToTerritory=22 then 
-Begin
-CAnalysis(5,PT,PA,ET,EA);
-GO:=((PT=12) or ( (PT=11) and ((Not TIsMine(37)) or (Not TIsMine(36)) or (Not TIsMine(35)) or (Not TIsMine(38))) ));
-If ( GO and (FromTerritory=27) ) then
-Begin
-If ((PT=12) and (TArmies(27)>6)) then C:=2 else C:=1;
-If ((TArmies(29)+C>=TArmies(27)) and (TArmies(29)> TArmies(28))) then FromTerritory:=29;
-If ((TArmies(28)+C>=TArmies(27)) and (TArmies(28)>=TArmies(29)) and (TArmies(28)>1)) then FromTerritory:=28;
-end;
-
-If ( GO and ((FromTerritory=28) or (FromTerritory=29)) ) then
-Begin
-If ( (FromTerritory=29) and (TArmies(28)>=TArmies(29)) ) then FromTerritory:=28;
-If ( (FromTerritory=28) and (TArmies(29)> TArmies(28)) ) then FromTerritory:=29;
-If (TArmies(27)>2*TArmies(FromTerritory)+2) then FromTerritory:=27;
-end;
-
-If (GO and 
-   (FromTerritory=27) and 
-   ( SConquest or ((TArmies(27)<8) and (PT=12)) ) and
-   (COwner(3)=0)) then FromTerritory:=0;
-
-end;
-
-
-//Try attack Middle East if someone got 2 continents
-If ( NOT ((COwner(3)<>0) and ((ToTerritory=22) or (ToTerritory=26))) ) then
-If ( (TIsMine(27)=False) and 
-     ((UBufferGet(36)<>0) and ((COwner(3)=trunc(UBufferGet(36))) or (COwner(4)=trunc(UBufferGet(36))))) ) then 
-Begin
- TPStrongestBorder(27, PMe, PT2,PA2);
- If ( (PA2-1>TArmies(27)) and ((TArmies(27)<10) or (TOwner(27)=trunc(UBufferGet(36)))) ) then
-   Begin
-    ToTerritory:=27;
-    FromTerritory:=PT2;
-    //If UBufferGet(15) then //umessage('Try conquest Middle East to "get in touch" with the strong player ' );
-    If ((FromTerritory=29) and (TArmies(22)<TArmies(29)) and (TArmies(22)<=TArmies(26)+1) and (COwner(3)=TOwner(22)) and (COwner(3)=trunc(UBufferGet(36)))) then ToTerritory:=22;
-   end;
-end;    
-
- 
-  
-//26 to 14
-If TIsMine(26) then
-If (Cowner(4)<>0) then
- If ( (Cowner(4)<>PMe) and ((TArmies(26)>TArmies(14)) or (TArmies(26)>TArmies(15))) ) then
-  Begin
-   if (TArmies(14)<15) then ToTerritory:=14;
-   If (TArmies(15)<=TArmies(14)) and ((COwner(2)=0) or (TArmies(12)+TArmies(14)>TArmies(26))) then ToTerritory:=15;
-   If (ToTerritory=14) or (ToTerritory=15) then 
-   Begin
-   FromTerritory:=26;
-   BypassStruggler:=True;
-   end;
-  end;
-  
-  
-  
-  
-If (COwner(1)<>0) then
-If (COwner(1)<>PMe) then
-Begin //c1
-  
-//North Africa attack strategy#
-If TIsMine(14) then
-If COwner(1)=COwner(2) then
-If( (COwner(3)<>COwner(1)) and 
-    (TIsMine(10)=False) and
-    (TIsMine(12)=False) and
-    (TArmies(14)>TArmies(12)+TArmies(10)+TArmies(9)+1)
-   ) then
-  Begin
-   ToTerritory:=12;
-   FromTerritory:=14;
-   //If UBufferGet(15) then //umessage('Try attack South America and North America');
-  end;
-  
-
-//Brazil to Venezuela if can get Mexico#
-If( TIsMine(12) and 
-    (TIsMine(10)=False) and
-    (TArmies(12)>TArmies(10)+TArmies(9)+1)
-   ) then
-  Begin
-   ToTerritory:=10;
-   FromTerritory:=12;
-   BypassStruggler:=True;
-   //If UBufferGet(15) then //umessage('Brazil to Venezuela to get Mexico');
-  end;
-
-  
-//If North America occupied try Alaska attack
-If TIsMine(37) then
-If ( NOT ( 
-(COwner(1)<>trunc(UBufferGet(36))) and 
-(UBufferGet(36)<>0) and
-(PTerritoriesCount(COwner(1))<15) 
-)) then
-If( (TOwner(1)=COwner(1)) and
-    ( (TArmies(37)>TArmies(1)) or ((TArmies(37)>trunc(0.8*TArmies(1)-0.7)) and (TArmies(37)>3)) )
-   ) then
-  Begin
-   ToTerritory:=1;
-   FromTerritory:=37;
-   BypassStruggler:=True;
-   If (COwner(1)=trunc(UBufferGet(36))) and (COwner(1)<>0) and (37<>UBufferGet(20)) then BypassBubble:=True;
-  end;
-  
-end;//c1
-
-
-
-// Venezuela to Mexico if North America occupied#
-If ( ((FromTerritory=0) and (SConquest=False) and (COwner(2)=PMe)) OR 
-     ((COwner(1)<>0) and (COwner(1)<>PMe)) ) then 
-begin
-CLeader(1,LPa,LTa,LAa);
-CAnalysis(1,PT,PA,ET,EA);
-If( (((LTa>=8) and (double(EA)<(1.4*LTa)) and (TArmies(9)<4) and (TArmies(10)>15) and (TOwner(9)=TOwner(8)) and (TOwner(9)=TOwner(7)) )) and 
-     TIsMine(10) and 
-    (NOT TIsMine(9)) and 
-    (TArmies(10)>TArmies(9))
-   ) then
-  Begin
-   ToTerritory:=9;
-   FromTerritory:=10;
-  end;
-  
-If ((LTa=9) and (LPa<>PMe) and (TArmies(10)>TArmies(9)) and TIsMine(10)) then 
-  Begin
-   ToTerritory:=9;
-   FromTerritory:=10;
-   BypassStruggler:=True;
-  end;
-  
-end;
-
-
-
-
-//Attack from Indonesia if someone holds Asia
-If FromTerritory=0 then
-If COwner(6)=PMe then
- If (COwner(5)<>PMe) and ((COwner(5)<>0) or (TOwner(31)=trunc(UBufferGet(36)))) then
-  If TArmies(39)>TArmies(31) then
-       Begin
-       ToTerritory:=31;
-       FromTerritory:=39;
-       BypassStruggler:=True;
-       end;
-
-
-
-//If Asia occupied try Koryak attack
-If TIsFront(1) then
-If TArmies(1)>1 then
-Begin //TIsFront(1)
-
-If TOwner(37)=COwner(5) then
-If( 
-    (COwner(5)<>PMe) and 
-    ((TArmies(1)>TArmies(37)) or ((TArmies(1)>3) and (TArmies(1)>trunc(0.8*TArmies(37)-0.7))))
-   ) then
-  Begin
-   ToTerritory:=37;
-   FromTerritory:=1;
-   BypassStruggler:=True;
-   //If UBufferGet(15) then //umessage('Try attack Koryak if Asia occupied');
-  end;
-  
-      
-      //Try attack someone for cards from Alaska
-      TWeakestFront(1,ET,EA);
-      If (SConquest=GO) and (FromTerritory=0) then
-       If ( (TIsMine(1)=True) and (TArmies(1)>5) and (EA<4) ) then
-       Begin
-        ToTerritory:=ET;
-        FromTerritory:=1;
-        If (ET=37) and SConquest then FromTerritory:=0;
-        //If UBufferGet(15) then //umessage('Try attack someone for cards from Alaska= ', ET );
-       end;
-
-//Don't attack Koryak from Alaska if not needed 
-If ((FromTerritory=1) and (ToTerritory=37)) then
- If SConquest then
-  Begin
-   if UBufferGet(10)<>0 then C:=40 else C:=20;
-   If ( (TArmies(1)<C) and (COwner(5)=0) and (PArmiesCount(PMe)<100+C) ) then FromTerritory:=0;
-  end;
- 
-  
-end; //TIsFront(1)
-
-
-//Do not weaken Koryak if someone holds North America
-If ((COwner(1)<>0) and (COwner(1)<>PMe) and (FromTerritory=37) and (TContinent(ToTerritory)=5) and (TArmies(ToTerritory)<=2) ) then UBufferSet(16,37); //Pass nothing
-
-//Attack from Brazil for cards
-If TIsMine(12) then 
-If (FromTerritory=0) then
-If ((SConquest=False) and (TArmies(12)>6) and (TArmies(12)>TArmies(14)+1) and (TIsMine(14)=False) and 
-( (TArmies(14)=1) or (TArmies(14)<4) and (PTerritoriesCount(COwner(4))>11) )) then
-  Begin
-   ToTerritory:=14;
-   FromTerritory:=12;
-   UBufferSet(13,14);
-  end;  
-
-
-
-//Lame block attacks 
-If FromTerritory=31 then
-If ((ToTerritory=30) or (ToTerritory=32)) then
-If (TArmies(ToTerritory)>3) or 
-   ((TArmies(ToTerritory)>2) and ((TArmies(32)>5) or (TArmies(30)>5)) )
-    or SConquest then
-If (PArmiesCount(-(trunc(UBufferGet(10))))>40) and (UBufferGet(9)>=0) then
-if PTerritoriesCount(PMe)<21 then
-Begin
-CAnalysis(5,PT,PA,ET,EA);
-D:=0;
-For T:=1 to 38 do
- If (TArmies(T)>30) then
-  If (TOwner(T)=-(trunc(UBufferGet(10)))) then
-   If PArmiesCount(-(trunc(UBufferGet(10))))-TArmies(T)<=TArmies(T) then
-    Begin
-    D:=T;
-    T:=38;
-    end;
-
-If (PT>1) or (TArmies(ToTerritory)>2) then
-if (TArmies(D)>TArmies(31)-TArmies(ToTerritory)+6) then
-  If (TOwner(ToTerritory)<>-(trunc(UBufferGet(10)))) then
-   Begin 
-    FromTerritory:=0;
-    //umessage('Lame block attacks ToTerritory ',ToTerritory);
-   end;
-
-end;
-
-//Crazy Bubble
-If UBufferGet(6)<>0 then
-If FromTerritory=0 then
-Begin
-
-TWeakestFront(trunc(UBufferGet(6)),ET,EA);
-If UBufferGet(39)=2 then C:=0 else C:=1;
-If (TContinent(ET)=TContinent(trunc(UBufferGet(6)))) and (TArmies(trunc(UBufferGet(6)))-EA>C) then
-Begin
-FromTerritory:=trunc(UBufferGet(6));
-ToTerritory:=ET;
-//umessage('Crazy bub ', UBufferGet(6), '> ', ET);
-end
- else
- UBufferSet(6,0);
- 
-end;
-
-
-//Try get cards
-If ((FromTerritory=0) or ((FromTerritory=trunc(UBufferGet(20))) and (trunc(UBufferGet(25))=1))) and (not SConquest) then
-Begin
-
-For T:=1 to 42 do
-If TIsFront(T) then
-If TArmies(T)>2 then
-If COwner(TContinent(T))<>PMe then
-If T<>trunc(UBufferGet(20)) then
-Begin
-TWeakestFront(T,ET,EA);
-If EA=1 then
-  Begin
-   ToTerritory:=ET;
-   FromTerritory:=T;
-   //umessage('cards attak ', T, '> ', ET);
-   T:=42;
-  end;
-end;
-
-If FromTerritory=0 then
-For T:=1 to 42 do
-If TIsFront(T) then
-If TArmies(T)=2 then
-If COwner(TContinent(T))<>PMe then
-If T<>trunc(UBufferGet(20)) then
-Begin
-TWeakestFront(T,ET,EA);
-If EA=1 then
-  Begin
-   ToTerritory:=ET;
-   FromTerritory:=T;
-   //umessage('cards attak2 ', T, '> ', ET);
-   T:=42;
-  end;  
-end;
-
-If ((UBufferGet(9)<>0) or (UBufferGet(8)<>0)) and 
-   ((FromTerritory=31) or (FromTerritory=32) or (FromTerritory=30) or 
-   (FromTerritory=trunc(UBufferGet(20))) or (FromTerritory=trunc(UBufferGet(9))) or (ToTerritory=trunc(UBufferGet(9)))) then FromTerritory:=0;
-end;
-
-
-If (TContinent(ToTerritory)=1) or (TContinent(ToTerritory)=4) or (TContinent(ToTerritory)=3) then BypassStruggler:=True;
-If (FromTerritory=27) or (ToTerritory=27) then BypassStruggler:=True;
-
-If UBufferGet(25)=1 then
-Begin 
-
-If COwner(2)=PMe then
-Begin
-CAnalysis(1,PT,PA,ET,EA);
-If ((PA+TArmies(10)>trunc(0.8*EA)) and (TContinent(ToTerritory)=1)) 
-   or ((TContinent(FromTerritory)=2) and (COwner(TContinent(ToTerritory))<>0)) then BypassBubble:=True;
-end;
-
-If (TContinent(ToTerritory)=2) and (FromTerritory<>trunc(UBufferGet(20))) then BypassBubble:=True;
-If (TContinent(ToTerritory)=1) and (COwner(2)=PMe) then BypassBubble:=True;
-end;
-
-
-//#########################BUBBLE ATTACK
-a1:=FromTerritory;
-a4:=ToTerritory;
-
-//If (((TContinent(FromTerritory)=6) or (TContinent(ToTerritory)=6)) and (COwner(6)<>PMe)) then UBufferSet(25,0);
-
-
-If (UBufferGet(25)=1) then
-begin //buble
-////If UBufferGet(15) then //umessage('before1 Bubble attack: FromTerritory= ',FromTerritory, '    ToTerritory= ', ToTerritory, '  W= ',W);
-
-b:=trunc(UBufferGet(20));
-NormalBubble:=True;
-FromTerritory:=0;
-
-
-If TIsFront(9) then
- If COwner(2)=PMe then
-Begin
-TWeakestFront(b,ET,EA);
- if EA>2 then
-  if TContinent(trunc(UBufferGet(20)))>2 then
-   If TArmies(trunc(UBufferGet(20)))-TArmies(9)<4 then UBufferSet(20,9);
-end;
-
-//Bubble attack to Alaska
-
-CAnalysis(1,PT,PA,ET,EA);
-A:=0;
-If (b=33) or (b=37) then D:=TArmies(trunc(UBufferGet(20))) else D:=0;
-If (TArmies(b)>EA+TArmies(33)+TArmies(37)-D+20) then A:=333;
-
-If UBufferGet(36)<>0 then
-If (COwner(6)<>-(trunc(UBufferGet(10)))) or (PTerritoriesCount(COwner(1))>26) then
-If ( (UBufferGet(29)=0) and (PProgram(COwner(1))<>PProgram(PMe)) ) then //Cooperative
-If (
-   (COwner(1)=trunc(UBufferGet(36))) and 
-   (COwner(1)<>0) and 
-   ( ((TArmies(b)>TArmies(1)+6) and (COwner(6)=PMe)) or (TArmies(b)>TArmies(1)+20) )
-   ) then A:=333;
-
-If A=333 then
-Begin //change (TArmies(37)<10)
-If (TOwner(37)=COwner(1)) then C:=13 else C:=25;  //changed from 1.3 and 2.5
-
-  If ( TIsBordering(33,b) and 
-      (double(TArmies(33))<(double(TArmies(b)) / 3)) and
-     ((double(TArmies(37))<((double(TArmies(b))/ (double(C)/10) )))) and  // divide by 10 to match change made above
-      (TArmies(b)-TArmies(33)-TArmies(37)>TArmies(1)) and 
-      (TIsMine(37)=False) and
-      (TIsMine(33)=False) ) then Begin 
-          ToTerritory:=33; FromTerritory:=b; UBufferSet(13,ToTerritory); end;
-
-T:=0;
-If Not TIsMine(35) then T:=35;
-If Not TIsMine(36) then T:=36;
-If ( (Not TIsMine(35)) and (Not TIsMine(36)) and (TArmies(35)< TArmies(36)) ) then T:=35;
-If ( (Not TIsMine(35)) and (Not TIsMine(36)) and (TArmies(35)>=TArmies(36)) ) then T:=36;
-
-If ( (T<>0) and (TArmies(T)<=TArmies(33)) ) then
-  If ( TIsBordering(T,b) and 
-      (double(TArmies(T))<(double(TArmies(b)) / 3)) and
-     ((double(TArmies(37))<(double(TArmies(b)) / (double(C)/10) ))) and  // divide by 10 to match change made above
-      (TArmies(b)-TArmies(T)-TArmies(37)>TArmies(1)) and 
-      (TIsMine(37)=False) and
-      (TIsMine(T)=False) ) then Begin ToTerritory:=T; FromTerritory:=b; UBufferSet(13,ToTerritory); end;
-      
-      
-  If ( TIsBordering(37,b) and 
-      (TIsMine(37)=False) and
-     ((double(TArmies(37))<(double(TArmies(b)) / (double(C)/10) ))) and
-      (TArmies(37)+TArmies(1)<TArmies(b))
-  ) then Begin ToTerritory:=37; FromTerritory:=b; UBufferSet(13,ToTerritory); end;
-  
-  If ( TIsBordering(1,b) and (TIsMine(1)=False) ) then Begin ToTerritory:=1; FromTerritory:=b; end;
-
-  
-  If ToTerritory=1 then
-   If (TArmies(b)>EA+15) or ((TArmies(b)>EA) and (EA<18)) then 
-    Begin
-    UBufferSet(13,1);
-    If (TArmies(b)>EA+15) then UBufferSet(7,1);
-    If (TArmies(b)>EA+2) and (COwner(6)=PMe) then UBufferSet(7,1);
-    end;  
-    
-    
-
-  If FromTerritory=0 then NormalBubble:=True else NormalBubble:=False;
-end;
-
-
-//Bubble attack to Australia
-CAnalysis(6,PT,PA,ET,EA);
-If ( (UBufferGet(29)=0) and (PProgram(COwner(6))<>PProgram(PMe)) ) then //Cooperative
-IF ( ( (TArmies(b)>TArmies(31)+EA+12) and (b<>31) and (COwner(6)<>PMe) ) OR
-     ( (b=31) and (TArmies(b)>EA+8) and (COwner(6)<>PMe) ) 
-    ) then
-If Not ((PTerritoriesCount(trunc(UBufferGet(36)))>24) and (COwner(6)<>trunc(UBufferGet(36)))) then
-If NOT ( (UBufferGet(36)>0) and (UBufferGet(36)<>-UBufferGet(10)) and (Cowner(6)=-(trunc(UBufferGet(10)))) ) then
- Begin
-  If ( TIsBordering(33,b) and (TIsMine(33)=False) and (TIsMine(32)=False) and (TIsMine(31)=False) and (double(TArmies(33))<(double(TArmies(b)) / 3)) and (TArmies(33)+TArmies(32)+TArmies(31)+EA<TArmies(b)) ) then
-  Begin 
-  ToTerritory:=33; 
-  If (b=28) and (TIsMine(29)=False) and (TArmies(29)<TArmies(33)) then ToTerritory:=29; 
-  FromTerritory:=b; 
-  UBufferSet(13,ToTerritory); 
-  end;
-  
-  If ( TIsBordering(30,b) and (TIsMine(30)=False) and (TIsMine(31)=False) and (TArmies(b)>TArmies(31)+TArmies(30)+EA)) then Begin ToTerritory:=30; FromTerritory:=b; UBufferSet(13,ToTerritory); end;
-  If ( TIsBordering(32,b) and (TIsMine(32)=False) and (TIsMine(31)=False) and (TArmies(b)>TArmies(31)+TArmies(32)+EA)) then Begin ToTerritory:=32; FromTerritory:=b; UBufferSet(13,ToTerritory); end;
-  
-  If ( TIsBordering(32,b) and TIsBordering(30,b) and (TArmies(32)<=TArmies(30)) and (TIsMine(31)=False) and (TIsMine(32)=False) and (TArmies(b)>TArmies(31)+TArmies(32)+EA)) then Begin ToTerritory:=32; FromTerritory:=b; UBufferSet(13,ToTerritory); end;
-  If ( TIsBordering(32,b) and TIsBordering(30,b) and (TArmies(32)> TArmies(30)) and (TIsMine(31)=False) and (TIsMine(30)=False) and (TArmies(b)>TArmies(31)+TArmies(30)+EA)) then Begin ToTerritory:=30; FromTerritory:=b; UBufferSet(13,ToTerritory); end;
-
-  If ( TIsBordering(31,b) and (TIsMine(31)=False) ) then Begin ToTerritory:=31; FromTerritory:=b; UBufferSet(13,ToTerritory); end;
-  If ( TIsBordering(39,b) and (TIsMine(39)=False) ) then Begin ToTerritory:=39; FromTerritory:=b; end;
-  If b=39 then UBufferSet(25,0);
- 
-  If FromTerritory=0 then NormalBubble:=True else NormalBubble:=False;
- end;
- 
- //Bubble attack to S.A.
-If (b>6) and (b<28) then
-Begin
-
- C:=1000;
- For T:=15 to 27 do
-  If
-  TIsBordering(b, T) and 
-  TIsBordering(T, 14) and 
-  (NOT TIsMine(T)) and
-  (TArmies(T)<C) then
-  Begin
-   A:=T;
-   C:=TArmies(T);
-  end;
- 
- CAnalysis(2,PT,PA,ET,EA);
- If (COwner(2)=trunc(UBufferGet(36))) and (COwner(2)<>0) and ((UBufferGet(10)=0) or (COwner(2)=-(trunc(UBufferGet(10))))) then D:=12 else D:=25;
- If TIsBordering(b, 9) then
- If TArmies(b)>EA+D+TArmies(9)+4+(TArmies(14) div 3) then
- If Not TIsMine(9) then
- Begin
-  ToTerritory:=9;
-  FromTerritory:=b;
-  NormalBubble:=False;
-  UBufferSet(13,ToTerritory); 
- End;
- 
- If (b=9) then
- If TArmies(b)>EA+D+(TArmies(14) div 3) then
- If Not TIsMine(10) then
- Begin
-  ToTerritory:=10;
-  FromTerritory:=b;
-  NormalBubble:=False;
-  UBufferSet(13,ToTerritory); 
- End;
- 
- 
- If TIsBordering(b, A) then
- If ((TArmies(b)>EA+D+C+TArmies(14)) and (Not TIsMine(14))) and 
- ((EA<35) OR ((trunc(UBufferGet(36))=COwner(2)) and (COwner(2)<>0)) )  then
- If (b<>27) or (COwner(6)<>PMe) then
- Begin
-  ToTerritory:=A;
-  FromTerritory:=b;
-  NormalBubble:=False;
-  UBufferSet(13,ToTerritory); 
- End;
- 
- If TIsBordering(14,b) or (b=14) then
-Begin
- 
- If ((TArmies(b)>EA+D+TArmies(14)) and (Not TIsMine(14)) and ((EA<35) OR (trunc(UBufferGet(36))=TOwner(13))) ) then
- Begin
- ToTerritory:=14; 
- FromTerritory:=b; 
- NormalBubble:=False;
- UBufferSet(13,ToTerritory); 
- end;
-
- If (TArmies(b)>EA+D-1) and (Not TIsMine(12)) and (b=14) then
-   Begin
-   ToTerritory:=12; 
-   FromTerritory:=b; 
-   NormalBubble:=False;
-   UBufferSet(13,ToTerritory); 
-   end;
-end;
-end;//S.A. Bubble attack
-
-
-If NormalBubble then
-Begin //NormalBubble
- If (SConquest=False)  then 
-  begin 
-        If (UBufferGet(24)=1) then W:=1 else W:=27;
-        If (UBufferGet(24)<>1) then
-        Begin
-        If COwner(3)<>0 then W:=22;
-        If COwner(4)<>0 then W:=15;
-        end;
-Bubble1:
-        
-        FromTerritory:=0;
-        ToTerritory:=0;
-        a:=99999;
-        b:=trunc(UBufferGet(20));
-        For T:=W to 42 do //delimiter
-         If TIsBordering(T,b) then
-          If NOT TIsMine(T) then
-          Begin
-           If (TArmies(T)<a) or 
-          ((TOwner(T)=trunc(UBufferGet(36))) and (TOwner(ToTerritory)<>trunc(UBufferGet(36))) and (TArmies(T)<=a+1))
-            then begin a:=TArmies(T); ToTerritory:=T; end;
-          end;
-
-D:=trunc(URandom(101));
-
-if ( (UBufferGet(21)=1) or (TArmies(ToTerritory)<3) or ((UBufferGet(21)=0) and (D>80)) ) then   //changed to 80 from .8
-  If ( (TArmies(ToTerritory)<4) and (ToTerritory<>0) ) then 
-          Begin  //20%
-          FromTerritory:=b;
-          UBufferSet(21,1);
-          end
-         else 
-          Begin
-          FromTerritory:=0;
-          UBufferSet(21,0);
-          end;
-
-IF (D<80) or (UBufferGet(21)=2) THEN  // changed from .8
-  If ( ((double(TArmies(ToTerritory))<(double(TArmies(b)) / 10)) or (TArmies(ToTerritory)<4)) and (ToTerritory<>0) ) then
-Begin
-FromTerritory:=b;
-
-If UBufferGet(21)=0 then
- If NOT ((ToTerritory=33) and (TArmies(ToTerritory)<5)) then
-  If TArmies(ToTerritory)>2 then
-Begin
-If (TArmies(ToTerritory)>3) and (URandom(0)<0.8) and (URandom(0)<(double(TArmies(ToTerritory))/10)) then FromTerritory:=0;
-
-If (COwner(6)<>PMe) and (TArmies(ToTerritory)>2) and (URandom(0)<0.7) and (URandom(0)<(double(TArmies(ToTerritory)))/8) then FromTerritory:=0;
-end;
-
-UBufferSet(21,2);
-end;
-
-If TArmies(b)<4 then FromTerritory:=0;
-  
-end; //sconquest false
-
-
-
-
-          
-//Randomize the bubble movement a bit
-If a1=b then
-If ( ((URandom(0)>0.15) or (TOwner(a4)=-(trunc(UBufferGet(10))))) and (FromTerritory=b)) then
- If (TArmies(ToTerritory)=TArmies(a4)) or (TOwner(a4)=-(trunc(UBufferGet(10)))) then
- If ((a4<>22) and (a4<>28) and (a4<>29) and (a4<>3) and (a4<>1) and (a4<>37)) or (TOwner(a4)=-(trunc(UBufferGet(10)))) then 
- If COwner(6)=PMe then
- If TArmies(b)>3 then
-  Begin
-  FromTerritory:=a1;
-  ToTerritory:=a4;
-  If TContinent(a4)<>5 then UBufferSet(17, 1);
-  ////umessage('random movement');
-  end;
- 
-//Territory Preferences
-//If ((trunc(UBufferGet(36))<>COwner(3)) or (trunc(UBufferGet(36))<>COwner(4))) and (UBufferGet(36)<>0) then
-If (ToTerritory=27) and (FromTerritory=29) and (TArmies(28)=TArmies(27)) and (NOT TIsMine(28)) and TIsFront(28) then ToTerritory:=28;
-
-If TIsBordering(FromTerritory,33) then
- If (TArmies(33)=TArmies(ToTerritory)) and (NOT TIsMine(33)) then ToTerritory:=33;
-
-If (W>1) then
- If ((COwner(TContinent(ToTerritory))=0) or (FromTerritory=0)) then
-  If ((TArmies(ToTerritory)>1) or (FromTerritory=0)) then
-Begin
-W:=1;
-Goto Bubble1;
-end;
-
-
-
-UBufferSet(17, 0);
-
-If (
-((FromTerritory=0) and (a1<>b) and (a1<>31) and 
-((a1<>39) or (TArmies(31)<5)) and (SConquest=False)) 
-or BypassBubble 
-or ((a1=14) and (TContinent(ToTerritory)=3) and (COwner(2)=PMe))
-
-) then // and (a1>34)
-          Begin
-          FromTerritory:=a1;
-          ToTerritory:=a4;
-          If (a1=b) then
-           If (TContinent(ToTerritory)<>5) and (TContinent(b)=5) then 
-           Begin
-           UBufferSet(17, 1); //don't change the bubble position in this attack
-           UBufferSet(16,b); //Pass nothing
-           end;
-          end;
-
-
-
-end; //NormalBubble
-If b=39 then UBufferSet(25,0);
-
-
-If (FromTerritory=b) and (TContinent(ToTerritory)=5) then UBufferSet(17, 0);
-
-If (FromTerritory=0) and (COwner(6)=0) then
-Begin
-CAnalysis(6,PT,PA,ET,EA);
-If TIsMine(39) and (TArmies(39)-4>EA) and (PT=1) then 
- Begin
- If TArmies(40)>=TArmies(42) then T:=42 else T:=40;
- ToTerritory:=T;
- FromTerritory:=39;
- BypassStruggler:=True;
- end;
-end;
-
-end; //bubble 
-
-
-
-//Hold the Wyrm's result in the case players=2
-XX:=FromTerritory;
-YY:=ToTerritory;
-
-end;
-    
-
-
-    //Go STRUGGLER attack if a bug is found
-    
-
-   If FromTerritory<>0 then 
-    If ( (TIsMine(ToTerritory)=True) or 
-         (TIsMine(FromTerritory)=False) or
-         (TArmies(FromTerritory)<=1) or
-         (TIsBordering(ToTerritory, FromTerritory)=False)
-        )
-     then 
-        Begin
-        a4:=222;
-        //umessage('Attack bug found!!! Report it and receive the latest version of Frank. Attacking with STRUGGLER: FromTerritory= ', FromTerritory,'  ToTerritory= ', ToTerritory);
-        end;
-        
-  If (UBufferGet(39)=2) then
-   If 	(FromTerritory<12) and (FromTerritory>25) then ByPassStruggler:=True;
-
-//Attack with struggler if strong player and 3 players
-attack3:=False;
-If FromTerritory=0 then
-if UBufferGet(39)=3 then  
-if (
-((PTerritoriesCount(COwner(3))>20) and (COwner(3)<>PMe)) or
-((PTerritoriesCount(COwner(1))>20) and (COwner(1)<>PMe)) or
-((PTerritoriesCount(COwner(5))>20) and (COwner(5)<>PMe)) or
-((PTerritoriesCount(COwner(6))>20) and (COwner(6)<>PMe)) or
-((PTerritoriesCount(COwner(4))>20) and (COwner(4)<>PMe))
-) then
-attack3:=True;
-
-
-
-  
-//###STRUGGLER
-If ((BypassStruggler=False) or (a4=222) or attack3) then
-Begin
-
-If ((a4=222) or attack3 or (UBufferGet(19)<>0) or (UBufferGet(39)=2)) then 
-//If FromTerritory=0 then
-BEGIN
- 
-begin
-  // perform the attack with highest point value if force ratio>=1.2
-  FromTerritory:=0;
-  ToTerritory:=0;
-  MaxValue:=0;
-  // scan all territories
-  for T:=1 to 42 do begin
-    if TIsFront(T)                      // territory is mine and front
-    and (TArmies(T)>1) then begin       // and attack is possible
-      // scan all possible fronts
-      FCount:=TFrontsCount(T);
-      for F:=1 to FCount do begin
-        T2:=TFront(T,F);
-        Ratio :=double( TArmies(T) ) / TArmies(T2);
-        if Ratio>=1.2 then begin
-          Value:=Eval(T,T2);
-          // consider only strategic attacks
-          if Value>=1.0 then begin
-            if Value>MaxValue then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              MaxValue:=Value;
-            end;
-          end; 
-        end;
-      end;
-    end;
-  end;
-end;
-
-
-
-//## Struggler rules
- // attack Australia with China if viable#
- If not TIsMine(31) then
- If TIsMine(32) then
-    If ( ((TArmies(32)>TArmies(30)) and TIsMine(30)) or (TIsMine(30)=False) ) then
-      If ( (TIsMine(39)=False) and 
-           (TIsMine(40)=False) and
-           (TIsMine(41)=False) and
-           (TIsMine(42)=False) and
-           (TArmies(31)+TArmies(39)+TArmies(40)+TArmies(41)<TArmies(32))
-          ) then 
-      Begin
-      ToTerritory:=31;
-      FromTerritory:=32;
-      end;
-     
-      
-      B:=5;
-      //attack India from Middle East if can get Indonesia later#
-      If ((TArmies(27)-B>TArmies(30)+TArmies(31)+TArmies(39)) and
-          (TIsMine(27)=True) and 
-          (TIsMine(30)=False) and 
-          (TIsMine(31)=False) and
-          (TIsMine(39)=False) 
-         ) 
-        then
-          Begin
-          ToTerritory:=30;
-          FromTerritory:=27;
-          B:=0;
-          end;
-          
-//Attack Af 
-If TIsMine(12) then
- If COwner(4)<>0 then 
-  If COwner(4)<>PMe then 
-   If TArmies(12)>TArmies(14) then
-         Begin
-          ToTerritory:=14;
-          FromTerritory:=12;
-         end;
-         
-If COwner(1)<>0 then
-if COwner(1)<>PMe then
-Begin //c1<>PMe
-
-//Prepare to get Koryak to get Alaska#
-If( TIsMine(33) and 
-    (TIsMine(37)=False) and
-    (TArmies(33)>TArmies(37)+1) 
-   ) then
-  Begin
-   ToTerritory:=37;
-   FromTerritory:=33;
-   //If UBufferGet(15) then //umessage('Try Koryak from Mongolia if North America occupied ######');
-   UBufferSet(27,37);
-   UBufferSet(28,9999);
-  end;
-  
-  
-//Brazil to Venezuela if can get Mexico#
-If( 
-     TIsMine(12) and 
-    (TIsMine(10)=False) and
-    (TArmies(12)>TArmies(10)+TArmies(9)+1)
-   ) then
-  Begin
-   ToTerritory:=10;
-   FromTerritory:=12;
-   //If UBufferGet(15) then //umessage('Brazil to Venezuela to get Mexico');
-  end;
-
-// Venezuela to Mexico if North America occupied#
-If( 
-     TIsMine(10) and 
-    (TArmies(10)>TArmies(9))
-   ) then
-  Begin
-   ToTerritory:=9;
-   FromTerritory:=10;
-   //If UBufferGet(15) then //umessage('Try get in North America from Venezuela');
-  end;
-  
-end; //c1<>PMe
- 
- 
-//If UBufferGet(15) then //umessage('Struggler end: ToTerritory:=',ToTerritory, '  FromTerritory:=', FromTerritory, '  SConquest= ', SConquest);
-
-END; //STRUGGLER
-
-end; //BypassStruggler=False
-
-//All players Rules
-
-
-//Attack Mexico with strongest territory
-If ToTerritory=9 then
- If TIsMine(7) and TIsMine(8) then
-  If ((FromTerritory=7) or (FromTerritory=8)) and (TArmies(9)<3) then
-   If TArmies(7)>TArmies(8) then FromTerritory:=7 else FromTerritory:=8;
-
-
-//Attack optimization to 2 and 3 players
-X:=0; 
-Y:=0;
-D:=0;
-If (FromTerritory=0) then
-//If (UBufferGet(39)=2) or ((UBufferGet(39)=3) and (PTerritoriesCount(trunc(UBufferGet(36)))>20) ) then
-If (UBufferGet(39)=2) or attack3 then
-If (PTerritoriesCount(PMe)<=42-12) or (NOT SConquest) then 
-If UBufferGet(25)=0 then
-For T:=1 to 42 do
-If TIsfront(T) or (T=42) then
-  If (TArmies(T)>3+D) or (T=42) then
-   If (FromTerritory=0) or ((TArmies(ToTerritory)>1) and (FromTerritory<>0)) then
-    If (COwner(TContinent(T))<>PMe) or (TArmies(T)>6) then
-     If NOT (attack3 and (PTerritoriesCount(TOwner(T))<12) and SConquest) then
-    Begin
-    If T<>42 then
-    Begin //<>42
-    TWeakestFront(T, ET,EA);
-    
-     If EA=1 then
-     Begin
-      FromTerritory:=T;
-      ToTerritory:=ET;
-     end;
-     
-     if EA>1 then
-     If ((TArmies(ToTerritory)>1) and (FromTerritory<>0)) or (FromTerritory=0) then
-     If TArmies(T)-EA>2+D then
-     If (FromTerritory=0) or ((TArmies(T)-EA>TArmies(FromTerritory)-TArmies(ToTerritory)) and (FromTerritory<>0)) then
-     Begin
-      FromTerritory:=T;
-      ToTerritory:=ET;
-     end;
-     
-     Ea2:=666; 
-     //umessage(FromTerritory, ToTerritory);
-     
-     
-     If (FromTerritory=31) and (COwner(6)=PMe) and (TArmies(31)+TArmies(39)<7) then FromTerritory:=0;
-     
-     If (FromTerritory=20) and (COwner(1)=PMe) and (TArmies(3)<4) then FromTerritory:=0;
-     If (FromTerritory=37) and (COwner(1)=PMe) and (TArmies(1)<4) then FromTerritory:=0;
-     If (FromTerritory=14) and (COwner(2)=PMe) and (TArmies(12)<4) then FromTerritory:=0;
-     If (FromTerritory=27) and ((COwner(3)=PMe) or (COwner(4)=PMe)) and (TArmies(27)<10) then FromTerritory:=0;
-//     If (((FromTerritory>8) and (FromTerritory<13)) and (TArmies(FromTerritory)<11)) and ((COwner(1)=PMe) or (COwner(4)=PMe)) then FromTerritory:=0;
-     If (FromTerritory=31) and (ToTerritory=32) and SConquest and (COwner(6)=PMe) and (UBufferGet(39)=3) then FromTerritory:=0;
-     //If (UBufferGet(39)=3) and (TOwner(ToTerritory)<>trunc(UBufferGet(36))) then FromTerritory:=0;
-
-If attack3 and SConquest then
- If ((PTerritoriesCount(TOwner(ToTerritory))<21) and (trunc(UBufferGet(36))<>TOwner(ToTerritory))) then FromTerritory:=0;
-     
-     If FromTerritory<>0 then 
-     Begin
-      Y:=ToTerritory;
-      X:=FromTerritory;
-     end;
-
-     If FromTerritory=0 then 
-     Begin
-      ToTerritory:=Y;
-      FromTerritory:=X;
-     end;
-     
-     end;//dif 42
-     
-     //umessage('ttttttttttttttt', D, T, 'FromTerritory ',FromTerritory);
-     
-   If (D=0) and (T=42) and (FromTerritory=0) then 
-      Begin D:=-1; T:=1; 
-      //umessage('DDDDDDDDDDDDDDDDd', D, T); 
-      end;
-      
-//If (COwner(TContinent(FromTerritory))=PMe) then C:=1;     
-If (FromTerritory<>0) and (COwner(TContinent(FromTerritory))<>PMe) then UBufferSet(11,ToTerritory) else UBufferSet(11,0);
-     
-    end;
-
-If Not (UBufferGet(39)>2) then
-If (a4<>222) and (XX<>0) and (YY<>0) and ( (FromTerritory=0) or (TContinent(XX)=2) or (TContinent(YY)=2) or (TContinent(XX)>4) or (XX=1) or (YY=1) or (XX=3) or (YY=3) or (YY=9) ) then
-Begin
-FromTerritory:=XX;
-ToTerritory:=YY;
-end;
-
-
-//Lame Bubble
-If TArmies(30)<=TArmies(32) then C:=TArmies(30) else C:=TArmies(32);
-
-If TIsMine(31) then
-If NOT (TIsMine(30) and TIsMine(32)) then
-If PTerritoriesCount(-(trunc(UBufferGet(10))))<3 then
-If PArmiesCount(-(trunc(UBufferGet(10))))>70 then
- If (UBufferGet(36)=0) then  //##=0 ok
-  If (COwner(6)=PMe) then
-   If PArmiesCount(-(trunc(UBufferGet(10))))+10<TArmies(31)-C then
-   Begin
-   A:=0; For T:=1 to 38 do If (A=0) and (TOwner(T)=-(trunc(UBufferGet(10)))) then A:=T;
-   
- If (TArmies(A)>=PArmiesCount(-(trunc(UBufferGet(10))))-1) or (TArmies(A)=1) then UBufferSet(8, 31);
- 
- //If (PTerritoriesCount(trunc(UBufferGet(36)))>18) then UBufferSet(8, 31);
- end;
-
-
-If (UBufferGet(8)<>0) then
-Begin
-If (ToTerritory<>31) and (FromTerritory<>31) and (trunc(UBufferGet(8))=FromTerritory) then FromTerritory:=0;
- 
-If PArmiesCount(-(trunc(UBufferGet(10))))=0 then UBufferSet(8, 0);
-
-If (UBufferGet(8)=31) then
- Begin
- If TIsMine(31) and (Not TIsMine(30)) then
- If (TArmies(30)<TArmies(32)) and (double( TArmies(30) ) < double( TArmies(31) )/10) then
-  Begin
-  ToTerritory:=30;
-  FromTerritory:=31;
-  UBufferSet(8, 30);
-  UBufferSet(13, 30);
-  end;
-  
- If TIsMine(31) and (Not TIsMine(32)) then
- If (TArmies(30)>=TArmies(32)) and (double( TArmies(32) ) < (double( TArmies(31) )/10)) then
-  Begin
-  ToTerritory:=32;
-  FromTerritory:=31;
-  UBufferSet(8, 32);
-  UBufferSet(13, 32);
-  end;
-  //umessage('lame bubble att');
-  UBufferSet(9, 444);
- end;
-
- 
-
-
-If TIsMine(trunc(UBufferGet(8))) then
- If TIsBordering(31, trunc(UBufferGet(8))) then
-Begin
-CAnalysis(6,PT,PA,ET,EA);
-If (Not TIsMine(31)) and (TArmies(trunc(UBufferGet(8)))>trunc(0.9*(TArmies(31)+EA))) then
-  Begin
-  ToTerritory:=31;
-  FromTerritory:=trunc(UBufferGet(8));
-  UBufferSet(13, 31);
-  If (UBufferGet(9)=444) and (TOwner(39)<>-(trunc(UBufferGet(10)))) then UBufferSet(9, 555);
-  end;
-
-If TIsMine(trunc(UBufferGet(8))) and (TArmies(trunc(UBufferGet(8)))<22) and (TArmies(31)>21) 
- and TIsMine(31) and (COwner(6)=PMe) then UBufferSet(8, 0);
- 
-If TIsMine(31) then C:=0 else C:=TArmies(31);
-
-If (UBufferGet(8)=30) or (UBufferGet(8)=32) then
-If TIsMine(trunc(UBufferGet(8))) then
-If (double(TArmies(trunc(UBufferGet(8))))<(0.9*(C+EA))) then
-If TArmies(trunc(UBufferGet(8)))>TArmies(trunc(UBufferGet(20)))+5 then
-Begin
-UBufferSet(20,UBufferGet(8));
-UBufferSet(25,1);
-UBufferSet(8,0); 
-end;
-
-end;
- 
-end;//lame b.
-
- 
-//########Aust. - N.A. Attack  
-If TIsMine(31) then
-If COwner(6)=PMe then
-If (TArmies(31)>70-PTerritoriesCount(trunc(UBufferGet(36)))) or (UBufferGet(9)<>0) then
-If (NOT TIsMine(32)) and (NOT TIsMine(33)) and (NOT TIsMine(37)) and (NOT TIsMine(1)) then
-If (UBufferGet(10)<0) or ((PTerritoriesCount(COwner(1))>22) and (COwner(1)<>PMe)) then
-
-Begin
-CAnalysis(1,PT,PA,ET,EA);
-//If (PArmiesCount(-(trunc(UBufferGet(10))))>100) OR 
-//   ((COwner(1)=trunc(UBufferGet(36))) and (PTerritoriesCount(-(trunc(UBufferGet(10))))>16)) OR
-//    then
-If ((COwner(1)<>0) and (trunc(UBufferGet(36))=COwner(1))) and (PArmiesCount(COwner(1))>60) 
-then C:=10+3*trunc(UBufferGet(39)) else C:=36+3*trunc(UBufferGet(39));
-If (PTerritoriesCount(COwner(1))>25) then C:=0;
-D:=0;
-If TOwner(20)=-(trunc(UBufferGet(10))) then D:=TArmies(20)-5;
-If TOwner(10)=-(trunc(UBufferGet(10))) then D:=TArmies(10)-5;
-
-
-if (double(TArmies(32))+TArmies(33)+TArmies(37)<(double(TArmies(31)) / 3)) or ((COwner(1)<>0) and (trunc(UBufferGet(36))=COwner(1))) then
- If TArmies(32)+TArmies(33)+TArmies(37)+TArmies(10)+TArmies(20)+EA+C-D<TArmies(31) then 
-Begin
-ToTerritory:=32;
-FromTerritory:=31;
-UBufferSet(9, 32);
-UBufferSet(13, 32);
-UBufferSet(25, 0); //Frank is not in Bubble Mode
-If PTerritoriesCount(trunc(UBufferGet(36)))<15+2*trunc(UBufferGet(39)) then
- If PArmiesCount(-(trunc(UBufferGet(10))))>35 then UBufferSet(8, -1); //Stop one round
-end;
-end;
-
-//######Aust. - S.A. Attack  
-If TIsMine(31) then
-//If COwner(6)=PMe then
-If (TArmies(31)>50) or (UBufferGet(9)<>0) then
-If (NOT TIsMine(30)) and (NOT TIsMine(27)) and (NOT TIsMine(26)) then
-If ((COwner(4)=COwner(3)) and ((COwner(2)=COwner(1)) or (COwner(2)=COwner(3))) and (COwner(2)<>PMe) and (COwner(2)<>0) and (COwner(2)<>PMe)) then
-If PTerritoriesCount(COwner(2))>20 then 
-If UBufferGet(9)<>32 then
-
-Begin
-CAnalysis(2,PT,PA,ET,EA);
-If PTerritoriesCount(COwner(2))>29 then C:=7 else 
-Begin If (UBufferGet(9)=30) then C:=16 else C:=20; end;
-
-If TArmies(30)+TArmies(27)+TArmies(26)+TArmies(14)+EA<TArmies(31)-C-3*trunc(UBufferGet(39)) then
-Begin
-ToTerritory:=30;
-FromTerritory:=31;
-UBufferSet(9, 30);
-UBufferSet(13, 30);
-UBufferSet(25, 0); //Frank is not in Bubble Mode
-end;
-end;
-
-
-
-If UBufferGet(9)<>0 then
-If (UBufferGet(9)<444) then
-Begin
-//CAnalysis(1,PT,PA,ET,EA);
-
-
-
-if false then
-if (UBufferGet(9)=33) then
- If COwner(6)=PMe then
- If PArmiesCount(-(trunc(UBufferGet(10))))>80 then
-  If ((PTerritoriesCount(COwner(1))>15) and (PTerritoriesCount(COwner(1))<27) and 
-  (COwner(1)=trunc(UBufferGet(36)))) then UBufferSet(8, -1); //Stop one round
-
-If TArmies(27)<40 then C:=3 else C:=8;
-If COwner(3)=0 then C:=1;
-
-if (UBufferGet(9)=30) and TIsMine(30) then UBufferSet(9, 27);
-if (UBufferGet(9)=27) and TIsMine(27) then
- Begin
- If (TArmies(26)-TArmies(15)<C) then UBufferSet(9, 26) else UBufferSet(9, 15);
- If (UBufferGet(9)=15) and (TArmies(16)<TArmies(15)) then UBufferSet(9, 16);
- end;
- 
-If (UBufferGet(9)=26) and TIsMine(26) then 
-Begin 
-UBufferSet(9, 0);
-UBufferSet(25, 1);
-UBufferSet(20, 26);
-UBufferSet(24, 1);
-end;
-If (UBufferGet(9)=15) and TIsMine(15) then 
-Begin 
-UBufferSet(9, 0);
-UBufferSet(25, 1);
-UBufferSet(20, 15);
-UBufferSet(24, 1);
-end;
-If (UBufferGet(9)=16) and TIsMine(16) then 
-Begin 
-UBufferSet(9, 0);
-UBufferSet(25, 1);
-UBufferSet(20, 16);
-UBufferSet(24, 1);
-end;
-
-                                                  // bug fix (by NS) #*#
-if (UBufferGet(9)=27) and (NOT TIsMine(27)) and TIsMine(30) then
- Begin
-  ToTerritory:=27;
-  FromTerritory:=30;
-  UBufferSet(13, 27);
- end;
-
-If TIsMine(27) then begin // bug fix (by NS) #*#
- if (UBufferGet(9)=26) and (NOT TIsMine(26)) then
- Begin
-  ToTerritory:=26;
-  FromTerritory:=27;
-  UBufferSet(13, 26);
- end;
-
- if (UBufferGet(9)=15) and (NOT TIsMine(15)) then
- Begin
-  ToTerritory:=15;
-  FromTerritory:=27;
-  UBufferSet(13, 15);
- end;
-
- if (UBufferGet(9)=16) and (NOT TIsMine(16)) then
- Begin
-  ToTerritory:=16;
-  FromTerritory:=27;
-  UBufferSet(13, 16);
- end;
-end;
- 
-if (UBufferGet(9)=32) and TIsMine(32) then UBufferSet(9, 33);
-if (UBufferGet(9)=33) and TIsMine(33) then UBufferSet(9, 37);
-if (UBufferGet(9)=37) and TIsMine(37) then UBufferSet(9, 1);
-If (UBufferGet(9)=1)  and TIsMine( 1) then Begin UBufferSet(9, 0); UBufferSet(25, 0); end;
-//If (NOT TIsMine(39)) and (NOT TIsMine(32)) then UBufferSet(9, 0);
-
-if (UBufferGet(9)=33) and (NOT TIsMine(33)) then
- if TIsMine(32) then
- Begin
-  ToTerritory:=33;
-  FromTerritory:=32;
-  UBufferSet(13, 33);
-  
-If (UBufferGet(9)=33) then
-if ((TArmies(33)>40) and (TOwner(33)<>trunc(UBufferGet(36))) and (NOT TIsMine(33))) or
-   ((TArmies(37)>40) and (TOwner(37)<>trunc(UBufferGet(36))) and (NOT TIsMine(37))) then
-Begin
-UBufferSet(9, 0);
-UBufferSet(8, 32);
-end;
-
- end;
- 
-
-if (UBufferGet(9)=37) and (NOT TIsMine(37)) then
- if TIsMine(33) then
- Begin
-  ToTerritory:=37;
-  FromTerritory:=33;
-  UBufferSet(13, 37);
- end;
- 
-if UBufferGet(9)=1 then
- if TIsMine(37) and (NOT TIsMine(1)) then
- Begin
-  ToTerritory:=1;
-  FromTerritory:=37;
-  UBufferSet(13, 1);
-  UBufferSet(7,1);
- end;
-
-
-//umessage('ALASKA ATTACK= ', UBufferGet(9) );
-If (UBufferGet(9)<>0) and (TArmies(FromTerritory)<7) then UBufferSet(9, 0);
-
-end;
-
-
-
-//end the turn
-If (UBufferGet(9)<>0) then
-If ((UBufferGet(8)=-1) and TIsMine(32)) 
- then 
- Begin
-  If (TOwner(39)<>-(trunc(UBufferGet(10)))) then FromTerritory:=0;
-  UBufferSet(8, 0);
- end;
-
- 
-If (UBufferGet(9)=555) then 
-  Begin
-  FromTerritory:=0;
-  UBufferSet(9, 0);
-  end;
-  
-
-//conquest mode
-If UBufferGet(7)<>0 then
-If ToTerritory<>20 then
-Begin
-
-If TIsMine(4) and (Not TIsMine(7)) and (TArmies(4)>TArmies(7)) then Begin FromTerritory:=4; ToTerritory:=7; end;
-
-If TIsMine(5) and (Not TIsMine(4)) and (TArmies(5)>TArmies(4)) then Begin FromTerritory:=5; ToTerritory:=4; end;
-
-If TIsMine(6) and (Not TIsMine(5)) and (TArmies(6)>TArmies(5)) then Begin FromTerritory:=6; ToTerritory:=5; end;
-
-If TIsMine(1) and (Not TIsMine(2)) and (TArmies(1)>TArmies(2)) then Begin FromTerritory:=1; ToTerritory:=2; end;
-
-If TIsMine(2) and (Not TIsMine(3)) and (TArmies(2)>TArmies(3)) then Begin FromTerritory:=2; ToTerritory:=3; end;
-
-If TIsMine(3) and (Not TIsMine(6)) and (TArmies(3)>TArmies(6)) then Begin FromTerritory:=3; ToTerritory:=6; UBufferSet(25,0); UBufferSet(24,0); end;
-
-end;
-
- 
- 
-//Plays Strugger until 4 territories are conquered
-If (PTerritoriesCount(PMe)>(UBufferGet(19))+4) then UBufferSet(19,0); 
-
-UBufferSet(30, 0); //End of the First placement 
-////If UBufferGet(15) then //umessage('Final2: ToTerritory:=',ToTerritory, '  FromTerritory:=', FromTerritory, '  SConquest= ', SConquest);
-
-end;
-
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-  EA, ET, Buffer ,LP,LT,LA, trail ,PT,PA,PT2,PA2,ET2,EA2,A,C,T: integer;
-
-BEGIN
-
-
-if (UBufferGet(39)=2) then begin //###Unsimple
-
-  Armies:=0;
-  IF TIsFront(FromTerritory) AND TIsFront(ToTerritory) THEN
-  BEGIN
-    IF TArmies(FromTerritory)>TArmies(ToTerritory) THEN
-    BEGIN
-      IF (TFrontsCount(FromTerritory)=1) AND (TFrontsCount(ToTerritory)=1) THEN
-      BEGIN      // It makes a following attack easier if the troops stay together, therefore move all
-        IF (TFront(FromTerritory,1)=TFront(ToTerritory,1)) AND ((double(TArmies(FromTerritory))+2)/(double(TArmies(TFront(ToTerritory,1))))>1.2) THEN Armies:=TArmies(FromTerritory)-1;
-      END
-      ELSE Armies:=(TArmies(FromTerritory)-TArmies(ToTerritory)) div 2;
-    END;
-  END
-  ELSE IF TIsFront(ToTerritory) THEN
-   Armies:=TArmies(FromTerritory)-1;
-   
-END;
-
-
-//((UBufferGet(28)=-1) or ((UBufferGet(28)<>-1) and (trunc(UBufferGet(27))<>ToTerritory)))
-If True then
-Begin //Bypass PROCEDURE Occupation
-
-if UBufferGet(39)>2 then  //###Wyrm
-begin
-  // very simple but effective routine
-  // moves ARMIES from FROMTERRITORY to TOTERRITORY (which was just conquered)
-
-  FromIsFront :=TIsFront(FromTerritory);
-  ToIsFront :=TIsFront(ToTerritory);
-  Armies:=0;
-
-  if  FromIsFront and ToIsFront then  // if both territories are 'front'
-      begin
-        TStrongestFront(FromTerritory,ET,EA); // idea is to leave behind only what you need
-	Buffer:=TArmies(FromTerritory) div 8;
-        if (Buffer<3) then
-          Buffer:=3;
-        EA:=EA+Buffer; // leave some extra
-        ET:=(1+TArmies(FromTerritory)-TArmies(ToTerritory)) div 2; // balancing move
-        if (EA>TArmies(FromTerritory)-ET) then
-          Armies:=ET // will always move at least armies to balance territories
-        else Armies:=TArmies(FromTerritory)-EA; // but maybe more
-      end 
-    else if FromisFront then // only "From" territory is front
-      begin 
-        // all armies stay in From territory, so there's nothing to do
-      end
-    else
-      begin
-        // all armies in the conquered territory (except one which must stay)
-        Armies:=TArmies(FromTerritory)-1;
-      end;
-   end;
-   //###############################
-  
-
-//Reset Alaska attack if failed
-if (UBufferGet(9)=32) and (Not TIsMine(32)) then UBufferSet(9, 0);
-
-
-
-If (PArmiesCount(PMe)<200) or (COwner(6)=-(trunc(UBufferGet(10)))) then
-Begin
-
-
-If ((FromTerritory=39) and (ToTerritory=31)) then
- if (UBufferGet(39)>2) then
-  if NOT ( (UBufferGet(39)=3) and (PTerritoriesCount(trunc(UBufferGet(36)))>30) ) then
- Begin
-   If Armies>4 then Armies:=5;
-   
-If TArmies(39)-3*trunc(UBufferGet(39))>0 then
-Begin
-   A:=0;
-   For C:=1 to 38 do
-    If ((TArmies(C)>25) and (NOT TIsMine(C))) then A:=1;
-   
-   If ((A=0) or (UBufferGet(39)<4)) then 
-   Begin
-    If TArmies(39)>20 then 
-     Begin
-      Armies:=TArmies(39)-3*trunc(UBufferGet(39));
-     end;
-    If (UBufferGet(39)<4) and (A=0) then 
-     If (TArmies(39)<16) and (TArmies(39)>5) then Armies:=TArmies(FromTerritory)-2;
-   end;
-end;
-
-If (UBufferGet(10)<0) OR (UBufferGet(39)<4) then Armies:=TArmies(FromTerritory)-1;
- end;
-
-If ((FromTerritory=9) and (ToTerritory=10)) then 
-If UBufferGet(39)>2 then
-Begin
-CAnalysis(2,PT,PA,ET,EA);
-If (COwner(6)=-(trunc(UBufferGet(10)))) and (TArmies(31)>40) then C:=round(double(TArmies(31))/4) else C:=0;  //#*# rounding makes it not exactly the same as before but close
-If TIsMine(14) then A:=0 else A:=TArmies(14);
-
-If (COwner(1)=PMe) and (EA+A+C>TArmies(9)) then
- If (TArmies(9)>2) then Armies:=1 else Armies:=0;
- //umessage('%%%%%%%%%%%%%%%%%%%%%%%%% ' , Armies);
-end;
- 
-
-//Brazil to Venezuela
-If ((FromTerritory=12) and (ToTerritory=10)) then 
-Begin
-CAnalysis(1,PT,PA,ET,EA);
-Armies:=((TArmies(12)+TArmies(10)) div 2) - TArmies(10);
-If TArmies(12)<=TArmies(14) then Armies:=0;
-IF (COwner(1)<>0) and (EA>0) and (TArmies(12)>EA) then 
-Begin
-Armies:=TArmies(FromTerritory)-1;
-If (TArmies(12)-EA>4) and (COwner(2)=PMe) and (TArmies(14)<8) then Armies:=TArmies(FromTerritory)-4;
-If (TArmies(12)>EA+TArmies(14)+10) then Armies:=EA -10 + (TArmies(12)-EA) div 2;
-end;
-end;
-
-//Venezuela to Peru 
-If ((FromTerritory=10) and (ToTerritory=11)) then 
-Begin
-CAnalysis(2,PT,PA,ET,EA);
-If ((EA<PA-4-3) and (ET=3)) then Armies:=ET-3-3;
-If ((EA<PA-8-3) and (ET=3)) then Armies:=ET-5-3;
-If ((EA<PA-14-3) and (ET=3)) then Armies:=ET-9-3;
-If TIsFront(11) then
- If ((UBufferGet(39)=2) and TIsMine(9) and (PA>EA+3)) then Armies:=TArmies(FromTerritory)-1;
-end;
-
-//Venezuela to Mexico
-If ((FromTerritory=10) and (ToTerritory=9)) then 
-Begin
-CLeader(1,LP,LT,LA);
-CAnalysis(1,PT,PA,ET,EA);
-If ((LT=8) and (LP<>PMe) and (TArmies(10)>2)) then Armies:=TArmies(FromTerritory)-2;
-If ((EA<20) and (TArmies(10)>15)) then Armies:=TArmies(FromTerritory)-2;
-If (LT=8) and (LP<>PMe) and (EA<TArmies(10)) then Armies:=TArmies(FromTerritory)-1;
-end;
-   
-
-    //Armies when conquering Alaska from Koryak
-If ( (FromTerritory=37) and (ToTerritory=1) and (UBufferGet(39)>2)) then 
- Begin
- CAnalysis(1,PT,PA,ET,EA);
- CAnalysis(5,PT2,PA2,ET2,EA2);
- CLeader(1,LP,LT,LA);
- 
- If ((TArmies(FromTerritory)-Armies=1) and (Armies>0)) then Armies:=TArmies(FromTerritory)-2;
- If ((TArmies(FromTerritory)-Armies<4) and (TArmies(37)>8)) then Armies:=TArmies(FromTerritory)-4;
- If ((TArmies(FromTerritory)-Armies<8) and (TArmies(37)>16)) then Armies:=TArmies(FromTerritory)-8;
- If ((EA>60) and (COwner(1)=0)) then Armies:=0;
- If ((Armies>20) and (COwner(5)<>PMe)) then Armies:=20;
- If ((PT2>6) and (PT2<120)) then Armies:=1;
- 
- If ((TArmies(2)+TArmies(4)<5) and (ET=8) and (PT2=12)) then
-Begin
-If (TArmies(37)>12) then Armies:=TArmies(FromTerritory)-2;
-If (TArmies(37)>24) then Armies:=20; 
-end;
-
-//Lame fix
-If (TArmies(37)>80) and 
-   (TArmies(31)<20) and 
-   (PArmiesCount(-(trunc(UBufferGet(10))))>100) then Armies:=TArmies(FromTerritory)-2;
-
-If (PT=12) and (TArmies(37)=4) then Armies:=0;
-
-If (Not TIsMine(27)) or ((TArmies(27)<TArmies(26)) and (TArmies(27)<TArmies(22))) then
-If (LT=8) and (LP=COwner(3)) and (COwner(3)<>0) and (PT2<9) and 
-(TArmies(2)+TArmies(3)+TArmies(20)<8) and (TArmies(37)>TArmies(2)+TArmies(3)+TArmies(20)) then
-Armies:=TArmies(2)+TArmies(3)+TArmies(20);
-
-If (COwner(6)=PMe) or (EA<14) then
-If ((COwner(2)=LP) or (LP=trunc(UBufferGet(36)))) and (LP<>0) and (LP<>PMe) then
-If (UBufferGet(9)=0) and ((UBufferGet(25)=0) or (UBufferGet(20)<>37)) then
-Begin
-If (LT=8) and (PT2<10) and (TArmies(37)>5) and ((UBufferGet(39)<5) or (LP=trunc(UBufferGet(36)))) then
- If (COwner(5)=PMe) then Armies:=TArmies(37)-4 else Armies:=TArmies(37)-2;
-If (Armies>10) and (TArmies(37)<4) and (COwner(5)=PMe) then Armies:=TArmies(37)-4;
-If (LT=8) and (Armies>1) and ((UBufferGet(39)<5) or (LP=trunc(UBufferGet(36)))) and 
-((PT2<10) or (TArmies(37)-Armies>3)) then UBufferSet(6,1);
-end;
- 
- end;
-  
- //Pass few armies when conquering Europa or Africa from Asia
- If ( (TContinent(FromTerritory)=5) and 
-     ((TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4)) and (Armies>9)) then Armies:=9;
-    
- //Leave 2 in Asia
- If ((TContinent(FromTerritory)=5) and 
-     (TContinent(ToTerritory)<>5) and
-     (TArmies(FromTerritory)-Armies=1) and
-     (TArmies(FromTerritory)>=3)
-    ) then Armies:=TArmies(FromTerritory)-2;
- 
- //Pass few armies from Asia
- If ( (TContinent(FromTerritory)=5) and 
-     ((TContinent(ToTerritory)=3) or (TContinent(ToTerritory)=4)) and (PArmiesCount(PMe)<150) and (Armies>1)) then 
-     Begin
-     Armies:=1;
-     If (TArmies(FromTerritory)<5) then Armies:=0;
-     end; 
- 
- //Try a good defence in Ukrania
- If (COwner(5)=PMe) and (ToTerritory=22) then
- Begin
- If (FromTerritory=28) and (TArmies(28)>TArmies(29)) then Armies:=TArmies(28)-TArmies(29);
- If (FromTerritory=29) and (TArmies(29)>TArmies(28)+2) then Armies:=TArmies(29)-TArmies(28)-2;
- end;
-
-
-//22 to C3
-If ((FromTerritory=22) and (TContinent(ToTerritory)=3)) then 
-Begin
-If (ToTerritory<>26) then Armies:=1;
-If (TArmies(22)-Armies=1) then Armies:=Armies-1;
-end;
-
-
-end;//end 200 armies
-
-
-//Armies from Alaska to Koryak
-If (FromTerritory=1) and (ToTerritory=37) then
-If ( (UBufferGet(39)>2) and ((PArmiesCount(PMe)<200) or (COwner(1)<>PMe)) ) then 
- Begin
- If ( (TArmies(1)>8) or (2*((TArmies(1)+1) div 2)=(TArmies(1)+1)) ) then Armies:=1 else Armies:=0;
- If (COwner(1)<>PMe) then Armies:=0;
- end;
- 
-
-//Don't pass to 41 if C6 is mine
-If ((ToTerritory=41) and (COwner(6)=PMe)) then Armies:=0;
-
-//Don't pass armies from Greenland to Iceland
-If (FromTerritory=3) and (ToTerritory=20) then
-If ((PTerritoriesCount(PMe)<24) and (UBufferGet(39)>2)) then
-Begin
-CLeader(3,LP,LT,LA); 
-If (TArmies(3)>8) and (LT=6) and (TArmies(21)<4) and (TArmies(24)<4) then Armies:=1 else Armies:=0;
-CLeader(1,LP,LT,LA);
-If (LP=PMe) and ((LT=8) or (LT=7)) then Armies:=0;
-end;
-     
-
-//Armies in upper N. A.
-If TContinent(FromTerritory)=1 then
-If ((ToTerritory=1) or (ToTerritory=2) or (ToTerritory=4)) then
-Begin
-CLeader(1,LP,LT,LA);
-If (LT=8) and ((NOT TIsMine(1)) or ((NOT TIsMine(4)) and (ToTerritory=1)) ) then Armies:=TArmies(FromTerritory)-1;
-If ((ToTerritory=1) and (LT=9)) then Armies:=TArmies(FromTerritory)-1;
-end;
-
-
-//Don't pass armies from Koryak
-If ((FromTerritory=37) and (TContinent(ToTerritory)=5) and (COwner(5)=PMe)) then Armies:=0;
-If (FromTerritory=37) and (NOT TIsFront(ToTerritory)) then Armies:=0;
-     
-//Pass all armies to Middle East from India
-If ((ToTerritory=27) and 
-    (FromTerritory=30) ) then Armies:=TArmies(FromTerritory)-1;
-    
-//Pass all armies to Middle East from China to Mongolia if Someone holds N. A.
-If (ToTerritory=33) then
- If ((FromTerritory=32) and (COwner(1)<>0) and (COwner(1)<>PMe)) then Armies:=TArmies(FromTerritory)-1;
-
-//Armies from Siam 
-If ( (FromTerritory=31) and ((ToTerritory=30) or (ToTerritory=32)) ) then 
-Begin
-
-    Armies:=0;
-    CAnalysis(5,PT,PA,ET,EA);
-    If ((ToTerritory=30) or (PT>8)) then C:=1 else C:=0;
-    If (UBufferGet(39)=3) and (UBufferGet(10)=0) and (TArmies(31)>12) then C:=C+3;
-    If (TArmies(31)>2) then Armies:=1;
-    If (TArmies(31)>9) then Armies:=3+C;
-    If (TArmies(31)>12) then Armies:=4+C;
-    If (TArmies(31)>18) then Armies:=7 +2*C;
-    If (TArmies(31)>24) then Armies:=9 +2*C;
-    If UBufferGet(39)<4 then A:=2 else A:=3;
-    If (TArmies(31)>100) then Armies:=TArmies(31) div A;
-    For C:=27 to 38 do 
-     If ((TArmies(C)>TArmies(31)+6) and (NOT TIsMine(C))) then If Armies>1 then Armies:=1;
-    If PT=2 then 
-    Begin
-     If (ToTerritory=32) then
-      Begin
-      If TArmies(33)>TArmies(30) then Armies:=TArmies(33) else Armies:=TArmies(30);
-      If (Not TIsFront(32)) and (UBufferGet(39)>3) then Armies:=0;
-      end;
-     If (ToTerritory=30) then
-      If TArmies(32)>TArmies(29) then Armies:=TArmies(32) else Armies:=TArmies(29);
-     If (Armies>=TArmies(31)) and (TArmies(31)>1) then Armies:=1; 
-     If (Armies>11) then Armies:=11;
-    end;
-     
-//end; // @@@ (page down)
-
-
-//Pass more armies from Siam to India if someone strong in Africa or Europe
-If ( (FromTerritory=31) and (ToTerritory=30) ) then
- If UBufferGet(10)>=0 then
- If ( ((COwner(3)=trunc(UBufferGet(36))) or (COwner(4)=trunc(UBufferGet(36)))) and (NOT TIsMine(27)) and (UBufferGet(36)<>0)) then
-  Begin
-  If TArmies(31)>6 then Armies:=2;
-  If TArmies(31)>10 then Armies:=6;
-  If TArmies(31)>15 then Armies:=10;
-  If TArmies(31)>25 then Armies:=14;
-  If TArmies(31)>35 then Armies:=20;
-  end;
-  
-
-  
-//Lame fix
-If UBufferGet(10)<>0 then 
-  Begin
-
-A:=PArmiesCount(-(trunc(UBufferGet(10))));
-For C:=38 DOWNTO 1 do
- If (TArmies(C)>(TArmies(31) div 2)) then
-  If (TOwner(C)=-(trunc(UBufferGet(10)))) or (TOwner(C)=trunc(UBufferGet(10))) then 
-  Begin A:=TArmies(C); C:=1; end;
-  
-  If (PT=2) and (A>TArmies(31)-Armies) then Armies:=Armies div 2;
-  if (A>TArmies(31)-Armies) then Armies:=1;
-  if (A>TArmies(31)+5-Armies) then Armies:=0;
-  If (PT=2) and (Armies=0) then Armies:=1;
-  If (Armies>3) and (trunc(UBufferGet(36))=COwner(1)) and (UBufferGet(10)<0) then Armies:=1;
-
-  end;
-
-
-If (UBufferGet(39)=2) and (TArmies(31)>4) then Armies:=TArmies(31)-4;
- 
-   
-end; // @@@
-
-
-
-If ( (FromTerritory=16) and (ToTerritory=27) ) then 
- If UBufferGet(39)>2 then Armies:=TArmies(FromTerritory)-1;
-
-//Prepare to attack a Strong Player in Europe
-If ((ToTerritory=2) or (ToTerritory=5) or (ToTerritory=6)) then 
-If NOT TIsMine(3) then 
-If (COwner(3)=trunc(UBufferGet(36))) and (UBufferGet(36)<>0) then
-If TArmies(FromTerritory)>TArmies(3)+TArmies(20) then
-If (COwner(5)<>PMe) or (FromTerritory<>1) then
-if TArmies(3)+TArmies(20)<9 then
-Begin
-If TArmies(FromTerritory)>TArmies(3)+TArmies(20)+1 then C:=1 else C:=0;
-If Armies<TArmies(3)+TArmies(20)+C then Armies:=TArmies(3)+TArmies(20)+C;
-end;
-    
-    
-    //Pass all but one armie when conquering Siam from India or China
-If ( ((FromTerritory=30) or (FromTerritory=32)) and (ToTerritory=31) ) then 
- Armies:=TArmies(FromTerritory)-1;
-
-//Armies from North Africa to Congo
-If ( (FromTerritory=14) and (ToTerritory=17) ) then
- Begin
- A:=(TArmies(18)+TArmies(19))+3;
- If ((NOT TIsMine(18)) and (NOT TIsMine(19)) and (TArmies(14)>A)) then Armies:=A;
- end;
-
-//Armies from North Africa to Brazil
-If ( (FromTerritory=14) and (ToTerritory=12) ) then
-Begin
- If ((COwner(1)<>0) and 
-     (COwner(1)<>PMe) and 
-     (TArmies(10)+TArmies(9)<TArmies(14)-1+3)) then Armies:=TArmies(FromTerritory)-1;
- 
- If (COwner(4)<>PMe) then Armies:=TArmies(FromTerritory)-1;
-end;
- 
- 
-     //Pass all armies when conquering India from Middle East
-If ((TIsMine(32)=False) and TIsMine(31) and (UBufferGet(39)>2)) then
-If (FromTerritory=27) and (ToTerritory=30) and (TArmies(27)>4) then 
- Armies:=TArmies(FromTerritory)-4;
- 
-//29 to 27
-If ToTerritory=27 then
-Begin
- If ( ((FromTerritory=29) or (FromTerritory=22)) ) then
-  If ( ((NOT (Cowner(5)=PMe)) or TIsMine(22)) and (COwner(4)=trunc(UBufferGet(36))) and (COwner(4)<>0) ) then If TArmies(FromTerritory)>1 then Armies:=TArmies(FromTerritory)-2 else Armies:=TArmies(FromTerritory)-1;
-
-If (Cowner(5)=PMe) and (FromTerritory=29) and (TArmies(29)-Armies>TArmies(28)) then Armies:=TArmies(29)-TArmies(28);
-end;
-   
-//26 to 14
-If FromTerritory=26 then
-If ( (ToTerritory=14) and (COwner(2)<>0) and (COwner(3)<>PMe) ) then Armies:=TArmies(FromTerritory)-1;
-
-
-      //Pass armies when conquering Indonesia from Siam
-If (FromTerritory=31) and (ToTerritory=39) then 
-Begin
-Armies:=TArmies(FromTerritory)-1;
-C:=10; If (TArmies(40)+TArmies(41)+TArmies(42)<4) or (UBufferGet(39)=2) then C:=5;
- If (COwner(6)=PMe) then Armies:=0 else 
-    If TArmies(31)>(TArmies(40)+TArmies(41)+TArmies(42)+C) then
-     Armies:=(TArmies(40)+TArmies(41)+TArmies(42)+C);
-end;
- 
-      //Pass all armies when conquering Koryak if North America occupied
-If ToTerritory=37 then
-If (  (COwner(1)<>PMe) and (COwner(1)<>0) ) then
- If (FromTerritory=35) or (FromTerritory=36) or (FromTerritory=33) or (FromTerritory=38) then 
-  Armies:=TArmies(FromTerritory)-1;
- 
-
- 
-     //Pass all armies when conquering Venezuela from Peru
-If FromTerritory=11 then
-Begin
-If ToTerritory=10 then 
- Armies:=TArmies(FromTerritory)-1;
- 
-If ToTerritory=13 then 
- If TIsMine(10) and (NOT TIsMine(12)) then 
- Armies:=TArmies(FromTerritory)-1;
-end;
-
-//Pass all armies when conquering Koryak from Mongolia
-If ToTerritory=37 then
- If ( (FromTerritory>32) and (COwner(5)=PMe) ) then 
- Armies:=TArmies(FromTerritory)-1;
- 
-//Pass few armies when conquering Africa from Middle East
-If FromTerritory=27 then
-Begin //from=27
-
-
-CLeader(4,LP,LT,LA);
-//Don't pass armies from 27 if PlayerStrong in c4
- If (LT>=5) and ((TContinent(ToTerritory)=5) or (ToTerritory=22)) and (LP<>PMe) and
- ((LP=trunc(UBufferGet(36))) or (COwner(2)=LP) or 
-  ((TOwner(15)=PMe) and (TArmies(15)=3)) or ((TOwner(16)=PMe) and (TArmies(16)=3))
-  ) then Armies:=0;
- 
- 
-//Pass all armies from Middle East if can get in Australia
-If ( (ToTerritory=30) and 
-     (TArmies(31)+TArmies(39)+TArmies(40)<TArmies(27)) and 
-     (TIsMine(31)=False) and
-     (COwner(6)<>PMe) and (COwner(6)<>0) ) then Armies:=TArmies(FromTerritory)-1;
-
-If ((ToTerritory=15) or (ToTerritory=16)) and (UBufferGet(39)>2) then 
-Begin
- Begin
-  Armies:=0;
-  If (TArmies(27)>22) then Armies:=3;
-  If (TArmies(27)>34) then Armies:=9;
-  //If UBufferGet(15) then //umessage('Pass few armies when conquering Africa from Middle East ', Armies);
- end;
- If (PTerritoriesCount(PMe)<10) or (COwner(6)<>PMe) then Armies:=0;
-end;
-
-
-//Armies to South Europe
-If (FromTerritory=27) and (ToTerritory=26) then
-Begin
-
-If COwner(4)<>0 then
-Begin
-If TArmies(27)>7 then C:=1 else C:=0;
-If COwner(4)<>PMe then A:=TArmies(14) else A:=0;
-If (COwner(4)<>PMe) and (TArmies(15)<TArmies(14)) and ((COwner(2)<>COwner(4)) or (TArmies(14)+TArmies(12)<5+C)) then A:=TArmies(15);
-
-If ((COwner(2)=COwner(4)) and 
-    (COwner(2)<>PMe) and 
-    (TArmies(12)<3+C)) then 
-    Begin 
-    A:=TArmies(12)+TArmies(14);
-    If (COwner(2)=COwner(1)) and (TArmies(10)+TArmies(9)=2) then Begin A:=A+2; C:=C+2; end;
-    end;
-    
-If A>5+C then Armies:=0 else Armies:=A;
-If TArmies(27)>1 then
- If ( ((TArmies(27)-Armies<6) and (COwner(5)=PMe)) or (TArmies(27)-Armies<2) ) then Armies:=Armies-2;
-
-If Armies>=TArmies(27) then Armies:=0;
-  
-If COwner(4)<>PMe then
- If (TArmies(15)=1) and 
- ((COwner(2)=0) or ((Armies=4) and ((TArmies(12)>1) or (TArmies(14)>1))) ) then Armies:=0;
- 
-end;
-
-If COwner(4)=0 then
- If ((COwner(2)=0) or (TArmies(12)+TArmies(14)>6)) and 
-    (UBufferGet(39)>2) and (PTerritoriesCount(PMe)<20) and 
-    (TArmies(27)<30) then Armies:=0;
- 
-   
-end;
-
-
-
-//If Europe or S.A. occupied by someone else try get it by Africa
-If ( (FromTerritory=27) and ((ToTerritory=15) or (ToTerritory=16)) ) then
-Begin
-If TArmies(27)>7 then C:=1 else C:=0;
-A:=0;
-If ((COwner(2)=LP) and 
-    (COwner(2)<>PMe) and 
-    (COwner(2)<>0) and 
-    (TArmies(12)<3+C)) then A:=TArmies(12);
-    
-If ((COwner(3)=LP) and 
-    (COwner(3)<>PMe) and 
-    (COwner(3)<>0) and 
-    (TArmies(25)<TArmies(26)) and 
-    (TArmies(25)<3+C)) then A:=TArmies(25);
-    
-If ((TArmies(27)-A<6) and (COwner(5)=PMe)) then A:=0;
-    
-If A<>0 then
- If ( (TIsMine(14)=False) and (TArmies(14)+A<=5) and (TArmies(27)>TArmies(14)+A) ) then Armies:=TArmies(14)+A;
-
-If (COwner(2)=LP) and (COwner(2)<>0) and (COwner(2)<>PMe) and (COwner(1)=COwner(2)) and 
-(TArmies(14)+TArmies(12)+TArmies(10)+TArmies(9)<=5) and (TArmies(27)>Armies+2) then Armies:=Armies+A;
-end;
-
-//Try a better proportion when conquering Kazakhstan from Middle East
-If ((FromTerritory=27) and (ToTerritory=29) and (COwner(5)=PMe)) then 
- If (Armies>(TArmies(27) div 2)) then Armies:=TArmies(27) div 3;
- 
- If (COwner(6)<>PMe) then
-  If (ToTerritory=26) or (ToTerritory=15) or (ToTerritory=16) then Armies:=0;
-
-end;//end from=27
-
-
-
-//Pass all from 16 or 15 to 14 if COwner c3 or c2<>0
-If ( (ToTerritory=14) and ((FromTerritory=15) or (FromTerritory=16)) ) then 
- If UBufferGet(39)>2 then 
-  If ( ((COwner(2)<>0) and (COwner(2)<>PMe)) OR ((COwner(3)<>0) and (COwner(3)<>PMe)) ) 
-   then Armies:=TArmies(FromTerritory)-1;
- 
- 
-//Try a better proportion when conquering 28 from 29
-If ((FromTerritory=29) and (ToTerritory=28) and (COwner(5)=PMe)) then Armies:=TArmies(29) div 2 - 1;
- 
- 
-//Pass all armies from 29 if someone strong in c4 
-If ( (FromTerritory=29) and (ToTerritory=27) ) then 
-Begin
- CAnalysis(5,PT,PA,ET,EA);
- If ((COwner(4)=trunc(UBufferGet(36))) and (UBufferGet(36)<>0) and (PT<11)) then Armies:=TArmies(FromTerritory)-1;
-end;
-
-//Pass all to Koryak if c5 mine 
-If ((COwner(5)=PMe) and (ToTerritory=37)) then UBufferSet(13,37);
-
-//Pass all if can get c6
-If TContinent(ToTerritory)=6 then
-Begin
-CAnalysis(6,PT,PA,ET,EA);
-
-If (PT=3) then
-If NOT ((NOT TIsMine(41)) and (ToTerritory=39)) then
-If TIsFront(ToTerritory) and (TArmies(ToTerritory)+TArmies(FromTerritory)-1>EA) then Armies:=TArmies(FromTerritory)-1;
-
-If (PT=2) then
-If (TArmies(FromTerritory)+1>EA) then Armies:=TArmies(FromTerritory)-1;
-
-If (PT=4) and (FromTerritory=39) then Armies:=0;
-
-end;
-
-If ((FromTerritory=12) and (ToTerritory=14)) then
-  If UBufferGet(13)<>0 then UBufferSet(13,0);
-  
-  
-  If (COwner(1)=PMe) then
-   If (PArmiesCount(PMe)>=200) then
-    If ((ToTerritory=14) and (FromTerritory=12) and (COwner(2)=PMe)) or 
-       ((ToTerritory=37) and (FromTerritory=1)) or 
-       ((ToTerritory=20) and (FromTerritory=3)) then
-       Begin
-       C:=0;
-       A:=Armies;
-       For T:=1 to 39 do
-        If (Not TIsMine(T)) and (TArmies(T)>C) then C:=TArmies(T);
-        
-       If (TArmies(FromTerritory) - C - 10 < 0) then Armies:=0 else Armies:=TArmies(FromTerritory) - C - 10;
-       If TArmies(FromTerritory) - Armies < 0 then Armies:=0;
-       If (C>TArmies(1)) or (C>TArmies(3)) or (C>(TArmies(12)+(TArmies(10) div 2))) then Armies:=Armies div 2;
-       UBufferSet(13,0);
-       If (Armies=0) and (A>0) then Armies:=1;
-       end;
-
-
-//Don't pass armies from Brazil to North Africa if none holds Europe
-If ((FromTerritory=12) and (ToTerritory=14)) then
- If (UBufferGet(39)>2) and 
-((PArmiesCount(PMe)<201) or ( (COwner(3)>0) and (COwner(3)<>PMe) and ((TArmies(25)<8) or (TArmies(26)<8)) )) then
-Begin
-Armies:=0;
-If ((COwner(3)<>0) and (COwner(3)<>PMe) and (UBufferGet(39)>2)) then 
-Begin
-CLeader(4,LP,LT,LA);
-If (COwner(3)=LP) or (COwner(1)=PMe) then
-Begin
-If (TArmies(12)>25) or (COwner(1)=PMe) then C:=1 else C:=0;
-If ((TArmies(25)<=TArmies(26)) and (TArmies(12)>TArmies(25)+1+4)) then Armies:=TArmies(25)+C;
-If ((TArmies(26)<TArmies(25)) and (TArmies(12)>TArmies(26)+1+4)) then Armies:=TArmies(26)+C;
-end;
-end;
-If Armies>6+C then Armies:=6+C;
-end;
-
-
-       
-       
-//2-3 players strategy
-//if UBufferGet(11)<>0 then 
- If trunc(UBufferGet(11))=ToTerritory then
-  if TIsFront(FromTerritory) then 
-    Begin
-//If ((UBufferGet(39)=2) and TIsFront(FromTerritory)) then Armies:=TArmies(FromTerritory)-2 else 
-
-If  (FromTerritory<>1) or (COwner(5)<>0) then
- If ((TContinent(FromTerritory)=TContinent(ToTerritory)) and (FromTerritory<>31)) then Armies:=TArmies(FromTerritory)-1;
-     ////umessage('passed all-11');
-     end;
-UBufferSet(11,0);
-
-
-
-//CrazyBubpass
-If (FromTerritory=trunc(UBufferGet(6))) and (UBufferGet(6)<>0) then 
-Begin
-Armies:=TArmies(FromTerritory)-1;
-UBufferSet(6,ToTerritory);
-end;
-
-
-A:=1;
-If UBufferGet(25)=1 then
-If COwner(2)=PMe then
-Begin
-For T:=1 to 9 do
- If Not TIsMine(T) then Begin C:=T; T:=9; end;
-For T:=C+1 to 9 do
- If (Not TIsMine(T)) and (TOwner(C)<>TOwner(T)) then Begin A:=2; T:=9; end;
-end;
-
-
-
-//##################Bubble mode
-//If UBufferGet(9)=0 then // continue passing all
-If UBufferGet(25)=1 then
- If (((ToTerritory=15) or (ToTerritory=16) or (ToTerritory=22) or (ToTerritory=1) or (ToTerritory=26)) and (UBufferGet(24)=0)) then
-  Begin
-  Armies:=0;
-  //UBufferSet(17,-ToTerritory);
-  end
- else
-  begin
-  trail:=1; If (TContinent(trunc(UBufferGet(20)))=1) and (COwner(2)=PMe) and (TArmies(12)>TArmies(14)+4) and 
-               (A=1) and (FromTerritory=trunc(UBufferGet(20))) and TIsFront(FromTerritory) then trail:=2;
-  
-  If FromTerritory=31 then
-  Begin
-  If TArmies(40)+TArmies(41)+TArmies(42)<6 then C:=4 else C:=10;
-  If (ToTerritory=39) and (NOT TIsMine(40)) then
-   If TArmies(31)>(TArmies(40)+TArmies(41)+TArmies(42)+10) then
-    Trail:=TArmies(31)-(TArmies(40)+TArmies(41)+TArmies(42)+C);
-  end;
-  
-   UBufferSet(17, 0); 
-   
-   
-  TWeakestFront(FromTerritory, ET,EA);
-  TWeakestFront(ToTerritory, ET2,EA2);
-  
-  If ((EA2>EA) and (EA>0)) or (ET2=0) then
-  If trunc(UBufferGet(13))<>ToTerritory then
-  If (FromTerritory=trunc(UBufferGet(20))) then
-  Begin
-  Armies:=0;
-  UBufferSet(17,-ToTerritory);
-  end;
-
-
-//  //umessage(UBufferGet(13), ToTerritory);
-CAnalysis(1,PT2,PA2,T,C);
-
-  If UBufferGet(20)=33 then
-  If (Not ((TArmies(31)>62) and TIsMine(31) and (C<TArmies(31)-10)) ) or (Not TIsMine(31)) then
-   If trunc(UBufferGet(13))<>ToTerritory then
-   // If Not ((ToTerritory=37) and (COwner(1)<>0) and (TArmies(33)>TArmies(1))) then
-     If TArmies(33)>TArmies(32) then
-      If FromTerritory=33 then
-  Begin
-   If (EA=1) or (ToTerritory=38) then
-  Begin
-  Armies:=0;
-  UBufferSet(17,-33);
-  end;
-  end;
-
-UBufferSet(21,0); //Reset Bubble attack method
-  
-CLeader(2,LP,LT,LA);
-
-If (FromTerritory=trunc(UBufferGet(20))) 
-or ((TContinent(FromTerritory)>2) and (TContinent(ToTerritory)>2))
-or (LP<>PMe) then
-   If (UBufferGet(17)=0) then Armies:=TArmies(FromTerritory)-trail;
-   
-   If (UBufferGet(17)=0) and 
-      (FromTerritory=trunc(UBufferGet(20)))
-      then UBufferSet(20,ToTerritory);
-      
-   If FromTerritory=31 then
-   If (ToTerritory<>39) and (COwner(6)=PMe) and (UBufferGet(20)<>31) then 
-    If (trunc(UBufferGet(8))<>ToTerritory) and (UBufferGet(9)=0) then
-   Begin
-   Armies:=0;
-   UBufferSet(13,0);
-   end;
-
-  end;
-
-UBufferSet(28,-1);
-UBufferSet(27,0);
-end; //Bypass Occupation
-
-//((UBufferGet(28)=-1) or ((UBufferGet(28)<>-1) and (trunc(UBufferGet(27))<>ToTerritory)))
-//If ((UBufferGet(28)<>-1) and (trunc(UBufferGet(27))=ToTerritory)) then
-//Begin
-//If (Armies=9999) then Armies:=TArmies(FromTerritory)-1 else Armies:=trunc(UBufferGet(28));
-UBufferSet(28,-1);
-UBufferSet(27,0);
-//end;
-
-//conquest mode
-If UBufferGet(7)<>0 then
-Begin
-CAnalysis(1,PT,PA,ET,EA);
-CAnalysis(2,PT2,PA2,ET2,EA2);
-C:=PA+PA2-EA-EA2-15-TArmies(14) div 2; 
-If C<0 then C:=0;
-
-If (FromTerritory>3) and (ToTerritory<10) then Armies:=TArmies(FromTerritory)-1;
-If (FromTerritory=1) and (ToTerritory=2) then Armies:=TArmies(FromTerritory)-6-TArmies(37)-(c div 4);
-If (FromTerritory=2) and (ToTerritory=3) then Armies:=TArmies(FromTerritory)-1;
-If (FromTerritory=3) and (ToTerritory=6) then Armies:=TArmies(FromTerritory)-8-TArmies(20)-(c div 4);
-If (FromTerritory=3) and (ToTerritory=6) and TIsMine(20) and (TArmies(3)<30) and (TArmies(3)>4) 
-  then Armies:=TArmies(FromTerritory)-4;
-
-end;
-
-If (FromTerritory=trunc(UBufferGet(8))) and (ToTerritory<>31) and (-1<>UBufferGet(8)) then Armies:=0;
-
- //Pass nothing
- If (trunc(UBufferGet(16))=ToTerritory) or (trunc(UBufferGet(16))=FromTerritory) then Armies:=0;
- UBufferSet(16,0);
-
- //Pass All
- If trunc(UBufferGet(13))=ToTerritory then
-  If ToTerritory<>0 then 
- Begin
- If (FromTerritory<>27) or (UBufferGet(9)=26) or (UBufferGet(9)=15) or (COwner(6)<>PMe) then Armies:=TArmies(FromTerritory)-1;
- end;
- UBufferSet(13,0);
-
- If FromTerritory=12 then
-  If (ToTerritory=14) and (Armies=TArmies(12)-1) and (UBufferGet(39)>3) then Armies:=0;
-  
-If Armies<0 then Armies:=0;
-
-end;
-
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  BestFrom,BestArmies,F,T,Arm,B,MaxArmy,Diff,BestDiff,EA,ET: integer;
-  SMALL, ALLFRONTS, ONEFRONTS, MinArmy, BiggestArmy, FromT, counter,   PT,PA,W, LP,LT,LA: integer;
-
-begin
-
-if (UBufferGet(39)>2) then begin //###Wyrm
-
-counter:=trunc(UBufferGet(40))+1;
-UBufferSet(40, counter);
-////If UBufferGet(15) then //umessage('Calling procedure Fortification UBufferSet(40, counter)', UBufferGet(40) );
-
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-  ALLFRONTS:=10;
-  ONEFRONTS:=1;
-  SMALL:=-9999;
-
-  // look for front country that needs the most help.  favor continents that you
-  // already own, and countries that can be helped by 0-fronts
-  // "most help" implies difference between MyArmies and the strongest front
-
-  // for each of your fronts, determine the FromTerritory, the deficit, and the benefit able to be provided
-
-
-  BestArmies:=0;
-  BestDiff:=SMALL;
-//  //If UBufferGet(15) then //umessage('Calling procedure Fortification');
-
-  for T:=1 to 42 do
-    if TIsFront(T) then
-      begin
-        TStrongestFront(T,ET,EA);
-        Diff:=EA-TArmies(T); // your current deficit
-        BestArmies:=0;
-        for B:=1 to TBordersCount(T) do
-          begin
-            F:=TBorder(T,B);  // start looking for the best FromTerritory
-            if TIsMine(F) and (TArmies(F)>1) then
-              begin
-                TStrongestFront(F,ET,EA);
-                if (not TIsFront(F)) then
-                  Arm:=TArmies(F)-1
-                else
-                  Arm:=TArmies(F)-EA; // the absolute most you can spare
-//                  //If UBufferGet(15) then //umessage(TName(T),' has a deficit of ',Diff,' but can be helped by ',TName(F),' which can spare ',Arm,' armies');
-                if (Arm>BestArmies) then
-                  begin
-                    BestArmies:=Arm;
-                    BestFrom:=F;
-                  end;
-              end;
-          end;
-        // now you have found your best FromTerritory "BestFrom" for this ToTerritory T
-        // it can spare "BestArmies" and you had desired "Diff"
-        B:=Diff;
-        if (B>BestArmies) then
-          B:=BestArmies; // you needed more than you could can spare
-        if (B>BestDiff) and ((B+BestArmies)>1) and (BestArmies>2) then
-          begin
-            Armies:=(B+BestArmies) div 2;
-            if (not TIsFront(BestFrom)) then
-              Armies:=BestArmies;
-//            //If UBufferGet(15) then //umessage('Found a better fortification:  move ',Armies,' armies from ',TName(BestFrom),' to ',TName(T));
-            BestDiff:=B;
-            FromTerritory:=BestFrom;
-            ToTerritory:=T;
-          end;
-      end;
-
-  if (ToTerritory=0) then // use original fortification code -- find largest zero-front
-begin
-  MaxArmy :=1;
-  for T:=1 to 42 do begin
-    if TIsMine(T) and not TIsFront(T) then begin  // territory is mine and not "front"
-      if TArmies(T)>MaxArmy then begin
-        MaxArmy :=TArmies(T);
-        FromTerritory :=T;
-      end;
-    end;
-  end;
-  // if there are armies to move...
-  if FromTerritory>0 then begin
-    // check if can move armies to front...
-    for B:=1 to TBordersCount(FromTerritory) do begin
-      if ToTerritory=0 then begin
-        T:=TBorder(FromTerritory,B);
-        if TIsMine(T) and TIsFront(T) then begin
-          ToTerritory:=T;
-        end;
-      end;
-    end;
-    // otherwise move armies in the first bordering territory
-    if ToTerritory=0 then begin
-      for B:=1 to TBordersCount(FromTerritory) do begin
-        if ToTerritory=0 then begin
-          T:=TBorder(FromTerritory,B);
-          if TIsMine(T) then begin
-            ToTerritory:=T;
-          end;
-        end;
-      end;
-    end;
-    // Move all armies to destination (except the one which must stay)
-    if ToTerritory>0 then begin
-      Armies:=TArmies(FromTerritory)-1;
-    end;
-  end;
-end;
-
-//################
-
-//Armies Alaska> Koryak
-If  FromTerritory=1 then
-If ( (ToTerritory=37) and (UBufferGet(39)>2) and (PArmiesCount(PMe)<200) ) then 
- Begin
- If (Armies>1) then Armies:=1;
- If (TArmies(1)>16) then Armies:=3;
- If (TArmies(1)>26) then Armies:=5;
- 
- If ((Armies=1) and (TArmies(37)=4)) or (UBufferGet(10)<0) then Armies:=0;
- If (((TArmies(37)=1) or (TArmies(37)=3)) and (TArmies(1)>6)) then Armies:=1;
- If (COwner(1)=PMe) and (TArmies(37)<4) and (TArmies(1)>20) and TIsFront(37) then Armies:=4-TArmies(37);
- end;
-
-//Don't unprotect Alaska
-If  ToTerritory=2 then
- If ((FromTerritory=1) or (FromTerritory=3)) then
-Begin
-If TArmies(FromTerritory)>20 then B:=3 else B:=1;
-If TArmies(FromTerritory)>40 then B:=5;
-
-If (FromTerritory=1) and ((Not TIsMine(37)) or (TArmies(37)<4)) then 
- If (Armies>TArmies(1)-TArmies(37)-B) then Armies:=TArmies(1)-TArmies(37)-B else Armies:=0;
-If (FromTerritory=3) and ((Not TIsMine(20)) or (TArmies(20)<4)) then 
- If (Armies>TArmies(3)-TArmies(20)-B) then Armies:=TArmies(3)-TArmies(20)-B else Armies:=0;
-
-CAnalysis(1,PT,PA,ET,EA);
-If PT=8 then
-Begin
- B:=TArmies(FromTerritory)+TArmies(2)-EA;
- If B>3 then Armies:=EA + B div 2;
- If (FromTerritory=1) and (ToTerritory=2) and (TArmies(2)>3) then 
-  If TArmies(FromTerritory)-Armies<TArmies(37)+4 then
-  Begin
-  If (Not TIsMine(37)) then Armies:=TArmies(1)-TArmies(37)-4;
-  If TIsMine(37) then Armies:=TArmies(1)-6;
-  end;
- 
- If (FromTerritory=3) and (ToTerritory=2) and (TArmies(2)>3) then 
-  If TArmies(FromTerritory)-Armies<TArmies(20)+4 then 
-  Begin
-  If (Not TIsMine(20)) then Armies:=TArmies(3)-TArmies(20)-4;
-  If TIsMine(20) then Armies:=TArmies(3)-6;
-  end;
-  
-  If COwner(1)=PMe then FromTerritory:=0;
-end;
-
-If Armies<=0 then FromTerritory:=0;
-end;
-
-//Don't pass too much from Indonesia to Siam   
-If ( (FromTerritory=39) and (ToTerritory=31) ) then 
-   if TArmies(39)<5 then FromTerritory:=0 else Armies:=TArmies(39)-1;
-
-If TArmies(39)>4 then
- //If (UBufferGet(10)<0) OR (UBufferGet(39)<5) then
-  If TIsMine(31) and TIsMine(39) then
-    Begin
-     FromTerritory:=39;
-     ToTerritory:=31;
-     Armies:=TArmies(39)-1;
-    end;
-
-//Don't pass from Venezuela to Mexico
-If ( (FromTerritory=10) and (ToTerritory=9) ) then  FromTerritory:=0;
-
-//Don't pass from Venezuela to to Brazil if not needed
-If ( (FromTerritory=10) and (ToTerritory=12) and (TArmies(12)>trunc(1.3*TArmies(14)+6)) ) then FromTerritory:=0;
-
-
-//Don't pass from Brazil to North Africa   
-If ( (FromTerritory=12) and (ToTerritory=14) ) then  FromTerritory:=0;
-
-
-//Don't pass too much from Brazil to North Africa
-If ((FromTerritory=12) and (ToTerritory=14)) then 
-Begin
-   If ((TArmies(12)-Armies<10) and (TArmies(12)-5>10)) then Armies:=5;
-   If ((TArmies(12)-Armies<10) and (TArmies(12)-15>10)) then Armies:=15; 
-   If ((Armies>4) and (COwner(3)=0)) then Armies:=5;
-   If ((TArmies(12)<9) and (COwner(3)=0)) then FromTerritory:=0;
-end;
-
-//Don't pass too much from Brazil to Venezuela
-If ((FromTerritory=12) and (ToTerritory=10)) then 
-Begin
-   If (TArmies(12)-Armies<TArmies(14)+2) then FromTerritory:=0;
-   If (TArmies(12)-3>TArmies(14)+2) then Armies:=3;
-   If (TArmies(12)-5>TArmies(14)+2) then Armies:=5;
-   If (TArmies(12)-7>TArmies(14)+2) then Armies:=7;
-   If (TArmies(12)-11>TArmies(14)+2) then Armies:=11;
-   If (TArmies(12)-15>TArmies(14)+2) then Armies:=15;
-   If (TArmies(12)-25>TArmies(14)+2) then Armies:=25;
-end;
-
-
-//Don't pass armies from Geenland to Iceland
-If (FromTerritory=3) and (ToTerritory=20) then
-If ((PArmiesCount(PMe)<200) or (COwner(6)=-(trunc(UBufferGet(10)))) and (UBufferGet(39)>2)) then
-Begin
-CLeader(3,LP,LT,LA); 
-If (TArmies(3)>12) and (TArmies(20)<4) and (LT=6) then Armies:=4-TArmies(20) else FromTerritory:=0;
-If COwner(1)<>PMe then FromTerritory:=0;
-end;
-
-//Armies from Middle East
-If (FromTerritory=27) then
-Begin
-If (Toterritory=26) then
- If (PTerritoriesCount(PMe)<20) and ((TArmies(27)<25) and (COwner(5)=PMe)) then Armies:=0;
-
-If (Toterritory=26) and (COwner(5)<>PMe) then Armies:=0;
- 
-If ((PArmiesCount(PMe)<200) or (COwner(6)=-(trunc(UBufferGet(10))))) and ((TContinent(ToTerritory)=4) OR (TContinent(ToTerritory)=3)) and (UBufferGet(39)>2) and (Armies>7) then Armies:=7;
-
-If (COwner(5)=PMe) and (TArmies(29)=TArmies(28)) then Armies:=0;
-
-
-If COwner(5)=PMe then B:=5 else B:=0;
-If ((COwner(5)=PMe) and (TArmies(28)>=8) and (TArmies(29)>8)) then B:=16;
-If (((PArmiesCount(PMe)<200) or (COwner(6)<>PMe)) and (TContinent(ToTerritory)=4) and (UBufferGet(39)>2) and (Armies>1) and (TArmies(27)-Armies<6+B)) then Armies:=1;
-If (COwner(5)=PMe) and (Toterritory=22) then
- Begin
- If (TArmies(29)+TArmies(22)+Armies>=TArmies(27)-2) and 
-    (TArmies(28)+TArmies(22)+Armies>=TArmies(27)-2) then Armies:=Armies div 2 - 1;
- end;
-If (((TArmies(15)=3) and TIsMine(15)) or ((TArmies(16)=3) and TIsMine(16))) and (Toterritory=22) then Armies:=0;
-end;
-
-//22 to C3
-If ((FromTerritory=22) and (TContinent(ToTerritory)=3)) then 
-Begin
-If (ToTerritory<>26) then Armies:=1;
-If (TArmies(22)-Armies=1) then Armies:=Armies-1;
-end;
-
-
-//Armies from Siam
-If ( (FromTerritory=31) and ((ToTerritory=30) or (ToTerritory=32)) ) then 
- Begin
- Armies:=TArmies(31) div 8+1;
- CAnalysis(5,PT,PA,ET,EA);
- If (PT>10) or (((trunc(UBufferGet(36))=COwner(3)) or (trunc(UBufferGet(36))=COwner(4))) and (UBufferGet(36)<>0)) then
- Begin
-  If Armies>7 then Armies:=7;
-  If TArmies(31)>50 then Armies:=TArmies(31) div 5;
-  If TArmies(31)+TArmies(39)<15 then FromTerritory:=0;
-  If (SConquest or (NOT TIsFront(ToTerritory))) then For T:=27 to 38 do If ( (TArmies(T)>TArmies(31)+TArmies(39)+8) and (NOT (TIsMine(T))) ) then FromTerritory:=0;
- end;
- If (UBufferGet(10)<0) and (((PArmiesCount(-(trunc(UBufferGet(10))))*1.4))>double(TArmies(31))) then Armies:=0;
- If COwner(6)<>PMe then Armies:=0;
- end;
- 
-
- 
-If TIsMine(27) then
- If TIsMine(15) or TIsMine(16) then
-  Begin
-   CLeader(4,LP,LT,LA);
-   If NOT (LP=PMe) then
-    If UBufferGet(39)>2 then Begin
-     If TIsMine(15) and (TArmies(15)>1) and (COwner(6)=PMe) then Begin
-      FromTerritory:=15;
-      ToTerritory:=27;
-      Armies:=TArmies(15)-1;
-     end;
-    
-     If TIsMine(16) and (TArmies(16)>1) and (COwner(6)=PMe) then Begin
-      FromTerritory:=16;
-      ToTerritory:=27;
-      Armies:=TArmies(16)-1;
-     end;
-    end;
-  end;
-
-end;
-
-     
-If COwner(6)=PMe then
-Begin
-   //Pass all armies from Eastern Australia to New Guinea
-   If ((TArmies(41)>2) and (TArmies(42)=1)) then
-     Begin
-     //If UBufferGet(15) then //umessage('All armies passed from Eastern Australia to New Guinea');
-     FromTerritory:=41;
-     ToTerritory:=42;
-     Armies:=TArmies(41)-1;
-     end;
-     
-    //Pass all armies from New Guinea to Indonesia
-   If ((TArmies(42)>2)) then
-     Begin
-     //If UBufferGet(15) then //umessage('All armies passed from New Guinea to Indonesia');
-     FromTerritory:=42;
-     ToTerritory:=39;
-     Armies:=TArmies(42)-1;
-     end;
-     
-   //Pass all armies from western Australia to Indonesia
-   If ((TArmies(40)>2)) then
-     Begin
-     //If UBufferGet(15) then //umessage('All armies passed from New Guinea to Indonesia');
-     FromTerritory:=40;
-     ToTerritory:=39;
-     Armies:=TArmies(40)-1;
-     end;
-end;
-
-
-//Pass armies to attack Mexico
-If (TIsMine(9)=False) then
-Begin
-CAnalysis(1,PT,PA,ET,EA);
-If (
-    (PT=8) and 
-    (TArmies(1)>28) and 
-    (Cowner(2)=TOwner(9)) and 
-    (Cowner(2)<>PMe) and
-    (Cowner(5)=0)) then
-     Begin
-     //If UBufferGet(15) then //umessage('Pass armies to attack Mexico from Alaska');
-     FromTerritory:=1;
-     ToTerritory:=4;
-     Armies:=TArmies(1)-8;
-     end;
-     
-If ((PT=8) and 
-    (TArmies(3)>28) and 
-    (Cowner(2)=TOwner(9)) and 
-    (Cowner(2)<>PMe) and
-    (Cowner(3)=0)) then
-     Begin
-     //If UBufferGet(15) then //umessage('Pass armies to attack Mexico from Greenland');
-     FromTerritory:=3;
-     ToTerritory:=5;
-     Armies:=TArmies(3)-8;
-     end;
-   
-If ((PT=8) and (TArmies(5)>19) ) then
-     Begin
-     //If UBufferGet(15) then //umessage('Pass armies to attack Mexico from Ontario');
-     FromTerritory:=5;
-     ToTerritory:=7;
-     Armies:=TArmies(FromTerritory)-1;
-     end;
-     
-
-If ((PT=8) and
-    (TArmies(4)>19) ) then
-     Begin
-     //If UBufferGet(15) then //umessage('Pass armies to attack Mexico from Alberta');
-     FromTerritory:=4;
-     ToTerritory:=7;
-     Armies:=TArmies(FromTerritory)-1;
-     end;
-
-end;
-
-If TIsMine(1) then
-  If (PArmiesCount(PMe)>=200) then
-   If (COwner(1)=PMe) then
-    If ((ToTerritory=14) and (FromTerritory=12)) or 
-       ((ToTerritory=37) and (FromTerritory=1)) or 
-       ((ToTerritory=20) and (FromTerritory=3)) then
-       Begin
-       B:=0;
-       For T:=1 to 39 do
-        If (Not TIsMine(T)) and (TArmies(T)>B) then B:=TArmies(T);
-        
-       If (TArmies(FromTerritory) - B + 10 < 0) then Armies:=0 else Armies:=TArmies(FromTerritory) - B + 10;
-       If TArmies(FromTerritory) - Armies < 0 then Armies:=0;
-       If (B>TArmies(1)) or (B>TArmies(3)) or (B>TArmies(12)) then Armies:=0;
-       end;
-       
-
- 
-// pass to 27 from 26
-If (FromTerritory=0) or (Armies=0) then
-Begin
-If TIsMine(26) then
- If TIsMine(27) and (TArmies(26)=3)  then
-  Begin
- FromTerritory:=26;
- ToTerritory:=27;
- Armies:=2;
- end;
- 
-// pass to 3 from 20
-If TIsMine(20) then
-If (FromTerritory=0) or (Armies=0) then
-if (PTerritoriesCount(PMe)<15) or (TArmies(3)<5) then
- If (COwner(1)=PMe) and (TArmies(20)=3)  then
-  Begin
- FromTerritory:=20;
- ToTerritory:=3;
- Armies:=2;
- end;
-
-
-If TIsMine(22) then
- If NOT TIsMine(28) then
-  If TIsMine(27) and (TArmies(22)>=3) then
-   If (COwner(4)=
-(UBufferGet(36))) and (COwner(4)<>0) then
-    If ToTerritory<>27 then
- Begin
- FromTerritory:=22;
- ToTerritory:=27;
- Armies:=TArmies(22)-1;
- end;
-end;
-
-//Bug Control
-If TArmies(FromTerritory)<=Armies then Armies:=TArmies(FromTerritory)-1;
-If Armies<=0 then FromTerritory:=0;
-
-
-
-
-//end; 
-
-//##################
-
-if Not (UBufferGet(39)>2) then begin //###Unsimple
-BEGIN
-  MinArmy:=1500;    //smallest frontarmy must be smaller than this one (should be no problem...)
-  Armies:=0;        //Do not move armies until moveable army found
-  BiggestArmy:=1;   //Need at least 2 Armies to have one to move [TArmies(FromT) > BiggestArmy]
-  ToTerritory:=0;
-  FromTerritory:=0;
-  FromT:=0; //From Territory
-  T:=42;
-  REPEAT
-    IF TIsFront(T) AND (TArmies(T)<=MinArmy) THEN  //TIsFront(T) can only be true if TIsMine(T) is True
-    BEGIN
-
-      FOR B:=1 TO TBordersCount(T) DO
-      BEGIN
-        FromT:=TBorder(T,B);
-
-        IF (TIsMine(FromT) AND (NOT TIsFront(FromT))) AND (TArmies(FromT)>BiggestArmy) THEN
-        BEGIN
-          MinArmy:=TArmies(T);
-          FromTerritory:=FromT;
-          ToTerritory:=T;
-          Armies:=TArmies(FromTerritory)-1;
-          BiggestArmy:=Armies;
-        END;
-      END;
-    END;
-    T:=T-1;
-  UNTIL T<1;
-
-  IF Armies=0 THEN   //no fortification of a front possible, move the biggest other army anywhere
-  BEGIN
-    MaxArmy :=1;
-    T:=42;
-    REPEAT
-      IF TIsMine(T) AND NOT TIsFront(T) THEN    // territory is mine and not "front"
-      BEGIN
-        IF TArmies(T)>MaxArmy THEN
-        BEGIN
-          MaxArmy :=TArmies(T);
-          FromTerritory :=T;
-        END;
-      END;
-      T:=T-1;
-    UNTIL T<1;
-    // if there are armies to move...
-    // move armies to a random bordering territory
-    IF FromTerritory>0 THEN
-    BEGIN
-    //Umessage('The biggest army is in: ' + TName(FromTerritory) + ' and has ' + inttostr(TArmies(FromTerritory)) + ' armies');
-      B:=trunc(URandom(TBordersCount(FromTerritory)))+1; 
-      ToTerritory:=TBorder(FromTerritory,B+1); 
-      If NOT TIsFront(ToTerritory) then ToTerritory:=TBorder(FromTerritory,B-1);
-      If NOT TIsFront(ToTerritory) then ToTerritory:=TBorder(FromTerritory,B+2);
-      If NOT TIsFront(ToTerritory) then ToTerritory:=TBorder(FromTerritory,B-2);
-      If NOT TIsFront(ToTerritory) then ToTerritory:=TBorder(FromTerritory,B);    
-      // Move all armies
-      Armies:=TArmies(FromTerritory)-1;
-      
-    END;
-  END;  //IF Armies=0
-
-END;  //PROCEDURE Fortification
-
-end; //###Unsimple
-
-//ALL PLAYERS FORTIFY
-    If ( (FromTerritory=33) and (TArmies(33)<8) ) then FromTerritory:=0; //and ((ToTerritory=32) or (ToTerritory=30)))
-    
-    If TIsMine(32) then B:=TArmies(32) else B:=0; 
-    If ( ((TArmies(27)+TArmies(30)+B-2)> TArmies(31)) and
-     (TArmies(27)>5) and
-     (COwner(6)<>PMe) and
-      TIsMine(27) and
-      TIsMine(30) and
-     (Not TIsMine(31))
-    ) then
-     Begin
-     //If UBufferGet(15) then //umessage('Middle East armies passed2  ');
-     FromTerritory:=27;
-     ToTerritory:=30;
-     Armies:=TArmies(27)-1;
-     end;
- 
-   //If India is heavy on Siam try pass all China armies
-   If ( TIsMine(31) and 
-       (TIsMine(30)=False) and 
-       (TArmies(30)>TArmies(31)) and 
-        TIsMine(32) and 
-       (TArmies(32)>1) ) then
-        Begin
-        //If UBufferGet(15) then //umessage('All armies passed from China to Siam');
-        FromTerritory:=32;
-        ToTerritory:=31;
-        Armies:=TArmies(32)-1;
-        end;
-       
-    //If China is heavy on Siam try pass all India armies
-    If ( TIsMine(31) and 
-       (TIsMine(32)=False) and 
-       (TArmies(32)>TArmies(31)) and 
-        TIsMine(30) and 
-       (TArmies(30)>1) ) then
-        Begin
-        //If UBufferGet(15) then //umessage('All armies passed from India to Siam');
-        FromTerritory:=30;
-        ToTerritory:=31;
-        Armies:=TArmies(30)-1;
-        end;
-        
-      If ((FromTerritory=29) and 
-          (ToTerritory=27) and 
-          ((TArmies(29)<TArmies(27)) or (TArmies(29)<6)) ) then Armies:=1;
-      
- 
-
- //Lame pass
-If TIsMine(32) then 
-If TIsMine(31) then
-if UBufferGet(9)=0 then
-If COwner(6)=PMe then
-If (TArmies(31)+TArmies(32)>72-PTerritoriesCount(trunc(UBufferGet(36)))) or (UBufferGet(9)<>0) then
-If (NOT TIsMine(33)) and (NOT TIsMine(37)) and (NOT TIsMine(1)) then
-If (UBufferGet(10)<0) or ((PTerritoriesCount(COwner(1))>22) and (COwner(1)<>PMe)) then
-
-Begin
-CAnalysis(1,PT,PA,ET,EA);
-If ((COwner(1)<>0) and (trunc(UBufferGet(36))=COwner(1))) and (PArmiesCount(COwner(1))>60) 
-then B:=10+3*trunc(UBufferGet(39)) else B:=36+3*trunc(UBufferGet(39));
-If (PTerritoriesCount(COwner(1))>25) then B:=0;
-W:=0;
-If TOwner(20)=-(trunc(UBufferGet(10))) then W:=TArmies(20)-5;
-If TOwner(10)=-(trunc(UBufferGet(10))) then W:=TArmies(10)-5;
-
-
-if (double(TArmies(32))+TArmies(33)+TArmies(37)<(double(TArmies(31)) / 3)) or ((COwner(1)<>0) and (trunc(UBufferGet(36))=COwner(1))) then
- If (TArmies(32)+TArmies(33)+TArmies(37)+TArmies(10)+TArmies(20)+EA+B-W)<TArmies(31) then 
-Begin
-If (UBufferGet(10)<0) then T:=1 else T:=6;
-If TIsMine(32) then ToTerritory:=32;
-If TIsMine(31) then FromTerritory:=31;
-Armies:=TArmies(FromTerritory)-T;
-UBufferSet(9, 33);
-UBufferSet(25, 0); //Frank is not in Bubble Mode
-If PArmiesCount(-(trunc(UBufferGet(10))))>35 then UBufferSet(8, -1); //Stop one round
-//umessage('lame pass');
-end;
-end;
-
-
-//#######Aust. - S.A. lame pass  
-If TIsMine(31) then
-//If COwner(6)=PMe then
-If (TArmies(31)>50) then
-If TIsMine(30) and (NOT TIsMine(27)) and (NOT TIsMine(26)) then
-If ((COwner(4)=COwner(3)) and ((COwner(2)=COwner(1)) or (COwner(2)=COwner(3))) and (COwner(2)<>PMe) and (COwner(2)<>0) and (COwner(2)<>PMe)) then
-If PTerritoriesCount(COwner(2))>20 then 
-If UBufferGet(9)<>32 then
-Begin
-CAnalysis(2,PT,PA,ET,EA);
-If PTerritoriesCount(COwner(2))>26 then T:=7 else T:=20;
-If TArmies(30)+TArmies(27)+TArmies(26)+TArmies(14)+EA<TArmies(30)+TArmies(31)-T-3*trunc(UBufferGet(39)) then
-Begin
-ToTerritory:=30;
-FromTerritory:=31;
-Armies:=TArmies(31)-1;
-UBufferSet(9, 27);
-UBufferSet(25, 0);
-UBufferSet(8, 0);
-end;
-end;
-
-if fromterritory > 0 then if not tismine(toterritory) then umessage('before bubble fortify');
-
-//#############Bubble FORTIFY
- If UBufferGet(25)=1 then
- BEGIN
-    If TIsBordering(-(trunc(UBufferGet(17))), trunc(UBufferGet(20))) and TIsMine(-(trunc(UBufferGet(17)))) and TIsMine(trunc(UBufferGet(20))) then
-    Begin 
-      FromTerritory:=-(trunc(UBufferGet(17)));
-      ToTerritory:=trunc(UBufferGet(20));
-      Armies:=TArmies(FromTerritory)-1;
-  //umessage('FromTerritory', FromTerritory, ToTerritory, Armies, 'UBufferGet(17) ' , UBufferGet(17));
-      UBufferSet(17, 0);
-    end
-  else
-
-begin //Bubble
-  If NOT ( ((COwner(2)=PMe) and (TContinent(ToTerritory)=2)) or 
-           ((COwner(6)=PMe) and (TContinent(ToTerritory)=6) and (NOT SConquest)) ) then FromTerritory:=0;
-
-  If (UBufferGet(24)=1) then W:=1 else W:=27;
-  
-  If (SConquest=False) then
-   For T:=W to 38 do
-    Begin
-    if T=31 then
-     If TIsMine(31) and (COwner(6)=PMe) then T:=32;
-     
-    If (TIsBordering(T, trunc(UBufferGet(20))) and TIsMine(T) and (TIsFront(T) or ((NOT TIsFront(T)) and (TArmies(trunc(UBufferGet(20)))<4))) ) then 
-     Begin
-      FromTerritory:=trunc(UBufferGet(20));
-      ToTerritory:=T;
-      If TIsBordering(FromTerritory,33) and TIsFront(33) and TIsMine(33) and (TArmies(ToTerritory)=1) then ToTerritory:=33;
-      Armies:=TArmies(trunc(UBufferGet(20)))-1;
-      T:=42;
-      UBufferSet(20,ToTerritory);
-      
-     end;
-    end;
-    
-  If (SConquest=True) then
-   For T:=1 to 38 do
-   if TIsMine(T) then
-    if TArmies(T)>1 then
-    If TIsBordering(T, trunc(UBufferGet(20))) and ((T<>31) or ((T=31) and (COwner(6)<>PMe))) and TIsMine(trunc(UBufferGet(20))) then
-     Begin
-      FromTerritory:=T;
-      ToTerritory:=trunc(UBufferGet(20));
-      Armies:=TArmies(T)-1;
-      T:=38;
-     end;
- 
- If (COwner(2)=PMe) and ((ToTerritory=10) or (ToTerritory=12)) then FromTerritory:=0;
-     
-end;//Bubble
-END;
-if fromterritory > 0 then if not tismine(toterritory) then umessage('after bubble fortify');
-If (UBufferGet(9)<>0) and (FromTerritory=32) then FromTerritory:=0;
-
-//Lame bubble pass
-If (UBufferGet(8)>0) then
-If (UBufferGet(8)<>31) then
-if TIsMine(31) and TIsMine(trunc(UBufferGet(8))) then
-Begin
-CAnalysis(5,PT,PA,ET,EA);
-If PT<8 then
-Begin
-FromTerritory:=trunc(UBufferGet(8));
-ToTerritory:=31;
-Armies:=TArmies(trunc(UBufferGet(8)))-1;
-end;
-UBufferSet(8,0);
-//umessage('lame return');
-end;
-
- //Armies from North Africa
-If (FromTerritory=0) or (Armies=0) then
- If TIsMine(14) then
- If TArmies(14)>1 then
- If UBufferGet(20)<>14 then
- Begin
-  CAnalysis(4,PT,PA,ET,EA);
-  If (COwner(2)=PMe) and (PT=1) then // and (TArmies(14)=3)
-     Begin
-     FromTerritory:=14;
-     ToTerritory:=12;
-     Armies:=TArmies(FromTerritory)-1;
-     end;
- end;
-
- UBufferSet(7,0);
- 
-//Bug Control
-If TArmies(FromTerritory)<=Armies then Armies:=TArmies(FromTerritory)-1;
-If Armies<=0 then FromTerritory:=0;
-
-end;
- 
-begin
-end.
diff --git a/Players/napoleon.trp b/Players/napoleon.trp
deleted file mode 100644
index af685c8..0000000
--- a/Players/napoleon.trp
+++ /dev/null
@@ -1,221 +0,0 @@
-{
-Program: Napoleon
-
-Author: Giulio Ferrari (giulio.ferrari@edis.it)
-
-Description: Napoleaon tries to conquer and defend continents. 
-Works best against 2 or 3 other computer players.
-
-History: Ported to TurboRisk 1.3 by Julio Couce
-}
-
-(*
-Procedures:
-
-ASSIGNMENT: same as simple.trp
-
-PLACEMENT: place armies in the continent with best
-ratio owned/total territories 
-
-ATTACK: try to conquer continents;
-quite aggressive: perform attacks if force ratio>=1.1
-
-OCCUPATION: if both territories are 'front'
-overcharge the conquered territory's armies
-(to increase attack possibilities)
-
-FORTIFICATION: same as simple.tlp
-
------
-*)
-
-
-procedure Assignment(var ToTerritory: integer);
-var
-  T: integer;
-begin
-  // find first free territory (a very stupid way to start the game!)
-  ToTerritory:=0;
-  T:=1;
-  repeat
-    if TOwner(T)=0 then
-      ToTerritory:=T;
-    T:=T+1;
-  until (ToTerritory>0) or (T>42);
-end;
-
-procedure Placement(var ToTerritory: integer);
-var
-  T,EnemyT,EnemyA,BestC,C,
-  PT,PA,ET,EA: integer;
-  Ratio,MaxRatio,BestRatio,temp: double;
-begin
-  // select best continent (best ratio owned/total territories,
-  // except owned continents)
-  BestC:=1;
-  BestRatio:=0;
-  for C := 1 to 6 do
-  begin
-    CAnalysis(C,PT,PA,ET,EA);
-    temp := (double(PT)) / (double(CTerritoriesCount(C))); 
-    if temp < 1 then
-    begin
-      temp := (double(PT)) / (double(CTerritoriesCount(C))); 
-      if temp > BestRatio then begin
-        BestRatio:= PT / CTerritoriesCount(C);
-        BestC:=C;
-      end;
-    end;
-  end;
-  // reinforce the territory (in the continent if possible)
-  // with greatest ratio between total enemy armies and
-  // own armies
-  ToTerritory:=0;
-  MaxRatio:=0;
-  for T:=1 to 42 do begin
-    // territory is mine and front
-    if ( (BestRatio=0) or ((BestRatio<>0) and (TContinent(T)=BestC)) )
-    and TIsFront(T) then begin 
-      Ratio := TPressure(T) / TArmies(T);
-      if Ratio>MaxRatio then begin
-        ToTerritory:=T;
-        MaxRatio:=Ratio;
-      end;
-    end;
-  end;
-end;
-
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  T,EnemyT,EnemyA,BestC,C,
-  PT,PA,ET,EA,i: integer;
-  Ratio,MaxRatio,BestRatio,temp: double;
-begin
-  // select best continent (best ratio owned/total territories,
-  // except owned continents)
-  BestC:=1;
-  BestRatio:=0;
-  for C := 1 to 6 do
-  begin
-    CAnalysis(C,PT,PA,ET,EA);
-    temp := (double(PT)) / (double(CTerritoriesCount(C))); 
-    if temp < 1 then
-    begin
-      temp := (double(PT)) / (double(CTerritoriesCount(C))); 
-      if temp > BestRatio then begin
-        BestRatio:= PT / CTerritoriesCount(C);
-        BestC:=C;
-      end;
-    end;
-  end;
-  // perform attack in the selected continent
-  FromTerritory:=0;
-  ToTerritory:=0;
-  MaxRatio:=0;
-  for T:=1 to 42 do
-    if (TContinent(T)=BestC) and TIsFront(T) and (TArmies(T)>1) then begin
-      for i:= 1 to TBordersCount(T) do begin
-        if (not TIsMine(TBorder(T,i))) and (TContinent(TBorder(T,i))=BestC) then begin
-          Ratio := TArmies(T) / TArmies(TBorder(T,i));
-          if (Ratio>MaxRatio) then begin
-            FromTerritory:=T;
-            ToTerritory:=TBorder(T,i);
-            MaxRatio:=Ratio;
-          end;
-        end;
-      end;
-    end;
-  // if there's no continent to be completed, perform standard attack
-  if MaxRatio=0 then begin
-    MaxRatio:=0;
-    for T:=1 to 42 do begin
-      if TIsFront(T) and (TArmies(T)>1) then begin       
-        TWeakestFront(T,EnemyT,EnemyA);
-        Ratio := TArmies(T) / EnemyA;
-        if Ratio>MaxRatio then begin
-          FromTerritory:=T;
-          ToTerritory:=EnemyT;
-          MaxRatio:=Ratio;
-        end;
-      end;
-    end;
-  end;
-  if MaxRatio<1.1 then    // suspend attacks when ratio too low
-    FromTerritory:=0;
-end;
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-begin
-  // very simple but effective routine
-
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  Armies:=0;
-
-  // if both territories are 'front'
-  if  FromIsFront and ToIsFront then begin
-    // overcharge the conquered territory's armies
-    Armies:=(TArmies(FromTerritory)* 3 div 2-TArmies(ToTerritory)) div 2;
-  
-  // if "From" territory is front
-  end else if FromisFront then begin
-    // all armies stay in From territory, so there's nothing to do
-
-  // in the other cases
-  end else begin
-    // all armies in the conquered territory (except one which must stay)
-    Armies:=TArmies(FromTerritory)-1;
-  end;
-end;
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  T,B,MaxArmy: integer;
-begin
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-
-  // look for the greatest nuber of armies which is not on a front territory
-  MaxArmy := 1;
-  for T:=1 to 42 do begin
-    if TIsMine(T) and not TIsFront(T) then begin  // territory is mine and not "front"
-      if TArmies(T)>MaxArmy then begin
-        MaxArmy := TArmies(T);
-        FromTerritory := T;
-      end;
-    end;
-  end;
-  // if there are armies to move...
-  if FromTerritory>0 then begin
-    // check if can move armies to front...
-    for B:=1 to TBordersCount(FromTerritory) do begin
-      if ToTerritory=0 then begin
-        T:=TBorder(FromTerritory,B);
-        if TIsMine(T) and TIsFront(T) then begin
-          ToTerritory:=T;
-        end;
-      end;
-    end;
-    // otherwise move armies in the first bordering territory
-    if ToTerritory=0 then begin
-      for B:=1 to TBordersCount(FromTerritory) do begin
-        if ToTerritory=0 then begin
-          T:=TBorder(FromTerritory,B);
-          if TIsMine(T) then begin
-            ToTerritory:=T;
-          end;
-        end;
-      end;
-    end;
-    // Move all armies to destination (except the one which must stay)
-    if ToTerritory>0 then begin
-      Armies:=TArmies(FromTerritory)-1;
-    end;
-  end;
-end;
-
-begin
-end.
\ No newline at end of file
diff --git a/Players/rambo.trp b/Players/rambo.trp
deleted file mode 100644
index 6bb9e55..0000000
--- a/Players/rambo.trp
+++ /dev/null
@@ -1,142 +0,0 @@
-{
-Program: Rambo
-
-Author: Mario Ferrari
-
-Description: A very stupid but very aggressive TurboRisk program.
-}
-
-procedure Assignment(var ToTerritory: integer);
-var
-  T: integer;
-begin
-  // find first free territory (a very stupid way to start the game!)
-  ToTerritory:=0;
-  T:=1;
-  repeat
-    if TOwner(T)=0 then
-      ToTerritory:=T;
-    T:=T+1;
-  until (ToTerritory>0) or (T>42);
-end;
-
-procedure Placement(var ToTerritory: integer);
-var
-  T: integer;
-  Ratio,MaxRatio: double;
-begin
-  // reinforce territory with greatest ratio between total enemy armies and
-  // own armies
-  ToTerritory:=0;
-  MaxRatio:=0;
-  for T:=1 to 42 do begin
-    if TIsFront(T) then begin  // territory is mine and front
-      Ratio := TPressure(T) / TArmies(T);
-      if Ratio>MaxRatio then begin
-        ToTerritory:=T;
-        MaxRatio:=Ratio;
-      end;
-    end;
-  end;
-end;
-
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  T,EnemyT,EnemyA: integer;
-  Ratio,MaxRatio: double;
-begin
-  // perform all attacks with force ratio>=1.5
-  FromTerritory:=0;
-  ToTerritory:=0;
-  MaxRatio:=0;
-  for T:=1 to 42 do begin
-    if TIsFront(T)                      // territory is mine and front
-    and (TArmies(T)>1) then begin       // attack is possible
-      TWeakestFront(T,EnemyT,EnemyA);
-      Ratio := TArmies(T) / EnemyA;
-      if Ratio>MaxRatio then begin
-        FromTerritory:=T;
-        ToTerritory:=EnemyT;
-        MaxRatio:=Ratio;
-      end;
-    end;
-  end;
-  if MaxRatio<1.5 then    // suspend attacks when ratio too low
-    FromTerritory:=0;
-end;
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-begin
-  // very simple but effective routine
-
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  Armies:=0;
-
-  // if both territories are 'front'
-  if  FromIsFront and ToIsFront then begin
-    // balance armies
-    Armies:=(TArmies(FromTerritory)-TArmies(ToTerritory)) div 2;
-
-  // if "From" territory is front
-  end else if FromisFront then begin
-    // all armies stay in From territory, so there's nothing to do
-
-  // in the other cases
-  end else begin
-    // all armies in the conquered territory (except one which must stay)
-    Armies:=TArmies(FromTerritory)-1;
-  end;
-end;
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  T,B,MaxArmy: integer;
-begin
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-
-  // look for the greatest nuber of armies which is not on a front territory
-  MaxArmy := 1;
-  for T:=1 to 42 do begin
-    if TIsMine(T) and not TIsFront(T) then begin  // territory is mine and not "front"
-      if TArmies(T)>MaxArmy then begin
-        MaxArmy := TArmies(T);
-        FromTerritory := T;
-      end;
-    end;
-  end;
-  // if there are armies to move...
-  if FromTerritory>0 then begin
-    // check if can move armies to front...
-    for B:=1 to TBordersCount(FromTerritory) do begin
-      if ToTerritory=0 then begin
-        T:=TBorder(FromTerritory,B);
-        if TIsMine(T) and TIsFront(T) then begin
-          ToTerritory:=T;
-        end;
-      end;
-    end;
-    // otherwise move armies in the first bordering territory
-    if ToTerritory=0 then begin
-      for B:=1 to TBordersCount(FromTerritory) do begin
-        if ToTerritory=0 then begin
-          T:=TBorder(FromTerritory,B);
-          if TIsMine(T) then begin
-            ToTerritory:=T;
-          end;
-        end;
-      end;
-    end;
-    // Move all armies to destination (except the one which must stay)
-    if ToTerritory>0 then begin
-      Armies:=TArmies(FromTerritory)-1;
-    end;
-  end;
-end;
-
-begin
-end.
diff --git a/Players/raptorbot.trp b/Players/raptorbot.trp
deleted file mode 100644
index c368efe..0000000
--- a/Players/raptorbot.trp
+++ /dev/null
@@ -1,295 +0,0 @@
-{
-Program: Raptorbot
-
-Author: Donny Phillips
-
-Description: basically I took simple.trp and kept modifying it
-and adding things, and this is what I ended up with.
-Works best in chaotic 9/10 player games.
-}
-
-// Search for #*# to find bug fixes done by Nathan Scarbrough
-
-function AttackContinent (C :integer) :boolean;
-var
-  PT, PA, ET, EA :integer;
-  ratio :double;
-begin
-  CAnalysis (C, PT, PA, ET, EA);
-
-  if (ET > 0) then 
-  	ratio :=PA / EA 
-  else 
-  	ratio :=1;
-
-  if (ratio > 2) then 
-  	UBufferSet (2, C);
-
-  if (C > 6) or (C < 1) then 
-  	result :=false 
-  else 
-  	result :=true;
-end;
-
-
-procedure Assignment(var ToTerritory: integer);
-var
-  T, HValue, x, C :integer;
-begin
-  HValue :=-100;
-  ToTerritory :=0;
-
-  for T :=1 to 42 do 
-  	if TOwner(T) = 0 then 
-  	begin
-	    x :=0;
-	    C :=TContinent(T);
-
-	    if (C = 5) then //or (C = 6) then
-	       x :=x + T;
-
-	    if (x > HValue) then 
-	    begin
-	       HValue :=x;
-	       ToTerritory :=T;
-	    end;
-  	end;
-end;      
-
-
-
-procedure Placement(var ToTerritory: integer);
-// Place a single army; return result in ToTerritory
-var 
-  P, A, lilT, PT, PA, ET, EA, C, x, y, z, highest, T, place :integer;
-begin
-  ToTerritory :=0;
-  highest :=-100000;  // changed from -1000, procedure returned 0 if EA > just over 1000 - Nathan Scarbrough July 09 #*#
-
-  if (PNewArmies(PMe) = 1) then 
-  		UBufferSet (1, 0);
-
-  if (PTerritoriesCount(PMe) <= 8) then 
-  		place :=(trunc(UBufferGet (1))) 
-  else 
-  		place :=0;
-
-  if (place <> 0) then 
-  		ToTerritory :=place 
-  else 
-  begin
-    UBufferSet (2, 0);  
-
-    for C :=1 to 6 do 
-    	AttackContinent(C);
-
-    for T :=1 to 42 do 
-      if TIsFront(T) and TIsMine(T) then 
-      begin
-        z :=0;
-
-        TWeakestFront (T, ET, EA);
-        z :=z + EA;
-  
-        C :=TContinent(T);      
-        CAnalysis(C, PT, PA, ET, EA);
-        x :=PA-EA;
-        y :=PT-ET;
-        z :=x + y  + TFrontsCount(T);
-
-        x :=CTerritoriesCount(C);
-
-        if (x - PT < 3) then 
-        		z :=z + 3;
-
-        if (PT >=2) and (C <> 5) then 
-        		z :=z + 2;
-
-        if (PT = ET) then 
-        		z :=z + 1;
-
-        if (EA - PA < 3) then 
-        		z :=z + 2;
-
-        if (ET < 3) and (C <> 5) then 
-        		z :=z + 8 
-        else if (ET = 0) then 
-	        	z :=z + 4;
-    
-        if (PT > 2) and (C = 3) then 
-        		z :=z + 3;
-
-        CLeader (C, P, lilT, A);
-
-        if (P = PMe) and (EA = 0) then 
-        		z := z + 30 
-        else if (P = PMe) then 
-        		z :=z + 4;
-
-        x :=TArmies(T);
-
-        if (x < 8) then 
-        		z :=z + (8 - x);
-
-        if (x > 8) and (PA > TPressure(T) - 5) then 
-        		z :=z - 8;
-
-        if (x < 4) then 
-        		z :=z + 4;
-
-        if ((trunc(UBufferGet(2))) = C) then 
-        		z :=z * 2;
-
-        if (z > highest) then 
-        begin
-          highest :=z;
-          ToTerritory :=T;
-        end;
-      end; 
-
-    if (PNewArmies (PMe) <> 1) then 
-    	UBufferSet (1, ToTerritory);
-  end;
-end;
-
-
-procedure Attack(var FromTerritory, ToTerritory: integer);
-// Make a single attack; attacked country in ToTerritory;
-// FromTerritory = 0 to stop, otherwise, attacking country      
-var
-  T, ET, EA, PT, PA :integer;
-  ratio, HValue :double;
-begin 
-  FromTerritory :=0;
-  ToTerritory :=0;
-  HValue :=-1000.00;
-  
-  for T :=1 to 42 do 
-    if (TIsFront(T)) and (TArmies(T) > 2) then 
-    begin
-      TWeakestFront (T, ET, EA); 
-      ratio :=double(TArmies(T)) / EA;
-      ratio :=ratio * (TArmies(T) - EA);  
-
-      ratio :=ratio - (double(TFrontsCount(T)) * 0.25);
-
-      CAnalysis (TContinent(T), PT, PA, ET, EA);
-
-      if (SConquest) and (EA <> 0) then 
-      		ratio :=ratio * (double(PA) / double(EA));
-
-      { I modified the following section to prevent raptorbot from endlessly only attacking one T per turn
-         - Nathan Scarbrough Sept 09 #*#
-        original code:       if (SConquest) and (PTerritoriesCount(PMe) <= 6) then ratio :=0; }
-      if (SConquest) and (PTerritoriesCount(PMe) <= 5) then begin
-        if not ( (PA div (EA + 1) >= 3) and (PArmiesCount(PMe) > 30)
-        and (PTerritoriesCount(PMe) < 4) and (TArmies(T) >= PArmiesCount(PMe) - PTerritoriesCount(PMe)) ) then
-      		ratio :=0;
-      end;
-
-      TWeakestFront (T, ET, EA);
-
-      if (ET = 0) and (TFrontsCount(T) > 1) then 
-      		ratio :=ratio / 2;
-
-      if SConquest then 
-      		ratio :=ratio/3;
-
-      if  ((trunc(UBufferGet(2))) <> TContinent(T)) and (SConquest) then
-      		ratio :=ratio/3;  
-      if (ratio >= 2) and (ratio > HValue) then
-      begin
-        ToTerritory :=ET;
-        FromTerritory :=T;
-      end;
-    end;  
-end;
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-// FromTerritory and ToTerritory are set; Armies contains
-// number to move in
-var
-	armies_in_from: integer;
-begin
-  armies_in_from:= TArmies(FromTerritory);
-
-  if (PTerritoriesCount(PMe) < 4)  or 
-  		(TIsFront(FromTerritory) = false) then 
-  			Armies :=armies_in_from - 1 
-  else if (TIsFront(ToTerritory) = false) and 
-  			(TIsFront(FromTerritory)) then 
-  begin
-		if armies_in_from >3 then
-  				Armies :=3 
-		else
-				Armies :=1;
-  end else
-  		Armies :=TArmies(FromTerritory) div 2;
-end;
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  T,B,MaxArmy, C : integer;
-  x, HValue :integer;
-begin
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-
-  HValue := -1000;
-
-  // look for the greatest nuber of armies which is not on a front territory
-  MaxArmy := 1;
-  for T:=1 to 42 do 
-  begin
-    if TIsMine(T) and not TIsFront(T) then 
-    begin  // territory is mine and not "front"
-      if TArmies(T)>MaxArmy then 
-      begin
-        MaxArmy := TArmies(T);
-        FromTerritory := T;
-      end;
-    end;
-  end;
-
-  // if there are armies to move...
-  if (FromTerritory>0) then 
-  begin
-    // check if can move armies to front...
-    for B:=1 to TBordersCount(FromTerritory) do 
-    begin
-      if ToTerritory=0 then 
-      begin
-        T:=TBorder(FromTerritory,B);
-        if TIsMine(T) and TIsFront(T) then 
-          ToTerritory:=T;
-      end;
-    end;
-
-    // otherwise move armies in the first bordering territory
-    if (ToTerritory=0) then 
-    begin
-      for B:=1 to TBordersCount(FromTerritory) do if (ToTerritory = 0) then 
-      begin
-        T:=TBorder(FromTerritory,B);
-        C :=TContinent (T);
-      
-        x :=0;
-
-        if TIsMine(T) and (x > HValue) then 
-        begin
-          HValue :=x;
-          ToTerritory:=T;
-        end;
-      end;
-    end;
-
-    // Move all armies to destination (except the one which must stay)
-    if ToTerritory>0 then 
-      Armies:=TArmies(FromTerritory)-1;
-
-  end;
-end;
-
-begin
-end.
\ No newline at end of file
diff --git a/Players/shy.trp b/Players/shy.trp
deleted file mode 100644
index a68f18b..0000000
--- a/Players/shy.trp
+++ /dev/null
@@ -1,277 +0,0 @@
-{
-Program: Shy
-
-Author:  Julio Couce Molina (jcm790@hotmail.com)
-
-Description: It slowly conquers territories, trying to keep its frontiers
-fortified and trying to complete continents. 
-Works better with many players. No borg-style cooperation here. This one 
-tries to begin at South America. If you'd prefer it to begin
-at a random place, try Shy2.
-}
-(*
-
-Assigment: It prefers South America. If SA is all taken, it selects a territory randomly.
-
-Placement: Tries to avoid having frontier territories with less than 25 armies, beginning with those frontier territories with less armies. If all frontier territories have at least 25 armies, it selects the territory with more armies.
-
-Attack: It only attacks with a 2 to 1 ratio or better. It prefers to attack territories in the same continent until it conquers that continent, but it can attack territories in other countries if that other continent is controlled by one player or if the PlayesArmies/EnemyArmies ratio is very good.
-
-Occupation: If From and To territories are frontiers, half the armies go to each territory. If only one of them is frontier, all armies (except one) go to that territory. If none of them is frontier, all armies (except one) go to To territory.
-
-Fortification: Selects non-frontier territory with more armies, and moves them to a neighbouring frontier territory. If there are not neighbouring frontier territories, it moves the armies to a random neighbouring territory.
-
-Thanks: Thanks to Mario Ferrari, for creating this wonderful game (Turborisk) and making it freeware. I especially like that you can program your own artificial intelligence. It's fun, and that way you can't complain about how stupid the AI is, because, if you think that, why don't you program your own?
-
-*)
-
-
-procedure Assignment(var ToTerritory: integer);
-var
-  T,VarAuxi: integer;
-begin
-  // territorio libre al azar
-  ToTerritory:=0;
-  T:=trunc(URandom(42)+1);
-  VarAuxi:=0;
-  repeat
-    if TOwner(T)=0 then
-      ToTerritory:=T;
-    T:=T+1;
-    if (T>42) and (VarAuxi=0) then 
-    begin
-       T:=1;
-       VarAuxi:=1;
-    end;
-  until (ToTerritory>0) or (T>42);
-  //pero con preferencia a S. América
-  if TOwner(12)=0 then ToTerritory:=12;
-  if TOwner(10)=0 then ToTerritory:=10;
-  if TOwner(11)=0 then ToTerritory:=11;
-  if TOwner(13)=0 then ToTerritory:=13;
-end;
-
-
-
-
-procedure Placement(var ToTerritory: integer);
-var
-  Contador,Auxiliar,TInicial,T,VarAuxi,MaxArmies,FCount,F: integer;
-begin
-  // Coloca en territorio frontera con menos de 25 ejércitos
-  // (de entre ellos escoge el más cercano a 25),
-  // o si no en el territorio con más ejércitos 
-
-  // busca territorio frontera con menos de 25
-  ToTerritory:=0;
-  MaxArmies:=100;
-  T:=trunc(URandom(42)+1);
-  TInicial:=T;
-  VarAuxi:=0;
-  repeat
-    if (TIsFront(T)) and (TArmies(T)<MaxArmies) and (TArmies(T)<25) then
-    begin
-      ToTerritory:=T;
-      MaxArmies:=TArmies(T);
-    end;
-    T:=T+1;
-    if (T>42) and (VarAuxi=0) then 
-    begin
-       T:=1;
-       VarAuxi:=1;
-    end;
-  until (VarAuxi=1) and (T>=TInicial);
-
-  Auxiliar:=0;
-  if (ToTerritory<>0) then begin
-    if (TArmies(ToTerritory)=1) then begin
-      FCount:=TBordersCount(ToTerritory);
-      for F:=1 to FCount do begin
-        If TIsMine(TBorder(ToTerritory,F)) then Auxiliar:=1;
-      end;
-        if (Auxiliar=0) then ToTerritory:=0;
-    end;
-  end;
-
-
-  // si sólo hay un territorio con más de un ejército, debe ir a ese territorio
-  Contador:=0;
-  for T:=1 to 42 do begin
-    if (TIsMine(T)) and (TArmies(T)>1) then Contador:=Contador+1;
-  end;
-  if (Contador=1) then ToTerritory:=0;
-  if (Contador=0) and (TOwner(12)=PMe) then ToTerritory:=12;
-  if (Contador=0) and (TOwner(10)=PMe) then ToTerritory:=10;
-  if (Contador=0) and (TOwner(11)=PMe) then ToTerritory:=11;
-  if (Contador=0) and (TOwner(13)=PMe) then ToTerritory:=13;
-
-
-
-  // si no lo encuentra, busca territorio con más ejércitos
-  if (ToTerritory=0) then begin
-    MaxArmies:=0;
-    T:=trunc(URandom(42)+1);
-    TInicial:=T;
-    VarAuxi:=0;
-    repeat
-      if (TIsMine(T)) and (TArmies(T)>MaxArmies) then
-      begin
-        ToTerritory:=T;
-        MaxArmies:=TArmies(T);
-      end;
-      T:=T+1;
-      if (T>42) and (VarAuxi=0) then 
-      begin
-         T:=1;
-         VarAuxi:=1;
-      end;
-    until (VarAuxi=1) and (T>=TInicial);
-  end;
-
-
-  //Quitamos modo de ataque total
-  UBufferSet(1,0);
-  UBufferSet(2,0);
-end;
-
-
-
-
-
-
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  Completo,T2,F,FCount,T,ET,EA: integer;
-  MejorOpcion,temp: double;
-begin
-  // Ataca al vecino más débil con un territorio que tenga más de 25 ejércitos
-  // siempre que le supere por 2 a 1. No entra en nuevos continentes hasta terminar
-  // los anteriores
-
-  FromTerritory:=0;
-  ToTerritory:=0;
-
-  // si ya estamos en guerra total para la conquista de
-  // un territorio, seguimos con ello
-  if (UBufferGet(1)<>0) and (TArmies(trunc(UBufferGet(1)))>1) then begin
-    FromTerritory:=trunc(UBufferGet(1));
-    ToTerritory:=trunc(UBufferGet(2));
-  end else begin
-    // en caso contrario, entre todos nuestros países buscamos la mejor
-    // opción de ataque (debemos tener más de 25 ejércitos y superar por 2 a 1)
-    // No se entra en otro continente hasta terminar los que tiene a medias
-    MejorOpcion:=2;
-    Completo:=1;
-    for T:=1 to 42 do begin
-      if (COwner(TContinent(T))=0) and (TIsMine(T)) then Completo:=0;
-    end;
-    
-    for T:=1 to 42 do begin
-      if (TIsFront(T)) then begin
-        FCount:=TFrontsCount(T);
-        for F:=1 to FCount do begin
-          T2:=TFront(T,F);
-          temp:=TArmies(T)/TArmies(T2);
-          if (temp>9) or ((TArmies(T)>=25) or (FCount=1)) and (temp>MejorOpcion) and ((TContinent(T)=TContinent(T2)) or (Completo=1) or ((COwner(TContinent(T2))<>0) and (COwner(TContinent(T2))<>PMe)))
-          then begin
-            FromTerritory:=T;
-            ToTerritory:=T2;
-            UBufferSet(1,T);
-            UBufferSet(2,T2);
-            MejorOpcion:=TArmies(T)/TArmies(T2);
-          end;
-        end;
-      end;
-    end;
-  end;  
-end;
-
-
-
-
-
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-begin
-  // el típico que reparte los ejércitos mitad y mitad si ambos son frentes,
-  // y si no los deja todos en el frente.
-
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  Armies:=0;
-
-  // si ambos territorios son 'front'
-  if  FromIsFront and ToIsFront then begin
-    // reparte mitad y mitad
-    Armies:=(TArmies(FromTerritory)-TArmies(ToTerritory)) div 2;
-
-  // si el territorio origen es front
-  end else if FromisFront then begin
-    // Todos los ejércitos se quedan aquí, así que no hay nada que hacer
-
-  // en otros casos
-  end else begin
-    // todos los ejércitos al territorio ocupado (excepto 1)
-    Armies:=TArmies(FromTerritory)-1;
-  end;
-  //Quitamos modo de ataque total
-  UBufferSet(1,0);
-  UBufferSet(2,0);
-end;
-
-
-
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  T,B,MaxArmy: integer;
-begin
-  // La típica que mueve ejércitos que no están en el frente al frente
-  //
-
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-
-  // busca el máximo número de ejercitos que no están en front
-  MaxArmy := 1;
-  for T:=1 to 42 do begin
-    if TIsMine(T) and not TIsFront(T) then begin  // territorio mío y no front
-      if TArmies(T)>MaxArmy then begin
-        MaxArmy := TArmies(T);
-        FromTerritory := T;
-      end;
-    end;
-  end;
-  // si hay ejércitos que mover...
-  if FromTerritory>0 then begin
-    // ver si se pueden mover a front...
-    for B:=1 to TBordersCount(FromTerritory) do begin
-      if ToTerritory=0 then begin
-        T:=TBorder(FromTerritory,B);
-        if TIsMine(T) and TIsFront(T) then begin
-          ToTerritory:=T;
-        end;
-      end;
-    end;
-    // en otro caso se mueven al primer territorio vecino
-    if ToTerritory=0 then begin
-      repeat
-        B:=trunc(1+URandom(TBordersCount(FromTerritory)));
-        T:=TBorder(FromTerritory,B);
-        if TIsMine(T) then begin
-          ToTerritory:=T;
-        end;
-      until (ToTerritory>0);
-    end;
-    // Mover todos los ejércitos (excepto 1)
-    if ToTerritory>0 then begin
-      Armies:=TArmies(FromTerritory)-1;
-    end;
-  end;
-end;
-
-begin
-end.
\ No newline at end of file
diff --git a/Players/shy2.trp b/Players/shy2.trp
deleted file mode 100644
index dd40a26..0000000
--- a/Players/shy2.trp
+++ /dev/null
@@ -1,287 +0,0 @@
-{
-Program: Shy2
-
-Author:  Julio Couce Molina (jcm790@hotmail.com)
-
-Description: This is the same as Shy, except that it doesn't have a
-preference for South America. In general, this one is weaker than Shy, but
-some people might not want to play against an opponent that always begins
-at the same place.
-}
-(*
-
-Assigment: It selects a territory randomly.
-
-Placement: Tries to avoid having frontier territories with less than 25
-armies, beginning with those frontier territories with less armies. If
-all frontier territories have at least 25 armies, it selects the territory
-with more armies.
-
-Attack: It only attacks with a 2 to 1 ratio or better. It prefers to attack
-territories in the same continent until it conquers that continent, but it
-can attack territories in other countries if that other continent is
-controlled by one player or if the PlayesArmies/EnemyArmies ratio is very
-good.
-
-Occupation: If From and To territories are frontiers, half the armies go
-to each territory. If only one of them is frontier, all armies (except one)
-go to that territory. If none of them is frontier, all armies (except one)
-go to To territory.
-
-Fortification: Selects non-frontier territory with more armies, and moves
-them to a neighbouring frontier territory. If there are not neighbouring
-frontier territories, it moves the armies to a random neighbouring
-territory.
-
-Thanks: Thanks to Mario Ferrari, for creating this wonderful game
-(Turborisk) and making it freeware. I especially like that you can program
-your own artificial intelligence. It's fun, and that way you can't complain
-about how stupid the AI is, because, if you think that, why don't you
-program your own?
-
-
-*)
-
-
-
-
-procedure Assignment(var ToTerritory: integer);
-var
-  T,VarAuxi: integer;
-begin
-  // territorio libre al azar
-  ToTerritory:=0;
-  T:=trunc(URandom(42)+1);
-  VarAuxi:=0;
-  repeat
-    if TOwner(T)=0 then
-      ToTerritory:=T;
-    T:=T+1;
-    if (T>42) and (VarAuxi=0) then 
-    begin
-       T:=1;
-       VarAuxi:=1;
-    end;
-  until (ToTerritory>0) or (T>42);
-end;
-
-
-
-
-procedure Placement(var ToTerritory: integer);
-var
-  Contador,Auxiliar,TInicial,T,VarAuxi,MaxArmies,FCount,F: integer;
-begin
-  // Coloca en territorio frontera con menos de 25 ejércitos
-  // (de entre ellos escoge el más cercano a 25),
-  // o si no en el territorio con más ejércitos 
-
-  // busca territorio frontera con menos de 25
-  ToTerritory:=0;
-  MaxArmies:=100;
-  T:=trunc(URandom(42)+1);
-  TInicial:=T;
-  VarAuxi:=0;
-  repeat
-    if (TIsFront(T)) and (TArmies(T)<MaxArmies) and (TArmies(T)<25) then
-    begin
-      ToTerritory:=T;
-      MaxArmies:=TArmies(T);
-    end;
-    T:=T+1;
-    if (T>42) and (VarAuxi=0) then 
-    begin
-       T:=1;
-       VarAuxi:=1;
-    end;
-  until (VarAuxi=1) and (T>=TInicial);
-
-  Auxiliar:=0;
-  if (ToTerritory<>0) then begin
-    if (TArmies(ToTerritory)=1) then begin
-      FCount:=TBordersCount(ToTerritory);
-      for F:=1 to FCount do begin
-        If TIsMine(TBorder(ToTerritory,F)) then Auxiliar:=1;
-      end;
-        if (Auxiliar=0) then ToTerritory:=0;
-    end;
-  end;
-
-
-  // si sólo hay un territorio con más de un ejército, debe ir a ese territorio
-  Contador:=0;
-  for T:=1 to 42 do begin
-    if (TIsMine(T)) and (TArmies(T)>1) then Contador:=Contador+1;
-  end;
-  if (Contador<2) then ToTerritory:=0;
-
-
-
-  // si no lo encuentra, busca territorio con más ejércitos
-  if (ToTerritory=0) then begin
-    MaxArmies:=0;
-    T:=trunc(URandom(42)+1);
-    TInicial:=T;
-    VarAuxi:=0;
-    repeat
-      if (TIsMine(T)) and (TArmies(T)>MaxArmies) then
-      begin
-        ToTerritory:=T;
-        MaxArmies:=TArmies(T);
-      end;
-      T:=T+1;
-      if (T>42) and (VarAuxi=0) then 
-      begin
-         T:=1;
-         VarAuxi:=1;
-      end;
-    until (VarAuxi=1) and (T>=TInicial);
-  end;
-
-
-  //Quitamos modo de ataque total
-  UBufferSet(1,0);
-  UBufferSet(2,0);
-end;
-
-
-
-
-
-
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  Completo,T2,F,FCount,T,ET,EA: integer;
-  MejorOpcion,temp: double;
-begin
-  // Ataca al vecino más débil con un territorio que tenga más de 25 ejércitos
-  // siempre que le supere por 2 a 1. No entra en nuevos continentes hasta terminar
-  // los anteriores
-
-  FromTerritory:=0;
-  ToTerritory:=0;
-
-  // si ya estamos en guerra total para la conquista de
-  // un territorio, seguimos con ello
-  if (UBufferGet(1)<>0) and (TArmies(trunc(UBufferGet(1)))>1) then begin
-    FromTerritory:=trunc(UBufferGet(1));
-    ToTerritory:=trunc(UBufferGet(2));
-  end else begin
-    // en caso contrario, entre todos nuestros países buscamos la mejor
-    // opción de ataque (debemos tener más de 25 ejércitos y superar por 2 a 1)
-    // No se entra en otro continente hasta terminar los que tiene a medias
-    MejorOpcion:=2;
-    Completo:=1;
-    for T:=1 to 42 do begin
-      if (COwner(TContinent(T))=0) and (TIsMine(T)) then Completo:=0;
-    end;
-    
-    for T:=1 to 42 do begin
-      if (TIsFront(T)) then begin
-        FCount:=TFrontsCount(T);
-        for F:=1 to FCount do begin
-          T2:=TFront(T,F);
-          temp:=TArmies(T)/TArmies(T2);
-          if (temp>9) or ((TArmies(T)>=25) or (FCount=1)) and (temp>MejorOpcion) and ((TContinent(T)=TContinent(T2)) or (Completo=1) or ((COwner(TContinent(T2))<>0) and (COwner(TContinent(T2))<>PMe)))
-          then begin
-            FromTerritory:=T;
-            ToTerritory:=T2;
-            UBufferSet(1,T);
-            UBufferSet(2,T2);
-            MejorOpcion:=TArmies(T)/TArmies(T2);
-          end;
-        end;
-      end;
-    end;
-  end;  
-end;
-
-
-
-
-
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-begin
-  // el típico que reparte los ejércitos mitad y mitad si ambos son frentes,
-  // y si no los deja todos en el frente.
-
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  Armies:=0;
-
-  // si ambos territorios son 'front'
-  if  FromIsFront and ToIsFront then begin
-    // reparte mitad y mitad
-    Armies:=(TArmies(FromTerritory)-TArmies(ToTerritory)) div 2;
-
-  // si el territorio origen es front
-  end else if FromisFront then begin
-    // Todos los ejércitos se quedan aquí, así que no hay nada que hacer
-
-  // en otros casos
-  end else begin
-    // todos los ejércitos al territorio ocupado (excepto 1)
-    Armies:=TArmies(FromTerritory)-1;
-  end;
-  //Quitamos modo de ataque total
-  UBufferSet(1,0);
-  UBufferSet(2,0);
-end;
-
-
-
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  T,B,MaxArmy: integer;
-begin
-  // La típica que mueve ejércitos que no están en el frente al frente
-  //
-
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-
-  // busca el máximo número de ejercitos que no están en front
-  MaxArmy := 1;
-  for T:=1 to 42 do begin
-    if TIsMine(T) and not TIsFront(T) then begin  // territorio mío y no front
-      if TArmies(T)>MaxArmy then begin
-        MaxArmy := TArmies(T);
-        FromTerritory := T;
-      end;
-    end;
-  end;
-  // si hay ejércitos que mover...
-  if FromTerritory>0 then begin
-    // ver si se pueden mover a front...
-    for B:=1 to TBordersCount(FromTerritory) do begin
-      if ToTerritory=0 then begin
-        T:=TBorder(FromTerritory,B);
-        if TIsMine(T) and TIsFront(T) then begin
-          ToTerritory:=T;
-        end;
-      end;
-    end;
-    // en otro caso se mueven al primer territorio vecino
-    if ToTerritory=0 then begin
-      repeat
-        B:=trunc(1+URandom(TBordersCount(FromTerritory)));
-        T:=TBorder(FromTerritory,B);
-        if TIsMine(T) then begin
-          ToTerritory:=T;
-        end;
-      until (ToTerritory>0);
-    end;
-    // Mover todos los ejércitos (excepto 1)
-    if ToTerritory>0 then begin
-      Armies:=TArmies(FromTerritory)-1;
-    end;
-  end;
-end;
-
-begin
-end.
\ No newline at end of file
diff --git a/Players/shy3.trp b/Players/shy3.trp
deleted file mode 100644
index b45ec7a..0000000
--- a/Players/shy3.trp
+++ /dev/null
@@ -1,275 +0,0 @@
-{
-Program: Shy3
-
-Author:  Julio Couce Molina (jcm790@hotmail.com)
-
-Description: Same as shy.trp, but this one tries to begin at Australia. 
-It is a bit weaker than shy.trp.
-}
-(*
-
-Assigment: It prefers Australia. If Australia is all taken, it selects a territory randomly.
-
-Placement: Tries to avoid having frontier territories with less than 25 armies, beginning with those frontier territories with less armies. If all frontier territories have at least 25 armies, it selects the territory with more armies.
-
-Attack: It only attacks with a 2 to 1 ratio or better. It prefers to attack territories in the same continent until it conquers that continent, but it can attack territories in other countries if that other continent is controlled by one player or if the PlayesArmies/EnemyArmies ratio is very good.
-
-Occupation: If From and To territories are frontiers, half the armies go to each territory. If only one of them is frontier, all armies (except one) go to that territory. If none of them is frontier, all armies (except one) go to To territory.
-
-Fortification: Selects non-frontier territory with more armies, and moves them to a neighbouring frontier territory. If there are not neighbouring frontier territories, it moves the armies to a random neighbouring territory.
-
-Thanks: Thanks to Mario Ferrari, for creating this wonderful game (Turborisk) and making it freeware. I especially like that you can program your own artificial intelligence. It's fun, and that way you can't complain about how stupid the AI is, because, if you think that, why don't you program your own?
-
-*)
-
-
-
-procedure Assignment(var ToTerritory: integer);
-var
-  T,VarAuxi: integer;
-begin
-  // territorio libre al azar
-  ToTerritory:=0;
-  T:=trunc(URandom(42)+1);
-  VarAuxi:=0;
-  repeat
-    if TOwner(T)=0 then
-      ToTerritory:=T;
-    T:=T+1;
-    if (T>42) and (VarAuxi=0) then 
-    begin
-       T:=1;
-       VarAuxi:=1;
-    end;
-  until (ToTerritory>0) or (T>42);
-  //pero con preferencia a Australia
-  if TOwner(39)=0 then ToTerritory:=39;
-  if TOwner(42)=0 then ToTerritory:=42;
-  if TOwner(41)=0 then ToTerritory:=41;
-  if TOwner(40)=0 then ToTerritory:=40;
-end;
-
-
-
-
-procedure Placement(var ToTerritory: integer);
-var
-  Contador,Auxiliar,TInicial,T,VarAuxi,MaxArmies,FCount,F: integer;
-begin
-  // Coloca en territorio frontera con menos de 25 ejércitos
-  // (de entre ellos escoge el más cercano a 25),
-  // o si no en el territorio con más ejércitos 
-
-  // busca territorio frontera con menos de 25
-  ToTerritory:=0;
-  MaxArmies:=100;
-  T:=trunc(URandom(42)+1);
-  TInicial:=T;
-  VarAuxi:=0;
-  repeat
-    if (TIsFront(T)) and (TArmies(T)<MaxArmies) and (TArmies(T)<25) then
-    begin
-      ToTerritory:=T;
-      MaxArmies:=TArmies(T);
-    end;
-    T:=T+1;
-    if (T>42) and (VarAuxi=0) then 
-    begin
-       T:=1;
-       VarAuxi:=1;
-    end;
-  until (VarAuxi=1) and (T>=TInicial);
-
-  Auxiliar:=0;
-  if (ToTerritory<>0) then begin
-    if (TArmies(ToTerritory)=1) then begin
-      FCount:=TBordersCount(ToTerritory);
-      for F:=1 to FCount do begin
-        If TIsMine(TBorder(ToTerritory,F)) then Auxiliar:=1;
-      end;
-        if (Auxiliar=0) then ToTerritory:=0;
-    end;
-  end;
-
-
-  // si sólo hay un territorio con más de un ejército, debe ir a ese territorio
-  Contador:=0;
-  for T:=1 to 42 do begin
-    if (TIsMine(T)) and (TArmies(T)>1) then Contador:=Contador+1;
-  end;
-  if (Contador=1) then ToTerritory:=0;
-  if (Contador=0) and (TOwner(39)=PMe) then ToTerritory:=39;
-  if (Contador=0) and (TOwner(42)=PMe) then ToTerritory:=42;
-  if (Contador=0) and (TOwner(41)=PMe) then ToTerritory:=41;
-  if (Contador=0) and (TOwner(40)=PMe) then ToTerritory:=40;
-
-
-
-  // si no lo encuentra, busca territorio con más ejércitos
-  if (ToTerritory=0) then begin
-    MaxArmies:=0;
-    T:=trunc(URandom(42)+1);
-    TInicial:=T;
-    VarAuxi:=0;
-    repeat
-      if (TIsMine(T)) and (TArmies(T)>MaxArmies) then
-      begin
-        ToTerritory:=T;
-        MaxArmies:=TArmies(T);
-      end;
-      T:=T+1;
-      if (T>42) and (VarAuxi=0) then 
-      begin
-         T:=1;
-         VarAuxi:=1;
-      end;
-    until (VarAuxi=1) and (T>=TInicial);
-  end;
-
-
-  //Quitamos modo de ataque total
-  UBufferSet(1,0);
-  UBufferSet(2,0);
-end;
-
-
-
-
-
-
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  Completo,T2,F,FCount,T,ET,EA: integer;
-  MejorOpcion,temp: double;
-begin
-  // Ataca al vecino más débil con un territorio que tenga más de 25 ejércitos
-  // siempre que le supere por 2 a 1. No entra en nuevos continentes hasta terminar
-  // los anteriores
-
-  FromTerritory:=0;
-  ToTerritory:=0;
-
-  // si ya estamos en guerra total para la conquista de
-  // un territorio, seguimos con ello
-  if (UBufferGet(1)<>0) and (TArmies(trunc(UBufferGet(1)))>1) then begin
-    FromTerritory:=trunc(UBufferGet(1));
-    ToTerritory:=trunc(UBufferGet(2));
-  end else begin
-    // en caso contrario, entre todos nuestros países buscamos la mejor
-    // opción de ataque (debemos tener más de 25 ejércitos y superar por 2 a 1)
-    // No se entra en otro continente hasta terminar los que tiene a medias
-    MejorOpcion:=2;
-    Completo:=1;
-    for T:=1 to 42 do begin
-      if (COwner(TContinent(T))=0) and (TIsMine(T)) then Completo:=0;
-    end;
-    
-    for T:=1 to 42 do begin
-      if (TIsFront(T)) then begin
-        FCount:=TFrontsCount(T);
-        for F:=1 to FCount do begin
-          T2:=TFront(T,F);
-          temp:=TArmies(T)/TArmies(T2);
-          if (temp>9) or ((TArmies(T)>=25) or (FCount=1)) and (temp>MejorOpcion) and ((TContinent(T)=TContinent(T2)) or (Completo=1) or ((COwner(TContinent(T2))<>0) and (COwner(TContinent(T2))<>PMe)))
-          then begin
-            FromTerritory:=T;
-            ToTerritory:=T2;
-            UBufferSet(1,T);
-            UBufferSet(2,T2);
-            MejorOpcion:=TArmies(T)/TArmies(T2);
-          end;
-        end;
-      end;
-    end;
-  end;  
-end;
-
-
-
-
-
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-begin
-  // el típico que reparte los ejércitos mitad y mitad si ambos son frentes,
-  // y si no los deja todos en el frente.
-
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  Armies:=0;
-
-  // si ambos territorios son 'front'
-  if  FromIsFront and ToIsFront then begin
-    // reparte mitad y mitad
-    Armies:=(TArmies(FromTerritory)-TArmies(ToTerritory)) div 2;
-
-  // si el territorio origen es front
-  end else if FromisFront then begin
-    // Todos los ejércitos se quedan aquí, así que no hay nada que hacer
-
-  // en otros casos
-  end else begin
-    // todos los ejércitos al territorio ocupado (excepto 1)
-    Armies:=TArmies(FromTerritory)-1;
-  end;
-  //Quitamos modo de ataque total
-  UBufferSet(1,0);
-  UBufferSet(2,0);
-end;
-
-
-
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  T,B,MaxArmy: integer;
-begin
-  // La típica que mueve ejércitos que no están en el frente al frente
-  //
-
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-
-  // busca el máximo número de ejercitos que no están en front
-  MaxArmy := 1;
-  for T:=1 to 42 do begin
-    if TIsMine(T) and not TIsFront(T) then begin  // territorio mío y no front
-      if TArmies(T)>MaxArmy then begin
-        MaxArmy := TArmies(T);
-        FromTerritory := T;
-      end;
-    end;
-  end;
-  // si hay ejércitos que mover...
-  if FromTerritory>0 then begin
-    // ver si se pueden mover a front...
-    for B:=1 to TBordersCount(FromTerritory) do begin
-      if ToTerritory=0 then begin
-        T:=TBorder(FromTerritory,B);
-        if TIsMine(T) and TIsFront(T) then begin
-          ToTerritory:=T;
-        end;
-      end;
-    end;
-    // en otro caso se mueven al primer territorio vecino
-    if ToTerritory=0 then begin
-      repeat
-        B:=trunc(1+URandom(TBordersCount(FromTerritory)));
-        T:=TBorder(FromTerritory,B);
-        if TIsMine(T) then begin
-          ToTerritory:=T;
-        end;
-      until (ToTerritory>0);
-    end;
-    // Mover todos los ejércitos (excepto 1)
-    if ToTerritory>0 then begin
-      Armies:=TArmies(FromTerritory)-1;
-    end;
-  end;
-end;
-
-begin
-end.
\ No newline at end of file
diff --git a/Players/simple.trp b/Players/simple.trp
deleted file mode 100644
index 178d59d..0000000
--- a/Players/simple.trp
+++ /dev/null
@@ -1,123 +0,0 @@
-{
-Program: Simple
-
-Author: Mario Ferrari
-
-Description: Purpose of this program is to demonstrate how to code a computer-player
-in TurboRisk. As simplicity was the main goal, the resulting strategy is very weak.
-
-}
-
-// History: Fortification Procedure updated for TurboRisk 2.0 by Nathan Scarbrough August 2009
-
-procedure Assignment(var ToTerritory: integer);
-var
-  T: integer;
-begin
-  // find first free territory (a very stupid way to start the game!)
-  ToTerritory:=0;
-  T:=1;
-  repeat
-    if TOwner(T)=0 then
-      ToTerritory:=T;
-    T:=T+1;
-  until (ToTerritory>0) or (T>42);
-end;
-
-procedure Placement(var ToTerritory: integer);
-var
-  T: integer;
-  Ratio,MaxRatio: double;
-begin
-  // reinforce territory with greatest ratio between total enemy armies and
-  // own armies
-  ToTerritory:=0;
-  MaxRatio:=0;
-  for T:=1 to 42 do begin
-    if TIsFront(T) then begin  // territory is mine and front
-      Ratio := TPressure(T) / TArmies(T);
-      if Ratio>MaxRatio then begin
-        ToTerritory:=T;
-        MaxRatio:=Ratio;
-      end;
-    end;
-  end;
-end;
-
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  T,EnemyT,EnemyA: integer;
-  Ratio,MaxRatio: double;
-begin
-  // perform attack with best chances; stop after 1 conquest;
-  FromTerritory:=0;
-  ToTerritory:=0;
-  if not SConquest then begin  // still no conquest
-    MaxRatio:=0;
-    for T:=1 to 42 do begin
-      if TIsFront(T)                      // territory is mine and front
-      and (TArmies(T)>1) then begin       // attack is possible
-        TWeakestFront(T,EnemyT,EnemyA);
-        Ratio := TArmies(T) / EnemyA;
-        if Ratio>MaxRatio then begin
-          MaxRatio:=Ratio;
-          FromTerritory:=T;
-          ToTerritory:=EnemyT;
-        end;
-      end;
-    end;
-  end;
-end;
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-begin
-  // very simple but effective routine
-
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  Armies:=0;
-
-  // if both territories are 'front'
-  if  FromIsFront and ToIsFront then begin
-    // balance armies
-    Armies:=(TArmies(FromTerritory)-TArmies(ToTerritory)) div 2;
-
-  // if "From" territory is front
-  end else if FromisFront then begin
-    // all armies stay in From territory, so there's nothing to do
-
-  // in the other cases
-  end else begin
-    // all armies in the conquered territory (except one which must stay)
-    Armies:=TArmies(FromTerritory)-1;
-  end;
-end;
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  T,MaxArmy: integer;
-begin
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-
-  // look for the greatest number of armies which are not on a front territory
-  // and move them toward the nearest front
-  MaxArmy:= 1;
-  For T:= 1 to 42 do begin
-    if TIsMine(T) and (not TIsFront(T)) then begin
-      if (TArmies(T) > MaxArmy) then begin
-        MaxArmy:= TArmies(T);
-        FromTerritory:= T;
-        ToTerritory:= TPathToFront(T);
-        Armies:=TArmies(T)-1; // Move all armies to destination
-      end;                    // (except the one which must stay)
-    end;
-  end;
-end;
-
-begin
-end.
-
diff --git a/Players/struggler+.trp b/Players/struggler+.trp
deleted file mode 100644
index 48ef1d8..0000000
--- a/Players/struggler+.trp
+++ /dev/null
@@ -1,1022 +0,0 @@
-{
-Program: Struggler+
-
-Author: Nathan Scarbrough, March 2010
-Credit to  Mario Ferrari for the original Struggler
-
-Description: Plays just like Struggler except that if he see's an opportunity to kill a weak human player, he takes it.
-He also has the same improved end game that frank+ and australian+ have.  The fortification routine has also been improved using the new TPathtoFront function.
-
-}
-
-{---------------------------------Kill Player Code---------------------------------------------------}
-                                           // by Nathan Scarbrough (adapted from Vexer.trp)
-                                           // uses UBuffers 52, 56, 63, 73, 74, 98, 99
-
-
-
-function bg(x: integer): integer;
-begin result:= trunc(UBufferGet(x)); end;
-
-procedure bs(x, y: integer);
-begin UBufferSet(x, y); end;
-
-function PTC: integer; begin result:= PTerritoriesCount(PMe); end;
-
-Function GameHasNoHumans: boolean;
-var
-  P: integer;
-begin
-  result:= true;
-  for P:= 1 to 10 do begin
-    if PHuman(P) and PAlive(P) then result:= false;
-  end;
-end;
-
-function GameHasOneHuman(var P: integer): boolean;
-Var Human, C: integer;
-Begin
-  C:= 0;
-  For P:= 1 to 10 do begin
-    If PHuman(P) and PAlive(P)then begin
-      C:= C + 1;
-      Human:= P;
-    end;
-  end;
-  if C = 1 then begin
-    result:= true;
-    P:= Human;
-  end else begin
-    result:= false;
-    P:= 0;
-  end;
-end;
-
-procedure ArmySort(var Army: array of integer);
-var
-  TC, x, x1, temp, T: integer;
-begin
-  TC:= PTerritoriesCount(Pme);
-  SetArrayLength(Army, 43);
-  For T:= 1 to 42 do Army[T]:= 0;
-  x:= 0;
-  For T:= 1 to 42 do begin
-    if TIsMine(T) then begin
-      x:= x + 1;
-      Army[x]:= T;
-    end;
-  end;
-  For x:= 1 to TC - 1 do begin
-    For x1:= x + 1 to TC do begin
-      if TArmies(Army[x1]) > TArmies(Army[x]) then begin
-        temp:= Army[x];
-        Army[x]:= Army[x1];
-        Army[x1]:= temp;
-      end;
-    end;
-  end;
-end;
-
-Function BestFT(TT: integer): integer;
-var
-  MaxArmy, B, BT: integer;
-Begin
-  Result:= 0;
-  MaxArmy:= 0;
-  For B:= 1 to TBordersCount(TT) do begin
-    BT:= TBorder(TT, B);
-    if TIsMine(BT) and (TArmies(BT) > MaxArmy) then begin
-      MaxArmy:= TArmies(BT);
-      Result:= BT;
-    end;
-  end;
-end;
-
-Function TsAreConnected(P, T, T1: integer): boolean;
-Var
-  X, BT, C, B: integer;
-  TOwnerIsPlayerP, Checked: array of boolean;
-begin
-  SetArrayLength(Checked, 43);
-  For x:= 1 to 42 do Checked[x]:= False;
-  SetArrayLength(TOwnerIsPlayerP, 43);
-  For x:= 1 to 42 do TOwnerIsPlayerP[x]:= False;
-
-  Result:= False;
-  TOwnerIsPlayerP[T]:= True;
-  if (  not ( TIsMine(T1) and TIsMine(T) )  ) and TIsBordering(T, T1) then Result:= True;
-  Repeat
-    if TOwnerIsPlayerP[T] and (not Checked[T]) then begin
-      C:= 0;
-      For B:= 1 to TBordersCount(T) do begin
-        BT:= TBorder(T, B);
-        if ( (TOwner(BT) = P) or ((TOwner(BT) <> PMe) and (P = 0)) ) and (not TOwnerIsPlayerP[BT]) then begin
-          C:= C + 1;
-          TOwnerIsPlayerP[BT]:= True;
-          if TIsBordering(BT, T1) then begin
-            Result:= True;
-            exit;
-          end;
-        end;
-      end;
-      Checked[T]:= True;
-      if C > 0 then T:= 0;
-    end;
-    T:= T + 1;
-  Until (T > 42);
-end;
-
-Procedure AddConnectedTsArmies(T: integer; var CTArmies, Ts: Integer);
-Var
-  P, X, BT, C, B: integer;
-  TOwnerIsPlayerP, Checked: array of boolean;
-begin
-  SetArrayLength(Checked, 43);
-  For x:= 1 to 42 do Checked[x]:= False;
-  SetArrayLength(TOwnerIsPlayerP, 43);
-  For x:= 1 to 42 do TOwnerIsPlayerP[x]:= False;
-
-  P:= TOwner(T);
-  TOwnerIsPlayerP[T]:= True;
-  CTArmies:= 0;
-  Ts:= 0;
-  Repeat
-    if TOwnerIsPlayerP[T] and (not Checked[T]) then begin
-      C:= 0;
-      For B:= 1 to TBordersCount(T) do begin
-        BT:= TBorder(T, B);
-        if (TOwner(BT) = P) and (not TOwnerIsPlayerP[BT]) then begin
-          C:= C + 1;
-          TOwnerIsPlayerP[BT]:= True;
-        end;
-      end;
-      Checked[T]:= True;
-      CTArmies:= CTArmies + TArmies(T);
-      Ts:= Ts + 1;
-      if C > 0 then T:= 0;
-    end;
-    T:= T + 1;
-  Until (T > 42);
-end;
-
-procedure RankSort(var Rank: array of integer);
-var
-  temp, APC, x, x1, P: integer;
-begin
-  x:= 0;
-  SetArrayLength(Rank, 11);
-  For P:= 1 to 10 do Rank[P]:= 0;
-  For P:= 1 to 10 do begin
-    if (PArmiesCount(P) > 0) then begin
-      x:= x + 1;
-      Rank[x]:= P;
-    end;
-  end;
-  APC:= SAlivePlayersCount;
-  For x:= 1 to APC - 1 do begin
-    For x1:= x + 1 to APC do begin
-      if PArmiesCount(Rank[x1]) > PArmiesCount(Rank[x]) then begin
-        temp:= Rank[x];
-        Rank[x]:= Rank[x1];
-        Rank[x1]:= temp;
-      end;
-    end;
-  end;
-end;
-
-Procedure KillPAttack(P, FT: integer; var TT: integer);
-Var
-  Distance1, Distance2, C1, tempTT, Total2, ST, B1, Total, X, BT, C, B, T: integer;
-  TOwnerIsPlayerP, Checked: array of boolean;
-begin
-
-  SetArrayLength(Checked, 43);
-  SetArrayLength(TOwnerIsPlayerP, 43);
-
-  TT:= 0;
-  For B1:= 1 to TBordersCount(FT) do begin
-
-    For x:= 1 to 42 do Checked[x]:= False;
-    For x:= 1 to 42 do TOwnerIsPlayerP[x]:= False;
-
-    T:= TBorder(FT, B1);
-    if (Not ((TArmies(FT) < 4) and (TArmies(T) > 1))) then begin
-      if (  (TOwner(T) = P) or ( (P = 0) and (TOwner(T) <> PMe) )  ) then begin
-        C:= 0;
-        For B:= 1 to TBordersCount(T) do
-         if (  (TOwner(TBorder(T, B)) = P) or ( (P = 0) and (TOwner(TBorder(T, B)) <> PMe) )  )
-          then C:= C + 1;
-        if (C = 0) and (TArmies(FT) > TArmies(T)) then begin
-          TT:= T;
-          exit;
-        end;
-
-        tempTT:= T;
-        TOwnerIsPlayerP[T]:= True;
-        Total:= 0;
-        Repeat
-          if TOwnerIsPlayerP[T] and (not Checked[T]) then begin
-            C:= 0;
-            For B:= 1 to TBordersCount(T) do begin
-              BT:= TBorder(T, B);
-              if (  (TOwner(BT) = P) or ( (P = 0) and (TOwner(BT) <> PMe) )  )
-               and (not TOwnerIsPlayerP[BT]) then begin
-                C:= C + 1;
-                TOwnerIsPlayerP[BT]:= True;
-              end;
-            end;
-            Checked[T]:= True;
-            Total:= Total + 1;
-            ST:= T;
-            if C > 0 then T:= 0;
-          end;
-          T:= T + 1;
-        Until (T > 42);
-
-        For x:= 1 to 42 do Checked[x]:= False;
-        For x:= 1 to 42 do TOwnerIsPlayerP[x]:= False;
-
-        T:= ST;
-        TOwnerIsPlayerP[T]:= True;
-        Total2:= 0;
-        Repeat
-          if TOwnerIsPlayerP[T] and (not Checked[T]) then begin
-            C:= 0;
-            For B:= 1 to TBordersCount(T) do begin
-              BT:= TBorder(T, B);
-              if (  (TOwner(BT) = P) or ( (P = 0) and (TOwner(BT) <> PMe) )  )
-               and (not TOwnerIsPlayerP[BT]) and (not (BT = tempTT)) then begin
-                C:= C + 1;
-                TOwnerIsPlayerP[BT]:= True;
-              end;
-            end;
-            Checked[T]:= True;
-            Total2:= Total2 + 1;
-            if C > 0 then T:= 0;
-          end;
-          T:= T + 1;
-        Until (T > 42);
-
-        if Total2 = Total - 1 then begin
-          if TT = 0 then TT:= TempTT else begin
-            C:= 0; C1:= 0;
-            For B:= 1 to TBordersCount(TT) do
-             if (TOwner(TBorder(TT, B)) = P) or ( (P = 0) and (TOwner(TBorder(TT, B)) <> PMe) ) then C:= C + 1;
-            For B:= 1 to TBordersCount(TempTT) do
-             if (TOwner(TBorder(TempTT, B)) = P) or ( (P = 0) and (TOwner(TBorder(TempTT, B)) <> PMe) ) then C1:= C1 + 1;
-            if C1 < C then TT:= TempTT;
-            If (C = 1) and (C1 = 1) and TIsBordering(TT, TempTT) then begin
-              Distance1:= 0;
-              Distance2:= 0;
-              For T:= 1 to 42 do begin
-                if (TOwner(T) <> Pme) and (not ((T = TT) or (T = TempTT)) ) then begin
-                  if (TDistance(T, TT) < Distance1) or (Distance1 = 0) then Distance1:= TDistance(T, TT);
-                  if (TDistance(T, TempTT) < Distance2) or (Distance2 = 0) then Distance2:= TDistance(T, TempTT);
-                end;
-              end;
-              if Distance2 > Distance1 then TT:= TempTT;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-end;
-
-procedure KillPlayer_Placement(var ToTerritory: integer);
-var
-  BFT, Priority, aMinCost, P, WP, Extra2, Extra, BT1, Total, B, BT, Y, CTArmies, Ts,
-  MyArmies, TT, PL, EA, Cost, T, minPressure, x: integer;
-
-  MinCost, Rank, Army: array of integer;
-  HasEnough: array of boolean;
-  pathexists, go: boolean;
-begin
-  setarraylength(HasEnough, 43);
-  setarraylength(MinCost, 43);
-
-  ToTerritory:=0;
-  ArmySort(Army);
-  RankSort(Rank);
-
-  if Rank[SAlivePlayersCount] <> PMe then WP:= Rank[SAlivePlayersCount] else WP:=0;
-  if GameHasOneHuman(P) then WP:= P;
-  bs(63, WP);
-
-
-  if (bg(52) > 0) and (bg(56) > 0) then ToTerritory:= bg(52) else begin
-    if SAlivePlayersCount > 2 then begin
-      MyArmies:= 0;
-      // need to take into account two non adjoining ts
-      For T:= 1 to 42 do begin
-        if (TOwner(T) = WP) and (TFrontsCount(T) = 0) then begin // Enemy T is surrounded by me
-          For B:= 1 to TBordersCount(T) do begin
-            BT:= TBorder(T, B);
-            MyArmies:= MyArmies + TArmies(BT) - 1;
-          end;
-          BFT:= BestFT(T);
-          if MyArmies < TPressure(BFT) + TFrontsCount(BFT) + 3 then begin
-            ToTerritory:= BFT;
-            exit;
-          end;
-        end;
-      end;
-
-      aMinCost:= 999999999;
-      Priority:= 0;
-      For x:= 1 to PTC do begin
-        MinCost[Army[x]]:= 999999999;
-        For T:= 1 to 42 do begin
-         if TOwner(T) = WP then begin
-           Cost:= 0;
-           PathExists:= False;
-           if TWeakestPath(Army[x], T, TT, PL, EA) then begin
-             PathExists:= True;
-             Cost:= PL + EA - TArmies(Army[x]);
-             if (Cost < MinCost[Army[x]]) then MinCost[Army[x]]:= Cost;
-           end;
-         end;
-        end;
-        if PathExists then begin
-          if MinCost[Army[x]] < aMinCost then begin
-            aMinCost:= MinCost[Army[x]];
-            Priority:= x;
-          end;
-        end;
-      end;
-      if priority > 0 then begin
-        Cost:= aMinCost + TArmies(Army[Priority]);
-        if TArmies(Army[Priority]) < Cost + PArmiesCount(WP) + PTerritoriesCount(WP) then begin
-          ToTerritory:= Army[Priority];
-          exit;
-        end;
-      end;
-    end;
-
-    bs(52, 0);
-    Extra2:= bg(56);
-    for x:= 1 to 42 do HasEnough[x]:= False;
-    Repeat
-      for Y:= 1 to PTC do begin
-        If TIsFront(Army[y]) then begin
-          Total:= 0;
-          go:= True;
-          if Y > 1 then for x:= Y-1 downto 1 do
-           if HasEnough[Army[x]] then if TsAreConnected(0, Army[y], Army[x]) then go:= False;
-          if go then begin
-            Total:= 0;
-            For B:= 1 to TFrontsCount(Army[y]) do begin
-              BT:= TFront(Army[y], B);
-              go:= True;
-              if B > 1 then for x:= B-1 downto 1 do begin
-                BT1:= TFront(Army[y], x);
-                if TsAreConnected(0, BT, BT1) then go:= False;
-              end;
-              If go then begin
-                AddConnectedTsArmies(BT, CTArmies, Ts);
-                Total:= Total + CTArmies + Ts;
-              end;
-            end;
-            Extra:= Ts div 3;
-            if Extra < 2 then Extra:= 2;
-            if TArmies(Army[y]) < Total + Extra + Extra2 then begin
-              If ToTerritory = 0 then begin
-                ToTerritory:= Army[y];
-                minPressure:= TPressure(Army[y]);
-              end else begin
-                if (TPressure(Army[y]) < minPressure) then begin
-                  minPressure:= TPressure(Army[y]);
-                  ToTerritory:= Army[y];
-                end;
-              end;
-            end else HasEnough[Army[y]]:= True;
-          end;
-        end;
-      end;
-      If ToTerritory = 0 then begin
-        Extra2:= Extra2 + 4;
-        bs(56, Extra2);
-      end;
-    Until ToTerritory > 0;
-  end;
-
-  if Extra2 >= 12 then bs(52, ToTerritory);
-  if PNewArmies(PMe) = 1 then begin
-    bs(52, 0);
-    bs(56, 0);
-  end;
-end;
-
-procedure KillPlayer_Attack(var FromTerritory, ToTerritory: integer);
-var
-  loop, WP, P, B, BT, PL, x, Cost, TT, EA,
-  MaxCost, C, Armies, Y, MinCost, MinDiff: integer;
-
-  Rank, Army: Array of integer;
-
-begin
-  // the occupation routine sometimes determines where the next attack should be and stores it in buffer 73
-  if (bg(73) > 0) and (TArmies(bg(73)) > 1) then begin
-    FromTerritory:= bg(73);
-    KillPAttack(bg(74), FromTerritory, ToTerritory);
-    if ToTerritory > 0 then exit else begin
-      FromTerritory:= 0;
-      bs(73, 0);
-    end;
-  end;
-
-  RankSort(Rank);
-  ArmySort(Army);
-  if Rank[SAlivePlayersCount] <> PMe then WP:= Rank[SAlivePlayersCount] else WP:=0;
-  if GameHasOneHuman(P) then WP:= P;
-  bs(63, WP);
-  MinCost:= 0;
-  MaxCost:= PArmiesCount(PMe) div 2;
-
-  loop:= 0;
-  Repeat
-  For y:= 1 to PTC do begin
-    if TIsFront(Army[y]) and (TArmies(Army[y]) > 1) then begin
-      C:= 0;
-      For B:= 1 to TBordersCount(Army[y]) do begin
-        BT:= TBorder(Army[y], B);
-        If (TOwner(BT) = WP) or ( (WP = 0) and (not TIsMine(BT)) ) then begin
-          C:= C + 1;
-          If C = 1 then TT:= BT else TT:= 0;
-        end;
-      end;
-      If C = 1 then begin
-        if (  not ( (TArmies(TT) > 1) and (TArmies(BestFT(TT)) < 4) )  ) then begin
-          ToTerritory:= TT;
-          FromTerritory:= BestFT(ToTerritory);
-          exit;
-        end;
-      end else if c > 1 then begin
-        KillPAttack(WP, Army[y], TT);
-        If TT > 0 then begin
-          ToTerritory:= TT;
-          FromTerritory:= Army[y];
-          exit;
-        end;
-      end;
-      If C > 1 then begin
-        MinDiff:= 0;
-        For B:= 1 to TBordersCount(Army[y]) do begin
-          BT:= TBorder(Army[y], B);
-          If (TOwner(BT) = WP) or ( (WP = 0) and (not TIsMine(BT)) )
-           and (not ( (TArmies(BT) > 1) and (TArmies(BestFT(BT)) < 4) )) then begin
-            if (trunc(abs(Army[y] - BT)) < MinDiff) or (MinDiff = 0) then begin
-              MinDiff:= trunc(abs(Army[y] - BT));
-              ToTerritory:= BT;
-              FromTerritory:= BestFT(ToTerritory);
-            end;
-          end;
-        end;
-      end;
-    end;
-
-    if FromTerritory = 0 then begin
-      For x:= 1 to 42 do begin
-        IF TOwner(x) = WP then begin
-          If TWeakestPath(Army[y], x, TT, PL, EA) then begin
-            Armies:= TArmies(Army[y]);
-            Cost:= EA + PL;
-            if ( (Cost < MinCost) or (MinCost = 0) ) and (Armies > TArmies(TT))
-             and (Armies > 3) and (Cost < MaxCost) then begin
-              MinCost:= Cost;
-              ToTerritory:= TT;
-              FromTerritory:= BestFT(ToTerritory);
-            end;
-          end;
-        end;
-      end;
-    end;
-
-  end;
-  loop:= loop + 1;
-  if (ToTerritory = 0) and (bg(99) > 0) then WP:= 0;
-  Until (ToTerritory > 0) or (loop > 1);
-end;
-
-procedure KillPlayer_Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  c, TTtotal, FTtotal, T, P, BothTotal, FTA: integer;
-  TsConnTT, TsConnFT, TsConnBoth: boolean;
-  Army: array of integer;
-begin
-  bs(73, 0);
-  P:= 0;
-  FTA:= TArmies(FromTerritory) - 1;
-  Armies:=FTA;  // Default is to occupy all
-  ArmySort(Army);
-
-  TTtotal:= 0;
-  FTtotal:= 0;
-  BothTotal:= 0;
-  For T:= 1 to 42 do begin
-    if ( ((P = 0) and (TOwner(T) <> PMe)) or (TOwner(T) = P) ) then begin
-      TsConnTT:= TsAreConnected(P, T, ToTerritory);
-      TsConnFT:= TsAreConnected(P, T, FromTerritory);
-      if TsConnTT and TsConnFT then TsConnBoth:= True else TsConnBoth:= False;
-      if TsConnBoth then BothTotal:= BothTotal + TArmies(T) + 1;
-      if TsConnTT and (not TsConnFT) then TTtotal:= TTtotal + TArmies(T) + 1;
-      if TsConnFT and (not TsConnTT) then FTtotal:= FTtotal + TArmies(T) + 1;
-    end;
-  end;
-  TTtotal:= TTtotal + 1;  // make sure TTtotal has enough so add an extra army
-  if TTtotal > FTA then Armies:= FTA;
-  if (TTtotal < FTA) and (FTtotal >= FTA-TTtotal) then Armies:= TTtotal;
-  if (TTtotal < FTA) and (FTtotal < FTA-TTtotal) then Armies:= FTA - FTtotal;
-  if (TTtotal = 0) and (FTtotal = 0) then Armies:= FTA;
-  if (TTtotal = 0) and (FTtotal <> 0) then Armies:= 0;
-  if (TTtotal = 0) and (FTtotal <> 0) and (BothTotal <> 0) then begin
-    if (FTtotal < BothTotal) then Armies:= FTA - FTtotal;
-    if (FTtotal > BothTotal) then Armies:= BothTotal;
-    if Armies > FTA then Armies:= FTA;
-    bs(73, ToTerritory);
-    bs(74, P);
-  end;
-  if (FromTerritory = 31) and (ToTerritory = 39) then begin
-    c:= 0;
-    For T:= 40 to 42 do if (TOwner(T) <> PMe) then c:= c + TArmies(T) + 2;
-    Armies:= c;
-    if Armies > FTA then Armies:= FTA;
-  end;
-end;
-
-procedure KillPlayer_Fortification(var FromTerritory, ToTerritory, Armies: integer);
-Var
-  FT, P, WP, aMinPL, B, BT, Cost, TT, PL, EA, aMinCost, x, MaxArmy, T: integer;
-  Rank, MinPL, TTa, MinCost, Army: array of integer;
-
-begin
-  FromTerritory:= 0;
-  ToTerritory:= 0;
-  ArmySort(Army);
-  RankSort(Rank);
-  SetArrayLength(MinCost, 43);
-  SetArrayLength(MinPL, 43);
-  SetArrayLength(TTa, 43);
-
-  if Rank[SAlivePlayersCount] <> PMe then WP:= Rank[SAlivePlayersCount] else WP:=0;
-  if GameHasOneHuman(P) then WP:= P;
-
-  For x:= 1 to PTC do begin
-    MinCost[Army[x]]:= 0;
-    MinPL[x]:= 0;
-    TTa[x]:= 0;
-    For T:= 1 to 42 do begin
-     if TOwner(T) = WP then begin
-       Cost:= 0;
-       if TWeakestPath(Army[x], T, TT, PL, EA) then begin
-         Cost:= PL + EA - TArmies(T);
-         if (Cost < MinCost[Army[x]]) or (MinCost[Army[x]] = 0) then MinCost[Army[x]]:= Cost;
-       end;
-       if (not TIsFront(Army[x])) and (TArmies(Army[x]) > 3) then begin
-         TShortestPath(Army[x], T, TT, PL);
-         if (PL < MinPL[x]) or (MinPL[x] = 0) then begin
-           MinPL[x]:= PL;
-           TTa[x]:= TT;
-         end;
-       end;
-     end;
-    end;
-  end;
-
-  if SAlivePlayersCount > 2 then begin
-    aMinCost:= 0;
-    For x:= PTC downto 1 do begin
-      if TArmies(Army[x]) > 1 then begin
-        For B:= 1 to TBordersCount(Army[x]) do begin
-          BT:= TBorder(Army[x], B);
-          if TIsMine(BT) then begin
-            if MinCost[BT] > 0 then begin
-              if ( (MinCost[BT] < MinCost[Army[x]]) or (MinCost[Army[x]] = 0) ) and ((MinCost[BT] <= aMinCost) or (AMinCost = 0)) then begin
-                if (  (MinCost[BT] = aMinCost) and ( (TArmies(BT) > TArmies(ToTerritory)) or (TArmies(Army[x]) > TArmies(FromTerritory)) )  ) or (MinCost[BT] <> aMinCost) then begin
-                  aMinCost:= MinCost[BT];
-                  FromTerritory:= Army[x];
-                  ToTerritory:= BT;
-                  Armies:= TArmies(FromTerritory) - 1;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-
-  if FromTerritory = 0 then begin
-    aMinPL:= 0;
-    For x:= 1 to PTC do begin
-      if ( (MinPL[x] <= aMinPL) or (aMinPL = 0) ) and (MinPL[x] > 0) then begin
-        if (  (MinPL[x] = aMinPL) and ( (TArmies(TTa[x]) > TArmies(ToTerritory)) or (TArmies(Army[x]) > TArmies(FromTerritory)) )  ) or (MinPL[x] <> aMinPL) then begin
-          aMinPL:= MinPL[x];
-          FromTerritory:= Army[x];
-          ToTerritory:= TTa[x];
-          Armies:= TArmies(FromTerritory) - 1;
-        end;
-      end;
-    end;
-  end;
-
-  if (FromTerritory = 0) or (bg(63) = 0) then begin
-    MaxArmy:= 1;
-    For T:= 1 to 42 do begin
-      if TIsMine(T) and (not TIsFront(T)) then begin
-        if (TArmies(T) > MaxArmy) then begin
-          MaxArmy:= TArmies(T);
-          FT:= T;
-          Armies:= TArmies(FromTerritory) - 1;
-        end;
-      end;
-    end;
-    if (FT > 0) and (not (FT = FromTerritory)) then begin // if it's the same FT that the previous code determined, don't change the ToTerritory
-      if not (  (FromTerritory > 0) and ( (TArmies(FT) < 4) and (TArmies(FromTerritory) > 3) )  ) then begin
-        FromTerritory:= FT;      // might not be neccessary to do the following > 0 check
-        if TPathToFront(FromTerritory) > 0 then ToTerritory:= TPathToFront(FromTerritory) else FromTerritory:= 0;
-        Armies:= TArmies(FromTerritory) - 1;
-      end;
-    end;
-  end;
-
-end;
-
-{-------------------------------------End Kill Player Code---------------------------------}
-
-
-
-function AssignEval(T: integer): double;
-  var
-    FreeT,            // free territories on the continent  #*# changed to double
-    Points: double;   // value assigned to the FROM/TO pair
-    C,CT,             // continent, territories on the continent
-    AF,AT,            // armies on FROM and TO teritories
-    PT,PA,            // my territories and armies on FROM continent
-    ET,EA,            // enemy territories and armies on FROM continent
-    LP,               // leader player on FROM continent
-    LT,LA: integer;   // leader's territories and armies on FROM continent
-
-begin
-    Points:=0;
-    C:=TContinent(T);
-    CT:=CTerritoriesCount(C);
-    CAnalysis(C,PT,PA,ET,EA);
-    CLeader(C,LP,LT,LA);
-    FreeT:=CT-PT-ET;
-    // the leader of the continent it's not me and owns all territories less one
-    if LP>0 then begin
-      if (LP<>PMe) and (LT>=CT-1) then begin
-        Points:=Points+100.0;    // I must avoid enemy conquers the continent
-      end;
-    end;
-    // evaluate my chances to conquer the continent
-    // needed to change freeT to double to get this line to not truncate freeT/splayerscount
-    Points:=Points+1.0*(PT+1+FreeT/SPlayersCount)/(ET+FreeT*SPlayersCount/(SplayersCount-1));
-    result:=Points;
-end;
-
-
-function PlaceEval(TF,TT: integer): double;
-  var
-    Points,temp: double;   // value assigned to the FROM/TO pair
-    CF,CT,            // FROM and TO continents
-    AF,AT,            // armies on FROM and TO teritories
-    PT,PA,            // my territories and armies on FROM continent
-    ET,EA,            // enemy territories and armies on FROM continent
-    LP,               // leader player on FROM continent
-    LT,LA: integer;   // leader's territories and armies on FROM continent
-begin
-    Points:=0;
-    CF:=TContinent(TF);
-    CT:=TContinent(TT);
-    AF:=TArmies(TF);
-    AT:=TArmies(TT);
-    // FROM and TO territories are on different continents
-    if CF<>CT then begin
-      // enemy owns the TO continent
-      if COwner(CT)>0 then begin
-        Points:=Points+2.0;
-      end;
-      // I own the FROM continent and is not well defended
-      temp := (double(TPressure(TF))) / (double(AF)); 
-      if (COwner(CF)>0) and (temp>1.0) then begin
-        Points:=Points+3.0;
-      end;
-    end else begin
-    // FROM and TO territories are on the same continent
-      CAnalysis(CF,PT,PA,ET,EA);
-      CLeader(CF,LP,LT,LA);
-      // the leader of the continent it's not me and owns all territories less one
-      temp := (double(TPressure(TF))) / (double(AF));
-      if (LP<>PMe) and (LT=ET) and (temp>0.2) then begin
-        Points:=Points+10.0;    // I must resist!
-      end;
-      // evaluate my chances to conquer the continent
-      Points:=Points+1.0*(PA+1)/(EA+ET);
-    end;
-    // if enemy owns just one territory, I try to kill him to get his cards
-    if PTerritoriesCount(TOwner(TF))<2 then begin
-      Points:=Points+20.0;
-    end;
-    // Generic evaluations about strength ratio
-    Points:=Points+0.5*(double(TPressure(TF))/AF)  // #*#
- result:=Points;
-end;
-
-
-function AttackEval(TF,TT: integer): double;
-  var
-    Points: double;   // value assigned to the FROM/TO pair
-    CF,CT,            // FROM and TO continents
-    AF,AT,            // armies on FROM and TO teritories
-    PT,PA,            // my territories and armies on FROM continent
-    ET,EA,            // enemy territories and armies on FROM continent
-    LP,               // leader player on FROM continent
-    LT,LA: integer;   // leader's territories and armies on FROM continent
-begin
-    Points:=0;
-    CF:=TContinent(TF);
-    CT:=TContinent(TT);
-    AF:=TArmies(TF);
-    AT:=TArmies(TT);
-    // FROM and TO territories are on different continents
-    if CF<>CT then begin
-      // enemy owns the TO continent
-      if COwner(CT)>0 then begin
-        Points:=Points+2.0;
-      end;
-    end
-    // FROM and TO territories are on the same continent
-    else begin
-      CAnalysis(CF,PT,PA,ET,EA);
-      CLeader(CF,LP,LT,LA);
-      // evaluate my chances to conquer the continent
-      Points:=Points+1.0*(PA+1)/(EA+ET);
-    end;
-    // if enemy owns just one territory, I try to kill him to get his cards
-    if PTerritoriesCount(TOwner(TF))<2 then begin
-      Points:=Points+20.0;
-    end;
-    // if haven't conquered a territory, add some points for
-    // a generic evaluation of the attack ratio
-    if not SConquest then begin
-      Points:=Points+1.0*AF/AT;
-    end;
-    result:=Points;
-end;
-
-
-
-procedure Assignment(var ToTerritory: integer);
-var
-  T: integer;
-  Value,MaxValue: double;
-
-  // evaluation function for the unassigned territory T
-
-begin
-  // choose unassigned territory with greatest value
-  ToTerritory:=0;
-  MaxValue:=0;
-  for T:=1 to 42 do begin
-    if TOwner(T)=0 then begin  // territory is unassigned
-      Value:=AssignEval(T);
-      if Value>MaxValue then begin
-        ToTerritory:=T;
-        MaxValue:=Value;
-      end;
-    end;
-  end;
-end;
-
-
-
-
-
-
-procedure Placement(var ToTerritory: integer);
-var
-  T,T2,F: integer;
-  Value,MaxValue: double;
-
-  // evaluation function for the pair "territory from"-"territory to" (TF-TT)
-
-begin // Placement
-  // check for kill player mode
-  if (UBufferGet(99) = 1) or (UBufferGet(98) > 0) then begin
-    KillPlayer_Placement(ToTerritory);
-    exit;
-  end;
-
-  // reinforce front territory with greatest value
-  ToTerritory:=0;
-  MaxValue:=0;
-  for T:=1 to 42 do begin
-    if TIsFront(T) then begin  // territory is mine and front
-      for F:=1 to TFrontsCount(T) do begin
-        T2:=TFront(T,F);
-        Value:=PlaceEval(T,T2);
-        if Value>MaxValue then begin
-          ToTerritory:=T;
-          MaxValue:=Value;
-        end;
-      end;
-    end;
-  end;
-end;
-
-
-
-
-
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  T,T2,F,FCount: integer;
-  Ratio,Value,MaxValue: double;
-
-  // Evaluation function for the pair "territory from"-"territory to" (TF-TT).
-  // It return a value > 1 for strategic attacks
-
-begin
-  // reset kill mode if the game no longer has human players
-  if UBufferGet(98) > 0 then begin
-   if GameHasNoHumans then UBufferSet(98, 0);
-  end;
-
-  // check for kill player mode
-  if (UBufferGet(99) = 1) or (UBufferGet(98) > 0) then begin
-    KillPlayer_Attack(FromTerritory, ToTerritory);
-    If (not ((FromTerritory = 0) and (UBufferGet(98) > 0))) then exit;
-  end;
-
-  // perform the attack with highest point value if force ratio>=1.2
-  FromTerritory:=0;
-  ToTerritory:=0;
-  MaxValue:=0;
-  // scan all territories
-  for T:=1 to 42 do begin
-    if TIsFront(T)                      // territory is mine and front
-    and (TArmies(T)>1) then begin       // and attack is possible
-      // scan all possible fronts
-      FCount:=TFrontsCount(T);
-      for F:=1 to FCount do begin
-        T2:=TFront(T,F);
-        Ratio := TArmies(T) / TArmies(T2);
-        if Ratio>=1.2 then begin
-          Value:=AttackEval(T,T2);
-          // consider only strategic attacks
-          if Value>=1.0 then begin
-            if Value>MaxValue then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              MaxValue:=Value;
-            end;
-          end; 
-        end;
-      end;
-    end;
-  end;
- 
-  UbufferSet(7, (Fromterritory + ((double(ToTerritory))/100))); //#*#
-
-end;
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-begin
-    // check for kill player mode
-  if (UBufferGet(99) = 1) or (UBufferGet(98) > 0) then begin
-    KillPlayer_Occupation(FromTerritory, ToTerritory, Armies);
-    exit;
-  end;
-
-
-  // very simple but effective routine
-
-  FromTerritory:= trunc(UbufferGet(7));	//#*#
-  ToTerritory:= round((UbufferGet(7)-trunc(UbufferGet(7)))*100);	//#*#
-
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  Armies:=0;
-
-  // if both territories are 'front'
-  if  FromIsFront and ToIsFront then begin
-    // balance armies
-    Armies:=(TArmies(FromTerritory)-TArmies(ToTerritory)) div 2;
-
-  // if "From" territory is front
-  end else if FromisFront then begin
-    // all armies stay in From territory, so there's nothing to do
-
-  // in the other cases
-  end else begin
-    // all armies in the conquered territory (except one which must stay)
-    Armies:=TArmies(FromTerritory)-1;
-  end;
-end;
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  T,B,MaxArmy: integer;
-
-    // Kill Player variables
-  extra, X, C, C1, TotalEnemyArmies, P, MaxPArmiesCount: integer;
-  Human, Abort: boolean;
-  TM: double;
-begin
-
-  if GameHasOneHuman(P) then begin
-    C:= 0;
-    C1:= 0;
-    For X:= 1 to 10 do begin
-      if PActive(X) and (PProgram(X) = 'vexer.trp') then C:= C + 1;   // check to see if Vexer is dead
-      if PAlive(X) and (PProgram(X) = 'vexer.trp') then C1:= C1 + 1;
-    end;
-    extra:= 0;
-    if (PCardTurnInValue(P) > PCardTurnInValue(PMe)) and (PCardCount(P) > 1) then Extra:= PCardTurnInValue(P) - PCardTurnInValue(PMe);
-    If (C = 1) and (C1 = 0) and ( PArmiesCount(PMe) > (2 * PArmiesCount(P) + 3) + Extra ) then begin
-      UBufferSet(98, 1);
-    end;
-    if PArmiesCount(PMe) > (3 * PArmiesCount(P)) then begin
-      UBufferSet(98, 1);
-    end;
-  end;
-
-
-  {----------------------------------finisher----------------------------------}
-  // improved finisher.trp code
-  if (UBufferGet(99) = 0) and (PCardCount(PMe) > 2) then begin
-    if SCardsBasedOnCombo then TM:= 1.0 else TM:=0.8;
-    Abort:=False;
-    Human:=False;
-    TotalEnemyArmies:=0;
-    MaxPArmiesCount:=0;	// The number of armies that my strongest enemy has
-    for P:= 1 to 10 do begin
-      if (PAlive(P)) and (P<>PMe) then begin
-        if PArmiesCount(P) >= MaxPArmiesCount then begin
-          MaxPArmiesCount:= PArmiesCount(P);
-          if (not (PArmiesCount(P) = MaxPArmiesCount)) then Abort:=False;	// 1st and 2nd strongest armies are the same, don't reset abort to false
-          if (PCardCount(P) > 2) and (PCardTurnInValue(P) > 25) then Abort:= True;
-        end;
-        if PHuman(P) and (PCardCount(P) > 3) and (PCardTurnInValue(P) > 20) then Abort:= True;
-        if PHuman(P) then begin
-          if (not (PArmiesCount(P) < trunc(double(PArmiesCount(PMe)) * 0.25))) then TM:= TM + 0.2;
-          If PCardTurnInValue(P) > PCardTurnInValue(PMe) then TotalEnemyArmies:= TotalEnemyArmies + PCardTurnInValue(P) - PCardTurnInValue(PMe);
-        end;
-        If (pos('vexer', lowercase(PProgram(P))) > 0) then begin
-          if (not (PArmiesCount(P) < trunc(double(PArmiesCount(PMe)) * 0.25))) then TM:= TM + 0.2;
-          if (PCardCount(P) > 3) and (PCardTurnInValue(P) > 25) then Abort:= True;
-          If PCardTurnInValue(P) > PCardTurnInValue(PMe) then TotalEnemyArmies:= TotalEnemyArmies + PCardTurnInValue(P) - PCardTurnInValue(PMe);
-        end;                                                    // pretend there are more enemy armies if his CTIV is greater then mine
-        TotalEnemyArmies:= TotalEnemyArmies + PArmiesCount(p);
-      end;
-    end;
-
-    // if there's more than 4 players, I'll get a lot of cards by killing them so then lower the threshold multiplier
-    if (SAlivePlayersCount > 4) then TM:= TM - 0.1;
-
-    // if I have a lot of armies then lower TM because on average when attacking 3 dice against 2
-    // I'll take out 7 enemy armies for every 6 I lose, so I need less armies to win
-    if (PArmiesCount(PMe) > 200) then begin
-      TM:= TM * 0.9;
-      abort:= false;
-    end;
-    if (PArmiesCount(PMe) > 400) then TM:= TM * 0.95;
-
-    if (PArmiesCount(PMe) > trunc(TotalEnemyArmies * TM)) and (NOT Abort) then UBufferSet(99, 1);
-    if (PArmiesCount(PMe) > trunc(TotalEnemyArmies*1.4)) then UBufferSet(99, 1);		// If TM > 1.4 then switch to Kill Player even if Abort = true
-  end;
-
-  // check for kill player mode
-  if (UBufferGet(99) = 1) or (UBufferGet(98) > 0) then begin
-    KillPlayer_Fortification(FromTerritory, ToTerritory, Armies);
-    exit;
-  end;
-
-
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-
-  // look for the greatest number of armies which are not on a front territory
-  // and move them toward the nearest front
-  if FromTerritory = 0 then begin
-    MaxArmy:= 1;
-    For T:= 1 to 42 do begin
-      if TIsMine(T) and (not TIsFront(T)) then begin
-        if (TArmies(T) > MaxArmy) then begin
-          MaxArmy:= TArmies(T);
-          FromTerritory:= T;
-          ToTerritory:= TPathToFront(T);
-          Armies:=TArmies(T)-1; // Move all armies to destination
-        end;                    // (except the one which must stay)
-      end;
-    end;
-  end;
-end;
-
-begin
-end.
\ No newline at end of file
diff --git a/Players/struggler.trp b/Players/struggler.trp
deleted file mode 100644
index b9821f4..0000000
--- a/Players/struggler.trp
+++ /dev/null
@@ -1,309 +0,0 @@
-{
-Program: Struggler
-
-Author: Mario Ferrari, March 2 1999
-
-Description: My first attempt to a strong TurboRisk program
-
-History: Bugs in AssignEval and PlaceEval fixed by Nathan Scarbrough.
-}
-
-
-
-function AssignEval(T: integer): double;
-  var
-    FreeT,            // free territories on the continent  #*# changed to double
-    Points: double;   // value assigned to the FROM/TO pair
-    C,CT,             // continent, territories on the continent
-    AF,AT,            // armies on FROM and TO teritories
-    PT,PA,            // my territories and armies on FROM continent
-    ET,EA,            // enemy territories and armies on FROM continent
-    LP,               // leader player on FROM continent
-    LT,LA: integer;   // leader's territories and armies on FROM continent
-
-begin
-    Points:=0;
-    C:=TContinent(T);
-    CT:=CTerritoriesCount(C);
-    CAnalysis(C,PT,PA,ET,EA);
-    CLeader(C,LP,LT,LA);
-    FreeT:=CT-PT-ET;
-    // the leader of the continent it's not me and owns all territories less one
-    if LP>0 then begin
-      if (LP<>PMe) and (LT>=CT-1) then begin
-        Points:=Points+100.0;    // I must avoid enemy conquers the continent
-      end;
-    end;
-    // evaluate my chances to conquer the continent
-    // needed to change freeT to double to get this line to not truncate freeT/splayerscount
-    Points:=Points+1.0*(PT+1+FreeT/SPlayersCount)/(ET+FreeT*SPlayersCount/(SplayersCount-1));
-    result:=Points;
-end;
-
-
-function PlaceEval(TF,TT: integer): double;
-  var
-    Points,temp: double;   // value assigned to the FROM/TO pair
-    CF,CT,            // FROM and TO continents
-    AF,AT,            // armies on FROM and TO teritories
-    PT,PA,            // my territories and armies on FROM continent
-    ET,EA,            // enemy territories and armies on FROM continent
-    LP,               // leader player on FROM continent
-    LT,LA: integer;   // leader's territories and armies on FROM continent
-begin
-    Points:=0;
-    CF:=TContinent(TF);
-    CT:=TContinent(TT);
-    AF:=TArmies(TF);
-    AT:=TArmies(TT);
-    // FROM and TO territories are on different continents
-    if CF<>CT then begin
-      // enemy owns the TO continent
-      if COwner(CT)>0 then begin
-        Points:=Points+2.0;
-      end;
-      // I own the FROM continent and is not well defended
-      temp := (double(TPressure(TF))) / (double(AF)); 
-      if (COwner(CF)>0) and (temp>1.0) then begin
-        Points:=Points+3.0;
-      end;
-    end else begin
-    // FROM and TO territories are on the same continent
-      CAnalysis(CF,PT,PA,ET,EA);
-      CLeader(CF,LP,LT,LA);
-      // the leader of the continent it's not me and owns all territories less one
-      temp := (double(TPressure(TF))) / (double(AF));
-      if (LP<>PMe) and (LT=ET) and (temp>0.2) then begin
-        Points:=Points+10.0;    // I must resist!
-      end;
-      // evaluate my chances to conquer the continent
-      Points:=Points+1.0*(PA+1)/(EA+ET);
-    end;
-    // if enemy owns just one territory, I try to kill him to get his cards
-    if PTerritoriesCount(TOwner(TF))<2 then begin
-      Points:=Points+20.0;
-    end;
-    // Generic evaluations about strength ratio
-    Points:=Points+0.5*(double(TPressure(TF))/AF)  // #*#
- result:=Points;
-end;
-
-
-function AttackEval(TF,TT: integer): double;
-  var
-    Points: double;   // value assigned to the FROM/TO pair
-    CF,CT,            // FROM and TO continents
-    AF,AT,            // armies on FROM and TO teritories
-    PT,PA,            // my territories and armies on FROM continent
-    ET,EA,            // enemy territories and armies on FROM continent
-    LP,               // leader player on FROM continent
-    LT,LA: integer;   // leader's territories and armies on FROM continent
-begin
-    Points:=0;
-    CF:=TContinent(TF);
-    CT:=TContinent(TT);
-    AF:=TArmies(TF);
-    AT:=TArmies(TT);
-    // FROM and TO territories are on different continents
-    if CF<>CT then begin
-      // enemy owns the TO continent
-      if COwner(CT)>0 then begin
-        Points:=Points+2.0;
-      end;
-    end
-    // FROM and TO territories are on the same continent
-    else begin
-      CAnalysis(CF,PT,PA,ET,EA);
-      CLeader(CF,LP,LT,LA);
-      // evaluate my chances to conquer the continent
-      Points:=Points+1.0*(PA+1)/(EA+ET);
-    end;
-    // if enemy owns just one territory, I try to kill him to get his cards
-    if PTerritoriesCount(TOwner(TF))<2 then begin
-      Points:=Points+20.0;
-    end;
-    // if haven't conquered a territory, add some points for
-    // a generic evaluation of the attack ratio
-    if not SConquest then begin
-      Points:=Points+1.0*AF/AT;
-    end;
-    result:=Points;
-end;
-
-
-
-procedure Assignment(var ToTerritory: integer);
-var
-  T: integer;
-  Value,MaxValue: double;
-
-  // evaluation function for the unassigned territory T
-
-begin
-  // choose unassigned territory with greatest value
-  ToTerritory:=0;
-  MaxValue:=0;
-  for T:=1 to 42 do begin
-    if TOwner(T)=0 then begin  // territory is unassigned
-      Value:=AssignEval(T);
-      if Value>MaxValue then begin
-        ToTerritory:=T;
-        MaxValue:=Value;
-      end;
-    end;
-  end;
-end;
-
-
-
-
-
-
-procedure Placement(var ToTerritory: integer);
-var
-  T,T2,F: integer;
-  Value,MaxValue: double;
-
-  // evaluation function for the pair "territory from"-"territory to" (TF-TT)
-
-begin // Placement
-  // reinforce front territory with greatest value
-  ToTerritory:=0;
-  MaxValue:=0;
-  for T:=1 to 42 do begin
-    if TIsFront(T) then begin  // territory is mine and front
-      for F:=1 to TFrontsCount(T) do begin
-        T2:=TFront(T,F);
-        Value:=PlaceEval(T,T2);
-        if Value>MaxValue then begin
-          ToTerritory:=T;
-          MaxValue:=Value;
-        end;
-      end;
-    end;
-  end;
-end;
-
-
-
-
-
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  T,T2,F,FCount: integer;
-  Ratio,Value,MaxValue: double;
-
-  // Evaluation function for the pair "territory from"-"territory to" (TF-TT).
-  // It return a value > 1 for strategic attacks
-
-begin
-  // perform the attack with highest point value if force ratio>=1.2
-  FromTerritory:=0;
-  ToTerritory:=0;
-  MaxValue:=0;
-  // scan all territories
-  for T:=1 to 42 do begin
-    if TIsFront(T)                      // territory is mine and front
-    and (TArmies(T)>1) then begin       // and attack is possible
-      // scan all possible fronts
-      FCount:=TFrontsCount(T);
-      for F:=1 to FCount do begin
-        T2:=TFront(T,F);
-        Ratio := TArmies(T) / TArmies(T2);
-        if Ratio>=1.2 then begin
-          Value:=AttackEval(T,T2);
-          // consider only strategic attacks
-          if Value>=1.0 then begin
-            if Value>MaxValue then begin
-              FromTerritory:=T;
-              ToTerritory:=T2;
-              MaxValue:=Value;
-            end;
-          end; 
-        end;
-      end;
-    end;
-  end;
- 
-  UbufferSet(7, (Fromterritory + ((double(ToTerritory))/100))); //#*#
-
-end;
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-begin
-  // very simple but effective routine
-
-  FromTerritory:= trunc(UbufferGet(7));	//#*#
-  ToTerritory:= round((UbufferGet(7)-trunc(UbufferGet(7)))*100);	//#*#
-
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  Armies:=0;
-
-  // if both territories are 'front'
-  if  FromIsFront and ToIsFront then begin
-    // balance armies
-    Armies:=(TArmies(FromTerritory)-TArmies(ToTerritory)) div 2;
-
-  // if "From" territory is front
-  end else if FromisFront then begin
-    // all armies stay in From territory, so there's nothing to do
-
-  // in the other cases
-  end else begin
-    // all armies in the conquered territory (except one which must stay)
-    Armies:=TArmies(FromTerritory)-1;
-  end;
-end;
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  T,B,MaxArmy: integer;
-begin
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-
-  // look for the greatest nuber of armies which is not on a front territory
-  MaxArmy := 1;
-  for T:=1 to 42 do begin
-    if TIsMine(T) and not TIsFront(T) then begin  // territory is mine and not "front"
-      if TArmies(T)>MaxArmy then begin
-        MaxArmy := TArmies(T);
-        FromTerritory := T;
-      end;
-    end;
-  end;
-  // if there are armies to move...
-  if FromTerritory>0 then begin
-    // check if can move armies to front...
-    for B:=1 to TBordersCount(FromTerritory) do begin
-      if ToTerritory=0 then begin
-        T:=TBorder(FromTerritory,B);
-        if TIsMine(T) and TIsFront(T) then begin
-          ToTerritory:=T;
-        end;
-      end;
-    end;
-    // otherwise move armies in the first bordering territory
-    if ToTerritory=0 then begin
-      for B:=1 to TBordersCount(FromTerritory) do begin
-        if ToTerritory=0 then begin
-          T:=TBorder(FromTerritory,B);
-          if TIsMine(T) then begin
-            ToTerritory:=T;
-          end;
-        end;
-      end;
-    end;
-    // Move all armies to destination (except the one which must stay)
-    if ToTerritory>0 then begin
-      Armies:=TArmies(FromTerritory)-1;
-    end;
-  end;
-end;
-
-begin
-end.
\ No newline at end of file
diff --git a/Players/vexer.trp b/Players/vexer.trp
deleted file mode 100644
index 35dc9fe..0000000
--- a/Players/vexer.trp
+++ /dev/null
@@ -1,4892 +0,0 @@
-{
-Program: Vexer
-Author: Nathan Scarbrough
-Email: Nathan.Scarbrough@gmail.com (Please send error files directly to me)
-
-Description: Vexer's has two strategies:
-1. When Card Turn In Value (CTIV) is based on progression:
-  - take out weak players for their cards
-2. Vexer doesn't yet play to win when CTIV is based on combination, that strategy is still in development. Instead, he is more of a menace, e.g. killing off weak players and attacking continents to prevent bonuses.
-
-If the preset level "Very Hard" isn't hard enough, try adding another Vexer.
-
-History: Version 0.9 August 2010
-}
-
-
-{ Vexer takes advantage of the fact that in turborisk, card turn in value is incremented per player,
-whereas traditionally (in the US version at least) the CTIV increments for all players every time a trade is
-turned in. This makes it even more advantageous to make sure you get your card each turn and to kill
-players for their cards. Both things Vexer does well. }
-
-{ Ubuffer Usage:
-
-  Placement:
-  51 - Used to determine if it's the first placement of the game
-  52 - Last Territory Placed
-  53 - Keeps track of the card turn in value
-  54 - set to 1 if Cards have been turned in this turn
-  55 - Stores the change in CTIV
-  56 - Stores variable extra2/extra
-  57 - set to 1 if it's the first placement of the turn
-  58 - stores how much is enough
-  59 - tells the placement routine not to check for kill player placement until the next turn
-  151 - stores how many times to place to buffer 52
-  89 - tells the attack proc to not try and kill the weakest player
-
-  Attack:
-  60 - signal to occupation proc, attack determined by Attack Strong Player Code
-  61 - successive turns without conquest counter
-  62 - keeps track of how many total turns I've gone without conquest
-  63 - Kill Player Mode
-  64 - attack all players
-  65 - reduce build up mode
-  66 - use TPathToFront fortification code
-  67 - used to tell the occupation routine to set Armies:= 0
-  68 - reuse the last ToTerritory
-  69 - reuse the last FromTerritory
-  85 - stores how many times to repeat that last attack
-  86 - stores the previous owner of the ToTerritory
-  87 - stores the fact that it's not possible to kill the stored player until you can place more armies
-  88 - same as above
-  90 - take continent mode
-  91 - keeps track of the last territory I conquered when taking a continent
-  92 - tells the occupation routine the T I've attacked in take continent mode
-  93 - tells the fortification routine to pause the game with a UMessage
-  94 - don't check if you can kill the weakest player again until next turn
-  95 - KillPlayerAttack2 - stores the last DT that was found with the 2nd set of code
-  96 - stores DT for use with KillPlayerOcc
-  97 - stores DT when determined by the second set of code, for use with KillPlayerOcc
-  98 - reuse the last Toterritory until TArmies(Toterritory) < 3
-  99 - reuse the last FromTerritory
- 100 - these 2 same as above 2 but for Attack strong player code
-
-  Occupation:
-  70 - set to 1 in occupation routine, 0 in attack - determines if the occupation routine wasn't called because there weren't any armies left to occupy with
-  71 - Keeps track of the last territory I conquered
-  72 - Keeps track of how many times I've attacked the same territory
-  73 - Keeps track of where my next FromTerritory should be
-  74 - Keeps track of where my next ToTerritory should be
-  75 - Tells the attack procedure to take another float attack
-  76 - turns on a umessage when the occ actually happens
-  77 - used with KillPlayerOcc stores BestFT
-  78 - tells killplayerOcc not to repeat the "dead end" code
-  79 - stores FTNeedsMore for killplayerOcc - used with buffer 77
-  80 - stores BestTT - used with 77
-  82 - tells the killplayerOcc to set armies:= TTNeeds
-
-  Fortification:
-  81 - Stores a turn count that doesn't include initial placement
-}
-
-{ Feel free to use any of my functions or procedures for your own TRPs.  After
-reading the function's name, it may sound like it is good for general use but it's
-actually customized for Vexer.  If you need help making a function work for your TRP,
-send me an email describing what you want the function to do and I can modify it for you. }
-
-Var
-  QTArmies, QTOwner: Array of Integer;
-  NeedToCheck: array [1..42] of boolean;
-  aQNode: array [1..42] of record
-    bClosed: boolean;
-    bOpen: boolean;
-  end;
-  TTNeeds: array [1..42] of integer;
-  AccountedFor: array [1..42] of boolean;
-  KillBoth, Weaken1: boolean;
-
-
-{_________________________ UMessage/Ulog/UBuffer ______________________________}
-
-function m(s: string): boolean;  // shortens UMessage to m
-begin
-  result:= false;
-  //ULog('m: ' + s);  // duplicates all messages to the log
-  {
-  case UDialog(s,'Continue;SnapShot;Stop;Both') of
-    1: ;
-    2: UTakeSnapShot(s + ' Turn: ' + inttostr(trunc(UBufferGet(81))));
-    3: begin
-      UAbortGame;
-      exit;
-    end;
-    4: begin
-      UTakeSnapShot(s + ' Turn: ' + inttostr(trunc(UBufferGet(81))));
-      UAbortGame;
-      exit;
-    end;
-  end;
-  }
-end;
-
-function m2(s: string): boolean;  // used when working on new code and I don't want all the above m dialogs popping up
-begin
-
-  result:= False;
-  {
-  ULog('m2: ' + s);  // duplicates all messages to the log
-
-  case UDialog(s,'Continue;SnapShot;Stop;Both') of
-    1: ;
-    2: UTakeSnapShot(s + 'Turn: ' + inttostr(trunc(UBufferGet(81))));
-    3: begin
-      UAbortGame;
-      Result:= True;
-      exit;
-    end;
-    4: begin
-      UTakeSnapShot(s + ' Turn: ' + inttostr(trunc(UBufferGet(81))));
-      UAbortGame;
-      Result:= True;
-      exit;
-    end;
-  end;
-  }
-
-end;
-
-procedure l(s: string);  // shortens Ulog to l
-begin
-  //ULog(s);  // comment off this line to disable all Ulogs
-  //UMessage(s);
-  //  if (QTOwner[27] = PMe) and (QTOwner[30] <> PMe) then UMessage(s); // enable this line to display logs as messages ( Useful in TRComp's simulation mode)
-  //if PTerritoriesCount(Pme) = 41 then Ulog('Armies: ' + inttostr(PArmiesCount(Pme)));
-end;
-
-function i(x: integer): string;  // shortens inttostr to i
-begin result:= inttostr(x); end;
-
-function f(x: double): string;  // shortens floattostr to f
-begin result:= floattostr(x); end;
-
-// example m('ToTerritory: ' + i(ToTerritory) + ' FromTerritory: ' + i(FromTerritory));
-
-function bg(x: integer): integer;
-begin result:= trunc(UBufferGet(x)); end;
-                                              // use these for integer storage
-procedure bs(x, y: integer);
-begin UBufferSet(x, y); end;
-{______________________________________________________________________________}
-
-function TIV: integer; begin if SCardsBasedOnCombo then result:= 6 else result:= PCardTurnInValue(PMe); end;
-function PTC: integer; begin result:= PTerritoriesCount(PMe); end;
-
-Procedure InitializeQMap;
-Var X: integer;
-Begin
-  SetArrayLength(QTArmies, 43);
-  SetArrayLength(QTOwner, 43);
-  For X:= 1 to 42 do begin
-    QTArmies[X]:= TArmies(X);
-    QTOwner[X]:= TOwner(X);
-  end;
-end;
-
-Procedure InitializeQMapKillBoth(P: integer);
-Var X: integer;
-Begin
-  SetArrayLength(QTArmies, 43);
-  SetArrayLength(QTOwner, 43);
-  For X:= 1 to 42 do begin
-    QTArmies[X]:= TArmies(X);
-    If TOwner(X) = PMe then QTOwner[X]:= PMe else QTOwner[X]:= P;
-  end;
-end;
-
-Function GameHasNoHumans: boolean;
-var
-  P: integer;
-begin
-  result:= true;
-  for P:= 1 to 10 do begin
-    if PHuman(P) and PAlive(P) then result:= false;
-  end;
-end;
-
-function GameHasOneHuman(var P: integer): boolean;
-Var Human, C: integer;
-Begin
-  C:= 0;
-  For P:= 1 to 10 do begin
-    If PHuman(P) and PAlive(P)then begin
-    //if (PProgram(P) = 'vexer-no killwp.trp') and PAlive(P) then begin
-      C:= C + 1;
-      Human:= P;
-    end;
-  end;
-  if C = 1 then begin
-    result:= true;
-    P:= Human;
-  end else begin
-    result:= false;
-    P:= 0;
-  end;
-end;
-
-Procedure ConquestForce(Var CForce: integer);
-Var P: integer;
-Begin
-  CForce:= (TIV div 3) + 2;
-  // if I haven't earned a card in the last 3 turns then
-  if (bg(61) > 2) and (not SCardsBasedOnCombo) then begin
-    if GameHasOneHuman(P) and (  PArmiesCount(P) > ( trunc(0.9 * double(PArmiesCount(PMe))) )  ) then
-      CForce:= trunc(double(CForce) * 1.4 * double(bg(61) - 1)) + 2
-    else
-      CForce:= trunc(double(CForce) * 1.8 * double(bg(61) - 1)) + 3;
-  end;
-end;
-
-Function QTWeakestPath(ST, DT, Mode: integer; var TT, PL, EA: integer): boolean;
-Var
-  iPL, ChildArmies, T, B, iNode, iChild, iCostFromStart: integer;
-  bFound: boolean;
-
-  aNode: array [1..42] of record
-    bClosed: boolean;          // node is in the CLOSED list
-    bOpen: boolean;            // node is in the Open list
-    iParent: integer;          // previous node in the optimal path
-    iCostFromStart: integer;   // cost to arrive to this node
-    iPL: integer;              // Path length from this node to the start T
-  end;
-
-begin
-  // mode 0 - use actual TArmies and TOwners
-  // mode 1 - use the test values QTArmies and QTOwner
-
-  if mode = 0 then begin          // this should already be done if mode is 1 using the InitializeQMap procedure
-    SetArrayLength(QTOwner, 43);   // the lengths have to be set even if they aren't used
-    SetArrayLength(QTArmies, 43);
-  end;
-
-  Result:= False;
-  TT:= 0;
-  PL:= 0;
-  EA:= 0;
-
-  if (ST = 0) or (DT = 0) or (ST = DT) then exit;
-
-  if (mode = 0) and (TIsBordering(ST, DT) and (TOwner(ST) = PMe) and (TOwner(DT)= PMe)) then exit;
-  if (mode = 1) and (TIsBordering(ST, DT) and (QTOwner[ST] = PMe) and (QTOwner[DT]= PMe)) then exit;
-
-
-  for T:=1 to 42 do begin
-    with aNode[T] do begin
-      bClosed := false;
-      bOpen:= false;
-    end;
-  end;
-
-  aNode[ST].iParent := 0;
-  aNode[ST].iCostFromStart := 0;
-  aNode[ST].iPL:= 0;
-  aNode[ST].bopen := True;
-
-  Repeat
-    T:= 0;
-    iNode:= 0;
-    repeat
-      T:= T + 1;
-      if aNode[T].bopen and not aNode[t].bClosed then begin
-        iNode:= T;
-      end;
-    until (iNode > 0) or (T = 42);
-
-    if iNode = DT then bFound:= True;
-
-    if iNode <> 0 then begin
-      if not (iNode = DT) then begin
-        // examine connected nodes
-        for B:= 1 to TBordersCount(iNode) do begin
-          iChild:= TBorder(iNode, B);
-          // skip Ts that are mine
-          if (mode = 0) and (TOwner(iChild) = PMe) then continue;
-          if (mode = 1) and (QTOwner[iChild] = PMe) then continue;
-
-          if mode = 0 then ChildArmies:= TArmies(iChild) else ChildArmies:= QTArmies[iChild];
-          iCostFromStart:= aNode[iNode].iCostFromStart + ChildArmies + 1;  // add 1 to incorporate the cost of the path length into the total cost
-          iPL:= aNode[iNode].iPL + 1;
-          // assign cost to child if end node has not been reached already
-          // or if reached with higher cost
-          if ((not aNode[iChild].bOpen) and (not aNode[iChild].bClosed))
-          or (iCostFromStart < aNode[iChild].iCostFromStart) or ( (iCostFromStart = aNode[iChild].iCostFromStart) and (iPL < aNode[iChild].iPL) ) then begin
-            aNode[iChild].iParent := iNode;
-            aNode[iChild].iCostFromStart := iCostFromStart;
-            aNode[iChild].iPl:= iPL;
-            if aNode[iChild].bClosed then aNode[iChild].bClosed:= false; // if closed then remove child from CLOSED list
-            if not aNode[iChild].bOpen then aNode[iChild].bOpen:= true;  // add to open list
-          end;
-        end;
-      end;
-      aNode[iNode].bClosed := true; // node has been examined, add to CLOSED list
-    end;
-  until (iNode = 0);  // loop until there are no more open nodes
-
-  if bFound then begin
-    Result:= True;
-    EA:= aNode[DT].iCostFromStart - aNode[DT].iPL;
-    PL:= aNode[DT].iPL;
-//    l('DT ' + i(DT));
-    while (aNode[DT].iParent > 0) and (aNode[DT].iParent <> ST) do begin
-      DT := aNode[DT].iParent;
-//      l('DT ' + i(DT)); // displays the territories in the path
-    end;
-    TT:= DT;
-  end;
-end;
-
-Function PlaceToKillPlayer2(WP, ST, PathCostTotal: integer; var Cost, MaxArmy: integer): boolean;
-Var
-  TTUsedChild, TTUsedMaxArmy, T, B, iNode, iChild: integer;
-
-  aNode: array [1..42] of record
-    bClosed: boolean;
-    bOpen: boolean;
-    Cost: integer;
-  end;
-
-begin
-
-  Result:= False;
-  Cost:= 0;
-  MaxArmy:= 0;
-
-  for T:=1 to 42 do begin
-    with aNode[T] do begin
-      bClosed := false;
-      bOpen:= false;
-      Cost:= 0;
-    end;
-  end;
-
-  aNode[ST].bopen := True;
-
-  Repeat
-    T:= 0;
-    iNode:= 0;
-    repeat
-      T:= T + 1;
-      if aNode[T].bopen and not aNode[t].bClosed then begin
-        iNode:= T;
-      end;
-    until (iNode > 0) or (T = 42);
-
-    if iNode <> 0 then begin
-      for B:= 1 to TBordersCount(iNode) do begin
-        iChild:= TBorder(iNode, B);
-        if iChild = ST then continue;
-        if (TOwner(iChild) <> PMe) and (TOwner(iChild) <> PMe) then Cost:= aNode[iNode].Cost + TArmies(iChild) + 1 else Cost:= aNode[iNode].Cost;
-        if TOwner(iChild) = PMe then begin
-          //Cost:= aNode[iNode].Cost;
-         // if m2('sub function inode ' + i(inode) + ' anode[inode].cost ' + i(anode[inode].cost) + ' ichild ' + i(ichild) + ' anode[ichild].cost ' + i(anode[ichild].cost)) then exit;
-          if aNode[iChild].Cost > 0 then begin
-            if aNode[iNode].Cost < aNode[iChild].Cost then aNode[iChild].Cost:= aNode[iNode].Cost;
-          end else aNode[iChild].Cost:= aNode[iNode].Cost;
-          if ( aNode[iChild].Cost <  (PArmiesCount(PME) +  PNewArmies(PMe) - PathCostTotal - PTerritoriesCount(PMe)) - (PArmiesCount(WP) + PTerritoriesCount(WP)) ) then begin
-            if (MaxArmy = 0) then MaxArmy:= iChild else begin
-              if (iChild <> MaxArmy) then begin
-                if TTNeeds[iChild] > 0 then begin
-                  if TTNeeds[iChild] > TArmies(iChild) - 1 then TTUsedChild:= TArmies(iChild) - 1 else TTUsedChild:= TTNeeds[iChild];
-                end else TTUsedChild:= 0;
-                if TTNeeds[MaxArmy] > 0 then begin
-                  if TTNeeds[MaxArmy] > TArmies(MaxArmy) - 1 then TTUsedMaxArmy:= TArmies(MaxArmy) - 1 else TTUsedMaxArmy:= TTNeeds[MaxArmy];
-                end else TTUsedMaxArmy:= 0;
-
-             //   l('sub function st ' + i(st) + ' ttusedMaxarmy ' + i(ttusedmaxarmy) + ' ttusedchild ' + i(ttusedchild) + ' childcost ' + i(aNode[iChild].Cost) +
-             //   ' maxarmyCost ' + i(aNode[MaxArmy].Cost) + ' ichild ' + i(ichild) + ' maxarmy ' + i(maxarmy));
-                if (TArmies(iChild) - TTUsedChild - aNode[iChild].Cost > TArmies(MaxArmy) - TTUsedMaxArmy - aNode[MaxArmy].Cost) then begin
-                  MaxArmy:= iChild;
-            //      l('MaxArmy assign: ' + i(maxarmy));
-                end;
-              end;
-            end;
-          end;
-        end;
-
-        if ((not aNode[iChild].bOpen) and (not aNode[iChild].bClosed))
-        or (Cost < aNode[iChild].Cost) then begin
-          if TOwner(iChild) <> PMe then begin
-            aNode[iChild].Cost:= Cost;
-            if ( aNode[iChild].Cost <  (PArmiesCount(PME) +  PNewArmies(PMe) - PathCostTotal - PTerritoriesCount(PMe)) - (PArmiesCount(WP) + PTerritoriesCount(WP)) )
-              and (not AccountedFor[ichild]) then begin
-              aNode[iChild].bClosed:= false;
-              aNode[iChild].bOpen:= true;
-            end;
-          end;
-        end;
-        //m2('ichild ' + i(ichild) + ' cost ' + i(anode[ichild].cost));
-      end;
-      aNode[iNode].bClosed := true;
-    end;
-   // if m2('end of repeat 0, inode: ' + i(inode)) then exit;
-  until (iNode = 0);
-
-  if MaxArmy > 0 then begin
-    result:= true;
-    Cost:= aNode[MaxArmy].Cost;
-  end else Cost:= 0;
-
-end;
-
-Function WeakestPathToWP(P, ST: integer; var TT, DT, Cost: integer): boolean;
-Var
-  Ts, TempTT, MinCost, MinCostT, T, B, iNode, iChild, iCostFromStart: integer;
-
-  aNode: array [1..42] of record
-    bClosed: boolean;          // node is in the CLOSED list
-    bOpen: boolean;            // node is in the Open list
-    iParent: integer;          // previous node in the optimal path
-    iCostFromStart: integer;   // cost to arrive to this node
-  end;
-  Checked: array [1..42] of boolean;
-begin
-
-  Result:= False;
-  TT:= 0;
-  Cost:= 0;
-  if (ST = 0) then exit;
-  //l('ST: ' + I(ST));
-  MinCost:= 999999999;
-  MinCostT:= 0;
-  aNode[ST].iParent := 0;
-  aNode[ST].iCostFromStart := 0;
-  For T:= 1 to 42 do Checked[T]:= False;
-
-  Repeat
-    DT:= 0;
-    T:= 0;
-    Repeat
-      T:= T + 1;
-      If NeedToCheck[T] and (Not Checked[T]) and (not (T=ST)) then begin
-        DT:= T;
-        Checked[DT]:= True;
-      end;
-    Until (DT > 0) or (T = 42);
-    //l('Repeat DT: ' + i(DT));
-
-    if DT > 0 then begin
-
-      for T:=1 to 42 do begin
-        with aNode[T] do begin
-          bClosed := false;
-          bOpen:= false;
-        end;
-      end;
-
-      aNode[ST].bopen := True;
-      Repeat
-        T:= 0;
-        iNode:= 0;
-        repeat
-          T:= T + 1;
-          if aNode[T].bOpen and not aNode[T].bClosed then begin
-            iNode:= T;
-          end;
-        until (iNode > 0) or (T = 42);
-
-        if iNode <> 0 then begin
-          if not (iNode = DT) then begin
-            // examine connected nodes
-            for B:= 1 to TBordersCount(iNode) do begin
-              iChild:= TBorder(iNode, B);
-              // skip Ts that are mine
-              if (QTOwner[iChild] = PMe) then continue;
-
-              iCostFromStart:= aNode[iNode].iCostFromStart + QTArmies[iChild] + 1;  // add 1 to incorporate the cost of the path length into the total cost
-              // assign cost to child if end node has not been reached already
-              // or if reached with higher cost
-              if ((not aNode[iChild].bOpen) and (not aNode[iChild].bClosed))
-              or (iCostFromStart < aNode[iChild].iCostFromStart) then begin
-                aNode[iChild].iParent := iNode;
-                aNode[iChild].iCostFromStart := iCostFromStart;                                             // this line prevents the function from finding
-                                                  // don't include the EA from the MinCostT                // dont want to include Ts that border dt
-                if (iChild = DT) and (aNode[iNode].iCostFromStart < MinCost) {and (not (iNode = ST))} then begin
-                  MinCost:= aNode[iNode].iCostFromStart;
-                  MinCostT:= iChild;
-                //  Checked[iChild]:= True;
-                //  l('1 MinCostT: ' + i(MinCostT) + ' MinCost ' + i(MinCost));
-                end;
-                if aNode[iChild].bClosed then aNode[iChild].bClosed:= false; // if closed then remove child from CLOSED list
-                if not aNode[iChild].bOpen then aNode[iChild].bOpen:= true;  // add to open list
-              end;
-            end;
-          end;
-          aNode[iNode].bClosed := true; // node has been examined, add to CLOSED list
-        end;
-      until (iNode = 0);  // loop until there are no more open nodes
-    end;
-  until DT = 0;
-
-  if MinCostT > 0 then begin
-    //m2('here');
-    Result:= True;
-    Cost:= aNode[aNode[MinCostT].iParent].iCostFromStart;
-    TempTT:= MinCostT;
-    //l('weakestpathToWP MinCostT: ' + i(MinCostT) + ' Cost ' + i(Cost));
-    Ts:= 0;
-    while (aNode[TempTT].iParent > 0) and (aNode[TempTT].iParent <> ST) do begin
-      TempTT := aNode[TempTT].iParent;
-      Ts:= Ts + 1;
-     // l('TempTT ' + i(TempTT)); // displays the territories in the path
-    end;
-    TT:= TempTT;
-    Cost:= Cost + Ts div 3;
-    DT:= MinCostT;
-  end;// else m('MincostT not found');
-end;
-
-Function QDistance(P, ST, DT, FT: integer; Var PL: integer): boolean;
-Var
-  B2, BT2, C, BT, BT1, iPL, T, B, B1, iNode, iChild: integer;
-  bFound: boolean;
-
-  aNode: array [1..42] of record
-    bClosed: boolean;          // node is in the CLOSED list
-    bOpen: boolean;            // node is in the Open list
-    PL: integer;   // cost to arrive to this node
-  end;
-
-begin
-  //l('qdistance called');
-  Result:= False;
-  PL:= 0;
-
-  if (ST = 0) or (DT = 0) or (ST = DT) then exit;
-
-  if TIsBordering(ST, DT) and (QTOwner[ST] = PMe) and (QTOwner[DT] = PMe) then exit;
-
-  for T:=1 to 42 do begin
-    with aNode[T] do begin
-      bClosed := false;
-      bOpen:= false;
-    end;
-  end;
-
-  aNode[ST].PL := 0;
-  aNode[ST].bopen := True;
-
-  bFound := false;
-  Repeat
-    T:= 0;
-    iNode:= 0;
-    repeat
-      T:= T + 1;
-      if aNode[T].bopen and not aNode[t].bClosed then begin
-        iNode:= T;
-      end;
-    until (iNode > 0) or (T = 42);
-
-    if iNode = DT then bFound:= True;
-
-    if iNode <> 0 then begin
-      if not (iNode = DT) then begin
-        // examine connected nodes
-        for B:= 1 to TBordersCount(iNode) do begin
-          iChild:= TBorder(iNode, B);
-          // skip Ts that are not owned by player P
-          if (QTOwner[iChild] <> P) and (not ( (iChild = DT) or (iChild = FT) )) then continue;
-
-          // determine if I should go through the FT to determine distance
-          C:= 0;
-          if iChild = FT then begin
-            B1:= 0;
-            Repeat
-              B1:= B1 + 1
-              //if C = 0 then begin
-              BT:= TBorder(FT, B1);
-              if (not (BT = iNode)) and (QTOwner[BT] = P) then begin
-                B2:= 0;
-                Repeat
-                  B2:= B2 + 1;
-                  BT2:= TBorder(BT, B2);
-                  if BT2 = iNode then C:= C + 1;
-                 // if m2('inode ' + i(inode) +  ' c ' + i(c)) then exit;
-                Until (C > 0) or (B2 = TBordersCount(BT));
-              end;
-            Until (C > 0) or (B1 = TBordersCount(FT));
-          end;
-          if C > 0 then continue;
-
-          iPL:= aNode[iNode].PL + 1;  // add 1 to incorporate the cost of the path length into the total cost
-
-          // assign cost to child if end node has not been reached already
-          // or if reached with higher cost
-          if ((not aNode[iChild].bOpen) and (not aNode[iChild].bClosed))
-          or (iPL < aNode[iChild].PL) then begin
-            aNode[iChild].PL := iPL;
-            if aNode[iChild].bClosed then aNode[iChild].bClosed:= false; // if closed then remove child from CLOSED list
-            if not aNode[iChild].bOpen then aNode[iChild].bOpen:= true;  // add to open list
-          end;
-        end;
-      end;
-      aNode[iNode].bClosed := true; // node has been examined, add to CLOSED list
-    end;
-  until (iNode = 0);  // loop until there are no more open nodes
-
-  if bFound then begin
-    Result:= True;
-    PL:= aNode[DT].PL;
-  end else result:= False;
-    //l('QDistance ' + pname(p) + ' st ' + i(st) + ' dt ' + i(dt) + ' pl ' + i(pl));
-
-end;
-
-Function QShortestPath(P, ST, DT, NewFT: integer; Var PL: integer; var Path: array of integer): boolean;
-Var
-  PL2, PL1, n, iPL, T, B, iNode, iChild: integer;
-  bFound: boolean;
-
-  aNode: array [1..42] of record
-    bClosed: boolean;
-    bOpen: boolean;
-    PL: integer;
-    iParent: integer;
-  end;
-
-begin
-  //m2('begin qshortest path');
-  Result:= False;
-  PL:= 0;
-
-  if (ST = 0) or (DT = 0) or (ST = DT) then exit;
-
-  if TIsBordering(ST, DT) and (QTOwner[ST] = PMe) and (QTOwner[DT]= PMe) then exit;
-
-  for T:=1 to 42 do begin
-    with aNode[T] do begin
-      bClosed := false;
-      bOpen:= false;
-    end;
-  end;
-
-  aNode[ST].PL := 0;
-  aNode[ST].iParent := 0;
-  aNode[ST].bopen := True;
-
-  bFound := false;
-  Repeat
-    T:= 0;
-    iNode:= 0;
-    repeat
-      T:= T + 1;
-      if aNode[T].bopen and not aNode[t].bClosed then begin
-        iNode:= T;
-      end;
-    until (iNode > 0) or (T = 42);
-
-    if iNode = DT then bFound:= True;
-
-    if iNode <> 0 then begin
-      if not (iNode = DT) then begin
-        // examine connected nodes
-        for B:= 1 to TBordersCount(iNode) do begin
-          iChild:= TBorder(iNode, B);
-          // skip Ts that are not owned by player P
-          if (QTOwner[iChild] <> P) then continue;
-
-          iPL:= aNode[iNode].PL + 1;  // add 1 to incorporate the cost of the path length into the total cost
-
-          // assign cost to child if end node has not been reached already
-          // or if reached with higher cost
-          if ((not aNode[iChild].bOpen) and (not aNode[iChild].bClosed))
-           or (iPL < aNode[iChild].PL) then begin
-            aNode[iChild].iParent := iNode;
-            aNode[iChild].PL := iPL;
-            if aNode[iChild].bClosed then aNode[iChild].bClosed:= false; // if closed then remove child from CLOSED list
-            if not aNode[iChild].bOpen then aNode[iChild].bOpen:= true;  // add to open list
-          end;
-          if (iPL = aNode[iChild].PL) and (aNode[iChild].iParent <> iNode) then begin
-
-            QDistance(P, iNode, NewFT, 0, PL2);
-            QDistance(P, aNode[iChild].iParent, NewFT, 0, PL1);
-            if PL2 > PL1 then begin
-              aNode[iChild].iParent := iNode;
-              if aNode[iChild].bClosed then aNode[iChild].bClosed:= false; // if closed then remove child from CLOSED list
-              if not aNode[iChild].bOpen then aNode[iChild].bOpen:= true;  // add to open list
-            end;
-          end;
-        end;
-      end;
-      aNode[iNode].bClosed := true; // node has been examined, add to CLOSED list
-    end;
-  until (iNode = 0);  // loop until there are no more open nodes
-
-  if bFound then begin
-    Result:= True;
-    PL:= aNode[DT].PL;
-    SetArrayLength(Path, PL + 1);
-    Path[PL]:= DT;
-    l('path, n: ' + i(PL) + ' T: ' + i(Path[PL]));
-    for n:= PL - 1 downto 1 do begin
-      Path[n]:= aNode[path[n + 1]].iParent;
-      l('path, n: ' + i(n) + ' T: ' + i(Path[n]));
-    end;
-//    l('QDistance ' + pname(p) + ' st ' + i(st) + ' dt ' + i(dt) + ' pl ' + i(pl));
-  end else result:= False;
-end;
-
-
-Procedure AllTsConnected(P, TT: integer; var ATC: boolean);
-Var
-  PTC1, Total, X, BT, C, B, T: integer;
-  TOwnerIsPlayerP, Checked: array of boolean;
-begin
-  ATC:= False;
-  if not (P = 0) then begin
-    SetArrayLength(Checked, 43);
-    For x:= 1 to 42 do Checked[x]:= False;
-    SetArrayLength(TOwnerIsPlayerP, 43);
-    For x:= 1 to 42 do TOwnerIsPlayerP[x]:= False;
-    PTC1:= PTerritoriesCount(P);
-
-    if TT > 0 then PTC1:= PTerritoriesCount(P) - 1;
-    ATC:= True;
-    T:= 0;
-    Repeat
-      T:= T + 1;
-      If (TOwner(T) = P) and (not (T = TT)) then break;
-    Until (T > 42);
-    if T > 42 then T:= 0;
-    TOwnerIsPlayerP[T]:= True;
-    Total:= 0;
-    Repeat
-      if TOwnerIsPlayerP[T] and (not Checked[T]) then begin
-        C:= 0;
-        For B:= 1 to TBordersCount(T) do begin
-          BT:= TBorder(T, B);
-          if (  (TOwner(BT) = P) or ( (TOwner(BT) = PMe) and (TArmies(BT) > 3) )  )
-           and (not TOwnerIsPlayerP[BT]) and (not (BT = TT)) then begin
-            if (TOwner(BT) = Pme) then PTC1:= PTC1 + 1;
-            C:= C + 1;
-            TOwnerIsPlayerP[BT]:= True;
-          end;
-        end;
-        Checked[T]:= True;
-        Total:= Total + 1;
-        if C > 0 then T:= 0;
-      end;
-      T:= T + 1;
-    Until (T > 42);
-    if Total <> PTC1 then ATC:= False;
-  end;
-end;
-
-Procedure KillPlayerAttack2(P: integer; var FT, TT: integer);
-Var
-  MaxDistance, MinDistance1, MinDistance2, Distance, Distance1, DT,
-  MinDistance, MinBorders, MaxFronts, PL, EA, C, BT, T, B, iNode, iChild,
-  MaxArmy, NewFT, C1, C2, FrontsCountT, FrontsCountDT, MinArmies, T1, Borders,
-  MinArmy, MinArmyT, oFT, oDT, Counter, tempFT, n, ET, BT1, B1: integer;
-
-  go: boolean;
-  Points, MinPoints, MaxPoints: Double;
-
-  DistanceA: array [1..42] of integer;
-  Path: Array of integer;
-  IsFront: array [1..42] of boolean;
-  // aQNode is a global variable
-begin
-  TT:= 0;
-  l('kill player attack FT: ' + i(ft));
-
-  for T:=1 to 42 do begin
-    with aQNode[T] do begin
-      bClosed := false;
-      bOpen:= false;
-    end;
-    IsFront[T]:= false;
-  end;
-  //if ft = 27 then m('pause ft = 35 begin');
-  // Find all of Player P's Ts that are connected to FT and add them to the open list
-  aQNode[FT].bOpen := True;
-
-  Repeat
-    T:= 0;
-    iNode:= 0;
-    repeat
-      T:= T + 1;
-      if aQNode[T].bOpen and not aQNode[T].bClosed then begin
-        iNode:= T;
-      end;
-    until (iNode > 0) or (T = 42);
-
-    if iNode > 0 then begin
-      for B:= 1 to TBordersCount(iNode) do begin
-        iChild:= TBorder(iNode, B);
-        // skip Ts that aren't Player P's
-        if (QTOwner[iChild] <> P) then continue;
-        aQNode[iChild].bOpen:= true;
-      end;
-      aQNode[iNode].bClosed := true; // node has been examined, add to CLOSED list
-    end;
-  until (iNode = 0);  // loop until there are no more open nodes
-
-  aQNode[FT].bOpen:= False; // remove the FT from the list of possibilities
-
-  // Find the T that connects with an FT that is Front and has relatively few armies
-  MaxFronts:= 0;
-  DT:= 0;
-  bs(96, 0);
-  bs(97, 0);
-  MinPoints:=999999999;
-  For T:= 1 to 42 do begin
-    if aQNode[T].bopen then begin
-      MinArmies:= 999999999;
-      For B:= 1 to TBordersCount(T) do begin
-        BT:= TBorder(T, B);
-        if (QTOwner[BT] <> P) and (QTOwner[BT] <> PMe) then begin
-          if QTArmies[BT] < MinArmies then MinArmies:= QTArmies[BT];
-        end;
-        if (QTOwner[BT] = PMe) then IsFront[T]:= True;
-      end;
-      if (MinArmies <> 999999999) or (SAlivePlayersCount = 2) or KillBoth then begin
-        IsFront[T]:= False;
-        if QDistance(P, FT, T, 0, PL) then begin
-          Points:= (1/double(PL)) - (1/double(MinArmies));
-          if Points < MinPoints then begin
-            MinPoints:= Points;
-            DT:= T;
-          end;
-          if Points = MinPoints then begin
-            FrontsCountDT:= 0;
-            FrontsCountT:= 0;
-            For B:= 1 to TBordersCount(DT) do begin
-              BT:= TBorder(DT, B);
-              if (QTOwner[BT] <> P) and (QTOwner[BT] <> PMe) then FrontsCountDT:= FrontsCountDT + 1;
-            end;
-            For B:= 1 to TBordersCount(T) do begin
-              BT:= TBorder(T, B);
-              if (QTOwner[BT] <> P) and (QTOwner[BT] <> PMe) then FrontsCountT:= FrontsCountT + 1;
-            end;
-            If FrontsCountT > FrontsCountDT then DT:= T;
-          end;
-        end;
-      end;
-    end;
-  end;
-  bs(96, DT);
-
-  l('1 DT ' + i(DT));
-
-  if DT = 0 then begin
-    MinDistance:= 999999999;
-    MaxPoints:=0;
-    For T:= 1 to 42 do begin
-      If IsFront[T] then begin
-        For T1:= 1 to 42 do begin
-          if (QTOwner[T1] <> PMe) and (QTOwner[T1] <> P) then begin
-            // Find EnemyT's fronts
-            MinArmies:= 999999999;
-            For B:= 1 to TBordersCount(T1) do begin
-              BT:= TBorder(T1, B);
-            //  l('bt ' + i(bt));
-              if QTOwner[BT] <> QTOwner[T1] then begin
-                if QTArmies[BT] < MinArmies then begin
-                  MinArmies:= QTArmies[BT];
-                end;
-              end;
-            end;
-            if MinArmies <> 999999999 then begin
-              TDistance(T, T1);
-              Points:= (1/double(TDistance(T, T1))) + (1/double(MinArmies));
-              if Points > MaxPoints then begin
-                MaxPoints:= Points;
-                DT:= T;
-              end;
-              if Points = MaxPoints then begin   // should it be dt, t1
-                if TDistance(T, T1) < TDistance(T, DT) then DT:= T;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-    bs(97, DT);
-    l('2 DT ' + i(DT));
-  end;
-
-  if (DT > 0) then begin
-    NewFT:= 0;
-    MaxArmy:= 0;
-    MinArmy:= 0;
-    MinArmyT:= 0;
-    For T:= 1 to 42 do begin
-      if aQNode[T].bopen then begin
-        For B:= 1 to TBordersCount(T) do begin
-          BT:= TBorder(T, B);
-          if (QTOwner[BT] = PMe) and (not (BT = FT)) and (QTArmies[BT] > 3) then begin
-            C:= 0;
-            For B1:= 1 to TBordersCount(BT) do begin
-              BT1:= TBorder(BT, B1);
-              if (QTOwner[BT1] = P) and (not aQNode[BT1].bOpen) then C:= C + 1;
-            end;
-            if C = 0 then begin
-              if (QTArmies[BT] < MinArmy) or (MinArmy = 0) then begin
-                MinArmy:= QTArmies[BT];
-                MinArmyT:= BT;
-              end;
-              if QTArmies[BT] > MaxArmy then begin
-                MaxArmy:= QTArmies[BT];
-                NewFT:= BT;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-
-    if (NewFT <> MinArmyT) then begin
-      For B:= 1 to TBordersCount(MinArmyT) do begin
-        BT:= TBorder(MinArmyT, B);
-        if (QTOwner[BT] = P) and (QTArmies[BT] > 2) then begin
-          FT:= MinArmyT;
-          TT:= BT;
-          bs(98, TT);
-          bs(99, FT);
-          if m2('attack with MinArmyT: ' + i(FT) + ' TT: ' + i(TT)) then exit;
-          exit;
-        end;
-      end;
-    end;
-    if NewFT > 0 then m2('newFT: ' + i(NewFT));
-  end;
-
-  if NewFT > 0 then if not QShortestPath(P, FT, DT, NewFT, PL, Path) then NewFT:= 0;
-
-  if DT = 0 then begin
-    m('DT = 0');
-    MinBorders:= 7;
-    For B:= 1 to TBordersCount(FT) do begin
-      BT:= TBorder(FT, B);
-      if (QTOwner[BT] = P) then begin
-        Borders:= 0;
-        For B1:= 1 to TBordersCount(BT) do begin
-          BT1:= TBorder(BT, B1);
-          if QTOwner[BT1] = P then Borders:= Borders + 1;
-        end;
-        if Borders < MinBorders then begin
-          MinBorders:= TBordersCount(BT);
-          TT:= BT;
-          l('******************** dt = 0 minborders code, TT:= ' + i(TT) + ' **************************');
-        end;
-      end;
-    end;
-  end else begin
-    Counter:= 1;
-    oFT:= FT;
-//    oDT:= DT;
-    If NewFT = 0 then Counter:= 2 else begin
-      FT:= NewFT;
-    end;
-    repeat
-      if Counter = 2 then begin
-        FT:= oFT;
-//        DT:= oDT;
-        NewFT:= 0;
-      end;
-      if NewFT = 0 then begin
-        // attack the T that has no connecting T's first
-        For B:= 1 to TBordersCount(FT) do begin
-          BT:= TBorder(FT, B);
-          if (QTOwner[BT] = P) and (not (BT = DT)) then begin
-            if (QTArmies[FT] > QTArmies[BT]) and (not ( (QTArmies[FT] < 4) and (QTArmies[BT] > 1) )) then begin
-              C:= 0;
-              For B1:= 1 to TBordersCount(BT) do begin
-                BT1:= TBorder(BT, B1);
-                if QTOwner[BT1] = P then C:= C + 1;
-              end;
-              if (C = 0) then begin
-                TT:= BT;
-                l('no borders tt code, TT: ' + i(TT));
-              end;
-            end;
-          end;
-        end;
-      end;
-
-      // Find FTs border that is farthest from DT
-      if TT = 0 then begin
-//        m2('FT ' + i(FT) + ', DT ' + i(DT));
-        MaxDistance:= -1;
-        //if SAlivePlayerCount < 5 then m('pause 1');
-        For B:= 1 to TBordersCount(FT) do begin
-//              l('b ' + i(b));
-          BT:= TBorder(FT, B);
-  //              l('bt ' + i(bt));
-          if QTOwner[BT] = P then begin
-            if ( (QTArmies[FT] > QTArmies[BT]) or (NewFT > 0) ) and (not ( (QTArmies[FT] < 4) and (QTArmies[BT] > 1) )) then begin
-              go:= False;
-              {if DistanceA[BT] > 0 then go:= True else }if QDistance(P, BT, DT, FT, DistanceA[BT]) then go:= true;
-              if go then begin
-    //            l('BT: ' + i(BT) + ' DistanceA: ' + i(DistanceA[BT]));
-                if DistanceA[BT] > MaxDistance then begin
-                  MaxDistance:= DistanceA[BT];
-                  TT:= BT;
-      //            l('aTT ' + i(TT));
-                end else begin
-                  if DistanceA[BT] = MaxDistance then begin
-                    MinDistance1:= 100;
-                    For B1:= 1 to TBordersCount(TT) do begin
-        //                 l('1 b1 ' + i(b1));
-                      BT1:= TBorder(TT, B1);
-          //                  l('1 bt1 ' + i(bt1));
-                      if QTOwner[BT1] = P then begin
-                        go:= False;
-                        {if DistanceA[BT1] > 0 then go:= True else }if QDistance(P, BT1, DT, FT, DistanceA[BT1]) then go:= true;
-                        if go then begin
-                          if DistanceA[BT1] < MinDistance1 then begin
-                            MinDistance1:= DistanceA[BT1];
-                          end;
-                        end;
-                      end;
-                    end;
-                    MinDistance2:= 100;
-                    For B1:= 1 to TBordersCount(BT) do begin
-            //             l('2 b1 ' + i(b1));
-                      BT1:= TBorder(BT, B1);
-              //             l('2 bt1 ' + i(bt1));
-                      if QTOwner[BT1] = P then begin
-                        go:= False;
-                        {if DistanceA[BT1] > 0 then go:= True else} if QDistance(P, BT1, DT, FT, DistanceA[BT1]) then go:= true;
-                        if go then begin
-                          if DistanceA[BT1] < MinDistance2 then begin
-                            MinDistance2:= DistanceA[BT1];
-                          end;
-                        end;
-                      end;
-                    end;
-                    l('MD1 ' + i(MinDistance1) + ' MD2 ' + i(MinDistance2));
-                    if MinDistance1 < MinDistance2 then TT:= BT;
-                    if (MinDistance1 = MinDistance2) then begin
-                      C1:= 0;
-                      C2:= 0;
-                      For B1:= 1 to TBordersCount(TT) do begin
-                        BT1:= TBorder(TT, B1);
-                        if QTOwner[BT1] = P then C1:= C1 + 1;
-                      end;
-                      For B1:= 1 to TBordersCount(BT) do begin
-                        BT1:= TBorder(BT, B1);
-                        if QTOwner[BT1] = P then C2:= C2 + 1;
-                      end;
-                      if C2 < C1 then TT:= BT;
-                      if C2 = C1 then begin
-                        C1:= 0;
-                        C2:= 0;
-                        For B1:= 1 to TBordersCount(TT) do begin
-                          BT1:= TBorder(TT, B1);
-                          if QTOwner[BT1] = PMe then C1:= C1 + 1;
-                        end;
-                        For B1:= 1 to TBordersCount(BT) do begin
-                          BT1:= TBorder(BT, B1);
-                          if QTOwner[BT1] = PMe then C2:= C2 + 1;
-                        end;
-                        l('c1 ' +i(c1) + ' c2 ' + i(c2));
-                        if C2 > C1 then begin
-                          TT:= BT;
-                          m('new tt: ' + i(tt));
-                        end;
-                      end;
-                    end;
-                //    l('bTT ' + i(TT));
-                  end;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-
-      if (TT = 0) and (DT > 0) and TIsBordering(FT, DT)
-       and (not ( (QTArmies[FT] < 4) and (QTArmies[DT] > 1) )) then begin
-        m('tt = 0 and dt = 0 and tisbordering, TT: ' + i(TT) + ' DT: ' + i(DT));
-        TT:= DT;
-      end;
-
-      if NewFT > 0 then begin
-        C:= 0;
-        For n:= 1 to PL - 1 do if TT = Path[n] then C:= C + 1;
-
-        if (C = 0) and (QTArmies[FT] > QTArmies[TT]) then m2('attack from secondary army, FT: ' + i(FT) + ' TT: ' + i(TT)) else begin
-          if QTArmies[TT] > 2 then begin
-            If SAlivePlayersCount > 2 then begin
-              TT:= TT + 100;
-              FT:= FT + 100;
-            end;
-            bs(98, TT);
-            bs(99, FT);
-
-            m2('attack from secondary army to weaken, FT: ' + i(FT) + ' TT: ' + i(TT));
-          end else TT:= 0;
-        end;
-      end;
-      Counter:= Counter + 1;
-     // m2('counter ' + i(counter));
-    Until (TT > 0) or (Counter > 2)
-  end;
- //if ft = 27 then m('pause ft = 35 end');
-
-  l('end TT ' + i(TT));
-  if SAlivePlayersCount < 5 then m('pause');
-end;
-
-procedure ArmySort(var Army: array of integer);
-var
-  TC, x, x1, temp, T: integer;
-begin
-  SetArrayLength(Army, 43);
-  For T:= 1 to 42 do Army[T]:= 0;
-  TC:= 0;
-  For T:= 1 to 42 do begin
-    if TIsMine(T) then begin
-      TC:= TC + 1;
-      Army[TC]:= T;
-    end;
-  end;
-
-  For x:= 1 to TC - 1 do begin
-    For x1:= x + 1 to TC do begin
-      if TArmies(Army[x1]) > TArmies(Army[x]) then begin
-        temp:= Army[x];
-        Army[x]:= Army[x1];
-        Army[x1]:= temp;
-      end;
-    end;
-  end;
-end;
-
-procedure QArmySort(var Army: array of integer; var QMyTC, QMyAC: integer);
-var
-  TC, x, x1, temp, T: integer;
-begin
-  SetArrayLength(Army, 43);
-  For T:= 1 to 42 do Army[T]:= 0;
-  QMyTC:= 0;
-  QMyAC:= 0;
-  For T:= 1 to 42 do begin
-    if QTOwner[T] = PMe then begin
-      QMyAC:= QMyAC + QTArmies[T];
-      QMyTC:= QMyTC + 1;
-      Army[QMyTC]:= T;
-    end;
-  end;
-
-  For x:= 1 to QMyTC - 1 do begin
-    For x1:= x + 1 to QMyTC do begin
-      if QTArmies[Army[x1]] > QTArmies[Army[x]] then begin
-        temp:= Army[x];
-        Army[x]:= Army[x1];
-        Army[x1]:= temp;
-      end;
-    end;
-  end;
-end;
-
-Function QaddConnectedArmies(P, ST: integer; Var Armies, Ts: integer): boolean;
-Var
-  T, B, iNode, iChild: integer;
-
-  aNode: array [1..42] of record
-    bClosed: boolean;          // node is in the CLOSED list
-    bOpen: boolean;            // node is in the Open list
-  end;
-
-begin
-  Result:= False;
-  Ts:= 0;
-  Armies:= 0;
-
-  if (ST = 0) then exit;
-
-  for T:=1 to 42 do begin
-    with aNode[T] do begin
-      bClosed := false;
-      bOpen:= false;
-    end;
-  end;
-
-  aNode[ST].bopen := True;
-  if QTOwner[ST] = P then begin
-    Armies:= QTArmies[ST];
-    Ts:= 1;
-  end;
-
-  Repeat
-    T:= 0;
-    iNode:= 0;
-    repeat
-      T:= T + 1;
-      if aNode[T].bopen and not aNode[t].bClosed then begin
-        iNode:= T;
-      end;
-    until (iNode > 0) or (T = 42);
-
-    if iNode <> 0 then begin
-      for B:= 1 to TBordersCount(iNode) do begin
-        iChild:= TBorder(iNode, B);
-        if (QTOwner[iChild] <> P) then continue;
-        if ((not aNode[iChild].bOpen) and (not aNode[iChild].bClosed)) then begin
-          Ts:= Ts + 1;
-          Armies:= Armies + QTArmies[iChild];
-          aNode[iChild].bOpen:= true;
-        end;
-      end;
-    aNode[iNode].bClosed := true;
-    end;
-
-  until (iNode = 0);  // loop until there are no more open nodes
-
-  if Ts > 0 then Result:= True;
-  l('addCArmies: ' + i(Armies) + ' Ts: ' + i(Ts));
-
-end;
-
-Function AddConnectedArmies(P, ST: integer; Var Armies, Ts: integer): boolean;
-Var
-  T, B, iNode, iChild: integer;
-
-  aNode: array [1..42] of record
-    bClosed: boolean;          // node is in the CLOSED list
-    bOpen: boolean;            // node is in the Open list
-  end;
-
-begin
-  Result:= False;
-  Ts:= 0;
-  Armies:= 0;
-
-  if (ST = 0) then exit;
-
-  for T:=1 to 42 do begin
-    with aNode[T] do begin
-      bClosed := false;
-      bOpen:= false;
-    end;
-  end;
-
-  aNode[ST].bopen := True;
-  if (TOwner(ST) = P) or ((P = 0) and (TOwner(ST) <> PMe)) then begin
-    Armies:= TArmies(ST);
-    Ts:= 1;
-  end;
-
-  Repeat
-    T:= 0;
-    iNode:= 0;
-    repeat
-      T:= T + 1;
-      if aNode[T].bopen and not aNode[t].bClosed then begin
-        iNode:= T;
-      end;
-    until (iNode > 0) or (T = 42);
-
-    if iNode <> 0 then begin
-      for B:= 1 to TBordersCount(iNode) do begin
-        iChild:= TBorder(iNode, B);
-        if (TOwner(iChild) = P) or ((P = 0) and (TOwner(iChild) <> PMe)) then begin;
-          if ((not aNode[iChild].bOpen) and (not aNode[iChild].bClosed)) then begin
-            Ts:= Ts + 1;
-            Armies:= Armies + TArmies(iChild);
-            aNode[iChild].bOpen:= true;
-          end;
-        end;
-      end;
-    aNode[iNode].bClosed := true;
-    end;
-
-  until (iNode = 0);  // loop until there are no more open nodes
-
-  if Ts > 0 then Result:= True;
-  //l('addCArmies: ' + i(Armies) + ' Ts: ' + i(Ts));
-
-end;
-{
-Function QTIsFront(T: integer):boolean;
-var
-  b, bt: integer;
-Begin
-  Result:= False;
-  For B:= 1 to TBordersCount(T) do begin
-    BT:= TBorder(T, B);
-    if QTOwner[BT] <> PMe then result:= True;
-  end;
-end;
-}
-Procedure KillWeakestPlayer(WP, LastTT: integer; var FromTerritory, ToTerritory: integer);
-Var
-  PL, TT1, Armies, Ts, T, TotalWPArmies, MyTotalArmies, X, MinDiff, TT, Y, B, BT,
-  QPAC, CForce, EA, FT, QPTC, C, Cost, MinCost, DT: integer;
-  WFA, Army: array of integer;
-Begin
-//    m('begin kill weakest player');
-  QArmySort(Army, QPTC, QPAC);
-  SetArrayLength(WFA, QPTC + 1);
-  //l('QPTC ' + i(QPTC) + ' QPAC ' + i(QPAC));
-  if bg(73) > 0 then begin
-    Army[1]:= bg(73);
-    QPTC:= 1;
-  end;
-
-  if LastTT > 0 then begin
-    Army[1]:= LastTT;
-    QPTC:= 1;
-  end;
-
-  For y:= 1 to QPTC do begin
-//    m2('y: ' + i(y) + ' Army[y] ' + i(Army[y]) + ' armies: ' + i(QTArmies[Army[y]]));
-    If (Army[y] = 31) then begin
-      if (QTOwner[39] = WP) and (QTArmies[Army[y]] > 1)
-       and (Not ( (QTArmies[Army[y]] < 4) and (QTArmies[39] > 1) )) then begin
-        FromTerritory:= 31;
-        ToTerritory:= 39;
-        m('5 Army[y]: ' + i(Army[y]) + ' WP= ' + PProgram(WP) + ' ft: ' + i(fromterritory) + ' tt ' + i(toterritory));
-        exit;
-      end;
-    end;
-
-    WFA[y]:= 0;
-    For B:= 1 to TBordersCount(Army[y]) do begin
-      BT:= TBorder(Army[y], B);
-      If QTOwner[BT] <> PMe then begin
-        if (QTArmies[BT] < WFA[y]) or (WFA[y] = 0) then WFA[y]:= QTArmies[BT];
-      end;
-    end;
-    if (WFA[y] > 0) and (QTArmies[Army[y]] > 1)
-     and (Not ( (QTArmies[Army[y]] < 4) and (WFA[y] > 1) )) then begin
-      C:= 0;
-      For B:= 1 to TBordersCount(Army[y]) do begin
-        BT:= TBorder(Army[y], B);
-        If (QTOwner[BT] = WP) or ( (WP = 0) and (QTOwner[BT] <> PMe) ) then begin
-          C:= C + 1;
-          If C = 1 then TT:= BT else TT:= 0;
-        end;
-      end;
-      If C = 1 then begin
-        if (  not ( (QTArmies[TT] > 1) and (QTArmies[Army[y]] < 4) )  ) and ( (QTArmies[Army[y]] > QTArmies[TT]) or (SAlivePlayersCount = 2) ) then begin
-          if (y > 1) and (SAlivePlayersCount > 2) then begin
-            QaddConnectedArmies(WP, Army[y], Armies, Ts);
-            if (QTArmies[Army[y]] > (Armies + Ts + (Ts div 3))) or (not QTWeakestPath(Army[1], TT, 1, TT1, PL, EA)) then begin
-              ToTerritory:= TT;
-              FromTerritory:= Army[y];
-            end else m2('y > 1 Too many armies needed: ' + i((Armies + Ts + (Ts div 3))) + ' Army[y]: ' + i(Army[y]));
-
-          end else begin
-            ToTerritory:= TT;
-            FromTerritory:= Army[y];
-          end;
-          {if QTArmies[ToTerritory] < 3 then }l('1 y: ' + i(y) + ' Army[y] ' + i(Army[y]) + ' WP= ' + PProgram(WP) + ' ft: ' + i(fromterritory) + ' tt ' + i(toterritory));
-          if FromTerritory > 0 then exit;
-        end;
-      end else if c > 1 then begin
-        FT:= Army[y];
-        KillPlayerAttack2(WP, FT, TT);
-        If TT > 0 then begin
-          if (Y > 1) and( SAlivePlayersCount > 2) then begin
-            if TT > 100 then begin
-            //  QaddConnectedArmies(WP, (FT-100), Armies, Ts);
-//              m2('is it here TT: ' + i(TT) + ' ft: ' + i(fT) + ' y: ' + i(y));
-       //       if QTArmies[FT-100] > (Armies + (Ts div 3) - 2) then begin
-                ToTerritory:= TT;
-                FromTerritory:= FT;
-       //       end;
-            end else begin
-              QaddConnectedArmies(WP, FT, Armies, Ts);
-              if (QTArmies[FT] > (Armies + Ts + (Ts div 3))) or (not QTWeakestPath(Army[1], TT, 1, TT1, PL, EA)) then begin
-                ToTerritory:= TT;
-                FromTerritory:= FT;
-              end else m2('y > 1 Too many armies needed: ' + i((Armies + Ts + (Ts div 3))) + ' FT: ' + i(FT));
-
-            end;
-          end else begin
-            ToTerritory:= TT;
-            FromTerritory:= FT;
-          end;
-          if ToTerritory > 0 then begin
-            l('2 y: ' + i(y) + ' Army[y] ' + i(Army[y]) + ' WP= ' + PProgram(WP) + ' ft: ' + i(fromterritory) + ' tt ' + i(toterritory));
-            exit;
-          end;
-        end;
-      end;
-      If C > 1 then begin
-        if SAlivePlayersCount = 2 then m2('no attack found');
-        {
-        MinDiff:= 0;
-        For B:= 1 to TBordersCount(Army[y]) do begin
-          BT:= TBorder(Army[y], B);
-          If (  (QTOwner[BT] = WP) or ( (WP = 0) and (QTOwner[BT] <> PMe) )   )
-           and (not ( (QTArmies[BT] > 1) and (QTArmies[Army[y]] < 4) )) then begin
-            if (trunc(abs(Army[y] - BT)) < MinDiff) or (MinDiff = 0) then begin
-              MinDiff:= trunc(abs(Army[y] - BT));
-              ToTerritory:= BT;
-              FromTerritory:= Army[y];
-              m('3 abs value attack, WP= ' + PProgram(WP) + ' ft: ' + i(fromterritory) + ' tt ' + i(toterritory));
-            end;
-          end;
-        end;
-        }
-      end;
-    end;  // end if QTArmies[Army[y]) > 1
-  end; // For y:= 1 to QPTC
-
-  MinCost:= 999999999;
-  if (FromTerritory = 0) and (LastTT = 0) then begin
-    // get this part to save the path and execute it so I only have to calculate it once
-    For T:= 1 to 42 do if QTOwner[T] = WP then NeedToCheck[T]:= True else NeedToCheck[T]:= False;
-    C:= 0;
-    For y:= 1 to QPTC do begin
-      if (WFA[y] > 0) and (QTArmies[Army[y]] > 3) then begin
-        if WeakestPathToWP(WP, Army[y], TT, DT, Cost) then begin
-          C:= C + 1;
-          if (Cost < MinCost) and (Cost >= QTArmies[Army[y]]) then begin
-            l('cost is too high, Cost: ' + i(cost));
-          end;
-          if (Cost < MinCost) and (Cost < QTArmies[Army[y]]) then begin
-            if ( (FromTerritory > 0) and ( (MinCost - Cost) > (QTArmies[FromTerritory] - QTArmies[Army[y]]) ) or (FromTerritory = 0) ) then begin
-              MinCost:= Cost;
-              ToTerritory:= TT;
-              FromTerritory:= Army[y];
-              l('4 Army[y]: ' + i(Army[y]) + ' WP= ' + PName(WP) + ' ft: ' + i(fromterritory) + ' tt ' + i(toterritory) + ' cost ' + i(mincost));
-            end;
-          end;
-        end;
-      end;
-    end;
-
-    if Weaken1 then begin
-      ConquestForce(CForce);
-      if (MinCost > CForce) then begin
-        ToTerritory:= 0;
-        FromTerritory:= 0;
-        l('cancel attack, MinCost > CForce, CForce: ' + i(CForce));
-      end;
-    end;
-
-    if (C = 0) and (SAlivePlayersCount > 2) then begin
-      m2('no possible way to kill WP: ' + PName(WP));
-      if bg(87) = 0 then begin
-        bs(87, WP);
-      end else begin
-        bs(88, WP);
-      end;
-    end;
-
-    if (WP > 0) and (MinCost > 0) and (SAlivePlayersCount > 3) then begin
-      TotalWPArmies:= 0;
-      MyTotalArmies:= 0;
-      For T:= 1 to 42 do begin
-        if (QTOwner[T] = WP) then TotalWPArmies:= TotalWPArmies + QTArmies[T] + 1; // +1 to include a T count
-      end;
-      if MinCost + TotalWPArmies > QPAC - QPTC then begin
-        FromTerritory:= 0;
-        ToTerritory:= 0;
-        l('*************************************************** savin time');
-      end;
-    end;
-  end;
-//  m('end of kill weakest player');
-end;
-
-
-Procedure AttackStrongPlayer(SP: integer; weaken: boolean; var FromTerritory, Toterritory: integer);
-Var
-  TurnInArmies, MinCostIOA, TotalCBonus, Cost, PL, EA, B, X, TT, MaxCost, MinCost, TargetEntryT, T, C: integer;
-
-  SPEntryT: array of boolean;
-  Army: array of integer;
-begin
-  // Repeat the last attack (speeds up performance)
-  if (bg(100) > 0) then begin
-    if (not ( (TArmies(bg(101)) < 4) and (TArmies(bg(100)) > 1) ))
-     and (TArmies(bg(101)) > 1) and (TOwner(bg(101)) = PMe) and (TOwner(bg(100)) <> PMe) then begin
-      if (not ( (bg(100) = bg(60)) and (TArmies(bg(60)) < 3) )) then begin  // get rid of this last part if I end up moving the last section to the occ procedure
-        ToTerritory:= bg(100);
-        FromTerritory:= bg(101);
-        exit;
-      end;
-    end;
-  end;
-
-  SetArrayLength(SPEntryT, 43);
-  ArmySort(Army);
-  MinCost:= 0;
-  if SCardsBasedOnCombo then MaxCost:= trunc(PArmiesCount(PMe) * 0.4) else MaxCost:= trunc(PArmiesCount(PMe) * 0.3);
-
-  if (SAlivePlayersCount = 3) then MaxCost:= trunc(PArmiesCount(PMe) * 0.5);
-  TargetEntryT:=0;
-  For T:= 1 to 42 do SPEntryT[T]:= False;
-  For C:= 1 to 6 do begin  // avoid australia, it's never worth it when australian owns it
-    if (COwner(C) = SP) and (not ((C = 6) and (pos('australian', lowercase(PProgram(SP))) > 0))) then begin
-      For B:= 1 to CEntriesCount(C) do begin
-        For x:= 1 to PTC do begin
-          if TArmies(Army[x]) > 3 then begin
-            tt:= 0;
-            if QTWeakestPath(Army[x], CEntry(C,B), 0, TT, PL, EA) then begin
-              if SCardsBasedOnCombo then EA:= EA - TArmies(CEntry(C,B));
-              SPEntryT[CEntry(C, B)]:= True;  // used later on if cost isn't less than mincost
-              Cost:= PL + EA;
-              if ((Cost < MinCost) or (MinCost = 0)) then MinCost:= Cost;
-              if (Cost < MaxCost) then begin
-                MinCost:= Cost;
-                ToTerritory:= TT;
-                FromTerritory:= Army[x];
-                bs(100, ToTerritory);
-                bs(101, FromTerritory);
-                TargetEntryT:= CEntry(C, B);
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  if (MinCost > 0) and (FromTerritory = 0) and (not SConquest) then if m2('not attacking SP, MaxCost ' + i(maxcost) + ' mincost ' + i(mincost)) then exit;
-  TotalCBonus:= 0;
-  For C:= 1 to 6 do begin
-    If COwner(C) = SP then TotalCBonus:= TotalCBonus + CBonus(C);
-  end;
-  if ( (TIV - PCardTurnInValue(SP)) > (3 * TotalCBonus) )
-   and (MinCost > (TIV div 3)) then begin
-    ToTerritory:= 0;
-    FromTerritory:= 0;
-    bs(100, 0);
-    bs(101, 0);
-    l('attack sp not worth it, high CTIV');
-  end;
-
-  If (FromTerritory > 0) then begin
-    //m2('TET: ' + i(TargetEntryT));
-      {The following code doesn't run until TargetEntryT is almost defeated}
-    if (TArmies(ToTerritory) < 3) and (TArmies(FromTerritory) > 6) and (ToTerritory = TargetEntryT) then begin
-      MinCost:= 0;
-      MinCostIOA:= 0;  // IOA = if occupy all
-      For C:= 1 to 6 do begin
-        if (COwner(C) = SP) and (not (C = TContinent(ToTerritory)))then begin
-          For B:= 1 to CEntriesCount(C) do begin
-            if QTWeakestPath(TargetEntryT, CEntry(C,B), 0, TT, PL, EA) then begin
-              Cost:= PL + EA;
-              if ((Cost < MinCostIOA) or (MinCostIOA = 0)) and (Cost < MaxCost) then MinCostIOA:= Cost;
-            end;
-            For x:= 1 to PTC do begin
-              if TArmies(Army[x]) > 3 then begin
-                if QTWeakestPath(Army[x], CEntry(C,B), 0, TT, PL, EA) then begin
-                  Cost:= PL + EA;
-                  if ((Cost < MinCost) or (MinCost = 0)) and (Cost < MaxCost) then MinCost:= Cost;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-      l('mincostIOA: ' + i(mincostIOA) + ' mincost: ' + i(mincost));
-      EA:= 0;
-      For x:= 1 to CTerritoriesCount(TContinent(TargetEntryT)) do begin
-        EA:= EA + TArmies(CTerritory(TContinent(TargetEntryT), x));
-      end;
-      TurnInArmies:=0;
-      if PCardCount(SP) > 2 then TurnInArmies:= PCardTurnInValue(SP);
-      if (MinCostIOA > MinCost) or (  (MinCostIOA = 0) and ( (EA + TurnInArmies) > trunc(0.9*(TArmies(FromTerritory))) )  ) then begin
-                                    // MinCostIOA = 0 implies that there are no more C's left to attack
-        bs(67, 1);  // 67 - used to tell the occupation routine to set Armies:= 0
-        l('dont occupy - mincostIOA: ' + i(mincostIOA) + ' mincost: ' + i(mincost));
-      end;
-      if (TContinent(TargetEntryT) = 6) then begin
-        if (EA < TIV div 3) or (EA < 6) then bs(67, EA + 4)
-         else bs(67, 1);
-      end;
-      l('bg 67: ' + i(bg(67)));
-    end;
-
-    if ToTerritory > 0 then l('attack SP: ' + PProgram(SP) + ' FT: ' + i(FromTerritory) + ' TT: ' + i(ToTerritory));
-    if ToTerritory = TargetEntryT then begin
-      m2('attack SP: ' + PProgram(SP) + ' FT: ' + i(FromTerritory) + ' TT: ' + i(ToTerritory));
-      ///UTakeSnapshot('attack SP in australia');
-    end;
-    bs(60, TargetEntryT);
-    exit;
-  end else begin
-    if weaken then begin
-      InitializeQMap;
-      KillWeakestPlayer(SP, 0, FromTerritory, ToTerritory);
-      if ToTerritory > 0 then begin
-        if ToTerritory > 100 then begin
-          ToTerritory:= ToTerritory - 100;
-          FromTerritory:= FromTerritory - 100;
-        end;
-        m2('weaken strong player');
-        exit;
-      end;
-    end;
-  end;
-end;
-
-Procedure AddConnectedTsArmies(MyArmy, T: integer; var CTArmies, Ts: Integer);
-Var
-  LowerCTArmies, MaxArmy, P, X, BT, C, B: integer;
-  Open, Closed: array of boolean;
-begin
-  SetArrayLength(Closed, 43);
-  SetArrayLength(Open, 43);
-
-  For x:= 1 to 42 do begin
-    Closed[x]:= False;
-    Open[x]:= False;
-  end;
-
-  Open[T]:= True;
-  CTArmies:= 0;
-  Ts:= 0;
-  MaxArmy:= 0;
-  LowerCTArmies:= 0;
-  Repeat
-    if Open[T] and (not Closed[T]) then begin
-      C:= 0;
-      For B:= 1 to TBordersCount(T) do begin
-        BT:= TBorder(T, B);
-        if (TOwner(BT) <> PMe) and (not Open[BT]) then begin
-          C:= C + 1;
-          Open[BT]:= True;
-        end;
-        if (TOwner(BT) = PMe) and (not (BT = MyArmy)) and (TArmies(BT) > MaxArmy) and (TArmies(BT) > 3) then begin
-          MaxArmy:= TArmies(BT);
-          LowerCTArmies:= BT;
-        end;
-      end;
-      Closed[T]:= True;
-      CTArmies:= CTArmies + TArmies(T);
-      Ts:= Ts + 1;
-      if C > 0 then T:= 0;
-    end;
-    T:= T + 1;
-  Until (T > 42);
-  CTArmies:= CTArmies + Ts;
-  if LowerCTArmies > 0 then begin
-    CTArmies:= CTArmies - (TArmies(LowerCTArmies) - 1);
-    if CTArmies < 0 then CTArmies:= 0;
-  end;
-end;
-
-Function TsAreConnected(P, T, T1: integer): boolean;
-Var
-  X, BT, C, B: integer;
-  TOwnerIsPlayerP, Checked: array of boolean;
-begin
-  SetArrayLength(Checked, 43);
-  For x:= 1 to 42 do Checked[x]:= False;
-  SetArrayLength(TOwnerIsPlayerP, 43);
-  For x:= 1 to 42 do TOwnerIsPlayerP[x]:= False;
-
-  Result:= False;
-  TOwnerIsPlayerP[T]:= True;
-  if (  not ( TIsMine(T1) and TIsMine(T) )  ) and TIsBordering(T, T1) then Result:= True;
-  Repeat
-    if TOwnerIsPlayerP[T] and (not Checked[T]) then begin
-      C:= 0;
-      For B:= 1 to TBordersCount(T) do begin
-        BT:= TBorder(T, B);
-        if ( (TOwner(BT) = P) or ((TOwner(BT) <> PMe) and (P = 0)) ) and (not TOwnerIsPlayerP[BT]) then begin
-          C:= C + 1;
-          TOwnerIsPlayerP[BT]:= True;
-          if TIsBordering(BT, T1) then begin
-            Result:= True;
-            exit;
-          end;
-        end;
-      end;
-      Checked[T]:= True;
-      if C > 0 then T:= 0;
-    end;
-    T:= T + 1;
-  Until (T > 42);
-end;
-
-Function QTsAreConnected(P, T, T1: integer): boolean;
-Var
-  X, BT, C, B: integer;
-  TOwnerIsPlayerP, Checked: array of boolean;
-begin
-  SetArrayLength(Checked, 43);
-  For x:= 1 to 42 do Checked[x]:= False;
-  SetArrayLength(TOwnerIsPlayerP, 43);
-  For x:= 1 to 42 do TOwnerIsPlayerP[x]:= False;
-  P:=0;    // this line is different from tsareconnected
-  Result:= False;
-  TOwnerIsPlayerP[T]:= True;
-  if (  not ( (QTOwner[T1] = Pme) and (QTOwner[T] = PMe) )  ) and TIsBordering(T, T1) then Result:= True;
-  Repeat
-    if TOwnerIsPlayerP[T] and (not Checked[T]) then begin
-      C:= 0;
-      For B:= 1 to TBordersCount(T) do begin
-        BT:= TBorder(T, B);
-        if ( (QTOwner[BT] = P) or ((QTOwner[BT] <> PMe) and (P = 0)) ) and (not TOwnerIsPlayerP[BT]) then begin
-          C:= C + 1;
-          TOwnerIsPlayerP[BT]:= True;
-          if TIsBordering(BT, T1) then begin
-            Result:= True;
-            exit;
-          end;
-        end;
-      end;
-      Checked[T]:= True;
-      if C > 0 then T:= 0;
-    end;
-    T:= T + 1;
-  Until (T > 42);
-end;
-
-Procedure ResetBuffers();
-Begin
-  bs(400, 0);
-  bs(401, 0);
-  bs(63, 0);
-  bs(68, 0);
-  bs(69, 0);
-  bs(73, 0);
-  bs(74, 0);
-  bs(77, 0); // reset BestFT (KillPlayerOcc) - only used if BestFT is not connected to TT or FT
-  bs(78, 0);
-  bs(79, 0);
-  bs(80, 0);
-  bs(82, 0);
-  bs(86, 0);
-  bs(96, 0);
-  bs(97, 0);
-  bs(98, 0);
-  bs(99, 0);
-end;
-
-Procedure KillPlayerOcc(P, FromTerritory, Toterritory: integer; Var Armies: integer);
-Var
-  ePAC, TT, MinCost, TTNeeds, FTNeeds, addCET_TT, addCET_FT, FTA, ePTC, T, B, iNode,
-  B1, BT1, C1, FT, BestTT, FTNeedsMore, CForce, C, BT, MyTotalArmies, Cost, BestFT,
-  BestDT, Ts, DT, TT_EA, FT_EA, iChild, MaxArmy, LowerFTNeeds: integer;
-  addedFTNeedsMore, go: boolean;
-
-  aNode: array [1..42] of record
-    bClosed, bOpen, bTTOpen, cOpen, cClosed: boolean;
-  end;
-  //tempQTOwner: array [1..42] of integer;
-
-begin
-  //m('running KillPlayerOcc');
-  //if FromTerritory = bg(77) then bs(77,0);  // stores bestFT
-
-  bs(73, 0);
-  bs(74, 0);
-  l('P ' + i(p) + ' bg(77) ' + i(bg(77)) + ' bg(79) ' + i(bg(79)) + ' bg(80) ' + i(bg(80)) + ' bg(86) ' + i(bg(86)) + ' bg(96) ' + i(bg(96)) + ' bg(97) ' + i(bg(97)));
-  if bg(400) > 0 then l('start kill player occ, FT ' + i(fromterritory) + ' TT ' + i(Toterritory));
-  if ( (bg(80) = -1) and (FromTerritory = bg(77)) ) then begin
-    bs(77, 0);
-    bs(79, 0);
-    bs(80, 0);
-    bs(86, 0);
-  end;
-
-  FTA:= QTArmies[FromTerritory] - 1;
-
-  // disable this shortcut if I ever figure out how to properly split with more than one split                                    // cant use shortcut if occupying to dead end
-  if ((SAlivePlayersCount > 2) and (not KillBoth)) and (bg(97) = 0) then begin
-    if ({c}({b}({a}(TOwner(ToTerritory) <> P) and (TOwner(ToTerritory) <> PMe){a}) and (bg(400) = 0){b}) or ( (bg(86) <> P) and (bg(86) > 04) ){c}) then begin
-      Armies:= FTA;
-      l('armies = FTA occ **************************************************************');
-      exit;
-    end;
-  end;
-
-  ConquestForce(CForce);
-  Armies:= 0;
-  {
-  if ToTerritory = bg(74) then begin
-    m('occupy all');
-    Armies:= FTA;
-    bs(73, 0);
-    bs(74, 0);
-    exit;
-  end;
-  }
-
-  //if FromTerritory  = 22 then m2('pause');
-  // optimized code for Australia
-  if (ToTerritory = 39) and (FromTerritory = 31) then begin
-    if PTerritoriesCount(PMe) > 38 then begin
-      Armies:= FTA;
-      exit;
-    end;
-    if P = 0 then begin
-      For T:= 40 to 42 do if QTOwner[T] <> PMe then Armies:= Armies + QTArmies[T] + 1 else Armies:= Armies - (QTArmies[T] - 1);
-      if (not(Armies = 6)) and (SAlivePlayersCount = 3) then Armies:= Armies + 3;
-    end else begin
-      For T:= 40 to 42 do if QTOwner[T] = P then Armies:= Armies + QTArmies[T] + 1;
-      if (not(Armies = 6)) and (SAlivePlayersCount = 3) then Armies:= Armies + 3;
-      if (QTOwner[41] = P) and (QTOwner[40] <> P) and (QTOwner[42] <> P) then
-       if QTArmies[42] < QTArmies[40] then Armies:= Armies + QTArmies[42] + 1 else
-        Armies:= Armies + QTArmies[40] + 2;
-    end;
-    Armies:= Armies + 1;
-    If Armies > FTA then Armies:= FTA;
-    if Armies < 0 then Armies:= 0;
-    m('Aus occ, armies: ' + i(Armies));
-    exit;
-  end;
-
-  ePTC:= 0; // enemy player territory count
-  ePAC:= 0; // enemy player army count
-  for T:=1 to 42 do begin
-    if QTOwner[T] = P then begin
-      ePTC:= ePTC + 1;
-      ePAC:= ePAC + QTArmies[T];
-    end;
-    with aNode[T] do begin
-      bClosed := false;
-      bOpen:= false;
-      bTTOpen:= false;
-      cOpen:= false;
-      cClosed:= false;
-    end;
-  end;
-
-  if (ePTC = 0) and (not (P = 0)) then begin
-// add code to switch to next weakest player
-    Armies:= FTA;
-    l('new occ code player is dead ePTC = 0');
-    exit;
-  end;
-
-  TTNeeds:= 0;
-  TT_EA:= 0;
-  aNode[ToTerritory].bTTopen := True;
-  addCET_TT:= 0;  // add connected enemy territories - ToTerritory
-  Repeat
-    T:= 0;
-    iNode:= 0;
-    repeat
-      T:= T + 1;
-      if aNode[T].bTTopen and not aNode[T].bClosed then begin
-        iNode:= T;
-      end;
-    until (iNode > 0) or (T = 42);
-
-    if iNode > 0 then begin
-      for B:= 1 to TBordersCount(iNode) do begin
-        iChild:= TBorder(iNode, B);
-        if (QTOwner[iChild] <> P) or ( (P = 0) and (QTOwner[iChild] = PMe) ) then continue;
-        if ((not aNode[iChild].bTTOpen) and (not aNode[iChild].bClosed)) then begin
-          addCET_TT:= addCET_TT + 1;
-          TTNeeds:= TTNeeds + QTArmies[iChild] + 1;
-          TT_EA:= TT_EA + QTArmies[iChild];
-          aNode[iChild].bTTOpen:= true;
-        end;
-      end;
-    aNode[iNode].bClosed := true; // node has been examined, add to CLOSED list
-    end;
-  until (iNode = 0);  // loop until there are no more open nodes
-  TTNeeds:= TTNeeds + addCET_TT div 3;
-
-  if bg(96) > 0 then For B:= 1 to TBordersCount(bg(96)) do begin
-    BT:= TBorder(bg(96), B);
-    if (not (BT = FromTerritory)) and (QTOwner[BT] = PMe) then begin
-      if QTArmies[BT] > QTArmies[bg(96)] then TTNeeds:= TTNeeds - QTArmies[bg(96)] - 1
-       else if (QTArmies[bg(96)] > 2) and (QTArmies[BT] > 2) then TTNeeds:= TTNeeds - (QTArmies[BT] - 2);
-      break;
-    end;
-  end;
-
-  if addCET_TT = ePTC then begin
-    Armies:= FTA;
-    l('new occ code only tt needs');
-    if bg(97) = 0 then exit;
-  end;
-
-  FTNeeds:= 0;
-  FT_EA:= 0;
-  aNode[FromTerritory].bOpen:= True;
-  addCET_FT:= 0;
-  MaxArmy:= 0;
-  LowerFTNeeds:= 0;
-  Repeat
-    T:= 0;
-    iNode:= 0;
-    repeat
-      T:= T + 1;
-      if aNode[T].bopen and not aNode[T].bClosed then begin
-        iNode:= T;
-      end;
-    until (iNode > 0) or (T = 42);
-
-    if iNode > 0 then begin
-      for B:= 1 to TBordersCount(iNode) do begin
-        iChild:= TBorder(iNode, B);
-        if {((QTOwner[iChild] <> P) or ( (P = 0) and (QTOwner[iChild] = PMe) ))
-         or }aNode[iChild].bClosed then continue;  // don't add armies from T's connected to ToTerritory
-        if (QTOwner[iChild] = P) or ( (P = 0) and (QTOwner[iChild] <> PMe) ) then begin
-          if ((not aNode[iChild].bOpen) and (not aNode[iChild].bClosed)) then begin
-            addCET_FT:= addCET_FT + 1;
-            FTNeeds:= FTNeeds + QTArmies[iChild] + 1;
-            FT_EA:= FT_EA + QTArmies[iChild];
-            aNode[iChild].bOpen:= true;
-          end;
-        end;
-        if (QTOwner[iChild] = PMe) and (QTArmies[iChild] > 3) and (QTArmies[iChild] > MaxArmy) then begin
-          MaxArmy:= QTArmies[iChild];
-          LowerFTNeeds:= iChild;
-        end;
-      end;
-      aNode[iNode].bClosed := true; // node has been examined, add to CLOSED list
-    end;
-  until (iNode = 0);  // loop until there are no more open nodes
-
-  FTNeeds:= FTNeeds + addCET_FT div 3;
-  addedFTNeedsMore:= False;
-  if (bg(77) > 0) and (FTNeeds > 0) then begin
-    if aNode[bg(77)].bopen then FTNeeds:= FTNeeds + bg(79);
-    addedFTNeedsMore:= True;
-    m2('add ftNeedsMore to FTNeeds');
-  end;
-
-  if LowerFTNeeds > 0 then begin
-    m('Before LowerFTNeeds, FTNeeds = ' + i(FTNeeds));
-
-    FTNeeds:= FTNeeds - (QTArmies[LowerFTNeeds] - 1);
-    If FTNeeds < 0 then FTNeeds:= 0;
-
-    aNode[LowerFTNeeds].cOpen:= True;
-    Repeat
-      T:= 0;
-      iNode:= 0;
-      repeat
-        T:= T + 1;
-        if aNode[T].cOpen and not aNode[T].cClosed then begin
-          iNode:= T;
-        end;
-      until (iNode > 0) or (T = 42);
-
-      if iNode > 0 then begin
-        for B:= 1 to TBordersCount(iNode) do begin
-          iChild:= TBorder(iNode, B);
-          if {((QTOwner[iChild] <> P) or ( (P = 0) and (QTOwner[iChild] = PMe) ))
-           or }aNode[iChild].cClosed then continue;  // don't add armies from T's connected to ToTerritory
-          if (QTOwner[iChild] = P) or ( (P = 0) and (QTOwner[iChild] <> PMe) ) then begin
-            if ((not aNode[iChild].cOpen) and (not aNode[iChild].cClosed)) then begin
-              aNode[iChild].cOpen:= true;
-            end;
-          end;
-        end;
-        aNode[iNode].cClosed := true; // node has been examined, add to CLOSED list
-      end;
-    until (iNode = 0);  // loop until there are no more open nodes
-    For T:= 1 to 42 do begin
-      if (aNode[T].bOpen) and (QTOwner[T] = P) and not aNode[T].cOpen then begin
-        FTNeeds:= FTNeeds + QTArmies[T] + 1;
-        //l('t: ' + i(T));
-      end;
-    end;
-    m('After LowerFTNeeds, FTNeeds = ' + i(FTNeeds));
-  end;
-
-  if FTNeeds < 0 then FTNeeds:= 0;
-  if FTNeeds = 2 then FTNeeds:= 3;
-
-  if FTNeeds = 0 then Armies:= FTA;
-
-  if (FTNeeds > 0) then begin
-    {if (TTNeeds > 0) then }Armies:= FTA - FTNeeds;
-    if ToTerritory = bg(82) then begin
-      bs(82, 0);
-      Armies:= TTNeeds;
-    end else begin
-      if bg(96) > 0 then begin
-        if aNode[bg(96)].bOpen then begin
-          Armies:= TTNeeds;
-          if bg(400) = 0 then bs(82, ToTerritory);
-        end;
-      end else begin
-        if bg(97) > 0 then begin
-          if aNode[bg(97)].bOpen then Armies:= TTNeeds;
-          if bg(400) = 0 then bs(82, ToTerritory);
-        end;
-      end;
-    end;
-    if (Armies = TTNeeds) and (Armies > 0) then begin
-      l('armies = ttneeds');
-      if FTA > TTNeeds + FTNeeds + 4 then begin
-        Armies:= Armies + 2;
-        TTNeeds:= TTNeeds + 2;
-        l('give TT 2 extra');
-      end;
-      if (FTA > TTNeeds + FTNeeds + 5) and (SAlivePlayersCount = 3) then begin
-        Armies:= Armies + 3;
-        TTNeeds:= TTNeeds + 3;
-        l('give TT 3 extra');
-      end;
-    end;
-    if Armies > FTA then Armies:= FTA;
-  end;
-
-  // dont know what this code was for but i disabled it because it screwed something else up
-  {
-  if (TFrontsCount(FromTerritory) = 1) and (TArmies(TFront(FromTerritory, 1)) > FTA) then begin
-    Armies:= TTNeeds + 3;
-    if Armies > FTA then Armies:= FTA;
-    m2('my armies are less than, Armies: ' + i(armies));
-    exit;
-  end;
-  if (TFrontsCount(ToTerritory) = 1) and (TArmies(TFront(ToTerritory, 1)) > FTA) then begin
-    Armies:= FTNeeds + 3;
-    if Armies > FTA then Armies:= FTA;
-    m2('my armies are less than, Armies: ' + i(armies));
-    exit;
-  end;
-  }
-
-  l('ttNeeds:  ' + i(TTNeeds) + ' FTNeeds: ' + i(ftneeds));
-
-  if (TTNeeds = 0) and (FTNeeds > 0) then begin
-    C:= 0;
-    C1:= 0;
-    For B:= 1 to TBordersCount(ToTerritory) do begin
-      BT:= TBorder(ToTerritory, B);
-//      if QTOwner[BT] = P then C:= C + 1;
-      if (QTOwner[BT] <> PMe) and (QTArmies[BT] < CForce) then C1:= C1 + 1;
-    end;
-    {
-    if C = 0 then begin
-      if ToTerritory = bg(96) then begin  // if ToTerritory = DT
-        Armies:= FTA - FTNeeds;
-        if Armies < 0 then Armies:=0;
-        m('toterritory = bg(96)');
-      end else Armies:= 0;
-    end else Armies:= FTA - FTNeeds;
-    }
-    if C1 = 0 then begin
-      Armies:= 0;
-      l('new occ code ttneeds = 0 - no attack possible from TT');
-    end;
-  end;
-
-  if (Armies > TTNeeds + 2) and (FTNeeds > 1) and ((addCET_FT > 1) or addedFTNeedsMore) then begin
-    if (addCET_FT < 3) and (not addedFTNeedsMore) then begin
-      Armies:= Armies - (addCET_FT);
-      FTNeeds:= FTNeeds + (addCET_FT);
-    end else begin
-      Armies:= Armies - 3;
-      FTNeeds:= FTNeeds + 3;
-    end;
-    m('give FT extra, FTNeeds: ' + i(FTNeeds) + ' Armies:= ' + i(Armies));
-    if (SAlivePlayersCount = 3) and (FTA > TTNeeds + FTNeeds + 2) then begin
-      Armies:= Armies - 3;
-      FTNeeds:= FTNeeds + 3;
-      m('give FT more extra, FTNeeds: ' + i(FTNeeds) + ' Armies:= ' + i(Armies));
-    end;
-    if Armies < 0 then Armies:=0;
-  end;
-                                                                                                                            // old owner
-  if (bg(77) = 0) then if ((SAlivePlayersCount > 2) and (not KillBoth)) then if (addCET_TT + addCET_FT < ePTC) and ( ((TOwner(ToTerritory) = P) and (bg(400) = 0)) or (bg(86) = P) ) then begin
-    FTNeedsMore:= 0;
-    BestFT:= 0;
-    BestTT:= 0;
-
-    For T:= 1 to 42 do if (QTOwner[T] = P) and (aNode[T].bclosed = false) then begin
-      NeedToCheck[T]:= True;
-      //if FromTerritory = 22 then umessage('T ' + i(T));
-    end else NeedToCheck[T]:= False;
-    MinCost:= 999999999;
-    For T:= 1 to 42 do begin
-      if aNode[T].bClosed or
-       ( (QTOwner[T] = PMe) and (QTArmies[T] > (EPAC - FT_EA - TT_EA) + (EPTC - addCET_FT - addCET_TT) + ((EPTC - addCET_FT - addCET_TT) div 3)) )then begin
-
-       //   if FromTerritory = 22 then umessage('T ' + i(T));
-          //m2('T ' + i(t));
-          if WeakestPathToWP(P, T, TT, DT, Cost) then begin  // cost includes Ts div 3
-            if (Cost < MinCost) then begin
-              MinCost:= Cost;
-              BestFT:= T;
-              BestTT:= TT;
-              BestDT:= DT;
-        //      l('1 bestFT: ' + i(T) + ' bestTT: ' + i(TT) + ' bestDT: ' + i(DT));
-            end else begin
-              if (Cost = MinCost) and (not (T = FromTerritory)) then begin
-                BestFT:= T;
-                BestTT:= TT;
-                BestDT:= DT;
-          //      l('2 bestFT: ' + i(T) + ' bestTT: ' + i(TT) + ' bestDT: ' + i(DT));
-              end;
-            end;
-       //   end;
-        end;
-      end;
-    end;
-    if QTOwner[BestTT] = P then bs(80, -1) else begin
-      if BestFT > 0 then begin
-        QaddConnectedArmies(P, BestDT, FTNeedsMore, Ts);
-        //FTNeedsMore:= (EPAC - FT_EA - TT_EA) + (EPTC - addCET_FT - addCET_TT) + ((EPTC - addCET_FT - addCET_TT) div 3) + MinCost;
-        FTNeedsMore:= FTNeedsMore + MinCost + Ts + (Ts div 3);
-        bs(80, BestTT);
-        bs(79, FTNeedsMore);
-        bs(77, BestFT);
-      end else bs(77, -1);
-    end;
-    l('weakest path occ, FT: ' + i(FromTerritory) + ' Bestft: ' + i(bestFT) + ' MinCost ' + i(mincost) + ' FTNeedsMore ' + i(FTNeedsMore));
-  end;
-                                                                                        // only run this code if the bestFT is not already connected to Player P
-  if (bg(77) > 0) and ( (bg(77) = FromTerritory) or (bg(77) = ToTerritory) ) and (not (bg(80) = -1)) then begin
-    BestFT:= bg(77);
-    FTNeedsMore:= bg(79);
-    MyTotalArmies:= 0;
-    For T:= 1 to 42 do begin
-      if QTOwner[T] = PMe then MyTotalArmies:= MyTotalArmies + QTArmies[T] - 1;  // -1 to exclude my t count
-    end;
-    l('FTNeedsMore ' + i(FTNeedsMore));
-    if (TTNeeds + FTNeeds + FTNeedsMore > MyTotalArmies) and (bg(400) = 0) and (SAlivePlayersCount > 3) then begin
-      Armies:= -1000;
-      l('*************************************************** savin time occ');
-    end else begin
-//      if not aNode[BestFT].bClosed then bs(77, BestFT);
-      if (FromTerritory = BestFT) then begin
-        //l('epac ' + i(EPAC));
-        //l('addCET_TT ' + i(addCET_TT));
-//        m2('bestFT');
-        if (FTNeeds <= 0) and (ToTerritory = bg(80)) then begin
-          Armies:= FTA;
-          m2('ttneeds = 0, ftneeds = 0, armies:= fta');
-        end else begin
-          if FTNeeds + FTNeedsMore > TTNeeds then begin
-            Armies:= TTNeeds;
-            if FTA > FTNeeds + FTNeedsMore + TTNeeds + 5 then Armies:= Armies + 3;
-            if Armies > FTA then Armies:= FTA;
-          end else Armies:= FTA - FTNeeds - FTNeedsMore;
-          m('new occ3, Armies:= ' + i(Armies));
-
-
-          if (Armies > TTNeeds + 4) and (FTNeedsMore > 3) then begin
-            Armies:= Armies - 3;
-            m('FTNeedsMore, give FT 3 extra, Armies:= ' + i(Armies));
-          end;
-
-          if Armies < 0 then Armies:=0;
-        end;
-      end;
-
-      if ToTerritory = BestFT then begin
-        Armies:= FTA - FTNeeds;
-        m('new occ4, Armies:= ' + i(Armies));
-        if (Armies > FTNeedsMore + 2) and (FTNeeds > 5) then begin
-          Armies:= Armies - 3;
-          m('FTNeeds, give FT 3 extra, Armies:= ' + i(Armies));
-        end;
-        if Armies < 0 then Armies:=0;
-      end;
-
-    end;
-  end;
-
-  if (Armies < FTA) and (Armies > 0) {just in case Armies = -1000} then begin
-    //m('start bs 73');
-    C:= 0;
-    For B:= 1 to TBordersCount(FromTerritory) do begin
-      BT:= TBorder(FromTerritory, B);
-      if (QTOwner[BT] = P) and aNode[BT].bTTopen and (not (BT = ToTerritory)) then C:= C + 1;
-    end;
-    if C > 0 then begin
-      //m('C>0');
-      //For T:= 1 to 42 do tempQTOwner[T]:= 0;
-      For B:= 1 to TBordersCount(FromTerritory) do begin
-        BT:= TBorder(FromTerritory, B);
-        if (QTOwner[BT] = P) and aNode[BT].bTTopen and (not (BT = ToTerritory)) then begin
-          //tempQTOwner[BT]:= P;
-          QTOwner[BT]:= 0;
-        end;
-      end;
-      if addCET_FT = 0 then begin
-        bs(73, FromTerritory);
-        bs(74, bg(80));  // 80 - bestTT
-      end else begin
-        FT:= FromTerritory;
-        bs(73, FromTerritory);
-        KillWeakestPlayer(P, 0, FT, TT);
-        if ft <> FromTerritory then m('ft <> FromTerritory, FT: ' + i(fT));
-        if TT > 0 then bs(74, TT) else begin
-          bs(73, 0);
-          bs(74, 0);
-        end;
-      end;
-      For B:= 1 to TBordersCount(FromTerritory) do begin
-        BT:= TBorder(FromTerritory, B);
-        //if tempQTOwner[BT] > 0 then QTOwner[BT]:= tempQTOwner[BT];
-        if QTOwner[BT] = 0 then QTOwner[BT]:= P;
-      end;
-    end;
-  end;
-
-  if (bg(97) > 0) and (TTNeeds > 0) and (SAlivePlayersCount > 2) and (bg(97) <> bg(78)) then begin
-//  m2('begin new code');
-    C:= 0;
-    For B:= 1 to TBordersCount(FromTerritory) do begin
-      BT:= TBorder(FromTerritory, B);
-      if (QTOwner[BT] <> PMe) and (QTOwner[BT] <> P) then C:= C + 1;
-    end;
-  //  m2('1 C ' + i(C));
-    if (C > 0) and (bg(97) < 39) then begin
-      C:= 0;
-      For B:= 1 to TBordersCount(bg(97)) do begin
-        BT:= TBorder(bg(97), B);
-        if QTOwner[BT] = PMe then begin
-          For B1:= 1 to TBordersCount(BT) do begin
-            BT1:= TBorder(BT, B1);
-            if (QTOwner[BT1] <> PMe) and (QTOwner[BT1] <> P) then C:= C + 1;
-          end;
-        end;
-      end;
-   // m2('2 C ' + i(C));
-
-      If C = 0 then begin
-        Armies:= TTNeeds + 6;
-        if SAlivePlayersCount = 3 then TTNeeds:= TTNeeds + 10;
-        if Armies > FTA then Armies:= FTA;
-        if bg(400) > 0 then m2('dont occupy to a dead end');
-        bs(78, bg(97));
-      end;
-    end;
-  end;
-
-  if ((BestFT > 0) and (BestFT = FromTerritory)) {or ( (bg(80) = -1) and (FromTerritory = bg(77)) )} then begin
-    bs(77, 0);
-    bs(79, 0);
-    bs(80, 0);
-  end;
-  if ToTerritory = bg(97) then bs(97, 0);
-  //bs(86, 0);
-end;
-
-Function PathToClosestWeakFront(ST: integer; var TT, DT, PL: integer): boolean;
-            {or ClosestWeakerFront in some cases}
-Var
-  CForce, T: integer;
-
-  B, iNode, iChild, iCostFromStart: integer;
-
-  Cost, MinCost: double;
-
-  aNode: array [1..42] of record
-    bClosed: boolean;          // node is in the CLOSED list
-    bOpen: boolean;            // node is in the Open list
-    iParent: integer;          // previous node in the optimal path
-    iCostFromStart: integer;   // cost to arrive to this node
-  end;
-  
-begin
-  ConquestForce(CForce);
-  result:= False;
-  TT:= 0;
-  DT:= 0;
-  PL:= 0;
-  MinCost:= 0;
-
-  // The following code was modified from some code that Mario shared with me from his path functions
-  for T:=1 to 42 do begin
-    with aNode[T] do begin
-      bClosed := false;
-      bOpen:= false;
-    end;
-  end;
-
-  aNode[ST].iParent := 0;
-  aNode[ST].iCostFromStart := 0;
-  aNode[ST].bopen := True;
-
-  Repeat
-    T:= 0;
-    iNode:= 0;
-    repeat
-      T:= T + 1;
-      if aNode[T].bopen and not aNode[t].bClosed then begin
-        iNode:= T;
-      end;
-    until (iNode > 0) or (T = 42);
-
-    if (iNode > 0) then begin
-      for B:= 1 to TBordersCount(iNode) do begin
-        iChild:= TBorder(iNode, B);
-
-        if (TOwner(iChild) <> PMe) then begin
-          if TArmies(iChild) < CForce then begin
-            Cost:= aNode[iNode].iCostFromStart - 1/double(TArmies(iChild));
-            if (Cost < MinCost) or (MinCost = 0) then begin
-              MinCost:= Cost;
-              DT:= iChild;
-            end;
-          end;
-        end;
-
-        if (TOwner(iChild) = PMe) or (iChild = DT) then begin
-          iCostFromStart := aNode[iNode].iCostFromStart + 1;
-          // assign cost to child if end node has not been reached already
-          // or if reached with higher cost
-          if ((not aNode[iChild].bOpen) and (not aNode[iChild].bClosed))
-          or (iCostFromStart < aNode[iChild].iCostFromStart) then begin
-            aNode[iChild].iParent := iNode;
-            aNode[iChild].iCostFromStart := iCostFromStart;
-            if aNode[iChild].bClosed then aNode[iChild].bClosed:= false; // if closed then remove child from CLOSED list
-            if not aNode[iChild].bOpen then aNode[iChild].bOpen:= true;  // add to open list
-          end;
-        end;
-      end;
-      aNode[iNode].bClosed := true; // node has been examined, add to CLOSED list
-    end;
-    // end of Mario's modified code
-  until iNode = 0;
-
-  if DT > 0 then begin
-    Result:= True;
-    iNode:= DT;
-    PL:= aNode[iNode].iCostFromStart;
-
-    while (aNode[iNode].iParent > 0) and (aNode[iNode].iParent <> ST) do begin
-      iNode := aNode[iNode].iParent;
-    end;
-
-    TT:= iNode;
-  end;
-
-  if TT = ST then begin
-//    m('already at best front');
-    TT:= 0;
-    DT:= 0;
-    PL:= 0;
-    Result:= False
-  end;
-  m2('end result: TT: ' + i(TT) + ' PL: ' + i(PL) + ' DT: ' + i(DT) + ' TArmies(DT) ' + i(TArmies(DT)) + ' CForce ' + i(CForce));
-end;
-
-
-procedure SortEnemyT(var EnemyT: array of integer; sort: integer);
-var                                                // for ascending set sort = 1, sort = 0 for descending
-  TC, x, x1, temp, T: integer;
-begin
-  TC:= 42 - PTerritoriesCount(Pme);
-  SetArrayLength(EnemyT, 43);
-  For T:= 1 to 42 do EnemyT[T]:= 0;
-  x:= 0;
-  For T:= 1 to 42 do begin
-    if (Not TIsMine(T)) and (not (TContinent(T) = 2)) and (not (TContinent(T) = 6)) then begin
-      x:= x + 1;
-      EnemyT[x]:= T;
-    end;
-  end;
-  For x:= 1 to TC - 1 do begin
-    For x1:= x + 1 to TC do begin
-      if (sort = 0) and (TArmies(EnemyT[x1]) > TArmies(EnemyT[x])) then begin
-        temp:= EnemyT[x];
-        EnemyT[x]:= EnemyT[x1];
-        EnemyT[x1]:= temp;
-      end;
-      if (sort = 1) and (TArmies(EnemyT[x1]) < TArmies(EnemyT[x])) then begin
-        temp:= EnemyT[x];
-        EnemyT[x]:= EnemyT[x1];
-        EnemyT[x1]:= temp;
-      end;
-    end;
-  end;
-end;
-
-
-{ // this procedure adds path length and destination front to TPathToFront
-procedure PathToFront(T: integer; var Front, PL: Integer);
-begin
-  PL:= 0;
-  front:= T;
-  if not TIsFront(Front) then begin
-    Repeat
-      front:= TPathToFront(Front)
-      PL:= PL + 1;
-    Until TIsFront(Front) or (PL > 20);
-  end;
-end;
-}
-
-procedure TWithWeakestFront(var TWF, WF, WeakestFrontA: integer);
-var
-  T, ET, EA: integer;
-begin
-  WeakestFrontA:= 0;
-  TWF:= 0;
-  WF:= 0;
-  For T:= 1 to 42 do begin
-    if TIsFront(T) {and (TArmies(T) > 3)} then begin
-      TWeakestFront(T, ET, EA);
-    //  if TArmies(T) > EA then begin
-        if (EA < WeakestFrontA) or (WeakestFrontA = 0) then begin
-          WeakestFrontA:= EA;
-          TWF:= T;
-          WF:= ET;
-        end;
-        if EA = WeakestFrontA then if TArmies(T) > TArmies(TWF) then begin
-          TWF:= T;
-          WeakestFrontA:= EA;
-          WF:= ET;
-        end;
-      //end;
-    end;
-  end;
-end;
-
-procedure RankSort(var Rank: array of integer);
-var
-  temp, APC, x, x1, P: integer;
-begin
-  x:= 0;
-  SetArrayLength(Rank, 11);
-  For P:= 1 to 10 do Rank[P]:= 0;
-  For P:= 1 to 10 do begin
-    if (PArmiesCount(P) > 0) then begin
-      x:= x + 1;
-      Rank[x]:= P;
-    end;
-  end;
-  APC:= SAlivePlayersCount;
-  For x:= 1 to APC - 1 do begin
-    For x1:= x + 1 to APC do begin
-      if PArmiesCount(Rank[x1]) > PArmiesCount(Rank[x]) then begin
-        temp:= Rank[x];
-        Rank[x]:= Rank[x1];
-        Rank[x1]:= temp;
-      end;
-    end;
-  end;
-end;
-
-procedure cRankSort(var Rank, PArmies: array of integer; var MyArmies: integer);
-var
-  temp, APC, x, x1, P: integer;
-begin
-  x:= 0;
-  SetArrayLength(Rank, 11);
-  SetArrayLength(PArmies, 11);
-  For P:= 1 to 10 do Rank[P]:= 0;
-  For P:= 1 to 10 do begin
-    if (PArmiesCount(P) > 0) then begin
-      x:= x + 1;
-      Rank[x]:= P;
-      PArmies[x]:= PArmiesCount(Rank[x]) + PNewArmies(Rank[x]) + trunc(double(PCardCount(Rank[x]))/3 * double(PCardTurnInValue(Rank[x])));
-    end;
-  end;
-  APC:= SAlivePlayersCount;
-  For x:= 1 to APC - 1 do begin
-    For x1:= x + 1 to APC do begin
-//      PArmiesX1:= PArmiesCount(Rank[x1]) + trunc(double(PCardCount(Rank[x1]))/3 * double(PCardTurnInValue(Rank[x1])));
-//      PArmiesX:= PArmiesCount(Rank[x]) + trunc(double(PCardCount(Rank[x]))/3 * double(PCardTurnInValue(Rank[x])));
-      if PArmies[X1] > PArmies[X] then begin
-        temp:= Rank[x];
-        Rank[x]:= Rank[x1];
-        Rank[x1]:= temp;
-        temp:= PArmies[x];
-        PArmies[x]:= PArmies[X1];
-        PArmies[x1]:= temp;
-      end;
-    end;
-  end;
-  For x:= 1 to APC do if Rank[x] = PMe then MyArmies:= PArmies[x];
-end;
-
-Function CEA(var C: integer): integer;  // continents total enemy armies
-var x: integer;
-begin
-  result:= 0;
-  For x:= 1 to CTerritoriesCount(C) do begin
-    If not TIsMine(CTerritory(C, x)) then result:= result + TArmies(CTerritory(C, x));
-  end;
-end;
-
-Function CPT(var C: integer): integer;  // total territories owned on continent C
-var x: integer;
-begin
-  result:= 0;
-  For x:= 1 to CTerritoriesCount(C) do begin
-    If TIsMine(CTerritory(C, x)) then result:= result + 1;
-  end;
-end;
-
-Function AIFD(var T: integer): boolean;  // Army is for defence
-Begin
-  if (COwner(TContinent(T)) = PMe) and TIsEntry(T) then result:= True else result:= false;
-end;
-
-Procedure KillWeakPlayerCheck(var WP: integer; PathCostTotal: integer; var KillWP: boolean; rank: array of integer);
-Var
-  MaxTIV, KillValue, temp, PArmiesX, PArmiesX1, x1, P, APC, MyArmies, x, extra, OP: integer;
-  TM: double;
-  PArmies: array of integer;
-Begin
-  KillWP:= False;  // KillWP = kill weakest player
-
-  if SAlivePlayersCount > 4 then begin
-
-
-    Extra:= 25 - TIV;
-    if Extra < 10 then Extra:= 10;
-    KillValue:= round(double(TIV) * double(PCardCount(WP))/3);
-
-    If (PCardCount(Pme) + PCardCount(WP) >= 5)
-     and (PArmiesCount(PMe) + PNewArmies(PMe) - PTerritoriesCount(PMe) > PArmiesCount(WP) + PTerritoriesCount(WP) + Extra)
-      then KillWP:= True;
-
-    If (PCardCount(WP) > 2)
-     and ( (PArmiesCount(PMe) + PNewArmies(PMe)) - (PArmiesCount(WP) + Extra) >  PArmiesCount(Rank[(SAlivePlayersCount div 2) + 1]) )
-      then KillWP:= True;
-
-    If (Rank[1] = PMe) and (SAlivePlayersCount <= 4) and (PCardCount(Pme) + PCardCount(WP) >= 5)
-     and (TIV >= PArmiesCount(WP)) then KillWP:= True;
-
-    if (KillValue > PArmiesCount(WP))
-     and (PArmiesCount(PMe) + PNewArmies(PMe) - PTerritoriesCount(PMe) > PArmiesCount(WP) + PTerritoriesCount(WP) + Extra) then begin
-      if not killwp then if m2('killvalue > WP Armies') then exit;
-      KillWP:= True;
-    end;
-
-    if KillWP and (PCardCount(Pme) + PCardCount(WP) <= 4) then begin
-      cRankSort(rank, parmies, myarmies);
-//      For x:= 1 to saliveplayerscount do l('Rank ' + i(x) + ': ' + PName(Rank[x]) + ' Armies: ' + i(PArmies[x]));
-      MyArmies:= PArmiesCount(PMe) + PNewArmies(PMe) - (PArmiesCount(WP) + 5)
-       + trunc(double(PCardCount(PMe) + PCardCount(WP))/3 * double(TIV)) + 10; // add the plus 10 to favor killing in the early game when numbers are low
-      if (Rank[1] <> PMe) then begin
-        if (Rank[2] <> PMe) then begin
-          if double(PArmies[1] - MyArmies) / PArmies[1] > 0.30 then begin
-            KillWP:= False;
-            m2('1 new abort killwp, Ratio: ' + f(double(PArmies[1] - MyArmies) / PArmies[1]));
-          end;
-          if double(PArmies[1] - PArmies[2]) / PArmies[1] > 0.15 then begin
-            KillWP:= False;
-            m2('2 new abort killwp, Ratio: ' + f(double(PArmies[1] - PArmies[2]) / PArmies[1]));
-          end
-        end;
-        if (Rank[2] = PMe) then begin
-          if (double(PArmies[1] - MyArmies) / PArmies[1] > 0.20) and (double(PArmies[1] - PArmies[3]) / PArmies[1] > 0.30) then begin
-            KillWP:= False;
-            m2('3 new abort killwp, Ratio: ' + f(double(PArmies[1] - MyArmies) / PArmies[1]));
-          end
-        end;
-      end;
-      {
-      if KillWP then begin
-        MyArmies:= PArmiesCount(PMe) + PNewArmies(PMe) - (PArmiesCount(WP)) + TIV;
-        if MyArmies + 10 <= PArmies[(SAlivePlayersCount div 2) + 1] then begin
-          KillWP:= False;
-          m2('4 new abort Killwp, MyArmies: ' + i(myArmies) + ' PArmies[(SAlivePlayersCount div 2) + 1] ' + i(PArmies[(SAlivePlayersCount div 2) + 1]));
-        end;
-      end;
-      }
-    end;
-
-    If GameHasOneHuman(P) and KillWP then begin
-      if PathCostTotal > 0 then begin
-        if KillValue + 5 < PathCostTotal + PArmiesCount(WP) then begin
-          KillWP:= False;
-          m2('KillWP = false, gamehasonehuman, pathcosttotal > 0');
-        end;
-      end else begin
-        if KillValue + 5 < PArmiesCount(WP) then begin
-          KillWP:= False;
-          m2('KillWP = false, gamehasonehuman, pathcosttotal = 0');
-        end;
-      end;
-    end;
-
-    if KillWP then begin
-      if PArmiesCount(PMe) + TIV - PArmiesCount(WP) - PTerritoriesCount(WP) - PathCostTotal < 20 then begin
-        m2('dont go below 20, killwp = false');
-        KillWP:= False;
-      end;
-      if KillWP then begin
-        MaxTIV:= 0;
-        For P:= 1 to 10 do begin
-          if PAlive(P) and (P <> PMe) and (PCardTurnInValue(P) > MaxTIV) then MaxTIV:= PCardTurnInValue(P);
-        end;
-        if PArmiesCount(PMe) - PTerritoriesCount(PMe) + TIV - PArmiesCount(WP) - PTerritoriesCount(WP) - PathCostTotal < MaxTIV then begin
-          m2('dont go below MaxTIV, killwp = false');
-          KillWP:= False;
-        end;
-      end;
-    end;
-  end;
-
-  if (PArmiesCount(PMe) + PNewArmies(PMe) - PTerritoriesCount(PMe) > PArmiesCount(WP) + PTerritoriesCount(WP) + 5) then begin
-
-    if (SAlivePlayersCount = 4) and (PCardCount(Pme) + PCardCount(WP) >= 5) then begin
-      cRankSort(rank, parmies, myarmies);
-      For x:= 1 to saliveplayerscount do l('Rank ' + i(x) + ': ' + PName(Rank[x]) + ' Armies: ' + i(PArmies[x]));
-
-      MyArmies:= PArmiesCount(PMe) + PNewArmies(PMe) - (PArmiesCount(WP) + PTerritoriesCount(WP) + 5)
-       + trunc(double(PCardCount(PMe) + PCardCount(WP))/3 * double(TIV));
-      x:= 0;
-      For P:= 1 to 10 do Rank[P]:= 0;
-      For P:= 1 to 10 do begin
-        if (PArmiesCount(P) > 0) and (not (P = WP)) then begin
-          x:= x + 1;
-          Rank[x]:= P;
-          PArmies[x]:= PArmiesCount(Rank[x]) + trunc(double(PCardCount(Rank[x]))/3 * double(PCardTurnInValue(Rank[x])));
-        end;
-      end;
-      APC:= SAlivePlayersCount - 1;
-      For x:= 1 to APC - 1 do begin
-        For x1:= x + 1 to APC do begin
-          if Rank[x1] = PMe then PArmiesX1:= MyArmies else PArmiesX1:= PArmies[x1];
-          if Rank[x] = PMe then PArmiesX:= MyArmies else PArmiesX:= PArmies[x];
-          if PArmiesX1 > PArmiesX then begin
-            temp:= Rank[x];
-            Rank[x]:= Rank[x1];
-            Rank[x1]:= temp;
-            temp:= PArmies[x];
-            PArmies[x]:= PArmiesX1;
-            PArmies[x1]:= temp;
-          end;
-        end;
-      end;
-      for x:= 1 to APC do begin
-        if Rank[x] <> PME then l('Rank ' + i(x) + ': ' + PName(Rank[x]) + ' Armies: ' + i(PArmies[x]));
-        if Rank[x] = PME then l('Rank ' + i(x) + ': ' + PName(Rank[x]) + ' Armies: ' + i(MyArmies));
-      end;
-      //m2('check ranks');
-
-      if Rank[1] = PMe then KillWP:= True;
-      if (Rank[2] = PMe) and (MyArmies > trunc(0.75 * double(PArmies[1]))) then KillWP:= True;
-      //if (Rank[3] = PMe) and (PArmies[2] > trunc(0.9 * double(PArmies[1]))) and (PArmies[3] > trunc(0.5 * double(PArmies[1]))) then KillWP:=True;
-    end;
-
-    if SAlivePlayersCount = 3 then begin
-      For P:= 1 to 3 do if (Rank[P] <> PMe) and (Rank[P] <> WP) then OP:= Rank[P];
-      l('OP: ' + PProgram(OP));
-      If (pos('09', lowercase(PProgram(OP))) > 0) then TM:= 0.9 else TM:= 1.05;
-      l('my total: ' + i(PArmiesCount(PME) - PTerritoriesCount(PMe) - ( PArmiesCount(WP) + PTerritoriesCount(WP) )
-       + trunc( double( PCardCount(Pme) + PCardCount(WP) + 1 )/3 * double(TIV) )));
-      l('OPs total: ' + i(trunc( TM * double( PArmiesCount(OP) + trunc( double( PCardCount(OP) )/3 * double(PCardTurnInValue(OP)) ) ) )));
-      if ( PArmiesCount(PME) + PNewArmies(PMe) - PTerritoriesCount(PMe) - ( PArmiesCount(WP) + PTerritoriesCount(WP) )
-       + trunc( double( PCardCount(Pme) + PCardCount(WP) + 1 )/3 * double(TIV) )
-       >  trunc( TM * double( PArmiesCount(OP) + trunc( double( PCardCount(OP) )/3 * double(PCardTurnInValue(OP)) ) ) ) ) and (PCardCount(OP) < 3)
-      then begin
-        KillWP:= True;
-        if m2('1 SAPC = 3 killwp ' + pprogram(WP)) then exit;
-      end else begin
-        if (PCardCount(Pme) + PCardCount(WP) >= 5) and (PArmiesCount(WP) + PTerritoriesCount(WP) < (PArmiesCount(PMe) + PNewArmies(PMe) - PTerritoriesCount(PMe)) div 10) then begin
-          KillWP:= True;
-          if m2('2 SAPC = 3 killwp ' + pprogram(WP)) then exit;
-        end;
-      end;
-    end;
-
-  end;
-end;
-
-
-procedure Assignment(var ToTerritory: integer);
-var
-  T: integer;
-begin
-  // find the first free territory
-  ToTerritory:= 0;
-  T:= 1;
-  repeat
-    if TOwner(T)= 0 then
-      ToTerritory:= T;
-    T:= T + 1;
-  until (ToTerritory > 0) or (T > 42);
-end;
-
-{-------------------------------Placement---------------------------------------------------------------}
-
-procedure Placement(var ToTerritory: integer);
-var
-  Extra2, Extra, BT1,  Total, B, C, BT, Y, CTArmies, Ts, MostFronts, TWF, WF,
-  T1, WP, Enough, TT, iNode, iChild, PL, Count, MaxC, WFA, CForce, x, T, ET,
-  iChild1, oMaxArmy, MinCost, Armies, TotalNeeded, TotalCost, PlaceTCount, PAC, EAC,
-  TTNeeds1, PathCostTotal, MaxArmyWillUse, MaxArmy1, MinEA, PathCost, MaxArmy, EA, Cost: integer;
-
-  EA1, Rank, Army: array of integer;
-  HasEnough: array of boolean;
-  AddTemp: array [1..42] of boolean;
-  TCanTake: array [1..42] of integer;
-
-  TCis2, KillWP, Abort, IncreaseExtra, go: boolean;
-
-  aNode: array [1..42] of record
-    bClosed: boolean;
-    bOpen: boolean;
-    bTotalEA: integer;
-    PathCost: integer;
-    Parent: integer;
-  end;
-  bNode: array [1..42] of record
-    Closed: boolean;
-    Open: boolean;
-  end;
-
-begin
-  if bg(152) = 0 then utakesnapshot('begin placement');
-  bs(152, 1);
-  //m2('pl pause');
-  bs(88, 0);
-  bs(87, 0);
-
-  ToTerritory:=0;
-  ArmySort(Army);
-  ConquestForce(CForce);
-
-  if PNewArmies(Pme) = 1 then begin
-    bs(57, 1);
-  end else bs(57, 0);
-
-  if bg(300) = 1 then begin
-    x:= 300;
-    Repeat
-      x:= x + 1;
-      if bg(x) > 0 then begin
-        ToTerritory:= x - 300;
-        bs(x, bg(x) - 1);
-        if bg(x) = 0 then bs(x, -1);
-        m2('place to ' + i(toterritory) + 'new bgx ' + i(bg(x)));
-      end;
-      if bg(x) < -100 then begin
-        ToTerritory:= x - 300;
-        bs(x, bg(x) + 1);
-        m('TCis2, place to ' + i(toterritory) + 'new bgx ' + i(bg(x)));
-      end;
-    Until (ToTerritory > 0) or (x = 342);
-    if PNewArmies(PMe) = 1 then bs(300, 0);
-    if (ToTerritory = 0) and (PNewArmies(PMe) > 1) then bs(300, 2);
-    if PNewArmies(PMe) = 1 then bs(300, 0);
-    if ToTerritory > 0 then exit;
-  end;
-  if bg(300) = 2 then begin
-    //m2('begin extra part');
-    y:= 0;
-    Repeat
-      x:= 300;
-      y:= y - 1;
-      Repeat
-        x:= x + 1;
-        if bg(x) = y then begin
-          ToTerritory:= x - 300;
-          if m2('place an extra on ' + i(x-300) + ', bgX ' + i(bg(x))) then exit;
-          bs(x, bg(x) - 1);
-        end;
-      Until (ToTerritory > 0) or (x = 342);
-      if (y = -3) and (ToTerritory = 0) then begin
-        x:= 300;
-        Repeat
-          x:= x + 1;
-          if (bg(x) = -100) then begin
-            ToTerritory:= x - 300;
-            bs(x, bg(x) + 1);
-            if m2('place an extra extra on ' + i(x-300) + ', bgX ' + i(bg(x))) then exit;
-          end;
-        Until (ToTerritory > 0) or (x = 342);
-      end;
-    Until (ToTerritory > 0) or (y = -3);
-    if (ToTerritory = 0) or (PNewArmies(PMe) = 1) then bs(300, 0);
-    if ToTerritory > 0 then exit;
-  end;
-
-  if (bg(52) > 0) and (TOwner(bg(52)) <> PMe) then begin
-    UTakeSnapshot('i dont own buffer 52');
-    m2(' i dont own buffer 52');
-  end;
-  if (bg(52) > 0) and (TOwner(bg(52)) = PMe) then begin
-    m2('bg52 ' + i(bg(52)) + ' bg 151 ' + i(bg(151)) + ' bg58 ' + i(bg(58)) + ' bg56 ' + i(bg(56)));
-    if (TArmies(bg(52)) < bg(58)) or (bg(56) > 11) then begin // for kill last player placement
-      ToTerritory:= bg(52);
-      if bg(151) = 1 then begin
-        bs(151, 0);
-        bs(52, 0);
-      end;
-      if bg(151) > 0 then bs(151, bg(151) - 1);
-      if PNewArmies(PMe) = 1 then begin
-        bs(52, 0);
-        if bg(151) > 0 then m2('place to kill player error, bg151: ' + i(bg(151)));
-        bs(151, 0);
-        bs(56, 0);
-        bs(58, 0);
-      end;
-    end else bs(52, 0);
-    if ToTerritory > 0 then exit;
-  end;
-
-  //UTakeSnapshot(' kill last player placement ');
-{----------------------------Kill Last Player Placement-------------------------------------------------------}
-  KillBoth:= False;                                                  // in case the placement proc determined that I can't kill the WP
-  if (SAlivePlayersCount = 3) then begin
-    PAC:= 0;
-    EAC:= 0;
-    For T:= 1 to 42 do begin
-      if TIsFront(T) and (TArmies(T) > 1) then PAC:= PAC + TArmies(T) - 1;
-      if TOwner(T) <> PMe then EAC:= EAC + TArmies(T) + 1;
-    end;
-    if PAC + PNewArmies(PMe) > EAC + 10 then begin
-      m2('Place to kill both');
-      KillBoth:= True;
-    end;
-  end;
-  If (SAlivePlayersCount = 2) or KillBoth or (bg(64) = 100) then begin
-    //if (bg(52) > 0) and ( (TArmies(bg(52)) < bg(58)) or (bg(56) > 11) ) and (TOwner(bg(52)) = PMe) then ToTerritory:= bg(52) else begin
-    bs(52, 0);
-    Extra2:= bg(56);
-    ArmySort(Army);
-    setarraylength(HasEnough, 43);
-    for x:= 1 to 42 do HasEnough[x]:= False;
-    //a:= 0;
-    Repeat
-      MaxC:= 0;
-      IncreaseExtra:= True;
-      //a:= a + 1;
-      for Y:= 1 to PTC do begin
-      //m('Army[Y] ' + i(Army[Y]));
-      //m('cforce ' + i(Cforce));
-        If TIsFront(Army[y]) then begin
-          go:= True;
-          if Y > 1 then for x:= Y-1 downto 1 do
-           if HasEnough[Army[x]] then if TsAreConnected(0, Army[y], Army[x]) then go:= False;
-
-          if go then begin
-            Total:= 0;
-            For B:= 1 to TFrontsCount(Army[y]) do begin
-              BT:= TFront(Army[y], B);
-              go:= True;
-              if B > 1 then for x:= B-1 downto 1 do begin
-                BT1:= TFront(Army[y], x);
-                if TsAreConnected(0, BT, BT1) then go:= False;
-              end;
-              If go then begin
-                AddConnectedTsArmies(Army[y], BT, CTArmies, Ts);
-                Total:= Total + CTArmies; // CTArmies now includes the value Ts
-              end;
-            end;
-            Extra:= Ts div 3;
-            if Extra < 2 then Extra:= 2;
-            enough:= Total + Extra + Extra2;
-            if TArmies(Army[y]) < enough then begin
-              IncreaseExtra:= False;
-              TStrongestFront(Army[y], ET , EA);
-              if (EA < CForce) and (not (TArmies(Army[y]) = 1)) then begin
-                ToTerritory:= Army[y];
-                bs(52, ToTerritory);
-                bs(58, Enough);
-                m('EA < Cforce, TT: ' + i(ToTerritory));
-                exit;
-              end else begin
-                // place on the T with the best chance to take as many T's as possible
-                C:= 0;
-                For T:= 1 to 42 do begin
-                  if (not TIsMine(T)) then begin
-                    if (TArmies(T) < CForce) then begin
-                      if QTWeakestPath(Army[y], T, 0, TT, PL, EA) then begin
-                        if EA < CForce then C:= C + 1;
-                      end;
-                    end;
-                  end;
-                end;
-                if (C > MaxC) then begin
-                  MaxC:= C;
-                  ToTerritory:= Army[y];
-                  bs(52, ToTerritory);
-                  bs(58, Enough);
-                  m('MAxC, TT: ' + i(ToTerritory));
-                end;
-              end;
-            end else begin
-              HasEnough[Army[y]]:= True;
-            end;
-          end;
-        end;
-      end;
-      If ToTerritory = 0 then begin
-        TWithWeakestFront(TWF, WF, WFA);
-        if CForce < WFA then CForce:= WFA + 1 else
-         CForce:= ((CForce * 12) div 10) + 1;
-        if IncreaseExtra then Extra2:= Extra2 + 4;
-        bs(56, Extra2);
-      end;
-    Until (ToTerritory > 0);// or ( a = 5);
-    //end;
-    if Extra2 >= 12 then bs(52, ToTerritory);
-    if PNewArmies(PMe) = 1 then begin
-      bs(52, 0);
-      bs(56, 0);
-      bs(58, 0);
-    end;
-    //l('Last Player Placement, ToTerritory: ' + i(ToTerritory) + ' PNewArmies ' + i(PNewArmies(PMe)));
-    exit;
-  end;
-
-{--------------------------Place to help kill a player-----------------------------------------------------}
-  //if bg(59) = 0 then UTakeSnapshot('begin placement');
-  if (bg(59) = 0) and (PTerritoriesCount(PMe) > 1) then begin
-    bs(89, 0);
-    RankSort(Rank);
-    Extra:= bg(56);
-
-    if (Rank[SAlivePlayersCount] <> PMe) then begin
-      WP:= Rank[SAlivePlayersCount];
-      PathCostTotal:= 0;
-      KillWeakPlayerCheck(WP, PathCostTotal, KillWP, Rank);
- //    killwp:= true;
-      If KillWP then begin
-       // UTakeSnapshot('place to help kill a player');
-         For x:= 300 to 342 do bs(x, 0);
-      l('killwp = true, max that combined pathcosts can be: ' + i((PArmiesCount(PME) +  PNewArmies(PMe) - PTerritoriesCount(PMe)) - (PArmiesCount(WP) + PTerritoriesCount(WP))));
-
-        Abort:= False;
-        for T:= 1 to 42 do begin
-          AccountedFor[T]:= false;
-          TCanTake[T]:= 0;
-          TTNeeds[T]:= 0;
-        end;
-        PlaceTCount:= 0;
-        TotalNeeded:= 0;
-
-        MaxArmy:= Army[1];
-        Repeat
-          l('MaxArmy ' + i(MaxArmy));
-          aNode[MaxArmy].bTotalEA:= 0;
-
-          for T:= 1 to 42 do begin
-            with aNode[T] do begin
-              bClosed := false;
-              bOpen:= false;
-              PathCost:= 0;
-              Parent:= 0;
-            end;
-            AddTemp[T]:= false
-          end;
-
-          aNode[MaxArmy].bopen := True;
-
-          Repeat
-            T1:= 0;
-            iNode:= 0;
-            repeat
-              T1:= T1 + 1;
-              if aNode[T1].bopen and not aNode[T1].bClosed then begin
-                iNode:= T1;
-              end;
-            until (iNode > 0) or (T1 = 42);
-
-        //    m2('iNode ' + i(inode));
-            if iNode <> 0 then begin
-              for B:= 1 to TBordersCount(iNode) do begin
-                iChild:= TBorder(iNode, B);
-                if iChild = MaxArmy then continue;
-
-         //       if m2('before, inode ' + i(inode) + ' inode pathcost ' + i(anode[inode].pathcost) + ' ichild ' + i(ichild) + ' pathcost ' + i(anode[ichild].pathcost)) then exit;
-                if (TOwner(iChild) <> PMe) then begin
-                  if (TOwner(iChild) <> WP) then PathCost:= aNode[iNode].PathCost + TArmies(iChild) + 1 else
-                   PathCost:= aNode[iNode].PathCost;
-                  if (not aNode[iChild].bOpen) or (PathCost < aNode[iChild].PathCost)
-                   or ((PathCost = aNode[iChild].PathCost) and (TOwner(aNode[iChild].Parent) <> WP)
-                   and (TOwner(iNode) = WP) {and (TOwner(iChild) <> PMe)} and (aNode[iChild].Parent <> MaxArmy)
-                   and (aNode[iNode].parent <> iChild)) then begin
-                    //if m2('inode ' + i(inode) + ' ichild ' + i(ichild) + ' pathcost ' + i(pathcost) + ' ichild parent: ' + i(anode[ichild].parent)) then exit;
-           //         l('inode ' + i(inode) + ' ichild ' + i(ichild) + ' pathcost ' + i(pathcost) + ' ichild parent: ' + i(anode[ichild].parent));
-
-                    aNode[iChild].Parent:= iNode;
-                    aNode[iChild].PathCost:= PathCost;
-                    aNode[iChild].bClosed:= false;
-                    //if m2('un-close ' + i(ichild)) then exit;
-                  end;
-
-                end;
-           //     if m2('after, inode ' + i(inode) + ' ichild ' + i(ichild) + ' pathcost ' + i(anode[ichild].pathcost) + ' ichild parent: ' + i(anode[ichild].parent)) then exit;
-                if aNode[iChild].PathCost <=          // do not include the value totalneeded here
-                (PArmiesCount(PME) +  PNewArmies(PMe) - PathCostTotal - PTerritoriesCount(PMe)) - (PArmiesCount(WP) + PTerritoriesCount(WP)) then begin
-                  if TOwner(iChild) <> PMe then begin
-                    if (not aNode[iChild].bOpen) and (not aNode[iChild].bClosed) and (not AccountedFor[iChild]) then begin
-                      aNode[iChild].bOpen:= true;
-                      aNode[MaxArmy].bTotalEA:= aNode[MaxArmy].bTotalEA + TArmies(iChild) + 1;
-                      if TOwner(iChild) = WP then AccountedFor[iChild]:= True;
-                    end;
-                  end;
-                end;
-              end;
-              aNode[iNode].bClosed := true;
-            end;
-          until (iNode = 0);
-
-          //if m2('3 start new part, T ' + i(MaxArmy)) then exit;
-          Repeat
-            For iChild:= 1 to 42 do begin
-              if aNode[iChild].bOpen and (TOwner(iChild) = WP) then begin
-              //  l('ichild ' + i(ichild) + ' pathcost ' + i(anode[ichild].pathcost));
-                if aNode[iChild].PathCost > ( (PArmiesCount(PME) +  PNewArmies(PMe) - PTerritoriesCount(PMe))
-                 - (PArmiesCount(WP) + PTerritoriesCount(WP)) ) div 2 then begin
-                  l('1, ichild ' + i(ichild));
-                  if PlaceToKillPlayer2(WP, iChild, PathCostTotal, Cost, MaxArmy1) then begin
-                    l('2, ichild ' + i(ichild) + ' cost ' + i(cost) + ' PathCost ' + i(anode[ichild].pathcost) + ' maxarmy1 ' + i(maxarmy1) + ' maxarmy ' + i(maxarmy));
-                    if (MaxArmy1 <> MaxArmy) then begin
-                      aNode[iChild].bOpen:= false;
-                      AccountedFor[iChild]:= false;
-                      l('3, ichild removed, ' + i(ichild));
-
-                      // removed any of WP's Ts that are connected
-                      for T:=1 to 42 do begin
-                        with bNode[T] do begin
-                          Closed := false;
-                          Open:= false;
-                        end;
-                      end;
-
-                      bNode[iChild].open := True;
-                      Repeat
-                        T:= 0;
-                        iNode:= 0;
-                        repeat
-                          T:= T + 1;
-                          if bNode[T].Open and not bNode[T].Closed then begin
-                            iNode:= T;
-                          end;
-                        until (iNode > 0) or (T = 42);
-
-                        if iNode <> 0 then begin
-                          for B:= 1 to TBordersCount(iNode) do begin
-                            iChild1:= TBorder(iNode, B);
-                            if TOwner(iChild1) <> WP then Continue;
-
-                            if ((not bNode[iChild1].Open) and (not bNode[iChild1].Closed)) then begin
-                              l('4, ichild1 removed, ' + i(ichild1));
-                              aNode[iChild1].bOpen:= false;
-                              AccountedFor[iChild1]:= false;
-                              bNode[iChild1].Open:= true;
-                            end;
-                          end;
-                          bNode[iNode].Closed := true;
-                        end;
-
-                      until (iNode = 0);
-
-                      Break;
-                    end;
-                  end;
-                end;
-              end;
-            end;
-          Until iChild = 43;
-
-          For x:= 1 to 42 do AddTemp[x]:= false;
-          For x:= 1 to 42 do begin
-            if aNode[x].bOpen and (TOwner(x) = WP) then begin
-              AddTemp[x]:= True;
-              iNode:= x;
-              while (aNode[iNode].Parent > 0) do begin
-                AddTemp[iNode]:= True;
-          //      if m2('inode ' + i(inode) + ' parent ' + i(aNode[iNode].parent)) then exit;
-                //l('inode ' + i(inode) + ' parent ' + i(aNode[iNode].parent));
-                iNode := aNode[iNode].Parent;
-              end;
-            end;
-          end;
-
-          TotalCost:= 0;
-          ET:= 0;
-          For x:= 1 to 42 do begin
-            if AddTemp[x] then begin
-              TotalCost:= TotalCost + TArmies(x) + 1;
-              if TOwner(x) <> WP then PathCostTotal:= PathCostTotal + TArmies(x);
-              ET:= ET + 1;  // have to count ET here, not above because .parent = 0 whenever you get to the first WP ET that is connected to ST
-            end;
-          end;
-          TCis2:= False;
-          if TotalCost = 2 then begin
-            TCis2:= True;
-            TotalCost:= 3;
-          end else TotalCost:= TotalCost + 3 + (ET div 3) + extra;
-          //if m2('total cost: ' + i(Totalcost)) then exit;
-          l('total cost: ' + i(Totalcost));
-
-           //if m2('4 start new part, T ' + i(MaxArmy)) then exit;
-          TCanTake[MaxArmy]:= aNode[MaxArmy].bTotalEA - (TArmies(MaxArmy) - 1);
-          if TotalCost > (TArmies(MaxArmy) - 1) + PNewArmies(PMe) then abort:= true else begin
-            TTNeeds[MaxArmy]:= TotalCost;
-            if TotalCost > (TArmies(MaxArmy) - 1) then begin
-              PlaceTCount:= PlaceTCount + 1;
-              ToTerritory:= MaxArmy;
-              bs(300, 1);
-              if TCis2 then bs(300 + MaxArmy, -103) else bs(300 + MaxArmy, TotalCost - (TArmies(MaxArmy) - 1));
-           //   m3('bg 300 + maxarmy: ' + i(bg(300+maxarmy)));
-              TotalNeeded:= TotalNeeded + TotalCost - (TArmies(MaxArmy) - 1);
-            end;
-          end;
-          //if m2('5 start new part, T ' + i(MaxArmy)) then exit;
-          // find a new T that might need more armies
-
-          if abort then l('abort, TotalCost > (TArmies(MaxArmy) - 1) + PNewArmies(PMe)') else begin
-            if TotalNeeded > PNewArmies(PMe) then begin
-              abort:= true;
-              l('abort, TotalNeeded > PNewArmies');
-            end;
-          end;
-
-          oMaxArmy:= MaxArmy;
-          MaxArmy:= 0;
-          C:= 0;
-          T:= 0;
-          if not abort then begin
-            MinCost:= 0;
-            Repeat
-              T:= T + 1;
-              if (TOwner(T) = WP) and (not AccountedFor[T]) then begin
-                C:= C + 1;
-                l('find next maxarmy, T ' + i(t));
-                if PlaceToKillPlayer2(WP, T, PathCostTotal, Cost, MaxArmy1) then begin
-                  if ((Cost < MinCost) or (MinCost = 0)) and (not (MaxArmy1 = oMaxArmy)) then begin
-                    MinCost:= Cost;
-                    MaxArmy:= MaxArmy1;
-                    m2('find next maxarmy, MaxArmy: ' + i(maxarmy) + ' cost ' + i(cost));
-                  end;
-                end;
-              end;
-              //if m2('end of repeat2, T ' + i(T) + ' maxarmy ' + i(maxArmy)) then exit;
-            Until (MaxArmy > 0) or (T = 42);
-          end;
-          if (MaxArmy = 0) and (C > 0) then begin
-            Abort:= True;
-            bs(89, WP); // tell the attack proc that i can't kill WP until i get more armies to place
-            m2('bs89, cant find then next maxArmy');
-          end;
-         // if m2('end of repeat3') then exit;
-        //if abort then l('maxarmy ' + i(maxarmy) + ' abort ');
-        Until (MaxArmy = 0) or abort;
-      end; // end If KillWP
-    end;
-    l('************* total needed ' + i(totalneeded) + ' place T count ' + i(PlaceTCount));
-    if ((PNewArmies(PMe) < TotalNeeded) and (PNewArmies(PMe) > 1)) or Abort then begin
-      ToTerritory:= 0;
-      bs(300, 0);
-      l('cancel place to kill player, dont have enough armies, total needed: ' + i(totalneeded) + ' or abort=true');
-    end;
-    //if (ToTerritory > 0) and (PNewArmies(PMe) - TotalNeeded > 0) and (PlaceTCount = 1) then begin
-    //  bs(56, bg(56) + 1);
-    //end;
-    if ToTerritory > 0 then begin
-      m2('pathcostTotal ' + i(PathCostTotal));
-      KillWeakPlayerCheck(WP, PathCostTotal, KillWP, Rank);
-      if not KillWP then begin
-        ToTerritory:= 0;
-        bs(300, 0);
-        bs(89, WP);
-        m2('cancel place to kill player, pathcost too high, set buffer 89');
-      end;
-    end;
-
-    PathCostTotal:= 0;
-    if ToTerritory > 0 then begin
-      bs(ToTerritory + 300, bg(ToTerritory + 300) - 1);
-      //if TTNeeds[ToTerritory] - (TArmies(ToTerritory) - 1) > 1 then begin
-      //  bs(52, ToTerritory);
-      //  bs(151, TTNeeds[ToTerritory] - (TArmies(ToTerritory) - 1) - 1); // subtract an additional army to account for the one being placed with this call
-      //end;
-      m2('kill player placement, TT: ' + i(ToTerritory) + ', total needed: ' + i(TotalNeeded) + ', extra: ' + i(extra) + ', PNewArmies: ' + i(PNewArmies(PMe)));
-      //if PNewArmies(PMe) = 1 then bs(56, 0);
-      //if bg(56) > 3 then bs(56, 0);
-      exit;
-    end;
-    //m2('blasphemy');
-    if SAlivePlayersCount = 3 then begin
-      if AddConnectedArmies(0, Army[1], Armies, Ts) then begin
-        if Armies + Ts + 5 < TArmies(Army[1]) - 1 then begin
-          For T:= 1 to 42 do begin
-            if (TCanTake[T] > 0) and (T <> Army[1]) then begin
-              ToTerritory:= T;
-              if TCanTake[T] - 1 >= PNewArmies(PMe) - 1 then bs(151, PNewArmies(PMe) - 1) else bs(151, TCanTake[T] - 1);
-              if bg(151) > 0 then bs(52, ToTerritory);
-              bs(59, 0); // run the code again in case there are more T that can take armies
-              m2('army1 has enough, place to : ' + i(toterritory));
-              exit;
-            end;
-          end;
-        end;
-      end;
-    end;
-    bs(59, 1); // don't run this code again
-  end;
-  if PNewArmies(PMe) = 1 then bs(59, 0);
-
-{--------------------------Regular Placement---------------------------------------------------------------}
-
-  if  not SCardsBasedOnCombo then begin
-    if (bg(53) = 0) or (bg(53) <> TIV) then begin
-      bs(55, TIV-bg(53)); // stores the change in CTIV
-      bs(53, TIV);  // stores my card turn in value
-      bs(54, 1);    // 1 means cards have been turned in this turn (not currently used)
-    end;
-  end;
-
-  //ConquestForce(CForce);
-  TWithWeakestFront(TWF, WF, WFA);
- // RankSort(Rank);
-
-  // If can't make a good attack then try placing somewhere that can attack
-  If not SCardsBasedOnCombo and (WFA < CForce) and (bg(51) = 1) then begin
-    Count:= 0;
-    //SetArrayLength(ET1, PTC + 1);
-    SetArrayLength(EA1, PTC + 1);
-    For x:= 1 to PTC do begin
-      TWeakestFront(Army[x], ET, EA1[x]);
-      if (ET > 0) and (EA1[x] <= CForce) and ( (TArmies(Army[x]) >= EA1[x] + 5) or ((EA1[x] = 1) and (TArmies(Army[x]) >= 4)) ) then count:= count + 1;
-    end;
-    if count = 0 then begin
-      MinEA:= 0;
-      For x:= 1 to PTC do begin
-        if EA1[x] > 0 then begin
-          if (TArmies(Army[x]) + PNewArmies(PMe) > EA1[x] + 2) and (EA1[x] < CForce) and ( (EA1[x] < MinEA) or (MinEA = 0) ) then begin
-            MinEA:= EA1[x];
-            ToTerritory:= Army[x];
-          end;
-        end;
-      end;
-      if (ToTerritory > 0) and (PNewArmies(PMe) > 1) then begin
-        if (MinEA = 1) and (TArmies(ToTerritory) < 4) then begin
-          TTNeeds1:= 3 - TArmies(ToTerritory);
-          if TTNeeds1 > 0 then begin
-            bs(52, ToTerritory);
-            bs(151, TTNeeds1);
-          end;
-        end;
-        if (MinEA > 1) then begin
-          TTNeeds1:= (4 + MinEA) - TArmies(ToTerritory);
-          if TTNeeds1 < PNewArmies(PMe) - 1 then begin
-            if TTNeeds1 < 0 then TTNeeds1:= 0;
-            bs(151, TTNeeds1);
-          end;
-          if TTNeeds1 > 0 then bs(52, ToTerritory);
-        end;
-        m2('place to get card, TT ' + i(ToTerritory) + ', buffer 151: ' + i(bg(151)));
-        exit;
-      end;
-    end;
-  end;
-
-  if ToTerritory = 0 then begin
-    if (not TIsFront(Army[1])) and (PArmiesCount(PMe) > 20) then begin
-      x:= 1;
-      Repeat
-        x:= x + 1;
-        if TIsFront(Army[x]) then ToTerritory:= Army[x];
-      Until ToTerritory > 0;
-
-    end else ToTerritory:= Army[1];
-    {
-    if GameHasNoHumans then begin
-      if (PArmiesCount(Pme) > 50) then begin
-        x:= PTC;
-        Repeat
-          if TArmies(Army[x]) > 5 then begin
-            if not ( (COwner(6) = PMe) and (TContinent(Army[x]) = 6) ) then
-             ToTerritory:= Army[x];
-            //bs(52, ToTerritory);
-          end;
-          x:= x - 1;
-        until (ToTerritory > 0) or (x = 0);
-      end else begin
-        ToTerritory:= Army[1];
-        //bs(52, ToTerritory);
-      end;
-    end else begin
-      if TArmies(Army[2]) > 5 then ToTerritory:= Army[2] else ToTerritory:= Army[1];
-    end;
-    }
-  end;
-
-  if ToTerritory = 0 then begin
-    ToTerritory:= TWF;
-    if PNewArmies(PMe) = 1 then m('backup twf place ' + inttostr(ToTerritory));
-
-    //bs(52, ToTerritory);
-  end;
-
-  {-----------Code for first turn only-----------}
-  if bg(51) = 0 then begin
-    MostFronts:= 0;
-    for T:=1 to 42 do begin
-      if TIsFront(T) then begin
-        if TFrontsCount(T) > MostFronts then begin
-          ToTerritory:=T;
-          MostFronts:=TFrontsCount(T);
-          bs(52, T);
-        end;
-      end;
-    end;
-    bs(51, 1);
-    bs(81, 1);
-    //umessage('first turn');
-  end;
-
-  if PNewArmies(PMe) = 1 then begin
-    bs(52, 0);
-    bs(54, 0); // reset to 0 means cards haven't been turned in this turn
-  end;
-end; // end procedure Placement
-
-{------------------------------------------ATTACK--------------------------------------------------------}
-
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  EA1, SP, WP, P, E, MinArmy, MaxArmy, B, BT, PL, x, Cost, TT, T, ET, EA, MaxCost,
-  C, MinCost, TWF, WF, Y, Armies, WPArmies, NewPArmiesCount, CForce, MaxPArmiesCount,
-  TotalEnemyArmies, Separated, T1, PT, PA, Z, FT, FirstFT, FirstTT, OldMaxCost,
-  Subtract, WFA, APC, MyArmies, OP, total, x1, PArmiesX1, PArmiesX, temp,
-  KillValue, a, bgb, bgb1, bga, LastTT, start, finish, MaxTIV, Extra,
-  oMinArmy, C1, TT2, WFA1, B1, B2, BT2, BT1, QMyAC, QMyTC, Diff, PAC: integer;
-
-  go, Weaken, KillAll, Abort, Human, AttackSP, ATC, KillWP: Boolean;
-  Coef, aPoints, TM, OldMaxPoints, MaxPoints: Double;
-  qmap: String;
-  
-  ReOrder, Rank, Army, PArmies: Array of integer;
-  //Points: double;
-  Points: array of double;
-  SPEntryT: array of boolean;
-
-begin
-  bs(152, 0);
-  //  if not sconquest then if (Not gamehasonehuman(P)) then UAbortGame;
-  SetArrayLength(Points, 43);
-  Weaken1:= False;
-  if ( (TOwner(bg(68)) = PMe) or (TOwner(bg(100)) = PMe) ) and (bg(70) = 0) then begin
-    m('occupation routine not called after a stored attack');
-    bs(73, 0);
-    bs(74, 0);
-    bs(68, 0);
-    bs(69, 0);
-    bs(60, 0); // reset attack determined by attack strong player code
-    bs(100, 0);
-    bs(101, 0);
-  end;
-  bs(70, 0);
-
-  bs(67, 0); // reset stored occupy amount
-  //bs(90, 0); // reset attack determined by continents code
-  bs(92, 0); // reset pottential occupation ToTerritory
-
-
-  if (not (TOwner(bg(91))) = PMe) then bs(91, 0); // reset the last T I occupied in case occupation routine not called again
-  FromTerritory:=0;
-  ToTerritory:=0;
-
-  // Attack until i run out of armies or TArmies(ToTerritory < 3)
-  if bg(98) > 0 then begin
-    if bg(98) > 100 then TT:= bg(98) - 100 else TT:= bg(98);
-    if bg(99) > 100 then FT:= bg(99) - 100 else FT:= bg(99);
-    if (TArmies(TT) > 2) and (TArmies(FT) > 2) and (TOwner(FT) = PMe) and (TOwner(TT) <> PMe) then begin
-      ToTerritory:= TT;
-      FromTerritory:= FT;
-      if bg(85) > 0 then begin
-        bs(85, bg(85) - 1);
-        //l('bg85 ' + i(bg(85)));
-        if bg(85) = 0 then begin
-          m2('2 Done weakening player, TT: ' + i(bg(98)));
-          bs(98, 0);
-          bs(98, 0);
-          bs(85, 0);
-        end;
-      end;
-      exit;
-    end else begin
-      m2('1 Done weakening TT ' + i(bg(98)));
-      bs(85, 0);
-      bs(98, 0);
-      bs(99, 0);
-      bs(68, 0);
-      bs(69, 0); //just in case these were set with the same values on accident
-    //  ResetBuffers;
-    end;
-  end;
-
-  // Repeat the last attack (speeds up performance)
-  if (bg(68) > 0) then begin
-    if (not ( (TArmies(bg(69)) < 4) and (TArmies(bg(68)) > 1) ))
-     and (TArmies(bg(69)) > 1) and (TOwner(bg(69)) = PMe) and (TOwner(bg(68)) <> PMe) then begin
-      if (TArmies(bg(69)) < TArmies(bg(68)) - 5) and (SAlivePlayersCount > 2) then begin
-        m2('not winning this battle, abort stored attack');
-        ResetBuffers;
-      end else begin
-        ToTerritory:= bg(68);               // ^ needed because the occ procedure isn't called when you have no armies to occupy with
-        FromTerritory:= bg(69);             // for final release add an owner check for the fromT
-        exit;
-      end;
-    end else begin
-      if (not(SAlivePlayersCount = 2)) then begin
-        if TOwner(bg(68)) = PMe then m2('bg(68), I own the TT');
-        if (TArmies(bg(69)) < 4) and (TArmies(bg(68)) > 1) then m2('ran out of armies, FT: ' + i(bg(69)));
-      end;
-      ResetBuffers;
-    end;
-  end;
-
- // l('begin attack');
-  // Follow the stored Kill Player path
-  // if I get lucky rolls then sometimes I kill a player even before the path is done so reset if WP is dead (only happens if I have two separate large armies)
-  if (PArmiesCount(bg(63)) = 0) and (bg(400) = 1) then begin
-    m('he is already dead');
-    bs(400, 0);
-    bs(401, 0);
-    bs(63, 0);
-  end;
-  if bg(400) = 1 then begin
-    x:= 402;
-    Repeat
-      x:= x + 2
-      if bg(x) > 0 then begin
-          m('new code');
-        FromTerritory:= bg(x);
-        bs(x, 0);
-        ToTerritory:= bg(x+1);
-        bs(x+1, 0);
-       // l('toterritory ' + i(toterritory));
-        if ToTerritory > 100 then begin
-          FromTerritory:= FromTerritory - 100;
-          ToTerritory:= ToTerritory - 100;
-          if (TArmies(ToTerritory) > 2) and (TArmies(FromTerritory) > 2) then begin
-            //m2('test ');
-            bs(99, FromTerritory);
-            bs(98, ToTerritory);
-            exit;
-          end else begin
-            m2('buffer 98,99 problem, ft ' + i(FromTerritory) + ' TT ' + i(ToTerritory) + ' x ' + i(x));
-            FromTerritory:= 0;
-            ToTerritory:= 0;
-          end;
-        end;
-
-      end;
-    Until (FromTerritory > 0) or (x = bg(401));
-    if (FromTerritory > 0) then begin
-      //if fromterritory = 2 then if m2('pause ft = 2') then exit;
-
-      if //( (TArmies(FromTerritory) < TArmies(ToTerritory)) and (TArmies(ToTerritory) < 15) )
-       //or
-       ( (TArmies(FromTerritory) < 4) and (TArmies(ToTerritory) > 1) )
-       or (TArmies(FromTerritory) = 1)
-       or (not TIsMine(FromTerritory)) or TIsMine(ToTerritory) then begin
-
-
-        m2('end kill player3');
-        FromTerritory:= 0;
-        ToTerritory:= 0;
-        ResetBuffers;
-      end else begin
-        if bg(63) = 0 then m('buffer 63 is 0');
-
-        bs(69, FromTerritory);
-        bs(68, ToTerritory);
-      end;
-    end else begin
-      m2('end kill player4');
-      ResetBuffers;
-    end;
-    if x = bg(401) then begin
-      //m('**** successful kill? ****');
-      bs(400, 0);
-      bs(401, 0);
-    end;
-    if FromTerritory > 0 then begin
-      bs(86, TOwner(ToTerritory));
-      exit;
-    end;
-  end;
-
-  bs(64, 0); // reset attack all players (currently only used when alive players = 2)
-  //bs(77, 0); // reset BestFT (KillPlayerOcc) - only used if BestFT is not connected to TT or FT
-  if bg(400) = 0 then resetBuffers;
-
-  ConquestForce(CForce);
-  RankSort(Rank);
-
-  {-----------------------------------Take South America-------------------------------------------------}
-{
-  if bg(91) > 0 then begin // 91 - the last T I occupied while in take continent mode
-    FT:= bg(91);
-    if TIsMine(FT) and (TArmies(FT) > 1) then begin
-      if (FT = 10) and (not TIsMine(11)) then ToTerritory:= 11;
-      if (FT = 10) and TIsMine(11) and (not TIsMine(12)) then ToTerritory:= 12;
-      if (FT = 11) and (not TIsMine(13)) then ToTerritory:= 13;
-      if (FT = 11) and TIsMine(13) and (not TIsMine(12)) then ToTerritory:= 12;
-      if (FT = 12) and (not TIsMine(13)) then ToTerritory:= 13;
-      if (FT = 12) and TIsMine(13) and (not TIsMine(11)) then ToTerritory:= 11;
-      if (FT = 12) and TIsMine(13) and (not TIsMine(10)) then ToTerritory:= 10;
-      if (FT = 13) and TIsMine(12) and (not TIsMine(11)) then ToTerritory:= 11;
-      if (FT = 13) and TIsMine(11) and (not TIsMine(12)) then ToTerritory:= 12;
-      if ToTerritory > 0 then begin
-        FromTerritory:= FT;
-        bs(92, ToTerritory); // Tell the occupation proc to set buffer 91 to this value
-        bs(90, 1); // tell the occupation proc what code to use
-        l('used new SA code');
-      end;
-    end;
-    if TArmies(FT) = 1 then bs(91, 0); // reset the last T I occupied
-    if FromTerritory > 0 then exit;
-  end;
-
-  C:= 2;
-  If (SAlivePlayersCount < 5) and (SAlivePlayersCount > 2) and (CPT(C) = 0) then begin
-    Count:= 0;
-
-    For P:= 1 to 10 do begin
-      if PAlive(P) then begin
-        If (pos('descartes', lowercase(PProgram(P))) > 0) or
-         (pos('zotob', lowercase(PProgram(P))) > 0)
-         then Count:= Count + 1;
-      end;
-    end;
-
-    if Count = 0 then begin
-      MinCost:= TIV;
-      For T:= 1 to 42 do begin
-        if TIsFront(T) and (TArmies(T) > TIV) then begin
-          if QTWeakestPath(T, 12, TT, PL, EA) and (T <> 12) then begin
-            Cost:= EA + PL + CEA(C);
-            if ((Cost < MinCost) or (MinCost = 0)) and (Cost < TArmies(T)) then begin
-              MinCost:= Cost;
-              FromTerritory:= T;
-              ToTerritory:= TT;
-            end;
-          end;
-          if QTWeakestPath(T, 10, TT, PL, EA) and (T <> 10) then begin
-            Cost:= EA + PL + CEA(C);
-            if ((Cost < MinCost) or (MinCost = 0)) and (Cost < TArmies(T)) then begin
-              MinCost:= Cost;
-              FromTerritory:= T;
-              ToTerritory:= TT;
-              //if fromterritory = 10 then m('tt ' + i(TT) + ' PL ' + i(pl) + ' ea ' + i(ea));
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  If (FromTerritory > 0) and (ToTerritory > 0) then begin
-    bs(90, 1);
-    if TArmies(ToTerritory) < 3 then l('take SA code ft: ' + i(FromTerritory) + ' TT: ' + i(ToTerritory));
-    exit
-  end;
-}
-
-  If (bg(64) = 100) or (SAlivePlayersCount = 2) then begin
-    For P:= 1 to 10 do if (P <> PMe) and PAlive(P) then WP:= P;
-    //bs(64, 100);
-    bs(63, WP);
-    if (bg(73) > 0) then begin // and (TArmies(bg(73)) > 1) and TIsMine(bg(73)) then begin // tarmies can be 1 or 2 when occupation routine is not called because the fromterritory has no armies with which to occupy
-      FromTerritory:= bg(73);
-      //KillPlayerAttack2(bg(74), FT, TT);
-      //if TT = 0 then FT:= 0;
-      ToTerritory:= bg(74);
-      if FromTerritory > 0 then m('1 buffer 73 code, FT: ' + i(FT) + ' TT: ' + i(TT));
-    end else begin
-      InitializeQMap;
-      KillWeakestPlayer(WP, 0, FT, TT);
-      if FT > 100 then FT:= FT - 100;
-      if TT > 100 then TT:= TT - 100;
-      FromTerritory:= FT;
-      ToTerritory:= TT;
-    end;
-    bs(87, TOwner(ToTerritory));
-    bs(68, ToTerritory);
-    bs(69, FromTerritory);
-    exit;
-  end;
-
-
-  //if (bg(94) = 0) then begin
-  if FromTerritory = 0 then begin
-    ArmySort(Army);
-    RankSort(Rank);
-    if Rank[SAlivePlayersCount] <> PMe then begin
-      WP:= Rank[SAlivePlayersCount];
-
-      y:= 0;
-      Z:= 0;
-     // OldMaxCost:= MaxCost;
-      Repeat
-        if (y = 1) then begin
-          l('************************************************************second weakest');
-          if (Rank[SAlivePlayersCount - 1] <> PMe) then WP:=Rank[SAlivePlayersCount - 1] else break;
-        end;
-        l('bg89 ' + i(bg(89)) + ' bg88 ' + i(bg(88)) + ' bg87 ' + i(bg(87)));
-        if (not ( (WP = bg(89)) or (WP = bg(88)) or (WP = bg(87)) )) then begin
-          KillWeakPlayerCheck(WP, 0, KillWP, Rank);
-        end;
-        if (y = 2) then begin
-          if GameHasOneHuman(P) then begin
-            WP:= P;
-            If (PArmiesCount(PMe) + PNewArmies(PMe) - PTerritoriesCount(PMe) > PArmiesCount(WP) + PTerritoriesCount(WP))
-            then begin
-              KillWP:= True;
-              m2('attempt kill human');
-            end;
-          end;
-        end;
-
-{
-for p:= 1 to 10 do if (pos('frank', lowercase(PProgram(P))) > 0) and PAlive(p) then begin
-  killwp:= true;
-  WP:= P;
-end;
-}
-        Repeat
-          Z:= Z + 1;
-          If KillWP then begin
-            bs(86, 0);  // reset Owner of ToTerritory
-            bs(77, 0);   // reset bestFT
-            bs(79, 0);
-            bs(80, 0);
-            bs(82, 0);
-            //UTakeSnapShot('killwp, ' + PName(wp) + ' turn: ' + i(bg(81)));
-            KillBoth:= False;                                                  // in case the placement proc determined that I can't kill the WP
-            if (SAlivePlayersCount = 3) and (Rank[1] = PMe) and (Z = 1) and (bg(89) = 0) then begin
-              PAC:= 0;
-              For T:= 1 to 42 do if TIsFront(T) and (TArmies(T) > 1) then PAC:= PAC + TArmies(T) - 1;
-              if PAC > PArmiesCount(Rank[2]) + PTerritoriesCount(Rank[2]) + PArmiesCount(Rank[3]) + PTerritoriesCount(Rank[3]) + 5 then begin
-                m2('try to kill both');
-                KillBoth:= True;
-                InitializeQMapKillBoth(WP);
-                WPArmies:= PArmiesCount(Rank[2]) + PArmiesCount(Rank[3]);
-              end;
-            end;
-            if not KillBoth then begin
-              Z:= Z + 1;
-              InitializeQMap;
-              WPArmies:= PArmiesCount(WP);
-            end;
-  //          FirstFT:= 0;
-  //          FirstTT:= 0;
-            l('');
-            l('WP= ' + PName(WP));
-            x:= 400;
-            //c:= 0;
-            LastTT:= 0;
-            Repeat
-              x:= x + 2;
-              FT:= 0;
-              TT:= 0;
-                // sometimes the occupation routine determines where the next attack should be and stores it in buffer 73
-              if (bg(73) > 0) then begin // and (TArmies(bg(73)) > 1) and TIsMine(bg(73)) then begin // tarmies can be 1 or 2 when occupation routine is not called because the fromterritory has no armies with which to occupy
-                FT:= bg(73);
-                //KillPlayerAttack2(bg(74), FT, TT);
-                //if TT = 0 then FT:= 0;
-                TT:= bg(74);
-                if FT > 0 then m('2 buffer 73 code, FT: ' + i(FT) + ' TT: ' + i(TT));
-              end;
-              if FT = 0 then begin
-                bs(98, 0);
-                bs(99, 0);
-                KillWeakestPlayer(WP, LastTT, FT, TT);
-                if (FT = 0) and (LastTT > 0) then KillWeakestPlayer(WP, 0, FT, TT);
-                LastTT:= 0;
-                          l('ft ' + i(ft) + ' tt ' + i(tt));
-                //if (QTArmies[FT] = 2) and (QTArmies[TT] = 1) then begin
-                 // m('shouldnt be making this attack');
-                 // FT:=0;
-                 // TT:=0;
-                //end;
-              end;
-              if FT > 0 then begin
-                bs(x, FT);
-                bs(x+1, TT);
-                bs(401, x);
-               // if FirstFT = 0 then FirstFT:= FT;
-               // if FirstTT = 0 then FirstTT:= TT;
-                if TT > 100 then begin
-                  if QTArmies[FT-100] > QTArmies[TT-100] then subtract:= QTArmies[TT-100] - 2 else subtract:= QTArmies[FT-100] - 1;
-                  QTArmies[FT-100]:= QTArmies[FT-100] - subtract;
-                  QTArmies[TT-100]:= QTArmies[TT-100] - subtract;
-                end else begin
-                  if (QTArmies[FT] <= QTArmies[TT]) then begin
-                    m('QTArmies[ft] <= qtarmies[tt]');
-                    if (QTArmies[FT] > 2) then begin
-                      QTArmies[TT]:= QTArmies[TT] - QTArmies[FT] + 2;
-                      QTArmies[FT]:= 2;
-                    end;
-                  end;
-                  if QTArmies[FT] > QTArmies[TT] then begin
-                    LastTT:= TT;
-                    QTArmies[FT]:= QTArmies[FT] - QTArmies[TT];
-                    if (QTArmies[TT] > 3) and (QTArmies[TT] < 9) and (QTArmies[FT] > 1) then QTArmies[FT]:= QTArmies[FT] - 1;
-                    If QTOwner[TT] = WP then begin
-                      WPArmies:= WPArmies - TArmies(TT);
-                    end;
-                    l('                                                WPArmies: ' + i(wparmies));
-                    QTOwner[TT]:= PMe;
-                    if QTArmies[FT] = 1 then QTArmies[TT]:= 1 else begin
-                      // occupy with the mandatory minimum
-                      if (QTArmies[FT] = 2) or (QTArmies[FT] = 3) then begin
-                        QTArmies[TT]:= QTArmies[FT] - 1;
-                        QTArmies[FT]:= 1;
-                      end;
-
-                      if QTArmies[FT] > 3 then begin
-                        QTArmies[FT]:= QTArmies[FT] - 3;
-                        QTArmies[TT]:= 3;
-
-                        // bug control
-                        if QTArmies[FT] < 1 then begin
-                          QTArmies[FT]:= 1;
-                          m2('bug control1');
-                        end;
-                        if QTArmies[TT] < 1 then begin
-                          QTArmies[TT]:= 1;
-                          m2('bug control2');
-                        end;
-
-                        KillPlayerOcc(WP, FT, TT, Armies);
-
-                        if Armies = -1000 then begin
-                        //l('its here1');
-                          FT:= 0;
-                          bs(73, 0);
-                          bs(74, 0);
-                        end else begin
-                          //if TT = 29 then m('armies: ' + i(Armies));
-                          QTArmies[FT]:= QTArmies[FT] - Armies;
-                          QTArmies[TT]:= QTArmies[TT] + Armies;
-                          l('after occ qtarmies[ft] ' + i(qtarmies[ft]) + ' qtarmies[tt] ' + i(qtArmies[tt]));
-                        end;
-                      end;
-                    end;
-                  end;
-                end;
-              end;
-            Until (FT = 0) or (x > 482) or (WPArmies = 0);
-
-            // check to see if it's still wise to kill the player now that we know how much it will cost
-            if (WPArmies = 0) and (SAlivePlayersCount > 4) then begin
-              QArmySort(Army, QMyTC, QMyAC);
-              //QRankSort(
-              if y < 2 then begin
-                if GameHasOneHuman(P) then begin
-                  KillValue:= round(double(TIV) * double(PCardCount(WP))/3);
-                  if QMyAC + KillValue + 5 < PArmiesCount(PMe) then begin
-                    WPArmies:= -1;
-                    m2('abort KillWP, gamehasonehuman, QMyAC + KillValue + 5 < PArmiesCount(PMe)');
-                  end;
-                end else begin
-                  if TContinent(Army[1]) = 2 then begin
-                    if not ( (QTArmies[Army[2]] > 7) and (TContinent(Army[2]) <> 2) ) then begin
-                      if not ( (Army[1] = 12) and (QTOwner[14] <> PMe) and (QTArmies[14] < CForce) and (QTArmies[12] > 2 * QTArmies[14]) ) then begin
-                        C:= 0;
-                        For a:= 1 to 9 do if QTOwner[a] = PMe then C:= C + 1;
-                        if C < 3 then begin
-                          WPArmies:= -1;
-                          m2('abort kill in SA');
-                        end;
-                      end;
-                    end;
-                  end;
-                  MaxTIV:= 0;
-                  For P:= 1 to 10 do begin
-                    if PAlive(P) and (P <> PMe) and (PCardTurnInValue(P) > MaxTIV) then MaxTIV:= PCardTurnInValue(P);
-                  end;
-                  l('QMyAC ' + i(QMyAC) + ' QMyTC ' + i(qmytc) + ' TIV ' + i(TIV) + ' MaxTIV ' + i(MaxTIV));
-                  if (PCardCount(PMe) + PCardCount(WP) >= 5) then begin
-                    if QMyAC {- QMyTC}  + TIV < 20 then WPArmies:= -1;
-                    if QMyAC - QMyTC + TIV < MaxTIV then begin
-                      m2('abort killwp, < MaxTIV');
-                      WPArmies:= -1;
-                    end;
-                  end else begin
-                    if QMyAC {- QMyTC} < 20 then WPArmies:= -1;
-                    if QMyAC - QMyTC < MaxTIV then begin
-                      m2('abort killwp, < MaxTIV');
-                      WPArmies:= -1;
-                    end;
-                  end;
-
-
-
-                  if WPArmies = -1 then begin
-                    {
-                    if bg(87) = 0 then begin
-                      bs(87, WP);
-                    end else begin
-                      bs(88, WP);
-                    end;
-                    }
-                    if m2('abort killwp, My Armies will be less than 20') then exit;
-                  end;
-                end;
-              end else begin
-                // any code to abort killing human?
-              end;
-            end;
-
-            if WPArmies = 0 then begin
-
-              // sort the attacks so that the most risky attacks are done first
-              FT:= 0;
-              TT:= 0;
-              start:= 0;
-              finish:= 0;
-              For a:= 402 to bg(401) do begin
-          //     l('a ' + i(a) + ' bg(a) ' + i(bg(a)));
-              end;
-
-              For a:= 402 to bg(401) do begin
-             //   l('a ' + i(a) + ' bg(a) ' + i(bg(a)) + ' ft ' + i(ft) + ' tt ' + i(tt));
-                if (TT > 0) and (bg(a) <> TT) and (bg(a) <> FT) then begin
-                  C:= 0;
-                  if (bg(a - 2) > 100) and (bg(a -1) > 100) then C:= C + 1; //don't start a resort if the last ft and tt were just going to weaken a T
-                  bga:= bg(a);
-                  if bga > 100 then bga:= bga - 100;
-                  For b:= a - 1 downto 402 do begin
-                    bgb:= bg(b);
-                    if bgb > 100 then bgb:= bgb - 100;
-                //    l('1 b ' + i(b) + ' bg(b) ' + i(bg(b)) + ' bgb ' + i(bgb));
-                    if bga = bgb then C:= C + 1;
-                  //  l('c ' + i(c));
-                  end;
-                  if C = 0 then begin
-                    start:= a;
-                    finish:= 0;
-               //     l('start ' + i(start));
-                    if start = bg(401) then finish:= bg(401) + 1 else begin
-                      For b:= start + 1 to bg(401) do begin
-                        if finish = 0 then begin
-                          b:= b + 1;
-                          bgb:= bg(b);
-                          if bgb > 100 then bgb:= bgb - 100;
-                          bgb1:= bg(b - 1);
-                          if bgb1 > 100 then bgb1:= bgb1 - 100;
-                         // l('2 b ' + i(b));
-                          if bgb <> bgb1 then begin
-                            finish:= b - 1;
-                         //   l('finish ' + i(finish));
-                          end;
-                        end;
-                      end;
-                      if finish = 0 then finish:= bg(401) + 1;
-                    end;
-                  end;
-                end;
-                FT:= bg(a);
-                if FT > 100 then FT:= FT - 100;
-                TT:= bg(a + 1);
-                if TT > 100 then TT:= TT - 100;
-                a:= a + 1;
-              end;
-              if start > 0 then if m2('start ' + i(start) + ' finish ' + i(finish)) then exit;
-              if start > 0 then begin
-                SetArrayLength(ReOrder, bg(401) + 2);
-                b:= 0;
-                for a:= start to finish do begin
-                  b:= b + 1;
-                  ReOrder[b]:= bg(a);
-                end;
-                for a:= 402 to bg(401) + 1 do begin
-                  if (a >= start) and (a <= finish) then continue;
-                  b:= b + 1;
-                  ReOrder[b]:= bg(a);
-                end;
-                b:= 0;
-              //  l(' ');
-               // l('New Order');
-                for a:= 402 to bg(401) + 1 do begin
-                  b:= b + 1;
-                  bs(a, ReOrder[b]);
-                //  l('a ' + i(a) + ' bg(a) ' + i(bg(a)));
-                end;
-              end;
-
-              if KillBoth then m2('killboth');
-
-
-              bs(77, 0); // reset BestFT
-              bs(79, 0);
-              bs(80, 0);
-              if x >= 404 then bs(400, 1); // if the path length is more than one then use the stored path
-              if bg(402) > 100 then begin
-                FromTerritory:= bg(402) - 100;
-                ToTerritory:= bg(403) - 100;
-                m2('*** killwp weaken, FT: ' + i(FromTerritory) + ' TT: ' + i(ToTerritory) + ' MaxCost: ' + i(MaxCost) + ' WP: ' + PName(WP));
-                bs(63, WP);
-                bs(98, ToTerritory);
-                bs(99, FromTerritory);
-              end else begin
-                FromTerritory:= bg(402); //FirstFT;
-                ToTerritory:= bg(403); //FirstTT;
-                m2('*** killwp, FT: ' + i(FromTerritory) + ' TT: ' + i(ToTerritory) + ' MaxCost: ' + i(MaxCost) + ' WP: ' + PName(WP));
-                bs(63, WP);
-                bs(68, ToTerritory);
-                bs(69, FromTerritory);
-                //qmap:= '';
-                //For T:= 1 to 42 do qmap:= qmap + ' T ' + i(T) + ' qtArmies ' + i(QTArmies[T]);
-                //UTakeSnapShot(qmap);
-              end;
-            end else begin
-              bs(400, 0);
-            end;
-          end;  // end if KillWP
-        until (FromTerritory > 0) or (z >= 2);
-        if x > 482 then m('pause x > 482');
-        y:= y + 1;
-      until (FromTerritory > 0) or (y = 3);
-    end; // end "if Rank[SAlivePlayersCount] <> PMe"
-    //if bg(400) = 0 then bs(94, 1);  // don't check again this turn
-    if FromTerritory > 0 then begin
-      bs(86, TOwner(ToTerritory));
-      exit;
-    end else bs(63, 0);
-  end;
-//        If FromTerritory = 0 then begin
-          //if bg(63) > 0 then m('end killwp FT = 0, maxCost: ' + i(maxcost) + ' WP: ' + PProgram(WP));
-//          bs(63, 0);
-//        end;
-
-  {---------------------------------------- Weaken player code --------------------------------------------}
-
-  if ((SAlivePlayersCount = 4) or (SAlivePlayersCount = 3)) and (not KillWP) then begin
-    cRankSort(Rank, PArmies, MyArmies);
-    for x:= 1 to SAlivePlayersCount do begin
-      l('Rank ' + i(x) + ' ' + PProgram(Rank[x]) + ' Armies ' + i(PArmies[x]));
-    end;
-    l('MyArmies ' + i(MyArmies));
-    if (PArmiesCount(PMe) > 150) and (not (Rank[SAlivePlayersCount] = PMe)) then begin
-      if (SAlivePlayersCount = 3) and (Rank[1] <> PMe) then begin
-    //  Total:= 0;
-   //   for P:= 2 to SAlivePlayersCount do Total:= Total + PArmies[P];
-  //    if (not (PArmies[1] > trunc(0.8 * double(Total)) )) then begin
-        InitializeQMap;
-        Weaken1:= True;
-        FT:= 0;
-        TT:= 0;
-        KillWeakestPlayer(Rank[1], 0, FT, TT);
-        if FT > 100 then FT:= FT - 100;
-        if TT > 100 then TT:= TT - 100;
-        FromTerritory:= FT;
-        ToTerritory:= TT;
-        if ToTerritory > 0 then begin
-          if (TOwner(ToTerritory) <> Rank[1]) then begin
-            bs(68, ToTerritory);
-            bs(69, FromTerritory);
-          end else begin
-            if (PArmies[1] - PArmies[3] > TArmies(ToTerritory)) then begin
-              bs(68, ToTerritory);
-              bs(69, FromTerritory);
-            end else begin
-              bs(85, PArmies[1] - PArmies[3]);
-              m2('bg85 ' + i(bg(85)));
-              bs(98, ToTerritory);
-              bs(99, FromTerritory);
-            end;
-          end;
-
-          //bs(63, Rank[1]);
-          if m2('weaken rank1') then exit;
-        end;
-
-        if (SAlivePlayersCount = 3) and (Rank[1] = PMe) then begin
-          InitializeQMap;
-          Weaken1:= True;
-          FT:= 0;
-          TT:= 0;
-          KillWeakestPlayer(Rank[2], 0, FT, TT);
-          if FT > 100 then FT:= FT - 100;
-          if TT > 100 then TT:= TT - 100;
-          FromTerritory:= FT;
-          ToTerritory:= TT;
-          if ToTerritory > 0 then begin
-  //          if (MyArmies - TArmies(ToTerritory) > PArmies[3]) and (TOwner(ToTerritory) = Rank[2]) then begin
-  //            bs(68, ToTerritory);
-  //            bs(69, FromTerritory);
-  //          end;
-            if (TOwner(ToTerritory) <> Rank[2]) then begin
-              bs(68, ToTerritory);
-              bs(69, FromTerritory);
-            end else begin
-              if (MyArmies - TArmies(ToTerritory) > PArmies[3]) then begin
-                bs(68, ToTerritory);
-                bs(69, FromTerritory);
-              end else begin
-                bs(85, MyArmies - PArmies[3]);
-                m2('bg85 ' + i(bg(85)));
-                bs(98, ToTerritory);
-                bs(99, FromTerritory);
-              end;
-            end;
-
-            if m2('weaken rank2') then exit;
-            //bs(63, Rank[2]);
-          end;
-        end;
-
-        if (SAlivePlayersCount = 4) and (Rank[3] = PMe) then begin
-          if (PArmies[2] > trunc(0.9 * double(PArmies[1]))) and (PArmies[3] > trunc(0.5 * double(PArmies[1]))) then begin
-            InitializeQMap;
-            Weaken1:= True;
-            FT:= 0;
-            TT:= 0;
-            KillWeakestPlayer(Rank[4], 0, FT, TT);
-            if FT > 100 then FT:= FT - 100;
-            if TT > 100 then TT:= TT - 100;
-            FromTerritory:= FT;
-            ToTerritory:= TT;
-
-            if ToTerritory > 0 then begin
-              //bs(63, Rank[4]);
-              if m2('weaken rank4') then exit;
-            end;
-          end;
-        end;
-      end;
-    end;
-    if ToTerritory > 0 then exit;
-  end;
-
-  {------------------------------------------ATTACK STRONG PLAYER---------------------------------------}
-
-  If (FromTerritory = 0) then begin
-    l('begin attack sp');
-    cRankSort(Rank, PArmies, MyArmies);
-    SP:= 0;
-    AttackSP:= false;
-    Weaken:= false;
-    if GameHasNoHumans or PHuman(Rank[1]) then begin
-      if (Rank[1] <> PMe) and (MyArmies > 20) and (MyArmies > (PArmies[1] * 2) div 3) then begin
-        If (( pos('wyrm', lowercase(PProgram(Rank[1]))) > 0 ) or PHuman(Rank[1])) and (SAlivePlayersCount < 6) then AttackSP:= true;
-        If (Rank[1] <> PME) and ((PArmies[1] * 9) div 10 > PArmies[2])
-         and (SAlivePlayersCount < 7)
-         and (  ( pos('frank', lowercase(PProgram(Rank[1]))) > 0 )
-         or ( pos('australian09', lowercase(PProgram(Rank[1]))) > 0 )  ) then AttackSP:= true;
-        If (Rank[1] <> PME) and ((PArmies[1] * 4) div 5 > PArmies[2])
-         and (SAlivePlayersCount < 6)
-         and ( pos('struggler', lowercase(PProgram(Rank[1]))) > 0 ) then AttackSP:= true;
-        If (Rank[1] <> PME) and ((PArmies[1] * 3) div 4 > PArmies[2])
-         and (SAlivePlayersCount < 5) then AttackSP:= true;
-      end;
-    end;
-    if attacksp then l('1 attack sp');
-//    OneHuman:= GameHasOneHuman(P);
-    if SCardsBasedOnCombo and GameHasOneHuman(P) then AttackSP:= true;
-
-    if not SCardsBasedOnCombo then SP:= Rank[1] else begin
-      if GameHasOneHuman(P) then SP:= P else SP:= Rank[1];
-    end;
-    l('sp: ' + i(sp));
-    //  attacksp:= true; sp:= 2;
-    if attackSP and (SP > 0) then begin
-      m2('attempt attack strong player');
-      AttackStrongPlayer(SP, Weaken, FromTerritory, ToTerritory)
-      if FromTerritory > 0 then exit;
-    end else begin
-      bs(60, 0);
-      bs(100, 0);
-      bs(101, 0);
-    end;
-  end;
-
-  {-------------------------------------------FLOAT ATTACK CODE--------------------------------------}
-
-  if bg(63) = 0 then begin // ie if not kill player mode then begin
-
-    if TOwner(39) = PMe then begin
-      CAnalysis(6, PT, PA, ET, EA);
-      if (EA > 0) then begin
-        // dont take australia if all of my armies are in australia - dont get trapped in a dead end
-        if (not ( (PArmiesCount(PMe) - PTerritoriesCount(PMe)) = (PA - PT) )) and (PA - PT > EA + ET) then begin
-          For T:= 39 to 42 do begin
-            if TIsFront(T) and (TArmies(T) > 1) then begin
-              for T1:= 40 to 42 do begin
-                if (TOwner(T1) <> PMe) and (not ( (TArmies(T) < 4) and (TArmies(T1) > 1) )) and TIsBordering(T, T1) then begin
-                  FromTerritory:= T;
-                  ToTerritory:= T1;
-                end;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-
-    ArmySort(Army);
-
-    if (TContinent(Army[1]) = 2) and (SAlivePlayersCount > 3) then begin
- //     m2('1 start new code, cForce ' + i(Cforce));
-      if (not ( (TContinent(Army[2]) <> 2) and (TArmies(Army[2]) > 7) )) then begin
- //       m2('2 start new code, cForce ' + i(Cforce));
-        CAnalysis(1, PT, PA, ET, EA);
-        if PT < 3 then begin
-          if (Army[1] <> 12) and (TOwner(12) <> PMe) and (TArmies(12) < CForce * 2) and (TArmies(Army[1]) > TArmies(12) * 2) then begin
-            m2('attack 12');
-            FromTerritory:= Army[1];
-            ToTerritory:= 12;
-            bs(68, ToTerritory);
-            bs(69, FromTerritory);
-          end;
-          if (Army[1] = 12) and (TOwner(14) <> PMe) and (TArmies(14) < CForce * 2) and (TArmies(Army[1]) > TArmies(14) * 2) then begin
-            m2('attack 14');
-            FromTerritory:= Army[1];
-            ToTerritory:= 14;
-            bs(68, ToTerritory);
-            bs(69, FromTerritory);
-          end;
-        end;
-      end;
-      if FromTerritory > 0 then exit;
-    end;
-
-    //if bg(61) > 0 then
-    l('CForce: ' + i(Cforce) + ' bg(61): ' + i(bg(61)));
-
-    //if PArmiesCount(PMe) > 200 then CForce:= CForce * 2;
-    if (not SConquest) and (FromTerritory = 0) then begin
-      {
-      //For T:= 1 to 42 do Points[T]:= 0;
-      MaxPoints:= 0;
-      For T:= 1 to 42 do begin
-        if TIsFront(T) and (TArmies(T) > 1) then begin
-          For B:= 1 to TBordersCount(T) do begin
-            aPoints:= 0;
-            BT:= TBorder(T, B);
-            if TIsMine(BT) then continue;
-            if TArmies(BT) > CForce then continue;
-            if (TArmies(T) < 4) and (TArmies(BT) > 1) then continue;
-            aPoints:= 1/double(TArmies(BT));
-            For B1:= 1 to TBordersCount(BT) do begin
-              BT1:= TBorder(BT, B1);
-              if (not TIsMine(BT1)) and (TArmies(BT1) <= CForce) then begin
-                aPoints:= 1/double(TArmies(BT)) + 1/double(TArmies(BT1));
-                l('BT ' + i(bt) + ' BT1 ' + i(BT1) + ' points: ' + f(apoints));
-                if (aPoints = MaxPoints) {and (BT <> ToTerritory) then begin
-                  if TArmies(BT) = TArmies(ToTerritory) then begin
-                    l('TArmies(BT) = TArmies(ToTerritory)' + ' TT2 ' + i(tt2));
-                    go:= false;
-                    if BT <> ToTerritory then begin
-                      TWeakestFront(ToTerritory, ET, EA);
-                      C:= 0;
-                      For B2:= 1 to TBordersCount(ToTerritory) do begin
-                        BT2:= TBorder(ToTerritory, B2);
-                        if TOwner(BT2) = PMe then continue;
-                        if TArmies(BT2) = EA then C:= C + 1;
-                      end;
-                      C1:= 0;
-                      For B2:= 1 to TBordersCount(BT) do begin
-                        BT2:= TBorder(BT, B2);
-                        if TOwner(BT2) = PMe then continue;
-                        if TArmies(BT2) = EA then C1:= C1 + 1;
-                      end;
-                      if C1 > C then begin
-                        go:= true;
-                        l('1 c1 > c');
-                      end;
-                      if C1 = C then begin
-                        C:= 0;
-                        For B2:= 1 to TBordersCount(ToTerritory) do begin
-                          BT2:= TBorder(ToTerritory, B2);
-                          if TOwner(BT2) = PMe then continue;
-                          if TArmies(BT2) <= CForce then C:= C + 1;
-                        end;
-                        C1:= 0;
-                        For B2:= 1 to TBordersCount(BT) do begin
-                          BT2:= TBorder(BT, B2);
-                          if TOwner(BT2) = PMe then continue;
-                          if TArmies(BT2) <= CForce then C1:= C1 + 1;
-                        end;
-                        if C1 > C then begin
-                          go:= true;
-                          l('2 c1 > c');
-                        end;
-                      end;
-                    end;
-                    if not go then begin
-                      WFA1:= 0;
-                      WFA:= 0;
-                      For B2:= 1 to TBordersCount(TT2) do begin
-                        BT2:= TBorder(TT2, B2);
-                        if BT2 = ToTerritory then continue;
-                        if TIsMine(BT2) then continue;
-                        if TArmies(BT2) > CForce then continue;
-                        if (TArmies(BT2) < WFA) or (WFA = 0) then WFA:= TArmies(BT2);
-                      end;
-                      For B2:= 1 to TBordersCount(BT1) do begin
-                        BT2:= TBorder(BT1, B2);
-                        if BT2 = BT then continue;
-                        if TIsMine(BT2) then continue;
-                        if TArmies(BT2) > CForce then continue;
-                        if (TArmies(BT2) < WFA1) or (WFA1 = 0) then WFA1:= TArmies(BT2);
-                      end;
-                      l('WFA ' + i(WFA) + ' WFA1 ' + i(WFA1));
-
-                      if WFA = WFA1 then begin
-                        //if (TFrontsCount(BT) < TFrontsCount(ToTerritory)) and (Not (TFrontsCount(BT) = 1)) then go:= true else
-                         if TArmies(T) < TArmies(FromTerritory) then go:= true; // favor using up a smaller army
-                      end;
-                      if ((WFA = 0) and (WFA1 > 0)) or ((WFA1 < WFA) and (WFA1 > 0)) then go:= true;
-                    end;
-                    if go then begin
-                      FromTerritory:= T;
-                      ToTerritory:= BT;
-                      TT2:= BT1;
-                      m2('WFA, TT: ' + i(ToTerritory) + ' TT2 ' + i(TT2));
-                    end;
-                  end;
-                  if TArmies(BT) < TArmies(ToTerritory) then begin
-                    FromTerritory:= T;
-                    ToTerritory:= BT;
-                    TT2:= BT1;
-                    l('TArmies(BT) < TArmies(ToTerritory), TT: ' + i(ToTerritory) + ' TT2 ' + i(TT2));
-                  end;
-                end;
-              end;
-              if aPoints > MaxPoints then begin
-                MaxPoints:= aPoints;
-                FromTerritory:= T;
-                ToTerritory:= BT;
-                TT2:= BT1;
-                l('Points > MaxPoints, TT: ' + i(ToTerritory) + ' points ' + f(apoints) + ' TT2 ' + i(TT2));
-               end;
-            end;
-          end;
-        end;
-      end;
-      m2('pause 1')
-    //end;
-      firstTT:= ToTerritory;
-      firstFT:= FromTerritory;
-      }
-
-      MaxPoints:= 0;
-      For T:= 1 to 42 do begin
-        if TIsFront(T) and (TArmies(T) > 1) then begin
-          Coef:= 0;
-          For B:= 1 to TBordersCount(T) do begin
-            BT:= TBorder(T, B);
-            if TIsMine(BT) then continue;
-            if TArmies(BT) > CForce then continue;
-            if (TArmies(T) < 4) and (TArmies(BT) > 1) then continue;
-            Coef:= Coef + 1/double(TArmies(BT));
-          end;
-          Coef:= Coef * 2.94;
-          l('coef ' + f(coef));
-          For B:= 1 to TBordersCount(T) do begin
-            BT:= TBorder(T, B);
-            if ((T = 14) and (BT = 12)) or ((T = 9) and (BT = 10)) then continue; // dont go into SA
-            if TIsMine(BT) then continue;
-            if TArmies(BT) > CForce then continue;
-            if (TArmies(T) < 4) and (TArmies(BT) > 1) then continue;
-            aPoints:= Coef * 1/double(TArmies(BT));
-            MinArmy:= 0;
-            For B1:= 1 to TBordersCount(BT) do begin
-              BT1:= TBorder(BT, B1);
-              if (not TIsMine(BT1)) and (TArmies(BT1) <= CForce) then begin
-                aPoints:= aPoints + 1/double(TArmies(BT1));
-              end;
-              if (not TIsMine(BT1)) and ((TArmies(BT1) < MinArmy) or (MinArmy = 0)) then begin
-                MinArmy:= TArmies(BT1);
-              end;
-            end;
-            l('bt ' + i(BT) + ' points ' + f(apoints));
-            go:= false;
-            if (aPoints = MaxPoints) and (MinArmy < oMinArmy) then go:= true;
-            if aPoints > MaxPoints then go:= true;
-            if go then begin
-              MaxPoints:= aPoints;
-              FromTerritory:= T;
-              ToTerritory:= BT;
-              oMinArmy:= MinArmy;
-            //  TT2:= BT1;
-              l('Points > MaxPoints, TT: ' + i(ToTerritory) + ' points ' + f(apoints) + ' TT2 ' + i(TT2));
-            end;
-          end;
-        end;
-      end;
-     // m2('pause 1')
-    //end;
-      {
-      firstTT:= ToTerritory;
-      firstFT:= FromTerritory;
-
-      TWithWeakestFront(TWF, WF, WFA);
-      For T:= 1 to 42 do Points[T]:= 0;
-      MaxPoints:= 0;
-      For T:= 1 to 42 do begin
-
-        if TIsFront(T) and (TArmies(T) > 1) then begin
-          For E:= 1 to 42 do begin
-            If (Not TIsMine(E)) and (TArmies(E) <= CForce) then begin
-              If QTWeakestPath(T, E, 0, TT, PL, EA) then begin
-                if EA < (PL * 2) + CForce then Points[TT]:= Points[TT] + 1/double(EA);
-                if (TOwner(TT) = Rank[1]) and (Rank[1] <> Pme) then Points[TT]:= Points[TT] + 1/double(EA);
-                if pos('frank', lowercase(PProgram(TOwner(TT)))) > 0 then Points[TT]:= Points[TT] + 1/double(EA);
-                if pos('09', lowercase(PProgram(TOwner(TT)))) > 0 then Points[TT]:= Points[TT] + 1/double(EA);
-//                if pos('wyrm', lowercase(PProgram(TOwner(TT)))) > 0 then Points[TT]:= Points[TT] + 1/double(EA);
-                if (TContinent(TT) = 2) and (PArmiesCount(PMe) < 100) and (TContinent(T) <> 2) then Points[TT]:= 0;
-                TWeakestFront(T, ET, EA1);
-                if TArmies(TT) = EA1 then Points[TT]:= Points[TT] + 1/double(EA);
-                
-                if (Points[TT] > MaxPoints) then begin
-                  OldMaxPoints:= MaxPoints;
-                  MaxPoints:= Points[TT];
-                  MaxArmy:= 1;
-                  For B:= 1 to TBordersCount(TT) do begin
-                    BT:= TBorder(TT, B);
-                    if TIsMine(BT) and (TArmies(BT) > MaxArmy) then begin
-                      MaxArmy:= TArmies(BT);
-                      FromTerritory:= BT;
-                      ToTerritory:= TT;
-                    end;
-                  end;
-                  If FromTerritory = 0 then begin
-                    ToTerritory:=0;
-                    MaxPoints:= OldMaxPoints;
-                  end;
-                end;
-              end
-            end;
-          end;
-        end;
-      end;
-      //if (FromTerritory > 0) and (bg(75) > 0) then l('2nd attack, FT: ' + i(FromTerritory) + ' TT: ' + i(ToTerritory));
-
-      if not( (TArmies(FromTerritory) > 50) and (TArmies(ToTerritory) < 5) ) then begin
-        if (TArmies(ToTerritory) > CForce)
-        or ( (TArmies(FromTerritory) < 4) and (TArmies(ToTerritory) > 1) )
-        or (   (  TArmies(FromTerritory) < round( 0.85 * TArmies(ToTerritory) )  ) and (not (SAlivePlayersCount = 2))   ) then begin
-          FromTerritory:= 0;
-          ToTerritory:= 0;
-        l('attack overidden1, cforce: ' + i(CForce));
-        end;
-      end;
-      }
-      if (ToTerritory = 0) and (bg(75) = 0) then begin // look for the attack with the best chance to win
-        m('secondary float attack');
-        MaxPoints:=0;
-        for T:=1 to 42 do begin
-          aPoints:= 0;
-          if TIsFront(T) and (TArmies(T) > 2) then begin
-            TWeakestFront(T, ET, EA);
-            aPoints:= aPoints + (1/double(EA)) - (1/double(TArmies(T)));
-            if (aPoints > MaxPoints) then begin
-              MaxPoints:= aPoints;
-              FromTerritory:= T;
-              ToTerritory:= ET;
-            end;
-          end;
-        end;
-      end;
-
-    end;
-
-    // this code overides the above decision if it's a bad one
-    if pos('struggler', lowercase(PProgram(TOwner(ToTerritory)))) > 0 then begin
-      if TArmies(ToTerritory) > CForce then m2('double CForce for attacking struggler with a secondary float attack');
-      CForce:= CForce * 2;
-    end;
-    if not( (TArmies(FromTerritory) > 50) and (TArmies(ToTerritory) < 5) ) then begin
-      if (TArmies(ToTerritory) > CForce)
-      or ( (TArmies(FromTerritory) < 4) and (TArmies(ToTerritory) > 1) )
-      or (   (  TArmies(FromTerritory) < round( 0.85 * TArmies(ToTerritory) )  ) and (not (SAlivePlayersCount = 2))   )
-      and (not (PArmiesCount(PMe) > 100)) then begin
-        FromTerritory:= 0;
-        ToTerritory:= 0;
-        if not scardsbasedoncombo then m2('attack overidden2, cforce: ' + i(CForce));
-      end;
-    end;
-    {
-    if ToTerritory <> FirstTT then m2('different, TT: ' + i(Toterritory) + ' firstTT ' + i(firstTT));
-    if FirstTT > 0 then begin
-      ToTerritory:= FirstTT;
-      FromTerritory:= FirstFT;
-    end;
-    }
-    bs(68, ToTerritory);
-    bs(69, FromTerritory);
-
-  end; // end if bg(63) = 0
-end; // end procedure Attack
-
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  T, TTNeeds, iNode, iChild, B1, BT1, BT, PT, PA, EA1, ET1, EA, ET, B, CForce,
-  PL, TT, MinCost, FTNeeds, FTNeeds_WP, TTNeeds_WP, C, P, X, Count, FTA: integer;
-  TTCanAttack, FTCanAttack: boolean;
-  Army: array of integer;
-  {
-  Node: array [1..42] of record
-    Closed: boolean;
-    TTOpen: boolean;
-    FTOpen: boolean;
-  end;
-  }
-begin
-//  m2('begin occ');
-  bs(70, 1);  // notifies the attack proc that the occ proc was called
-
-  if (TArmies(ToTerritory) = 1) and (TArmies(FromTerritory) > 5) then m('found bug');
-  If ToTerritory = bg(71) then bs(72, bg(72)+1) else begin
-    bs(71, ToTerritory);     // 71 - Keeps track of the last territory I conquered
-    bs(72, 0);               // 72 - Keeps track of how many times I've attacked the same territory
-  end;
-  bs(60, 0); // reset attack determined by strong player code
-  bs(61, 0);    // 61 - successive turns without conquest counter
-  bs(68, 0);   // 68 - keeps track of the last territory I attacked
-  bs(69, 0);   // 69 - keeps track of the last territory I attacked from
-
-  bs(91, 0);    // reset the last T I occupied
-
-  ConquestForce(CForce);
-  FTA:= TArmies(FromTerritory) - 1;
-  Armies:=FTA;  // Default is to occupy all
-  ArmySort(Army);
-
-  // buffer 67 = 1 is a signal not to occupy the territory
-  if bg(67) > 0 then begin
-    If bg(67) = 1 then Armies:= 0
-     else begin
-      Armies:= bg(67);
-      If Armies > FTA then Armies:= FTA;
-    end;
-    bs(67, 0);
-    m2('buffer 67 occ, Armies: ' + i(armies));
-    exit;
-  end;
-  //l('occ armies: ' + i(armies));
-  {------------------------------Kill Player Occupation------------------------------------------}
-  if (bg(64) = 100) or ( (bg(63) > 0) and PAlive(bg(63)) ) then begin
-   // l('start kill player occ');
-    P:= bg(63);
-    if bg(64) = 100 then P:= 0;
-
-    if KillBoth then InitializeQMapKillBoth(P) else InitializeQMap;
-    KillPlayerOcc(P, FromTerritory, ToTerritory, Armies);
-    exit;
-  end;
-  {---------------------------------------------------------------------------------------------}
-  // take australia occupation
-  if (FromTerritory = 31) and (ToTerritory = 39) then begin
-    CAnalysis(6, PT, PA, ET, EA);
-    Armies:= ET + EA - (PA - PT);
-    if TArmies(31) > Armies + 2 Then Armies:= Armies + 2;
-    if TArmies(31) > Armies + 2 Then Armies:= Armies + 2;
-    If Armies > FTA then Armies:= FTA;
-    exit;
-  end;
-
-  {------------------------------Continents Occupation-----------------------------------------------}
-  // buffer 90 means that the attack code was from the continents section
-  {
-  if bg(92) > 0 then bs(91, bg(92));
-  if (TContinent(ToTerritory) = 2) and (bg(90) > 0) then begin
-    if COwner(2) = PMe then begin
-      m('sihng gung');
-      bs(93, 1);  //tells the fortification routine to pause the game
-    end;
-    // default is Armies:= FTA;
-    bs(91, ToTerritory);
-    C:= 2;
-    if (FromTerritory = 12) then Armies:= ((FTA + CEA(C)) * 2) div 5;
-    if (FromTerritory = 10) then Armies:= ((FTA + CEA(C)) * 3) div 5;
-    if Armies > FTA then Armies:= FTA;
-    exit;
-  end;
-  }
-
-  {------------------------------Float Attack Occupation---------------------------------------------}
-  TTCanAttack:= False;
-  FTCanAttack:= False;
-  For B:= 1 to TFrontsCount(FromTerritory) do begin
-    BT:= TFront(FromTerritory, B);
-    If TArmies(BT) <= CForce then FTCanAttack:= true;
-  end;
-  For B:= 1 to TFrontsCount(ToTerritory) do begin
-    BT:= TFront(ToTerritory, B);
-    If TArmies(BT) <= CForce then TTCanAttack:= true;
-  end;
-  If FTCanAttack then Armies:= 0;
-  If TTCanAttack then Armies:= FTA;
-  If (Not TTCanAttack) and (Not FTCanAttack) then begin
-    if TIsFront(ToTerritory) and TIsFront(FromTerritory) then begin
-      TWeakestFront(ToTerritory, ET, EA);
-      TWeakestFront(FromTerritory, ET1, EA1);
-      If (EA1 < EA) and (ET1 > 0) then Armies:= 0 else Armies:= FTA;
-    end else begin
-      if TIsFront(FromTerritory) then Armies:= 0;
-    end;
-  end;
-
-  // don't occupy to SA
-  if (TContinent(ToTerritory) = 2) and (TContinent(FromTerritory) <> 2) then Armies:= 1;
-
-  // occupy the T we've been trading back and forth to stop this from continuing
-  If (bg(72) > 2) and (ToTerritory = bg(71)) then begin
-    Armies:= FTA;
-    if (FTA > TIV) and (FTA > 100) and (TArmies(Army[2]) < 4) then Armies:= FTA div 2;
-    l('occupy the T weve been trading');
-  end;
-  //m2('end of occ armmies: ' + i(Armies));
-     // Army is for defence
-  //if AIFD(FromTerritory) and (FromTerritory = 12) and (ToTerritory = 14) then Armies:= 0;
-  //m2('pause 2');
-  {
-  if SAlivePlayersCount = 3 then begin
-  //  l('start 3 players left occ');
-  // find out P and if KIllWP
-    P:= 0;
-    RankSort(Rank);
-    if (not (Rank[3] = PMe)) then P:= Rank[3];
-    C:= 0;
-    if TIsFront(FromTerritory) and TIsFront(ToTerritory) and (P > 0) then begin
-  //  m2('is front');
-      For B:= 1 to TFrontsCount(ToTerritory) do begin
-        BT:= TFront(ToTerritory, B);
-       // l('bt ' + i(BT) + ' TFC ' + i(TFrontsCount(ToTerritory)) + ' FT ' + i(FromTerritory));
-        if (not TIsBordering(BT, FromTerritory)) then begin
-          C:= C + 1;
-          break;
-        end;
-      end;
-      For B:= 1 to TFrontsCount(FromTerritory) do begin
-        BT:= TFront(FromTerritory, B);
-       // l('bt ' + i(BT) + ' TFC ' + i(TFrontsCount(ToTerritory)) + ' FT ' + i(FromTerritory));
-        if (not TIsBordering(BT, ToTerritory)) then begin
-          C:= C + 1;
-          break;
-        end;
-      end;
-    end;
-
-    If C > 0 then begin
-      m2('C > 0');
-
-      TTNeeds:= 0;
-      TTNeeds_WP:=0;
-      FTNeeds:= 0;
-      FTNeeds_WP:= 0;
-
-      for T:=1 to 42 do begin
-        with Node[T] do begin
-          Closed := false;
-          TTOpen:= false;
-          FTOpen:= false;
-        end;
-      end;
-
-      Node[ToTerritory].TTOpen:= True;
-      Node[FromTerritory].FTOpen:= True;
-
-      Repeat
-        T:= 0;
-        iNode:= 0;
-        repeat
-          T:= T + 1;
-          if Node[T].TTOpen and not Node[T].Closed then begin
-            iNode:= T;
-          end;
-        until (iNode > 0) or (T = 42);
-
-        if iNode <> 0 then begin
-          for B:= 1 to TBordersCount(iNode) do begin
-            iChild:= TBorder(iNode, B);
-            if (TOwner(iChild) = PMe) then continue;
-
-            if ((not Node[iChild].TTOpen) and (not Node[iChild].Closed)) then begin
-              if TOwner(iChild) = P then TTNeeds_WP:= TTNeeds_WP + TArmies(iChild) + 1;
-              TTNeeds:= TTNeeds + TArmies(iChild) + 1;
-              if Node[iChild].Closed then Node[iChild].Closed:= false; // if closed then remove child from CLOSED list
-              Node[iChild].TTOpen:= true;
-            end;
-          end;
-          Node[iNode].Closed := true; // node has been examined, add to CLOSED list
-        end;
-      until (iNode = 0);  // loop until there are no more open nodes
-
-      Repeat
-        T:= 0;
-        iNode:= 0;
-        repeat
-          T:= T + 1;
-          if Node[T].FTOpen and not Node[T].Closed then begin
-            iNode:= T;
-          end;
-        until (iNode > 0) or (T = 42);
-
-        if iNode <> 0 then begin
-          for B:= 1 to TBordersCount(iNode) do begin
-            iChild:= TBorder(iNode, B);
-            if (TOwner(iChild) = PMe) then continue;
-
-            if ((not Node[iChild].FTOpen) and (not Node[iChild].Closed)) then begin
-              if not Node[iChild].TTOpen then begin
-                if TOwner(iChild) = P then FTNeeds_WP:= FTNeeds_WP + TArmies(iChild) + 1;
-                FTNeeds:= FTNeeds + TArmies(iChild) + 1;
-              end;
-              if Node[iChild].Closed then Node[iChild].Closed:= false; // if closed then remove child from CLOSED list
-              Node[iChild].FTOpen:= true;
-            end;
-          end;
-          Node[iNode].Closed := true; // node has been examined, add to CLOSED list
-        end;
-      until (iNode = 0);  // loop until there are no more open nodes
-
-      if FTNeeds = 0 then Armies:= FTA
-       else begin
-        if TTNeeds_WP > FTA then begin
-          Armies:= FTA;
-        end else if (FTNeeds_WP = 0) and (TTNeeds_WP > 0) then Armies:= TTNeeds + 3;
-
-        if (FTNeeds_WP > 0) and (TTNeeds_WP > 0) then begin
-          if FTNeeds_WP + TTNeeds < FTA then begin
-            Armies:= TTNeeds + 3;
-          end else if FTNeeds_WP + TTNeeds_WP < FTA then Armies:= TTNeeds_WP + 3;
-        end;
-
-        if (FTNeeds_WP > 0) and (TTNeeds_WP = 0) then Armies:= 0;
-
-        if FTNeeds + TTNeeds < FTA then begin
-          if TTNeeds > FTNeeds then Armies:= TTNeeds + 3 else Armies:= FTA - FTNeeds - 3;
-        end else if (FTNeeds_WP + TTNeeds < FTA) then begin
-          MinCost:= 0;
-          For T:= 1 to 42 do begin
-            if Node[T].FTOpen and (TOwner(T) = P) then begin
-              QTWeakestPath(FromTerritory, T, 0, TT, PL, EA);
-              if PL + EA < MinCost then MinCost:= PL + EA;
-            end;
-          end;
-          if FTNeeds_WP + TTNeeds + MinCost + 6 < FTA then Armies:= TTNeeds + 3;
-        end;
-
-        if TTNeeds_WP = TTNeeds then Armies:= TTNeeds + 3;
-        if Armies > FTA then Armies:= FTA;
-        // what about PNewArmies?
-      end;
-
-    end;
-    l('SAPC = 3, occupation, Armies: ' + i(Armies));
-  end;
-  }
-end; // end procedure Occupation
-
-{--------------------------Fortification--------------------------------------------------------------------}
-
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-Var
-  PT, PA, WF, MinPL, TT, MaxArmy, Y, X, CForce, MinEA, BT, ET, EA, ET1, EA1, PL, T, B: integer;
-  Combine: boolean;
-  Army: array of integer;
-begin
-  //UMessageOn;
-  //umessage('stop');
-  ArmySort(Army);
-
-  ResetBuffers;
-  if bg(93) > 0 then m('pause');
-  bs(81, (bg(81) + 1));    // 81 - Stores a turn count that doesn't include initial placement
-  bs(94, 0);     // 94 - reset don't check killwp until next turn
-  if not SConquest then begin
-    bs(61, bg(61)+1);   //  61 - successive turns without conquest counter
-    bs(62, bg(62)+1);   //  62 - keeps track of how many total turns I've gone without conquest
-  end;
-  if SConquest then bs(61,0);
-  if bg(61) > 0 then begin
-    l('');
-    l('Turns without conquest: ' + i(bg(61)));
-    l('Turns without conquest total: ' + i(bg(62)));
-  end;
-  if bg(61) > 10 then begin
-    UTakeSnapshot('>10 turns in a row without conquest');
-    m('snapshot taken');
-  end;
-  if SAlivePlayersCount = 2 then begin
-    //UTakeSnapshot('SAlivePlayersCount = 2');
-  end;
-
-  ConquestForce(CForce);
-  FromTerritory:= 0;
-  ToTerritory:= 0;
-
-  // test
-  if PTC = 42 then if m2('You have encountered a bug; Click the stop button as quickly as you can after hitting enter to close this message.') then exit;
-
-  if (Army[1] = 12) and (TOwner(14) = PMe) and (TArmies(14) > 1) then begin
-    FromTerritory:= 12;
-    ToTerritory:= 14;
-    Armies:= TArmies(FromTerritory) - 1;
-  end;
-  if (Army[1] = 10) and (TOwner(9) = PMe) and (TArmies(9) > 1) then begin
-    FromTerritory:= 10;
-    ToTerritory:= 9;
-    Armies:= TArmies(FromTerritory) - 1;
-  end;
-
-  // this code only needed if I continue to use finisher code
-  if (bg(64) = 100) or (bg(66) = 1) then begin
-    MaxArmy:= 0;
-    For T:= 1 to 42 do begin
-      if TIsMine(T) and (not TIsFront(T)) then begin
-        if (TArmies(T) > TArmies(MaxArmy)) and (TArmies(T) > 1) then MaxArmy:= T;
-      end;
-    end;
-    if MaxArmy > 0 then begin
-      TT:= TPathToFront(MaxArmy);
-      if TT > 0 then begin
-        ToTerritory:= TT;
-        FromTerritory:= MaxArmy;
-        Armies:= TArmies(FromTerritory) - 1;
-      end;
-    end;
-  end;
-  bs(66, 0);
-  if FromTerritory > 0 then exit;
-
-  { 1: find the blocked in T that can get to the T with the best balance between fewest EA and shortest Path Length}
-  MinEA:= 0;
-  MinPL:= 0;
-  ArmySort(Army);
-  For x:= 1 to PTC do begin
-    T:= Army[x];
-    if (Not TIsFront(T)) and (TArmies(T) >= 10) {and (not AIFD(T))} then begin
-      PathToClosestWeakFront(T, TT, WF, PL);
-      if (TT > 0) and ( ((TArmies(WF) < MinEA) or (MinEA = 0))
-       or ((TArmies(WF) < MinEA + 5) and (PL <= round(double(MinPL)/2))) ) then begin
-        MinPL:= PL;
-        MinEA:= TArmies(WF);
-        FromTerritory:= T;
-        ToTerritory:= TT;
-        Armies:= TArmies(T) - 1;
-        l('');
-        m2('1 large army blocked in FT: ' + i(FromTerritory) + ' TT: ' + i(ToTerritory));
-        l('');
-      end;
-    end;
-  end;
-  
-  { 2: Find a small army and combine with a bigger one }
-  If FromTerritory = 0 then begin
-    For x:= 2 to PTC do begin
-      If (TArmies(Army[x]) < 10) and (TArmies(Army[x]) > 1) {and (not AIFD(Army[x]))} then begin
-        For y:= x-1 downto 1 do begin
-          if TIsBordering(Army[x], Army[y]) then begin
-            ToTerritory:= Army[y];
-            FromTerritory:= Army[x];
-            Armies:= TArmies(FromTerritory) - 1;
-          end;
-        end;
-      end;
-    end;
-  end;
-
-  { 3: Move to a T that has better attack options }
-  If FromTerritory = 0 then begin
-    MinEA:= 0;
-    Combine:= False;
-    For x:= PTC downto 1 do begin
-      T:= Army[X];                            // Dont fortify from the T we intentionally occupied
-      If TIsFront(T) and (TArmies(T) > 3) and ( not ((bg(72) > 2) and (T = bg(71))) ) {and (not AIFD(Army[x]))} then begin
-        TWeakestFront(T, ET, EA);
-        if (EA > CForce) and (FromTerritory = 0) then Combine:= True else Combine:= False;
-        for B:= 1 to TBordersCount(T) do begin
-          BT:= TBorder(T, B);
-          if TIsFront(BT) then begin
-            TWeakestFront(BT, ET1, EA1);
-            if (  ( (EA1 < EA) and (TArmies(BT) > 3) and Combine )
-            or ( (EA1 < EA) and (TArmies(BT) < 3) )  )
-            and ((EA1 < MinEA) or (MinEA = 0)) then begin
-              if combine and (TArmies(BT) > 3) then l('combine');
-              ToTerritory:= BT;
-              FromTerritory:= T;
-              Armies:= TArmies(FromTerritory) - 1;
-              MinEA:= EA1;
-              l('');
-              l('3 fortify to T with less EA TT: ' + i(ToTerritory));
-              l('');
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-  
-  { 4: This keeps me from getting trapped behind one large enemy army and my other territories }
-  If FromTerritory = 0 then begin
-    For x:= 1 to PTC do begin
-      if (Army[x] = bg(71)) and (bg(72) > 2) then x:= x + 1;  // Dont fortify from the T we intentionally occupied
-      if (TFrontsCount(Army[x]) = 1) and (TBordersCount(Army[x]) > 1)
-       and (TArmies(Army[x]) > 1) and (TArmies(TFront(Army[x], 1)) > CForce) {and (not AIFD(Army[x]))} then begin
-        PathToClosestWeakFront(Army[x], TT, WF, PL); // in this case it's really PathToClosestWeakerFront
-        if (TT > 0) then begin
-          FromTerritory:= Army[x];
-          ToTerritory:= TT;
-          Armies:= TArmies(Army[x]) - 1;
-          if (x = 1) and (TArmies(Army[x]) > 40) and (not TIsBordering(TT, TFront(Army[x], 1))) then Armies:= TArmies(Army[x]) - 4;  // leave some behind in case blocking enemy moves away
-          l('4 untrap me FT: ' + i(Fromterritory) + ' TT: ' + i(Toterritory));
-          exit;
-        end;
-      end;
-    end;
-  end;
-
-  If (bg(72) > 2) and (FromTerritory = bg(71)) then begin  // don't fortify away from the T we intentionally occupied
-    FromTerritory:= 0;      //   71 - Keeps track of the last territory I conquered
-    ToTerritory:= 0;        //   72 - Keeps track of how many times I've attacked the same territory
-  end;
-
-  { 5: find any remaining blocked in Ts that can get to the T with the best balance between fewest EA and shortest Path Length}
-  If FromTerritory = 0 then begin
-    MinEA:= 0;
-    MinPL:= 0;
-    ArmySort(Army);
-    For x:= 1 to PTC do begin
-      T:= Army[x];
-      if (Not TIsFront(T)) and (TArmies(T) > 1) then begin // only line changed from #1
-        PathToClosestWeakFront(T, TT, WF, PL);
-
-        if (TT > 0) and ( ((TArmies(WF) < MinEA) or (MinEA = 0))
-         or ((TArmies(WF) < MinEA + 5) and (PL <= round(double(MinPL)/2))) ){ and (not AIFD(T))} then begin
-          MinPL:= PL;
-          MinEA:= TArmies(WF);
-          FromTerritory:= T;
-          ToTerritory:= TT;
-          Armies:= TArmies(T) - 1;
-          l('');
-          l('5 large army blocked in FT: ' + i(FromTerritory) + ' TT: ' + i(ToTerritory));
-          l('');
-        end;
-      end;
-    end;
-  end;
-
-  // 6: backup code for the case when the only enemy Ts left have more armies than the CForce
-  if FromTerritory = 0 then begin
-    MaxArmy:= 0;
-    For T:= 1 to 42 do begin
-      if TIsMine(T) and (not TIsFront(T)) then begin
-        if (TArmies(T) > TArmies(MaxArmy)) and (TArmies(T) > 1) then MaxArmy:= T;
-      end;
-    end;
-    if MaxArmy > 0 then begin
-      TT:= TPathToFront(MaxArmy);
-      if TT > 0 then begin
-        ToTerritory:= TT;
-        FromTerritory:= MaxArmy;
-        Armies:= TArmies(FromTerritory) - 1;
-      end;
-    end;
-  end;
-
-  If (bg(72) > 2) and (FromTerritory = bg(71)) then begin  // don't fortify away from the T we intentionally occupied
-    FromTerritory:= 0;      //   71 - Keeps track of the last territory I conquered
-    ToTerritory:= 0;        //   72 - Keeps track of how many times I've attacked the same territory
-  end;
-
-  // only send enough into Australia to take it and no more
-  if (FromTerritory = 31) and (ToTerritory = 39) then begin
-    CAnalysis(6, PT, PA, ET, EA);
-    Armies:= ET + EA - (PA - PT);
-    if Armies > TArmies(FromTerritory) - 1 then Armies:= TArmies(FromTerritory) - 1;
-    if TArmies(31) > Armies + 3 Then Armies:= Armies + 3;
-    If Armies > TArmies(31) then Armies:= TArmies(31);
-    if Armies <= 0 then begin
-      FromTerritory:= 0;
-      ToTerritory:=0;
-      Armies:=0;
-    end;
-  end;
-
-end; // end procedure Fortification
-
-begin
-  {
-  UMessageOn;
-  ULogOn;
-  UDialogOn;
-  //}
-  //USnapShotOn;
-end.
\ No newline at end of file
diff --git a/Players/wyrm.trp b/Players/wyrm.trp
deleted file mode 100644
index 5b8e263..0000000
--- a/Players/wyrm.trp
+++ /dev/null
@@ -1,718 +0,0 @@
-{
-Program: Wyrm
-
-Author: Chrys Wurmse - May 24, 2000
-
-Description: Here is my TRP - a little disorganized at times, but still a cunning and
-ruthless opponent.  It does best in 4-5 player games.
-
-History: Ported to TurboRisk 1.3 by Nathan Scarbrough.
-}
-
-function TargetCplacement(Small: integer): integer;
-var
-  T, C, BestC, Diff, BestDiff: integer;
-  PT, PA, ET, EA, X : integer;
-
-begin
-  // LOCAL FUNCTION TARGETCplacement:  determines the target continent to attack
-  // best ratio of armies in the continent and its borders
-  BestDiff:=SMALL;
-  for C:=1 to 6 do
-    begin
-      PT:=0;
-      PA:=0;
-      ET:=0;
-      EA:=0;
-      CAnalysis(C, PT, PA, ET, EA);
-      if (ET>0) then
-        begin
-          // sub CBORDERANALYSIS:  adjust PT, PA, ET, and EA to reflect
-          // territories that border the given continent
-          for X:=1 to CBordersCount(C) do
-            begin
-              T:=Cborder(C,X);
-              if TIsMine(T) then
-                begin
-                  PT:=PT+1;
-                  PA:=PA+TArmies(T);
-                end
-              else
-                begin
-                  ET:=ET+1;
-                  EA:=EA+TArmies(T);
-                end;
-            end;
-        end;
-      Diff:=PA-ET-EA;
-      if (ET>0) and (PT>0) and (Diff>BestDiff) then
-        begin
-          BestDiff:=Diff;
-          BestC:=C;
-        end;
-    end;
-  result:=BestC;
-end;
-
-function MyTPressure(T, MaxFronts: integer): integer;
-var
-  Pressure, MyB, MyT: integer;
-begin
-  // LOCAL FUNCTION MYTPressure:  returns available armies bordering on [enemy?] territory T
-  // my territories must have at most MaxFronts fronts in order to count its armies
-  
-  Pressure:=0;
-
-  for MyB:=1 to TBordersCount(T) do
-    begin
-      MyT:=TBorder(T,MyB);
-      if TIsMine(MyT) and (TFrontsCount(MyT)<=MaxFronts) then
-        Pressure:=Pressure+TArmies(MyT);
-    end;
-  result:=Pressure;
-end;
-
-function TargetTplacement(EnemyC, Small, Allfronts, onefronts: integer; force: double): integer;
-var
-  T, T2, BestT, Diff, BestDiff: integer;
-  ET, EA, X, Y : integer;
-
-begin
-  // LOCAL FUNCTION TARGETTplacement:  determines the target territory to attack
-  // will return a territory on another continent if no attacks are available
-  // on the desired continent {can also return 0 if no feasible attack is available at all}
-  // uses local global ENEMYC
-  
-  BestDiff:=SMALL;
-  BestT:=0;
-  for X:=1 to CTerritoriesCount(EnemyC) do
-    begin
-      T:=CTerritory(EnemyC,X);
-//      UMessage('Checking out territory #',X,' of target continent ',ENEMYC);
-      Y:=MyTPressure(T,ALLFRONTS);
-//      UMessage('Looking at territory ',T,' which you have ',Y,' total pressure on');
-      if (Y>0) and (trunc(FORCE*TArmies(T))<(PNewArmies(PMe)+Y)) and (not TIsMine(T)) then
-        begin
-          // if its an enemy territory that can be conquered, then compute
-          // your 1-front armies (+) less attacked armies (-) less new exposure to enemies (-)
-          Diff:=MyTPressure(T,ONEFRONTS)-TArmies(T);
-//          UMessage('Initial Diff (1-front armies less attacked) is ',Diff);
-          for Y:=1 to TBordersCount(T) do
-            begin
-              T2:=TBorder(T,Y);
-//              UMessage('Secondary loop, looking at territory #',Y,' (namely ',T2,') with my pressure of ',MyTPressure(T2,ALLFRONTS),' and armies ',TArmies(T2));
-              if (MyTPressure(T2,ALLFRONTS)=0) and (not(TIsMine(T2))) then
-                Diff:=Diff-TArmies(T2);
-              // new exposure when territory is conquered
-            end;
-//          UMessage('A conquerable territory on target continent ',EnemyC,' is ',T);
-//          UMessage('my [wasted] 1-front armies less attacked armies less new exposures is ',Diff);
-          if (Diff>BestDiff) then
-            begin
-               BestDiff:=Diff;
-               BestT:=T;
-            end;
-        end;
-    end;
-  if (BestT=0) then
-    begin
-      // look for easiest territory that can be taken [may be on another continent]
-      for T:=1 to 42 do
-        begin
-          if TIsMine(T) then
-            begin
-              TWeakestFront(T,ET,EA);
-              Diff:=TArmies(T)-EA;
-              if (Diff>BestDiff) then
-                begin
-                  BestDiff:=Diff;
-                  BestT:=ET;
-                end;
-            end;
-        end;
-//      TWeakestFront(BestT,ET,EA);  // this code has not been converted to ver 1.3
-//      Diff:=PNewArmies(PMe)*NEWRATIO; // allow only a %-age of new armies to go for this attack
-//      Diff:=Diff+TArmies(BestT)-EA*FORCE;
-//      if Diff<1 then BestT:=0;
-    end;
-  result:=BestT;
-end;
-
-function TargetCattack(small: integer): integer;
-var
-  T, C, BestC, Diff, BestDiff: integer;
-  PT, PA, ET, EA, X, Y: integer;
-  
-
-begin
-  // LOCAL FUNCTION TARGETCattack:  determines the target continent to attack
-  // best ratio of armies in the continent and its borders
-
-  
-  BestDiff:=0; // will hold maximum number of armies controlled by leading player Y
-  for X:=1 to 10 do
-    if (PActive(X)) and (X<>PMe) then
-      if (PArmiesCount(X)>BestDiff) then
-        begin
-          BestDiff:=PArmiesCount(X);
-          Y:=X; // Y holds the leading player's number
-        end;
-
-  BestDiff:=SMALL;
-  for C:=1 to 6 do
-    begin
-      PT:=0;
-      PA:=0;
-      ET:=0;
-      EA:=0;
-      CAnalysis(C, PT, PA, ET, EA);
-      if (ET>0) then
-        begin
-          // sub CBORDERANALYSIS:  adjust PT, PA, ET, and EA to reflect
-          // territories that border the given continent
-          for X:=1 to CBordersCount(C) do
-            begin
-              T:=Cborder(C,X);
-              if TIsMine(T) then
-                begin
-                  PT:=PT+1;
-                  PA:=PA+TArmies(T);
-                end
-              else
-                begin
-                  ET:=ET+1;
-                  EA:=EA+TArmies(T);
-                end;
-            end;
-        end;
-      Diff:=PA-ET-EA;
-
-      if (COwner(C)=Y) and SConquest and (PT>0) then // attack the leading player's continents
-        begin
-          Diff:=Diff+500;
-//          UMessage(PName(PMe),' is favoring an extra attack on ',PName(Y),', in continent # ',C,', because they are the leader');
-        end;
-
-      if (COwner(C)>0) and (COwner(C)<>PMe) and SConquest and (PT>0) then
-//        if (PArmiesCount(COwner(C))>PArmiesCount(PMe)) then
-          Diff:=Diff+500;
-// actually, just attack that other continent anyway, no matter what
-      // also attack an opponent's continent if they are about to run over you themselves
-
-      if (ET>0) and (PT>0) and (Diff>BestDiff) then
-        begin
-          BestDiff:=Diff;
-          BestC:=C;
-        end;
-//        UMessage('best continent = ',BestC,' with my armies less his armies of ',BestDiff);
-    end;
-  result:=BestC;
-end;
-
-function TargetTattack(enemyc, small, allfronts, onefronts: integer; force: double): integer;
-var
-  T, T2, BestT, Diff, BestDiff: integer;
-  ET, EA, X, Y: integer;
-
-begin
-  // LOCAL FUNCTION TARGETTattack:  determines the target territory to attack
-  // will return a territory on another continent if no attacks are available
-  // on the desired continent {can also return 0 if no feasible attack is available at all}
-  // uses local global ENEMYC
-
-
-  BestDiff:=SMALL*5;
-  BestT:=0;
-  for X:=1 to CTerritoriesCount(EnemyC) do
-    begin
-      T:=CTerritory(EnemyC,X);
-//      UMessage('Checking out territory #',X,' of target continent ',ENEMYC);
-      Y:=MyTPressure(T,ALLFRONTS);
-//      if SConquest then
-//        UMessage('Looking at territory ',T,' which you have ',Y,' total pressure on');
-      if (Y>0) and (trunc(FORCE*TArmies(T))<(PNewArmies(PMe)+Y)) and (not TIsMine(T)) then
-        begin
-          // if its an enemy territory that can be conquered, then compute
-          // your 1-front armies (+) less attacked armies (-) less new exposure to enemies (-)
-          Diff:=MyTPressure(T,ONEFRONTS)-TArmies(T);
-//          UMessage('Initial Diff (1-front armies less attacked) is ',Diff);
-          for Y:=1 to TBordersCount(T) do
-            begin
-              T2:=TBorder(T,Y);
-//              UMessage('Secondary loop, looking at territory #',Y,' (namely ',T2,') with my pressure of ',MyTPressure(T2,ALLFRONTS),' and armies ',TArmies(T2));
-              if (MyTPressure(T2,ALLFRONTS)=0) and (not(TIsMine(T2))) then
-                Diff:=Diff-TArmies(T2);
-              // new exposure when territory is conquered
-            end;
-//          if SConquest then
-//            UMessage('A conquerable territory on target continent ',EnemyC,' is ',T);
-//          UMessage('my [wasted] 1-front armies less attacked armies less new exposures is ',Diff);
-          if (Diff>BestDiff) then
-            begin
-               BestDiff:=Diff;
-               BestT:=T;
-            end;
-        end;
-    end;
-  if (BestT=0) and (not SConquest) then
-    begin
-      // look for easiest territory that can be taken [may be on another continent]
-      for T:=1 to 42 do
-        begin
-          if TIsMine(T) then
-            begin
-              TWeakestFront(T,ET,EA);
-              Diff:=TArmies(T)-EA;
-              if (Diff>BestDiff) then
-                begin
-                  BestDiff:=Diff;
-                  BestT:=ET;
-                end;
-            end;
-        end;
-    end;
-  result:=BestT;
-end;
-
-//procA
-procedure Assignment(var ToTerritory: integer);
-var
-  T: integer;
-begin
-
-  // find first free territory (a very stupid way to start the game!)
-  ToTerritory:=0;
-  T:=1;
-  repeat
-    if TOwner(T)=0 then
-      ToTerritory:=T;
-    T:=T+1;
-  until (ToTerritory>0) or (T>42);
-end;
-
-
-//procP
-procedure Placement(var ToTerritory: integer);
-var
-  MinDiff, EnemyC, EnemyT, T, B, C, Diff, BestDiff: integer;
-  PT, PA, ET, EA, AnyAttack: integer;
-  
-  SMALL, ALLFRONTS, ONEFRONTS, CBONUS, MINARMIES: integer;
-  FORCE, NEWRATIO: double;
-
-
-begin
-  // PLACEMENT:  defines ToTerritory (where 1 army will be placed)
-  // 1) make sure ANY attack is possible
-  // 2) reinforce existing continents
-  // 3) make sure desired attack is possible
-  // 4) beef up the target continent
-  // 5) take care of the rest of your territories
-  
-
-  SMALL:=-9999;       // CONSTANTS SECTION
-  FORCE:=1.2;
-  MINARMIES:=5;
-  ALLFRONTS:=10;
-  ONEFRONTS:=1;
-  CBONUS:=12;          // bonus for reinforcing territories in current target continent
-  NEWRATIO:=0.5;      // %-age of new armies that can go towards an out-of-continent attack
-
-  ToTerritory:=0;
-  AnyAttack:=0;
-  
-  for T:=1 to 42 do begin
-    if TIsMine(T) then begin
-      TWeakestFront(T,ET,EA);
-      if (TArmies(T)>trunc(MINARMIES+EA*FORCE)) then AnyAttack:=1;
-    end;
-  end;
-
-  for C:=1 to 6 do begin    // reinforce existing continents if necessary - to defend against STRONGEST front first
-    if (COwner(C)=PMe) and (ToTerritory=0) and (AnyAttack=1) then begin
-      for B:=1 to CTerritoriesCount(C) do begin
-        T:=CTerritory(C,B);
-        if TIsFront(T) then begin
-          TStrongestFront(T,ET,EA);
-          if (double(TArmies(T))<MINARMIES+EA*FORCE) then      // shortfall in my territory T
-            if (ToTerritory=0) then ToTerritory:=T
-          else 
-            if (TArmies(T)>TArmies(ToTerritory)) then ToTerritory:=T;
-        end;
-      end;
-    end;
-  end;
-
-  EnemyC:=TargetCplacement(small);
-  EnemyT:=TargetTplacement(EnemyC, Small, Allfronts, onefronts, force);
-
-{ The following 5 lines have yet to be converted into strings for Turborisk 1.3 and up }
-// UMessage('Total new armies to place ',PNewArmies(PMe));
-// UMessage('target continent = ',EnemyC);
-// UMessage('target territory = ',EnemyT);
-// UMessage('total pressure on that target territory = ',MyTPressure(EnemyT,ALLFRONTS));
-// UMessage('minimum required armies to attack = ',MINARMIES+TArmies(EnemyT)*FORCE);
-
-
-  if (EnemyT<>0) and (double(MyTPressure(EnemyT,ALLFRONTS))<MINARMIES+TArmies(EnemyT)*FORCE) then begin
-//  continue to reinforce until attack is possible - put them all in strongest country
-    BestDiff:=SMALL;
-    for B:=1 to TBordersCount(EnemyT) do begin
-      T:=TBorder(EnemyT,B);
-      Diff:=TArmies(T);
-      if TIsFront(T) and (Diff>BestDiff) then begin
-        BestDiff:=Diff;
-        ToTerritory:=T;
-      end;
-    end;      
-  end;
-
-  if (ToTerritory=0) then begin         // attack is already guaranteed.  beef up the target continent
-    PT:=0;
-    PA:=0;
-    ET:=0;
-    EA:=0;
-    BestDiff:=SMALL;
-
-    CAnalysis(EnemyC, PT, PA, ET, EA);
-
-    if (double(PA-PT)<MINARMIES+ET+EA*FORCE) then begin     // place more armies in the continent so that you can capture the whole thing
-      for B:=1 to CTerritoriesCount(EnemyC) do begin
-        T:=CTerritory(EnemyC,B);
-        Diff:=TArmies(T); // put in strongest
-        if (PNewArmies(PMe)>5) then Diff:=-TArmies(T);       // but put in weakest front until 5 armies left
-        if TIsFront(T) and (Diff>BestDiff) then begin
-          ToTerritory:=T;
-          BestDiff:=Diff;
-        end;
-      end;
-    end;
-  end;
-      
-  for C:=1 to 6 do begin                                     // reinforce existing continents if necessary - WEAKEST front first
-    if (COwner(C)=PMe) and (ToTerritory=0) then begin      // if you own the continent and already have an attack
-      for B:=1 to CTerritoriesCount(C) do begin
-        T:=CTerritory(C,B);
-        if TIsFront(T) then begin
-          TStrongestFront(T,ET,EA);
-          if (double(TArmies(T))<(EA*FORCE)) then begin
-            if (ToTerritory=0) then ToTerritory:=T 
-              else if (TArmies(T)>TArmies(ToTerritory)) then ToTerritory:=T;
-          end;
-        end;
-      end;
-    end;
-  end;
-  TWeakestFront(EnemyT,ET,EA);
-
-  if (EnemyT<>0) and (ToTerritory=0) and (double(MyTPressure(EnemyT,ALLFRONTS))<(EA+MINARMIES+TArmies(EnemyT)*FORCE)) then begin
-//  continue to reinforce until attack is possible - put them all in strongest country
-    BestDiff:=SMALL;
-   
-    for B:=1 to TBordersCount(EnemyT) do begin
-      T:=TBorder(EnemyT,B);
-      if TIsMine(T) and (TArmies(T)>BestDiff) then begin
-        BestDiff:=TArmies(T);
-        ToTerritory:=T;
-      end;
-    end;      
-  end;
-
-  for C:=1 to 6 do begin                                 // reinforce existing continents if necessary
-    if (COwner(C)=PMe) and (ToTerritory=0) then begin    // if you own the continent and already have an attack
-      for B:=1 to CTerritoriesCount(C) do begin
-        T:=CTerritory(C,B);
-        if TIsFront(T) then begin
-          if (double(TArmies(T))<(TPressure(T)*FORCE)) then
-            if (ToTerritory=0) then ToTerritory:=T
-              else if (TArmies(T)>TArmies(ToTerritory)) then ToTerritory:=T;
-        end;
-      end;
-    end;
-  end;
-
-  if ToTerritory=0 then begin                           // attack is already guaranteed
-    BestDiff:=SMALL;
-    for T:=1 to 42 do begin
-      TWeakestFront(T,ET,EA);
-      Diff:=TArmies(T)+PNewArmies(PMe)-EA;              // worthwhile to fortify this one?
-      if (TContinent(T)=EnemyC) then Diff:=1;            // but always worthwhile fortifying your target continent
-      if TIsFront(T) and (Diff>0) then begin             // territory is mine and front and can be made stronger than the weakest front
-
-        Diff:= (TPressure(T)-TArmies(T));
-        if TIsBordering(T,EnemyT) then Diff:=(TPressure(T)+(TArmies(T) div 8));  // avoid fortifying around a country you're about to take
-
-        if (TContinent(T)=EnemyC) then Diff:=(Diff+CBONUS);
-//      UMessage('Territory ',T,' is worthy of fortification with Pressure - Armies + Bonus of ',Diff);
-        if (Diff>BestDiff) then begin
-          ToTerritory:=T;
-          BestDiff:=Diff;
-        end;
-      end;
-    end;
-  end;
-
-  // This Code was added to fix a rare bug and as bug control to accommodate for any unknown bugs
-  // added by Nathan Scarbrough 11/30/09
-  if ToTerritory = 0 then begin
-    MinDiff:=999999999;
-    For T:= 1 to 42 do begin
-      if TIsFront(T) then begin
-        TWeakestFront(T, ET, EA);
-        Diff:= EA - TArmies(T);
-        if Diff < MinDiff then begin    // Place on the T with the greatest chance to win an attack
-          MinDiff:= Diff;
-          ToTerritory:= T;
-        end;
-      end;
-    end;
-  end;
-end;
-
-//procA
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  
-  EnemyC, T, B, Diff, BestDiff: integer;
-  PT, PA, ET, EA : integer;
-  SMALL, ALLFRONTS, ONEFRONTS, CBONUS, MINARMIES: integer;
-  FORCE, NEWRATIO: double;
-  
-begin // ATTACK
-  // defines FromTerritory and ToTerritory.  No attack if FromTerritory is 0
-  // perform an attack on the next achievable continent, or the cheapest attack if
-  // no attack is available there (decided in function TargetTattack).
-  // Not Implemented yet:  If you can safely eliminate a player, do so
-  // sometimes picks a smaller front when a non-front is available???
-
-  SMALL:=-9999;       // CONSTANTS SECTION
-  FORCE:=0.95;         // smaller FORCE than in PLACEMENT procedure to encourage attacks
-  MINARMIES:=2;
-  ALLFRONTS:=10;
-  ONEFRONTS:=1;
-  CBONUS:=5;          // bonus for reinforcing territories in current target continent
-  NEWRATIO:=0.5;      // %-age of new armies that can go towards an out-of-continent attack
-
-  EnemyC:=TargetCattack(small);
-  PT:=0;
-  PA:=0;
-  ET:=0;
-  EA:=0;
-  CAnalysis(EnemyC, PT, PA, ET, EA);
-
-//  if SConquest then
-//    UMessage('Target continent = ',EnemyC,' with excess of ',PA-PT-ET-EA);
-
-//  if SConquest and (PA>EA) then
-//    UMessage('You should attack continent ',EnemyC,' since you have ',PA,' armies and he only has ',EA);
-
-  BestDiff:=0; // will hold maximum number of armies controlled by leading player B
-  for T:=1 to 10 do
-    if (PActive(T)) and (T<>PMe) then
-      if (PArmiesCount(T)>BestDiff) then
-        begin
-          BestDiff:=PArmiesCount(T);
-          B:=T;
-        end;
-
-  if ((PA-PT)>trunc((double(MINARMIES)+ET+EA)/FORCE)) or (not SConquest) or (COwner(EnemyC)>0) then
-    begin
-      ToTerritory:=TargetTattack(enemyc, small, allfronts, onefronts, force);
-//      UMessage('Target Continent = ',EnemyC,' Target Territory = ',ToTerritory);
-//      if (ToTerritory=0) and (not SConquest) then
-//        UMessage('why arent you proposing an attack, perhaps on your target continent ',EnemyC);
-//      if SConquest and (ToTerritory<>0) then
-//        UMessage('Extra attack!  You are attacking continent ',EnemyC,', territory ',ToTerritory,' since you have ',PA,' armies and he only has ',EA);
-      if (ToTerritory<>0) then
-        begin
-          // calculate the correct territory to attack from
-          // 1)  weakest 1-front if ToTerritory armies > 2, otherwise strongest 1-front
-          // 2)  highest TArmies-TPressure.  This may not be the best
-          BestDiff:=SMALL*5;
-          for B:=1 to TBordersCount(ToTerritory) do
-            begin
-              T:=TBorder(ToTerritory,B);
-              if TIsMine(T) and (TArmies(T)>1) and ((TArmies(T)>2) or (TArmies(ToTerritory)=1)) then // no attacks ever with 2 or less armies
-                begin
-                  Diff:=TArmies(T)-(TPressure(T) div 3); // stress armies more than pressure
-                  if (TArmies(T)<4) and (TArmies(ToTerritory)>1) then
-                    Diff:=Diff+SMALL*2; // discourage these attacks with less than 4 armies
-                  if (TFrontsCount(T)=1) then
-                    begin
-                      if (TArmies(ToTerritory)>2) then
-                        Diff:=Diff-SMALL-TArmies(T)*2  // weakest 1-front will be picked
-                      else
-                        Diff:=Diff-SMALL; // strongest 1-front will be picked
-                    end;
-                  if (Diff>BestDiff) then
-                    begin
-                      BestDiff:=Diff;
-                      FromTerritory:=T;
-                    end;
-                end;
-            end;
-          BestDiff:=(MyTPressure(ToTerritory,ALLFRONTS))-(TArmies(ToTerritory));
-          if (BestDiff<0) then
-            begin
-//              UMessage('About to abort an attack on target continent ',EnemyC,' from ',FromTerritory,' to ',ToTerritory,' with enemy armies ',TArmies(ToTerritory),' and MyTPressure ',MyTPressure(ToTerritory,ALLFRONTS),' for a total negative difference of ',BestDiff);
-//              UMessage('double checking - enemy armies ',TArmies(ToTerritory),' and MyTPressure ',MyTPressure(ToTerritory,ALLFRONTS),' for a total negative difference of ',BestDiff);
-              FromTerritory:=0; // abort attacks that won't work
-            end;
-        end;
-    end;
-
-end;
-
-
-//procO
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-  EA, ET, Buffer : integer;
-
-begin
-
-
-  // very simple but effective routine
-  // moves ARMIES from FROMTERRITORY to TOTERRITORY (which was just conquered)
-
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  Armies:=0;
-
-  if  FromIsFront and ToIsFront then  // if both territories are 'front'
-      begin
-        TStrongestFront(FromTerritory,ET,EA); // idea is to leave behind only what you need
-	Buffer:=TArmies(FromTerritory) div 8;
-        if (Buffer<3) then
-          Buffer:=3;
-        EA:=EA+Buffer; // leave some extra
-        ET:=(1+TArmies(FromTerritory)-TArmies(ToTerritory)) div 2; // balancing move
-        if (EA>TArmies(FromTerritory)-ET) then
-          Armies:=ET // will always move at least armies to balance territories
-        else Armies:=TArmies(FromTerritory)-EA; // but maybe more
-      end 
-    else if FromisFront then // only "From" territory is front
-      begin 
-        // all armies stay in From territory, so there's nothing to do
-      end
-    else
-      begin
-        // all armies in the conquered territory (except one which must stay)
-        Armies:=TArmies(FromTerritory)-1;
-      end;
-end;
-
-
-//procF
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  BestFrom,BestArmies,F,T,Arm,B,MaxArmy,Diff,BestDiff,EA,ET: integer;
-  SMALL, ALLFRONTS, ONEFRONTS: integer;
-
-begin
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-  ALLFRONTS:=10;
-  ONEFRONTS:=1;
-  SMALL:=-9999;
-
-  // look for front country that needs the most help.  favor continents that you
-  // already own, and countries that can be helped by 0-fronts
-  // "most help" implies difference between MyArmies and the strongest front
-
-  // for each of your fronts, determine the FromTerritory, the deficit, and the benefit able to be provided
-
-
-  BestArmies:=0;
-  BestDiff:=SMALL;
-//  UMessage('Calling procedure Fortification');
-
-  for T:=1 to 42 do
-    if TIsFront(T) then
-      begin
-        TStrongestFront(T,ET,EA);
-        Diff:=EA-TArmies(T); // your current deficit
-        BestArmies:=0;
-        for B:=1 to TBordersCount(T) do
-          begin
-            F:=TBorder(T,B);  // start looking for the best FromTerritory
-            if TIsMine(F) and (TArmies(F)>1) then
-              begin
-                TStrongestFront(F,ET,EA);
-                if (not TIsFront(F)) then
-                  Arm:=TArmies(F)-1
-                else
-                  Arm:=TArmies(F)-EA; // the absolute most you can spare
-//                  UMessage(TName(T),' has a deficit of ',Diff,' but can be helped by ',TName(F),' which can spare ',Arm,' armies');
-                if (Arm>BestArmies) then
-                  begin
-                    BestArmies:=Arm;
-                    BestFrom:=F;
-                  end;
-              end;
-          end;
-        // now you have found your best FromTerritory "BestFrom" for this ToTerritory T
-        // it can spare "BestArmies" and you had desired "Diff"
-        B:=Diff;
-        if (B>BestArmies) then
-          B:=BestArmies; // you needed more than you could can spare
-        if (B>BestDiff) and ((B+BestArmies)>1) and (BestArmies>2) then
-          begin
-            Armies:=(B+BestArmies) div 2;
-            if (not TIsFront(BestFrom)) then
-              Armies:=BestArmies;
-//            UMessage('Found a better fortification:  move ',Armies,' armies from ',TName(BestFrom),' to ',TName(T));
-            BestDiff:=B;
-            FromTerritory:=BestFrom;
-            ToTerritory:=T;
-          end;
-      end;
-//  if (Armies<>0) then 
-//    UMessage('Recommend moving ',Armies,' from ',FromTerritory,' to ',ToTerritory);
-
-  if (ToTerritory=0) then // use original fortification code -- find largest zero-front
-begin
-  MaxArmy := 1;
-  for T:=1 to 42 do begin
-    if TIsMine(T) and not TIsFront(T) then begin  // territory is mine and not "front"
-      if TArmies(T)>MaxArmy then begin
-        MaxArmy := TArmies(T);
-        FromTerritory := T;
-      end;
-    end;
-  end;
-  // if there are armies to move...
-  if FromTerritory>0 then begin
-    // check if can move armies to front...
-    for B:=1 to TBordersCount(FromTerritory) do begin
-      if ToTerritory=0 then begin
-        T:=TBorder(FromTerritory,B);
-        if TIsMine(T) and TIsFront(T) then begin
-          ToTerritory:=T;
-        end;
-      end;
-    end;
-    // otherwise move armies in the first bordering territory
-    if ToTerritory=0 then begin
-      for B:=1 to TBordersCount(FromTerritory) do begin
-        if ToTerritory=0 then begin
-          T:=TBorder(FromTerritory,B);
-          if TIsMine(T) then begin
-            ToTerritory:=T;
-          end;
-        end;
-      end;
-    end;
-    // Move all armies to destination (except the one which must stay)
-    if ToTerritory>0 then begin
-      Armies:=TArmies(FromTerritory)-1;
-    end;
-  end;
-end;
-
-end;
-
-begin
-end.
diff --git a/Players/zotob.trp b/Players/zotob.trp
deleted file mode 100644
index 180a869..0000000
--- a/Players/zotob.trp
+++ /dev/null
@@ -1,1942 +0,0 @@
-{
-Program: Zotob
-
-Author: Nathan Scarbrough
-Credit to Anthony Covey-Crump for Descartes and
-Chrys Wurmse for Wyrm
-
-Description: This is a Wyrm + Descartes hybrid
-Zotob plays as Wyrm until he only has two territories left in which case Descartes takes over.
-He switches back to Wyrm when he owns at least 2 continents and more than 15 territories.
-He will also start out as Descartes if there are 5 or more players
-He is named after the computer worm Zotob.
-
-History: I made this TRP because Wyrm often gets defeated early on in games with many players and I thought that using Descartes code could help him survive longer.
-
-June 2009
-
-}
-
-function TargetCplacement(Small: integer): integer;
-var
-  T, C, BestC, Diff, BestDiff: integer;
-  PT, PA, ET, EA, X : integer;
-
-begin
-  // LOCAL FUNCTION TARGETCplacement:  determines the target continent to attack
-  // best ratio of armies in the continent and its borders
-
-  BestDiff:=SMALL;
-  for C:=1 to 6 do
-    begin
-      PT:=0;
-      PA:=0;
-      ET:=0;
-      EA:=0;
-      CAnalysis(C, PT, PA, ET, EA);
-      if (ET>0) then
-        begin
-          // sub CBORDERANALYSIS:  adjust PT, PA, ET, and EA to reflect
-          // territories that border the given continent
-          for X:=1 to CBordersCount(C) do
-            begin
-              T:=Cborder(C,X);
-              if TIsMine(T) then
-                begin
-                  PT:=PT+1;
-                  PA:=PA+TArmies(T);
-                end
-              else
-                begin
-                  ET:=ET+1;
-                  EA:=EA+TArmies(T);
-                end;
-            end;
-        end;
-      Diff:=PA-ET-EA;
-      if (ET>0) and (PT>0) and (Diff>BestDiff) then
-        begin
-          BestDiff:=Diff;
-          BestC:=C;
-        end;
-    end;
-  result:=BestC;
-end;
-
-function MyTPressure(T, MaxFronts: integer): integer;
-var
-  Pressure, MyB, MyT: integer;
-begin
-  // LOCAL FUNCTION MYTPressure:  returns available armies bordering on [enemy?] territory T
-  // my territories must have at most MaxFronts fronts in order to count its armies
-  
-  Pressure:=0;
-
-  for MyB:=1 to TBordersCount(T) do
-    begin
-      MyT:=TBorder(T,MyB);
-      if TIsMine(MyT) and (TFrontsCount(MyT)<=MaxFronts) then
-        Pressure:=Pressure+TArmies(MyT);
-    end;
-  result:=Pressure;
-end;
-
-function TargetTplacement(EnemyC, Small, Allfronts, onefronts: integer; force: double): integer;
-var
-  T, T2, BestT, Diff, BestDiff: integer;
-  ET, EA, X, Y : integer;
-
-begin
-  // LOCAL FUNCTION TARGETTplacement:  determines the target territory to attack
-  // will return a territory on another continent if no attacks are available
-  // on the desired continent {can also return 0 if no feasible attack is available at all}
-  // uses local global ENEMYC
-  
-  BestDiff:=SMALL;
-  BestT:=0;
-  for X:=1 to CTerritoriesCount(EnemyC) do
-    begin
-      T:=CTerritory(EnemyC,X);
-//      UMessage('Checking out territory #',X,' of target continent ',ENEMYC);
-      Y:=MyTPressure(T,ALLFRONTS);
-//      UMessage('Looking at territory ',T,' which you have ',Y,' total pressure on');
-      if (Y>0) and (trunc(FORCE*TArmies(T))<(PNewArmies(PMe)+Y)) and (not TIsMine(T)) then
-        begin
-          // if its an enemy territory that can be conquered, then compute
-          // your 1-front armies (+) less attacked armies (-) less new exposure to enemies (-)
-          Diff:=MyTPressure(T,ONEFRONTS)-TArmies(T);
-//          UMessage('Initial Diff (1-front armies less attacked) is ',Diff);
-          for Y:=1 to TBordersCount(T) do
-            begin
-              T2:=TBorder(T,Y);
-//              UMessage('Secondary loop, looking at territory #',Y,' (namely ',T2,') with my pressure of ',MyTPressure(T2,ALLFRONTS),' and armies ',TArmies(T2));
-              if (MyTPressure(T2,ALLFRONTS)=0) and (not(TIsMine(T2))) then
-                Diff:=Diff-TArmies(T2);
-              // new exposure when territory is conquered
-            end;
-//          UMessage('A conquerable territory on target continent ',EnemyC,' is ',T);
-//          UMessage('my [wasted] 1-front armies less attacked armies less new exposures is ',Diff);
-          if (Diff>BestDiff) then
-            begin
-               BestDiff:=Diff;
-               BestT:=T;
-            end;
-        end;
-    end;
-  if (BestT=0) then
-    begin
-      // look for easiest territory that can be taken [may be on another continent]
-      for T:=1 to 42 do
-        begin
-          if TIsMine(T) then
-            begin
-              TWeakestFront(T,ET,EA);
-              Diff:=TArmies(T)-EA;
-              if (Diff>BestDiff) then
-                begin
-                  BestDiff:=Diff;
-                  BestT:=ET;
-                end;
-            end;
-        end;
-//      TWeakestFront(BestT,ET,EA);  // this code has not been converted to ver 1.3
-//      Diff:=PNewArmies(PMe)*NEWRATIO; // allow only a %-age of new armies to go for this attack
-//      Diff:=Diff+TArmies(BestT)-EA*FORCE;
-//      if Diff<1 then BestT:=0;
-    end;
-  result:=BestT;
-end;
-
-function TargetCattack(small: integer): integer;
-var
-  T, C, BestC, Diff, BestDiff: integer;
-  PT, PA, ET, EA, X, Y: integer;
-  
-
-begin
-  // LOCAL FUNCTION TARGETCattack:  determines the target continent to attack
-  // best ratio of armies in the continent and its borders
-
-  
-  BestDiff:=0; // will hold maximum number of armies controlled by leading player Y
-  for X:=1 to 10 do
-    if (PActive(X)) and (X<>PMe) then
-      if (PArmiesCount(X)>BestDiff) then
-        begin
-          BestDiff:=PArmiesCount(X);
-          Y:=X; // Y holds the leading player's number
-        end;
-
-  BestDiff:=SMALL;
-  for C:=1 to 6 do
-    begin
-      PT:=0;
-      PA:=0;
-      ET:=0;
-      EA:=0;
-      CAnalysis(C, PT, PA, ET, EA);
-      if (ET>0) then
-        begin
-          // sub CBORDERANALYSIS:  adjust PT, PA, ET, and EA to reflect
-          // territories that border the given continent
-          for X:=1 to CBordersCount(C) do
-            begin
-              T:=Cborder(C,X);
-              if TIsMine(T) then
-                begin
-                  PT:=PT+1;
-                  PA:=PA+TArmies(T);
-                end
-              else
-                begin
-                  ET:=ET+1;
-                  EA:=EA+TArmies(T);
-                end;
-            end;
-        end;
-      Diff:=PA-ET-EA;
-
-      if (COwner(C)=Y) and SConquest and (PT>0) then // attack the leading player's continents
-        begin
-          Diff:=Diff+500;
-//          UMessage(PName(PMe),' is favoring an extra attack on ',PName(Y),', in continent # ',C,', because they are the leader');
-        end;
-
-      if (COwner(C)>0) and (COwner(C)<>PMe) and SConquest and (PT>0) then
-//        if (PArmiesCount(COwner(C))>PArmiesCount(PMe)) then
-          Diff:=Diff+500;
-// actually, just attack that other continent anyway, no matter what
-      // also attack an opponent's continent if they are about to run over you themselves
-
-      if (ET>0) and (PT>0) and (Diff>BestDiff) then
-        begin
-          BestDiff:=Diff;
-          BestC:=C;
-        end;
-//        UMessage('best continent = ',BestC,' with my armies less his armies of ',BestDiff);
-    end;
-  result:=BestC;
-end;
-
-function TargetTattack(enemyc, small, allfronts, onefronts: integer; force: double): integer;
-var
-  T, T2, BestT, Diff, BestDiff: integer;
-  ET, EA, X, Y: integer;
-
-begin
-  // LOCAL FUNCTION TARGETTattack:  determines the target territory to attack
-  // will return a territory on another continent if no attacks are available
-  // on the desired continent {can also return 0 if no feasible attack is available at all}
-  // uses local global ENEMYC
-
-
-  BestDiff:=SMALL*5;
-  BestT:=0;
-  for X:=1 to CTerritoriesCount(EnemyC) do
-    begin
-      T:=CTerritory(EnemyC,X);
-//      UMessage('Checking out territory #',X,' of target continent ',ENEMYC);
-      Y:=MyTPressure(T,ALLFRONTS);
-//      if SConquest then
-//        UMessage('Looking at territory ',T,' which you have ',Y,' total pressure on');
-      if (Y>0) and (trunc(FORCE*TArmies(T))<(PNewArmies(PMe)+Y)) and (not TIsMine(T)) then
-        begin
-          // if its an enemy territory that can be conquered, then compute
-          // your 1-front armies (+) less attacked armies (-) less new exposure to enemies (-)
-          Diff:=MyTPressure(T,ONEFRONTS)-TArmies(T);
-//          UMessage('Initial Diff (1-front armies less attacked) is ',Diff);
-          for Y:=1 to TBordersCount(T) do
-            begin
-              T2:=TBorder(T,Y);
-//              UMessage('Secondary loop, looking at territory #',Y,' (namely ',T2,') with my pressure of ',MyTPressure(T2,ALLFRONTS),' and armies ',TArmies(T2));
-              if (MyTPressure(T2,ALLFRONTS)=0) and (not(TIsMine(T2))) then
-                Diff:=Diff-TArmies(T2);
-              // new exposure when territory is conquered
-            end;
-//          if SConquest then
-//            UMessage('A conquerable territory on target continent ',EnemyC,' is ',T);
-//          UMessage('my [wasted] 1-front armies less attacked armies less new exposures is ',Diff);
-          if (Diff>BestDiff) then
-            begin
-               BestDiff:=Diff;
-               BestT:=T;
-            end;
-        end;
-    end;
-  if (BestT=0) and (not SConquest) then
-    begin
-      // look for easiest territory that can be taken [may be on another continent]
-      for T:=1 to 42 do
-        begin
-          if TIsMine(T) then
-            begin
-              TWeakestFront(T,ET,EA);
-              Diff:=TArmies(T)-EA;
-              if (Diff>BestDiff) then
-                begin
-                  BestDiff:=Diff;
-                  BestT:=ET;
-                end;
-            end;
-        end;
-    end;
-  result:=BestT;
-end;
-
-//***********************************************************************
-//***********************************************************************
-
-procedure Assignment(var ToTerritory: integer);
-var
-  T: integer;
-begin
-
-  // find first free territory (a very stupid way to start the game!)
-  ToTerritory:=0;
-  T:=1;
-  repeat
-    if TOwner(T)=0 then
-      ToTerritory:=T;
-    T:=T+1;
-  until (ToTerritory>0) or (T>42);
-end;
-
-
-
-//procP
-procedure Placement(var ToTerritory: integer);
-var
-  EnemyC, EnemyT, T, B, C, Diff, BestDiff: integer;
-  PT, PA, ET, EA, AnyAttack: integer;
-  
-  SMALL, ALLFRONTS, ONEFRONTS, TargetCBONUS, MINARMIES: integer;
-  FORCE, NEWRATIO: double;
-
-  X,Y,T2,D,D2,Z,TA,KillPlayer: integer;
-  Score: double;
-  MaxTerritoryValue,TerritoryValue,TerritoryTo: integer;
-  TerritoryArmies: integer;
-  
-  TotalArmies,PlayerArmies,P,A:Integer;
-  testa: double;
-  testb: integer;
-
-  count: integer;
-  Label Descartes;
-  Label GotoEnd;
-
-begin
-  If (ubufferget(46) <> 1) and (splayerscount > 4) then begin 
-    ubufferset(48, 1);	// goto descartes
-    ubufferset(46, 1);  // don't run this code again
-  end;
-
-  If (UBufferGet(48) = 0) and (PTerritoriesCount(PMe) < 3) then ubufferset(48, 1);
-
-  Count:=0;
-  For C:= 1 to 6 do if COwner(C) = PMe then Count:=Count + 1;
-  If (UBufferGet(48) = 1) and (( (count > 1) and (PTerritoriesCount(PMe) > 15) )
-  or (Count > 2)) then ubufferset(48, 0);
-  Count:=0;
-
-
-  If UBufferGet(48) = 1 then goto Descartes;
-
-//Wyrm
-  // PLACEMENT:  defines ToTerritory (where 1 army will be placed)
-  // 1) make sure ANY attack is possible
-  // 2) reinforce existing continents
-  // 3) make sure desired attack is possible
-  // 4) beef up the target continent
-  // 5) take care of the rest of your territories
-  
-
-  SMALL:=-9999;       // CONSTANTS SECTION
-  FORCE:=1.2;
-  MINARMIES:=5;
-  ALLFRONTS:=10;
-  ONEFRONTS:=1;
-  TargetCBONUS:=12;          // bonus for reinforcing territories in current target continent
-  NEWRATIO:=0.5;      // %-age of new armies that can go towards an out-of-continent attack
-
-  ToTerritory:=0;
-  AnyAttack:=0;
-  
-  for T:=1 to 42 do begin
-    if TIsMine(T) then begin
-      TWeakestFront(T,ET,EA);
-      if (TArmies(T)>trunc(MINARMIES+EA*FORCE)) then AnyAttack:=1;
-    end;
-  end;
-
-  for C:=1 to 6 do begin    // reinforce existing continents if necessary - to defend against STRONGEST front first
-    if (COwner(C)=PMe) and (ToTerritory=0) and (AnyAttack=1) then begin
-      for B:=1 to CTerritoriesCount(C) do begin
-        T:=CTerritory(C,B);
-        if TIsFront(T) then begin
-          TStrongestFront(T,ET,EA);
-          if (double(TArmies(T))<MINARMIES+EA*FORCE) then      // shortfall in my territory T
-            if (ToTerritory=0) then ToTerritory:=T
-          else 
-            if (TArmies(T)>TArmies(ToTerritory)) then ToTerritory:=T;
-        end;
-      end;
-    end;
-  end;
-
-  EnemyC:=TargetCplacement(small);
-  EnemyT:=TargetTplacement(EnemyC, Small, Allfronts, onefronts, force);
-
-
-  if (EnemyT<>0) and (double(MyTPressure(EnemyT,ALLFRONTS))<MINARMIES+TArmies(EnemyT)*FORCE) then begin
-//  continue to reinforce until attack is possible - put them all in strongest country
-    BestDiff:=SMALL;
-    for B:=1 to TBordersCount(EnemyT) do begin
-      T:=TBorder(EnemyT,B);
-      Diff:=TArmies(T);
-      if TIsFront(T) and (Diff>BestDiff) then begin
-        BestDiff:=Diff;
-        ToTerritory:=T;
-      end;
-    end;      
-  end;
-
-  if (ToTerritory=0) then begin         // attack is already guaranteed.  beef up the target continent
-    PT:=0;
-    PA:=0;
-    ET:=0;
-    EA:=0;
-    BestDiff:=SMALL;
-
-    CAnalysis(EnemyC, PT, PA, ET, EA);
-
-    if (double(PA-PT)<MINARMIES+ET+EA*FORCE) then begin     // place more armies in the continent so that you can capture the whole thing
-      for B:=1 to CTerritoriesCount(EnemyC) do begin
-        T:=CTerritory(EnemyC,B);
-        Diff:=TArmies(T); // put in strongest
-        if (PNewArmies(PMe)>5) then Diff:=-TArmies(T);       // but put in weakest front until 5 armies left
-        if TIsFront(T) and (Diff>BestDiff) then begin
-          ToTerritory:=T;
-          BestDiff:=Diff;
-        end;
-      end;
-    end;
-  end;
-      
-  for C:=1 to 6 do begin                                     // reinforce existing continents if necessary - WEAKEST front first
-    if (COwner(C)=PMe) and (ToTerritory=0) then begin      // if you own the continent and already have an attack
-      for B:=1 to CTerritoriesCount(C) do begin
-        T:=CTerritory(C,B);
-        if TIsFront(T) then begin
-          TStrongestFront(T,ET,EA);
-          if (double(TArmies(T))<(EA*FORCE)) then begin
-            if (ToTerritory=0) then ToTerritory:=T 
-              else if (TArmies(T)>TArmies(ToTerritory)) then ToTerritory:=T;
-          end;
-        end;
-      end;
-    end;
-  end;
-
-  TWeakestFront(EnemyT,ET,EA);
-
-  if (EnemyT<>0) and (ToTerritory=0) and (double(MyTPressure(EnemyT,ALLFRONTS))<(EA+MINARMIES+TArmies(EnemyT)*FORCE)) then begin
-//  continue to reinforce until attack is possible - put them all in strongest country
-    BestDiff:=SMALL;
-   
-    for B:=1 to TBordersCount(EnemyT) do begin
-      T:=TBorder(EnemyT,B);
-      if TIsMine(T) and (TArmies(T)>BestDiff) then begin
-        BestDiff:=TArmies(T);
-        ToTerritory:=T;
-      end;
-    end;      
-  end;
-
-  for C:=1 to 6 do begin                                 // reinforce existing continents if necessary
-    if (COwner(C)=PMe) and (ToTerritory=0) then begin    // if you own the continent and already have an attack
-      for B:=1 to CTerritoriesCount(C) do begin
-        T:=CTerritory(C,B);
-        if TIsFront(T) then begin
-          if (double(TArmies(T))<(TPressure(T)*FORCE)) then
-            if (ToTerritory=0) then ToTerritory:=T
-              else if (TArmies(T)>TArmies(ToTerritory)) then ToTerritory:=T;
-        end;
-      end;
-    end;
-  end;
-
-  if ToTerritory=0 then begin                            // attack is already guaranteed
-    BestDiff:=SMALL;
-    for T:=1 to 42 do begin
-      TWeakestFront(T,ET,EA);
-      Diff:=TArmies(T)+PNewArmies(PMe)-EA;               // worthwhile to fortify this one?
-      if (TContinent(T)=EnemyC) then Diff:=1;            // but always worthwhile fortifying your target continent
-      if TIsFront(T) and (Diff>0) then begin             // territory is mine and front and can be made stronger than the weakest front
-
-        Diff:= (TPressure(T)-TArmies(T));
-        if TIsBordering(T,EnemyT) then Diff:=(TPressure(T)+(TArmies(T) div 8));  // avoid fortifying around a country you're about to take
-
-        if (TContinent(T)=EnemyC) then Diff:=(Diff+TargetCBONUS);
-//      UMessage('Territory ',T,' is worthy of fortification with Pressure - Armies + Bonus of ',Diff);
-        if (Diff>BestDiff) then begin
-          ToTerritory:=T;
-          BestDiff:=Diff;
-        end;
-      end;
-    end;
-  end;
-
-
-
-  If trunc(ubufferget(48)) = 0 then goto gotoend;
-
-Descartes:
-  TerritoryTo:=0;
-  UBufferSet(49,0); 
-  if ((PArmiesCount(PMe) < 10) and (not ((trunc(UBufferGet(50)))=2))) then begin
-    UBufferSet(50,1);
-  end;
-  if ((PArmiesCount(PMe) > 25) and ((trunc(UBufferGet(50)))=1)) then begin
-    UBufferSet(50,2);
-  end;
-
-  if ((trunc(UBufferGet(50)))=1) then begin  //probably have less than 10 armies
-    MaxTerritoryValue:=0;
-    for T:=1 to 42 do begin
-      if (TIsMine(T) and TIsFront(T)) then begin
-        TWeakestFront(T,ET,EA);
-        Score:=1000-EA;
-        Score:=Score-((double(TPressure(T))/TFrontsCount(T))*2);
-        Score:=Score+(TArmies(T) div 3);
-        if (T>38) then Score:=Score-100;
-        if ((T>9) and (T<14)) then Score:=Score-50;
-        if (Score> MaxTerritoryValue) then begin
-          MaxTerritoryValue:=trunc(Score);
-          TerritoryTo:=T;
-        end;
-      end;
-    end;
-  end
-  else begin
-   
-    CAnalysis(6,PT,PA,ET,EA);
-
-    UBufferSet(39,EA);
-    UBufferSet(40,EA-1);
-    UBufferSet(41,EA-2);
-    UBufferSet(42,EA-1);
-    if (PA>EA+4) then begin	    //if i have more than 4 armies more than the enemy
-      UBufferSet(39,EA-25);
-      UBufferSet(40,EA-26);
-      UBufferSet(41,EA-27);
-      UBufferSet(40,EA-26);
-    end;
-
-    CAnalysis(2,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+4;  //if i don't own australia, make more of an effort to get SA
-    UBufferSet(10,EA+6);
-    UBufferSet(12,EA+6);
-    UBufferSet(13,EA+4);
-    UBufferSet(11,EA+5);
-    if (PA>(EA+4)) then begin
-      UBufferSet(10,EA-20);
-      UBufferSet(12,EA-20);
-      UBufferSet(13,EA-22);
-      UBufferSet(11,EA-21);
-    end;  
-    
-    CAnalysis(4,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+4;
-    if (not (COwner(2)=PMe)) then EA:=EA+15;
-    UBufferSet(14,EA+6);
-    UBufferSet(15,EA+6);
-    UBufferSet(16,EA+6);
-    UBufferSet(17,EA+6);
-    UBufferSet(18,EA+6);
-    UBufferSet(19,EA+6);
-    if ((PA>(EA+9)) and (COwner(2)=PMe)) then begin
-      UBufferSet(14,EA-20);
-      UBufferSet(15,EA-19);
-      UBufferSet(16,EA-20);
-      UBufferSet(17,EA-21);
-      UBufferSet(18,EA-22);
-      UBufferSet(19,EA-23);
-    end;
-    CAnalysis(1,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+5;
-    if (not (COwner(2)=PMe)) then EA:=EA+15;
-    UBufferSet(1,EA+6);
-    UBufferSet(2,EA+6);
-    UBufferSet(3,EA+6);
-    UBufferSet(4,EA+6);
-    UBufferSet(5,EA+6);
-    UBufferSet(6,EA+6);
-    UBufferSet(7,EA+6);
-    UBufferSet(8,EA+6);
-    UBufferSet(9,EA+6);
-    CAnalysis(3,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+15;
-    if (not (COwner(2)=PMe)) then EA:=EA+15;
-    if (not (COwner(4)=PMe)) then EA:=EA+15;
-    UBufferSet(20,EA+6);
-    UBufferSet(21,EA+6);
-    UBufferSet(22,EA+6);
-    UBufferSet(23,EA+6);
-    UBufferSet(24,EA+6);
-    UBufferSet(25,EA+6);
-    UBufferSet(26,EA+6);
-
-    CAnalysis(5,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+15;
-    if (not (COwner(2)=PMe)) then EA:=EA+15;
-    if (not (COwner(4)=PMe)) then EA:=EA+15;
-    if (not (COwner(1)=PMe)) then EA:=EA+15;
-    if (not (COwner(3)=PMe)) then EA:=EA+15;
-    UBufferSet(27,EA+6);
-    UBufferSet(28,EA+6);
-    UBufferSet(29,EA+6);
-    UBufferSet(30,EA+6);
-    UBufferSet(31,EA+6);
-    UBufferSet(32,EA+6);
-    UBufferSet(33,EA+6);
-    UBufferSet(34,EA+6);
-    UBufferSet(35,EA+6);
-    UBufferSet(36,EA+6);
-    UBufferSet(37,EA+6);
-    UBufferSet(38,EA+6);
-//	-----
-//  we understand up to here
-    
-    TotalArmies:=0;
-    KillPlayer:=0;
-    UBufferSet(49,0);
-    for T:=1 to 10 do begin
-      TotalArmies:=TotalArmies+PArmiesCount(T);
-    end;
-
-//  testa:= 1.45;
-//  umessage('double is ' + floattostr(testa));
-
-{  testb:=4;
-  t:=30;
-  testb:=t div testb;
-  ulog('testb is ' + inttostr(testb));
-  testb:=4;
-  t:=30;
-  testb:=t/testb;
-  ulog('testb is ' + inttostr(testb));
- }
-//  umessage('int is ' + inttostr(testb));
-{
-  testa:=testb * testa;
-  umessage('int times float is ' + floattostr(testa));
-
-  testb:=testb * testa;
-  umessage('int times float into int is ' + inttostr(testb));
- }
-    for T:=1 to 10 do 
-    begin
-		  testa:=double(TotalArmies) * 0.35;
-
-    	  if ((not (T=PMe))
-	      	and (PArmiesCount(T)>trunc(testa))) then 
-	      begin
-			        KillPlayer:=T;
-	      end;				   
-	
-//		  ulog('after first if');
-
-			testa:=double(TotalArmies-PArmiesCount(PMe))*0.41;
-//		  ulog('before second');
-
-    	  if ((not (T=PMe))
-		      and (PArmiesCount(T)>trunc(testa))) then 
-		  begin
-		        KillPlayer:=T;
-	      end;
-			
-//			ulog('after second');
-
-	      if (KillPlayer=T) then 
-	      begin
-    		    KillPlayer:=0;
-
-		        Y:=0;
-	    	    Z:=0;
-	        	for T2:=1 to 6 do 
-	        	begin
-			          if (COwner(T2)=T) then Y:=Y+CBonus(T2);
-			          if (COwner(T2)=PMe) then Z:=Z+CBonus(T2);
-	        	end;
-
-//				ulog('before first div');
-
-	          if (PTerritoriesCount(T)>11) then 
-	          begin
-	          		Y:=Y+((PTerritoriesCount(T) div 3)-3);
-		      end;
-
-//	   		  ulog('after first div');
-		      if (PTerritoriesCount(PMe)>11) then 
-		      begin
-			        Z:=Z+((PTerritoriesCount(PMe) div 3)-3);
-		      end;
-	    	  if (Y>Z+3) then 
-	    	  begin
-	          	  KillPlayer:=T;
-			      UBufferSet(49,T);
-		      end;
-      	  end;   
-    end;
-    
-    if (not (KillPlayer=0)) then begin
-      for T:=1 to 42 do begin
-        if TOwner(T)=KillPlayer then begin
-          UBufferSet(T,TArmies(T));
-        end;
-        if ((COwner(TContinent(T)))=KillPlayer) then begin
-          UBufferSet(T,-15-(CBonus(TContinent(T))*2)+TArmies(T));
-        end;
-      end;
-    end;
-    
-    if (PArmiesCount(PMe)>TotalArmies+50) then begin
-      for T:=1 to 42 do begin
-        if (not (TIsMine(T))) then begin
-          UBufferSet(T,TArmies(T));
-          if ((COwner(TContinent(T)))>0) then begin
-            UBufferSet(T,-30+TArmies(T));
-          end;
-        end;
-      end;
-    end;
-
-  //	ulog('right before x is 1 to 8');
-	    
-    for X:=1 to 8 do 
-    begin
-      for T:=1 to 42 do  //check each territory 
-      begin
-        if (not TIsMine(T)) then  //if i don't own this territory
-        begin
-          Y:=TBordersCount(T);		   //count the borders
-          for Z:=1 to Y do 	//cycle thru the borders of this territory
-          begin
-            T2:=TBorder(T,Z);  //check each territory bordering T
-            if (not TIsMine(T2)) then  //if i don't own a border of T
-            begin
-              D:=trunc(UBufferGet(T));  //set D to be  whatever score is for this territory
-              D2:=trunc(UBufferGet(T2));  //set D2 to be score for this particular border
-              if (D>(D2+TArmies(T))) then //if score for this T is more than score for border + armies in that border
-              begin
-                D:=D2+TArmies(T)+1; //set score for this T to be border armies + border score + 1
-                UBufferSet(T,D);
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-//	ulog('right after monster nested for loop');
-    
-    for T:=1 to 42 do begin
-      if (TIsMine(T)) then begin
-        UBufferSet(T,0);
-      end;
-    end;
-
-    if (KillPlayer=0) then begin
-      CAnalysis(6,PT,PA,ET,EA);
-      if (COwner(6)=PMe) then 
-      begin
-        if TIsFront(39) then 
-        begin
-          TA:=25;
-          if (TArmies(38)>TA-5) then TA:=TArmies(38)+5;
-          CLeader(5,P,T,A);          
-          if ((A>TA) and (not (P=PMe))) then TA:=A;
-          UBufferSet(39,TA);
-        end
-        else
-        begin
-          TA:=25;
-          if (TPressure(31)>TA) then TA:=TPressure(31);
-          CLeader(5,P,T,A);
-          if ((A>TA) and (not (P=PMe))) then TA:=A;
-          UBufferSet(31,TA);
-        end;
-      end
-      else begin
-        if ((PA > (EA * 2)) or (PA>(EA+5))) then begin
-{          if (TIsMine(41)) then begin
-            TerritoryTo:=40;
-          end;
-          if (TIsMine(42)) then begin
-            TerritoryTo:=40;
-          end;
-          if (TIsMine(39)) then begin
-            TerritoryTo:=40;
-          end;
-          if (TIsMine(40)) then begin
-            TerritoryTo:=40;
-          end;
-		  }
-		  if (TIsMine(41)) then begin
-            TerritoryTo:=41;
-          end;
-          if (TIsMine(42)) then begin
-            TerritoryTo:=42;
-          end;
-          if (TIsMine(39)) then begin
-            TerritoryTo:=39;
-          end;
-          if (TIsMine(40)) then begin
-            TerritoryTo:=40;
-          end;
-        end;
-      end;
-     		  //after determining if he owns australia
-      CAnalysis(2,PT,PA,ET,EA);
-      if (TerritoryTo=0) then begin
-        if (COwner(2)=PMe) then begin
-          if (not (TIsMine(14))) then begin
-            TA:=20;
-            if (TArmies(14)>TA-12) then TA:=TArmies(14)+12;
-            if (TPressure(14)>TA) then TA:=TPressure(14);
-            UBufferSet(12,TA);
-          end
-          else begin
-            TA:=20;
-            if (TPressure(14)>TA) then TA:=TPressure(14);
-            UBufferSet(14,TA);
-          end;
-          if (not (TIsMine(9))) then begin
-            TA:=20;
-            if (TArmies(9)>TA-12) then TA:=TArmies(9)+12;
-            if (TPressure(9)>TA) then TA:=TPressure(9);
-            CLeader(1,P,T,A);
-            if ((A>TA) and (not (P=PMe))) then TA:=A;
-            UBufferSet(10,TA);
-          end
-          else begin
-            TA:=20;
-            if (TPressure(9)>TA-12) then TA:=TPressure(9)+12;
-            CLeader(1,P,T,A);
-            if ((A>TA) and (not (P=PMe))) then TA:=A;
-            UBufferSet(9,TA);
-          end;
-        end
-        else begin
-           if (((PA div 2)>EA) or (PA>(EA+6))) then begin
-            if ((TArmies(10)<20) and TIsMine(10)) then TerritoryTo:=10;
-            if ((TArmies(12)<20) and TIsMine(12)) then TerritoryTo:=12;
-          end;
-        end;
-      end;
-      CAnalysis(1,PT,PA,ET,EA);
-      if ((TerritoryTo=0)
-      and (COwner(2)=PMe)) then begin
-        if (((PA div 2)>EA) or (PA>(EA+10))) then begin
-          if ((TArmies(1)<20) and TIsMine(1)) then TerritoryTo:=1;
-          if ((TArmies(3)<20) and TIsMine(3)) then TerritoryTo:=3;
- 
-        end;
-      end;
-      CAnalysis(4,PT,PA,ET,EA);
-      if ((TerritoryTo=0) 
-      and (COwner(2)=PMe)) then begin
-        if (((PA div 2)>EA)or (PA>(EA+10))) then begin
-          if ((TArmies(14)<20) and TIsMine(14)) then TerritoryTo:=14;
-          if ((TArmies(15)<20) and TIsMine(15)) then TerritoryTo:=15;
-          if ((TArmies(16)<20) and TIsMine(16)) then TerritoryTo:=16;
-  
-        end;
-      end; 
-      if ((COwner(4)=PMe)) then begin
-        UBufferSet(14,20);
-        UBufferSet(15,20);
-        UBufferSet(16,20);
-      end;
-    end;
- 
-// ulog('after checking for ownership on each C');
-    if (TerritoryTo=0) then begin  
-      MaxTerritoryValue:=0;
-      for T:=1 to 42 do begin
-        if TIsMine(T) then begin
-          Y:=TBordersCount(T);
-          D:=1000;
-          for Z:=1 to Y do begin
-            T2:=TBorder(T,Z);
-            if not(TIsMine(T2)) then begin
-              D2:=trunc(UBufferGet(T2));
-              if (D2<D) then begin
-                D:=D2;
-                TA:=T2;
-              end;
-            end;
-          end;
-		  
-          if ((TArmies(T)-((trunc(UBufferGet(T)))+D))>MaxTerritoryValue) then begin
-            MaxTerritoryValue:=TArmies(T)-(trunc(UBufferGet(T))+D);
-            TerritoryTo:=T;
-          end;
-          if (KillPlayer=0) then begin
-            if (TArmies(T)<(trunc(UBufferGet(T)))) then begin
-              if ((1000+(trunc(UBufferGet(T)))-TArmies(T))>MaxTerritoryValue) then begin
-                MaxTerritoryValue:=1000+(trunc(UBufferGet(T)))-TArmies(T);
-                TerritoryTo:=T;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-//	ulog('after checking ubuffer');
-
-    if (TerritoryTo=0) then begin
-      MaxTerritoryValue:=0;
-      for T:=1 to 42 do begin
-        if TIsFront(T) then begin 
-          TerritoryValue:=1;
-          TWeakestFront(T,ET,EA);
-          TerritoryArmies:=TArmies(T);
-          if EA<3 then begin
-            TerritoryValue:=TerritoryValue+((3-EA)*200);
-            if (TerritoryArmies>9) then begin
-              TerritoryArmies:=TerritoryArmies-10;
-              if (TerritoryArmies>100) then begin
-                TerritoryArmies:=100;
-              end;
-              TerritoryValue:=TerritoryValue+(100-TerritoryArmies);
-            end;
-          end;
-          if EA>2 then begin
-            if EA>100 then begin
-              EA:=100;
-            end;
-            TerritoryValue:=TerritoryValue+(100-EA);
-          end;
-          if ((TerritoryValue>=MaxTerritoryValue) 
-              and ((TArmies(T)>1) or (TerritoryTo=0)) ) then begin
-            MaxTerritoryValue:=TerritoryValue;
-            TerritoryTo:=T;
-          end;
-        end;
-      end;
-    end;
-  end;
-  ToTerritory:=TerritoryTo;
-gotoend:
-end;
-
-//procA
-procedure Attack(var FromTerritory, ToTerritory: integer);
-var
-  
-  EnemyC, T, B, Diff, BestDiff: integer;
-  PT, PA, ET, EA : integer;
-  SMALL, ALLFRONTS, ONEFRONTS, TargetCBONUS, MINARMIES: integer;
-  FORCE, NEWRATIO: double;
-  
-  X,Y,T2,D,D2,TA,Z,Z2,Y2,FT,FA,KillPlayer: integer;
-  EnemyT,EnemyA: integer;
-  Ratio,MaxRatio: double;
-  MaxTerritoryValue,TerritoryValue: integer;
-  TerritoryArmies: integer;
-  ET2,EA2:integer;
-
-  Label Descartes;
-  Label GotoEnd;
-
-begin
-  
-  If trunc(ubufferget(48)) = 1 then goto Descartes;
-
-  // ATTACK
-  // defines FromTerritory and ToTerritory.  No attack if FromTerritory is 0
-  // perform an attack on the next achievable continent, or the cheapest attack if
-  // no attack is available there (decided in function TargetTattack).
-  // Not Implemented yet:  If you can safely eliminate a player, do so
-  // sometimes picks a smaller front when a non-front is available???
-
-  SMALL:=-9999;       // CONSTANTS SECTION
-  FORCE:=0.95;         // smaller FORCE than in PLACEMENT procedure to encourage attacks
-  MINARMIES:=2;
-  ALLFRONTS:=10;
-  ONEFRONTS:=1;
-  TargetCBONUS:=5;          // bonus for reinforcing territories in current target continent
-  NEWRATIO:=0.5;      // %-age of new armies that can go towards an out-of-continent attack
-
-  EnemyC:=TargetCattack(small);
-  PT:=0;
-  PA:=0;
-  ET:=0;
-  EA:=0;
-  CAnalysis(EnemyC, PT, PA, ET, EA);
-
-//  if SConquest then
-//    UMessage('Target continent = ',EnemyC,' with excess of ',PA-PT-ET-EA);
-
-//  if SConquest and (PA>EA) then
-//    UMessage('You should attack continent ',EnemyC,' since you have ',PA,' armies and he only has ',EA);
-
-  BestDiff:=0; // will hold maximum number of armies controlled by leading player B
-  for T:=1 to 10 do
-    if (PActive(T)) and (T<>PMe) then
-      if (PArmiesCount(T)>BestDiff) then
-        begin
-          BestDiff:=PArmiesCount(T);
-          B:=T;
-        end;
-
-  if ((PA-PT)>trunc((double(MINARMIES)+ET+EA)/FORCE)) or (not SConquest) or (COwner(EnemyC)>0) then
-    begin
-      ToTerritory:=TargetTattack(enemyc, small, allfronts, onefronts, force);
-//      UMessage('Target Continent = ',EnemyC,' Target Territory = ',ToTerritory);
-//      if (ToTerritory=0) and (not SConquest) then
-//        UMessage('why arent you proposing an attack, perhaps on your target continent ',EnemyC);
-//      if SConquest and (ToTerritory<>0) then
-//        UMessage('Extra attack!  You are attacking continent ',EnemyC,', territory ',ToTerritory,' since you have ',PA,' armies and he only has ',EA);
-      if (ToTerritory<>0) then
-        begin
-          // calculate the correct territory to attack from
-          // 1)  weakest 1-front if ToTerritory armies > 2, otherwise strongest 1-front
-          // 2)  highest TArmies-TPressure.  This may not be the best
-          BestDiff:=SMALL*5;
-          for B:=1 to TBordersCount(ToTerritory) do
-            begin
-              T:=TBorder(ToTerritory,B);
-              if TIsMine(T) and (TArmies(T)>1) and ((TArmies(T)>2) or (TArmies(ToTerritory)=1)) then // no attacks ever with 2 or less armies
-                begin
-                  Diff:=TArmies(T)-(TPressure(T) div 3); // stress armies more than pressure
-                  if (TArmies(T)<4) and (TArmies(ToTerritory)>1) then
-                    Diff:=Diff+SMALL*2; // discourage these attacks with less than 4 armies
-                  if (TFrontsCount(T)=1) then
-                    begin
-                      if (TArmies(ToTerritory)>2) then
-                        Diff:=Diff-SMALL-TArmies(T)*2  // weakest 1-front will be picked
-                      else
-                        Diff:=Diff-SMALL; // strongest 1-front will be picked
-                    end;
-                  if (Diff>BestDiff) then
-                    begin
-                      BestDiff:=Diff;
-                      FromTerritory:=T;
-                    end;
-                end;
-            end;
-          BestDiff:=(MyTPressure(ToTerritory,ALLFRONTS))-(TArmies(ToTerritory));
-          if (BestDiff<0) then
-            begin
-//              UMessage('About to abort an attack on target continent ',EnemyC,' from ',FromTerritory,' to ',ToTerritory,' with enemy armies ',TArmies(ToTerritory),' and MyTPressure ',MyTPressure(ToTerritory,ALLFRONTS),' for a total negative difference of ',BestDiff);
-//              UMessage('double checking - enemy armies ',TArmies(ToTerritory),' and MyTPressure ',MyTPressure(ToTerritory,ALLFRONTS),' for a total negative difference of ',BestDiff);
-              FromTerritory:=0; // abort attacks that won't work
-            end;
-        end;
-    end;
-
-If trunc(ubufferget(48)) = 0 then goto gotoend;
-
-Descartes:
-  FromTerritory:=0;
-  ToTerritory:=0;
-  MaxTerritoryValue:=0;
-  
-  KillPlayer:=trunc(UBufferGet(49));
-  CAnalysis(6,PT,PA,ET,EA);
-  if (PA>EA+5) then begin
-    if (TIsMine(40) and (TArmies(40)>3)) then begin
-      if (not (TIsMine(42))) then begin
-        FromTerritory:=40;
-        ToTerritory:=42;
-      end;
-      if (not (TIsMine(41))) then begin
-        FromTerritory:=40;
-        ToTerritory:=41;
-      end;
-    end;
-  end;
-
-  CAnalysis(2,PT,PA,ET,EA);
-  if (PA>EA+5) then begin
-    if (TIsMine(12) and TIsMine(10) and (not (COwner(2)=PMe))) then begin
-      if (TArmies(12)>3) and ( (not TIsMine(13)) or (not TIsMine(11)) ) then begin
-        FromTerritory:=12;
-        if (not (TIsMine(13))) then ToTerritory:=13;
-        if (not (TIsMine(11))) then ToTerritory:=11;
-      end;
-      if (TArmies(10)>3) then begin
-        if (not (TIsMine(11))) then begin
-          FromTerritory:=10;
-          ToTerritory:=11;
-        end;
-      end;
-    end;
-  end;
-
-  if (COwner(2)=PMe) then begin
-    if ((not TIsMine(9))
-    and (TArmies(10)>(TArmies(9)+8))
-    and (COwner(1)>0)) then begin
-      FromTerritory:=10;
-      ToTerritory:=9;
-    end;
-    if ((not TIsMine(14))
-    and (TArmies(12)>(TArmies(14)+10))
-    and (COwner(4)>0)) then begin
-      FromTerritory:=12;
-      ToTerritory:=14;
-    end;
-    if ((TIsMine(14)) and (COwner(3)>0) and (not (COwner(3)=PMe))) then begin
-      if (TArmies(25)<TArmies(26)) then begin
-        if (TArmies(14)>(TArmies(25)+5)) then begin
-          FromTerritory:=14;
-          ToTerritory:=25;
-        end;
-      end
-      else begin
-        if (TArmies(14)>(TArmies(26)+5)) then begin
-          FromTerritory:=14;
-          ToTerritory:=26;
-        end;
-      end;
-    end;
-
-    if ((TIsMine(15)) and (COwner(5)>0) and (not (COwner(5)=PMe))) then begin
-      if (TArmies(15)>(TArmies(27)+5)) then begin
-        FromTerritory:=15;
-        ToTerritory:=27;
-      end;
-    end;
-    if ((TIsMine(16)) and (COwner(5)>0) and (not (COwner(5)=PMe))) then begin
-      if (TArmies(16)>(TArmies(27)+5)) then begin
-        FromTerritory:=16;
-        ToTerritory:=27;
-      end;
-    end;
-
-  end;
-  if (COwner(6)=PMe) then begin
-    if ((not TIsMine(31))
-    and (TArmies(39)>(TArmies(31)+8))
-    and (COwner(5)>0)) then begin
-      FromTerritory:=39;
-      ToTerritory:=31;
-    end;
-  end;
-  
-  if (FromTerritory=0) then begin
-    for T:=1 to 42 do begin
-      D:=1000;
-      if TIsMine(T) then begin
-        Y:=TBordersCount(T);
-        for Z:=1 to Y do begin
-          T2:=TBorder(T,Z);
-          if not(TIsMine(T2)) then begin
-            D2:=trunc(UBufferGet(T2));
-            if (D2<D) then begin 
-              D:=D2;
-              TA:=T2;
-            end;
-          end;
-        end;
-        if (KillPlayer>0) then begin
-          if (((TArmies(T)-(25+D))>MaxTerritoryValue)
-          and (TArmies(T)>3)) then begin
-            MaxTerritoryValue:=TArmies(T)-(5+D);
-            FromTerritory:=T;
-            ToTerritory:=TA;
-          end;
-        end
-        else begin
-          if (((TArmies(T)-(25+(trunc(UBufferGet(T)))+D))>MaxTerritoryValue)
-          and (TArmies(T)>3)) then begin
-            MaxTerritoryValue:=TArmies(T) - (25+(trunc(UBufferGet(T)))+D);
-            FromTerritory:=T;
-            ToTerritory:=TA;
-            if not SConquest then begin
-              if (((TArmies(T)-(15+D))>MaxTerritoryValue)
-              and (TArmies(T)>3)) then begin
-                MaxTerritoryValue:=TArmies(T)-(15+D);
-                FromTerritory:=T;
-                ToTerritory:=TA;
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-          
-  if (FromTerritory=0) then begin
-    MaxTerritoryValue:=0;
-    if not SConquest then begin  
-      for T:=1 to 42 do begin
-        if ((TIsFront(T)) and ((trunc(UBufferGet(T)))=0)) then begin 
-          if (TArmies(T)>3) then begin
-            TerritoryValue:=0;
-            TerritoryArmies:=TArmies(T);
-            TWeakestFront(T,ET,EA);
-            if EA<3 then begin
-              TerritoryValue:=TerritoryValue+((3-EA)*200);
-              if (TerritoryArmies>100) then begin
-                TerritoryArmies:=100;
-              end;
-              TerritoryValue:=TerritoryValue+TerritoryArmies;
-          
-          
-            end;
-            if (TerritoryValue>MaxTerritoryValue) then begin
-              MaxTerritoryValue:=TerritoryValue;
-              FromTerritory:=T;
-            end;        
-          end;
-        end;
-      end;
-      if (FromTerritory>0) then begin
-        MaxTerritoryValue:=0;
-        TWeakestFront(FromTerritory,ET,EA);
-        Y:=TBordersCount(FromTerritory);
-        for Z:=1 to Y do begin
-          T2:=TBorder(FromTerritory,Z);
-          if ((TArmies(T2)=EA)and (not TIsMine(T2))) then begin
-            TWeakestFront(T2,ET2,EA2);
-            Y2:=TBordersCount(T2);
-            FA:=0;
-            FT:=0;
-            for Z2:=1 to Y2 do begin
-              if (not (TIsMine(TBorder(T2,Z2)))) then begin
-                FA:=FA+TArmies(TBorder(T2,Z2));
-                FT:=FT+1;
-              end;
-            end;
-            if (FT>0) then begin
-              TerritoryValue:=10000-(EA2*4+(FA/FT));
-            end
-            else begin 
-             TerritoryValue:=5000;
-            end;
-            if (TerritoryValue>MaxTerritoryValue) then begin
-              MaxTerritoryValue:=TerritoryValue;
-              ToTerritory:=T2;
-            end;
-          end;
-        end;
-      end;
-    end;
-  end;
-//  if ToTerritory = 0 then FromTerritory:=0; { this is just masking an infrequent bug which I believe is
-//    somewhere in the last 32 lines of code but I don't have time right now to fix it. }
-
-gotoend:
-end;
-
-//procO
-procedure Occupation(FromTerritory, ToTerritory: integer; var Armies: integer);
-var
-  FromIsFront, ToIsFront: boolean;
-  EA, ET, Buffer : integer;
-
-  T,C:integer;
-  X,Y,T2,D,D2,Z,TA,KillPlayer: integer;
-  Ratio,MaxRatio,Score: double;
-  MaxTerritoryValue,TerritoryValue: integer;
-  TerritoryArmies,TerritoryTo: integer;
-  PT,PA :integer;
-  value1d, value2d: double;
-  value1i, value2i: integer;
-  TotalArmies,PlayerArmies,P,A:Integer;
-   
-
-  //count : integer;
-  Label Descartes;
-  Label GotoEnd;
-
-begin
- 
-  {count:=0
-  for T:= 1 to 42 do begin
-    if TIsMine(T) then count:=count+1;
-  end;
-  //If count < 5 then goto Descartes}
-
-  If trunc(ubufferget(48)) = 1 then goto Descartes;
-
-  // very simple but effective routine
-  // moves ARMIES from FROMTERRITORY to TOTERRITORY (which was just conquered)
-
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  Armies:=0;
-
-  if  FromIsFront and ToIsFront then  // if both territories are 'front'
-      begin
-        TStrongestFront(FromTerritory,ET,EA); // idea is to leave behind only what you need
-	Buffer:=TArmies(FromTerritory) div 8;
-        if (Buffer<3) then
-          Buffer:=3;
-        EA:=EA+Buffer; // leave some extra
-        ET:=(1+TArmies(FromTerritory)-TArmies(ToTerritory)) div 2; // balancing move
-        if (EA>TArmies(FromTerritory)-ET) then
-          Armies:=ET // will always move at least armies to balance territories
-        else Armies:=TArmies(FromTerritory)-EA; // but maybe more
-      end 
-    else if FromisFront then // only "From" territory is front
-      begin 
-        // all armies stay in From territory, so there's nothing to do
-      end
-    else
-      begin
-        // all armies in the conquered territory (except one which must stay)
-        Armies:=TArmies(FromTerritory)-1;
-      end;
-
-  If trunc(ubufferget(48)) = 0 then goto gotoend;
-
-Descartes:
-
-  FromIsFront := TIsFront(FromTerritory);
-  ToIsFront := TIsFront(ToTerritory);
-  Armies:=0;
-   
-  //copied from placement routine start    
-    CAnalysis(6,PT,PA,ET,EA);
-    UBufferSet(39,EA);
-    UBufferSet(40,EA-1);
-    UBufferSet(41,EA-2);
-    UBufferSet(42,EA-1);
-    if (PA>EA+4) then begin
-      UBufferSet(39,EA-25);
-      UBufferSet(40,EA-26);
-      UBufferSet(41,EA-27);
-      UBufferSet(40,EA-26);
-    end;
-    CAnalysis(2,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+4;
-    UBufferSet(10,EA+6);
-    UBufferSet(12,EA+6);
-    UBufferSet(13,EA+4);
-    UBufferSet(11,EA+5);
-    if (PA>(EA+4)) then begin
-      UBufferSet(10,EA-20);
-      UBufferSet(12,EA-20);
-      UBufferSet(13,EA-22);
-      UBufferSet(11,EA-21);
-    end;  
-    CAnalysis(4,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+4;
-    if (not (COwner(2)=PMe)) then EA:=EA+15;
-    UBufferSet(14,EA+6);
-    UBufferSet(15,EA+6);
-    UBufferSet(16,EA+6);
-    UBufferSet(17,EA+6);
-    UBufferSet(18,EA+6);
-    UBufferSet(19,EA+6);
-    if ((PA>(EA+9)) and (COwner(2)=PMe)) then begin
-      UBufferSet(14,EA-20);
-      UBufferSet(15,EA-19);
-      UBufferSet(16,EA-20);
-      UBufferSet(17,EA-21);
-      UBufferSet(18,EA-22);
-      UBufferSet(19,EA-23);
-    end;
-    CAnalysis(1,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+5;
-    if (not (COwner(2)=PMe)) then EA:=EA+15;
-    UBufferSet(1,EA+6);
-    UBufferSet(2,EA+6);
-    UBufferSet(3,EA+6);
-    UBufferSet(4,EA+6);
-    UBufferSet(5,EA+6);
-    UBufferSet(6,EA+6);
-    UBufferSet(7,EA+6);
-    UBufferSet(8,EA+6);
-    UBufferSet(9,EA+6);
-
-    CAnalysis(3,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+15;
-    if (not (COwner(2)=PMe)) then EA:=EA+15;
-    if (not (COwner(4)=PMe)) then EA:=EA+15;
-    UBufferSet(20,EA+6);
-    UBufferSet(21,EA+6);
-    UBufferSet(22,EA+6);
-    UBufferSet(23,EA+6);
-    UBufferSet(24,EA+6);
-    UBufferSet(25,EA+6);
-    UBufferSet(26,EA+6);
-    
-    CAnalysis(5,PT,PA,ET,EA);
-    if (not (COwner(6)=PMe)) then EA:=EA+15;
-    if (not (COwner(2)=PMe)) then EA:=EA+15;
-    if (not (COwner(4)=PMe)) then EA:=EA+15;
-    if (not (COwner(1)=PMe)) then EA:=EA+15;
-    if (not (COwner(3)=PMe)) then EA:=EA+15;
-    UBufferSet(27,EA+6);
-    UBufferSet(28,EA+6);
-    UBufferSet(29,EA+6);
-    UBufferSet(30,EA+6);
-    UBufferSet(31,EA+6);
-    UBufferSet(32,EA+6);
-    UBufferSet(33,EA+6);
-    UBufferSet(34,EA+6);
-    UBufferSet(35,EA+6);
-    UBufferSet(36,EA+6);
-    UBufferSet(37,EA+6);
-    UBufferSet(38,EA+6);
-    
-    TotalArmies:=0;
-    KillPlayer:=0;
-    UBufferSet(49,0);
-    for T:=1 to 10 do begin
-      TotalArmies:=TotalArmies+PArmiesCount(T);
-    end;
-    for T:=1 to 10 do 
-    begin
-		value1d:=(double(TotalArmies)) * 0.35;
-
-      if ((not (T=PMe))
-      and (PArmiesCount(T)>(trunc(value1d)))) then begin
-        KillPlayer:=T;
-      end;
-	
-	  value2d:=(double(TotalArmies-PArmiesCount(PMe)))*0.41;
-      if ((not (T=PMe))
-      and (PArmiesCount(T)>(trunc(value2d)))) then begin
-        KillPlayer:=T;
-      end;
-    
-      if (KillPlayer=T) then begin
-        KillPlayer:=0;
-    
-        Y:=0;
-        Z:=0;
-        for T2:=1 to 6 do begin
-          if (COwner(T2)=T) then Y:=Y+CBonus(T2);
-          if (COwner(T2)=PMe) then Z:=Z+CBonus(T2);
-        end;
-        if (PTerritoriesCount(T)>11) then begin
-          Y:=Y+((PTerritoriesCount(T) div 3)-3);
-        end;
-        if (PTerritoriesCount(PMe)>11) then begin
-          Z:=Z+((PTerritoriesCount(PMe) div 3)-3);
-        end;
-        if (Y>Z+3) then begin
-          KillPlayer:=T;
-          UBufferSet(49,T);
-
-        end;
-      end;   
-    end;
-    
-    if (not (KillPlayer=0)) then begin
-      for T:=1 to 42 do begin
-        if TOwner(T)=KillPlayer then begin
-          UBufferSet(T,TArmies(T));
-        end;
-        if ((COwner(TContinent(T)))=KillPlayer) then begin
-          UBufferSet(T,-15-(CBonus(TContinent(T))*2)+TArmies(T));
-        end;
-      end;
-    end;
-    if (PArmiesCount(PMe)>TotalArmies+50) then begin
-      for T:=1 to 42 do begin
-        if (not (TIsMine(T))) then begin
-          UBufferSet(T,TArmies(T));
-          if ((COwner(TContinent(T)))>0) then begin
-            UBufferSet(T,-30+TArmies(T));
-          end;
-        end;
-      end;
-    end;
-
-    for X:=1 to 8 do begin
-      for T:=1 to 42 do begin
-        if (not TIsMine(T)) then begin
-          Y:=TBordersCount(T);
-          for Z:=1 to Y do begin
-            T2:=TBorder(T,Z);
-            if (not TIsMine(T2)) then begin
-              D:=trunc(UBufferGet(T));
-              D2:=trunc(UBufferGet(T2));
-              if (D>(D2+TArmies(T))) then begin
-                D:=D2+TArmies(T)+1;
-                UBufferSet(T,D);
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-    
-    if (KillPlayer=0) then begin
-      CAnalysis(6,PT,PA,ET,EA);
-      if (COwner(6)=PMe) then begin
-        if TIsFront(39) then begin
-          TA:=25;
-          if (TArmies(38)>TA-5) then TA:=TArmies(38)+5;
-          CLeader(5,P,T,A);          
-          if ((A>TA) and (not (P=PMe))) then TA:=A;
-          UBufferSet(39,TA);
-        end
-        else begin
-          TA:=25;
-          if (TPressure(31)>TA) then TA:=TPressure(31);
-          CLeader(5,P,T,A);
-          if ((A>TA) and (not (P=PMe))) then TA:=A;
-          UBufferSet(31,TA);
-        end;
-      end;
-    end;
-    
-    for T:=1 to 42 do begin
-      if (TIsMine(T)) then begin
-        UBufferSet(T,0);
-      end;
-    end;
-    if (KillPlayer=0) then begin
-      CAnalysis(6,PT,PA,ET,EA);
-      if (COwner(6)=PMe) then begin
-        if TIsFront(39) then begin
-          TA:=25;
-          if (TArmies(38)>TA-5) then TA:=TArmies(38)+5;
-          CLeader(5,P,T,A);          
-          if ((A>TA) and (not (P=PMe))) then TA:=A;
-          UBufferSet(39,TA);
-        end
-        else begin
-          TA:=25;
-          if (TPressure(31)>TA) then TA:=TPressure(31);
-          CLeader(5,P,T,A);
-          if ((A>TA) and (not (P=PMe))) then TA:=A;
-          UBufferSet(31,TA);
-        end;
-      end
-      else begin
-        if ((PA > (EA div 2)) or (PA>(EA+5))) then begin
-          if (TIsMine(40)) then begin
-            TerritoryTo:=40;
-          end
-          else begin
-            TerritoryTo:=39;
-          end;
-        end;
-      end;
-     
-      CAnalysis(2,PT,PA,ET,EA);
-      if (TerritoryTo=0) then begin
-        if (COwner(2)=PMe) then begin
-          if (not (TIsMine(14))) then begin
-            TA:=20;
-            if (TArmies(14)>TA-12) then TA:=TArmies(14)+12;
-            if (TPressure(14)>TA) then TA:=TPressure(14);
-            UBufferSet(12,TA);
-          end
-          else begin
-            TA:=20;
-            if (TPressure(14)>TA) then TA:=TPressure(14);
-            UBufferSet(14,TA);
-          end;
-          if (not (TIsMine(9))) then begin
-            TA:=20;
-            if (TArmies(9)>TA-12) then TA:=TArmies(9)+12;
-            if (TPressure(9)>TA) then TA:=TPressure(9);
-            CLeader(1,P,T,A);
-            if ((A>TA) and (not (P=PMe))) then TA:=A;
-            UBufferSet(10,TA);
-          end
-          else begin
-            TA:=20;
-            if (TPressure(9)>TA-12) then TA:=TPressure(9)+12;
-            CLeader(1,P,T,A);
-            if ((A>TA) and (not (P=PMe))) then TA:=A;
-            UBufferSet(9,TA);
-          end;
-        end
-        else begin
-           if ((PA>(EA div 2)) or (PA>(EA+6))) then begin
-            if ((TArmies(10)<20) and TIsMine(10)) then TerritoryTo:=10;
-            if ((TArmies(12)<20) and TIsMine(12)) then TerritoryTo:=12;
-          end;
-        end;
-      end;
-      CAnalysis(1,PT,PA,ET,EA);
-      if ((TerritoryTo=0)
-      and (COwner(2)=PMe)) then begin
-        if ((PA>(EA div 2)) or (PA>(EA+10))) then begin
-          if ((TArmies(1)<20) and TIsMine(1)) then TerritoryTo:=1;
-          if ((TArmies(3)<20) and TIsMine(3)) then TerritoryTo:=3;
- 
-        end;
-      end;
-      CAnalysis(4,PT,PA,ET,EA);
-      if ((TerritoryTo=0) 
-      and (COwner(2)=PMe)) then begin
-        if ((PA>(EA div 2))or (PA>(EA+10))) then begin
-          if ((TArmies(14)<20) and TIsMine(14)) then TerritoryTo:=14;
-          if ((TArmies(15)<20) and TIsMine(15)) then TerritoryTo:=15;
-          if ((TArmies(16)<20) and TIsMine(16)) then TerritoryTo:=16;
-  
-        end;
-      end; 
-      if ((COwner(4)=PMe)) then begin
-        UBufferSet(14,20);
-        UBufferSet(15,20);
-        UBufferSet(16,20);
-      end;
-    end; 
-
-
-  UBufferSet(ToTerritory,0);
-
-  
-  if (COwner(6)=PMe) then begin
-    if ((FromTerritory=39) and (ToTerritory=31)) then begin
-      UBufferSet(31,(trunc(UBufferGet(39))));
-      UBufferSet(39,0);
-      if ((trunc(UBufferGet(31)))<25) then UBufferSet(31,25);
-    end;
-  end;
-  if (COwner(2)=PMe) then begin
-    if ((FromTerritory=12) and (ToTerritory=14)) then begin
-      UBufferSet(14,(trunc(UBufferGet(12))));
-      UBufferSet(12,0);
-    end;
-  end;
-  if (COwner(2)=PMe) then begin
-    if ((FromTerritory=10) and (ToTerritory=9)) then begin
-      UBufferSet(9,(trunc(UBufferGet(10))));
-      UBufferSet(10,0);
-    end;
-  end;
-
-
-  if ToIsFront then begin
-    Armies:=TArmies(FromTerritory)-(1+(trunc(UBufferGet(FromTerritory))));
-    if (Armies<0) then Armies:=0;  
-  end;
-  if (ToTerritory=41) then begin
-    Armies:=0;
-  end;
-  if ((ToTerritory=40)and (FromTerritory=39)) then begin
-    Armies:=TArmies(FromTerritory)-1;
-    if (Armies > TArmies(42)+5) then Armies := TArmies(42)+5;
-    if (Armies < (TArmies(39) div 2)) then Armies:=(TArmies(39) div 2);
-  end;
-  if ((ToTerritory=42) and (FromTerritory=39)) then begin
-    Armies:=0;
-  end;
-  if (ToTerritory=39) then begin
-    Armies:=TArmies(FromTerritory)-1;
-  end;
-
-
-  if ((FromTerritory=31) and(ToTerritory=39)) then begin
-    UBufferSet(39, (trunc(UBufferGet(39)))-25);
-    UBufferSet(40, (trunc(UBufferGet(40)))-25);
-    UBufferSet(41, (trunc(UBufferGet(41)))-25);
-    UBufferSet(42, (trunc(UBufferGet(42)))-25);
-  end;
-  if (((FromTerritory=14) and(ToTerritory=12))
-   or ((FromTerritory=9) and (ToTerritory=10))) then begin
-    UBufferSet(10,(trunc(UBufferGet(10)))-29);
-    UBufferSet(12,(trunc(UBufferGet(12)))-29);
-    UBufferSet(13,(trunc(UBufferGet(13)))-29);
-    UBufferSet(11,(trunc(UBufferGet(11)))-29);
-  end;
-
-
-
-  
-  if ((FromTerritory=12) and (ToTerritory=13)) then begin
-    Armies:=0;
-  end;
-  if ((FromTerritory=12) and (ToTerritory=11)) then begin
-    Armies:=0;
-  end;
-  if ((FromTerritory=10) and (ToTerritory=11)) then begin
-    Armies:=0;
-  end;
-  if ((FromTerritory=12) and (ToTerritory=10)) then begin
-    Armies:=(TArmies(FromTerritory) div 2);
-  end;
-  if ((FromTerritory=10) and (ToTerritory=12)) then begin
-    Armies:=(TArmies(FromTerritory) div 2);
-  end;
-  if ((FromTerritory=12) and (ToTerritory=14)) then begin
-    Armies:=(TArmies(FromTerritory) -20);
-    if Armies<0 then Armies:=0;
-  end;
-  if ((FromTerritory=10) and (ToTerritory=9)) then begin
-    Armies:=(TArmies(FromTerritory) -20);
-    if Armies<0 then Armies:=0;
-  end;
-  if (COwner(2)=PMe) then begin
-    if ((FromTerritory=12) and (ToTerritory=14)) then begin
-      Armies:=(TArmies(FromTerritory) -1);
-      if Armies<0 then Armies:=0;
-    end;
-    if ((FromTerritory=10) and (ToTerritory=9)) then begin
-      Armies:=(TArmies(FromTerritory) -1);
-      if Armies<0 then Armies:=0;
-    end;
-    if (FromTerritory=9) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if Armies<0 then Armies:=0;
-    end;
-    if (FromTerritory=14) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if Armies<0 then Armies:=0;
-    end;
-
-  end;   
-
-
-  if ((COwner(6)=PMe) and (COwner(2)=PMe)) then begin
-    if (FromTerritory=14) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if Armies<0 then Armies:=0;
-    end;
-    if (FromTerritory=15) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if Armies<0 then Armies:=0;
-    end;
-    if (FromTerritory=16) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if Armies<0 then Armies:=0;
-    end;
-    if (FromTerritory=1) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if Armies<0 then Armies:=0;
-    end;
-    if (FromTerritory=3) then begin
-      Armies:=(TArmies(FromTerritory) -20);
-      if Armies<0 then Armies:=0;
-    end;
-
-  end;
-  
-  if ((FromTerritory=14) and (ToTerritory=17)) then begin
-    Armies:=(TArmies(FromTerritory) div 2);
-  end;
-  if ((FromTerritory=20) and (ToTerritory=19)) then begin
-    Armies:=(TArmies(FromTerritory) div 2);
-  end;
-  if (COwner(4)=PMe) then begin
-    if ((FromTerritory=16) and (ToTerritory=15)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-    if ((FromTerritory=15) and (ToTerritory=16)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-    if ((FromTerritory=16) and (ToTerritory=14)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-    if ((FromTerritory=14) and (ToTerritory=16)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-    if ((FromTerritory=14) and (ToTerritory=15)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-    if ((FromTerritory=15) and (ToTerritory=14)) then begin
-      Armies:=(TArmies(FromTerritory) div 2);
-    end;
-  end;
-  if (COwner(3)=PMe) then begin
-    if ((FromTerritory=22)
-    or  (FromTerritory=26)
-    or  (FromTerritory=20)) then begin
-      Armies:=TArmies(FromTerritory)-20;
-      if Armies<0 then Armies:=0;
-    end;
-  end;
-  if (KillPlayer>0) then Armies:=TArmies(FromTerritory)-1;
-
-gotoend:
-end;
-
-//procF
-procedure Fortification(var FromTerritory, ToTerritory, Armies: integer);
-var
-  BestFrom,BestArmies,F,T,Arm,B,MaxArmy,Diff,BestDiff,EA,ET: integer;
-  SMALL, ALLFRONTS, ONEFRONTS: integer;
-
-
-  //count: integer;
-  Label Descartes;
-  Label GotoEnd;
-
-begin
-
-  If trunc(ubufferget(48)) = 1 then goto Descartes;
-
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-  ALLFRONTS:=10;
-  ONEFRONTS:=1;
-  SMALL:=-9999;
-
-  // look for front country that needs the most help.  favor continents that you
-  // already own, and countries that can be helped by 0-fronts
-  // "most help" implies difference between MyArmies and the strongest front
-
-  // for each of your fronts, determine the FromTerritory, the deficit, and the benefit able to be provided
-
-
-  BestArmies:=0;
-  BestDiff:=SMALL;
-//  UMessage('Calling procedure Fortification');
-
-  for T:=1 to 42 do
-    if TIsFront(T) then
-      begin
-        TStrongestFront(T,ET,EA);
-        Diff:=EA-TArmies(T); // your current deficit
-        BestArmies:=0;
-        for B:=1 to TBordersCount(T) do
-          begin
-            F:=TBorder(T,B);  // start looking for the best FromTerritory
-            if TIsMine(F) and (TArmies(F)>1) then
-              begin
-                TStrongestFront(F,ET,EA);
-                if (not TIsFront(F)) then
-                  Arm:=TArmies(F)-1
-                else
-                  Arm:=TArmies(F)-EA; // the absolute most you can spare
-//                  UMessage(TName(T),' has a deficit of ',Diff,' but can be helped by ',TName(F),' which can spare ',Arm,' armies');
-                if (Arm>BestArmies) then
-                  begin
-                    BestArmies:=Arm;
-                    BestFrom:=F;
-                  end;
-              end;
-          end;
-        // now you have found your best FromTerritory "BestFrom" for this ToTerritory T
-        // it can spare "BestArmies" and you had desired "Diff"
-        B:=Diff;
-        if (B>BestArmies) then
-          B:=BestArmies; // you needed more than you could can spare
-        if (B>BestDiff) and ((B+BestArmies)>1) and (BestArmies>2) then
-          begin
-            Armies:=(B+BestArmies) div 2;
-            if (not TIsFront(BestFrom)) then
-              Armies:=BestArmies;
-//            UMessage('Found a better fortification:  move ',Armies,' armies from ',TName(BestFrom),' to ',TName(T));
-            BestDiff:=B;
-            FromTerritory:=BestFrom;
-            ToTerritory:=T;
-          end;
-      end;
-//  if (Armies<>0) then 
-//    UMessage('Recommend moving ',Armies,' from ',FromTerritory,' to ',ToTerritory);
-
-  if (ToTerritory=0) then // use original fortification code -- find largest zero-front
-begin
-  MaxArmy := 1;
-  for T:=1 to 42 do begin
-    if TIsMine(T) and not TIsFront(T) then begin  // territory is mine and not "front"
-      if TArmies(T)>MaxArmy then begin
-        MaxArmy := TArmies(T);
-        FromTerritory := T;
-      end;
-    end;
-  end;
-  // if there are armies to move...
-  if FromTerritory>0 then begin
-    // check if can move armies to front...
-    for B:=1 to TBordersCount(FromTerritory) do begin
-      if ToTerritory=0 then begin
-        T:=TBorder(FromTerritory,B);
-        if TIsMine(T) and TIsFront(T) then begin
-          ToTerritory:=T;
-        end;
-      end;
-    end;
-    // otherwise move armies in the first bordering territory
-    if ToTerritory=0 then begin
-      for B:=1 to TBordersCount(FromTerritory) do begin
-        if ToTerritory=0 then begin
-          T:=TBorder(FromTerritory,B);
-          if TIsMine(T) then begin
-            ToTerritory:=T;
-          end;
-        end;
-      end;
-    end;
-    // Move all armies to destination (except the one which must stay)
-    if ToTerritory>0 then begin
-      Armies:=TArmies(FromTerritory)-1;
-    end;
-  end;
-end;
-
-  If trunc(ubufferget(48)) = 1 then goto gotoend;
-
-Descartes:
-
-  FromTerritory:=0;
-  ToTerritory:=0;
-  Armies:=0;
-  MaxArmy:=1;
-  if (COwner(6)=PMe)
-    then begin
-    if (TArmies(40)>1) then begin
-      Armies:=TArmies(40)-1;
-      FromTerritory:=40;
-      ToTerritory:=39;
-    end;
-    if (TArmies(42)>1) then begin
-      Armies:=TArmies(42)-1;
-      FromTerritory:=42;
-      ToTerritory:=39;
-
-    end;
-
-  end;
-  
-  if (FromTerritory=0) then begin
-    for T:=1 to 42 do begin
-      if ((TIsMine(T)) 
-      and ((trunc(UBufferGet(T)))=0) 
-      and (not TIsFront(T))) then begin  
-        if TArmies(T)>MaxArmy then begin
-          MaxArmy := TArmies(T);
-          FromTerritory := T;
-        end;
-      end; 
-    end;
-    
-    if FromTerritory>0 then begin
-      for B:=1 to TBordersCount(FromTerritory) do begin
-        if ToTerritory=0 then begin
-          T:=TBorder(FromTerritory,B);
-          if TIsMine(T) and TIsFront(T) then begin
-            ToTerritory:=T;
-          end;
-        end;
-      end;
-      if ToTerritory=0 then begin
-        for B:=1 to TBordersCount(FromTerritory) do begin
-          if ToTerritory=0 then begin
-            T:=TBorder(FromTerritory,B);
-            if TIsMine(T) then begin
-              ToTerritory:=T;
-            end;
-          end;
-        end;
-      end;
-      if ToTerritory>0 then begin
-        Armies:=TArmies(FromTerritory)-1;
-      end;
-    end;
-  end;
-
-gotoend:
-
-end;
-
-begin
-
-end.
diff --git a/Pref.dfm b/Pref.dfm
deleted file mode 100644
index 6207e0d..0000000
--- a/Pref.dfm
+++ /dev/null
@@ -1,265 +0,0 @@
-object fPref: TfPref
-  Left = 0
-  Top = 0
-  HelpContext = 440
-  BorderStyle = bsDialog
-  Caption = 'Preferences'
-  ClientHeight = 284
-  ClientWidth = 436
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
-  OldCreateOrder = False
-  Position = poScreenCenter
-  OnShow = FormShow
-  PixelsPerInch = 96
-  TextHeight = 13
-  object tabPref: TPageControl
-    Left = 5
-    Top = 5
-    Width = 426
-    Height = 231
-    ActivePage = tbsToolbar
-    TabOrder = 0
-    object tbsToolbar: TTabSheet
-      Caption = 'Toolbar'
-      object lstTlbButtons: TListView
-        Left = 3
-        Top = 30
-        Width = 412
-        Height = 170
-        Checkboxes = True
-        Columns = <>
-        TabOrder = 0
-        ViewStyle = vsSmallIcon
-      end
-      object chkTlbShowToolbar: TCheckBox
-        Left = 3
-        Top = 7
-        Width = 97
-        Height = 17
-        Caption = 'Show Toolbar'
-        TabOrder = 1
-      end
-    end
-    object tbsMap: TTabSheet
-      Caption = 'Map'
-      ImageIndex = 1
-      object chkMapHoover: TCheckBox
-        Left = 8
-        Top = 15
-        Width = 296
-        Height = 17
-        Caption = 'Change territory color when mouse hoovers it'
-        TabOrder = 0
-        OnClick = chkMapHooverClick
-      end
-      object chkMapSelected: TCheckBox
-        Left = 8
-        Top = 105
-        Width = 296
-        Height = 17
-        Caption = 'Change territory color when selected'
-        TabOrder = 1
-        OnClick = chkMapSelectedClick
-      end
-      object panMapHoover: TPanel
-        Left = 25
-        Top = 33
-        Width = 231
-        Height = 61
-        BevelOuter = bvNone
-        TabOrder = 2
-        object Label1: TLabel
-          Left = 4
-          Top = 37
-          Width = 32
-          Height = 13
-          Caption = 'Darker'
-        end
-        object Label2: TLabel
-          Left = 191
-          Top = 37
-          Width = 33
-          Height = 13
-          Caption = 'Lighter'
-        end
-        object trbMapHoover: TTrackBar
-          Left = 10
-          Top = 5
-          Width = 206
-          Height = 33
-          LineSize = 5
-          Max = 16
-          Min = -16
-          PageSize = 10
-          Frequency = 2
-          TabOrder = 0
-          OnChange = trbMapHooverChange
-        end
-        object txtMapHoover: TEdit
-          Left = 96
-          Top = 34
-          Width = 36
-          Height = 21
-          Alignment = taCenter
-          NumbersOnly = True
-          ReadOnly = True
-          TabOrder = 1
-        end
-      end
-      object panMapSelected: TPanel
-        Left = 25
-        Top = 123
-        Width = 231
-        Height = 61
-        BevelOuter = bvNone
-        TabOrder = 3
-        object Label3: TLabel
-          Left = 4
-          Top = 37
-          Width = 32
-          Height = 13
-          Caption = 'Darker'
-        end
-        object Label4: TLabel
-          Left = 191
-          Top = 37
-          Width = 33
-          Height = 13
-          Caption = 'Lighter'
-        end
-        object trbMapSelected: TTrackBar
-          Left = 10
-          Top = 5
-          Width = 206
-          Height = 33
-          LineSize = 5
-          Max = 16
-          Min = -16
-          PageSize = 10
-          Frequency = 2
-          TabOrder = 0
-          OnChange = trbMapSelectedChange
-        end
-        object txtMapSelected: TEdit
-          Left = 96
-          Top = 34
-          Width = 36
-          Height = 21
-          Alignment = taCenter
-          NumbersOnly = True
-          ReadOnly = True
-          TabOrder = 1
-        end
-      end
-    end
-    object tbsGame: TTabSheet
-      Caption = 'Game'
-      ImageIndex = 2
-      object chkGameConfirmAbort: TCheckBox
-        Left = 8
-        Top = 15
-        Width = 296
-        Height = 17
-        Caption = 'Ask for confirmation before aborting game in progress'
-        TabOrder = 0
-        OnClick = chkMapHooverClick
-      end
-      object chkExpertAttack: TCheckBox
-        Left = 8
-        Top = 38
-        Width = 296
-        Height = 17
-        Caption = 'Advanced options in Attack window'
-        TabOrder = 1
-        OnClick = chkMapHooverClick
-      end
-    end
-    object tbsUpdate: TTabSheet
-      Caption = 'Update'
-      ImageIndex = 3
-      object chkUpdateCheck: TCheckBox
-        Left = 8
-        Top = 15
-        Width = 296
-        Height = 17
-        Caption = 'Check for updates at startup'
-        TabOrder = 0
-        OnClick = chkMapHooverClick
-      end
-    end
-  end
-  object cmdOK: TBitBtn
-    Left = 5
-    Top = 245
-    Width = 86
-    Height = 31
-    Caption = 'OK'
-    Default = True
-    DoubleBuffered = True
-    Glyph.Data = {
-      DE010000424DDE01000000000000760000002800000024000000120000000100
-      0400000000006801000000000000000000001000000000000000000000000000
-      80000080000000808000800000008000800080800000C0C0C000808080000000
-      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
-      3333333333333333333333330000333333333333333333333333F33333333333
-      00003333344333333333333333388F3333333333000033334224333333333333
-      338338F3333333330000333422224333333333333833338F3333333300003342
-      222224333333333383333338F3333333000034222A22224333333338F338F333
-      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
-      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
-      0000333333333A222433333333333338F338F33300003333333333A222433333
-      333333338F338F33000033333333333A222433333333333338F338F300003333
-      33333333A222433333333333338F338F00003333333333333A22433333333333
-      3338F38F000033333333333333A223333333333333338F830000333333333333
-      333A333333333333333338330000333333333333333333333333333333333333
-      0000}
-    NumGlyphs = 2
-    ParentDoubleBuffered = False
-    TabOrder = 1
-    OnClick = cmdOKClick
-  end
-  object cmdAnnulla: TBitBtn
-    Left = 105
-    Top = 245
-    Width = 81
-    Height = 31
-    DoubleBuffered = True
-    Kind = bkCancel
-    ParentDoubleBuffered = False
-    TabOrder = 2
-  end
-  object cmdResetRules: TBitBtn
-    Left = 280
-    Top = 245
-    Width = 151
-    Height = 31
-    Caption = 'Reset to default'
-    DoubleBuffered = True
-    Glyph.Data = {
-      DE010000424DDE01000000000000760000002800000024000000120000000100
-      0400000000006801000000000000000000001000000000000000000000000000
-      80000080000000808000800000008000800080800000C0C0C000808080000000
-      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
-      33333333333F8888883F33330000324334222222443333388F3833333388F333
-      000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
-      F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
-      223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
-      3338888300003AAAAAAA33333333333888888833333333330000333333333333
-      333333333333333333FFFFFF000033333333333344444433FFFF333333888888
-      00003A444333333A22222438888F333338F3333800003A2243333333A2222438
-      F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
-      22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
-      33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
-      3333333333338888883333330000333333333333333333333333333333333333
-      0000}
-    NumGlyphs = 2
-    ParentDoubleBuffered = False
-    TabOrder = 3
-    OnClick = cmdResetRulesClick
-  end
-end
diff --git a/Pref.pas b/Pref.pas
deleted file mode 100644
index f0b4f17..0000000
--- a/Pref.pas
+++ /dev/null
@@ -1,172 +0,0 @@
-unit Pref;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls, CheckLst;
-
-type
-  TfPref = class(TForm)
-    tabPref: TPageControl;
-    tbsToolbar: TTabSheet;
-    cmdOK: TBitBtn;
-    cmdAnnulla: TBitBtn;
-    cmdResetRules: TBitBtn;
-    tbsMap: TTabSheet;
-    chkMapHoover: TCheckBox;
-    chkMapSelected: TCheckBox;
-    panMapHoover: TPanel;
-    trbMapHoover: TTrackBar;
-    Label1: TLabel;
-    txtMapHoover: TEdit;
-    Label2: TLabel;
-    panMapSelected: TPanel;
-    Label3: TLabel;
-    Label4: TLabel;
-    trbMapSelected: TTrackBar;
-    txtMapSelected: TEdit;
-    lstTlbButtons: TListView;
-    tbsGame: TTabSheet;
-    chkGameConfirmAbort: TCheckBox;
-    chkTlbShowToolbar: TCheckBox;
-    tbsUpdate: TTabSheet;
-    chkUpdateCheck: TCheckBox;
-    chkExpertAttack: TCheckBox;
-    procedure FormShow(Sender: TObject);
-    procedure trbMapHooverChange(Sender: TObject);
-    procedure chkMapHooverClick(Sender: TObject);
-    procedure trbMapSelectedChange(Sender: TObject);
-    procedure cmdOKClick(Sender: TObject);
-    procedure cmdResetRulesClick(Sender: TObject);
-    procedure chkMapSelectedClick(Sender: TObject);
-  private
-    { Private declarations }
-  public
-    { Public declarations }
-  end;
-
-var
-  fPref: TfPref;
-
-implementation
-
-{$R *.dfm}
-
-uses Globals, Main, Territ;
-
-procedure TfPref.FormShow(Sender: TObject);
-var
-  i: integer;
-begin
-  // toolbar
-  chkTlbShowToolbar.Checked := bPrefShowToolbar;
-  lstTlbButtons.Clear;
-  for i := 0 to fMain.tlbToolBar.ButtonCount - 3 do begin
-    with lstTlbButtons.Items.Add do begin
-      Caption := fMain.tlbToolBar.Buttons[i].Caption;
-      ImageIndex := i;
-      Checked := fMain.tlbToolBar.Buttons[i].Visible;
-    end;
-  end;
-  // map
-  chkMapHoover.Checked := bPrefMapHoover;
-  panMapHoover.Visible := bPrefMapHoover;
-  chkMapSelected.Checked := bPrefMapSelected;
-  panMapSelected.Visible := bPrefMapSelected;
-  txtMapHoover.Text := IntToStr(iPrefMapHoover);
-  txtMapSelected.Text := IntToStr(iPrefMapSelected);
-  trbMapHoover.Position := iPrefMapHoover div 5;
-  trbMapSelected.Position := iPrefMapSelected div 5;
-  // game
-  chkGameConfirmAbort.Checked := bPrefConfirmAbort;
-  chkExpertAttack.Checked := bPrefExpertAttack;
-  // update
-  chkUpdateCheck.Checked := bPrefCheckUpdate;
-end;
-
-procedure TfPref.chkMapHooverClick(Sender: TObject);
-begin
-  panMapHoover.Visible := chkMapHoover.Checked;
-end;
-
-procedure TfPref.trbMapHooverChange(Sender: TObject);
-begin
-  txtMapHoover.Text := IntToStr(trbMapHoover.Position * 5);
-end;
-
-procedure TfPref.chkMapSelectedClick(Sender: TObject);
-begin
-  panMapSelected.Visible := chkMapSelected.Checked;
-end;
-
-procedure TfPref.trbMapSelectedChange(Sender: TObject);
-begin
-  txtMapSelected.Text := IntToStr(trbMapSelected.Position * 5);
-end;
-
-procedure TfPref.cmdOKClick(Sender: TObject);
-var
-  i: integer;
-begin
-  // toolbar
-  bPrefShowToolbar := chkTlbShowToolbar.Checked;
-  fMain.tlbToolBar.Visible := bPrefShowToolbar;
-  sPrefTlbButtons := '';
-  for i := 0 to fMain.tlbToolBar.ButtonCount - 3 do begin
-    with lstTlbButtons.Items[i] do begin
-      if Checked then begin
-        fMain.tlbToolBar.Buttons[i].Visible := true;
-        sPrefTlbButtons := sPrefTlbButtons + '1';
-      end
-      else begin
-        fMain.tlbToolBar.Buttons[i].Visible := false;
-        sPrefTlbButtons := sPrefTlbButtons + '0';
-      end;
-    end;
-  end;
-  // map
-  bPrefMapHoover := chkMapHoover.Checked;
-  bPrefMapSelected := chkMapSelected.Checked;
-  iPrefMapHoover := StrToIntDef(txtMapHoover.Text, 0);
-  iPrefMapSelected := StrToIntDef(txtMapSelected.Text, 0);
-  ModalResult := mrOK;
-  // game
-  bPrefConfirmAbort := chkGameConfirmAbort.Checked;
-  bPrefExpertAttack := chkExpertAttack.Checked;
-  // update
-  bPrefCheckUpdate := chkUpdateCheck.Checked;
-  // resize main window according to map and toolbar
-  ResizeMainWindow;
-end;
-
-procedure TfPref.cmdResetRulesClick(Sender: TObject);
-var
-  i: integer;
-begin
-  if MessageDlg(
-    'Would you like to reset the preferences to their default values?',
-    mtConfirmation, [mbYes, mbNo], 0) <> mrYes then
-    exit;
-  // toolbar
-  chkTlbShowToolbar.Checked := true;
-  for i := 0 to fMain.tlbToolBar.ButtonCount - 3 do begin
-    with lstTlbButtons.Items[i] do begin
-      Checked := (i >= 1) and (i <= 5);
-    end;
-  end;
-  // map
-  chkMapHoover.Checked := true;
-  chkMapSelected.Checked := true;
-  txtMapHoover.Text := IntToStr(-20);
-  txtMapSelected.Text := IntToStr(-20);
-  trbMapHoover.Position := -20 div 5;
-  trbMapSelected.Position := -20 div 5;
-  // game
-  chkGameConfirmAbort.Checked := true;
-  chkExpertAttack.Checked := false;
-  // update
-  chkUpdateCheck.Checked := false;
-end;
-
-end.
diff --git a/Programs.dfm b/Programs.dfm
deleted file mode 100644
index b882083..0000000
--- a/Programs.dfm
+++ /dev/null
@@ -1,87 +0,0 @@
-object fPrograms: TfPrograms
-  Left = 316
-  Top = 303
-  HelpContext = 410
-  BorderStyle = bsDialog
-  Caption = 'Programs'
-  ClientHeight = 371
-  ClientWidth = 551
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
-  Font.Style = []
-  OldCreateOrder = False
-  Position = poScreenCenter
-  OnShow = FormShow
-  PixelsPerInch = 96
-  TextHeight = 13
-  object Label1: TLabel
-    Left = 5
-    Top = 5
-    Width = 89
-    Height = 13
-    Caption = 'Available programs'
-  end
-  object Label2: TLabel
-    Left = 160
-    Top = 5
-    Width = 53
-    Height = 13
-    Caption = 'Description'
-  end
-  object txtPrgDesc: TMemo
-    Left = 160
-    Top = 20
-    Width = 386
-    Height = 311
-    TabOrder = 0
-  end
-  object lstPrgFile: TCheckListBox
-    Left = 5
-    Top = 20
-    Width = 151
-    Height = 311
-    OnClickCheck = lstPrgFileClickCheck
-    ItemHeight = 13
-    TabOrder = 1
-    OnClick = lstPrgFileClick
-  end
-  object cmdOK: TBitBtn
-    Left = 180
-    Top = 340
-    Width = 81
-    Height = 26
-    Caption = 'OK'
-    Default = True
-    TabOrder = 2
-    OnClick = cmdOKClick
-    Glyph.Data = {
-      DE010000424DDE01000000000000760000002800000024000000120000000100
-      0400000000006801000000000000000000001000000000000000000000000000
-      80000080000000808000800000008000800080800000C0C0C000808080000000
-      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
-      3333333333333333333333330000333333333333333333333333F33333333333
-      00003333344333333333333333388F3333333333000033334224333333333333
-      338338F3333333330000333422224333333333333833338F3333333300003342
-      222224333333333383333338F3333333000034222A22224333333338F338F333
-      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
-      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
-      0000333333333A222433333333333338F338F33300003333333333A222433333
-      333333338F338F33000033333333333A222433333333333338F338F300003333
-      33333333A222433333333333338F338F00003333333333333A22433333333333
-      3338F38F000033333333333333A223333333333333338F830000333333333333
-      333A333333333333333338330000333333333333333333333333333333333333
-      0000}
-    NumGlyphs = 2
-  end
-  object cmdAnnulla: TBitBtn
-    Left = 290
-    Top = 340
-    Width = 81
-    Height = 26
-    TabOrder = 3
-    Kind = bkCancel
-  end
-end
diff --git a/Programs.pas b/Programs.pas
deleted file mode 100644
index 408d1cf..0000000
--- a/Programs.pas
+++ /dev/null
@@ -1,122 +0,0 @@
-unit Programs;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, CheckLst, Buttons;
-
-type
-  TfPrograms = class(TForm)
-    Label1: TLabel;
-    txtPrgDesc: TMemo;
-    Label2: TLabel;
-    lstPrgFile: TCheckListBox;
-    cmdOK: TBitBtn;
-    cmdAnnulla: TBitBtn;
-    procedure FormShow(Sender: TObject);
-    procedure lstPrgFileClickCheck(Sender: TObject);
-    procedure lstPrgFileClick(Sender: TObject);
-    procedure cmdOKClick(Sender: TObject);
-  private
-    { Private declarations }
-  public
-    { Public declarations }
-  end;
-
-var
-  fPrograms: TfPrograms;
-
-implementation
-
-{$R *.dfm}
-
-uses StdPas, Players, Globals;
-
-procedure TfPrograms.FormShow(Sender: TObject);
-var
-  rFileDesc: TSearchRec;
-  i: integer;
-begin
-  // load program list
-  lstPrgFile.Items.Clear;
-  if FindFirst(sG_AppPath+'players\*.trp', faAnyFile, rFileDesc) = 0 then begin
-    repeat
-      lstPrgFile.Items.Add(rFileDesc.Name);
-    until FindNext(rFileDesc) <> 0;
-    FindClose(rFileDesc);
-  end;
-  // select current program, if any
-  i := lstPrgFile.Items.IndexOf(fPlayers.cboPrgFile.Text);
-  if i>=0 then begin
-    lstPrgFile.ItemIndex:=i;
-    lstPrgFile.Checked[i] := true;
-    lstPrgFileClick(Sender);
-  end;
-end;
-
-procedure TfPrograms.lstPrgFileClickCheck(Sender: TObject);
-var
-  i, j: integer;
-begin
-  // uncheck all other items
-  j := lstPrgFile.ItemIndex;
-  if lstPrgFile.Checked[j] then begin
-    for i:=0 to lstPrgFile.Items.Count-1 do begin
-      if i<>j then lstPrgFile.Checked[i] := false;
-    end;
-  end;
-end;
-
-procedure TfPrograms.lstPrgFileClick(Sender: TObject);
-var
-  fTRP: textfile;
-  sLine: string;
-  bComment: boolean;
-  i: integer;
-begin
-  if lstPrgFile.ItemIndex<0 then exit;
-  txtPrgDesc.Clear;
-  AssignFile(fTRP,sG_AppPath+'players\'+lstPrgFile.Items[lstPrgFile.ItemIndex]);
-  Reset(fTRP);
-  try
-    // read initial comment delimited by { and }
-    bComment := false;
-    while not Eof(fTRP) do begin
-      Readln(fTRP,sLine);
-      // search for begin of comment
-      if not bComment then begin
-        i := pos('{',sLine);
-        if i>0 then begin
-          sLine := StrTran(sLine,'{','');
-          bComment := true;
-          if trim(sLine)='' then continue;
-        end;
-      end;
-      // copy comment into control
-      if bComment then begin
-        i := pos('}',sLine);
-        if i>0 then sLine := StrTran(sLine,'}','');
-        txtPrgDesc.Lines.Add(sLine);
-        if i>0 then break;
-      end;  
-    end;
-  finally
-    CloseFile(fTRP);
-  end;
-end;
-
-procedure TfPrograms.cmdOKClick(Sender: TObject);
-var
-  i: integer;
-begin
-  for i:=0 to lstPrgFile.Items.Count-1 do begin
-    if lstPrgFile.Checked[i] then begin
-      fPlayers.cboPrgFile.Text := lstPrgFile.Items[i];
-      break;
-    end;
-  end;
-  ModalResult := mrOK;
-end;
-
-end.
diff --git a/Readme b/Readme
deleted file mode 100644
index 183334a..0000000
--- a/Readme
+++ /dev/null
@@ -1,63 +0,0 @@
-TurboRisk notes for the developers
-==================================
-
-Comments in sparse order
-------------------------
-
-- In view of making the project open source, years ago I started translating the comments and the variable names 
-from Italian into English. Unfortunately I never finished this job. With modern refactoring tools changing names
-to the variables should be easy, fast and safe.
-As for the comments... whenever you find a comment you don't understand and are not able to translate with online 
-translators, just ask.
-
-- The procedure Supervisor (unit Globals.pas) manages the turns and the phases of the games. 
-The way the events manager of the Main window and the Supervisor pass each other the control of the application 
-is a bit tricky :-)
-
-- TR is made of many units and the source code is not trivial- though I think is well structured and commented. 
-
-- To understand how TR handles the maps, read the topic "Making custom maps -> Creating the bitmaps -> Colors". 
-To make the application multi-plataform we might need to change this architecture.
-
-List of the units in the project
---------------------------------
-
-About.pas	          The About window
-Attack.pas	        The Attack window
-Cards.pas	          The Cards turn in window
-CheckUpd.pas	      Unit to check online updates
-Computer.pas	      Handles the turn of TRPs
-ExpSubr.pas	        Procedure and function used by the TRPs (API)
-Globals.pas	        Subroutines of general use
-History.pas	        The History window
-Human.pas	          Handles the turn of a human player
-Log.pas	            The Log window
-Main.pas	          The Main window
-Map.pas	            The Map choice window
-Move.pas	          The Troops Move window
-NewGame.pas	        The New Game window
-Players.pas	        The Player's property window
-Pref.pas	          The Preference window
-Programs.pas	      The TRP choice window
-Readme.pas	        The Readme window
-Rules.pas	          The Rules customization window
-Sim.pas	            *** part of the TRSim simulator
-SimCPULog.pas	      *** part of the TRSim simulator
-SimGameLog.pas      *** part of the TRSim simulator, ignore this unit
-SimMap.pas	        *** part of the TRSim simulator, ignore this unit
-SimRun.pas	        *** part of the TRSim simulator, ignore this unit
-SplashScreen.pas    The initial splash screen
-Stats.pas	          The Stats window
-Territ.pas	        Routines to handle territories
-TRPError.pas	      The TRP error reporting window
-UDialog.pas	        The dialog window invoked by the API function UDialog
-
-Planned/requested changes
--------------------------
-
-- I planned to move the code from Delphi to Lazarus/Free Pascal, because the second is free, open source 
-and multi-platform (Win, OSX, Linux and more). Not yet approached, but shouldn't be too difficult.
-
-- I also planned to convert maps to vector graphics to make them scalable, thus more suitable for mobile devices.
-
-- Most requested feature is multi-player.
diff --git a/Readme.dfm b/Readme.dfm
deleted file mode 100644
index 4e2f32d..0000000
--- a/Readme.dfm
+++ /dev/null
@@ -1,16 +0,0 @@
-object Form1: TForm1
-  Left = 242
-  Top = 107
-  Width = 870
-  Height = 500
-  Caption = 'Form1'
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
-  Font.Style = []
-  OldCreateOrder = False
-  PixelsPerInch = 96
-  TextHeight = 13
-end
diff --git a/Readme.pas b/Readme.pas
deleted file mode 100644
index 638d312..0000000
--- a/Readme.pas
+++ /dev/null
@@ -1,24 +0,0 @@
-unit Readme;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs;
-
-type
-  TForm1 = class(TForm)
-  private
-    { Private declarations }
-  public
-    { Public declarations }
-  end;
-
-var
-  Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-end.
diff --git a/Rules.dfm b/Rules.dfm
deleted file mode 100644
index 7ae6b84..0000000
Binary files a/Rules.dfm and /dev/null differ
diff --git a/Rules.pas b/Rules.pas
deleted file mode 100644
index 635a3f7..0000000
--- a/Rules.pas
+++ /dev/null
@@ -1,280 +0,0 @@
-unit Rules;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  ComCtrls, StdCtrls, Buttons, ExtCtrls;
-
-type
-  TfRules = class(TForm)
-    tabRules: TPageControl;
-    tbsRules: TTabSheet;
-    tbsCards: TTabSheet;
-    tbsMove: TTabSheet;
-    optAssegnazione: TRadioGroup;
-    cmdOK: TBitBtn;
-    cmdAnnulla: TBitBtn;
-    GroupBox1: TGroupBox;
-    Label1: TLabel;
-    txtArmIn2: TEdit;
-    txtArmIn3: TEdit;
-    txtArmIn4: TEdit;
-    txtArmIn5: TEdit;
-    txtArmIn6: TEdit;
-    txtArmIn7: TEdit;
-    txtArmIn8: TEdit;
-    txtArmIn9: TEdit;
-    txtArmIn10: TEdit;
-    Label2: TLabel;
-    Label3: TLabel;
-    Label4: TLabel;
-    Label5: TLabel;
-    Label6: TLabel;
-    Label7: TLabel;
-    Label8: TLabel;
-    Label9: TLabel;
-    optUsoCarte: TRadioGroup;
-    panCostante: TGroupBox;
-    Label10: TLabel;
-    txtSetArt: TEdit;
-    txtSetInf: TEdit;
-    txtSetCav: TEdit;
-    txtSetDif: TEdit;
-    Label11: TLabel;
-    Label12: TLabel;
-    Label13: TLabel;
-    panProgressivo: TGroupBox;
-    Label14: TLabel;
-    txtTrade1: TEdit;
-    txtTrade2: TEdit;
-    txtTrade3: TEdit;
-    txtTrade4: TEdit;
-    txtTrade5: TEdit;
-    txtTrade6: TEdit;
-    txtTrade7: TEdit;
-    txtTrade8: TEdit;
-    Label15: TLabel;
-    Label16: TLabel;
-    Label17: TLabel;
-    Label18: TLabel;
-    Label19: TLabel;
-    Label20: TLabel;
-    Label21: TLabel;
-    Label22: TLabel;
-    txtTradeInc: TEdit;
-    chkTrasfFinale: TCheckBox;
-    txtMaxCardsHeld: TEdit;
-    Label23: TLabel;
-    chkTradeCaptured: TCheckBox;
-    cmdResetRules: TBitBtn;
-    procedure cmdOKClick(Sender: TObject);
-    procedure FormShow(Sender: TObject);
-    procedure optUsoCarteClick(Sender: TObject);
-    procedure txtNumOnlyKeyPress(Sender: TObject; var Key: Char);
-    procedure cmdResetRulesClick(Sender: TObject);
-  private
-    { Private declarations }
-  public
-    { Public declarations }
-  end;
-
-var
-  fRules: TfRules;
-
-implementation
-
-{$R *.DFM}
-
-uses Globals;
-
-procedure TfRules.FormShow(Sender: TObject);
-begin
-  // Copy global variables into controls
-  if RAssignmentType=atRandom then
-    optAssegnazione.Itemindex := 1
-  else
-    optAssegnazione.Itemindex := 0;
-  txtArmIn2.Text := IntToStr(RInitialArmies[2]);
-  txtArmIn3.Text := IntToStr(RInitialArmies[3]);
-  txtArmIn4.Text := IntToStr(RInitialArmies[4]);
-  txtArmIn5.Text := IntToStr(RInitialArmies[5]);
-  txtArmIn6.Text := IntToStr(RInitialArmies[6]);
-  txtArmIn7.Text := IntToStr(RInitialArmies[7]);
-  txtArmIn8.Text := IntToStr(RInitialArmies[8]);
-  txtArmIn9.Text := IntToStr(RInitialArmies[9]);
-  txtArmIn10.Text := IntToStr(RInitialArmies[10]);
-  if RCardsValueType=cvConstant then
-    optUsoCarte.Itemindex := 0
-  else
-    optUsocarte.Itemindex := 1;
-  optUsoCarteClick(self);
-  txtSetArt.Text := IntToStr(RSetValue[csArt]);
-  txtSetInf.Text := IntToStr(RSetValue[csInf]);
-  txtSetCav.Text := IntToStr(RSetValue[csCav]);
-  txtSetDif.Text := IntToStr(RSetValue[csDif]);
-  txtTrade1.Text := IntToStr(RTradeValue[1]);
-  txtTrade2.Text := IntToStr(RTradeValue[2]);
-  txtTrade3.Text := IntToStr(RTradeValue[3]);
-  txtTrade4.Text := IntToStr(RTradeValue[4]);
-  txtTrade5.Text := IntToStr(RTradeValue[5]);
-  txtTrade6.Text := IntToStr(RTradeValue[6]);
-  txtTrade7.Text := IntToStr(RTradeValue[7]);
-  txtTrade8.Text := IntToStr(RTradeValue[8]);
-  txtTradeInc.Text := IntToStr(RValueInc);
-  txtMaxCardsHeld.Text := IntToStr(RMaxHeldCards);
-  chkTradeCaptured.Checked := RImmediateTrade;
-  chkTrasfFinale.Checked := RFinalMove;
-end;
-
-procedure TfRules.cmdOKClick(Sender: TObject);
-
-  function IsOk(Field: TWinControl; bOK: boolean; iPage: integer): boolean;
-  begin
-    if not bOK then begin
-      tabRules.ActivePage := tabRules.Pages[iPage];
-      Field.SetFocus;
-      MessageDlg('Invalid value.',mtError, [mbOk], 0);
-    end;
-    Result := bOK;
-  end;
-
-  function MyStrToInt(s: string): integer;
-  begin
-    if trim(s)='' then
-      result:=0
-    else
-      result:=StrToInt(s);
-  end;
-
-begin
-  // Check input controls
-  if not IsOk(txtArmIn2,MyStrToInt(txtArmIn2.Text)>=21,0) then exit;
-  if not IsOk(txtArmIn3,MyStrToInt(txtArmIn3.Text)>=14,0) then exit;
-  if not IsOk(txtArmIn4,MyStrToInt(txtArmIn4.Text)>=11,0) then exit;
-  if not IsOk(txtArmIn5,MyStrToInt(txtArmIn5.Text)>=9,0) then exit;
-  if not IsOk(txtArmIn6,MyStrToInt(txtArmIn6.Text)>=7,0) then exit;
-  if not IsOk(txtArmIn7,MyStrToInt(txtArmIn7.Text)>=6,0) then exit;
-  if not IsOk(txtArmIn8,MyStrToInt(txtArmIn8.Text)>=6,0) then exit;
-  if not IsOk(txtArmIn9,MyStrToInt(txtArmIn9.Text)>=5,0) then exit;
-  if not IsOk(txtArmIn10,MyStrToInt(txtArmIn10.Text)>=5,0) then exit;
-  if optUsoCarte.Itemindex = 0 then begin
-    if not IsOk(txtSetArt,MyStrToInt(txtSetArt.Text)>=0,1) then exit;
-    if not IsOk(txtSetInf,MyStrToInt(txtSetInf.Text)>=0,1) then exit;
-    if not IsOk(txtSetCav,MyStrToInt(txtSetCav.Text)>=0,1) then exit;
-    if not IsOk(txtSetDif,MyStrToInt(txtSetDif.Text)>=0,1) then exit;
-  end else begin
-    if not IsOk(txtTrade1,MyStrToInt(txtTrade1.Text)>=0,1) then exit;
-    if not IsOk(txtTrade2,MyStrToInt(txtTrade2.Text)>=0,1) then exit;
-    if not IsOk(txtTrade3,MyStrToInt(txtTrade3.Text)>=0,1) then exit;
-    if not IsOk(txtTrade4,MyStrToInt(txtTrade4.Text)>=0,1) then exit;
-    if not IsOk(txtTrade5,MyStrToInt(txtTrade5.Text)>=0,1) then exit;
-    if not IsOk(txtTrade6,MyStrToInt(txtTrade6.Text)>=0,1) then exit;
-    if not IsOk(txtTrade7,MyStrToInt(txtTrade7.Text)>=0,1) then exit;
-    if not IsOk(txtTrade8,MyStrToInt(txtTrade8.Text)>=0,1) then exit;
-    if not IsOk(txtTradeInc,MyStrToInt(txtTradeInc.Text)>=0,1) then exit;
-  end;
-  if not IsOk(txtMaxCardsHeld,MyStrToInt(txtMaxCardsHeld.Text)>=4,1) then exit;
-
-  // Copy controls into global variables
-  if optAssegnazione.Itemindex = 1 then begin
-    RAssignmentType := atRandom
-  end else begin
-    RAssignmentType := atTurns;
-  end;
-  RInitialArmies[2] := MyStrToInt(txtArmIn2.Text);
-  RInitialArmies[3] := MyStrToInt(txtArmIn3.Text);
-  RInitialArmies[4] := MyStrToInt(txtArmIn4.Text);
-  RInitialArmies[5] := MyStrToInt(txtArmIn5.Text);
-  RInitialArmies[6] := MyStrToInt(txtArmIn6.Text);
-  RInitialArmies[7] := MyStrToInt(txtArmIn7.Text);
-  RInitialArmies[8] := MyStrToInt(txtArmIn8.Text);
-  RInitialArmies[9] := MyStrToInt(txtArmIn9.Text);
-  RInitialArmies[10] := MyStrToInt(txtArmIn10.Text);
-  if optUsoCarte.Itemindex = 0 then begin
-    RCardsValueType := cvConstant;
-  end else begin
-    RCardsValueType := cvProgressive;
-  end;
-  RSetValue[csArt] := MyStrToInt(txtSetArt.Text);
-  RSetValue[csInf] := MyStrToInt(txtSetInf.Text);
-  RSetValue[csCav] := MyStrToInt(txtSetCav.Text);
-  RSetValue[csDif] := MyStrToInt(txtSetDif.Text);
-  RTradeValue[1] := MyStrToInt(txtTrade1.Text);
-  RTradeValue[2] := MyStrToInt(txtTrade2.Text);
-  RTradeValue[3] := MyStrToInt(txtTrade3.Text);
-  RTradeValue[4] := MyStrToInt(txtTrade4.Text);
-  RTradeValue[5] := MyStrToInt(txtTrade5.Text);
-  RTradeValue[6] := MyStrToInt(txtTrade6.Text);
-  RTradeValue[7] := MyStrToInt(txtTrade7.Text);
-  RTradeValue[8] := MyStrToInt(txtTrade8.Text);
-  RValueInc := MyStrToInt(txtTradeInc.Text);
-  RMaxHeldCards := MyStrToInt(txtMaxCardsHeld.Text);
-  RImmediateTrade := chkTradeCaptured.Checked;
-  RFinalMove := chkTrasfFinale.Checked;
-
-  ModalResult := mrOK;
-
-end;
-
-procedure TfRules.optUsoCarteClick(Sender: TObject);
-var
-  i: integer;
-begin
-  if optUsocarte.ItemIndex=0 then begin
-    with panProgressivo do begin
-      Enabled := false;
-      for i:=0 to ControlCount-1 do Controls[i].Enabled := false;
-    end;
-    with panCostante do begin
-      Enabled := true;
-      for i:=0 to ControlCount-1 do Controls[i].Enabled := true;
-    end;
-  end else begin
-    with panCostante do begin
-      Enabled := false;
-      for i:=0 to ControlCount-1 do Controls[i].Enabled := false;
-    end;
-    with panProgressivo do begin
-      Enabled := true;
-      for i:=0 to ControlCount-1 do Controls[i].Enabled := true;
-    end;
-  end;
-end;
-
-
-procedure TfRules.txtNumOnlyKeyPress(Sender: TObject; var Key: Char);
-begin
-  if not (Key in ['0'..'9',#8]) then
-    Key:=#0;
-end;
-
-procedure TfRules.cmdResetRulesClick(Sender: TObject);
-begin
-  if MessageDlg('Would you like to reset the rules to their default values?',mtConfirmation, [mbYes,mbNo], 0)<>mrYes then exit;
-  optAssegnazione.ItemIndex := 0;
-  txtArmIn2.Text := '40';
-  txtArmIn3.Text := '35';
-  txtArmIn4.Text := '30';
-  txtArmIn5.Text := '25';
-  txtArmIn6.Text := '20';
-  txtArmIn7.Text := '20';
-  txtArmIn8.Text := '20';
-  txtArmIn9.Text := '20';
-  txtArmIn10.Text := '20';
-  txtTrade1.Text := '4';
-  txtTrade2.Text := '6';
-  txtTrade3.Text := '8';
-  txtTrade4.Text := '10';
-  txtTrade5.Text := '12';
-  txtTrade6.Text := '15';
-  txtTrade7.Text := '20';
-  txtTrade8.Text := '25';
-  txtTradeInc.Text := '5';
-  optUsoCarte.ItemIndex := 1;
-  txtMaxCardsHeld.Text := '5';
-  chkTradeCaptured.Checked := true;
-  chkTrasfFinale.Checked := true;
-end;
-
-end.
diff --git a/Sim.dfm b/Sim.dfm
deleted file mode 100644
index 6f16cc9..0000000
--- a/Sim.dfm
+++ /dev/null
@@ -1,368 +0,0 @@
-object fSim: TfSim
-  Left = 0
-  Top = 0
-  HelpContext = 3000
-  BorderIcons = [biSystemMenu]
-  Caption = 'TRSim - TurboRisk Simulator'
-  ClientHeight = 617
-  ClientWidth = 461
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
-  OldCreateOrder = False
-  OnClose = FormClose
-  OnCloseQuery = FormCloseQuery
-  OnShow = FormShow
-  PixelsPerInch = 96
-  TextHeight = 13
-  object pgcSim: TPageControl
-    Left = 0
-    Top = 0
-    Width = 461
-    Height = 617
-    ActivePage = tbsSim
-    Align = alClient
-    TabOrder = 0
-    object tbsSim: TTabSheet
-      Caption = 'Simulation'
-      object Label2: TLabel
-        Left = 154
-        Top = 74
-        Width = 89
-        Height = 13
-        Caption = 'Randomly inlcuded'
-      end
-      object Label3: TLabel
-        Left = 3
-        Top = 74
-        Width = 76
-        Height = 13
-        Caption = 'Always included'
-      end
-      object Label6: TLabel
-        Left = 305
-        Top = 74
-        Width = 71
-        Height = 13
-        Caption = 'Never inlcuded'
-      end
-      object Label7: TLabel
-        Left = 3
-        Top = 47
-        Width = 87
-        Height = 13
-        Caption = 'Players per game:'
-      end
-      object Label8: TLabel
-        Left = 3
-        Top = 14
-        Width = 120
-        Height = 13
-        Caption = 'Number of games to play'
-      end
-      object Label9: TLabel
-        Left = 189
-        Top = 47
-        Width = 10
-        Height = 13
-        Caption = 'to'
-      end
-      object Label12: TLabel
-        Left = 126
-        Top = 47
-        Width = 22
-        Height = 13
-        Caption = 'from'
-      end
-      object lstAlways: TListBox
-        Left = 3
-        Top = 93
-        Width = 145
-        Height = 184
-        DragMode = dmAutomatic
-        ItemHeight = 13
-        MultiSelect = True
-        Sorted = True
-        TabOrder = 3
-        OnDragDrop = lstTRPDragDrop
-        OnDragOver = lstTRPDragOver
-      end
-      object lstRandom: TListBox
-        Left = 154
-        Top = 93
-        Width = 145
-        Height = 184
-        DragMode = dmAutomatic
-        ItemHeight = 13
-        MultiSelect = True
-        Sorted = True
-        TabOrder = 4
-        OnDragDrop = lstTRPDragDrop
-        OnDragOver = lstTRPDragOver
-      end
-      object lstNever: TListBox
-        Left = 305
-        Top = 93
-        Width = 145
-        Height = 184
-        DragMode = dmAutomatic
-        ItemHeight = 13
-        MultiSelect = True
-        Sorted = True
-        TabOrder = 5
-        OnDragDrop = lstTRPDragDrop
-        OnDragOver = lstTRPDragOver
-      end
-      object txtMinPlayers: TEdit
-        Left = 154
-        Top = 44
-        Width = 27
-        Height = 21
-        MaxLength = 2
-        NumbersOnly = True
-        TabOrder = 1
-        Text = '2'
-      end
-      object txtMaxPlayers: TEdit
-        Left = 205
-        Top = 44
-        Width = 27
-        Height = 21
-        MaxLength = 2
-        NumbersOnly = True
-        TabOrder = 2
-        Text = '10'
-      end
-      object txtGames: TEdit
-        Left = 154
-        Top = 11
-        Width = 78
-        Height = 21
-        NumbersOnly = True
-        TabOrder = 0
-        Text = '10'
-      end
-      object panError: TGroupBox
-        Left = 305
-        Top = 283
-        Width = 145
-        Height = 118
-        Caption = 'TRP error handling'
-        TabOrder = 6
-        object Label1: TLabel
-          Left = 9
-          Top = 24
-          Width = 79
-          Height = 13
-          Caption = 'In case of error:'
-        end
-        object chkErrorDump: TCheckBox
-          Left = 9
-          Top = 50
-          Width = 124
-          Height = 17
-          Caption = 'Create a dump file'
-          Checked = True
-          State = cbChecked
-          TabOrder = 0
-        end
-        object chkErrorAbort: TCheckBox
-          Left = 9
-          Top = 86
-          Width = 124
-          Height = 17
-          Caption = 'Abort game'
-          Checked = True
-          State = cbChecked
-          TabOrder = 1
-        end
-      end
-      object cmdStart: TBitBtn
-        Left = 157
-        Top = 531
-        Width = 139
-        Height = 52
-        Caption = 'Start simulation'
-        DoubleBuffered = True
-        ParentDoubleBuffered = False
-        TabOrder = 7
-        OnClick = cmdStartClick
-      end
-      object GroupBox1: TGroupBox
-        Left = 3
-        Top = 283
-        Width = 296
-        Height = 118
-        Caption = 'Map && Stats'
-        TabOrder = 8
-        object chkShowMap: TCheckBox
-          Left = 10
-          Top = 23
-          Width = 274
-          Height = 17
-          Caption = 'Show game on map (slower)'
-          TabOrder = 0
-        end
-        object chkShowStats: TCheckBox
-          Left = 10
-          Top = 86
-          Width = 274
-          Height = 17
-          Caption = 'Show game stats (slower)'
-          TabOrder = 1
-        end
-        object cboMap: TComboBox
-          Left = 26
-          Top = 46
-          Width = 258
-          Height = 21
-          Style = csDropDownList
-          TabOrder = 2
-        end
-      end
-      object GroupBox2: TGroupBox
-        Left = 3
-        Top = 407
-        Width = 296
-        Height = 118
-        Caption = 'Simulation log'
-        TabOrder = 9
-        object Label4: TLabel
-          Left = 10
-          Top = 19
-          Width = 44
-          Height = 13
-          Caption = 'Game log'
-        end
-        object Label5: TLabel
-          Left = 10
-          Top = 69
-          Width = 69
-          Height = 13
-          Caption = 'CPU usage log'
-        end
-        object txtGameLogFile: TEdisComboDialog
-          Left = 10
-          Top = 38
-          Width = 274
-          Height = 21
-          TabOrder = 0
-          OnCustomDlg = txtGameLogFileCustomDlg
-        end
-        object txtCPULogFile: TEdisComboDialog
-          Left = 10
-          Top = 88
-          Width = 274
-          Height = 21
-          TabOrder = 1
-          OnCustomDlg = txtCPULogFileCustomDlg
-        end
-      end
-      object GroupBox3: TGroupBox
-        Left = 305
-        Top = 407
-        Width = 143
-        Height = 118
-        Caption = 'Game limits'
-        TabOrder = 10
-        object Label10: TLabel
-          Left = 9
-          Top = 19
-          Width = 27
-          Height = 13
-          Caption = 'Turns'
-        end
-        object Label11: TLabel
-          Left = 9
-          Top = 69
-          Width = 72
-          Height = 13
-          Caption = 'Time (seconds)'
-        end
-        object txtTurnLimit: TEdit
-          Left = 9
-          Top = 38
-          Width = 79
-          Height = 21
-          NumbersOnly = True
-          TabOrder = 0
-          Text = '10'
-        end
-        object txtTimeLimit: TEdit
-          Left = 9
-          Top = 88
-          Width = 79
-          Height = 21
-          NumbersOnly = True
-          TabOrder = 1
-          Text = '10'
-        end
-      end
-    end
-    object tbsAna: TTabSheet
-      Caption = 'Analysis'
-      ImageIndex = 1
-      object Label13: TLabel
-        Left = 10
-        Top = 19
-        Width = 44
-        Height = 13
-        Caption = 'Game log'
-      end
-      object Label14: TLabel
-        Left = 10
-        Top = 97
-        Width = 69
-        Height = 13
-        Caption = 'CPU usage log'
-      end
-      object txtGameLogFile2: TEdisComboDialog
-        Left = 10
-        Top = 38
-        Width = 331
-        Height = 21
-        TabOrder = 0
-        OnCustomDlg = txtGameLogFileCustomDlg
-      end
-      object txtCPULogFile2: TEdisComboDialog
-        Left = 10
-        Top = 116
-        Width = 331
-        Height = 21
-        TabOrder = 1
-        OnCustomDlg = txtCPULogFileCustomDlg
-      end
-      object cmdAnalyseGameLog: TBitBtn
-        Left = 347
-        Top = 19
-        Width = 103
-        Height = 40
-        Caption = 'Analyse'
-        DoubleBuffered = True
-        ParentDoubleBuffered = False
-        TabOrder = 2
-        OnClick = cmdAnalyseGameLogClick
-      end
-      object cmdAnalyseCPULog: TBitBtn
-        Left = 347
-        Top = 97
-        Width = 103
-        Height = 40
-        Caption = 'Analyse'
-        DoubleBuffered = True
-        ParentDoubleBuffered = False
-        TabOrder = 3
-        OnClick = cmdAnalyseCPULogClick
-      end
-    end
-  end
-  object dlgOpenLogFile: TOpenDialog
-    Filter = 'TRSim Game Log|sgl|TRSim CPU Log|scl'
-    Title = 'Log file'
-    Left = 394
-    Top = 562
-  end
-end
diff --git a/Sim.pas b/Sim.pas
deleted file mode 100644
index 74bde8c..0000000
--- a/Sim.pas
+++ /dev/null
@@ -1,529 +0,0 @@
-unit Sim;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, ComCtrls, StdCtrls, Globals, ExtCtrls, Buttons, EdisCustom;
-
-type
-  TfSim = class(TForm)
-    pgcSim: TPageControl;
-    tbsSim: TTabSheet;
-    tbsAna: TTabSheet;
-    lstAlways: TListBox;
-    lstRandom: TListBox;
-    Label2: TLabel;
-    Label3: TLabel;
-    lstNever: TListBox;
-    Label6: TLabel;
-    Label7: TLabel;
-    txtMinPlayers: TEdit;
-    txtMaxPlayers: TEdit;
-    txtGames: TEdit;
-    Label8: TLabel;
-    Label9: TLabel;
-    panError: TGroupBox;
-    chkErrorDump: TCheckBox;
-    chkErrorAbort: TCheckBox;
-    cmdStart: TBitBtn;
-    GroupBox1: TGroupBox;
-    chkShowMap: TCheckBox;
-    chkShowStats: TCheckBox;
-    cboMap: TComboBox;
-    Label1: TLabel;
-    GroupBox2: TGroupBox;
-    txtGameLogFile: TEdisComboDialog;
-    Label4: TLabel;
-    Label5: TLabel;
-    txtCPULogFile: TEdisComboDialog;
-    GroupBox3: TGroupBox;
-    txtTurnLimit: TEdit;
-    Label10: TLabel;
-    Label11: TLabel;
-    txtTimeLimit: TEdit;
-    Label12: TLabel;
-    dlgOpenLogFile: TOpenDialog;
-    Label13: TLabel;
-    Label14: TLabel;
-    txtGameLogFile2: TEdisComboDialog;
-    txtCPULogFile2: TEdisComboDialog;
-    cmdAnalyseGameLog: TBitBtn;
-    cmdAnalyseCPULog: TBitBtn;
-    procedure FormShow(Sender: TObject);
-    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
-    procedure lstTRPDragOver(Sender, Source: TObject; X, Y: Integer;
-      State: TDragState; var Accept: Boolean);
-    procedure lstTRPDragDrop(Sender, Source: TObject; X, Y: Integer);
-    procedure cmdStartClick(Sender: TObject);
-    procedure txtGameLogFileCustomDlg(Sender: TObject);
-    procedure txtCPULogFileCustomDlg(Sender: TObject);
-    procedure cmdAnalyseCPULogClick(Sender: TObject);
-    procedure cmdAnalyseGameLogClick(Sender: TObject);
-  private
-    procedure SimSetup;
-    procedure SimCleanup;
-    procedure PopulateTRPList;
-    procedure PopulateMapList;
-    procedure LogCPU;
-  public
-    { Public declarations }
-  end;
-
-var
-  fSim: TfSim;
-
-implementation
-
-{$R *.dfm}
-
-uses IniFiles, StrUtils, DateUtils, StdPas, SimRun, SimMap, Stats, Territ,
-  SimCPULog, SimGameLog;
-
-procedure TfSim.FormShow(Sender: TObject);
-begin
-  bG_TRSim := true; // main is TRSim
-  Setup; // generic TurboRisk setup in globals
-  PopulateMapList;
-  SimSetup; // TRSim specific setup
-  Caption := 'TRSim ' + sG_AppVers;
-  Application.HelpFile := sG_AppPath + 'TurboRisk.chm';
-  PopulateTRPList;
-  pgcSim.ActivePage := tbsSim;
-end;
-
-procedure TfSim.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-begin
-  CanClose := false;
-  if GameState = gsStopped then begin
-    CanClose := true;
-    exit;
-  end;
-  if bHumanTurn then begin
-    GameCleanup;
-    CanClose := true;
-    exit;
-  end
-  else begin
-    bStopASAP := true;
-    bCloseASAP := true;
-  end;
-end;
-
-procedure TfSim.FormClose(Sender: TObject; var Action: TCloseAction);
-begin
-  Cleanup;
-  SimCleanup;
-end;
-
-procedure TfSim.txtGameLogFileCustomDlg(Sender: TObject);
-begin
-  dlgOpenLogFile.InitialDir := sG_AppPath;
-  dlgOpenLogFile.DefaultExt := 'sgl';
-  dlgOpenLogFile.FileName := '*.sgl';
-  dlgOpenLogFile.Filter := 'TRSim Game Log|sgl';
-  if dlgOpenLogFile.Execute then begin (Sender as TEdisComboDialog)
-    .Text := ExtractFileName(dlgOpenLogFile.FileName);
-  end;
-end;
-
-procedure TfSim.txtCPULogFileCustomDlg(Sender: TObject);
-begin
-  dlgOpenLogFile.InitialDir := sG_AppPath;
-  dlgOpenLogFile.DefaultExt := 'scl';
-  dlgOpenLogFile.FileName := '*.scl';
-  dlgOpenLogFile.Filter := 'TRSim CPU Log|scl';
-  if dlgOpenLogFile.Execute then begin (Sender as TEdisComboDialog)
-    .Text := ExtractFileName(dlgOpenLogFile.FileName);
-  end;
-end;
-
-// -----------------
-// Setup and cleanup
-// -----------------
-
-procedure TfSim.SimSetup;
-var
-  IniFile: TIniFile;
-  i, n: Integer;
-begin
-
-  // generic global vars
-  sG_AppName := 'TRSim'; // overrides the name set in Globals
-
-  // clear programs lists
-  lstAlways.Items.Clear;
-  lstRandom.Items.Clear;
-  lstNever.Items.Clear;
-
-  // load INI file
-  IniFile := TIniFile.Create(sG_AppPath + sG_AppName + '.INI');
-  try
-    with IniFile do begin
-      // Windows setup
-      fSim.Top := ReadInteger('Windows', 'SimTop', 0);
-      fSim.Left := ReadInteger('Windows', 'SimLeft', 0);
-      fSimRun.Top := ReadInteger('Windows', 'SimRunTop', 0);
-      fSimRun.Left := ReadInteger('Windows', 'SimRunLeft', 0);
-      fSimMap.Top := ReadInteger('Windows', 'SimMapTop', 0);
-      fSimMap.Left := ReadInteger('Windows', 'SimMapLeft', 0);
-      fStats.Top := ReadInteger('Windows', 'SimStatsTop', 0);
-      fStats.Left := ReadInteger('Windows', 'SimSimStatsLeft', 0);
-      // Parameters
-      txtGames.Text := IntToStr(ReadInteger('Params', 'Games', 0));
-      txtMinPlayers.Text := IntToStr(ReadInteger('Params', 'MinPlayers', 2));
-      txtMaxPlayers.Text := IntToStr(ReadInteger('Params', 'MaxPlayers', 10));
-      chkShowMap.Checked := ReadBool('Params', 'ShowMap', true);
-      cboMap.ItemIndex := cboMap.Items.IndexOf(ReadString('Params', 'Map',
-          'std_map_small.trm'));
-      chkShowStats.Checked := ReadBool('Params', 'ShowStats', true);
-      chkErrorDump.Checked := ReadBool('Params', 'ErrorDump', true);
-      chkErrorAbort.Checked := ReadBool('Params', 'ErrorAbort', true);
-      txtGameLogFile.Text := ReadString('Params', 'GameLog', 'game_log.sgl');
-      txtCPULogFile.Text := ReadString('Params', 'CPULog', 'cpu_usage_log.scl');
-      txtGameLogFile2.Text := txtGameLogFile.Text;
-      txtCPULogFile2.Text := txtCPULogFile.Text;
-      txtTurnLimit.Text := IntToStr(ReadInteger('Params', 'TurnLimit', 0));
-      txtTimeLimit.Text := IntToStr(ReadInteger('Params', 'TimeLimit', 0));
-      // Players
-      n := ReadInteger('Players', 'AlwaysCount', 0);
-      for i := 1 to n do begin
-        lstAlways.Items.Add(ReadString('Players', 'Always' + IntToStr(i), '?'));
-      end;
-      n := ReadInteger('Players', 'RandomCount', 0);
-      for i := 1 to n do begin
-        lstRandom.Items.Add(ReadString('Players', 'Random' + IntToStr(i), '?'));
-      end;
-    end;
-  finally
-    IniFile.Free;
-  end;
-
-end;
-
-procedure TfSim.SimCleanup;
-var
-  IniFile: TIniFile;
-  i: Integer;
-begin
-  // save setup on INI file
-  IniFile := TIniFile.Create(sG_AppPath + sG_AppName + '.INI');
-  try
-    with IniFile do begin
-      // Windows
-      WriteInteger('Windows', 'SimTop', fSim.Top);
-      WriteInteger('Windows', 'SimLeft', fSim.Left);
-      WriteInteger('Windows', 'SimRunTop', fSimRun.Top);
-      WriteInteger('Windows', 'SimRunLeft', fSimRun.Left);
-      WriteInteger('Windows', 'SimMapTop', fSimMap.Top);
-      WriteInteger('Windows', 'SimMapLeft', fSimMap.Left);
-      WriteInteger('Windows', 'SimStatsTop', fStats.Top);
-      WriteInteger('Windows', 'SimSimStatsLeft', fStats.Left);
-      // Parameters
-      WriteInteger('Params', 'Games', StrToIntDef(txtGames.Text,0));
-      WriteInteger('Params', 'MinPlayers', StrToIntDef(txtMinPlayers.Text,0));
-      WriteInteger('Params', 'MaxPlayers', StrToIntDef(txtMaxPlayers.Text,0));
-      WriteBool('Params', 'ShowMap', chkShowMap.Checked);
-      WriteString('Params', 'Map', cboMap.Text);
-      WriteBool('Params', 'ShowStats', chkShowStats.Checked);
-      WriteBool('Params', 'ErrorDump', chkErrorDump.Checked);
-      WriteBool('Params', 'ErrorAbort', chkErrorAbort.Checked);
-      WriteString('Params', 'GameLog', txtGameLogFile.Text);
-      WriteString('Params', 'CPULog', txtCPULogFile.Text);
-      WriteInteger('Params', 'TurnLimit', StrToIntDef(txtTurnLimit.Text,0));
-      WriteInteger('Params', 'TimeLimit', StrToIntDef(txtTimeLimit.Text,0));
-      // Players
-      WriteInteger('Players', 'AlwaysCount', lstAlways.Count);
-      for i := 0 to lstAlways.Count - 1 do begin
-        WriteString('Players', 'Always' + IntToStr(i + 1), lstAlways.Items[i]);
-      end;
-      WriteInteger('Players', 'RandomCount', lstRandom.Count);
-      for i := 0 to lstRandom.Count - 1 do begin
-        WriteString('Players', 'Random' + IntToStr(i + 1), lstRandom.Items[i]);
-      end;
-    end;
-  finally
-    IniFile.Free;
-  end;
-end;
-
-procedure TfSim.PopulateTRPList;
-var
-  rFileDesc: TSearchRec;
-  sTRP: string;
-begin
-  // load program list
-  if FindFirst(sG_AppPath + 'players\*.trp', faAnyFile, rFileDesc) = 0 then
-  begin
-    repeat
-      // get TRP name from file system
-      sTRP := lowercase(rFileDesc.Name);
-      // if already in Always or Random list, skip it
-      if (lstAlways.Items.IndexOf(sTRP) >= 0) or
-      (lstRandom.Items.IndexOf(sTRP) >= 0) then
-        continue;
-      // else add it to the Never list
-      lstNever.Items.Add(sTRP);
-    until FindNext(rFileDesc) <> 0;
-    FindClose(rFileDesc);
-  end;
-end;
-
-procedure TfSim.PopulateMapList;
-var
-  rFileDesc: TSearchRec;
-  sMap: string;
-begin
-  cboMap.Items.Clear;
-  // load map list
-  if FindFirst(sG_AppPath + 'maps\*.trm', faAnyFile, rFileDesc) = 0 then begin
-    repeat
-      // get TRP name from file system
-      sMap := lowercase(rFileDesc.Name);
-      cboMap.Items.Add(sMap);
-    until FindNext(rFileDesc) <> 0;
-    FindClose(rFileDesc);
-  end;
-end;
-
-// -------------
-// Program lists
-// -------------
-
-procedure TfSim.lstTRPDragOver(Sender, Source: TObject; X, Y: Integer;
-  State: TDragState; var Accept: Boolean);
-begin
-  Accept := (Source <> Sender) and
-  ((Source = lstAlways) or (Source = lstRandom) or (Source = lstNever));
-end;
-
-procedure TfSim.lstTRPDragDrop(Sender, Source: TObject; X, Y: Integer);
-var
-  i: Integer;
-begin
-  if (Source <> Sender) and ((Source = lstAlways) or (Source = lstRandom) or
-    (Source = lstNever)) then begin
-    for i := TListBox(Source).Count - 1 downto 0 do begin
-      if TListBox(Source).Selected[i] then begin
-        TListBox(Sender).Items.Add(TListBox(Source).Items[i]);
-        TListBox(Source).Items.Delete(i);
-      end;
-    end;
-  end;
-end;
-
-// ----------
-// Simulation
-// ----------
-
-procedure TfSim.cmdStartClick(Sender: TObject);
-var
-  i, iP: Integer;
-begin
-  // prepare global variables
-  iSimGames := StrToIntDef(txtGames.Text, 0);
-  iSimMinPl := StrToIntDef(txtMinPlayers.Text, 0);
-  iSimMaxPl := StrToIntDef(txtMaxPlayers.Text, 0);
-  iSimTimeLimit := StrToIntDef(txtTimeLimit.Text, 0);
-  iSimTurnLimit := StrToIntDef(txtTurnLimit.Text, 0);
-  sSimGameLogFile := txtGameLogFile.Text;
-  sSimCPULogFile := txtCPULogFile.Text;
-  // validity check
-  if iSimGames <= 0 then begin
-    MsgErr('Invalid number of games.');
-    txtGames.SetFocus;
-    exit;
-  end;
-  if (iSimMinPl < 2) or (iSimMaxPl > 10) or (iSimMaxPl < iSimMinPl) then begin
-    MsgErr('Invalid number of players. Min=2, max=10');
-    txtMinPlayers.SetFocus;
-    exit;
-  end;
-  if lstAlways.Count > iSimMinPl then begin
-    MsgErr(
-      'The number of TRPs in the "always" list is greater then the minimum number of players per game.');
-    txtMinPlayers.SetFocus;
-    exit;
-  end;
-  if lstAlways.Count + lstRandom.Count < iSimMaxPl then begin
-    MsgErr(
-      'The total number of TRPs in the "always" and "random" lists is not large enough to reach the maximum number of players per game.');
-    txtMaxPlayers.SetFocus;
-    exit;
-  end;
-  // prepare players
-  lstRandom.Sorted := false;
-  for iP := 1 to MAXPLAYERS do begin
-    arPlayer[iP].Computer := true;
-    arPlayer[iP].KeepLog := false;
-  end;
-  // show map if required
-  if chkShowMap.Checked then begin
-    sMapFile := cboMap.Text;
-    LoadMap;
-    fSimMap.Show;
-  end;
-  // show stats if required
-  if chkShowStats.Checked then
-    fStats.Show;
-  // disables main simulation window
-  fSim.Enabled := false;
-  // show run window
-  fSimRun.cmdStop.Enabled := true;
-  fSimRun.cmdAbortGame.Enabled := true;
-  fSimRun.BorderIcons := [];
-  fSimRun.txtSimLog.Clear;
-  fSimRun.SimLog('*** Simulation starts ***');
-  if not fSimRun.Visible then
-    fSimRun.Show;
-  // start simulation
-  Screen.Cursor := crHourGlass;
-  try
-    // init vars
-    iSimCurr := 0;
-    iSimCompl := 0;
-    bSimAbort := false;
-    dtSimStartTime := Now;
-    fSimRun.prbGames.Max := iSimGames;
-    fSimRun.prbGames.Position := 0;
-    // main simulation loop
-    repeat
-      inc(iSimCurr);
-      fSimRun.UpdateSimStats;
-      fSimRun.SimLog('Game #' + IntToStr(iSimCurr) + ' started');
-      // reset players
-      for iP := 1 to MAXPLAYERS do
-        arPlayer[iP].Active := false;
-      // random number of players
-      iSimPlayers := iSimMinPl + random(iSimMaxPl - iSimMinPl + 1);
-      // take players from the "always" list first
-      iP := 0;
-      for i := 0 to lstAlways.Count - 1 do begin
-        if iP < iSimPlayers then begin
-          inc(iP);
-          arPlayer[iP].Active := true;
-          arPlayer[iP].PrgFile := lstAlways.Items[i];
-          arPlayer[iP].Name := ChangeFileExt(lstAlways.Items[i], '');
-        end;
-      end;
-      // then take players from the "random" list, if any
-      if lstRandom.Count > 0 then begin
-        for i := 1 to 100 do begin // "shuffle" random list
-          lstRandom.Items.Exchange(random(lstRandom.Count),
-            random(lstRandom.Count));
-        end;
-        for i := 0 to lstRandom.Count - 1 do begin
-          if iP < iSimPlayers then begin
-            inc(iP);
-            arPlayer[iP].Active := true;
-            arPlayer[iP].PrgFile := lstRandom.Items[i];
-            arPlayer[iP].Name := ChangeFileExt(lstRandom.Items[i], '');
-          end;
-        end;
-      end;
-      // new game
-      uSimStatus := ssRunning;
-      dtSimGameTime := Now;
-      NewGameSetup;
-      Supervisor;
-      iSimGameTime := SecondsBetween(Now, dtSimGameTime);
-      // update log
-      case uSimStatus of
-        ssComplete:
-          fSimRun.SimLog('Game #' + IntToStr(iSimCurr)
-            + ' completed in ' + FormatDateTime('hh:nn:ss',
-              Now - dtSimGameTime) + ', ' + IntToStr(iTurnCounter)
-            + ' turns, winner is ' + arPlayer[iSimWinner].Name);
-        ssError:
-          fSimRun.SimLog('Game #' + IntToStr(iSimCurr)
-            + ' aborted for TRP error');
-        ssTurnLimit:
-          fSimRun.SimLog('Game #' + IntToStr(iSimCurr) +
-            ' aborted, turn limit reached');
-        ssTimeLimit:
-          fSimRun.SimLog('Game #' + IntToStr(iSimCurr) +
-            ' aborted, time limit reached');
-        ssAbort:
-          fSimRun.SimLog('Game #' + IntToStr(iSimCurr) + ' aborted by user');
-      end;
-      // log game data
-      UpdateHistoryFile;
-      // log CPU data
-      LogCPU;
-      // update stats
-      if not bSimAbort then
-        inc(iSimCompl);
-    until (iSimCompl = iSimGames) or bSimAbort;
-  finally
-    // last update of stats
-    fSimRun.UpdateSimStats;
-    if bSimAbort then
-      fSimRun.SimLog('*** Simulation aborted by user ***')
-    else
-      fSimRun.SimLog('*** Simulation ends ***');
-    // enable main form again
-    fSim.Enabled := true;
-    // close/disable controls
-    fSimRun.cmdStop.Enabled := false;
-    fSimRun.cmdAbortGame.Enabled := false;
-    fSimRun.BorderIcons := [biSystemMenu];
-    fSimMap.Close;
-    fStats.Close;
-    Screen.Cursor := crDefault;
-    lstRandom.Sorted := true;
-  end;
-end;
-
-procedure TfSim.LogCPU;
-var
-  LogFile: TIniFile;
-  iP, iCalls, iTime, iPhases: Integer;
-  uRoutine: TRoutine;
-  sRoutine: string;
-begin
-  // open log file
-  LogFile := TIniFile.Create(sG_AppPath + sSimCPULogFile);
-  // update log file
-  try
-    with LogFile do begin
-      for iP := 1 to iSimPlayers do begin
-        for uRoutine := rtAssignment to rtFortification do begin
-          sRoutine := IntToStr(ord(uRoutine));
-          iPhases := ReadInteger(arPlayer[iP].Name, 'Phases' + sRoutine, 0);
-          iCalls := ReadInteger(arPlayer[iP].Name, 'Calls' + sRoutine, 0);
-          iTime := ReadInteger(arPlayer[iP].Name, 'Time' + sRoutine, 0);
-          iPhases := iPhases + arPlayer[iP].aCPU[uRoutine].iPhases;
-          iCalls := iCalls + arPlayer[iP].aCPU[uRoutine].iCalls;
-          iTime := iTime + arPlayer[iP].aCPU[uRoutine]
-          .iTime * 1000 div iPerformanceFrequency;
-          WriteInteger(arPlayer[iP].Name, 'Phases' + sRoutine, iPhases);
-          WriteInteger(arPlayer[iP].Name, 'Calls' + sRoutine, iCalls);
-          WriteInteger(arPlayer[iP].Name, 'Time' + sRoutine, iTime);
-        end;
-      end;
-    end;
-  finally
-    LogFile.Free;
-  end;
-end;
-
-// --------
-// Analysis
-// --------
-
-procedure TfSim.cmdAnalyseGameLogClick(Sender: TObject);
-begin
-  fSimGameLog := TfSimGameLog.Create(self);
-  fSimGameLog.sLogFileName := txtGameLogFile2.Text;
-  fSimGameLog.Show;
-end;
-
-procedure TfSim.cmdAnalyseCPULogClick(Sender: TObject);
-begin
-  fSimCPULog := TfSimCPULog.Create(self);
-  fSimCPULog.sLogFileName := txtCPULogFile2.Text;
-  fSimCPULog.Show;
-end;
-
-end.
diff --git a/SimCPULog.dfm b/SimCPULog.dfm
deleted file mode 100644
index 7a0b08f..0000000
--- a/SimCPULog.dfm
+++ /dev/null
@@ -1,116 +0,0 @@
-object fSimCPULog: TfSimCPULog
-  Left = 0
-  Top = 0
-  Caption = 'CPU usage log'
-  ClientHeight = 472
-  ClientWidth = 533
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
-  OldCreateOrder = False
-  Position = poScreenCenter
-  OnClose = FormClose
-  OnDestroy = FormDestroy
-  OnShow = FormShow
-  PixelsPerInch = 96
-  TextHeight = 13
-  object Panel1: TPanel
-    Left = 0
-    Top = 365
-    Width = 533
-    Height = 107
-    Align = alBottom
-    BevelOuter = bvNone
-    TabOrder = 0
-    ExplicitWidth = 548
-    object lstDetail: TListView
-      Left = 0
-      Top = 0
-      Width = 533
-      Height = 107
-      Align = alClient
-      Columns = <
-        item
-          Caption = 'Player'
-          Width = 110
-        end
-        item
-          Alignment = taCenter
-          Caption = 'Assignment'
-          Width = 80
-        end
-        item
-          Alignment = taCenter
-          Caption = 'Placement'
-          Width = 80
-        end
-        item
-          Alignment = taCenter
-          Caption = 'Attack'
-          Width = 80
-        end
-        item
-          Alignment = taCenter
-          Caption = 'Occupation'
-          Width = 80
-        end
-        item
-          Alignment = taCenter
-          Caption = 'Fortification'
-          Width = 80
-        end>
-      GridLines = True
-      ReadOnly = True
-      TabOrder = 0
-      ViewStyle = vsReport
-      ExplicitWidth = 548
-    end
-  end
-  object lstSummary: TListView
-    Left = 0
-    Top = 0
-    Width = 533
-    Height = 365
-    Align = alClient
-    Columns = <
-      item
-        Caption = 'Player'
-        Width = 110
-      end
-      item
-        Alignment = taCenter
-        Caption = 'Assignment'
-        Width = 80
-      end
-      item
-        Alignment = taCenter
-        Caption = 'Placement'
-        Width = 80
-      end
-      item
-        Alignment = taCenter
-        Caption = 'Attack'
-        Width = 80
-      end
-      item
-        Alignment = taCenter
-        Caption = 'Occupation'
-        Width = 80
-      end
-      item
-        Alignment = taCenter
-        Caption = 'Fortification'
-        Width = 80
-      end>
-    GridLines = True
-    ReadOnly = True
-    RowSelect = True
-    TabOrder = 1
-    ViewStyle = vsReport
-    OnSelectItem = lstSummarySelectItem
-    ExplicitWidth = 497
-  end
-end
diff --git a/SimCPULog.pas b/SimCPULog.pas
deleted file mode 100644
index f7eeaef..0000000
--- a/SimCPULog.pas
+++ /dev/null
@@ -1,215 +0,0 @@
-unit SimCPULog;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, ComCtrls, ExtCtrls, Globals;
-
-type
-
-  TCPUdata = record
-    Phases, // number of phases played
-    Calls, // number of calls
-    Time: integer; // total time (milliseconds)
-  end;
-
-  TPlayerStats = record
-    Name: string; // name
-    CPUdata: array [TRoutine] of TCPUdata;
-  end;
-
-  TfSimCPULog = class(TForm)
-    Panel1: TPanel;
-    lstDetail: TListView;
-    lstSummary: TListView;
-
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
-    procedure FormDestroy(Sender: TObject);
-    procedure FormShow(Sender: TObject);
-    procedure lstSummarySelectItem(Sender: TObject; Item: TListItem;
-      Selected: Boolean);
-  private
-    aPStats: array of TPlayerStats;
-    procedure LoadLogFile;
-    function DecodeRoutine(uRoutine: TRoutine): string;
-  public
-    sLogFileName: string;
-  end;
-
-var
-  fSimCPULog: TfSimCPULog;
-
-implementation
-
-{$R *.dfm}
-
-uses IniFiles, StrUtils, StdPas;
-
-procedure TfSimCPULog.FormClose(Sender: TObject; var Action: TCloseAction);
-begin
-  Action := caFree;
-end;
-
-procedure TfSimCPULog.FormDestroy(Sender: TObject);
-begin
-  fSimCPULog := nil;
-end;
-
-procedure TfSimCPULog.FormShow(Sender: TObject);
-begin
-  Caption := 'CPU usage analysis: ' + sLogFileName;
-  LoadLogFile;
-end;
-
-procedure TfSimCPULog.LoadLogFile;
-var
-  LogFile: TIniFile;
-  TRPs: TStringList;
-  i: integer;
-  uRoutine: TRoutine;
-  sRoutine: string;
-
-begin
-  if not FileExists(sG_AppPath + sLogFileName) then begin
-    MsgErr('Log file "' + sLogFileName + '" not found.');
-    exit;
-  end;
-  // open log file
-  LogFile := TIniFile.Create(sG_AppPath + sLogFileName);
-  TRPs := TStringList.Create;
-  try
-    with LogFile do begin
-      ReadSections(TRPs); // read TRP names in log file
-      TRPs.Sorted := true; // sort them by name
-      lstSummary.Clear; // clear analysis
-      SetLength(aPStats, TRPs.Count);
-      // analysis
-      for i := 0 to TRPs.Count - 1 do begin
-        with lstSummary.Items.Add do begin
-          aPStats[i].Name := TRPs[i];
-          Caption := TRPs[i];
-          for uRoutine := rtAssignment to rtFortification do begin
-            sRoutine := IntToStr(ord(uRoutine));
-            aPStats[i].CPUdata[uRoutine].Phases := ReadInteger(TRPs[i],
-              'Phases' + sRoutine, 0);
-            aPStats[i].CPUdata[uRoutine].Calls := ReadInteger(TRPs[i],
-              'Calls' + sRoutine, 0);
-            aPStats[i].CPUdata[uRoutine].Time := ReadInteger(TRPs[i],
-              'Time' + sRoutine, 0);
-            if aPStats[i].CPUdata[uRoutine].Phases > 0 then
-              SubItems.Add(FormatFloat('0.0',
-                  aPStats[i].CPUdata[uRoutine].Time / aPStats[i].CPUdata
-                  [uRoutine].Phases))
-            else
-              SubItems.Add('-');
-          end;
-        end;
-      end;
-      // legenda
-      (* txtCPULog.Lines.Add('');
-        txtCPULog.Lines.Add(
-        'Phases = number of times the TRP has entered a phase (attack, occupation...)');
-        txtCPULog.Lines.Add(
-        'Calls = number of times the TRP code has been called during the phase');
-        txtCPULog.Lines.Add('T/Ph = average time per phase (milliseconds)');
-        txtCPULog.Lines.Add('C/Ph = average number of calls per phase');
-        txtCPULog.Lines.Add('T/C = average time per call (milliseconds)');
-        *)
-    end;
-  finally
-    LogFile.Free;
-    TRPs.Free;
-  end;
-end;
-
-procedure TfSimCPULog.lstSummarySelectItem(Sender: TObject; Item: TListItem;
-  Selected: Boolean);
-var
-  iP: integer;
-  uRoutine: TRoutine;
-begin
-  lstDetail.Clear;
-  if lstSummary.ItemIndex < 0 then begin
-    lstDetail.Columns[0].Caption := '';
-    exit;
-  end;
-  // populate player's list
-  iP := lstSummary.ItemIndex;
-  lstDetail.Columns[0].Caption := aPStats[iP].Name;
-  with lstDetail.Items.Add do begin
-    Caption := 'Phases';
-    for uRoutine := rtAssignment to rtFortification do begin
-      with aPStats[iP].CPUdata[uRoutine] do begin
-        SubItems.Add(FormatFloat(',0', Phases));
-      end;
-    end;
-  end;
-  with lstDetail.Items.Add do begin
-    Caption := 'Calls';
-    for uRoutine := rtAssignment to rtFortification do begin
-      with aPStats[iP].CPUdata[uRoutine] do begin
-        SubItems.Add(FormatFloat(',0', Calls));
-      end;
-    end;
-  end;
-  with lstDetail.Items.Add do begin
-    Caption := 'Time (ms)';
-    for uRoutine := rtAssignment to rtFortification do begin
-      with aPStats[iP].CPUdata[uRoutine] do begin
-        SubItems.Add(FormatFloat(',0', Time));
-      end;
-    end;
-  end;
-  with lstDetail.Items.Add do begin
-    Caption := 'Time/Phase (ms)';
-    for uRoutine := rtAssignment to rtFortification do begin
-      with aPStats[iP].CPUdata[uRoutine] do begin
-        if Phases > 0 then
-          SubItems.Add(FormatFloat('0.0', Time / Phases))
-        else
-          SubItems.Add('-');
-      end;
-    end;
-  end;
-  with lstDetail.Items.Add do begin
-    Caption := 'Time/Call (ms)';
-    for uRoutine := rtAssignment to rtFortification do begin
-      with aPStats[iP].CPUdata[uRoutine] do begin
-        if Calls > 0 then
-          SubItems.Add(FormatFloat('0.0', Time / Calls))
-        else
-          SubItems.Add('-');
-      end;
-    end;
-  end;
-  with lstDetail.Items.Add do begin
-    Caption := 'Calls/Phase';
-    for uRoutine := rtAssignment to rtFortification do begin
-      with aPStats[iP].CPUdata[uRoutine] do begin
-        if Phases > 0 then
-          SubItems.Add(FormatFloat('0.0', Calls / Phases))
-        else
-          SubItems.Add('-');
-      end;
-    end;
-  end;
-end;
-
-function TfSimCPULog.DecodeRoutine(uRoutine: TRoutine): string;
-begin
-  case uRoutine of
-    rtAssignment:
-      result := 'Assignment';
-    rtPlacement:
-      result := 'Placement';
-    rtAttack:
-      result := 'Attack';
-    rtOccupation:
-      result := 'Occupation';
-    rtFortification:
-      result := 'Fortification';
-  end;
-end;
-
-end.
diff --git a/SimGameLog.dfm b/SimGameLog.dfm
deleted file mode 100644
index 6a64046..0000000
--- a/SimGameLog.dfm
+++ /dev/null
@@ -1,199 +0,0 @@
-object fSimGameLog: TfSimGameLog
-  Left = 0
-  Top = 0
-  Caption = 'Game Log'
-  ClientHeight = 475
-  ClientWidth = 690
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
-  OldCreateOrder = False
-  OnClose = FormClose
-  OnCreate = FormCreate
-  OnDestroy = FormDestroy
-  OnShow = FormShow
-  PixelsPerInch = 96
-  TextHeight = 13
-  object pgcLog: TPageControl
-    Left = 0
-    Top = 0
-    Width = 690
-    Height = 475
-    ActivePage = tbsGames
-    Align = alClient
-    TabOrder = 0
-    object tbsGames: TTabSheet
-      Caption = 'Games'
-      ExplicitWidth = 455
-      object lstGames: TListView
-        Left = 0
-        Top = 0
-        Width = 682
-        Height = 286
-        Align = alClient
-        Columns = <
-          item
-            Caption = '#'
-            Width = 40
-          end
-          item
-            Caption = 'Date/Time'
-            Width = 120
-          end
-          item
-            Caption = 'Result'
-            Width = 80
-          end
-          item
-            Alignment = taCenter
-            Caption = 'Time'
-          end
-          item
-            Alignment = taCenter
-            Caption = 'Turns'
-            Width = 40
-          end
-          item
-            Caption = 'Winner'
-            Width = 100
-          end>
-        GridLines = True
-        ReadOnly = True
-        RowSelect = True
-        TabOrder = 0
-        ViewStyle = vsReport
-        OnSelectItem = lstGamesSelectItem
-        ExplicitWidth = 455
-        ExplicitHeight = 255
-      end
-      object Panel1: TPanel
-        Left = 0
-        Top = 286
-        Width = 682
-        Height = 161
-        Align = alBottom
-        BevelOuter = bvNone
-        TabOrder = 1
-        object lstPlayers: TListView
-          Left = 0
-          Top = 0
-          Width = 682
-          Height = 161
-          Align = alClient
-          Columns = <
-            item
-              Caption = 'Rank'
-              Width = 40
-            end
-            item
-              Caption = 'Player'
-              Width = 120
-            end
-            item
-              Alignment = taCenter
-              Caption = 'Last turn'
-              Width = 80
-            end
-            item
-              Alignment = taCenter
-              Caption = 'Armies'
-              Width = 80
-            end
-            item
-              Alignment = taCenter
-              Caption = 'Territories'
-              Width = 80
-            end>
-          GridLines = True
-          ReadOnly = True
-          TabOrder = 0
-          ViewStyle = vsReport
-          ExplicitWidth = 455
-          ExplicitHeight = 192
-        end
-      end
-    end
-    object tbsRanking: TTabSheet
-      Caption = 'Summary'
-      ImageIndex = 1
-      ExplicitWidth = 455
-      object grdRanking: TJvStringGrid
-        Left = 0
-        Top = 0
-        Width = 682
-        Height = 447
-        Align = alClient
-        ColCount = 4
-        DefaultColWidth = 100
-        DefaultRowHeight = 17
-        DefaultDrawing = False
-        FixedCols = 0
-        FixedRows = 0
-        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
-        ScrollBars = ssVertical
-        TabOrder = 0
-        OnDrawCell = grdRankingDrawCell
-        Alignment = taCenter
-        FixedFont.Charset = DEFAULT_CHARSET
-        FixedFont.Color = clWindowText
-        FixedFont.Height = -11
-        FixedFont.Name = 'MS Sans Serif'
-        FixedFont.Style = []
-        OnCaptionClick = grdRankingCaptionClick
-        ExplicitWidth = 455
-      end
-    end
-    object tbsAnalysis: TTabSheet
-      Caption = 'Player'#39's analysis'
-      ImageIndex = 2
-      ExplicitWidth = 455
-      DesignSize = (
-        682
-        447)
-      object Label1: TLabel
-        Left = 9
-        Top = 11
-        Width = 30
-        Height = 13
-        Caption = 'Player'
-      end
-      object cboPlayer: TComboBox
-        Left = 9
-        Top = 30
-        Width = 194
-        Height = 21
-        Style = csDropDownList
-        TabOrder = 0
-        OnSelect = cboPlayerSelect
-      end
-      object grdAnalysis: TJvStringGrid
-        Left = 0
-        Top = 65
-        Width = 682
-        Height = 382
-        Anchors = [akLeft, akTop, akRight, akBottom]
-        ColCount = 4
-        DefaultColWidth = 100
-        DefaultRowHeight = 17
-        DefaultDrawing = False
-        FixedCols = 0
-        FixedRows = 0
-        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
-        ScrollBars = ssVertical
-        TabOrder = 1
-        OnDrawCell = grdAnalysisDrawCell
-        Alignment = taCenter
-        FixedFont.Charset = DEFAULT_CHARSET
-        FixedFont.Color = clWindowText
-        FixedFont.Height = -11
-        FixedFont.Name = 'MS Sans Serif'
-        FixedFont.Style = []
-        OnCaptionClick = grdAnalysisCaptionClick
-        ExplicitWidth = 455
-      end
-    end
-  end
-end
diff --git a/SimGameLog.pas b/SimGameLog.pas
deleted file mode 100644
index a95aefc..0000000
--- a/SimGameLog.pas
+++ /dev/null
@@ -1,581 +0,0 @@
-unit SimGameLog;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, Globals, ComCtrls, ExtCtrls, StdCtrls, Buttons, Grids, JvExGrids,
-  JvStringGrid;
-
-type
-
-  TPlayerStats = record
-    Name: string; // name
-    Army, // total armies when game ended
-    Territ, // number of owned territories when game ended
-    LastTurn, // last turn played by the player
-    Points, // points in the game
-    Rank: integer; // rank at the end of the game
-  end;
-
-  TGameStats = record
-    GameEnd: TSimStatus; // termination type
-    GameDate: TDateTime; // date+time the simulation ended
-    GameTime, // duration of the game in seconds
-    GameTurns, // duration of the game in turns
-    NumPl: integer; // number of players
-    aPStats: array [0 .. MAXPLAYERS] of TPlayerStats; // players' stats
-  end;
-
-  TPlayerSummary = record
-    Name: string; // name
-    Games, // number of games played
-    Better, // number of games the player was better than the reference player
-    Worse, // number of games the player was worse than the reference player
-    Won, // number of games won
-    Rank, // sum of the ranks
-    RefRank, // sum of the ranks of the reference player
-    TurnsPlayed, // sum of turns of played games
-    TurnsToWin, // sum of turns of won games
-    Armies, // sum of armies at the end of won games
-    Points: integer; // sum of the points
-  end;
-
-  TfSimGameLog = class(TForm)
-    pgcLog: TPageControl;
-    tbsGames: TTabSheet;
-    lstGames: TListView;
-    Panel1: TPanel;
-    lstPlayers: TListView;
-    tbsRanking: TTabSheet;
-    grdRanking: TJvStringGrid;
-    tbsAnalysis: TTabSheet;
-    cboPlayer: TComboBox;
-    Label1: TLabel;
-    grdAnalysis: TJvStringGrid;
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
-    procedure FormDestroy(Sender: TObject);
-    procedure FormShow(Sender: TObject);
-    procedure lstGamesSelectItem(Sender: TObject; Item: TListItem;
-      Selected: Boolean);
-    procedure FormCreate(Sender: TObject);
-    procedure grdRankingCaptionClick(Sender: TJvStringGrid;
-      AColumn, ARow: integer);
-    procedure grdRankingDrawCell(Sender: TObject; ACol, ARow: integer;
-      Rect: TRect; State: TGridDrawState);
-    procedure grdAnalysisCaptionClick(Sender: TJvStringGrid;
-      AColumn, ARow: integer);
-    procedure grdAnalysisDrawCell(Sender: TObject; ACol, ARow: integer;
-      Rect: TRect; State: TGridDrawState);
-    procedure cboPlayerSelect(Sender: TObject);
-  private
-    aGameStats: array of TGameStats;
-    aPlaySum: array of TPlayerSummary;
-    iSortCol, // ranking grid sort column
-    iSortCol2, // analysis grid sort column
-    iPlayCount, // number of players in aPlaySum
-    iTotGames: integer; // number of games in the log file
-    procedure LoadLogFile;
-    procedure PopulateGamesList;
-    procedure PopulateAnalysisGrid(const sPlayer: string);
-    procedure PopulateRankingGrid;
-    function DecodeGameEnd(uEnd: TSimStatus): string;
-    procedure SummarizePlayers(const sPlayer: string);
-  public
-    sLogFileName: string;
-  end;
-
-var
-  fSimGameLog: TfSimGameLog;
-
-implementation
-
-{$R *.dfm}
-
-uses StdPas;
-
-procedure TfSimGameLog.FormCreate(Sender: TObject);
-begin
-  with grdRanking do begin
-    RowCount := 1;
-    ColCount := 10;
-    Cells[0, 0] := 'Player';
-    Cells[1, 0] := 'Games';
-    Cells[2, 0] := 'Won';
-    Cells[3, 0] := '% Won';
-    Cells[4, 0] := 'Points';
-    Cells[5, 0] := 'Pts/Game';
-    Cells[6, 0] := 'Avg Rank';
-    Cells[7, 0] := 'Turns/Game';
-    Cells[8, 0] := 'Turns to win';
-    Cells[9, 0] := 'Final armies';
-
-    ColWidths[0] := 70;
-    ColWidths[1] := 50;
-    ColWidths[2] := 50;
-    ColWidths[3] := 50;
-    ColWidths[4] := 50;
-    ColWidths[5] := 70;
-    ColWidths[6] := 70;
-    ColWidths[7] := 80;
-    ColWidths[8] := 80;
-    ColWidths[9] := 80;
-  end;
-  iSortCol := 0;
-  with grdAnalysis do begin
-    RowCount := 1;
-    ColCount := 7;
-    Cells[0, 0] := 'Competitor';
-    Cells[1, 0] := 'Games';
-    Cells[2, 0] := 'Better';
-    Cells[3, 0] := 'Worse';
-    Cells[4, 0] := '% Better';
-    Cells[5, 0] := '% Worse';
-    Cells[6, 0] := 'Rank diff.';
-    ColWidths[0] := 70;
-    ColWidths[1] := 50;
-    ColWidths[2] := 50;
-    ColWidths[3] := 50;
-    ColWidths[4] := 70;
-    ColWidths[5] := 70;
-    ColWidths[6] := 70;
-  end;
-  iSortCol2 := 0;
-end;
-
-procedure TfSimGameLog.FormShow(Sender: TObject);
-begin
-  Caption := 'Game log analysis: ' + sLogFileName;
-  LoadLogFile;
-  PopulateGamesList;
-  PopulateRankingGrid;
-  pgcLog.ActivePage := tbsGames;
-end;
-
-procedure TfSimGameLog.FormClose(Sender: TObject; var Action: TCloseAction);
-begin
-  Action := caFree;
-end;
-
-procedure TfSimGameLog.FormDestroy(Sender: TObject);
-begin
-  fSimGameLog := nil;
-end;
-
-procedure TfSimGameLog.grdAnalysisCaptionClick(Sender: TJvStringGrid;
-  AColumn, ARow: integer);
-begin
-  Screen.Cursor := crHourGlass;
-  with (Sender as TJvStringGrid) do begin
-    iSortCol2 := AColumn;
-    case AColumn of
-      0:
-        SortGrid(0, true);
-      6:
-        SortGrid(AColumn, true, false, stNumeric, false);
-    else
-      SortGrid(AColumn, false, false, stNumeric, false);
-    end;
-    if RowCount > 0 then
-      Row := 1
-    else
-      Row := 0;
-  end;
-  Screen.Cursor := crDefault;
-end;
-
-procedure TfSimGameLog.grdAnalysisDrawCell(Sender: TObject;
-  ACol, ARow: integer; Rect: TRect; State: TGridDrawState);
-begin
-  with grdAnalysis.Canvas do begin
-    if ARow = 0 then begin
-      Brush.color := clBtnFace;
-      Font.color := clBlack;
-      Font.Style := [fsBold];
-      FillRect(Rect);
-    end
-    else begin
-      if ACol = iSortCol2 then
-        Brush.color := clCream
-      else
-        Brush.color := clWhite;
-      Font.color := clBlack;
-      Font.Style := [];
-      FillRect(Rect);
-    end;
-    if ACol = 0 then begin
-      TextOut(Rect.Left + 1, Rect.Top + 1, grdAnalysis.Cells[ACol, ARow]);
-    end
-    else begin
-      TextOut(Rect.Right - TextWidth(grdAnalysis.Cells[ACol, ARow]) - 3,
-        Rect.Top + 1, grdAnalysis.Cells[ACol, ARow]);
-    end;
-  end;
-end;
-
-procedure TfSimGameLog.grdRankingCaptionClick(Sender: TJvStringGrid;
-  AColumn, ARow: integer);
-begin
-  Screen.Cursor := crHourGlass;
-  with (Sender as TJvStringGrid) do begin
-    iSortCol := AColumn;
-    case AColumn of
-      0:
-        SortGrid(0, true);
-      6:
-        SortGrid(AColumn, true, false, stNumeric, false);
-    else
-      SortGrid(AColumn, false, false, stNumeric, false);
-    end;
-    if RowCount > 0 then
-      Row := 1
-    else
-      Row := 0;
-  end;
-  Screen.Cursor := crDefault;
-end;
-
-procedure TfSimGameLog.grdRankingDrawCell(Sender: TObject; ACol, ARow: integer;
-  Rect: TRect; State: TGridDrawState);
-begin
-  with grdRanking.Canvas do begin
-    if ARow = 0 then begin
-      Brush.color := clBtnFace;
-      Font.color := clBlack;
-      Font.Style := [fsBold];
-      FillRect(Rect);
-    end
-    else begin
-      if ACol = iSortCol then
-        Brush.color := clCream
-      else
-        Brush.color := clWhite;
-      Font.color := clBlack;
-      Font.Style := [];
-      FillRect(Rect);
-    end;
-    if ACol = 0 then begin
-      TextOut(Rect.Left + 1, Rect.Top + 1, grdRanking.Cells[ACol, ARow]);
-    end
-    else begin
-      TextOut(Rect.Right - TextWidth(grdRanking.Cells[ACol, ARow]) - 3,
-        Rect.Top + 1, grdRanking.Cells[ACol, ARow]);
-    end;
-  end;
-end;
-
-procedure TfSimGameLog.lstGamesSelectItem(Sender: TObject; Item: TListItem;
-  Selected: Boolean);
-var
-  iP: integer;
-begin
-  lstPlayers.Clear;
-  if lstGames.ItemIndex < 0 then begin
-    exit;
-  end;
-  // populate player's list
-  with aGameStats[lstGames.ItemIndex] do begin
-    for iP := 1 to NumPl do begin
-      with lstPlayers.Items.Add do begin
-        if GameEnd = ssComplete then
-          Caption := IntToStr(aPStats[iP].Rank)
-        else
-          Caption := '-';
-        SubItems.Add(aPStats[iP].Name);
-        SubItems.Add(IntToStr(aPStats[iP].LastTurn));
-        SubItems.Add(IntToStr(aPStats[iP].Army));
-        SubItems.Add(IntToStr(aPStats[iP].Territ));
-      end;
-    end;
-  end;
-end;
-
-procedure TfSimGameLog.cboPlayerSelect(Sender: TObject);
-begin
-  PopulateAnalysisGrid(cboPlayer.Text);
-end;
-
-procedure TfSimGameLog.LoadLogFile;
-const
-  ARRAY_INCR = 100;
-var
-  fHistory: textfile;
-  iG, iP: integer;
-  sRec, sTmp: string;
-begin
-  iTotGames := 0;
-  // open history file
-  if not FileExists(sG_AppPath + sLogFileName) then begin
-    MsgErr('Log file "' + sLogFileName + '" not found.');
-    exit;
-  end;
-  AssignFile(fHistory, sG_AppPath + sLogFileName);
-  Reset(fHistory);
-  // prepare array
-  SetLength(aGameStats, ARRAY_INCR);
-  // load list
-  try
-    // read history file into array
-    while not Eof(fHistory) do begin
-      Readln(fHistory, sRec);
-      inc(iTotGames);
-      if iTotGames > length(aGameStats) then begin
-        SetLength(aGameStats, length(aGameStats) + ARRAY_INCR);
-      end;
-      iG := iTotGames - 1;
-      with aGameStats[iG] do begin
-        // date
-        sTmp := SplitStr(sRec, ',');
-        GameDate := EncodeDate(StrToInt(copy(sTmp, 1, 4)),
-          StrToInt(copy(sTmp, 5, 2)), StrToInt(copy(sTmp, 7, 2)));
-        // time
-        sTmp := SplitStr(sRec, ',');
-        GameDate := GameDate + EncodeTime(StrToInt(copy(sTmp, 1, 2)),
-          StrToInt(copy(sTmp, 3, 2)), StrToInt(copy(sTmp, 5, 2)), 0);
-        // termination type
-        sTmp := SplitStr(sRec, ',');
-        GameEnd := TSimStatus(StrToInt(sTmp));
-        // time
-        sTmp := SplitStr(sRec, ',');
-        GameTime := StrToInt(sTmp);
-        // turns
-        sTmp := SplitStr(sRec, ',');
-        GameTurns := StrToInt(sTmp);
-        // number of players
-        sTmp := SplitStr(sRec, ',');
-        NumPl := StrToInt(sTmp);
-        // list item
-        for iP := 1 to NumPl do begin
-          // player's name
-          sTmp := lowercase(SplitStr(sRec, ','));
-          aPStats[iP].Name := sTmp;
-          // player's last turn
-          sTmp := SplitStr(sRec, ',');
-          aPStats[iP].LastTurn := StrToInt(sTmp);
-          // player's army
-          sTmp := SplitStr(sRec, ',');
-          aPStats[iP].Army := StrToInt(sTmp);
-          // player's territories
-          sTmp := SplitStr(sRec, ',');
-          aPStats[iP].Territ := StrToInt(sTmp);
-          // rank & points
-          if GameEnd = ssComplete then begin
-            aPStats[iP].Rank := iP;
-            aPStats[iP].Points := NumPl + 1 - iP;
-          end
-          else begin
-            aPStats[iP].Rank := 0;
-            aPStats[iP].Points := 0;
-          end;
-        end;
-      end;
-    end;
-  finally
-    CloseFile(fHistory);
-  end;
-end;
-
-procedure TfSimGameLog.PopulateGamesList;
-var
-  i: integer;
-begin
-  lstGames.Clear;
-  for i := 0 to iTotGames - 1 do begin
-    with lstGames.Items.Add do begin
-      Caption := IntToStr(i + 1);
-      SubItems.Add(FormatDateTime('c', aGameStats[i].GameDate));
-      SubItems.Add(DecodeGameEnd(aGameStats[i].GameEnd));
-      SubItems.Add(IntToStr(aGameStats[i].GameTime));
-      SubItems.Add(IntToStr(aGameStats[i].GameTurns));
-      if aGameStats[i].GameEnd = ssComplete then begin
-        SubItems.Add(aGameStats[i].aPStats[1].Name);
-      end
-    end;
-  end;
-end;
-
-procedure TfSimGameLog.PopulateRankingGrid;
-var
-  iL: integer;
-begin
-  // summarize players
-  SummarizePlayers('');
-  // load ranking grid
-  with grdRanking do begin
-    RowCount := iPlayCount + 1;
-    for iL := 0 to iPlayCount - 1 do begin
-      with aPlaySum[iL] do begin
-        Cells[0, iL + 1] := Name;
-        Cells[1, iL + 1] := FormatFloat('#,##0', Games);
-        Cells[2, iL + 1] := FormatFloat('#,##0', Won);
-        Cells[4, iL + 1] := FormatFloat('#,##0', Points);
-        if Games > 0 then begin
-          Cells[3, iL + 1] := FormatFloat('0.0"%"', (100.0 * Won) / Games);
-          Cells[5, iL + 1] := FormatFloat('0.0', Points / Games);
-          Cells[6, iL + 1] := FormatFloat('0.0', Rank / Games);
-          Cells[7, iL + 1] := FormatFloat('0', TurnsPlayed / Games);
-        end
-        else begin
-          Cells[3, iL + 1] := '-';
-          Cells[5, iL + 1] := '-';
-          Cells[6, iL + 1] := '-';
-          Cells[7, iL + 1] := '-';
-        end;
-        if Won > 0 then begin
-          Cells[8, iL + 1] := FormatFloat('0', TurnsToWin / Won);
-          Cells[9, iL + 1] := FormatFloat('0', Armies / Won);
-        end
-        else begin
-          Cells[8, iL + 1] := '-';
-          Cells[9, iL + 1] := '-';
-        end;
-      end;
-    end;
-    if RowCount > 1 then
-      FixedRows := 1;
-    SortGrid(0, true);
-    iSortCol := 0;
-  end;
-  // populate player's combo
-  with cboPlayer do begin
-    Clear;
-    for iL := 0 to iPlayCount - 1 do begin
-      Items.Add(aPlaySum[iL].Name);
-    end;
-  end;
-end;
-
-procedure TfSimGameLog.PopulateAnalysisGrid(const sPlayer: string);
-var
-  iL, iP: integer;
-begin
-  // summarize players
-  SummarizePlayers(sPlayer);
-  // load grid
-  with grdAnalysis do begin
-    RowCount := iPlayCount;
-    iL := 0;
-    for iP := 0 to iPlayCount - 1 do begin
-      with aPlaySum[iP] do begin
-        if SameText(sPlayer, Name) then
-          continue; // skip analysed player
-        inc(iL);
-        Cells[0, iL] := Name;
-        Cells[1, iL] := FormatFloat('#,##0', Games);
-        Cells[2, iL] := FormatFloat('#,##0', Better);
-        Cells[3, iL] := FormatFloat('#,##0', Worse);
-        if Games > 0 then begin
-          Cells[4, iL] := FormatFloat('0.0"%"', (100.0 * Better) / Games);
-          Cells[5, iL] := FormatFloat('0.0"%"', (100.0 * Worse) / Games);
-          Cells[6, iL] := FormatFloat('0.0', (Rank - RefRank) / Games);
-        end
-        else begin
-          Cells[4, iL] := '-';
-          Cells[5, iL] := '-';
-          Cells[6, iL] := '-';
-        end;
-      end;
-    end;
-    if RowCount > 1 then
-      FixedRows := 1;
-    SortGrid(0, true);
-    iSortCol2 := 0;
-  end;
-end;
-
-procedure TfSimGameLog.SummarizePlayers(const sPlayer: string);
-var
-  iG, iP, iPS, iRefRank: integer;
-  bFound: Boolean;
-begin
-  SetLength(aPlaySum, 100);
-  iPlayCount := 0;
-  for iG := 0 to iTotGames - 1 do begin
-    // skip uncompleted games
-    if aGameStats[iG].GameEnd <> ssComplete then
-      continue;
-    // if a player is specified, skip games that do not contain that player
-    if sPlayer > '' then begin
-      bFound := false;
-      for iP := 1 to aGameStats[iG].NumPl do begin
-        if SameText(sPlayer, aGameStats[iG].aPStats[iP].Name) then begin
-          bFound := true;
-          iRefRank := aGameStats[iG].aPStats[iP].Rank;
-          break;
-        end;
-      end;
-      if not bFound then
-        continue;
-    end;
-    // account players' stats
-    for iP := 1 to aGameStats[iG].NumPl do begin
-      // search player in summary array
-      bFound := false;
-      for iPS := 0 to iPlayCount - 1 do begin
-        if SameText(aGameStats[iG].aPStats[iP].Name, aPlaySum[iPS].Name) then
-        begin
-          bFound := true;
-          break;
-        end;
-      end;
-      // if not found, add it to the array
-      if not bFound then begin
-        inc(iPlayCount);
-        if iPlayCount > length(aPlaySum) then
-          SetLength(aPlaySum, length(aPlaySum) + 100);
-        iPS := iPlayCount - 1;
-        aPlaySum[iPS].Name := aGameStats[iG].aPStats[iP].Name;
-        aPlaySum[iPS].Games := 0;
-        aPlaySum[iPS].Better := 0;
-        aPlaySum[iPS].Worse := 0;
-        aPlaySum[iPS].Won := 0;
-        aPlaySum[iPS].Rank := 0;
-        aPlaySum[iPS].RefRank := 0;
-        aPlaySum[iPS].Points := 0;
-        aPlaySum[iPS].TurnsPlayed := 0;
-        aPlaySum[iPS].TurnsToWin := 0;
-        aPlaySum[iPS].Armies := 0;
-      end;
-      // update stats
-      inc(aPlaySum[iPS].Games);
-      aPlaySum[iPS].TurnsPlayed := aPlaySum[iPS].TurnsPlayed + aGameStats[iG]
-      .aPStats[iP].LastTurn;
-      if aGameStats[iG].aPStats[iP].Rank = 1 then begin
-        inc(aPlaySum[iPS].Won);
-        aPlaySum[iPS].TurnsToWin := aPlaySum[iPS].TurnsToWin + aGameStats[iG]
-        .aPStats[iP].LastTurn;
-        aPlaySum[iPS].Armies := aPlaySum[iPS].Armies + aGameStats[iG]
-        .aPStats[iP].Army;
-      end;
-      aPlaySum[iPS].Rank := aPlaySum[iPS].Rank + aGameStats[iG].aPStats[iP]
-      .Rank;
-      aPlaySum[iPS].Points := aPlaySum[iPS].Points + aGameStats[iG]
-      .NumPl + 1 - aGameStats[iG].aPStats[iP].Rank;
-      if sPlayer > '' then begin
-        aPlaySum[iPS].RefRank := aPlaySum[iPS].RefRank + iRefRank;
-        if aGameStats[iG].aPStats[iP].Rank < iRefRank then
-          inc(aPlaySum[iPS].Better);
-        if aGameStats[iG].aPStats[iP].Rank > iRefRank then
-          inc(aPlaySum[iPS].Worse);
-      end;
-    end;
-  end;
-end;
-
-function TfSimGameLog.DecodeGameEnd(uEnd: TSimStatus): string;
-begin
-  case uEnd of
-    ssComplete:
-      result := 'completed';
-    ssError:
-      result := 'TRP error';
-    ssTurnLimit:
-      result := 'turn limit';
-    ssTimeLimit:
-      result := 'time limit';
-    ssAbort:
-      result := 'aborted';
-  end;
-end;
-
-end.
diff --git a/SimMap.dfm b/SimMap.dfm
deleted file mode 100644
index 5abaf8d..0000000
Binary files a/SimMap.dfm and /dev/null differ
diff --git a/SimMap.pas b/SimMap.pas
deleted file mode 100644
index de2d63e..0000000
--- a/SimMap.pas
+++ /dev/null
@@ -1,35 +0,0 @@
-unit SimMap;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  Menus, ExtCtrls, StdCtrls, ComCtrls, JvComponentBase, JvPropertyStore,
-  JvProgramVersionCheck, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent,
-  IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ImgList, ToolWin;
-
-type
-  TfSimMap = class(TForm)
-    panMap: TPanel;
-    imgMap: TImage;
-    procedure FormShow(Sender: TObject);
-  private
-  public
-    { Public declarations }
-  end;
-
-var
-  fSimMap: TfSimMap;
-
-implementation
-
-{$R *.DFM}
-
-uses Globals;
-
-procedure TfSimMap.FormShow(Sender: TObject);
-begin
-//
-end;
-
-end.
diff --git a/SimRun.dfm b/SimRun.dfm
deleted file mode 100644
index f596734..0000000
--- a/SimRun.dfm
+++ /dev/null
@@ -1,136 +0,0 @@
-object fSimRun: TfSimRun
-  Left = 0
-  Top = 0
-  BorderIcons = []
-  BorderStyle = bsDialog
-  Caption = 'Simulation progress'
-  ClientHeight = 442
-  ClientWidth = 534
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
-  OldCreateOrder = False
-  PixelsPerInch = 96
-  TextHeight = 13
-  object Label1: TLabel
-    Left = 8
-    Top = 13
-    Width = 38
-    Height = 13
-    Caption = 'Game #'
-  end
-  object Label2: TLabel
-    Left = 8
-    Top = 73
-    Width = 50
-    Height = 13
-    Caption = 'Game time'
-  end
-  object Label3: TLabel
-    Left = 8
-    Top = 43
-    Width = 60
-    Height = 13
-    Caption = 'Current turn'
-  end
-  object Label4: TLabel
-    Left = 8
-    Top = 103
-    Width = 71
-    Height = 13
-    Caption = 'Simulation time'
-  end
-  object Label5: TLabel
-    Left = 8
-    Top = 138
-    Width = 65
-    Height = 13
-    Caption = 'Simulation log'
-  end
-  object prbGames: TProgressBar
-    Left = 162
-    Top = 8
-    Width = 364
-    Height = 24
-    TabOrder = 0
-  end
-  object panGameNbr: TPanel
-    Left = 96
-    Top = 8
-    Width = 55
-    Height = 24
-    BevelOuter = bvLowered
-    Caption = '0'
-    TabOrder = 1
-  end
-  object cmdStop: TBitBtn
-    Left = 396
-    Top = 68
-    Width = 130
-    Height = 54
-    Caption = 'Stop simulation'
-    DoubleBuffered = True
-    ParentDoubleBuffered = False
-    TabOrder = 2
-    OnClick = cmdStopClick
-  end
-  object panSimTime: TPanel
-    Left = 96
-    Top = 98
-    Width = 55
-    Height = 24
-    BevelOuter = bvLowered
-    Caption = '0'
-    TabOrder = 3
-  end
-  object txtSimLog: TMemo
-    Left = 8
-    Top = 157
-    Width = 518
-    Height = 274
-    TabStop = False
-    Font.Charset = DEFAULT_CHARSET
-    Font.Color = clWindowText
-    Font.Height = -11
-    Font.Name = 'Courier New'
-    Font.Style = []
-    Lines.Strings = (
-      'txtSimLog')
-    ParentFont = False
-    ReadOnly = True
-    ScrollBars = ssVertical
-    TabOrder = 4
-  end
-  object panTurn: TPanel
-    Left = 96
-    Top = 38
-    Width = 55
-    Height = 24
-    BevelOuter = bvLowered
-    Caption = '0'
-    TabOrder = 5
-  end
-  object panGameTime: TPanel
-    Left = 96
-    Top = 68
-    Width = 55
-    Height = 24
-    BevelOuter = bvLowered
-    Caption = '0'
-    TabOrder = 6
-  end
-  object cmdAbortGame: TBitBtn
-    Left = 260
-    Top = 68
-    Width = 130
-    Height = 54
-    Caption = 'Abort current game'
-    DoubleBuffered = True
-    ParentDoubleBuffered = False
-    TabOrder = 7
-    OnClick = cmdAbortGameClick
-  end
-end
diff --git a/SimRun.pas b/SimRun.pas
deleted file mode 100644
index 3147736..0000000
--- a/SimRun.pas
+++ /dev/null
@@ -1,70 +0,0 @@
-unit SimRun;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons;
-
-type
-  TfSimRun = class(TForm)
-    prbGames: TProgressBar;
-    panGameNbr: TPanel;
-    Label1: TLabel;
-    Label2: TLabel;
-    Label3: TLabel;
-    cmdStop: TBitBtn;
-    Label4: TLabel;
-    panSimTime: TPanel;
-    txtSimLog: TMemo;
-    panTurn: TPanel;
-    panGameTime: TPanel;
-    Label5: TLabel;
-    cmdAbortGame: TBitBtn;
-    procedure cmdStopClick(Sender: TObject);
-    procedure cmdAbortGameClick(Sender: TObject);
-  private
-    { Private declarations }
-  public
-    procedure UpdateSimStats;
-    procedure SimLog(const sMsg: string);
-  end;
-
-var
-  fSimRun: TfSimRun;
-
-implementation
-
-{$R *.dfm}
-
-uses DateUtils, Globals;
-
-procedure TfSimRun.cmdAbortGameClick(Sender: TObject);
-begin
-  uSimStatus := ssAbort; // game status = aborted
-  bStopASAP := true; // abort current game
-end;
-
-procedure TfSimRun.cmdStopClick(Sender: TObject);
-begin
-  uSimStatus := ssAbort; // game status = aborted
-  bSimAbort := true; // abort simulation
-  bStopASAP := true; // abort current game
-end;
-
-procedure TfSimRun.SimLog(const sMsg: string);
-begin
-  txtSimLog.Lines.Add(FormatDateTime('hh:nn:ss',Now)+' '+sMsg);
-end;
-
-procedure TfSimRun.UpdateSimStats;
-begin
-  panGameNbr.Caption := IntToStr(iSimCurr) + ' / ' + IntToStr(iSimGames);
-  prbGames.Position := iSimCompl;
-  panTurn.Caption := IntToStr(iTurnCounter);
-  panGameTime.Caption := FormatDateTime('hh:nn:ss',Now-dtSimGameTime);
-  panSimTime.Caption := FormatDateTime('hh:nn:ss',Now-dtSimStartTime);
-  Application.ProcessMessages;
-end;
-
-end.
diff --git a/SplashScreen.dfm b/SplashScreen.dfm
deleted file mode 100644
index e76c950..0000000
--- a/SplashScreen.dfm
+++ /dev/null
@@ -1,40 +0,0 @@
-object fSplashScreen: TfSplashScreen
-  Left = 0
-  Top = 0
-  BorderStyle = bsNone
-  Caption = 'fSplashScreen'
-  ClientHeight = 72
-  ClientWidth = 235
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
-  FormStyle = fsStayOnTop
-  OldCreateOrder = False
-  Position = poScreenCenter
-  PixelsPerInch = 96
-  TextHeight = 13
-  object Panel1: TPanel
-    Left = 0
-    Top = 0
-    Width = 235
-    Height = 72
-    Align = alClient
-    BevelInner = bvLowered
-    BorderWidth = 5
-    Caption = 'Loading TurboRisk...'
-    Font.Charset = DEFAULT_CHARSET
-    Font.Color = clWindowText
-    Font.Height = -11
-    Font.Name = 'Tahoma'
-    Font.Style = [fsBold]
-    ParentFont = False
-    TabOrder = 0
-    ExplicitLeft = 60
-    ExplicitTop = 30
-    ExplicitWidth = 185
-    ExplicitHeight = 41
-  end
-end
diff --git a/SplashScreen.pas b/SplashScreen.pas
deleted file mode 100644
index b01dab5..0000000
--- a/SplashScreen.pas
+++ /dev/null
@@ -1,25 +0,0 @@
-unit SplashScreen;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, ExtCtrls;
-
-type
-  TfSplashScreen = class(TForm)
-    Panel1: TPanel;
-  private
-    { Private declarations }
-  public
-    { Public declarations }
-  end;
-
-var
-  fSplashScreen: TfSplashScreen;
-
-implementation
-
-{$R *.dfm}
-
-end.
diff --git a/Stats.dfm b/Stats.dfm
deleted file mode 100644
index ae59177..0000000
Binary files a/Stats.dfm and /dev/null differ
diff --git a/Stats.pas b/Stats.pas
deleted file mode 100644
index 02d4e87..0000000
--- a/Stats.pas
+++ /dev/null
@@ -1,273 +0,0 @@
-unit Stats;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  Grids, Menus;
-
-type
-  TfStats = class(TForm)
-    grdStats: TStringGrid;
-    mnuStats: TPopupMenu;
-    mnuStaTer: TMenuItem;
-    mnuStaArm: TMenuItem;
-    mnuStaCon: TMenuItem;
-    mnuStaCar: TMenuItem;
-    mnuStaCTIV: TMenuItem;
-    procedure FormCreate(Sender: TObject);
-    procedure FormShow(Sender: TObject);
-    procedure mnuStaTerClick(Sender: TObject);
-    procedure mnuStaArmClick(Sender: TObject);
-    procedure mnuStaConClick(Sender: TObject);
-    procedure mnuStaCarClick(Sender: TObject);
-    procedure grdStatsDrawCell(Sender: TObject; ACol, ARow: Integer;
-      Rect: TRect; State: TGridDrawState);
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
-    procedure mnuStaCTIVClick(Sender: TObject);
-  private
-    bReady: boolean;
-    procedure GridSetup;
-  public
-    { Public declarations }
-  end;
-
-var
-  fStats: TfStats;
-
-  // Aggiorna visualizzazione statistiche
-procedure UpdateStats;
-
-// Aggiorna riga selezionata griglia
-procedure UpdateGridPos;
-
-implementation
-
-{$R *.DFM}
-
-uses Globals, Main, ExpSubr;
-
-procedure TfStats.FormCreate(Sender: TObject);
-begin
-  with grdStats do begin
-    Cells[0, 0] := 'Player';
-    Cells[1, 0] := 'Territ.';
-    Cells[2, 0] := 'Armies';
-    Cells[3, 0] := 'Continents';
-    Cells[4, 0] := 'Cards';
-    Cells[5, 0] := 'CTIV';
-  end;
-end;
-
-procedure TfStats.FormShow(Sender: TObject);
-begin
-  bReady := false;
-  mnuStaTer.Checked := bStOpTer;
-  mnuStaArm.Checked := bStOpArm;
-  mnuStaCon.Checked := bStOpCon;
-  mnuStaCar.Checked := bStOpCar;
-  mnuStaCTIV.Checked := bStOpCTIV;
-  GridSetup;
-  UpdateStats;
-  bReady := true;
-  fMain.mnuVieStats.Checked := true;
-  fMain.cmdStatistics.Down := true;
-end;
-
-procedure TfStats.FormClose(Sender: TObject; var Action: TCloseAction);
-begin
-  fMain.mnuVieStats.Checked := false;
-  fMain.cmdStatistics.Down := false;
-end;
-
-// Aggiorna visualizzazione statistiche
-procedure UpdateStats;
-var
-  iG, iG2, iT: Integer;
-  tCont: TContId;
-begin
-  if not fStats.Visible then
-    exit;
-  with fStats.grdStats do begin
-
-    if GameState = gsStopped then begin
-
-      for iG := 1 to MAXPLAYERS do begin
-        Cells[0, iG] := '-';
-        Cells[1, iG] := '-';
-        Cells[2, iG] := '-';
-        Cells[3, iG] := '-';
-        Cells[4, iG] := '-';
-        Cells[5, iG] := '-';
-      end;
-
-    end
-    else begin
-
-      for iG := 1 to MAXPLAYERS do begin
-        iG2 := aiTurnList[iG];
-        Cells[0, iG] := arPlayer[iG2].Name;
-        if arPlayer[iG2].Active then begin
-          Cells[1, iG] := IntToStr(arPlayer[iG2].Territ);
-          Cells[3, iG] := '';
-          arPlayer[iG2].Army := 0;
-          Cells[4, iG] := IntToStr
-          (arPlayer[iG2].Cards[caInf] + arPlayer[iG2].Cards[caCav] + arPlayer
-            [iG2].Cards[caArt] + arPlayer[iG2].Cards[caJok]);
-          if (RCardsValueType = cvConstant) or not PAlive(iG2) then
-            Cells[5, iG] := '-'
-          else
-            Cells[5, iG] := IntToStr(PCardTurnInValue(iG2));
-        end
-        else begin
-          Cells[1, iG] := '-';
-          Cells[2, iG] := '-';
-          Cells[3, iG] := '-';
-          Cells[4, iG] := '-';
-          Cells[5, iG] := '-';
-        end;
-      end;
-      for iT := 1 to MAXTERRITORIES do begin
-        inc(arPlayer[arTerritory[iT].Owner].Army, arTerritory[iT].Army);
-      end;
-      for iG := 1 to MAXPLAYERS do begin
-        iG2 := aiTurnList[iG];
-        if arPlayer[iG2].Active then begin
-          Cells[2, iG] := IntToStr(arPlayer[iG2].Army) + ' (' + IntToStr
-          (arPlayer[iG2].NewArmy) + ')';
-        end;
-      end;
-      for tCont := coNA to coAU do begin
-        iG2 := arContinent[tCont].Owner;
-        iG := 0;
-        if iG2 > 0 then begin
-          repeat
-            inc(iG);
-          until aiTurnList[iG] = iG2;
-          Cells[3, iG] := Cells[3, iG] + arContinent[tCont].Name + ' ';
-        end;
-      end;
-
-    end;
-  end;
-
-end;
-
-// Aggiorna riga selezionata griglia
-procedure UpdateGridPos;
-var
-  Selez: TGridRect;
-begin
-  if not fStats.Visible then
-    exit;
-  Selez.Top := iTurn;
-  Selez.Left := 1;
-  Selez.Bottom := iTurn;
-  Selez.Right := 1;
-  fStats.grdStats.Selection := Selez;
-end;
-
-procedure TfStats.GridSetup;
-begin
-  with fStats.grdStats do begin
-    ColWidths[0] := 65;
-    if bStOpTer then
-      ColWidths[1] := 35
-    else
-      ColWidths[1] := 0;
-    if bStOpArm then
-      ColWidths[2] := 50
-    else
-      ColWidths[2] := 0;
-    if bStOpCon then
-      ColWidths[3] := 100
-    else
-      ColWidths[3] := 0;
-    if bStOpCar then
-      ColWidths[4] := 35
-    else
-      ColWidths[4] := 0;
-    if bStOpCTIV then
-      ColWidths[5] := 35
-    else
-      ColWidths[5] := 0;
-    Width := ColWidths[0] + ColWidths[1] + ColWidths[2] + ColWidths[3]
-    + ColWidths[4] + ColWidths[5] + GridlineWidth * 5;
-    fStats.ClientWidth := Width;
-  end;
-end;
-
-procedure TfStats.grdStatsDrawCell(Sender: TObject; ACol, ARow: Integer;
-  Rect: TRect; State: TGridDrawState);
-var
-  tBG, tFG: TColor;
-begin
-  with grdStats.Canvas do begin
-    if ARow = 0 then begin
-      tBG := clLtGray;
-      tFG := clBlack;
-    end
-    else if (GameState <> gsStopped) and (ACol = 0) and
-    (arPlayer[aiTurnList[ARow]].Active) then begin
-      tBG := arPlayer[aiTurnList[ARow]].Color;
-      tFG := BestTextColor(tBG);
-    end
-    else begin
-      tBG := clWhite;
-      tFG := clBlack;
-    end;
-    Brush.Color := tBG;
-    Font.Color := tFG;
-    FillRect(Rect);
-    if (ARow = 0) or (arPlayer[aiTurnList[ARow]].Active) then begin
-      TextOut(Rect.Left + 1, Rect.Top + 1, grdStats.Cells[ACol, ARow]);
-    end;
-  end;
-end;
-
-procedure TfStats.mnuStaTerClick(Sender: TObject);
-begin
-  if not bReady then
-    exit;
-  bStOpTer := not bStOpTer;
-  mnuStaTer.Checked := bStOpTer;
-  GridSetup;
-end;
-
-procedure TfStats.mnuStaArmClick(Sender: TObject);
-begin
-  if not bReady then
-    exit;
-  bStOpArm := not bStOpArm;
-  mnuStaArm.Checked := bStOpArm;
-  GridSetup;
-end;
-
-procedure TfStats.mnuStaConClick(Sender: TObject);
-begin
-  if not bReady then
-    exit;
-  bStOpCon := not bStOpCon;
-  mnuStaCon.Checked := bStOpCon;
-  GridSetup;
-end;
-
-procedure TfStats.mnuStaCTIVClick(Sender: TObject);
-begin
-  if not bReady then
-    exit;
-  bStOpCTIV := not bStOpCTIV;
-  mnuStaCTIV.Checked := bStOpCTIV;
-  GridSetup;
-end;
-
-procedure TfStats.mnuStaCarClick(Sender: TObject);
-begin
-  if not bReady then
-    exit;
-  bStOpCar := not bStOpCar;
-  mnuStaCar.Checked := bStOpCar;
-  GridSetup;
-end;
-
-end.
diff --git a/TRComp.exe b/TRComp.exe
deleted file mode 100644
index 7597c25..0000000
Binary files a/TRComp.exe and /dev/null differ
diff --git a/TRMap.exe b/TRMap.exe
deleted file mode 100644
index c06b5e2..0000000
Binary files a/TRMap.exe and /dev/null differ
diff --git a/TRPError.dfm b/TRPError.dfm
deleted file mode 100644
index 790d4a3..0000000
--- a/TRPError.dfm
+++ /dev/null
@@ -1,92 +0,0 @@
-object fTRPError: TfTRPError
-  Left = 393
-  Top = 181
-  HelpContext = 600
-  BorderStyle = bsDialog
-  Caption = 'TRP Error'
-  ClientHeight = 231
-  ClientWidth = 352
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
-  Font.Style = []
-  OldCreateOrder = False
-  Position = poMainFormCenter
-  PixelsPerInch = 96
-  TextHeight = 13
-  object txtMsg: TMemo
-    Left = 5
-    Top = 5
-    Width = 341
-    Height = 171
-    ReadOnly = True
-    TabOrder = 0
-  end
-  object cmdContinue: TBitBtn
-    Left = 5
-    Top = 190
-    Width = 86
-    Height = 31
-    Caption = '&Continue'
-    Default = True
-    DoubleBuffered = True
-    Glyph.Data = {
-      DE010000424DDE01000000000000760000002800000024000000120000000100
-      0400000000006801000000000000000000001000000000000000000000000000
-      80000080000000808000800000008000800080800000C0C0C000808080000000
-      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
-      33333333333F8888883F33330000324334222222443333388F3833333388F333
-      000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
-      F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
-      223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
-      3338888300003AAAAAAA33333333333888888833333333330000333333333333
-      333333333333333333FFFFFF000033333333333344444433FFFF333333888888
-      00003A444333333A22222438888F333338F3333800003A2243333333A2222438
-      F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
-      22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
-      33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
-      3333333333338888883333330000333333333333333333333333333333333333
-      0000}
-    ModalResult = 5
-    NumGlyphs = 2
-    ParentDoubleBuffered = False
-    TabOrder = 1
-  end
-  object cmdDump: TBitBtn
-    Left = 100
-    Top = 190
-    Width = 86
-    Height = 31
-    Caption = '&Dump memory'
-    DoubleBuffered = True
-    ModalResult = 6
-    NumGlyphs = 2
-    ParentDoubleBuffered = False
-    TabOrder = 2
-  end
-  object cmdHelp: TBitBtn
-    Left = 290
-    Top = 190
-    Width = 56
-    Height = 31
-    DoubleBuffered = True
-    Kind = bkHelp
-    ParentDoubleBuffered = False
-    TabOrder = 3
-    OnClick = cmdHelpClick
-  end
-  object cmdQuit: TBitBtn
-    Left = 195
-    Top = 190
-    Width = 86
-    Height = 31
-    Caption = '&Quit TurboRisk'
-    DoubleBuffered = True
-    ModalResult = 3
-    NumGlyphs = 2
-    ParentDoubleBuffered = False
-    TabOrder = 4
-  end
-end
diff --git a/TRPError.pas b/TRPError.pas
deleted file mode 100644
index c79b7e5..0000000
--- a/TRPError.pas
+++ /dev/null
@@ -1,35 +0,0 @@
-unit TRPError;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, Buttons;
-
-type
-  TfTRPError = class(TForm)
-    txtMsg: TMemo;
-    cmdContinue: TBitBtn;
-    cmdDump: TBitBtn;
-    cmdHelp: TBitBtn;
-    cmdQuit: TBitBtn;
-    procedure cmdHelpClick(Sender: TObject);
-  private
-    { Private declarations }
-  public
-    { Public declarations }
-  end;
-
-var
-  fTRPError: TfTRPError;
-
-implementation
-
-{$R *.dfm}
-
-procedure TfTRPError.cmdHelpClick(Sender: TObject);
-begin
-  Application.HelpSystem.ShowContextHelp(fTRPError.HelpContext,Application.HelpFile);
-end;
-
-end.
diff --git a/TRSim.dpr b/TRSim.dpr
deleted file mode 100644
index ae3699b..0000000
--- a/TRSim.dpr
+++ /dev/null
@@ -1,50 +0,0 @@
-program TRSim;
-
-uses
-  Forms,
-  {HTMLHelpViewerMario,}
-  Sim in 'Sim.pas' {fSim},
-  Globals in 'Globals.pas',
-  Attack in 'Attack.pas' {fAttack},
-  Cards in 'Cards.pas' {fCards},
-  Computer in 'Computer.pas',
-  ExpSubr in 'ExpSubr.pas',
-  History in 'History.pas' {fHistory},
-  Human in 'Human.pas',
-  Log in 'Log.pas' {fLog},
-  SimMap in 'SimMap.pas' {fSimMap},
-  Move in 'Move.pas' {fMove},
-  NewGame in 'NewGame.pas' {fNewGame},
-  Players in 'Players.pas' {fPlayers},
-  Programs in 'Programs.pas' {fPrograms},
-  Stats in 'Stats.pas' {fStats},
-  Territ in 'Territ.pas',
-  TRPError in 'TRPError.pas' {fTRPError},
-  UDialog in 'UDialog.pas' {fUDialog},
-  SimRun in 'SimRun.pas' {fSimRun},
-  Main in 'Main.pas' {fMain},
-  SimCPULog in 'SimCPULog.pas' {fSimCPULog},
-  SimGameLog in 'SimGameLog.pas' {fSimGameLog};
-
-{$R *.res}
-
-begin
-  Application.Initialize;
-  Application.MainFormOnTaskbar := True;
-  Application.CreateForm(TfSim, fSim);
-  Application.CreateForm(TfAttack, fAttack);
-  Application.CreateForm(TfCards, fCards);
-  Application.CreateForm(TfHistory, fHistory);
-  Application.CreateForm(TfLog, fLog);
-  Application.CreateForm(TfSimMap, fSimMap);
-  Application.CreateForm(TfMove, fMove);
-  Application.CreateForm(TfNewGame, fNewGame);
-  Application.CreateForm(TfPlayers, fPlayers);
-  Application.CreateForm(TfPrograms, fPrograms);
-  Application.CreateForm(TfStats, fStats);
-  Application.CreateForm(TfTRPError, fTRPError);
-  Application.CreateForm(TfUDialog, fUDialog);
-  Application.CreateForm(TfSimRun, fSimRun);
-  Application.CreateForm(TfMain, fMain);
-  Application.Run;
-end.
diff --git a/TRSim.dproj b/TRSim.dproj
deleted file mode 100644
index 07d1adf..0000000
--- a/TRSim.dproj
+++ /dev/null
@@ -1,199 +0,0 @@
-	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-		<PropertyGroup>
-			<ProjectGuid>{D438057B-1E16-46DC-9ED8-96B16EF7B363}</ProjectGuid>
-			<ProjectVersion>13.4</ProjectVersion>
-			<MainSource>TRSim.dpr</MainSource>
-			<Config Condition="'$(Config)'==''">Release</Config>
-			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
-			<FrameworkType>VCL</FrameworkType>
-			<Base>True</Base>
-			<Platform Condition="'$(Platform)'==''">Win32</Platform>
-			<TargetedPlatforms>1</TargetedPlatforms>
-			<AppType>Application</AppType>
-		</PropertyGroup>
-		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
-			<Base>true</Base>
-		</PropertyGroup>
-		<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
-			<Base_Win64>true</Base_Win64>
-			<CfgParent>Base</CfgParent>
-			<Base>true</Base>
-		</PropertyGroup>
-		<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
-			<Base_Win32>true</Base_Win32>
-			<CfgParent>Base</CfgParent>
-			<Base>true</Base>
-		</PropertyGroup>
-		<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
-			<Cfg_1>true</Cfg_1>
-			<CfgParent>Base</CfgParent>
-			<Base>true</Base>
-		</PropertyGroup>
-		<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
-			<Cfg_2>true</Cfg_2>
-			<CfgParent>Base</CfgParent>
-			<Base>true</Base>
-		</PropertyGroup>
-		<PropertyGroup Condition="'$(Base)'!=''">
-			<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
-			<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
-			<VerInfo_Locale>1040</VerInfo_Locale>
-			<DCC_Define>TRSIM;$(DCC_Define)</DCC_Define>
-			<DCC_DependencyCheckOutputName>TRSim.exe</DCC_DependencyCheckOutputName>
-			<DCC_UsePackage>VCLX30;VCL30;VCLDB30;VCLDBX30;INETDB30;INET30;VCLSMP30;QRPT30;TEEUI30;TEEDB30;TEE30;DSS30;IBEVNT30;RPRT;$(DCC_UsePackage)</DCC_UsePackage>
-			<DCC_UNSAFE_TYPE>true</DCC_UNSAFE_TYPE>
-			<DCC_UNSAFE_CODE>true</DCC_UNSAFE_CODE>
-			<DCC_ImageBase>00400000</DCC_ImageBase>
-			<DCC_Platform>x86</DCC_Platform>
-			<DCC_UNSAFE_CAST>true</DCC_UNSAFE_CAST>
-			<DCC_WriteableConstants>true</DCC_WriteableConstants>
-			<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
-		</PropertyGroup>
-		<PropertyGroup Condition="'$(Base_Win64)'!=''">
-			<Icon_MainIcon>TRSim_Icon1.ico</Icon_MainIcon>
-		</PropertyGroup>
-		<PropertyGroup Condition="'$(Base_Win32)'!=''">
-			<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
-			<Icon_MainIcon>TRSim_Icon1.ico</Icon_MainIcon>
-			<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
-			<VerInfo_Locale>1033</VerInfo_Locale>
-			<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
-			<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
-		</PropertyGroup>
-		<PropertyGroup Condition="'$(Cfg_1)'!=''">
-			<DCC_WriteableConstants>false</DCC_WriteableConstants>
-			<DCC_ImportedDataReferences>false</DCC_ImportedDataReferences>
-			<DCC_AssertionsAtRuntime>false</DCC_AssertionsAtRuntime>
-			<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
-			<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
-			<DCC_DebugInformation>false</DCC_DebugInformation>
-		</PropertyGroup>
-		<PropertyGroup Condition="'$(Cfg_2)'!=''">
-			<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
-		</PropertyGroup>
-		<ItemGroup>
-			<DelphiCompile Include="$(MainSource)">
-				<MainSource>MainSource</MainSource>
-			</DelphiCompile>
-			<DCCReference Include="Sim.pas">
-				<Form>fSim</Form>
-			</DCCReference>
-			<DCCReference Include="Globals.pas"/>
-			<DCCReference Include="Attack.pas">
-				<Form>fAttack</Form>
-			</DCCReference>
-			<DCCReference Include="Cards.pas">
-				<Form>fCards</Form>
-			</DCCReference>
-			<DCCReference Include="Computer.pas"/>
-			<DCCReference Include="ExpSubr.pas"/>
-			<DCCReference Include="History.pas">
-				<Form>fHistory</Form>
-			</DCCReference>
-			<DCCReference Include="Human.pas"/>
-			<DCCReference Include="Log.pas">
-				<Form>fLog</Form>
-			</DCCReference>
-			<DCCReference Include="SimMap.pas">
-				<Form>fSimMap</Form>
-			</DCCReference>
-			<DCCReference Include="Move.pas">
-				<Form>fMove</Form>
-			</DCCReference>
-			<DCCReference Include="NewGame.pas">
-				<Form>fNewGame</Form>
-			</DCCReference>
-			<DCCReference Include="Players.pas">
-				<Form>fPlayers</Form>
-			</DCCReference>
-			<DCCReference Include="Programs.pas">
-				<Form>fPrograms</Form>
-			</DCCReference>
-			<DCCReference Include="Stats.pas">
-				<Form>fStats</Form>
-			</DCCReference>
-			<DCCReference Include="Territ.pas"/>
-			<DCCReference Include="TRPError.pas">
-				<Form>fTRPError</Form>
-			</DCCReference>
-			<DCCReference Include="UDialog.pas">
-				<Form>fUDialog</Form>
-			</DCCReference>
-			<DCCReference Include="SimRun.pas">
-				<Form>fSimRun</Form>
-			</DCCReference>
-			<DCCReference Include="Main.pas">
-				<Form>fMain</Form>
-			</DCCReference>
-			<DCCReference Include="SimCPULog.pas">
-				<Form>fSimCPULog</Form>
-			</DCCReference>
-			<DCCReference Include="SimGameLog.pas">
-				<Form>fSimGameLog</Form>
-			</DCCReference>
-			<BuildConfiguration Include="Debug">
-				<Key>Cfg_2</Key>
-				<CfgParent>Base</CfgParent>
-			</BuildConfiguration>
-			<BuildConfiguration Include="Base">
-				<Key>Base</Key>
-			</BuildConfiguration>
-			<BuildConfiguration Include="Release">
-				<Key>Cfg_1</Key>
-				<CfgParent>Base</CfgParent>
-			</BuildConfiguration>
-		</ItemGroup>
-		<Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
-		<ProjectExtensions>
-			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
-			<Borland.ProjectType/>
-			<BorlandProject>
-				<Delphi.Personality>
-					<Source>
-						<Source Name="MainSource">TRSim.dpr</Source>
-					</Source>
-					<Parameters>
-						<Parameters Name="UseLauncher">False</Parameters>
-						<Parameters Name="LoadAllSymbols">True</Parameters>
-						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
-					</Parameters>
-					<VersionInfo>
-						<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
-						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
-						<VersionInfo Name="MajorVer">1</VersionInfo>
-						<VersionInfo Name="MinorVer">0</VersionInfo>
-						<VersionInfo Name="Release">0</VersionInfo>
-						<VersionInfo Name="Build">0</VersionInfo>
-						<VersionInfo Name="Debug">False</VersionInfo>
-						<VersionInfo Name="PreRelease">False</VersionInfo>
-						<VersionInfo Name="Special">False</VersionInfo>
-						<VersionInfo Name="Private">False</VersionInfo>
-						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1040</VersionInfo>
-						<VersionInfo Name="CodePage">1252</VersionInfo>
-					</VersionInfo>
-					<VersionInfoKeys>
-						<VersionInfoKeys Name="CompanyName"/>
-						<VersionInfoKeys Name="FileDescription"/>
-						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
-						<VersionInfoKeys Name="InternalName"/>
-						<VersionInfoKeys Name="LegalCopyright"/>
-						<VersionInfoKeys Name="LegalTrademarks"/>
-						<VersionInfoKeys Name="OriginalFilename"/>
-						<VersionInfoKeys Name="ProductName"/>
-						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
-						<VersionInfoKeys Name="Comments"/>
-					</VersionInfoKeys>
-					<Excluded_Packages>
-						<Excluded_Packages Name="$(BDSBIN)\dcloffice2k140.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
-					</Excluded_Packages>
-				</Delphi.Personality>
-				<Platforms>
-					<Platform value="Win64">False</Platform>
-					<Platform value="Win32">True</Platform>
-				</Platforms>
-			</BorlandProject>
-			<ProjectFileVersion>12</ProjectFileVersion>
-		</ProjectExtensions>
-		<Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
-	</Project>
diff --git a/TRSim.exe b/TRSim.exe
deleted file mode 100644
index c4ff348..0000000
Binary files a/TRSim.exe and /dev/null differ
diff --git a/Territ.pas b/Territ.pas
deleted file mode 100644
index 94ddca3..0000000
--- a/Territ.pas
+++ /dev/null
@@ -1,616 +0,0 @@
-unit Territ;
-
-interface
-
-// Load a map from file
-procedure LoadMap;
-
-// Resize main window according to map and toolbar
-procedure ResizeMainWindow;
-
-// Setup static info about territories
-procedure SetupTerritories;
-
-// Determina indice territorio in base alle coordinate di un punto sulla mappa
-function TrovaTerritorio(iX, iY: integer): integer;
-
-// Visualizza un territorio
-procedure DisplayTerritory(iTerritory: integer);
-
-// Assegnazione territorio ad un giocatore
-procedure AssegnaTerritorio(iT, iG: integer);
-
-// Collocazione di n armate su un territorio
-procedure CollocaArmata(iT, iG, iArmies: integer);
-
-// Verifica se due territori sono confinanti
-function Confinante(iFrom, iTo: integer): boolean;
-
-// Verifica se un territorio è proprio e confina con territori nemici
-function Confine(iT: integer): boolean;
-
-implementation
-
-uses Forms, Graphics, SysUtils, Classes, ExtCtrls, IniFiles, Math,
-  Globals, Main, Stats, Log, Sim, SimMap;
-
-// Resize main window according to map and toolbar
-procedure ResizeMainWindow;
-begin
-  with fMain do begin
-    if bPrefShowToolbar then begin
-      ClientWidth := max(fMain.panMap.Width + 2,
-        cmdEndTurn.Left + cmdEndTurn.Width + 5);
-      panMap.Top := tlbToolbar.Height;
-      ClientHeight := panMap.Height + 21 + tlbToolbar.Height;
-    end
-    else begin
-      ClientWidth := fMain.panMap.Width + 2;
-      panMap.Top := 0;
-      ClientHeight := panMap.Height + 21;
-    end;
-  end;
-end;
-
-// Load a map from file
-procedure LoadMap;
-var
-  IniFile: TIniFile;
-  i, iT: integer;
-  sBitmapFile, sSection: string;
-begin
-
-  // load bitmap
-  sBitmapFile := ChangeFileExt(sG_AppPath + 'maps\' + sMapFile, '.bmp');
-  BaseMap.LoadFromFile(sBitmapFile);
-  if bG_TRSim then begin // TRSim
-    fSimMap.imgMap.Picture.Assign(BaseMap);
-  end
-  else begin // TurboRisk
-    fMain.imgMap.Picture.Assign(BaseMap);
-    // resize main window according to map
-    ResizeMainWindow;
-  end;
-  // load map data
-  IniFile := TIniFile.Create(sG_AppPath + 'maps\' + sMapFile);
-  try
-    with IniFile do begin
-      // load general info
-      sMapDesc := ReadString('Map', 'Desc', '');
-      sMapFontName := ReadString('Map', 'FontName', 'Courier New');
-      iMapFontSize := ReadInteger('Map', 'FontSize', 8);
-      tMapTextFG := ReadInteger('Map', 'TextFG', clBlack);
-      tMapTextBG := ReadInteger('Map', 'TextBG', clWhite);
-      // load territories
-      for iT := 1 to MAXTERRITORIES do begin
-        with arTerritory[iT] do begin
-          sSection := 'Territory_' + IntToStr(iT);
-          Color := ReadInteger(sSection, 'Color', clBlack);
-          Coord := Point(ReadInteger(sSection, 'Tx', 0),
-            ReadInteger(sSection, 'Ty', 0));
-          NOrig := ReadInteger(sSection, 'FFCount', 0);
-          for i := 1 to NOrig do
-            Orig[i] := Point(ReadInteger(sSection, 'FF' + IntToStr(i) + 'x',
-                0), ReadInteger(sSection, 'FF' + IntToStr(i) + 'y', 0));
-        end;
-      end;
-    end;
-  finally
-    IniFile.Free;
-  end;
-end;
-
-// Setup static info about territories
-procedure SetupTerritories;
-var
-  i: integer;
-begin
-  with arTerritory[1] do begin
-    Name := 'Alaska';
-    NBord := 3;
-    Bord[1] := 2;
-    Bord[2] := 4;
-    Bord[3] := 37;
-  end;
-  with arTerritory[2] do begin
-    Name := 'Northwest Territory';
-    NBord := 4;
-    Bord[1] := 1;
-    Bord[2] := 3;
-    Bord[3] := 4;
-    Bord[4] := 5;
-  end;
-  with arTerritory[3] do begin
-    Name := 'Greenland';
-    NBord := 4;
-    Bord[1] := 2;
-    Bord[2] := 5;
-    Bord[3] := 6;
-    Bord[4] := 20;
-  end;
-  with arTerritory[4] do begin
-    Name := 'Alberta';
-    NBord := 4;
-    Bord[1] := 1;
-    Bord[2] := 2;
-    Bord[3] := 5;
-    Bord[4] := 7;
-  end;
-  with arTerritory[5] do begin
-    Name := 'Ontario';
-    NBord := 6;
-    Bord[1] := 2;
-    Bord[2] := 3;
-    Bord[3] := 4;
-    Bord[4] := 6;
-    Bord[5] := 7;
-    Bord[6] := 8;
-  end;
-  with arTerritory[6] do begin
-    Name := 'Quebec';
-    NBord := 3;
-    Bord[1] := 3;
-    Bord[2] := 5;
-    Bord[3] := 8;
-  end;
-  with arTerritory[7] do begin
-    Name := 'Western US';
-    NBord := 4;
-    Bord[1] := 4;
-    Bord[2] := 5;
-    Bord[3] := 8;
-    Bord[4] := 9;
-  end;
-  with arTerritory[8] do begin
-    Name := 'Eastern US';
-    NBord := 4;
-    Bord[1] := 5;
-    Bord[2] := 6;
-    Bord[3] := 7;
-    Bord[4] := 9;
-  end;
-  with arTerritory[9] do begin
-    Name := 'Central America';
-    NBord := 3;
-    Bord[1] := 7;
-    Bord[2] := 8;
-    Bord[3] := 10;
-  end;
-  with arTerritory[10] do begin
-    Name := 'Venezuela';
-    NBord := 3;
-    Bord[1] := 9;
-    Bord[2] := 11;
-    Bord[3] := 12;
-  end;
-  with arTerritory[11] do begin
-    Name := 'Peru';
-    NBord := 3;
-    Bord[1] := 10;
-    Bord[2] := 12;
-    Bord[3] := 13;
-  end;
-  with arTerritory[12] do begin
-    Name := 'Brazil';
-    NBord := 4;
-    Bord[1] := 10;
-    Bord[2] := 11;
-    Bord[3] := 13;
-    Bord[4] := 14;
-  end;
-  with arTerritory[13] do begin
-    Name := 'Argentina';
-    NBord := 2;
-    Bord[1] := 11;
-    Bord[2] := 12;
-  end;
-  with arTerritory[14] do begin
-    Name := 'North Africa';
-    NBord := 6;
-    Bord[1] := 25;
-    Bord[2] := 26;
-    Bord[3] := 12;
-    Bord[4] := 15;
-    Bord[5] := 16;
-    Bord[6] := 17;
-  end;
-  with arTerritory[15] do begin
-    Name := 'Egypt';
-    NBord := 4;
-    Bord[1] := 14;
-    Bord[2] := 16;
-    Bord[3] := 26;
-    Bord[4] := 27;
-  end;
-  with arTerritory[16] do begin
-    Name := 'East Africa';
-    NBord := 6;
-    Bord[1] := 14;
-    Bord[2] := 15;
-    Bord[3] := 17;
-    Bord[4] := 18;
-    Bord[5] := 19;
-    Bord[6] := 27;
-  end;
-  with arTerritory[17] do begin
-    Name := 'Congo';
-    NBord := 3;
-    Bord[1] := 14;
-    Bord[2] := 16;
-    Bord[3] := 18;
-  end;
-  with arTerritory[18] do begin
-    Name := 'South Africa';
-    NBord := 3;
-    Bord[1] := 16;
-    Bord[2] := 17;
-    Bord[3] := 19;
-  end;
-  with arTerritory[19] do begin
-    Name := 'Madagascar';
-    NBord := 2;
-    Bord[1] := 16;
-    Bord[2] := 18;
-  end;
-  with arTerritory[20] do begin
-    Name := 'Iceland';
-    NBord := 3;
-    Bord[1] := 3;
-    Bord[2] := 21;
-    Bord[3] := 24;
-  end;
-  with arTerritory[21] do begin
-    Name := 'Scandinavia';
-    NBord := 4;
-    Bord[1] := 20;
-    Bord[2] := 22;
-    Bord[3] := 23;
-    Bord[4] := 24;
-  end;
-  with arTerritory[22] do begin
-    Name := 'Ukraine';
-    NBord := 6;
-    Bord[1] := 21;
-    Bord[2] := 23;
-    Bord[3] := 26;
-    Bord[4] := 27;
-    Bord[5] := 28;
-    Bord[6] := 29;
-  end;
-  with arTerritory[23] do begin
-    Name := 'Northern Europe';
-    NBord := 5;
-    Bord[1] := 21;
-    Bord[2] := 22;
-    Bord[3] := 24;
-    Bord[4] := 25;
-    Bord[5] := 26;
-  end;
-  with arTerritory[24] do begin
-    Name := 'Great Britain';
-    NBord := 4;
-    Bord[1] := 20;
-    Bord[2] := 21;
-    Bord[3] := 23;
-    Bord[4] := 25;
-  end;
-  with arTerritory[25] do begin
-    Name := 'Western Europe';
-    NBord := 4;
-    Bord[1] := 23;
-    Bord[2] := 24;
-    Bord[3] := 26;
-    Bord[4] := 14;
-  end;
-  with arTerritory[26] do begin
-    Name := 'Southern Europe';
-    NBord := 6;
-    Bord[1] := 22;
-    Bord[2] := 23;
-    Bord[3] := 25;
-    Bord[4] := 27;
-    Bord[5] := 14;
-    Bord[6] := 15;
-  end;
-  with arTerritory[27] do begin
-    Name := 'Middle East';
-    NBord := 6;
-    Bord[1] := 22;
-    Bord[2] := 26;
-    Bord[3] := 15;
-    Bord[4] := 16;
-    Bord[5] := 29;
-    Bord[6] := 30;
-  end;
-  with arTerritory[28] do begin
-    Name := 'Yamal-Nemets';
-    NBord := 4;
-    Bord[1] := 22;
-    Bord[2] := 29;
-    Bord[3] := 33;
-    Bord[4] := 34;
-  end;
-  with arTerritory[29] do begin
-    Name := 'Kazakhstan';
-    NBord := 5;
-    Bord[1] := 22;
-    Bord[2] := 28;
-    Bord[3] := 27;
-    Bord[4] := 30;
-    Bord[5] := 32;
-  end;
-  with arTerritory[30] do begin
-    Name := 'India';
-    NBord := 4;
-    Bord[1] := 27;
-    Bord[2] := 29;
-    Bord[3] := 31;
-    Bord[4] := 32;
-  end;
-  with arTerritory[31] do begin
-    Name := 'Siam';
-    NBord := 3;
-    Bord[1] := 30;
-    Bord[2] := 32;
-    Bord[3] := 39;
-  end;
-  with arTerritory[32] do begin
-    Name := 'China';
-    NBord := 4;
-    Bord[1] := 29;
-    Bord[2] := 30;
-    Bord[3] := 31;
-    Bord[4] := 33;
-  end;
-  with arTerritory[33] do begin
-    Name := 'Mongolia';
-    NBord := 6;
-    Bord[1] := 28;
-    Bord[2] := 32;
-    Bord[3] := 34;
-    Bord[4] := 36;
-    Bord[5] := 37;
-    Bord[6] := 38;
-  end;
-  with arTerritory[34] do begin
-    Name := 'Taymyr';
-    NBord := 4;
-    Bord[1] := 28;
-    Bord[2] := 33;
-    Bord[3] := 35;
-    Bord[4] := 36;
-  end;
-  with arTerritory[35] do begin
-    Name := 'Yakut';
-    NBord := 3;
-    Bord[1] := 34;
-    Bord[2] := 36;
-    Bord[3] := 37;
-  end;
-  with arTerritory[36] do begin
-    Name := 'Buryat';
-    NBord := 4;
-    Bord[1] := 33;
-    Bord[2] := 34;
-    Bord[3] := 35;
-    Bord[4] := 37;
-  end;
-  with arTerritory[37] do begin
-    Name := 'Koryak';
-    NBord := 5;
-    Bord[1] := 1;
-    Bord[2] := 33;
-    Bord[3] := 35;
-    Bord[4] := 36;
-    Bord[5] := 38;
-  end;
-  with arTerritory[38] do begin
-    Name := 'Japan';
-    NBord := 2;
-    Bord[1] := 33;
-    Bord[2] := 37;
-  end;
-  with arTerritory[39] do begin
-    Name := 'Indonesia';
-    NBord := 3;
-    Bord[1] := 31;
-    Bord[2] := 40;
-    Bord[3] := 42;
-  end;
-  with arTerritory[40] do begin
-    Name := 'Western Australia';
-    NBord := 3;
-    Bord[1] := 39;
-    Bord[2] := 41;
-    Bord[3] := 42;
-  end;
-  with arTerritory[41] do begin
-    Name := 'Eastern Australia';
-    NBord := 2;
-    Bord[1] := 40;
-    Bord[2] := 42;
-  end;
-  with arTerritory[42] do begin
-    Name := 'New Guinea';
-    NBord := 3;
-    Bord[1] := 39;
-    Bord[2] := 40;
-    Bord[3] := 41;
-  end;
-
-  // Assign territories to continents
-  for i := 1 to 9 do
-    arTerritory[i].Contin := coNA;
-  for i := 10 to 13 do
-    arTerritory[i].Contin := coSA;
-  for i := 14 to 19 do
-    arTerritory[i].Contin := coAF;
-  for i := 20 to 26 do
-    arTerritory[i].Contin := coEU;
-  for i := 27 to 38 do
-    arTerritory[i].Contin := coAS;
-  for i := 39 to 42 do
-    arTerritory[i].Contin := coAU;
-
-  // Continent names
-  arContinent[coNA].Name := 'NA';
-  arContinent[coSA].Name := 'SA';
-  arContinent[coAF].Name := 'Af';
-  arContinent[coEU].Name := 'Eu';
-  arContinent[coAS].Name := 'As';
-  arContinent[coAU].Name := 'Au';
-
-  // Bonus armies per continent
-  arContinent[coNA].Bonus := 5;
-  arContinent[coSA].Bonus := 2;
-  arContinent[coAF].Bonus := 3;
-  arContinent[coEU].Bonus := 5;
-  arContinent[coAS].Bonus := 7;
-  arContinent[coAU].Bonus := 2;
-end;
-
-// Determina indice territorio in base alle coordinate di un punto sulla mappa
-function TrovaTerritorio(iX, iY: integer): integer;
-var
-  ColoreBase: TColor;
-  i: integer;
-begin
-  ColoreBase := BaseMap.Canvas.Pixels[iX, iY];
-  for i := 1 to MAXTERRITORIES do begin
-    if arTerritory[i].Color = ColoreBase then begin
-      Result := i;
-      exit;
-    end;
-  end;
-  Result := 0;
-end;
-
-// Visualizza un territorio
-procedure DisplayTerritory(iTerritory: integer);
-var
-  iOrig: integer;
-  ColoPrec: TColor;
-  sArmies: string;
-  imgDynMap: TImage;
-begin
-  if bG_TRSim then begin // TRSim
-    if not fSim.chkShowMap.Checked then
-      exit;
-    imgDynMap := fSimMap.imgMap;
-  end
-  else begin // TurboRisk
-    imgDynMap := fMain.imgMap;
-  end;
-  with imgDynMap, arTerritory[iTerritory] do begin
-    // Color
-    if (iTerritory = GetFromTerritory) or (iTerritory = GetToTerritory) then
-    begin
-      if bPrefMapSelected then
-        Canvas.Brush.Color := ChangeColor(arPlayer[Owner].Color,
-          iPrefMapSelected)
-      else
-        Canvas.Brush.Color := arPlayer[Owner].Color;
-    end
-    else if bPrefMapHoover and (iTerritory = GetHooverTerritory) then begin
-      Canvas.Brush.Color := ChangeColor(arPlayer[Owner].Color, iPrefMapHoover);
-    end
-    else begin
-      Canvas.Brush.Color := arPlayer[Owner].Color;
-    end;
-    ColoPrec := Canvas.Pixels[Orig[1].X, Orig[1].Y];
-    for iOrig := 1 to NOrig do
-      Canvas.FloodFill(Orig[iOrig].X, Orig[iOrig].Y, ColoPrec, fsSurface);
-
-    // Armies
-    Canvas.Font.Name := sMapFontName;
-    Canvas.Font.Size := iMapFontSize;
-    Canvas.Font.Color := tMapTextFG;
-    Canvas.Brush.Color := tMapTextBG;
-    sArmies := FormatFloat('000', Army);
-    if length(sArmies) > 3 then
-      sArmies := copy(sArmies, 1, 3);
-    Canvas.TextOut(Coord.X, Coord.Y, sArmies);
-  end;
-end;
-
-// Assegnazione territorio ad un giocatore
-procedure AssegnaTerritorio(iT, iG: integer);
-var
-  iT2, iProp2: integer;
-begin
-  with arTerritory[iT] do begin
-    // Se il territorio era vergine, riduco il numero di territori da assegnare
-    if (Owner = 0) and (iToAssign > 0) then
-      dec(iToAssign);
-    // Se apparteneva ad un altro giocatore, riduco il suo numero di territori posseduti
-    if Owner > 0 then
-      dec(arPlayer[Owner].Territ);
-    // Assegno la proprietà
-    Owner := iG;
-    // Incremento il contatore di territori posseduti
-    inc(arPlayer[iG].Territ);
-  end;
-
-  // Aggiorno il controllo del continente
-  iProp2 := iG;
-  for iT2 := 1 to MAXTERRITORIES do begin
-    if arTerritory[iT2].Contin = arTerritory[iT].Contin then begin
-      if arTerritory[iT2].Owner <> iProp2 then begin
-        iProp2 := 0;
-        break;
-      end;
-    end;
-  end;
-  arContinent[arTerritory[iT].Contin].Owner := iProp2;
-
-  // Aggiornamento statistiche
-  UpdateStats;
-end;
-
-// Collocazione di n armate su un territorio
-procedure CollocaArmata(iT, iG, iArmies: integer);
-begin
-  if iArmies > arPlayer[iG].NewArmy then
-    iArmies := arPlayer[iG].NewArmy;
-  inc(arTerritory[iT].Army, iArmies);
-  dec(arPlayer[iG].NewArmy, iArmies);
-  // Log
-  if arPlayer[iTurn].KeepLog then
-    ScriviLog(IntToStr(iArmies) + ' army(s) placed in ' + arTerritory[iT]
-      .Name + '.');
-  // Aggiornamento display e statistiche
-  DisplayTerritory(iT);
-  UpdateStats;
-  Application.ProcessMessages;
-end;
-
-// Verifica se due territori sono confinanti
-function Confinante(iFrom, iTo: integer): boolean;
-var
-  iT: integer;
-begin
-  for iT := 1 to arTerritory[iFrom].NBord do
-    if arTerritory[iFrom].Bord[iT] = iTo then begin
-      Result := true;
-      exit;
-    end;
-  Result := false;
-end;
-
-// Verifica se un territorio è proprio e confina con territori nemici
-function Confine(iT: integer): boolean;
-var
-  iC: integer;
-begin
-  if arTerritory[iT].Owner = iTurn then begin
-    for iC := 1 to arTerritory[iT].NBord do begin
-      if arTerritory[arTerritory[iT].Bord[iC]].Owner <> iTurn then begin
-        Result := true;
-        exit;
-      end;
-    end;
-  end;
-  Result := false;
-end;
-
-end.
diff --git a/TurboRisk.chm b/TurboRisk.chm
deleted file mode 100644
index acada4c..0000000
Binary files a/TurboRisk.chm and /dev/null differ
diff --git a/TurboRisk.dpr b/TurboRisk.dpr
deleted file mode 100644
index bb4cf93..0000000
--- a/TurboRisk.dpr
+++ /dev/null
@@ -1,58 +0,0 @@
-program TurboRisk;
-
-uses
-  Forms,
-  {HTMLHElpViewerMario,}
-  SimMap in 'SimMap.pas' {fSimMap},
-  Globals in 'Globals.pas',
-  Territ in 'Territ.pas',
-  NewGame in 'NewGame.pas' {fNewGame},
-  Computer in 'Computer.pas',
-  Stats in 'Stats.pas' {fStats},
-  Human in 'Human.pas',
-  Rules in 'Rules.pas' {fRules},
-  Cards in 'Cards.pas' {fCards},
-  Attack in 'Attack.pas' {fAttack},
-  Move in 'Move.pas' {fMove},
-  Players in 'Players.pas' {fPlayers},
-  Log in 'Log.pas' {fLog},
-  About in 'About.pas' {fAbout},
-  ExpSubr in 'ExpSubr.pas',
-  Map in 'Map.pas' {fMap},
-  History in 'History.pas' {fHistory},
-  Programs in 'Programs.pas' {fPrograms},
-  CheckUpd in 'CheckUpd.pas' {fCheckUpd},
-  TRPError in 'TRPError.pas' {fTRPError},
-  Pref in 'Pref.pas' {fPref},
-  SplashScreen in 'SplashScreen.pas' {fSplashScreen},
-  UDialog in 'UDialog.pas' {fUDialog},
-  Main in 'Main.pas' {fMain};
-
-{$R *.RES}
-
-begin
-  fSplashScreen := TfSplashScreen.Create(Application) ;
-  fSplashScreen.Show;
-  Application.Initialize;
-  fSplashScreen.Update;
-  Application.Title := 'TurboRisk';
-  Application.CreateForm(TfMain, fMain);
-  Application.CreateForm(TfSimMap, fSimMap);
-  Application.CreateForm(TfNewGame, fNewGame);
-  Application.CreateForm(TfStats, fStats);
-  Application.CreateForm(TfRules, fRules);
-  Application.CreateForm(TfCards, fCards);
-  Application.CreateForm(TfAttack, fAttack);
-  Application.CreateForm(TfMove, fMove);
-  Application.CreateForm(TfPlayers, fPlayers);
-  Application.CreateForm(TfLog, fLog);
-  Application.CreateForm(TfAbout, fAbout);
-  Application.CreateForm(TfMap, fMap);
-  Application.CreateForm(TfHistory, fHistory);
-  Application.CreateForm(TfPrograms, fPrograms);
-  Application.CreateForm(TfCheckUpd, fCheckUpd);
-  Application.CreateForm(TfTRPError, fTRPError);
-  Application.CreateForm(TfPref, fPref);
-  Application.CreateForm(TfUDialog, fUDialog);
-  Application.Run;
-end.
diff --git a/TurboRisk.dproj b/TurboRisk.dproj
deleted file mode 100644
index 79071d1..0000000
--- a/TurboRisk.dproj
+++ /dev/null
@@ -1,212 +0,0 @@
-	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-		<PropertyGroup>
-			<ProjectGuid>{5D617A7F-3CFD-411D-8B33-DF8443BCC6EB}</ProjectGuid>
-			<MainSource>TurboRisk.dpr</MainSource>
-			<Config Condition="'$(Config)'==''">Release</Config>
-			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
-			<ProjectVersion>13.4</ProjectVersion>
-			<FrameworkType>VCL</FrameworkType>
-			<Base>True</Base>
-			<Platform Condition="'$(Platform)'==''">Win32</Platform>
-			<TargetedPlatforms>1</TargetedPlatforms>
-			<AppType>Application</AppType>
-		</PropertyGroup>
-		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
-			<Base>true</Base>
-		</PropertyGroup>
-		<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
-			<Base_Win64>true</Base_Win64>
-			<CfgParent>Base</CfgParent>
-			<Base>true</Base>
-		</PropertyGroup>
-		<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
-			<Base_Win32>true</Base_Win32>
-			<CfgParent>Base</CfgParent>
-			<Base>true</Base>
-		</PropertyGroup>
-		<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
-			<Cfg_1>true</Cfg_1>
-			<CfgParent>Base</CfgParent>
-			<Base>true</Base>
-		</PropertyGroup>
-		<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
-			<Cfg_2>true</Cfg_2>
-			<CfgParent>Base</CfgParent>
-			<Base>true</Base>
-		</PropertyGroup>
-		<PropertyGroup Condition="'$(Base)'!=''">
-			<VerInfo_Locale>1040</VerInfo_Locale>
-			<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
-			<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
-			<DCC_UsePackage>VCLX30;VCL30;VCLDB30;VCLDBX30;INETDB30;INET30;VCLSMP30;QRPT30;TEEUI30;TEEDB30;TEE30;DSS30;IBEVNT30;RPRT;$(DCC_UsePackage)</DCC_UsePackage>
-			<DCC_UNSAFE_TYPE>true</DCC_UNSAFE_TYPE>
-			<DCC_UNSAFE_CODE>true</DCC_UNSAFE_CODE>
-			<DCC_ImageBase>00400000</DCC_ImageBase>
-			<DCC_Platform>x86</DCC_Platform>
-			<DCC_DependencyCheckOutputName>TurboRisk.exe</DCC_DependencyCheckOutputName>
-			<DCC_UNSAFE_CAST>true</DCC_UNSAFE_CAST>
-			<DCC_K>false</DCC_K>
-			<DCC_N>true</DCC_N>
-			<DCC_S>false</DCC_S>
-			<DCC_F>false</DCC_F>
-			<DCC_WriteableConstants>true</DCC_WriteableConstants>
-			<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
-			<DCC_E>false</DCC_E>
-		</PropertyGroup>
-		<PropertyGroup Condition="'$(Base_Win64)'!=''">
-			<Icon_MainIcon>TurboRisk_Icon1.ico</Icon_MainIcon>
-			<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
-		</PropertyGroup>
-		<PropertyGroup Condition="'$(Base_Win32)'!=''">
-			<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
-			<Icon_MainIcon>TurboRisk_Icon1.ico</Icon_MainIcon>
-			<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
-			<VerInfo_Locale>1033</VerInfo_Locale>
-			<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
-			<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
-		</PropertyGroup>
-		<PropertyGroup Condition="'$(Cfg_1)'!=''">
-			<BRCC_CompilerToUse>rc</BRCC_CompilerToUse>
-			<DCC_WriteableConstants>false</DCC_WriteableConstants>
-			<DCC_ImportedDataReferences>false</DCC_ImportedDataReferences>
-			<DCC_AssertionsAtRuntime>false</DCC_AssertionsAtRuntime>
-			<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
-			<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
-			<DCC_DebugInformation>false</DCC_DebugInformation>
-		</PropertyGroup>
-		<PropertyGroup Condition="'$(Cfg_2)'!=''">
-			<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
-		</PropertyGroup>
-		<ItemGroup>
-			<DelphiCompile Include="$(MainSource)">
-				<MainSource>MainSource</MainSource>
-			</DelphiCompile>
-			<DCCReference Include="SimMap.pas">
-				<Form>fSimMap</Form>
-			</DCCReference>
-			<DCCReference Include="Globals.pas"/>
-			<DCCReference Include="Territ.pas"/>
-			<DCCReference Include="NewGame.pas">
-				<Form>fNewGame</Form>
-			</DCCReference>
-			<DCCReference Include="Computer.pas"/>
-			<DCCReference Include="Stats.pas">
-				<Form>fStats</Form>
-			</DCCReference>
-			<DCCReference Include="Human.pas"/>
-			<DCCReference Include="Rules.pas">
-				<Form>fRules</Form>
-			</DCCReference>
-			<DCCReference Include="Cards.pas">
-				<Form>fCards</Form>
-			</DCCReference>
-			<DCCReference Include="Attack.pas">
-				<Form>fAttack</Form>
-			</DCCReference>
-			<DCCReference Include="Move.pas">
-				<Form>fMove</Form>
-			</DCCReference>
-			<DCCReference Include="Players.pas">
-				<Form>fPlayers</Form>
-			</DCCReference>
-			<DCCReference Include="Log.pas">
-				<Form>fLog</Form>
-			</DCCReference>
-			<DCCReference Include="About.pas">
-				<Form>fAbout</Form>
-			</DCCReference>
-			<DCCReference Include="ExpSubr.pas"/>
-			<DCCReference Include="Map.pas">
-				<Form>fMap</Form>
-			</DCCReference>
-			<DCCReference Include="History.pas">
-				<Form>fHistory</Form>
-			</DCCReference>
-			<DCCReference Include="Programs.pas">
-				<Form>fPrograms</Form>
-			</DCCReference>
-			<DCCReference Include="CheckUpd.pas">
-				<Form>fCheckUpd</Form>
-			</DCCReference>
-			<DCCReference Include="TRPError.pas">
-				<Form>fTRPError</Form>
-			</DCCReference>
-			<DCCReference Include="Pref.pas">
-				<Form>fPref</Form>
-			</DCCReference>
-			<DCCReference Include="SplashScreen.pas">
-				<Form>fSplashScreen</Form>
-			</DCCReference>
-			<DCCReference Include="UDialog.pas">
-				<Form>fUDialog</Form>
-			</DCCReference>
-			<DCCReference Include="Main.pas">
-				<Form>fMain</Form>
-			</DCCReference>
-			<BuildConfiguration Include="Debug">
-				<Key>Cfg_2</Key>
-				<CfgParent>Base</CfgParent>
-			</BuildConfiguration>
-			<BuildConfiguration Include="Base">
-				<Key>Base</Key>
-			</BuildConfiguration>
-			<BuildConfiguration Include="Release">
-				<Key>Cfg_1</Key>
-				<CfgParent>Base</CfgParent>
-			</BuildConfiguration>
-		</ItemGroup>
-		<Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
-		<ProjectExtensions>
-			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
-			<Borland.ProjectType>VCLApplication</Borland.ProjectType>
-			<BorlandProject>
-				<Delphi.Personality>
-					<Source>
-						<Source Name="MainSource">TurboRisk.dpr</Source>
-					</Source>
-					<Parameters>
-						<Parameters Name="UseLauncher">False</Parameters>
-						<Parameters Name="LoadAllSymbols">True</Parameters>
-						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
-					</Parameters>
-					<VersionInfo>
-						<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
-						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
-						<VersionInfo Name="MajorVer">1</VersionInfo>
-						<VersionInfo Name="MinorVer">0</VersionInfo>
-						<VersionInfo Name="Release">0</VersionInfo>
-						<VersionInfo Name="Build">0</VersionInfo>
-						<VersionInfo Name="Debug">False</VersionInfo>
-						<VersionInfo Name="PreRelease">False</VersionInfo>
-						<VersionInfo Name="Special">False</VersionInfo>
-						<VersionInfo Name="Private">False</VersionInfo>
-						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1040</VersionInfo>
-						<VersionInfo Name="CodePage">1252</VersionInfo>
-					</VersionInfo>
-					<VersionInfoKeys>
-						<VersionInfoKeys Name="CompanyName"/>
-						<VersionInfoKeys Name="FileDescription"/>
-						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
-						<VersionInfoKeys Name="InternalName"/>
-						<VersionInfoKeys Name="LegalCopyright"/>
-						<VersionInfoKeys Name="LegalTrademarks"/>
-						<VersionInfoKeys Name="OriginalFilename"/>
-						<VersionInfoKeys Name="ProductName"/>
-						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
-						<VersionInfoKeys Name="Comments"/>
-					</VersionInfoKeys>
-					<Excluded_Packages>
-						<Excluded_Packages Name="$(BDSBIN)\dcloffice2k140.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
-						<Excluded_Packages Name="$(BDSBIN)\dclofficexp140.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
-					</Excluded_Packages>
-				</Delphi.Personality>
-				<Platforms>
-					<Platform value="Win64">False</Platform>
-					<Platform value="Win32">True</Platform>
-				</Platforms>
-			</BorlandProject>
-			<ProjectFileVersion>12</ProjectFileVersion>
-		</ProjectExtensions>
-		<Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
-	</Project>
diff --git a/TurboRisk.exe b/TurboRisk.exe
deleted file mode 100644
index 753cc80..0000000
Binary files a/TurboRisk.exe and /dev/null differ
diff --git a/TurboRisk.ini b/TurboRisk.ini
deleted file mode 100644
index ab99636..0000000
--- a/TurboRisk.ini
+++ /dev/null
@@ -1,152 +0,0 @@
-[Windows]
-MainTop=2
-MainLeft=2
-StatsTop=516
-StatsLeft=4
-StatsVisible=0
-StatsTer=1
-StatsArm=1
-StatsCon=1
-StatsCar=1
-LogTop=458
-LogLeft=17
-LogWidth=583
-LogHeight=189
-LogVisible=0
-HistoryTop=0
-HistoryLeft=0
-HistoryWidth=500
-HistoryHeight=400
-StatsCTIV=1
-[Rules]
-Assignment=1
-InitArmies2=40
-InitArmies3=35
-InitArmies4=30
-InitArmies5=25
-InitArmies6=20
-InitArmies7=20
-InitArmies8=20
-InitArmies9=20
-InitArmies10=20
-CardUsage=1
-ArtSetValue=4
-InfSetValue=6
-CavSetValue=8
-DifSetValue=10
-TradeValue1=4
-TradeValue2=6
-TradeValue3=8
-TradeValue4=10
-TradeValue5=12
-TradeValue6=15
-TradeValue7=20
-TradeValue8=25
-TradeValueInc=5
-MaxHeldCards=5
-TradeCapturedCards=1
-AllowAttackAfterMove=1
-
-[Player1]
-Name=human
-Active=1
-Color=16711680
-Computer=0
-Log=0
-AutoCards=1
-PrgFile=descartes1.trp
-
-[Player2]
-Name=alexander
-Active=1
-Color=255
-Computer=1
-Log=0
-AutoCards=1
-PrgFile=alexander.trp
-
-[Player3]
-Name=borg
-Active=1
-Color=32768
-Computer=1
-Log=0
-AutoCards=1
-PrgFile=borg.trp
-
-[Player4]
-Name=napoleon
-Active=1
-Color=65535
-Computer=1
-Log=0
-AutoCards=1
-PrgFile=napoleon.trp 
-
-[Player5]
-Name=rambo
-Active=1
-Color=16776960
-Computer=1
-Log=0
-AutoCards=1
-PrgFile=rambo.trp
-
-[Player6]
-Name=struggler
-Active=1
-Color=16711935
-Computer=1
-Log=0
-AutoCards=1
-PrgFile=struggler.trp 
-
-[Player7]
-Name=
-Active=0
-Color=65280
-Computer=0
-Log=0
-AutoCards=1
-PrgFile=simple.trp
-
-[Player8]
-Name=
-Active=0
-Color=15793151
-Computer=0
-Log=0
-AutoCards=1
-PrgFile=simple.trp
-
-[Player9]
-Name=
-Active=0
-Color=128
-Computer=0
-Log=0
-AutoCards=1
-PrgFile=simple.trp
-
-[Player10]
-Name=
-Active=0
-Color=8388736
-Computer=0
-Log=0
-AutoCards=1
-PrgFile=simple.trp
-[Map]
-File=std_map_medium.trm
-[Pref]
-ShowToolbar=1
-Toolbar=011111000000000
-MapHooverOn=1
-MapSelectedOn=1
-MapHooverP=-20
-MapSelectedP=-20
-ConfirmAbort=1
-CheckUpdate=0
-[PlSets]
-Count=5
-Set=2
diff --git a/UDialog.dfm b/UDialog.dfm
deleted file mode 100644
index 9d98e05..0000000
--- a/UDialog.dfm
+++ /dev/null
@@ -1,80 +0,0 @@
-object fUDialog: TfUDialog
-  Left = 0
-  Top = 0
-  BorderStyle = bsDialog
-  Caption = 'fUDialog'
-  ClientHeight = 165
-  ClientWidth = 410
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
-  KeyPreview = True
-  OldCreateOrder = False
-  Position = poMainFormCenter
-  OnKeyPress = FormKeyPress
-  OnShow = FormShow
-  PixelsPerInch = 96
-  TextHeight = 13
-  object lblMsg: TLabel
-    Left = 8
-    Top = 8
-    Width = 394
-    Height = 103
-    AutoSize = False
-    Caption = 'lblMsg'
-    WordWrap = True
-  end
-  object cmdB1: TButton
-    Tag = 1
-    Left = 8
-    Top = 124
-    Width = 74
-    Height = 33
-    Caption = 'cmdB1'
-    TabOrder = 0
-    OnClick = cmdBClick
-  end
-  object cmdB2: TButton
-    Tag = 2
-    Left = 88
-    Top = 124
-    Width = 74
-    Height = 33
-    Caption = 'cmdB2'
-    TabOrder = 1
-    OnClick = cmdBClick
-  end
-  object cmdB3: TButton
-    Tag = 3
-    Left = 168
-    Top = 124
-    Width = 74
-    Height = 33
-    Caption = 'cmdB3'
-    TabOrder = 2
-    OnClick = cmdBClick
-  end
-  object cmdB4: TButton
-    Tag = 4
-    Left = 248
-    Top = 124
-    Width = 74
-    Height = 33
-    Caption = 'cmdB4'
-    TabOrder = 3
-    OnClick = cmdBClick
-  end
-  object cmdB5: TButton
-    Tag = 5
-    Left = 328
-    Top = 124
-    Width = 74
-    Height = 33
-    Caption = 'cmdB5'
-    TabOrder = 4
-    OnClick = cmdBClick
-  end
-end
diff --git a/UDialog.pas b/UDialog.pas
deleted file mode 100644
index 6063e7c..0000000
--- a/UDialog.pas
+++ /dev/null
@@ -1,74 +0,0 @@
-unit UDialog;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls;
-
-type
-  TfUDialog = class(TForm)
-    lblMsg: TLabel;
-    cmdB1: TButton;
-    cmdB2: TButton;
-    cmdB3: TButton;
-    cmdB4: TButton;
-    cmdB5: TButton;
-    procedure cmdBClick(Sender: TObject);
-    procedure FormShow(Sender: TObject);
-    procedure FormKeyPress(Sender: TObject; var Key: Char);
-  private
-    { Private declarations }
-  public
-    sMsg, // message to display
-    sButtons: string; // buttons to display
-    iDlgResult: integer; // number of button pressed, 0 if form closed with X button
-  end;
-
-var
-  fUDialog: TfUDialog;
-
-implementation
-
-{$R *.dfm}
-
-uses StdPas;
-
-procedure TfUDialog.FormShow(Sender: TObject);
-var
-  sBtn: string;
-begin
-  lblMsg.Caption := sMsg;
-  sBtn := SplitStr(sButtons,';');
-  cmdB1.Visible := sBtn>'';
-  cmdB1.Caption := sBtn;
-  sBtn := SplitStr(sButtons,';');
-  cmdB2.Visible := sBtn>'';
-  cmdB2.Caption := sBtn;
-  sBtn := SplitStr(sButtons,';');
-  cmdB3.Visible := sBtn>'';
-  cmdB3.Caption := sBtn;
-  sBtn := SplitStr(sButtons,';');
-  cmdB4.Visible := sBtn>'';
-  cmdB4.Caption := sBtn;
-  sBtn := SplitStr(sButtons,';');
-  cmdB5.Visible := sBtn>'';
-  cmdB5.Caption := sBtn;
-  iDlgResult := 0;
-end;
-
-procedure TfUDialog.FormKeyPress(Sender: TObject; var Key: Char);
-begin
-  if Key=#27 then begin
-    iDlgResult := 0;
-    Close;
-  end;
-end;
-
-procedure TfUDialog.cmdBClick(Sender: TObject);
-begin
-  iDlgResult := (Sender as Tcontrol).Tag;
-  Close;
-end;
-
-end.