diff --git a/footer.jor b/footer.jor index ff54cff..c8bd8bb 100755 --- a/footer.jor +++ b/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 ! ; diff --git a/game.jor b/game.jor index 6a59cb9..f265e2e 100755 --- a/game.jor +++ b/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 @ 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 diff --git a/gameboot.jor b/gameboot.jor index 38b6302..b0e2d1d 100755 --- a/gameboot.jor +++ b/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 ; diff --git a/lev00001.jor b/lev00001.jor index 9dd430b..98e4377 100755 --- a/lev00001.jor +++ b/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 diff --git a/ntiles.gfx b/ntiles.gfx index 9cce95a..9af306b 100755 Binary files a/ntiles.gfx and b/ntiles.gfx differ