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