2017-09-13 02:39:50 +00:00
|
|
|
ODD EQU $7B
|
|
|
|
|
DIRECTION EQU $7C
|
|
|
|
|
REFRESH EQU $7D
|
2017-09-13 01:56:11 +00:00
|
|
|
|
2017-09-13 02:39:50 +00:00
|
|
|
; In Town
|
|
|
|
|
|
|
|
|
|
; Puzzle Room
|
|
|
|
|
; Get through office
|
|
|
|
|
; Have to run away? What happens if die? No save game? Code?
|
|
|
|
|
|
|
|
|
|
; Construct the LED circuit
|
|
|
|
|
; Zaps through cloud
|
|
|
|
|
; Susie joins your party
|
|
|
|
|
|
|
|
|
|
; Final Battle
|
|
|
|
|
; Play music, lightning effects?
|
|
|
|
|
; TFV only hit for one damage, susie for 100
|
|
|
|
|
|
|
|
|
|
; Map
|
|
|
|
|
;
|
|
|
|
|
; 0 1 2 3
|
2017-09-13 01:56:11 +00:00
|
|
|
;
|
2017-09-13 02:39:50 +00:00
|
|
|
; 0 BEACH ARCTIC ARCTIC BELAIR
|
|
|
|
|
; TREE MOUNATIN
|
|
|
|
|
;
|
|
|
|
|
; 1 BEACH LANDING GRASS FOREST
|
|
|
|
|
; PINETREE MOUNTAIN
|
|
|
|
|
;
|
|
|
|
|
; 2 BEACH GRASS GRASS FOREST
|
|
|
|
|
; PALMTREE MOUNTAIN
|
|
|
|
|
;
|
|
|
|
|
; 3 BEACH DESERT COLLEGE BEACH
|
|
|
|
|
; CACTUS PARK
|
|
|
|
|
|
|
|
|
|
|
2017-09-13 01:56:11 +00:00
|
|
|
|
|
|
|
|
world_map:
|
|
|
|
|
|
2017-09-13 02:39:50 +00:00
|
|
|
;===================
|
|
|
|
|
; Clear screen/pages
|
|
|
|
|
;===================
|
|
|
|
|
|
|
|
|
|
jsr clear_screens
|
|
|
|
|
jsr set_gr_page0
|
|
|
|
|
|
|
|
|
|
;===============
|
|
|
|
|
; Init Variables
|
|
|
|
|
;===============
|
|
|
|
|
|
|
|
|
|
lda #$0
|
|
|
|
|
sta ODD
|
|
|
|
|
|
|
|
|
|
lda #$1
|
|
|
|
|
sta DIRECTION
|
|
|
|
|
sta REFRESH
|
|
|
|
|
|
|
|
|
|
worldmap_loop:
|
|
|
|
|
|
|
|
|
|
worldmap_keyboard:
|
|
|
|
|
|
|
|
|
|
jsr get_key ; get keypress
|
|
|
|
|
|
|
|
|
|
lda LASTKEY
|
|
|
|
|
|
|
|
|
|
cmp #('Q') ; if quit, then return
|
|
|
|
|
bne worldmap_check_up
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
worldmap_check_up:
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
lda REFRESH
|
|
|
|
|
beq worldmap_copy_background
|
|
|
|
|
|
|
|
|
|
jsr load_map_bg
|
|
|
|
|
|
|
|
|
|
dec REFRESH
|
|
|
|
|
|
|
|
|
|
worldmap_copy_background:
|
|
|
|
|
|
|
|
|
|
jsr gr_copy_to_current
|
|
|
|
|
jsr page_flip
|
|
|
|
|
|
|
|
|
|
jmp worldmap_loop
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
load_map_bg:
|
|
|
|
|
|
|
|
|
|
lda #$0c
|
|
|
|
|
sta BASH
|
|
|
|
|
lda #$00
|
|
|
|
|
sta BASL ; load image off-screen 0xc00
|
|
|
|
|
|
|
|
|
|
lda #>(landing_rle)
|
|
|
|
|
sta GBASH
|
|
|
|
|
lda #<(landing_rle)
|
|
|
|
|
sta GBASL
|
|
|
|
|
jsr load_rle_gr
|
|
|
|
|
|
|
|
|
|
;; grsim_unrle(landing_rle,0x800);
|
|
|
|
|
|
|
|
|
|
rts
|
