dos33fsprogs/mist/mist.s

; Mist

; a version of Myst?
; (yes there's a subtle German joke here)

; by deater (Vince Weaver) <vince@deater.net>

; Zero Page
	.include "zp.inc"
	.include "hardware.inc"


mist_start:
	;===================
	; init screen
	jsr	TEXT
	jsr	HOME
	bit	KEYRESET

	bit	SET_GR
	bit	PAGE0
	bit	LORES
	bit	FULLGR

	lda	#0
	sta	DRAW_PAGE
	sta	LEVEL_OVER

	; init cursor

	lda	#20
	sta	CURSOR_X
	sta	CURSOR_Y

	;=================
	; init vars
	;	FIXME: we could be re-called from other books
	;	so don't set location here

	lda	#0
	sta	LOCATION
	lda	#0
	sta	DIRECTION


	lda	LOCATION
	bne	not_first_time

	; first time init
	lda	#0
	sta	CLOCK_MINUTE
	sta	CLOCK_HOUR
	jsr	clock_inside_reset

;	lda	#0
;	sta	GEAR_OPEN

	lda	#1
	sta	GEAR_OPEN
	jsr	open_the_gear

not_first_time:


	; set up initial location

	jsr	change_location

	lda	#1
	sta	CURSOR_VISIBLE		; visible at first


game_loop:
	;=================
	; reset things
	;=================

	lda	#0
	sta	IN_SPECIAL
	sta	IN_RIGHT
	sta	IN_LEFT

	;====================================
	; copy background to current page
	;====================================

	jsr	gr_copy_to_current

	;====================================
	; handle special-case forground logic
	;====================================

	lda	GEAR_OPEN
	beq	not_gear_related

	jsr	check_gear_delete
not_gear_related:

	lda	LOCATION
	cmp	#25     ; clock puzzle
	beq	location_clock
	cmp	#27
	beq	location_inside_clock
	bne	nothing_special

location_clock:
	jsr	draw_clock_face
	jmp	nothing_special
location_inside_clock:
	jsr	draw_clock_inside
	jmp	nothing_special


nothing_special:

	;====================================
	; draw pointer
	;====================================

	jsr	draw_pointer

	;====================================
	; page flip
	;====================================

	jsr	page_flip

	;====================================
	; handle keypress/joystick
	;====================================

	jsr	handle_keypress


	;====================================
	; inc frame count
	;====================================

	inc	FRAMEL
	bne	room_frame_no_oflo
	inc	FRAMEH
room_frame_no_oflo:

	;====================================
	; check level over
	;====================================

	lda	LEVEL_OVER
	bne	really_exit
	jmp	game_loop

really_exit:
	jmp	end_level


exit_level:
	lda	#2
	sta	WHICH_LOAD

	lda	#$ff
	sta	LEVEL_OVER

        rts


	;==========================
	; includes
	;==========================

	.include	"gr_copy.s"
	.include	"gr_offsets.s"
	.include	"gr_pageflip.s"
	.include	"gr_putsprite_crop.s"
	.include	"text_print.s"
	.include	"gr_fast_clear.s"
	.include	"decompress_fast_v2.s"
	.include	"keyboard.s"
	.include	"draw_pointer.s"

	.include	"audio.s"

	.include	"graphics_island/mist_graphics.inc"

	.include	"end_level.s"

	; puzzles

	.include	"clock_bridge_puzzle.s"
	.include	"marker_switch.s"
	.include	"brother_books.s"

	; linking books

	.include	"link_book_mist.s"

	; letters

	.include	"letter_cat.s"


	.include	"common_sprites.inc"

	.include	"leveldata_island.inc"


;.align $100
;audio_red_page:
;.incbin "audio/red_page.btc"
audio_link_noise:
.incbin "audio/link_noise.btc"
mist: another demake 2020-02-28 20:55:57 +00:00			`; Mist`

			`; a version of Myst?`
			`; (yes there's a subtle German joke here)`

			`; by deater (Vince Weaver) <vince@deater.net>`

			`; Zero Page`
			`.include "zp.inc"`
			`.include "hardware.inc"`


			`mist_start:`
			`;===================`
			`; init screen`
			`jsr TEXT`
			`jsr HOME`
			`bit KEYRESET`

			`bit SET_GR`
			`bit PAGE0`
mist: working? 2020-03-02 21:50:00 +00:00			`bit LORES`
mist: another demake 2020-02-28 20:55:57 +00:00			`bit FULLGR`

mist: some work on lores part 2020-03-01 05:37:09 +00:00			`lda #0`
			`sta DRAW_PAGE`
mist: fix it to load properly need to disable some sound temporarily as out of room if we leave LOADER in memory 2020-03-08 18:11:11 +00:00			`sta LEVEL_OVER`
mist: another demake 2020-02-28 20:55:57 +00:00
mist: cursor now changes as you mouse over things 2020-03-01 17:45:24 +00:00			`; init cursor`

mist: some work on lores part 2020-03-01 05:37:09 +00:00			`lda #20`
			`sta CURSOR_X`
			`sta CURSOR_Y`
mist: another demake 2020-02-28 20:55:57 +00:00
mist: start adding clock puzzle 2020-03-07 16:06:29 +00:00			`;=================`
			`; init vars`
			`; FIXME: we could be re-called from other books`
			`; so don't set location here`
mist: cursor now changes as you mouse over things 2020-03-01 17:45:24 +00:00
			`lda #0`
			`sta LOCATION`
			`lda #0`
			`sta DIRECTION`

mist: start adding clock puzzle 2020-03-07 16:06:29 +00:00
			`lda LOCATION`
			`bne not_first_time`

			`; first time init`
			`lda #0`
			`sta CLOCK_MINUTE`
			`sta CLOCK_HOUR`
mist: inside clock puzzle 2020-03-07 20:21:16 +00:00			`jsr clock_inside_reset`
mist: start adding clock puzzle 2020-03-07 16:06:29 +00:00
mist: fix it to load properly need to disable some sound temporarily as out of room if we leave LOADER in memory 2020-03-08 18:11:11 +00:00			`; lda #0`
			`; sta GEAR_OPEN`
mist: opening gear fully works 2020-03-07 23:24:46 +00:00
mist: fix it to load properly need to disable some sound temporarily as out of room if we leave LOADER in memory 2020-03-08 18:11:11 +00:00			`lda #1`
			`sta GEAR_OPEN`
			`jsr open_the_gear`
mist: opening gear fully works 2020-03-07 23:24:46 +00:00
mist: start adding clock puzzle 2020-03-07 16:06:29 +00:00			`not_first_time:`


mist: add abstraction 2020-03-01 18:14:49 +00:00			`; set up initial location`
mist: cursor now changes as you mouse over things 2020-03-01 17:45:24 +00:00
mist: add abstraction 2020-03-01 18:14:49 +00:00			`jsr change_location`
mist: another demake 2020-02-28 20:55:57 +00:00
mist: can link through linking book 2020-03-01 18:28:04 +00:00			`lda #1`
			`sta CURSOR_VISIBLE ; visible at first`


mist: another demake 2020-02-28 20:55:57 +00:00
mist: some work on lores part 2020-03-01 05:37:09 +00:00			`game_loop:`
mist: add abstraction 2020-03-01 18:14:49 +00:00			`;=================`
			`; reset things`
			`;=================`

			`lda #0`
			`sta IN_SPECIAL`
mist: can look left and right 2020-03-01 20:18:10 +00:00			`sta IN_RIGHT`
			`sta IN_LEFT`
mist: some work on lores part 2020-03-01 05:37:09 +00:00
			`;====================================`
			`; copy background to current page`
			`;====================================`

			`jsr gr_copy_to_current`
mist: another demake 2020-02-28 20:55:57 +00:00
mist: can adjust clock 2020-03-07 18:07:42 +00:00			`;====================================`
			`; handle special-case forground logic`
			`;====================================`

mist: opening gear fully works 2020-03-07 23:24:46 +00:00			`lda GEAR_OPEN`
			`beq not_gear_related`

			`jsr check_gear_delete`
			`not_gear_related:`

mist: can adjust clock 2020-03-07 18:07:42 +00:00			`lda LOCATION`
mist: opening gear fully works 2020-03-07 23:24:46 +00:00			`cmp #25 ; clock puzzle`
mist: inside clock puzzle 2020-03-07 20:21:16 +00:00			`beq location_clock`
			`cmp #27`
			`beq location_inside_clock`
mist: can adjust clock 2020-03-07 18:07:42 +00:00			`bne nothing_special`

mist: inside clock puzzle 2020-03-07 20:21:16 +00:00			`location_clock:`
mist: can adjust clock 2020-03-07 18:07:42 +00:00			`jsr draw_clock_face`
mist: inside clock puzzle 2020-03-07 20:21:16 +00:00			`jmp nothing_special`
			`location_inside_clock:`
			`jsr draw_clock_inside`
mist: opening gear fully works 2020-03-07 23:24:46 +00:00			`jmp nothing_special`
mist: can adjust clock 2020-03-07 18:07:42 +00:00

			`nothing_special:`
mist: split off some more common code 2020-03-08 04:11:08 +00:00
mist: some work on lores part 2020-03-01 05:37:09 +00:00			`;====================================`
			`; draw pointer`
			`;====================================`
mist: can link through linking book 2020-03-01 18:28:04 +00:00
mist: split off some more common code 2020-03-08 04:11:08 +00:00			`jsr draw_pointer`
mist: can link through linking book 2020-03-01 18:28:04 +00:00
mist: some work on lores part 2020-03-01 05:37:09 +00:00			`;====================================`
			`; page flip`
			`;====================================`
mist: another demake 2020-02-28 20:55:57 +00:00
mist: some work on lores part 2020-03-01 05:37:09 +00:00			`jsr page_flip`
mist: another demake 2020-02-28 20:55:57 +00:00
mist: some work on lores part 2020-03-01 05:37:09 +00:00			`;====================================`
			`; handle keypress/joystick`
			`;====================================`
mist: another demake 2020-02-28 20:55:57 +00:00
mist: some work on lores part 2020-03-01 05:37:09 +00:00			`jsr handle_keypress`
mist: another demake 2020-02-28 20:55:57 +00:00

mist: some work on lores part 2020-03-01 05:37:09 +00:00			`;====================================`
			`; inc frame count`
			`;====================================`

			`inc FRAMEL`
			`bne room_frame_no_oflo`
			`inc FRAMEH`
			`room_frame_no_oflo:`

mist: fix it to load properly need to disable some sound temporarily as out of room if we leave LOADER in memory 2020-03-08 18:11:11 +00:00			`;====================================`
			`; check level over`
			`;====================================`

			`lda LEVEL_OVER`
			`bne really_exit`
mist: some work on lores part 2020-03-01 05:37:09 +00:00			`jmp game_loop`

mist: fix it to load properly need to disable some sound temporarily as out of room if we leave LOADER in memory 2020-03-08 18:11:11 +00:00			`really_exit:`
			`jmp end_level`



			`exit_level:`
			`lda #2`
			`sta WHICH_LOAD`

			`lda #$ff`
			`sta LEVEL_OVER`

			`rts`

mist: some work on lores part 2020-03-01 05:37:09 +00:00
mist: add abstraction 2020-03-01 18:14:49 +00:00			`;==========================`
			`; includes`
			`;==========================`
mist: some work on lores part 2020-03-01 05:37:09 +00:00
			`.include "gr_copy.s"`
			`.include "gr_offsets.s"`
			`.include "gr_pageflip.s"`
			`.include "gr_putsprite_crop.s"`
mist: can read letter now 2020-03-02 20:46:04 +00:00			`.include "text_print.s"`
			`.include "gr_fast_clear.s"`
mist: use fast lzsa everywhere 2020-03-05 05:25:59 +00:00			`.include "decompress_fast_v2.s"`
mist: split off some more common code 2020-03-08 04:11:08 +00:00			`.include "keyboard.s"`
			`.include "draw_pointer.s"`
mist: some work on lores part 2020-03-01 05:37:09 +00:00
mist: can read letter now 2020-03-02 20:46:04 +00:00			`.include "audio.s"`
mist: add audio clips disabled for now 2020-03-02 16:49:55 +00:00
mist: move graphics around 2020-03-04 21:14:41 +00:00			`.include "graphics_island/mist_graphics.inc"`
mist: another demake 2020-02-28 20:55:57 +00:00
mist: fix it to load properly need to disable some sound temporarily as out of room if we leave LOADER in memory 2020-03-08 18:11:11 +00:00			`.include "end_level.s"`
mist: another demake 2020-02-28 20:55:57 +00:00
mist: start adding clock puzzle 2020-03-07 16:06:29 +00:00			`; puzzles`

			`.include "clock_bridge_puzzle.s"`
mist: split up the code a bit 2020-03-07 16:16:44 +00:00			`.include "marker_switch.s"`
			`.include "brother_books.s"`

			`; linking books`

			`.include "link_book_mist.s"`

			`; letters`

			`.include "letter_cat.s"`

mist: start adding clock puzzle 2020-03-07 16:06:29 +00:00
mist: split common sprites to own file 2020-03-06 20:19:35 +00:00			`.include "common_sprites.inc"`
mist: another demake 2020-02-28 20:55:57 +00:00
mist: split level data to own file 2020-03-06 20:29:13 +00:00			`.include "leveldata_island.inc"`
mist: add audio clips disabled for now 2020-03-02 16:49:55 +00:00


mist: split up the code a bit 2020-03-07 16:16:44 +00:00

mist: add audio clips disabled for now 2020-03-02 16:49:55 +00:00			`;.align $100`
mist: fix it to load properly need to disable some sound temporarily as out of room if we leave LOADER in memory 2020-03-08 18:11:11 +00:00			`;audio_red_page:`
			`;.incbin "audio/red_page.btc"`
mist: working? 2020-03-02 21:50:00 +00:00			`audio_link_noise:`
			`.incbin "audio/link_noise.btc"`
mist: add audio clips disabled for now 2020-03-02 16:49:55 +00:00
mist: opening gear fully works 2020-03-07 23:24:46 +00:00