mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-29 00:31:52 +00:00
151 lines
2.3 KiB
ArmAsm
151 lines
2.3 KiB
ArmAsm
; voodoo lady
|
|
|
|
; if x<8 goto MONKEY_VOODOO1
|
|
|
|
voodoo2_check_exit:
|
|
|
|
lda GUYBRUSH_X
|
|
cmp #8
|
|
bcc voodoo2_to_voodoo1
|
|
bcs voodoo2_no_exit
|
|
|
|
voodoo2_to_voodoo1:
|
|
lda #MONKEY_VOODOO1
|
|
sta LOCATION
|
|
lda #30
|
|
sta GUYBRUSH_X
|
|
sta DESTINATION_X
|
|
lda #20
|
|
sta GUYBRUSH_Y
|
|
sta DESTINATION_Y
|
|
jsr change_location
|
|
jmp voodoo2_no_exit
|
|
|
|
voodoo2_no_exit:
|
|
rts
|
|
|
|
|
|
|
|
;==========================
|
|
;==========================
|
|
; voodoo2 adjust destination
|
|
;==========================
|
|
;==========================
|
|
voodoo2_adjust_destination:
|
|
; just make Y always 20
|
|
|
|
v2_check_y:
|
|
; if x < 28, Y must be between 16 and 18
|
|
; if x < 35, Y must be between 8 and 28
|
|
|
|
v2_y_too_small:
|
|
lda #20
|
|
sta DESTINATION_Y
|
|
|
|
done_v2_adjust:
|
|
rts
|
|
|
|
|
|
|
|
draw_smoke:
|
|
|
|
lda FRAMEL
|
|
and #$10
|
|
beq smoke2
|
|
|
|
smoke1:
|
|
lda #<smoke_sprite1
|
|
sta INL
|
|
lda #>smoke_sprite1
|
|
jmp actually_draw_smoke
|
|
smoke2:
|
|
lda #<smoke_sprite2
|
|
sta INL
|
|
lda #>smoke_sprite2
|
|
actually_draw_smoke:
|
|
sta INH
|
|
|
|
lda #18
|
|
sta XPOS
|
|
lda #0
|
|
sta YPOS
|
|
|
|
jmp put_sprite_crop
|
|
|
|
smoke_sprite1:
|
|
.byte 4,14
|
|
.byte $ff,$cc,$AA,$AA
|
|
.byte $AA,$ff,$cA,$AA
|
|
.byte $AA,$ff,$cc,$AA
|
|
.byte $AA,$ff,$AA,$cc
|
|
.byte $AA,$ff,$cA,$AA
|
|
.byte $AA,$ff,$Ac,$AA
|
|
.byte $AA,$ff,$AA,$AA
|
|
.byte $cc,$Af,$fA,$AA
|
|
.byte $cc,$AA,$Af,$fA
|
|
.byte $AA,$Ac,$cc,$ff
|
|
.byte $AA,$AA,$cc,$ff
|
|
.byte $AA,$cc,$fA,$ff
|
|
.byte $AA,$cc,$ff,$AA
|
|
.byte $AA,$cc,$ff,$AA
|
|
|
|
smoke_sprite2:
|
|
.byte 4,14
|
|
.byte $AA,$ff,$cA,$AA
|
|
.byte $ff,$aa,$cc,$AA
|
|
.byte $ff,$cc,$AA,$AA
|
|
.byte $ff,$cc,$AA,$AA
|
|
.byte $ff,$ac,$cA,$AA
|
|
.byte $AA,$ff,$cc,$AA
|
|
.byte $AA,$ff,$AA,$cc
|
|
.byte $AA,$ff,$AA,$cc
|
|
.byte $AA,$ff,$fc,$AA
|
|
.byte $AA,$cc,$ff,$AA
|
|
.byte $cc,$AA,$ff,$AA
|
|
.byte $Ac,$cA,$ff,$AA
|
|
.byte $AA,$fc,$cf,$AA
|
|
.byte $7A,$ff,$cc,$A7
|
|
|
|
|
|
|
|
|
|
voodoo2_check_bounds:
|
|
rts
|
|
|
|
|
|
;=============================
|
|
voodoo_lady_action:
|
|
lda CURRENT_VERB
|
|
asl
|
|
tay
|
|
|
|
lda voodoo_lady_actions,Y
|
|
cmp #$ff
|
|
beq voodoo_lady_nothing
|
|
|
|
sta MESSAGE_L
|
|
lda voodoo_lady_actions+1,Y
|
|
sta MESSAGE_H
|
|
|
|
jmp do_display_message
|
|
|
|
voodoo_lady_nothing:
|
|
lda #VERB_WALK
|
|
sta CURRENT_VERB
|
|
rts
|
|
|
|
voodoo_lady_actions:
|
|
.word $FFFF ; give
|
|
.word doesnt_open ; open
|
|
.word doesnt_work ; close
|
|
.word cant_pick_up ; pick_up
|
|
.word $FFFF ; look_at
|
|
.word voodoo_talk ; talk_to
|
|
.word for_what ; use
|
|
.word icant_move ; push
|
|
.word icant_move ; pull
|
|
|
|
voodoo_talk:
|
|
.byte 6,21,"WHAT MAY I HELP YOU WITH SON?",0
|
|
|