2022-03-07 13:53:14 +00:00
|
|
|
|
2022-03-09 22:04:19 +00:00
|
|
|
;=====================================
|
|
|
|
|
; print the intro message for level1
|
|
|
|
|
;=====================================
|
|
|
|
|
|
2022-03-07 13:53:14 +00:00
|
|
|
intro_level1:
|
|
|
|
|
|
2022-03-09 22:04:19 +00:00
|
|
|
; clear text screen
|
|
|
|
|
|
|
|
|
|
jsr clear_all
|
|
|
|
|
|
|
|
|
|
; print non-inverse
|
|
|
|
|
|
|
|
|
|
jsr set_normal
|
|
|
|
|
|
|
|
|
|
; print messages
|
|
|
|
|
|
2022-03-07 13:53:14 +00:00
|
|
|
lda #<level1_intro_text
|
|
|
|
|
sta OUTL
|
|
|
|
|
lda #>level1_intro_text
|
|
|
|
|
sta OUTH
|
|
|
|
|
|
2022-03-09 22:04:19 +00:00
|
|
|
; print the text
|
|
|
|
|
|
2022-03-07 13:53:14 +00:00
|
|
|
ldx #8
|
|
|
|
|
text_loop:
|
|
|
|
|
|
|
|
|
|
jsr move_and_print
|
|
|
|
|
|
|
|
|
|
dex
|
|
|
|
|
bne text_loop
|
|
|
|
|
|
2022-03-09 22:04:19 +00:00
|
|
|
; wait until keypress
|
|
|
|
|
|
2022-03-07 13:53:14 +00:00
|
|
|
jsr wait_until_keypress
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
level1_intro_text:
|
|
|
|
|
.byte 0, 8,"LEVEL 1",0
|
|
|
|
|
.byte 15, 8,"JUST DIG!",0
|
|
|
|
|
.byte 9,13,"NUMBER OF LEMMINGS 10",0
|
|
|
|
|
.byte 12,15,"10% TO BE SAVED",0
|
|
|
|
|
.byte 12,17,"RELEASE RATE 50",0
|
|
|
|
|
.byte 13,19,"TIME 5 MINUTES",0
|
|
|
|
|
.byte 15,21,"RATING FUN",0
|
|
|
|
|
.byte 8,23,"PRESS RETURN TO CONINUE",0
|
|
|
|
|
|
|
|
|
|
.byte 0, 8,"LEVEL 5",0
|
|
|
|
|
.byte 15, 8,"YOU NEED BASHERS THIS TIME",0
|
|
|
|
|
.byte 9,13,"NUMBER OF LEMMINGS 50",0
|
|
|
|
|
.byte 12,15,"10% TO BE SAVED",0
|
|
|
|
|
.byte 12,17,"RELEASE RATE 50",0
|
|
|
|
|
.byte 13,19,"TIME 5 MINUTES",0
|
|
|
|
|
.byte 15,21,"RATING FUN",0
|
|
|
|
|
.byte 8,23,"PRESS RETURN TO CONINUE",0
|
