monkey: hookup voodoo room

This commit is contained in:
Vince Weaver 2020-10-12 00:42:40 -04:00
parent f05d89ddbc
commit 19c1c1534c
3 changed files with 442 additions and 29 deletions

View File

@ -17,10 +17,6 @@ animations:
+ poodle dogs
+ voodoo smoke
hookup rooms:
+ voodoo shop
+ voodoo lady
cutscenes:
+ chapter intro
+ lechuck

View File

@ -362,12 +362,68 @@ location12:
.word voodoo1_check_exit ; exit
.word voodoo1_check_bounds ; bounds check
.byte GUYBRUSH_BIG ; size
.byte 1 ; num areas
.byte 12 ; num areas
.byte 11,17 ; x
.byte 12,26 ; y
.word door_string ; name
.word voodoo1_door_action-1 ; action
.byte 24,33 ; x
.byte 20,26 ; y
.word couch_string ; name
.word couch_action-1 ; action
.byte 28,33 ; x
.byte 10,18 ; y
.word chickens_string ; name
.word chickens_action-1 ; action
.byte 22,27 ; x
.byte 10,20 ; y
.word voodoo_knicknacks_string ; name
.word voodoo_knicknacks_action-1 ; action
.byte 20,23 ; x
.byte 16,28 ; y
.word statue_string ; name
.word statue_action-1 ; action
.byte 7,14 ; x
.byte 10,20 ; y
.word chickens_string ; name
.word chickens_action-1 ; action
.byte 12,20 ; x
.byte 30,40 ; y
.word baskets_string ; name
.word baskets_action-1 ; action
.byte 22,25 ; x
.byte 30,38 ; y
.word basket_string ; name
.word basket_action-1 ; action
.byte 34,37 ; x
.byte 32,36 ; y
.word bones_string ; name
.word bones_action-1 ; action
.byte 38,40 ; x
.byte 32,36 ; y
.word chalice_string ; name
.word chalice_action-1 ; action
.byte 31,33 ; x
.byte 30,36 ; y
.word chicken_string ; name
.word chicken_pulley_action-1 ; action
.byte 29,39 ; x
.byte 36,40 ; y
.word trunk_string ; name
.word trunk_action-1 ; action
.byte 30,36 ; x
.byte 10,36 ; y
.word pole_string ; name
.word pole_action-1 ; action
; MONKEY_VOODOO2 -- voodoo lady
location13:
@ -436,6 +492,18 @@ table_string: .byte 20,20,"TABLE",0
barrel_string: .byte 20,20,"BARREL",0
meat_string: .byte 20,20,"HUNK OF MEAT",0
; voodoo1 strings
couch_string: .byte 20,20,"COUCH",0
chicken_string: .byte 20,20,"CHICKEN",0
chickens_string:.byte 20,20,"CHICKENS",0
statue_string: .byte 20,20,"STATUE",0
basket_string: .byte 20,20,"BASKET",0
baskets_string: .byte 20,20,"BASKETS",0
bones_string: .byte 20,20,"BONES",0
chalice_string: .byte 20,20,"CHALICE",0
trunk_string: .byte 20,20,"TRUNK",0
voodoo_knicknacks_string:.byte 20,20,"VOODOO KNICKNACKS",0
; voodoo2 strings
voodoo_lady_string: .byte 20,20,"VOODOO LADY",0

View File

@ -64,25 +64,374 @@ done_v1_adjust:
rts
;draw_house:
; lda #<wall_sprite
; sta INL
; lda #>wall_sprite
; sta INH
; lda #18
; sta XPOS
; lda #22
; sta YPOS
; jsr put_sprite_crop
; rts
;house_sprite:
;==========================
;==========================
; voodoo1 check bounds
;==========================
;==========================
voodoo1_check_bounds:
rts
;==========================
;==========================
; voodoo1 actions
;==========================
;==========================
voodoo1_door_action:
voodoo1_door_nothing:
lda #VERB_WALK
sta CURRENT_VERB
rts
;=============================
couch_action:
lda CURRENT_VERB
asl
tay
lda couch_actions,Y
cmp #$ff
beq couch_nothing
sta MESSAGE_L
lda couch_actions+1,Y
sta MESSAGE_H
jmp do_display_message
couch_nothing:
lda #VERB_WALK
sta CURRENT_VERB
rts
couch_actions:
.word $FFFF ; give
.word creepy_voodoo ; open
.word creepy_voodoo ; close
.word creepy_voodoo ; pick_up
.word couch_look ; look_at
.word $FFFF ; talk_to
.word couch_use ; use
.word creepy_voodoo ; push
.word creepy_voodoo ; pull
couch_look: .byte 0,21,"LOOKS COMFORTABLE IN A CREEPY SORTA WAY",0
couch_use: .byte 1,21,"I CAN'T FALL ASLEEP IN STRANCE PLACES",0
creepy_voodoo: .byte 0,21,"I'D RATHER NOT TOUCH CREEPY VOODOO STUFF",0
;=============================
chickens_action:
lda CURRENT_VERB
asl
tay
lda chickens_actions,Y
cmp #$ff
beq chickens_nothing
sta MESSAGE_L
lda chickens_actions+1,Y
sta MESSAGE_H
jmp do_display_message
chickens_nothing:
lda #VERB_WALK
sta CURRENT_VERB
rts
chickens_actions:
.word $FFFF ; give
.word creepy_voodoo ; open
.word creepy_voodoo ; close
.word chickens_pickup ; pick_up
.word chickens_look ; look_at
.word $FFFF ; talk_to
.word creepy_voodoo ; use
.word creepy_voodoo ; push
.word creepy_voodoo ; pull
chickens_pickup: .byte 14,21,"I BETTER NOT",0
chickens_look: .byte 12,21,"POOR CHICKENS...",0
;=============================
statue_action:
lda CURRENT_VERB
asl
tay
lda statue_actions,Y
cmp #$ff
beq statue_nothing
sta MESSAGE_L
lda statue_actions+1,Y
sta MESSAGE_H
jmp do_display_message
statue_nothing:
lda #VERB_WALK
sta CURRENT_VERB
rts
statue_actions:
.word $FFFF ; give
.word creepy_voodoo ; open
.word creepy_voodoo ; close
.word creepy_voodoo ; pick_up
.word creepy_voodoo ; look_at
.word $FFFF ; talk_to
.word creepy_voodoo ; use
.word creepy_voodoo ; push
.word creepy_voodoo ; pull
;=============================
voodoo_knicknacks_action:
lda CURRENT_VERB
asl
tay
lda voodoo_knicknacks_actions,Y
cmp #$ff
beq voodoo_knicknacks_nothing
sta MESSAGE_L
lda voodoo_knicknacks_actions+1,Y
sta MESSAGE_H
jmp do_display_message
voodoo_knicknacks_nothing:
lda #VERB_WALK
sta CURRENT_VERB
rts
voodoo_knicknacks_actions:
.word $FFFF ; give
.word creepy_voodoo ; open
.word creepy_voodoo ; close
.word creepy_voodoo ; pick_up
.word voodoo_knicknacks_look ; look_at
.word $FFFF ; talk_to
.word creepy_voodoo ; use
.word creepy_voodoo ; push
.word creepy_voodoo ; pull
voodoo_knicknacks_look: .byte 3,21,"THERE'S A BAG OF BAT DRIPPINGS",0
;=============================
baskets_action:
lda CURRENT_VERB
asl
tay
lda baskets_actions,Y
cmp #$ff
beq baskets_nothing
sta MESSAGE_L
lda baskets_actions+1,Y
sta MESSAGE_H
jmp do_display_message
baskets_nothing:
lda #VERB_WALK
sta CURRENT_VERB
rts
baskets_actions:
.word $FFFF ; give
.word baskets_open ; open
.word creepy_voodoo ; close
.word creepy_voodoo ; pick_up
.word baskets_look ; look_at
.word $FFFF ; talk_to
.word creepy_voodoo ; use
.word creepy_voodoo ; push
.word creepy_voodoo ; pull
baskets_open: .byte 10,21,"I'M NOT THAT CURIOUS",0
baskets_look: .byte 1,21,"GEE, I WONDER WHAT'S IN THESE BASKETS",0
;=============================
basket_action:
lda CURRENT_VERB
asl
tay
lda basket_actions,Y
cmp #$ff
beq basket_nothing
sta MESSAGE_L
lda basket_actions+1,Y
sta MESSAGE_H
jmp do_display_message
basket_nothing:
lda #VERB_WALK
sta CURRENT_VERB
rts
basket_actions:
.word $FFFF ; give
.word basket_open ; open
.word creepy_voodoo ; close
.word creepy_voodoo ; pick_up
.word basket_look ; look_at
.word $FFFF ; talk_to
.word creepy_voodoo ; use
.word creepy_voodoo ; push
.word creepy_voodoo ; pull
basket_open: .byte 4,21,"SOMETHING WOULD PROBABLY JUMP OUT",0
basket_look: .byte 0,21,"HMMM.. I THINK I HEAR SLITHERING INSIDE",0
;=============================
bones_action:
lda CURRENT_VERB
asl
tay
lda bones_actions,Y
cmp #$ff
beq bones_nothing
sta MESSAGE_L
lda bones_actions+1,Y
sta MESSAGE_H
jmp do_display_message
bones_nothing:
lda #VERB_WALK
sta CURRENT_VERB
rts
bones_actions:
.word $FFFF ; give
.word creepy_voodoo ; open
.word creepy_voodoo ; close
.word creepy_voodoo ; pick_up
.word bones_look ; look_at
.word $FFFF ; talk_to
.word creepy_voodoo ; use
.word creepy_voodoo ; push
.word creepy_voodoo ; pull
bones_look: .byte 3,21,"POOR LITTLE THING, WHATEVER IT WAS",0
;=============================
chalice_action:
lda CURRENT_VERB
asl
tay
lda chalice_actions,Y
cmp #$ff
beq chalice_nothing
sta MESSAGE_L
lda chalice_actions+1,Y
sta MESSAGE_H
jmp do_display_message
chalice_nothing:
lda #VERB_WALK
sta CURRENT_VERB
rts
chalice_actions:
.word $FFFF ; give
.word creepy_voodoo ; open
.word creepy_voodoo ; close
.word creepy_voodoo ; pick_up
.word chalice_look ; look_at
.word $FFFF ; talk_to
.word creepy_voodoo ; use
.word creepy_voodoo ; push
.word creepy_voodoo ; pull
chalice_look: .byte 3,21,"NOW THIS IS THE CUP OF A CARPENTER",0
;=============================
trunk_action:
lda CURRENT_VERB
asl
tay
lda trunk_actions,Y
cmp #$ff
beq trunk_nothing
sta MESSAGE_L
lda trunk_actions+1,Y
sta MESSAGE_H
jmp do_display_message
trunk_nothing:
lda #VERB_WALK
sta CURRENT_VERB
rts
trunk_actions:
.word $FFFF ; give
.word creepy_voodoo ; open
.word creepy_voodoo ; close
.word creepy_voodoo ; pick_up
.word trunk_look ; look_at
.word $FFFF ; talk_to
.word creepy_voodoo ; use
.word creepy_voodoo ; push
.word creepy_voodoo ; pull
trunk_look: .byte 8,21,"PROBABLY HAS A BODY IN IT",0
;=============================
chicken_pulley_action:
lda CURRENT_VERB
asl
tay
lda chicken_pulley_actions,Y
cmp #$ff
beq chicken_pulley_nothing
sta MESSAGE_L
lda chicken_pulley_actions+1,Y
sta MESSAGE_H
jmp do_display_message
chicken_pulley_nothing:
lda #VERB_WALK
sta CURRENT_VERB
rts
chicken_pulley_actions:
.word $FFFF ; give
.word doesnt_open ; open
.word doesnt_work ; close
.word $FFFF ; pick_up
.word chicken_pulley_look ; look_at
.word $FFFF ; talk_to
.word $FFFF ; use
.word icant_move ; push
.word icant_move ; pull
chicken_pulley_look: .byte 2,21,"A RUBBER CHICKEN WITH A PULLEY IN IT",0