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

198 lines
3.6 KiB
ArmAsm

; stuff regarding the zipline
; if x<4 goto MONKEY_MAP at 23,4
zipline_check_exit:
lda GUYBRUSH_X
cmp #4
bcc zipline_to_map
bcs zipline_no_exit
zipline_to_map:
lda #MONKEY_MAP
sta LOCATION
lda #GUYBRUSH_TINY
sta GUYBRUSH_SIZE
lda #23
sta GUYBRUSH_X
sta DESTINATION_X
lda #4
sta GUYBRUSH_Y
sta DESTINATION_Y
jsr change_location
zipline_no_exit:
rts
;==========================
;==========================
; zipline adjust destination
;==========================
;==========================
zipline_adjust_destination:
; just make Y always 26
zp_check_y:
zp_y_too_small:
lda #26
sta DESTINATION_Y
done_zp_adjust:
rts
draw_sign:
lda FRAMEL
and #$10
beq done_draw_sign
lda #<sign_sprite
sta INL
lda #>sign_sprite
sta INH
lda #0
sta XPOS
lda #4
sta YPOS
jsr put_sprite_crop
done_draw_sign:
rts
sign_sprite:
.byte 16,11
.byte $dA,$1A,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$d1,$AA,$AA,$AA
.byte $AA,$AA,$Ad,$A1,$Ad,$A1,$dA,$1A,$AA,$AA,$AA,$AA,$1A,$Ad,$1A,$AA
.byte $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$Ad,$A1,$dA,$1A,$Ad,$AA,$Ad,$1A
.byte $AA,$Ad,$1A,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$dA
.byte $AA,$AA,$Ad,$dA,$1A,$dA,$1A,$dA,$AA,$AA,$AA,$AA,$AA,$dA,$1A,$AA
.byte $A1,$Ad,$A1,$1A,$dA,$1A,$AA,$AA,$A1,$Ad,$A1,$Ad,$1A,$AA,$AA,$AA
.byte $AA,$AA,$1d,$AA,$AA,$AA,$1d,$AA,$AA,$dA,$1A,$Ad,$AA,$AA,$AA,$AA
.byte $AA,$AA,$Ad,$A1,$dA,$A1,$Ad,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
.byte $AA,$A1,$Ad,$AA,$1A,$Ad,$A1,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
.byte $AA,$dA,$AA,$AA,$AA,$AA,$1d,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
.byte $AA,$1A,$dA,$A1,$Ad,$1A,$dA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
;=============================
sign_action:
lda CURRENT_VERB
asl
tay
lda sign_actions,Y
cmp #$ff
beq sign_nothing
sta MESSAGE_L
lda sign_actions+1,Y
sta MESSAGE_H
jmp do_display_message
sign_nothing:
lda #VERB_WALK
sta CURRENT_VERB
rts
sign_actions:
.word $FFFF ; give
.word doesnt_open ; open
.word doesnt_work ; close
.word cant_pick_up ; pick_up
.word sign_look ; look_at
.word $FFFF ; talk_to
.word doesnt_work ; use
.word icant_move ; push
.word icant_move ; pull
sign_look: .byte 2,21,"GAUDY BUT IN A CHEERFUL SORT OF WAY",0
;=============================
cable_action:
lda CURRENT_VERB
asl
tay
lda cable_actions,Y
cmp #$ff
beq cable_nothing
sta MESSAGE_L
lda cable_actions+1,Y
sta MESSAGE_H
jmp do_display_message
cable_nothing:
lda #VERB_WALK
sta CURRENT_VERB
rts
cable_actions:
.word $FFFF ; give
.word doesnt_open ; open
.word doesnt_work ; close
.word cant_pick_up ; pick_up
.word cable_look ; look_at
.word $FFFF ; talk_to
.word $FFFF ; use
.word icant_move ; push
.word icant_move ; pull
cable_look: .byte 1,21,"HMM I THINK IT COULD SUPPORT MY WEIGHT",0
;=============================
pole_action:
lda CURRENT_VERB
asl
tay
lda pole_actions,Y
cmp #$ff
beq pole_nothing
sta MESSAGE_L
lda pole_actions+1,Y
sta MESSAGE_H
jmp do_display_message
pole_nothing:
lda #VERB_WALK
sta CURRENT_VERB
rts
pole_actions:
.word $FFFF ; give
.word doesnt_open ; open
.word doesnt_work ; close
.word cant_pick_up ; pick_up
.word pole_look ; look_at
.word $FFFF ; talk_to
.word $FFFF ; use ; FIXME, use pool climbs ladder
.word icant_move ; push
.word icant_move ; pull
pole_look: .byte 6,21,"IT'S JUST LIKE THE OTHER ONE",0
zipline_check_bounds:
rts