TTFIL pooldef.ttt

   1  $REQUIRE GETOPT.TTT
   2  $REQUIRE REPLACE.TTT
   3  $REQUIRE BG_DEF.TTT
   4  $REQUIRE JMD_DEF.TTT
   5  {MLGS??
   6  $REQUIRE REPLACE_MLG.TTT
   7  }
   8  #==============================================================================
   9  %*DEF(POOLFLAGS=F=SDEGLMFPUOXWZNBRCATR1234567;)
  10  # 1 - 7 Epoche
  11
  12  # A     Winter (f. e. Snowplow)
  13  # B     Night
  14  # C     Stadtverkehr/city traffic
  15  # D     Diesel
  16  # E     Elektrisch
  17  # F     Freight
  18  # G     Gleichstrom / andere Oberleitung
  19  # L     Niedrigere Oberleitung
  20  # M     Stromschiene
  21  # N     Narrow gauge/secondary line
  22  # O     Operation - not M=SIMPLE
  23  # P     Personenzug
  24  # R     Regional passenger train (stops at small stations)
  25  # S     Steam
  26  # T     Open door (stops behind the plattform)
  27  # U     Wendezug
  28  # W     Bahndienst (Work)
  29  # X     andere Oberleitung ( Landabhängig )
  30  # Z     Opaque
  31  #------------------------------------------------------------------------------
  32  {H?                     $POOL N=POOL_HUN;       %POOLFLAGS; AP2=M_ENV;  }
  33  {D&(E1|E2)?             $POOL N=POOL_GHIST;     %POOLFLAGS; AP2=DE_ENV; }
  34  {(D|BRD)&(E3|E4)?       $POOL N=POOL_BRD;       %POOLFLAGS; AP2=DE_ENV; }
  35  {D&(E5|E6)?             $POOL N=POOL_GER;       %POOLFLAGS; AP2=DE_ENV; }
  36  {(D|DDR)&(E3|E4)?       $POOL N=POOL_DDR;       %POOLFLAGS; AP2=DR_ENV; }
  37  {CH?                    $POOL N=POOL_CH;        %POOLFLAGS; AP2=CH_ENV; }
  38  {A?                     $POOL N=POOL_A;         %POOLFLAGS; AP2=A_ENV;  }
  39  {GB?                    $POOL N=POOL_GB;        %POOLFLAGS; AP2=GB_ENV; }
  40  {IE?                    $POOL N=POOL_IR;        %POOLFLAGS; AP2=IR_ENV; }
  41  {F?                     $POOL N=POOL_F;         %POOLFLAGS; AP2=F_ENV;  }
  42  {B?                     $POOL N=POOL_B;         %POOLFLAGS; AP2=B_ENV;  }
  43  {L?                     $POOL N=POOL_L;         %POOLFLAGS; AP2=L_ENV;  }
  44  {NL?                    $POOL N=POOL_NL;        %POOLFLAGS; AP2=NL_ENV; }
  45  {DK?                    $POOL N=POOL_DK;        %POOLFLAGS; AP2=DK_ENV; }
  46  {N?                     $POOL N=POOL_N;         %POOLFLAGS; AP2=N_ENV;  }
  47  {S?                     $POOL N=POOL_S;         %POOLFLAGS; AP2=S_ENV;  }
  48  {SF?                    $POOL N=POOL_SF;        %POOLFLAGS; AP2=FI_ENV; }
  49  {P?                     $POOL N=POOL_P;         %POOLFLAGS; AP2=P_ENV;  }
  50  {E?                     $POOL N=POOL_E;         %POOLFLAGS; AP2=E_ENV;  }
  51  {I?                     $POOL N=POOL_I;         %POOLFLAGS; AP2=I_ENV;  }
  52  {CSD|CS?                $POOL N=POOL_CS;        %POOLFLAGS; AP2=CS_ENV; }
  53  {SK?                    $POOL N=POOL_SK;        %POOLFLAGS; AP2=SK_ENV; }
  54  {PL?                    $POOL N=POOL_PL;        %POOLFLAGS; AP2=PL_ENV; }
  55  {RO?                    $POOL N=POOL_RO;        %POOLFLAGS; AP2=RO_ENV; }
  56  {SLO?                   $POOL N=POOL_SLO;       %POOLFLAGS; AP2=SLO_ENV;}
  57  {HR?                    $POOL N=POOL_HR;        %POOLFLAGS; AP2=HR_ENV; }
  58  {YU?                    $POOL N=POOL_YU;        %POOLFLAGS; AP2=YU_ENV; }
  59  {HSH?                   $POOL N=POOL_HSH;       %POOLFLAGS; AP2=YU_ENV; }
  60  {BG?                    $POOL N=POOL_BG;        %POOLFLAGS; AP2=BG_ENV; }
  61  {GR?                    $POOL N=POOL_GR;        %POOLFLAGS; AP2=GR_ENV; }
  62  {TR?                    $POOL N=POOL_TR;        %POOLFLAGS; AP2=TR_ENV; }
  63  {SU|RZD|UZ|BCH|EVR|LDZ|LG|GEO|AZ|KAZ|MD|UZB|ARM?
  64                          $POOL N=POOL_SU;        %POOLFLAGS; AP2=SU_ENV; }
  65  {USA|MEX|CAN?           $POOL N=POOL_USA;       %POOLFLAGS; AP2=US_ENV; }
  66  {J?                     $POOL N=POOL_JP;        %POOLFLAGS; AP2=J_ENV;  }
  67  {CN?                    $POOL N=POOL_CN;        %POOLFLAGS; AP2=CN_ENV; }
  68  {IND?                   $POOL N=POOL_IND;       %POOLFLAGS; AP2=IND_ENV; }
  69  {SA?                    $POOL N=POOL_SA;        %POOLFLAGS; AP2=SA_ENV; }
  70  {ASSD?                  $POOL N=POOL_OTH;       %POOLFLAGS; AP2=YU_ENV; }
  71  {AS?                    $POOL N=POOL_AS;        %POOLFLAGS; AP2=AS_ENV; }
  72  {AF?                    $POOL N=POOL_AF;        %POOLFLAGS; AP2=AF_ENV; }
  73  {NE?                    $POOL N=POOL_NE;        %POOLFLAGS; AP2=NE_ENV; }
  74  {AUS?                   $POOL N=POOL_AUS;       %POOLFLAGS; AP2=AUS_ENV;}
  75  {FAN?                   $POOL N=POOL_PHA;       %POOLFLAGS; AP2=YU_ENV; }
  76  #------------------------------------------------------------------------------
  77  $DEF Q_H=[POOL=POOL_HUN:#O#T]
  78  $DEF Q_D=[POOL=POOL_GHIST:#O#T]|[POOL=POOL_BRD:#O]|[POOL=POOL_DDR:#O#T]|[POOL=POOL_GER:#O#T]
  79  $DEF Q_CH=[POOL=POOL_CH:#O#T]
  80  $DEF Q_F=[POOL=POOL_F:#O#T]
  81  $DEF Q_A=[POOL=POOL_A:#O#T]
  82  $DEF Q_B=[POOL=POOL_B:#O#T]
  83  $DEF Q_L=[POOL=POOL_L:#O#T]
  84  $DEF Q_NL=[POOL=POOL_NL:#O#T]
  85  $DEF Q_N=[POOL=POOL_N:#O]|[POOL=POOL_S:#O]|[POOL=POOL_SF:#O#T]
  86  $DEF Q_I=[POOL=POOL_I:#O#T]
  87
  88  $DEF QP=Q_H|Q_D|Q_F|Q_NL
  89  $SET QP={H|BRD|DDR|F|NL?1?0}
  90
  91  $DEF QH=Q_D|Q_F|Q_B|Q_L|Q_I
  92  $SET QH={BRD|DDR|F|B|L|I?1?0}
  93
  94  $DEF QM=Q_CH|Q_A|Q_I
  95  $SET QM={CH|I?1?0}
  96
  97  $DEF QN=Q_N
  98  $SET QN={N|S|SF?1?0}
  99  #------------------------------------------------------------------------------
 100  %*DEF(ADDPOOL(N,E)=$ADDPOOL N=%N;; %POOLFLAGS; AP2=%E;;)
 101  %*DEF(ENDPOOL=$ENDPOOL)
 102  #------------------------------------------------------------------------------
 103  {(D|BRD)?
 104    $REQUIRE MLG_DE3B.TTT
 105    $REQUIRE MLG_DE4A.TTT
 106    $REQUIRE MLG_DE4B.TTT
 107    $REQUIRE MLG_DE5A.TTT
 108    $REQUIRE MLG_DE5B.TTT
 109    $REQUIRE MLG_DE6.TTT
 110    $REQUIRE MLG_DR9193.TTT
 111  }
 112  {CH?
 113    $REQUIRE MLG_CH45A.TTT
 114    $REQUIRE MLG_CH5B6.TTT
 115  }
 116  {A?
 117    $REQUIRE MLG_A.TTT
 118  }
 119  {F?
 120    $REQUIRE MLG_SNCF3B.TTT
 121    $REQUIRE MLG_SNCF4A.TTT
 122    $REQUIRE MLG_SNCF4B.TTT
 123    $REQUIRE MLG_SNCF5A.TTT
 124    $REQUIRE MLG_SNCF5B.TTT
 125    $REQUIRE MLG_SNCF6.TTT
 126    $REQUIRE MLG_FRVM.TTT
 127  }
 128  {L?
 129    $REQUIRE MLG_L.TTT
 130  }
 131  {B?
 132    $REQUIRE MLG_B.TTT
 133    $REQUIRE MLG_B3B.TTT
 134  }
 135  {NL?
 136    $REQUIRE MLG_NL.TTT
 137  }
 138  {DK?
 139    $REQUIRE MLG_DK.TTT
 140  }
 141  {I?
 142    $REQUIRE MLG_ITALY.TTT
 143  }
 144  {CSD|CS|SK?
 145    $REQUIRE MLG_CS.TTT
 146  }
 147
 148  {H?
 149    $REQUIRE JMD_HUNGARY.TTT
 150    $REQUIRE LB_HUNGARY.TTT
 151  }
 152  {D&(E1|E2)?
 153    $REQUIRE JMD_GHIST.TTT
 154    $REQUIRE LB_GHIST.TTT
 155  }
 156  {(D|BRD|DDR)&(E3|E4|E5|E6)?
 157    $REQUIRE JMD_BRD.TTT
 158    $REQUIRE LB_BRD.TTT
 159    $REQUIRE JMD_DDR.TTT
 160    $REQUIRE LB_DDR.TTT
 161  }
 162  {CH?
 163    $REQUIRE JMD_SWISS.TTT
 164    $REQUIRE LB_SWISS.TTT
 165  }
 166  {A?
 167    $REQUIRE JMD_AUSTRIA.TTT
 168    $REQUIRE LB_AUSTRIA.TTT
 169  }
 170  {GB?
 171    $REQUIRE JMD_BRITAIN.TTT
 172    $REQUIRE LB_BRITAIN.TTT
 173  }
 174  {F?
 175    $REQUIRE JMD_FRANCE.TTT
 176    $REQUIRE LB_FRANCE.TTT
 177  }
 178  {B|L|NL?
 179    $REQUIRE JMD_BENELUX.TTT
 180    $REQUIRE LB_BENELUX.TTT
 181  }
 182  {DK|N|S|SF?
 183    $REQUIRE JMD_EUNORD.TTT
 184    $REQUIRE LB_EUNORD.TTT
 185  }
 186  {P|E?
 187    $REQUIRE JMD_HISP.TTT
 188    $REQUIRE LB_HISP.TTT
 189  }
 190  {I?
 191    $REQUIRE JMD_ITALY.TTT
 192    $REQUIRE LB_ITALY.TTT
 193  }
 194  {CSD|CS|SK?
 195    $REQUIRE JMD_CS.TTT
 196    $REQUIRE LB_CS.TTT
 197  }
 198  {PL?
 199    $REQUIRE JMD_POLAND.TTT
 200    $REQUIRE LB_POLAND.TTT
 201  }
 202  {IE|RO|SLO|HR|YU|BG|GR|HSH|TR|ASSD?
 203    $REQUIRE JMD_EUOTHER.TTT
 204    $REQUIRE LB_EUOTHER.TTT
 205  }
 206  {SU|RZD|UZ|BCH|EVR|LDZ|LG|GEO|AZ|KAZ|MD|ARM?
 207    $REQUIRE JMD_SU.TTT
 208    $REQUIRE LB_SU.TTT
 209  }
 210  {USA?
 211    $REQUIRE JMD_USA.TTT
 212    $REQUIRE LB_USA.TTT
 213  }
 214  {J|CN|IND?
 215    $REQUIRE JMD_ASIA.TTT
 216  }
 217  {AUS|SA?
 218    $REQUIRE JMD_OTHER.TTT
 219  }
 220  {J|CN|SA|USA|AS|AF|NE?
 221    $REQUIRE LB_OTHER.TTT
 222  }
 223  {FAN?
 224    $REQUIRE LB_PHA.TTT
 225  }
 226  {CH|E|YU|BG|ASSD|SA|F|SU|CN|AS|AF?
 227    $REQUIRE ZSZ_OTHPOOL.TTT
 228  }
 229  {J?
 230    $REQUIRE ZSZ_JAPAN.TTT
 231  }
 232
 233  {%FILEX(MM_OWN.ttt)?
 234    $REQUIRE MM_OWN.TTT
 235  }
 236