mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-04 05:05:13 +00:00
198 lines
3.6 KiB
ArmAsm
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
|