TTFIL bg_def.ttt
1 # { [ (
2 ###############################################################################
3 # ##
4 # Backgrounds ##
5 # ##
6 ###############################################################################
7
8 #==============================================================================
9 #
10 # Timetable modifier
11 #
12 #==============================================================================
13
14 $DEF STMOD=$FLG(P,($FLG(S,[C-=[!C]]),[M=STOP][P=*50]))
15 $DEF STRMOD=$FLG(R,($FLG(S,[C-=[!C]]),[M=STOP][P=*50]))
16
17 #==============================================================================
18 #
19 # Sky
20 #
21 #==============================================================================
22
23 # Drawn background - hills and sky
24 $DEF SKYP = &\
25 [BG-=BCKGRD_01:..,,<=>,440,1410;]| &\
26 [BG-=BCKGRD_04:..,,<=>;]| &\
27 [BG-=BCKGRD_05:..,,<=>,160,470;]| &\
28 [BG-=BCKGRD_06:..,,<=>,732,1480;]| &\
29 [BG-=BCKGRD_10:..,,<=>,0,1394;]| &\
30 [BG-=BCKGRD_15:..,,<=>,598,1101;]| &\
31 [BG-=BCKGRD_18:..,,<=>,272,1086;]| &\
32 [BG-=BCKGRD_23:..,,<=>,843,1379;]| &\
33 [BG-=BCKGRD_31:..;]| &\
34 [BG-=BCKGRD_32:..,,<=>,200,1182;]| &\
35 [BG-=BCKGRD_33:..,,<=>,99,1391;]| &\
36 [BG-=BCKGRD_35:..,,#;]| &\
37 [BG-=BCKGRD_36:..,,<=>,0,765;]| &\
38 [BG-=BCKGRD_37:..,,<=>,569,1360;]
39
40 # %*DEFINE(SKYDEF(N,Y)=
41 # $DEF %N;=([BGC=(180,210,234)],[BG-=SKY(55|114|115|122|138|154|171|176|177|179):,%Y;;]) |
42 # ([BGC=(157,193,229)],[BG-=CLOUD(59|60|61|62|63|64|65|66|67|68|69|70):,%Y;;])
43 # )
44 # %SKYDEF(SKYC,200)
45 # %SKYDEF(SKYS,20)
46 # %SKYDEF(SKYD,-100)
47
48 $DEF SKYMIX1=[WMIXF:, &\
49 CLOUD59, &\
50 CLOUD60, &\
51 CLOUD62, &\
52 CLOUD63, &\
53 CLOUD64, &\
54 CLOUD65, &\
55 CLOUD66, &\
56 CLOUD67, &\
57 CLOUD68, &\
58 CLOUD69, &\
59 CLOUD70]
60 $DEF BGC1=[BGC=(157,193,229)]
61
62 $DEF SKYMIX2=[WMIXF:, &\
63 SKY54[CROPR:-20], &\
64 SKY55[CROPR:-20], &\
65 SKY114[CROPL:-20], &\
66 SKY115[CROPL:-20], &\
67 SKY122[CROPR:-20], &\
68 SKY138[CROPR:-20], &\
69 SKY154[CROPR:-20], &\
70 SKY171[CROPL:-20], &\
71 SKY176[CROPR:-20], &\
72 SKY177[CROPR:-20], &\
73 SKY179[CROPR:-20]]
74
75 $DEF BGC2=[BGC=(175,210,232)]
76
77 $DEF SKYM=([BG-=SKYMIX1:..,$1,0;]$IF($1>0,[BG-=100[B:0,0,,$1,(157,193,229)]:..;]))| \
78 ([BG-=SKYMIX2:..,$1,0;]$IF($1>0,[BG-=100[B:0,0,,$1,(175,210,232)]:..;]))
79
80 $DEF SKYD=([BG-=SKY01:..,$1,0;]$IF($1>0,[BG-=100[B:0,0,,$1,(132,148,181)]:..;]))| \
81 ([BG-=SKY02:..,$1,0;]$IF($1>0,[BG-=100[B:0,0,,$1,(191,220,247)]:..;]))
82
83 $DEF SKY130=[BG-=SKYB02:..;]
84 $DEF SKY300=$SKYD(0)
85 $DEF SKY400=$SKYM(0)
86
87 $DEF SKY=$IF($BGUP<=130,(SKY130|SKY300|SKY400),$IF($BGUP<=300,(SKY300|SKY400),SKY400))
88
89 #==============================================================================
90 #
91 # Track
92 #
93 #==============================================================================
94
95 $DEF BLBK=[W=X],[BG<=100[B:0,0,100,20,#000]:..,^0;]
96
97 # $DEF EMB_BK=[WR=X][BG<=100[B:0,0,100,20,#000]:..,^0;]
98 # $DEF EMB_WD=[WR=X][BG+=EMB(3|4|5|6)|NL_BRIDGE0(2A|2G|3A|3C):..,^0;]
99
100 # $DEF RAIL_GO=[BG+=TRBED(50|37|40):..,^0;]
101 # $DEF RAIL_GS=[BG+=TRBED(3|26|38|24|32|49|15|25|43|22|13|1|8):..,^0;]
102
103 $DEF TRACK=[BG+=EMB(3|4)|NL_BRIDGE03(A|C):..,^0,#; \
104 TRBED(1|5|6|7|8|11|12|13|15|17|19|20|22|24|25|28|31):..,^0;][WR=[W=X]]
105
106 # Bahndamm Erde-Schotter
107 $DEF TRACKFGBS=EMB14|EMB13|EMB15|EMB01
108 $DEF EMBS=[BG+=(EMB14|EMB13|EMB15|EMB01):..,^0;]
109 $DEF EMBSF=[FG+=(EMB14|EMB13|EMB15|EMB01):..,^0;]
110
111 # Gleis ohne Schotter
112 $DEF TRACKFGGO=TRBED(50|37|40)
113 $DEF TRKGO=[W=X],[BG+=TRBED(50|37|40):..,^0;]
114
115 # Gleis mit Schotter ohne Damm
116 $DEF TRKDB1=[BG+=TRBED(25|45):..,^0;]
117 $DEF TRKDB1F=[FG+=TRBED(25|45):..,^0;]
118 $DEF TRACKFGGS=TRBED(49|15|25|43|22|13|1|8)
119 $DEF TRKGS=[BG+=TRBED(49|15|25|43|22|13|1|8):..,^0;]
120 $DEF TRKDB=BLBK,TRKDB1
121
122 # Gleis mit Schotter Damm Schotter
123 $DEF TRACKFGDB=TRBED45|TRBED25
124 $DEF TRKES=EMBS,TRKDB1
125 $DEF TRKGSD=EMBS,TRKGS
126 $DEF TRKESF=EMBSF,TRKDB1F
127 $DEF TRKST=[BG+=TRBED25:..,^0;]
128
129 # Gleis mit Schotter Damm Wiese
130 $DEF TRACKFGDW=TRBED(39|11|42_BUILDPROFILE|47|7)
131 $DEF TRKDW=[BG+=TRBED(39|11|42|47|7):..,^0;]
132
133 # Gleis mit Schotter Damm Wiese hell
134 $DEF TRACKFGDH=TRBED(51|12|31)
135 $DEF TRKDH=[BG+=TRBED(51|12|31):..,^0;]
136 $DEF TRKDHB=[BG+=EMB7:..,^0;TRBED(51|12|31):..,^0;]
137 $DEF TRKGR=[BG+=TRBED(7|28|31):..,^0;]
138
139 # Gleis mit Schotter Damm Schnee
140 $DEF TRACKFGDS=TRBED(41|48)
141 $DEF TRKDS=[BG+=TRBED(41|48):..,^0;]
142
143 # Bahndamm Wiese dunkel
144 $DEF TRACKFGWD=EMB(3|4|5|6)|NL_BRIDGE0(2A|2G|3A|3C)
145 $DEF TRKWD=[BG+=EMB(3|4|5|6)|NL_BRIDGE0(2A|2G|3A|3C):..,^0;]
146
147 # Bahndamm Wiese hell
148 $DEF TRACKFGWH=EMB7
149
150 # Bahndamm
151
152 $DEF EMBG=[BG+=EMB(3|4|5|6|7|10|12A|12B):..,^-5;]
153
154 # Gleis mit Schotter, ohne Bahndamm
155 $DEF TRKND=[BG+=(TRBED22|TGIF_TRBED3|TGIF_TRBED4|TRBED14|TRBED20|TRBED43|TRBED44|TRBED10|TGIF_TRBED12| \
156 TRBED22|TGIF_TRBED11|TGIF_TRBED6|TRBED5|TRBED1|TRBED8|TGIF_TRBED13):..,^0;]
157
158 # Gleis mit Schotter und Bahndamm, hoch
159 $DEF TRKHI=[BG+=TRBED(11|42|42_BUILDPROFILE|51|47|7|12|31):..,^0;]
160
161 # Gleis mit Schotter, niedrig
162 $DEF TRKLO=[BG+=(2:TRBED(1|5|8|13|14|22|38|43|44|45)|TGIF_TRBED(1|3|4|6|11|12|13)):..,^0;]
163
164 #==============================================================================
165 #
166 # Catenary
167 #
168 #==============================================================================
169
170 $DEF WX=[W=X]
171
172 $DEF M_CAT1B=[BG<=;M_BB,M_VEZ:..,#-58,#;]
173 $DEF M_CAT1F=[FG>=;M_BF,M_VEZF:..,#-64,#;]
174 $DEF M_CAT2B=[BG<=;M_VB,M_VEZ:..,#-58,#;]
175 $DEF M_CAT2F=[FG>=;M_VF,M_VEZF:..,#-64,#;]
176 $DEF M_CAT3B=[BG<=;M_BDB,M_VEZ:..,#-58,#;]
177 $DEF M_CAT3F=[FG>=;M_BDF,M_VEZF:..,#-64,#;]
178 $DEF M_CAT4B=[BG<=;M_VDB,M_VEZ:..,#-58,#;]
179 $DEF M_CAT4F=[FG>=;M_VDF,M_VEZF:..,#-64,#;]
180 $DEF M_CAT5B=[BG<=;M_VKB[M],M_VEZ,M_VDB,M_VEZ,M_VKB:..,#-58,#,(M_VB,M_VEZ),(M_VEZ,M_VB);]
181 $DEF M_CAT5F=[FG>=;M_VKF[M],M_VEZF,M_VDF,M_VEZF,M_VKF:..,#-64,#,(M_VF,M_VEZF),(M_VEZF,M_VF);]
182 $DEF M_CAT6B=[BG<=;M_VKB[M],M_VEZ,M_VDB,M_VEZ,M_VDB,M_VFB:..,#-58,#,(M_VB,M_VEZ),(M_VEZ,M_VB);]
183 $DEF M_CAT6F=[FG>=;M_VKF[M],M_VEZF,M_VDF,M_VEZF,M_VDF,M_VFF:..,#-64,#,(M_VF,M_VEZF),(M_VEZF,M_VF);]
184 $DEF M_CAT7B=[BG<=;M_VFB[M],M_VDB,M_VEZ,M_VDB,M_VEZ,M_VKB:..,#-58,#,(M_VB,M_VEZ),(M_VEZ,M_VB);]
185 $DEF M_CAT7F=[FG>=;M_VFF[M],M_VDF,M_VEZF,M_VDF,M_VEZF,M_VKF:..,#-64,#,(M_VF,M_VEZF),(M_VEZF,M_VF);]
186 $DEF M_CAT=M_CAT(1|2|3|4|5|6|7)F
187 $DEF M_CATB=M_CAT(1|2|3|4|5|6|7)(F|B)
188 $DEF CATHU= &\
189 [WE=M_CAT,WX] &\
190 [WR=WX]
191
192 $DEF DRG_CAT1=[FG>=;FL_INTERURB70_M1,FL_INTERURB70_F1:..,#-74,#;]
193 $DEF DRG_CAT2=[FG>=;FL_DRG_F:..,#-62,#;]
194 $DEF KPEV_CAT16KV=[BG<=FL_KPEV:..,#-62,#;]
195 $DEF KPEV_CATTRI=[BG<=FL_3PHB[BC:-40,0],40*FL_3PHA[BC:-40,0]:..,0,#;]
196 $DEF DB_3RAIL=[FG>=;SBERLIN_3FG:..,-2,#;]
197 $DEF DB_3RAILH=[FG>=;SHAMBURG_3FG:..,-2,#;]
198 $DEF CATDRG= &\
199 [WE=$FLG(G,DRG_CAT1,($FLG(1,KPEV_CAT16KV,($FLG(2,DRG_CAT2,$FLG(X,KPEV_CATTRI,DRG_CAT1)))))),WX] &\
200 [WM=$FLG(X,DB_3RAILH,DB_3RAIL),WX] &\
201 [WR=WX] &\
202 [WT=DRG_CAT1,WX]
203
204 $DEF D_CAT=[FG>=;FL_DB_M(4:1F5|2_5),FL_DB_F5:..,#-63,#;]
205 $DEF D_CATB=[BG<=;FL_DB_M(4:1|2),FL_DB_F:..,#-58,#;]
206 $DEF DB_CAT=[BG<=;FL_DB_F,FL_DB_M(4:1|2):..,#-58,#;]
207 $DEF DB_NBS1=[BG<=;FL_DB_NBS1:..,#-65,#;]
208 $DEF DB_NBS2=[BG<=;FL_DB_NBS2:..,#-65,#;]
209 $DEF DB_GCAT=[FG>=;FL_INTERURB70_M1,FL_INTERURB70_F1:..,#-74,#;]
210 $DEF DR_CAT=[FG>=;FL_DR:..,#-62,#;]
211 $DEF DR_CATB=[BG<=;FL_DR_B:..,#-62,#;]
212 $DEF CATDB= &\
213 [WE=$FLG(G,DB_GCAT,$FLG(3,D_CAT,$FLG(X,DB_NBS(2|1),(1:DR_CAT|3:D_CAT)))),WX] &\
214 [WL=$FLG(G,DB_GCAT,DB_CAT),WX] &\
215 [WM=$FLG(X,DB_3RAILH,DB_3RAIL),WX] &\
216 [WR=WX] &\
217 [WT=$FLG(G,DB_GCAT,DB_CAT),WX]
218 $DEF CATDE=$FLG(1,CATDRG,$FLG(2,CATDRG,CATDB))
219 $DEF CATDR= &\
220 [WE=$FLG(G,DB_GCAT,DR_CAT),WX] &\
221 [WM=$FLG(X,DB_3RAILH,DB_3RAIL),WX] &\
222 [WR=WX]
223
224 $DEF SBB_GCAT=[FG>=;FL_INTERURB70_M1,FL_INTERURB70_F1:..,#-74,#;]
225 $DEF SBB_CAT1=[FG>=;FL_SBB_M1,(3:FL_SBB_F|FL_SBB_F2):..,#-62,#;]
226 $DEF SBB_CAT2=[FG>=; \
227 FL_SBB_M2,FL_SBB_F2,2*(FL_SBB_M1,FL_SBB_F2),#FL_SBB_M2:..,#-62,#,(FL_SBB_M1,FL_SBB_F), \
228 (FL_SBB_F,FL_SBB_M1);]
229 $DEF SBB_CAT3=[FG>=;FL_SBB1_M1,FL_SBB_F2:..,#-62,#;]
230 $DEF SBB_CAT4=[FG>=;FL_SBBR_M(1|2),FL_SBB_F:..,#-62,#;]
231 $DEF SBB_CAT5=[FG>=;FL_SBB_F(|2),FL_SBB(1_M1|R_M1|R_M2|_M1):..,#-62,#;]
232 $DEF SBB_CAT=SBB_CAT(1|2|3|4|5)
233 $DEF CATCH= &\
234 [WE=$FLG(G,SBB_GCAT,SBB_CAT),WX] &\
235 [WL=$FLG(G,SBB_GCAT,SBB_CAT),WX] &\
236 [WR=WX]
237
238 $DEF A_CAT=[FG>=;FL_OBB:..,#-62,#;]
239 $DEF A_6CAT=[FG>=;(3:FL_OBB6|1:FL_OBB):..,#-62,#;]
240 $DEF A_NCAT=[FG>=;FL_OBB_ASPMA,FL_OBB_MA2,4*(FL_OBB_MA2,FL_OBB_MA2):..,#-62;]
241 $DEF CATOS= &\
242 [WE=$FLG(N,A_NCAT,$FLG(G,SBB_GCAT,$FLG(6,A_6CAT,$FLG(5,A_6CAT,A_CAT)))),WX] &\
243 [WL=$FLG(N,A_NCAT,$FLG(G,SBB_GCAT,A_CAT)),WX] &\
244 [WR=WX]
245
246 $DEF GB_CAT=[FG>=;FL_BRH2,FL_BRH3,3*FL_BRH1:..,#-63,#;]
247 $DEF GB_LCAT=[FG>=;FL_BRH2,FL_BRH3,3*FL_BRH1:..,#-63,#;]
248 $DEF GB_3RAIL=[FG>=;PLM_3RBG_M:..,-1;]
249 $DEF CATGB=[WE=GB_CAT,WX][WL=GB_LCAT,WX][WM=GB_3RAIL,WX][WR=WX]
250
251 $DEF F_HCAT=[FG>=;FL_MAURIENNE_M1,FL_SBB_F2:..,-4;]
252 $DEF F_GCAT1=[BG<=;FL_SNCFC_M1,FL_SNCFC_F:..,#-62;]
253 $DEF F_GCAT2=[BG<=;FL_SNCFC_M1,FL_SNCFC_F:..,#-62,#,(FL_SNCFC_M1,FL_SNCFC_F);]
254 $DEF F_GCAT10=[BG<=;FL_SNCF_1500V3BG:..,0,#;]
255 $DEF F_GCAT12=[BG<=;FL_SNCF1500V_1BG:..,-5,#;]
256 $DEF F_GCAT3=[BG<=; \
257 FL_SNCFC_M1,FL_SNCFC_F,FL_SNCFC_M1,FL_SNCFC_F,FL_SNCFC_M1:..,#-62,#,(FL_SNCFC_M1,FL_SNCFC_F), \
258 (FL_SNCFC_F,FL_SNCFC_M1);]
259 $DEF F_GCAT4=[FG>=;FL_SNCF_MIDI1,2*FL_SNCF_MIDI2:..,#-63,#;]
260 $DEF F_GCAT5=[FG>=;FL_SNCF_MIDI3,2*FL_SNCF_MIDI4:..,#-63,#;]
261 $DEF F_GCAT6=[FG>=;FL_SNCF_MIDI5,2*FL_SNCF_MIDI6:..,#-63,#;]
262 $DEF F_GCAT7=[FG>=;FL_SNCF_1500V1:..,-6,#;]
263 $DEF F_GCAT8=[FG>=;FL_SNCF_1500V2:..,-6,#;]
264 $DEF F_GCAT9=[FG>=;FL_SNCF_1500V3:..,-6,#;]
265 $DEF F_GCAT11=[FG>=;FL_SNCF_MIDI7:..,-6,#;]
266
267 $DEF F_GCAT=F_GCAT(4|5|6|7|8|9)
268 $DEF F_GCATBG=F_GCAT(1|2|3|10|12)
269 $DEF F_CAT1=[FG>=;FL_SBB_F,FL_SNCFA_M1:..,-4,#;]
270 $DEF F_CAT2=[FG>=;FL_SNCF_25KV1:..,-6,#;]
271 $DEF F_CAT=F_CAT(2|1)
272 $DEF F_CATBG=[BG<=;FL_SNCF25KV_1BG:..,-5,#;]
273
274 $DEF F_3RAIL=[FG>=;PLM_3RBG_M:..,-1;]
275 $DEF F_N3RAIL=[FG>=;SNCF_3eRail_FG:..,-2,#;]
276 $DEF CATFR= &\
277 [WE=$FLG(2,F_HCAT,$FLG(G,$FLG(3,F_GCAT7,($FLG(X,F_GCAT11,F_GCAT))),F_CAT)),WX] &\
278 [WL=$FLG(G,($FLG(X,F_GCAT10,F_GCAT)),F_CAT),WX] &\
279 [WM=$FLG(N,F_N3RAIL,F_3RAIL),WX] &\
280 [WT=F_GCAT,WX] &\
281 [WR=WX]
282
283 $DEF B_CATF1=[FG>=;FL_SNCB_F,FL_SNCFC_M1:..,-4,#;]
284 $DEF B_CATF2=[FG>=;FL_SNCB3KV_1:..,-5,#;]
285 $DEF B_CATF3=[FG>=;FL_SNCB3KV_2:..,-5,#;]
286 $DEF B_CATB1=[BG<=;FL_SNCB3KV_2BG:..,-5,#;]
287 $DEF B_CAT=B_CATF(3|2|1)
288 $DEF CATBE= &\
289 [WE=B_CAT,WX] &\
290 [WR=WX]
291
292 $DEF L_CAT=[FG>=;FL_SBB_F,FL_SNCFA_M1:..,-4,#;]
293 $DEF CATLU= &\
294 [WE=L_CAT,WX] &\
295 [WR=WX]
296
297 $DEF NL_CAT1=[FG>=;FL_NS1:..,-6,#;]
298 $DEF NL_CAT2=[FG>=;FL_NS2:..,-6,#;]
299 $DEF NL_CAT3=[FG>=;FL_NS3:..,-6,#;]
300 $DEF NL_CAT4=[FG>=;FL_NS_BETUWE:..,-6,#;]
301
302 $DEF CATNL= &\
303 [WE=$FLG(6,NL_CAT(1|2|3|4),$FLG(5,NL_CAT(1|2|3|4),NL_CAT(1|2|3))),WX] &\
304 [WR=WX]
305
306 $DEF DK_CAT=[FG>=;FL_SNCF_25KV1:..,-6,#;]
307 $DEF DK_CATG=[FG>=;FL_SBB_F,FL_DSB_M1:..,-5,#;]
308 $DEF CATDK= &\
309 [WE=$FLG(G,DK_CATG,DK_CAT),WX] &\
310 [WR=WX]
311
312 $DEF N_CAT=[FG>=;FL_SJ_M1,FL_SBB_F:..,-4,#;]
313 $DEF CATNO= &\
314 [WE=N_CAT,WX] &\
315 [WR=WX]
316
317 $DEF S_CAT=[FG>=;FL_SJ_M1,FL_SBB_F:..,-4,#;]
318 $DEF CATSE= &\
319 [WE=S_CAT,WX] &\
320 [WR=WX]
321
322 $DEF FI_CAT=[FG>=;FL_SNCF_MIDI6[SP:460-660,111]:..,#-63,#;]
323 $DEF CATFI=[VH=62] &\
324 [WE=FI_CAT,WX] &\
325 [WR=WX]
326
327 $DEF P_CAT=[BG<=;FL_RF_UNIF:..,-25,#;]
328 $DEF CATPO= &\
329 [WE=P_CAT,WX] &\
330 [WR=WX]
331
332 $DEF E_CAT1=[FG>=;FL_RF_NORTE2:..,#-67,#;]
333 $DEF E_CAT2=[FG>=;FL_RF1:..,#-67,#;]
334 $DEF E_CAT3=[FG>=;(FL_RF_UNIF[B:29,81,3,20,#757575]):..,#-83,#;]
335 $DEF E_CAT4=[BG<=;FL_RF_UNIF:..,#-83,#;]
336 $DEF CATES= &\
337 [WE=$FLG(2,E_CAT2,$FLG(3,E_CAT(1|2),E_CAT3)),WX] &\
338 [WL=$FLG(2,E_CAT2,$FLG(3,E_CAT(1|2),E_CAT3)),WX] &\
339 [WR=WX]
340
341 $DEF I_CAT1=[FG>=;FL_FS_F,FL_FS_M(1|2|3|4|5),FL_FS_F,FL_FS_M(1|3|4):..,#-62,#;]
342 $DEF I_CAT2=[FG>=;FL_FS5C,FL_FS5B,2*(FL_FS5A,FL_FS5B),4*(FL_FS4A,FL_FS4B):..,#-62,#;]
343 $DEF I_CAT=I_CAT(1|2)
344 $DEF I_3PHCAT=[FG>=;PALO_TT:..,#-62,#;]
345 $DEF I_NCAT=[FG>=;FS_FS1_A,FS_FS1_B:..,#-73,#;]
346 $DEF I_3RAIL=[FG>=;SNCF_3eRail_FG:..,-3,#;]
347 $DEF I_CAT3=(FL_FS3_F,FL_FS3_M(8:1|2))
348 $DEF CATIT= &\
349 [WE=$FLG(N,I_NCAT,$FLG(X,I_3PHCAT,I_CAT)),WX] &\
350 [WL=$FLG(N,I_NCAT,$FLG(X,I_3PHCAT,I_CAT)),WX] &\
351 [WT=I_NCAT,WX] &\
352 [WM=I_3RAIL,WX] &\
353 [WR=WX]
354
355 $DEF CZ_CAT1=[FG>=;(8:FL_CZ1A[M]|FL_CZ1D[M]),FL_CZ1L,(8:FL_CZ1A[M]|FL_CZ1D[M]),FL_CZ1L:..,#-62,#;]
356 $DEF CZ_CAT2=[FG>=;(8:FL_CZ1B[M]|FL_CZ1E[M]),FL_CZ1L,(8:FL_CZ1B[M]|FL_CZ1E[M]),FL_CZ1L:..,#-62,#;]
357 $DEF CZ_CAT3=[FG>=; \
358 (8:FL_CZ1B[M]|FL_CZ1(E|F|G)[M]),FL_CZ1L,(8:FL_CZ1B[M]|FL_CZ1(E|F|G)[M]),FL_CZ1L:..,#-62,#;]
359 $DEF CZ_CAT4=[FG>=;FL_CZ1H[M],FL_CZ1L:..,#-62,#;]
360 $DEF CZ_CAT5=[FG>=;FL_CZ1H[M],FL_CZ1L,(4:FL_CZ1H[M]|FL_CZ1X),FL_CZ1L:..,#-62,#;]
361 $DEF CZ_CAT=CZ_CAT(1|2|3|4|5)
362 $DEF CZ_NCAT=[FG>=FL_INTERURB70_M1,FL_INTERURB70_F1:..,#-74,#;]
363 $DEF CATCS= &\
364 [WE=$FLG(N,CZ_NCAT,CZ_CAT),WX] &\
365 [WL=CZ_CAT,WX] &\
366 [WR=WX]
367
368 $DEF PL_CAT=M_CAT
369 $DEF CATPL= &\
370 [WE=PL_CAT,WX] &\
371 [WL=PL_CAT,WX] &\
372 [WR=WX]
373
374 $DEF RO_CAT=CZ_CAT
375 $DEF CATRO= &\
376 [WE=RO_CAT,WX] &\
377 [WR=WX]
378
379 $DEF SLO_CAT=CZ_CAT
380 $DEF CATSL= &\
381 [WE=SLO_CAT,WX] &\
382 [WR=WX]
383
384 $DEF HR_CAT=CZ_CAT
385 $DEF CATHR= &\
386 [WE=HR_CAT,WX] &\
387 [WR=WX]
388
389 $DEF YU_CAT=CZ_CAT
390 $DEF CATYU= &\
391 [WE=YU_CAT,WX] &\
392 [WL=YU_CAT,WX] &\
393 [WR=WX]
394
395 $DEF BG_CAT=CZ_CAT
396 $DEF CATBG= &\
397 [WE=BG_CAT,WX] &\
398 [WR=WX]
399
400 $DEF GR_CAT=M_CAT(1|2|3|4)F
401 $DEF CATGR= &\
402 [WE=GR_CAT,WX] &\
403 [WR=WX]
404
405 $DEF TR_CAT=M_CAT(1|2|3|4)F
406 $DEF CATTR= &\
407 [WE=TR_CAT,WX] &\
408 [WR=WX]
409
410 $DEF SU_CAT62=[FG>=; \
411 (538[O:FL_DRG_F,0,4][B:92,0,4,8,#757575][B:91,0,1,8,#858585][B:95,0,1,8,#656565])| \
412 (538[O:FL_DR,0,4][B:92,0,4,8,#757575][B:91,0,1,8,#858585][B:95,0,1,8,#656565]):..,#-62,#;]
413 $DEF SU_CAT58=[FG>=;FL_DRG_F|FL_DR:..,#-58,#;]
414 $DEF CATSU= &\
415 [VH=62] &\
416 [WE=$FLG(X,SU_CAT58,SU_CAT62),WX] &\
417 [WR=WX]
418
419 $DEF US_CAT1=[FG>=;FL_USA_1|MILW_CATENARY:..,#-67,#;]
420 $DEF US_CAT2=[FG>=;FL_INTERURB70_(M2,F1,M1,F1,M2[M],F1,M1,F1):..,#-74,#;]
421 $DEF US_CAT3=[FG>=;FL_DR:..,#-62,#;]
422 $DEF CATUS=[VH=70] &\
423 [WE=$FLG(6,US_CAT3,$FLG(5,US_CAT3,US_CAT1|US_CAT2)),WX] &\
424 [WL=US_CAT2,WX] &\
425 [WR=WX]
426
427 $DEF J_CAT1B=[BG<=;FL_J7:..,,#-51;]
428 $DEF J_CAT2=[FG>=;FL_J3F:..,#-56,#;]
429 $DEF J_CAT2B=[BG<=;FL_J3B:..,#-56,#;]
430 $DEF J_CAT3B=[BG<=;FL_J8:..,#-58,#;]
431 $DEF J_CAT4=[FG>=;FL_J1F:..,#-60,#;]
432 $DEF J_CAT=J_CAT(2|4)
433 $DEF J_CATB=J_CAT(1|2|3)B
434 $DEF J_TCAT1=[FG>=;FL_J4:..,#-55,#;]
435 $DEF J_CAT58A=[FG>=;FL_J1F:..,-2,#;]
436 $DEF J_CAT58B=[BG<=;FL_J8:..,0,#;]
437 $DEF J_CAT58=J_CAT58A
438 $DEF CATJP= &\
439 [WE=J_CAT58,WX] &\
440 [WL=J_CAT,WX] &\
441 [WT=J_TCAT1,WX] &\
442 [WR=WX]
443
444 $DEF CATAU= &\
445 [WE=GB_CAT,WX] &\
446 [WL=GB_LCAT,WX] &\
447 [WM=GB_3RAIL,WX] &\
448 [WR=WX]
449
450 $DEF CN_CAT1=[FG>=;FL_SBB_F,FL_SNCFA_M1:..,#-62,#;]
451 $DEF CN_CAT2=[FG>=;FL_J1F:..,#-60,#;]
452 $DEF CN_CAT=CN_CAT(3:1|2)
453 $DEF CATCN= &\
454 [WE=CN_CAT,WX] &\
455 [WL=CN_CAT,WX] &\
456 [WR=WX]
457
458 $DEF CATSA= &\
459 [VH=70] &\
460 [WE=$FLG(X,US_CAT2,US_CAT3),WX] &\
461 [WR=WX]
462
463 $DEF CATOTH= &\
464 [WE=M_CAT1F,WX] &\
465 [WL=M_CAT1F,WX] &\
466 [WR=WX]
467
468 $DEF CATENARY=[BG<=;FL_DB_F,(5:FL_DB_M1|1:FL_DB_M2):..,,#;]
469
470 $DEF SET_E=[SW=E]
471
472 #==============================================================================
473 #
474 # Forest, Vegetation
475 #
476 #==============================================================================
477
478 $DEF BG_BUSH_0_24=FOREST13A|FOREST13G|FOREST15A
479 $DEF BG_BUSH_24_0=FOREST13F|FOREST13I|FOREST14R|FOREST15N
480 $DEF BG_BUSH_24_24=FOREST13B|FOREST13C|FOREST13D|FOREST13E|FOREST13H|FOREST15F|FOREST15J
481 $DEF BG_BUSH_0_39=FOREST14A
482 $DEF BG_BUSH_39_39=FOREST14B|FOREST14C|FOREST14D|FOREST14G|FOREST14J|FOREST14N|FOREST14O|FOREST14P| \
483 FOREST15C|FOREST15D|FOREST15H
484 $DEF BG_BUSH_39_31=FOREST14E|FOREST14H|FOREST14K
485 $DEF BG_BUSH_31_39=FOREST14F|FOREST14I|FOREST14M
486 $DEF BG_BUSH_39_24=FOREST14Q|FOREST15E|FOREST15I|FOREST15M
487 $DEF BG_BUSH_24_39=FOREST15B|FOREST15G|FOREST15K
488
489 $DEF BG_FORESTB=[BG<=([WMIXF:,FOREST31(|[M]),FOREST32(|[M])]|[WMIXF:,FOREST11(|[M])]):..,0,#;]
490
491 $DEF BG_FOREST1=[BG<=[WMIXF:,FOREST21,FOREST22,FOREST23]:..,0,#;]
492 $DEF BG_FOREST3=[BG<=[WMIXF:, \
493 10:BG_BUSH_39_39|(BG_BUSH_39_24,1-3*BG_BUSH_24_24,BG_BUSH_24_39)|(BG_BUSH_39_31,BG_BUSH_31_39)]:.., \
494 0,#;]
495
496 $DEF BG_GREEN1=[BG<=[WMIXF:,GREEN3,GREEN4,GREEN5]:..,0,#;]
497
498 $DEF BG_FORESTP1=$HL162([BC:-0.18,.6])
499
500 $DEF TREE_SUMMER=TREE1|TREE3|TREE3A|TREE3B|TREE3C|TREE3D|TREE4|TREE4A|TREE4B|TREE4C|TREE4D|TREE4E| \
501 TREE5A|TREE5G|TREE5H|TREE21|TREE22|TREE23|TREE29|TREE111|TREE66|TREE40|TREE45A|TREE45|TREE46A| \
502 TREE46|TREE47|TREE49|TREE79|TREE80|TREE115|TREE83|TREE86|TREE89|TREE3C|TREE55|TREE56|TREE24| \
503 TREE57|TREE13|TREE97|TREE97A|TREE43|TREE52|TREE65|TREE11|TREE114
504 $DEF TREE_AUTUMN=TREE3F|TREE3G|TREE3H|TREE3I|TREE3J|TREE4F|TREE4G|TREE4H|TREE4I|TREE4J|TREE4K|TREE5B| \
505 TREE5C|TREE5D|TREE5E|TREE5F|TREE5I
506 $DEF TREE_WINTER=TREE3SN|TREE3SN2|TREE3SN3|TREE3SN4|TREE4SN|TREE4SN2|TREE4SN3|TREE4SN4|TREE4SN5| \
507 TREE5SN|TREE5SN2|TREE5SN3|TREE5SN4|TREE5SN5
508 $DEF PINE=(BOROVICE|TREE12|TREE60|TREE62|TREE63|TREE64|SMRK|TREE25|TREE26|TREE28|TREE29|TREE21|TREE22| \
509 TREE51|TREE110|TREE108|PINE1)(|[M])
510 $DEF ITREE=(TREE43|TREE44|TREE52|TREE53|TREE54|TREE15|TREE11|TREE7|TREE30|TREE31|TREE32|TREE33|TREE38| \
511 TREE94|TREE93|TREE92|EUCALYPT04|EUCALYPT07)(|[M])
512 $DEF TREE_COLD=(TREE8|TREE55|TREE56|TREE12|TREE60|TREE12|TREE91|TREE108|TREE109|TREE55|TREE56|BUSH17) \
513 (|[M])
514
515 $DEF TREESOUTH=TREE83|TREE98A|TREE75|PALM7T|PALM8|PALM9|PALM10|PINUS1|PALM12|PALM15|PALM7T|PALM22| \
516 PALM23|PALM24|PALM25|PALM27|PALM28|PALM29|PALM30|PALM31|PALM32|PALM33|PALM34|PALM35|PALM36|PALM37| \
517 TREE103W|TREE98C|TREE101W|TREE75|TREE57|TREE44|TREE54|TREE49
518
519 $DEF Vegetation=5:GRASS02|5:GRASS03|3:BUSH09|2:BUSH12|2:BUSH10|2:BUSH11|TREE6|TREE3C|TREE13|TREE43| \
520 TREE76|TREE11
521 $DEF TREES_SUMMER=(0-10*20),(10*(TREE_SUMMER,0-10*20))
522 $DEF TREES_AUTUMN=(0-10*20),(10*(TREE_AUTUMN,0-10*20))
523 $DEF TREES_WINTER=(0-10*20),(10*(TREE_WINTER,0-10*20))
524 $DEF TREES_COLD=(0-10*20),(10*(TREE_COLD,0-10*20))
525 $DEF TREES_SOUTH=(0-10*20),(10*(TREESOUTH,0-10*20))
526 $DEF GRAS_SUMMER=BG_GRAS1
527 $DEF GRAS_AUTUMN=BG_GRAS1
528 $DEF GRAS_WINTER=BG_GRAS1W
529
530 $DEF BGBASE=[BG-=SKY02:..; @@TRBED5:..,^0;]
531
532 $DEF BG_SUMMER=BGBASE,1:0|2:1|3:2|4:3|6:4|4:5|3:6|2:7|1:8*[BG<=TREES_SUMMER:*+0-400;], \
533 [BG<=GRAS_SUMMER:..,-12;]
534 $DEF BG_AUTUMN=BGBASE,1:0|2:1|3:2|4:3|6:4|4:5|3:6|2:7|1:8*[BG<=TREES_AUTUMN:*+0-400;], \
535 [BG<=GRAS_AUTUMN:..,-12;]
536 $DEF BG_WINTER=BGBASE,1:0|2:1|3:2|4:3|6:4|4:5|3:6|2:7|1:8*[BG<=TREES_WINTER:*+0-400;], \
537 [BG<=GRAS_WINTER:..,-12;],[C-=[!W]]
538
539 $DEF BG1=3:BG_SUMMER|1:BG_AUTUMN|1:BG_WINTER| \
540 1:(BG_WINTER,[TB-=1,[SNOW:S=20;V=40;I=3.5;B=-5],12],[TE+=,[STOP_SNOW:TE=15],15])
541
542 %*DEFINE(FOREST39LST=FOREST14B,FOREST14C,FOREST14D,FOREST14F,FOREST14G,FOREST14J,FOREST14N,FOREST14O, \
543 FOREST14P,FOREST15C,FOREST15D,FOREST15H)
544 %*DEFINE(FOREST39_30LST=FOREST14E,FOREST14H,FOREST14K,FOREST14Q)
545 %*DEFINE(FOREST30_30LST=FOREST14I,FOREST14M)
546 $DEF BG_FOREST01=[BG<=FOREST10:..,,<=>,21,1358;]
547 $DEF BG_FOREST02=[BG<=FOREST02:..,,<=>;]
548 $DEF BG_FOREST03=[BG<=FOREST03:..,,<=>,62,894;]
549
550 $DEF BG_FOREST04=[BG<=FOREST09:..,,<=>,144;]
551 $DEF BG_FOREST05=[BG<=FOREST17:..,,<=>;]
552 $DEF BG_FOREST06=[BG<=[WMIXM:..,%FOREST39LST];]
553 $DEF BG_FOREST07=[BG<=FOREST31:..,,<=>,11,610;]
554 $DEF BG_FOREST08=[BG<=FOREST32:..,,<=>;]
555
556 #==============================================================================
557 #
558 # Repeated pictures for wide backgrounds
559 #
560 #==============================================================================
561
562 $DEF AG87=[BG-=BDWH_AG_87A[BC:-40,40][CROPL:-20][CROPB:-$1]:..,,<=>,18,1828;]
563 $DEF AG134=[BG-=BDWH_AG_134M[BC:-30,40][CROPR:-20][CROPB:-$1]:..,,<=>,58,1710;]
564 $DEF AG158=[BG-=BDWH_AG_158M[BC:-30,40][CROPR:-20][CROPB:-$1]:..,,<=>,146,1803;]
565 $DEF CM183=[BG-=BDWH_CM_183M[BC:-30,40][CROPL:-20][CROPB:-$1]:..,,<=>,84,1673;]
566 $DEF HL180=[BG-=BDWH_HL_180M[BC:-40,40][CROPR:-20][CROPB:-$1]:..,,<=>,203,1845;]
567 # USA + general
568 $DEF HL981014=[BG-=BDWH_HL_981014A[BC:-40,40][CROPL:-20][CROPB:-$1], \
569 BDWH_HL_981014B[BC:-40,40][COL:114][CROPR:-20][CROPB:-$1]:..,,<=>,35,3722;]
570 $DEF MTS980510=[BG-=BDWH_MTS_980510[BC:-30,40][CROPR:-28][CROPB:-$1]:..,,<=>;]
571
572 # USA + general
573 $DEF AG79=[BG-=BDWH_AG_79A[BC:-30,40][CROPL:-20][CROPB:-$1], \
574 BDWH_AG_79B[BC:-30,40][COL:45][CROPB:-$1]:..,,<=>,152,3388;]
575 # USA
576 $DEF AG110=[BG-=BDWH_AG_110A[BC:-30,30][CROPL:-20][CROPB:-$1], \
577 BDWH_AG_110B[BC:-30,30][COL:73][CROPR:-20][CROPB:-$1]:..,,<=>,157,1391;]
578 # USA
579 $DEF AG159=[BG-=BDWH_AG_159A[BC:-40,30][CROPL:-20][CROPB:-$1], \
580 BDWH_AG_159B[BC:-40,30][COL:80][CROPR:-20][CROPB:-$1]:..,,<=>,603,1662;]
581 # USA + general
582 $DEF AG165=[BG-=BDWH_AG_165A[BC:-45,45][CROPL:-20][CROPB:-$1], \
583 BDWH_AG_165B[BC:-45,45][COL:71][CROPR:-20][CROPB:-$1]:..,,<=>,0,3116;]
584 # USA
585 $DEF AG186=[BG-=BDWH_AG_186A[BC:-40,30][CROPL:-20][CROPB:-$1], \
586 BDWH_AG_186B[BC:-40,30][COL:70][CROPR:-20][CROPB:-$1]:..,,<=>;]
587 # USA
588 $DEF AG197=[BG-=BDWH_AG_197A[BC:-40,30][CROPL:-20][CROPB:-$1], \
589 BDWH_AG_197B[BC:-40,30][COL:56][CROPR:-20][CROPB:-$1]:..,,<=>,323,3271;]
590 # USA + general
591 $DEF AG198=[BG-=BDWH_AG_198A[BC:-40,30][CROPL:-20][CROPB:-$1], \
592 BDWH_AG_198B[BC:-40,30][COL:56][CROPR:-20][CROPB:-$1]:..,,<=>,505,3064;]
593 # USA + general
594 $DEF HL133=[BG-=BDWH_HL_133A[BC:-40,30][CROPL:-20][CROPB:-$1], \
595 BDWH_HL_133B[BC:-40,30][COL:58][CROPR:-20][CROPB:-$1]:..,,<=>,790,3580;]
596 # USA + general
597 $DEF HL162=[BG-=BDWH_HL_162A[BC:-35,30][CROPL:-20]$1,BDWH_HL_162B[BC:-40,30][COL:72]$1, \
598 BDWH_HL_162C[BC:-35,30][COLF:73][CROPR:-20]$1:,-40;]
599 # USA Town
600 $DEF CM139=[BG-=BDWH_CM_139A[BC:-30,45][CROPL:-20][CROPB:-$1], \
601 BDWH_CM_139B[BC:-30,45][COL:82][CROPR:-20][CROPB:-$1];][DX=3620]
602
603 $DEF BGWP_01=[BG-=SXC1085695:..,0,<=>,14,4107;]
604 # Fehler $DEF BGWP_02=[BG-=BGM01[SM:1.7]:..,,<=>,15,2640;]
605 $DEF BGWP_02=[BG-=BGM01:..,,<=>,15,2660;]
606 $DEF BGWP_03=[BG-=BGM02:..,,<=>,225,2520;]
607 $DEF BGWP_04=[BG-=BGM03:..,,<=>,28,2616;]
608 $DEF BGWP_05=[BG-=BGM04:..,,<=>,,2555;]
609
610 $DEF BGWP_06=[BG-=BGM05:..,,<=>,59,3780;]
611
612 $DEF BGRU_01A=[BG-=RU01:..,-60,<=>,,1950;]
613 $DEF BGRU_01B=[BG-=RU01:..,-50,<=>,,1950;]
614 $DEF BGRU_01C=[BG-=RU01:..,-10,<=>,,1950;]
615 $DEF BGRU_01D=[BG-=RU01:..,0,<=>,,1950;]
616
617 $DEF STRIPEBG= &\
618 [BG-=BDWH_AG_79A:..,-70,<=>,194,1872;][BGC=(137,180,215)]| &\
619 [BG-=BDWH_AG_79B:,-50;][BGC=(137,180,215)]| &\
620 [BG-=BDWH_AG_87A:,-50;][BGC=(143,183,219)]| &\
621 [BG-=BDWH_AG_88A:,-50;][BGC=(139,179,215)]| &\
622 [BG-=BDWH_AG_134M:,-160;][BGC=(208,216,239)]| &\
623 [BG-=BDWH_AG_144A:,-50;][BGC=(208,216,239)]| &\
624 [BG-=BDWH_AG_158M:,-40;][BGC=(140,179,218)]| &\
625 [BG-=BDWH_AG_159A:,-80;][BGC=(208,216,239)]| &\
626 [BG-=BDWH_AG_165A:,-60;][BGC=(203,215,237)]| &\
627 [BG-=BDWH_AG_165B:,-60;][BGC=(203,215,237)]
628
629 $DEF BGVIA01=[BG-=CV_M04:..,0,<=>,22;]
630 $DEF BGVIA02=[BG-=CV_M01:..,0,<=>,,700;]
631
632 $DEF BGNORD_120=BGVIA01|BGVIA02
633 $DEF BGNORD_400=BGWP_01|BGWP_02|BGWP_03|BGWP_04|BGWP_05|BGRU_01(A|B|C|D)
634 $DEF BGNORD1=$IF($BGUP<=120,(BGNORD_120|BGNORD_400),BGNORD_400)
635
636 # Wald Laubbäume Deutschland-Mitteleuropa
637 $DEF STBGFO1=(SKY,BG_FOREST1,BG_GREEN1),TRKDH
638 $DEF STBGFO2=$AG79(100),TRKDH
639 $DEF STBGFO3=$AG165(50),TRKDH
640 $DEF STBGFO4=$HL133(20),TRKDH
641 $DEF STBGFO5=BGWP_06,TRKDH
642
643 $DEF STBGFO=STBGFO(3:1|1:2|1:3|1:4|2:5)
644
645 #==============================================================================
646 #
647 # Track
648 #
649 # Citytraffic
650 # Bus
651 $DEF ENV_WAYA=[FG=10[B:0,0,10,15,#555]:..,^0; STREET01:..,^0;][W=X]
652 # OBUS
653 $DEF ENV_WAYO=[FG=10[B:0,0,10,15,#555]:..,^0; STREET01:..,^0; FL_FS3:..,#-62,#;][W=X]
654 # Gleis ohne Oberleitung
655 $DEF ENV_WAY=[FG=10[B:0,0,10,15,#555]:..,^0; TRBED25:..,^0;][W=X]
656 # Tram alt
657 $DEF ENV_WAYT1=[FG=10[B:0,0,10,15,#555]:..,^0; TRBED25:..,^0;STREET01:..,^-4;FL_TRAM:..,#-62,#;][W=X]
658 $DEF GRP_WAYT1=[FG=10[B:0,0,10,15,#555]:..,^0; TRBED25:..,^0;STREET01:..,^-4; \
659 FL_TRAM:..,$EVAL($1-62),#;][W=X]
660 # Tram neu
661 $DEF ENV_WAYT2=[FG=10[B:0,0,10,15,#555]:..,^0; TRBED25:..,^0;STREET01:..,^-4;FL_FS3:..,#-62,#;][W=X]
662 # Stromschiene
663 $DEF ENV_WAYM=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;SNCF_3eRail_FG:..,-2,#;][W=X]
664 # Budapest Földalatti Vasút M1
665 $DEF ENV_WAYMF=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;100[B:0,32,,1,#444][B:0,33,1,2,#444]:..,0,#;][W=X]
666 # Paris Metro Gummireifen
667 $DEF ENV_WAYMG=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;SNCF_3eRail_FG:..,-2,#; \
668 SHAMBURG_3FG:..,-2,#;][W=X]
669 # Paris Metro Plattform
670 $DEF ENV_WAYMP=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;SNCF_3eRail_FG:..,-2,#; \
671 3*F_PLF1A:>,-1;][W=X]
672 # Paris Metro Gummireifen Plattform
673 $DEF ENV_WAYMGP=[FG=10[B:0,0,10,15,#585038]:..,^0; STREET01:..,^0;FL_FS3_F:..,-62,#; \
674 SHAMBURG_3FG:..,-2,#;3*F_PLF1A:>,-1;][W=X]
675 # Val-Metro
676 $DEF ENV_WAYV=[FG=10[B:0,0,10,15,#585038]:..,^0; STREET01:..,^0;FL_FS3_F:..,-62,#; \
677 SNCF_3eRail_FG:..,-2,#;][W=X]
678 # Stadtbahn
679 $DEF ENV_WAYT3=[FG=10[B:0,0,10,10,#555]:..,^0; TRBED25:..,^0;FL_SBB_F,FL_SNCFA_M1:..,#-62,#;][W=X]
680 # Stadtbahn Wien
681 $DEF ENV_WAYT4=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;FL_SNCF_MIDI5:..,#-63,#;][W=X]
682 # Holzmasten Hochkette
683 $DEF ENV_WAYT5=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0; \
684 FL_INTERURB70_M1,FL_INTERURB70_F1:..,#-74,#;][W=X]
685 # Wechselstrom
686 $DEF ENV_WAYT6=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;FL_DRG_F:..,#-62,#;][W=X]
687 # S-Bahn Kopenhagen
688 $DEF ENV_WAYT7=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;FL_DSB_M1,FL_SBB_F:..,#-62,#;][W=X]
689 # Metro Italien
690 $DEF ENV_WAYT8=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;FS_FS1_A,FS_FS1_B:..,#-73,#;][W=X]
691 # RER Paris
692 $DEF ENV_WAYT9=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;FL_SBB_F,FL_SNCFA_M1:..,-4,#;][W=X]
693 # S-Bahn Stockholm E
694 $DEF ENV_WAYT10=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;FL_SJ_M1,FL_SBB_F:..,-4,#;][W=X]
695 # S-Bahn Stockholm Diesel
696 $DEF ENV_WAYT11=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;][W=X]
697 # Metro Spanien
698 $DEF ENV_WAYTUN1=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;FL_FSTTQF[CROPT:-20]:..,#-58,#;][W=X]
699
700 # Translohr System
701 $DEF ENV_WAYTT=[FG=10[B:0,0,10,15,#585038]:..,^0; STREET01:..,^0;][BG+=BG_TRAM60_TRANSLOHR:..,#-60,#;] \
702 [W=X]
703 # Tram Paris T2
704 $DEF ENV_WAYTP2=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;STREET01:..,^-2;] \
705 [BG<=FL_TRAM_RATP_T2[BC:-15-15]:..,#-60,#;][W=X]
706 # Tram Paris T3
707 $DEF ENV_WAYTP3=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;STREET01:..,^-2;] \
708 [BG<=FL_TRAM_RATP_T3[BC:-15-15]:..,#-60,#;][W=X]
709 # Tram Paris T8
710 $DEF ENV_WAYTP8=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;STREET01:..,^-2;] \
711 [BG<=FL_TRAM_RATP_T8[BC:-15-15]:..,#-60,#;][W=X]
712 # Tram Rouen
713 $DEF ENV_WAYTR=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;STREET01:..,^-2;] \
714 [BG<=FL_TRAM_ROUEN[BC:-15-15]:..,#-60,#;][W=X]
715 # Tram France
716 $DEF ENV_WAYTF=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;STREET01:..,^-2;] \
717 [BG<=FL_TRAMFR:..,#-60,#;][W=X]
718 # Tram LILLE
719 $DEF ENV_WAYT12=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;STREET01:..,^-4; \
720 ,FG_TRAM60_LILLE1:..,#-60,#;][W=X]
721 # Tram LeMans
722 $DEF ENV_WAYT13=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;STREET01:..,^-4; \
723 ,FG_TRAM60_LEMANS1:..,#-60,#;][W=X]
724 # Tram LeMans
725 $DEF ENV_WAYT14=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;STREET01:..,^-4; \
726 ,FG_TRAM60_LEMANS1:..,#-60,#;][W=X]
727 # Tram Grass FG
728 $DEF ENV_WAYT15=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;STREET01:..,^-4; \
729 ,FG_TRAM60_GRASS:..,#-60,#;][W=X]
730 # Tram Grass BG
731 $DEF ENV_WAYT16=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;STREET01:..,^-2;] \
732 [BG<=BG_TRAM60_GRASS2:..,#-60,#;][W=X]
733 # Tram ohne Oberleitung eigener Bahnk rper
734 $DEF ENV_WAYT17=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;][W=X]
735
736 %*DEFINE(TITLE(TX)=TITLE;
737 M=NONE; AB=0; BL=30; IMGY=10; TX=%TX;; TXX=*50; TXS=20; Y=^; T=1000;)
738 %*DEFINE(FOOTER(TX)=TITLE;
739 M=NONE; AB=0; BL=15; IMGY=10; TX=%TX;; TXX=>95; TXS=12; Y=_; T=5000;)
740 #---------------------------------------------------------------------------------------------------------------------
741 #
742 # Platforms
743 #
744 #---------------------------------------------------------------------------------------------------------------------
745 # Pavements
746 %*DEF(PLPDEF(N,E,M)=$DEF %N=[BG<=$1[OMH:%E,%M,#%E,,0]:,^$2;]
747 )
748 %PLPDEF(PLP1,PLF_NL1A,PLF_NL1B)
749 %PLPDEF(PLP2,PLF_NL1A,PLF_NL2)
750 %PLPDEF(PLP3,PLF_NL6A,PLF_NL3)
751 %PLPDEF(PLP4,PLF_NL4A,PLF_NL4B)
752 %PLPDEF(PLP5,PLF_NL1A,PLF_NL5)
753 %PLPDEF(PLP6,PLF_NL6A,PLF_NL6)
754 $DEF PLP7=[BG<=$1[OMH:,PLF_NL7]:,^$2;]
755 %PLPDEF(PLP9,PLF_NL1A,PLF_NL9)
756
757 # Roofs
758
759 #---------------------------------------------------------------------------------------------------------------------
760 # House in a garden with fence
761
762 $DEF HG_J=0[AR:4-12*5, \
763 J_H001|J_H002|J_H003|J_H005|J_H006|J_H044|J_H045|J_H015|J_H016|J_H017|J_H018|J_H019|J_H020,5-12*5] \
764 ([OMH:,STACCION,,,0]|[OMH:,PALE5,,,0]|[OMH:,FENCE6,,,0]|[OMH:,FENCE8,,,0]|[OMH:,FENCE9A,,,0]| \
765 [OMH:,FENCE10C,,,0]|[OMH:,FENCE_13,,,0]|[OMH:,FENCE14,,,0]|[OMH:,FENCE15,,,0])
766
767 #---------------------------------------------------------------------------------------------------------------------
768 # Fence in whole width
769
770 $DEF BGFNC=PALE1|PALE5|STACCION|FENCE6|FENCE7|FENCE17B|FENCE8|FENCE9(A,4-6*B)|FENCE9(B,4-6*C)| \
771 FENCE9(E,5-7*F)|FENCE10(C,4*B)|FENCE16(A,8-10*B)|FENCE_13|FENCE15|WALL27A|WALL27B|WALL28|WALL29| \
772 WALL_UF1
773 #---------------------------------------------------------------------------------------------------------------------
774 # House blocks
775
776 $DEF HBLK_DDR1=$MIX(5-7,DDR_H01,DDR_H02,DDR_H03,DDR_H04,DDR_H05,DDR_H06,DDR_H07)
777 $DEF HBLK_M6A=$MIX(4-6,BERLIN_H001,BERLIN_H002,BERLIN_H003,BERLIN_H004,BERLIN_H005,BERLIN_H006)
778
779 # -- out of focus, only for the back row
780 $DEF HBLK_RU4A=$MIX(3-4,RU_H019A,RU_H020A,RU_H021,RU_H018_1)
781
782 # Industrial blocks
783
784 $DEF IBLK_01A=0[AR:D_FABRIK01(I,E,I,1-4*M,(I,E,I)|M,1-2*C,D,1-2*C,A,2-4@(N|B),A)] \
785 [OB:D_FABRIK01(H,G),<-102,0]
786 $DEF IBLK_01B=0[AR:D_FABRIK01(A,1-4*B,A)]
787 $DEF IBLK_01F=FENCE7|FENCE17(3-8*(A,B),A)
788
789 # Hintergrund Stadt
790
791 # Stadt Mitteleurpa moderne H user
792 $DEF BGCITYDM1=NL_THARDE_1,NL_OFFICE03A,NL_OFFICE01C,NL_OFFICE01_1,250,D_H062,D_H055,D_H041,D_H040, \
793 D_H033,D_H038_2,200,D_H038_2,250,D_MUNCHEN09A,D_MUNCHEN08,D_MUNCHEN07,D_MUNCHEN05C,D_MUNCHEN06, \
794 220,D_H038_3,280,D_H078_1,230,D_H038_1,200,S_BILTEMA,200,BLD_PEUGEOT(1|2|3),240,D_H064,200, \
795 D_BONN01A,D_H066B,D_H067,D_H071,D_H062,D_RADISSON,OFFICE01,220,D_H052,D_H064,D_BONN03A,D_H064A, \
796 D_H077,D_ROHBAU,200,
797 $DEF BGCITYDM2=D_H078_1,230,D_H038_1,200,NL_OFFICE03A,NL_OFFICE01C,NL_THARDE_1,NL_OFFICE01_1,250, \
798 D_H064,240,D_H038_2,250,D_H038_3,280,D_H062,D_H055,D_H038_2,200,D_H064,D_H066B,D_H067,D_H071, \
799 D_H064A,D_H033,D_BONN03A,D_H077,D_ROHBAU,D_H041,D_H040,D_H052,200,S_BILTEMA,200, \
800 BLD_PEUGEOT(1|2|3),220,D_RADISSON,OFFICE01,D_H062,D_BONN01A,220,D_MUNCHEN09A,D_MUNCHEN08, \
801 D_MUNCHEN07,D_MUNCHEN05C,D_MUNCHEN06,200,
802
803 # Stadt Mitteleurpa alte H user
804
805 # EP 1-2
806 $DEF BGCITYDA3=D_MUNCHEN03B,D_H063,NL_HAARLEM06_1,D_MUNCHEN03A,D_MUNCHEN01A,170,D_H063,180,D_H125_1, \
807 D_H081[O:(6*PLF_J2A),10,34][O:(6*PLF_J2A),127,34][SM:0.8],170,D_MUNCHEN01C,150,D_FABRIK01_3, \
808 D_FABRIK01_1,FENCE7,100,D_H146,D_H149,D_H147,D_H149,D_H148,D_H145,170,D_H080,NL_HAARLEM06F, \
809 DDR_H07,100,RU_H019A[COFL:3],RU_H021,RU_H020A,RU_H018_1[COFR:4],170,D_H143,D_H142,D_H141,D_H140, \
810 D_H139,220,CHURCH01A,200,HBLK_M6A,150
811 $DEF BGCITYDA4=D_MUNCHEN03B,D_H063,D_MUNCHEN03A,D_MUNCHEN01A,70, \
812 D_H081[O:(6*PLF_J2A),10,34][O:(6*PLF_J2A),127,34][SM:0.8],70,D_MUNCHEN01C,100,D_H141,D_H140, \
813 D_H142,D_H143,D_H139,165,D_H080,NL_HAARLEM06_1,NL_HAARLEM06F,DDR_H07,100,HBLK_M6A,200,D_H144, \
814 D_H145,D_H146,D_H147,D_H148,D_H149,165,CHURCH01B,220,RU_H020A,RU_H019A[COFL:3],RU_H018_1[COFR:4], \
815 RU_H021,150,D_FABRIK01_3,D_FABRIK01_1,FENCE7,150
816
817 # EP 3ff
818 $DEF BGCITYDA1=D_MUNCHEN03B,D_H063,D_H081[SM:0.8],190,D_H125_1,200,D_H144,D_H145,D_H146,D_H147,D_H148, \
819 D_H149,165,NL_HAARLEM06_1,D_MUNCHEN03A,D_MUNCHEN01A,70,70,D_MUNCHEN01C,150,D_FABRIK01_3, \
820 D_FABRIK01_1,FENCE7,100,D_H080,NL_HAARLEM06F,HBLK_DDR1,100,RU_H019A[COFL:3],RU_H021,RU_H020A, \
821 RU_H018_1[COFR:4],220,CHURCH01A,200,170,D_H143,D_H142,D_H141,D_H140,D_H139,220,CHURCH01A,200, \
822 HBLK_M6A,150,HBLK_M6A,150
823 $DEF BGCITYDA2=D_MUNCHEN03B,D_H063,D_MUNCHEN03A,D_MUNCHEN01A,120,D_MUNCHEN01C,D_MUNCHEN02B,100,D_H080, \
824 NL_HAARLEM06_1,NL_HAARLEM06F,HBLK_DDR1,D_H063,170,D_H125_1,145,D_H141,D_H140,D_H142,D_H143,D_H139, \
825 100,HBLK_M6A,200,D_H146,D_H149,D_H147,D_H149,D_H148,D_H145,170,CHURCH01B,220,RU_H020A, \
826 RU_H019A[COFL:3],RU_H018_1[COFR:4],RU_H021,150,D_FABRIK01_3,D_FABRIK01_1,FENCE7,150
827
828 # Stadt Deutschland Rheinland alte H user EP2
829 $DEF BGCITYDR1=D_MUNCHEN01A,D_MUNCHEN02B,D_MUNCHEN03A,40,NL_LIMBURG01_2,NL_LIMBURG01E,50, \
830 D_H081[O:(6*PLF_J2A),10,34][O:(6*PLF_J2A),127,34][SM:0.8],D_BWG009,50,D_H013,230,SHRUBBERY7,250, \
831 D_BWG004,320,NL_H050_1,269,NL_SPOORZICHT_1,10,CS_H001,D_BONN_POST1,90,FOREST24,150,D_FABRIK01_2, \
832 200,D_MONSCHAU06A,D_MONSCHAU07A,D_MONSCHAU01A,D_MONSCHAU04,510,H_PECS01,D_H035,AU_CLUNES_RSLB,210,
833 $DEF BGCITYDR2=D_MUNCHEN01A,D_MUNCHEN02B,D_MUNCHEN03A,40,NL_LIMBURG01_2,NL_LIMBURG01E,50,D_BWG009,50, \
834 D_H013,230,SHRUBBERY7, \
835 D_VOSSLOH2[COBL:126][COFR:96][O:D_VOSSLOH1,79,70][B:79,67,23,5,#CAc2A4][B:640,64,54,12,#CAc2A4] \
836 [B:640,127,54,12,#CAc2A4],#SHRUBBERY7,200,D_MONSCHAU06A,D_MONSCHAU07A,D_MONSCHAU01A,D_MONSCHAU04, \
837 510,H_PECS01,D_H035,AU_CLUNES_RSLB,210,
838
839 # Stadt Deutschland Rheinland alte + neue H user EP 3-4
840 $DEF BGCITYDR3=D_MONSCHAU06A,D_MONSCHAU07A,D_MONSCHAU01A,D_MONSCHAU04,510,H_PECS01,D_H035, \
841 AU_CLUNES_RSLB,210,D_BWG004,320,NL_H050_1,269,NL_SPOORZICHT_1,10,CS_H001,D_BONN_POST1,90,FOREST24, \
842 150,D_FABRIK01_2,200,D_MUNCHEN01A,D_MUNCHEN02B,D_MUNCHEN03A,40, \
843 D_H081[O:(6*PLF_J2A),10,34][O:(6*PLF_J2A),127,34][SM:0.8],NL_LIMBURG01_2,NL_LIMBURG01E,50, \
844 D_BWG009,50,D_H013,H_PECS06,D_MUNCHEN08,D_BONN03A,D_H033,D_MUNCHEN07,230,SHRUBBERY7,250,
845 $DEF BGCITYDR4=D_MONSCHAU06A,D_MONSCHAU07A,D_MONSCHAU01A,D_MONSCHAU04,510,H_PECS01,D_H035, \
846 AU_CLUNES_RSLB,210,D_BWG004,320,NL_H050_1,269,NL_SPOORZICHT_1,10,CS_H001,D_BONN_POST1,90,FOREST24, \
847 150,D_FABRIK01_2,200,D_MUNCHEN01A,D_MUNCHEN02B,D_MUNCHEN03A,40, \
848 D_H081[O:(6*PLF_J2A),10,34][O:(6*PLF_J2A),127,34][SM:0.8],NL_LIMBURG01_2,NL_LIMBURG01E,50, \
849 D_BWG009,50,D_H013,H_PECS06,D_MUNCHEN08,D_BONN03A,D_H033,D_MUNCHEN07,230,SHRUBBERY7, \
850 D_VOSSLOH2[COBL:126][COFR:96][O:D_VOSSLOH1,79,70][B:79,67,23,5,#CAc2A4][B:640,64,54,12,#CAc2A4] \
851 [B:640,127,54,12,#CAc2A4],#SHRUBBERY7,D_MUNCHEN06,D_MUNCHEN08,D_MUNCHEN07,D_BWG006,D_H049A, \
852 D_H048A,D_H065,300,
853
854 # Stadt Deutschland Rheinland alte + neue H user EP 5-6
855 $DEF BGCITYDR5=D_MONSCHAU06A,D_MONSCHAU07A,D_MONSCHAU01A,D_MONSCHAU04,510,H_PECS01,D_H035, \
856 AU_CLUNES_RSLB,210,D_BWG004,320,NL_H050_1,269,NL_SPOORZICHT_1,10,CS_H001,D_BONN_POST1,90,FOREST24, \
857 150,D_FABRIK01_2,200,D_MUNCHEN01A,D_MUNCHEN09A,D_BONN01A,D_H066B,D_H067,D_H071,220,D_H052, \
858 D_MUNCHEN02B,D_MUNCHEN03A,40,D_H081[SM:0.8],NL_LIMBURG01_2,NL_LIMBURG01E,50,D_BWG009,50,D_H013, \
859 H_PECS06,D_MUNCHEN08,D_BONN03A,D_H033,D_MUNCHEN07,230,SHRUBBERY7,250,
860 $DEF BGCITYDR6=D_MONSCHAU06A,D_MONSCHAU07A,D_MONSCHAU01A,D_MONSCHAU04,510,H_PECS01,D_H035, \
861 AU_CLUNES_RSLB,210,D_BWG004,320,NL_H050_1,269,NL_SPOORZICHT_1,10,CS_H001,D_BONN_POST1,90,FOREST24, \
862 150,D_FABRIK01_2,200,D_MUNCHEN01A,D_MUNCHEN02B,D_MUNCHEN03A,40,D_H081[SM:0.8],NL_LIMBURG01_2, \
863 NL_LIMBURG01E,50,D_BWG009,50,D_H013,H_PECS06,D_MUNCHEN08,D_BONN03A,D_H033,D_MUNCHEN07,230, \
864 SHRUBBERY7, \
865 D_VOSSLOH2[COBL:126][COFR:96][O:D_VOSSLOH1,79,70][B:79,67,23,5,#CAc2A4][B:640,64,54,12,#CAc2A4] \
866 [B:640,127,54,12,#CAc2A4],#SHRUBBERY7,D_MUNCHEN06,D_MUNCHEN08,D_MUNCHEN07,D_BWG006,D_H049A, \
867 D_H048A,D_H065,300,NL_THARDE_1,250,D_H062,D_H055,D_H038_2,200,250,D_MUNCHEN09A,D_H038_3,280, \
868 D_H078_1,200,BLD_PEUGEOT(1|2|3),240,D_H064,200,D_BONN01A,D_H066B,D_H067,D_H071,D_H062,D_RADISSON, \
869 220,D_H052,D_H064,D_BONN03A,D_H064A,D_H077,D_ROHBAU,200,
870
871 # Kleinstadt Alpen
872 $DEF BGCITYAUH=A_H006|A_H009|A_H004|A_H003|D_H076|A_H002B|CS_H002|A_H001|A_H002B|A_H005|A_H010|A_H008| \
873 A_H007
874 $DEF BGCITYAU3=50-100*1,BGCITYAUH,50-100*1,BGCITYAUH,50-100*1,BGCITYAUH,50-100*1,BGCITYAUH,50-100*1, \
875 BGCITYAUH,50-100*1,BGCITYAUH,50-100*1,BGCITYAUH,50-100*1,BGCITYAUH,50-100*1,BGCITYAUH,50-100*1, \
876 BGCITYAUH,50-100*1,BGCITYAUH,50-100*1,BGCITYAUH,50-100*1,BGCITYAUH,50-100*1,BGCITYAUH,50-100*1, \
877 BGCITYAUH,
878
879 # Stadt Österreich/Ungarn
880 # gro
881 $DEF BGCITYAU1=RU_HOTEL1,160,RU_H014[COFR:6],140,RU_H015,RU_H016A[COFL:12],170,H_PECS05,H_PECS04, \
882 H_PECS03_1,200,A_PALACE1,200,H_BUDAPEST02C,H_PECS05F,H_BUDAPEST02B,H_BUDAPEST01A,H_BUDAPEST01C,200,
883 $DEF BGCITYAU2=RU_H015,RU_H016A[COFL:12],170,H_PECS05,H_PECS04,H_PECS03_1,H_BUDAPEST02C,H_PECS05F, \
884 D_H145,D_H148,D_H144,200,A_PALACE1,200,A_H024,D_H034,RU_H018_1,180,RU_HOTEL1,160,RU_H014[COFR:6], \
885 140,
886
887 # Stadt Großbritannien
888 $DEF BGCITYGB1=GB_H002,GB_H003,GB_H004A,GB_H004B,GB_H005_1,GB_H001A,GB_H001B,GB_H001C,GB_H007,170, \
889 GB_H006A,190,GB_H006(C|B),200,
890 $DEF BGCITYGB2=GB_H005_1,GB_H001A,GB_H002,GB_H003,GB_H004A,GB_H004B,GB_H001B,GB_H001C,GB_H007,190, \
891 GB_H006(C|B),170,GB_H006A,200,
892
893 # Stadt Niederlande
894 $DEF BGCITYNL1=[WMIXF:,(100,#NL_HAARLEM03D[AR:NL_HAARLEM03H,NL_HAARLEM03I,NL_HAARLEM03A,NL_HAARLEM03C,\
895 NL_HAARLEM03J,NL_HAARLEM03A,NL_HAARLEM03F,NL_HAARLEM03G],100),NL_HAARLEM08A,NL_HAARLEM07,NL_HAARLEM09,NL_HAARLEM06_1, \
896 NL_HAARLEM05B,NL_HAARLEM06A,NL_HAARLEM06F,NL_HAARLEM04A,NL_HAARLEM10H, \
897 (180,NL_DELFZIJL_CHURCH2,220),NL_HAARLEM13A,NL_DENHAAG04B,NL_DENHAAG04C,NL_DENHAAG05B, \
898 NL_DENHAAG05A,NL_DENHAAG05C,NL_GOOISCHE2,NL_AMSTERDAM12,NL_DENHAAG03C,NL_DENHAAG03B,NL_DENHAAG01, \
899 NL_AMSTERDAM11,NL_POTTERSTRAAT1,NL_AMSTERDAM05B,NL_AMSTERDAM05A,NL_AMSTERDAM13A,NL_AMSTERDAM06, \
900 NL_GRACHTENPAND,NL_GOOISCHE1,NL_AMSTERDAM13B,170,200,200]
901
902 $DEF BGCITYNL2=[WMIXF:,NL_AMSTERDAM13A,NL_AMSTERDAM06,NL_AMSTERDAM05B,NL_AMSTERDAM05A,NL_GRACHTENPAND, \
903 NL_GOOISCHE1,NL_AMSTERDAM13B,NL_DENHAAG04B,NL_DENHAAG04C,NL_DENHAAG05B,NL_DENHAAG05A, \
904 NL_DENHAAG05C,NL_DENHAAG03C,NL_DENHAAG03B,NL_DENHAAG01,NL_GOOISCHE2,NL_AMSTERDAM12,NL_AMSTERDAM11, \
905 NL_POTTERSTRAAT1,(100,#NL_HAARLEM03D[AR:NL_HAARLEM03H,NL_HAARLEM03I,NL_HAARLEM03A,NL_HAARLEM03C,\
906 NL_HAARLEM03J,NL_HAARLEM03A,NL_HAARLEM03F,NL_HAARLEM03G],100),(150,NL_DELFZIJL_CHURCH1,220),NL_HAARLEM09,NL_HAARLEM08A, \
907 NL_HAARLEM07,NL_HAARLEM06_1,NL_HAARLEM05B,NL_HAARLEM06A,NL_HAARLEM06F,NL_HAARLEM04A,NL_HAARLEM10H, \
908 NL_HAARLEM13A,170,180,200,200]
909
910 # Stadt Nordeuropa
911 $DEF BGCITYDK1=DK_H001,DK_H009,DK_H008,170,DK_H004,DK_H005,DK_H007B,DK_H007A,DK_H006,DK_H002B, \
912 DK_H002A,200,DK_H003A,DK_H003B,DK_H003A,200,US_STORE03B[COFR:3],US_STORE04B,US_STORE04A, \
913 US_STORE03D[COFL:3],180,BLD_007A,30,D_CUXHAVEN01_(1|2),40,BLD_004A,30,BLD_004B,40,BLD_007A,40, \
914 BLD_008E,35,BLD_007C,50,BLD_007B,35,BLD_004D,45,BLD_004C,40,BLD_003A,200
915 $DEF BGCITYDK2=BLD_007B,35,BLD_004D,45,D_CUXHAVEN01_(1|2),40,BLD_004A,30,BLD_004B,40,BLD_007A,30, \
916 BLD_007A,40,BLD_008E,35,BLD_007C,50,BLD_004C,35,BLD_003A,170,US_STORE03B[COFR:3],US_STORE04A, \
917 US_STORE04B,US_STORE03D[COFL:3],180,DK_H003A,DK_H003B,DK_H003A,DK_H001,DK_H005,DK_H007B,DK_H007A, \
918 DK_H006,DK_H002B,DK_H009,DK_H002A,DK_H008,170,DK_H004,170
919
920 # Stadt S deuropa
921 $DEF BGCITYIT1=I_H007A[COFL:4],I_H047B,I_H068_1,I_H068B,I_H075,I_H076,I_H071,I_H028B,I_H028C,I_H065, \
922 185,(I_CURCH1|I_CHURCH2),220,I_H069_2[COFR:6],I_H005B,I_H024,I_H009B,I_H015B,I_H009A,180,I_H008, \
923 I_H063,I_H064,I_H062,I_H066,I_H065,I_H061_1,200,I_H006B[COFR:8],I_H051,I_H054,I_H010,I_H017_1, \
924 I_H029_1,I_H060B,I_H027,I_H031,I_H035,I_H006A[COFL:8],170
925 $DEF BGCITYIT2=I_H008,I_H063,I_H064,I_H062,I_H066,I_H065,I_H061_1,200,(I_CURCH1|I_CHURCH2),220, \
926 I_H069_2[COFR:6],I_H005B,I_H024,I_H009B,I_H015B,I_H009A,180,I_H006B[COFR:8],I_H051,I_H054,I_H010, \
927 I_H017_1,I_H029_1,I_H060B,I_H027,I_H031,I_H035,I_H006A[COFL:8],170,I_H007A[COFL:4],I_H047B, \
928 I_H068_1,I_H068B,I_H075,I_H076,I_H071,I_H028B,I_H028C,I_H065,185
929
930 # Stadt Osteuropa
931 $DEF BGCITYPL1=H_RAKTAR2,100,H_OBUDA03A,50,H_OBUDA01D,H_OBUDA01C,170,H_BUDAPEST02C,H_BUDAPEST02B, \
932 H_BUDAPEST01B,H_BUDAPEST01C,H_BUDAPEST02A,H_BUDAPEST01A,D_H144,D_H130,45,CS_H001,50,CS_H002,200, \
933 H_PECS01,H_PECS02,H_PECS04,H_PECS05,H_PECS06,H_PECS05F,B_H003,170,
934 $DEF BGCITYPL2=H_BUDAPEST02C,H_BUDAPEST02B,H_BUDAPEST01B,H_BUDAPEST01C,H_BUDAPEST02A,H_BUDAPEST01A,30, \
935 RU_H019A[BC:-30,30],200,H_PECS01,H_PECS02,H_PECS04,H_PECS05,H_PECS06,H_PECS05F,B_H003,170, \
936 H_RAKTAR2,100,H_OBUDA03A,50,H_OBUDA01D,H_OBUDA01C,45,CS_H001,50,CS_H002,170
937
938 # Stadt Russland
939 $DEF BGCITYRU1=RU_H019A[COFR:3],RU_H018_1,RU_H015,RU_H021,RU_H020A[COFL:3],200,RU_SHOP6,180, \
940 RU_H013A[COFR:6],RU_H011,RU_H012,RU_H017A,RU_HOTEL1,RU_H013B[COFL:7],200,RU_H016A,35,RU_SHOP5,45, \
941 RU_SHOP1,50,RU_H014,RU_SHOP1,55,45,RU_SHOP2,50,RU_H016B,40,RU_H004,45,RU_H006,200,RU_H022_1, \
942 RU_H26_1,200
943 $DEF BGCITYRU2=RU_H013A[COFR:6],RU_H011,RU_H012,RU_H022_1,RU_H26_1,200,RU_SHOP6,100,RU_H019A[COFR:3], \
944 RU_H018_1,RU_H015,RU_H021,RU_H020A[COFL:3],180,RU_H016A,35,RU_H014,50,RU_H016B,40,RU_SHOP5,45, \
945 RU_H004,45,RU_SHOP1,55,45,RU_SHOP2,50,RU_H006,200,RU_H017A,RU_HOTEL1,RU_H013B[COFL:7],200
946
947 # Stadt Australien
948 $DEF BGCITYAUS=RU_BANK1,RU_SHOP1,200,US_DONUT1,US_STARBUCKS2,200,BARN01A,10,BARN01B,200,AU_BEALIBA_PO, \
949 AU_CL_HOTEL,AU_CLUNES_SSBB,AU_CLUNES_RSL,AU_CLUNES_SSB,AU_CLUNES_RSLB,AU_MID_HOTEL
950 #--------------------------------------------------------------------------------------------------
951 # Hintergrund Streifen
952 #-------------------------------------------------------------------------------------------------
953 #
954 # Stadtverkehr
955
956 # Stadt Mitteleurpa moderne H user
957 $DEF STBGMD=SKY,BG_FOREST1,[BG<=BGCITYDM1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#;BGCITYDM2:..,0,#;]
958
959 # Stadt Mitteleurpa alte H user
960 $DEF STBGEU=SKY,BG_FOREST1,[BG<=BGCITYDA1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#;BGCITYDA2:..,0,#;]
961
962 # Stadt Deutschland Rheinland moderne H user
963 $DEF STBGDRM=SKY,BG_FOREST1,[BG<=BGCITYDR3:..,0,#; 1-40*1,TREES_SUMMER:..,0,#;BGCITYDR4:..,0,#;]
964
965 # Stadt Deutschland Rheinland alte H user
966 $DEF STBGDRA=SKY,BG_FOREST1,[BG<=BGCITYDR1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#;BGCITYDR2:..,0,#;]
967
968 # Stadt Deutschland Wuppertal
969 $DEF BGCITYDWU1=70,D_MONSCHAU06A,D_MONSCHAU07A,510,D_H035,AU_CLUNES_RSLB,210,D_BWG004,
970 $DEF BGCITYDWU2=320,NL_H050_1,269,NL_SPOORZICHT_1
971 $DEF BGCITYDWU3=10,CS_H001,D_MUNCHEN01A,D_MUNCHEN02B,
972 $DEF BGCITYDWU4=D_BONN_POST1,90,FOREST24,150,D_MUNCHEN08,D_BONN03A,D_H033,D_MUNCHEN07,230,SHRUBBERY7,\
973 1800,D_BONN_POST1,77,FOREST24,250,D_MUNCHEN08,D_BONN03A,D_H033,D_BONN_POST1,D_MUNCHEN07,230,\
974 SHRUBBERY7,
975 # Stadt Oesterreich/Ungarn
976 $DEF STBGAU=SKY,BG_FOREST1,[BG<=BGCITYAU1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYAU2,:..,0,#;]
977
978 # Stadt Suedeuropa
979 $DEF STBGES=SKY, \
980 [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#;TREES_SOUTH,:..,0,#; \
981 BGCITYIT2:..,0,#;]
982
983 # Stadt Gro britannien
984 $DEF STBGGB=SKY,BG_FOREST1,[BG<=BGCITYGB1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#;BGCITYGB2:..,0,#;]
985
986 # Stadt Niederlande
987 $DEF STBGNL=SKY,[BG<=BGCITYNL1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#;BGCITYNL2:..,0,#;]
988
989 # Stadt Osteuropa
990 $DEF STBGEO=SKY,BG_FOREST1,[BG<=BGCITYPL1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#;BGCITYPL1:..,0,#;]
991
992 # Stadt Nordeuropa
993 $DEF STBGNO=SKY,BG_FOREST1,[BG<=BGCITYDK1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#;BGCITYDK2:..,0,#;]
994
995 # Stadt Russland
996 $DEF STBGRU=SKY,BG_FOREST1,[BG<=BGCITYRU1:..,0,#;1-40*1,TREES_SUMMER:..,0,#;BGCITYRU2:..,0,#;]
997
998 # Stadt Japan
999 $DEF A1006C=SCENE_A1006:..,0,<=>,102,1600;
1000 $DEF A1007C=SCENE_A1007:..,0,<=>;
1001
1002 $DEF JCITY1M=[BG<=10[B:0,0,10,150,#222]:..,$1,#; [WMIXF:,CITY_J022,CITY_J023]:,$EVAL(50+$1),#; \
1003 [WMIXF:,CITY_J022,CITY_J023]:,$EVAL(110+$1),#; \
1004 [WMIX:,CITY_J001,CITY_J002,CITY_J004,CITY_J005,CITY_J006,CITY_J007,CITY_J008,CITY_J009,CITY_J011, \
1005 CITY_J012,CITY_J013,CITY_J014,CITY_J019,CITY_J020]:..,$1,#;]
1006
1007 $DEF STBGJP05A=SKY,$JCITY1M(4),[BG<=FENCE10(3*B,C):..;],TRKND|TRKGS
1008 $DEF STBGJP05B=$SKYM(70),$JCITY1M(62), \
1009 [BG<=WALL09A|WALL23|WALL28A|BRIDGE36:..,^58;FENCE10(3*B,C):..,58;]| \
1010 [BG<=WALL19|WALL20|WALL22B:..,^70;],BLBK,TRKND
1011
1012 $DEF STBGJP05C=SKY, \
1013 [BG<=[WMIXF:,CITY_J030,CITY_J035]; \
1014 [WMIXF:, \
1015 (10|3|7|TREE63|TREE64|TREE14|TREE21|TREE17|TREE48|TREE83|TREE89|TREE93|TREE3C|TREE3E|TREE4C| \
1016 TREE24|TREE57|TREE43|TREE44|TREE52)];[WMIXF:,(4-6*HG_J,8-15*10)];],TRKND
1017
1018 # Stadt USA
1019 $DEF STBGUS=SKY, \
1020 [BG<=(20*(10|3|7|TREE63|TREE64|TREE14|TREE21|TREE17|TREE48|TREE83|TREE89|TREE93|TREE3C|TREE3E| \
1021 TREE4C|TREE24|TREE57|TREE43|TREE44|TREE52)):..,0; \
1022 US_STORE04B,US_STORE04A,US_STORE05A,US_ALMA8,US_ALMA7,US_ROSLYN_BRICK2,US_STORE13B,US_STORE16A, \
1023 US_STORE15A,200,US_STORE06B,US_STORE05A,US_STORE07A,US_STORE07B,US_STORE10A,US_STORE09B, \
1024 US_STORE09A,US_STORE17D,190,US_STORE19C[COFR:3],US_STORE18B,US_STORE18A,US_STORE17C,210, \
1025 US_STORE01C,55,US_STORE02A,65,US_STORE03B,45,US_STORE03D,55,US_ROSLYN_CAFE2,55,US_STORE03A,45, \
1026 US_STORE03C,65,US_STORE13C,75,US_STORE14A,45,US_STORE14C,65,US_STORE18B,65,US_STORE19A,40, \
1027 US_STORE19B,40,US_STORE20B,55,US_STORE21A,65,US_STORE21C,60,US_STORE24B,55,US_STORE24C,200,:..,0,#; \
1028 1-40*1,TREES_SUMMER:..,0,#; \
1029 US_STORE19C[COFR:3],US_STORE18B,US_STORE18A,US_STORE17C,200,US_STORE06B,US_STORE05A,US_STORE07A, \
1030 US_STORE07B,US_STORE10A,US_STORE09B,US_STORE09A,US_STORE17D,190,US_STORE03C,65,US_STORE24C,55, \
1031 US_STORE13C,75,US_STORE14A,45,US_STORE14C,65,US_STORE18B,65,US_STORE19A,40,US_STORE01C,55, \
1032 US_STORE02A,65,US_STORE03B,45,US_STORE03D,55,US_ROSLYN_CAFE2,55,US_STORE03A,45,US_STORE19B,40, \
1033 US_STORE20B,55,US_STORE21A,65,US_STORE21C,60,US_STORE24B,55,200,US_STORE04B,US_STORE04A, \
1034 US_STORE05A,US_ALMA8,US_ALMA7,US_ROSLYN_BRICK2,US_STORE13B,US_STORE16A,US_STORE15A,210,200,,,:.., \
1035 0,#;]
1036
1037 # Stadt 3. Welt
1038 $DEF STBGTW=SKY, \
1039 [BG<=SCENE_DESERT3:..,0; \
1040 (20*(40|60|90|20|25|50|70|80|TREE106W|AGAVE1|TREE92|EUCALYPT10|PALM12|PALM16|PALMLINE1|PINUS1| \
1041 EUCALYPT02)(|[M])):..,0; \
1042 20,CH_BARN1,40,HUT_004A,60,I_H020B,45,I_H039_1,35,SHOP_003,55,HUT_001A,25,I_H020_1,30,BLD_011,50, \
1043 I_H040_1,20,I_H031,40,H_RAKTAR2,60,SHOP_001,45,SHOP_002,35,BLD_004A,55,AU_CLUNES_RSLB,25,HUT_003A, \
1044 30,BLD_004C,:..,0,#; \
1045 (20*(40|60|90|20|25|50|70|80|TREE106W|AGAVE1|TREE92|EUCALYPT10|PALM12|PALM16|PALMLINE1|PINUS1| \
1046 EUCALYPT02)(|[M])):..,0; \
1047 50,I_H040_1,20,I_H031,20,CH_BARN1,40,HUT_004A,55,HUT_001A,40,H_RAKTAR2,35,BLD_004A,55, \
1048 AU_CLUNES_RSLB,25,I_H020_1,30,BLD_011,25,HUT_003A,30,BLD_004C,60,SHOP_001,45,SHOP_002,60,I_H020B, \
1049 45,I_H039_1,35,SHOP_003,:..,0,#;]
1050
1051 # U-Bahn Mauer
1052 $DEF STBGUB=[BG<=(WALL01C|WALL19):..,0;]
1053
1054 #--------------------------------------------------------------------------------------------------#
1055 # #
1056 # Strecken nach Epoche und Region #
1057 # #
1058 #--------------------------------------------------------------------------------------------------#
1059 # allgemein
1060
1061 # Wall
1062
1063 $DEF BGWALLE6=(WALL_UF1|WALL_UF2[BT:0,32]|WALL_UF3[BT:0,32]|WALL_UF4[BT:0,32]|WALL_UF5[BT:0,32]| \
1064 WALL_UF7[BT:0,32]|WALL_UF8|[BT:0,32])
1065
1066 #--------------------------------------------------------------------------------------------------#
1067
1068 #Platform
1069
1070 #--------------------------------------------------------------------------------------------------#
1071 # Platform acessuars
1072
1073 #Platform Passenger
1074 $DEF BGPASS1=PAS(01|02|03|04|05|06|07|08|09|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28| \
1075 29|30|31|32|64|65)(|[M])
1076
1077 #--------------------------------------------------------------------------------------------------#
1078
1079 #Background
1080 # Plattform
1081
1082 # general
1083 $DEF BG_PLF1=[BG<=B_PLF1E,$1@B_PLF(1|2),#B_PLF1E:,^8;]
1084
1085 # Acessuares
1086
1087 #length 1800 H
1088 $DEF BGPLATT1800H=BGPASS1,25,PASG03,5,LAMP04,5,PLF_J2D,20,PASG02,20,BANK8,30,PASG01,25,BGPASS1, \
1089 DUSTBIN1,11,PLF_J2D,25,DBAG_STAIRS,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,30,BGPASS1, \
1090 15,BANK04,30,PLF_J2D,26,BGPASS1,35,BANK01,DUSTBIN1,15,BGPASS1,20,LAMP04,85,PERS01,15,PERS03,
1091
1092 #length 1800 NL
1093 $DEF BGPLATT1800NL=BGPASS1,85,LAMP01,40,BGPASS1,20,BGPASS1,20,BGPASS1,15,BGPASS1,20,PLF_J2D,26, \
1094 BGPASS1,25,PASG03,60,PASG02,20,B_STAIR1,30,PASG01,25,BGPASS1,DUSTBIN1,45,J_PBANK,15,J_PBANK,20, \
1095 BGPASS1,28,BGPASS1,20,J_PBANK,35,DUSTBIN1,20,BGPASS1,15,J_PBANK,30,PLF_J2D,26,BGPASS1,35,J_PBANK, \
1096 DUSTBIN1,15,BGPASS1,12,LAMP01,70,PERS01,20,BGPASS1
1097
1098 #length 1800 CH5
1099 $DEF BGPLATT1800CH=BGPASS1,25,PASG03,25,PLF_J2D,2,LAMP14,2,PASG02,20,BANK8,30,PASG01,25,BGPASS1, \
1100 DUSTBIN1,11,PLF_J2D,15,PASG10,10,PASG09,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,30, \
1101 BGPASS1,15,BANK04,30,CH_TIMTAB1,26,BGPASS1,35,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP14,85,PERS01,15, \
1102 PERS03,
1103
1104 #length 1800 CS5
1105 $DEF BGPLATT1800C=BGPASS1,25,PASG03,25,CH_TIMTAB1,2,LAMP14,2,PASG02,20,BANK8,30,PASG01,25,BGPASS1, \
1106 DUSTBIN1,11,CH_TIMTAB1,25,B_STAIR1,B_STAIR1[COFL:20],15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35, \
1107 DUSTBIN1,30,BGPASS1,15,BANK04,30,PLF_J2D,26,BGPASS1,35,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP14,85, \
1108 PERS01,15,PERS03,
1109
1110 #length 1400 AT
1111 $DEF BGPLATT1400A=BGPASS1,25,PASG03,25,PLF_J2D,2,LAMP14,2,PASG02,20,BANK8,30,PASG01,11,DUSTBIN1,11, \
1112 PLF_J2D,15,PASG10,10,PASG09,15,BANK8,20,BGPASS1,28,BGPASS1,20,DUSTBIN1,30,BGPASS1,15,BANK04,30, \
1113 PLF_J2D,26,BGPASS1,35,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP14,5,PERS01,15,PERS03
1114
1115 #length 1400 CH
1116 $DEF BGPLATT1400CH=BGPASS1,25,PASG03,25,CH_TIMTAB1,2,LAMP14,2,PASG02,20,BANK8,30,PASG01,11,DUSTBIN1, \
1117 11,CH_TIMTAB1,15,PASG10,10,PASG09,15,BANK8,20,BGPASS1,28,BGPASS1,20,DUSTBIN1,30,BGPASS1,15,BANK04, \
1118 30,CH_TIMTAB1,26,BGPASS1,35,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP14,5,PERS01,15,PERS03
1119
1120 # Bahnsteig EP1-3 DE
1121 $DEF BGPLATT_DE1=BGPASS1,16,LAMP06,47,D_BOEDERITZ3S,30,BGPASS1,20,BGPASS1,20,BGPASS1,154,BGPASS1,20, \
1122 I_TIMTAB1,26,BANK04,20,DBAG_STAIRS,BANK8,20,BGPASS1,40,PASG01,28,BGPASS1,20,BANK06,BANK05,24, \
1123 I_TIMTAB1,16,BGPASS1,30,BGPASS1,30,BANK06,24,BGPASS1,18,D_BOEDERITZ3S,17,LAMP06,12,PERS01,20,PERS03
1124
1125 # Bahnsteig EP4 DE
1126 $DEF BGPLATT_DE4=BGPASS1,40,BGPASS1,20,BGPASS1,10,BGPASS1,50,BGPASS1,16,LAMP01,47,D_KRUMBACH4S,30, \
1127 BGPASS1,20,BGPASS1,20,BGPASS1,154,BGPASS1,20,I_TIMTAB1,26,BANK04,20,DBAG_STAIRS,BANK8,20,BGPASS1, \
1128 40,PASG01,28,BGPASS1,20,BANK06,BANK05,24,I_TIMTAB1,16,BGPASS1,30,BGPASS1,30,BANK06,24,BGPASS1,18, \
1129 D_KRUMBACH4S,17,LAMP01,12,PERS01,20,PERS03,BGPASS1,40,BGPASS1,20,BGPASS1,10,BGPASS1,50
1130
1131 # Bahnsteig EP5 DE
1132 $DEF BGPLATT_DE5=BGPASS1,40,BGPASS1,20,BGPASS1,10,BGPASS1,50,BGPASS1,40,BGPASS1,20,BGPASS1,10,BGPASS1, \
1133 50,BGPASS1,16,LAMP01,47,D_DUHBF5S,30,BGPASS1,20,BGPASS1,20,BGPASS1,154,BGPASS1,20,I_TIMTAB1,26, \
1134 BANK04,20,DBAG_STAIRS,BANK8,20,BGPASS1,40,PASG01,28,BGPASS1,20,BANK06,BANK05,24,I_TIMTAB1,16, \
1135 BGPASS1,30,BGPASS1,30,BANK06,24,BGPASS1,18,D_DUHBF5S,17,LAMP01,12,PERS01,20,PERS03,BGPASS1,40, \
1136 BGPASS1,20,BGPASS1,10,BGPASS1,50
1137
1138 # Bahnsteig EP6 DE
1139 $DEF BGPLATT_DE6=BGPASS1,40,BGPASS1,20,BGPASS1,10,BGPASS1,50,BGPASS1,16,LAMP01,20,DBAG_6STREU,20, \
1140 D_OBHBF6S,30,BGPASS1,20,BGPASS1,20,BGPASS1,154,BGPASS1,20,DBAG_6INFO1,06,BGPASS1,20,BANK04,20, \
1141 DBAG_STAIRS,15,DBAG_6TICKET,5,BANK8,2,DBAG_6DUSTBIN1,10,BGPASS1,15,PASG01,28,BGPASS1,20, \
1142 DBAG_6BANK,5,DBAG_6DUSTBIN2,10,DBAG_6INFO3,16,BGPASS1,30,BGPASS1,15,DBAG_6BANK,6,DBAG_6DUSTBIN2, \
1143 20,BGPASS1,5,#DBAG_6STREU,5,D_OBHBF6S,17,LAMP01,12,PERS01,20,PERS03,BGPASS1,40,BGPASS1,20,BGPASS1, \
1144 10,BGPASS1,50
1145
1146 #--------------------------------------------------------------------------------------------------#
1147 # Ungarn
1148 # Strecke
1149 # E 1-3
1150 $DEF STBGHU01T=[BG-=BG_HUNGARY02:..,-120,<=>;CABLE5:..,0;],TRKDH
1151 # E 4-6
1152 $DEF STBGHU01O=[BG-=BG_HUNGARY02:..,-120,<=>;],TRKDH
1153 #01,03 auch A,SK,D,F,BE,L,PL E1-6
1154 $DEF STBGHU02=[BG-=BG_HUNGARY03:..,-50,<=>;],TRKDH
1155 $DEF STBGHU03=[BG-=BG_HUNGARY04:..,0,<=>;],TRKDHB
1156 $DEF STBGHU04=[BG-=BG_HUNGARY06:..,-0,<=>;],TRKDHB
1157 # E 1-3
1158 $DEF STBGHU05T=[BG-=BG_HUNGARY05:..,-0,<=>,5,2270;CABLE5:..,0;],TRKDHB
1159 # E 4-6
1160 $DEF STBGHU05O=[BG-=BG_HUNGARY05:..,-0,<=>,5,2270;],TRKDHB
1161 #05 auch A,SK,D,F,BE,L E1-6
1162
1163 #Bahnhof E 3/4
1164 $DEF STBGHUB13O=SKY,BG_FOREST1, \
1165 [BG<=BGCityAU1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCityAU2,:..,0,#; \
1166 M_KELENFOLDB|(M_ALSOORS_U[O:H_BUD_NYUG,235,60][B:241,66,31,1,#838383]),:,8;1000,WATERCOLUMN02:,-4; \
1167 (0[AR:PLF_I1(2*C,4*B,A,6*(37*B,A),4*B,2*C)]):,4; H_BUD_NYUG,480,H_BUD_NYUG,:,42; \
1168 H_BUD_NYUGS,1450,H_BUD_NYUGS,:,8; BGPLATT1800H,:,8;],$BG_PLF1(18),TRKES;
1169 $DEF STBGHUB13H=STMOD,STBGHUB13O
1170 $DEF STBGHUB13=$FLG(O,STBGHUB13O,STBGHUB13H);
1171
1172 # Ungarn Bahnhof E 5/6
1173 $DEF STBGHUB15O=SKY,BG_FOREST1, \
1174 [BG<=BGCITYAU1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYAU2,:..,0,#; \
1175 M_KELENFOLDB|(M_ALSOORS_U[O:H_BUD_NYUG,235,60][B:241,66,31,1,#838383]),:,8; \
1176 J_TICKET,200,J_TICKET,:,8;(0[AR:PLF_I1(2*C,4*B,A,6*(37*B,A),4*B,2*C)]):,4; \
1177 H_BUD_NYUG,480,H_BUD_NYUG,:,42; H_BUD_NYUGS,560,J_TICKET,300,J_TICKET,560,H_BUD_NYUGS,:,8; \
1178 BGPLATT1800H,:,8;],$BG_PLF1(18),TRKES
1179 $DEF STBGHUB15H=STMOD,STBGHUB15O
1180 $DEF STBGHUB15=$FLG(O,STBGHUB15O,STBGHUB15H);
1181
1182 #--------------------------------------------------------------------------------------------------#
1183 #--------------------------------------------------------------------------------------------------#
1184 # Deutschland-Mitteleuropa
1185
1186 # Wald Laubb ume mit Telegrafen Deutschland-Mitteleuropa EP 1-2
1187 $DEF STBGFT=SKY,BG_FOREST1,BG_GREEN1,[BG<=CABLE5:..,0;],TRKDH
1188
1189 # Strecke Wiese EP 1-3
1190 $DEF STBGDE01T=$AG165(30)|$HL180(30)|$HL981014(30),[BG<=CABLE5:..,0;],TRKDH
1191 # Strecke Wiese EP 4-6
1192 $DEF STBGDE01O=$AG165(30)|$HL180(30)|$HL981014(30),TRKDH
1193
1194 # Strecke EP 3
1195 $DEF STBGDE02T=[BG-=BG_GERMANY01:..,-130,<=>;CABLE5:..,0;],TRKDH
1196 # Strecke EP 4-6
1197 $DEF STBGDE02O=[BG-=BG_GERMANY01:..,-130,<=>;],TRKDH
1198 # Strecke EP 1-3
1199 $DEF STBGDE03T=[BG-=BG_GERMANY03:..,-120,<=>;CABLE5:..,0;],TRKDHB
1200 # Strecke EP 4-6
1201 $DEF STBGDE03O=[BG-=BG_GERMANY03:..,-120,<=>;],TRKDHB
1202 #03 auch A,SK,D,F,BE,L,PL E1-6
1203
1204 # Strecke Mittelgebirge Herbst EP 1-3
1205 $DEF STBGDE04T=[BG-=BG_GERMANY02:..,-10,<=>;CABLE5:..,0;],TRKDHB
1206 # Strecke Mittelgebirge Herbst EP 4-6
1207 $DEF STBGDE04O=[BG-=BG_GERMANY02:..,-10,<=>;],TRKDHB
1208
1209 # Strecke Usedom EP 1-3
1210 $DEF STBGDE07T=[BG-=BG_Usedom:..,-325,<=>,242,6980;CABLE5:..,0;],TRKDHB
1211 # Strecke Mittelgebirge Herbst EP 4-6
1212 $DEF STBGDE07O=[BG-=BG_Usedom:..,-325,<=>,242,6980;],TRKDHB
1213 #07 auch PL,DK,D,NL E1-6
1214
1215 # Strecke Winter EP 1-3
1216 $DEF STBGDE05T=[BG=(BG_GERWIN01[BC:25,0]:..,0,<=>;BG_GRAS1W:..,^-7,<=>;CABLE5:..,0;)],TRKDS
1217 # Strecke Winter EP 4-6
1218 $DEF STBGDE05O=[BG=(BG_GERWIN01[BC:25,0]:..,0,<=>;BG_GRAS1W:..,^-7,<=>;)],TRKDS
1219 # Strecke Mittelgebirge EP 4-6
1220 $DEF STBGDE06O=[BG-=BGLSDE04:..,-30,<=>,80,2920;],TRKDHB
1221
1222 #--------------------------------------------------------------------------------------------------#
1223 # Industriegeb ude Deutschland-Mitteleuropa E2
1224 $DEF STBGDI2=SKY,BG_GREEN1, \
1225 [BG<=FACT21_1,50,FACT05_2,FACT05_1,60,STORE02,150,I_SOTSTAZELE2,NL_SPOORZICHT_1,80,FACT24_1,90, \
1226 D_FABRIK01_2,D_FABRIK01_1,100,NL_BRICKYARD2:..,-10,#; \
1227 FACT23,110,D_MINE01C[BT:62,115,256,],150,FACT15_1,200,D_FABRIK01_3,D_FABRIK01_2,250,J_FACT02,250, \
1228 FACT28_1,180,FACT31,FACT32,200,FACT05_1,280,NL_SPOORZICHT_1,150,FACT24_1,100,NL_BRICKYARD2,150, \
1229 FACT14_1,FACT03D,FACT02A,FACT02B,200,10,I_SOTSTAZELE2,20:..,-10,#; \
1230 (3:0|2:1|1:2)*(Vegetation):0-100+; (2:1|1:2)*(Vegetation|Vegetation[M]):0-100+; BUSH20:10-45+,-8; \
1231 (0|1)*BUSH20:35-80+,-8;],EMBS,TRKES
1232
1233 # Industriegebäude Deutschland-Mitteleuropa E3-5
1234 $DEF STBGDI1=SKY,BG_GREEN1, \
1235 [BG<=FACT21_1,50,FACT05_2,FACT05_1,60,STORE02,150,I_SOTSTAZELE2,NL_SPOORZICHT_1,80,FACT24_1,90, \
1236 D_FABRIK01_2,D_FABRIK01_1,100,NL_BRICKYARD2:..,-10,#; \
1237 FACT24_1,90,D_FABRIK01_2,D_FABRIK01_1,100,NL_SPOORZICHT_1,80,NL_BRICKYARD2,200,STORE02,150, \
1238 FACT05_2,FACT05_1,60,FACT21_1,50,I_SOTSTAZELE2,200:..,-10,#; (3:0|2:1|1:2)*(Vegetation):0-100+; \
1239 (2:1|1:2)*(Vegetation|Vegetation[M]):0-100+; BUSH20:10-45+,-8; (0|1)*BUSH20:35-80+,-8;],EMBS,TRKES
1240
1241 # Industriegebäude Deutschland-Mitteleuropa E4-6
1242 $DEF STBGDI4=SKY,BG_GREEN1, \
1243 [BG<=D_SILO02,200,US_TIMS2,300,J_FACT02,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250,STORE03, \
1244 INDUSTRY01,300,3*STORAGESHED,350,J_FACT03,250,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150, \
1245 STORE02,280:..,-10,#; \
1246 INDUSTRY01,300,J_FACT03,250,3*STORAGESHED,350,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150, \
1247 STORE02,280,D_SILO02,300,J_FACT02,200,US_TIMS2,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250, \
1248 STORE03:..,-10,#; (3:0|2:1|1:2)*(Vegetation):0-100+; (2:1|1:2)*(Vegetation|Vegetation[M]):0-100+; \
1249 BUSH20:10-45+,-8; (0|1)*BUSH20:35-80+,-8;],EMBS,TRKES
1250 #--------------------------------------------------------------------------------------------------#
1251 # Güterbahnhof Deutschland-Mitteleuropa
1252
1253 # E1-2
1254 $DEF STBGDG2N=SKY,BG_GREEN1, \
1255 [BG<=FACT21_1,50,FACT05_2,FACT05_1,60,STORE02,150,I_SOTSTAZELE2,NL_SPOORZICHT_1,80,FACT24_1,90, \
1256 D_FABRIK01_2,D_FABRIK01_1,100,NL_BRICKYARD2:..,-10,#; \
1257 FACT23,110,D_MINE01C[BT:62,115,256,],150,FACT15_1,200,D_FABRIK01_3,D_FABRIK01_2,250,J_FACT02,250, \
1258 FACT28_1,180,FACT31,FACT32,200,FACT05_1,280,NL_SPOORZICHT_1,150,FACT24_1,100,NL_BRICKYARD2,150, \
1259 FACT14_1,FACT03D,FACT02A,FACT02B,200,10,I_SOTSTAZELE2,20:..,-10,#; \
1260 (3:0|2:1|1:2)*(Vegetation):0-100+; (2:1|1:2)*(Vegetation|Vegetation[M]):0-100+; BUSH20:10-45+,-8; \
1261 (0|1)*BUSH20:35-80+,-8; \
1262 WATERTOWER12[SM:0.7],50,WATERCOLUMN04,50,BLD_030A|D_DROLSHAGEN2, \
1263 (D_MARIENFELDE2,3*D_MARIENFELDE3)|D_DERSCHLAG,30,D_BARTH_ST,20,CROSS_H1:..,0,#;],EMBS,TRKES
1264 $DEF STBGDG2=$FLG(X,STBGDE01O,STBGDG2N)
1265
1266 # E3-5
1267 $DEF STBGDG3=SKY,BG_GREEN1, \
1268 [BG<=FACT21_1,50,FACT05_2,FACT05_1,60,STORE02,150,I_SOTSTAZELE2,NL_SPOORZICHT_1,80,FACT24_1,90, \
1269 D_FABRIK01_2,D_FABRIK01_1,100,NL_BRICKYARD2:..,-10,#; \
1270 FACT24_1,90,D_FABRIK01_2,D_FABRIK01_1,100,NL_SPOORZICHT_1,80,NL_BRICKYARD2,200,STORE02,150, \
1271 FACT05_2,FACT05_1,60,FACT21_1,50,I_SOTSTAZELE2,200:..,-10,#; (3:0|2:1|1:2)*(Vegetation):0-100+; \
1272 (2:1|1:2)*(Vegetation|Vegetation[M]):0-100+;BUSH20:10-45+,-8; (0|1)*BUSH20:35-80+,-8; \
1273 D_DEFUNC_1|D_GSCH01_1,30,STELLWERK1(6|2|3),30,D_BW02_1,20,WATERTOWER11:..,0,#;],EMBS,TRKES
1274
1275 # E4-6
1276 $DEF STBGDG4=SKY,BG_GREEN1, \
1277 [BG<=D_SILO02,200,US_TIMS2,300,J_FACT02,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250,STORE03, \
1278 INDUSTRY01,300,3*STORAGESHED,350,J_FACT03,250,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150, \
1279 STORE02,280:..,-10,#; \
1280 INDUSTRY01,300,J_FACT03,250,3*STORAGESHED,350,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150, \
1281 STORE02,280,D_SILO02,300,J_FACT02,200,US_TIMS2,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250, \
1282 STORE03:..,-10,#; (3:0|2:1|1:2)*(Vegetation):0-100+; (2:1|1:2)*(Vegetation|Vegetation[M]):0-100+; \
1283 BUSH20:10-45+,-8; (0|1)*BUSH20:35-80+,-8; \
1284 WALL_UF5,WALL_UF7,WALL_UF2,WALL_UF8,WALL_UF4,WALL_UF1,15,D_BAIERSBRONN3,30,F_POSTE2:..,0,#;],EMBS, \
1285 TRKES
1286
1287 #--------------------------------------------------------------------------------------------------#
1288 # Landbahnhof Deutschland
1289
1290 $DEF D_LANDH1=40, \
1291 D_H042A|D_H042B|D_H042C|D_H042D|D_H042E|D_H043A|D_H043B|D_H044A|D_H044B|D_H045A|D_H045B|D_H046A| \
1292 D_H046B|D_H047,40
1293 $DEF D_LANDH2=40,D_RATHAUS1|D_H013,40
1294 $DEF D_LANDH3=40,G_H021B|D_H022B|D_H024|D_H026|D_H027|D_H028A,40
1295 $DEF D_LANDH4=40,D_H00(5|8)(|[VD:,37,,29])|D_H010
1296 $DEF D_LANDROW=$MIX(3,(40,D_H076,40),(40,NL_LIMBURG03_1[SM:0.8],40),D_LANDH1,D_LANDH2),300, \
1297 $MIX(3,D_LANDH1,D_LANDH3,D_LANDH4)
1298
1299 $DEF BG_LANDBHF=[BG<=D_LANDBAHNHOF[O:$1,*150,^42]|D_LANDBAHNHOF2[O:$1,*131,^38]| \
1300 D_LANDBAHNHOF3[O:$1,*131,^38]|D_WORPSWEDE[B:129,30,64,6,(203,203,203)][O:$1,*160,*35]| \
1301 GUMPENRIEDASBACH[O:$1,*96,44];]
1302
1303 #E1-3
1304 $DEF STBGDBB11O=SKY,BG_GREEN1,BG_FOREST1,[BG<=D_LANDROW;],$BG_LANDBHF(D_BOEDERITZ3), \
1305 [BG<=D_WAREHOUSE1:50+670,0; \
1306 D_BOEDERITZ3S,10,BANK01,55,BGPASS1,60,BGPASS1,60,PLF_J2D,50,LAMP09,30,BGPASS1,70,BGPASS1,30, \
1307 BANK01,30,LAMP09,50,BGPASS1,40,PERS01,10,BGPASS1,50,D_BOEDERITZ3S:,5;PLF2EL,12*PLF2P,PLF2E:,-4;], \
1308 (TRKGS|TRKDW),[FG+=WATERCOLUMN03:50+500,-4;]
1309 $DEF STBGDBB11H=STRMOD,STBGDBB11O
1310 $DEF STBGDBB11G=$FLG(O,STBGDBB11O,STBGDBB11H);
1311
1312 $DEF STBGDBB11N=STBGDBB11G,TRKGS
1313 $DEF STBGDBB11=$FLG(X,STBGDE01O,STBGDBB11N)
1314 $DEF STBGDBB12=STBGDBB11G,TRKDW
1315 $DEF STBGDBB13=STBGDBB11G,TRKDW
1316 #E3-5 DR
1317 $DEF STBGDDRB1=STBGDBB11G,TRKGS
1318 #E4 DB
1319 $DEF STBGDBB14O=SKY,BG_FOREST1,BG_GREEN1,[BG<=D_LANDROW;],$BG_LANDBHF(D_RUCK4), \
1320 [BG<=D_WAREHOUSE1:50+670,0; \
1321 D_RUCK4S,10,BANK01,55,BGPASS1,60,BGPASS1,60,PLF_J2D,50,LAMP09,30,BGPASS1,70,BGPASS1,30,BANK01,30, \
1322 LAMP09,50,BGPASS1,40,PERS01,10,BGPASS1,50,D_RUCK4S:,5;PLF2EL,12*PLF2P,PLF2E:,-4;]
1323 $DEF STBGDBB14H=STRMOD,STBGDBB14O
1324 $DEF STBGDBB14G=$FLG(O,STBGDBB14O,STBGDBB14H);
1325
1326 $DEF STBGDBB14E=STBGDBB14G,[W=X],TRKWD, \
1327 [FG+=WATERCOLUMN03:50+500,-4;<FL_DB_M(4:1F5|2_5),FL_DB_F5:..,-5,#;]
1328 $DEF STBGDBB14D=STBGDBB14G,[FG=TRACKFGDW:..,^0;1000,WATERCOLUMN03:,-4;]
1329 $DEF STBGDBB14=$FLG(E,STBGDBB14E,STBGDBB14D)
1330 #E5
1331 $DEF STBGDBB15O=SKY,BG_FOREST1,BG_GREEN1,[BG<=D_LANDROW;],$BG_LANDBHF(D_RIEGEL6), \
1332 [BG<=D_WAREHOUSE1:50+670,0; \
1333 LAMP_DB5A,10,BANK_DB5A,55,BGPASS1,60,BGPASS1,60,PLF_J2D,50,LAMP_DB5A,30,BGPASS1,70,BGPASS1,30, \
1334 BANK_DB5A,30,LAMP_DB5A,50,BGPASS1,40,PERS01,10,BGPASS1,50,LAMP_DB5A:,9;10*PLF_5D:,0;],TRKDW
1335 $DEF STBGDBB15H=STRMOD,STBGDBB15O
1336 $DEF STBGDBB15G=$FLG(O,STBGDBB15O,STBGDBB15H);
1337 $DEF STBGDBB15E=STBGDBB15G,[W=X],([FG>=;FL_DB_M(4:1F5|2_5),FL_DB_F5:..,-5,#;]|[FG>=;FL_DR:..,-4,#;]);
1338 $DEF STBGDBB15=$FLG(E,STBGDBB15E,STBGDBB15G)
1339
1340 #E6
1341 $DEF STBGDBB16O=SKY,BG_FOREST1,BG_GREEN1,[BG<=D_LANDROW;],$BG_LANDBHF(D_RIEGEL6), \
1342 [BG<=D_WAREHOUSE1:50+670,0; \
1343 PLF_LAMP_DB5B,10,DBAG_6BANK,55,DBAG_6STREU,60,DBAG_6DUSTBIN1,60,DBAG_6INFO1,50,PLF_LAMP_DB5B,30, \
1344 70,BGPASS1,30,DBAG_6TICKET,30,PLF_LAMP_DB5B,50,40,DBAG_6DUSTBIN1,10,BGPASS1,50,PLF_LAMP_DB5B:,9; \
1345 10*PLF_5D:,0;],TRKDW
1346 $DEF STBGDBB16H=STRMOD,STBGDBB16O
1347 $DEF STBGDBB16G=$FLG(O,STBGDBB16O,STBGDBB16H);
1348 $DEF STBGDBB16E=STBGDBB15G,[W=X],([FG>=;FL_DB_M(4:1F5|2_5),FL_DB_F5:..,-5,#;]|[FG>=;FL_DR:..,-4,#;]);
1349 $DEF STBGDBB16=$FLG(E,STBGDBB16E,STBGDBB16G)
1350
1351 #--------------------------------------------------------------------------------------------------#
1352 # Bahnhof Hauptstrecke
1353
1354 # Hintergrund EP 1&2
1355
1356 $DEF CITYBGE1=[BG<=BGCITYDA3:..,0,#;(1-40*1),TREES_SUMMER:..,0,#;BGCITYDA4:..,0,#;]
1357
1358 # Hintergrund EP 3-4
1359 $DEF CITYBGE3=[BG<=BGCITYDA1:..,0,#; (1-40*1),TREES_SUMMER:..,0,#; BGCITYDA2:..,0,#;]
1360 # Hintergrund EP 5-6
1361 $DEF CITYBGE5=[BG<=BGCITYD(A|M)1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYD(A|M)2:..,0,#;]
1362 # Bahnhof BG EP1
1363 $DEF BFHLBGE1=[BG<=(25*WALL18(|[M])),1100,25*WALL18(|[M]),:,-12;WASSERTURM_KOETHEN,1100:,0; \
1364 D_SCHUPPENSTEG:90; MARK_45101A,KPEV_G10_MBH(|L),12,#BOCK2:90; \
1365 (D_WORPSWEDE[B:130,30,62,5,#BDBDBD][O:D_BOEDERITZ3,143,35])|(NL_MEPPEL[O:D_BOEDERITZ3,227,28])| \
1366 (RO_BASARAB1[O:D_BOEDERITZ3,195,36])| \
1367 (D_MUHLHEIM_STYRUM[B:380,35,88,11,#805038][O:D_BOEDERITZ3,402,37])| \
1368 (D_OLPE[O:D_BOEDERITZ3,533,30][B:594,0,15,40,#D7D8D2]):,8; WATERCOLUMNDB:9,3;]
1369
1370 # Bahnhof BG EP2
1371 $DEF BFHLBGE2=[BG<=25*WALL18(|[M]),1100,25*WALL18(|[M]),:,-12;WASSERTURM_KOETHEN,1100:,0; \
1372 PLF2P[AR:1*PLF2P][O:NL_GENDLOOS5,10,9][O:NL_GENDLOOS4,84,9]:90; D_SCHUPPENSTEG:90; \
1373 DRG_2_G_MUE,DRG_2_G_MUE_H,12,#BOCK2:90; \
1374 (D_WORPSWEDE[B:130,30,62,5,#BDBDBD][O:D_BOEDERITZ3,143,35])|(NL_MEPPEL[O:D_BOEDERITZ3,227,28])| \
1375 (RO_BASARAB1[O:D_BOEDERITZ3,195,36])| \
1376 (D_MUHLHEIM_STYRUM[B:380,35,88,11,#805038][O:D_BOEDERITZ3,402,37])| \
1377 (D_OLPE[O:D_BOEDERITZ3,533,30][B:594,0,15,40,#D7D8D2]):,8; WATERCOLUMNDB:9,3;]
1378
1379 # Bahnhof BG EP3
1380 $DEF BFHLBGE3=[BG<=25*WALL18(|[M]),1100,25*WALL18(|[M]),:,-12;WASSERTURM_KOETHEN,1100:,0; \
1381 D_SCHUPPENSTEG:90;(PLF2P[AR:1*PLF2P][O:NL_GENDLOOS5,10,9][O:NL_GENDLOOS4,84,9]):90; \
1382 DB_3B_GMS54BL,DB_3B_GMHS35KEMB,12,#BOCK2:90; \
1383 (D_WORPSWEDE[B:130,30,62,5,#BDBDBD][O:D_BOEDERITZ3,143,35])|(RO_BANEASA1[O:D_BOEDERITZ3,952,31])| \
1384 (D_MUHLHEIM_STYRUM[B:380,35,88,11,#805038][O:D_BOEDERITZ3,402,37])| \
1385 (NL_MEPPEL[O:D_BOEDERITZ3,227,28])|(RO_BASARAB1[O:D_BOEDERITZ3,195,36])| \
1386 (D_OLPE[O:D_BOEDERITZ3,533,30][B:594,0,15,40,#D7D8D2]):,8;3;WATERCOLUMNDB:9,3;]
1387
1388 # Bahnhof BG EP4
1389 $DEF BFHLBGE4=[BG<=25*WALL18(|[M]),1100,25*WALL18(|[M]),:,-12;WASSERTURM_KOETHEN,1100:,0; \
1390 PLF2P[AR:1*PLF2P][O:NL_GENDLOOS5,10,9][O:NL_GENDLOOS4,84,9]:90; \
1391 (PLF2P[AR:1*PLF2P][O:NL_GENDLOOS5,10,9][O:NL_GENDLOOS4,84,9]):90; \
1392 DB_4B_GS204E,DB_4B_GKLMS207M,12,#BOCK2:90; \
1393 (D_WORPSWEDE[B:130,30,62,5,#BDBDBD][O:D_KRUMBACH4,143,35])| \
1394 (RO_CARANSEBES[B:611,43,37,2,#60645C][O:D_KRUMBACH4,611,45])|(RO_BANEASA1[O:D_KRUMBACH4,952,31])| \
1395 (D_MUHLHEIM_STYRUM[B:380,35,88,11,#805038][O:D_KRUMBACH4,402,37]):,8; WATERCOLUMNDB:9,3;]
1396
1397 # Bahnhof BG EP5
1398 $DEF BFHLBGE5=[BG<=25*WALL18(|[M]),1100,25*WALL18(|[M]),:,-12; WASSERTURM_KOETHEN,1100:,0; \
1399 PLF2P[AR:1*PLF2P][O:NL_GENDLOOS5,10,9][O:NL_GENDLOOS4,84,9]:90;DBAG_5_365221S(|L),122,#BOCK2:90; \
1400 (D_WORPSWEDE[B:130,30,62,5,#BDBDBD][O:D_DUHBF5,143,35])| \
1401 (0[AR:D_BHF1(A,B,C,D,D,C)][O:D_DUHBF5,149,35])| \
1402 (RO_CARANSEBES[B:611,43,37,2,#60645C][O:D_DUHBF5,611,45])|(RO_BANEASA1[O:D_DUHBF5,952,31])| \
1403 (D_MUHLHEIM_STYRUM[B:380,35,88,11,#805038][O:D_DUHBF5,402,37]):,8;]
1404
1405 # Bahnhof BG EP6
1406 $DEF BFHLBGE6=[BG<=25*WALL18(|[M]),1100,25*WALL18(|[M]),:,-12; \
1407 PLF2P[AR:1*PLF2P][O:NL_GENDLOOS5,10,9][O:NL_GENDLOOS4,84,9]:90; DBAG_363141S(|L),122,#BOCK2:90; \
1408 (RO_CARANSEBES[B:611,45,37,7,#28273D][B:611,43,37,2,#60645C][O:D_OBHBF6,611,45])| \
1409 (D_WORPSWEDE[B:130,30,62,5,#BDBDBD][O:D_OBHBF6,143,35])| \
1410 (0[AR:D_BHF1(A,B,C,D,D,C)][O:D_OBHBF6,149,35])|(RO_BANEASA1[O:D_OBHBF6,952,31])| \
1411 (D_MUHLHEIM_STYRUM[B:380,35,88,11,#805038][O:D_OBHBF6,402,37]):,8;]
1412
1413 #Plattform background
1414
1415 # Bahnsteig EP1-3
1416 $DEF PLFHLBGE1B=[BG<=BGPLATT_DE1:,8; PLF_I1_1,PLF_I1_1:,8;]
1417
1418 # Bahnsteig EP4
1419 $DEF PLFHLBGE4B=[BG<=BGPLATT_DE4:,8; 15*PLF_5D;#PLF_D01B,6*PLF_D01C,PLF_D01B:,8;]
1420
1421 # Bahnsteig EP5
1422 $DEF PLFHLBGE5B=[BG<=BGPLATT_DE5:,8; 15*PLF_5D;#PLF_D01B,6*PLF_D01C,PLF_D01B:,8;]
1423
1424 # Bahnsteig EP6
1425 $DEF PLFHLBGE6B=[BG<=BGPLATT_DE6:,8; 15*PLF_5D;#PLF_D01B,6*PLF_D01C,PLF_D01B:,8;]
1426
1427 #Plattform foreground with track
1428
1429 # Bahnsteig EP1-3
1430 $DEF PLFHLBGE1F=[FG>=BGPLATT_DE1:,8; PLF_I1_1,PLF_I1_1:,8;TRACKFGBS:..,^0;TRACKFGDB:..,^0; \
1431 WATERCOLUMNDB:93,-4;]
1432
1433 # Bahnsteig EP4
1434 $DEF PLFHLBGE4F=[FG>=BGPLATT_DE4:,8; 20*PLF_5D;#PLF_D01B,8*PLF_D01C,PLF_D01B:,8;TRACKFGBS:..,^0; \
1435 TRACKFGDB:..,^0; WATERCOLUMNDB:93,-4;2*FL_DBQT,FL_DBQB,2*FL_DBQT,FL_DBQA,2*FL_DBQT:..,-4;]
1436
1437 # Bahnsteig EP5
1438 $DEF PLFHLBGE5F=[FG>=BGPLATT_DE5:,8; 20*PLF_5D;#PLF_D01B,8*PLF_D01C,PLF_D01B:,8;TRACKFGBS:..,^0; \
1439 TRACKFGDB:..,^0; 2*FL_DBQT,FL_DBQB,2*FL_DBQT,FL_DBQA,2*FL_DBQT:..,-4;]
1440
1441 # Bahnsteig EP6
1442 $DEF PLFHLBGE6F=[FG>=BGPLATT_DE6:,8; 20*PLF_5D;#PLF_D01B,8*PLF_D01C,PLF_D01B:,8;TRACKFGBS:..,^0; \
1443 TRACKFGDB:..,^0; 2*FL_DBQT,FL_DBQB,2*FL_DBQT,FL_DBQA,2*FL_DBQT:..,-4;]
1444
1445 # Bahnhof Deutschland E1
1446 $DEF STBGDBB21O=SKY,BG_FOREST1,CITYBGE1,BFHLBGE1,PLFHLBGE1B,$BG_PLF1(13),TRKES, \
1447 [FG+=WATERCOLUMNDB:93,-4;]
1448 $DEF STBGDBB21H=STMOD,STBGDBB21O
1449 $DEF STBGDBB21S=$FLG(O,STBGDBB21O,STBGDBB21H)
1450
1451 $DEF STBGDBB21=$FLG(X,STBGDE01O,$FLG(G,STBGDBB12,$FLG(N,STBGDBB12,STBGDBB21S)))
1452
1453 # Bahnhof Deutschland E2
1454 $DEF STBGDBB22O=SKY,BG_FOREST1,CITYBGE1,BFHLBGE1,PLFHLBGE1B,$BG_PLF1(13),TRKES, \
1455 [FG+=WATERCOLUMNDB:93,-4;]
1456 $DEF STBGDBB22H=STMOD,STBGDBB22O
1457 $DEF STBGDBB22S=$FLG(O,STBGDBB22O,STBGDBB22H)
1458 $DEF STBGDBB22E=STBGDBB22S,[W=X],[FG>=;FL_DB_M(4:1F5|2_5),FL_DB_F5:..,-5,#;]
1459
1460 $DEF STBGDBB22=$FLG(G,STBGDBB12,$FLG(N,STBGDBB12,$FLG(E,STBGDBB22E,STBGDBB22S)))
1461
1462 # Bahnhof Deutschland E3
1463 $DEF STBGDBB23O=SKY,BG_FOREST1,CITYBGE3,BFHLBGE3,PLFHLBGE1B,$BG_PLF1(13),TRKES, \
1464 [FG+=WATERCOLUMNDB:93,-4;]
1465 $DEF STBGDBB23H=STMOD,STBGDBB23O
1466 $DEF STBGDBB23S=$FLG(O,STBGDBB23O,STBGDBB23H)
1467 $DEF STBGDBB23E=STBGDBB23S,[W=X],[FG>=;FL_DB_M(4:1F5|2_5),FL_DB_F5:..,-5,#;]
1468
1469 $DEF STBGDBB23=$FLG(G,STBGDBB21,$FLG(N,STBGDBB21,$FLG(E,STBGDBB23E,STBGDBB23S)))
1470
1471 # Bahnhof Deutschland E4
1472 $DEF STBGDBB24O=SKY,BG_FOREST1,CITYBGE3,BFHLBGE4,PLFHLBGE4B,TRKES,[FG+=WATERCOLUMNDB:93,-4;]
1473 $DEF STBGDBB24H=STMOD,STBGDBB24O
1474 $DEF STBGDBB24S=$FLG(O,STBGDBB24O,STBGDBB24H)
1475 $DEF STBGDBB24E=STBGDBB24S,[W=X],[FG>=;FL_DB_M(4:1F5|2_5),FL_DB_F5:..,-5,#;]
1476
1477 $DEF STBGDBB24=$FLG(G,STBGDBB14G,$FLG(N,STBGDBB14G,$FLG(E,STBGDBB24E,STBGDBB24S)))
1478
1479 # Bahnhof Deutschland E5
1480
1481 $DEF STBGDBB25O=SKY,BG_FOREST1,CITYBGE5,BFHLBGE5,PLFHLBGE5B,TRKES, \
1482 [FG>=;2*FL_DBQT,FL_DBQB,2*FL_DBQT,FL_DBQA,2*FL_DBQT:..,-4;];
1483 $DEF STBGDBB25H=STMOD,STBGDBB25O
1484
1485 $DEF STBGDBB25S=$FLG(O,STBGDBB25O,STBGDBB25H)
1486 $DEF STBGDBB25=$FLG(G,STBGDBB15G,$FLG(N,STBGDBB21,STBGDBB25S))
1487
1488 # BAHNHOF DEUTSCHLAND E6;
1489
1490 $DEF STBGDBB26O=SKY,BG_FOREST1,CITYBGE5,BFHLBGE6,PLFHLBGE6B,TRKES, \
1491 [FG>=;2*FL_DBQT,FL_DBQB,2*FL_DBQT,FL_DBQA,2*FL_DBQT:..,-4;]
1492 $DEF STBGDBB26H=STMOD,STBGDBB26O
1493
1494 $DEF STBGDBB26S=$FLG(O,STBGDBB26O,STBGDBB26H)
1495 $DEF STBGDBB26=$FLG(G,STBGDBB16G,$FLG(N,STBGDBB21,STBGDBB26S))
1496
1497 #--------------------------------------------------------------------------------------------------#
1498
1499 # BW Dampf Nebenbahn Deutschland E2
1500 $DEF STBGDBW22S=SKY,BG_GREEN1,BG_FOREST1,[BG<=D_LANDROW;], \
1501 [BG<=TREES_SUMMER,1-50*2,:..,0,#;30*WALL18(|[M]),:,-12;D_WAREHOUSE1:50+670,0; \
1502 BOCK4,150,WUE_G10TBT,DRG_O10J1,DRG_O_NUR_VBHL,200,DRG_CIGDPR91,1700:,0; \
1503 30,WATERCOLUMNDB,120,DRG_744ML,50,D_COAL(4|10),110,DRG_931186L[O:D_SAND,50,0],80, \
1504 D_LOKSCH(5|8|2_1),150,STELLWERK5,150,H_ORHAZ4,:,0;7*(LAMP23,200),:,0;],(TRKGS|TRKDW), \
1505 [FG+=WATERCOLUMN03:50+500,-4;]
1506 $DEF STBGDBW22=$FLG(G,STBGDBB21,$FLG(N,STBGDBB21,STBGDBW22S))
1507
1508 # BW Nebenbahn Deutschland DB E3
1509 $DEF STBGDBW23S=SKY,BG_GREEN1,BG_FOREST1,[BG<=D_LANDROW;], \
1510 [BG<=TREES_SUMMER,1-50*2,:..,0,#;30*WALL18(|[M]),:,-12;D_WAREHOUSE1:50+670,0; \
1511 BOCK4,150,DB_3B_OM12UL,DB_3A_O10,200,DB_3B_BAU2,500:,0; \
1512 D_TANK3,15,DB_3B_VT95_S1L,DB_3B_VB142001L,30,WATERCOLUMNDB,120, \
1513 DB_64_106[BT:55,44,48,14,99,43,2,1,92,43,2,1][OT:BSOD,0,0],50,D_COAL(4|10),110, \
1514 DB_3B931097[O:D_SAND,50,0],80,D_LOKSCH(5|8|2_1),150,STELLWERK5,150,H_ORHAZ4,:,0; \
1515 7*(LAMP23,200),:,0;],(TRKGS|TRKDW),[FG+=WATERCOLUMN03:50+500,-4;]
1516 $DEF STBGDBW23=$FLG(G,STBGDBB21,$FLG(N,STBGDBB21,STBGDBW23S))
1517
1518 # BW Nebenbahn Deutschland DB E4
1519 $DEF STBGDBW24S=SKY,BG_GREEN1,BG_FOREST1,[BG<=D_LANDROW;], \
1520 [BG<=TREES_SUMMER,1-50*2,:..,0,#;30*WALL18(|[M]),:,-12;D_WAREHOUSE1:50+670,0; \
1521 BOCK4,150,DB_4A_GLM200,30,DB_BAU4G3,DB_MD4IE_GER2L,500:,0; \
1522 D_TANK3,15,DB_4_998_2,DB_4_798_F2,30,WATERCOLUMNDB,120,DB_4_332092,110,DB_4_211RL,D_SAND,80, \
1523 D_LOKSCH(5|2_1),150,STELLWERK5,150,H_ORHAZ4,:,0; 7*(LAMP23,200),:,0;],TRKGS|TRKDW
1524 $DEF STBGDBW24=$FLG(G,STBGDBB21,$FLG(N,STBGDBB21,STBGDBW24S))
1525
1526 # BW Nebenbahn Deutschland DR E3
1527 $DEF STBGDBW53S=SKY,BG_GREEN1,BG_FOREST1,[BG<=D_LANDROW;], \
1528 [BG<=TREES_SUMMER,1-50*2,:..,0,#;30*WALL18(|[M]),:,-12;D_WAREHOUSE1:50+670,0; \
1529 BOCK4,150,DR_3PWGS56L,200,DR_3_G05L,500:,0; \
1530 DR_3_931024,30,WATERCOLUMNDB,120,DR_553644,50,D_COAL(4|10),110,DR_64_007[O:D_SAND,50,0],80, \
1531 D_LOKSCH(5|2_1),150,STELLWERK5,150,H_ORHAZ4,:,0; 7*(LAMP23,200),:,0;],(TRKGS|TRKDW), \
1532 [FG+=WATERCOLUMN03:50+500,-4;]
1533 $DEF STBGDBW53=$FLG(G,STBGDBB21,$FLG(N,STBGDBB21,STBGDBW53S))
1534
1535 # BW Nebenbahn Deutschland DR E4
1536 $DEF STBGDBW54S=SKY,BG_GREEN1,BG_FOREST1,[BG<=D_LANDROW;], \
1537 [BG<=TREES_SUMMER,1-50*2,:..,0,#;30*WALL18(|[M]),:,-12;D_WAREHOUSE1:50+670,0; \
1538 BOCK4,150,DR_4SHZ1,DR_4BAAI,500:,0; \
1539 D_TANK3,15,DR_4A_VB971606,DR_4A_VT171006,30,WATERCOLUMNDB,120,DR_110K,50,D_COAL(4|10),110, \
1540 DR_4_861460L[O:D_SAND,50,0],80,D_LOKSCH(5|8|2_1),150,STELLWERK5,150,H_ORHAZ4,:,0; \
1541 7*(LAMP23,200),:,0;],(TRKGS|TRKDW),[FG+=WATERCOLUMN03:50+500,-4;]
1542 $DEF STBGDBW54=$FLG(G,STBGDBB21,$FLG(N,STBGDBB21,STBGDBW54S))
1543
1544 #--------------------------------------------------------------------------------------------------#
1545
1546 # Gross-BW Dampf Deutschland E2
1547 $DEF STBGDBW12S=SKY,BG_GREEN1,BG_FOREST1, \
1548 [BG<=FACT23,110,D_MINE01C[BT:62,115,256,],150,FACT15_1,200,D_FABRIK01_3,D_FABRIK01_2,250,J_FACT02, \
1549 250,FACT28_1,180,FACT31,FACT32,200,FACT05_1,280,NL_SPOORZICHT_1,150,FACT24_1,100,NL_BRICKYARD2, \
1550 150,FACT14_1,FACT03D,FACT02A,FACT02B,200,10,I_SOTSTAZELE2,20:..,-5,#;TREES_SUMMER:..,0,#; \
1551 40*WALL18(|[M]),:,-12;FACT23,100,WASSERTURM_KOETHEN,3000:,0; \
1552 WUE_TBTKRANL,DRG_8970M,30,WATERCOLUMNDB,200,WATERCOLUMNDB,120,D_RINGLOK1A, \
1553 D_RINGLOK1B[O:DRG_553100A,287,0][O:D_DREHSCHEIBE,280,0],D_RINGLOK1C,1100,500:,0; \
1554 1800,DRG_94959L[O:D_SAND,50,0],100, \
1555 D_COAL7[OB:D_COAL6,24,0][O:DRG_381340L,92,0][O:D_COAL8,34,0][O:D_COAL5,199,0],150,H_ORHAZ4,60, \
1556 STELLWERK10:,0;1200,BOCK4,350,DRG_OOT8,350,DRG_CIGDPR91L:,0; 9*(LAMP23,200),:,0;],TRKGS|TRKDW
1557 $DEF STBGDBW12=$FLG(G,STBGDE0(1|2|3)T,$FLG(N,STBGDBB21,STBGDBW12S))
1558
1559 # Gross-BW Dampf Deutschland DB E3
1560 $DEF STBGDBW13S=SKY,BG_GREEN1,BG_FOREST1, \
1561 [BG<=FACT23,110,D_MINE01C[BT:62,115,256,],150,FACT15_1,200,D_FABRIK01_3,D_FABRIK01_2,250,J_FACT02, \
1562 250,FACT28_1,180,FACT31,FACT32,200,FACT05_1,280,NL_SPOORZICHT_1,150,FACT24_1,100,NL_BRICKYARD2, \
1563 150,FACT14_1,FACT03D,FACT02A,FACT02B,200,10,I_SOTSTAZELE2,20:..,-5,#;TREES_SUMMER:..,0,#; \
1564 40*WALL18(|[M]),:,-12;FACT23,100,WASSERTURM_KOETHEN,3000:,0; \
1565 D_TANK3,DB_3V200001,30,WATERCOLUMNDB,200,WATERCOLUMNDB,120,D_RINGLOK1A, \
1566 D_RINGLOK1B[O:DB_3B01159,275,0][O:D_DREHSCHEIBE,280,0],D_RINGLOK1C,1100,500:,0; \
1567 1800,DB_3B23100L[O:D_SAND,50,0],100, \
1568 D_COAL7[OB:D_COAL6,24,0][O:DB_50_2640L,72,0][O:D_COAL8,34,0][O:D_COAL5,199,0],150,H_ORHAZ4,60, \
1569 STELLWERK10:,0;1400,BOCK4,150,DB_3B_OM12UL,DB_3A_O10,200,DB_3B_BAU2:,0; 9*(LAMP23,200),:,0;], \
1570 TRKGS|TRKDW
1571 $DEF STBGDBW13=$FLG(G,STBGDE0(1|2|3)T,$FLG(N,STBGDBB21,STBGDBW13S))
1572
1573 # Gross-BW Dampf Deutschland DR E3
1574 $DEF STBGDBW43S=SKY,BG_GREEN1,BG_FOREST1, \
1575 [BG<=FACT23,110,D_MINE01C[BT:62,115,256,],150,FACT15_1,200,D_FABRIK01_3,D_FABRIK01_2,250,J_FACT02, \
1576 250,FACT28_1,180,FACT31,FACT32,200,FACT05_1,280,NL_SPOORZICHT_1,150,FACT24_1,100,NL_BRICKYARD2, \
1577 150,FACT14_1,FACT03D,FACT02A,FACT02B,200,10,I_SOTSTAZELE2,20:..,-5,#;TREES_SUMMER:..,0,#; \
1578 40*WALL18(|[M]),:,-12;FACT23,100,WASSERTURM_KOETHEN,3000:,0; \
1579 DR_3_01018,30,WATERCOLUMNDB,20,DR_3A83_1001,80,WATERCOLUMNDB,120,D_RINGLOK1A, \
1580 D_RINGLOK1B[O:DR_43010L,275,0][O:D_DREHSCHEIBE,280,0],D_RINGLOK1C,1100,500:,0; \
1581 1800,DR_22_001_1968L[O:D_SAND,50,0],100, \
1582 D_COAL7[OB:D_COAL6,24,0][O:DR_58_411[BT:23,46,141,12],102,0][O:D_COAL8,34,0][O:D_COAL5,199,0],150, \
1583 H_ORHAZ4,60,STELLWERK10:,0;1400,BOCK4,150,DR_3_OMU37VBBL,DR_3PWGS56L,200,DR_3_G05L:,0; \
1584 9*(LAMP23,200),:,0;],TRKGS|TRKDW
1585 $DEF STBGDBW43=$FLG(G,STBGDE0(1|2|3)T,$FLG(N,STBGDBB21,STBGDBW43S))
1586
1587 # Gross-BW Dampf Deutschland DR E4
1588 $DEF STBGDBW44S=SKY,BG_GREEN1,BG_FOREST1,[W=X], \
1589 [BG<=FACT23,110,D_MINE01C[BT:62,115,256,],150,FACT15_1,200,D_FABRIK01_3,D_FABRIK01_2,250,J_FACT02, \
1590 250,FACT28_1,180,FACT31,FACT32,200,FACT05_1,280,NL_SPOORZICHT_1,150,FACT24_1,100,NL_BRICKYARD2, \
1591 150,FACT14_1,FACT03D,FACT02A,FACT02B,200,10,I_SOTSTAZELE2,20:..,-5,#;TREES_SUMMER:..,0,#; \
1592 40*WALL18(|[M]),:,-12;FACT23,100,WASSERTURM_KOETHEN,3000:,0; \
1593 D_TANK3,DR_120_366L,30,WATERCOLUMNDB,30,DR_102_125L,80,WATERCOLUMNDB,120,D_RINGLOK1A, \
1594 D_RINGLOK1B[O:DR_4_242_008,295,0][O:D_DREHSCHEIBE,280,0],D_RINGLOK1C,1100,500:,0; \
1595 1800,DR_4_411144[O:D_SAND,50,0],100, \
1596 D_COAL7[OB:D_COAL6,24,0][O:DR_4_528040,72,0][O:D_COAL8,34,0][O:D_COAL5,199,0],150,H_ORHAZ4,60, \
1597 STELLWERK10:,0;1400,BOCK4,150,DR_4KRANB,DR_4SHZ1:,0; 9*(LAMP23,200),:,0;],TRKGS|TRKDW, \
1598 [FG+=2*FL_DRQT,FL_DRQB,2*FL_DRQT,FL_DRQA,2*FL_DRQT:..,-4;]
1599 $DEF STBGDBW44=$FLG(G,STBGDE0(1|2|3)O,$FLG(N,STBGDBB21,STBGDBW44S))
1600
1601 #--------------------------------------------------------------------------------------------------#
1602
1603 # Gross-BW E-Lok Deutschland DB E3
1604 $DEF STBGDBW33S=SKY,BG_GREEN1,BG_FOREST1,[W=X], \
1605 [BG<=FACT21_1,50,FACT05_2,FACT05_1,60,STORE02,150,I_SOTSTAZELE2,NL_SPOORZICHT_1,80,FACT24_1,90, \
1606 D_FABRIK01_2,D_FABRIK01_1,100,NL_BRICKYARD2:..,-5,#; \
1607 FACT24_1,90,D_FABRIK01_2,D_FABRIK01_1,100,NL_SPOORZICHT_1,80,NL_BRICKYARD2,200,STORE02,150, \
1608 FACT05_2,FACT05_1,60,FACT21_1,50,I_SOTSTAZELE2,200:..,-5,#;TREES_SUMMER:..,0,#; \
1609 40*WALL18(|[M]),:,-12;D_BW01_1,100,FACT31,3000:,0; \
1610 D_TANK3,DB_3V200001,30,DB_V36_2L,50,166[O:DB_E10259,0,0][OT:DB_41JHPD,18,40][O:BSOD,0,0],40, \
1611 165[O:DB_E403G,0,0][BT:111,44][OT:DB_41JHPD,112,42],200,D_LOKSCH7_1,300,D_BW02_1,50,D_RB_B1,60, \
1612 STELLWERK16,:,0;1400,BOCK4,150,DB_VT08_5AL,DB_VM08_5L,DB_VT08_5B|DB_VS08_5:,0; 9*(LAMP23,200),:,0;], \
1613 TRKGS|TRKDW,[FG+=2*FL_DBQT,FL_DBQB,2*FL_DBQT,FL_DBQA,2*FL_DBQT:..,-4;]
1614 $DEF STBGDBW33=$FLG(G,STBGDE0(1|2|3)T,$FLG(N,STBGDE0(1|2|3)T,STBGDBW33S))
1615
1616 # Gross-BW E-Lok Deutschland DB E4
1617 $DEF STBGDBW34S=SKY,BG_GREEN1,BG_FOREST1,[W=X], \
1618 [BG<=INDUSTRY01,300,J_FACT03,250,3*STORAGESHED,350,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150, \
1619 STORE02,280,D_SILO02,300,J_FACT02,200,US_TIMS2,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250, \
1620 STORE03:..,-5,#; \
1621 D_SILO02,200,US_TIMS2,300,J_FACT02,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250,STORE03,INDUSTRY01, \
1622 300,3*STORAGESHED,350,J_FACT03,250,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150,STORE02,280:.., \
1623 -5,#;TREES_SUMMER:..,0,#; 40*WALL18(|[M]),:,-12;D_BW01_1,100,FACT31,3000:,0; \
1624 D_TANK3,SHELTER_001,40,DB_4_212R3L,30,DB_4_216013L[O:DB_O216AN,62,18][O:DB_O216RL,64,20],50, \
1625 195[O:DB_4_103105L,0,0][OT:DB_103PDS,18,40][OT:DB_103PDS,139,40],40, \
1626 195[O:DB_4_150042,0,0][OT:DB_E41PD,20,42][OT:DB_E41PD,137,42],100,DEPOT3_1,230,DEPOT2_1,50, \
1627 D_RB_B1,60,RU_SENTRYBOX01,:,0; \
1628 700,BOCK4,150,DB_4_332R,50,DB_BAU4G,DB_4BAU5,DB_4BAU7,50,BR515~LIP,BR815~LIP:,0; \
1629 9*(LAMP23,200),:,0;],TRKGS|TRKDW,[FG+=2*FL_DBQT,FL_DBQB,2*FL_DBQT,FL_DBQA,2*FL_DBQT:..,-4;]
1630 $DEF STBGDBW34=$FLG(G,STBGDE0(1|2|3)O,$FLG(N,STBGDE0(1|2|3)O,STBGDBW34S))
1631
1632 # Gross-BW E-Lok Deutschland DB E5
1633 $DEF STBGDBW35S=SKY,BG_GREEN1,BG_FOREST1,[W=X], \
1634 [BG<=INDUSTRY01,300,J_FACT03,250,3*STORAGESHED,350,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150, \
1635 STORE02,280,D_SILO02,300,J_FACT02,200,US_TIMS2,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250, \
1636 STORE03:..,-5,#; \
1637 D_SILO02,200,US_TIMS2,300,J_FACT02,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250,STORE03,INDUSTRY01, \
1638 300,3*STORAGESHED,350,J_FACT03,250,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150,STORE02,280:.., \
1639 -5,#;TREES_SUMMER:..,0,#; 40*WALL18(|[M]),:,-12;D_BW01_1,100,FACT31,3000:,0; \
1640 D_TANK3,SHELTER_001,40,DBAG_5_232(051|477)(|L),30,DBAG_5_216(025A|034A)(|L),50, \
1641 167[O:DB_5_112_147L,0,0][OT:DB_103E1,21,42],40,197[O:DB_155_214,0,0][OT:DBAG_140774_PAN,18,43], \
1642 100,DEPOT3_1,230,DEPOT2_1,50,D_RB_B1,60,RU_SENTRYBOX01,:,0; \
1643 700,BOCK4,150, \
1644 (DB_365132S[OT:#AKRW3,100,5][OT:AKRW3,0,5][OT:PRESS_363028O,18,4][O:DBAG_LW,44,22])| \
1645 (DB_4_365221SL[OT:#AKRW3,100,5][OT:AKRW3,0,5][OT:ESG_363OL,25,8][O:DBAG_LW,57,23]),50,\
1646 DB_610_015_515:,0; 9*(LAMP23,200),:,0;],TRKGS|TRKDW, \
1647 [FG+=2*FL_DBQT,FL_DBQB,2*FL_DBQT,FL_DBQA,2*FL_DBQT:..,-4;]
1648 $DEF STBGDBW35=$FLG(G,STBGDE0(1|2|3)O,$FLG(N,STBGDE0(1|2|3)O,STBGDBW35S))
1649
1650 # Gross-BW E-Lok Deutschland DB E6
1651 $DEF STBGDBW36S=SKY,BG_GREEN1,BG_FOREST1,[W=X], \
1652 [BG<=INDUSTRY01,300,J_FACT03,250,3*STORAGESHED,350,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150, \
1653 STORE02,280,D_SILO02,300,J_FACT02,200,US_TIMS2,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250, \
1654 STORE03:..,-5,#; \
1655 D_SILO02,200,US_TIMS2,300,J_FACT02,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250,STORE03,INDUSTRY01, \
1656 300,3*STORAGESHED,350,J_FACT03,250,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150,STORE02,280:.., \
1657 -5,#;;TREES_SUMMER:..,0,#; 40*WALL18(|[M]),:,-12;D_BW01_1,100,FACT31,3000:,0; \
1658 D_TANK6,,SHELTER_001,40,DBAG_218182U,30,DBAG_363649AL,50, \
1659 168[O:DBAG_111_003,0,0][O:DB_LNRUICK,76,13][B:79,12,9,1,#606060][OT:DBAG_140RZPD,23,41],40, \
1660 191[O:DBAG_101_003,0,0][O:DB_LNRUICR,88,15][B:91,14,9,1,#C01428][OT:RAI_185_142P2,38,42],200, \
1661 DEPOT3_1,300,DEPOT2_1,50,D_RB_B1,60,RU_SENTRYBOX01,:,0;1100,BOCK4,150,DBAG_425R,:,0; \
1662 9*(LAMP23,200),:,0;],TRKGS|TRKDW,[FG+=2*FL_DBQT,FL_DBQB,2*FL_DBQT,FL_DBQA,2*FL_DBQT:..,-4;]
1663 $DEF STBGDBW36=$FLG(G,STBGDE0(1|2|3)O,$FLG(N,STBGDE0(1|2|3)O,STBGDBW36S))
1664
1665 #--------------------------------------------------------------------------------------------------#
1666 # Gebirge-Schweiz
1667
1668 # Wald Nadelbaum Gebirge-Schweiz
1669 $DEF STBGFN=BGNORD1,[BG<=20*(10|3|7|TREE12|TREE91|TREE108|TREE109|TREE55|TREE56|BUSH17):..,0;],TRKWD, \
1670 TRKDW
1671
1672 # Bahnhof Schweiz Großstadt 5
1673 $DEF STBGCHB15O=SKY,BG_FOREST1, \
1674 [BG<=BGCITYDA1|BGCITYAU1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYDA2|BGCITYAU2:..,0,#; \
1675 50*SWALL1B,1000,50*SWALL1B,1000,:,-2; A_LANDL|NL_AMERSFOORT_NCS[O:CH_STMORITZ6,246,40]:,8; \
1676 CH_TICKETAUTOMAT1,200,CH_TICKETAUTOMAT1,:,8; \
1677 CH_STMORITZ6S,540,CH_TICKETAUTOMAT1,500,CH_TICKETAUTOMAT1,460,CH_STMORITZ6S,:,8; BGPLATT1800CH:,8; \
1678 PLF_CZ01,PLF_CZ13A,PLF_CZ06,PLF_CZ07,PLF_CZ03,PLF_CZ05[BT:28,35,36,9][O:CH_STMORITZ6,37,39], \
1679 PLF_CZ04,PLF_CZ05[BT:28,35,36,9][O:CH_STMORITZ6,37,39],PLF_CZ03,PLF_CZ08,PLF_CZ13,PLF_CZ10, \
1680 PLF_CZ14 :,-2;],TRKES
1681 $DEF STBGCHB15H=STMOD,STBGCHB15O
1682 $DEF STBGCHB15=$FLG(O,STBGCHB15O,STBGCHB15H);
1683
1684 # Kleinstadt 5
1685 $DEF STBGCHB25O=BGNORD1, \
1686 [BG<=BGCITYAU3:..,0,#; 1-40*1,TREES_COLD,:..,0,#;BGCITYAU3:..,0,#; \
1687 (A_WEIZELSDORF1[O:A_GRIESIMPINSGAU6,103,25])|(A_FERLACH[O:A_GRIESIMPINSGAU6,31,27])|RHB_ZIZERS,:,8; \
1688 CH_TICKETAUTOMAT1,200,:,8; \
1689 CH_STMORITZ6S,340,CH_TICKETAUTOMAT1,300,CH_TICKETAUTOMAT1,360,CH_STMORITZ6S,:,5; \
1690 PLF_NORTES4,4*PLF_NORTES1,PLF_NORTES3:,-5;BGPLATT1400CH:,+5; \
1691 PLF_NL1A,12*PLF_NL(5|2),#PLF_NL1A,:,-7;],TRKES
1692 $DEF STBGCHB25H=STMOD,STBGCHB25O
1693 $DEF STBGCHB25=$FLG(O,STBGCHB25O,STBGCHB25H);
1694
1695 #--------------------------------------------------------------------------------------------------#
1696 # Österreich
1697
1698 # Strecke Alpen Winter
1699 $DEF STBGATS01=[BG-=(BG_Austria01:..,-10,<=>;BG_GRAS1W:..,^-5,<=>;)],TRKDS
1700 $DEF STBGATS02=[BG-=(BG_Winter01:..,0,<=>;BG_GRAS1W:..,^-7,<=>;)],TRKDS
1701 # Bahnhof Großstadt 5
1702
1703 # Strecke Alpen/Voralpen
1704 # Telegrafenleitung bis E3
1705 $DEF STBGATS03T=[BG-=BG_alpen2:..,0,<=>,326,5821;CABLE5:..,0;],TRKDHB
1706 # ab E4
1707 $DEF STBGATS03O=[BG-=BG_alpen2:..,0,<=>,326,5821;],TRKDHB
1708 $DEF STBGAT15O=SKY,BG_FOREST1, \
1709 [BG<=BGCITYDA1|BGCITYAU1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYDA2|BGCITYAU2,:..,0,#; \
1710 A_LANDL|NL_AMERSFOORT_NCS[O:A_GRIESIMPINSGAU6,226,40],:,8; J_TICKET,200,J_TICKET,:,8; \
1711 A_GRIESIMPINSGAU6,540,J_TICKET,500,J_TICKET,460,A_GRIESIMPINSGAU6,:,8; BGPLATT1800CH,:,8; \
1712 PLF_CZ01,PLF_CZ13A,PLF_CZ06,PLF_CZ07,PLF_CZ03,PLF_CZ05[BT:28,35,36,9][O:A_GRIESIMPINSGAU6,20,39], \
1713 PLF_CZ04,PLF_CZ05[BT:28,35,36,9][O:A_GRIESIMPINSGAU6,20,39],PLF_CZ03,PLF_CZ08,PLF_CZ13,PLF_CZ10, \
1714 PLF_CZ14,:,-2;],TRKES
1715 $DEF STBGAT15H=STMOD,STBGAT15O
1716 $DEF STBGAT15=$FLG(O,STBGAT15O,STBGAT15H);
1717
1718 # Kleinstadt 3
1719 $DEF STBGAT23O=BGNORD1, \
1720 [BG<=BGCITYAU3:..,0,#; 1-20*1,TREES_COLD,:..,0,#;BGCITYAU3:..,0,#; \
1721 (A_WEIZELSDORF1[O:D_AMSDORF,113,25])|A_UEBELBACH|(A_FERLACH[O:D_AMSDORF,41,27])|RHB_ZIZERS,:,8; \
1722 D_AMSDORFS,1000,D_AMSDORFS,:,5;1000,WATERCOLUMN02:,0; PLF_NORTES4,4*PLF_NORTES1,PLF_NORTES3:,-5; \
1723 BGPLATT1400A:,+5; PLF_NL1A,12*PLF_NL(5|2),#PLF_NL1A,:,-7;],TRKES
1724 $DEF STBGAT23H=STMOD,STBGAT23O
1725 $DEF STBGAT23=$FLG(O,STBGAT23O,STBGAT23H);
1726
1727 # Kleinstadt 5
1728 $DEF STBGAT25O=BGNORD1, \
1729 [BG<=BGCITYAU3:..,0,#; 1-20*1,TREES_COLD,:..,0,#;BGCITYAU3:..,0,#; \
1730 (A_WEIZELSDORF1[O:A_GRIESIMPINSGAU6,103,25])|A_WAIDOFEN|A_BHF1[O:A_GRIESIMPINSGAU6,211,29]| \
1731 A_LANDL|A_MU_STOLZALPE[B:167,41,37,9][O:A_GRIESIMPINSGAU6,174,42]| \
1732 (A_FERLACH[O:A_GRIESIMPINSGAU6,31,27])|RHB_ZIZERS,:,8; J_TICKET,200,:,8; \
1733 A_GRIESIMPINSGAU6S,340,J_TICKET,300,J_TICKET,360,A_GRIESIMPINSGAU6S,:,5; \
1734 PLF_NORTES4,4*PLF_NORTES1,PLF_NORTES3:,-5;BGPLATT1400A:,+5; PLF_NL1A,12*PLF_NL(5|2),#PLF_NL1A,:,-7;], \
1735 TRKES
1736 $DEF STBGAT25H=STMOD,STBGAT25O
1737 $DEF STBGAT25=$FLG(O,STBGAT25O,STBGAT25H);
1738
1739 #--------------------------------------------------------------------------------------------------#
1740 # Großbritannien
1741
1742 # Strecke
1743 $DEF STBGGB01=[BG-=BG_BRIT01:..,-10,<=>;],TRKDH
1744 $DEF STBGGB02=[BG-=BG_BRITAIN02:..,-0,<=>;],TRKDHB
1745 $DEF STBGGB03=[BG-=BG_BRITAIN03:..,0,<=>;],TRKDHB
1746 $DEF STBGGB04=[BG-=BG_BRITAIN04:..,-30,<=>;],TRKDHB
1747 $DEF STBGGB05=[BG-=BG_BRITAIN05:..,0,<=>,38,2630;],TRKDHB
1748
1749 # Bahnhof E 3
1750 $DEF STBGGBB13O=SKY,BG_FOREST1, \
1751 [BG<=BGCITYGB1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYGB2:..,0,#; \
1752 (NL_MEPPEL[O:GB_WATCHET3,230,25])|(NL_DELFZIJL[O:GB_WATCHET3,342,54]),:,8; 1000,WATERCOLUMN02:,-4; \
1753 (0[AR:PLF_I1(2*C,4*B,A,6*(37*B,A),4*B,2*C)]):,8; GB_WATCHET3S,1100,GB_WATCHET3S,:,8; \
1754 BGPLATT1800H,:,8;],$BG_PLF1(18),TRKES
1755 $DEF STBGGBB13H=STMOD,STBGGBB13O
1756 $DEF STBGGBB13=$FLG(O,STBGGBB13O,STBGGBB13H);
1757
1758 # Bahnhof E 4
1759 $DEF STBGGBB14O=SKY,BG_FOREST1, \
1760 [BG<=BGCITYGB1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYGB2:..,0,#; \
1761 (NL_MEPPEL[O:GB_BLENCOW3,235,27])|(NL_DELFZIJL[O:GB_BLENCOW3,342,52]),:,8; \
1762 (0[AR:PLF_I1(2*C,4*B,A,6*(37*B,A),4*B,2*C)]):,8; GB_BLENCOW3S,1100,GB_BLENCOW3S,:,8; \
1763 BGPLATT1800H,:,8;],$BG_PLF1(18),TRKES
1764 $DEF STBGGBB14H=STMOD,STBGGBB14O
1765 $DEF STBGGBB14=$FLG(O,STBGGBB14O,STBGGBB14H);
1766
1767 # Bahnhof E 5/6
1768 $DEF STBGGBB15O=SKY,BG_FOREST1, \
1769 [BG<=BGCITYGB1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYGB2:..,0,#; \
1770 (NL_MEPPEL[O:GB_AUBURN6,236,23])|(NL_DELFZIJL[O:CH_STMORITZ6,342,48]),:,8; \
1771 J_TICKET,200,J_TICKET,:,8;(0[AR:PLF_I1(2*C,4*B,A,6*(37*B,A),4*B,2*C)]):,8; \
1772 GB_AUBURN6S,410,J_TICKET,300,J_TICKET,410,GB_AUBURN6S,:,8; BGPLATT1800H,:,8;],$BG_PLF1(18),TRKES
1773 $DEF STBGGBB15H=STMOD,STBGGBB15O
1774 $DEF STBGGBB15=$FLG(O,STBGGBB15O,STBGGBB15H);
1775
1776 #--------------------------------------------------------------------------------------------------#
1777 # Irland
1778 # Strecke
1779 $DEF STBGIR01=[BG-=BG_EIRE01:..,0,<=>,0,1965;],TRKDHB
1780 $DEF STBGIR02=[BG-=BG_EIRE02:..,-10,<=>;],TRKDHB
1781
1782 #--------------------------------------------------------------------------------------------------#
1783 # Frankreich
1784 # Strecke
1785 $DEF STBGFRS1=[BG-=F_BURGUNDY1:..,-10,<=>,28,1800;],EMBG,TRKDH
1786 $DEF STBGFRS2=[BG-=F_PROV1:..,,<=>,259,2295;],TRKLO
1787 #E1-3
1788 $DEF STBGFRS3T=[BG-=BG_FRANCE01:..,-35,<=>;CABLE5:..,0;],TRKDHB
1789 #E4-6
1790 $DEF STBGFRS3O=[BG-=BG_FRANCE01:..,-35,<=>;],TRKDHB
1791 #03 auch A,SK,D,F,BE,L,PL E1-6
1792 $DEF STBGFRS4=[BG-=BG_FRANCE02:..,-60,<=>;],TRKDHB
1793
1794 # Landbahnhof
1795
1796 # Hintergrund
1797 $DEF CITYBGFD=[BG<=F_VILLAGE02,F_VILLAGE03:..,0,#; (1-40*1),TREES_SUMMER:..,0,#; \
1798 F_VILLAGE01,(150-300)*1,#F_VILLAGE03:..,0,#;]
1799 $DEF BG_GAREVIL=[BG<=F_SENS[O:$1,*215,^42]|F_VILLENEUVE1[O:$1,*110,^35]| \
1800 (F_STATION04C,100,F_STATION04A,150,F_STATION04B)|F_STATION02_3[O:$1,*78,^43]| \
1801 F_STATION03[O:$1,*157,^35]|F_VILLENEUVE2[B:12,32,36,8][O:$1,*134,^39]|F_BUSSANG[O:$1,*98,^68];]
1802
1803 $DEF STBGFRB231O=SKY,BG_GREEN1,BG_FOREST1,CITYBGFD,$BG_GAREVIL(F_CANFRANC3), \
1804 [BG<=F_CANFRANC3S,10,BANK01,20,J_TICKET,30,BGPASS1,60,BGPASS1,60,PLF_J2D,50,LAMP09,30,BGPASS1,70, \
1805 BGPASS1,30,BANK01,30,LAMP09,50,BGPASS1,40,PERS01,10,BGPASS1,20,J_TICKET,30,F_CANFRANC3S:,5; \
1806 PLF2EL,12*PLF2P,PLF2E:,-4;],(TRKGS|TRKDW),[FG+=WATERCOLUMN02:50+500,-4;]
1807 $DEF STBGFRB231H=STRMOD,STBGFRB231O
1808 $DEF STBGFRB232O=SKY,BG_GREEN1,BG_FOREST1,CITYBGFD,$BG_GAREVIL(F_QUIBERON), \
1809 [BG<=F_QUIBERONS,10,BANK01,20,J_TICKET,30,BGPASS1,60,BGPASS1,60,PLF_J2D,50,LAMP09,30,BGPASS1,70, \
1810 BGPASS1,30,BANK01,30,LAMP09,50,BGPASS1,40,PERS01,10,BGPASS1,20,J_TICKET,30,F_QUIBERONS:,5; \
1811 PLF2EL,12*PLF2P,PLF2E:,-4;],(TRKGS|TRKDW),[FG+=WATERCOLUMN02:50+500,-4;]
1812 $DEF STBGFRB232H=STRMOD,STBGFRB232O
1813 $DEF STBGFRB233O=STRMOD,SKY,BG_GREEN1,BG_FOREST1,CITYBGFD,$BG_GAREVIL(F_EPINAL), \
1814 [BG<=F_EPINALS,10,BANK01,20,J_TICKET,30,BGPASS1,60,BGPASS1,60,PLF_J2D,50,LAMP09,30,BGPASS1,70, \
1815 BGPASS1,30,BANK01,30,LAMP09,50,BGPASS1,40,PERS01,10,BGPASS1,20,J_TICKET,30,F_EPINALS:,5; \
1816 PLF2EL,12*PLF2P,PLF2E:,-4;],(TRKGS|TRKDW),[FG+=WATERCOLUMN02:50+500,-4;]
1817 $DEF STBGFRB233H=STRMOD,STBGFRB233O
1818 $DEF STBGFRB23O=STBGFRB23(1|2|3)O
1819 $DEF STBGFRB23H=STBGFRB23(1|2|3)H
1820 $DEF STBGFRB23=$FLG(O,STBGFRB23O,STBGFRB23H);
1821 $DEF STBGFRB24O=STRMOD,SKY,BG_GREEN1,BG_FOREST1,CITYBGFD,$BG_GAREVIL(F_CHATELLERAULT), \
1822 [BG<=F_CHATELLERAULTS,10,BANK01,55,BGPASS1,60,BGPASS1,60,PLF_J2D,50,LAMP01,30,BGPASS1,70,BGPASS1, \
1823 30,BANK01,30,LAMP01,50,BGPASS1,40,PERS01,10,BGPASS1,50,F_CHATELLERAULTS:,5; \
1824 PLF2EL,12*PLF2P,PLF2E:,-4;],(TRKGS|TRKDW)
1825 $DEF STBGFRB24H=STRMOD,STBGFRB24O
1826 $DEF STBGFRB24=$FLG(O,STBGFRB24O,STBGFRB24H);
1827 $DEF STBGFRB26O=STRMOD,SKY,BG_GREEN1,BG_FOREST1,CITYBGFD,$BG_GAREVIL(F_BOUZONVILLE6), \
1828 [BG<=F_BOUZONVILLE6S,10,BANK01,55,BGPASS1,60,BGPASS1,60,PLF_J2D,50,LAMP01,30,BGPASS1,70,BGPASS1, \
1829 30,BANK01,30,LAMP01,50,BGPASS1,40,PERS01,10,BGPASS1,50,F_BOUZONVILLE6S:,5; \
1830 PLF2EL,12*PLF2P,PLF2E:,-4;],(TRKGS|TRKDW)
1831 $DEF STBGFRB26H=STRMOD,STBGFRB26O
1832 $DEF STBGFRB26=$FLG(O,STBGFRB26O,STBGFRB26H);
1833
1834 # Bahnhof Großstadt
1835 # E3
1836 $DEF STBGFRB131O=SKY,BG_FOREST1, \
1837 [BG<=BGCITYDA1:..,0,#;BGCITYDA2,150,:..,0,#; \
1838 F_CHARLEVILLE[OT:F_CANFRANC3,423,52][OT:F_CANFRANC3,115,52][OT:F_CANFRANC3,732,52],:,8; \
1839 PLF_GASTEIZ3[BT:0,0,89,65][BT:0,0,92,53],8*PLF_GASTEIZ3,PLF_GASTEIZ3[BT:6,0,89,65][BT:3,0,92,53]:, \
1840 -6;F_CANFRANC3,500,F_CANFRANC3,:,37; \
1841 BGPASS1,16,F_CANFRANC3S,30,LAMP01,40,BGPASS1,20,BGPASS1,5,PLF_J2D,10,BGPASS1,15,BGPASS1,20, \
1842 B_SHELTER,26,BGPASS1,25,PASG03,35,PLF_J2D,20,PASG02,20,DBAG_STAIRS,30,PASG01,25,BGPASS1,DUSTBIN1, \
1843 11,PLF_J2D,25,BANK8,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,20,BGPASS1,15,BANK04,30, \
1844 B_SHELTER,26,BGPASS1,35,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP01,15,F_CANFRANC3S,12,PERS01,20,PERS03:, \
1845 8;],$BG_PLF1(18),TRKES
1846 $DEF STBGFRB132O=SKY,BG_FOREST1, \
1847 [BG<=BGCITYDA1:..,0,#;BGCITYDA2,150,:..,0,#;F_STATION02_2[OT:F_QUIBERON,206,36]:,8; \
1848 PLF_GASTEIZ3[BT:0,0,89,65][BT:0,0,92,53],8*PLF_GASTEIZ3,PLF_GASTEIZ3[BT:6,0,89,65][BT:3,0,92,53]:, \
1849 -6;F_CANFRANC3,500,F_CANFRANC3,:,37; \
1850 BGPASS1,16,F_QUIBERONS,30,LAMP01,40,BGPASS1,20,BGPASS1,5,PLF_J2D,10,BGPASS1,15,BGPASS1,20, \
1851 B_SHELTER,26,BGPASS1,25,PASG03,35,PLF_J2D,20,PASG02,20,DBAG_STAIRS,30,PASG01,25,BGPASS1,DUSTBIN1, \
1852 11,PLF_J2D,25,BANK8,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,20,BGPASS1,15,BANK04,30, \
1853 B_SHELTER,26,BGPASS1,35,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP01,15,F_QUIBERONS,12,PERS01,20,PERS03:,8;], \
1854 $BG_PLF1(18),TRKES
1855 $DEF STBGFRB13O=STBGFRB13(1|2)O
1856 $DEF STBGFRB13H=STMOD,STBGFRB13O
1857 $DEF STBGFRB13=$FLG(N,STBGFRB23,$FLG(O,STBGFRB13O,STBGFRB13H));
1858
1859 # E4
1860 $DEF STBGFRB14O=SKY,BG_FOREST1, \
1861 [BG<=BGCITYDA1:..,0,#;BGCITYDA2,150,:..,0,#; \
1862 F_CHARLEVILLE[OT:F_CHATELLERAULT,423,52][OT:F_CHATELLERAULT,115,52][OT:F_CHATELLERAULT,732,52],:,8; \
1863 PLF_GASTEIZ3[BT:0,0,89,65][BT:0,0,92,53],8*PLF_GASTEIZ3,PLF_GASTEIZ3[BT:6,0,89,65][BT:3,0,92,53]:, \
1864 -6;F_CHATELLERAULT,480,F_CHATELLERAULT,:,38; \
1865 BGPASS1,16,F_CHATELLERAULTS,30,LAMP01,40,BGPASS1,20,BGPASS1,5,PLF_J2D,10,BGPASS1,15,BGPASS1,20, \
1866 B_SHELTER,26,BGPASS1,25,PASG03,10,5,PLF_J2D,20,PASG02,20,DBAG_STAIRS,30,PASG01,25,BGPASS1, \
1867 DUSTBIN1,11,PLF_J2D,25,BANK8,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,4,16,BGPASS1,15, \
1868 BANK04,10,B_SHELTER,10,F_COMP,10,BGPASS1,25,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP01,15, \
1869 F_CHATELLERAULTS,12,PERS01,20,PERS03,:,8;],$BG_PLF1(18),TRKES
1870 $DEF STBGFRB14H=STMOD,STBGFRB14O
1871 $DEF STBGFRB14=$FLG(N,STBGFRB24,$FLG(O,STBGFRB14O,STBGFRB14H))
1872
1873 # E5
1874 $DEF STBGFRB15O=SKY,BG_FOREST1, \
1875 [BG<=BGCITYDA(1|2):..,0,#;BGCITYDM(1|2),150,:..,0,#;F_STATION02_2[OT:F_CHATELLERAULT,206,36]:,8; \
1876 PLF_GASTEIZ3[BT:0,0,89,65][BT:0,0,92,53],8*PLF_GASTEIZ3,PLF_GASTEIZ3[BT:6,0,89,65][BT:3,0,92,53]:, \
1877 -6;F_CHATELLERAULT,480,F_CHATELLERAULT,:,38; \
1878 BGPASS1,16,F_CHATELLERAULTS,30,LAMP01,40,BGPASS1,20,BGPASS1,5,PLF_J2D,10,BGPASS1,15,BGPASS1,20, \
1879 B_SHELTER,26,BGPASS1,25,PASG03,10,J_TICKET,5,PLF_J2D,20,PASG02,20,DBAG_STAIRS,30,PASG01,25, \
1880 BGPASS1,DUSTBIN1,11,PLF_J2D,25,BANK8,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,4, \
1881 J_TICKET,16,BGPASS1,15,BANK04,10,B_SHELTER,10,F_COMP,10,BGPASS1,25,BANK01,DUSTBIN1,15,BGPASS1,12, \
1882 LAMP01,15,F_CHATELLERAULTS,12,PERS01,20,PERS03,:,8;],$BG_PLF1(18),TRKES
1883 $DEF STBGFRB15H=STMOD,STBGFRB15O
1884 $DEF STBGFRB15=$FLG(N,STBGFRB24,$FLG(O,STBGFRB15O,STBGFRB15H))
1885
1886 # E6
1887 $DEF STBGFRB16O=SKY,BG_FOREST1, \
1888 [BG<=BGCITYDA(1|2):..,0,#;BGCITYDM(1|2),150,:..,0,#; \
1889 F_VILLENEUVE3[OT:F_PANTIN,73,30],50,F_VILLENEUVE4[SM:0.7]:,8; \
1890 F_BOUZONVILLE6,480,F_BOUZONVILLE6,:,38; \
1891 BGPASS1,16,F_PANTINS,30,LAMP01,40,BGPASS1,20,BGPASS1,5,PLF_J2D,10,BGPASS1,15,BGPASS1,20,B_SHELTER, \
1892 26,BGPASS1,25,PASG03,10,J_TICKET,5,PLF_J2D,20,PASG02,20, \
1893 WALL22B[BC:-20,20][BT:,10][B:0,10,84,1,#842],30,PASG01,25,BGPASS1,DUSTBIN1,11,PLF_J2D,25,BANK8,15, \
1894 BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,4,J_TICKET,16,BGPASS1,15,BANK04,30,B_SHELTER,26, \
1895 BGPASS1,35,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP01,15,F_PANTINS,12,PERS01,20,PERS03,:,8; \
1896 19*PLF_5D,:,0;#PLF_D01B,10*PLF_D01C,PLF_D01B,:,0;],TRKES
1897 $DEF STBGFRB16H=STMOD,STBGFRB16O
1898 $DEF STBGFRB16=$FLG(N,STBGFRB26,$FLG(O,STBGFRB16O,STBGFRB16H))
1899
1900 # Güterbahnhof
1901 # E3-5
1902 $DEF STBGFG3=SKY,BG_GREEN1, \
1903 [BG<=FACT21_1,50,FACT05_2,FACT05_1,60,STORE02,150,I_SOTSTAZELE2,NL_SPOORZICHT_1,80,FACT24_1,90, \
1904 D_FABRIK01_2,D_FABRIK01_1,100,NL_BRICKYARD2:..,-10,#; \
1905 FACT24_1,90,D_FABRIK01_2,D_FABRIK01_1,100,NL_SPOORZICHT_1,80,NL_BRICKYARD2,200,STORE02,150, \
1906 FACT05_2,FACT05_1,60,FACT21_1,50,I_SOTSTAZELE2,200:..,-10,#; (3:0|2:1|1:2)*(Vegetation):0-100+; \
1907 (2:1|1:2)*(Vegetation|Vegetation[M]):0-100+;BUSH20:10-45+,-8; (0|1)*BUSH20:35-80+,-8; \
1908 D_DEFUNC_1|D_GSCH01_1,30,A_FRUTIGEN1,30,D_BW02_1,20,WATERTOWER11,80,WATERCOLUMN05:..,0,#;],EMBS, \
1909 TRKES
1910
1911 # E4-6
1912 $DEF STBGFG4=SKY,BG_GREEN1, \
1913 [BG<=D_SILO02,200,US_TIMS2,300,J_FACT02,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250,STORE03, \
1914 INDUSTRY01,300,3*STORAGESHED,350,J_FACT03,250,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150, \
1915 STORE02,280:..,-10,#; \
1916 INDUSTRY01,300,J_FACT03,250,3*STORAGESHED,350,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150, \
1917 STORE02,280,D_SILO02,300,J_FACT02,200,US_TIMS2,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250, \
1918 STORE03:..,-10,#; (3:0|2:1|1:2)*(Vegetation):0-100+; (2:1|1:2)*(Vegetation|Vegetation[M]):0-100+; \
1919 BUSH20:10-45+,-8; (0|1)*BUSH20:35-80+,-8; \
1920 WALL_UF5,WALL_UF7,WALL_UF2,WALL_UF8,WALL_UF4,WALL_UF1,15,D_BAIERSBRONN3,30, \
1921 F_POSTE1|F_VILLENEUVE4:..,0,#;],EMBS,TRKES
1922
1923 #--------------------------------------------------------------------------------------------------#
1924 # Belgien
1925
1926 #Strecke
1927 $DEF STBGBE01=[BG-=BG_BELGIUM01:..,0,<=>;],TRKDW
1928 $DEF STBGBE02=[BG-=BG_BELGIUM03:..,0,<=>,50,1900;],TRKDHB
1929
1930 # Bahnhof E 3/4
1931 $DEF STBGBEB14O=SKY,BG_FOREST1, \
1932 [BG<=BGCITYDA1|BGCITYNL1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYDA2|BGCITYNL2,:..,0,#; \
1933 RO_BUZAU3[B:368,28,23,2,#787080][OT:B_GENT6,361,36],:47,3;1000,WATERCOLUMN02:,0; \
1934 B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8;B_GENT6,400,B_GENT6,:,31; \
1935 B_GENT6,480,B_GENT6,:,42; B_GENT6S,1450,B_GENT6S,:,8;BGPLATT1800H,:,8; ],$BG_PLF1(16),TRKES
1936 $DEF STBGBEB14H=STMOD,STBGBEB14O
1937 $DEF STBGBEB14=$FLG(O,STBGBEB14O,STBGBEB14H);
1938
1939 # Bahnhof E 5/6
1940 $DEF STBGBEB15O=SKY,BG_FOREST1, \
1941 [BG<=BGCITYDA1|BGCITYNL1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYDA2|BGCITYNL2,:..,0,#; \
1942 RO_BUZAU3[B:368,28,23,2,#787080][OT:B_GENT6,361,36],:,8; \
1943 B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8;B_GENT6,400,B_GENT6,:,31; \
1944 B_GENT6,480,B_GENT6,:,42; B_GENT6S,1450,B_GENT6S,:,8;J_TICKET,200,J_TICKET,:,8; \
1945 J_TICKET,500,J_TICKET,:,8;BGPLATT1800H,:,8;],$BG_PLF1(16),TRKES
1946 $DEF STBGBEB15H=STMOD,STBGBEB15O
1947 $DEF STBGBEB15=$FLG(O,STBGBEB15O,STBGBEB15H);
1948
1949 #--------------------------------------------------------------------------------------------------#
1950 # Luxemburg
1951
1952 #Strecke E 1-3
1953 $DEF STBGLU01T=[BG-=BG_LUX01:..,-40,<=>;CABLE5:..,0;],TRKDH
1954 #Strecke E 4-6
1955 $DEF STBGLU01O=[BG-=BG_LUX01:..,-80,<=>;],TRKDH
1956
1957 # Bahnhof E 5/6
1958 $DEF STBGLUB15O=SKY,BG_FOREST1, \
1959 [BG<=BGCITYDA1|BGCITYNL1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYDA2|BGCITYNL2,:..,0,#; \
1960 RO_CARANSEBES[B:612,44,35,7,#0F2169][OT:L_LUXEMBURG6,620,45],:,8;1000,WATERCOLUMN02:,0; \
1961 B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8;B_GENT6,400,B_GENT6,:,31; \
1962 L_LUXEMBURG6,480,L_LUXEMBURG6,:,42; L_LUXEMBURG6S,1450,L_LUXEMBURG6S,:,8; \
1963 J_TICKET,200,J_TICKET,:,8; J_TICKET,500,J_TICKET,:,8;BGPLATT1800H,:,8;],$BG_PLF1(16),TRKDH
1964 $DEF STBGLUB15H=STMOD,STBGLUB15O
1965 $DEF STBGLUB15=$FLG(O,STBGLUB15O,STBGLUB15H);
1966
1967 #--------------------------------------------------------------------------------------------------#
1968 # Niederlande
1969
1970 $DEF BGNL01=[BG-=NL01;],TRKHI
1971 $DEF BGNL02=[BG-=NL02[CROPB:-420]:..,0,<=>;],TRKDH
1972 $DEF BGNL03=[BG-=NL03[CROPB:-687]:..,0,<=>;TRBED12:..,^0;]
1973
1974 $DEF STBGNL01=[BG-=BG_NETHERLAND01:..,-205,<=>;],TRKDHB
1975 $DEF STBGNL02=[BG-=BG_NETHERLAND02:..,-150,<=>;],TRKDHB
1976 #02 auch DK,PL E3-6
1977
1978 $DEF BHF_NL61=NL_ROOSENDAAL[O:47[B:,0,,9,#005CBF],*960,^39][O:D_RUCK4,*967,^39][O:D_RUCK4,*686,^39] \
1979 [O:D_RUCK4,*1214,^39]
1980 $DEF BHF_NL62=NL_AMERSFOORT_NCS[O:47[B:,0,,7,#005CBF],*255,^45][O:D_RUCK4,*255,^45]
1981 $DEF BHF_NL63=NL_APPINGEDAM1[O:47[B:,0,,7,#005CBF],*,45][O:D_RUCK4,*,45]
1982 $DEF BHF_NL64=NL_DELFZIJL[O:47[B:,0,,7,#005CBF],*358,37][O:D_RUCK4,*358,37]
1983 $DEF BHF_NL65=NL_GRONINGEN_CS[O:47[B:,0,,7,#005CBF],*659,*61][O:D_RUCK4,*659,*61]
1984 $DEF BHF_NL66=NL_KAMPEN[O:47[B:,0,,7,#005CBF],*318,38][O:D_RUCK4,*318,38]
1985 $DEF BHF_NL67=NL_MEPPEL[O:47[B:,0,,7,#005CBF],*246,39][O:D_RUCK4,*246,39]
1986 $DEF BHF_NL68=NL_SLAPPHUT1[O:47[B:,0,,7,#005CBF],*140,30][O:D_RUCK4,*140,30]
1987 $DEF BHF_NL41=NL_ROOSENDAAL[O:48[B:,0,,9,#C4C4C4],*967,^39][O:D_RUCK4,*967,^39][O:D_RUCK4,*686,^39] \
1988 [O:D_RUCK4,*1214,^39]
1989 $DEF BHF_NL42=NL_AMERSFOORT_NCS[O:48[B:,0,,7,#C4C4C4],*255,^45][O:D_RUCK4,*255,^45]
1990 $DEF BHF_NL43=NL_APPINGEDAM1[O:48[B:,0,,7,#C4C4C4],*,45][O:D_RUCK4,*,45]
1991 $DEF BHF_NL44=NL_DELFZIJL[O:48[B:,0,,7,#C4C4C4],*358,37][O:D_RUCK4,*358,37]
1992 $DEF BHF_NL45=NL_GRONINGEN_CS[O:48[B:,0,,7,#C4C4C4],*659,*61][O:D_RUCK4,*659,*61]
1993 $DEF BHF_NL46=NL_KAMPEN[O:48[B:,0,,7,#C4C4C4],*318,38][O:D_RUCK4,*318,38]
1994 $DEF BHF_NL47=NL_MEPPEL[O:48[B:,0,,7,#C4C4C4],*246,39][O:D_RUCK4,*246,39]
1995 $DEF BHF_NL48=NL_SLAPPHUT1[O:48[B:,0,,7,#C4C4C4],*140,30][O:D_RUCK4,*140,30]
1996
1997 $DEF BHF_NL4=BHF_NL4(1|2|3|4|5|6|7|8)
1998 $DEF BHF_NL6=BHF_NL6(1|2|3|4|5|6|7|8)
1999
2000 # Bahnhof E3
2001 $DEF STBGNLB13O=STMOD,SKY,BG_FOREST1, \
2002 [BG<=BGCITYNL1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYNL2:..,0,#; BGFNC:..;BHF_NL4:,8; \
2003 &FLG(3&,WATERCOLUMN02:50+500,0;)B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8; \
2004 D_RUCK4,550,D_RUCK4,:,31; D_RUCK4S,1450,D_RUCK4S,:,8; BGPLATT1800NL:,8; \
2005 PLF_NL1A[COFR:8],16@PLF_NL(2|5),#PLF_NL1A[COFL:8]:,-4;],TRKES
2006 $DEF STBGNLB13H=STMOD,STBGNLB13O
2007 $DEF STBGNLB13=$FLG(O,STBGNLB13O,STBGNLB13H);
2008
2009 # Bahnhof E4
2010 $DEF STBGNLB14O=STMOD,SKY,BG_FOREST1, \
2011 [BG<=BGCITYNL1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYNL2:..,0,#; BGFNC:..;BHF_NL4:,8; \
2012 B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8; D_RUCK4,550,D_RUCK4,:,31; \
2013 D_RUCK4S,1450,D_RUCK4S:,8; BGPLATT1800NL:,8; PLF_NL1A[COFR:8],16@PLF_NL(2|5),#PLF_NL1A[COFL:8]:,-4;], \
2014 TRKES
2015 $DEF STBGNLB14H=STMOD,STBGNLB14O
2016 $DEF STBGNLB14=$FLG(O,STBGNLB14O,STBGNLB14H);
2017
2018 # Bahnhof E5-6
2019 $DEF STBGNLB15O=STMOD,SKY,BG_FOREST1, \
2020 [BG<=BGCITYNL1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYNL2:..,0,#; BGFNC:..;BHF_NL6:,8; \
2021 B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8; NL_UTRECHT6,550,NL_UTRECHT6,:,31; \
2022 NL_UTRECHT6S,1450,NL_UTRECHT6S,:,8;J_TICKET,200,J_TICKET,:,8;J_TICKET,500,J_TICKET,:,8; \
2023 BGPLATT1800NL:,8;PLF_NL1A[COFR:8],16@PLF_NL(2|5),#PLF_NL1A[COFL:8]:,-4;],TRKES
2024 $DEF STBGNLB15H=STMOD,STBGNLB15O
2025 $DEF STBGNLB15=$FLG(O,STBGNLB15O,STBGNLB15H);
2026
2027 #--------------------------------------------------------------------------------------------------#
2028 # Dänemark
2029
2030 # Strecke
2031 $DEF STBGDK01=[BG-=BG_DENMARK01:..,-10,<=>;],TRKDHB
2032
2033 # Stadt Nordeuropa
2034 # Bahnhof E3
2035 $DEF STBGDKB13O=STMOD,SKY,BG_FOREST1, \
2036 [BG<=1-40*1,TREES_SUMMER:..,0,#; DK_VILLAGE02,DK_VILLAGE02:..,0,#; \
2037 DK_STATION1|NL_SLAPPHUT|NL_USQUERT_OLD,:,8;1000,WATERCOLUMN02:,0; \
2038 B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8;D_RUCK4,550,D_RUCK4,:,31; \
2039 D_RUCK4,480,D_RUCK4,:,42; D_RUCK4S,1450,D_RUCK4S,:,8; BGPLATT1800NL:,8; \
2040 PLF_NL1A[COFR:8],16@PLF_NL(2|5),#PLF_NL1A[COFL:8]:,-4;],TRKES
2041 $DEF STBGDKB13H=STMOD,STBGDKB13O
2042 $DEF STBGDKB13=$FLG(O,STBGDKB13O,STBGDKB13H);
2043
2044 # Bahnhof E4
2045 $DEF STBGDKB14O=STMOD,SKY,BG_FOREST1, \
2046 [BG<=BGCITYDK1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYDK2:..,0,#; \
2047 DK_STATION1|NL_SLAPPHUT|NL_USQUERT_OLD,:,8; B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8; \
2048 D_RUCK4,550,D_RUCK4,:,31; D_RUCK4,480,D_RUCK4,:,42; D_RUCK4S,1450,D_RUCK4S,:,8; BGPLATT1800NL:,8; \
2049 PLF_NL1A[COFR:8],16@PLF_NL(2|5),#PLF_NL1A[COFL:8]:,-4;],TRKES
2050 $DEF STBGDKB14H=STMOD,STBGDKB14O
2051 $DEF STBGDKB14=$FLG(O,STBGDKB14O,STBGDKB14H);
2052
2053 # Bahnhof E5-6
2054 $DEF STBGDKB15O=STMOD,SKY,BG_FOREST1, \
2055 [BG<=BGCITYDK1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYDK2:..,0,#; \
2056 DK_STATION1|NL_SLAPPHUT|NL_USQUERT_OLD,:,8; B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8; \
2057 NL_UTRECHT6,550,NL_UTRECHT6,:,31; NL_UTRECHT6S,1450,NL_UTRECHT6S,:,8;J_TICKET,200,J_TICKET,:,8; \
2058 J_TICKET,500,J_TICKET,:,8; BGPLATT1800NL:,8;PLF_NL1A[COFR:8],16@PLF_NL(2|5),#PLF_NL1A[COFL:8]:,-4;], \
2059 TRKES
2060 $DEF STBGDKB15H=STMOD,STBGDKB15O
2061 $DEF STBGDKB15=$FLG(O,STBGDKB15O,STBGDKB15H);
2062
2063 #--------------------------------------------------------------------------------------------------#
2064 # Nordeuropa Schweden
2065 # Strecke
2066 $DEF STBGSW05=[BG-=BG_SWEDEN06:..,0,<=>,0,2451;],TRKDHB
2067 $DEF STBGSW03=[BG-=BG_SWEDEN03:..,-20,<=>,60,2280;],TRKDW
2068 $DEF STBGSW02=[BG-=BG_SWEDEN02:..,-40,<=>;],TRKDHB
2069 $DEF STBGSW01=[BG-=BG_SWEDEN01:..,-0,<=>;],TRKES
2070 # Strecke Winter
2071 $DEF STBGSW04=[BG-=(BG_SWEDEN04:..,-50,<=>;BG_GRAS1W:..,^-7,<=>;)],TRKDS
2072
2073 #--------------------------------------------------------------------------------------------------#
2074 # Nordeuropa Norwegen
2075 # Bahnhof E3
2076 $DEF STBGNOB13O=STMOD,BGNORD1, \
2077 [BG<=BGCITYDK1:..,0,#; 1-40*1,TREES_COLD:..,0,#; BGCITYDK2:..,0,#; \
2078 DK_STATION1|NL_SLAPPHUT|NL_USQUERT_OLD,:,8;1000,WATERCOLUMN02:,0; \
2079 B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8;D_RUCK4,550,D_RUCK4,:,31; \
2080 D_RUCK4,480,D_RUCK4,:,42; D_RUCK4S,1450,D_RUCK4S,:,8; BGPLATT1800NL:,8; \
2081 PLF_NL1A[COFR:8],16@PLF_NL(2|5),#PLF_NL1A[COFL:8]:,-4;],TRKES
2082 $DEF STBGNOB13H=STMOD,STBGNOB13O
2083 $DEF STBGNOB13=$FLG(O,STBGNOB13O,STBGNOB13H);
2084
2085 # Bahnhof E4
2086 $DEF STBGNOB14O=STMOD,BGNORD1, \
2087 [BG<= 1-40*1,TREES_COLD:..,0,#; SK_VILLAGE02,SK_VILLAGE01:..,0,#; \
2088 DK_STATION1|NL_SLAPPHUT|NL_USQUERT_OLD,:,8; B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8; \
2089 D_RUCK4,550,D_RUCK4,:,31; D_RUCK4,480,D_RUCK4,:,42; D_RUCK4S,1450,D_RUCK4S,:,8; BGPLATT1800NL:,8; \
2090 PLF_NL1A[COFR:8],16@PLF_NL(2|5),#PLF_NL1A[COFL:8]:,-4;],TRKES
2091 $DEF STBGNOB14H=STMOD,STBGNOB14O
2092 $DEF STBGNOB14=$FLG(O,STBGNOB14O,STBGNOB14H);
2093
2094 # Bahnhof E5-6
2095 $DEF STBGNOB15O=STMOD,BGNORD1, \
2096 [BG<=BGCITYDK1:..,0,#; 1-40*1,TREES_COLD:..,0,#; BGCITYDK2:..,0,#; \
2097 DK_STATION1|NL_SLAPPHUT|NL_USQUERT_OLD,:,8; B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8; \
2098 NL_UTRECHT6,550,NL_UTRECHT6,:,31; NL_UTRECHT6S,1450,NL_UTRECHT6S,:,8;J_TICKET,200,J_TICKET,:,8; \
2099 J_TICKET,500,J_TICKET,:,8; BGPLATT1800NL:,8;PLF_NL1A[COFR:8],16@PLF_NL(2|5),#PLF_NL1A[COFL:8]:,-4;], \
2100 TRKES
2101 $DEF STBGNOB15H=STMOD,STBGNOB15O
2102 $DEF STBGNOB15=$FLG(O,STBGNOB15O,STBGNOB15H);
2103
2104 # Strecke
2105 $DEF STBGNO01=[BG-=BG_norway01:..,-220,<=>;],TRKDH
2106
2107 #--------------------------------------------------------------------------------------------------#
2108 # Finnland
2109 $DEF STBGFI01=[BG-=BG_FINLAND02:..,-30,<=>;],TRKDH
2110 $DEF STBGFI02=[BG-=BG_FINLAND01:..,0,<=>;],TRKDHB
2111 $DEF STBGFI03=[BG-=BG_FINLAND03:..,-0,<=>;],TRKDHB
2112
2113 #--------------------------------------------------------------------------------------------------#
2114 # Südeuropa-Italien
2115
2116 # Strecke Italien
2117 $DEF STBGIT01=[BG-=BG_ITALY01:..,-55,<=>;],TRKDHB
2118 $DEF STBGIT02=[BG-=BG_ITALY02:..,-55,<=>;],TRKDHB
2119 $DEF STBGIT03=[BG-=BG_ITALY03:..,-55,<=>;],TRKDHB
2120 $DEF STBGIT04=[BG-=BG_ITALY04:..,0,<=>;],TRKDHB
2121 $DEF STBGIT05=[BG-=BG_ITALY08:..,-0,<=>;],TRKDHB
2122 $DEF STBGIT06=[BG-=BG_ITALY07:..,-0,<=>;],TRKDHB
2123 $DEF STBGIT07=[BG-=BG_ITALY05:..,-0,<=>,8,1757;],TRKDHB
2124
2125 # Strecke Südeuropa Südeuropa-Italien
2126 $DEF STBGITW=SKY, \
2127 [BG<=(GRASS06|GREEN5):..,0; \
2128 (20*(10|20|30|25|15|5|TREE49|TREE83|TREE57|TREE44|TREE54|TREE103W|TREE98C|TREE101W|TREE75| \
2129 EUCALYPT06|PALM12|PALM15|PALM7T)):..,0;TRACKFGDH:..,^0;]
2130
2131 # Strecke Italien mit Bahnhof
2132 #E3-4 D
2133 $DEF STBGITS1S3O=SKY, \
2134 [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#; TREES_SOUTH:..,0,#; \
2135 BGCITYIT2:..,0,#;LAMP11:80;I_FACT06:90; \
2136 I_STAZ6[O:I_VENTIMIGLIA3,53,34]|I_STAZ7[O:I_VENTIMIGLIA3,49,38]| \
2137 I_STAZIONE_C[O:I_VENTIMIGLIA3,54,38]|I_BRISIGHELLA|I_CANOSCIO[O:I_VENTIMIGLIA3,59,38]| \
2138 I_CESI[O:I_VENTIMIGLIA3,101,34]|0[AR:I_STATION01(A,B,C,#B,#A)][O:I_VENTIMIGLIA3,,30]| \
2139 I_MONTECASTRILLI[O:I_VENTIMIGLIA3,116,42][B:144,43,12,5,#D09464][B:103,44,4,4,#D09464]|I_ORMEA| \
2140 I_PISCILLE[O:I_VENTIMIGLIA3,69,39][B:69,38,27,1,#786058]|I_SAN_SECONDOB[O:I_VENTIMIGLIA3,58,36]| \
2141 I_SAN_SEPOLCRO[O:I_VENTIMIGLIA3,163,53]|I_UMBERTIDE:20;E_RENTERIA1,20,STELLWERK4B:55,1; \
2142 200,8*(FS_MAR03[BT:,9]),FS_MAR01,FS_MAR03,FS_MAR02,FS_MAR04,FS_MAR02,FS_MAR03,FS_MAR01, \
2143 8*(FS_MAR03[BT:,9]),40,WATERCOLUMNFS,20,SIF_FS3_2L,700:,-3; \
2144 BGPASS1,16,LAMP17,27,30,BGPASS1,20,BGPASS1,10,BGPASS1,154,BGPASS1,10,I_TIMTAB1,16,BANK04,20, \
2145 DBAG_STAIRS,BANK8,20,BGPASS1,40,PASG01,18,BGPASS1,10,BANK06,BANK05,14,I_TIMTAB1,16,BGPASS1,20, \
2146 BGPASS1,10,BANK06,24,BGPASS1,18,17,LAMP17,12,PERS01,15,PERS03,100:,6;],TRKST
2147 $DEF STBGITS1S3H=STMOD,STBGITS1S3O
2148 $DEF STBGITS1S3=$FLG(O,STBGITS1S3O,STBGITS1S3H);
2149
2150 #E3-4 DG
2151 $DEF STBGITS1G3O=SKY, \
2152 [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#; TREES_SOUTH:..,0,#; \
2153 BGCITYIT2:..,0,#;LAMP11:80;I_FACT06:90; \
2154 I_STAZ6[O:I_VENTIMIGLIA3,53,34]|I_STAZ7[O:I_VENTIMIGLIA3,49,38]| \
2155 I_STAZIONE_C[O:I_VENTIMIGLIA3,54,38]|I_BRISIGHELLA|I_CANOSCIO[O:I_VENTIMIGLIA3,59,38]| \
2156 I_CESI[O:I_VENTIMIGLIA3,101,34]|0[AR:I_STATION01(A,B,C,#B,#A)][O:I_VENTIMIGLIA3,,30]| \
2157 I_MONTECASTRILLI[O:I_VENTIMIGLIA3,116,42][B:144,43,12,5,#D09464][B:103,44,4,4,#D09464]|I_ORMEA| \
2158 I_PISCILLE[O:I_VENTIMIGLIA3,69,39][B:69,38,27,1,#786058]|I_SAN_SECONDOB[O:I_VENTIMIGLIA3,58,36]| \
2159 I_SAN_SEPOLCRO[O:I_VENTIMIGLIA3,163,53]|I_UMBERTIDE:20;E_RENTERIA1,20,STELLWERK4B:55,1; 9*FL_FS4Q; \
2160 200,8*(FS_MAR03[BT:,9]),FS_MAR01,FS_MAR03,FS_MAR02,FS_MAR04,FS_MAR02,FS_MAR03,FS_MAR01, \
2161 8*(FS_MAR03[BT:,9]),40,WATERCOLUMNFS,20,SIF_FS3_2L,700:,-3; \
2162 BGPASS1,16,LAMP17,27,30,BGPASS1,20,BGPASS1,10,BGPASS1,154,BGPASS1,10,I_TIMTAB1,16,BANK04,20, \
2163 DBAG_STAIRS,BANK8,20,BGPASS1,40,PASG01,18,BGPASS1,10,BANK06,BANK05,14,I_TIMTAB1,16,BGPASS1,20, \
2164 BGPASS1,10,BANK06,24,BGPASS1,18,17,LAMP17,12,PERS01,15,PERS03,100:,6;9*FL_FS4QF;],TRKES|TRKST
2165 $DEF STBGITS1G3H=STMOD,STBGITS1G3O
2166 $DEF STBGITS1G3=$FLG(O,STBGITS1G3O,STBGITS1S3H);
2167 #E3-4 DD
2168 $DEF STBGITS1D3O=SKY, \
2169 [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#; TREES_SOUTH:..,0,#; \
2170 BGCITYIT2:..,0,#;LAMP11:80;I_FACT06:90; \
2171 I_STAZ6[O:I_VENTIMIGLIA3,53,34]|I_STAZ7[O:I_VENTIMIGLIA3,49,38]| \
2172 I_STAZIONE_C[O:I_VENTIMIGLIA3,54,38]|I_BRISIGHELLA|I_CANOSCIO[O:I_VENTIMIGLIA3,59,38]| \
2173 I_CESI[O:I_VENTIMIGLIA3,101,34]|0[AR:I_STATION01(A,B,C,#B,#A)][O:I_VENTIMIGLIA3,,30]| \
2174 I_MONTECASTRILLI[O:I_VENTIMIGLIA3,116,42][B:144,43,12,5,#D09464][B:103,44,4,4,#D09464]|I_ORMEA| \
2175 I_PISCILLE[O:I_VENTIMIGLIA3,69,39][B:69,38,27,1,#786058]|I_SAN_SECONDOB[O:I_VENTIMIGLIA3,58,36]| \
2176 I_SAN_SEPOLCRO[O:I_VENTIMIGLIA3,163,53]|I_UMBERTIDE:20;E_RENTERIA1,20,STELLWERK4B:55,1; \
2177 18*FL_FSTTQ; \
2178 200,8*(FS_MAR03[BT:,9]),FS_MAR01,FS_MAR03,FS_MAR02,FS_MAR04,FS_MAR02,FS_MAR03,FS_MAR01, \
2179 8*(FS_MAR03[BT:,9]),40,WATERCOLUMNFS,20,SIF_FS3_2L,700:,-3; \
2180 BGPASS1,16,LAMP17,27,30,BGPASS1,20,BGPASS1,10,BGPASS1,154,BGPASS1,10,I_TIMTAB1,16,BANK04,20, \
2181 DBAG_STAIRS,BANK8,20,BGPASS1,40,PASG01,18,BGPASS1,10,BANK06,BANK05,14,I_TIMTAB1,16,BGPASS1,20, \
2182 BGPASS1,10,BANK06,24,BGPASS1,18,17,LAMP17,12,PERS01,15,PERS03,100:,6;18*FL_FSTTQF;],TRKES|TRKST
2183 $DEF STBGITS1D3H=STMOD,STBGITS1D3O
2184 $DEF STBGITS1D3=$FLG(O,STBGITS1D3O,STBGITS1D3H);
2185 $DEF STBGITS13=$FLG(X,STBGITS1D3,$FLG(E,STBGITS1G3,STBGITS1S3))
2186
2187 #E5 D
2188 $DEF STBGITS1S5O=SKY, \
2189 [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#; TREES_SOUTH,:..,0,#; \
2190 BGCITYIT2:..,0,#;LAMP11:80;I_FACT06:90; \
2191 I_STAZ6[O:I_FIRENZESM5,55,34]|I_STAZ7[O:I_FIRENZESM5,51,38]|I_STAZIONE_C[O:I_FIRENZESM5,56,38]| \
2192 I_BRISIGHELLA|I_CANOSCIO[O:I_FIRENZESM5,61,38]|I_CESI[O:I_FIRENZESM5,103,34]| \
2193 I_MONTECASTRILLI[B:103,42,53,6,#D09464][O:I_FIRENZESM5,118,42]|I_ORMEA| \
2194 I_PISCILLE[O:I_FIRENZESM5,71,39][B:69,38,27,3,#786058]|I_SAN_SECONDOB[O:I_FIRENZESM5,60,36]| \
2195 I_SAN_SEPOLCRO[O:I_FIRENZESM5,165,53]|I_UMBERTIDE:20; E_RENTERIA1,20,STELLWERK4B:55,1; \
2196 200,8*(FS_MAR03[BT:,9]),FS_MAR01,FS_MAR03,FS_MAR02,FS_MAR04,FS_MAR02,FS_MAR03,FS_MAR01, \
2197 8*(FS_MAR03[BT:,9]),80,SIF_FS3_2L,700:,-3; \
2198 BGPASS1,16,LAMP17,27,30,BGPASS1,20,BGPASS1,10,BGPASS1,154,BGPASS1,10,I_TIMTAB1,16,BANK04,20, \
2199 DBAG_STAIRS,BANK8,20,BGPASS1,40,PASG01,18,BGPASS1,10,BANK06,BANK05,14,I_TIMTAB1,16,BGPASS1,20, \
2200 BGPASS1,10,BANK06,24,BGPASS1,18,17,LAMP17,12,PERS01,15,PERS03,100:,6;],TRKES
2201 $DEF STBGITS1S5H=STMOD,STBGITS1S5O
2202 $DEF STBGITS1S5=$FLG(O,STBGITS1S5O,STBGITS1S5H);
2203 #E5 DG
2204 $DEF STBGITS1G5O=SKY, \
2205 [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#; TREES_SOUTH,:..,0,#; \
2206 BGCITYIT2:..,0,#;LAMP11:80;I_FACT06:90; \
2207 I_STAZ6[O:I_FIRENZESM5,55,34]|I_STAZ7[O:I_FIRENZESM5,51,38]|I_STAZIONE_C[O:I_FIRENZESM5,56,38]| \
2208 0[AR:I_STATION01(A,B,C,#B,#A)][O:I_FIRENZESM5,385,31]|I_BRISIGHELLA| \
2209 I_CANOSCIO[O:I_FIRENZESM5,61,38]|I_CESI[O:I_FIRENZESM5,103,34]| \
2210 I_MONTECASTRILLI[B:103,42,53,6,#D09464][O:I_FIRENZESM5,118,42]|I_ORMEA| \
2211 I_PISCILLE[O:I_FIRENZESM5,71,39][B:69,38,27,1,#786058]|I_SAN_SECONDOB[O:I_FIRENZESM5,60,36]| \
2212 I_SAN_SEPOLCRO[O:I_FIRENZESM5,165,53]|I_UMBERTIDE:20; E_RENTERIA1,20,STELLWERK4B:55,1; 9*FL_FS4Q; \
2213 200,8*(FS_MAR03[BT:,9]),FS_MAR01,FS_MAR03,FS_MAR02,FS_MAR04,FS_MAR02,FS_MAR03,FS_MAR01, \
2214 8*(FS_MAR03[BT:,9]),80,SIF_FS3_2L,700:,-3; \
2215 BGPASS1,16,LAMP17,27,30,BGPASS1,20,BGPASS1,10,BGPASS1,154,BGPASS1,10,I_TIMTAB1,16,BANK04,20, \
2216 DBAG_STAIRS,BANK8,20,BGPASS1,40,PASG01,18,BGPASS1,10,BANK06,BANK05,14,I_TIMTAB1,16,BGPASS1,20, \
2217 BGPASS1,10,BANK06,24,BGPASS1,18,17,LAMP17,12,PERS01,15,PERS03,100:,6;9*FL_FS4QF;],TRKES
2218 $DEF STBGITS1G5H=STMOD,STBGITS1G5O
2219 $DEF STBGITS1G5=$FLG(O,STBGITS1G5O,STBGITS1G5H);
2220 $DEF STBGITS15=$FLG(E,STBGITS1G5,STBGITS1S5)
2221
2222 #E6 D
2223 $DEF STBGITS1S6O=SKY, \
2224 [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#; TREES_SOUTH,:..,0,#; \
2225 BGCITYIT2:..,0,#;LAMP11:80;I_FACT06:90; \
2226 I_STAZ6[O:I_SVINCENZO6,56,34]|I_STAZ7[O:I_SVINCENZO6,52,38]|I_STAZIONE_C[O:I_SVINCENZO6,57,38]| \
2227 0[AR:I_STATION01(A,B,C,#B,#A)][O:I_SVINCENZO6,,30][O:I_SVINCENZO6,57,38]|I_BRISIGHELLA| \
2228 I_CANOSCIO[O:I_SVINCENZO6,62,38]|I_CESI[O:I_SVINCENZO6,104,34]| \
2229 I_MONTECASTRILLI[B:103,42,53,6,#D09464][O:I_SVINCENZO6,119,43]|I_ORMEA| \
2230 I_PISCILLE[B:69,38,28,7,#786058][O:I_SVINCENZO6,72,39]|I_SAN_SECONDOB[O:I_SVINCENZO6,61,36]| \
2231 I_SAN_SEPOLCRO[O:I_SVINCENZO6,166,53]|I_UMBERTIDE:20; E_RENTERIA1,20,STELLWERK4B:55,1; \
2232 200,8*(FS_MAR03[BT:,9]),FS_MAR01,FS_MAR03,FS_MAR02,FS_MAR04,FS_MAR02,FS_MAR03,FS_MAR01, \
2233 8*(FS_MAR03[BT:,9]),80,SIF_FS3_2L,700:,-3; \
2234 BGPASS1,16,LAMP17,15,I_LINEAGIALLAS,15,BGPASS1,20,BGPASS1,10,BGPASS1,154,BGPASS1,10,I_TIMTAB1,16, \
2235 BANK04,20,DBAG_STAIRS,BANK8,20,BGPASS1,5,I_LINEAGIALLAS,5,PASG01,18,BGPASS1,10,BANK06,BANK05,14, \
2236 I_TIMTAB1,16,BGPASS1,20,BGPASS1,10,BANK06,24,BGPASS1,18,17,LAMP17,12,PERS01,15,PERS03,100:,6;],TRKES
2237 $DEF STBGITS1S6H=STMOD,STBGITS1S6O
2238 $DEF STBGITS1S6=$FLG(O,STBGITS1S6O,STBGITS1S6H);
2239 #E6 DG
2240 $DEF STBGITS1G6O=SKY, \
2241 [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#; TREES_SOUTH,:..,0,#; \
2242 BGCITYIT2:..,0,#;LAMP11:80;I_FACT06:90; \
2243 I_STAZ6[O:I_SVINCENZO6,56,34]|I_STAZ7[O:I_SVINCENZO6,52,38]|I_STAZIONE_C[O:I_SVINCENZO6,57,38]| \
2244 0[AR:I_STATION01(A,B,C,#B,#A)][O:I_SVINCENZO6,,30]|I_BRISIGHELLA|I_CANOSCIO[O:I_SVINCENZO6,62,38]| \
2245 I_CESI[O:I_SVINCENZO6,104,34]|I_MONTECASTRILLI[B:103,42,53,6,#D09464][O:I_SVINCENZO6,119,43]| \
2246 I_ORMEA|I_PISCILLE[B:69,38,28,7,#786058][O:I_SVINCENZO6,72,39]| \
2247 I_SAN_SECONDOB[O:I_SVINCENZO6,61,36]|I_SAN_SEPOLCRO[O:I_SVINCENZO6,166,53]|I_UMBERTIDE:20; \
2248 E_RENTERIA1,20,STELLWERK4B:55,1; 9*FL_FS4Q; \
2249 200,8*(FS_MAR03[BT:,9]),FS_MAR01,FS_MAR03,FS_MAR02,FS_MAR04,FS_MAR02,FS_MAR03,FS_MAR01, \
2250 8*(FS_MAR03[BT:,9]),80,SIF_FS3_2L,700:,-3; \
2251 BGPASS1,16,LAMP17,15,I_LINEAGIALLAS,15,BGPASS1,20,BGPASS1,10,BGPASS1,154,BGPASS1,10,I_TIMTAB1,16, \
2252 BANK04,20,DBAG_STAIRS,BANK8,20,BGPASS1,5,I_LINEAGIALLAS,5,PASG01,18,BGPASS1,10,BANK06,BANK05,14, \
2253 I_TIMTAB1,16,BGPASS1,20,BGPASS1,10,BANK06,24,BGPASS1,18,17,LAMP17,12,PERS01,15,PERS03,100:,6; \
2254 9*FL_FS4QF;],TRKES
2255 $DEF STBGITS1G6H=STMOD,STBGIT1G6O
2256 $DEF STBGITS1G6=$FLG(O,STBGITS1G6O,STBGITS1G3H);
2257 $DEF STBGITS16=$FLG(E,STBGITS1G6,STBGITS1S6)
2258
2259 #--------------------------------------------------------------------------------------------------#
2260 # Portugal
2261 $DEF STBGPO01=[BG-=BG_Portugal1:..,-280,<=>;],TRKDW
2262 $DEF STBGPO02=[BG-=BG_Portugal2:..,-300,<=>;],TRKDHB
2263 $DEF STBGPO03=[BG-=BG_PORTUGAL3:..,-100,<=>;],TRKDH
2264 #--------------------------------------------------------------------------------------------------#
2265 # Spanien
2266
2267 $DEF STBGES01=[BG-=BG_SPAIN04:..,-115,<=>;],TRKDHB
2268 $DEF STBGES02=[BG-=BG_SPAIN03:..,-80,<=>;],TRKDHB
2269 $DEF STBGES03=[BG-=BG_SPAIN05:..,-10,<=>;],TRKDHB
2270
2271 # Bahnhof E3 E4
2272 $DEF STBGESB13EO=SKY, \
2273 [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#; TREES_SOUTH,:..,0,#; \
2274 BGCITYIT2:..,0,#;LAMP11:80;I_FACT06:90;(E_BIURRUN1,25,E_RENTERIA1)|E_IRUN_INT3,:,8; \
2275 1000,WATERCOLUMN02:,0;I_VENTIMIGLIA3S,1450,I_VENTIMIGLIA3S,:,8; BGPLATT1800H,:,8; \
2276 I_PENSIL1,8*I_PENSIL2,I_PENSIL3,:,8;I_VENTIMIGLIA3,690,I_VENTIMIGLIA3,:,36;]\
2277 [FG>=;FL_RF_NORTE2:..,#-67,#;],$BG_PLF1(18),TRKES
2278 $DEF STBGESB13EH=STMOD,STBGESB13EO
2279 $DEF STBGESB13E=$FLG(O,STBGESB13EO,STBGESB13EH);
2280 $DEF STBGESB13DO=SKY, \
2281 [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#; TREES_SOUTH,:..,0,#; \
2282 BGCITYIT2:..,0,#;LAMP11:80;I_FACT06:90;(E_BIURRUN1,25,E_RENTERIA1)|E_IRUN_INT3,:,8; \
2283 1000,WATERCOLUMN02:,0;I_VENTIMIGLIA3S,1450,I_VENTIMIGLIA3S,:,8; BGPLATT1800H,:,8; \
2284 I_PENSIL1,8*I_PENSIL2,I_PENSIL3,:,8;I_VENTIMIGLIA3,690,I_VENTIMIGLIA3,:,36;],$BG_PLF1(18),TRKES
2285 $DEF STBGESB13DH=STMOD,STBGESB13DO
2286 $DEF STBGESB13D=$FLG(O,STBGESB13DO,STBGESB13DH);
2287 $DEF STBGESB13=$FLG(E,STBGESB13E,STBGESB13D)
2288
2289 # Bahnhof E5 E6
2290 $DEF STBGESB15O=SKY, \
2291 [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#; TREES_SOUTH,:..,0,#; \
2292 BGCITYIT2:..,0,#;LAMP11:80;I_FACT06:90; (E_BIURRUN1,25,E_RENTERIA1)|E_IRUN_INT3,:,8; \
2293 E_SEVILLA6S,1450,E_SEVILLA6S,:,8;BGPLATT1800H,:,8; J_TICKET,200,J_TICKET,:,8; \
2294 J_TICKET,500,J_TICKET,:,8;I_PENSIL1,8*I_PENSIL2,I_PENSIL3,:,8; E_SEVILLA6,680,E_SEVILLA6,:,36; \
2295 PLF_CZ01,18*PLF_CZ02[BT:19,10,71],#PLF_CZ01:,-2;]\
2296 [FG>=;(FL_RF_UNIF[B:29,81,3,20,#757575]):..,#-83,#;],TRKES
2297 $DEF STBGESB15H=STMOD,STBGESB15O
2298 $DEF STBGESB15=$FLG(O,STBGESB15O,STBGESB15H);
2299
2300 #--------------------------------------------------------------------------------------------------#
2301 # Tschechien Bahnhof E 3/4
2302
2303 #Strecke
2304
2305 $DEF STBGCZ01=[BG-=BG_CZECH01:..,-100,<=>;],TRKDHB
2306 $DEF STBGCZ02=[BG-=BG_CZECH02:..,-120,<=>;],TRKDHB
2307 $DEF STBGCZ03=[BG-=BG_CZECH03:..,-120,<=>;],TRKDHB
2308
2309 $DEF STBGCSB13O=SKY,BG_FOREST1, \
2310 [BG<=BGCITYPL2|BGCITYAU2:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYPL2|BGCITYAU2,:..,0,#; \
2311 (CS_GOLCUV,25,WC1)|SUCHDOL|(LEDEC,20,STRDOMEK)|(LIBEN_DOLNY,20,ZALOV7),:,8;1000,WATERCOLUMN02:,-4; \
2312 D_BOEDERITZ3,480,D_BOEDERITZ3,:,42; D_BOEDERITZ3S,1450,D_BOEDERITZ3S,:,8;BGPLATT1800H,:,8; \
2313 (0[AR:PLF_I1(2*C,4*B,A,6*(37*B,A),4*B,2*C)]):,4;],$BG_PLF1(18),TRKES
2314 $DEF STBGCSB13H=STMOD,STBGCSB13O
2315 $DEF STBGCSB13=$FLG(O,STBGCSB13O,STBGCSB13H);
2316
2317 # Tschechien Bahnhof E 5/6
2318 $DEF STBGCSB15O=SKY,BG_FOREST1, \
2319 [BG<=BGCITYPL1|BGCITYAU1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYPL2|BGCITYAU2,:..,0,#; \
2320 (CS_GOLCUV,25,WC1)|SUCHDOL|(LEDEC,20,STRDOMEK)|(LIBEN_DOLNY,20,ZALOV7),:,8; \
2321 J_TICKET,200,J_TICKET,:,8;J_TICKET,500,J_TICKET,:,8; BGPLATT1800C,:,8; \
2322 PLF_CZ01,PLF_CZ13A,PLF_CZ02,PLF_CZ06,PLF_CZ07,PLF_CZ03,PLF_CZ05,PLF_CZ04,PLF_CZ05,PLF_CZ03, \
2323 PLF_CZ08,PLF_CZ13,PLF_CZ10,PLF_CZ14,:,-2;],TRKES
2324 $DEF STBGCSB15H=STMOD,STBGCSB15O
2325 $DEF STBGCSB15=$FLG(O,STBGCSB15O,STBGCSB15H);
2326
2327 #--------------------------------------------------------------------------------------------------#
2328 # Slowakei
2329 # Strecke
2330 $DEF STBGSK01=[BG-=BG_SLOVAKIA01:..,-10,<=>;],TRKDHB
2331
2332 #--------------------------------------------------------------------------------------------------#
2333 # Polen Bahnhof E 3/4
2334
2335 $DEF STBGPLB13O=SKY,BG_FOREST1, \
2336 [BG<=BGCITYPL1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYPL1,:..,0,#; \
2337 (RO_CHITILA[O:D_BOEDERITZ3,438,38]),:,8;1000,WATERCOLUMN02:,-4; \
2338 (0[AR:PLF_I1(2*C,4*B,A,6*(37*B,A),4*B,2*C)]):,4; D_BOEDERITZ3,480,D_BOEDERITZ3,:,42; \
2339 D_BOEDERITZ3S,1450,D_BOEDERITZ3S,:,8; BGPLATT1800H,:,8;],$BG_PLF1(18),TRKES
2340 $DEF STBGPLB13H=STMOD,STBGPLB13O
2341 $DEF STBGPLB13=$FLG(O,STBGPLB13O,STBGPLB13H);
2342
2343 # Polen Bahnhof E 5/6
2344 $DEF STBGPLB15O=SKY,BG_FOREST1, \
2345 [BG<=BGCITYPL1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYPL2,:..,0,#; \
2346 (RO_CHITILA[O:PL_POZNAN5,438,38]),:,8; J_TICKET,200,J_TICKET,:,8; \
2347 (0[AR:PLF_I1(2*C,4*B,A,6*(37*B,A),4*B,2*C)]):,4; PL_POZNAN5,480,PL_POZNAN5,:,42; \
2348 PL_POZNAN5S,560,J_TICKET,300,J_TICKET,560,PL_POZNAN5S,:,8; BGPLATT1800H,:,8;],$BG_PLF1(18),TRKES
2349 $DEF STBGPLB15H=STMOD,STBGPLB15O
2350 $DEF STBGPLB15=$FLG(O,STBGPLB15O,STBGPLB15H);
2351
2352 $DEF STBGPLS01=[BG-=BG_POLAND01:..,-15,<=>;],TRKDH
2353 # E 1-3
2354 $DEF STBGPLS02T=[BG-=BG_POLAND02:..,-15,<=>;CABLE5:..,0;],TRKDH
2355 # E 4-6
2356 $DEF STBGPLS02O=[BG-=BG_POLAND02:..,-15,<=>;],TRKDH
2357 #02 auch SK,D,F,BE,L,HU,CS E1-6
2358
2359 #--------------------------------------------------------------------------------------------------#
2360 # Landschaft Bulgarien E1-6
2361 $DEF STBGBGS1=[BG<=;LS_BULGARIA1S:..,-10,<=>;TRACKFGWH:..,^0;TRACKFGDH:..,^0;]
2362 #01 auch YU,SRB,HR,SLO, E3-6
2363 $DEF STBGBGS2=[BG<=;LS_BULGARIA2S:..,-45,<=>;TRACKFGWH:..,^0;TRACKFGDH:..,^0;]
2364 #02 auch SK,D,F,BE,L,PL,HU,CS E1-6
2365
2366 #--------------------------------------------------------------------------------------------------#
2367 # Rumänien
2368 # Landschaft E1-3
2369 $DEF STBGROS1T=[BG<=;LS_ROMANIA1S:..,-20,<=>;CABLE5:..,0;],TRKGR
2370 # Landschaft E4-6
2371 $DEF STBGROS1O=[BG<=;LS_ROMANIA1S:..,-20,<=>;],TRKGR
2372 #01 auch SK,D,F,BE,L,PL,HU,CS E1-6
2373 $DEF STBGROS2=[BG-=LS_Romania2s:..,-80,<=>;],TRKGR
2374
2375 # Bahnhof E 3/4
2376 $DEF STBGROB13O=SKY,BG_FOREST1, \
2377 [BG<=BGCITYPL2|BGCITYAU2:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYPL2|BGCITYAU2,:..,0,#; \
2378 (RO_GARA01A|RO_APAHIDA[B:399,72,27,4,#A4A8AC][B:399,66,27,6,#B0B8B8][O:RO_AUREL4,394,47]|RO_ARAD| \
2379 RO_ATEL|RO_AUREL_VLAICU|RO_AVRIG|RO_BASARAB1|RO_BOBOC|RO_BLAJ1|RO_BUDA|RO_BUZAU|RO_BUZAU2| \
2380 RO_CALARASI|RO_CAMPINA|RO_CANEPISTI|RO_CHITILA),:,8; 1000,WATERCOLUMN02:,-4; \
2381 RO_AUREL4,480,RO_AUREL4,:,42;RO_AUREL4S,1450,RO_AUREL4S,:,8; BGPLATT1800H,:,8; \
2382 (0[AR:PLF_I1(2*C,4*B,A,6*(37*B,A),4*B,2*C)]):,4;],$BG_PLF1(18),TRKES
2383 $DEF STBGROB13H=STMOD,STBGROB13O
2384 $DEF STBGROB13=$FLG(O,STBGROB13O,STBGROB13H);
2385
2386 # Bahnhof E 5/6
2387 $DEF STBGROB15O=SKY,BG_FOREST1, \
2388 [BG<=BGCITYPL1|BGCITYAU1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYPL2|BGCITYAU2,:..,0,#; \
2389 RO_CAMPULUNG_EST2|RO_CARANSEBES|RO_ADJUD|RO_APAHIDA|RO_ARAD|RO_ATEL|RO_AUREL_VLAICU|RO_BACAU| \
2390 RO_BANEASA1|RO_BARABANT|RO_BARTOLOMEU|RO_BECLEAN_PE_SOMES|RO_BLAJ1|RO_BRASOV|RO_BUSTENI|RO_BUZAU| \
2391 RO_CALARASI|RO_CAMPINA|RO_CAMPULUNG_EST2|RO_CANEPISTI|RO_CARACAL|RO_CHITILA,:,8; \
2392 J_TICKET,200,J_TICKET,:,8;J_TICKET,500,J_TICKET,:,8,;RO_ALBA6S,1450,RO_ALBA6S,:,8; \
2393 BGPLATT1800C,:,8; \
2394 PLF_CZ01,PLF_CZ13A,PLF_CZ02,PLF_CZ06,PLF_CZ07,PLF_CZ03,PLF_CZ05,PLF_CZ04,PLF_CZ05,PLF_CZ03, \
2395 PLF_CZ08,PLF_CZ13,PLF_CZ10,PLF_CZ14,:,-2;],TRKES
2396 $DEF STBGROB15H=STMOD,STBGROB15O
2397 $DEF STBGROB15=$FLG(O,STBGROB15O,STBGROB15H);
2398
2399 #--------------------------------------------------------------------------------------------------#
2400 # Slovenien
2401 # Gebirge
2402
2403 $DEF STBGSLO01=[BG-=BG_SLOVENIA_02:..,-10,<=>;],TRKDHB
2404
2405 #--------------------------------------------------------------------------------------------------#
2406 # Kroatien
2407 $DEF STBGCR01=[BG-=BG_CROATIA01:..,-140,<=>;],TRKDHB
2408 #--------------------------------------------------------------------------------------------------#
2409 # Jugoslawien / Serbien
2410 $DEF STBGSB01=[BG-=BG_SERBIA01:..,-0,<=>;],TRKDHB
2411
2412 #--------------------------------------------------------------------------------------------------#
2413 # Montenegro
2414
2415 $DEF STBGMON01=[BG-=BG_Montenegro02:..,-20,<=>;],TRKDH
2416 $DEF STBGMON02=[BG-=BG_Montenegro01:..,-20,<=>;],TRKDHB
2417
2418 #--------------------------------------------------------------------------------------------------#
2419 # Griechenland
2420
2421 # Landschaft
2422 $DEF STBGGR01=[BG-=BG_GREECE01:..,-50,<=>;],TRKES
2423
2424 # Bahnhof
2425 $DEF STBGGRB13O=SKY, \
2426 [BG<=TREES_SOUTH,:..,0,#; (GRASS06|GREEN5),:..,0; \
2427 I_H007A[COFL:4],I_H047B,I_H068_1,I_H068B,I_H075,I_H076,I_H071,I_H028B,I_H028C,I_H065,185, \
2428 (I_CURCH1|I_CHURCH2),220,I_H069_2[COFR:6],I_H005B,I_H024,I_H009B,I_H015B,I_H009A,180,I_H008, \
2429 I_H063,I_H064,I_H062,I_H066,I_H065,I_H061_1,200,I_H006B[COFR:8],I_H051,I_H054,I_H010,I_H017_1, \
2430 I_H029_1,I_H060B,I_H027,I_H031,I_H035,I_H006A[COFL:8],170,:..,0,#; TREES_SOUTH,:..,0,#; \
2431 I_H008,I_H063,I_H064,I_H062,I_H066,I_H065,I_H061_1,200,(I_CURCH1|I_CHURCH2),220,I_H069_2[COFR:6], \
2432 I_H005B,I_H024,I_H009B,I_H015B,I_H009A,180,I_H006B[COFR:8],I_H051,I_H054,I_H010,I_H017_1,I_H029_1, \
2433 I_H060B,I_H027,I_H031,I_H035,I_H006A[COFL:8],170,I_H007A[COFL:4],I_H047B,I_H068_1,I_H068B,I_H075, \
2434 I_H076,I_H071,I_H028B,I_H028C,I_H065,185,:..,0,#; LAMP11:80;I_FACT06:90; \
2435 RO_CALARASI[O:GR_NAFPILO5,178,31]:20;E_RENTERIA1,20,STELLWERK4B:55,1; \
2436 200,8*(FS_MAR03[BT:,9]),FS_MAR01,FS_MAR03,FS_MAR02,FS_MAR04,FS_MAR02,FS_MAR03,FS_MAR01, \
2437 8*(FS_MAR03[BT:,9]),80,SIF_FS3_2L,700:,-3; \
2438 BGPASS1,16,GR_NAFPILO5S,10,LAMP17,27,30,BGPASS1,20,BGPASS1,10,BGPASS1,154,BGPASS1,10,I_TIMTAB1,16, \
2439 BANK04,20,DBAG_STAIRS,BANK8,20,BGPASS1,40,PASG01,18,BGPASS1,10,BANK06,BANK05,14,I_TIMTAB1,16, \
2440 BGPASS1,20,BGPASS1,10,BANK06,24,BGPASS1,18,17,LAMP17,5,GR_NAFPILO5S,12,PERS01,15,PERS03,100:,6;], \
2441 TRKES
2442 $DEF STBGGRB13H=STMOD,STBGGRB13O
2443 $DEF STBGGRB13=$FLG(O,STBGGRB13O,STBGGRB13H);
2444 #--------------------------------------------------------------------------------------------------#
2445 # Türkei
2446 # Landschaft Gebirge E1-6
2447 $DEF STBGTK01=[BG-=BG_TURKEY01:..,-40,<=>;],TRKDW
2448 #--------------------------------------------------------------------------------------------------#
2449 # Russland
2450 # Landschaft Russland E1-6
2451
2452 $DEF STBGRUS1=[BG<=;LS_Russia1:..,-30,#;TRACKFGWD:..,^0;TRACKFGDW:..,^0]
2453 $DEF STBGRUS2=[BG-=BG_RUSSIA05:..,-155,<=>;],TRKDHB
2454 $DEF STBGRUS3=[BG-=BG_RUSSIA06:..,-100,<=>;],TRKDH
2455 # Bahnhof E 3/4
2456 $DEF STBGRUB13O=SKY,BG_FOREST1, \
2457 [BG<=BGCITYRU1:..,0,#;1-40*1,TREES_SUMMER:..,0,#;BGCITYRU2:..,0,#; \
2458 ((RU_BOIARKA1,50,RU_BOIARKA2)|RU_BRYANSK_ORLOVSKY|RU_PERM1),:,8; 1000,WATERCOLUMN02:,-4; \
2459 RO_AUREL4,480,RO_AUREL4,:,42;RO_AUREL4S,1450,RO_AUREL4S,:,8; BGPLATT1800H,:,8; \
2460 (0[AR:PLF_I1(2*C,4*B,A,6*(37*B,A),4*B,2*C)]):,4;],$BG_PLF1(18),TRKES
2461 $DEF STBGRUB13H=STMOD,STBGRUB13O
2462 $DEF STBGRUB13=$FLG(O,STBGRUB13O,STBGRUB13H);
2463
2464 # Bahnhof E 5/6
2465 $DEF STBGRUB15O=SKY,BG_FOREST1, \
2466 [BG<=BGCITYRU1:..,0,#;1-40*1,TREES_SUMMER:..,0,#;BGCITYRU2:..,0,#; \
2467 ((RU_BOIARKA1,50,RU_BOIARKA2)|RU_BRYANSK_ORLOVSKY|RU_PERM1),:,8; J_TICKET,200,J_TICKET,:,8; \
2468 J_TICKET,500,J_TICKET,:,8,;RO_AUREL4S,1450,RO_AUREL4S,:,8; BGPLATT1800C,:,8; \
2469 PLF_CZ01,PLF_CZ13A,PLF_CZ02,PLF_CZ06,PLF_CZ07,PLF_CZ03,PLF_CZ05,PLF_CZ04,PLF_CZ05,PLF_CZ03, \
2470 PLF_CZ08,PLF_CZ13,PLF_CZ10,PLF_CZ14,:,-2;],TRKES
2471 $DEF STBGRUB15H=STMOD,STBGRUB15O
2472 $DEF STBGRUB15=$FLG(O,STBGRUB15O,STBGRUB15H);
2473
2474 #--------------------------------------------------------------------------------------------------#
2475 # USA
2476
2477 # Stadt modern USA E56
2478 $DEF STBGUS01=$CM139(20)|([BG-=SXC1344351:,-25;][DX=1920]),TRKGR
2479 # Srecke E1-6
2480 $DEF STBGUS02=$AG198(55),TRKGR
2481 $DEF STBGUS03=$AG87(22),TRKGR
2482 $DEF STBGUS04=$MTS980510(1),TRKGR
2483 $DEF STBGUS06=$AG110(30),TRKGR
2484 $DEF STBGUS07=$AG159(20),TRKGR
2485 $DEF STBGUS08=$AG186(40),TRKGR
2486 # Strecke USA E56
2487 $DEF STBGUS05=$CM183(25),TRKGR
2488
2489 #--------------------------------------------------------------------------------------------------#
2490 # Australien
2491
2492 # Strecke Australien
2493 $DEF STBGAUS1=SKY, \
2494 [BG<=SCENE_DESERT(2|1):..,0; (20*(10|20|30|EUCALYPT0(1|2|3|4|5|6|7)|TREE92|PALM6)):..,0;],TRKGSD
2495 $DEF STBGAUS2=[BG-=BG_Australia02:..,-90,<=>;],TRKES
2496 $DEF STBGAUS3=[BG-=BG_Australia03:..,-10,<=>;],TRKDH
2497 $DEF STBGAUS4=[BG-=BG_Australia01:..,0,<=>;],TRKES
2498
2499 # Bahnhof Australien
2500 $DEF STBGAUSB14O=SKY, \
2501 [BG<=SCENE_DESERT(2|1):..,0; BGCITYAUS:..,0,#; \
2502 (20*(10|20|30|EUCALYPT0(1|2|3|4|5|6|7)|TREE92|PALM6)):..,0;BGCITYAUS:..,0,#; \
2503 (AU_NSW_PC2| \
2504 (AU_NSW_PLF1[AR:3*AU_NSW_PLF2,#AU_NSW_PLF1][OB:(22*AU_NSW_A4A),,12] \
2505 [OT:AU_NSW_A(8|4)|AU_VR_CARISBROOK1,,12])):,0; \
2506 PASG06,10,PASG07,5,PLF_J2D,5,PASG02,5,PLF_J2D,20,PASG01,:,12;],EMBS,TRKES
2507 $DEF STBGAUSB14H=STMOD,STBGAUSB14O
2508 $DEF STBGAUSB14=$FLG(O,STBGAUSB14O,STBGAUSB14H);
2509
2510 #--------------------------------------------------------------------------------------------------#
2511 # Japan
2512 # Strecke Japan
2513 $DEF STBGJP=[BG-=((|#)SCENE_A1006):..,0,<=>,101; \
2514 (20*(10|3|7|TREE63|TREE64|TREE14|TREE21|TREE17|TREE48|TREE83|TREE89|TREE93|TREE3C|TREE3E|TREE4C| \
2515 TREE24|TREE57|TREE43|TREE44|TREE52)):..,0;]
2516 # Strecke Japan 2
2517 $DEF STBGJP02=$AG158(30),TRKGR
2518 # Strecke Japan 3
2519 $DEF STBGJP03=[BG-=LS_Japan_Hokkaido1S:..,-20,#;TRACKFGWD:..,^0;TRACKFGDW:..,^0;]
2520
2521 # Bahnhof Japan EP 5-6
2522
2523 $DEF STBGJPST05O=SKY, \
2524 [BG<=[WMIXF:,CITY_J016,CITY_J017,CITY_J018,CITY_J024]:..,,#; \
2525 150,J_GERONAMES,20,BGPASS1,15,LAMP01,17,J_PBANK,30,BGPASS1,10,BGPASS1,30,BGPASS1,12,BGPASS1,17, \
2526 BGPASS1,40,J_ZAUN,J_GERO,20,BGPASS1,15,BGPASS1,30,J_PBANK,10,PASG01,30,BGPASS1,12,BGPASS1,7, \
2527 LAMP01,17,PASG01,20,J_GERONAMES:,9; J_GEROREL,4*J_GERORM,1054,4*J_GERORM,J_GERORE,13:,9; \
2528 55*PLF_GERO;],EMBS,TRKES
2529 $DEF STBGJPST05H=STMOD,STBGJPST05O
2530 $DEF STBGJPST05=$FLG(O,STBGJPST05O,STBGJPST05H);
2531 #--------------------------------------------------------------------------------------------------#
2532 # Indien
2533 $DEF STBGIN02=[BG-=India_Matheran:..,-620,<=>;TRBED51:..,^0;]
2534 $DEF STBGIN01=[BG-=LS_India:..,-20,#;],TRKES
2535 #--------------------------------------------------------------------------------------------------#
2536 # China
2537 # Strecke China
2538 $DEF STBGCN01=[BG-=LS_china_muztaghS:..,-40,#;TRACKFGDH:..,^0;]
2539 $DEF STBGCN02=[BG-=LS_China_YangshuoS:..,-14;],TRKDHB
2540 #--------------------------------------------------------------------------------------------------#
2541 # Naher Osten
2542 $DEF STBGNE01=[BG-=BG_ARABIA1:..,-650,<=>;],TRKGSD
2543 $DEF STBGNE02=[BG-=BG_ARABIA2:..,-210,<=>;],TRKGSD
2544 $DEF STBGNE03=[BG-=BG_ARABIA3:..,-10,<=>;],TRKDB
2545 #--------------------------------------------------------------------------------------------------#
2546 # Afrika
2547
2548 # Strecke Afrika
2549 $DEF STBGAFS1=SKY, \
2550 [BG<=SCENE_DESERT3:..,0; \
2551 (20*(40|60|90|20|25|50|70|80|TREE106W|AGAVE1|TREE92|EUCALYPT10|PALM12|PALM16|PALMLINE1|PINUS1| \
2552 EUCALYPT02)(|[M])):..,0;],TRKGSD
2553
2554 $DEF STBGAFS2=[BG-=BG_AFRICA01:..,-10,<=>;],TRKGSD
2555 $DEF STBGAFS3=[BG-=BG_AFRICA02:..,0,<=>;],TRKGSD
2556 $DEF STBGAFS4=[BG-=BG_AFRICA03:..,-0,<=>,20,1843;],TRKDHB
2557 #--------------------------------------------------------------------------------------------------#
2558 # Südamerika
2559
2560 # Strecke Argentinien
2561 $DEF STBGSAS1=[BG-=LS_argentina2S:..,-15,#;],TRKDHB
2562 $DEF STBGSAS2=[BG-=LS_Argentina_PatagoniaS:..,-15,#;],TRKGSD
2563
2564 #--------------------------------------------------------------------------------------------------
2565 #
2566 # Hintergrund Streifen für open door (Bahnsteig vorn)
2567 #
2568 #--------------------------------------------------------------------------------------------------#
2569 # Deutschland
2570
2571 # E1
2572 $DEF STBGOPD1=SKY,,BG_FOREST1,CITYBGE1,BFHLBGE1,PLFHLBGE1F
2573
2574 # E2
2575 $DEF STBGOPD2=SKY,,BG_FOREST1,CITYBGE1,BFHLBGE2,PLFHLBGE1F
2576
2577 # E3
2578 $DEF STBGOPD3=SKY,BG_FOREST1,CITYBGE3,BFHLBGE3,PLFHLBGE1F
2579
2580 # E4
2581 $DEF STBGOPD4=SKY,[WX],BG_FOREST1,CITYBGE3,BFHLBGE4,PLFHLBGE4F
2582
2583 # E5
2584 $DEF STBGOPD5=SKY,[W=X],BG_FOREST1,CITYBGE5,BFHLBGE5,PLFHLBGE5F
2585
2586 # E6
2587 $DEF STBGOPD6=SKY,[W=X],BG_FOREST1,CITYBGE5,BFHLBGE6,PLFHLBGE6F
2588
2589 # France Catenary E3
2590 $DEF STBGOPF3=SKY,[W=X], \
2591 [BG<=BGCITYDA1:..,0,#;BGCITYDA2,150,:..,0,#; \
2592 F_CHARLEVILLE[OT:F_CANFRANC3,423,52][OT:F_CANFRANC3,115,52][OT:F_CANFRANC3,732,52],:,8;], \
2593 [FG=PLF_GASTEIZ3[BT:0,0,89,65][BT:0,0,92,53],8*PLF_GASTEIZ3, \
2594 PLF_GASTEIZ3[BT:6,0,89,65][BT:3,0,92,53]:,-2;F_CANFRANC3,500,F_CANFRANC3,:,43; \
2595 BGPASS1,16,F_CANFRANC3S,30,LAMP01,40,BGPASS1,20,BGPASS1,5,PLF_J2D,10,BGPASS1,15,BGPASS1,20, \
2596 B_SHELTER,26,BGPASS1,25,PASG03,35,PLF_J2D,20,PASG02,20,DBAG_STAIRS,30,PASG01,25,BGPASS1,DUSTBIN1, \
2597 11,PLF_J2D,25,BANK8,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,20,BGPASS1,15,BANK04,30, \
2598 B_SHELTER,26,BGPASS1,35,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP01,15,F_CANFRANC3S,12,PERS01,20,PERS03:, \
2599 8;PLF_CH1B,17*PLF_CH1A,#PLF_CH1B:,-4;TRBED25:..,^0;FL_SBB_F,FL_SNCFA_M1:..,-4,#;]
2600
2601 # France Catenary E4
2602 $DEF STBGOPF4=SKY,[W=X], \
2603 [BG<=BGCITYDA1:..,0,#;BGCITYDA2,150,:..,0,#; \
2604 F_CHARLEVILLE[OT:F_CHATELLERAULT,423,52][OT:F_CHATELLERAULT,115,52][OT:F_CHATELLERAULT,732,52],:,8;], \
2605 [FG=PLF_GASTEIZ3[BT:0,0,89,65][BT:0,0,92,53],8*PLF_GASTEIZ3, \
2606 PLF_GASTEIZ3[BT:6,0,89,65][BT:3,0,92,53]:,-2;F_CHATELLERAULT,480,F_CHATELLERAULT,:,42; \
2607 BGPASS1,16,F_CHATELLERAULTS,30,LAMP01,40,BGPASS1,20,BGPASS1,5,PLF_J2D,10,BGPASS1,15,BGPASS1,20, \
2608 B_SHELTER,26,BGPASS1,25,PASG03,10,J_TICKET,5,PLF_J2D,20,PASG02,20,DBAG_STAIRS,30,PASG01,25, \
2609 BGPASS1,DUSTBIN1,11,PLF_J2D,25,BANK8,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,4, \
2610 J_TICKET,16,BGPASS1,15,BANK04,10,B_SHELTER,10,F_COMP,10,BGPASS1,25,BANK01,DUSTBIN1,15,BGPASS1,12, \
2611 LAMP01,15,F_CHATELLERAULTS,12,PERS01,20,PERS03,:,8;PLF_CH1B,17*PLF_CH1A,#PLF_CH1B:,-4; \
2612 TRBED25:..,^0; FL_SBB_F,FL_SNCFA_M1:..,-4,#;]
2613
2614 # France Catenary E5
2615 $DEF STBGOPF5=SKY,[W=X], \
2616 [BG<=BGCITYDA(1|2):..,0,#;BGCITYDM(1|2),150,:..,0,#; F_STATION02_2[OT:F_CHATELLERAULT,206,36]:,8;], \
2617 [FG=PLF_GASTEIZ3[BT:0,0,89,65][BT:0,0,92,53],8*PLF_GASTEIZ3, \
2618 PLF_GASTEIZ3[BT:6,0,89,65][BT:3,0,92,53]:,-2;F_CHATELLERAULT,480,F_CHATELLERAULT,:,43; \
2619 BGPASS1,16,F_CHATELLERAULTS,30,LAMP01,40,BGPASS1,20,BGPASS1,5,PLF_J2D,10,BGPASS1,15,BGPASS1,20, \
2620 B_SHELTER,26,BGPASS1,25,PASG03,10,J_TICKET,5,PLF_J2D,20,PASG02,20,DBAG_STAIRS,30,PASG01,25, \
2621 BGPASS1,DUSTBIN1,11,PLF_J2D,25,BANK8,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,4, \
2622 J_TICKET,16,BGPASS1,15,BANK04,10,B_SHELTER,10,F_COMP,10,BGPASS1,25,BANK01,DUSTBIN1,15,BGPASS1,12, \
2623 LAMP01,15,F_CHATELLERAULTS,12,PERS01,20,PERS03,:,8;18*PLF_5D:,-1;TRBED25:..,^0; \
2624 FL_SBB_F,FL_SNCFA_M1:..,-4,#;]
2625
2626 # France Catenary E6
2627 $DEF STBGOPF6=SKY,[W=X], \
2628 [BG<=BGCITYDA(1|2):..,0,#;BGCITYDM(1|2),150,:..,0,#; F_VILLENEUVE3,50,F_VILLENEUVE4[SM:0.7]:,8;], \
2629 [FG=BGPASS1,16,F_PANTINS,30,LAMP01,40,BGPASS1,20,BGPASS1,5,PLF_J2D,10,BGPASS1,15,BGPASS1,20, \
2630 B_SHELTER,26,BGPASS1,25,PASG03,10,J_TICKET,5,PLF_J2D,20,PASG02,20, \
2631 WALL22B[BC:-20,20][BT:,10][B:0,10,84,1,#842],30,PASG01,25,BGPASS1,DUSTBIN1,11,PLF_J2D,25,BANK8,15, \
2632 BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,4,J_TICKET,16,BGPASS1,15,BANK04,30,B_SHELTER,26, \
2633 BGPASS1,35,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP01,15,F_PANTINS,12,PERS01,20,PERS03,:,8; \
2634 19*PLF_5D,:,0;#PLF_D01B,10*PLF_D01C,PLF_D01B,:,9;TRBED25:..,^0; FL_SBB_F,FL_SNCFA_M1:..,-4,#;]
2635
2636 # France Stromschiene
2637 $DEF STBGOPFM=SKY,[W=X], \
2638 [BG<=BGCITYDA1:..,0,#;BGCITYDA2,150,:..,0,#;F_STATION02_2[OT:F_EPINAL,206,36]:,8;], \
2639 [FG=PLF_GASTEIZ3[BT:0,0,89,65][BT:0,0,92,53],8*PLF_GASTEIZ3, \
2640 PLF_GASTEIZ3[BT:6,0,89,65][BT:3,0,92,53]:,-2;F_EPINAL,500,F_EPINAL,:,43; \
2641 BGPASS1,16,F_EPINALS,30,LAMP01,40,BGPASS1,20,BGPASS1,5,PLF_J2D,10,BGPASS1,15,BGPASS1,20,B_SHELTER, \
2642 26,BGPASS1,25,PASG03,35,PLF_J2D,20,PASG02,20,DBAG_STAIRS,30,PASG01,25,BGPASS1,DUSTBIN1,11,PLF_J2D, \
2643 25,BANK8,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,20,BGPASS1,15,BANK04,30,B_SHELTER,26, \
2644 BGPASS1,35,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP01,15,F_EPINALS,12,PERS01,20,PERS03:,8; \
2645 PLF_CH1B,17*PLF_CH1A,#PLF_CH1B:,-4;TRBED25:..,^0; SNCF_3eRail_FG:..,-2,#;]
2646
2647 # Italien
2648
2649 $DEF STBGOPI=SKY,[W=X], \
2650 [BG<=TREE31,8,TREE47,10,TREE46,6,TREE16,16,TREE53,12,TREE23:..,0; \
2651 I_H079,I_H061_1,NL_THARDE_1,NL_OFFICE01_3,D_ROHBAU,D_FASHION,D_H064A,D_H055,D_H067,D_H033, \
2652 D_MUNCHEN09A:..,0; D_RAUENSTEIN1B,D_RAUENSTEIN2,3;FL_FS4Q:..;], \
2653 [FG=BGPASS1,16,LAMP01,47,PAS14,30,BGPASS1,20,BGPASS1,20,BGPASS1,154,BGPASS1,20,I_TIMTAB1,26, \
2654 BANK04,20,DBAG_STAIRS,BANK8,20,BGPASS1,40,PASG01,28,BGPASS1,20,BANK06,BANK05,24,I_TIMTAB1,16, \
2655 BGPASS1,30,BGPASS1,30,BANK06,24,BGPASS1,18,PAS06,17,LAMP01,12,PERS01,20,PERS03:,8;15*PLF_5D:,8; \
2656 TRACKFGDB:..,^0;FL_FS4QF:..;]
2657
2658 # Japan
2659
2660 $DEF STBGOPJ=SKY, \
2661 [BG<=CITY_J016,CITY_J017,CITY_J018,#CITY_J024; \
2662 150,J_GERONAMES,20,BGPASS1,15,LAMP01,17,J_PBANK,30,BGPASS1,10,BGPASS1,30,BGPASS1,12,BGPASS1,17, \
2663 BGPASS1,40,J_ZAUN,J_GERO,20,BGPASS1,15,BGPASS1,30,J_PBANK,10,PASG01,30,BGPASS1,12,BGPASS1,7, \
2664 LAMP01,17,PASG01,20,J_GERONAMES:,9; J_GEROREL,4*J_GERORM,1054,4*J_GERORM,J_GERORE,13:,9;], \
2665 [FG=BGPASS1,15,BGPASS1,30,J_PBANK,33,J_GERONAMES,38,PASG02,20,BGPASS1,30,BGPASS1,12,BGPASS1,30, \
2666 BGPASS1,10,BGPASS1,17,J_PBANK,30,BGPASS1,50,#PLF_GASTEIZ4,BGPASS1,15,LAMP01,17,J_TICKET,20, \
2667 J_PBANK,10,PLF_GASTEIZ4,40,BGPASS1,40,PASG01,30,BGPASS1,12,BGPASS1,7,BGPASS1,28,BGPASS1,15, \
2668 BGPASS1,30,J_PBANK,10,LAMP01,17,PASG01,20,J_GERONAMES,44,J_PBANK,40,BGPASS1:,9; \
2669 J_GEROREL,30*J_GERORM,J_GERORE,13:,9;55*PLF_GERO; ],EMBS,TRKES
2670 #--------------------------------------------------------------------------------------------------
2671 # Night
2672 $DEF STBGNIGHTD=[W=X][BG-=BG_GERMANY03[BC:-90,-30]:..,-120,<=>;EMB7[BC:-90,-30]:..,^0; &\
2673 TRBED(51|12|31)[BC:-90,-30]:..,^0;]
2674 $DEF STBGNIGHTE=[W=X][BG-=BG_GERMANY03[BC:-90,-30]:..,-120,<=>;EMB7[BC:-90,-30]:..,^0; &\
2675 TRBED(51|12|31)[BC:-90,-30]:..,^0;] &\
2676 [FG>=;FL_DB_M(4:1F5|2_5)[BC:-90,-30],FL_DB_F5[BC:-90,-30]:..,#-63,#;]
2677 $DEF STBGNIGHT=$FLG(E,STBGNIGHTE,STBGNIGHTD)
2678
2679 #--------------------------------------------------------------------------------------------------
2680
2681 # Hintergrund Streifen für Länderpools
2682
2683 %*DEF(ENVDEF(N,B,C)=$DEF %N=[BG#=@@;]($IF($BGTYPE>=3,[C-=[!BBG]])),$IF($BGTYPE>=1,($IF($BGTYPE>=3,%B,$IF($BGTYPE==2,TRACK)),%C)))
2684 %*DEF(BGPDEF(N)=$DEF BGP%N=$FLG(B,BGP%N;N,$FLG(A,BGP%N;A,$FLG(T,BGP%N;T,$FLG(O,BGP%N;O,$FLG(1,BGP%N;1,\
2685 $FLG(2,BGP%N;2,$FLG(3,BGP%N;3,$FLG(4,BGP%N;4,$FLG(5,BGP%N;5,BGP%N;6))))))))))
2686 # Ungarn
2687 $DEF BGPHU1=STBGFO|STBGHU01T|STBGHU02|STBGHU03|STBGHU05T|STBGROS1T|STBGDE03T
2688 $DEF BGPHU2=STBGFO|STBGHU01T|STBGHU02|STBGHU03|STBGHU05T|STBGROS1T|STBGDE03T
2689 $DEF BGPHU3=STBGFO|STBGHUB13|STBGDE03T|STBGCZ01|STBGHU01T|STBGHU02|STBGHU03|STBGHU05T|STBGROS1T| \
2690 STBGBGS2|STBGDE03T
2691 $DEF BGPHU4=STBGFO|STBGHUB13|STBGDE03O|STBGCZ01|STBGHU01O|STBGHU02|STBGHU03|STBGHU05O|STBGHU04| \
2692 STBGROS1O|STBGROS1O|STBGBGS2
2693 $DEF BGPHU5=STBGFO|STBGHUB15|STBGDE03O|STBGCZ01|STBGHU01O|STBGHU02|STBGHU03|STBGHU05O|STBGHU04| \
2694 STBGROS1O|STBGBGS2
2695 $DEF BGPHU6=STBGFO|STBGHUB15|STBGDE03O|STBGCZ01|STBGHU01O|STBGHU02|STBGHU03|STBGHU05O|STBGHU04| \
2696 STBGROS1O|STBGBGS2
2697 $DEF BGPHUA=STBGDE05O
2698 $DEF BGPHUN=STBGNIGHT
2699 $DEF BGPHURF=$FLG(1,STBGDG2,$FLG(2,STBGDG2,$FLG(3,STBGDG(2|3),$FLG(4,STBGDG(3|4),STBGDG4))))
2700 $DEF BGPHUT=STBGOPD4
2701 $DEF BGPHUO=$FLG(F,BGPHURF,$FLG(5,STBGHUB15,$FLG(6,STBGHUB15,STBGHUB13)))
2702 %BGPDEF(HU)
2703 %ENVDEF(M_ENV,BGPHU,CATHU)
2704
2705 # Deutschland
2706 $DEF BGPDE1=STBGFT|STBGDI2|STBGDE01T|STBGDBB11|STBGPLS02T|STBGDE03T|STBGLU01T|STBGDE05T|STBGDE04T| \
2707 STBGFRS3T|STBGDBB21|STBGHU01T|STBGHU05T|STBGROS1T|STBGDE07T|STBGHU03|STBGDG2
2708 $DEF BGPDE2=STBGFT|STBGDI2|STBGDE01T|STBGDBB12|STBGDBB22|STBGPLS02T|STBGDE03T|STBGLU01T|STBGDE05T| \
2709 STBGDE04T|STBGFRS3T|STBGDBW22|STBGDBW12|STBGHU01T|STBGHU05T|STBGROS1T|STBGDE07T|STBGHU03|STBGDG2
2710 $DEF BGPDE3=STBGFO|STBGDI1|STBGDE01O|STBGDE01T|STBGDBB13|STBGDBB23|STBGDE02T|STBGDE03T|STBGLU01T| \
2711 STBGDE05T|STBGDE04T|STBGFRS3T|STBGDBW23|STBGDBW13|STBGDBW33|STBGFRS4|STBGHU01T|STBGHU05T| \
2712 STBGROS1T|STBGBGS2|STBGPLS02T|STBGDE07T|STBGHU03|STBGDG3
2713 $DEF BGPDE4=STBGFO|STBGDI1|STBGDI4|STBGDE01O|STBGDBB14|STBGDBB24|STBGDE02O|STBGDE03O|STBGLU01O| \
2714 STBGDE05O|STBGDE04O|STBGFRS3O|STBGDBW24|STBGDBW34|STBGFRS4|STBGHU01O|STBGHU05O|STBGROS1O|STBGBGS2| \
2715 STBGPLS02O|STBGDE06O|STBGDE07O|STBGHU03|STBGDG3|STBGDG4
2716 $DEF BGPDE5=STBGFO|STBGDI1|STBGDI4|STBGDE01O|STBGDBB15|STBGDBB25|STBGDE02O|STBGDE03O|STBGLU01O| \
2717 STBGDE05O|STBGDE04O|STBGFRS3O|STBGDBW36|STBGFRS4|STBGHU01O|STBGHU05O|STBGROS1O|STBGBGS2| \
2718 STBGPLS02O|STBGDE06O|STBGDE07O|STBGHU03|STBGDG4
2719 $DEF BGPDE6=STBGFO|STBGDI4|STBGDE01O|STBGDBB16|STBGDBB26|STBGDE02O|STBGDE03O|STBGLU01O|STBGDE05O| \
2720 STBGDE04O|STBGFRS3O|STBGDBW36|STBGFRS4|STBGHU01O|STBGHU05O|STBGROS1O|STBGBGS2|STBGPLS02O| \
2721 STBGDE06O|STBGDE07O|STBGHU03|STBGDG4
2722
2723 # Bahnhof für Rangierbewegung
2724 $DEF BGPDERP=$FLG(1,STBGDBB21, \
2725 $FLG(2,STBGDBB22,$FLG(3,STBGDBB23,$FLG(4,STBGDBB24,$FLG(5,STBGDBB25,STBGDBB26)))))
2726 $DEF BGPDERF=$FLG(1,STBGDG2,$FLG(2,STBGDG2,$FLG(3,STBGDG(2|3),$FLG(4,STBGDG(3|4),STBGDG4))))
2727 $DEF BGPDEO=$FLG(P,BGPDERP,BGPDERF)
2728 # Bahnhof für mit Halt hinter dem Bahnsteig für offene Türen
2729 $DEF BGPDET=$FLG(1,STBGOPD1,$FLG(2,STBGOPD2,$FLG(3,STBGOPD3,$FLG(4,STBGOPD4,$FLG(5,STBGOPD5,STBGOPD6)))))
2730 # Def Winter
2731 $DEF BGPDEA=$FLG(4,(STBGDE05O|STBGATS02), \
2732 $FLG(5,(STBGDE05O|STBGATS02),$FLG(6,(STBGDE05O|STBGATS02),(STBGDE05T|STBGATS02))))
2733 $DEF BGPDEN=STBGNIGHT
2734 %BGPDEF(DE)
2735 %ENVDEF(DRG_ENV,BGPDRG,CATDRG)
2736 %ENVDEF(DB_ENV,BGPDB,CATDB)
2737 %ENVDEF(DE_ENV,BGPDE,CATDE)
2738
2739 # Deutschland-DDR
2740 $DEF BGPDR3=STBGDDRB1|STBGFO|STBGDE01T|STBGDI1|STBGDK01|STBGDE03T|STBGFRS3T|STBGDBW53|STBGDBW43| \
2741 STBGHU01T|STBGHU05T|STBGROS1T|STBGBGS2|STBGDE04T|STBGPLS02T|STBGDE07T|STBGHU03|STBGDG3
2742 $DEF BGPDR4=STBGDDRB1|STBGFO|STBGDI1|STBGDK01|STBGDE03O|STBGLU01O|STBGFRS3O|STBGDBW54|STBGDBW44| \
2743 STBGHU01O|STBGHU05O|STBGROS1O|STBGBGS2|STBGDE01O|STBGDE04O|STBGPLS02O|STBGDE07O|STBGDE07O| \
2744 STBGHU03|STBGDG(3|4)
2745 $DEF BGPDR5=STBGFO|STBGDI1|STBGDI4|STBGDBB15|STBGDBB25|STBGDE02O|STBGDE03O|STBGLU01O|STBGDE05O| \
2746 STBGDE04O|STBGFRS3O|STBGHU01O|STBGHU05O|STBGROS1O|STBGBGS2|STBGDE01O|STBGPLS02O|STBGDE07O| \
2747 STBGHU03|STBGDG4
2748 $DEF BGPDR1=BGPDR3
2749 $DEF BGPDR2=BGPDR3
2750 $DEF BGPDR6=BGPDR5
2751 # Bahnhof für Rangierbewegung DDR
2752 $DEF BGPDRRP=STBGDBB23
2753 $DEF BGPDRRF=$FLG(5,STBGDG4,STBGDG(2|3))
2754 $DEF BGPDRO=$FLG(P,BGPDRRP,BGPDRRF)
2755 # Bahnhof für mit Halt hinter dem Bahnsteig für offene Türen
2756 $DEF BGPDRT=STBGOPD3
2757 $DEF BGPDRA=BGPDEA
2758 $DEF BGPDRN=STBGNIGHT
2759
2760 %BGPDEF(DR)
2761 %ENVDEF(DR_ENV,BGPDR,CATDR)
2762 # Schweiz
2763 $DEF BGPCH1=STBGFN|STBGIT03|STBGDE03T|STBGATS01|STBGATS02|STBGATS03T
2764 $DEF BGPCH2=STBGFN|STBGAT23|STBGIT03|STBGDE03T|STBGATS01|STBGATS02|STBGATS03T
2765 $DEF BGPCH3=STBGFN|STBGAT23|STBGIT03|STBGDE03T|STBGATS01|STBGATS02|STBGATS03T
2766 $DEF BGPCH4=STBGFN|STBGAT23|STBGIT03|STBGDE03O|STBGATS01|STBGATS02|STBGATS03O
2767 $DEF BGPCH5=STBGFN|STBGCHB15|STBGCHB25|STBGIT03|STBGDE03O|STBGATS01|STBGATS02|STBGATS03O
2768 $DEF BGPCH6=STBGFN|STBGCHB15|STBGCHB25|STBGIT03|STBGDE03O|STBGATS01|STBGATS02|STBGATS03O
2769 $DEF BGPCHA=(STBGATS01|STBGATS02)
2770 $DEF BGPCHT=STBGOPD4
2771 $DEF BGPCHO=$FLG(F,BGPDERF,$FLG(5,STBGCHB15,$FLG(6,STBGCHB15,STBGAT23)))
2772 $DEF BGPCHN=STBGNIGHT
2773
2774 %BGPDEF(CH)
2775 %ENVDEF(CH_ENV,BGPCH,CATCH)
2776 # Österreich
2777 $DEF BGPOS1=STBGFN|STBGIT03|STBGDE03T|STBGATS01|STBGATS02|STBGHU01T|STBGHU05T|STBGPLS02T|STBGLU01T| \
2778 STBGATS03T|STBGHU03
2779 $DEF BGPOS2=STBGFN|STBGAT23|STBGIT03|STBGDE03T|STBGATS01|STBGATS02|STBGHU01T|STBGHU05T|STBGPLS02T| \
2780 STBGLU01T|STBGATS03T|STBGHU03
2781 $DEF BGPOS3=STBGFN|STBGAT23|STBGIT03|STBGDE03T|STBGATS01|STBGATS02|STBGHU01T|STBGHU05T|STBGPLS02T| \
2782 STBGLU01T|STBGATS03T|STBGHU03
2783 $DEF BGPOS4=STBGFN|STBGAT23|STBGSLO01|STBGIT03|STBGDE03O|STBGATS01|STBGATS02|STBGHU01O|STBGHU05O| \
2784 STBGPLS02O|STBGLU01O|STBGATS03O|STBGHU03
2785 $DEF BGPOS5=STBGFN|STBGAT15|STBGAT25|STBGSLO01|STBGIT03|STBGDE03O|STBGATS01|STBGATS02|STBGHU01O| \
2786 STBGHU05O|STBGPLS02O|STBGLU01O|STBGATS03O|STBGHU03
2787 $DEF BGPOS6=STBGFN|STBGAT15|STBGAT25|STBGSLO01|STBGIT03|STBGDE03O|STBGATS01|STBGATS02|STBGHU01O| \
2788 STBGHU05O|STBGPLS02O|STBGLU01O|STBGATS03O|STBGHU03
2789 $DEF BGPOSA=(STBGATS01|STBGATS02)
2790 $DEF BGPOST=STBGOPD4
2791 $DEF BGPOSO=$FLG(F,BGPDERF,$FLG(5,STBGAT15,$FLG(6,STBGAT15,STBGAT23)))
2792
2793 %BGPDEF(OS)
2794 %ENVDEF(A_ENV,BGPOS,CATOS)
2795 # Großbritannien
2796 $DEF BGPGB1=STBGFO|STBGGB02|STBGGB03|STBGGB04|STBGGB05
2797 $DEF BGPGB2=STBGFO|STBGGBB13|STBGGB01|STBGGB02|STBGGB03|STBGGB04|STBGGB05
2798 $DEF BGPGB3=STBGFO|STBGGBB13|STBGGB01|STBGGB02|STBGGB03|STBGGB04|STBGGB05
2799 $DEF BGPGB4=STBGFO|STBGGBB14|STBGGB01|STBGGB02|STBGGB03|STBGGB04|STBGGB05
2800 $DEF BGPGB5=STBGFO|STBGGBB15|STBGGB01|STBGGB02|STBGGB03|STBGGB04|STBGGB05
2801 $DEF BGPGB6=STBGFO|STBGGBB15|STBGGB01|STBGGB02|STBGGB03|STBGGB04|STBGGB05
2802 $DEF BGPGBA=STBGSW04
2803 $DEF BGPGBT=STBGOPD4
2804 $DEF BGPGBO=$FLG(F,BGPDERF,$FLG(5,STBGGBB15,$FLG(6,STBGGBB15,$FLG(4,STBGGBB14,STBGGBB13))))
2805 %BGPDEF(GB)
2806 %ENVDEF(GB_ENV,BGPGB,CATGB)
2807
2808 # Irland
2809 $DEF BGPIR1=STBGFO|STBGIR02
2810 $DEF BGPIR2=STBGFO|STBGGBB13|STBGGB01|STBGIR02
2811 $DEF BGPIR3=STBGFO|STBGGBB13|STBGGB01|STBGIR02
2812 $DEF BGPIR4=STBGFO|STBGGBB14|STBGGB01|STBGIR01|STBGIR02
2813 $DEF BGPIR5=STBGFO|STBGGBB15|STBGGB01|STBGIR01|STBGIR02
2814 $DEF BGPIR6=STBGFO|STBGGBB15|STBGGB01|STBGIR01|STBGIR02
2815 $DEF BGPIRA=STBGSW04
2816 $DEF BGPIRT=STBGOPD4
2817 $DEF BGPIRO=$FLG(F,BGPDERF,$FLG(5,STBGGBB15,$FLG(6,STBGGBB15,$FLG(4,STBGGBB14,STBGGBB13))))
2818 %BGPDEF(IR)
2819 %ENVDEF(IR_ENV,BGPIR,CATGB)
2820
2821 # Frankreich
2822 $DEF BGPFR1=STBGFO|STBGFRS1|STBGES01|STBGATS01|STBGIT06|STBGFRS3T|STBGHU01T|STBGHU05T|STBGPLS02T| \
2823 STBGLU01T|STBGHU03|STBGFRB23
2824 $DEF BGPFR2=STBGFO|STBGFRS1|STBGFRB13|STBGES01|STBGATS01|STBGIT06|STBGFRS3T|STBGHU01T|STBGHU05T| \
2825 STBGPLS02T|STBGLU01T|STBGHU03|STBGFRB23|STBGFRB13|
2826 $DEF BGPFR3=STBGFO|STBGFRS1 &IF(BGUP<=200||W<=2560,|STBGFRS2)|STBGFRB13|STBGES01|STBGATS01|STBGDE03T| \
2827 STBGIT06|STBGFRS3T|STBGFRS4|STBGHU01T|STBGHU05T|STBGPLS02T|STBGLU01T|STBGHU03|STBGFRB23
2828 $DEF BGPFR4=STBGFO|STBGFRS1 &IF(BGUP<=200||W<=2560,|STBGFRS2)|STBGFRB14|STBGES01|STBGATS01|STBGDE03O| \
2829 STBGIT06|STBGFRS4|STBGHU01O|STBGHU05O|STBGPLS02O|STBGLU01O|STBGDE06O|STBGHU03|STBGFRB23|STBGFRB24
2830 $DEF BGPFR5=STBGFO|STBGFRS1 &IF(BGUP<=200||W<=2560,|STBGFRS2)|STBGFRB15|STBGES01|STBGATS01|STBGDE03O| \
2831 STBGIT06|STBGFRS3O|STBGFRS4|STBGHU01O|STBGHU05O|STBGPLS02O|STBGLU01O|STBGDE06O|STBGHU03|STBGFRB24
2832 $DEF BGPFR6=STBGFO|STBGFRS1 &IF(BGUP<=200||W<=2560,|STBGFRS2)|STBGFRB16|STBGES01|STBGATS01|STBGDE03O| \
2833 STBGIT06|STBGFRS3O|STBGFRS4|STBGHU01O|STBGHU05O|STBGPLS02O|STBGLU01O|STBGDE06O|STBGHU03|STBGFRB26
2834 $DEF BGPFRRF=$FLG(4,STBGFG(3|4),$FLG(5,STBGFG4,$FLG(6,STBGFG4,STBGFG3)))
2835 $DEF BGPFRO=$FLG(F,BGPFRRF,$FLG(5,STBGFRB14,$FLG(6,STBGFRB16,STBGFRB13)))
2836 $DEF BGPFRT=$FLG(M,STBGOPFM,$FLG(5,STBGOPF5,$FLG(6,STBGOPF6,$FLG(4,STBGOPF4,STBGOPF3))))
2837 $DEF BGPFRA=(STBGATS01|STBGATS02)
2838 %BGPDEF(FR)
2839 %ENVDEF(F_ENV,BGPFR,CATFR)
2840
2841 # Belgien
2842 $DEF BGPBE1=STBGFO|STBGDE03T|STBGFRS3T|STBGBE02|STBGHU01T|STBGHU05T|STBGROS1T|STBGPLS02T|STBGLU01T| \
2843 STBGHU03
2844 $DEF BGPBE2=STBGFO|STBGDE03T|STBGFRS3T|STBGBE02|STBGHU01T|STBGHU05T|STBGROS1T|STBGPLS02T|STBGLU01T| \
2845 STBGHU03
2846 $DEF BGPBE3=STBGFO|STBGBEB14|STBGDK01|STBGDE02T|STBGNL02|STBGDE03T|STBGFRS3T|STBGBE01|STBGBE02| \
2847 STBGFRS4|STBGHU01T|STBGHU05T|STBGROS1T|STBGBGS2|STBGPLS02T|STBGLU01T|STBGHU03|STBGFG3
2848 $DEF BGPBE4=STBGFO|STBGBEB14|STBGDK01|STBGDE02O|STBGNL02|STBGDE03O|STBGFRS3O|STBGBE01|STBGBE02| \
2849 STBGFRS4|STBGHU01O|STBGHU05O|STBGROS1O|STBGBGS2|STBGPLS02O|STBGLU01O|STBGDE06O|STBGHU03|STBGFG(3|4)
2850 $DEF BGPBE5=STBGFO|STBGBEB15|STBGDK01|STBGDE02O|STBGNL02|STBGDE03O|STBGFRS3O|STBGBE01|STBGBE02| \
2851 STBGFRS4|STBGHU01O|STBGHU05O|STBGROS1O|STBGBGS2|STBGPLS02O|STBGLU01O|STBGDE06O|STBGHU03|STBGFG4
2852 $DEF BGPBE6=STBGFO|STBGBEB15|STBGDK01|STBGDE02O|STBGNL02|STBGDE03O|STBGFRS3O|STBGBE01|STBGBE02| \
2853 STBGFRS4|STBGHU01O|STBGHU05O|STBGROS1O|STBGBGS2|STBGPLS02O|STBGLU01O|STBGDE06O|STBGHU03|STBGFG4
2854 $DEF BGPBEA=STBGSW04
2855 $DEF BGPBET=STBGOPD4
2856 $DEF BGPBEO=$FLG(F,BGPDERF,$FLG(5,STBGBEB15,$FLG(6,STBGBEB15,STBGBEB14)))
2857 %BGPDEF(BE)
2858 %ENVDEF(B_ENV,BGPBE,CATBE)
2859
2860 # Luxemburg
2861 $DEF BGPLU1=STBGFO|STBGDK01|STBGDE03T|STBGLU01T|STBGHU01T|STBGHU05T|STBGPLS02T|STBGHU03
2862 $DEF BGPLU2=STBGFO|STBGDK01|STBGDE03T|STBGLU01T|STBGHU01T|STBGHU05T|STBGPLS02T|STBGHU03
2863 $DEF BGPLU3=STBGFO|STBGBEB14|STBGDK01|STBGDE02T|STBGDE03T|STBGLU01T|STBGHU01T|STBGHU05T|STBGPLS02T| \
2864 STBGHU03
2865 $DEF BGPLU4=STBGFO|STBGBEB14|STBGDK01|STBGDE02O|STBGDE03O|STBGLU01O|STBGFRS4|STBGHU01O|STBGHU05O| \
2866 STBGPLS02O|STBGHU03
2867 $DEF BGPLU5=STBGFO|STBGLUB15|STBGDK01|STBGDE02O|STBGDE03O|STBGLU01O|STBGFRS4|STBGHU01O|STBGHU05O| \
2868 STBGPLS02O|STBGHU03
2869 $DEF BGPLU6=STBGFO|STBGLUB15|STBGDK01|STBGDE02O|STBGDE03O|STBGLU01O|STBGFRS4|STBGHU01O|STBGHU05O| \
2870 STBGPLS02O|STBGHU03
2871 $DEF BGPLUA=STBGDE05O
2872 $DEF BGPLUO=$FLG(F,BGPDERF,$FLG(5,STBGLUB15,$FLG(6,STBGLUB15,STBGFRB13)))
2873 $DEF BGPLUT=STBGOPD4
2874 %BGPDEF(LU)
2875 %ENVDEF(L_ENV,BGPLU,CATLU)
2876
2877 # Niederlande
2878 $DEF BGPNL1=STBGFO &IF(W<=1920,|BGNL01|BGNL02)|STBGNL01|STBGDE07T
2879 $DEF BGPNL2=STBGFO &IF(W<=1920,|BGNL01|BGNL02)|STBGNL01|STBGDE07T
2880 $DEF BGPNL3=STBGFO &IF(W<=1920,|BGNL01|BGNL02)|STBGNLB13|STBGNL01|STBGNL02|STBGDE07T
2881 $DEF BGPNL4=STBGFO &IF(W<=1920,|BGNL01|BGNL02)|STBGNLB14|STBGNL01|STBGNL02|STBGDE07O
2882 $DEF BGPNL5=STBGFO &IF(W<=1920,|BGNL01|BGNL02|BGNL03)|STBGNLB15|STBGNL01|STBGNL02|STBGDE07O
2883 $DEF BGPNL6=STBGFO &IF(W<=1920,|BGNL01|BGNL02|BGNL03)|STBGNLB15|STBGNL01|STBGNL02|STBGDE07O
2884 $DEF BGPNLA=STBGSW04
2885 $DEF BGPNLO=$FLG(F,BGPDERF,$FLG(5,STBGNLB15,$FLG(6,STBGNLB15,$FLG(4,STBGNLB14,STBGNLB13))))
2886 $DEF BGPNLT=STBGOPD4
2887 %BGPDEF(NL)
2888 %ENVDEF(NL_ENV,BGPNL,CATNL)
2889
2890 # Dänemark
2891 $DEF BGPDK1=STBGFO|STBGDKB13|STBGDK01|STBGDE07T
2892 $DEF BGPDK2=STBGFO|STBGDKB13|STBGDK01|STBGDE07T
2893 $DEF BGPDK3=STBGFO|STBGDKB13|STBGDK01|STBGNL02|STBGDE07T
2894 $DEF BGPDK4=STBGFO|STBGDKB14|STBGDK01|STBGNL02|STBGDE07O
2895 $DEF BGPDK5=STBGFO|STBGDKB15|STBGDK01|STBGNL02|STBGDE07O
2896 $DEF BGPDK6=STBGFO|STBGDKB15|STBGDK01|STBGNL02|STBGDE07O
2897 $DEF BGPDKA=STBGSW04
2898 $DEF BGPDKO=$FLG(F,BGPDERF,$FLG(5,STBGDKB15,$FLG(6,STBGDKB15,$FLG(4,STBGDKB14,STBGDKB13))))
2899 $DEF BGPDKT=STBGOPD4
2900 %BGPDEF(DK)
2901 %ENVDEF(DK_ENV,BGPDK,CATDK)
2902
2903 # Norwegen
2904 $DEF BGPNO1=STBGFN|STBGNOB13|STBGNO01
2905 $DEF BGPNO2=STBGFN|STBGNOB13|STBGNO01
2906 $DEF BGPNO3=STBGFN|STBGNOB13|STBGNO01
2907 $DEF BGPNO4=STBGFN|STBGNOB14|STBGNO01
2908 $DEF BGPNO5=STBGFN|STBGNOB15|STBGNO01
2909 $DEF BGPNO6=STBGFN|STBGNOB15|STBGNO01
2910 $DEF BGPNOA=STBGDE05O
2911 $DEF BGPNOO=$FLG(5,STBGNOB15,$FLG(6,STBGNOB15,$FLG(4,STBGNOB14,STBGNOB13)))
2912 $DEF BGPNOT=STBGOPD4
2913 %BGPDEF(NO)
2914 %ENVDEF(N_ENV,BGPNO,CATNO)
2915
2916 # Schweden
2917 $DEF BGPSE1=STBGFN|STBGNOB13|STBGFI01|STBGSW01|STBGSW02|STBGSW03|STBGSW04|STBGSW05
2918 $DEF BGPSE2=STBGFN|STBGNOB13|STBGFI01|STBGSW01|STBGSW02|STBGSW03|STBGSW04|STBGSW05
2919 $DEF BGPSE3=STBGFN|STBGNOB13|STBGFI01|STBGSW01|STBGSW02|STBGSW03|STBGSW04|STBGSW05
2920 $DEF BGPSE4=STBGFN|STBGNOB14|STBGFI01|STBGSW01|STBGSW02|STBGSW03|STBGSW04|STBGSW05
2921 $DEF BGPSE5=STBGFN|STBGNOB15|STBGFI01|STBGSW01|STBGSW02|STBGSW03|STBGSW04|STBGSW05
2922 $DEF BGPSE6=STBGFN|STBGNOB15|STBGFI01|STBGSW01|STBGSW02|STBGSW03|STBGSW04|STBGSW05
2923 $DEF BGPSEA=STBGSW04
2924 $DEF BGPSEO=$FLG(F,BGPDERF,$FLG(5,STBGDKB15,$FLG(6,STBGDKB15,$FLG(4,STBGDKB14,STBGDKB13))))
2925 $DEF BGPSET=STBGOPD4
2926 $DEF BGPSEN=STBGNIGHT
2927 %BGPDEF(SE)
2928 %ENVDEF(S_ENV,BGPSE,CATSE)
2929
2930 # Finnland
2931 $DEF BGPSF1=STBGFN|STBGNOB13|STBGNO01|STBGFI01|STBGFI03
2932 $DEF BGPSF2=STBGFN|STBGNOB13|STBGNO01|STBGFI01|STBGFI03
2933 $DEF BGPSF3=STBGFN|STBGNOB13|STBGNO01|STBGFI01|STBGFI02|STBGFI03
2934 $DEF BGPSF4=STBGFN|STBGNOB14|STBGNO01|STBGFI01|STBGFI02|STBGFI03
2935 $DEF BGPSF5=STBGFN|STBGNOB15|STBGNO01|STBGFI01|STBGFI02|STBGFI03
2936 $DEF BGPSF6=STBGFN|STBGNOB15|STBGNO01|STBGFI01|STBGFI02|STBGFI03
2937 $DEF BGPSFA=STBGDE05O
2938 $DEF BGPSFO=$FLG(5,STBGNOB15,$FLG(6,STBGNOB15,$FLG(4,STBGNOB14,STBGNOB13)))
2939 $DEF BGPSFT=STBGOPD4
2940 %BGPDEF(SF)
2941 %ENVDEF(FI_ENV,BGPSF,CATFI)
2942
2943 # Portugal
2944 $DEF BGPPO1=STBGITW|STBGESB13|STBGPO01|STBGPO02|STBGES02|STBGPO03
2945 $DEF BGPPO2=STBGITW|STBGESB13|STBGPO01|STBGPO02|STBGES02|STBGPO03
2946 $DEF BGPPO3=STBGITW|STBGESB13|STBGPO01|STBGPO02|STBGES02|STBGPO03
2947 $DEF BGPPO4=STBGITW|STBGESB13|STBGPO01|STBGPO02|STBGES02|STBGPO03
2948 $DEF BGPPO5=STBGITW|STBGESB15|STBGPO01|STBGPO02|STBGES02|STBGPO03
2949 $DEF BGPPO6=STBGITW|STBGESB15|STBGPO01|STBGPO02|STBGES02|STBGPO03
2950 $DEF BGPPOA=STBGDE05O
2951 $DEF BGPPOO=$FLG(5,STBGESB15,$FLG(6,STBGESB15,STBGESB13))
2952 $DEF BGPPOT=STBGOPD4
2953 %BGPDEF(PO)
2954 %ENVDEF(P_ENV,BGPPO,CATPO)
2955
2956 # Spanien
2957 $DEF BGPES1=STBGITW|STBGESB13|STBGPO02|STBGES01|STBGES02
2958 $DEF BGPES2=STBGITW|STBGESB13|STBGPO02|STBGES01|STBGES02
2959 $DEF BGPES3=STBGITW|STBGESB13|STBGPO02|STBGES01|STBGES02
2960 $DEF BGPES4=STBGITW|STBGESB13|STBGPO02|STBGES01|STBGES02|STBGES03
2961 $DEF BGPES5=STBGITW|STBGESB15|STBGPO02|STBGES01|STBGES02|STBGES03
2962 $DEF BGPES6=STBGITW|STBGESB15|STBGPO02|STBGES01|STBGES02|STBGES03
2963 $DEF BGPESA=STBGATS02
2964 $DEF BGPESO=$FLG(5,STBGESB15,$FLG(6,STBGESB15,STBGESB13))
2965 $DEF BGPEST=STBGOPD4
2966 %BGPDEF(ES)
2967 %ENVDEF(E_ENV,BGPES,CATES)
2968
2969 # Italien
2970 $DEF BGPIT1=STBGITW|STBGITS13|STBGES01|STBGIT01|STBGIT03|STBGIT06|STBGIT07
2971 $DEF BGPIT2=STBGITW|STBGITS13|STBGES01|STBGIT01|STBGIT03|STBGIT06|STBGIT07
2972 $DEF BGPIT3=STBGITW|STBGITS13|STBGES01|STBGIT01|STBGIT03|STBGIT05|STBGIT06|STBGIT07
2973 $DEF BGPIT4=STBGITW|STBGITS13|STBGES01|STBGIT01|STBGIT02|STBGIT03|STBGIT04|STBGIT05|STBGIT06|STBGIT07
2974 $DEF BGPIT5=STBGITW|STBGITS15|STBGES01|STBGIT01|STBGIT02|STBGIT03|STBGIT04|STBGIT05|STBGIT06|STBGIT07
2975 $DEF BGPIT6=STBGITW|STBGITS16|STBGES01|STBGIT01|STBGIT02|STBGIT03|STBGIT04|STBGIT05|STBGIT06|STBGIT07
2976 $DEF BGPITA=(STBGATS01|STBGATS02)
2977 $DEF BGPITN=STBGNIGHT
2978 $DEF BGPITT=STBGOPI
2979 $DEF BGPITO=$FLG(F,BGPDERF,$FLG(5,STBGITS15,$FLG(6,STBGITS16,STBGITS13)))
2980 %BGPDEF(IT)
2981 %ENVDEF(I_ENV,BGPIT,CATIT)
2982
2983 # Tschechien
2984 $DEF BGPCS1=STBGFO|STBGDE03T|STBGCZ02|STBGROS1T|STBGPLS02T|STBGLU01T|STBGHU03
2985 $DEF BGPCS2=STBGFO|STBGDE03T|STBGCZ02|STBGROS1T|STBGPLS02T|STBGLU01T|STBGHU03
2986 $DEF BGPCS3=STBGFO|STBGCSB13|STBGDE02T|STBGDE03T|STBGCZ01|STBGCZ02|STBGCZ03|STBGROS1T|STBGPLS02T| \
2987 STBGLU01T|STBGHU03
2988 $DEF BGPCS4=STBGFO|STBGCSB13|STBGDE02O|STBGDE03O|STBGLU01O|STBGCZ01|STBGCZ02|STBGCZ03|STBGROS1O| \
2989 STBGPLS02O|STBGLU01O|STBGHU03
2990 $DEF BGPCS5=STBGFO|STBGCSB15|STBGDE02O|STBGDE03O|STBGLU01O|STBGCZ01|STBGCZ02|STBGCZ03|STBGROS1O| \
2991 STBGPLS02O|STBGLU01O|STBGHU03
2992 $DEF BGPCS6=STBGFO|STBGCSB15|STBGDE02O|STBGDE03O|STBGLU01O|STBGCZ01|STBGCZ02|STBGCZ03|STBGROS1O| \
2993 STBGPLS02O|STBGLU01O|STBGHU03
2994 $DEF BGPCSA=STBGDE05O
2995 $DEF BGPCSO=$FLG(F,BGPDERF,$FLG(5,STBGCSB15,$FLG(6,STBGCSB15,STBGDBB23)))
2996 $DEF BGPCST=STBGOPD4
2997 %BGPDEF(CS)
2998 %ENVDEF(CS_ENV,BGPCS,CATCS)
2999
3000 # Slowakei
3001 $DEF BGPSK1=STBGFO|STBGDE03T|STBGSK01|STBGHU05T|STBGROS1T|STBGPLS02T|STBGLU01T|STBGHU03
3002 $DEF BGPSK2=STBGFO|STBGDE03T|STBGSK01|STBGSK01|STBGHU05T|STBGROS1T|STBGPLS02T|STBGLU01T|STBGHU03
3003 $DEF BGPSK3=STBGFO|STBGCSB13|STBGDE03T|STBGCZ01|STBGSK01|STBGSK01|STBGHU05T|STBGROS1T|STBGPLS02T| \
3004 STBGLU01T|STBGHU03
3005 $DEF BGPSK4=STBGFO|STBGCSB13|STBGDE03O|STBGLU01O|STBGCZ01|STBGSK01|STBGSK01|STBGHU05O|STBGROS1O| \
3006 STBGPLS02O|STBGLU01O|STBGHU03
3007 $DEF BGPSK5=STBGFO|STBGCSB15|STBGDE03O|STBGLU01O|STBGCZ01|STBGSK01|STBGSK01|STBGHU05O|STBGROS1O| \
3008 STBGPLS02O|STBGLU01O|STBGHU03
3009 $DEF BGPSK6=STBGFO|STBGCSB15|STBGDE03O|STBGLU01O|STBGCZ01|STBGSK01|STBGSK01|STBGHU05O|STBGROS1O| \
3010 STBGPLS02O|STBGLU01O|STBGHU03
3011 $DEF BGPSKA=STBGDE05O
3012 $DEF BGPSKO=$FLG(F,BGPDERF,$FLG(5,STBGCSB15,$FLG(6,STBGCSB15,STBGDBB23)))
3013 $DEF BGPSKT=STBGOPD4
3014 %BGPDEF(SK)
3015 %ENVDEF(SK_ENV,BGPSK,CATCS)
3016
3017 # Polen
3018 $DEF BGPPL1=STBGFT|STBGPLS02T|STBGDE03T|STBGLU01T|STBGLU01O|STBGHU01T|STBGROS1T|STBGDE07T|STBGHU03
3019 $DEF BGPPL2=STBGFT|STBGPLS02T|STBGDE03T|STBGLU01T|STBGLU01O|STBGHU01T|STBGROS1T|STBGDE07T|STBGHU03
3020 $DEF BGPPL3=STBGFT|STBGPLB13|STBGPLS02T|STBGDE03T|STBGHU01T|STBGROS1T|STBGNL02|STBGDE07T|STBGHU03
3021 $DEF BGPPL4=STBGFO|STBGPLB13|STBGPLS01|STBGPLS02O|STBGDE03O|STBGLU01O|STBGCZ01|STBGHU01O|STBGROS1O| \
3022 STBGNL02|STBGDE07O|STBGHU03
3023 $DEF BGPPL5=STBGFO|STBGPLB15|STBGPLS01|STBGPLS02O|STBGDE03O|STBGLU01O|STBGCZ01|STBGHU01O|STBGROS1O| \
3024 STBGNL02|STBGDE07O|STBGHU03
3025 $DEF BGPPL6=STBGFO|STBGPLB15|STBGPLS01|STBGPLS02O|STBGDE03O|STBGLU01O|STBGCZ01|STBGHU01O|STBGROS1O| \
3026 STBGNL02|STBGDE07O|STBGHU03
3027 $DEF BGPPLA=STBGDE05O
3028 $DEF BGPPLO=$FLG(F,BGPDERF,$FLG(5,STBGPLB15,$FLG(6,STBGPLB15,STBGPLB13)))
3029 $DEF BGPPLT=STBGOPD4
3030 %BGPDEF(PL)
3031 %ENVDEF(PL_ENV,BGPPL,CATPL)
3032
3033 # Rum nien
3034 $DEF BGPRO1=STBGFO|STBGROS1T|STBGROS2|STBGROB13|STBGSK01|STBGPLS02T|STBGHU05T
3035 $DEF BGPRO2=STBGFO|STBGROS1T|STBGROS2|STBGROB13|STBGSK01|STBGPLS02T|STBGHU05T
3036 $DEF BGPRO3=STBGFO|STBGROS1T|STBGROS2|STBGROB13|STBGSK01|STBGPLS02T|STBGHU05T
3037 $DEF BGPRO4=STBGFO|STBGROS1O|STBGROS2|STBGROB13|STBGSK01|STBGPLS02O|STBGHU05O
3038 $DEF BGPRO5=STBGFO|STBGROS1O|STBGROS2|STBGROB15|STBGSK01|STBGPLS02O|STBGHU05O
3039 $DEF BGPRO6=STBGFO|STBGROS1O|STBGROS2|STBGROB15|STBGSK01|STBGPLS02O|STBGHU05O
3040 $DEF BGPROA=STBGDE05O
3041 $DEF BGPROO=$FLG(5,STBGROB15,$FLG(6,STBGROB15,STBGROB13))
3042 $DEF BGPROT=STBGOPD4
3043 %BGPDEF(RO)
3044 %ENVDEF(RO_ENV,BGPRO,CATRO)
3045
3046 # Slowenien
3047 $DEF BGPSL1=STBGFO|STBGSLO01|STBGIT03|STBGIT06|STBGBGS1|STBGPLS02T
3048 $DEF BGPSL2=STBGFO|STBGSLO01|STBGIT03|STBGIT06|STBGBGS1|STBGPLS02T
3049 $DEF BGPSL3=STBGFO|STBGSLO01|STBGIT03|STBGIT05|STBGIT06|STBGBGS1|STBGPLS02T
3050 $DEF BGPSL4=STBGFO|STBGSLO01|STBGIT03|STBGIT05|STBGIT06|STBGBGS1|STBGPLS02O|STBGATS03O
3051 $DEF BGPSL5=STBGFO|STBGSLO01|STBGIT03|STBGIT05|STBGIT06|STBGBGS1|STBGPLS02O|STBGATS03O
3052 $DEF BGPSL6=STBGFO|STBGSLO01|STBGIT03|STBGIT05|STBGIT06|STBGBGS1|STBGPLS02O|STBGATS03O
3053 $DEF BGPSLA=STBGATS02
3054 $DEF BGPSLO=$FLG(5,STBGROB15,$FLG(6,STBGROB15,STBGROB13))
3055 $DEF BGPSLT=STBGOPD4
3056 %BGPDEF(SL)
3057 %ENVDEF(SLO_ENV,BGPSL,CATSL)
3058
3059 # Kroatien
3060 $DEF BGPHR1=STBGITW|STBGMON01|STBGCR01|STBGBGS1
3061 $DEF BGPHR2=STBGITW|STBGMON01|STBGCR01|STBGBGS1
3062 $DEF BGPHR3=STBGITW|STBGMON01|STBGCR01|STBGIT05|STBGBGS1
3063 $DEF BGPHR4=STBGITW|STBGMON01|STBGCR01|STBGIT05|STBGBGS1
3064 $DEF BGPHR5=STBGITW|STBGMON01|STBGCR01|STBGIT05|STBGBGS1
3065 $DEF BGPHR6=STBGITW|STBGMON01|STBGCR01|STBGIT05|STBGBGS1
3066 $DEF BGPHRA=STBGDE05O
3067 $DEF BGPHRO=STBGOPD4
3068 $DEF BGPHRT=$FLG(5,STBGROB15,$FLG(6,STBGROB15,STBGROB13))
3069 %BGPDEF(HR)
3070 %ENVDEF(HR_ENV,BGPHR,CATHR)
3071
3072 # Serbien
3073 $DEF BGPSB1=STBGFO|STBGMON01|STBGSB01|STBGBGS1
3074 $DEF BGPSB2=STBGFO|STBGMON01|STBGSB01|STBGBGS1
3075 $DEF BGPSB3=STBGFO|STBGMON01|STBGSB01|STBGBGS1
3076 $DEF BGPSB4=STBGFO|STBGMON01|STBGMON02|STBGSB01|STBGBGS1
3077 $DEF BGPSB5=STBGFO|STBGMON01|STBGMON02|STBGSB01|STBGBGS1
3078 $DEF BGPSB6=STBGFO|STBGMON01|STBGMON02|STBGSB01|STBGBGS1
3079 $DEF BGPSBA=STBGDE05O
3080 $DEF BGPSBO=$FLG(5,STBGROB15,$FLG(6,STBGROB15,STBGROB13))
3081 $DEF BGPSBT=STBGOPD4
3082 %BGPDEF(SB)
3083 %ENVDEF(YU_ENV,BGPSB,CATYU)
3084
3085 # Montenegro
3086 $DEF BGPMO1=STBGITW|STBGMON01|STBGBGS1
3087 $DEF BGPMO2=STBGITW|STBGMON01|STBGBGS1
3088 $DEF BGPMO3=STBGITW|STBGMON01|STBGBGS1
3089 $DEF BGPMO4=STBGITW|STBGMON01|STBGMON02|STBGBGS1
3090 $DEF BGPMO5=STBGITW|STBGMON01|STBGMON02|STBGBGS1
3091 $DEF BGPMO6=STBGITW|STBGMON01|STBGMON02|STBGBGS1
3092 $DEF BGPMOA=STBGDE05O
3093 $DEF BGPMOT=STBGOPD4
3094 $DEF BGPMOO=$FLG(5,STBGROB15,$FLG(6,STBGROB15,STBGROB13))
3095 %BGPDEF(MO)
3096
3097 # Bulgarien
3098 $DEF BGPBG1=STBGFO|STBGFRS3T|STBGROS1T
3099 $DEF BGPBG2=STBGFO|STBGFRS3T|STBGROS1T
3100 $DEF BGPBG3=STBGFO|STBGBGS2|STBGFRS3O|STBGROS1T
3101 $DEF BGPBG4=STBGFO|STBGBGS1|STBGBGS2|STBGFRS3O|STBGROS1O
3102 $DEF BGPBG5=STBGFO|STBGBGS1|STBGBGS2|STBGFRS3O|STBGROS1O
3103 $DEF BGPBG6=STBGFO|STBGBGS1|STBGBGS2|STBGFRS3O|STBGROS1O
3104 $DEF BGPBGA=STBGSW04
3105 $DEF BGPBGT=STBGOPD4
3106 $DEF BGPBGO=$FLG(5,STBGROB15,$FLG(6,STBGROB15,STBGROB13))
3107 %BGPDEF(BG)
3108 %ENVDEF(BG_ENV,BGPBG,CATBG)
3109
3110 # Griechenland
3111 $DEF BGPGR1=STBGITW|STBGGR01
3112 $DEF BGPGR2=STBGITW|STBGGR01
3113 $DEF BGPGR3=STBGITW|STBGGRB13|STBGGR01
3114 $DEF BGPGR4=STBGITW|STBGGRB13|STBGGR01
3115 $DEF BGPGR5=STBGITW|STBGGRB13|STBGGR01
3116 $DEF BGPGR6=STBGITW|STBGGRB13|STBGGR01
3117 $DEF BGPGRA=STBGSW04
3118 $DEF BGPGRT=STBGOPD4
3119 $DEF BGPGRO=STBGGRB13
3120 %BGPDEF(GR)
3121 %ENVDEF(GR_ENV,BGPGR,CATGR)
3122
3123 # T rkei
3124 $DEF BGPTR1=STBGITW|STBGTK01
3125 $DEF BGPTR2=STBGITW|STBGTK01
3126 $DEF BGPTR3=STBGITW|STBGTK01
3127 $DEF BGPTR4=STBGITW|STBGTK01
3128 $DEF BGPTR5=STBGITW|STBGTK01
3129 $DEF BGPTR6=STBGITW|STBGTK01
3130 $DEF BGPTRA=STBGDE05O
3131 $DEF BGPTRT=STBGOPD4
3132 $DEF BGPTRO=STBGGRB13
3133 %BGPDEF(TR)
3134 %ENVDEF(TR_ENV,BGPTR,CATTR)
3135
3136 # Russland, ex SU
3137 $DEF BGPSU1=STBGFN|STBGRUS1|STBGRUS3
3138 $DEF BGPSU2=STBGFN|STBGRUS1|STBGRUS2|STBGRUS3
3139 $DEF BGPSU3=STBGFN|STBGRUS1|STBGRUB13|STBGRUS2|STBGRUS3
3140 $DEF BGPSU4=STBGFN|STBGRUS1|STBGRUB13|STBGRUS2|STBGRUS3
3141 $DEF BGPSU5=STBGFN|STBGRUS1|STBGRUB15|STBGRUS2|STBGRUS3
3142 $DEF BGPSU6=STBGFN|STBGRUS1|STBGRUB15|STBGRUS2|STBGRUS3
3143 $DEF BGPSUA=STBGATS02
3144 $DEF BGPSUT=STBGOPD4
3145 $DEF BGPSUO=$FLG(5,STBGRUB15,$FLG(6,STBGRUB15,STBGRUB13))
3146 %BGPDEF(SU)
3147 %ENVDEF(SU_ENV,BGPSU,CATSU)
3148
3149 # USA-Nordamerika
3150 $DEF BGPUS1=3:STBGFN|2:STBGUS0(2|3|4)|STBGDE01O
3151 $DEF BGPUS2=3:STBGFN|2:STBGUS0(2|3|4|7)|STBGDE01O
3152 $DEF BGPUS3=3:STBGFN|2:STBGUS0(2|3|4|7)|STBGDE01O
3153 $DEF BGPUS4=3:STBGFN|3:STBGUS0(2|3|4|6|7|8)|STBGDE01O
3154 $DEF BGPUS5=3:STBGFN|3:STBGUS0(1|2|3|4|5|6|7|8)|STBGDE01O
3155 $DEF BGPUS6=3:STBGFN|3:STBGUS0(1|2|3|4|5|6|7|8)|STBGDE01O
3156 $DEF BGPUSA=(STBGATS01|STBGATS02)
3157 $DEF BGPUST=STBGOPD4
3158 $DEF BGPUSO=STBGUS01
3159 %BGPDEF(US)
3160 %ENVDEF(US_ENV,BGPUS,CATUS)
3161
3162 # Strecke Japan
3163 $DEF BGPJP1=STBGFN|STBGJP02
3164 $DEF BGPJP2=STBGFN|STBGJP02
3165 $DEF BGPJP3=STBGFN|STBGJP02
3166 $DEF BGPJP4=STBGFN|STBGJP02 &IF(BGUP<130,|STBGJP03)
3167 $DEF BGPJP5=STBGFN|STBGJP02 &IF(BGUP<130,|STBGJP03)|STBGJP05A &IF(BGUP>120,|STBGJP05B)|STBGJP05C| \
3168 STBGJPST05
3169 $DEF BGPJP6=STBGFN|STBGJP02 &IF(BGUP<130,|STBGJP03)|STBGJP05A|STBGJPST05
3170 $DEF BGPJPA=STBGATS02
3171 $DEF BGPJPT=STBGOPJ
3172 $DEF BGPJPO=STBGJPST05
3173 %BGPDEF(JP)
3174 %ENVDEF(J_ENV,BGPJP,CATJP)
3175
3176 # Strecke Australien
3177 $DEF BGPAU1=STBGAUS1|STBGAUS2|STBGAUS4
3178 $DEF BGPAU2=STBGAUS1|STBGAUS2|STBGAUS4
3179 $DEF BGPAU3=STBGAUS1|STBGAUS2|STBGAUS4
3180 $DEF BGPAU4=STBGAUS1|STBGAUSB14|STBGAUS3|STBGAUS2|STBGAUS4
3181 $DEF BGPAU5=STBGAUS1|STBGAUSB14|STBGAUS3|STBGAUS2|STBGAUS4
3182 $DEF BGPAU6=STBGAUS1|STBGAUSB14|STBGAUS3|STBGAUS2|STBGAUS4
3183 $DEF BGPAUA=STBGDE05O
3184 $DEF BGPAUT=STBGOPD4
3185 $DEF BGPAUO=STBGAUSB14
3186 %BGPDEF(AU)
3187 %ENVDEF(AUS_ENV,BGPAU,CATAU)
3188
3189 # Naher Osten
3190 $DEF BGPNE1=STBGAFS1|STBGNE01|STBGNE02|STBGNE03
3191 $DEF BGPNE2=STBGAFS1|STBGNE01|STBGNE02|STBGNE03
3192 $DEF BGPNE3=STBGAFS1|STBGNE01|STBGNE02|STBGNE03
3193 $DEF BGPNE4=STBGAFS1|STBGNE01|STBGNE02|STBGNE03
3194 $DEF BGPNE5=STBGAFS1|STBGNE01|STBGNE02|STBGNE03
3195 $DEF BGPNE6=STBGAFS1|STBGNE01|STBGNE02|STBGNE03
3196 $DEF BGPNEA=STBGDE05O
3197 $DEF BGPNET=STBGOPD4
3198 $DEF BGPNEO=STBGNE01
3199 %BGPDEF(NE)
3200 %ENVDEF(NE_ENV,BGPNE,CATOTH)
3201
3202 # Strecke Afrika
3203 $DEF BGPAF1=STBGAFS1|STBGNE03|STBGNE01|STBGAFS3|STBGAFS4
3204 $DEF BGPAF2=STBGAFS1|STBGNE03|STBGNE01|STBGAFS3|STBGAFS4
3205 $DEF BGPAF3=STBGAFS1|STBGNE03|STBGNE01|STBGAFS3|STBGAFS4
3206 $DEF BGPAF4=STBGAFS1|STBGNE03|STBGNE01|STBGAFS2|STBGAFS3|STBGAFS4
3207 $DEF BGPAF5=STBGAFS1|STBGNE03|STBGNE01|STBGAFS2|STBGAFS3|STBGAFS4
3208 $DEF BGPAF6=STBGAFS1|STBGNE03|STBGNE01|STBGAFS2|STBGAFS3|STBGAFS4
3209 $DEF BGPAFA=STBGDE05O
3210 $DEF BGPAFT=STBGOPD4
3211 $DEF BGPAFO=STBGAFS1
3212 %BGPDEF(AF)
3213 %ENVDEF(AF_ENV,BGPAF,CATOTH)
3214
3215 # Asien
3216 $DEF BGPAS1=STBGAUS1|STBGIN01|STBGIN02
3217 $DEF BGPAS2=STBGAUS1|STBGIN01|STBGIN02
3218 $DEF BGPAS3=STBGAUS1|STBGIN01|STBGIN02
3219 $DEF BGPAS4=STBGAUS1|STBGIN01|STBGIN02
3220 $DEF BGPAS5=STBGAUS1|STBGIN01|STBGIN02
3221 $DEF BGPAS6=STBGAUS1|STBGIN01|STBGIN02
3222 $DEF BGPASA=STBGATS02
3223 $DEF BGPAST=STBGOPJ
3224 $DEF BGPASO=STBGJPST05
3225 %BGPDEF(AS)
3226 %ENVDEF(AS_ENV,BGPAS,CATOTH)
3227
3228 # China
3229 $DEF BGPCN1=STBGFN|STBGJP02|STBGCN01|STBGCN02
3230 $DEF BGPCN2=STBGFN|STBGJP02|STBGCN01|STBGCN02
3231 $DEF BGPCN3=STBGFN|STBGJP02|STBGCN01|STBGCN02
3232 $DEF BGPCN4=STBGFN|STBGJP02|STBGCN01|STBGCN02
3233 $DEF BGPCN5=STBGFN|STBGJP02|STBGCN01|STBGCN02
3234 $DEF BGPCN6=STBGFN|STBGJP02|STBGCN01|STBGCN02
3235 $DEF BGPCNA=STBGATS02
3236 $DEF BGPCNT=STBGOPJ
3237 $DEF BGPCNO=STBGJPST05
3238 %BGPDEF(CN)
3239 %ENVDEF(CN_ENV,BGPCN,CATCN)
3240
3241 # India
3242 # ToDo
3243 %ENVDEF(IND_ENV,BGPAS,CATOTH)
3244
3245 # Südamerika
3246 $DEF BGPSA1=STBGAUS1|STBGSAS1|STBGSAS2
3247 $DEF BGPSA2=STBGAUS1|STBGSAS1|STBGSAS2
3248 $DEF BGPSA3=STBGAUS1|STBGSAS1|STBGSAS2
3249 $DEF BGPSA4=STBGAUS1|STBGSAS1|STBGSAS2
3250 $DEF BGPSA5=STBGAUS1|STBGSAS1|STBGSAS2
3251 $DEF BGPSA6=STBGAUS1|STBGSAS1|STBGSAS2
3252 $DEF BGPSAA=STBGATS02
3253 $DEF BGPSAT=STBGOPD4
3254 $DEF BGPSAO=STBGSAS2
3255 $DEF BGPSAN=STBGNIGHT
3256 %BGPDEF(SA)
3257 %ENVDEF(SA_ENV,BGPSA,CATSA)
3258
3259 %ENVDEF(OTH_ENV,BGPHU,CATHU)
3260 #-----------------------------------------------------------------------------------------
3261 # Kombination Hintergrund + Weg für Citytraffic
3262 #-----------------------------------------------------------------------------------------
3263 # Hintergrund in Groups
3264
3265 # Verschiedene Verkehrsmittel, unterschiedlicher BG und Way
3266 $DEF CBG=&IF(BGTYPE>=1,[$1#=&IF(BGTYPE>=3,$2),$3])
3267
3268 # "normerle" MM-Strecke für Citytraffic - Kombination mit CBG
3269 $DEF CWX=&IF(BGTYPE>=1,$1)
3270
3271 # Verschiedene Verkehrsmittel, einheitlicher BG und unterschiedlicher Way
3272 $DEF EWX=&IF(BGTYPE>=1,[$1#=$2])
3273 $DEF EBG=&IF(BGTYPE>=3,$1)
3274
3275 # Verschiedene Verkehrsmittel, einheitlicher BG und einheitlicher Way mit Flags
3276 %*DEF(ETA(B,T)=ENV=&IF(BGTYPE>=3,%B),&IF(BGTYPE>=1,[WT=%T][WA=ENV_WAYA]))
3277
3278 # Weg + Hintergrund für ein Verkehrsmittel
3279 %*DEF(GBG(B,C)=ENV=[BG#=@@] &IF(BGTYPE>=1,(&IF(BGTYPE>=3,%B),%C));)
3280
3281 #-------------------------------------------------------------------
3282 #Hintergrund in Einzelzeilen
3283 # Weg + Hintergrund für ein Verkehrsmittel
3284 %*DEF(LBG(B,C)=AP=[BG=@@] &IF(BGTYPE>=1,(&IF(BGTYPE>=3,%B),%C));)
3285
3286 # Weg + Hintergrund BUS
3287 %*DEF(ABG(B)=%LBG(%B,ENV_WAYA))
3288
3289 # ) ] }
