GameMode red GameType QUEST LandLinesCounter H RedComboCounter R Program0123 TEXTBUFFER LEVS red.wbl ENDBUFFER Loop INIT Do SendMessage DEACTIVATESCORE SetParameter BACKDROP BACKDROP6 SendMessage SETBACKDROP SetParameter LIVES 0 SendMessage SETLIVES SetParameter NUMLINES 20 SendMessage SetStartLines SetParameter TEXT red.wbw SendMessage LOADWEAPONLIST SetParameter BUFFERNAME LEVS SetParameter NUMLINES 120 SendMessage LOADLEVEL SetParameter Position 0.0 -25.0 0.0 0.0 SetParameter Velocity 0.0 0.01 0.0 0.0 SetParameter Gravity 0.0 0.0 0.0 0.0 SetParameter Scale1 0.5 0.5 0.5 0.0 SetParameter Scale2 1.5 1.5 1.5 0.0 SetParameter Colour1 1.0 1.0 1.0 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 Lifetime 0.1 0.5 1.0 1.5 SetParameter Justify Centre SetParameter POSITION 0 0 0 0 SetParameter PLAYERNUM 0 SendMessage SETBOATPOSITION SetParameter Position 0 -150 0 0 SendMessage CHANGEWATERHEIGHT SendMessage PAUSELANDLEFT SendMessage PAUSELANDRIGHT SendMessage STARTBRIEFING SendMessage FIRINGOFF SetParameter MESSAGE_ID TIMER3 SetParameter INTERVAL 0200 SetParameter REPEAT TRUE SendMessage CreateTimer SendMessage MUSIC_GROOVE_LOW Set S to 0 Set G to 0 Set H to 0 Set R to 0 Set A to 0 Set B to 0 Set C to 0 Set D to 0 Set E to 0 Set F to 0 Set X to 1 SendMessage QUAKENO SendMessage DEACTIVATESCORE GotoLoop CHECK EndLoop Loop CHECK Do OnMessage TIMER3 Do GosubLoop BRIEF EndResponse SetParameter Position 0 -150 0 0 SendMessage CHANGEWATERHEIGHT OnMessage FIREPRESSED Do SendMessage ENDBRIEFING SendMessage FIRINGON SetParameter Lifetime 0.0 0.0 1.0 0.0 SetParameter MESSAGE_ID TIMER1 SetParameter INTERVAL 13000 SetParameter REPEAT TRUE SendMessage CreateTimer SendMessage MUSIC_GROOVE_MED_LOW GotoLoop MAIN1 EndResponse EndLoop Loop BRIEF Do SetParameter JUSTIFY CENTRE SetParameter Lifetime 0.0 0.0 0.2 0.0 SetParameter Scale1 1.0 1.2 1.0 0.0 SetParameter Scale2 1.2 1.2 1.2 0.0 SetParameter Scale3 1.2 1.2 1.2 0.0 SetParameter Scale4 1.2 1.2 1.2 0.0 SetParameter Scale5 1.2 1.2 1.2 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 Position 0.0 180.0 0.0 0.0 SetParameter Text GO_FOR_RED_3_OF_3 POL SetParameter TEXT DALEJ_NA_CZERWONE_3_z_3 FRE SetParameter TEXT ASSAUT_SUR_LE_ROUGE_3_sur_3 ITA SetParameter TEXT CACCIA_AL_ROSSO_3_di_3 SPA SetParameter TEXT A_POR_EL_ROJO_3_de_3 GER SetParameter TEXT TRIFF_ROT_3_von_3 SendMessage CreateText SetParameter Scale1 0.1 0.1 0.1 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 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 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 ITA SetParameter Scale1 0.1 0.1 0.1 0.0 ITA SetParameter Scale2 0.6 0.6 0.6 0.0 ITA SetParameter Scale3 0.6 0.6 0.6 0.0 ITA SetParameter Scale4 0.6 0.6 0.6 0.0 ITA SetParameter Scale5 0.6 0.6 0.6 0.0 SPA SetParameter Scale1 0.1 0.1 0.1 0.0 SPA SetParameter Scale2 0.6 0.6 0.6 0.0 SPA SetParameter Scale3 0.6 0.6 0.6 0.0 SPA SetParameter Scale4 0.6 0.6 0.6 0.0 SPA SetParameter Scale5 0.6 0.6 0.6 0.0 SetParameter Position 0.0 110.0 0.0 0.0 SetParameter Text Your_goal_is_to_hit_the_red_group_of POL SetParameter TEXT Twoje_zadanie_to_trafiać_w_grupy_czerwonych FRE SetParameter TEXT votre_objectif_est_de_détruire_le_groupe_de_blocs_rouges. ITA SetParameter TEXT Il_tuo_scopo_č_colpire_il_gruppo_di_blocchi_rossi. GER SetParameter TEXT Das_Ziel_ist_es_die_roten_Steine_zu_treffen! SPA SetParameter TEXT Tu_objetivo_es_alcanzar_el_grupo_de_bloques_rojos. SendMessage CreateText SetParameter Position 0.0 75.0 0.0 0.0 SetParameter Text blocks!_You_get_just_over_10_seconds_to POL SetParameter TEXT cegieł._MASZ_10_SEKUND_NA_ZNISZCZENIE FRE SetParameter TEXT Vous_n'avez_qu'un_peu ITA SetParameter TEXT Hai_soltanto_dieci_secondi_per_distruggere GER SetParameter TEXT Du_hast_gut_10_Sekunden_Zeit_um_die_roten SPA SetParameter TEXT Sólo_tienes_unos_diez_segundos_para_destruir SendMessage CreateText SetParameter Position 0.0 40.0 0.0 0.0 SetParameter Text destroy_the_blocks_on_each_shape!_Six POL SetParameter TEXT CEGIEŁ_W_KA_DYM_OBIEKCIE._NA FRE SetParameter TEXT plus_de_10_secondes_pour_détruire_les ITA SetParameter TEXT i_blocchi_di_ogni_forma!_In_totale_ci_sono_sei GER SetParameter TEXT Steine_in_jeder_Figur_abzuräumen!_Du_musst SPA SetParameter TEXT los_bloques_rojos_de_cada_forma. SendMessage CreateText SetParameter Position 0.0 5.0 0.0 0.0 SetParameter Text shapes_will_appear_in_total_and_you_must POL SetParameter TEXT EKRANIE_POJAWI_SIĘ_SZEŚĆ_GRUP_CEGIEŁ, FRE SetParameter TEXT blocs_de_chaque_forme._Six_formes ITA SetParameter TEXT forme_e_tu_devi_distruggerne_almeno_cinque, GER SetParameter TEXT mindestens_fünf_der_roten_Steine_in_den SPA SetParameter TEXT Aparecerán_seis_formas_en_total,_ SendMessage CreateText SetParameter Position 0.0 -30.0 0.0 0.0 SetParameter Text complete_at_least_five_of_them_to POL SetParameter TEXT A_TY_MUSISZ_ZNISZCZYĆ_PIĘĆ_ABY_UKOŃCZYĆ FRE SetParameter TEXT apparaîtront_et_vous_devez_en_réussir_au ITA SetParameter TEXT perché_la_missione_sia_considerata GER SetParameter TEXT sechs_verschiedenen_Formen_treffen_um SPA SetParameter TEXT y_deberás_completar_al_menos_cinco_para_ SendMessage CreateText SetParameter Position 0.0 -65.0 0.0 0.0 SetParameter Text complete_the_mission. POL SetParameter TEXT MISJĘ. FRE SetParameter TEXT moins_cinq_pour_réussir_la_mission. ITA SetParameter TEXT superata! GER SetParameter TEXT die_Mission_zu_beenden! SPA SetParameter TEXT superar_la_prueba. SendMessage CreateText SetParameter Scale1 1.0 1.0 1.0 1.0 SetParameter Scale2 1.0 1.0 1.0 1.0 SetParameter Scale3 1.0 1.0 1.0 1.0 SetParameter Scale4 1.0 1.0 1.0 1.0 SetParameter Scale5 1.0 1.0 1.0 1.0 / SetParameter FRAME 7/ SetParameter FRAME 4 SetParameter Position -30.0 -210.0 0.0 0.0 SendMessage CREATEICON SetParameter Scale1 0.5 0.5 0.5 0.5 SetParameter Scale2 0.5 0.5 0.5 0.5 SetParameter Scale3 0.5 0.5 0.5 0.5 SetParameter Scale4 0.5 0.5 0.5 0.5 SetParameter Scale5 0.5 0.5 0.5 0.5 SetParameter Position 0.0 -202.0 0.0 0.0 SetParameter Text ? SendMessage CREATETEXT SetParameter Position 15.0 -202.0 0.0 0.0 SetParameter Text ? SendMessage CREATETEXT SetParameter Position 30.0 -202.0 0.0 0.0 SetParameter Text ? SendMessage CREATETEXT SetParameter Position 0.0 -217.0 0.0 0.0 SendMessage CREATETEXT SetParameter Position 15.0 -217.0 0.0 0.0 SetParameter Text ? SendMessage CREATETEXT SetParameter Position 30.0 -217.0 0.0 0.0 SetParameter Text ? SendMessage CREATETEXT SetParameter Colour1 1.0 0.0 0.0 1.0 SetParameter Colour2 1.0 0.0 0.0 1.0 SetParameter Colour3 1.0 0.0 0.0 1.0 SetParameter Scale1 0.1 0.1 0.1 0.0 SetParameter Scale2 0.7 0.7 0.7 0.0 SetParameter Scale3 0.7 0.7 0.7 0.0 SetParameter Scale4 0.7 0.7 0.7 0.0 SetParameter Scale5 0.7 0.7 0.7 0.0 SetParameter Position 0.0 -115.0 0.0 0.0 SetParameter Text Press_fire_to_start POL SetParameter TEXT Naciśnij_"Strzał FRE SetParameter TEXT Appuyez_sur_Tir_pour_commencer! ITA SetParameter TEXT Premi_fuoco_per_cominciare SPA SetParameter TEXT Pulsa_el_disparo_para_empezar GER SetParameter TEXT Zum_Starten_Feuer_drücken SendMessage CREATETEXT EndLoop Loop WAIT Do OnMessage TIMER2 Do GotoLoop MAIN1 EndResponse EndLoop Loop MAIN1 Do GosubLoop SCORE SetParameter Position 0.0 -150.0 0.0 0.0 SendMessage ChangeWaterHeight If R BecomesGreaterThan 1 Then Add 1 to S Set X to 0 SetParameter Position 0.0 -25.0 0.0 0.0 SetParameter Colour2 1.0 0.0 0.0 1.0 SetParameter Colour3 1.0 0.0 0.0 1.0 SetParameter Scale1 0.1 0.1 0.1 0.0 SetParameter Scale2 0.9 0.9 0.9 0.0 SetParameter Scale3 0.9 0.9 0.9 0.0 SetParameter Scale4 0.9 0.9 0.9 0.0 SetParameter Scale5 0.9 0.9 0.9 0.0 SetParameter Lifetime 0.0 0.0 1.0 0.0 SetParameter Text COMPLETE! POL SetParameter TEXT SUKCES! FRE SetParameter TEXT TERMINÉ! ITA SetParameter TEXT COMPLETATO! SPA SetParameter TEXT ˇTERMINADO! GER SetParameter TEXT KOMPLETT! SendMessage CREATETEXT If G IsEqualTo 0 Then Set A to 1 EndIf If G IsEqualTo 1 Then Set B to 1 EndIf If G IsEqualTo 2 Then Set C to 1 EndIf If G IsEqualTo 3 Then Set D to 1 EndIf If G IsEqualTo 4 Then Set E to 1 EndIf If G IsEqualTo 5 Then Set F to 1 EndIf EndIf OnMessage TIMER1 Do If X IsEqualTo 1 Then If G IsEqualTo 0 Then Set A to 2 EndIf If G IsEqualTo 1 Then Set B to 2 EndIf If G IsEqualTo 2 Then Set C to 2 EndIf If G IsEqualTo 3 Then Set D to 2 EndIf If G IsEqualTo 4 Then Set E to 2 EndIf If G IsEqualTo 5 Then Set F to 2 EndIf EndIf Add 1 to G Set R to 0 GosubLoop DESTROYBLOCKS GotoLoop MAIN2 EndResponse If G BecomesGreaterThan 1 Then SendMessage MUSIC_GROOVE_MED EndIf If G BecomesGreaterThan 2 Then SendMessage MUSIC_GROOVE_MED_HI EndIf If G BecomesGreaterThan 3 Then SendMessage MUSIC_GROOVE_HIGH EndIf If G BecomesGreaterThan 4 Then GotoLoop ENDGAME EndIf EndLoop Loop MAIN2 Do GosubLoop SCORE SetParameter MESSAGE_ID TIMER2 SetParameter INTERVAL 0500 SetParameter REPEAT FALSE SendMessage CreateTimer GotoLoop MAIN2A EndLoop Loop MAIN2A Do GosubLoop SCORE OnMessage TIMER2 Do GotoLoop MAIN3 EndResponse EndLoop Loop MAIN3 Do GosubLoop SCORE SetParameter INTERVAL 0001 SendMessage SetLandSpeed SendMessage UNPAUSELANDLEFT SendMessage UNPAUSELANDRIGHT set H to 0 GotoLoop MAIN4 EndLoop Loop MAIN4 Do GosubLoop SCORE If H IsEqualTo 20 then SetParameter INTERVAL 100000 SendMessage SetLandSpeed SendMessage PAUSELANDLEFT SendMessage PAUSELANDRIGHT Set X to 1 GotoLoop MAIN1 endif EndLoop Loop DESTROYBLOCKS Do GosubLoop SCORE SetParameter Position 0.0 0.0 1.0 0.0 SetParameter BlockColour ALLCOLOURS SendMessage CLEARBLOCKS EndLoop Loop ENDGAME Do GosubLoop SCORE SetParameter Position 0.0 -150.0 0.0 0.0 SendMessage ChangeWaterHeight OnMessage TIMER1 Do SetParameter Position 0.0 0.0 1.0 0.0 SetParameter BlockColour ALLCOLOURS SendMessage CLEARBLOCKS Set R to 0 If X IsEqualTo 1 Then If G IsEqualTo 5 Then Set F to 2 EndIf EndIf GotoLoop DECIDER EndResponse If R BecomesGreaterThan 5 Then Add 1 to S SetParameter Position 0.0 -25.0 0.0 0.0 SetParameter Colour2 1.0 0.0 0.0 1.0 SetParameter Colour3 1.0 0.0 0.0 1.0 SetParameter Lifetime 0.0 0.0 1.0 0.0 SetParameter Scale1 0.1 0.1 0.1 0.0 SetParameter Scale2 0.9 0.9 0.9 0.0 SetParameter Scale3 0.9 0.9 0.9 0.0 SetParameter Scale4 0.9 0.9 0.9 0.0 SetParameter Scale5 0.9 0.9 0.9 0.0 SetParameter Text COMPLETE! POL SetParameter TEXT SUKCES! FRE SetParameter TEXT TERMINÉ! ITA SetParameter TEXT COMPLETATO! SPA SetParameter TEXT ˇTERMINADO! GER SetParameter TEXT KOMPLETT! SendMessage CREATETEXT Set X to 0 If G IsEqualTo 5 Then Set F to 1 EndIf EndIf EndLoop Loop DECIDER Do GosubLoop SCORE If S IsGreaterThanOrEqualTo 5 Then GotoLoop WIN EndIf If S IsLessThan 5 Then GotoLoop LOSE EndIf EndLoop Loop SCORE Do SetParameter Scale1 1.0 1.0 1.0 1.0 SetParameter Scale2 1.0 1.0 1.0 1.0 SetParameter Scale3 1.0 1.0 1.0 1.0 SetParameter Scale4 1.0 1.0 1.0 1.0 SetParameter Scale5 1.0 1.0 1.0 1.0 / SetParameter FRAME 7/ SetParameter FRAME 4 SetParameter Lifetime 0.0 0.0 0.0 0.0 SetParameter Position -30.0 -210.0 0.0 0.0 SendMessage CREATEICON SetParameter Scale1 0.5 0.5 0.5 0.5 SetParameter Scale2 0.5 0.5 0.5 0.5 SetParameter Scale3 0.5 0.5 0.5 0.5 SetParameter Scale4 0.5 0.5 0.5 0.5 SetParameter Scale5 0.5 0.5 0.5 0.5 SetParameter Position 0.0 -202.0 0.0 0.0 SetParameter Text ? If A IsEqualTo 1 Then SetParameter Text X EndIf If A IsEqualTo 2 Then SetParameter Text O EndIf SendMessage CREATETEXT SetParameter Position 15.0 -202.0 0.0 0.0 SetParameter Text ? If B IsEqualTo 1 Then SetParameter Text X EndIf If B IsEqualTo 2 Then SetParameter Text O EndIf SendMessage CREATETEXT SetParameter Position 30.0 -202.0 0.0 0.0 SetParameter Text ? If C IsEqualTo 1 Then SetParameter Text X EndIf If C IsEqualTo 2 Then SetParameter Text O EndIf SendMessage CREATETEXT SetParameter Position 0.0 -217.0 0.0 0.0 SetParameter Text ? If D IsEqualTo 1 Then SetParameter Text X EndIf If D IsEqualTo 2 Then SetParameter Text O EndIf SendMessage CREATETEXT SetParameter Position 15.0 -217.0 0.0 0.0 SetParameter Text ? If E IsEqualTo 1 Then SetParameter Text X EndIf If E IsEqualTo 2 Then SetParameter Text O EndIf SendMessage CREATETEXT SetParameter Position 30.0 -217.0 0.0 0.0 SetParameter Text ? If F IsEqualTo 1 Then SetParameter Text X EndIf If F IsEqualTo 2 Then SetParameter Text O EndIf SendMessage CREATETEXT EndLoop Loop WIN Do GosubLoop SCORE 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 __ POL SetParameter TEXT __ FRE SetParameter TEXT __ ITA SetParameter TEXT __ SPA SetParameter TEXT __ GER SetParameter TEXT __ SendMessage CREATETEXT Set S to 0 Set G to 0 Set H to 0 Set R to 0 SetParameter HIDDEN_ID 4 SendMessage UNLOCKGAMEMODE SendMessage WINCONDITION GotoLoop INFINITE EndLoop Loop LOSE Do GosubLoop SCORE 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! POL SetParameter TEXT Klęska! FRE SetParameter TEXT ÉCHEC! ITA SetParameter TEXT HAI_FALLITO! SPA SetParameter TEXT ˇFALLASTE! GER SetParameter TEXT VERLOREN! Set S to 0 Set G to 0 Set H to 0 Set R to 0 SendMessage CREATETEXT SendMessage LOSECONDITION GotoLoop INFINITE EndLoop Loop INFINITE Do GosubLoop SCORE EndLoop EndFile