6502/SixtyPical
1
0
Fork 0
mirror of https://github.com/catseye/SixtyPical.git synced 2025-01-10 02:29:23 +00:00
Code Issues Projects Releases Wiki Activity

If player perishes, set a flag that game state will use to change.

Browse Source
This commit is contained in:
Chris Pressey 2017-12-14 11:04:19 +00:00
parent 0452d5f2c8
commit be3591ae44
1 changed files with 33 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
eg/proto-game.60p
View File

@ -242,12 +242,14 @@ routine init_game
// Actor Logics
// ----------------------------------------------------------------
//
// Sets carry if the player perished. Carry clear otherwise.
//
routine player_logic
inputs pos, delta, joy2, screen, dispatch_game_state,
screen1, screen2, screen3, screen4, colormap1, colormap2, colormap3, colormap4
outputs pos, delta, new_pos, screen, dispatch_game_state,
screen1, screen2, screen3, screen4, colormap1, colormap2, colormap3, colormap4
trashes a, x, y, c, z, n, v, ptr, compare_target
inputs pos, delta, joy2, screen
outputs pos, delta, new_pos, screen, c
trashes a, x, y, z, n, v, ptr, compare_target
{
call read_stick
@ -272,11 +274,11 @@ routine player_logic
copy 32, [ptr] + y
copy new_pos, pos
trash y
trash c
st off, c
} else {
call clear_screen
copy forward game_state_game_over, dispatch_game_state
st on, c
st off, c // FIXME this branch seems to be called even when there is no collision. why?
trash n
trash a
trash z
@ -290,16 +292,19 @@ routine player_logic
trash y
trash a
trash v
trash c
} else {
trash c
st off, c
}
}
//
// Sets carry if the player perished. Carry clear otherwise.
//
routine enemy_logic
inputs pos, delta, joy2, screen
outputs pos, delta, screen
trashes a, x, y, c, z, n, v, ptr
outputs pos, delta, screen, c
trashes a, x, y, z, n, v, ptr
{
copy ^screen, ptr
st off, c
@ -307,6 +312,8 @@ routine enemy_logic
ld y, 0
copy 82, [ptr] + y
st off, c
}
// ----------------------------------------------------------------
@ -390,6 +397,19 @@ routine game_state_play
call enemy_logic
}
if c {
// Player died! Want no dead! Break out of the loop (this is a bit awkward.)
call clear_screen
copy forward game_state_game_over, dispatch_game_state
ld x, 15
st x, save_x
trash n
trash z
trash x
} else {
trash c
}
ld x, save_x
copy pos, actor_pos + x