Another splash

artwork/splash_v2/splash.asm

@@ -70,11 +70,11 @@ mother
 main
 .IF CART_VERSION
     lda random
-    and #%11100000  ; Old splash probability 1/8
     sta SplashTypeFlag
-    bne new_splash
-    rts ; KAZ splash :)
-new_splash
+    cmp #100     ; (0 - 100 ; first splash , 101 - 200 ; second splash , 201 - 255 ; KAZ)
+    bcc this_splash ; first splash
+    rts ; next splash
+this_splash
 .ENDIF
 /*
     mva #00 ManualLangFlag  ; no manual page
@@ -105,9 +105,6 @@ new_splash
 
 LOOP    lda vcount        ;synchronization for the first screen (picture) line
     cmp #$02
-    ;sta    colpf0
-    ;sta    colpm0
-    ;sta colbak
     bne LOOP
 
     mva #%00111110 dmactl    ;set new screen width
@@ -186,10 +183,6 @@ s0    lda #$03
     lda skctl        ; ANY KEY
     and #$04
     bne skp
-/*     lda kbcode
-    cmp #$25    ; "M" key
-    bne stop
-    mva #01 ManualLangFlag  ; english manual page  */
 stop    mva #$00 pmcntl        ;PMG disabled
     tax
     sta:rne hposp0,x+
@@ -212,38 +205,6 @@ stop    mva #$00 pmcntl        ;PMG disabled
     mva #$40 nmien        ;only NMI interrupts, DLI disabled
     cli            ;IRQ enabled
 
-/*     lda ManualLangFlag
-    beq waitkey2release
-    
-    ; and now display manual language selection screen
-    mva <lngDL dlptrs
-    mva >lngDL dlptrs+1
-    mva #%00111110 dmactls    ;set new screen width
-
-    ; wait for key
-waitkey2
-    lda skctl        ; ANY KEY
-    and #$04
-    bne waitkey2
-    lda kbcode
-    cmp #$2A    ; "E" key
-    bne notEng
-    mva #01 ManualLangFlag  ; english manual page
-    bne endsplash
-notEng
-    cmp #$0A    ; "P" key
-    bne waitkey2
-    mva #02 ManualLangFlag  ; polish manual page 
-endsplash
-    ;no glitching please (issue #67)
-    lda #0
-    sta $D400 ;dmactl
-    sta $022F ;dmactls
-waitkey2release
-    lda skctl        ; ANY KEY
-    and #$04
-    beq waitkey2release
- */
     rts            ;return to ... DOS
 skp
 
@@ -271,23 +232,6 @@ byt3    brk
     org $8000   ; fixed address of music routine and data
     icl "lzss_player.asm"    ; player (and data) for splash music
 
-;---
-
-/* lngDL
-        .byte $70,$70,$70,$70,$70
-        .byte $47
-        .word LngTitle
-        .byte $70,$70
-       .byte $42
-        .word LngList
-        .byte $50,$02
-        .byte $41
-        .word lngDL
-LngTitle
-    dta d"  select language   "*
-LngList
-    dta d"         E - English Manual             "
-    dta d"         P - Polska instrukcja          " */
 
 ;---
 .MACRO    ANTIC_PROGRAM