GameMode serp GameType QUEST REDCOMBOCOUNTER R LIVESREMAINING02COUNTER M Program0123 TEXTBUFFER LEVS serp.wbl ENDBUFFER DATABUFFER ENTE 7 7 8 7 9 7 10 7 11 7 12 7 13 7 14 7 15 7 16 7 17 7 18 7 19 7 20 7 21 7 22 8 21 9 20 9 20 10 20 11 21 12 21 13 21 14 20 15 21 16 20 17 19 17 18 17 17 17 16 17 15 17 14 17 13 17 12 17 11 17 10 17 9 17 8 17 7 17 6 17 5 17 4 17 3 17 3 16 2 15 2 14 1 13 2 12 1 11 1 12 0 13 0 14 0 15 0 16 0 17 1 17 2 17 3 17 4 17 5 17 6 17 7 17 8 17 9 17 10 17 11 17 12 17 13 17 14 17 14 16 14 15 14 14 14 13 15 12 15 11 16 11 17 11 18 11 19 12 19 13 20 14 20 15 20 16 19 17 18 17 17 17 17 16 16 17 15 17 15 16 14 15 14 14 13 14 12 14 11 15 11 16 10 17 9 17 9 16 8 15 8 14 7 13 7 12 6 12 5 12 4 12 3 13 3 14 2 14 1 15 1 16 1 17 2 17 3 17 4 17 5 17 6 17 7 17 8 17 9 17 10 17 11 17 12 17 13 17 14 16 14 15 14 14 13 13 12 13 11 13 10 13 9 13 8 13 8 12 7 11 7 10 7 9 8 8 9 8 10 8 10 9 10 10 9 10 8 10 7 10 6 10 5 9 6 8 6 7 7 6 8 6 9 6 10 6 11 6 12 6 13 6 14 6 15 6 16 6 17 6 17 7 18 8 18 9 19 10 19 11 20 12 20 13 21 14 20 15 20 16 19 17 18 17 17 17 16 17 15 17 14 17 13 17 12 17 11 17 10 17 9 17 8 17 7 17 6 17 5 17 4 17 3 17 2 17 1 17 1 16 0 15 1 14 1 13 2 12 2 11 3 10 3 9 4 8 4 7 5 7 6 7 ENDBUFFER DATABUFFER LEAV 3 7 4 7 5 7 6 7 7 7 8 7 9 7 10 7 11 7 12 7 13 7 14 7 15 7 16 7 17 7 18 7 19 7 20 7 21 7 22 8 21 9 20 9 20 10 20 11 21 12 21 13 21 14 20 15 21 16 20 17 19 17 18 17 17 17 16 17 15 17 14 17 13 17 12 17 11 17 10 17 9 17 8 17 7 17 6 17 5 17 4 17 3 17 3 16 2 15 2 14 1 13 2 12 1 11 1 12 0 13 0 14 0 15 0 16 0 17 1 17 2 17 3 17 4 17 5 17 6 17 7 17 8 17 9 17 10 17 11 17 12 17 13 17 14 17 14 16 14 15 14 14 14 13 15 12 15 11 16 11 17 11 18 11 19 12 19 13 20 14 20 15 20 16 19 17 18 17 17 17 17 16 16 17 15 17 15 16 14 15 14 14 13 14 12 14 11 15 11 16 10 17 9 17 9 16 8 15 8 14 7 13 7 12 6 12 5 12 4 12 3 13 3 14 2 14 1 15 1 16 1 17 2 17 3 17 4 17 5 17 6 17 7 17 8 17 9 17 10 17 11 17 12 17 13 17 14 16 14 15 14 14 13 13 12 13 11 13 10 13 9 13 8 13 8 12 7 11 7 10 7 9 8 8 9 8 10 8 10 9 10 10 9 10 8 10 7 10 6 10 5 9 6 8 6 7 7 6 8 6 9 6 10 6 11 6 12 6 13 6 14 6 15 6 16 6 17 6 17 7 18 8 18 9 19 10 19 11 20 12 20 13 21 14 20 15 20 16 19 17 18 17 17 17 16 17 15 17 14 17 13 17 12 17 11 17 10 17 9 17 8 17 7 17 6 17 5 17 4 17 3 17 2 17 1 17 1 16 0 15 1 14 1 13 2 12 2 11 3 10 3 9 4 8 ENDBUFFER Loop INIT Do SendMessage DEACTIVATESCORE SetParameter TEXT serp.wbw SendMessage LOADWEAPONLIST SetParameter NUMLINES 20 SendMessage SetStartLines SetParameter BACKDROP BACKDROP6 SendMessage SETBACKDROP SetParameter BUFFERNAME LEVS SetParameter NUMLINES 20 SendMessage LOADLEVEL SendMessage PAUSELANDLEFT SendMessage PAUSELANDRIGHT SetParameter LIVES 1 SendMessage SETLIVES SetParameter POSITION 80 0 1 0 SetParameter PLAYERNUM 0 SendMessage SETBOATPOSITION SetParameter POSITION 0 -60 0 0 SendMessage CHANGEWATERHEIGHT SendMessage MUSIC_GROOVE_HIGH SetParameter MESSAGE_ID TIMER1 SetParameter INTERVAL 0200 SetParameter REPEAT TRUE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER2 SetParameter INTERVAL 8300 SetParameter REPEAT TRUE SendMessage CREATETIMER SetParameter MESSAGE_ID TIMER3 SetParameter INTERVAL 1000 SetParameter REPEAT TRUE SendMessage CREATETIMER Set X to 60 Set Z to 0 ResetBuffer ENTE ResetBuffer LEAV Set R To 0 SendMessage FIRINGOFF SendMessage StartBriefing GotoLoop TIMER EndLoop Loop TIMER 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 Serpent_Attack FRE SetParameter TEXT Attaque_Serpent ITA SetParameter TEXT Attacco_al_serpente SPA SetParameter TEXT El_Ataque_de_la_Serpiente GER SetParameter TEXT Schlangenangriff POL SetParameter TEXT Atak_węża 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 Find_the_weak_spots FRE SetParameter TEXT Trouvez_les_points_faibles ITA SetParameter TEXT Trova_i_punti_deboli SPA SetParameter TEXT Encuentra_los_puntos_débiles GER SetParameter TEXT Finde_ihre_schwachen_Stellen POL SetParameter TEXT Znajdź_jego_słaby_punkt_i SendMessage CREATETEXT SetParameter Position 0.0 80.0 0.0 0.0 SetParameter Text and_destroy_the_serpent. FRE SetParameter TEXT et_détruisez_le_serpent. ITA SetParameter TEXT e_distruggi_il_serpente. SPA SetParameter TEXT de_la_serpiente_y_destrúyela. GER SetParameter TEXT und_besiege_die_Schlange. POL SetParameter TEXT zniszcz_atakującego_węża. SendMessage CREATETEXT SetParameter Position 0.0 45.0 0.0 0.0 SetParameter Text You_have_one_minute. FRE SetParameter TEXT Vous_avez_une_minute. ITA SetParameter TEXT Hai_a_disposizione_1_minuto SPA SetParameter TEXT Dispones_de_un_minuto. GER SetParameter TEXT Du_hast_eine_Minute. POL SetParameter TEXT Masz_na_to_1_minutę. 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 SetParameter POSITION 0 -60 0 0 SendMessage CHANGEWATERHEIGHT OnMessage FIREPRESSED Do SendMessage FIRINGON SendMessage EndBriefing GotoLoop MAIN EndResponse EndLoop Loop MAIN Do If M BecomesEqualTo -1 Then SendMessage LOSECONDITION EndIf SetParameter FRAME 3 SetParameter Lifetime 0.0 0.0 1.0 0.0 SetParameter Position 149.0 195.0 0.0 0.0 SendMessage CREATEICON OnMessage TIMER3 Do Subtract 1 from X SetParameter Lifetime 0.0 0.0 1.0 0.0 SetParameter Position 230.0 195.0 0.0 0.0 If X IsLessThan 10 Then SetParameter Text 0 SetParameter Position 225.0 195.0 0.0 0.0 SendMessage CREATETEXT SetParameter Position 245.0 195.0 0.0 0.0 EndIf ConvertToText X SendMessage CREATETEXT ConvertToText Z SetParameter Lifetime 0.0 0.0 1.0 0.0 SetParameter Position 190.0 195.0 0.0 0.0 SendMessage CREATETEXT If X IsEqualTo 0 Then GotoLoop FAX EndIf EndResponse If R BecomesEqualTo 1 Then SetParameter Velocity 0.0 0.0 0.0 0.0 SetParameter Colour1 0.57 0.8 1.0 1.0 SetParameter Colour2 0.57 0.8 1.0 1.0 SetParameter Colour3 0.57 0.8 1.0 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Lifetime 0.1 0.5 1.4 1.5 SetParameter Justify Centre SetParameter POSITION 0.0 50.0 0.0 0.0 SetParameter Text Hit FRE SetParameter TEXT Atteint ITA SetParameter TEXT Colpito SPA SetParameter TEXT Tocada GER SetParameter TEXT Treffer POL SetParameter TEXT Trafienie SendMessage CREATETEXT EndIf If R BecomesEqualTo 2 Then SetParameter Velocity 0.0 0.0 0.0 0.0 SetParameter Colour1 0.57 0.8 1.0 1.0 SetParameter Colour2 0.57 0.8 1.0 1.0 SetParameter Colour3 0.57 0.8 1.0 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Lifetime 0.1 0.5 1.4 1.5 SetParameter Justify Centre SetParameter POSITION 0.0 50.0 0.0 0.0 SetParameter Text Hit FRE SetParameter TEXT Atteint ITA SetParameter TEXT Colpito SPA SetParameter TEXT Tocada GER SetParameter TEXT Treffer POL SetParameter TEXT Trafienie SendMessage CREATETEXT EndIf If R BecomesEqualTo 3 Then SetParameter Velocity 0.0 0.0 0.0 0.0 SetParameter Colour1 0.57 0.8 1.0 1.0 SetParameter Colour2 0.57 0.8 1.0 1.0 SetParameter Colour3 0.57 0.8 1.0 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Lifetime 0.1 0.5 1.4 1.5 SetParameter Justify Centre SetParameter POSITION 0.0 50.0 0.0 0.0 SetParameter Text Hit FRE SetParameter TEXT Atteint ITA SetParameter TEXT Colpito SPA SetParameter TEXT Tocada GER SetParameter TEXT Treffer POL SetParameter TEXT Trafienie SendMessage CREATETEXT EndIf If R BecomesEqualTo 4 Then SetParameter Velocity 0.0 0.0 0.0 0.0 SetParameter Colour1 0.57 0.8 1.0 1.0 SetParameter Colour2 0.57 0.8 1.0 1.0 SetParameter Colour3 0.57 0.8 1.0 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Lifetime 0.1 0.5 1.4 1.5 SetParameter Justify Centre SetParameter POSITION 0.0 50.0 0.0 0.0 SetParameter Text Hit FRE SetParameter TEXT Atteint ITA SetParameter TEXT Colpito SPA SetParameter TEXT Tocada GER SetParameter TEXT Treffer POL SetParameter TEXT Trafienie SendMessage CREATETEXT EndIf If R BecomesEqualTo 5 Then SetParameter Velocity 0.0 0.0 0.0 0.0 SetParameter Colour1 0.57 0.8 1.0 1.0 SetParameter Colour2 0.57 0.8 1.0 1.0 SetParameter Colour3 0.57 0.8 1.0 1.0 SetParameter Colour4 0.0 0.0 0.0 1.0 SetParameter Colour5 0.0 0.0 0.0 1.0 SetParameter Colour6 0.0 0.0 0.0 1.0 SetParameter Lifetime 0.1 0.5 1.4 1.5 SetParameter Justify Centre SetParameter POSITION 0.0 50.0 0.0 0.0 SetParameter Text Hit FRE SetParameter TEXT Atteint ITA SetParameter TEXT Colpito SPA SetParameter TEXT Tocada GER SetParameter TEXT Treffer POL SetParameter TEXT Trafienie SendMessage CREATETEXT GotoLoop WIN EndIf SetParameter POSITION 0 -60 0 0 SendMessage CHANGEWATERHEIGHT OnMessage TIMER1 Do ReadFromBuffer ENTE Into C ReadFromBuffer ENTE Into D If C IsLessThan 0 Then GotoLoop INFINITE EndIf If D IsLessThan 0 Then GotoLoop INFINITE EndIf SetParameter POSITION C D 0 0 SetParameter BlockColour ANCHOR SendMessage SPAWNINBLOCK ReadFromBuffer LEAV Into C ReadFromBuffer LEAV Into D SetParameter POSITION C D 1 0 SetParameter BlockColour RED SendMessage SETBLOCKCOLOUR SendMessage DETONATEBLOCK EndResponse EndLoop Loop FAX Do 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 Klęska SendMessage CREATETEXT SetParameter POSITION 0 -60 0 0 SendMessage CHANGEWATERHEIGHT SendMessage LOSECONDITION GotoLoop END EndLoop Loop INFINITE Do SendMessage GAMEOVER GotoLoop END EndLoop Loop WIN Do SendMessage WINCONDITION SetParameter POSITION 0 -60 0 0 SendMessage CHANGEWATERHEIGHT GotoLoop END EndLoop LoopEND Do EndLoop EndFile