dos33fsprogs/monkey/monkey_bar_inside3.s

; stuff regarding 3d room of scumm bar

	; if x<4 goto MONKEY_BAR_INSIDE2 at 34,24

bar_inside3_check_exit:

	lda	GUYBRUSH_X
	cmp	#4
	bcc	bar_inside3_to_bar_inside2
;	cmp	#35
;	bcs	bar_inside3_to_bar
	bcs	bar_inside3_no_exit


bar_inside3_to_bar_inside2:
	lda	GUYBRUSH_DIRECTION
	cmp	#DIR_LEFT
	bne	bar_inside3_no_exit

	lda	#MONKEY_BAR_INSIDE2
	sta	LOCATION
	lda	#34
	sta	GUYBRUSH_X
	sta	DESTINATION_X
	lda	#24
	sta	GUYBRUSH_Y
	sta	DESTINATION_Y
	jsr	change_location
	jmp	bar_inside3_no_exit

bar_inside3_no_exit:
	rts

	;================================
	;================================
	; bar_inside3 adjust destination
	;================================
	;================================
bar_inside3_adjust_destination:
	; just make Y always 24

	lda	#24
	sta	DESTINATION_Y

	lda	DESTINATION_X
	cmp	#33
	bcc	done_mb3_adjust

	lda	#33
	sta	DESTINATION_X


done_mb3_adjust:
	rts


	;================================
	;================================
	; bar_inside3 check bounds
	;================================
	;================================
bar_inside3_check_bounds:
	; just make Y always 20

	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:


	;===================================
	;===================================
	; actions
	;===================================
	;===================================


;=============================
bar3_door_action:
bar3_door_nothing:
	lda	#VERB_WALK
	sta	CURRENT_VERB
	rts

.if 0
       ;=============================
fireplace_action:
	lda	CURRENT_VERB
	asl
	tay

	lda	fireplace_actions,Y
	cmp	#$ff
	beq	fireplace_nothing

	sta	MESSAGE_L
	lda	fireplace_actions+1,Y
	sta	MESSAGE_H

	jmp	do_display_message

fireplace_nothing:
	lda	#VERB_WALK
	sta	CURRENT_VERB
	rts

fireplace_actions:
	.word   $FFFF		; give
	.word   doesnt_open	; open
	.word   doesnt_work	; close
	.word   cant_pick_up	; pick_up
	.word   fireplace_look	; look_at
	.word   $FFFF		; talk_to
	.word   for_what	; use
	.word   icant_move	; push
	.word   icant_move	; pull

fireplace_look:
.byte 18,21,"COZY.",0


;=============================
impt_pirate_action:
	lda	CURRENT_VERB
	asl
	tay

	lda	impt_pirate_actions,Y
	cmp	#$ff
	beq	impt_pirate_nothing

	sta	MESSAGE_L
	lda	impt_pirate_actions+1,Y
	sta	MESSAGE_H

	jmp	do_display_message

impt_pirate_nothing:
	lda	#VERB_WALK
	sta	CURRENT_VERB
	rts

impt_pirate_actions:
	.word   $FFFF		; give
	.word   $FFFF		; open
	.word   $FFFF		; close
	.word   $FFFF		; pick_up
	.word   impt_pirate_look	; look_at
	.word   impt_pirate_look	; talk_to
	.word   $FFFF		; use
	.word   $FFFF		; push
	.word   $FFFF		; pull

impt_pirate_look:
.byte 8,21,"WHAT BE YE WANTIN' BOY?",0

       ;=============================
curtain_action:
	lda	CURRENT_VERB
	asl
	tay

	lda	curtain_actions,Y
	cmp	#$ff
	beq	curtain_nothing

	sta	MESSAGE_L
	lda	curtain_actions+1,Y
	sta	MESSAGE_H

	jmp	do_display_message

curtain_nothing:
	lda	#VERB_WALK
	sta	CURRENT_VERB
	rts

curtain_actions:
	.word   $FFFF		; give
	.word   doesnt_open	; open
	.word   doesnt_work	; close
	.word   cant_pick_up	; pick_up
	.word   not_special	; look_at
	.word   $FFFF		; talk_to
	.word   for_what	; use
	.word   icant_move	; push
	.word   icant_move	; pull

.endif