//Scenariusz EIE 4130: pospieszny z Leosina do Kaletnika.


//Dźwięki RadioTelefonu kanał R2:

/*Misja dodatkowa: 44802 osobowy*/:
event onstart_44802 multiple 130 none
zamknij_polesie zamknij_topola zamknij_korytrynek zamknij_kc
44808_korytowo1
randomdelay 30
endevent

node -1 0 memkrt_44802wjazd memcell 1.0 1.0 1.0 * 0 0 none endmemcell
 event upkrt_44802wjazd updatevalues 0.0 memkrt_44802wjazd * 1 1 endevent
 event losujkrt_44802wjazd multiple 0.0 none upkrt_44802wjazd condition propability 0.2 endevent
 event 44808_korytowo1 multiple 35 none mul1krt_44802wjazd mul2krt_44802wjazd kc_b_s2 randomdelay 30 endevent
 event mul1krt_44802wjazd multiple 0.0 memkrt_44802wjazd krt_bok condition memcompare * 0 0 endevent
 event mul2krt_44802wjazd multiple 0.0 memkrt_44802wjazd krt_prosto condition memcompare * 1 1 endevent
 
 event krt_bok 		multiple 0 none krt_X_s13 	krt_zwr101- krt_zwr17+ endevent
 event krt_prosto 	multiple 0 none krt_X_s5 	krt_zwr101+ endevent
 
//Wyjazd: w zaleznosci od toru wjazdowego
 event korytowo_196:event1 multiple 30 none
 krt_o_s2 krt_b1_s2 top_m_s5
randomdelay 30
endevent

event korytowo_187:event1 multiple 15 none
krt_r1_s12 krt_r_s10 krt_zwr15- krt_zwr16- krt_b1_s2 top_m_s5
randomdelay 30
endevent

event topola_130:event1 multiple 15 none
top_e_s2 top_B1_s2 pol_m_s5 
randomdelay 30
endevent

event polesie_136:event2 multiple 15 none
pol_D_s2
randomdelay 30
endevent

event lp_44802wjazd multiple 60 none
LeosinPost_D_s2 lp_zwr3+ lp_zwr4- lp_zwr1+ lp_zwr2+ 
LeA_D_s13 leo_zwr108- leo_zwr109- leo_zwr110- 
randomdelay 30
endevent

/*KONIEC misja 44802*/
//Eventy PutValues uniwersalne do wywołania:
event _pv_rp1 				PutValues 2 none 	0 0 0	Warning_Signal 			1 	1 endevent
event _pv_zmienkierunek		PutValues 0 none 	0 0 0 	Change_Direction 		0 	0 endevent
event _pv_podczep			PutValues 0 none 	0 0 0 	Shunt 					-3 	-99 endevent




//=====================================================================================
//Przypisanie RJ:
event tt_446010 	putvalues 15 none 1.0 1.0 1.0 	Timetable:tomaszewo/scenariusze/rj_pwe446010 			20 		0 endevent
event tt_4130 		putvalues 0  none 1.0 1.0 1.0 	Timetable:tomaszewo/scenariusze/rj_eie4130 				0.1	 	0 endevent

event leodepo114:event1 	multiple 0 none tt_446010 	endevent			//przy podjechaniu pod wyjazd mamy nadany RJ 446010

event leosin711:event1 		multiple 0 none tt_4130 lea_4130_wyjpodm		endevent			//przy wjeździe w peron mamy nadany RJ dla 4130
event leosin732:event1 		multiple 0 none tt_4130	lea_4130_wyjdalek		endevent


/*
1) parametr:
0.1 - aktywnie oczekuje pod W4 / semaforem i czeka na czas odjazdu
20 - od razu rusza z V20km/h po nadaniu RJ (stacja bez sem.)
dodatni - do przodu
ujemny - do tyłu

2) parametr:
przesunięcie RJ w minutach (można tego samego RJ użyć wielokrotnie w ciągu dnia)
*/


event onstart_losuj_warianty multiple 18 none 	//losowanie wariantów dla zdarzeń losowych
losujkrt_44802wjazd
losujlea_4130_wj
losuj4130_orz_wj
losujog_towar_przelot
losujkz_wyjazd
losujryp_wyjazd
losujtom_wyj
losujkal_wjazd
endevent


event onstart_man_leopostojowy multiple 45 none
lp_tm26_ms2 ld_zwr120- ld_zwr117- lp_tm63_ms2 ld_zwr137- 	//EP09 na żeberko
lp_tm48_ms2 lp_tm3_ms2										//Tarcze dla EP08	

randomdelay 30
endevent

event ld362:event2 multiple 30 none //manewr dla EP08
depo_3_ms2 ld_zwr137+ ld_zwr127- ld_zwr126- ld_zwr123- ld_zwr125- 
randomdelay 30
endevent

 event ld_102:event1 multiple 5 memep08_naskladbug     //za Z1, tylko 1 raz
 _pv_zmienkierunek
 ep08_droga_nasklad
 upep08_nasklad  
 condition memcompare * 0 0 endevent

 
node -1 0 memep08_naskladbug memcell 1.0 1.0 1.0 * 0 0 none endmemcell
 event upep08_nasklad updatevalues 0.0 memep08_naskladbug * 1 1 endevent


event ep08_droga_nasklad multiple 20 none //EP08 na skład
LeosinPost_z1_ms2 ld_zwr101- ld_zwr104- ld_zwr108- ld_zwr109+ ld_zwr106- 

randomdelay 30
endevent

event ld036:event2 multiple 5 none //na torze ze składem 4130: wjazd dla 446007 oraz polecenie podczepienia
LeA_G_s2 LeosinPost_A_s13 lp_zwr1- lp_zwr2- lp_zwr3- lp_zwr4+ lp_zwr5-

_pv_podczep
endevent

event leodepo_101:event2 multiple 70 none //manewr 446007
LeosinPost_z1_ms2 ld_zwr101- ld_zwr104- ld_zwr1- ld_zwr105- ld_zwr106+ 
endevent

//Manewr dla EP08 ze składem:
event ld_tor52:event1 multiple 30 none
lp_tm8_ms2 ld_zwr108- ld_zwr109+ ld_zwr106- ld_zwr104+ ld_zwr101+ lp_zwr5+ 
lp_44802wjazd
pwe007_podajtm
randomdelay 30 
endevent

//tarcza dla 446007:
event pwe007_podajtm multiple 120 none
lp_tm24_ms2
ld_zwr116- ld_zwr115+ ld_zwr114- ld_zwr120+ ld_zwr117+ lp_tm62_ms2 ld_zwr123+ ld_zwr125+ ld_zwr126+ ld_zwr127+ 
endevent

//Nadanie RJ dla 446010: *PWE na 4130*
event ld_111:event1 multiple 0 none tt_446010 endevent


//Wyjazd dla 4130 z LP: wywołuje go 44802:
 event tor_141:event1 multiple 10 mem4130_LP_wyjazdbug        
 LeosinPost_F_s13 lp_zwr5+ lp_zwr4+ lp_zwr3- leo_towar_dekoracyjne1
 up4130_LP_wyjazd  condition memcompare * 0 0 endevent
node -1 0 mem4130_LP_wyjazdbug memcell 1.0 1.0 1.0 * 0 0 none endmemcell
 event up4130_LP_wyjazd updatevalues 0.0 mem4130_LP_wyjazdbug * 1 1 endevent
 
 //LEOSIN: wjazd 4130 na układ podmiejski lub dalekobieżny
 node -1 0 memlea_4130_wj memcell 1.0 1.0 1.0 * 0 0 none endmemcell
 event uplea_4130_wj updatevalues 0.0 memlea_4130_wj * 1 1 endevent
 event losujlea_4130_wj multiple 0.0 none uplea_4130_wj condition propability 0.5 endevent
 event leosin752:event1 multiple 0.0 none mul1lea_4130_wj mul2lea_4130_wj endevent		//wywołuje 44802 w Leosinie w peronie
 event mul1lea_4130_wj multiple 0.0 memlea_4130_wj 4130_lea_podm  condition memcompare * 0 0 endevent
 event mul2lea_4130_wj multiple 0.0 memlea_4130_wj 4130_lea_dalek condition memcompare * 1 1 endevent
 
 
 
 //============================================================ LEOSIN =============================================
event 4130_lea_podm multiple 15 none
LeA_D_s5 
leo_zwr108+ leo_zwr109+ leo_zwr110+ 
leo_towar_dekoracyjne2
randomdelay 30
endevent

event 4130_lea_dalek multiple 15 none
LeA_D_s13  
leo_zwr113- leo_zwr112- leo_zwr107- leo_zwr106- leo_zwr105+ leo_zwr104- 
leo_towar_dekoracyjne2
randomdelay 30
endevent


event lea_4130_wyjpodm multiple 180 none
LeB_K2_s6 lea_o_s3
leo_zwr13- leo_zwr12- leo_zwr11- leo_zwr10-

LeA_R_ms2 le_tm10_ms2 leo_zwr49- leo_zwr47+ leo_zwr50-		//manewr dla osobowego w Leosinie

randomdelay 45
endevent

event lea_4130_wyjdalek multiple 180 none
LeA_M_s5 lea_4130_d_semdalej

LeA_R_ms2 le_tm10_ms2 leo_zwr49- leo_zwr47+ leo_zwr50-		//manewr dla osobowego w Leosinie

randomdelay 45
endevent

event lea_4130_d_semdalej multiple 10 none
LeA_M_s2 LeB_h2_s2
randomdelay 10
endevent

event leo_towar_dekoracyjne1 multiple 0 none
bg_d_sr2 zamknij_boguszyce lec_J_s2 LeA_A_s4 LeA_L_s13 leo_zwr30- leo_zwr31+ 		//kontenery z Boguszyc do Leosina
endevent

event leo_towar_dekoracyjne2 multiple 120 none
LeB_M_s10 leo_zwr6- leo_zwr7+ leo_zwr5- leo_zwr2- leo_zwr1- 		//weglarki z Leosina na Korty podm.
osobowy_40855
randomdelay 60
endevent

event osobowy_40855 multiple 60 none //przejazd 40855 przez Korty
kt_B_s6 kt_zwr2- kt_zwr4- kt_zwr7- kt_zwr5- 
randomdelay 45
endevent

event 2tor_korty325:event2 multiple 60 none
kt_D_s2 //4130 przez Korty
kt_f_s6 kt_zwr2+ kt_zwr4+ kt_zwr7+ kt_zwr5+ kt_zwr16- kt_zwr15- ktportal_c_s2 //towart et22 przez Korty
randomdelay 45
endevent

event 2tor_leosin573:event1 multiple 30 none
LeB_b1_s3 leo_zwr2+ leo_zwr1+ leo_zwr5+ leo_zwr7- 
LeA_W1_s5
randomdelay 45
endevent




//Borkowice 4130: 
event 2tor_korty025:event1 multiple 3 none
bk_m_s2 bk_d_s2
randomdelay 30
endevent

//Orzechowo:
node -1 0 mem4130_orz_wj memcell 1.0 1.0 1.0 * 0 0 none endmemcell
 event up4130_orz_wj updatevalues 0.0 mem4130_orz_wj * 1 1 endevent
 event losuj4130_orz_wj multiple 0.0 none up4130_orz_wj condition propability 0.2 endevent
 event 2tor_nz:event2 multiple 0.0 none mul14130_orz_wj mul24130_orz_wj og_towar_przelot1 endevent
 event mul14130_orz_wj multiple 0.0 mem4130_orz_wj orz_prosto condition memcompare * 0 0 endevent
 event mul24130_orz_wj multiple 0.0 mem4130_orz_wj orz_bok condition memcompare * 1 1 endevent
 
 
//Wjazd na prosto:
event orz_prosto multiple 0 none
og_y_s5 sbl3001_tarczaos3 endevent

event sbl3001_tarczaos3 multiple 2 none 3001_os3 endevent

//Wjazd na bok:
event orz_bok multiple 0 none
og_y_s13a 
o_zwr33- 
endevent

//Towarowy z OM do OG:
event og_towar_przelot1 multiple 0 none
zamknij_orzechowomiasto zamknij_orzechowo
om_H_s3
og_towar_wariant_og //wariant przejazdu przez OG
randomdelay 120
endevent

node -1 0 memog_towar_przelot memcell 1.0 1.0 1.0 * 0 0 none endmemcell //towarowy: wjazd na bok w OG lub przelot do Borkowic
 event upog_towar_przelot updatevalues 0.0 memog_towar_przelot * 1 1 endevent
 event losujog_towar_przelot multiple 0.0 none upog_towar_przelot condition propability 0.5 endevent
 event og_towar_wariant_og multiple 60 none mul1og_towar_przelot mul2og_towar_przelot endevent
 event mul1og_towar_przelot multiple 0.0 memog_towar_przelot og_b_s13a o_zwr7- o_zwr11+ o_zwr14+ o_zwr15- condition memcompare * 0 0 endevent //na bok w OG
 event mul2og_towar_przelot multiple 0.0 memog_towar_przelot og_b_s2 og_r_s2 bk_b_s13 bk_zwr6- bk_zwr7+ condition memcompare * 1 1 endevent		//przelot OG, na bok w BK
 
//Wyjazd z OG dla 4130 - w zalezności od toru wjazdowego
event 2tor_og260:event1 multiple 30 none //z boku
og_e_s10a o_zwr13+ o_zwr10- 
zamknij_orzechowo zamknij_orzechowomiasto
ecco_om
randomdelay 30
endevent

event 2tor_og212:event2 multiple 20 none //prosto
og_f_s2
zamknij_orzechowo zamknij_orzechowomiasto
ecco_om
randomdelay 30
endevent

//OM Towar wyjazd do Kaczyc na bok:
event ecco_om multiple 0 none
om_E_s10 om_zwr101- om_zwr6+ om_zwr4-
endevent

//Przelot dla 4130 przez OM:
 event 2tor_o006:event1 multiple 0 memom_4130_przelotbug        
 om_zwr101+ om_zwr6- om_zwr4+
 om_D_s2 om_p_s2 
 kz_towar_nabok
 
 upom_4130_przelot  condition memcompare * 0 0 endevent
 
node -1 0 memom_4130_przelotbug memcell 1.0 1.0 1.0 * 0 0 none endmemcell
 event upom_4130_przelot updatevalues 0.0 memom_4130_przelotbug * 1 1 endevent
 
 
//Kaczyce:
event kz_towar_nabok multiple 180 none
kz_r_s13a 
kz_26- kz_27- kz_rampa1+ endevent

event tor_kz118:event2 multiple 15 none
kaczyce_przelot
randomdelay 30 
endevent


node -1 0 memkz_wyjazd memcell 1.0 1.0 1.0 * 0 0 none endmemcell
 event upkz_wyjazd updatevalues 0.0 memkz_wyjazd * 1 1 endevent
 event losujkz_wyjazd multiple 0.0 none upkz_wyjazd condition propability 0.1 endevent
 event kaczyce_przelot multiple 0.0 none mul1kz_wyjazd mul2kz_wyjazd endevent

 event mul1kz_wyjazd multiple 0.0 memkz_wyjazd  //wyjazd na prawy
 kz_26+ kz_27+ kz_rampa1+ kz_r_s2 kz_d_s2 ryp_r_s5
 
 condition memcompare * 0 0 endevent
 
 
 event mul2kz_wyjazd multiple 0.0 memkz_wyjazd //wyjazd na lewy: events odwrocenia blokady liniowej
 kz_r_s4 kz_d_s10a kz_d_w24 kz_4- kz_3- 2730_ciemny 2703_ciemny
2703n_s1
2715n_s1 
2731n_s1 
2743n_s1
2759n_s1
sbl_kz_rp_s5 
 condition memcompare * 1 1 endevent
 
event sbl_kz_rp_s5 multiple 9 none
2703n_s5
2715n_s5
2731n_s5
2743n_s5
2759n_s5
sbl_kz_rp_s2 
endevent

event sbl_kz_rp_s2 multiple 9 none
2703n_s2
2715n_s2
2731n_s2
2743n_s2
2759n_s2
endevent

//SM42 techn. wyjazd na lewy do Kaczyc:
event sm42_rypinek multiple 45 none
ryp_L_s10 ryp_L_w24 
ryp_zwr26- ryp_zwr34+ ryp_zwr29- ryp_zwr32- ryp_zwr33- 
endevent

event ryp1065:event2 multiple 15 none
ryp_s_s13 ryp_zwr26+ ryp_zwr34- ryp_zwr29+ ryp_zwr32+ ryp_zwr33+ 
ryp_zwr31- ryp_zwr30-  
endevent

//Rypinek: wyjazd + brzesk

event ryp429:event1 multiple 30 none
ryp_wyjazd
sbl_ko_wi
randomdelay 30 
endevent
 
 
 
node -1 0 memryp_wyjazd memcell 1.0 1.0 1.0 * 0 0 none endmemcell
 event upryp_wyjazd updatevalues 0.0 memryp_wyjazd * 1 1 endevent
 event losujryp_wyjazd multiple 0.0 none upryp_wyjazd condition propability 0.1 endevent
 event ryp_wyjazd multiple 0.0 none mul1ryp_wyjazd mul2ryp_wyjazd 11217_ko_wi   	endevent
 event mul1ryp_wyjazd multiple 0.0 memryp_wyjazd ryp_e_s2 brzesk_d_s2 lipka_c_s2 grabina_przelot condition memcompare * 0 0 endevent
 
 event mul2ryp_wyjazd multiple 0.0 memryp_wyjazd
 ryp_e_s10 ryp_e_w24 ryp_zwr8a- ryp_zwr7-
 brzesk_e_s10a brzesk_zwr4- brzesk_zwr3-
 lipka_c_s2 grabina_przelot
 condition memcompare * 1 1 endevent
 
 event grabina_przelot multiple 500 none
 grab_K_s2 grab_D_s2 sad_D_s2
 endevent
 
 
 //osobowy 11217 z Komnic do Witnicy
 event 11217_ko_wi multiple 30 none
 ko_k_s10 ko_k_w24 ko_zwr13- ko_zwr14- ko_zwr15- ko_zwr16-
 wi_b_s4 wi_c_s10 wi_3- wi_4- wi_M_s2
 randomdelay 120
 endevent
 
 event wi012:event2 multiple 30 none
 sbl_wi_ko
 ko_zwr13+ ko_zwr14+ ko_zwr15+ ko_zwr16+
 wi_3+ wi_4+
 4130_witnica_przelot
 randomdelay 30
 endevent
 
 event 4130_witnica_przelot multiple 10 none
 wi_R_s2 wi_f_s2
 endevent
 
 
//LPE z Komnic do Tomaszewa: v80 kmh
event wie015:event1 multiple 0 none
ko_O_s10 ko_zwr11- ko_zwr10- ko_c_s2 
czerepy_D_s2 
tom_X_s13 tom_zwr20- tom_zwr22+ tom_zwr25- tom_zwr26-
endevent

event tom588:event1 multiple 0 mem_komnice
up_komnice1
ko_zwr11+ ko_zwr10+

ko_R_s2 ko_c_s2 //przelot 4130 komnice

condition memcompare * * 0
endevent

node -1 0 mem_komnice 	memcell 1.0 1.0 1.0 			x 0 0 none 	endmemcell
event up_komnice1 		updatevalues 2.0 mem_komnice	* 1 1 endevent

//Tomaszewo WJAZD
event tom314:event2 multiple 8 none
tom_zwr20+
tom_X_s5 czerepy_D_s2 

czerepy_A_s2 tom_H_s2 ko_a_s5 //16001 MME
randomdelay 30
endevent


//Tomaszewo: Wyjazd
event tom216:event1 multiple 30 none
tom_wyj
randomdelay 30
endevent


node -1 0 memtom_wyj memcell 1.0 1.0 1.0 * 0 0 none endmemcell
 event uptom_wyj updatevalues 0.0 memtom_wyj * 1 1 endevent
 event losujtom_wyj multiple 0.0 none uptom_wyj condition propability 0.15 endevent
 event tom_wyj multiple 0.0 none mul1tom_wyj mul2tom_wyj endevent
 
 event mul1tom_wyj multiple 0.0 memtom_wyj //PRAWY
 tom_H4_s2 emi_M_s2 emi_f_s2  mw_a_s2 
 condition memcompare * 0 0 endevent
 
 event mul2tom_wyj multiple 0.0 memtom_wyj //LEWY
 tom_H4_s10 tom_H4_w24 tom_zwr2- tom_zwr1- emi_N_s10 emi_zwr2- emi_zwr1- emi_f_s2  mw_a_s2
 condition memcompare * 1 1 endevent
 
 
 //KALETNIK WJAZD:
 node -1 0 memkal_wjazd memcell 1.0 1.0 1.0 * 0 0 none endmemcell
 event upkal_wjazd updatevalues 0.0 memkal_wjazd * 1 1 endevent
 event losujkal_wjazd multiple 0.0 none upkal_wjazd condition propability 0.5 endevent
 event kaletnik418:event2 multiple 0.0 none mul1kal_wjazd mul2kal_wjazd endevent
 
 event mul1kal_wjazd multiple 0.0 memkal_wjazd kal_prawo 
 kal_A1_s4 kal_A_s13a
 kal_zwr11- kal_zwr26+ kal_zwr23-
 condition memcompare * 0 0 endevent
 
 
 event mul2kal_wjazd multiple 0.0 memkal_wjazd kal_lewo 
 kal_A1_s4 kal_A_s13a
 kal_zwr1- kal_zwr3- kal_zwr6- kal_zwr7- 
 condition memcompare * 1 1 endevent
 

