GameMode one3 GameType QUEST WaterHeightCounter H LandLinesCounter M BulletGoneCounter T CollectStarCounter S DestroyOwnStarCounter D DestroyEnemyStarCounter D LivesRemaining02Counter Q Program0123 TEXTBUFFER LEVS one3.wbl ENDBUFFER / the init loop! / Loop INIT Do SendMessage DEACTIVATESCORE SetParameter BACKDROP BACKDROP2 SendMessage SETBACKDROP SendMessage STARTBRIEFING SendMessage FIRINGOFF SetParameter LIVES 0 SendMessage SETLIVES SetParameter POSITION 0 0 0 0 SetParameter PLAYERNUM 0 SendMessage SETBOATPOSITION SetParameter Position 0 -175 0 0 SendMessage CHANGEWATERHEIGHT SetParameter INTERVAL 999999 SendMessage SetLandSpeed SetParameter NUMLINES 16 SendMessage SetStartLines SetParameter TEXT one3.wbw SendMessage LOADWEAPONLIST SetParameter BUFFERNAME LEVS SetParameter NUMLINES 80 SendMessage LOADLEVEL SendMessage PAUSELANDLEFT SendMessage PAUSELANDRIGHT SetParameter MESSAGE_ID TIMER3 SetParameter INTERVAL 0200 SetParameter REPEAT TRUE SendMessage CREATETIMER SendMessage MUSIC_GROOVE_LOW 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.2 0.2 0.2 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 SendMessage DEACTIVATESCORE SetParameter Lifetime 0.2 0.6 4.5 1.6 SetParameter Justify Centre Set U to 60 Set I to 2 Set Z to 2 Set L to 0 Set D to 0 Set S to 0 GotoLoop CHECK EndLoop / mission briefing / Loop CHECK Do OnMessage TIMER3 Do GosubLoop BRIEF EndResponse OnMessage FIREPRESSED Do SendMessage UNPAUSELANDLEFT SendMessage UNPAUSELANDRIGHT SendMessage ENDBRIEFING SendMessage FIRINGON SetParameter Lifetime 0.0 0.0 1.0 0.0 SendMessage MUSIC_GROOVE_MED_LOW SetParameter MESSAGE_ID TIMER1 SetParameter INTERVAL 1000 SetParameter REPEAT TRUE SendMessage CREATETIMER GotoLoop MAIN EndResponse EndLoop Loop BRIEF Do SetParameter JUSTIFY CENTRE SetParameter Lifetime 0.0 0.0 0.2 0.0 SetParameter Scale1 1.1 1.3 1.1 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 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 One_Line_at_a_Time_3_of_3 POL SetParameter TEXT Gwiazdka_z_nieba_3_z_3 FRE SetParameter TEXT Une_ligne_à_la_fois_3_sur_3 SPA SetParameter TEXT Línea_a_Línea_3_de_3 ITA SetParameter TEXT Una_fila_per_volta_3_di_3 GER SetParameter TEXT REIHENWEISE_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 SetParameter Position 0.0 110.0 0.0 0.0 SetParameter Text You_have_three_minutes_to_collect_the POL SetParameter TEXT MASZ_TRZY_MINUTY_NA_ZEBRANIE FRE SetParameter TEXT Vous_avez_trois_minutes_pour_attraper SPA SetParameter TEXT ¡Dispones_de_tres_minutos_para_ ITA SetParameter Scale1 0.6 0.6 0.6 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 ITA SetParameter TEXT Hai_tre_minuti_per_prendere_la_stella!_Ogni GER SetParameter TEXT Du_hast_genau_drei_Minuten_um_den_Stern SendMessage CreateText SetParameter Position 0.0 75.0 0.0 0.0 SetParameter Text star!_Everytime_you_fire_the_blocks_will POL SetParameter TEXT GWIAZDKI._ZA_KA_DYM_STRZA£EM_CEG£Y FRE SetParameter TEXT l'étoile._À_chaque_tir,_les_blocs SPA SetParameter TEXT conseguir_la_estrella!_Por_cada_disparo, ITA SetParameter Scale1 0.6 0.6 0.6 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 ITA SetParameter TEXT volta_che_spari,_i_blocchi_scendono_di_una GER SetParameter TEXT einzusammeln._Nach_jedem_Schuss_bewegen SendMessage CreateText SetParameter Position 0.0 40.0 0.0 0.0 SetParameter Text drop_down_one_line._Think_carefully_and POL SetParameter TEXT OBNI_¥_SIÊ_O_JEDN¥_LINIÊ._B¥D_OSTRO_NY_I FRE SetParameter TEXT descendront_d'une_ligne._Réfléchissez SPA SetParameter TEXT los_bloques_descenderán_una_línea. ITA SetParameter Scale1 0.6 0.6 0.6 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 ITA SetParameter TEXT lÍnea._Cerca_di_pianificare_con_cura_le GER SetParameter TEXT sich_die_Steine_eine_Reihe_nach_unten. SendMessage CreateText SetParameter Position 0.0 5.0 0.0 0.0 SetParameter Text plan_ahead! POL SetParameter TEXT PLANUJ_RUCHY_WPRZÓD. FRE SetParameter TEXT bien_avant_d'agir. SPA SetParameter TEXT ¡Piénsatelo_bien_y_planifica! ITA SetParameter Scale1 0.6 0.6 0.6 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 ITA SetParameter TEXT tue_mosse._Buona_fortuna! GER SetParameter TEXT denk_nach_und_handle_schnell. SendMessage CreateText SetParameter Position 0.0 -65.0 0.0 0.0 SetParameter Text Good_luck! POL SetParameter TEXT POWODZENIA! FRE SetParameter TEXT Bonne_chance! SPA SetParameter TEXT ¡Buena_suerte! ITA SetParameter Scale1 0.6 0.6 0.6 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 ITA SetParameter TEXT _ GER SetParameter TEXT Viel_Glück! 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! SPA SetParameter Text Pulsa_el_disparo_para_empezar ITA SetParameter TEXT Premi_fuoco_per_cominciare GER SetParameter TEXT Zum_Starten_Feuer_drücken SendMessage CREATETEXT SetParameter Position 0 -175 0 0 SendMessage CHANGEWATERHEIGHT EndLoop / main loop / Loop MAIN Do If T IsGreaterThan 0 Then Set T to 0 GotoLoop TIMER EndIf If S BecomesGreaterThan 0 Then GotoLoop WIN EndIf If D BecomesGreaterThan 0 Then GotoLoop LOSE EndIf If Q IsLessThan 0 Then SetParameter Justify Centre 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! POL SetParameter TEXT Klêska! SPA SetParameter Text ¡FALLASTE! GER SetParameter Text VERLOREN! ITA SetParameter TEXT HAI_FALLITO! SendMessage CREATETEXT GotoLoop LOSE EndIf GosubLoop CLOCK EndLoop / advance one line / Loop TIMER Do GosubLoop CLOCK SetParameter MESSAGE_ID TIMER2 SetParameter INTERVAL 0300 SetParameter REPEAT FALSE SendMessage CreateTimer GotoLoop TIMERA EndLoop Loop TIMERA Do GosubLoop CLOCK OnMessage TIMER2 Do GotoLoop ADVANCE EndResponse EndLoop Loop ADVANCE Do GosubLoop CLOCK set M to 0 SetParameter INTERVAL 0001 SendMessage SetLandSpeed GotoLoop ADVANCE2 EndLoop Loop ADVANCE2 Do GosubLoop CLOCK If M IsEqualTo 1 then Add 1 to L SetParameter INTERVAL 999999 SendMessage SetLandSpeed Set Y to 0 GotoLoop MAIN endif EndLoop / clock / Loop CLOCK 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 3 SetParameter Lifetime 0.0 0.0 0.0 0.0 SetParameter Position 180.0 210.0 0.0 0.0 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 OnMessage TIMER1 Do SetParameter JUSTIFY CENTRE 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 1 0 SetParameter Text # SetParameter Position -26.0 -210.0 0.0 0.0 SendMessage CREATETEXT If U IsGreaterThan 60 Then Subtract 60 from X Add 1 to I EndIf SetParameter Position -3.0 -210.0 0.0 0.0 SetParameter Score L SetParameter Digits 3 SendMessage CREATESCORE Subtract 1 from U SetParameter Lifetime 0.0 0.0 1.0 0.0 SetParameter Position 245.0 210.0 0.0 0.0 If I IsEqualTo 0 Then If U IsLessThan 11 Then SetParameter Colour1 1.0 0.22 0.07 1.0 SetParameter Colour2 1.0 0.22 0.07 1.0 SetParameter Colour3 1.0 0.22 0.07 1.0 EndIf EndIf If U IsLessThan 10 Then SetParameter Text 0 SetParameter Position 245.0 210.0 0.0 0.0 SendMessage CREATETEXT SetParameter Position 260.0 210.0 0.0 0.0 EndIf ConvertToText U SendMessage CREATETEXT ConvertToText I SetParameter Position 215.0 210.0 0.0 0.0 SendMessage CREATETEXT If U IsEqualTo 0 Then Subtract 1 from I Set U to 60 EndIf If I IsLessThan 1 Then If U BecomesLessThan 11 Then SetParameter Justify Centre 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 Scale1 2.0 2.0 2.0 0.0 SetParameter Scale2 3.0 3.0 3.0 0.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 Text HURRY_UP!! POL SetParameter TEXT Pooepiesz_siê! FRE SetParameter TEXT DÉPÊCHEZ-VOUS!! SPA SetParameter Text ¡DEPRISA! GER SetParameter Text SCHNELLER! ITA SetParameter TEXT SBRIGATI! SendMessage CREATETEXT SetParameter Lifetime 0.0 0.0 1.0 0.0 SetParameter Velocity 0.0 0.0 0.0 0.0 SetParameter Colour2 0.0 1.0 0.0 1.0 SetParameter Colour3 0.0 1.0 0.0 1.0 EndIf EndIf If I IsLessThan 0 Then SetParameter Justify Centre 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 TIME'S_UP! POL SetParameter TEXT Czas_up³yn¹³ FRE SetParameter TEXT TEMPS_ÉCOULÉ! SPA SetParameter Text ¡TIEMPO! GER SetParameter Text ENDE! ITA SetParameter TEXT TEMPO_ESAURITO! SendMessage CREATETEXT GotoLoop LOSE EndIf SetParameter Colour1 1.0 1.0 1.0 1.0 SetParameter Colour2 0.0 1.0 0.0 1.0 SetParameter Colour3 0.0 1.0 0.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.0 0.0 1.0 0.0 EndResponse If I BecomesLessThan 2 Then SendMessage MUSIC_GROOVE_MED EndIf If I BecomesLessThan 1 Then SendMessage MUSIC_GROOVE_MED_HI EndIf If I IsLessThan 1 Then If U BecomesLessThan 30 Then SendMessage MUSIC_GROOVE_HIGH EndIf EndIf 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 WIN Do SetParameter Justify Centre SetParameter Position 0.0 0.0 0.0 0.0 SetParameter Lifetime 0.2 0.7 3.2 4.2 SetParameter Scale1 0.4 0.4 0.4 0.0 SetParameter Scale2 1.4 1.4 1.4 0.0 SetParameter Scale3 3.4 3.4 3.4 0.0 SetParameter Scale4 2.0 2.0 2.0 0.0 SetParameter Scale5 1.8 1.8 1.8 0.0 SetParameter Colour1 0.18 0.9 0.1 1.0 SetParameter Colour2 0.18 0.9 0.1 1.0 SetParameter Colour3 0.18 0.9 0.1 1.0 SetParameter Colour4 1.0 1.0 1.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Text SUCCESS! POL SetParameter TEXT Sukces! FRE SetParameter TEXT RÉUSSI! SPA SetParameter Text ¡LO_CONSEGUISTE! GER SetParameter Text GESCHAFFT! ITA SetParameter TEXT HAI_VINTO! SendMessage CREATETEXT SetParameter TEXT sfrogm SendMessage SETNEXTGAMEMODE SendMessage LOSECONDITION GotoLoop INFINITE EndLoop Loop LOSE Do SendMessage LOSECONDITION GotoLoop INFINITE EndLoop Loop INFINITE Do EndLoop EndFile