mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-26 00:29:29 +00:00
monkey: minor fixes, bump to v0.4
This commit is contained in:
parent
504f6ef4b7
commit
8749117d13
|
@ -1,12 +1,11 @@
|
||||||
overall:
|
overall:
|
||||||
+ better bounds checking on paths
|
+ better bounds checking on paths
|
||||||
|
+ walk slower when tiny?
|
||||||
|
|
||||||
hook up actions:
|
hook up actions:
|
||||||
+ scumm bar1
|
+ scumm bar1
|
||||||
|
|
||||||
foreground:
|
foreground:
|
||||||
+ church
|
|
||||||
+ voodoo chicken
|
|
||||||
+ bar1
|
+ bar1
|
||||||
|
|
||||||
animations:
|
animations:
|
||||||
|
|
Binary file not shown.
Before Width: | Height: | Size: 804 B After Width: | Height: | Size: 5.8 KiB |
|
@ -1,5 +1,5 @@
|
||||||
5 HOME
|
5 HOME
|
||||||
10 PRINT "LOADING MONKEY V0.03"
|
10 PRINT "LOADING MONKEY V0.04"
|
||||||
20 PRINT:PRINT
|
20 PRINT:PRINT
|
||||||
40 PRINT "CONTROLS: "
|
40 PRINT "CONTROLS: "
|
||||||
42 PRINT " MOVE CURSOR : ARROWS OR WASD"
|
42 PRINT " MOVE CURSOR : ARROWS OR WASD"
|
||||||
|
|
|
@ -52,8 +52,8 @@ monkey_start:
|
||||||
; set up initial location
|
; set up initial location
|
||||||
|
|
||||||
; lda #MONKEY_BAR
|
; lda #MONKEY_BAR
|
||||||
; lda #MONKEY_LOOKOUT
|
lda #MONKEY_LOOKOUT
|
||||||
lda #MONKEY_VOODOO1
|
; lda #MONKEY_VOODOO1
|
||||||
sta LOCATION
|
sta LOCATION
|
||||||
|
|
||||||
jsr change_location
|
jsr change_location
|
||||||
|
|
|
@ -254,122 +254,6 @@ poster_look:
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;=============================
|
|
||||||
archway_action:
|
|
||||||
lda CURRENT_VERB
|
|
||||||
asl
|
|
||||||
tay
|
|
||||||
|
|
||||||
lda archway_actions,Y
|
|
||||||
cmp #$ff
|
|
||||||
beq archway_nothing
|
|
||||||
|
|
||||||
sta MESSAGE_L
|
|
||||||
lda archway_actions+1,Y
|
|
||||||
sta MESSAGE_H
|
|
||||||
|
|
||||||
jmp do_display_message
|
|
||||||
|
|
||||||
archway_nothing:
|
|
||||||
lda #VERB_WALK
|
|
||||||
sta CURRENT_VERB
|
|
||||||
rts
|
|
||||||
|
|
||||||
archway_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 doesnt_work ; use
|
|
||||||
.word icant_move ; push
|
|
||||||
.word icant_move ; pull
|
|
||||||
|
|
||||||
|
|
||||||
;=============================
|
|
||||||
clock_action:
|
|
||||||
lda CURRENT_VERB
|
|
||||||
asl
|
|
||||||
tay
|
|
||||||
|
|
||||||
lda clock_actions,Y
|
|
||||||
cmp #$ff
|
|
||||||
beq clock_nothing
|
|
||||||
|
|
||||||
sta MESSAGE_L
|
|
||||||
lda clock_actions+1,Y
|
|
||||||
sta MESSAGE_H
|
|
||||||
|
|
||||||
jmp do_display_message
|
|
||||||
|
|
||||||
clock_nothing:
|
|
||||||
lda #VERB_WALK
|
|
||||||
sta CURRENT_VERB
|
|
||||||
rts
|
|
||||||
|
|
||||||
clock_actions:
|
|
||||||
.word $FFFF ; give
|
|
||||||
.word doesnt_open ; open
|
|
||||||
.word doesnt_work ; close
|
|
||||||
.word cant_pick_up ; pick_up
|
|
||||||
.word clock_look ; look_at
|
|
||||||
.word $FFFF ; talk_to
|
|
||||||
.word doesnt_work ; use
|
|
||||||
.word icant_move ; push
|
|
||||||
.word icant_move ; pull
|
|
||||||
|
|
||||||
clock_look:
|
|
||||||
.byte 12,21,"IT'S 10 O'CLOCK.",0
|
|
||||||
|
|
||||||
;=============================
|
|
||||||
citizen_action:
|
|
||||||
lda CURRENT_VERB
|
|
||||||
asl
|
|
||||||
tay
|
|
||||||
|
|
||||||
lda citizen_actions,Y
|
|
||||||
cmp #$ff
|
|
||||||
beq citizen_nothing
|
|
||||||
|
|
||||||
sta MESSAGE_L
|
|
||||||
lda citizen_actions+1,Y
|
|
||||||
sta MESSAGE_H
|
|
||||||
|
|
||||||
jmp do_display_message
|
|
||||||
|
|
||||||
citizen_nothing:
|
|
||||||
lda #VERB_WALK
|
|
||||||
sta CURRENT_VERB
|
|
||||||
rts
|
|
||||||
|
|
||||||
|
|
||||||
citizen_actions:
|
|
||||||
.word $FFFF ; give
|
|
||||||
.word $FFFF ; open
|
|
||||||
.word $FFFF ; close
|
|
||||||
.word $FFFF ; pick_up
|
|
||||||
.word citizen_look ; look_at
|
|
||||||
.word citizen_talk ; talk_to
|
|
||||||
.word $FFFF ; use
|
|
||||||
.word $FFFF ; push
|
|
||||||
.word $FFFF ; pull
|
|
||||||
|
|
||||||
citizen_look:
|
|
||||||
.byte 9,21,"WHAT'RE YOU LOOKING AT?",0
|
|
||||||
|
|
||||||
citizen_talk:
|
|
||||||
.byte 4,21,"DO YOU HAVE A COUSIN NAMED SVEN?",0
|
|
||||||
|
|
||||||
|
|
||||||
;=============================
|
|
||||||
town_door_action:
|
|
||||||
town_door_nothing:
|
|
||||||
lda #VERB_WALK
|
|
||||||
sta CURRENT_VERB
|
|
||||||
rts
|
|
||||||
|
|
||||||
;=============================
|
;=============================
|
||||||
map_action:
|
map_action:
|
||||||
map_nothing:
|
map_nothing:
|
||||||
|
|
|
@ -48,6 +48,10 @@ lookout_check_arch:
|
||||||
lda #20
|
lda #20
|
||||||
sta GUYBRUSH_Y
|
sta GUYBRUSH_Y
|
||||||
sta DESTINATION_Y
|
sta DESTINATION_Y
|
||||||
|
|
||||||
|
lda #GUYBRUSH_TINY
|
||||||
|
sta GUYBRUSH_SIZE
|
||||||
|
|
||||||
jsr change_location
|
jsr change_location
|
||||||
jmp lookout_no_exit
|
jmp lookout_no_exit
|
||||||
|
|
||||||
|
|
|
@ -483,3 +483,137 @@ adjust_feet_tiny:
|
||||||
done_adjust_feet:
|
done_adjust_feet:
|
||||||
sta GUYBRUSH_FEET
|
sta GUYBRUSH_FEET
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;=============================
|
||||||
|
archway_action:
|
||||||
|
lda CURRENT_VERB
|
||||||
|
asl
|
||||||
|
tay
|
||||||
|
|
||||||
|
lda archway_actions,Y
|
||||||
|
cmp #$ff
|
||||||
|
beq archway_nothing
|
||||||
|
|
||||||
|
sta MESSAGE_L
|
||||||
|
lda archway_actions+1,Y
|
||||||
|
sta MESSAGE_H
|
||||||
|
|
||||||
|
jmp do_display_message
|
||||||
|
|
||||||
|
archway_nothing:
|
||||||
|
lda #VERB_WALK
|
||||||
|
sta CURRENT_VERB
|
||||||
|
rts
|
||||||
|
|
||||||
|
archway_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 doesnt_work ; use
|
||||||
|
.word icant_move ; push
|
||||||
|
.word icant_move ; pull
|
||||||
|
|
||||||
|
|
||||||
|
;=============================
|
||||||
|
clock_action:
|
||||||
|
lda CURRENT_VERB
|
||||||
|
asl
|
||||||
|
tay
|
||||||
|
|
||||||
|
lda clock_actions,Y
|
||||||
|
cmp #$ff
|
||||||
|
beq clock_nothing
|
||||||
|
|
||||||
|
sta MESSAGE_L
|
||||||
|
lda clock_actions+1,Y
|
||||||
|
sta MESSAGE_H
|
||||||
|
|
||||||
|
jmp do_display_message
|
||||||
|
|
||||||
|
clock_nothing:
|
||||||
|
lda #VERB_WALK
|
||||||
|
sta CURRENT_VERB
|
||||||
|
rts
|
||||||
|
|
||||||
|
clock_actions:
|
||||||
|
.word $FFFF ; give
|
||||||
|
.word doesnt_open ; open
|
||||||
|
.word doesnt_work ; close
|
||||||
|
.word cant_pick_up ; pick_up
|
||||||
|
.word clock_look ; look_at
|
||||||
|
.word $FFFF ; talk_to
|
||||||
|
.word doesnt_work ; use
|
||||||
|
.word icant_move ; push
|
||||||
|
.word icant_move ; pull
|
||||||
|
|
||||||
|
clock_look:
|
||||||
|
.byte 12,21,"IT'S 10 O'CLOCK.",0
|
||||||
|
|
||||||
|
;=============================
|
||||||
|
citizen_action:
|
||||||
|
lda CURRENT_VERB
|
||||||
|
asl
|
||||||
|
tay
|
||||||
|
|
||||||
|
lda citizen_actions,Y
|
||||||
|
cmp #$ff
|
||||||
|
beq citizen_nothing
|
||||||
|
|
||||||
|
sta MESSAGE_L
|
||||||
|
lda citizen_actions+1,Y
|
||||||
|
sta MESSAGE_H
|
||||||
|
|
||||||
|
jmp do_display_message
|
||||||
|
|
||||||
|
citizen_nothing:
|
||||||
|
lda #VERB_WALK
|
||||||
|
sta CURRENT_VERB
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
citizen_actions:
|
||||||
|
.word $FFFF ; give
|
||||||
|
.word $FFFF ; open
|
||||||
|
.word $FFFF ; close
|
||||||
|
.word $FFFF ; pick_up
|
||||||
|
.word citizen_look ; look_at
|
||||||
|
.word citizen_talk ; talk_to
|
||||||
|
.word $FFFF ; use
|
||||||
|
.word $FFFF ; push
|
||||||
|
.word $FFFF ; pull
|
||||||
|
|
||||||
|
citizen_look:
|
||||||
|
.byte 9,21,"WHAT'RE YOU LOOKING AT?",0
|
||||||
|
|
||||||
|
citizen_talk:
|
||||||
|
.byte 4,21,"DO YOU HAVE A COUSIN NAMED SVEN?",0
|
||||||
|
|
||||||
|
|
||||||
|
;=============================
|
||||||
|
town_door_action:
|
||||||
|
|
||||||
|
lda CURRENT_VERB
|
||||||
|
cmp #VERB_OPEN
|
||||||
|
bne town_door_nothing
|
||||||
|
|
||||||
|
; check if close?
|
||||||
|
|
||||||
|
; move to other door
|
||||||
|
|
||||||
|
lda #3
|
||||||
|
sta GUYBRUSH_X
|
||||||
|
lda #18
|
||||||
|
sta GUYBRUSH_Y
|
||||||
|
lda #GUYBRUSH_TINY
|
||||||
|
sta GUYBRUSH_SIZE
|
||||||
|
|
||||||
|
town_door_nothing:
|
||||||
|
lda #VERB_WALK
|
||||||
|
sta CURRENT_VERB
|
||||||
|
rts
|
||||||
|
|
|
@ -30,7 +30,7 @@ voodoo1_to_voodoo2:
|
||||||
voodoo1_to_town:
|
voodoo1_to_town:
|
||||||
lda #MONKEY_TOWN
|
lda #MONKEY_TOWN
|
||||||
sta LOCATION
|
sta LOCATION
|
||||||
lda #10
|
lda #8
|
||||||
sta GUYBRUSH_X
|
sta GUYBRUSH_X
|
||||||
sta DESTINATION_X
|
sta DESTINATION_X
|
||||||
lda #18
|
lda #18
|
||||||
|
|
Loading…
Reference in New Issue
Block a user