GameMode Deathmatch ITA DEATHMATCH GER DEATHMATCH SPA COMBATE_A_MUERTE FRE COMBAT_ŕ_MORT POL Na_śmierć_i_życie GameType VERSUS CpuCanPlay LIVESREMAINING02COUNTER L LIVESREMAINING13COUNTER M Program02 TEXTBUFFER LEVS DMATCH1.wbl DMATCH2.wbl DMATCH3.wbl DMATCH4.wbl DMATCH5.wbl DMATCH6.wbl DMATCH7.wbl DMATCH8.wbl DMATCH9.wbl DMATCH10.wbl DMATCH11.wbl DMATCH12.wbl DMATCH13.wbl DMATCH14.wbl DMATCH15.wbl ENDBUFFER Loop INIT Do Randomise A From 0 To 11 If A IsEqualTo 3 Then Randomise A From 4 To 12 EndIf SetParameter BACKDROP A SendMessage SETBACKDROP SetParameter SCALE1 0.0 0.95 0.0 0.0 SendMessage SETBLOCKYSCALE SetParameter NUMLINES 10 SendMessage SetStartLines SetParameter BUFFERNAME LEVS SetParameter NUMLINES 100 SendMessage LOADLEVEL SetParameter LIVES 1 SendMessage SETLIVES SetParameter NUMWEAPONS 100 SendMessage RANDOMWEAPONS SetParameter MESSAGE_ID TIMER1 SetParameter INTERVAL 10000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER2 SetParameter INTERVAL 70000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER3 SetParameter INTERVAL 130000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER4 SetParameter INTERVAL 190000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER5 SetParameter INTERVAL 250000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter GD_FLOAT 0 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT SET B TO 0 SET L TO 0 SET M TO 0 SendMessage PAUSELANDRIGHT SendMessage PAUSELANDLEFT SendMessage FIRINGOFF SendMessage StartBriefing GotoLoop BRIEF EndLoop Loop BRIEF Do 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 Side Centre SetParameter Position 0.0 180.0 0.0 0.0 SetParameter Text DEATHMATCH ITA SetParameter Text DEATHMATCH GER SetParameter Text DEATHMATCH SPA SetParameter Text COMBATE_A_MUERTE FRE SetParameter Text COMBAT_ŕ_MORT POL SetParameter Text Na_śmierć_i_życie 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 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 Fight_to_the_death ITA SetParameter Text Combatti_fino_alla_morte. GER SetParameter Text Kampf_bis_zum_Tode. SPA SetParameter Text Lucha_a_vida_o_muerte_y_consigue FRE SetParameter Text Combattez_jusqu'_ŕ_la_mort. POL SetParameter Text Walcz_do_upadłego SendMessage CREATETEXT SetParameter Position 0.0 80.0 0.0 0.0 SetParameter Text Collect_the_crates. ITA SetParameter Text Attento_ai_blocchi_rimbalzanti. GER SetParameter Text Sammle_die_Kisten SPA SetParameter Text el_mayor_número_de_cajas. FRE SetParameter Text Récupérez_les_caisses. POL SetParameter Text Zbieraj_skrzynki 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 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.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 ITA SetParameter Text Premi_fuoco_per_cominciare GER SetParameter Text Zum_Starten_Feuer_drücken 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 Set Z To 1 EndResponse If Z BecomesEqualTo 1 Then SendMessage EndBriefing SendMessage FIRINGON SendMessage MUSIC_GROOVE_LOW SendMessage UNPAUSELANDLEFT SendMessage UNPAUSELANDRIGHT SetParameter GD_FLOAT 0.01 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT GotoLoop MAIN Endif EndLoop Loop MAIN Do OnMessage TIMER1 Do SendMessage MUSIC_GROOVE_MED_LOW SetParameter INTERVAL 10000 SendMessage SetLandSpeed EndResponse OnMessage TIMER2 Do SendMessage MUSIC_GROOVE_MED_LOW SetParameter INTERVAL 9000 SendMessage SetLandSpeed EndResponse OnMessage TIMER3 Do SendMessage MUSIC_GROOVE_MED SetParameter INTERVAL 7000 SendMessage SetLandSpeed EndResponse OnMessage TIMER4 Do SendMessage MUSIC_GROOVE_MED_HI SetParameter INTERVAL 6000 SendMessage SetLandSpeed EndResponse OnMessage TIMER5 Do SendMessage MUSIC_GROOVE_HIGH SetParameter INTERVAL 5000 SendMessage SetLandSpeed EndResponse IfEnemy M BecomesEqualto -1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif EndLoop Loop INFINITE Do EndLoop Program13 Loop INIT Do SetParameter SCALE1 0.0 0.95 0.0 0.0 SendMessage SETBLOCKYSCALE SetParameter NUMLINES 10 SendMessage SetStartLines SetParameter BUFFERNAME LEVS SetParameter NUMLINES 100 SendMessage LOADLEVEL SetParameter LIVES 1 SendMessage SETLIVES SetParameter MESSAGE_ID TIMER1 SetParameter INTERVAL 10000 SetParameter REPEAT FALSE SendMessage CREATETIMER SET B TO 0 SET L TO 0 SET M TO 0 GotoLoop BRIEF EndLoop Loop BRIEF Do OnMessage FIREPRESSED Do SetEnemy Z To 1 GotoLoop MAIN EndResponse IFENEMY Z ISEQUALTO 1 Then GotoLoop MAIN EndIf EndLoop Loop MAIN Do OnMessage TIMER1 Do SetParameter INTERVAL 10000 SendMessage SetLandSpeed EndResponse IfEnemy L BecomesEqualto -1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif EndLoop Loop INFINITE Do EndLoop GameMode Star_Collection ITA COLLEZIONARE_STELLE GER STERNE_SAMMELN SPA RECOGIDA_DE_ESTRELLAS FRE COLLECTION_D'éTOILES POL Kolekcja_gwiazd GameType VERSUS CpuCanPlay CollectStarCounter A RedComboCounter C YellowComboCounter D GreenComboCounter E OrangeComboCounter F PurpleComboCounter G LIVESREMAINING02COUNTER L LIVESREMAINING13COUNTER M Program02 TEXTBUFFER LEVS STAR1.wbl STAR2.wbl STAR3.wbl STAR4.wbl STAR5.wbl STAR6.wbl STAR7.wbl STAR8.wbl STAR9.wbl STAR10.wbl ENDBUFFER Loop INIT Do Randomise A From 0 To 11 If A IsEqualTo 3 Then Randomise A From 4 To 12 EndIf SetParameter BACKDROP A SendMessage SETBACKDROP SetParameter SCALE1 0.0 0.95 0.0 0.0 SendMessage SETBLOCKYSCALE SetParameter INTERVAL 10000 SendMessage SetLandSpeed SetParameter NUMLINES 8 SendMessage SetStartLines SetParameter BUFFERNAME LEVS SetParameter NUMLINES 100 SendMessage LOADLEVEL SetParameter LIVES 2 SendMessage SETLIVES SetParameter NUMWEAPONS 100 SendMessage RANDOMWEAPONS SetParameter MESSAGE_ID TIMER1 SetParameter INTERVAL 10000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter GD_FLOAT 0 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT 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 G TO 0 SET L TO 0 SET M TO 0 SendMessage PAUSELANDRIGHT SendMessage PAUSELANDLEFT SendMessage FIRINGOFF SendMessage StartBriefing GotoLoop BRIEF EndLoop Loop BRIEF Do 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 Side Centre SetParameter Position 0.0 180.0 0.0 0.0 SetParameter Text STAR_COLLECTION ITA SetParameter Text COLLEZIONARE_STELLE GER SetParameter Text STERNE_SAMMELN SPA SetParameter Text RECOGIDA_DE_ESTRELLAS FRE SetParameter Text COLLECTION_D'éTOILES POL SetParameter Text Kolekcja_gwiazd 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 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 1st_Person_to_collect ITA SetParameter Text Il_primo_giocatore_che GER SetParameter Text Der_erste_Spieler,_der_5_Sterne SPA SetParameter Text Gana_el_juego_el_primer_jugador FRE SetParameter Text Le_1er_joueur_qui_récupčre POL SetParameter Text Gracz,_który_zbierze SendMessage CREATETEXT SetParameter Position 0.0 80.0 0.0 0.0 SetParameter Text 5_stars_wins. ITA SetParameter Text raccoglie_5_stelle,_vince. GER SetParameter Text aufsammelt,_gewinnt! SPA SetParameter Text que_consiga_cinco_estrellas. FRE SetParameter Text 5_étoiles_gagne POL SetParameter Text 5_gwiazdek,_wygrywa 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 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.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 ITA SetParameter Text Premi_fuoco_per_cominciare GER SetParameter Text Zum_Starten_Feuer_drücken 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 Set Z To 1 EndResponse If Z BecomesEqualTo 1 Then SendMessage EndBriefing SendMessage FIRINGON SendMessage MUSIC_GROOVE_LOW SendMessage UNPAUSELANDLEFT SendMessage UNPAUSELANDRIGHT SetParameter GD_FLOAT 0.01 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT GotoLoop MAIN Endif EndLoop Loop MAIN Do OnMessage TIMER1 Do SendMessage MUSIC_GROOVE_MED_LOW SetParameter INTERVAL 8000 SendMessage SetLandSpeed EndResponse IfEnemy M BecomesEqualto -1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif If A BecomesEqualTo 1 Then SetParameter Position -300.0 40.0 0.0 0.0 SetParameter Lifetime 0.2 0.5 2.5 0.5 SetParameter Velocity 0.4 0.0 0.0 0.0 SetParameter Scale1 2.0 2.0 2.0 0.0 SetParameter Scale2 3.0 3.0 3.0 0.0 SetParameter Colour2 0.86 0.16 0.09 1.0 SetParameter Colour3 0.86 0.16 0.09 1.0 SetParameter Text 4_TO_GO ITA SetParameter Text ANCORA_4 GER SetParameter Text Noch_4 SPA SetParameter Text FALTAN_4 FRE SetParameter Text ENCORE_4 POL SetParameter Text 4_DO_KOŃCA SendMessage CREATETEXT SendMessage MUSIC_GROOVE_MED Endif If A BecomesEqualTo 2 Then SetParameter Position -300.0 0.0 0.0 0.0 SetParameter Lifetime 0.2 0.5 2.5 0.5 SetParameter Velocity 0.4 0.0 0.0 0.0 SetParameter Scale1 2.0 2.0 2.0 0.0 SetParameter Scale2 3.0 3.0 3.0 0.0 SetParameter Colour2 0.86 0.16 0.09 1.0 SetParameter Colour3 0.86 0.16 0.09 1.0 SetParameter Text 3_TO_GO ITA SetParameter Text ANCORA_3 GER SetParameter Text Noch_3 SPA SetParameter Text FALTAN_3 FRE SetParameter Text ENCORE_3 POL SetParameter Text 3_DO_KOŃCA SendMessage CREATETEXT SendMessage MUSIC_GROOVE_MED_HI Endif If A BecomesEqualTo 3 Then SetParameter Position -300.0 40.0 0.0 0.0 SetParameter Lifetime 0.2 0.5 2.5 0.5 SetParameter Velocity 0.4 0.0 0.0 0.0 SetParameter Scale1 2.0 2.0 2.0 0.0 SetParameter Scale2 3.0 3.0 3.0 0.0 SetParameter Colour2 0.86 0.16 0.09 1.0 SetParameter Colour3 0.86 0.16 0.09 1.0 SetParameter Text 2_TO_GO ITA SetParameter Text ANCORA_2 GER SetParameter Text Noch_2 SPA SetParameter Text FALTAN_2 FRE SetParameter Text ENCORE_2 POL SetParameter Text 2_DO_KOŃCA SendMessage CREATETEXT Endif If A BecomesEqualTo 4 Then SetParameter Position -300.0 0.0 0.0 0.0 SetParameter Lifetime 0.2 0.5 2.5 0.5 SetParameter Velocity 0.4 0.0 0.0 0.0 SetParameter Scale1 2.0 2.0 2.0 0.0 SetParameter Scale2 3.0 3.0 3.0 0.0 SetParameter Colour2 0.86 0.16 0.09 1.0 SetParameter Colour3 0.86 0.16 0.09 1.0 SetParameter Text 1_TO_GO ITA SetParameter Text ANCORA_1 GER SetParameter Text Noch_1 SPA SetParameter Text FALTA_1 FRE SetParameter Text ENCORE_1 POL SetParameter Text 1_DO_KOŃCA SendMessage CREATETEXT SendMessage MUSIC_GROOVE_HIGH Endif If A BecomesEqualTo 5 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif EndLoop Loop INFINITE Do EndLoop Loop MAIN5 Do EndLoop Program13 Loop INIT Do SetParameter SCALE1 0.0 0.95 0.0 0.0 SendMessage SETBLOCKYSCALE SetParameter INTERVAL 10000 SendMessage SetLandSpeed SetParameter NUMLINES 8 SendMessage SetStartLines SetParameter BUFFERNAME LEVS SetParameter NUMLINES 100 SendMessage LOADLEVEL SetParameter LIVES 2 SendMessage SETLIVES SetParameter MESSAGE_ID TIMER1 SetParameter INTERVAL 10000 SetParameter REPEAT FALSE SendMessage CREATETIMER 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 G TO 0 SET L TO 0 SET M TO 0 GotoLoop BRIEF EndLoop Loop BRIEF Do OnMessage FIREPRESSED Do SetEnemy Z To 1 GotoLoop MAIN EndResponse IFENEMY Z ISEQUALTO 1 Then GotoLoop MAIN EndIf EndLoop Loop MAIN Do OnMessage TIMER1 Do SetParameter INTERVAL 8000 SendMessage SetLandSpeed EndResponse IfEnemy L BecomesEqualto -1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif If A BecomesEqualTo 1 Then SetParameter Position 340.0 0.0 0.0 0.0 SetParameter Lifetime 0.2 0.5 2.5 0.5 SetParameter Velocity -0.4 0.0 0.0 0.0 SetParameter Colour1 0.64 0.28 1.0 1.0 SetParameter Colour2 0.64 0.28 1.0 1.0 SetParameter Colour3 0.64 0.28 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 2.0 2.0 2.0 0.0 SetParameter Scale2 3.0 3.0 3.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 Text 4_TO_GO ITA SetParameter Text ANCORA_4 GER SetParameter Text Noch_4 SPA SetParameter Text FALTAN_4 FRE SetParameter Text ENCORE_4 POL SetParameter Text 4_DO_KOŃCA SendMessage CREATETEXT Endif If A BecomesEqualTo 2 Then SetParameter Position 300.0 -40.0 0.0 0.0 SetParameter Lifetime 0.2 0.5 2.5 0.5 SetParameter Velocity -0.4 0.0 0.0 0.0 SetParameter Colour1 0.64 0.28 1.0 1.0 SetParameter Colour2 0.64 0.28 1.0 1.0 SetParameter Colour3 0.64 0.28 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 2.0 2.0 2.0 0.0 SetParameter Scale2 3.0 3.0 3.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 Text 3_TO_GO ITA SetParameter Text ANCORA_3 GER SetParameter Text Noch_3 SPA SetParameter Text FALTAN_3 FRE SetParameter Text ENCORE_3 POL SetParameter Text 3_DO_KOŃCA SendMessage CREATETEXT Endif If A BecomesEqualTo 3 Then SetParameter Position 300.0 0.0 0.0 0.0 SetParameter Lifetime 0.2 0.5 2.5 0.5 SetParameter Velocity -0.4 0.0 0.0 0.0 SetParameter Colour1 0.64 0.28 1.0 1.0 SetParameter Colour2 0.64 0.28 1.0 1.0 SetParameter Colour3 0.64 0.28 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 2.0 2.0 2.0 0.0 SetParameter Scale2 3.0 3.0 3.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 Text 2_TO_GO ITA SetParameter Text ANCORA_2 GER SetParameter Text Noch_2 SPA SetParameter Text FALTAN_2 FRE SetParameter Text ENCORE_2 POL SetParameter Text 2_DO_KOŃCA SendMessage CREATETEXT Endif If A BecomesEqualTo 4 Then SetParameter Position 300.0 -40.0 0.0 0.0 SetParameter Lifetime 0.2 0.5 2.5 0.5 SetParameter Velocity -0.4 0.0 0.0 0.0 SetParameter Colour1 0.64 0.28 1.0 1.0 SetParameter Colour2 0.64 0.28 1.0 1.0 SetParameter Colour3 0.64 0.28 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 2.0 2.0 2.0 0.0 SetParameter Scale2 3.0 3.0 3.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 Text 1_TO_GO ITA SetParameter Text ANCORA_1 GER SetParameter Text Noch_1 SPA SetParameter Text FALTAN_1 FRE SetParameter Text ENCORE_1 POL SetParameter Text 1_DO_KOŃCA SendMessage CREATETEXT Endif If A BecomesEqualTo 5 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif EndLoop Loop INFINITE Do EndLoop Loop MAIN5 Do EndLoop GameMode Tide_Trial ITA SFIDA_ALLA_MAREA GER KAMPF_MIT_DEN_GEZEITEN SPA LUCHA_CONTRA_LA_MAREA FRE ÉPREUVE_DE_LA_MARéE POL Próbny_zjazd GameType VERSUS CpuCanPlay WaterHeightCounter H LIVESREMAINING02COUNTER L LIVESREMAINING13COUNTER M Program02 TEXTBUFFER LEVS TIDE1.wbl TIDE2.wbl TIDE3.wbl TIDE4.wbl TIDE5.wbl TIDE6.wbl TIDE7.wbl TIDE8.wbl TIDE9.wbl TIDE10.wbl ENDBUFFER Loop INIT Do Randomise A From 0 To 11 If A IsEqualTo 3 Then Randomise A From 4 To 12 EndIf SetParameter BACKDROP A SendMessage SETBACKDROP SetParameter SCALE1 0.0 0.95 0.0 0.0 SendMessage SETBLOCKYSCALE SetParameter NUMLINES 10 SendMessage SetStartLines SetParameter BUFFERNAME LEVS SetParameter NUMLINES 100 SendMessage LOADLEVEL SetParameter NUMWEAPONS 100 SendMessage RANDOMWEAPONS SetParameter MESSAGE_ID TIMER1 SetParameter INTERVAL 2000 SetParameter REPEAT TRUE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER2 SetParameter INTERVAL 10000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER3 SetParameter INTERVAL 40000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER4 SetParameter INTERVAL 70000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER5 SetParameter INTERVAL 90000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter LIVES 0 SendMessage SETLIVES SetParameter GD_FLOAT 0 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT SET L To 0 SET M TO 0 SET B TO 0 SET C To 0 SendMessage PAUSELANDRIGHT SendMessage PAUSELANDLEFT SendMessage FIRINGOFF SendMessage StartBriefing GotoLoop BRIEF EndLoop Loop BRIEF Do 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 Side Centre SetParameter Position 0.0 180.0 0.0 0.0 SetParameter Text TIDE_TRIAL ITA SetParameter Text SFIDA_ALLA_MAREA GER SetParameter Text KAMPF_MIT_DEN_GEZEITEN SPA SetParameter Text LUCHA_CONTRA_LA_MAREA FRE SetParameter Text ÉPREUVE_DE_LA_MARÉE POL SetParameter Text Próbny_zjazd 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 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 Keep_collecting_stars_to ITA SetParameter Text Raccogli_le_stelle_per_battere GER SetParameter Text Das_Sammeln_von_Sternen SPA SetParameter Text Consigue_todas_las_estrellas_que_puedas FRE SetParameter Text Récupérez_les_étoiles_pour POL SetParameter Text Zbieraj_gwiazdki,_aby_walczyć SendMessage CREATETEXT SetParameter Position 0.0 80.0 0.0 0.0 SetParameter Text battle_the_rising_water. ITA SetParameter Text la_marea_che_si_alza. GER SetParameter Text bekämpft_das_steigende_Wasser. SPA SetParameter Text para_evitar_que_suba_el_agua. FRE SetParameter Text lutter_contre_l'eau_qui_monte. POL SetParameter Text z_podnoszącą_się_wodą 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 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.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 ITA SetParameter Text Premi_fuoco_per_cominciare GER SetParameter Text Zum_Starten_Feuer_drücken 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 Set Z To 1 EndResponse If Z BecomesEqualTo 1 Then SendMessage EndBriefing SendMessage FIRINGON SendMessage MUSIC_GROOVE_LOW SendMessage UNPAUSELANDLEFT SendMessage UNPAUSELANDRIGHT SendMessage CLOSEDIVIDER GotoLoop MAIN Endif EndLoop Loop MAIN Do IfEnemy M BecomesEqualto -1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif OnMessage TIMER1 Do Add 3 To H SetParameter Position 0.0 H 0.0 0.0 SendMessage ChangeWaterHeight EndResponse OnMessage TIMER2 Do SendMessage MUSIC_GROOVE_MED_LOW SetParameter INTERVAL 5000 SendMessage SetLandSpeed EndResponse OnMessage TIMER3 Do SendMessage MUSIC_GROOVE_MED EndResponse OnMessage TIMER4 Do SendMessage MUSIC_GROOVE_MED_HI EndResponse OnMessage TIMER5 Do SendMessage MUSIC_GROOVE_HIGH EndResponse EndLoop Loop INFINITE Do EndLoop Program13 Loop INIT Do SetParameter SCALE1 0.0 0.95 0.0 0.0 SendMessage SETBLOCKYSCALE SetParameter NUMLINES 10 SendMessage SetStartLines SetParameter BUFFERNAME LEVS SetParameter NUMLINES 100 SendMessage LOADLEVEL SetParameter MESSAGE_ID TIMER1 SetParameter INTERVAL 2000 SetParameter REPEAT TRUE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER2 SetParameter INTERVAL 10000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter LIVES 0 SendMessage SETLIVES SET L To 0 SET M TO 0 SET B TO 0 GotoLoop BRIEF EndLoop Loop BRIEF Do OnMessage FIREPRESSED Do SetEnemy Z To 1 GotoLoop MAIN EndResponse IFENEMY Z ISEQUALTO 1 Then GotoLoop MAIN EndIf EndLoop Loop MAIN Do IfEnemy L BecomesEqualto -1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif IfEnemy Z BecomesEqualTo 1 Then GotoLoop TIMER Endif EndLoop Loop TIMER Do IfEnemy L BecomesEqualTo -1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif OnMessage TIMER1 Do Add 3 To H SetParameter Position 0.0 H 0.0 0.0 SendMessage ChangeWaterHeight EndResponse EndLoop Loop INFINITE Do EndLoop GameMode One_Line_For_2 ITA UNA_FILLA GER EINE_REIHE SPA UNA_LÍNEA FRE UNE_LIGNE POL Jedna_linia GameType VERSUS WaterHeightCounter H LandLinesCounter M BulletGoneCounter T CollectStarCounter S DestroyOwnStarCounter D DestroyEnemyStarCounter D LivesRemaining02Counter W LivesRemaining13Counter L Program02 TEXTBUFFER LEVS oneli2p.wbl ENDBUFFER / the init loop! / Loop INIT Do Randomise A From 0 To 11 If A IsEqualTo 3 Then Randomise A From 4 To 12 EndIf SetParameter BACKDROP A SendMessage SETBACKDROP SetParameter SCALE1 0.0 0.95 0.0 0.0 SendMessage SETBLOCKYSCALE SetParameter TEXT oneli2p.wbw SendMessage LOADWEAPONLIST SetParameter LIVES 0 SendMessage SETLIVES SetParameter INTERVAL 999999 SendMessage SetLandSpeed SetParameter NUMLINES 10 SendMessage SetStartLines SetParameter BUFFERNAME LEVS SetParameter NUMLINES 100 SendMessage LOADLEVEL SetParameter MESSAGE_ID TIMER1 SetParameter INTERVAL 1000 SetParameter REPEAT TRUE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER4 SetParameter INTERVAL 10000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER5 SetParameter INTERVAL 40000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER6 SetParameter INTERVAL 70000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER7 SetParameter INTERVAL 90000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter Position 0.0 75.0 0.0 0.0 SetParameter Velocity 0.0 0.0 0.0 0.0 SetParameter Gravity 0.0 0.0 0.0 0.0 SetParameter Scale1 0.4 0.4 0.4 0.0 SetParameter Scale2 1.0 1.0 1.0 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 SetParameter Lifetime 0.2 0.6 4.5 1.6 SetParameter Justify Centre Set B To 0 Set T To 0 Set W To 0 Set L To 0 Set X To 15 Set Z To 0 SendMessage MUSIC_GROOVE_HIGH SendMessage FIRINGOFF SendMessage StartBriefing GotoLoop BRIEF EndLoop Loop BRIEF Do 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 Side Centre SetParameter Position 0.0 180.0 0.0 0.0 SetParameter Text ONE_LINE_4_2 ITA SetParameter Text UNA_FILLA GER SetParameter Text EINE_REIHE SPA SetParameter Text UNA_LÍNEA FRE SetParameter Text UNE_LIGNE POL SetParameter Text Jedna_linia 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 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 Crush_your_opponent! ITA SetParameter Text Schiaccia_il_tuo_avversario.Per_ogni_colpo GER SetParameter Text Zerschmettere_deinen_Gegner._Mit_jedem SPA SetParameter Text Aplasta_a_tu_enemigo._Cada_vez_que_dispares FRE SetParameter Text Écrasez_votre_adversaire. POL SetParameter Text Miażdż_swojego_przeciwnika._Za_każdym SendMessage CREATETEXT SetParameter Position 0.0 80.0 0.0 0.0 SetParameter Text The_blocks_come_down_every_2_shots_fired. ITA SetParameter Text sparato,_i_blocchi_scendono_di_una_fila. GER SetParameter Text Schuss_kommen_die_Steine_weiter_herunter. SPA SetParameter Text estarás_más_cerca_del_triunfo. FRE SetParameter Text Les_blocs_descendent_ŕ_chaque_tir. POL SetParameter Text strzałem,_cegły_opadają_o_jedną_linię. 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 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.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 ITA SetParameter Text Premi_fuoco_per_cominciare GER SetParameter Text Zum_Starten_Feuer_drücken 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 Set Y To 1 SetParameter GD_FLOAT 0 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT SendMessage CLOSEDIVIDER EndResponse If Y BecomesEqualTo 1 Then SendMessage EndBriefing SendMessage FIRINGON SendMessage MUSIC_GROOVE_LOW SendMessage UNPAUSELANDLEFT SendMessage UNPAUSELANDRIGHT SetParameter GD_FLOAT 0 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT SendMessage CLOSEDIVIDER GotoLoop MAIN Endif EndLoop / main loop / Loop MAIN Do OnMessage TIMER4 Do SendMessage MUSIC_GROOVE_MED_LOW EndResponse OnMessage TIMER5 Do SendMessage MUSIC_GROOVE_MED EndResponse OnMessage TIMER6 Do SendMessage MUSIC_GROOVE_MED_HI EndResponse OnMessage TIMER7 Do SendMessage MUSIC_GROOVE_HIGH EndResponse IfEnemy L BecomesEqualto -1 Then GotoLoop WIN Endif If T BecomesGreaterThan 1 Then Set T to 0 GotoLoop TIMER EndIf OnMessage TIMER1 Do If X IsGreaterThan 60 Then Subtract 60 from X Add 1 to Z EndIf If X IsEqualTo 0 Then Subtract 1 from Z Set X to 60 EndIf If Z IsLessThan 0 Then GotoLoop ANNOUNCER EndIf EndResponse If S BecomesGreaterThan 0 Then GotoLoop WIN EndIf If D BecomesGreaterThan 0 Then GotoLoop LOSE EndIf EndLoop / advance one line / Loop TIMER Do SetParameter MESSAGE_ID TIMER2 SetParameter INTERVAL 0300 SetParameter REPEAT FALSE SendMessage CreateTimer GotoLoop TIMERA EndLoop Loop TIMERA Do OnMessage TIMER2 Do GotoLoop ADVANCE EndResponse OnMessage TIMER1 Do If X IsGreaterThan 60 Then Subtract 60 from X Add 1 to Z EndIf If X IsEqualTo 0 Then Subtract 1 from Z Set X to 60 EndIf If Z IsLessThan 0 Then GotoLoop ANNOUNCER EndIf EndResponse EndLoop Loop ADVANCE Do OnMessage TIMER1 Do If X IsGreaterThan 60 Then Subtract 60 from X Add 1 to Z EndIf If X IsEqualTo 0 Then Subtract 1 from Z Set X to 60 EndIf If Z IsLessThan 0 Then GotoLoop ANNOUNCER EndIf EndResponse set M to 0 SetParameter INTERVAL 0001 SendMessage SetLandSpeed GotoLoop ADVANCE2 EndLoop Loop ADVANCE2 Do If M IsEqualTo 1 then Add 1 to L Add 2 to X SetParameter INTERVAL 999999 SendMessage SetLandSpeed GotoLoop MAIN endif OnMessage TIMER1 Do If X IsGreaterThan 60 Then Subtract 60 from X Add 1 to Z EndIf If X IsEqualTo 0 Then Subtract 1 from Z Set X to 60 EndIf If Z IsLessThan 0 Then GotoLoop ANNOUNCER EndIf EndResponse EndLoop / this here is the end / Loop ENDGAME Do If S IsEqualTo 1 Then GotoLoop WIN EndIf If S IsLessThan 1 Then GotoLoop LOSE EndIf EndLoop Loop ANNOUNCER Do GotoLoop INFINITE EndLoop Loop WIN Do Set B To 2 If B ISGREATERTHANENEMY B Then GotoLoop MAIN3 Endif EndLoop Loop MAIN3 Do SendMessage WINCONDITION GotoLoop INFINITE EndLoop Loop LOSE Do GotoLoop INFINITE EndLoop Loop TIMEOUT Do GotoLoop INFINITE EndLoop Loop INFINITE Do EndLoop Program13 TEXTBUFFER LEVS oneli2p.wbl ENDBUFFER / the init loop! / Loop INIT Do SetParameter SCALE1 0.0 0.95 0.0 0.0 SendMessage SETBLOCKYSCALE SetParameter TEXT oneli2p.wbw SendMessage LOADWEAPONLIST SetParameter LIVES 0 SendMessage SETLIVES SetParameter INTERVAL 999999 SendMessage SetLandSpeed SetParameter NUMLINES 10 SendMessage SetStartLines SetParameter BUFFERNAME LEVS SetParameter NUMLINES 100 SendMessage LOADLEVEL SetParameter MESSAGE_ID TIMER1 SetParameter INTERVAL 1000 SetParameter REPEAT TRUE SendMessage CREATETIMER SetParameter Position 0.0 75.0 0.0 0.0 SetParameter Velocity 0.0 0.0 0.0 0.0 SetParameter Gravity 0.0 0.0 0.0 0.0 SetParameter Scale1 0.4 0.4 0.4 0.0 SetParameter Scale2 1.0 1.0 1.0 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 SetParameter Lifetime 0.2 0.6 4.5 1.6 SetParameter Justify Centre Set B To 0 Set T to 0 Set L to 0 Set W To 0 Set X to 15 Set Z to 0 GotoLoop BRIEF EndLoop / main loop / Loop BRIEF Do OnMessage FIREPRESSED Do SetEnemy Y To 1 SetParameter GD_FLOAT 0 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT SendMessage CLOSEDIVIDER GotoLoop MAIN EndResponse IFENEMY Y ISEQUALTO 1 Then SetParameter GD_FLOAT 0 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT SendMessage CLOSEDIVIDER GotoLoop MAIN EndIf EndLoop Loop MAIN Do IfEnemy W BecomesEqualto -1 Then GotoLoop WIN Endif If T BecomesGreaterThan 1 Then Set T to 0 GotoLoop TIMER EndIf OnMessage TIMER1 Do If X IsGreaterThan 60 Then Subtract 60 from X Add 1 to Z EndIf If X IsEqualTo 0 Then Subtract 1 from Z Set X to 60 EndIf If Z IsLessThan 0 Then GotoLoop ANNOUNCER EndIf EndResponse If S BecomesGreaterThan 0 Then GotoLoop WIN EndIf If D BecomesGreaterThan 0 Then GotoLoop LOSE EndIf EndLoop / advance one line / Loop TIMER Do SetParameter MESSAGE_ID TIMER2 SetParameter INTERVAL 0300 SetParameter REPEAT FALSE SendMessage CreateTimer GotoLoop TIMERA EndLoop Loop TIMERA Do OnMessage TIMER2 Do GotoLoop ADVANCE EndResponse OnMessage TIMER1 Do If X IsGreaterThan 60 Then Subtract 60 from X Add 1 to Z EndIf If X IsEqualTo 0 Then Subtract 1 from Z Set X to 60 EndIf If Z IsLessThan 0 Then GotoLoop ANNOUNCER EndIf EndResponse EndLoop Loop ADVANCE Do OnMessage TIMER1 Do If X IsGreaterThan 60 Then Subtract 60 from X Add 1 to Z EndIf If X IsEqualTo 0 Then Subtract 1 from Z Set X to 60 EndIf If Z IsLessThan 0 Then GotoLoop ANNOUNCER EndIf EndResponse set M to 0 SetParameter INTERVAL 0001 SendMessage SetLandSpeed GotoLoop ADVANCE2 EndLoop Loop ADVANCE2 Do If M IsEqualTo 1 then Add 1 to L Add 2 to X SetParameter INTERVAL 999999 SendMessage SetLandSpeed GotoLoop MAIN endif OnMessage TIMER1 Do If X IsGreaterThan 60 Then Subtract 60 from X Add 1 to Z EndIf If X IsEqualTo 0 Then Subtract 1 from Z Set X to 60 EndIf If Z IsLessThan 0 Then GotoLoop ANNOUNCER EndIf EndResponse EndLoop / this here is the end / Loop ENDGAME Do If S IsEqualTo 1 Then GotoLoop WIN EndIf If S IsLessThan 1 Then GotoLoop LOSE EndIf EndLoop Loop ANNOUNCER Do GotoLoop INFINITE EndLoop Loop WIN Do Set B To 1 If B ISGREATERTHANENEMY B Then GotoLoop MAIN3 Endif EndLoop Loop MAIN3 Do SendMessage WINCONDITION GotoLoop INFINITE EndLoop Loop LOSE Do GotoLoop INFINITE EndLoop Loop TIMEOUT Do GotoLoop INFINITE EndLoop Loop INFINITE Do EndLoop GameMode Don't_Drop_Em ITA NON_FARLI_CADERE GER LASS_SIE_NICHT_FALLEN! SPA NO_LOS_DEJES_CAER FRE NE_LES_LAISSEZ_PAS_TOMBER POL Nie_upuść_ich GameType VERSUS TotalBlocksOnScreenCounter T COLLECTSTARCOUNTER S LANDDROPPEDINWATERCOUNTER W LIVESREMAINING02COUNTER L LIVESREMAINING13COUNTER M Program02 TEXTBUFFER LEVS DROP1.wbl ENDBUFFER Loop INIT Do Randomise A From 0 To 11 If A IsEqualTo 3 Then Randomise A From 4 To 12 EndIf SetParameter BACKDROP A SendMessage SETBACKDROP SetParameter SCALE1 0.0 0.97 0.0 0.0 SendMessage SETBLOCKYSCALE SetParameter Position 0 -200 0 0 SendMessage CHANGEWATERHEIGHT SendMessage PAUSELANDRIGHT SendMessage PAUSELANDLEFT SetParameter NUMLINES 20 SendMessage SetStartLines SetParameter BUFFERNAME LEVS SetParameter NUMLINES 20 SendMessage LOADLEVEL SetParameter NUMWEAPONS 100 SendMessage RANDOMWEAPONS SetParameter LIVES 0 SendMessage SETLIVES SetParameter MESSAGE_ID TIMER2 SetParameter INTERVAL 10000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER3 SetParameter INTERVAL 40000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER4 SetParameter INTERVAL 70000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER5 SetParameter INTERVAL 90000 SetParameter REPEAT FALSE SendMessage CREATETIMER SET W To 0 SET L TO 0 SET M TO 0 SET S To 0 SET B To 0 SET T To 118 SendMessage MUSIC_GROOVE_LOW SendMessage FIRINGOFF SendMessage StartBriefing GotoLoop BRIEF EndLoop Loop BRIEF Do 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 Side Centre SetParameter Position 0.0 180.0 0.0 0.0 SetParameter Text DON'T_DROP_EM ITA SetParameter Text NON_FARLI_CADERE GER SetParameter Text LASS_SIE_NICHT_FALLEN! SPA SetParameter Text NO_LOS_DEJES_CAER FRE SetParameter Text NE_LES_LAISSEZ_PAS_TOMBER POL SetParameter Text Nie_upuść_ich 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 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 Don't_drop_more_than ITA SetParameter Text Non_far_cadere_piů_di GER SetParameter Text Aufpassen,_dass_nicht_mehr SPA SetParameter Text No_permitas_que_caiga FRE SetParameter Text Ne_laissez_pas_tomber_plus POL SetParameter Text Nie_możesz_upuścić_więcej SendMessage CREATETEXT SetParameter Position 0.0 80.0 0.0 0.0 SetParameter Text 1_block_into_your_water ITA SetParameter Text 1_blocco_in_acqua. GER SetParameter Text als_1_Stein_ins_Wasser_fällt. SPA SetParameter Text más_de_un_bloque_al_agua. FRE SetParameter Text d'un_bloc_dans_l'eau. POL SetParameter Text niż_1_cegłę_do_wody. 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 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.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 ITA SetParameter Text Premi_fuoco_per_cominciare GER SetParameter Text Zum_Starten_Feuer_drücken 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 Set Z To 1 SetParameter GD_FLOAT 0 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT SendMessage CLOSEDIVIDER EndResponse If Z BecomesEqualTo 1 Then SendMessage EndBriefing SendMessage FIRINGON SendMessage MUSIC_GROOVE_LOW SetParameter GD_FLOAT 0 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT SendMessage CLOSEDIVIDER GotoLoop MAIN Endif EndLoop Loop MAIN Do OnMessage TIMER2 Do SendMessage MUSIC_GROOVE_MED_LOW EndResponse OnMessage TIMER3 Do SendMessage MUSIC_GROOVE_MED EndResponse OnMessage TIMER4 Do SendMessage MUSIC_GROOVE_MED_HI EndResponse OnMessage TIMER5 Do SendMessage MUSIC_GROOVE_HIGH EndResponse IfEnemy M BecomesEqualto -1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif IfEnemy W BecomesGreaterThan 1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif If S BecomesEqualTo 1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif If T BecomesEqualTo 2 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif EndLoop Loop INFINITE Do EndLoop Program13 TEXTBUFFER LEVS DROP1.wbl ENDBUFFER Loop INIT Do SetParameter Position 0 -200 0 0 SendMessage CHANGEWATERHEIGHT SendMessage PAUSELANDRIGHT SendMessage PAUSELANDLEFT SetParameter NUMLINES 20 SendMessage SetStartLines SetParameter BUFFERNAME LEVS SetParameter NUMLINES 20 SendMessage LOADLEVEL SetParameter LIVES 0 SendMessage SETLIVES SET W To 0 SET L TO 0 SET M TO 0 SET S To 0 SET B To 0 SET T To 118 GotoLoop BRIEF EndLoop Loop BRIEF Do OnMessage FIREPRESSED Do SetParameter GD_FLOAT 0 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT SendMessage CLOSEDIVIDER SetEnemy Z To 1 GotoLoop MAIN EndResponse IFENEMY Z ISEQUALTO 1 Then SetParameter GD_FLOAT 0 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT SendMessage CLOSEDIVIDER GotoLoop MAIN EndIf EndLoop Loop MAIN Do IfEnemy L BecomesEqualto -1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif IfEnemy W BecomesGreaterThan 1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif If S BecomesEqualTo 1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif If T BecomesEqualTo 2 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif EndLoop Loop INFINITE Do EndLoop GameMode Star_Race ITA CORSA_STELLARE GER STERNENRENNEN SPA LA_CARRERA_DE_LA_ESTRELLA FRE Course_ŕ_l'étoile POL Rozpoczęcie_wyścigu GameType VERSUS COLLECTSTARCOUNTER S DESTROYOWNTARGETCOUNTER J LIVESREMAINING02COUNTER L LIVESREMAINING13COUNTER M Program02 TEXTBUFFER LEVS 2prace.wbl ENDBUFFER Loop INIT Do Randomise A From 0 To 11 If A IsEqualTo 3 Then Randomise A From 4 To 12 EndIf SetParameter BACKDROP A SendMessage SETBACKDROP SetParameter SCALE1 0.0 0.95 0.0 0.0 SendMessage SETBLOCKYSCALE SetParameter NUMLINES 17 SendMessage SetStartLines SetParameter BUFFERNAME LEVS SetParameter NUMLINES 100 SendMessage LOADLEVEL SetParameter INTERVAL 1200 SendMessage SetLandSpeed SetParameter LIVES 0 SendMessage SETLIVES SetParameter NUMWEAPONS 100 SendMessage RANDOMWEAPONS SendMessage PAUSELANDRIGHT SendMessage PAUSELANDLEFT SET S TO 0 SET J TO 0 SET L TO 0 SET M TO 0 SET B To 0 SendMessage MUSIC_GROOVE_HIGH SendMessage FIRINGOFF SendMessage StartBriefing GotoLoop BRIEF EndLoop Loop BRIEF Do 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 Side Centre SetParameter Position 0.0 180.0 0.0 0.0 SetParameter Text STAR_RACE ITA SetParameter Text CORSA_STELLARE GER SetParameter Text STERNENRENNEN SPA SetParameter Text LA_CARRERA_DE_LA_ESTRELLA FRE SetParameter Text COURSE_A_LETOILE POL SetParameter Text Rozpoczęcie_wyścigu 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 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 1st_Person_to_collect_the_star_wins ITA SetParameter Text Il_primo_giocatore_che_raccoglie_la_stella GER SetParameter Text Der_Spieler,_der_den_Stern_einsammelt SPA SetParameter Text GANA_EL_JUGADOR_QUE_CONSIGA_LA_ESTRELLA. FRE SetParameter Text Le_1er_joueur_qui_récupčre_l'étoile POL SetParameter Text Pierwszy,_który_zdobędzie SendMessage CREATETEXT SetParameter Position 0.0 80.0 0.0 0.0 SetParameter Text Don't_forget_the_targets! ITA SetParameter Text vince._Non_dimenticare_i_bersagli. GER SetParameter Text gewinnt._Vergiss_die_Zielscheiben_nicht! SPA SetParameter Text No_olvides_destruir_las_dianas. FRE SetParameter Text gagne._N'oubliez_pas_les_cibles. POL SetParameter Text gwiazdkę_wygrywa. 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 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.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 ITA SetParameter Text Premi_fuoco_per_cominciare GER SetParameter Text Zum_Starten_Feuer_drücken 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 SetParameter GD_FLOAT 0 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT SendMessage CLOSEDIVIDER Set Z To 1 EndResponse If Z BecomesEqualTo 1 Then SendMessage EndBriefing SendMessage FIRINGON SendMessage MUSIC_GROOVE_LOW SendMessage UNPAUSELANDLEFT SendMessage UNPAUSELANDRIGHT SetParameter GD_FLOAT 0 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT SendMessage CLOSEDIVIDER GotoLoop MAIN Endif EndLoop Loop MAIN Do IfEnemy M BecomesEqualto -1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif If S BecomesEqualTo 1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif If J BecomesEqualTo 1 Then SetParameter SIDE RIGHT SetParameter BlockColour TARGET SendMessage CLEARBLOCKS SetParameter SIDE LEFT SetParameter BlockColour TARGET SendMessage CLEARBLOCKS SendMessage PAUSELANDRIGHT SetParameter MESSAGE_ID TIMER1 SetParameter INTERVAL 3000 SetParameter REPEAT FALSE SendMessage CREATETIMER SendMessage MUSIC_GROOVE_HIGH SET J TO 0 Endif OnMessage TIMER1 Do SendMessage UNPAUSELANDRIGHT EndResponse EndLoop Loop INFINITE Do EndLoop Program13 TEXTBUFFER LEVS 2prace.wbl ENDBUFFER Loop INIT Do Randomise A From 0 To 11 If A IsEqualTo 3 Then Randomise A From 4 To 12 EndIf SetParameter BACKDROP A SendMessage SETBACKDROP SetParameter SCALE1 0.0 0.95 0.0 0.0 SendMessage SETBLOCKYSCALE SetParameter NUMLINES 17 SendMessage SetStartLines SetParameter BUFFERNAME LEVS SetParameter NUMLINES 100 SendMessage LOADLEVEL SetParameter INTERVAL 1200 SendMessage SetLandSpeed SetParameter LIVES 0 SendMessage SETLIVES SET S TO 0 SET J TO 0 SET L TO 0 SET M TO 0 SET B TO 0 GotoLoop BRIEF EndLoop Loop BRIEF Do OnMessage FIREPRESSED Do SetParameter GD_FLOAT 0 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT SendMessage CLOSEDIVIDER SetEnemy Z To 1 GotoLoop MAIN EndResponse IFENEMY Z ISEQUALTO 1 Then SetParameter GD_FLOAT 0 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT SendMessage CLOSEDIVIDER GotoLoop MAIN EndIf EndLoop Loop MAIN Do IfEnemy L BecomesEqualto -1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif If S BecomesEqualTo 1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif If J BecomesEqualTo 1 Then SetParameter SIDE LEFT SetParameter BlockColour TARGET SendMessage CLEARBLOCKS SetParameter SIDE RIGHT SetParameter BlockColour TARGET SendMessage CLEARBLOCKS SetParameter BlockColour TARGET SendMessage CLEARBLOCKS SendMessage PAUSELANDLEFT SetParameter MESSAGE_ID TIMER2 SetParameter INTERVAL 3000 SetParameter REPEAT FALSE SendMessage CREATETIMER SET J TO 0 Endif OnMessage TIMER2 Do SendMessage UNPAUSELANDLEFT EndResponse EndLoop Loop INFINITE Do EndLoop GameMode Survival ITA SOPRAVVIVENZA GER ÜBERLEBEN SPA SUPERVIVENCIA FRE SURVIE POL Przeżycie GameType VERSUS RedComboCounter C YellowComboCounter D GreenComboCounter E OrangeComboCounter F PurpleComboCounter G LANDSCROLLEDINTOWATERCOUNTER S LIVESREMAINING02COUNTER L LIVESREMAINING13COUNTER M Program02 TEXTBUFFER LEVS SURVIVE1.wbl SURVIVE2.wbl SURVIVE3.wbl SURVIVE4.wbl SURVIVE5.wbl SURVIVE6.wbl SURVIVE7.wbl SURVIVE8.wbl SURVIVE9.wbl SURVIVE10.wbl ENDBUFFER Loop INIT Do Randomise A From 0 To 11 If A IsEqualTo 3 Then Randomise A From 4 To 12 EndIf SetParameter BACKDROP A SendMessage SETBACKDROP SetParameter SCALE1 0.0 0.95 0.0 0.0 SendMessage SETBLOCKYSCALE SetParameter NUMLINES 10 SendMessage SetStartLines SetParameter BUFFERNAME LEVS SetParameter NUMLINES 100 SendMessage LOADLEVEL SetParameter MESSAGE_ID TIMER1 SetParameter INTERVAL 10000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER2 SetParameter INTERVAL 20000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER3 SetParameter INTERVAL 40000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER4 SetParameter INTERVAL 70000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER5 SetParameter INTERVAL 90000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter LIVES 0 SendMessage SETLIVES SetParameter NUMWEAPONS 100 SendMessage RANDOMWEAPONS SetParameter GD_FLOAT 0 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT SET S TO 0 SET L TO 0 SET M TO 0 SET B To 0 SendMessage PAUSELANDRIGHT SendMessage PAUSELANDLEFT SendMessage FIRINGOFF SendMessage StartBriefing GotoLoop BRIEF EndLoop Loop BRIEF Do 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 Side Centre SetParameter Position 0.0 180.0 0.0 0.0 SetParameter Text SURVIVAL ITA SetParameter Text SOPRAVVIVENZA GER SetParameter Text ÜBERLEBEN SPA SetParameter Text SUPERVIVENCIA FRE SetParameter Text SURVIE POL SetParameter Text Przeżycie 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 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 Don't_let_the_blocks ITA SetParameter Text Non_far_cadere_i GER SetParameter Text Aufpassen,_dass_die_Steine SPA SetParameter Text No_dejes_que_los_bloques FRE SetParameter Text Ne_laissez_pas_les POL SetParameter Text Nie_pozwól_by_cegły SendMessage CREATETEXT SetParameter Position 0.0 80.0 0.0 0.0 SetParameter Text scroll_into_the_water. ITA SetParameter Text blocchi_in_acqua. GER SetParameter Text nicht_ins_Wasser_fallen! SPA SetParameter Text TOQUEN_EL_AGUA. FRE SetParameter Text blocs_défiler_dans_l'eau. POL SetParameter Text spadły_do_wody. 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 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.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 ITA SetParameter Text Premi_fuoco_per_cominciare GER SetParameter Text Zum_Starten_Feuer_drücken 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 Set Z To 1 EndResponse If Z BecomesEqualTo 1 Then SendMessage EndBriefing SendMessage FIRINGON SendMessage MUSIC_GROOVE_LOW SendMessage UNPAUSELANDLEFT SendMessage UNPAUSELANDRIGHT SetParameter GD_FLOAT 0.01 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT GotoLoop MAIN Endif EndLoop Loop MAIN Do OnMessage TIMER1 Do SendMessage MUSIC_GROOVE_MED_LOW SetParameter INTERVAL 5000 SendMessage SetLandSpeed EndResponse OnMessage TIMER2 Do SendMessage MUSIC_GROOVE_MED_LOW EndResponse OnMessage TIMER3 Do SendMessage MUSIC_GROOVE_MED EndResponse OnMessage TIMER4 Do SendMessage MUSIC_GROOVE_MED_HI EndResponse OnMessage TIMER5 Do SendMessage MUSIC_GROOVE_HIGH EndResponse IF S BECOMESLESSTHANENEMY S Then SET S TO -5 SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif IfEnemy M BecomesEqualto -1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif EndLoop Loop INFINITE Do EndLoop Program13 Loop INIT Do SetParameter SCALE1 0.0 0.95 0.0 0.0 SendMessage SETBLOCKYSCALE SetParameter NUMLINES 10 SendMessage SetStartLines SetParameter BUFFERNAME LEVS SetParameter NUMLINES 100 SendMessage LOADLEVEL SetParameter MESSAGE_ID TIMER1 SetParameter INTERVAL 10000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter LIVES 0 SendMessage SETLIVES SET S To 0 SET L TO 0 SET M TO 0 SET B TO 0 GotoLoop BRIEF EndLoop Loop BRIEF Do OnMessage FIREPRESSED Do SetEnemy Z To 1 GotoLoop MAIN EndResponse IFENEMY Z ISEQUALTO 1 Then GotoLoop MAIN EndIf EndLoop Loop MAIN Do OnMessage TIMER1 Do SetParameter INTERVAL 5000 SendMessage SetLandSpeed EndResponse IF S BECOMESLESSTHANENEMY S Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif IfEnemy L BecomesEqualto -1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif EndLoop Loop INFINITE Do EndLoop GameMode Fight ITA COMBATTIMENTO GER KAMPF SPA LUCHA FRE BATAILLE POL Walka GameType VERSUS LIVESREMAINING02COUNTER L LIVESREMAINING13COUNTER M Program02 TEXTBUFFER LEVS FIGHT1.wbl ENDBUFFER Loop INIT Do Randomise A From 0 To 11 If A IsEqualTo 3 Then Randomise A From 4 To 12 EndIf SetParameter BACKDROP A SendMessage SETBACKDROP SetParameter SCALE1 0.0 0.95 0.0 0.0 SendMessage SETBLOCKYSCALE SetParameter INTERVAL 8000 SendMessage SetLandSpeed SetParameter NUMLINES 12 SendMessage SetStartLines SetParameter BUFFERNAME LEVS SetParameter NUMLINES 100 SendMessage LOADLEVEL SetParameter LIVES 2 SendMessage SETLIVES SetParameter NUMWEAPONS 100 SendMessage RANDOMWEAPONS SetParameter GD_FLOAT 0 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT SetParameter MESSAGE_ID TIMER2 SetParameter INTERVAL 20000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER3 SetParameter INTERVAL 40000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER4 SetParameter INTERVAL 70000 SetParameter REPEAT FALSE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER5 SetParameter INTERVAL 90000 SetParameter REPEAT FALSE SendMessage CREATETIMER SET L TO 0 SET M TO 0 SET B TO 0 SendMessage PAUSELANDRIGHT SendMessage PAUSELANDLEFT SendMessage FIRINGOFF SendMessage StartBriefing GotoLoop BRIEF EndLoop Loop BRIEF Do 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 Side Centre SetParameter Position 0.0 180.0 0.0 0.0 SetParameter Text FIGHT ITA SetParameter Text COMBATTIMENTO GER SetParameter Text KAMPF SPA SetParameter Text LUCHA FRE SetParameter Text BATAILLE POL SetParameter Text Walka 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 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 Fight_to_the_death. ITA SetParameter Text Combatti_fino_alla_morte. GER SetParameter Text Kampf_bis_zum_Tode. SPA SetParameter Text Lucha_a_vida_o_muerte_y_ten_cuidado FRE SetParameter Text Combattez_jusqu'ŕ_la_mort. POL SetParameter Text Walcz_do_upadłego. SendMessage CREATETEXT SetParameter Position 0.0 80.0 0.0 0.0 SetParameter Text Beware_the_bouncy_blocks. ITA SetParameter Text Attento_ai_blocchi_rimbalzanti. GER SetParameter Text Achte_auf_die_Flummisteine. SPA SetParameter Text con_los_bloques_que_rebotan. FRE SetParameter Text Attention_aux_blocs_qui_rebondissent. POL SetParameter Text Uważaj_na_odbijające_się_cegły. 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 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.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 ITA SetParameter Text Premi_fuoco_per_cominciare GER SetParameter Text Zum_Starten_Feuer_drücken 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 Set Z To 1 EndResponse If Z BecomesEqualTo 1 Then SendMessage EndBriefing SendMessage FIRINGON SendMessage MUSIC_GROOVE_LOW SendMessage UNPAUSELANDLEFT SendMessage UNPAUSELANDRIGHT SetParameter GD_FLOAT 0.01 0 0 0 SetParameter GAMEDATA DIVIDEROPENCHANCE SendMessage SET_GD_FLOAT GotoLoop MAIN Endif EndLoop Loop MAIN Do OnMessage TIMER2 Do SendMessage MUSIC_GROOVE_MED_LOW EndResponse OnMessage TIMER3 Do SendMessage MUSIC_GROOVE_MED EndResponse OnMessage TIMER4 Do SendMessage MUSIC_GROOVE_MED_HI EndResponse OnMessage TIMER5 Do SendMessage MUSIC_GROOVE_HIGH EndResponse IfEnemy M BecomesEqualto -1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif EndLoop Loop INFINITE Do EndLoop Program13 Loop INIT Do SetParameter INTERVAL 8000 SendMessage SetLandSpeed SetParameter SCALE1 0.0 0.95 0.0 0.0 SendMessage SETBLOCKYSCALE SetParameter NUMLINES 12 SendMessage SetStartLines SetParameter BUFFERNAME LEVS SetParameter NUMLINES 100 SendMessage LOADLEVEL SetParameter LIVES 2 SendMessage SETLIVES SET L TO 0 SET M TO 0 SET B TO 0 GotoLoop BRIEF EndLoop Loop BRIEF Do OnMessage FIREPRESSED Do SetEnemy Z To 1 GotoLoop MAIN EndResponse IFENEMY Z ISEQUALTO 1 Then GotoLoop MAIN EndIf EndLoop Loop MAIN Do IfEnemy L BecomesEqualto -1 Then SET B TO 1 If B ISGREATERTHANENEMY B Then SendMessage WINCONDITION Endif GotoLoop INFINITE Endif EndLoop Loop INFINITE Do EndLoop EndFile