Code:
;;=====================================================================;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;; BLACK DEATH ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;=====================================================================;;
monitor_event FactionTurnStart FactionIsLocal
and I_TurnNumber = 1
historic_event black_death_hits true
while I_EventCounter black_death_hits_accepted = 0 ;;; while-loop to pause the script until a decision is made
and I_EventCounter black_death_hits_declined = 0
end_while
if I_EventCounter black_death_hits_accepted = 1
set_event_counter black_death 1
end_if
terminate_monitor
end_monitor
monitor_event FactionTurnStart FactionIsLocal
and I_TurnNumber = 2
and I_EventCounter black_death > 0
add_events
event plague black_death_1
date 0 ;1346
position 394, 222 ;Caffa
event plague black_death_2
date 1 ;1347
position 355, 252 ;Oleski
position 390, 222 ;Qirim
position 350, 135 ;Bolu
position 337, 115 ;Eskisehir
position 328, 109 ;Kutahya
position 322, 93 ;Usak
position 308, 87 ;Philadelphia
position 317, 76 ;Ladik
position 320, 52 ;Beskaza
position 383, 22 ;Nicosie
position 327, 136 ;Iznikmid
position 324, 129 ;Iznik
position 313, 125 ;Bursa
position 296, 113 ;Balik Hisar
position 284, 102 ;Bergama
position 288, 93 ;Manisa
position 286, 87 ;Smyrna
position 298, 77 ;Guzelhisar
position 297, 65 ;Milas
position 304, 48 ;Rhodus
position 314, 142 ;Uskudar
position 285, 127 ;Pegai
position 276, 102 ;Mytilene
position 270, 88 ;Chio
position 289, 57 ;Kos
; position Palaiokastro removed
position 259, 62 ;Nasso
position 256, 25 ;Candia
position 238, 30 ;La Canea
position 311, 143 ;Galata
position 309, 141 ;Konstantinoupolis
position 287, 140 ;Raidestos
; position Vizyon removed
position 276, 154 ;Hadrianoupolis
position 272, 148 ;Didymoteichon
position 277, 130 ;Kallipolis
position 243, 140 ;Christoupolis
position 232, 90 ;Negroponte
position 232, 81 ;Cetines
position 211, 95 ;Neopatria
position 217, 78 ;Corint
position 201, 88 ;Lepanto
position 201, 84 ;Patras
position 194, 78 ;Andreville
position 212, 60 ;Mystras
position 201, 57 ;Modon
position 101, 83 ;Messina
position 115, 108 ;Cosenza
position 68, 82 ;Palermo
position 96, 62 ;Siracusa
position 81, 38 ;Mdina
position 147, 174 ;Ragusa
position 126, 192 ;Split
position 70, 229 ;Venexia
position 34, 197 ;Pisa
position 17, 210 ;Zena
position 17, 151 ;Bonifacio
position 15, 109 ;Cagliari
event plague black_death_3
date 2 ;1348
position 364, 156 ;Amastri
position 383, 148 ;Kastamonu
position 340, 97 ;Kara Hissar
position 339, 83 ;Uluborlu
position 336, 74 ;Burdur
position 343, 58 ;Adalia
position 354, 87 ;Aksehir
position 369, 77 ;Konya
position 365, 64 ;Karaman
position 365, 52 ;Alaiye
position 339, 254 ;Ozu-Cale
position 322, 244 ;Cetatea Alba
position 306, 296 ;Bratzlav
position 309, 231 ;Chilia
position 283, 264 ;Iasi
position 290, 224 ;Braila
position 266, 265 ;Targu Neamt
position 268, 292 ;Hotin
position 264, 274 ;Suceava
position 257, 234 ;Kronstadt
position 258, 219 ;Targoviste
position 262, 200 ;Giurgiu
position 246, 301 ;Halicz
position 237, 266 ;Beszterce
position 228, 242 ;Gyulafehervar
position 248, 236 ;Fagaras
position 243, 223 ;Arges
position 232, 206 ;Craiova
position 217, 213 ;Severin
position 299, 191 ;Karvuna
position 293, 186 ;Varna
position 289, 174 ;Nesebar
position 284, 201 ;Drastar
; position Shumen removed
position 259, 181 ;Tarnovgrad
position 250, 192 ;Nikopol
position 246, 183 ;Lovets
position 245, 164 ;Plovdiv
position 237, 161 ;Tsepina
position 226, 176 ;Sredets
position 229, 142 ;Serrai
position 220, 134 ;Saloniki
position 218, 201 ;Bdin
position 200, 213 ;Branicevo
position 204, 186 ;Nis
position 208, 154 ;Stip
position 197, 172 ;Novo Brdo
position 196, 160 ;Skopje
position 198, 148 ;Prilep
position 209, 131 ;Berroia
position 211, 113 ;Larissa
position 195, 131 ;Kastoria
position 187, 113 ;Ioannina
position 182, 215 ;Nandorfehervar
position 183, 202 ;Rudnik
position 181, 182 ;Ras
position 187, 166 ;Prizren
position 187, 143 ;Ohrid
position 167, 224 ;Ujlak
position 172, 196 ;Uzice
position 169, 162 ;Skadar
position 169, 147 ;Durazzo
position 168, 129 ;Avlonas
position 172, 113 ;Corfou
position 157, 170 ;Kotor
position 154, 215 ;Srebrenik
position 147, 216 ;Doboj
position 150, 204 ;Bobovac
position 147, 185 ;Blagaj
position 143, 228 ;Pozega
position 137, 207 ;Jajce
position 122, 202 ;Knin
position 110, 204 ;Zadar
position 122, 237 ;Zagreb
position 141, 178 ;Stagno
position 112, 248 ;Cilli
position 116, 260 ;Gratz
position 99, 253 ;Sankt Veit
position 83, 242 ;Udine
position 91, 219 ;Pola
position 68, 234 ;Trevixo
; position Vicenza removed
position 52, 243 ;Trient
position 47, 232 ;Verona
position 37, 234 ;Brescia
position 22, 240 ;Como
position 22, 233 ;Milan
; position Casale removed
position 44, 236 ;Mantova
position 63, 228 ;Padova
position 59, 219 ;Ferrara
position 37, 219 ;Parma
position 46, 216 ;Modena
position 51, 211 ;Bologna
position 48, 199 ;Lucca
position 66, 209 ;Ravenna
position 69, 202 ;Rimini
position 48, 199 ;Fiorenza
position 70, 196 ;Urbino
position 83, 192 ;Ancona
position 57, 191 ;Arezzo
position 49, 188 ;Siena
position 63, 184 ;Perugia
position 68, 176 ;Spoleto
position 78, 168 ;Aquila
position 64, 161 ;Roma
position 106, 154 ;San Severo
position 127, 142 ;Bari
position 87, 137 ;Napoli
position 95, 135 ;Salerno
position 111, 133 ;Potenza
position 133, 129 ;Taranto
position 146, 128 ;Lecce
position 20, 52 ;Tunis
event plague black_death_4
date 3 ;1349
position 382, 132 ;Kangri
position 373, 118 ;Angora
position 198, 273 ;Debrezun
position 202, 263 ;Varad
position 196, 235 ;Temesvar
position 153, 241 ;Pecs
position 162, 271 ;Buda
position 166, 271 ;Pest
position 148, 261 ;Veszprem
position 141, 280 ;Pozsony
position 128, 282 ;Wien
position 104, 282 ;Linz
position 85, 276 ;Salzburg
position 79, 295 ;Straubing
position 64, 283, ;Muchen
position 60, 265 ;Innsbruck
; position Ulm removed
position 29, 298 ;Stuttgart
position 27, 277 ;Konstanz
position 32, 260 ;Chur
position 18, 272 ;Zurich
position 13, 265 ;Luzern
position 1, 264 ;Bern
position 89, 240 ;Gorz
position 101, 241 ;Laibach
position 54, 287 ;Augsburg
position 9, 284 ;Freiburg
position 8, 296 ;Strassburg
event plague black_death_5
date 4 ;1350
position 197, 294 ;Kassa
position 136, 303 ;Brunn
event historic black_death_6
date 5 ;1351
event historic black_death_7
date 6 ;1352
end_add_events
terminate_monitor
end_monitor