Flesh out the town

This commit is contained in:
Jeremy Penner 2019-03-14 22:18:20 -04:00
parent bddfcec05a
commit 41fefa5885
11 changed files with 38 additions and 20 deletions

BIN
game.jim

Binary file not shown.

BIN
map.jim

Binary file not shown.

View file

@ -30,6 +30,8 @@ array tileflags
( countertop ) 0 b, ( countertop ) 0 b,
( sink ) 0 b, ( sink ) 0 b,
( house ) 0 b, ( house ) 0 b,
( fence ) 0 b,
( storefront ) 0 b,
here tileflags - 1 - const MAXTILE here tileflags - 1 - const MAXTILE

BIN
pete.jim

Binary file not shown.

View file

@ -3,27 +3,35 @@
13 8 N ' {car} defentity car 13 8 N ' {car} defentity car
car :touch car :touch
player move-entity
1 player.state DRIVING f! 1 player.state DRIVING f!
car entity>pos player entity.pos!
;entity ;entity
:noname :noname
:| player yield :| player yield
player.driving? not if car yield then player.driving? not if car yield then
0 |; ' entities redefine 0 |; ' entities redefine
:| touch-begin S leaving? dup :|
touch-begin S leaving? dup
if player.driving? not if player.driving? not
if pete say" It's too far to walk to town." if pete say" It's too far to walk to town."
else 5 10 road.jor queue-level else player move-entity 5 10 road.jor queue-level
then then
then then
touch-next 13 8 2= player.driving? and dup touch-next 13 8 2= player.driving? and dup
if 0 player.state DRIVING f! if player move-entity
12 8 tile>world player entity.pos! 0 player.state DRIVING f!
W player entity.dir !
player move-entity
then then
touch-next 12 7 2= player.driving? not and dup touch-next 12 7 2= player.driving? not and dup
if 16 9 petehous.jor queue-level then if player move-entity 16 9 petehous.jor queue-level then
touch-last |; ' player-touch redefine touch-next 30 7 2= dup
s" pete.map" load-map if pete say" It's... kinda swampy.\I don't wanna get wet if I\don't have to." then
touch-next 30 9 2= dup
if pete say" Feels spooky over here,\somehow." then
touch-last |; ' player-touch redefine
s" pete.map" load-map
; ' onload redefine ; ' onload redefine

Binary file not shown.

View file

@ -4,7 +4,7 @@
reset-level reset-level
:| :|
touch-begin 16 10 2= dup if touch-begin 16 10 2= dup if
12 8 pete.jor queue-level player move-entity 12 8 pete.jor queue-level
then touch-next 9 4 2= dup if then touch-next 9 4 2= dup if
pete say" The closet is a disaster.\I don't want to deal with that\right now." pete say" The closet is a disaster.\I don't want to deal with that\right now."
then touch-next 11 4 2= dup if then touch-next 11 4 2= dup if

BIN
road.jim

Binary file not shown.

View file

@ -8,11 +8,19 @@
touch-begin E leaving? dup touch-begin E leaving? dup
if pete say" It's 100 miles to the next town." then if pete say" It's 100 miles to the next town." then
touch-next 5 9 2= dup touch-next 5 9 2= dup
if 13 12 pete.jor queue-level then if player move-entity 13 12 pete.jor queue-level then
touch-next 13 6 2= dup touch-next 13 6 2= dup
if pete say" Old hiking trail." then if pete say" Old hiking trail." then
touch-next 24 6 2= dup touch-next 24 6 2= dup
if mary say" Welcome to my place, Pete!" then if mary say" Welcome to my place, Pete!" then
touch-next 39 33 2= dup
if pete say" School's out for the day,\looks like." then
touch-next 32 36 2= dup
if mary say" General store and post office." then
touch-next 35 39 2= dup
if pete say" Community center." then
touch-next tile b@ 17 = dup
if pete say" I'm not one to drop in\unannounced." then
touch-last |; ' player-touch redefine touch-last |; ' player-touch redefine
s" road.map" load-map s" road.map" load-map

BIN
road.map

Binary file not shown.

BIN
tiles.tif

Binary file not shown.