dos33fsprogs/games/monkey/monkey_map.s
Vince Weaver b1238af49d re-arranged the entire directory structure
this will probably upset people
2021-01-05 15:29:31 -05:00

165 lines
1.9 KiB
ArmAsm

; 11, 22 = lookout
; 10, 24 = poster
; 25, 4 = zipline
map_check_exit:
lda GUYBRUSH_X
cmp #11
beq check_lookout
cmp #10
beq check_poster
cmp #24
beq check_zipline
cmp #25
beq check_zipline
rts
check_lookout:
lda GUYBRUSH_Y
cmp #22
beq map_to_lookout
cmp #24
beq map_to_lookout
jmp map_no_exit
map_to_lookout:
lda #MONKEY_LOOKOUT
sta LOCATION
lda #GUYBRUSH_BIG
sta GUYBRUSH_SIZE
lda #30
sta GUYBRUSH_X
sta DESTINATION_X
lda #14
sta GUYBRUSH_Y
lda #22
sta DESTINATION_Y
lda #DIR_DOWN
sta GUYBRUSH_DIRECTION
jsr change_location
check_poster:
lda GUYBRUSH_Y
cmp #24
beq map_to_poster
cmp #26
beq map_to_poster
jmp map_no_exit
map_to_poster:
lda #MONKEY_POSTER
sta LOCATION
lda #2
sta GUYBRUSH_X
sta DESTINATION_X
lda #20
sta GUYBRUSH_Y
lda #GUYBRUSH_TINY
sta GUYBRUSH_SIZE
lda #34
sta DESTINATION_Y
lda #DIR_DOWN
sta GUYBRUSH_DIRECTION
jsr change_location
check_zipline:
lda GUYBRUSH_Y
cmp #4
beq map_to_zipline
cmp #6
beq map_to_zipline
jmp map_no_exit
map_to_zipline:
lda #MONKEY_ZIPLINE
sta LOCATION
lda #GUYBRUSH_BIG
sta GUYBRUSH_SIZE
lda #4
sta GUYBRUSH_X
sta DESTINATION_X
lda #26
sta GUYBRUSH_Y
sta DESTINATION_Y
lda #DIR_RIGHT
sta GUYBRUSH_DIRECTION
jsr change_location
map_no_exit:
rts
map_adjust_destination:
; x between 6 and 30
; y between 2 and 32
mp_check_x:
lda DESTINATION_X
cmp #6
bcc mp_too_left
cmp #30
bcc mp_check_y
lda #30
sta DESTINATION_X
jmp mp_check_y
mp_too_left:
lda #6
sta DESTINATION_X
mp_check_y:
lda DESTINATION_Y
cmp #2
bcc mp_too_up
cmp #32
bcc done_mp_adjust
lda #32
sta DESTINATION_Y
jmp done_mp_adjust
mp_too_up:
lda #2
sta DESTINATION_Y
done_mp_adjust:
rts
;draw_map_door:
;
; lda BAR_DOOR_OPEN
; beq done_draw_map_door
; lda #<door_sprite
; sta INL
; lda #>door_sprite
; sta INH
; lda #11
; sta XPOS
; lda #22
; sta YPOS
; jsr put_sprite_crop
;done_draw_map_door:
; rts
map_check_bounds:
rts