2020-09-17 23:38:34 +00:00
|
|
|
|
2020-09-19 05:36:48 +00:00
|
|
|
; if 28<x<35 and y>=24 and direction==down
|
2020-09-18 01:26:01 +00:00
|
|
|
; goto MONKEY_POSTER
|
2020-09-18 02:53:00 +00:00
|
|
|
; at location 4,20
|
2020-09-19 05:36:48 +00:00
|
|
|
; if 28<x<35 and y<10 and direction==down
|
|
|
|
|
; goto MONKEY_MAP
|
|
|
|
|
; at location 20,20
|
2020-09-18 01:26:01 +00:00
|
|
|
lookout_check_exit:
|
2020-09-19 05:36:48 +00:00
|
|
|
lda GUYBRUSH_X
|
|
|
|
|
cmp #28
|
|
|
|
|
bcc lookout_no_exit
|
|
|
|
|
cmp #35
|
|
|
|
|
bcs lookout_no_exit
|
|
|
|
|
|
|
|
|
|
lookout_check_stairs:
|
2020-09-18 02:53:00 +00:00
|
|
|
lda GUYBRUSH_Y
|
|
|
|
|
cmp #24
|
2020-09-19 05:36:48 +00:00
|
|
|
bcc lookout_check_arch
|
2020-09-18 02:53:00 +00:00
|
|
|
lda GUYBRUSH_DIRECTION
|
|
|
|
|
cmp #DIR_DOWN
|
|
|
|
|
bne lookout_no_exit
|
2020-09-18 01:26:01 +00:00
|
|
|
|
2020-09-19 05:36:48 +00:00
|
|
|
lda #MONKEY_POSTER
|
|
|
|
|
sta LOCATION
|
|
|
|
|
lda #4
|
|
|
|
|
sta GUYBRUSH_X
|
|
|
|
|
sta DESTINATION_X
|
|
|
|
|
lda #20
|
|
|
|
|
sta GUYBRUSH_Y
|
|
|
|
|
sta DESTINATION_Y
|
|
|
|
|
jsr change_location
|
|
|
|
|
jmp lookout_no_exit
|
|
|
|
|
|
|
|
|
|
lookout_check_arch:
|
|
|
|
|
|
|
|
|
|
lda GUYBRUSH_Y
|
|
|
|
|
cmp #12
|
2020-09-18 01:26:01 +00:00
|
|
|
bcs lookout_no_exit
|
2020-09-19 05:36:48 +00:00
|
|
|
lda GUYBRUSH_DIRECTION
|
|
|
|
|
cmp #DIR_UP
|
|
|
|
|
bne lookout_no_exit
|
2020-09-18 01:26:01 +00:00
|
|
|
|
2020-09-19 05:36:48 +00:00
|
|
|
lda #MONKEY_MAP
|
2020-09-18 01:26:01 +00:00
|
|
|
sta LOCATION
|
2020-09-18 02:53:00 +00:00
|
|
|
lda #4
|
2020-09-18 01:26:01 +00:00
|
|
|
sta GUYBRUSH_X
|
2020-09-18 02:53:00 +00:00
|
|
|
sta DESTINATION_X
|
|
|
|
|
lda #20
|
2020-09-18 01:26:01 +00:00
|
|
|
sta GUYBRUSH_Y
|
2020-09-18 02:53:00 +00:00
|
|
|
sta DESTINATION_Y
|
2020-09-18 01:26:01 +00:00
|
|
|
jsr change_location
|
2020-09-19 05:36:48 +00:00
|
|
|
jmp lookout_no_exit
|
2020-09-18 01:26:01 +00:00
|
|
|
|
|
|
|
|
lookout_no_exit:
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
lookout_adjust_destination:
|
|
|
|
|
|
|
|
|
|
ld_check_x:
|
|
|
|
|
lda DESTINATION_X
|
|
|
|
|
cmp #19
|
|
|
|
|
bcc ld_x_too_small
|
2020-09-19 05:36:48 +00:00
|
|
|
cmp #34
|
2020-09-18 01:26:01 +00:00
|
|
|
bcs ld_x_too_big
|
|
|
|
|
jmp ld_check_y
|
|
|
|
|
|
|
|
|
|
ld_x_too_big:
|
2020-09-19 05:36:48 +00:00
|
|
|
lda #34
|
2020-09-18 01:26:01 +00:00
|
|
|
sta DESTINATION_X
|
|
|
|
|
bne ld_check_y
|
|
|
|
|
|
|
|
|
|
ld_x_too_small:
|
|
|
|
|
lda #18
|
|
|
|
|
sta DESTINATION_X
|
|
|
|
|
|
|
|
|
|
ld_check_y:
|
|
|
|
|
; if x < 28, Y must be between 16 and 18
|
|
|
|
|
; if x < 35, Y must be between 8 and 28
|
|
|
|
|
|
2020-09-19 05:36:48 +00:00
|
|
|
lda DESTINATION_X
|
|
|
|
|
cmp #28
|
|
|
|
|
bcc ld_narrow_y
|
|
|
|
|
|
|
|
|
|
ld_wide_y:
|
|
|
|
|
; lda DESTINATON_Y
|
|
|
|
|
jmp done_ld_adjust
|
|
|
|
|
|
|
|
|
|
ld_narrow_y:
|
2020-09-18 01:26:01 +00:00
|
|
|
lda DESTINATION_Y
|
|
|
|
|
cmp #16
|
|
|
|
|
bcc ld_y_too_small
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
ld_y_too_small:
|
|
|
|
|
lda #16
|
|
|
|
|
sta DESTINATION_Y
|
|
|
|
|
|
|
|
|
|
done_ld_adjust:
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2020-09-17 23:38:34 +00:00
|
|
|
draw_fire:
|
|
|
|
|
lda FRAMEL
|
|
|
|
|
and #$18
|
|
|
|
|
lsr
|
|
|
|
|
lsr
|
|
|
|
|
tay
|
|
|
|
|
lda fire_sprites,Y
|
|
|
|
|
sta INL
|
|
|
|
|
lda fire_sprites+1,Y
|
|
|
|
|
sta INH
|
|
|
|
|
|
|
|
|
|
lda #16
|
|
|
|
|
sta XPOS
|
|
|
|
|
lda #18
|
|
|
|
|
sta YPOS
|
|
|
|
|
|
|
|
|
|
jsr put_sprite_crop
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
fire_sprites:
|
|
|
|
|
.word fire1_sprite
|
|
|
|
|
.word fire2_sprite
|
|
|
|
|
.word fire3_sprite
|
|
|
|
|
.word fire2_sprite
|
|
|
|
|
|
|
|
|
|
fire1_sprite:
|
|
|
|
|
.byte 2,4
|
|
|
|
|
.byte $dA,$AA
|
|
|
|
|
.byte $dd,$9A
|
|
|
|
|
.byte $99,$dd
|
|
|
|
|
.byte $dd,$dd
|
|
|
|
|
|
|
|
|
|
fire2_sprite:
|
|
|
|
|
.byte 2,4
|
|
|
|
|
.byte $AA,$AA
|
|
|
|
|
.byte $dd,$dd
|
|
|
|
|
.byte $9d,$99
|
|
|
|
|
.byte $dd,$dd
|
|
|
|
|
|
|
|
|
|
fire3_sprite:
|
|
|
|
|
.byte 2,4
|
|
|
|
|
.byte $AA,$aa
|
|
|
|
|
.byte $9A,$dd
|
|
|
|
|
.byte $d9,$9d
|
|
|
|
|
.byte $dd,$dd
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
draw_wall:
|
|
|
|
|
|
|
|
|
|
lda #<wall_sprite
|
|
|
|
|
sta INL
|
|
|
|
|
lda #>wall_sprite
|
|
|
|
|
sta INH
|
|
|
|
|
|
|
|
|
|
lda #18
|
|
|
|
|
sta XPOS
|
|
|
|
|
lda #22
|
|
|
|
|
sta YPOS
|
|
|
|
|
|
|
|
|
|
jsr put_sprite_crop
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
wall_sprite:
|
|
|
|
|
.byte 9,6
|
|
|
|
|
.byte $AA,$AA,$8A,$0A,$5A,$AA,$AA,$AA,$AA
|
|
|
|
|
.byte $AA,$8A,$50,$05,$60,$AA,$AA,$6A,$6A
|
|
|
|
|
.byte $58,$08,$55,$60,$60,$AA,$AA,$66,$60
|
|
|
|
|
.byte $06,$66,$26,$00,$66,$AA,$AA,$66,$00
|
|
|
|
|
.byte $06,$05,$65,$60,$50,$5A,$5A,$66,$00
|
|
|
|
|
.byte $00,$60,$00,$60,$06,$60,$06,$06,$06
|
|
|
|
|
|
