GameMode arma DESTROYOWNTARGETCOUNTER P DESTROYENEMYTARGETCOUNTER P LANDDROPPEDINWATERCOUNTER L LIVESREMAINING02COUNTER M Program0123 / meteor crash to the ground periodically author pd/ TEXTBUFFER LEVS arma.wbl ENDBUFFER DataBuffer STR0 1 2 1 3 2 4 2 5 3 7 4 8 4 9 5 10 5 11 6 12 6 13 7 14 7 15 8 16 8 17 9 18 9 19 -1 -1 EndBuffer DataBuffer STR1 1 0 1 1 2 2 2 3 3 4 3 5 4 6 4 7 5 8 5 9 6 10 6 11 7 12 7 13 8 14 8 15 9 16 9 17 10 18 10 19 -1 -1 EndBuffer DataBuffer STR2 2 0 2 1 3 2 3 3 4 4 4 5 5 6 5 7 6 8 6 9 7 10 7 11 8 12 8 13 9 14 9 15 10 16 10 17 11 18 11 19 -1 -1 EndBuffer DataBuffer STR3 3 0 3 1 4 2 4 3 5 4 5 5 6 6 6 7 7 8 7 9 8 10 8 11 9 12 9 13 10 14 10 15 11 16 11 17 12 18 12 19 -1 -1 EndBuffer DataBuffer STR4 4 0 4 1 5 2 5 3 6 4 6 5 7 6 7 7 8 8 8 9 9 10 9 11 10 12 10 13 11 14 11 15 12 16 12 17 13 18 13 19 -1 -1 EndBuffer DataBuffer STR5 5 0 5 1 7 4 7 5 8 6 8 7 9 8 9 9 10 10 10 11 11 12 11 13 12 14 12 15 13 16 13 17 14 18 14 19 -1 -1 EndBuffer DataBuffer STR6 6 0 6 1 8 4 8 5 9 6 9 7 10 8 11 11 12 12 12 13 13 14 13 15 14 16 14 17 15 18 15 19 -1 -1 EndBuffer DataBuffer STR7 8 0 7 1 6 4 5 5 5 6 4 7 4 8 3 9 3 10 2 11 2 12 1 13 1 14 0 15 0 16 -1 -1 EndBuffer DataBuffer STR8 9 0 8 1 7 4 6 5 6 6 5 7 5 8 4 9 4 10 3 11 3 12 2 13 2 14 1 15 1 16 0 17 0 18 -1 -1 EndBuffer DataBuffer STR9 10 0 9 1 9 2 8 3 8 4 7 5 7 6 6 7 6 8 5 9 5 10 4 11 4 12 3 13 3 14 2 15 2 16 1 17 1 18 0 19 -1 -1 EndBuffer DataBuffer ST10 11 0 10 1 10 2 9 3 9 4 8 5 8 6 7 7 7 8 6 9 6 10 5 11 5 12 4 13 4 14 3 15 3 16 2 17 2 18 1 19 -1 -1 EndBuffer DataBuffer ST11 12 0 11 1 11 2 10 3 10 4 9 5 9 6 8 7 8 8 7 9 7 10 6 11 6 12 5 13 5 14 4 15 4 16 3 17 3 18 2 19 -1 -1 EndBuffer DataBuffer ST12 13 0 12 1 12 2 11 3 11 4 10 5 10 6 9 7 9 8 8 9 8 10 7 11 7 12 6 13 6 14 5 15 5 16 4 17 4 18 3 19 -1 -1 EndBuffer DataBuffer ST13 14 0 13 1 13 2 12 3 12 4 11 5 11 6 10 7 10 8 9 9 9 10 8 11 8 12 7 13 7 14 6 15 6 16 5 17 5 18 4 19 -1 -1 EndBuffer DataBuffer ST14 15 0 14 1 14 2 13 3 13 4 12 5 12 6 11 7 11 8 10 10 9 11 9 12 8 13 8 14 7 15 7 16 6 17 6 18 5 19 -1 -1 EndBuffer DataBuffer ST15 16 0 15 1 14 3 14 4 13 5 13 6 12 7 12 8 10 11 10 12 9 13 9 14 8 15 8 16 7 17 7 18 6 19 -1 -1 EndBuffer DataBuffer ST16 17 0 16 1 15 4 14 5 14 6 13 7 13 8 11 11 11 12 10 13 10 14 9 15 9 16 8 17 8 18 7 19 -1 -1 EndBuffer DataBuffer ST17 7 0 7 1 8 3 9 4 9 5 10 6 10 7 11 8 12 11 13 12 13 13 14 14 14 15 15 16 15 17 16 18 16 19 -1 -1 EndBuffer DataBuffer ST18 8 0 8 1 9 2 9 3 10 4 10 5 11 6 11 7 12 8 13 10 13 11 14 12 14 13 15 14 15 15 16 16 16 17 17 18 17 19 -1 -1 EndBuffer DataBuffer ST19 9 0 9 1 10 2 10 3 11 4 11 5 12 6 12 7 13 8 13 9 14 10 14 11 15 12 15 13 16 14 16 15 17 16 17 17 18 18 18 19 -1 -1 EndBuffer DataBuffer ST20 10 0 10 1 11 2 11 3 12 4 12 5 13 6 13 7 14 8 14 9 15 10 15 11 16 12 16 13 17 14 17 15 18 16 18 17 19 18 19 19 -1 -1 EndBuffer DataBuffer ST21 11 0 11 1 12 2 12 3 13 4 13 5 14 6 14 7 15 8 15 9 16 10 16 11 17 12 17 13 18 14 18 15 19 16 19 17 20 18 20 19 -1 -1 EndBuffer DataBuffer ST22 12 0 12 1 13 2 13 3 14 4 14 5 15 6 15 7 16 8 16 9 17 10 17 11 18 12 18 13 19 14 19 15 20 16 20 17 21 18 21 19 -1 -1 EndBuffer DataBuffer ST23 15 0 15 1 17 4 17 5 18 6 18 7 19 8 19 9 20 10 20 11 21 12 21 13 22 14 23 16 23 17 24 18 24 19 -1 -1 EndBuffer Loop INIT Do SetParameter Position 0 -175 0 0 SendMessage CHANGEWATERHEIGHT SetParameter POSITION 270 0 0 0 SetParameter PLAYERNUM 0 SendMessage SETBOATPOSITION SetParameter TEXT arma.wbw SendMessage LOADWEAPONLIST SetParameter LIVES 0 SendMessage SETLIVES SetParameter NUMLINES 20 SendMessage SetStartLines SetParameter BACKDROP BACKDROP2 SendMessage SETBACKDROP SetParameter BUFFERNAME LEVS SetParameter NUMLINES 20 SendMessage LOADLEVEL SendMessage PAUSELANDLEFT SendMessage PAUSELANDRIGHT SetParameter MESSAGE_ID TIMER1 SetParameter INTERVAL 0060 SetParameter REPEAT TRUE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER2 SetParameter INTERVAL 10000 SetParameter REPEAT TRUE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER3 SetParameter INTERVAL 1000 SetParameter REPEAT TRUE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER4 SetParameter INTERVAL 5000 SetParameter REPEAT TRUE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER5 SetParameter INTERVAL 8000 SetParameter REPEAT TRUE SendMessage CREATETIMER SET A TO 0 SET B TO 0 SET C TO 1000 SET D TO 1000 SET E TO 0 SET G TO 0 SET H TO 0 SET I TO 0 SET K TO 0 SET L TO 0 SET M TO 0 SET N TO 0 SET R TO 0 SET S TO 10 SET P TO 0 SET Q TO 1 SET T TO 0 SET U TO 0 SET V TO 0 SET X TO 0 SET Y TO 0 SET W TO 0 SET Z TO 0 SendMessage DEACTIVATESCORE SendMessage FIRINGOFF SendMessage STARTBRIEFING SendMessage MUSIC_GROOVE_LOW Randomise A FROM 1 To 20 Randomise I From 1 To 20 Randomise T From 1 To 20 Randomise B FROM 0 To 7 Randomise Y FROM 0 To 8 Randomise X FROM 0 TO 5 GotoLoop BRIEF EndLoop Loop BRIEF Do SetParameter Velocity 0.0 0.0 0.0 0.0 SetParameter Gravity 0.0 0.0 0.0 0.0 SetParameter Colour1 1.0 0.86 0.03 1.0 SetParameter Colour2 1.0 0.86 0.03 1.0 SetParameter Colour3 1.0 0.86 0.03 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Scale1 1.3 1.3 1.3 0.0 SetParameter Scale2 1.3 1.3 1.3 0.0 SetParameter Scale3 1.3 1.3 1.3 0.0 SetParameter Scale4 1.3 1.3 1.3 0.0 SetParameter Scale5 1.3 1.3 1.3 0.0 SetParameter Lifetime 0.0 0.0 0.0 0.0 SetParameter Justify Centre SetParameter Position 0.0 180.0 0.0 0.0 SetParameter Text Armageddon FRE SetParameter TEXT Combat_suprême GER SetParameter Text Armageddon SPA SetParameter Text Apocalipsis ITA SetParameter TEXT Apocalisse POL SetParameter TEXT Armageddon SendMessage CREATETEXT SetParameter Colour1 1.0 1.0 1.0 1.0 SetParameter Colour2 1.0 1.0 1.0 1.0 SetParameter Colour3 1.0 1.0 1.0 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Scale1 0.8 0.8 0.8 0.0 SetParameter Scale2 0.8 0.8 0.8 0.0 SetParameter Scale3 0.8 0.8 0.8 0.0 SetParameter Scale4 0.8 0.8 0.8 0.0 SetParameter Scale5 0.8 0.8 0.8 0.0 SPA SetParameter Scale1 0.7 0.7 0.7 0.0 SPA SetParameter Scale2 0.7 0.7 0.7 0.0 SPA SetParameter Scale3 0.7 0.7 0.7 0.0 SPA SetParameter Scale4 0.7 0.7 0.7 0.0 SPA SetParameter Scale5 0.7 0.7 0.7 0.0 SetParameter Lifetime 0.0 0.0 0.0 0.0 SetParameter Justify Centre SetParameter Position 0.0 115.0 0.0 0.0 SetParameter Text Destroy_the_targets! FRE SetParameter TEXT Détruisez_les_cibles! GER SetParameter Text Zerstöre_die_Ziele! SPA SetParameter Text ¡Destruye_las_dianas! ITA SetParameter TEXT Distruggi_i_bersagli! POL SetParameter TEXT Zniszcz_wszystkie_cele! SendMessage CREATETEXT SetParameter Position 0.0 80.0 0.0 0.0 SetParameter Text Beware_the_meteor_showers_and FRE SetParameter TEXT Attention_aux_pluies_de_météores. GER SetParameter Text Hüte_dich_vor_dem_Meteorregen SPA SetParameter Text Cuidado_con_las_lluvias_de_meteoritos_y_ ITA SetParameter TEXT Attento_alla_tempesta_di_meteore. POL SetParameter TEXT Pamiêtaj_o_deszczach_meteorów SendMessage CREATETEXT SetParameter Position 0.0 45.0 0.0 0.0 SetParameter Text heed_all_the_warnings_you_receive FRE SetParameter TEXT Prenez_en_compte_les_avertissements_que GER SetParameter Text und_achte_auf_die_Warnungen, SPA SetParameter Text haz_caso_a_las_indicaciones_que_recibes... ITA SetParameter TEXT Ascolta_tutti_gli_avvertimenti: POL SetParameter TEXT i_s³uchaj_otrzymywanych_ostrze¿eñ, SendMessage CREATETEXT SetParameter Position 0.0 10.0 0.0 0.0 SetParameter Text as_they_may_save_your_life! FRE SetParameter TEXT vous_recevez_car_ils_peuvent GER SetParameter Text sie_könnten_dein_Leben_retten! SPA SetParameter Text ¡pueden_salvarte_la_vida! ITA SetParameter TEXT potrebbero_salvarti_la_vita! POL SetParameter TEXT bo_te_mog¹_ocaliæ_Ci_¿ycie. SendMessage CREATETEXT FRE SetParameter TEXT vous_sauver_la_vie! FRE SetParameter Position 0.0 -25.0 0.0 0.0 FRE SendMessage CREATETEXT SetParameter Colour1 1.0 0.22 0.07 1.0 SetParameter Colour2 1.0 0.22 0.07 1.0 SetParameter Colour3 1.0 0.22 0.07 1.0 SetParameter Scale1 1.0 1.0 1.0 0.0 SetParameter Scale2 1.0 1.0 1.0 0.0 SetParameter Scale3 1.0 1.0 1.0 0.0 SetParameter Scale4 1.0 1.0 1.0 0.0 SetParameter Scale5 1.0 1.0 1.0 0.0 SetParameter Position 0.0 -125.0 0.0 0.0 SetParameter Text Press_fire_to_start FRE SetParameter TEXT Appuyez_sur_Tir_pour_commencer! GER SetParameter Text Zum_Starten_Feuer_drücken ITA SetParameter TEXT Premi_fuoco_per_cominciare POL SetParameter TEXT Naciœnij_"Strza³" SPA SetParameter Scale1 0.8 0.8 0.8 0.0 SPA SetParameter Scale2 0.8 0.8 0.8 0.0 SPA SetParameter Scale3 0.8 0.8 0.8 0.0 SPA SetParameter Scale4 0.8 0.8 0.8 0.0 SPA SetParameter Scale5 0.8 0.8 0.8 0.0 SPA SetParameter Text Pulsa_el_disparo_para_empezar SendMessage CREATETEXT SPA SetParameter Scale1 1.0 1.0 1.0 0.0 SPA SetParameter Scale2 1.0 1.0 1.0 0.0 SPA SetParameter Scale3 1.0 1.0 1.0 0.0 SPA SetParameter Scale4 1.0 1.0 1.0 0.0 SPA SetParameter Scale5 1.0 1.0 1.0 0.0 OnMessage FIREPRESSED Do SendMessage FIRINGON SendMessage ENDBRIEFING GotoLoop MAIN EndResponse EndLoop Loop MAIN Do SetParameter Position 0 -175 0 0 SendMessage CHANGEWATERHEIGHT SetParameter POSITION 2 6 0 0 SetParameter BlockColour TARGET SendMessage SPAWNINBLOCK SetParameter POSITION 7 2 0 0 SetParameter BlockColour TARGET SendMessage SPAWNINBLOCK SetParameter POSITION 16 2 0 0 SetParameter BlockColour TARGET SendMessage SPAWNINBLOCK SetParameter POSITION 21 6 0 0 SetParameter BlockColour TARGET SendMessage SPAWNINBLOCK SetParameter POSITION 11 9 0 0 SetParameter BlockColour TARGET SendMessage SPAWNINBLOCK GotoLoop MAIN1 EndLoop Loop MAIN1 Do If M IsEqualTo -1 Then Set Z To 0 SendMessage FIRINGOFF SendMessage CLEARPROJECTILES SetParameter Position 0.0 0.0 0.0 0.0 SetParameter Scale1 8.0 8.0 8.0 1.0 SetParameter Scale2 5.0 5.0 5.0 1.0 SetParameter Scale4 3.0 3.0 3.0 1.0 SetParameter Colour1 1.0 0.22 0.07 1.0 SetParameter Colour2 1.0 0.22 0.07 1.0 SetParameter Colour3 1.0 0.22 0.07 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Lifetime 0.2 0.7 3.2 4.2 SetParameter Text FAILED! FRE SetParameter TEXT ÉCHEC! GER SetParameter Text VERLOREN! SPA SetParameter Text ¡FALLASTE! ITA SetParameter TEXT HAI_FALLITO! POL SetParameter TEXT Klêska SendMessage CREATETEXT GotoLoop FAIL EndIf SetParameter Position 0 -175 0 0 SendMessage CHANGEWATERHEIGHT OnMessage TIMER3 Do Add 1 To R If R IsGreaterThan 23 Then If R BecomesEqualTo 24 Then SendMessage MUSIC_GROOVE_MED_HI EndIf If R IsLessThan 35 Then GoSubLoop COUNT EndIf EndIf If R IsGreaterThan 73 Then If R BecomesEqualTo 74 Then SendMessage MUSIC_GROOVE_MED_HI EndIf If R IsLessThan 85 Then GoSubLoop COUNT EndIf EndIf If R IsGreaterThan 128 Then If R BecomesEqualTo 129 Then SendMessage MUSIC_GROOVE_MED_HI EndIf If R IsLessThan 140 Then GoSubLoop COUNT EndIf EndIf If R IsGreaterThan 168 Then If R BecomesEqualTo 169 Then SendMessage MUSIC_GROOVE_MED_HI EndIf If R IsLessThan 180 Then GoSubLoop COUNT EndIf EndIf If R IsGreaterThan 208 Then If R BecomesEqualTo 209 Then SendMessage MUSIC_GROOVE_MED_HI EndIf If R IsLessThan 220 Then GoSubLoop COUNT EndIf EndIf EndResponse If R BecomesEqualTo 22 Then SendMessage MUSIC_GROOVE_MED_HI GoSubLoop WARN Set S To 10 EndIf If R BecomesEqualTo 34 Then Randomise A FROM 1 To 20 Randomise I From 1 To 20 Randomise T From 1 To 20 SendMessage MUSIC_GROOVE_HIGH GoSubLoop CRATES Set Q To 0 EndIf If R BecomesEqualTo 52 Then SendMessage MUSIC_GROOVE_MED_LOW GoSubLoop MESSAGE EndIf If R BecomesEqualTo 54 Then SendMessage MUSIC_GROOVE_LOW GoSubLoop RESET EndIf If R BecomesEqualTo 73 Then SendMessage MUSIC_GROOVE_MED_HI GoSubLoop WARN Set S To 10 EndIf If R BecomesEqualTo 84 Then Randomise A FROM 1 To 20 Randomise I From 1 To 20 Randomise T From 1 To 20 SendMessage MUSIC_GROOVE_HIGH GoSubLoop CRATES Set Q To 0 EndIf If R BecomesEqualTo 112 Then SendMessage MUSIC_GROOVE_MED_LOW GoSubLoop MESSAGE EndIf If R BecomesEqualTo 114 Then SendMessage MUSIC_GROOVE_LOW GoSubLoop RESET EndIf If R BecomesEqualTo 127 Then SendMessage MUSIC_GROOVE_MED_HI GoSubLoop WARN Set S To 10 EndIf If R BecomesEqualTo 139 Then Randomise A FROM 1 To 20 Randomise I From 1 To 20 Randomise T From 1 To 20 SendMessage MUSIC_GROOVE_HIGH GoSubLoop CRATES Set Q To 0 EndIf If R BecomesEqualTo 157 Then SendMessage MUSIC_GROOVE_MED_LOW GoSubLoop MESSAGE EndIf If R BecomesEqualTo 159 Then SendMessage MUSIC_GROOVE_LOW GoSubLoop RESET EndIf If R BecomesEqualTo 167 Then SendMessage MUSIC_GROOVE_MED_HI GoSubLoop WARN Set S To 10 EndIf If R BecomesEqualTo 179 Then Randomise A FROM 1 To 20 Randomise I From 1 To 20 Randomise T From 1 To 20 SendMessage MUSIC_GROOVE_HIGH GoSubLoop CRATES Set Q To 0 EndIf If R BecomesEqualTo 197 Then SendMessage MUSIC_GROOVE_MED_LOW GoSubLoop MESSAGE EndIf If R BecomesEqualTo 199 Then SendMessage MUSIC_GROOVE_LOW GoSubLoop RESET EndIf If R BecomesEqualTo 207 Then SetParameter Colour1 1.0 0.22 0.07 1.0 SetParameter Colour2 1.0 0.22 0.07 1.0 SetParameter Colour3 1.0 0.22 0.07 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Scale1 0.2 0.2 0.2 0.0 SetParameter Scale2 1.0 1.0 1.0 0.0 SetParameter Justify Centre SetParameter Position 0.0 125.0 0.0 0.0 SetParameter Lifetime 0.2 0.6 3.0 3.5 SetParameter Text Warning_prolonged_meteor_shower! FRE SetParameter TEXT Attention:_pluie_prolongée_de_météores! GER SetParameter Text Achtung,_Meteorregen_erwartet! SPA SetParameter Text ¡Atención:_lluvia_de_meteoritos_intensa! ITA SetParameter TEXT pioggia_di_meteoriti_prolungata! POL SetParameter TEXT Uwaga._Nadchodzi_deszcz_meteorów SPA SetParameter Scale1 0.7 0.7 0.7 0.0 SPA SetParameter Scale2 0.7 0.7 0.7 0.0 SPA SetParameter Scale3 0.7 0.7 0.7 0.0 SPA SetParameter Scale4 0.7 0.7 0.7 0.0 SPA SetParameter Scale5 0.7 0.7 0.7 0.0 SendMessage CREATETEXT SetParameter Position 0.0 75.0 0.0 0.0 SetParameter Lifetime 0.2 0.6 3.0 3.5 SetParameter Text in FRE SetParameter TEXT dans SPA SetParameter Text en ITA SetParameter TEXT in GER SetParameter Text in POL SetParameter TEXT za SendMessage CREATETEXT SPA SetParameter Scale1 1.0 1.0 1.0 0.0 SPA SetParameter Scale2 1.0 1.0 1.0 0.0 SPA SetParameter Scale3 1.0 1.0 1.0 0.0 SPA SetParameter Scale4 1.0 1.0 1.0 0.0 SPA SetParameter Scale5 1.0 1.0 1.0 0.0 Set S To 10 EndIf If R BecomesEqualTo 219 Then Set Q To 0 Set Z To 0 SendMessage MUSIC_GROOVE_HIGH GotoLoop SHOWER EndIf OnMessage TIMER1 Do If Q IsEqualTo 0 Then If Y IsEqualTo 0 Then If E IsGreaterThanOrEqualTo A Then SetParameter POSITION C D 1 0 SendMessage DETONATEBLOCK ReadFromBuffer STR0 Into C ReadFromBuffer STR0 Into D If C IsGreaterThanOrEqualTo 0 Then SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If C IsLessThan 0 Then ResetBuffer STR0 Randomise A FROM 1 To 20 Randomise Y FROM 0 To 8 SET E TO 0 Endif EndIf EndIf If Y IsEqualTo 1 Then If E IsGreaterThanOrEqualTo A Then SetParameter POSITION C D 1 0 SendMessage DETONATEBLOCK ReadFromBuffer STR1 Into C ReadFromBuffer STR1 Into D If C IsGreaterThanOrEqualTo 0 Then SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If C IsLessThan 0 Then ResetBuffer STR1 Randomise A FROM 1 To 20 Randomise Y FROM 0 To 8 SET E TO 0 Endif EndIf EndIf If Y IsEqualTo 2 Then If E IsGreaterThanOrEqualTo A Then SetParameter POSITION C D 1 0 SendMessage DETONATEBLOCK ReadFromBuffer STR2 Into C ReadFromBuffer STR2 Into D If C IsGreaterThanOrEqualTo 0 Then SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If C IsLessThan 0 Then ResetBuffer STR2 Randomise A FROM 1 To 20 Randomise Y FROM 0 To 8 SET E TO 0 Endif EndIf EndIf If Y IsEqualTo 3 Then If E IsGreaterThanOrEqualTo A Then SetParameter POSITION C D 1 0 SendMessage DETONATEBLOCK ReadFromBuffer STR3 Into C ReadFromBuffer STR3 Into D If C IsGreaterThanOrEqualTo 0 Then SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If C IsLessThan 0 Then ResetBuffer STR3 Randomise A FROM 1 To 20 Randomise Y FROM 0 To 8 SET E TO 0 Endif EndIf EndIf If Y IsEqualTo 4 Then If E IsGreaterThanOrEqualTo A Then SetParameter POSITION C D 1 0 SendMessage DETONATEBLOCK ReadFromBuffer STR4 Into C ReadFromBuffer STR4 Into D If C IsGreaterThanOrEqualTo 0 Then SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If C IsLessThan 0 Then ResetBuffer STR4 Randomise A FROM 1 To 20 Randomise Y FROM 0 To 8 SET E TO 0 Endif EndIf EndIf If Y IsEqualTo 5 Then If E IsGreaterThanOrEqualTo A Then SetParameter POSITION C D 1 0 SendMessage DETONATEBLOCK ReadFromBuffer STR5 Into C ReadFromBuffer STR5 Into D If C IsGreaterThanOrEqualTo 0 Then SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If C IsLessThan 0 Then ResetBuffer STR5 Randomise A FROM 1 To 20 Randomise Y FROM 0 To 8 SET E TO 0 Endif EndIf EndIf If Y IsEqualTo 6 Then If E IsGreaterThanOrEqualTo A Then SetParameter POSITION C D 1 0 SendMessage DETONATEBLOCK ReadFromBuffer STR6 Into C ReadFromBuffer STR6 Into D If C IsGreaterThanOrEqualTo 0 Then SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If C IsLessThan 0 Then ResetBuffer STR6 Randomise A FROM 1 To 20 Randomise Y FROM 0 To 8 SET E TO 0 Endif EndIf EndIf If Y IsEqualTo 7 Then If E IsGreaterThanOrEqualTo A Then SetParameter POSITION C D 1 0 SendMessage DETONATEBLOCK ReadFromBuffer STR7 Into C ReadFromBuffer STR7 Into D If C IsGreaterThanOrEqualTo 0 Then SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If C IsLessThan 0 Then ResetBuffer STR7 Randomise A FROM 1 To 20 Randomise Y FROM 0 To 8 SET E TO 0 Endif EndIf EndIf If Y IsEqualTo 8 Then If E IsGreaterThanOrEqualTo A Then SetParameter POSITION C D 1 0 SendMessage DETONATEBLOCK ReadFromBuffer STR8 Into C ReadFromBuffer STR8 Into D If C IsGreaterThanOrEqualTo 0 Then SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If C IsLessThan 0 Then ResetBuffer STR8 Randomise A FROM 1 To 20 Randomise Y FROM 0 To 8 SET E TO 0 Endif EndIf EndIf If B IsEqualTo 0 Then If F IsGreaterThanOrEqualTo I Then SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK ReadFromBuffer STR9 Into G ReadFromBuffer STR9 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If G IsLessThan 0 Then ResetBuffer STR9 Randomise I FROM 1 To 20 Randomise B FROM 0 To 7 SET F TO 0 Endif EndIf EndIf If B IsEqualTo 1 Then If F IsGreaterThanOrEqualTo I Then SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST10 Into G ReadFromBuffer ST10 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If G IsLessThan 0 Then ResetBuffer ST10 Randomise I FROM 1 To 20 Randomise B FROM 0 To 7 SET F TO 0 Endif EndIf EndIf If B IsEqualTo 2 Then If F IsGreaterThanOrEqualTo I Then SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST11 Into G ReadFromBuffer ST11 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If G IsLessThan 0 Then ResetBuffer ST11 Randomise I FROM 1 To 20 Randomise B FROM 0 To 7 SET F TO 0 Endif EndIf EndIf If B IsEqualTo 3 Then If F IsGreaterThanOrEqualTo I Then SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST12 Into C ReadFromBuffer ST12 Into D If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If G IsLessThan 0 Then ResetBuffer ST12 Randomise I FROM 1 To 20 Randomise B FROM 0 To 7 SET F TO 0 Endif EndIf EndIf If B IsEqualTo 4 Then If F IsGreaterThanOrEqualTo I Then SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST13 Into G ReadFromBuffer ST13 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If G IsLessThan 0 Then ResetBuffer ST13 Randomise I FROM 1 To 20 Randomise B FROM 0 To 7 SET F TO 0 Endif EndIf EndIf If B IsEqualTo 5 Then If F IsGreaterThanOrEqualTo I Then SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST14 Into G ReadFromBuffer ST14 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If G IsLessThan 0 Then ResetBuffer ST14 Randomise I FROM 1 To 20 Randomise B FROM 0 To 7 SET F TO 0 Endif EndIf EndIf If B IsEqualTo 6 Then If F IsGreaterThanOrEqualTo I Then SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST15 Into G ReadFromBuffer ST15 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If G IsLessThan 0 Then ResetBuffer ST15 Randomise I FROM 1 To 20 Randomise B FROM 0 To 7 SET F TO 0 Endif EndIf EndIf If B IsEqualTo 7 Then If F IsGreaterThanOrEqualTo I Then SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST16 Into G ReadFromBuffer ST16 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If G IsLessThan 0 Then ResetBuffer ST16 Randomise I FROM 1 To 20 Randomise B FROM 0 To 7 SET F TO 0 Endif EndIf EndIf If X IsEqualTo 0 Then If S IsGreaterThanOrEqualTo T Then SetParameter POSITION J K 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST17 Into J ReadFromBuffer ST17 Into K If J IsGreaterThanOrEqualTo 0 Then SetParameter POSITION J K 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If J IsLessThan 0 Then ResetBuffer ST17 Randomise T FROM 1 To 20 Randomise X FROM 0 To 5 SET S TO 0 Endif EndIf EndIf If X IsEqualTo 1 Then If S IsGreaterThanOrEqualTo T Then SetParameter POSITION J K 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST18 Into J ReadFromBuffer ST18 Into K If J IsGreaterThanOrEqualTo 0 Then SetParameter POSITION J K 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If J IsLessThan 0 Then ResetBuffer ST18 Randomise T FROM 1 To 20 Randomise X FROM 0 To 5 SET S TO 0 Endif EndIf EndIf If X IsEqualTo 2 Then If S IsGreaterThanOrEqualTo T Then SetParameter POSITION J K 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST19 Into J ReadFromBuffer ST19 Into K If J IsGreaterThanOrEqualTo 0 Then SetParameter POSITION J K 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If J IsLessThan 0 Then ResetBuffer ST19 Randomise T FROM 1 To 20 Randomise X FROM 0 To 5 SET S TO 0 Endif EndIf EndIf If X IsEqualTo 3 Then If S IsGreaterThanOrEqualTo T Then SetParameter POSITION J K 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST20 Into J ReadFromBuffer ST20 Into K If J IsGreaterThanOrEqualTo 0 Then SetParameter POSITION J K 1 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If J IsLessThan 0 Then ResetBuffer ST20 Randomise T FROM 1 To 20 Randomise X FROM 0 To 5 SET S TO 0 Endif EndIf EndIf If X IsEqualTo 4 Then If S IsGreaterThanOrEqualTo T Then SetParameter POSITION J K 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST21 Into J ReadFromBuffer ST21 Into K If J IsGreaterThanOrEqualTo 0 Then SetParameter POSITION J K 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If J IsLessThan 0 Then ResetBuffer ST21 Randomise T FROM 1 To 20 Randomise X FROM 0 To 5 SET S TO 0 Endif EndIf EndIf If X IsEqualTo 5 Then If S IsGreaterThanOrEqualTo T Then SetParameter POSITION J K 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST22 Into J ReadFromBuffer ST22 Into K If J IsGreaterThanOrEqualTo 0 Then SetParameter POSITION J K 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If J IsLessThan 0 Then ResetBuffer ST22 Randomise T FROM 1 To 20 Randomise X FROM 0 To 5 SET S TO 0 Endif EndIf EndIf Add 1 To S Add 1 To E Add 1 To F EndIf EndResponse GoSubLoop CHECK EndLoop Loop WARN Do SetParameter Colour1 1.0 0.22 0.07 1.0 SetParameter Colour2 1.0 0.22 0.07 1.0 SetParameter Colour3 1.0 0.22 0.07 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Scale1 0.2 0.2 0.2 0.0 SetParameter Scale2 1.0 1.0 1.0 0.0 SetParameter Justify Centre SetParameter Position 0.0 125.0 0.0 0.0 SetParameter Lifetime 0.2 0.6 3.0 3.5 SetParameter Text Warning_incoming_meteor_shower! FRE SetParameter TEXT Attention:_pluie_de_météores_en_vue! GER SetParameter Text Achtung,_Meteorregen_erwartet! ITA SetParameter TEXT pioggia_di_meteoriti_in_arrivo! POL SetParameter TEXT Uwaga._Nadchodzi_deszcz_meteorów SPA SetParameter Text ¡Atención,_se_avecina_una_lluvia_de_meteoritos! SPA SetParameter Scale1 0.7 0.7 0.7 0.0 SPA SetParameter Scale2 0.7 0.7 0.7 0.0 SPA SetParameter Scale3 0.7 0.7 0.7 0.0 SPA SetParameter Scale4 0.7 0.7 0.7 0.0 SPA SetParameter Scale5 0.7 0.7 0.7 0.0 SendMessage CREATETEXT SetParameter Position 0.0 75.0 0.0 0.0 SetParameter Lifetime 0.2 0.6 3.0 3.5 SetParameter Text in FRE SetParameter TEXT dans GER SetParameter Text in SPA SetParameter Text en ITA SetParameter TEXT in POL SetParameter TEXT za SendMessage CREATETEXT SPA SetParameter Scale1 1.0 1.0 1.0 0.0 SPA SetParameter Scale2 1.0 1.0 1.0 0.0 SPA SetParameter Scale3 1.0 1.0 1.0 0.0 SPA SetParameter Scale4 1.0 1.0 1.0 0.0 SPA SetParameter Scale5 1.0 1.0 1.0 0.0 EndLoop Loop MESSAGE Do SetParameter Colour1 0.57 0.8 1.0 1.0 SetParameter Colour2 0.57 0.8 1.0 1.0 SetParameter Colour3 0.57 0.8 1.0 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Scale1 0.2 0.2 0.2 0.0 SetParameter Scale2 1.0 1.0 1.0 0.0 SetParameter Justify Centre SetParameter Position 0.0 125.0 0.0 0.0 SetParameter Lifetime 0.2 0.6 2.0 2.5 SetParameter Text The_Skies_are_clearing! FRE SetParameter TEXT Le_ciel_se_dégage! GER SetParameter Text Der_Himmel_klärt_sich_auf! SPA SetParameter Text ¡El_cielo_se_está_despejando! ITA SetParameter TEXT Il_cielo_si_sta_sgomberando! POL SetParameter TEXT Niebo_siê_przeciera. SendMessage CREATETEXT EndLoop Loop COUNT Do If S IsGreaterThan 0 Then SetParameter Colour1 1.0 0.22 0.07 1.0 SetParameter Colour2 1.0 0.22 0.07 1.0 SetParameter Colour3 1.0 0.22 0.07 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Scale1 0.4 0.4 0.4 0.0 SetParameter Scale2 2.0 2.0 2.0 0.0 SetParameter Justify Centre ConvertToText S SetParameter Position 0.0 25.0 0.0 0.0 SetParameter Lifetime 0.1 0.1 0.4 0.4 SendMessage CREATETEXT EndIf SubTract 1 From S EndLoop Loop RESET Do SetParameter POSITION 0 0 1 0 SetParameter BLOCKCOLOUR RED SendMessage CLEARBLOCKS ResetBuffer STR0 ResetBuffer STR1 ResetBuffer STR2 ResetBuffer STR3 ResetBuffer STR4 ResetBuffer STR5 ResetBuffer STR6 ResetBuffer STR7 ResetBuffer STR8 ResetBuffer STR9 ResetBuffer ST10 ResetBuffer ST11 ResetBuffer ST12 ResetBuffer ST13 ResetBuffer ST14 ResetBuffer ST15 ResetBuffer ST16 ResetBuffer ST17 ResetBuffer ST18 ResetBuffer ST19 ResetBuffer ST20 ResetBuffer ST21 ResetBuffer ST22 Set Q To 1 EndLoop Loop SHOWER Do If M IsEqualTo -1 Then Set Z To 0 SendMessage FIRINGOFF SendMessage CLEARPROJECTILES SetParameter Position 0.0 0.0 0.0 0.0 SetParameter Scale1 8.0 8.0 8.0 1.0 SetParameter Scale2 5.0 5.0 5.0 1.0 SetParameter Scale4 3.0 3.0 3.0 1.0 SetParameter Colour1 1.0 0.22 0.07 1.0 SetParameter Colour2 1.0 0.22 0.07 1.0 SetParameter Colour3 1.0 0.22 0.07 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Lifetime 0.2 0.7 3.2 4.2 SetParameter Text FAILED! FRE SetParameter TEXT ÉCHEC! GER SetParameter Text VERLOREN! SPA SetParameter Text ¡FALLASTE! ITA SetParameter TEXT HAI_FALLITO! POL SetParameter TEXT Klêska SendMessage CREATETEXT GotoLoop FAIL EndIf If Z BecomesEqualTo 7 Then SetParameter Colour1 1.0 0.22 0.07 1.0 SetParameter Colour2 1.0 0.22 0.07 1.0 SetParameter Colour3 1.0 0.22 0.07 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Scale1 0.2 0.2 0.2 0.0 SetParameter Scale2 1.0 1.0 1.0 0.0 SetParameter Justify Centre SetParameter Position 0.0 125.0 0.0 0.0 SetParameter Lifetime 0.2 0.6 3.0 3.5 SetParameter Text The_skies_will_never_clear_again FRE SetParameter TEXT Le_ciel_ne_se_dégagera_pas GER SetParameter Text Der_Himmel_klärt_nie_wieder_auf! SPA SetParameter Text El_cielo_no_se_va_a_despejar_jamás. ITA SetParameter TEXT Il_cielo_non_si_sgombererà_più POL SetParameter Scale1 0.8 0.8 0.8 0.8 POL SetParameter Scale2 0.8 0.8 0.8 0.8 POL SetParameter Scale3 0.8 0.8 0.8 0.8 POL SetParameter Scale4 0.8 0.8 0.8 0.8 POL SetParameter Scale5 0.8 0.8 0.8 0.8 POL SetParameter TEXT Niebo_ju¿_nigdy_nie_bêdzie_takie_czyste. SendMessage CREATETEXT POL SetParameter Scale1 1.0 1.0 1.0 1.0 POL SetParameter Scale2 1.0 1.0 1.0 1.0 POL SetParameter Scale3 1.0 1.0 1.0 1.0 POL SetParameter Scale4 1.0 1.0 1.0 1.0 POL SetParameter Scale5 1.0 1.0 1.0 1.0 EndIf OnMessage TIMER1 Do Add 1 To Z If Q IsEqualTo 0 Then If Y IsEqualTo 0 Then If E IsGreaterThanOrEqualTo A Then SetParameter POSITION C D 1 0 SendMessage DETONATEBLOCK ReadFromBuffer STR0 Into C ReadFromBuffer STR0 Into D If C IsGreaterThanOrEqualTo 0 Then SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If C IsLessThan 0 Then ResetBuffer STR0 Randomise A FROM 1 To 100 Randomise Y FROM 0 To 8 SET E TO 0 Endif EndIf EndIf If Y IsEqualTo 1 Then If E IsGreaterThanOrEqualTo A Then SetParameter POSITION C D 1 0 SendMessage DETONATEBLOCK ReadFromBuffer STR1 Into C ReadFromBuffer STR1 Into D If C IsGreaterThanOrEqualTo 0 Then SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If C IsLessThan 0 Then ResetBuffer STR1 Randomise A FROM 1 To 100 Randomise Y FROM 0 To 8 SET E TO 0 Endif EndIf EndIf If Y IsEqualTo 2 Then If E IsGreaterThanOrEqualTo A Then SetParameter POSITION C D 1 0 SendMessage DETONATEBLOCK ReadFromBuffer STR2 Into C ReadFromBuffer STR2 Into D If C IsGreaterThanOrEqualTo 0 Then SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If C IsLessThan 0 Then ResetBuffer STR2 Randomise A FROM 1 To 100 Randomise Y FROM 0 To 8 SET E TO 0 Endif EndIf EndIf If Y IsEqualTo 3 Then If E IsGreaterThanOrEqualTo A Then SetParameter POSITION C D 1 0 SendMessage DETONATEBLOCK ReadFromBuffer STR3 Into C ReadFromBuffer STR3 Into D If C IsGreaterThanOrEqualTo 0 Then SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If C IsLessThan 0 Then ResetBuffer STR3 Randomise A FROM 1 To 100 Randomise Y FROM 0 To 8 SET E TO 0 Endif EndIf EndIf If Y IsEqualTo 4 Then If E IsGreaterThanOrEqualTo A Then SetParameter POSITION C D 1 0 SendMessage DETONATEBLOCK ReadFromBuffer STR4 Into C ReadFromBuffer STR4 Into D If C IsGreaterThanOrEqualTo 0 Then SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If C IsLessThan 0 Then ResetBuffer STR4 Randomise A FROM 1 To 100 Randomise Y FROM 0 To 8 SET E TO 0 Endif EndIf EndIf If Y IsEqualTo 5 Then If E IsGreaterThanOrEqualTo A Then SetParameter POSITION C D 1 0 SendMessage DETONATEBLOCK ReadFromBuffer STR5 Into C ReadFromBuffer STR5 Into D If C IsGreaterThanOrEqualTo 0 Then SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If C IsLessThan 0 Then ResetBuffer STR5 Randomise A FROM 1 To 100 Randomise Y FROM 0 To 8 SET E TO 0 Endif EndIf EndIf If Y IsEqualTo 6 Then If E IsGreaterThanOrEqualTo A Then SetParameter POSITION C D 1 0 SendMessage DETONATEBLOCK ReadFromBuffer STR6 Into C ReadFromBuffer STR6 Into D If C IsGreaterThanOrEqualTo 0 Then SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If C IsLessThan 0 Then ResetBuffer STR6 Randomise A FROM 1 To 100 Randomise Y FROM 0 To 8 SET E TO 0 Endif EndIf EndIf If Y IsEqualTo 7 Then If E IsGreaterThanOrEqualTo A Then SetParameter POSITION C D 1 0 SendMessage DETONATEBLOCK ReadFromBuffer STR7 Into C ReadFromBuffer STR7 Into D If C IsGreaterThanOrEqualTo 0 Then SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If C IsLessThan 0 Then ResetBuffer STR7 Randomise A FROM 1 To 100 Randomise Y FROM 0 To 8 SET E TO 0 Endif EndIf EndIf If Y IsEqualTo 8 Then If E IsGreaterThanOrEqualTo A Then SetParameter POSITION C D 1 0 SendMessage DETONATEBLOCK ReadFromBuffer STR8 Into C ReadFromBuffer STR8 Into D If C IsGreaterThanOrEqualTo 0 Then SetParameter POSITION C D 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If C IsLessThan 0 Then ResetBuffer STR8 Randomise A FROM 1 To 100 Randomise Y FROM 0 To 8 SET E TO 0 Endif EndIf EndIf If B IsEqualTo 0 Then If F IsGreaterThanOrEqualTo I Then SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK ReadFromBuffer STR9 Into G ReadFromBuffer STR9 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If G IsLessThan 0 Then ResetBuffer STR9 Randomise I FROM 1 To 100 Randomise B FROM 0 To 7 SET F TO 0 Endif EndIf EndIf If B IsEqualTo 1 Then If F IsGreaterThanOrEqualTo I Then SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST10 Into G ReadFromBuffer ST10 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If G IsLessThan 0 Then ResetBuffer ST10 Randomise I FROM 1 To 100 Randomise B FROM 0 To 7 SET F TO 0 Endif EndIf EndIf If B IsEqualTo 2 Then If F IsGreaterThanOrEqualTo I Then SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST11 Into G ReadFromBuffer ST11 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If G IsLessThan 0 Then ResetBuffer ST11 Randomise I FROM 1 To 100 Randomise B FROM 0 To 7 SET F TO 0 Endif EndIf EndIf If B IsEqualTo 3 Then If F IsGreaterThanOrEqualTo I Then SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST12 Into C ReadFromBuffer ST12 Into D If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If G IsLessThan 0 Then ResetBuffer ST12 Randomise I FROM 1 To 100 Randomise B FROM 0 To 7 SET F TO 0 Endif EndIf EndIf If B IsEqualTo 4 Then If F IsGreaterThanOrEqualTo I Then SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST13 Into G ReadFromBuffer ST13 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If G IsLessThan 0 Then ResetBuffer ST13 Randomise I FROM 1 To 100 Randomise B FROM 0 To 7 SET F TO 0 Endif EndIf EndIf If B IsEqualTo 5 Then If F IsGreaterThanOrEqualTo I Then SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST14 Into G ReadFromBuffer ST14 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If G IsLessThan 0 Then ResetBuffer ST14 Randomise I FROM 1 To 100 Randomise B FROM 0 To 7 SET F TO 0 Endif EndIf EndIf If B IsEqualTo 6 Then If F IsGreaterThanOrEqualTo I Then SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST15 Into G ReadFromBuffer ST15 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If G IsLessThan 0 Then ResetBuffer ST15 Randomise I FROM 1 To 100 Randomise B FROM 0 To 7 SET F TO 0 Endif EndIf EndIf If B IsEqualTo 7 Then If F IsGreaterThanOrEqualTo I Then SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST16 Into G ReadFromBuffer ST16 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If G IsLessThan 0 Then ResetBuffer ST16 Randomise I FROM 1 To 100 Randomise B FROM 0 To 7 SET F TO 0 Endif EndIf EndIf If X IsEqualTo 0 Then If S IsGreaterThanOrEqualTo T Then SetParameter POSITION J K 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST17 Into J ReadFromBuffer ST17 Into K If J IsGreaterThanOrEqualTo 0 Then SetParameter POSITION J K 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If J IsLessThan 0 Then ResetBuffer ST17 Randomise T FROM 1 To 100 Randomise X FROM 0 To 6 SET S TO 0 Endif EndIf EndIf If X IsEqualTo 1 Then If S IsGreaterThanOrEqualTo T Then SetParameter POSITION J K 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST18 Into J ReadFromBuffer ST18 Into K If J IsGreaterThanOrEqualTo 0 Then SetParameter POSITION J K 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If J IsLessThan 0 Then ResetBuffer ST18 Randomise T FROM 1 To 100 Randomise X FROM 0 To 6 SET S TO 0 Endif EndIf EndIf If X IsEqualTo 2 Then If S IsGreaterThanOrEqualTo T Then SetParameter POSITION J K 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST19 Into J ReadFromBuffer ST19 Into K If J IsGreaterThanOrEqualTo 0 Then SetParameter POSITION J K 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If J IsLessThan 0 Then ResetBuffer ST19 Randomise T FROM 1 To 100 Randomise X FROM 0 To 6 SET S TO 0 Endif EndIf EndIf If X IsEqualTo 3 Then If S IsGreaterThanOrEqualTo T Then SetParameter POSITION J K 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST20 Into J ReadFromBuffer ST20 Into K If J IsGreaterThanOrEqualTo 0 Then SetParameter POSITION J K 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If J IsLessThan 0 Then ResetBuffer ST20 Randomise T FROM 1 To 100 Randomise X FROM 0 To 6 SET S TO 0 Endif EndIf EndIf If X IsEqualTo 4 Then If S IsGreaterThanOrEqualTo T Then SetParameter POSITION J K 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST21 Into J ReadFromBuffer ST21 Into K If J IsGreaterThanOrEqualTo 0 Then SetParameter POSITION J K 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If J IsLessThan 0 Then ResetBuffer ST21 Randomise T FROM 1 To 100 Randomise X FROM 0 To 6 SET S TO 0 Endif EndIf EndIf If X IsEqualTo 5 Then If S IsGreaterThanOrEqualTo T Then SetParameter POSITION J K 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST22 Into J ReadFromBuffer ST22 Into K If J IsGreaterThanOrEqualTo 0 Then SetParameter POSITION J K 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If J IsLessThan 0 Then ResetBuffer ST22 Randomise T FROM 1 To 100 Randomise X FROM 0 To 6 SET S TO 0 Endif EndIf EndIf If X IsEqualTo 6 Then If S IsGreaterThanOrEqualTo T Then SetParameter POSITION J K 1 0 SendMessage DETONATEBLOCK ReadFromBuffer ST23 Into J ReadFromBuffer ST23 Into K If J IsGreaterThanOrEqualTo 0 Then SetParameter POSITION J K 0 0 SetParameter BlockColour RED SendMessage SPAWNINBLOCK Endif If J IsLessThan 0 Then ResetBuffer ST23 Randomise T FROM 1 To 100 Randomise X FROM 0 To 6 SET S TO 0 Endif EndIf EndIf Add 1 To S Add 1 To E Add 1 To F EndIf EndResponse GoSubLoop CHECK OnMessage TIMER2 Do GoSubLoop CRATES EndResponse EndLoop Loop CHECK Do If P BecomesEqualTo 1 Then SetParameter Colour1 1.0 0.86 0.03 1.0 SetParameter Colour2 1.0 0.86 0.03 1.0 SetParameter Colour3 1.0 0.86 0.03 1.0 SetParameter Position 0.0 175.0 0.0 0.0 SetParameter Lifetime 0.2 0.6 0.7 1.5 SetParameter Text WOW!_You_got_one FRE SetParameter TEXT Wouah!_Bien_visé! GER SetParameter Text WOW!_Du_hast_einen SPA SetParameter Text ¡Bien!_Ya_has_conseguido_una. ITA SetParameter TEXT WOW!_Ne_hai_preso_uno! POL SetParameter TEXT O!_Trafi³eœ SendMessage CREATETEXT EndIf If P BecomesEqualTo 2 Then SetParameter Colour1 1.0 0.86 0.03 1.0 SetParameter Colour2 1.0 0.86 0.03 1.0 SetParameter Colour3 1.0 0.86 0.03 1.0 SetParameter Position 0.0 175.0 0.0 0.0 SetParameter Lifetime 0.2 0.6 0.7 1.5 SetParameter Text Good_shot! FRE SetParameter TEXT Beau_tir! GER SetParameter Text Guter_Schuss SPA SetParameter Text ¡Buen_disparo! ITA SetParameter TEXt Bel_colpo! POL SetParameter TEXT Dobry_strza³ SendMessage CREATETEXT EndIf If P BecomesEqualTo 3 Then SetParameter Colour1 1.0 0.86 0.03 1.0 SetParameter Colour2 1.0 0.86 0.03 1.0 SetParameter Colour3 1.0 0.86 0.03 1.0 SetParameter Position 0.0 175.0 0.0 0.0 SetParameter Lifetime 0.2 0.6 0.7 1.5 SetParameter Text Just_2_more_to_go! FRE SetParameter TEXT Encore_2_et_c'est_bon! GER SetParameter Text Nur_noch_2_mehr! SPA SetParameter Text ¡Sólo_te_faltan_dos! ITA SetParameter TEXT Ancora_altri_2! POL SetParameter TEXT Jeszcze_tylko_2 SendMessage CREATETEXT EndIf If P BecomesEqualTo 4 Then SetParameter Colour1 1.0 0.86 0.03 1.0 SetParameter Colour2 1.0 0.86 0.03 1.0 SetParameter Colour3 1.0 0.86 0.03 1.0 SetParameter Position 0.0 175.0 0.0 0.0 SetParameter Lifetime 0.2 0.6 0.7 1.5 SetParameter Text Nearly_there! FRE SetParameter TEXT C'est_presque_ça! GER SetParameter Text Fast_geschafft! SPA SetParameter Text ¡Ya_casi_lo_tienes! ITA SetParameter TEXt Ci_sei_quasi! POL SetParameter TEXT Prawie SendMessage CREATETEXT EndIf If P BecomesEqualTo 5 Then Set Z To 0 SendMessage MUSIC_GROOVE_LOW SendMessage CLEARPROJECTILES SendMessage FIRINGOFF SetParameter Position 0.0 0.0 0.0 0.0 SetParameter Lifetime 0.2 0.7 3.2 4.2 SetParameter Scale1 0.4 0.4 0.4 0.0 SetParameter Scale2 1.4 1.4 1.4 0.0 SetParameter Scale3 3.4 3.4 3.4 0.0 SetParameter Scale4 2.0 2.0 2.0 0.0 SetParameter Scale5 1.8 1.8 1.8 0.0 SetParameter Colour1 0.18 0.9 0.1 1.0 SetParameter Colour2 0.18 0.9 0.1 1.0 SetParameter Colour3 0.18 0.9 0.1 1.0 SetParameter Colour4 1.0 1.0 1.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Text SUCCESS! FRE SetParameter TEXT Réussi! GER SetParameter Text Geschafft! SPA SetParameter Text ¡Lo_conseguiste! ITA SetParameter TEXT HAI_VINTO! POL SetParameter TEXT Sukces SendMessage CREATETEXT GotoLoop WIN EndIf EndLoop Loop CRATES Do Randomise U From 1 To 100 If U BecomesEqualTo 37 Then SetParameter Colour1 0.1 1.0 0.65 1.0 SetParameter Colour2 0.1 1.0 0.65 1.0 SetParameter Colour3 0.1 1.0 0.65 1.0 SetParameter Position 0.0 -100.0 0.0 0.0 SetParameter Lifetime 0.2 0.6 1.5 3.5 SetParameter Text Some_help! FRE SetParameter TEXT De_l'aide! GER SetParameter Text Etwas_Hilfe! SPA SetParameter Text ¡Ayuda! ITA SetParameter TEXT Un_aiuto! POL SetParameter TEXT Pomoc! SendMessage CREATETEXT EndIf If U IsEqualTo 37 Then SetParameter POSITION 1 4 0 0 SetParameter BlockColour CRATE SetParameter CRATECONTENTS CRATE_SPEEDUP SendMessage SPAWNINBLOCK EndIf If U BecomesEqualTo 11 Then SetParameter Colour1 0.1 1.0 0.65 1.0 SetParameter Colour2 0.1 1.0 0.65 1.0 SetParameter Colour3 0.1 1.0 0.65 1.0 SetParameter Position 0.0 -100.0 0.0 0.0 SetParameter Lifetime 0.2 0.6 1.5 3.5 SetParameter Text Gifts! FRE SetParameter TEXT Cadeaux! GER SetParameter Text Geschenke! SPA SetParameter Text ¡Regalos! ITA SetParameter TEXT Regali! POL SetParameter TEXT Prezenty SendMessage CREATETEXT EndIf If U IsEqualTo 11 Then SetParameter POSITION 19 4 0 0 SetParameter BlockColour CRATE SetParameter CRATECONTENTS CRATE_SPEEDUP SendMessage SPAWNINBLOCK EndIf If U BecomesEqualTo 45 Then SetParameter Colour1 0.1 1.0 0.65 1.0 SetParameter Colour2 0.1 1.0 0.65 1.0 SetParameter Colour3 0.1 1.0 0.65 1.0 SetParameter Position 0.0 -100.0 0.0 0.0 SetParameter Lifetime 0.2 0.6 1.5 3.5 SetParameter Text Gifts! FRE SetParameter TEXT Cadeaux! GER SetParameter Text Geschenke! SPA SetParameter Text ¡Regalos! ITA SetParameter TEXT Regali! POL SetParameter TEXT Prezenty SendMessage CREATETEXT EndIf If U IsEqualTo 45 Then SetParameter POSITION 1 4 0 0 SetParameter BlockColour CRATE SetParameter CRATECONTENTS CRATE_BOATREPAIR SendMessage SPAWNINBLOCK EndIf If U BecomesEqualTo 91 Then SetParameter Colour1 0.1 1.0 0.65 1.0 SetParameter Colour2 0.1 1.0 0.65 1.0 SetParameter Colour3 0.1 1.0 0.65 1.0 SetParameter Position 0.0 -100.0 0.0 0.0 SetParameter Lifetime 0.2 0.6 1.5 3.5 SetParameter Text Some_help! FRE SetParameter TEXT De_l'aide! GER SetParameter Text Etwas_Hilfe! SPA SetParameter Text ¡Ayuda! ITA SetParameter TEXT Un_aiuto! POL SetParameter TEXT Pomoc! SendMessage CREATETEXT EndIf If U IsEqualTo 91 Then SetParameter POSITION 19 4 0 0 SetParameter BlockColour CRATE SetParameter CRATECONTENTS CRATE_BOATREPAIR SendMessage SPAWNINBLOCK EndIf EndLoop Loop WIN Do SetParameter POSITION 0 0 1 0 SetParameter BLOCKCOLOUR ALLCOLOURS SendMessage ClearBlocks OnMessage TIMER3 Do Add 1 To Z EndResponse If Z BecomesEqualTo 4 Then SetParameter TEXT Team17g SendMessage SETNEXTGAMEMODE SendMessage LOSECONDITION EndIf EndLoop Loop FAIL Do SetParameter POSITION 0 0 1 0 SetParameter BLOCKCOLOUR ALLCOLOURS SendMessage ClearBlocks OnMessage TIMER3 Do Add 1 To Z EndResponse If Z BecomesEqualTo 4 Then SendMessage LOSECONDITION EndIf EndLoop EndFile