mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-07-12 00:29:05 +00:00
107 lines
1.2 KiB
ArmAsm
107 lines
1.2 KiB
ArmAsm
; if x<5 goto DOCK at 34,20
|
|
|
|
bar_check_exit:
|
|
|
|
lda GUYBRUSH_X
|
|
cmp #5
|
|
bcc bar_to_dock
|
|
cmp #35
|
|
bcs bar_to_town
|
|
bcc bar_no_exit
|
|
|
|
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
|
|
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
|
|
|
|
|
|
bar_no_exit:
|
|
rts
|
|
|
|
bar_adjust_destination:
|
|
|
|
; if x<21, y=20
|
|
; if x<25, y=18
|
|
; else y=`6
|
|
|
|
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 #25
|
|
; sta DESTINATION_X
|
|
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
|
|
|
|
done_br_adjust:
|
|
rts
|
|
|
|
|
|
|
|
|
|
draw_bar_door:
|
|
|
|
lda BAR_DOOR_OPEN
|
|
beq done_draw_bar_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_bar_door:
|
|
rts
|
|
|
|
door_sprite:
|
|
.byte 2,5
|
|
.byte $d2,$d2
|
|
.byte $88,$DD
|
|
.byte $88,$DD
|
|
.byte $88,$DD
|
|
.byte $5d,$5D
|
|
|
|
|
|
|