From 0fd412510ce262f0e51a8564e31cd366d838796a Mon Sep 17 00:00:00 2001
From: Jeremy Penner <jeremy@sporktania.com>
Date: Fri, 21 Feb 2020 22:38:32 -0500
Subject: [PATCH] Finish lev3, implement rexx as first-class reusable object

---
 .gitignore               |   3 ++
 boot.jim                 | Bin 1380 -> 1380 bytes
 defs.jim                 | Bin 2145 -> 2145 bytes
 end.jim                  | Bin 60 -> 56 bytes
 end.jor                  |   4 +-
 entity.jim               | Bin 1775 -> 1643 bytes
 entity.jor               |  15 ++------
 footer.jim               | Bin 1717 -> 1717 bytes
 game.jim                 | Bin 3937 -> 3937 bytes
 game.jor                 |  49 +++++++++++++------------
 gameboot.jor             |   4 +-
 input.jim                | Bin 542 -> 542 bytes
 jiles.jim                | Bin 1575 -> 1575 bytes
 job.jim                  | Bin 1149 -> 1149 bytes
 lev00001.jim             | Bin 1046 -> 1048 bytes
 lev00001.jor             |   4 +-
 lev00002.jim             | Bin 1172 -> 1140 bytes
 lev00003.jim             | Bin 1542 -> 2043 bytes
 lev00003.jor             |  77 ++++++++++++++++++++++++++-------------
 lev00003.map             | Bin 264 -> 264 bytes
 map.jim                  | Bin 941 -> 941 bytes
 map.jor                  |  48 ++++++++++++------------
 game.exe => neuttowr.exe | Bin
 game.prj => neuttowr.prj | Bin 5721 -> 5721 bytes
 state.jim                | Bin 277 -> 277 bytes
 timer.jim                | Bin 440 -> 440 bytes
 26 files changed, 113 insertions(+), 91 deletions(-)
 rename game.exe => neuttowr.exe (100%)
 rename game.prj => neuttowr.prj (85%)

diff --git a/.gitignore b/.gitignore
index 3d8736a..96dc5d7 100644
--- a/.gitignore
+++ b/.gitignore
@@ -4,3 +4,6 @@
 *.swp
 *.log
 game.map
+neuttowr.map
+jopl.map
+
diff --git a/boot.jim b/boot.jim
index 9f22b7ff6d822b6fb70c3b288aa9bcd097efabc9..d6b484fba2529a661bad11734fc1848ae6f524a6 100755
GIT binary patch
delta 11
ScmaFD^@NMbPIDtu5-R{0aRXog

delta 11
ScmaFD^@NMbh+!jB5-R`~Tmvfr

diff --git a/defs.jim b/defs.jim
index 2b58a51104d8912ebd60de501f69be21e1f10445..ebeda2cd1c4827499e16315a79ccaf9f0b3be111 100755
GIT binary patch
delta 11
ScmaDT@KAusPIDtuJO=<6o&#n8

delta 11
ScmaDT@KAush+!jBJO=<5i32eJ

diff --git a/end.jim b/end.jim
index e31b8c2ec64aa046c688a6ba0d65147812cbe73d..1745d38b7933df9d823e6efc2ba10ea72dff3a10 100755
GIT binary patch
literal 56
zcmcE16!O=%`|hX1AmraA5bIXXs^p)Vm!g-OSitaG&xMtp!G)EZ!AJhKf(t7fkj(>T
HH?jf%o&F7&

literal 60
zcmXqFc<WnjcgfcPNOuV=a4l#3>zkUFqL-Ukz~HX$!phFz!phBHB0t^nu!0LK8<58X
K<gEqr8d(8NIS~y2

diff --git a/end.jor b/end.jor
index bb3925d..cdd03b5 100755
--- a/end.jor
+++ b/end.jor
@@ -4,7 +4,7 @@
   reset-level
 
   s" end.map" load-map
-  7 11 tile>world pjaye entity.pos!
-  6 12 tile>world pneut entity.pos!
+  7 11 tile>world Jaye entity.pos!
+  6 12 tile>world Neut entity.pos!
 
 ; ' onload redefine
diff --git a/entity.jim b/entity.jim
index 0a37badda4693a28d708df5ac4e72540ddeb650d..5d6f9c2da15378942cb34e83ef472421b18be368 100755
GIT binary patch
literal 1643
zcmZ`(Uuaup6hF!RPSYe!(~Y&TjpY7I#nELQ>QEm{m8Q(q*+%VjRK`r3+i_izTaueK
zOBw7wL~z2)dqni5f(QlwKwqj0f()k5L-ff#Y$7NFebN!n`R+~U9^{hT@BGg1{6F8#
z9Wmqk4t|?CKeU~0rxE5}Usx=_pX2@hc6x}UrBkynkqEGxj<C3RX7)vrL-2h%O7fY7
z0TPCvrTGi9OQcuecgfGs`Lck2q;_fXBxw;w)L3Z4sg+AP*DhOdZ7h!h?kim}czbw=
zD6Gs$UO>4QQ26cPbE*hUtvhv6ZV649PiPW;i{Pve-%WG{|7_L64K)tMa@ldMs%yKK
zrN@rgL4HoF{O{p)H3}tbZIAI_^h2`zT#do`npIzSswJxisR@9aM0|)`8@sKJQ$jyc
z2;cTtqfSh&3*l}=Q#`z{4i9wApc-G1(DoF5Qc7U)m=+sYlx*KwI8e=Ki9nUBuh(ps
zTlgb|85d84JzUnJ18vD6O;@zUGHz+Vs`H7KxUHrH^Y~rBPqmKdQ0h%B7V=Zi`K@b-
zL)y6LiYMvc!_TyMpgu-wot$ooHZfA9Pm%tX7U#y5?K-trR{mf#kKA4lf72phU0Sa>
zO|Gvk-qAda=plH6RsrBJo#yBif=N0p&?yYlbb5_W3OuVLEG*_vy-JdRSv>;OioFbV
z{fe@T4ZTBq)9>dIz{8f9lIVL94Z#3CA<>T|3WWCi9?nSYE1fxc3_$^RgEM=2g`!ch
zIluWWiUH83cz4K0N1V_Lc-Ua9LD*k}%}C@SFKTpz{s`-!F(u`fbq~MMhhVL^YF95%
zQ?9DF2uc})foDr~m*8#D6ARS;b9zrsV@FQoh|24H+=xTPxnyPcmbDdddD!n7UCNQC
zSHSlvk1pBs?HYsQN}I;7DSXqm#A4dRa|Xg%tytkD>Y@L5_=!RJF<PgEk4Gao5*r@M
z7+QML)Ya_K?9u)E#*(|nFz^D>z3`Vh4EL0qhNfuBG;PH%hP+O7x9Hld<o!Uhhj~ny
zPbWQ`7JnEXhD@J9ZIIsqpD`mDTmgGA%@HU&&c()hc93R^Hkt><VY)=hO?1UGbormB
zvciP=;ZK^hF4kJHYFC2bEx`!@Y?FOYlxT2Yn$%?6A*q!t;0I<${6L;>$OO)soZ?k;
zn7vdQW!L^+H-A6k=1$-ylHp3Zj<cqR-%&c7E9GMK;uSbOF=O_VnHX$daB8J&-FAHp
zw9Lo=bBomyqbU=f%ESY7qga;aH%ttNV4m4;7cW~`>hXXbUSYOG|I1dw&CC#NmKv+l
zLCO>zmaA4n#*Sn#Jev53p_<if`hoEaO40wqWLKOODxdqFfC?>99{0m_<!kEU$mD$D
aP5SueCU~tL2cE(Kc~xSQ{*<<8jQ;}Bik`Rt

literal 1775
zcmZ`)Z)h837=P~WecLo?+HS5zk>>7l2|CtWr3@<*g4z_<Ihv@QLib@_bJs35$(7{N
zbt(ODU{^Zaj3N{~Ke!L;mkv6ZNd2I*ScH905JA{C#X$%9Mc5RX5})_IyViY>klg$H
zp5OE5eg0gAK#TqL_+a{%wzWh#L1FZb@mwD6_qJMVi8hob#ztO25#U;)or$^ABPUQ6
z;L}70%BROeM1&n~{^H04>LvJ*^RuJAOyDlpPUK!jErt7usBqq{mduP(ELm`=Crb(Z
zE_oz;x>S^-0#jx<FQD8DDD3Idv`mB}b9N1t>qL=G#uW~qKv?(T-MB~C_f^@YXXO|e
zrIPJf6{qN2;2xV~i?Yu#nf<zSUhV+Xn%-ml({&LoKa!(xwrbVp?22hsp}!B{1`_v?
zOFg&bUQFm~4B^`zt=Evr?nPm@U6EXRM~;NLh2S>6;=#VcPf7|bx|C>WVHSO7VxW3T
zi3h4oZLV5$SPAc7m|ij@y7VQbBh;EUYCO^)lk|%6y?ip>Ah+ax!g%bNrynRy(!|u?
zQlf&Ndd4qZgNRBm@yL_->(URESfD<NY89QXlVxP|qrM;YH<j)nq>lBgIR>W0>hyyW
zR>ZV*YaZ=((cdJEs~))?$<rs)EEQlEeSFi!y5GQtjCEw`lC(uj5tsg|T!iC}T`!zN
z)2|W_6_*}Smk}x!W)Zo;k&OBd95)IM0zYveudcxJdriC^$x_znKg28r9?K&vXG0a>
zO&mvn6+DgNNr3n9G>#_`JUqRQCkd{p6vlJevDZ){u&K5KwqvhKm(?X{lK!kVG5c1F
zMR4&JYaIQPqXLBJRgT7!j0=diS}xt-n40tv0rK>4aAuyqz-U<Tj6VPkZnuo_a_FN;
zuBv&u!r67i48%4#vd^m{cKH$3a&nE!pQ~8PWE)Hyg<@p}OLtBlPP%k884jIp)>uV1
z$u@Zwdv;sh<`c2SC*pw2R_fzq49fPrrSH|c5pdbSJxF?(Bb%T+eTaE@XwQ1w1J6jy
zID(4AwtbxpCtP|vNnyHbl-VF}Q~%@A$2823p*0+)SVueUj7Hj0NhOiiR9PR;2M!+S
z={~GQfGq*;roUJs+>?%Jilj(`*yVAJuQVIUVgbD$>fWYVx~dI#yL6D8(Og;%7+41W
zF7g>0oWX9uyu7D%Ldmvg>vMXTW&^j14KEAhAt}@6k>~IQ^a5T>MAQ#|Q^Rqwrj1Im
z90YF=mH@ye+HVsR8>ghO$aD*(Mt7b@QcdzLdLBrz6n8Y1;%|6I^ir;uoZ|nwnR&!b
zE^t%hZrD9`(9uw;9TulbMrC#hPW5eQt;JLn7H90Lsn?2*kHNdC&Jc5qipkJb4L(W5
z0`$C5;^qS>Dhlu!W4~=&uym|($QHk2Y>xhyEs1wiZLnz83*5n~M*e1U#j5kzHFVe&
z?@S|9wH6lqz*J60d4nBGpR%X$`mFA8DB}=i=|Q+6eTg+(NS}<K!9RdZ9~-Nufpy^!
OuvM8)`(0YcHvS8PSIj^F

diff --git a/entity.jor b/entity.jor
index 6516177..2c120e4 100755
--- a/entity.jor
+++ b/entity.jor
@@ -17,6 +17,7 @@
 
 : allotentity ( x y dir anim -- ) ' drop , , , tile>world , , ;
 : defentity ( x y dir anim -- ) array allotentity ;
+
 var _responder
 : responder _responder @ ;
 : entity.user 5 cells + ;
@@ -35,18 +36,8 @@ var _responder
 : entity>pos dup entity.x @ swap entity.y @ ; userword
 : entity.pos! ( x y entity ) <rot over entity.x ! entity.y ! ; userword
 
-( TODO: I think this can die, it sucks )
-var entity-defstate
-: entitydo-ev ( [cp ifhere] ev -- )
-  entity-defstate @ if swap [ ' then , ]
-  else 1 entity-defstate ! :noname swap then
-  ' dup , lit ' = , [ ' if , ] ;
-: :touch EVTOUCH entitydo-ev ; immediate
-: :tick EVTICK entitydo-ev ; immediate
-: :act EVACT entitydo-ev ; immediate
-: ;entity ( entity cp ifhere -- )
-  [ ' then , ] ' drop , [ ' ; , ]
-  0 entity-defstate ! swap ! ; immediate
+: deflistener array ' drop , ;
+: evproxy ( ev entity -- ev ) over entity>do ;
 
 0 const W
 1 const E
diff --git a/footer.jim b/footer.jim
index fd28552ab885683aa08b289ee94b7564695da029..a8ce8a26568ff0ba7b6ef8723e1722994b2f3957 100755
GIT binary patch
literal 1717
zcmah}U1(cn7=F|9y-C{GB!i|-OKaK8`72%LhIGX-tV>qwY8z@xXf_xzIcwv(oRXwV
znmOcvy_r8ND2S9f95R1y%3x!?a*S5=rh@Zkf)`%wMr6Z_p)h3g`OZn(d1WBqIq&oS
zKi~VFL&omVj%VKP`Pv_juRR~6leS&4O1%rz*-jLWhbUjlR(m~^&PO}qF|n`R;pgH^
zuZ#>HK1vT_L<4aFX)+1HM?+8zjVF_%keX-$s>4%*Qc&p4xI*K}1l|SN@c_L(IFuZn
z7=+ApRz@5jOG`^Xy$5MzXnb%AQh+{%lxRpn`cmo|>6+<!+%GM?d@Zylm5qcUx{d6q
z;Za%TQ}kOrNF&=RTj?HLr;;NhV`=Ea^a!r$SBEEL8xd+%Tc~2yD!n;-)-HjL2z97_
z7pg6Qi7UcXV`3Ow>`|L(&Ms9-*+NBX66~X8F`zn}R0CA5WGnM!5BE3l6DoUwT$Za1
z$>V$x(PZB8oMq(^Exj|tSJedPDaF_EY$At0QiHC|taY;DhPa`Iwt#YWGugV@DIESm
z4R7gkGj<_oxitpKQ{P2X#aWpV@H$#@;FaJOx}d7?R<s}$iaDvT!N7rm?5|s?<Ehez
zN`}WY>5}3}ZApZ+KF#4>nnK!f4LlyFw6@7X4*qpf7bmoH%CZo_bISMd{=oH0@rqU#
zJAh^QA`mGf60%*u-{X1`T<0{8ol4=fB`<~OY6B^vLN7xfa%A{-&DOk1Q~U=aI=qHf
z%CmO0(d$j^*{-_igXsbNruIVD=jvW1!9*)?za{c0WRJcge$rMU)gvix*O$bG*dItS
z;mzTD8vAmyR<?w;<S0C?nxLV|HNE@)ek5s-9G}94wz+2)PU-*O8<6*RP!Cag#(rW6
z6TFwCcSn4z%i%AepDE<6?Io36Z0pydZ)|lH6N+lD>Fph#bvS%iSA5>I+)<C{*Yt<l
z1Kr_A`nv>l7YsL=6YMv>3On3pG!ur$E?d)9kuF7dhYTY?1rKuX;U&nqC*-3>m~!@f
zv9j$ZSA(eExCPGNH<rXwW0YQwrudApA<~BI_ZU)5TheWFR5yL@7+1jCkP#D$xSbyj
z?|NTrm61|>8xdEcGS)YU<?zQwE9J69FTJ}d=cCeB)-bO){HrW*Q(r1f&q!*dLE1I)
zk*+Ml>>q^57s_+9*@dl=j_CId%)MFVq<Iij`|)q10X1S~*aCXYJOo5-pqEkDLu|!v
zvzdz7Gh0z)A^QV!9T#Kwjc?`Ln;szve*AdIP{ljYL`<o<v8BQ16`FQvGW?y3Her}D
z?3j`a9rd0z{f(PKI|=SLQlTQ4A~<%6zukL&(L9Sn|1vKd%V2I_lfyrwwA@U#l*OXU
zd2WlW@+zZ+p8kl#brHkIu2cLH=vHFl&zQr(9^orm^A#FtS9@BB=m3C{Rjau`n0z!0
z;H~U}<pRy5PzJ!XUCO(FLQJQ6*jKdeqWm0f?#?GYa&_GGkP8x|H?Sa4_uT28-8dco
E7b82IfdBvi

literal 1717
zcmah}U1%It6h51|XMeJ0vtl;Hh7DW8&fgjmQ=uRljh!WpuIUgOVwOI*?oN^o>rR-R
zm}E=AQEMPV4F&tqAR=vQeF|+51A-a?=AlIKsnouyP+tNHf|f$#xihm#eR5&$?D@_;
zf8RN0`k^~|zvK7J7r}bEHywsa)3gn%XAzR^0QGbfN>*XM$3tN`zLZX|{&ojHOe4IU
z8$9tU{FMM$OEZ$jvLpmxgH%JK+3W~OP4FG5PD~7PL4Y690*q!g`p@8QIs~r`4rND9
z50Z><k9!<FHO_Aa;ct?1L!*NeB!vJ)1kIPi@B~RYKU@Tkia~zUi`NXjT<Hgl!hpy?
zA0FXZJ_b2447tOQEigf*6WLtu)Hvy5Fhi!}Cx=h-GFo9#YzEs{uzQMT#k7cyR#>9@
z99mc;Ca$qdVuB457nj8d%$k;M70Nc(Xc&N1wkA4wLkvO9F4%K54-fkIEsEqia#{Y>
zmpsn@ByU_-n>CCQc^mJ@V^Y$v1Ueq2cM~|cPnGaH6=TwNU35#)1E5xD1nZNM%)w`+
z*nzG%ZI+9Mn`0O}wJrsrTH)RZ?voO1PfRimo8f^dlC>#?p<FF`*)GTTsAgVYN~qIY
zgbP9*zm~X(j$6_St4phrgBK(Lq%#uncm}qm1_wn7P-k^^OFAd4G8R53?2z?+*Gk7u
zxy~LZERPX+g}imjtK>Jq9?;`)Jw{yrD0%GI<+lvp6o91cAyulti_l9k@;D~nCAN5`
zI*yY^2Ycl()GFq@Uu#Bg>Z-F|x_VX4$WL~)NPU8a0PAGF#Y&XOWqF;wAa9aXZ`JW#
za<a>gg><aA?j~dm6e~u-qO$lXyeD2F8s_mgIrV=(;52ZKZ;KkXxn~!h-2T5E;QhNU
zN1--tKC*-w_5rtEN+0iXFs?*lx?D02my}m=sP7}azt!_Jp_FY(d3fZ5P6u^G2>8<?
z-IP<xr2K~B;EeJ<5c(8d+>K~xDc55TzN18dhR3WKQ$`g&jdw>sRzgtrAh!>nlU#g6
z{z{2K(VVN=hh}^=0In!o#Q8tU3S03<>7}@izbLzGTjBNYP^c+`n>9wYVWX+nh_?+T
z!Ol~6o>RT{zS6=y={TUSu=P0i)voT6A5dGMSg3m8-A!4Jb6cLnoZ#R|l@e^|t@6|~
zr-onHb}t1$7S7YPX>wC4*Jdk)#e<Y?%6XOMUY*Aq>hnZ(ke)VJ6VDR*6QMim03o7}
z#wf8#*};$02viGiA9&%391FeP`AH(Le#7TJ;}N3a{{Ds{vMJJ>bv4}w8v4AF=HU^t
z!Dn2wiH0eUdoCF=<$FgB`kkV3G`ynd(VrC_YJ=D<x_$mky+?_@nTe^Z#9V)qgD+-y
zdka>97M;&?Tk9rnqJ|eU$6Fn&vjlzYlI%_>B_!A%2?y;A3sj9c8*=RzGtB^Sl>p0F
zSa5+D1mH^oW(tdj3q(MG?+KVPt&$4}fN(p5fvRa%`RAyyJHpd^b=>vf3lfHJX+h%d
L+2NikIvxBM_xG$M

diff --git a/game.jim b/game.jim
index 90993af2bf5c9b5046e7e915b3bb12e85b7ccd23..a72a91d545613f5013275541d5028b0cb9280dec 100755
GIT binary patch
literal 3937
zcmZWseQZ<L6~Bq^B_ECxv*Ba{f}M~F5b=O9nu@JFKl}OP*^ceu0-Avq$9_rNIJU8!
zgcwEWX#&wyuxQ;MOfK2zMyi#n`D0}ZVxwYIqtzCvgGz(ZN>!JwrA*osb-=13cFujz
zPP+Z^{N6qH+;e{C<DPT8YtzoqmR((;JuPnGjh&3-;`!n@`H6YG(Jj;yB~wflQ%Zpo
zqCy?X_C2R0iUrc%N=Q;@#I>C>jgv|9?K+#mLRD52nrd?C__&h)MxhulD!@(2DWRF@
z#9Uq(O{Vf($jictn%?kUIpiguS!&27Scbx`pd5i^EqPn0tMQ4^kbBS5u%_hCuq{U;
zyTiy`Pd<iaCYwm7a-e-$xG6l_tg`!piR7{crBG0k_PlcB2-jnD)R9ynm(LCeoOe+O
z0B?t*t|nE;C?iFr+8yl<3ym7C7*y87cb)?yw4Er>zRPJSa)}#x6~_v46j>)g$U(=n
z@D>QaVu-P6$H}e;`>CVQrLqY}OU3>~JTsgf<$@7(pg9V>w;V1<jJ@j!bw}6@$5Y)i
z@cz&-MW?95YKY2Sc2MF69bnBAJ?W?=Q{+SP5fDRwo)a&0)shG?*E|3?nx_HIVGz1O
zM7ttvhlnb+i$uildk&Q~i7QE70p^6FhtVD{!l^Q-ou&ItSLtQjChHrf7)yzBAR#Nx
z0~|t15ak}xObV&YK>Eu^kAnka>_=j+I0Z}vu|Z3saZNBDJ|tYFG4?y)h_T;@vu1}m
z!d?f#B{-QAEEGNWg@|8&G9%~b;w-&Nzb_#FBJj-u|7QRP&)tGG5l@0KCq=&ry`{1<
zU{oP72+>C`FQw-g+v=P&KiM<fsj_Q3!FZ>UaE_|8+C(&WMl6BW1I|y^ov=mNGfpi6
z7}c)kgW$l|ofiRHm|O9xvqam(Bp`kXzCtz&xUEF}rjV_jb~@2zKX)SaqR`Iq7M=5e
zu}vKAL{DfkRrW2XiDXBL_H4hsFFTS+79a%sO~`TFQ05LlZn$pnn}%Cw=xKbz>N+Ie
z6=yw3EAdf?0%l~1?&z2RC|1`L#RzHwB5a?lL_7FS59}<b3!EBuA@^`A|1}^#uHXR`
z_nnOdQ`=t5jwA+o9r&KBk>HhCMoI$-?}bi6^amk>!B;L@x5NyjOr7+D%?K#M{^i<l
zvUP6(cx?pXe&UjxLI<WOdJW%~ZA83dL+*A*J3!MSfF~>PRd&qPq-S|mDQ5Rd>8LBh
ztP<vZyL6g=54u#g=rR&+g1t`}NM*oVm|CK=--KzjU7ClWY3b7;HR_xh<p^E|%!Yno
z2%D$qZOE^HG^sPB;{{}pSlB$rRF;-bkZ)^#nlvAk{#c{3<I-0Mq+(*ot|eI&>o!SC
zvun~VNHe_RG07msq<5V$=~s@ZA#6S)wUA<dTub6*DJpc%N_fQ{NRm@!H>DM%KbuZx
z#{kGZ$7S0Ly<_X`z<g8Lf2!KG8vP~hnl3CfVRNf{nXYO*A7d$Z6@gAY%R==fDs<Z2
zh~cOkFO%S|BZuv2WmHM?T07x3)*K#DMiiYkX@1^~a89|6)sUqULjZX1nzNQ^;jenR
zyyKo07NLgQA$GUjo~;pf$GvVVra^AaYnB-Mw_8huj*d1FQ{@<^8a*0yvrg^f)DE4x
zL#LkN)E=EG=v2r6kHkKfUW0OQ9#H3%f>Nxa=9<BgV{E`PX%3rJCb2_8#5l$#V7-)z
z5*u_O^~L|8LM9qj=JGT^nMo=<kYMvgw^jh(^t=s`$LyQ+KyvYNa<fXi1~eif$G)${
z*xx+wbUU9ozxH{z1<Ff|ebtND(5q3;fz{eslb5<t+G98wVHPiz!m`ImlKJ@9QW3;b
zx*7`7Rl1%3VsV<IY1@si_bn=G^BT!OI#o;zE=AMph3JmNhoH#t=<fG6kp7W$+Kz(3
zo&hiR%ozKbw@pOJ5<5dS8rnpZFR=sg{m2qwzvYN`wPG=F7$jyQTj94Jz8_gM{PW%o
zUc~>Vcb;lF5n~^CiMYXwtsur8^S9O#9(ha95H$XKz^{3<#ivnfeDf5&X7xRQl0(V+
zmVJQna;vp<%hy#l<h78b(x1wJL3Vwfu@5ToB)4v}Z`J?r=8D>|BKztq6VOhud{s-Z
z7UM7nc|nNV*G~K3k=TpAo)(o^XpUdPexH$~Q<))M7n}>$x_#hvR)(iUwR0AVH>3;-
zT;bk`J?!!Df#<rfPA7z5&B!efCWXVh?XF-r>Xv}kKt8F^!V!0f(;CSazD5$=CqM1-
z>7tCpEH_k1D6EOBm+MK?C5CjCRb+=;rxTFDLOilj@7}wLsk8#nu|L|nRkl}dTE2tb
zr%e0hEp!5UMow;lZcxZ&Gf5@SPvZVvYniGtQ~|(I%nrcZFd9z-{WzS#{JAb;|54cm
z8S5|Z>pEwkr(Wg4FUfQ8#!jNLKgi8XN|3XI>!@rm0>Hs|CJEC?Hk0k|hs_zdI`vlU
zIN$MW4U+jIEbTARhwG3U0qPX3&{{cXKhW-4{ieUj$cg(1aizbB@X0m-DhBu<rwKXE
z6<mj=jmNP?XZ#K1*<?09($}YGN%Uj?3ZgG3&9C_J^1R~5;9mgNqi6|~TAU<tFUCId
zm%Act!M~<UWpDY7q%R%M3{^|?qvl}kEVO-z-SAIa=RnHe{U)AnF#c4z?pkZ$GJdmG
zWsL!2#VweVpruTY`C}{=I48$gDDZGyghc}N*0q5$#p&lj0PWovXd;R1aBifi<iVX7
z%>^IE@|i$OMO;xyE4geQ`{6Bcr^|80u;4o<<1lwIur^Sl*+7i_GN85g2+&aQSinRQ
zc?JF>EZvU#5ReN#mHj%fs<MYr!5;0hf`a>g?dl-g%|HX#TPP|SC66gk<`?PnKr`m2
zlE+J)%x3e5S;K|%eUpsHRAvsE2=3Y|5`e2j*9T*4Pf&6;$q#*<ewcKFlykx6I{}Hw
z!TO-e4hG@x(UDXUkHf}40%PoK5KqfNJYNoKPCx5b8M5btD@b7sE33}D$eAmyim~5=
z!V<;xVQBy8wgnK;YCU1YnR6jHxVA*M$yT}3zfFEJpb0$(7%FiAu}f|lV}V}8g5nNB
zBw}n+?_KLd=q4I%d31zcRJ`DO4{Uuw7koch2P1Sm13s<TR+Wcmq4UG3io{R#c*oce
zKubM9F45hx6QJ&{LJjxUVO{0_$0p5M+6s`iSGq85G2&zF9_Uzd$X%`h2SACv^cWu;
z3U$MKjbtQ~$O6DbQAt9vBIKXFr(x8Jr!vcfSq9NqYVm#<LJb6LN+@Z&G74r*(M#)8
zHffH+2=EJdo?0C-N^Be&l^?#w*r5<kR1UrIhk4^a0yK%8U#oHBKrr<L^8S$1D^lLu
Lh&!*sj>`TEKiO=0

literal 3937
zcmZWseQZ<L6~Bq!As@zx+u@V}AqgdFCvc(d0CjBG&wl=RwqqLt1G$6Fv0oAw=Q;Qz
zA*M*Yi4Qe{F5O32YN3j;W@D75bVGwhYRM`MQNc=zn3gJ2*~HeOP8w+KM7KhB&VA1g
z-Tp}O?(d#^&hMOiK5iakW8u=eZ-+NEo^rIV1=b(W=7-oz)(6d}9JNeQ^QnAF$#LLK
zM-9t#J*_12Io907*kwmOt?gWBhz(n(Yg$b<L4#|KxmEq?_>hu)B$top6_l=JpE??t
z0rqE=fn+Mnl{7f#RCPqYDTjURV_Ow#$7ML;4#`nmR<p0-QtsT~*|G(f0&_cSs{CSS
z*t2OPu4~x_z8&2Vp~F_zg-bP)NT>RdOuf_Le5yf%9nLwd+n!Z+?&M(Dslk3{4NK+v
zvzZ<T$NHQ>6dXn6shp}5@`S$Zd>+wG(;FrY#`(_E=#akCiP!~>k=j{llKm5!+eM<g
zQOQ+jy>lh1dBYTgCh_B?QJ62jzf^-yoQ>sJB;smcW`HXu#$+-EQE|c<1Hbs2<xvQT
z$Cux4kHQvlL>LhysA3u{5Np{kJ5jZh8DbiPLGb_@7!n_7*B~YeEPy01#3KR|tJw&<
z#&#hX#xn>GgnJN-GHca{Xf~+WDIol!Ul!+<vED*oT;<?dagG7<=)~Xy@w6C)8{*rd
z2EP~YV_5~SH=!8mV2|ffu7s4wg(oeO!m-x-T7G4TL9^?O5QPU_m(Uf)ikK}QiB^_N
zsXgg09^EHUB>b)_*9Zzd<f_w?aY$E8hc7xNg%}K=L=5^}<5s6N3SFqUh$m+pHi4r4
znv1@stR(rWYh0KV{^20`F_are`JW>lI(HD)qvF?Hd+{e=p-5{Ga^1&riC!gXryH70
z^Fg@o8n*s)&GZrtR;<<FoXgC(gr45$_OwXu##}|TYIVQ6SZ$5M{cipCC?l3OT*dqC
za<@5c!UXqXo4Y7Xi%GhB{94^=!>|>FfMs=Sv+xHVvMp{x+nmju@5Am($Z=YnUP6)3
zb!zaT%fd346q#;&SEisQbI9dM3rXxVm3YASna-O6mcFJj;W_$?tMiz&S$8c<EAaum
z1<K~4aI|eVQn`YZ=>~NLQ7}tI;Sk^X2zTzqPjJ*Ek#t`Z|7{|9THz0x_=UTkQCZmY
znL?tMXOu;%XFP{zp;m;brVJ@!e*v>U2HT{A%Ox<elHd|#tcosFtrO7TajBB7x~5?(
zmCpfbg%pJ!NjLEO2a=0_FOoFqmCTIG*}IgUl#2dRa{O9)(n5)FT)Ko|*Aw6{ve6|~
zWhbRG-RBGnM64Kl%#cZG*bqp^b0i=^#Cira_=~iktu2$eC0(r2;6Kv+43jCb-L9ue
z#l@dVdZIkxIfsct1%6o?k}gYo-It|D#7<Mh+Tdwq`RtIMhW8}di6!kGDw00WZI=eJ
z2OC``oz4s*k-eCKW5QdlXWJ-aG{|_$*7a`v1?##kYBLe*!Fz30I{P5J@2M~_&?6A8
zEea==9OE2rd8iytdurGYds-P#(!9I>(_^mMQBVqsfel+f_YfVEx6*a;sl;|9yl&wU
zTfK9e(Ja?{>z#erzF)?>i+EpO8HM%U;gyt!TNb`zi@|oUUQCDDrbQ}|9*$}Tde}e%
z96fBHM-8;V(US&x!ay+tyb^5n%*TRW=rvbmm7J2VuqMkhj%KWcy`ltfi&3)#qxgj#
z&^!pYyu;RrRRakwI%r+v8^#1Fr>6vqBto122gU3(YjD<Ehs`6Y@XN(GEc5DZP4>Np
z*+3cjgzu8kB(_$t4#Y-9lGr>y1{vQf`>U%DE&AMJ!=@2~BR=9wk-p%S7U&J;u&?ML
zZO`J#D7@sO2G{O0vt%|tINRE&K~`g%nG_cC-_&x>2pe11wa?fzIEwN;=~O<^JA1=Z
zKD_Zld^@%de&c`j)v@kEI&CM#=+7;mjW=?;e_ABX68xAwY?>BHzXadH?>n|A`256p
zT@#hK(<Fg~t;FB8_<hHw^WW@0<s<&G|B|5RNep`Yqv9zaHTW1j>z{4(2mD2B^SXQi
z<@Jb;8XCTf2u1C<KY=YpU^BKqBgcuRmZlO;&QE+cmQ=b^Dmr90UOV<)C7$Hoo%YZB
z|K0w){*<}muPwiizJ{L9YYbJBS7$IU7<<RxEc_jRBxsh`G-_ZID4#UA={K`<O5JYQ
z!gHbOcl;Q2DB(|0(9hWfl5Ll3nLE-EwMV>O{vKK{*BC$;*TA}DGm|2b4R&`Z(&>>9
zt7F+R7KwVo9II#h<$Bh+S>EXO8>-CgMY*m5k+Qk$BwFiqi(x}#9(xn5=>Q4X*k#nL
z_kwl#R9ZpmH1!TH#|NN1_ud_vDJ9{iyh7NGli=TSBlh@Qe@0CzS$>lCr&>yaIiSG<
zfjVrdJ@^_Jh^G<Xhi9nAtq;&t(O^}8dNS=BHpg&MPIBe$z#05Y^Ff16freQlB-zGo
zl((M=%w@fCHHmMIjGF20#?3J-otukk?ENmFkG<~&qVTUkQMks@_YfTs%Gh0w-9&7v
zC16Q%N!llhB~;Gey$LkY!=HA#l6~C3c^t)boCfc0^!BM_CR^z0QuHKxFgS-9%VF!I
zK`Nd{gLL_;f^}>cd4eIQM<4CQARVk}kAfOJuvCL^(9F8hadms8ZQp4KRgdE^$3hG4
zZ#jcn`hympZuqFFNKLieXt4>8Rcr7=)L?{#auThSgt}l1t_PO|V(`b{wZ&0*FL-nD
zSg<6}o91sp^7r-NT$af6^%wF=7Q;!msmgSh9|jxC>helj>Ca?oMxI08C!BAXRC!r|
zo@kEHSg<I3ie|nMI@UTWzJ-b%AyQlwvam!}!T%s;t78w!u97tnL-WdeL>2wfixmy*
zL3UI+B(^nFhyLdBimGHO1xmb-_J$fLKb0&Mc`}p95@($kz4%|?%rtlr?bEKktO2Ep
z!pTq!-Vfb&y&!)_eg(ap3<+EcH#<WTTnT+Yq`?Ov{O4(BDo@98V<0pL4|UM#D<L}H
z-k}HmOI{5~{Ik#;mK&tbY6w5Wh0CGBS7FC(d`;5&hLb49Kt&aIaRAUuQtgN?Dhd<w
zaU?V$|2C*AUDi=sxffJB8<s)1T2X%$Zz2Z2L}k}dnQr3V+qu9EtMWEfZ9}HSc27qQ
zK8)ik#<c8Pn0%Y13*p<Yvc`9f`;Nhv!&5Ccxs@6DBI=u|P@V2Dvx1t)pvpvENn(3p
zY+3j@d@#jR>b>DFVU<#Iq>6Ba>lm^~C~3PgfJ8=wql+~t6S=`1`w0@E_WL}(xlgp6
z=8uKh(M?G<Y{el7kK@Q}UqEBsgrn#&{2GLd=+s`(X^i#>KH9G%Cc&Xax-^aa&sLM{
RU5=NvIKM(WO>1bt{}=h@j~M^}

diff --git a/game.jor b/game.jor
index 912479e..9d8f3a4 100755
--- a/game.jor
+++ b/game.jor
@@ -11,20 +11,19 @@ var player.prevdir
 
 1 const MOVING userword
 2 const NOCLIP userword
-4 const ISREXX userword
-8 const HASNEUT userword
-16 const ISPROG userword
+4 const HASNEUT userword
+8 const ISPROG userword
 
 1 player.state HASNEUT f!
 
 : noclip player.state NOCLIP fnot! ; userword
 
-: f-rexx ( -- v f ) player.state ISREXX ;
+var posessed-rexx
 
 : isprog? player.state ISPROG f@ ;
-: isneut? isprog? f-rexx f@ not and ; userword
+: isneut? isprog? posessed-rexx @ not and ; userword
 : isjaye? isprog? not ; userword
-: isrexx? isprog? f-rexx f@ and ; userword
+: isrexx? isprog? posessed-rexx @ and ; userword
 
 : {jaye}
   isjaye? player.state MOVING f@ and
@@ -35,14 +34,12 @@ var player.prevdir
     isneut? if NEUTABLE else WALKABLE then mapflag?
   else drop drop 1 then ;
 
-: {-neut-} f-rexx f@ if {blank} else {neut} then ;
 14 9 N ' {jaye} defentity Jaye
-17 5 N ' {-neut-} defentity Neut
+17 5 N ' {neut} defentity Neut
 
-defer player-prog
-defer player-human
-
-: player isprog? if player-prog else player-human then ;
+: player
+  isrexx? if posessed-rexx @ else
+  isneut? if Neut else Jaye then then ;
 
 : replace-entity-at ( x y 0 entity -- x y entity|0 b )
   swap drop >r 2dup ( x y x y r:e )
@@ -98,8 +95,14 @@ defer neut-touch ( x y -- b )
 
 : rexx-touch ( x y -- b )
   2dup RUBBLE mapflag? if
-    tile 3 swap b! invalidate-map
-  else drop drop then 0 ;
+    tile 3 swap b! invalidate-map 0
+  else 2dup tile b@ 23 = if
+    move-player
+    S posessed-rexx @ entity.dir !
+    posessed-rexx @ entity>pos Neut entity.pos!
+    0 posessed-rexx !
+    drop drop 1
+  else drop drop 0 then then ;
 
 : player-touch
   isneut? if neut-touch else
@@ -149,8 +152,6 @@ var q-level
 ( S T U F F )
 : reset-level
   0 objects !
-  ' Jaye ' player-human redefine
-  ' Neut ' player-prog redefine
   :| done |; ' entities redefine
   :| drop drop 0 |; ' jaye-touch redefine
   :| drop drop 0 |; ' neut-touch redefine ; userword
@@ -306,6 +307,14 @@ var _dorubber
      dup SCAN-ON SCAN-OFF handle-onoff
      SCAN-ON handle-link |; listener! ;
 
+: defrexx array here >r S ' {rexx} allotentity <r
+  dup link-object
+  :| EVTOUCH = isneut? and if
+       move-player
+       responder posessed-rexx !
+       -100 -100 Neut entity.pos!
+     then |; listener! ;
+
 0 const unconnected
 
 ( usage: entity :noname [ ev -- ev ] ... chain-listener ;
@@ -316,14 +325,6 @@ var _dorubber
 : chain-listener ( entity xp -- ) swap dup @ , ! ; immediate
 : cancel-ev ( ev -- EVNOP ) drop EVNOP ;
 
-Neut :noname
-  dup EVTOUCH = isrexx? and if
-    move-player
-    0 f-rexx f!
-    S player-prog entity.dir !
-    ' Neut ' player-prog redefine
-  then chain-listener ;
-
 :noname
   reset-level
   ' mode-move ' tick redefine
diff --git a/gameboot.jor b/gameboot.jor
index 25533b8..2c5b8bd 100755
--- a/gameboot.jor
+++ b/gameboot.jor
@@ -1,7 +1,9 @@
 : blah ' seremit task-emit ! ;
 blah
 
-1 const DEV
+0 const DEV
+
+: devon 1 ' DEV redefine ;
 
 s" game.log" open seekend fdeactivate const LOGFILE
 : emit-log ' fputc LOGFILE withfp ;
diff --git a/input.jim b/input.jim
index 8a79eab51707bb8d1a4d4e55dceda2947f7b2692..e347060cb74a5aaafca95e00b14369a7edd34360 100755
GIT binary patch
literal 542
zcmXw$&r2IY6vw~G%=i<n3K7gqinN#XkW)NZkU*NOwHo7+jT9mT@?!-t&4zWip`oC`
zn;=#^hKk+`_2Ak6pyb#?4?Rf#0KtPN?VD9k`#zudzBBun)SK6%lQY+9Dtr^oM>)!d
zmBDQ!gc}XT^gDtVxQ`A{CtoxQgbJflpqwcdazrsiWf<iJDwBxoGDYPal9KZ2T#;ZN
zDM@+DOlJ(jw^)%3<#m(lC6x48Ib%@|u3%FS7CyXR(zpswH?wOW^F${0<q+DHEibWc
zf5E{-hkuV)tRyaEa?liK@*D4pW6Jw=yWv%6U}Nl@+J9w_XT`%qkH^_8%Zd<YnJKQx
z##vWf%5l_u*R`8oqT;$vdxwHm`6E&iBT5gOVw}FfVc=d;9VYiGaKBkAuyaJ5?EI76
z4eT<}5ZU~b?TUYL@^OJp$9=pl;kW3%JK5oPvQIzzRq0(CO7BuoBWSty=c?~{P7|?d
zU{8&~+p29R>UP!fn>Cxlr_)C&M&l=H0IO^3mZ4uIgrCo-pDc_kHH=S=zhl>(b~8xz
dY5QMl5VZy!XxGVg_#b7l9zRkM-e*_T{|~$ViQ51G

literal 542
zcmXw$&r2IY6vw~WnTbD&trj9BGl4*%c*(_xsE81gZEYLll3lS_3B>IBgV?OByIqW@
z+=?e}Eu<}Y@ziUtz4Xw7lpKpUPyGYhQs_zFM0=X|`M&S>%{*oj5AXbYaIWqf7wPFV
zN6oa0_>)TDLW5ISB)Es4=_GY3j#(vC_?;H06`g9CC<8+psLfNE$EYqBsGNe7lrNMW
zf*CxLl((%y(IlKjUNY2HEvlEWC}~#Ne5{SnQPIZg(<e(Bm$9LnrIob`k%gulL|oqu
zb4~9M$D?ijA!W05@lNIkEb&I3@Qyg7eB^q2VVw*wM^35zO?G)nTwQhf1k19LNFd8B
zaZc(4>xlRAE*en~c&#v34+1|vpx`t4DYY(sNo}^oUpj%PuO(GU7^Dr;3H)F$`l=%0
zq-Jl`?Y=rmG)U_7t=bXa<=D*vTYhkJTQ1tC`z~dhU&<am)>V2JN9kSW)G+n~@AYOB
zhJFi~abQP{Alz*<bFR1PN3DiO;g937%8>m?C9%A+YMc635_tO`^_LkqQ$u*=M+ctk
h$E|*<N85i^18D5gK+h$u&A%#}b$P5(yvM#!{~B0(i6Q_1

diff --git a/jiles.jim b/jiles.jim
index e8b9b25794eeb157b8178afe9e5ef8afaf0cfe20..4d353134696d87bbed3c6050b56f302a7b81f63e 100755
GIT binary patch
literal 1575
zcmc&!-)mcS6hH0#p0*fWQ`_WP*JwBK!OpbzS89CN*f2OJtcy;kq%g>u+xEINx!$Cv
zOR;Mn2Hl3NP;jtP-yE}r6$Vy2*|g$=60A=uPWm7+rs#vi4beTsbG|n%^Di)v+|TFp
zJ?Ha1=leamd!BkC(AF96-`<qg;#w1Ahw|CH2a#|qq=|Z)GzhL1fP(8eMcc_`><J11
zIH_#|&mQ*d!e}&S+Zj6}<vFc+Q-(9a1UA4$Eg~woNV@CUZ#i~J#=-yk`JDQb?d_l<
zmql5uiI8|(N#UFNtVm)>UlS3rqJ2$;C-oNC<u}j4=d_f%(soV@iPN~ERd7;&5Heo6
z6m`>CyI8bk(*Ox<1K&48t{eI??U2Ajz`qLoqV%XAlTvO?;zzV2?{i_xsD4U(dTjLY
zeMZNOWikL*Rk_$6V@<4UC6%jL*G{QPGz=e?RDYwrN&*`}qu+hdt@v7;Sdg@J?b22e
zVE9G+thd8he!O50<?~)<54A0UY^t%o>$?VfCh-D26}YWbaMWn^v)p`vbLc@C)5g5u
zZw22oTKx5i6TEOXd_|U7!Rtn#p6E>2S^qAo#tT$DpIVLDs~XR${ylt8u_MD1!%o)D
zrN=hU**^%&ETLxlm()u^RNa)xv*$05nZteG_N8!;!d^3TMY1T=!yJ+v^L}NDlqu8A
zdqpqp6lGWi6>}TB!D-QaHWMv6L&xP1Pya{eF_7|kvk{J_;7;gixXkc%f>Bsyc$nbh
z@CCzH2zJ0X44)^s18y*UnP5BIWcVDxUigFI5rTbi&qO$y9C_6xb^w|z$r3qYFF}XZ
zOcU*%D0oA%hMm>}^@?S+eCi3DhEvKs4G=%C(+Q7TSG#`fO5uo=r4hPid?neqH7OZq
z%+xdD4P!FnnsqijFJ|Qw-&V@P&;Nk(2lXT_S+m0T_=G%Ixkie+eIb;>s+GW6ZAL#S
z*$>1TU`GGY<h5TdzIFEaO!B`aXNRifov{)=6g#}{$bo_V-LQb|W?3xYK+CB5om_t=
zwyLsUH;uLedzC6NAosuI>i!u2DSEAlXta2@!C0>q60C_wR<xgF%yAjhLHu{gCnbN9
z_+v8XbS!~LjzP)J6T3&f9Fx5)5v$eMFHZ6ANbOV78emgvmfEe@q8Xx-d-2g^U{0dl
zgi!r5ys>LT{ZqXWe!r`N#@5Bjc{&rkNX9Ab???5H&W4?IP;7IM-VFdfDqmIt2kLA|
zzf0E!^|$VCG4!W^{&s#5<$f-}2`ris%Gyn6PNILPU@nZ_6m&IQ*v;_WFu&pc1t+GB
A6951J

literal 1575
zcmc&!-)mcS6hG<xp0q5ocHMIC>{@L*imYq8`!lT-WOdhRg>{*AvjiEI<hF}TlW>!n
zwkR$S1?^D!<il!*%su!bLj-XkLfJzFsSoOKihCHMl{%1N`yhRY=X~$&n16wR<bFP%
z?>XoD`JV5|HQ`|FpZ(X82cm2GH9ZRXOfg^dp+jwkHKP6wZGm6(7?ewXuHxkiS#O3y
z0RGf>gYQlHUin<2;CWduE9JW0xFf?ti;EFxH9ABMRihC~zV~|0tI9a|UqAgu6y))`
z$mDe~CsssUys4z|j<G0G_^YuZIz+dzM#jH1n&5D7cn;py)7s~Iw)MDp2fK|Lt{aa)
z)}N>*N)vgnQt{-W0bJYzLES7>9Wk%d4lbSq{#D=)rC0lcl)2^<9yAvP?-Mn53WZ(b
z?s1{khYEd5g;>3zvDx>{6)|K~HFh&(%xfvUVg|UX1sfezTx<ZHeutq`3A90CEu;+@
zA3rdW4^5mj_ri4XLfOj{i+=WLI<^GzPz~X(4Hnl-VU(T<+*fM&gV`Kpm5OD~p$BE$
zGnWK^Yq-m53f5<4dEt`!n8h}0*lWeY#N3RR5AI^XdY;U4*UnojV!(P*3+~|<#ZFDm
zOy=@lVPblx&p{(Tw5s@l6<kt31(CZAau*35|73l4WLQt*Duvy&3Kc3*4#RGdbjx~J
z*&t=ZDi!^TKas1*uo@Pv-S8TxC5riMqLRy;mqUE-KQfPjloh)H&Zc2A-Un?A#|b8&
zhv68($3bWK62X1&6vN{LyWlv(7YXi#Qw)z0?1xtvo*{Syrfh_>sj1T?Vk6)O%q<W*
z1sCl`n&{GO+0RH1@7cRT$I>l#-NlPAuPo63@$)O{@Ll_A`_1+=esABV`xvu6mF%v)
zE*WRM9cBzhre($<=aRZ47UdM*SLQ^JA9rr+t40bnXHf(-o^aNsa)^}i1IzI=4md8>
z>zl@uWX}?dz^2h<^V(^LZ=GxON$yF`6$T`qcd9t+j18X|8GWu3mhmlXPAubS(>d)K
zx&D!JL*sg#G};OrRlXqxR6QeCKXZ86F54ZVAo;3u*^Ud=#QtvMgw%eNG5d&*OTI37
z5Ag-bx5zJ2#Wy5Vk}hu3SzeH5(TLUSTyK!#FG%e$X%X1b{%Ye>jwMyv*G01}6{}l}
zdI+KRwK~#wNBdj*S$(&?hF2b3oSdhHmR2J!(s(tA+N<*4{U|kxlTXmQ0iajo%W`ov
zWSY4}*9PHR_vIu8Q$T;az{Kxl%xufWRB8ts$dMIBlTuH`T>QiijQyr=sr-if7uB?g
Ay8r+H

diff --git a/job.jim b/job.jim
index e96c3e678d05c568d88e9cddb332fd2bbb8891d3..819887901a5caa7c7bfab65839a7ffb5d9b49471 100755
GIT binary patch
literal 1149
zcmZvbPiPZC6vn6B84@jRl4{g~g^G%mc0Kek`{z)IMhXpLB=M3SWZP`*YPxB&yQW<$
zxI!<z7{uEON{=E&q=-;ZdMnr-yoes8M|&&v<VEz&Ow#V5fgN_g_h#nz-up6o`KzAl
zThr(95>;se8TO)luR19^u2FN%GJ2Uj-?c<j$f#79?#NTs*}018nmqEH#?koAtA%2w
zcpdehLg=j!ikU*Lzy-vApDE^f5lI9P`bJ|cl+6?~M@0AGyh%=EmC;Hv#97jT2BlxI
z0VyB}C5C{hY`6x*eEgT5Rnj;h!%DoZpMwCC`$5hsNn}C3YdH7inrGXVeHX%6f{=JH
zYGNO6;IdRAZ<Hq9q8pgql*akkBhXfr21Gx?<0tauF??;qu@g#)-NsLy^qfU`x?+fP
zJ5Y#srF9xY)_bLwWy#Lej9K<7X8ABJ9!dMIoItj@;L5XxJ2eA<tm(XTf!G14$0C@w
zRfb#uxSYBSU?CpqWbaYXOYpS~kp^J=Yhify0m#t89Pi$qlItl*A>L_q@s64jD4y*(
zz}p6?lXvP$@_|~AKEVu5s{vV2dqrm5u-qtfo&4ab?Zh=TfvPt5*MW`107AT{T<H0t
z`nW{;G#?s1mS&?CdY%kvbIK-UtkX2Fc1U|o1M(Bjt5}X}+VXU@#{J0$n$w<~49K-J
z6X^!^c|ojuA$EI4I``E)xuFF_*18clIormD2Rkpue4Noj82T0+keFvItyS7|%``c9
zEA?pC{MOpz*wxl4D_{d0!1`JuyILdSsJ4qffXZC-RO>>fJ@1(wzXo7l@n#I_J|6FG
zyMBjb<;k!v#`y<!xwS>+W(LQLXKs!<`GwvDV{G#2mdG<*P_bsRw`Jb=L#L0Ww}FRM
z*W~}T=7HbGbwPSXCy1K|Zj0-qdO%k7<3f?^mOH~`27OCmK{4Nl8oP|GoqUyG4ak4O
C`7^Ho

literal 1149
zcmZvbPiPZC6vn6B8B(oHQ#GZCmH3YeWiO><b~kuPO(`}91Ia0+!nV7$Ytv1e?2>lH
z!zu;oDWK5m9=v!GB%Z7u6ms$)J$m!xr9F5Sq$0jIo3wjqV2923-pu^od*4ow+nGNj
zsmwY(OutDF65ZaEA66ISx}(<|(;%-C*ZU9CLqxAsP_N62)z!6%>6juycpsU)H&rZU
zOVea@n2<}MP|6nbMIjLJ8|PHyMWir5$P|xZD3>i|Pl?XMc?*KbGRSr!pgGn<Zb=8R
zl;pEVuoajL-O(ZDQHww0N$Rs**woRlLICAakl*tJu|Rk9`ifk0ZQHURKsd(;2_H&Y
z)T3=`NM$ynw5Y<{6mLq>LhLbUais~-kMMYd1@?<K={_9$l@H-<;?xDVz9}zN^zhss
z63|0wj0cc)MLCaIa(!{xG~9}5oTT+d(sIfLVw)R|ysA5k%K(T?7o~@YJ%D;9g4qU4
zj}`%LPuT*nfKK${dld9J{M&~}6EIdf7_NN`GQP1Ux;Llf<3%Z;`A!$VDMKNOYrA#e
z?SeGeWpz98Qz=ScU<OYWpZ$hI1$0BVoG5dHO^eiSVoDt(Ra^M$*hb+10y?MMh;!AW
zWwr%tAvTl5QHOeg?WjNaBxH=ifU(*gb(s6?E}U1f>W*p4OVyh2rx@s-`sAX|?u^VO
z|E4`r5Oy!1PJE(wUM;Xss?T1k14Nh{x8d+$=gpW$->Cr%UEwJSJ@Z}dl(tkeO#$9X
zJ>50;weC1d+8D<I+TZ}}Ynhd_X2ell7hMAtU38@O6VqOIO;=n4Fy}-wUT7Yj9q76~
zFR%)1R}05!X#K>gZK9hIP85%Bjykz7(*k2mis_cwKP{xfX5!nHX#9!OXOjECgVnXf
zx7IrL`-cwcD~%Ch9=OfX-fBLJXU>L-+_0QwAtUr>j=^xg2P$5MYp+-(Sbg>%BVH{y

diff --git a/lev00001.jim b/lev00001.jim
index fa2c0ad85a81d28c106b307d35861d6bd3b77a33..d201aed71233cced09fccf07c522a2f008669fb3 100755
GIT binary patch
delta 669
zcmZXR&ubGw6vtn7Gq$M`qC%~d#EllD)W$RxiWEx%Yb9;MyxlESLMd6A#RS_VCR<aL
zHc1gFJxFmu6n}!?L9l;-hguK{_Tr)H!Gi}+A}D$iLBV<33ZiqGd7tn1&3E41Y`xW5
zk3qt?Gqj3(ybFAaGbj}8N(q(&Dhoj^q%seDI}`M7pI-IU*eV|{nfY)y5{W>iJKn9b
zHdhC(juh|tSl+ainpsuMqGFj9JAYx;Ja2`CzR4E22RNkKgUJp2z<qU?Hmi28ZB=IA
zL7;(OxCFUA2)1wH#Ha)-unqt|1eBmk<)Ji{8=~BT`%%FI0!$J3<?0*o6@Kz#coL%m
z<YEGBrO1(mGMq*olhlaH+l{hyK@caffLZE9<ef%_I0Rq-XK@iPA%mPXSFi=!>s}A=
z5W@UA-p3n)Rd-lZCm)E+cku~6!{xwb?|NuneiL7lTW~SCdt^<{updY>`i@C4p;GZ^
z)K*Gmt4OoiN;TQvo(y}dwZ$jnqkcp9Ry6YUYtB<or!=NHo1Ty~r#YWIq0Rw(q})!t
zQ0TMB(B(&ACHZS7EG4?`rT=X_uQzZ~1j?{pope3Ab4@z2i?&yE=eaa;@PE%KgYbrP
zSdO{EeTI{fhu!U<;XIa)q(8g&yd3_>YwWBsZC#9t)fbsD%W&?v%3vp)%KV@*AM_u(
VDnkDWKi)yFTryO)#5)F?>^D7+zB~W`

delta 667
zcmZWmO=uHA6n@#wXd5If2&GlJZfHb{7~9yJXw$mHrY8G#*V1B8$kMJ&u}#v=+DIX!
zIfxPu3InBxU{Me~h!<}{+R|D?#DnDExp?ZSha5aQGxZ=kmznwg-kUdT9jhI+I6SZ$
zSK1f~?ig<k0&@l5D?&rji3$}}Cjpqf)*C#$HP2N@+n6dk`A8%di-Fgl=+{X|=s@VW
zB8n4v$JZ)OS#t`S>v(>C@t$+njWB(k>=*$+NO#e(W9C`xtiilf_RssSw*W7cT^vFQ
zW(J|ROEJHXOYjsn0RS<{;4+6lq&d98;0)fxJ9wKB)10^}^eb=xqv&A`mv~T|5h>xw
zK?xq?8b0Ac96k)n)gT9}_!8gaYo5dz)#4=*pg<Kr;%D4I0yFOYIiGP4MHs+3%o;8H
zi9Z-u{=<C|K43lX;Q@l#P?m$6YE{mTH02Eb8mp(8a+VC6d`6ee6q``7aAv^QiY2$e
zXOl|T$={wVIbp3Q+KKDo8_d@dzGaiX3!Idmne<CQm6|5q52!s=e5Gw`{HwS;8aA1c
z7wM*b(n$1p=HJ*YYZqIroh(@tx}rrNNf(cB%Z5d_r175rJ$0MYAsUtALO5yDTXIqy
zYc_o&_hqI<o#A8*E9AL7?=B6nH5glPN-%jrCv0Y-Ih}+-C!H{KN*UeOc<ZOxKGn_N
O_|?|QH{<A~I{6K=sKSK+

diff --git a/lev00001.jor b/lev00001.jor
index 59a8f62..0deb738 100755
--- a/lev00001.jor
+++ b/lev00001.jor
@@ -38,7 +38,7 @@ c1 :noname
       jaye say" Maybe Neut can help."
       neut say" NEUT v0.71.4rc12\ONLINE"
       neut say" PRESS SPACE TO TAKE CONTROL"
-      c1 entity>pos pneut entity.pos!
+      c1 entity>pos Neut entity.pos!
       1 player.state HASNEUT f!
     else
       jaye say" Neut is running now.\I can hit the space bar\to control them."
@@ -59,7 +59,7 @@ sexit :noname
     jaye say" Neut might be able to\hack it..."
   then chain-listener ;
 
-:noname
+:noname              
   reset-level O
 
   s" lev00001.map" load-map
diff --git a/lev00002.jim b/lev00002.jim
index ae12f6773c2508740b7466d2176152cbce96b17b..dc76898e988483ffa09fb1c7a7faaab462f019a8 100755
GIT binary patch
literal 1140
zcmX|<T}TvB6vvOPTlBp_NDx~S1QkWuYGyCXuI_|`yL->McZ9434a*`5{D6v}Qi>jy
z2ty<!BqO3sLW_tXvQMJ$p+d-@hoYp1!1AGp9*WMHX=Y*J-v96aKXdLqHvuE&V)BRH
zUwT5ds1i_+EsHyI%?ULN_H2fD*+jNbKMQ(b6aacvQRGA@cfo5IP&d?Nkt;&E4QAku
zdaUk=Tp7yc>>gL|)GLv<gmQ|je^TGo7m=$%8KDh+tJ(NR<gKAR2wf1vI4(t&t3$a5
zQm_UqalOdfLb(|%NMb$KV1$oT9_kj`8?Xf%#eS6KB{?}J@HeZ~Av}id3_1l&{|C)*
z6whEU7P(RjSGp8?gICzpBBlY)6a$1|yoC2~1WTbwTmeckx{J?n0$)g`n&XS<vn-`o
zKc3<{{)!*)7k=Y!G_fflF@Tbv7@;LJhd5Hj=^U++rQD039%Rp2iqjU_K$4b=^hq;(
zgbGTNB3mLAoF1VjS;`Co&mgqYF6yKM0ut<bNvC8f;|n|pMLJ0r=$!WjnYT}RAO`Jp
zg>KO`kH`aAXyigICVljP#_6#XlLzHTMtSH(nxrXu&yh}#_*b3cDJ;hs`b$4NBE^Cs
z48lV-PcPGpv}B}#fQ-U<wOS|iT8~K60eJ+|Dyg%&#v^iMpS1C7ysmcWR$cIjT$oSz
zI3;gYhwjpcHNOIBI_V9#nIo-qR`=^30n(WdfUmd|uj<=+NPsjJfEh^Om>$<p1V~>2
zfD#8M^^|@uK-vm`1-o%Z|Ix+RvC>B?jz{jN#v*<6yWT{`B0HnQ=H~h%Q8XFbxK2Lp
zIx26uw$AZ7TX2k(aZIhs=j~e8&OpaHF?Sox+G%534BT|BYc;9{T`-NtwR2WF!%@e$
zI_)a`KQLt6IxgkpYn_apcdfd#Db(0@-qJQI?H3-%bw`V_m)lRPBhlyP;NHXK{7Y;+
gw7U)VZOTOFgZwL3o=!itGSPXwTfn=1-gQU+0TQ||U;qFB

literal 1172
zcmX|>TSydP6vvOQ6J!_nB`dm3NC^?PX?MEpx;xm=?w<2~GX{m!mKr{6CYafU(nShc
zB7BgL2wLf(2N6^X!a#b6ii$1|y%cnL=mtU3LoY#f&P+243*Yzuo&WjH_npJkL*99~
zXHpMVEJMIDKuA~j+Yj|JEQhv@u%h})`qi3p7=j4^h+(bB^`YDkFJT8Z;ck%|Lb(fO
zLE#~67I{-B$2htJdoVBZ=1`7v_CCCf10rt;Wr8laiZ}6^$Xi3X1pP3M(>N*ewoo2|
zI6S~t_*mrap_~H~-r`q$j}g93EYwX7|A|1qB>XhXYcg_8;4{BxD`_z;q;lvM@cTc=
z!6K@m7}e4|=;>@d(b?JFda}I@iqT%<5EY{-1E63Oj5tN0l~1}6y+S!o(ke;Dyd+T|
z=%Ag{LwTxz!x9ysIHPVV&=6e|&o;I{qmnG;F1|g^J-9{J={Ak=8HYJ2AW?v_DY{S3
z>48|bu)9*dlcl_y?=Er7CwfCa>6_=4hxSPhKEN#fq4}y@v893Cd9_@Y(xV`z1T|`j
zim6%w^&E3a#bqh&4PpqI)K2B9eM;(+dGN^)M4?XQRHth5hz!sZEe~!o(dw)kR2L+f
z44iM7;Gt+z!)jEGu%+80ek<bKrMoz;?x{(SNV1?wC1}A%>a}|65h)-b6HtdA)erT_
zBT{rg?n4oOtGW8GN94*r>Eda%aFMRjOSM!W59SlTPFXi@(7SYl<|&b)wb$SrTWXZ8
z_v?%Rsmuq!Pdti8^$C4UfD{&hS$Kix^q}q&Aaw-*%0A<;9@QfPq^tm#@CV2Bv@S-^
zR!prtA34)F6Va+F?L=lG2aOKr^!i?7fs?Wv*Ulzf8?&Zs=?t&aEw*E(Y$u7?td(@F
z6zp0j!MhzwTM5T98Muk0YaYO6-QpZ@Tq|QHQf##yS0`N5{|(0+cQ2>1vq?K;WnFV`
z!f9!=tgNXmLhUCW%M^@aw5n+}_8J3DzWr2;fAw|8k96^OBxTG4`LA6yCwa$A8I`=7
L&%5QkD;WO(d(%3k

diff --git a/lev00003.jim b/lev00003.jim
index d48e77ff2851f7959d99489f839ff42264c065e4..dca63c7dbbd3abbced85058a1d559bf40e0886b2 100755
GIT binary patch
literal 2043
zcmaJ?U5MON6u#|FT1tfuTU`3G)4NisrQ>vGYw3f!yV*&0l6EFHo1a;>M%v8G?M%8e
z$(m$#yMoZAsJJf{io!lri-NvMsUnnO6%hqNABu=j{4MxWurGyHeDR!QW~&dHOki@p
z@1Fm2GI`+R+M&tct-ITY*?nybVWcv0QQ`V9+e(^6GCHDGZXVl8F2GI5ewIV=1c)D4
zC_Y7&NRdslBPc$+$v#IuBMP%wg>57CV(f-3fI_yOeVpwcdj_5hnKhvSXCk!FsG_RN
zV8LW3*=y_^0CfaDN=z?-4WGTi-eDU6G>YWy?0t3>|DwU&$>DKwj$C6OurJvs2%v*0
za0NX1g56|4v+vmuISHpnM=t4TZ;9ySM|Ow($?n3D=2-w<P3%oWptm(aAJ%v1;2{F3
zhdKaRJ*OYkAJa3W9E44P%-W%SsO%JZ8iWQvi~LW`8~cU`1q(;@=X71)PEL2c#v%{N
zdiEL{+4~BWgk9wI+?wF&yGRQ(J?Z&z7&Lngj!FseUd;TEdugaNePd`te>7tb-55F{
zylYCr7P6s_X6E;p@V?a)53UHeb;YiV8r2Qil(mxVNU|lDELkGk4)pZ&M&9t;Bu$y3
zX{x3r0+*_$W5{#1Y9w@|O#w}v?K4%guhw$(iY%Hk1tU7sQ1^FF<i-d3V>oznZocit
zG;Z@kp#V6_&d;e4je;%@d`>+dK^pV0>-lbHs?T|A)31lt0Gb^~Z>|GaHe}gSwX&H{
zy#f%Sp8&EHI0HXTwk^6mUN~ATJQX&I6Mc$cOwzvJ5U(XuO{~gP)FcOAZ4+p@ar83>
z#DT6dGcY_9A2ybYd8*P@k4MoUCJx++Tt>6Hs%f%BZB3F5D#_+?$JWG|icBp=tE?u2
znly|z;Y<l?w7_i0pjcACnoP}k)ha2@jI5}dgcznIb?93|>9waQYv(a%AtW!Nt`n_z
zaiiUr1Zg@~+)iiU8ZkA#%tIgqy;eJ>ZawJ5bOp-dcrk4RzRw#mZ_+rx6Otf66JBNy
za)XA%m=Bsze`?tVMy6VnX`4~h0IDuPN3gOXR;v)RrHI;b(*f7>w4XOD%~>GM%XD6?
zRA}04N#rI=l%)|~0**K@s#sY>4XVf$J)e{^u{fdauC56$!-Rw|R{u94*UiC%{AS^V
zTsKEE=*CW~%4Sq3hrwo;rIw&js^zGXtXb;pLSodEE3;tD0QM0}@m5`0529$yQTKN#
zPIHoeddBs=I0(o3OlTgzNmqkjNb5X`>FLnpeiKo&8d&1P=}}=WWkap>v5Qs`>3<F&
z`tiB75cH_ep-x?xmVn0YBBxMD2M39^+_3Jp_!RaE(toj78=PJpqZJ<G37A1IMrXc)
z^u2HHNEgf*ca{HZwLA~2<(`!$P7<~ee4fp}mrqv>t6?JVS)-W=O`2(dowBWPFoJt;
zDoM{V&^Tzk^ESTasoTYA>A2WpG~yhSRB%eJkAG-4ScZVw(8^67En)zuc*E{H9*3*x
z=0NF(c7Z0hGX@vPlbwRdH#SN(uYVwa*jj+&+6?^txQIM|5#AcEKX7xjrqV^umuLhZ
zCC_hRu40^yMu$U*K@bM@ARf@GHHFho5G+Qt<3SBzc{PGwr|ERO(=c4L-t#(5IE8$*
zvL+0+_6v~O6T;ORj?;yjs3;267-NpcELs+g8L=!oDiy0B-4yhzd8LL+G#O&dSmdte
z(~bljznbe=b9N6~5x%aiXC-|)%d%^NB%GSkcdiJ();fH79InHKuDeA3DoDb1DC<sA
V*?VXD7JPHC$dAAq5pU5o;cr{RHY)%C

literal 1542
zcmaJ>U1%It6uxbC3>azF2ScDFIe`?7#_c8+1ffYLJ2$)6?9RRO*KNvxo$O9`*CsPz
zb~c*`7FPnoKBee`QiA$c#J-3Hp-@v4M9>HEMSQ9cT2OrOL6lO8=gw}TKIje$d(Zcs
zbI<pkGdoA7oon-h=6&S~ukd4plj6u2J14I2<D@!E#zwv^x+}-Y9zKM;$-6Q<cN7+6
zlkD>k`1=@MlkEADWN+egm4D3d@J}Ql`8^<uMXvL&`S<)A1S)gn-Smj~S^kvC6J{@2
zkl*-E{2~9H50ICTG&ZuIl+BXY$OHbU7!@Z3wy}-C;|Z{cWjUV`v*IZPniBXm0R#f4
z#aZ#9P(_O5!>EeTUh3ME?C~PGfI-vWmi*7f)29Xq5J9@>S5gP#uMXT=yghJ1xi0=(
z(v)N5>f+Q1P1zQja#IyUd#R2RieVCA^0SQ~j>2lI;>+UXU-<{(iIg=U>)bPBl>;%B
zy75d~NgE};#EKM5zQk>o14n1J%QULnY<U${xno+ixJ;ty+sJ;wC^U9FSPPrYNtZpj
z0kY>Ai0eMQ>;;WDj3)cc^M)E!VJB=wu;w>oxD++~pej*$Yiy`ca7wBU%mSu^pe8H!
zv9}F*DX5mkEL+uc6gjR*4TqUj>sSB6SPfec_<j{Oe27Cg_AdJnwqj_87^r#Cnpg7|
z7W(ub4PM8lcP63e$1=l<p%Kewc11_|Pz;hw>y64~KSIkM@Q338Xv#2Yk9U+`jA2s4
zVf~-AC(T1^PdU=sljc~eJZhoUyS5bTn?0$*q!vXzu10N|vlB6Y7`;dG-ZJO=ru?UN
zNxOqIw*0q!y|T6|id405j?@xdmqsm4ce97}?_%N)X1R{Saafs525}ivEY?gs3j-e-
zK{CnMk2V^Cw=Uh29Iy`i!eRAqL+GQd?B*<jd6QC`>3M6W*A;>ix`>cnkOQ_rr;ZI<
z+065^nKMykcCJr(11bH!an?2kT`f^ib<LGW$3j{+D|>kFAGPw_l=5WwrnNOY0}N^{
zzu7$0bPu^jnwQrKrt4J0oz|!c8nsqjM^~3{+ieadevV?9o{Uj@9&)&jxO(WInk!)E
z6s$6{a|L&a7MQL{Oj^=wNZ5r|eF1nq+5QO4Yl7!C+l{zVmo8!??Ah7&*4GbPd)?Ok
zEk8m+*s9fI@Ydwcws9<OBZf*C1b!vPrH(_Hp(zS3;ivrW(LzeiH?UO(wqr_V%m%I>
zsrU||(kjk~=S{U#Ld|wT)mJPRTc3fxZ*nyEkyxfsX2oLvMN5=hJSo;wIN{8LT2`5y
zZ1O(<1zHp{$taT>1AV{LQM&0bmv?zvQJrqOA{Nuz_~q%2qA6c3h@rM}-dXpzviNx}
iv*B%$+G$N0B$_fr&P?p8pW%!42%a9p(>r+TD1QNX|HAG7

diff --git a/lev00003.jor b/lev00003.jor
index ef78f74..5327d1b 100755
--- a/lev00003.jor
+++ b/lev00003.jor
@@ -3,37 +3,25 @@
 objects: O
 
 9 9 door d1
-7 5 door d2
-' d1 7 7 switch b1
-' d2 0 3 switch b2
+7 6 door d2
+12 8 door d3
 
-defer c2 ' c2 5 7 computer c1
-' c1 8 3 computer _c2 ' _c2 ' c2 redefine
+deflistener b1targ
+b1targ :noname d1 evproxy d2 evproxy chain-listener ;
+
+' d3 9 10 scanner s1
+
+' b1targ 7 7 switch b1
+
+defer c1 ' c1 8 3 computer c3
+' c3 12 11 computer c2
+' c2 5 7 computer _c1 ' _c1 ' c1 redefine
 
 end.jor 0 4 exitdoor dx
 ' dx 0 5 scanner sx
 
 6 7 N ' {gord-sit} defentity Gord
-5 2 S ' {rexx} defentity Rexx
-Rexx :noname
-  dup EVTOUCH = isneut? and if
-    move-player
-    1 f-rexx f!
-    ' Rexx ' player-prog redefine
-  then chain-listener ;
-
-var rexx-introduced
-Rexx :noname
-  dup EVTOUCH = isneut? and rexx-introduced @ not and if
-    1 rexx-introduced !
-    neut say" MOBILE ROBOTIC UNIT\IDENTIFY YOURSELF"
-    rexx say" Hiya boss!\I'm Rexx, the janitor!"
-    rexx say" And your best friend!"
-    neut say" A HUMAN IS IN PERIL"
-    neut say" YOUR ASSISTANCE IS\REQUIRED"
-    rexx say" You need me to take out\some garbage??"
-    rexx say" Oh boy! Let me at it!"
-  then chain-listener ;
+5 2 defrexx Rexx
 
 : flicker c1 EVTOG entity>do 15 sleep ;
 
@@ -77,10 +65,47 @@ then
     cancel-ev
   then chain-listener ;
 
+var rexx-introduced
+Rexx :noname
+  dup EVTOUCH = isneut? and rexx-introduced @ not and if
+    1 rexx-introduced !
+    neut say" MOBILE ROBOTIC UNIT\IDENTIFY YOURSELF"
+    rexx say" Hiya boss!\I'm Rexx, the janitor!"
+    rexx say" And your best friend!"
+    neut say" A HUMAN IS IN PERIL"
+    neut say" YOUR ASSISTANCE IS\REQUIRED"
+    rexx say" You need me to take out\some garbage??"
+    rexx say" Oh boy! Let me at it!"
+  then chain-listener ;
+
+var gord-jaye
+d2 :noname
+  dup EVTOUCH = isjaye? and
+      gord-jaye @ not and
+      6 6 WALKABLE mapflag? not and if
+    1 gord-jaye !
+    cancel-ev
+    move-player
+    jaye say" Hey! Gord?\I'm Jaye."
+    gord say" Jaye, am I glad to see you.\Can you move this desk?"
+    jaye say" Let me try..."
+    jaye say" . . . .\!!!!....."
+    jaye say" !!!!!!!!!!!!!...."
+    jaye say" No, I don't think I can."
+    gord say" I keep staring at that\cleaning robot."
+    gord say" He looks like he could\lift a building."
+  then chain-listener ;
+
+Gord :noname
+  dup EVTOUCH = isrexx? and if
+    gord say" AHHH NOOO\NOT GARBAGE\I AM NOT GARBAGE"
+    rexx say" Whatever you say, boss!"
+  then chain-listener ;
+
 :noname
   reset-level O
 
-  :| Gord yield Rexx yield done |; ' entities redefine
+  :| Gord yield done |; ' entities redefine
 
   s" lev00003.map" load-map
   7 11 tile>world Jaye entity.pos!
diff --git a/lev00003.map b/lev00003.map
index 3fbba415d4de756682baa19ee15d1c03fb24a3b7..dd31f652582d2091e3a6e9ee18a5e7fc8e0ea787 100755
GIT binary patch
literal 264
zcmYjL0S?3<2t&HLEtd^-%iaHfdIh}X8f_}l!Xu{;#c3k6p6cg!DMfSu_&~|PFf&^7
z0bQa<QYlC3{JNVNz0ZFQ9hlyReYV$HwRqmuSG?}*znCXngLnrY&hD*skCt>d&M1m4
VT{*0WcLssW`;NoCiHJ%m@&!x*1a$xa

literal 264
zcmYLD2@ZfT2xFj$i<!}6(f|L{mP4D3qd;NG5TMZ{Jl3In^%07w0gt(3Xc*l+FkQl%
zskEM4QQ%}ok|iXVrO;{HucwXNajllJXy9JQ4I3gg>scvcZ<W6b>t;4qk$VF@J)Fo3
D%{T*I

diff --git a/map.jim b/map.jim
index a1edbe0bdaf669f17cf214ec8444643e71fcdc11..b63f744185a808c5c08ac4191d0d5736722fb7c4 100755
GIT binary patch
literal 941
zcmYjPL1+^}6rIif**2|X%^_RF1{b`v?98SYFM>)!dob2gLW|NI%F=Aw#f@9KX^Wwk
z6?$mB<f16SLl1hBT!aQs=3t?sh*z~2K|BabLFmDY^LLY07KZ=-y#M~2_xIY^rNPws
zbaq$WGdIlvQgb~ga6D(RMlw1fd*)f<-dndlw`|uOQMFgd&bg|-sfYBP$w<{-3!Dvq
z)hn;~fxLOBGu^!y((h(6zC$`$KQ_l?RpAivM-&YhR}FPRH`I_0^L}zWH+3_YpPD3p
z(h3=uh3Uz;*=`|0a$F<DxqN&Nq{x#IQ^m8Ff=FmWAqhf&D2aqTK_MW6gw6ZNt=yg2
z8xij?*_OQW4cK;FswgmnXTj%&nuU*2$5Vbr(k|Y`cRFRaCL#M~8nPFjrRV7(pP&jE
zRj)+Z&nPq02};Q2)FYlr?VA~RJ@RE_o-%=5L)_qbI5ZDNe#@FE(1TJm5RpyTrrUJ7
zKcsCwNEZE-`#3akmgLM9lvpNJU>#`@8q|dLN%R8LzK{wrpsYH9Tkox;2~{22w$ypL
zBT#4?X6R$lhFCPpY(X75P?m^S0<j&qD(^c`ADW?0L<2rRL(0O{+5*s~jqajC`X(+c
zM}_Asq@Tn9@hg?UsdfK}x*S9Zj;B^bj_$K?vEM{e36|YT5A|7W!CyA2w&b9LZd_m`
zwxBoRNMLPTJrac||G|0{j7n@xa{E>%!k{Oo5kB(&=j~Z7@EAH38?tL12<(W@8TwM@
zqfw4$&w>r98!f=^&<ttP>Q@4Lz31?-)`YLLDuoucqE^*$HR~GHLi$z$J>M>Ooj~Aw
t>T0f5VhDPmZR!a7C1DlU^SUsUj4Y>Hna*Oopm)Gf^Cz;bY%B{U{R3$s^%npD

literal 941
zcmYjPL2DCH5PqATw@q7D&7oVx27~cX@a=9b)SE~{D<syEmX=CF2_f0Ei@T<F)0W0w
zR_USILvEtcgMxww3EqMSA$YZT^iXde^arRQUYyx%S})7Y_rCYd_rBS2mK^+Z#y4Nc
zN%7;-0IS)K<ynqZs<F7nSW=v1_MOe5W0#9HOLvQF?BQuw+tGY}MX1cJZg|#Kb=@hi
zRXsd;q^a86d7saT{_YvcAzl(OL|p-aejw3+F*zX@w1n*Q2O`RrCTDI;re>zu&moCD
zLtu7#aUldE?5$AP{9>wm4(tQ!lXS%?u6Tjbh{Pg{0h1yT{DQ;)i^zfKV>c&nEu;h8
zVfG7k@eOqC8oJ1+`@)1nk&sRJj6S%20%c3L>77>Dt|4Vy48icZ=R-N3)~C3{M&%1Z
zw-j^<d5SYO5tH<IY+S_Q<;cg89N*UI);+N=Qjiw!M!q2SSf>o~!9Zd*VUO?e*{IJi
z>VvFQUE8Lip0$EATaZ`dv5eZmh$x^Yw2!LSAouzFi9R5$Tb^C-t)vOAM%Q-b9RD3y
zYeSYtj5c&llg$>?p#x=PBn;wq;Emo!q<$*P!Dzq%G|(2U_CN=UX)9cm&xH{Hs{!yz
z_4!p}fK@9M&#Hz0L>&h)M&s|IRF-=NEq2!Em%LTG(qmmWcHyr&Dz|XZL|A9kyjswj
zuxt=ECNCSAp#QG+5UTR(25KJ~oq$7`99Q(n|DTsMTi~daR5uXSoIp3EPTwp)i~VTO
z)3+DFw=jYR#*h|1-!P(*SKRC+JghX~D|gZ8yfUx28m(qi;fl{Mn^DQB7RzB0MEt~U
t#a8kvk?t!y8qsn{tJsbc(#SHY9B<`4+O9)E>p((I9oc$nb~i(o{sD*M=cE7t

diff --git a/map.jor b/map.jor
index b661783..ea55c79 100755
--- a/map.jor
+++ b/map.jor
@@ -10,30 +10,30 @@ var tileselect
 4 const RUBBLE
 
 array tileflags
-( sky )             0 b,
-( cloud )           0 b,
-( wall )            NEUTABLE b,
-( carpet )          WALKABLE b,
-( comp-off )        0 b,
-( comp-on )         NEUTABLE b,
-( table )           0 b,
-( chair )           0 b,
-( table-brok )      RUBBLE b,
-( door-close ) 	    0 b,
-( door-open )       WALKABLE b,
-( switch-off )      NEUTABLE b,
-( switch-on )       NEUTABLE b,
-( window )          0 b,
-( chair-brok )      RUBBLE b,
-( bookcase )        0 b,
-( bookcase-broke )  RUBBLE b,
-( scattered books ) WALKABLE b,
-( plant )           0 b,
-( tipped plant )    RUBBLE b,
-( scanner-off )     NEUTABLE b,
-( scanner-on )      NEUTABLE b,
-( cracked-wall )    0 b,
-( rexx-pod )        NEUTABLE b,
+( 0: sky )             0 b,
+( 1: cloud )           0 b,
+( 2: wall )            NEUTABLE b,
+( 3: carpet )          WALKABLE b,
+( 4: comp-off )        0 b,
+( 5: comp-on )         NEUTABLE b,
+( 6: table )           0 b,
+( 7: chair )           0 b,
+( 8: table-brok )      RUBBLE b,
+( 9: door-close )      0 b,
+( 10:door-open )       WALKABLE b,
+( 11:switch-off )      NEUTABLE b,
+( 12:switch-on )       NEUTABLE b,
+( 13:window )          0 b,
+( 14:chair-brok )      RUBBLE b,
+( 15:bookcase )        0 b,
+( 16:bookcase-broke )  RUBBLE b,
+( 17:scattered books ) WALKABLE b,
+( 18:plant )           0 b,
+( 19:tipped plant )    RUBBLE b,
+( 20:scanner-off )     NEUTABLE b,
+( 21:scanner-on )      NEUTABLE b,
+( 22:cracked-wall )    0 b,
+( 23:rexx-pod )        NEUTABLE b,
 
 here tileflags - 1 - const MAXTILE
 
diff --git a/game.exe b/neuttowr.exe
similarity index 100%
rename from game.exe
rename to neuttowr.exe
diff --git a/game.prj b/neuttowr.prj
similarity index 85%
rename from game.prj
rename to neuttowr.prj
index 8cd8ac9337ca2114e8360b6f438a395782f876df..e45e016bd39a45a2c2b86853c1ee8e0984cb918f 100755
GIT binary patch
delta 79
zcmcbqb5m!7Ivca|ypYXWY=_tw879Bw$!27l9LbvvWFG~ShI}CQTrkPW4`P>s$%p*e
UlP55-Ob!spU}V_5Q(yrr0Ju9B5&!@I

delta 77
zcmcbqb5m!7IvX=*pW|jNwnJ=;+>_t(WHWM2j^xc|<eYpINODXz<jZDcpF9^xvQ6gX
d&t_zuTnZ#vCO-s{%#(cuvKg5+?-W?T3IKDg70dtt

diff --git a/state.jim b/state.jim
index 07c4cfe28e27ba35cd2151e2c9d9aa986e61a42f..62b6aea87a17917643352ea17562f6d75bfb35a0 100755
GIT binary patch
literal 277
zcmcE1ROS|xv@qagjL;X==VS~B@^{w_^K=bo_#(={5TVb-;O67#uIua{>K6hOVr0nD
zXJtssNlY(hkQHO7)#re4O7hbfx&*3NTv$06ESTH%6_{s(*$&Jutc(n^Sza(VvUcgS
zLlmbe0@Y5}SK(`9-LB8d2r|t9EaD9mIjzsmSe#k{5(J7tbRX7lWW5V?TyjooVi8=1
z0cb8r=BqvzV@7FiVxDeUW@<T5Q#q@iK}lv#YO!8=S_Q*8vAf!7`pgE6to%S<78K>D
PBh-Z(<e@8k2{aJ^yst{@

literal 277
zcmXqFQ0D$AvBZFr@rZt-J||;9kiWZbn5Szv!xvEoh9ml13~oM-?z+zYp?)DiAx4I4
z`m79TIf?1T46<SjFZDSfoRa)BhAx3B78h0y1`FoT`U=dm!E6U+7gk1w*(@)Z8(F{U
zvqKc8DFW3p8>sL#vML*}GJ;HV0E>77Ma&J@8H-a(K!QLqh;Ds@MpjRt6O(gN6N}(7
z3_x>1GKmIUj2Wf5iFvwZnW^PKP35e!3`#O{Qj7J{(<&I&iFxW=($5DftOgoUP?VpJ
OP<PlM4_#p>P$2-C*Gn`2

diff --git a/timer.jim b/timer.jim
index 8fa8a8f813c5b05a60b3773690fade8b4b55180c..7cc4849fd89230a452e3154b7dcd8760e631af6a 100755
GIT binary patch
literal 440
zcmX|-F-rqM5QR6~OrprCDGZ42q9_szK?qn#xJE%pmBz+29?5zHlDl|@NUmGt8WFih
zo3s*8gtX~2rA11Afj>lN_Y&D=_j_;N%&fD&vy@+t#e2r$Kbu)rZ@KNxA-i9#*^kx*
z3Z6g}k9h>A$e1QaL=yATd_Z@F7SA##bi2)f3S$_+G6}zy!ZHcvxnPs?Jazh>G|nP<
zu2Rn&Z4v5oWGxwXLNblunvda<YyL3f{y!f=(K_SLT;U4`Q$vzd_}EC{CtqaUu<3a+
zlnqiM7{MB7JzWn)0%O>tbuz4qEA&cWYL-*@O@V%JyKMpoz-jutSYU3W=lXT2aWu<{
zU`QDXcSVl1gPuI->VHUkRcxnlXMgbt1q>mA3Dq>{8~dVSmvU9Ci7E9=kHQmy?4~7U
VXVx?}v&Qg76|X}3pUjL3{{ZZGY*_#R

literal 440
zcmX|-&r1S96vsz=Pm5aUk_7pNei1@MQP=WPhwu<ytJ9)`2)fF)7%U_V;UyyMymyNT
zq??xxp2NRHx)z@5&8)^=W<T%y{my*ff!JJ_tkmUOVx0ZVrbMac)|>m{e(B12OkQG&
zx=_Ro3gHxmFhnxx+CRf1K5HDaG4H!UwZX;?MDU%B;5Vspi&ElfHgH&Z%z%|%MOkHz
zHRrKrhSnIlgrcVWrq7~2T+jf{$napwy?@?=Tyl@vr162kdU%x2Jg>&^h2}-zS1T3e
zt1?eQ=)*FYd0g*{%M4(f>m)=Ge{8jpEvNB=1HH!0x($qg`1KQ-6K=WXdL?CWIL!*7
z#~B(IWm?o5Ewvk%J;ZkvoP6fad8Z)<^dN*Gd&;~<R~DSZbP-SFh*ubY8h0d$>zY!{
U>7^a})(*U~<4GF*tu$JVe?%K^bpQYW