//Scenariusz MPE 14109:


//Dźwięki Radiotelefonu kanał R2:
node -1 0 	s_r2_brzesk 				sound 		-62600 	8 	-2070 		radiotelefon/tomaszewo/41220_brzesk.flac endsound
event 		r2_brzesk 					sound 5 	s_r2_brzesk 1 2 endevent 				//R2


event onstart_losuj_warianty multiple 0 none 	//losowanie wariantów dla zdarzeń losowych
losujkaletnik_wjazd
losujtom_wjazd
losujkomnice_przebieg
losujtlk_witnica
losuj_ryp
losujorz_sm42
losuj_leosin_wjazdy
endevent

event onstart_kaletnik multiple 5 none
kal_a1_s4
kal_a_s13a kal_zwr11- kal_zwr26+ kal_zwr23- 		//RegioExpres
ko_c_s2 				//eszelon z Komnic wyjazd
kal_E_s13 kal_zwr50- kal_zwr52- kal_zwr53+			//wjazd dla towara z odstawki z tyłu
kal_tlk_wyjazd
endevent
 
//Wyjazd dla TLK:
event kal_tlk_wyjazd multiple 120 none
kal_j1_s10a kal_zwr7- kal_zwr6- 
st45_zpg
mw_d_s2 emi_B_s2 emi_L_s2
randomdelay 60
endevent

event st45_zpg multiple 0 none
pg_6_s2 pg_zwr3- pg_zwr4- pg_zwr2- 
kal_C1_s4 kal_C_s13 kal_c1w20 kal_toc1w19
kal_zwr57- 
endevent

//Tomaszewo: wjazd na tor zasadniczy lub dodatkowy:
node -1 0 memtom_wjazd memcell 1.0 1.0 1.0 * 0 0 none endmemcell
 event uptom_wjazd updatevalues 0.0 memtom_wjazd * 1 1 endevent
 event losujtom_wjazd multiple 0.0 none uptom_wjazd condition propability 0.15 endevent
 event tom_lip125:event1 multiple 0.0 none mul1tom_wjazd mul2tom_wjazd tom_eszel endevent
 event mul1tom_wjazd multiple 0.0 memtom_wjazd tom_a_s5 condition memcompare * 0 0 endevent
 event mul2tom_wjazd multiple 0.0 memtom_wjazd tom_a_s13 tom_zwr5- tom_zwr28- tom_zwr27- tom_sm42  condition memcompare * 1 1 endevent
 
 event tom_sm42 multiple 60 none
 tom_tm12_ms2 tom_zwr12- tom_zwr11- 
 tom_sm42_stop
 randomdelay 30
 endevent
 
 event tom_sm42_stop trackvel 0 tom073 0 endevent 	//0 kmh aby zatrzymać sm42
 
 //Eszelon ECCO: przelot lub wjazd na bok:
 node -1 0 memtom_eszel memcell 1.0 1.0 1.0 * 0 0 none endmemcell
 event uptom_eszel updatevalues 0.0 memtom_eszel * 1 1 endevent
 event losujtom_eszel multiple 0.0 none uptom_eszel condition propability 0.35 endevent
 event tom_eszel multiple 0.0 none mul1tom_eszel mul2tom_eszel czerepy_D_s2 endevent
 event mul1tom_eszel multiple 0.0 memtom_eszel eszel_prosto condition memcompare * 0 0 endevent
 event mul2tom_eszel multiple 0.0 memtom_eszel eszel_bok condition memcompare * 1 1 endevent
 
 event eszel_bok multiple 0 none
 tom_X_s13 tom_zwr20- tom_zwr22- 
 endevent
 
  event eszel_prosto multiple 0 none
 tom_X_s2 tom_H4_s2 
 emi_M_s13 emi_zwr5-  //wjazd do Emilianowa dla Eszelona
 endevent
 
 
 //Wyjazd na prosto:
 event tom069:event2 multiple 35 none
 tom_h_s2 czerepy_A_s2
 sbl_ko_wi 
  sm42_z_komnic			//sm42 z komnic do witnicy
 randomdelay 15
endevent

event sm42_z_komnic multiple 0 none
ko_g_s10 ko_G_w24 ko_zwr17-
randomdelay 60
endevent
 
//Wyjazd z boku:
event tom010:event2 multiple 45 none
tom_g_s10 czerepy_A_s2 
sm42_z_komnic //sm42 z komnic do witnicy
sbl_ko_wi
randomdelay 15
endevent

//Komnice: dwa warianty przebiegu przez stację:
node -1 0 memkomnice_przebieg memcell 1.0 1.0 1.0 * 0 0 none endmemcell
 event upkomnice_przebieg updatevalues 0.0 memkomnice_przebieg * 1 1 endevent
 event losujkomnice_przebieg multiple 0.0 none upkomnice_przebieg condition propability 0.5 endevent
 event ko395:event2 multiple 0.0 none mul1komnice_przebieg mul2komnice_przebieg endevent
 event mul1komnice_przebieg multiple 0.0 memkomnice_przebieg kom_vmax condition memcompare * 0 0 endevent
 event mul2komnice_przebieg multiple 0.0 memkomnice_przebieg kom_v40 condition memcompare * 1 1 endevent
 
 event kom_vmax multiple 0 none
 ko_a_s4 ko_j_s10 ko_j_w24 ko_zwr15- ko_zwr16- ko_zwr17+
  wi_b_s4 wi_c_s13 wi_5- wi_7- 				//sm42 na bok w Witnicy
 endevent
 
 event kom_v40 multiple 0 none
 ko_a_s10 ko_zwr1- ko_zwr2- ko_h_s2 ko_h_w24 ko_zwr17+
 wi_b_s4 wi_c_s13 wi_5- wi_7- 				//sm42 na bok w Witnicy
 endevent
 
 //SM42 w stacji, przelot dla TLK:
 event wi015:event2 multiple 0 none //wjazdowy - po zwolnieniu odstępu w stacji
 wi_b_s5
 randomdelay 10
 endevent
 
 event wi023:event2 multiple 15 none //+ drogowskaz i wyjazd
 tlk_witnica
 sad_A_s2 grab_A_s2 grab_F_s2 lipka_a_s2 	//przeloty Sadkowice, Grabina, Lipka
 endevent
 
 //2 warianty przejazdu przez Witnicę:
 node -1 0 memtlk_witnica memcell 1.0 1.0 1.0 * 0 0 none endmemcell
 event uptlk_witnica updatevalues 0.0 memtlk_witnica * 1 1 endevent
 event losujtlk_witnica multiple 0.0 none uptlk_witnica condition propability 0.5 endevent
 event tlk_witnica multiple 0.0 none mul1tlk_witnica mul2tlk_witnica endevent
 event mul1tlk_witnica multiple 0.0 memtlk_witnica wit_vmax condition memcompare * 0 0 endevent
 event mul2tlk_witnica multiple 0.0 memtlk_witnica wit_v40 condition memcompare * 1 1 endevent
 
 event wit_vmax multiple 25 none
 wi_c_s4 wi_7+ wi_5+ wi_N_s10 wi_17- wi_18-
 endevent
 
  event wit_v40 multiple 25 none
 wi_c_s10 wi_3- wi_4- wi_7+ wi_5+ wi_M_s2
 endevent
 
 event wi339:event1 multiple 10 none 	//EP08 z Grabiny do Komnic
 grab_E_s10a grab_8- grab_6- sad_d_s2 
 wi_R_s2 wi_f_s2
 wi_17+ wi_18+ wi_3+ wi_4+ wi_7+ wi_5+
 sbl_wi_ko 
 ko_R_s5 ko_zwr16+ ko_zwr15+
 randomdelay 30
 endevent
 
 event grab283:event2 multiple 0 none	//SM42 z Lipki do Witnicy
 lipka_x_s10
 lipka_zwr4- lipka_zwr3- grab_K_s2 grab_D_s2 grab_8+ grab_6+ sad_D_s2
 up_sm42_1
condition propability 0.6
endevent

node -1 0 	sm42_lipka 	memcell 0 0 0 					* 0 0 none endmemcell
event 		up_sm42_1 	updatevalues 0.0 sm42_lipka 	* 1 1 endevent
event 		up_sm42_2 	updatevalues 5.0 sm42_lipka 	* 2 2 endevent

event wi236:event1 multiple 60 sm42_lipka //wjazd na bok w Witnicy dla SM42 z Lipki poda się tylko jeśli SM42 wyjedzie z Lipki
wi_R_s13 wi_16- wi_15- wi_12- wi_10- 
up_sm42_2
condition memcompare * 1 1 
endevent
 
 
 
 
 
 
 
 //Rypinek:
 
//3 warianty przejazdu przez Rypinek
node -1 0 memryp memcell 0.0 0.0 0.0 * 0 0 none endmemcell
//kod odpowiadający za zdarzenie nr:1
event upryp1 updatevalues 0.0 Memryp * 0 1 endevent
event mulryp1 multiple 1 none upryp1 condition propability 1 endevent
event warryp1 multiple 0.0 memryp ryp1 condition memcompare * 0 1 endevent
//kod odpowiadający za zdarzenie nr:2
event upryp2 updatevalues 0.0 Memryp * 0 2 endevent
event mulryp2 multiple 2 none upryp2 condition propability 0.5 endevent
event warryp2 multiple 0.0 memryp ryp2 condition memcompare * 0 2 endevent
//kod odpowiadający za zdarzenie nr:3
event upryp3 updatevalues 0.0 Memryp * 0 3 endevent
event mulryp3 multiple 3 none upryp3 condition propability 0.33 endevent
event warryp3 multiple 0.0 memryp ryp3 condition memcompare * 0 3 endevent
//kod główny:
event losuj_ryp 				multiple 0.0 none  mulryp1  mulryp2  mulryp3  endevent
event lipka632:event2  			multiple 0.0 none  warryp1  warryp2  warryp3	endevent //wywołanie wjazdu do Rypinka

//---1)
event ryp1 multiple 0 none				//prosto i na tor 1 w Rypinku
brzesk_A_s2 ryp_a_s5 
ryp_sm42_tor3
randomdelay 90
endevent

//---2)
event ryp2 multiple 0 none				//po lewym do Rypinka i na tor nr 1 w Rypinku
brzesk_A_s10a brzesk_a_w24 brzesk_zwr1- brzesk_zwr2- ryp_b_s13 ryp_zwr3- ryp_zwr4- 
ryp_sm42_tor3
randomdelay 90
endevent

//---3)
event ryp3 multiple 0 none				//po lewym do Rypinka i na tor nr 4 w Rypinku
brzesk_A_s10a brzesk_a_w24 brzesk_zwr1- brzesk_zwr2- ryp_b_s13 ryp_zwr12- ryp_zwr16-
ryp_sm42_tor1
randomdelay 90
endevent

event ryp_sm42_tor3 multiple 120 none
ryp_tm2_ms2 ryp_wk1o ryp_zwr6- ryp_zwr13- 
kz_d_s2 //Laude
randomdelay 30
endevent

event ryp_sm42_tor1 multiple 120 none
ryp_tm2_ms2 ryp_zwr102- ryp_zwr101- 
kz_d_s2 //Laude
sm42_stop
randomdelay 30
endevent

event sm42_stop trackvel 0 	ryp445 0 endevent 	//0 kmh aby zatrzymać sm42

//Rypinek: wyjazdy
event ryp639:event2 multiple 30 none
ryp_m_s2
randomdelay 30
endevent

event ryp471:event1 multiple 30 none
ryp_O_s10 ryp_zwr28- ryp_zwr27- ryp_zwr30- ryp_zwr31- 
randomdelay 30
endevent

//Kontenery LAUDE z Kaczyc do Rypinka na bok:
event ryp1053:event2 multiple 15 none //wjazd na bok po wyjeździe TLK
ryp_r_s13 ryp_zwr33- ryp_zwr32- ryp_zwr28+ ryp_zwr27+ ryp_zwr30+ ryp_zwr31+ ryp_zwr29- ryp_zwr34+ ryp_zwr25- ryp_zwr26+
kz_a1_s2 kz_a_s2 kz_j_s2
zamknij_orzechowomiasto orz_sm42
endevent

//Kaczyce: losowe wygaśnięcie drogowskazu Kz_A: 5%
event m_kol069:event2 multiple 0 none
kz_a_s1
kz_a_zastepczy
condition propability 0.05
endevent

event kz_a_zastepczy multiple 30 none
kz_a_sz1 
randomdelay 20
endevent

//Orzechowo:
event tor_kz018:event2 multiple 5 none
og_x_s13a o_zwr28+ o_zwr27- og_f_s2 om_p_s2 om_d_s2 kz_r_s5 zamknij_orzechowo zamknij_orzechowomiasto
endevent

event 2tor_o:event2 multiple 10 none
om_A_s2 om_h_s2 
randomdelay 65
endevent



//Orz.: 
node -1 0 memorz_sm42 memcell 1.0 1.0 1.0 * 0 0 none endmemcell
 event uporz_sm42 updatevalues 0.0 memorz_sm42 * 1 1 endevent
 event losujorz_sm42 multiple 0.0 none uporz_sm42 condition propability 0.15 endevent
 event orz_sm42 multiple 15 none mul1orz_sm42 mul2orz_sm42 endevent
 event mul1orz_sm42 multiple 0.0 memorz_sm42 orz_prosto condition memcompare * 0 0 endevent
 event mul2orz_sm42 multiple 0.0 memorz_sm42 orz_bok condition memcompare * 1 1 endevent
 
 //TLK na prosto
event orz_prosto multiple 0 none
o_tm17_ms2 o_zwr18- o_tm18_ms2 o_zwr21- o_zwr39- o_zwr20- 
endevent

event 2tor_og404:event1 multiple 15 none //sm42 z boku, wjazd TLK na prosto
og_b_s5 zamknij_orzechowo orz_b_os
randomdelay 30
endevent

event orz_b_os multiple 2 none 2939_os3 endevent

//TLK na bok:
event orz_bok multiple 0 none
o_tm17_ms2 o_tm18_ms2 endevent

event 2tor_og208:event1 multiple 15 none //SM42 na głównym, TLK na bok
zamknij_orzechowo
og_b_s13a o_zwr7- o_zwr11+ o_zwr14-
endevent

//Wyjazdy z OG w zależności od toru gdzie wjedzie TLK:
event 2tor_og201:event2 multiple 30 none
og_r_s2 o_zwr18+ o_zwr27+ o_zwr28-
bk_b_s2 bk_i_s2				//Borkowice - przelot
randomdelay 15
endevent

event 2tor_og338:event1 multiple 30 none
og_p_s10a o_zwr40- o_zwr21+ o_zwr18- o_zwr27+ o_zwr28-
bk_b_s2 bk_i_s2				//Borkowice - przelot
randomdelay 15
endevent

//Korty - IC z boku, TLK na prosto
event 2tor_nz107:event2 multiple 0 none
ktportal_b_s2 kt_portal_zwr2- kt_portal_zwr1- kt_c_s2 kt_zwr17+ LeB_b1_s4 LeA_W1_s13 leo_zwr101- leo_zwr102- //IC z boku i do Leosina
kt_B_s2 //dla TLK
eic40_zleosina
endevent

event eic40_zleosina multiple 35 none
kt_D_s2 bk_m_s13 bk_zwr11- bk_zwr10- LeB_h2_s2 LeA_M_s2 //EIC40 z Leosina do Borkowic przez Korty
randomdelay 60
endevent

event leosin329:event2 multiple 120 none LeB_g_s10 leo_zwr23- leo_zwr16- endevent //towarek za EIC40
event 2tor_bk099:event1 multiple 0 none kt_d_s2 bk_m_s5 bk_zwr11+ bk_zwr10+ endevent //wjazd do Bk dla towarka

event 2tor_korty222:event2 multiple 15 none //EU07 z IC z kortów wyjechała - > towarek po podmiejskim do Kortów
LeB_K2_s2 kt_f_s6 kt_zwr15- kt_zwr16- ktportal_c_s2 kt_portal_zwr1+ 
randomdelay 60
endevent



//Leosin: 3 warianty wjazdu do stacji
node -1 0 memleosin_wjazdy memcell 0.0 0.0 0.0 * 0 0 none endmemcell
//kod odpowiadający za zdarzenie nr:1
event upleosin_wjazdy1 updatevalues 0.0 Memleosin_wjazdy * 0 1 endevent
event mulleosin_wjazdy1 multiple 1 none upleosin_wjazdy1 condition propability 1 endevent
event warleosin_wjazdy1 multiple 0.0 memleosin_wjazdy leosin_wjazdy1 condition memcompare * 0 1 endevent
//kod odpowiadający za zdarzenie nr:2
event upleosin_wjazdy2 updatevalues 0.0 Memleosin_wjazdy * 0 2 endevent
event mulleosin_wjazdy2 multiple 2 none upleosin_wjazdy2 condition propability 0.5 endevent
event warleosin_wjazdy2 multiple 0.0 memleosin_wjazdy leosin_wjazdy2 condition memcompare * 0 2 endevent
//kod odpowiadający za zdarzenie nr:3
event upleosin_wjazdy3 updatevalues 0.0 Memleosin_wjazdy * 0 3 endevent
event mulleosin_wjazdy3 multiple 3 none upleosin_wjazdy3 condition propability 0.33 endevent
event warleosin_wjazdy3 multiple 0.0 memleosin_wjazdy leosin_wjazdy3 condition memcompare * 0 3 endevent
//kod główny:
event losuj_leosin_wjazdy 			multiple 0.0  none 		mulleosin_wjazdy1  mulleosin_wjazdy2  mulleosin_wjazdy3  endevent
event 2tor_leosin347:event2 		multiple 30   none		warleosin_wjazdy1  warleosin_wjazdy2  warleosin_wjazdy3  endevent

//Leosin: wariant 1: wjazd na prosto
event leosin_wjazdy1 multiple 0 none
LeB_a1_s3 LeA_T1_s5 
endevent

//Wariant 2: wjazd na bok 100 km/h
event leosin_wjazdy2 multiple 0 none
LeB_a1_s7 leo_zwr12- leo_zwr13- LeA_W2_s5  
endevent

//Wariant 3: wjazd na bok 40 km/h przez Grupę Towarową
event leosin_wjazdy3 multiple 0 none
LeB_a1_s12 leo_zwr17- leo_zwr20-  
LeA_U1_s13 leo_zwr34- leo_zwr35- 
endevent

//Wjazd pociągu z "terespola" i ST43 CTL z Boguszyc
event leosin005:event2 multiple 0 none
lec_d_s2 LeA_B_s5 
lec_J_s2 LeA_A_s4 LeA_L_s13 leo_zwr135- leo_zwr136- leo_zwr28- leo_zwr30+ leo_zwr31-
endevent

//DALEJ: do Leosina Postojowego
//=====================================================================================
//Przypisanie RJ: dla 14109 > 446025
event tt_446025 			putvalues 60  none 1.0 1.0 1.0 	Timetable:tomaszewo/scenariusze/rj_pwe446025 				-0.1	 	0 endevent
event tt_446025_plus5 		putvalues 60  none 1.0 1.0 1.0 	Timetable:tomaszewo/scenariusze/rj_pwe446025 				-0.1	 	5 endevent

event leosin701:event1 	multiple 0 none tt_446025_plus5 up_14109_wjechal wyjazdy_pwe_leosin1 up_14109_dalek	endevent //dla 14109
event leosin702:event1 	multiple 0 none tt_446025_plus5 up_14109_wjechal wyjazdy_pwe_leosin1 up_14109_podmi	endevent
event leosin759:event1 	multiple 0 none tt_446025 up_ai_ic_wjechal wyjazdy_pwe_leosin1 	endevent //dla IC


//WYJAZDY dla pociągów PWE: - tylko wtedy gdy oba się zameldują w Leosinie
//Komórka:
node -1 0 pwe_leosin memcell 0 0 0 								x 0 0 none endmemcell

//Update komórki:
event up_14109_wjechal 	updatevalues 0.0 pwe_leosin 				* * 1 endevent
event up_ai_ic_wjechal 	updatevalues 0.0 pwe_leosin 				* 1 * endevent

event up_obydwa_leo 	updatevalues 2.0 pwe_leosin 				* 2 2 endevent


event wyjazdy_pwe_leosin1 multiple 2 pwe_leosin //wykona sie tylko gdy obydwa 14109 i IC wjadą w perony
wyjazdy_pwe_leosin2 
up_obydwa_leo
condition memcompare x 1 1 endevent

event wyjazdy_pwe_leosin2 multiple 120 none
//wyjazd dla PWE IC spod semafora F:
LeA_F_s10 leo_zwr110- leo_zwr109+

LeosinPost_A_s13 lp_zwr1- lp_zwr2- lp_zwr3- lp_zwr4+ lp_zwr5-

randomdelay 60
endevent

//IC zwolnił odstęp: wyjazd dla 14109pwe: + wjazdy do LP
event depo_109:event2 multiple 0 14109_leosin 
wyjazd_leo_14109 up_14109y_wyjechal //tylko raz
condition memcompare x * * endevent

//Komórka do zapamiętania toru wjazdowego dla 14109
node -1 0 14109_leosin memcell 0 0 0 									x 0 0 none endmemcell
event up_14109_dalek 		updatevalues 0.0 14109_leosin 				* * 1 endevent
event up_14109_podmi 		updatevalues 0.0 14109_leosin 				* 1 * endevent
event up_14109y_wyjechal 	updatevalues 2.0 14109_leosin 				y * * endevent

event wyjazd_leo_14109 multiple 20 none
14109_wyj_podm
14109_wyj_dalek
randomdelay 20
endevent

event 14109_wyj_podm 	multiple 0 14109_leosin //14109: wyjazd z peronu podmiejskiego
LeA_h_s13
leo_zwr110+ leo_zwr101+ leo_zwr102+
leo_zwr114+ leo_zwr111+ leo_zwr117- leo_zwr118-
condition memcompare * 1 * endevent

event 14109_wyj_dalek 	multiple 0 14109_leosin //14109: wyjazd z peronu dalekobieznego
LeA_I_s13
leo_zwr110+ leo_zwr101+ leo_zwr102+
leo_zwr112- leo_zwr113- leo_zwr117- leo_zwr118-
condition memcompare * * 1 endevent


//LP: Manewry w Leosinie Postojowym: wjazd obu pociągów, urwanie loka i manewr na szopę

node -1 0 	kom_postojowy 	memcell 0 0 0 									x 0 0 none endmemcell
event 		up_kompost1		updatevalues 2 kom_postojowy 					* * 1 endevent
event 		up_kompost2		updatevalues 2 kom_postojowy 					* * 2 endevent

//IC:
event leodepo112:event2 multiple 15 none
ic_manewr
14109_manewr
randomdelay 15 
endevent

event ic_manewr multiple 0 kom_postojowy
LeosinPost_z1_ms2 ld_zwr101- ld_zwr104- ld_zwr106+ ld_zwr105- ld_zwr1-
up_kompost1
condition memcompare * * 0 endevent

event 14109_manewr multiple 0 kom_postojowy
LeosinPost_z1_ms2 ld_zwr101- ld_zwr104- ld_zwr106+ ld_zwr105- ld_zwr1+ ld_zwr107-
up_kompost2
condition memcompare * * 1 endevent

event ld_161:event2 multiple 15 none //IC wjechał na grupę: wjazd dla 14109
LeosinPost_A_s13 lp_zwr1- lp_zwr2- lp_zwr3- lp_zwr4+ lp_zwr5-
lok_ic_manewrydalej1
randomdelay 15 
endevent

event lok_ic_manewrydalej1 multiple 120 none
lp_tm24_ms2 
ld_zwr116- ld_zwr115+ ld_zwr114- ld_zwr120+ ld_zwr118+ 

lp_tm62_ms2
ld_zwr126- ld_zwr127- ld_zwr137- ld_zwr138-
endevent

event ld366:event1 multiple 30 none
lp_tm25_ms2
ld_zwr115- ld_zwr114- ld_zwr120+ ld_zwr118+ 

lp_tm62_ms2
ld_zwr126- ld_zwr127- ld_zwr137- ld_zwr138+
endevent

/* --------------------------- koniec ---------------------------*/












