mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-07 08:30:20 +00:00
mist: add ability to u-turn
much needed, not really happy with the implementation
This commit is contained in:
Vince Weaver
parent
282ebdd475
commit
db8a45e483
|
|
@ -32,8 +32,8 @@ LOCATION_WEST_BG=14 ; pointer to west background image
|
|||
LOCATION_BGS = 16 ; bitmap saying which backgrounds valid
|
||||
BG_NORTH = 1
|
||||
BG_SOUTH = 2
|
||||
BG_EAST = 4
|
||||
BG_WEST = 8
|
||||
BG_WEST = 4
|
||||
BG_EAST = 8
|
||||
LOCATION_SPECIAL_EXIT=17 ; if we have something clickable
|
||||
; $FF if not, direction if so
|
||||
LOCATION_SPECIAL_X1=18 ; collision box for the thing to click
|
||||
|
|
|
|||
|
|
@ -28,6 +28,20 @@ finger_right_sprite:
|
|||
.byte $BB,$BB,$BB,$BB,$AA,$AA
|
||||
.byte $AB,$BB,$BB,$AB,$AA,$AA
|
||||
|
||||
finger_turn_left_sprite:
|
||||
.byte 6,4
|
||||
.byte $aa,$aa,$ba,$bb,$aa,$aa
|
||||
.byte $ba,$bb,$bb,$bb,$bb,$ba
|
||||
.byte $aa,$ab,$bb,$bb,$ab,$bb
|
||||
.byte $aa,$aa,$aa,$ab,$aa,$ab
|
||||
|
||||
finger_turn_right_sprite:
|
||||
.byte 6,4
|
||||
.byte $aa,$aa,$bb,$ba,$aa,$aa
|
||||
.byte $ba,$bb,$bb,$bb,$bb,$ba
|
||||
.byte $bb,$ab,$bb,$bb,$ab,$aa
|
||||
.byte $ab,$aa,$ab,$aa,$aa,$aa
|
||||
|
||||
finger_red_page_sprite:
|
||||
.byte 5,5
|
||||
.byte $3a,$33,$33,$aa,$aa
|
||||
|
|
|
|||
|
|
@ -5,10 +5,7 @@
|
|||
|
||||
draw_pointer:
|
||||
|
||||
|
||||
really_draw_pointer:
|
||||
|
||||
; point sprite to right location
|
||||
; point sprite to right location (X,Y)
|
||||
|
||||
lda CURSOR_X
|
||||
sta XPOS
|
||||
|
|
@ -123,101 +120,44 @@ real_finger_point:
|
|||
jmp finger_draw
|
||||
|
||||
check_cursor_left:
|
||||
ldy #LOCATION_BGS
|
||||
|
||||
check_left_north:
|
||||
lda DIRECTION
|
||||
and #$f
|
||||
cmp #DIRECTION_N
|
||||
bne check_left_south
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
clc
|
||||
ldy #LOCATION_BGS
|
||||
adc (LOCATION_STRUCT_L),Y
|
||||
tay
|
||||
|
||||
handle_left_north:
|
||||
; check if west exists
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
and #BG_WEST
|
||||
lda direction_lookup,Y
|
||||
and #$f
|
||||
beq finger_point
|
||||
bne finger_left
|
||||
|
||||
check_left_south:
|
||||
cmp #DIRECTION_S
|
||||
bne check_left_east
|
||||
|
||||
handle_left_south:
|
||||
; check if east exists
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
and #BG_EAST
|
||||
beq finger_point
|
||||
bne finger_left
|
||||
|
||||
check_left_east:
|
||||
cmp #DIRECTION_E
|
||||
bne check_left_west
|
||||
handle_left_east:
|
||||
; check if north exists
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
and #BG_NORTH
|
||||
beq finger_point
|
||||
bne finger_left
|
||||
|
||||
check_left_west:
|
||||
; we should be only option left
|
||||
handle_left_west:
|
||||
; check if south exists
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
and #BG_SOUTH
|
||||
beq finger_point
|
||||
bne finger_left
|
||||
|
||||
cmp #1
|
||||
beq finger_left
|
||||
bne finger_uturn_left
|
||||
|
||||
check_cursor_right:
|
||||
|
||||
ldy #LOCATION_BGS
|
||||
|
||||
check_right_north:
|
||||
lda DIRECTION
|
||||
and #$f
|
||||
cmp #DIRECTION_N
|
||||
bne check_right_south
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
clc
|
||||
ldy #LOCATION_BGS
|
||||
adc (LOCATION_STRUCT_L),Y
|
||||
tay
|
||||
|
||||
lda direction_lookup,Y
|
||||
and #$f0
|
||||
|
||||
handle_right_north:
|
||||
; check if east exists
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
and #BG_EAST
|
||||
beq finger_point
|
||||
bne finger_right
|
||||
|
||||
check_right_south:
|
||||
cmp #DIRECTION_S
|
||||
bne check_right_east
|
||||
|
||||
handle_right_south:
|
||||
; check if west exists
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
and #BG_WEST
|
||||
beq finger_point
|
||||
bne finger_right
|
||||
|
||||
check_right_east:
|
||||
cmp #DIRECTION_E
|
||||
bne check_right_west
|
||||
handle_right_east:
|
||||
; check if south exists
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
and #BG_SOUTH
|
||||
bne finger_right
|
||||
; beq finger_point
|
||||
jmp finger_point
|
||||
|
||||
check_right_west:
|
||||
; we should be only option left
|
||||
handle_right_west:
|
||||
; check if north exists
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
and #BG_NORTH
|
||||
bne finger_right
|
||||
; beq finger_point
|
||||
jmp finger_point
|
||||
|
||||
cmp #$10
|
||||
beq finger_right
|
||||
bne finger_uturn_right
|
||||
|
||||
finger_left:
|
||||
lda #1
|
||||
|
|
@ -236,7 +176,25 @@ finger_right:
|
|||
lda #>finger_right_sprite
|
||||
jmp finger_draw
|
||||
|
||||
finger_uturn_left:
|
||||
|
||||
lda #2
|
||||
sta IN_LEFT
|
||||
|
||||
lda #<finger_turn_left_sprite
|
||||
sta INL
|
||||
lda #>finger_turn_left_sprite
|
||||
jmp finger_draw
|
||||
|
||||
finger_uturn_right:
|
||||
|
||||
lda #2
|
||||
sta IN_RIGHT
|
||||
|
||||
lda #<finger_turn_right_sprite
|
||||
sta INL
|
||||
lda #>finger_turn_right_sprite
|
||||
jmp finger_draw
|
||||
|
||||
finger_draw:
|
||||
sta INH
|
||||
|
|
@ -245,3 +203,17 @@ finger_draw:
|
|||
no_draw_pointer:
|
||||
rts
|
||||
|
||||
; 0 = point
|
||||
; 1 = left
|
||||
; 2 = left u-turn
|
||||
|
||||
direction_lookup:
|
||||
direction_lookup_n:
|
||||
.byte $00,$00,$22,$22,$01,$01,$21,$21,$10,$10,$12,$12,$11,$11,$11,$11
|
||||
direction_lookup_s:
|
||||
.byte $00,$02,$20,$22,$10,$12,$10,$12,$01,$01,$21,$21,$11,$11,$11,$11
|
||||
direction_lookup_e:
|
||||
.byte $00,$01,$10,$11,$22,$21,$12,$11,$00,$01,$10,$11,$22,$21,$12,$11
|
||||
direction_lookup_w:
|
||||
.byte $00,$10,$01,$11,$00,$10,$01,$11,$22,$12,$21,$11,$22,$12,$21,$11
|
||||
|
||||
|
|
|
|||
|
|
@ -71,8 +71,15 @@ not_special_return:
|
|||
|
||||
lda IN_RIGHT
|
||||
beq not_right_return
|
||||
right_return:
|
||||
|
||||
cmp #1
|
||||
beq right_return
|
||||
|
||||
right_uturn:
|
||||
jsr uturn
|
||||
jmp no_keypress
|
||||
|
||||
right_return:
|
||||
jsr turn_right
|
||||
jmp no_keypress
|
||||
|
||||
|
|
@ -80,8 +87,14 @@ not_right_return:
|
|||
|
||||
lda IN_LEFT
|
||||
beq not_left_return
|
||||
left_return:
|
||||
|
||||
cmp #1
|
||||
beq left_return
|
||||
left_uturn:
|
||||
jsr uturn
|
||||
jmp no_keypress
|
||||
|
||||
left_return:
|
||||
jsr turn_left
|
||||
jmp no_keypress
|
||||
|
||||
|
|
@ -244,6 +257,20 @@ turn_right:
|
|||
beq go_west
|
||||
bne go_north
|
||||
|
||||
;==========================
|
||||
; uturn
|
||||
;===========================
|
||||
uturn:
|
||||
|
||||
lda DIRECTION
|
||||
and #$f
|
||||
cmp #DIRECTION_N
|
||||
beq go_south
|
||||
cmp #DIRECTION_W
|
||||
beq go_east
|
||||
cmp #DIRECTION_S
|
||||
beq go_north
|
||||
bne go_west
|
||||
|
||||
go_north:
|
||||
lda #DIRECTION_N
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user