dos33fsprogs/monkey/monkey_bar.s

189 lines
2.6 KiB
ArmAsm
Raw Normal View History

2020-09-18 02:53:00 +00:00
; if x<5 goto DOCK at 34,20
2020-09-18 01:37:50 +00:00
;===========================
; check if exit bar screen
;===========================
; if x<5 goto DOCK at 34,20
; if x>35 goto TOWN
2020-09-18 01:37:50 +00:00
bar_check_exit:
2020-09-18 02:53:00 +00:00
lda GUYBRUSH_X
cmp #5
bcc bar_to_dock
2020-09-19 05:36:48 +00:00
cmp #35
bcs bar_to_town
bcc bar_no_exit
2020-09-18 02:53:00 +00:00
bar_to_dock:
lda #MONKEY_DOCK
sta LOCATION
lda #34
sta GUYBRUSH_X
sta DESTINATION_X
lda #20
sta GUYBRUSH_Y
sta DESTINATION_Y
jsr change_location
2020-09-19 05:36:48 +00:00
jmp bar_no_exit
bar_to_town:
lda #MONKEY_TOWN
sta LOCATION
lda #34
sta GUYBRUSH_X
sta DESTINATION_X
lda #20
sta GUYBRUSH_Y
lda #26
sta DESTINATION_Y
lda #DIR_DOWN
sta GUYBRUSH_DIRECTION
jsr change_location
2020-09-18 01:37:50 +00:00
bar_no_exit:
rts
;===========================
; adjust walking destination
;===========================
bar_keep_in_bounds:
2020-09-18 02:53:00 +00:00
br_force_x:
lda GUYBRUSH_X
2020-09-18 02:53:00 +00:00
cmp #25
bcs br_gb_x_too_big
2020-09-18 02:53:00 +00:00
cmp #21
bcc br_gb_x_small
bcs br_gb_x_medium
2020-09-18 01:37:50 +00:00
br_gb_x_too_big:
2020-09-19 05:36:48 +00:00
lda #16
sta GUYBRUSH_Y
2020-09-18 02:53:00 +00:00
sta DESTINATION_Y
bne done_br_gb_adjust
2020-09-18 01:37:50 +00:00
br_gb_x_medium:
2020-09-18 02:53:00 +00:00
lda #18
sta GUYBRUSH_Y
2020-09-18 02:53:00 +00:00
sta DESTINATION_Y
bne done_br_gb_adjust
2020-09-18 01:37:50 +00:00
br_gb_x_small:
2020-09-18 02:53:00 +00:00
lda #20
sta GUYBRUSH_Y
sta DESTINATION_Y
done_br_gb_adjust:
rts
;===========================
; adjust walking destination
;===========================
bar_adjust_destination:
; if x<21, y=20
; if x<25, y=18
; else y=16
; also adjust actual Y
lda GUYBRUSH_Y
2020-09-18 02:53:00 +00:00
sta DESTINATION_Y
2020-09-18 01:37:50 +00:00
br_check_x:
; lda DESTINATION_X
; cmp #25
; bcs br_x_too_big
; cmp #21
; bcc br_x_small
; bcs br_x_medium
br_x_too_big:
; lda #16
; sta DESTINATION_Y
; bne done_br_adjust
br_x_medium:
; lda #18
; sta DESTINATION_Y
; bne done_br_adjust
br_x_small:
; lda #20
; sta DESTINATION_Y
2020-09-18 02:53:00 +00:00
done_br_adjust:
2020-09-18 01:37:50 +00:00
rts
2020-09-18 02:53:00 +00:00
draw_bar_door:
2020-09-18 01:37:50 +00:00
2020-09-18 02:53:00 +00:00
lda BAR_DOOR_OPEN
beq done_draw_bar_door
2020-09-18 01:37:50 +00:00
2020-09-18 02:53:00 +00:00
lda #<door_sprite
sta INL
lda #>door_sprite
sta INH
2020-09-18 01:37:50 +00:00
2020-09-18 02:53:00 +00:00
lda #11
sta XPOS
lda #22
sta YPOS
2020-09-18 01:37:50 +00:00
2020-09-18 02:53:00 +00:00
jsr put_sprite_crop
done_draw_bar_door:
rts
2020-09-18 01:37:50 +00:00
2020-09-18 02:53:00 +00:00
door_sprite:
.byte 2,5
.byte $d2,$d2
.byte $88,$DD
.byte $88,$DD
.byte $88,$DD
.byte $5d,$5D
2020-09-18 01:37:50 +00:00
draw_bar_fg_building:
; only draw it if we're that side of screeen
lda GUYBRUSH_X
cmp #24
bcc done_draw_bar_fg_building
lda #<building_sprite
sta INL
lda #>building_sprite
sta INH
lda #27
sta XPOS
lda #16
sta YPOS
jsr put_sprite_crop
done_draw_bar_fg_building:
rts
2020-09-18 01:37:50 +00:00
building_sprite:
.byte 13,7
.byte $77,$22,$9d,$00,$9d,$00,$22,$22,$22,$00,$00,$00,$0A
.byte $77,$25,$25,$25,$25,$25,$22,$22,$22,$00,$00,$00,$00
.byte $77,$22,$22,$22,$22,$22,$22,$22,$02,$00,$00,$90,$90
.byte $A7,$72,$02,$02,$02,$00,$00,$00,$00,$00,$00,$09,$09
.byte $AA,$77,$00,$00,$00,$00,$00,$00,$00,$60,$60,$d9,$dd
.byte $AA,$77,$00,$00,$00,$00,$60,$00,$60,$06,$00,$66,$dd
.byte $AA,$77,$00,$60,$26,$66,$02,$06,$00,$00,$60,$22,$00