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