Final GGJ build with DEV flag disabled & alternate tileset for Neut

footer.jor

@@ -29,7 +29,8 @@ WHITE text-color !
 
 var textx
 var texty
-( 100 ) 2 const textspeed
+: textspeed DEV if 100 else 2 then ;
+
 var textleft
 : textleftsay 6 textleft ! ;
 : textleftchoice 8 textleft ! ;

game.jor

@@ -118,8 +118,10 @@ var q-level
 : queue-level q-level ! ; userword
 
 : player-tick
-  ^SPACE key-pressed player.state HASNEUT f@ and
-    if player.state ISNEUT fnot! then
+  ^SPACE key-pressed player.state HASNEUT f@ and if
+    player.state ISNEUT fnot!
+    isneut? if night else day then
+  then
   0 ^LEFT key-down if drop 1 W player entity.dir ! then
   ^RIGHT key-down if drop 1 E player entity.dir ! then
   ^UP key-down if drop 1 N player entity.dir ! then
@@ -140,7 +142,7 @@ var q-level
   party each EVTICK entity>do more
   pneut EVTICK entity>do
 
-  tick-mapedit jiles
+  DEV if tick-mapedit jiles then
   tick-debounce
   q-level @ dup if
     0 q-level !
@@ -157,8 +159,6 @@ var q-level
   r@ entity.dir @ <r entity>sprite
   sprite-bob draw-sprite ;
 
-var showmouse
-1 showmouse !
 var glitchlevel
 var quaking
 
@@ -181,7 +181,7 @@ var _dorubber
   party each draw-entity more
   player.state HASNEUT f@ if pneut draw-entity then
 
-  showmouse @ if
+  DEV if
     mouseworldpos 4 draw-sprite
   then
   glitchlevel @ glitch

gameboot.jor

@@ -1,6 +1,8 @@
 : blah ' seremit task-emit ! ;
 blah
 
+0 const DEV
+
 s" game.log" open seekend fdeactivate const LOGFILE
 : emit-log ' fputc LOGFILE withfp ;
 : atexit LOGFILE factivate close ;

lev00001.jor

@@ -67,6 +67,6 @@ sexit :noname
   14 9 tile>world pjaye entity.pos!
   c1 entity>pos pneut entity.pos!
 
-  ' intro sched
+  DEV not if ' intro sched then
 
 ; ' onload redefine