GameMode Volcano GameType QUEST DESTROYOWNTARGETCOUNTER T DESTROYENEMYTARGETCOUNTER T LANDDROPPEDINWATERCOUNTER L LIVESREMAINING02COUNTER M Program0123 TEXTBUFFER LEVS Volcano.wbl ENDBUFFER / Volcano level author pd/ DATABUFFER VOL1 12 11 12 10 12 9 12 8 12 7 12 6 12 5 -1 -1 ENDBUFFER DATABUFFER ARC1 12 4 11 3 10 3 10 2 9 2 8 1 7 1 7 2 6 2 5 3 4 3 4 4 3 4 2 5 2 6 1 7 1 8 0 10 -1 -1 ENDBUFFER DATABUFFER ARC2 12 4 11 3 10 3 10 2 9 2 8 1 7 1 7 2 6 2 5 3 4 3 4 4 3 4 2 5 2 6 2 7 2 8 2 10 -1 -1 ENDBUFFER DATABUFFER ARC3 12 4 11 3 10 3 10 2 9 2 8 2 7 3 6 3 5 3 5 4 4 5 3 7 -1 -1 ENDBUFFER DATABUFFER ARC4 12 4 11 3 10 3 10 2 9 2 8 2 7 3 6 3 6 4 5 5 5 6 4 8 -1 -1 ENDBUFFER DATABUFFER ARC5 12 4 11 3 10 3 10 2 9 2 8 2 7 3 7 4 6 5 6 6 5 8 -1 -1 ENDBUFFER DATABUFFER ARC6 12 4 11 3 10 3 9 3 8 3 8 4 7 4 6 5 6 6 6 8 -1 -1 ENDBUFFER DATABUFFER ARC7 12 4 11 3 10 3 9 3 9 4 8 5 7 7 -1 -1 ENDBUFFER DATABUFFER ARC8 12 4 11 3 10 3 9 3 8 5 -1 -1 ENDBUFFER DATABUFFER ARC9 12 4 11 3 10 3 9 4 -1 -1 ENDBUFFER DATABUFFER AR10 12 4 11 3 10 1 -1 -1 ENDBUFFER DATABUFFER AR11 12 4 12 3 11 1 -1 -1 ENDBUFFER DATABUFFER AR12 13 4 12 3 12 1 -1 -1 ENDBUFFER DATABUFFER AR13 13 4 12 3 13 1 -1 -1 ENDBUFFER DATABUFFER AR14 13 4 13 3 14 1 -1 -1 ENDBUFFER DATABUFFER AR15 13 4 13 3 14 3 15 1 -1 -1 ENDBUFFER DATABUFFER AR16 13 4 13 3 14 2 15 2 16 4 -1 -1 ENDBUFFER DATABUFFER AR17 13 4 13 3 14 3 15 3 16 4 17 6 -1 -1 ENDBUFFER DATABUFFER AR18 13 4 13 3 14 3 15 2 16 2 16 1 17 1 18 3 -1 -1 ENDBUFFER DATABUFFER AR19 13 4 13 3 14 3 15 2 16 2 16 1 17 1 18 2 19 3 -1 -1 ENDBUFFER DATABUFFER AR20 13 4 13 3 14 3 15 2 16 2 16 1 17 1 18 2 19 2 20 3 -1 -1 ENDBUFFER DATABUFFER AR21 13 4 13 3 14 3 15 2 16 2 16 1 17 1 18 2 19 2 19 3 20 3 21 5 -1 -1 ENDBUFFER DATABUFFER AR22 13 4 13 3 14 3 15 2 16 2 16 1 17 1 18 2 19 2 19 3 20 3 21 4 22 6 -1 -1 ENDBUFFER DATABUFFER AR23 13 4 13 3 14 3 15 2 16 2 16 1 17 1 18 2 19 2 19 3 20 3 21 4 22 4 23 6 -1 -1 ENDBUFFER DATABUFFER AR24 13 4 13 3 14 3 15 2 16 2 16 1 17 1 18 2 19 2 19 3 20 3 21 4 22 4 23 4 23 5 24 7 -1 -1 ENDBUFFER DATABUFFER TARG 5 12 5 11 6 10 6 9 7 9 8 8 8 7 9 6 10 6 10 5 13 5 14 5 15 6 15 7 16 8 17 8 17 9 18 9 19 10 19 11 20 12 ENDBUFFER DATABUFFER RAND 0 12 3 4 22 8 24 14 15 5 6 7 19 20 21 9 10 11 13 1 2 18 23 16 17 ENDBUFFER Loop INIT Do SendMessage DEACTIVATESCORE SetParameter SCALE1 0.0 0.95 0.0 0.0 SendMessage SETBLOCKYSCALE SetParameter Position 0 -130 0 0 SendMessage CHANGEWATERHEIGHT SetParameter POSITION 0 0 0 0 SetParameter PLAYERNUM 0 SendMessage SETBOATPOSITION SetParameter TEXT Volcano.wbw SendMessage LOADWEAPONLIST SetParameter LIVES 0 SendMessage SETLIVES SetParameter NUMLINES 20 SendMessage SetStartLines SetParameter BACKDROP BACKDROP4 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 FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER3 SetParameter INTERVAL 1000 SetParameter REPEAT TRUE SendMessage CREATETIMER SET A TO 0 SET B TO 0 SET C TO 0 SET D TO 0 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 0 SET P TO 0 SET T TO 0 SET U TO 5 SET V TO 0 SET X TO 0 SET Y TO 23 SET W TO 0 SET Z TO 0 ResetBuffer VOL1 ResetBuffer ARC1 ResetBuffer ARC2 ResetBuffer ARC3 ResetBuffer ARC4 ResetBuffer ARC5 ResetBuffer ARC6 ResetBuffer ARC7 ResetBuffer ARC8 ResetBuffer ARC9 ResetBuffer AR10 ResetBuffer AR11 ResetBuffer AR12 ResetBuffer AR13 ResetBuffer AR14 ResetBuffer AR15 ResetBuffer AR16 ResetBuffer AR17 ResetBuffer AR18 ResetBuffer AR19 ResetBuffer AR20 ResetBuffer AR21 ResetBuffer AR22 ResetBuffer AR23 ResetBuffer AR24 ResetBuffer TARG ResetBuffer RAND SendMessage MUSIC_GROOVE_LOW ResetBuffer VOL1 Randomise E FROM 1 To 25 Set F To 0 Randomise D From 1 To 100 SendMessage StartBriefing SendMessage FIRINGOFF GotoLoop MAIN EndLoop Loop MAIN 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 Volcano FRE SetParameter TEXT Volcan ITA SetParameter TEXT Vulcano SPA SetParameter TEXT Volcán GER SetParameter TEXT Vulkan POL SetParameter TEXT Wulkan 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_30_targets! FRE SetParameter TEXT Détruisez_30_cibles_! ITA SetParameter TEXT Distruggi_30_bersagli! SPA SetParameter TEXT ¡Destruye_30_dianas! GER SetParameter TEXT Zerstöre_30_Ziele! POL SetParameter TEXT Zniszcz_30_celów SendMessage CREATETEXT SetParameter Position 0.0 80.0 0.0 0.0 SetParameter Text Clear_the_volcano_and_new_land FRE SetParameter TEXT Déblayez_le_volcan_et_une_nouvelle_terre ITA SetParameter TEXT Libera_il_vulcano_per_far_sbriciolare SPA SetParameter TEXT Sólo_vencerás_al_volcán_si_te_proteges GER SetParameter TEXT Räum_den_Vulkan_ab_und_neues_Land POL SetParameter TEXT Usuñ_wulkan_i_czyœæ_teren SendMessage CREATETEXT SetParameter Position 0.0 45.0 0.0 0.0 SetParameter Text below_you_will_crumble_away! FRE SetParameter TEXT au-dessous_de_vous_s'effondrera_! ITA SetParameter TEXT il_terreno_sotto_di_te! SPA SetParameter TEXT de_la_lava_que_cae_y_vigilas_el_nuevo GER SetParameter TEXT entsteht_unter_dir! POL SetParameter TEXT nim_odczo³gasz_siê_dalej SendMessage CREATETEXT SetParameter Position 0.0 10.0 0.0 0.0 SetParameter Text But_beware_as_this_is_only_Temporary. FRE SetParameter TEXT Mais_attention_:_ceci_est_temporaire. ITA SetParameter TEXT Ricorda_che_l'effetto_è_temporaneo. SPA SetParameter TEXT fondo_marino_que_se_va_formando. GER SetParameter TEXT Pass_auf,_dass_du_nicht_auf_Grund_läufst. POL SetParameter TEXT Ale_uwa¿aj,_to_jest_tylko_chwilowe. 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 GER SetParameter TEXT Zum_Starten_Feuer_drücken FRE SetParameter TEXT Appuyez_sur_Tir_pour_commencer. 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 SetParameter Velocity 0.0 0.0 0.0 0.0 SetParameter Gravity 0.0 0.0 0.0 0.0 OnMessage FIREPRESSED Do SendMessage EndBriefing SendMessage FIRINGON GotoLoop MAIN2 EndResponse EndLoop Loop MAIN2 Do SetParameter POSITION 7 9 0 0 SetParameter BlockColour TARGET SendMessage SPAWNINBLOCK SetParameter POSITION 10 6 0 0 SetParameter BlockColour TARGET SendMessage SPAWNINBLOCK SetParameter POSITION 11 5 0 0 SetParameter BlockColour TARGET SendMessage SPAWNINBLOCK SetParameter POSITION 13 5 0 0 SetParameter BlockColour TARGET SendMessage SPAWNINBLOCK SetParameter POSITION 16 8 0 0 SetParameter BlockColour TARGET SendMessage SPAWNINBLOCK SetParameter POSITION 17 9 0 0 SetParameter BlockColour TARGET SendMessage SPAWNINBLOCK Set V To 6 GotoLoop MAIN1 EndLoop Loop MAIN1 Do If M BecomesEqualTo -1 Then Set Z To 0 SendMessage FIRINGOFF SendMessage CLEARPROJECTILES SendMessage MUSIC_GROOVE_LOW SetParameter BLOCKCOLOUR ALLCOLOURS SENDMESSAGE CLEARBLOCKS GotoLoop FAIL EndIf If T IsEqualTo 30 Then Set Z To 0 SendMessage CLEARPROJECTILES SendMessage MUSIC_GROOVE_LOW SetParameter BLOCKCOLOUR ALLCOLOURS SENDMESSAGE CLEARBLOCKS SendMessage MUSIC_GROOVE_LOW SendMessage FIRINGOFF GotoLoop WIN EndIf SetParameter Position 0 -130 0 0 SendMessage CHANGEWATERHEIGHT GoSubLoop TEXT If L IsGreaterThanOrEqualTo 1 / check to see if land block has fallen into water / Then If P IsGreaterThanOrEqualTo 25 Then Subtract 1 From Y Set P To 0 GoSubLoop LAND EndIf If P IsLessThan 25 Then GoSubLoop LAND EndIf Set L To 0 EndIf / ***************************** Check for targets and then place more****************************/ If T BecomesGreaterThan R / send text to screen if target is hit / Then Randomise C From 1 To 2 If C IsEqualTo 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 50.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é_! ITA SetParameter TEXT WOW!_Ne_hai_preso_uno! SPA SetParameter TEXT ¡Bien!_Has_conseguido_una. GER SetParameter TEXT WOW!_Du_hast_eins POL SetParameter TEXT O!_Trafi³eœ SendMessage CREATETEXT EndIf If C IsEqualTo 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 50.0 0.0 0.0 SetParameter Lifetime 0.2 0.6 0.7 1.5 SetParameter Text Good_shot! FRE SetParameter TEXT Beau_tir_! ITA SetParameter TEXT Bel_colpo! SPA SetParameter TEXT ¡Buen_disparo! GER SetParameter TEXT Guter_Schuss! POL SetParameter TEXT Dobry_strza³ SendMessage CREATETEXT EndIf EndIf While T IsGreaterThan R Do Add 1 To S Add 1 To R EndWhile If S IsEqualTo V Then Set S To 0 Set X To 0 Add 1 To U While X IsLessThan 25 Do SetParameter POSITION X 22 0 0 SendMessage Detonateblock Add 1 To X EndWhile Set Y To 23 Set X To 0 Set V To 0 Set P To 0 Randomise X From 0 To 20 Set N To 0 Set W TO 0 While N IsLessThan 6 Do While W IsLessThan X Do ReadFromBuffer TARG Into A ReadFromBuffer TARG Into B Add 1 To W EndWhile SetParameter POSITION A B 1 0 SendMessage GETBLOCKCOLOUR ReadFromParameter BLOCKCOLOUR INTO Q If Q IsNotEqualTo ORANGE Then If Q IsNotEqualTo TARGET Then SetParameter POSITION A B 1 0 SetParameter BlockColour TARGET SendMessage SPAWNINBLOCK Add 1 To N Add 1 To V EndIf EndIf Randomise X From 0 To 20 Set W To 0 ResetBuffer TARG EndWhile SendMessage MUSIC_GROOVE_LOW Set X To 0 EndIf / ***************** drop crate at random location along the ceiling at random times ************* / OnMessage TIMER3 Do Randomise D From 1 To 100 If D IsEqualTo 1 Then SetParameter POSITION 1 0 0 0 SetParameter BLOCKCOLOUR CRATE SetParameter CRATECONTENTS CRATE_SPEEDUP SendMessage SPAWNINBLOCK GoSubLoop CRATETEXT EndIf If D IsEqualTo 17 Then SetParameter POSITION 1 0 0 0 SetParameter BLOCKCOLOUR CRATE SetParameter CRATECONTENTS CRATE_SHOTGUNORANGE SendMessage SPAWNINBLOCK GoSubLoop CRATETEXT EndIf If D IsEqualTo 23 Then SetParameter POSITION 3 0 0 0 SetParameter BLOCKCOLOUR CRATE SetParameter CRATECONTENTS CRATE_BOATREPAIR SendMessage SPAWNINBLOCK GoSubLoop CRATETEXT EndIf If D IsEqualTo 7 Then SetParameter POSITION 6 0 0 0 SetParameter BLOCKCOLOUR CRATE SetParameter CRATECONTENTS CRATE_SPEEDUP SendMessage SPAWNINBLOCK GoSubLoop CRATETEXT EndIf If D IsEqualTo 11 Then SetParameter POSITION 6 0 0 0 SetParameter BLOCKCOLOUR CRATE SetParameter CRATECONTENTS CRATE_SHOTGUNORANGE SendMessage SPAWNINBLOCK GoSubLoop CRATETEXT EndIf If D IsEqualTo 22 Then SetParameter POSITION 6 0 0 0 SetParameter BLOCKCOLOUR CRATE SetParameter CRATECONTENTS CRATE_BOATREPAIR SendMessage SPAWNINBLOCK GoSubLoop CRATETEXT EndIf If D IsEqualTo 39 Then SetParameter POSITION 11 0 0 0 SetParameter BLOCKCOLOUR CRATE SetParameter CRATECONTENTS CRATE_SPEEDUP SendMessage SPAWNINBLOCK GoSubLoop CRATETEXT EndIf If D IsEqualTo 59 Then SetParameter POSITION 11 0 0 0 SetParameter BLOCKCOLOUR CRATE SetParameter CRATECONTENTS CRATE_SHOTGUNORANGE SendMessage SPAWNINBLOCK GoSubLoop CRATETEXT EndIf If D IsEqualTo 66 Then SetParameter POSITION 11 0 0 0 SetParameter BLOCKCOLOUR CRATE SetParameter CRATECONTENTS CRATE_BOATREPAIR SendMessage SPAWNINBLOCK GoSubLoop CRATETEXT EndIf If D IsEqualTo 80 Then SetParameter POSITION 17 0 0 0 SetParameter BLOCKCOLOUR CRATE SetParameter CRATECONTENTS CRATE_SPEEDUP SendMessage SPAWNINBLOCK GoSubLoop CRATETEXT EndIf If D IsEqualTo 19 Then SetParameter POSITION 17 0 0 0 SetParameter BLOCKCOLOUR CRATE SetParameter CRATECONTENTS CRATE_SHOTGUNORANGE SendMessage SPAWNINBLOCK GoSubLoop CRATETEXT EndIf If D IsEqualTo 92 Then SetParameter POSITION 17 0 0 0 SetParameter BLOCKCOLOUR CRATE SetParameter CRATECONTENTS CRATE_BOATREPAIR SendMessage SPAWNINBLOCK GoSubLoop CRATETEXT EndIf If D IsEqualTo 97 Then SetParameter POSITION 18 0 0 0 SetParameter BLOCKCOLOUR CRATE SetParameter CRATECONTENTS CRATE_SPEEDUP SendMessage SPAWNINBLOCK GoSubLoop CRATETEXT EndIf If D IsEqualTo 51 Then SetParameter POSITION 18 0 0 0 SetParameter BLOCKCOLOUR CRATE SetParameter CRATECONTENTS CRATE_SHOTGUNORANGE SendMessage SPAWNINBLOCK GoSubLoop CRATETEXT EndIf If D IsEqualTo 73 Then SetParameter POSITION 18 0 0 0 SetParameter BLOCKCOLOUR CRATE SetParameter CRATECONTENTS CRATE_BOATREPAIR SendMessage SPAWNINBLOCK GoSubLoop CRATETEXT EndIf EndResponse / ****************************** column 2 at work ************************************* / OnMessage TIMER1 Do Add 1 To F If F IsEqualTo E Then ReadFromBuffer VOL1 Into G ReadFromBuffer VOL1 Into H SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf / ********************************** Bubbling water ****************************/ Randomise X FROM 0 TO 11 SetParameter POSITION X 24 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK SetParameter POSITION X 24 1 0 SendMessage DETONATEBLOCK Randomise X FROM 12 TO 24 SetParameter POSITION X 24 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK SetParameter POSITION X 24 1 0 SendMessage DETONATEBLOCK / ***************************************************************************** / If F IsGreaterThan E Then SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK ReadFromBuffer VOL1 Into G ReadFromBuffer VOL1 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK Endif If G IsLessThan 0 Then Randomise E FROM 1 TO 8 Set F To 0 ResetBuffer VOL1 ResetBuffer ARC1 ResetBuffer ARC2 ResetBuffer ARC3 ResetBuffer ARC4 ResetBuffer ARC5 ResetBuffer ARC6 ResetBuffer ARC7 ResetBuffer ARC8 ResetBuffer ARC9 ResetBuffer AR10 ResetBuffer AR11 ResetBuffer AR12 ResetBuffer AR13 ResetBuffer AR14 ResetBuffer AR15 ResetBuffer AR16 ResetBuffer AR17 ResetBuffer AR18 ResetBuffer AR19 ResetBuffer AR20 ResetBuffer AR21 ResetBuffer AR22 ResetBuffer AR23 ResetBuffer AR24 Randomise G FROM 0 TO 24 If G IsEqualTo 0 Then GotoLoop ARCA EndIf If G IsEqualTo 1 Then GotoLoop ARCB EndIf If G IsEqualTo 2 Then GotoLoop ARCC EndIf If G IsEqualTo 3 Then GotoLoop ARCD EndIf If G IsEqualTo 4 Then GotoLoop ARCE EndIf If G IsEqualTo 5 Then GotoLoop ARCE EndIf If G IsEqualTo 6 Then GotoLoop ARCF EndIf If G IsEqualTo 7 Then GotoLoop ARCG EndIf If G IsEqualTo 8 Then GotoLoop ARCH EndIf If G IsEqualTo 9 Then GotoLoop ARCI EndIf If G IsEqualTo 10 Then GotoLoop AC10 EndIf If G IsEqualTo 11 Then GotoLoop AC11 EndIf If G IsEqualTo 12 Then GotoLoop AC12 EndIf If G IsEqualTo 13 Then GotoLoop AC13 EndIf If G IsEqualTo 14 Then GotoLoop AC14 EndIf If G IsEqualTo 15 Then GotoLoop AC15 EndIf If G IsEqualTo 16 Then GotoLoop AC16 EndIf If G IsEqualTo 17 Then GotoLoop AC17 EndIf If G IsEqualTo 18 Then GotoLoop AC18 EndIf If G IsEqualTo 19 Then GotoLoop AC19 EndIf If G IsEqualTo 20 Then GotoLoop AC20 EndIf If G IsEqualTo 21 Then GotoLoop AC21 EndIf If G IsEqualTo 22 Then GotoLoop AC22 EndIf If G IsEqualTo 23 Then GotoLoop AC23 EndIf If G IsEqualTo 24 Then GotoLoop AC24 EndIf Endif EndIf EndResponse EndLoop Loop ARCA Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer ARC1 Into G ReadFromBuffer ARC1 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer ARC1 ReadFromBuffer ARC1 Into G ReadFromBuffer ARC1 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop ARCB Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer ARC2 Into G ReadFromBuffer ARC2 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer ARC2 ReadFromBuffer ARC2 Into G ReadFromBuffer ARC2 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop ARCC Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer ARC3 Into G ReadFromBuffer ARC3 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer ARC3 ReadFromBuffer ARC3 Into G ReadFromBuffer ARC3 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop ARCD Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer ARC4 Into G ReadFromBuffer ARC4 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer ARC4 ReadFromBuffer ARC4 Into G ReadFromBuffer ARC4 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop ARCE Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer ARC5 Into G ReadFromBuffer ARC5 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer ARC5 ReadFromBuffer ARC5 Into G ReadFromBuffer ARC5 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop ARCF Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer ARC6 Into G ReadFromBuffer ARC6 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer ARC6 ReadFromBuffer ARC6 Into G ReadFromBuffer ARC6 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop ARCG Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer ARC7 Into G ReadFromBuffer ARC7 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer ARC7 ReadFromBuffer ARC7 Into G ReadFromBuffer ARC7 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop ARCH Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer ARC8 Into G ReadFromBuffer ARC8 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer ARC8 ReadFromBuffer ARC8 Into G ReadFromBuffer ARC8 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop ARCI Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer ARC9 Into G ReadFromBuffer ARC9 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer ARC9 ReadFromBuffer ARC9 Into G ReadFromBuffer ARC9 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop AC10 Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer AR10 Into G ReadFromBuffer AR10 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer AR10 ReadFromBuffer AR10 Into G ReadFromBuffer AR10 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop AC11 Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer AR11 Into G ReadFromBuffer AR11 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer AR11 ReadFromBuffer AR11 Into G ReadFromBuffer AR11 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop AC12 Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer AR12 Into G ReadFromBuffer AR12 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer AR12 ReadFromBuffer AR12 Into G ReadFromBuffer AR12 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop AC13 Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer AR13 Into G ReadFromBuffer AR13 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer AR13 ReadFromBuffer AR13 Into G ReadFromBuffer AR13 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop AC14 Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer AR14 Into G ReadFromBuffer AR14 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer AR14 ReadFromBuffer AR14 Into G ReadFromBuffer AR14 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop AC15 Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer AR15 Into G ReadFromBuffer AR15 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer AR15 ReadFromBuffer AR15 Into G ReadFromBuffer AR15 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop AC16 Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer AR16 Into G ReadFromBuffer AR16 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer AR16 ReadFromBuffer AR16 Into G ReadFromBuffer AR16 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop AC17 Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer AR17 Into G ReadFromBuffer AR17 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer AR17 ReadFromBuffer AR17 Into G ReadFromBuffer AR17 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop AC18 Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer AR18 Into G ReadFromBuffer AR18 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer AR18 ReadFromBuffer AR18 Into G ReadFromBuffer AR18 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop AC19 Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer AR19 Into G ReadFromBuffer AR19 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer AR19 ReadFromBuffer AR19 Into G ReadFromBuffer AR19 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop AC20 Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer AR20 Into G ReadFromBuffer AR20 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer AR20 ReadFromBuffer AR20 Into G ReadFromBuffer AR20 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop AC21 Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer AR21 Into G ReadFromBuffer AR21 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer AR21 ReadFromBuffer AR21 Into G ReadFromBuffer AR21 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop AC22 Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer AR22 Into G ReadFromBuffer AR22 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer AR22 ReadFromBuffer AR22 Into G ReadFromBuffer AR22 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop AC23 Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer AR23 Into G ReadFromBuffer AR23 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer AR23 ReadFromBuffer AR23 Into G ReadFromBuffer AR23 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop AC24 Do GoSubLoop TEXT OnMessage TIMER1 Do ReadFromBuffer AR24 Into G ReadFromBuffer AR24 Into H If G IsGreaterThanOrEqualTo 0 Then SetParameter POSITION G H 0 0 SetParameter BlockColour ORANGE SendMessage SPAWNINBLOCK EndIf If G BecomesEqualTo -1 Then ResetBuffer AR24 ReadFromBuffer AR24 Into G ReadFromBuffer AR24 Into H SetParameter POSITION G H 1 0 SendMessage DETONATEBLOCK GotoLoop MAIN1 EndIf EndResponse EndLoop Loop LAND Do GoSubLoop TEXT Set I To 0 While I IsLessThan U Do If P IsLessThan 25 Then ReadFromBuffer RAND Into X SetParameter POSITION X Y 1 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK Add 1 To P Endif Add 1 To I EndWhile If Y BecomesEqualTo 20 Then SendMessage MUSIC_GROOVE_MED EndIf If Y BecomesEqualTo 18 Then SendMessage MUSIC_GROOVE_HIGH EndIf EndLoop Loop TEXT Do SetParameter Scale1 1.0 1.0 1.0 1.0 SetParameter Scale1 1.0 1.0 1.0 1.0 SetParameter Scale1 1.0 1.0 1.0 1.0 SetParameter Scale1 1.0 1.0 1.0 1.0 SetParameter Scale1 1.0 1.0 1.0 1.0 SetParameter Colour3 1.0 1.0 1.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Velocity 0.0 0.0 0.0 0.0 SetParameter Position 220.0 220.0 0.0 0.0 SetParameter Lifetime 0.0 0.0 0.0 0.0 SetParameter FRAME 2 SendMessage CREATEICON SetParameter Scale1 0.8 0.8 0.8 0.8 SetParameter Scale2 0.8 0.8 0.8 0.8 SetParameter Scale3 0.8 0.8 0.8 0.8 SetParameter Scale4 0.8 0.8 0.8 0.8 SetParameter Scale5 0.8 0.8 0.8 0.8 ConvertToText T SetParameter Lifetime 0.0 0.0 0.0 0.0 SetParameter Position 270.0 220.0 0.0 0.0 SendMessage CREATETEXT EndLoop Loop FAIL Do OnMessage TIMER3 Do Add 1 To Z EndResponse If Z BecomesEqualTo 1 Then 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_! ITA SetParameter TEXT HAI_FALLITO! SPA SetParameter TEXT ¡FALLASTE! GER SetParameter TEXT VERLOREN! POL SetParameter TEXT Pora¿ka SendMessage CREATETEXT EndIf If Z BecomesEqualTo 4 Then SendMessage LOSECONDITION EndIf EndLoop Loop WIN Do OnMessage TIMER3 Do Add 1 To Z EndResponse If Z BecomesEqualTo 2 Then SendMessage GAMEOVER EndIf EndLoop Loop CRATETEXT Do GoSubLoop TEXT Randomise D From 1 To 3 If D BecomesEqualTo 1 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 0.0 0.0 0.0 SetParameter Lifetime 0.2 0.6 1.5 3.5 SetParameter Text Prezzies! FRE SetParameter TEXT Surprise_! ITA SetParameter TEXT Premi! SPA SetParameter TEXT ¡Premios! GER SetParameter TEXT Geschenke! POL SetParameter TEXT Nagrody! SendMessage CREATETEXT EndIf If D BecomesEqualTo 2 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 0.0 0.0 0.0 SetParameter Lifetime 0.2 0.6 1.5 3.5 SetParameter Text Gifts! FRE SetParameter TEXT Cadeaux_! ITA SetParameter TEXT Regali! SPA SetParameter TEXT ¡Regalos! GER SetParameter TEXT Geschenke! POL SetParameter TEXT Podarunki! SendMessage CREATETEXT EndIf If D BecomesEqualTo 3 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 0.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_! ITA SetParameter TEXT Un_aiuto! SPA SetParameter TEXT ¡Ayuda! GER SetParameter TEXT Etwas_Hilfe! POL SetParameter TEXT Pomoc! SendMessage CREATETEXT EndIf EndLoop EndFile