mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-03 14:05:58 +00:00
monkey: credits all set
This commit is contained in:
Vince Weaver
parent
83e33a9886
commit
1a9120cab9
@ -1,8 +1,10 @@
|
||||
title:
|
||||
+ wait before displaying
|
||||
+ display credits
|
||||
|
||||
game:
|
||||
+ animated flame
|
||||
+ foreground rock piles
|
||||
+ sprites for all dir
|
||||
+ sprites for walking
|
||||
+ print verb at top line
|
||||
+ print noun also (center along with verb)
|
||||
+ poster, dock, and bar backgrounds
|
||||
|
||||
|
||||
263
monkey/title.s
263
monkey/title.s
@ -30,13 +30,18 @@ title_start:
|
||||
sta FRAMEL
|
||||
sta FRAMEH
|
||||
sta DISP_PAGE
|
||||
sta CREDITS_OFFSET
|
||||
sta CREDITS_LOGO_ON
|
||||
sta CREDITS_SPLIT_SCREEN
|
||||
sta CREDITS_DISPLAY_TEXT
|
||||
|
||||
lda #18
|
||||
lda #14
|
||||
sta CLOUD_X
|
||||
|
||||
lda #4
|
||||
sta DRAW_PAGE
|
||||
|
||||
jsr normal_text
|
||||
|
||||
;====================================
|
||||
; load LF logo
|
||||
@ -60,7 +65,9 @@ title_start:
|
||||
lda #$44 ; load to page $4800-400=$4400
|
||||
jsr decompress_lzsa2_fast
|
||||
|
||||
|
||||
;=====================================
|
||||
; setup music
|
||||
;=====================================
|
||||
|
||||
setup_music:
|
||||
; decompress music
|
||||
@ -172,6 +179,12 @@ do_logo_loop:
|
||||
jmp logo_loop
|
||||
|
||||
|
||||
;====================================
|
||||
;====================================
|
||||
; Intro
|
||||
;====================================
|
||||
;====================================
|
||||
|
||||
;====================================
|
||||
; load Background logo
|
||||
;====================================
|
||||
@ -216,19 +229,49 @@ monkey_loop:
|
||||
|
||||
|
||||
; copy title overlay
|
||||
lda CREDITS_LOGO_ON
|
||||
beq dont_overlay
|
||||
|
||||
jsr gr_overlay_40x40_noload
|
||||
dont_overlay:
|
||||
|
||||
;=======================
|
||||
; draw text if enabled
|
||||
|
||||
lda CREDITS_DISPLAY_TEXT
|
||||
beq dont_text
|
||||
|
||||
jsr clear_bottom
|
||||
lda CREDITS_TEXTL
|
||||
sta OUTL
|
||||
lda CREDITS_TEXTH
|
||||
sta OUTH
|
||||
jsr move_and_print
|
||||
jsr move_and_print
|
||||
jsr move_and_print
|
||||
|
||||
dont_text:
|
||||
|
||||
;===========
|
||||
; page flip
|
||||
|
||||
jsr page_flip
|
||||
|
||||
jsr inc_frame
|
||||
|
||||
;=========================
|
||||
; update credits sequence
|
||||
;=========================
|
||||
|
||||
jsr update_credit_sequence
|
||||
|
||||
;============================
|
||||
; early escape if end of song
|
||||
|
||||
lda DONE_PLAYING
|
||||
bmi done_with_title
|
||||
|
||||
;===========================
|
||||
; early escape if keypressed
|
||||
lda KEYPRESS
|
||||
bpl loop_again
|
||||
@ -405,39 +448,211 @@ mountain_top_sprite:
|
||||
.byte $AA,$2A,$22,$22,$00,$00,$22,$07,$70,$00,$AA
|
||||
.byte $2A,$22,$00,$22,$00,$22,$02,$22,$07,$70,$0A
|
||||
|
||||
; FRAMEH, FRAMEL, ACTION
|
||||
ACTION_SPLIT_SCREEN = $80
|
||||
ACTION_FULL_SCREEN = $81
|
||||
ACTION_TURN_ON_LOGO = $82
|
||||
ACTION_TURN_OFF_LOGO = $83
|
||||
|
||||
; 1 E0 is roughly end
|
||||
credits_sequence:
|
||||
.byte $00,$6F,ACTION_SPLIT_SCREEN
|
||||
.byte $00,$70,1
|
||||
.byte $00,$80,2
|
||||
.byte $00,$A0,ACTION_FULL_SCREEN
|
||||
.byte $00,$B0,0
|
||||
.byte $00,$B6,ACTION_TURN_ON_LOGO
|
||||
.byte $00,$B7,ACTION_SPLIT_SCREEN
|
||||
|
||||
.byte $00,$B8,3
|
||||
.byte $00,$C8,0
|
||||
|
||||
.byte $00,$D0,4
|
||||
.byte $00,$E0,0
|
||||
|
||||
.byte $00,$E8,5
|
||||
.byte $00,$F8,0
|
||||
|
||||
.byte $01,$00,6
|
||||
.byte $01,$10,0
|
||||
|
||||
.byte $01,$18,7
|
||||
.byte $01,$28,0
|
||||
|
||||
.byte $01,$30,8
|
||||
.byte $01,$40,0
|
||||
|
||||
.byte $01,$48,9
|
||||
.byte $01,$58,0
|
||||
|
||||
.byte $01,$60,10
|
||||
.byte $01,$70,0
|
||||
|
||||
.byte $01,$78,11
|
||||
.byte $01,$88,0
|
||||
|
||||
.byte $01,$90,12
|
||||
.byte $01,$A0,0
|
||||
|
||||
.byte $01,$A8,ACTION_FULL_SCREEN
|
||||
|
||||
.byte $01,$B0,ACTION_TURN_OFF_LOGO
|
||||
|
||||
.byte $ff
|
||||
|
||||
|
||||
credits_text:
|
||||
; DEEP IN THE CARIBBEAN
|
||||
; ^ ,
|
||||
; THE ISLAND OF MELEE
|
||||
.word credits_nothing
|
||||
.word credits1,credits2,credits3,credits4
|
||||
.word credits5,credits6,credits7,credits8
|
||||
.word credits9,credits10,credits11,credits12
|
||||
|
||||
|
||||
credits1: ;0123456789012345678901234567890123456789
|
||||
.byte 10,21,"DEEP IN THE CARIBBEAN",0
|
||||
.byte 10,22," ",0
|
||||
.byte 10,23," ",0
|
||||
|
||||
credits2:
|
||||
.byte 10,20," ^ ,",0
|
||||
.byte 10,21,"THE ISLAND OF MELEE",0
|
||||
.byte 10,22," ",0
|
||||
|
||||
; TITLE CARD APPEARS
|
||||
; TM&(C) 1990 LUCAS ARTS
|
||||
; ALL RIGHTS RESERVED
|
||||
credits3:
|
||||
.byte 10,20," ",0
|
||||
.byte 7,21,"TM & (C) 1990 LUCAS ARTS",0
|
||||
.byte 10,22,"ALL RIGHTS RESERVED",0
|
||||
|
||||
; CREATED AND DESIGNED BY
|
||||
; RON GILBERT
|
||||
credits4:
|
||||
.byte 10,20," ",0
|
||||
.byte 9,21,"CREATED AND DESIGNED BY",0
|
||||
.byte 15,22,"RON GILBERT",0
|
||||
|
||||
; WRITTEN AND PROGRAMMED BY
|
||||
; RON GILBERT, DAVE GROSSMAN
|
||||
; AND TIM SCHAFER
|
||||
credits5:
|
||||
.byte 7,21,"WRITTEN AND PROGRAMMED BY",0
|
||||
.byte 7,22,"RON GILBERT, DAVE GROSSMAN",0
|
||||
.byte 12,23,"AND TIM SCHAFER",0
|
||||
|
||||
; BACKGROUND ART BY
|
||||
; STEVE PURCELL, MARK FERRARI
|
||||
; AND MIKE EBERT
|
||||
credits6:
|
||||
.byte 11,21,"BACKGROUND ART BY",0
|
||||
.byte 6,22,"STEVE PURCELL, MARK FERRARI",0
|
||||
.byte 13,23,"AND MIKE EBERT",0
|
||||
|
||||
; ANIMATION BY
|
||||
; STEVE PURCELL, MIKE EBERT
|
||||
; AND MARTIN CAMERON AS "BUCKY"
|
||||
credits7:
|
||||
.byte 14,21,"ANIMATION BY",0
|
||||
.byte 7,22,"STEVE PURCELL, MIKE EBERT",0
|
||||
.byte 5,23,"AND MARTIN CAMERON AS 'BUCKY'",0
|
||||
|
||||
; ORIGINAL MUSIC BY
|
||||
; MICHAEL LAND
|
||||
credits8:
|
||||
.byte 10,20," ",0
|
||||
.byte 11,21,"ORIGINAL MUSIC BY",0
|
||||
.byte 13,22,"MICHAEL LAND",0
|
||||
|
||||
; BARNEY JONES AND ANDY NEWELL
|
||||
; OF EARWAX PRODUCTIONS...
|
||||
credits9:
|
||||
.byte 10,20," ",0
|
||||
.byte 6,21,"BARNEY JONES AND ANDY NEWELL",0
|
||||
.byte 8,22,"OF EARWAX PRODUCTIONS...",0
|
||||
|
||||
; ... AND
|
||||
; PATRICK MUNDY
|
||||
credits10:
|
||||
.byte 10,20," ",0
|
||||
.byte 16,21,"... AND",0
|
||||
.byte 13,22,"PATRICK MUNDY",0
|
||||
|
||||
; TESTERS, PRODUCER, SCUMM
|
||||
|
||||
credits11:
|
||||
.byte 10,20," ",0
|
||||
.byte 11,21,"APPLE II VERSION",0
|
||||
.byte 9,22,"VINCE 'DEATER' WEAVER",0
|
||||
|
||||
credits12:
|
||||
.byte 10,20," ",0
|
||||
.byte 10,21,"CPC AY-3-8910 THEME",0
|
||||
.byte 9,22,"EPYTEOR/SUTEKH/STARKOS",0
|
||||
|
||||
credits_nothing:
|
||||
.byte 10,20," ",0
|
||||
.byte 10,21," ",0
|
||||
.byte 10,22," ",0
|
||||
|
||||
|
||||
;=========================
|
||||
; update credits sequence
|
||||
;=========================
|
||||
update_credit_sequence:
|
||||
|
||||
ldy CREDITS_OFFSET
|
||||
cpy #$ff
|
||||
beq done_credit_sequence
|
||||
|
||||
; see if we've hit FRAMEH
|
||||
lda credits_sequence,Y
|
||||
cmp FRAMEH
|
||||
bne done_credit_sequence
|
||||
|
||||
lda credits_sequence+1,Y
|
||||
cmp FRAMEL
|
||||
bne done_credit_sequence
|
||||
|
||||
; made it this far, we actually need to update!
|
||||
lda credits_sequence+2,Y
|
||||
iny
|
||||
iny
|
||||
iny
|
||||
sty CREDITS_OFFSET
|
||||
|
||||
cmp #ACTION_SPLIT_SCREEN
|
||||
beq do_split_screen
|
||||
cmp #ACTION_FULL_SCREEN
|
||||
beq do_full_screen
|
||||
cmp #ACTION_TURN_ON_LOGO
|
||||
beq do_turn_on_logo
|
||||
cmp #ACTION_TURN_OFF_LOGO
|
||||
beq do_turn_off_logo
|
||||
bne do_update_text
|
||||
|
||||
done_credit_sequence:
|
||||
rts
|
||||
|
||||
do_split_screen:
|
||||
bit TEXTGR
|
||||
|
||||
lda #1
|
||||
sta CREDITS_DISPLAY_TEXT
|
||||
lda #<credits_nothing
|
||||
sta CREDITS_TEXTL
|
||||
lda #>credits_nothing
|
||||
sta CREDITS_TEXTH
|
||||
|
||||
rts
|
||||
|
||||
do_full_screen:
|
||||
lda #0
|
||||
sta CREDITS_DISPLAY_TEXT
|
||||
bit FULLGR
|
||||
rts
|
||||
|
||||
do_turn_on_logo:
|
||||
lda #1
|
||||
sta CREDITS_LOGO_ON
|
||||
rts
|
||||
|
||||
do_turn_off_logo:
|
||||
lda #0
|
||||
sta CREDITS_LOGO_ON
|
||||
rts
|
||||
|
||||
do_update_text:
|
||||
; A has string offset
|
||||
|
||||
asl
|
||||
tay
|
||||
lda credits_text,Y
|
||||
sta CREDITS_TEXTL
|
||||
lda credits_text+1,Y
|
||||
sta CREDITS_TEXTH
|
||||
|
||||
rts
|
||||
|
||||
|
||||
|
||||
@ -90,7 +90,15 @@ NOUN_VECTOR_H = $89
|
||||
DESTINATION_X = $8A ; where to walk
|
||||
DESTINATION_Y = $8B
|
||||
|
||||
; credits stuff
|
||||
CLOUD_X = $8C
|
||||
CREDITS_OFFSET = $8D
|
||||
CREDITS_LOGO_ON = $8E
|
||||
CREDITS_SPLIT_SCREEN = $8F
|
||||
CREDITS_DISPLAY_TEXT = $90
|
||||
CREDITS_TEXTL = $91
|
||||
CREDITS_TEXTH = $92
|
||||
|
||||
|
||||
; done game puzzle state
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user