intro/demo: show PETSCII brand name + forbid intro skip

newintro
giomba 2021-11-08 19:38:41 +01:00
parent a8319e9fb7
commit 9c902abb59
2 changed files with 12 additions and 1 deletions

View File

@ -33,7 +33,7 @@ introreset SUBROUTINE
bne .colorLoop bne .colorLoop
; first raster interrupt line, for moustaches ; first raster interrupt line, for moustaches
lda #68+19 lda #68+18
sta moustacheLine sta moustacheLine
rts rts
@ -411,6 +411,10 @@ statusMenuReset SUBROUTINE
MEMSET #$d800, #$02, #280 ; color MEMSET #$d800, #$02, #280 ; color
MEMCPY #$400, #SnakeText, #280 ; text MEMCPY #$400, #SnakeText, #280 ; text
; Print PETSCII GLG Programs
MEMSET #($6a8 + $d800 - $400), #$02, #200 ; color
MEMCPY #$6a8, #GLGProgramsText, #200 ; text
; Print website ; Print website
lda #<intro2string ; lsb of string address lda #<intro2string ; lsb of string address
sta srcStringPointer ; put into lsb of source pointer sta srcStringPointer ; put into lsb of source pointer

View File

@ -90,6 +90,13 @@ menu SUBROUTINE
; Intro is finished, now it's time to start the proper game ; Intro is finished, now it's time to start the proper game
.intro0end: .intro0end:
; Are you sure? Maybe the demo-intro is not finished, yet
; We do not want to actually start unless the demo is finished,
; otherwise vertical raster line offset may be != 0
lda status
cmp #ST_MENU
bne .menu
; Set current level pointer to list start ; Set current level pointer to list start
lda #<levelsList lda #<levelsList
sta levelPointer sta levelPointer