From 555785db1df33b27b06e5fc486a902099f1e1a07 Mon Sep 17 00:00:00 2001 From: Jeremy Penner Date: Sun, 16 Feb 2020 21:36:02 -0500 Subject: [PATCH] start level 3, add Gord --- entity.jim | Bin 1978 -> 1983 bytes entity.jor | 10 ++++----- footer.jim | Bin 1683 -> 1700 bytes footer.jor | 1 + game.jim | Bin 3562 -> 3546 bytes game.jor | 15 +++++-------- gameboot.jor | 5 +++-- jiles.jim | Bin 1575 -> 1575 bytes job.jim | Bin 1149 -> 1149 bytes lev00001.jim | Bin 1048 -> 1048 bytes lev00002.jor | 1 - lev00003.jim | Bin 0 -> 1005 bytes lev00003.jor | 58 +++++++++++++++++++++++++++++++++++++++++++++++++++ lev00003.map | Bin 0 -> 264 bytes map.jim | Bin 925 -> 925 bytes portrait.gfx | Bin 8192 -> 8192 bytes space | Bin 2504 -> 0 bytes sprite.gfx | Bin 10240 -> 10240 bytes state.jim | Bin 423 -> 387 bytes state.jor | 1 - 20 files changed, 72 insertions(+), 19 deletions(-) create mode 100755 lev00003.jim create mode 100755 lev00003.jor create mode 100755 lev00003.map delete mode 100755 space diff --git a/entity.jim b/entity.jim index bd99fe4e914e6c5759acdb4d80af615489e57e42..fd30a7fa2ac9de0c673b07643c5277a8b6094917 100755 GIT binary patch delta 412 zcmdnRzn`Deh(VeAr^J8N%^NvquyAm5va|AVajX4M53I0TnJrwE7bc>M>>PHsOpuuc8Tk;UYn6qXL7LNwGE>r_ zwx~@3*^-o>2=TJA_A*tV&p>=#kozDub8G`CN-0eS`cw<#f6mh&gA;QyQ*$9c(z^{( zk(XKuHl`F97JR&KCKs@)sClS)@kaA1Fx!bKFuSm7FgO575r$UgC{{N$7gk0F1?FWe GjjRCdR&h1} delta 422 zcmdnbzl)#Kh(VeAr^GMSbsITnuyC-lb8@qBaPe$j$r8g@&&p7poLE%L;3L+p%+RO8 z3FhkNWR^gLSm&znFjN<$mZa(ymn7z;KtvfgsBl9?%M)|5L4tZJtV~Rd$Ka|<5|eUL zK@w|~dGD#P1C7l{%mmxBR+;aM3Kvv+SW+t3%(cq=tg1j&8Tm!UP;CN|s%#9^xrs%U z5KEc0RDqU)_`1lJvM^hzaxhe9r6%U(fpvB(vjt7Q&n8))0y3~5BOfBXR#~VHq%f^0 zGbJ5rg<3zzilqERuy5BYYcB*@0pja|ybQ6IV ( dir a -- ) swap drop lookup-frame ; -1 defsingle {blank} -0 defstatic {car} +0 defsingle {gord-sit} 5 defstatic {car-lit} -1 defstatic {pete-stand} -1 2 2 5 defanim {pete-walk} +1 defstatic {gord-stand} +1 2 2 5 defanim {gord-walk} 13 defsingle {pete-table} 14 defsingle {chair} 15 defsingle {pete-bed} diff --git a/footer.jim b/footer.jim index 0f6600ea4fc1760a137dcff68cffea805f73d279..ac2cc281e416622110cda33165b1b48284597b97 100755 GIT binary patch literal 1700 zcmah}U1(c%6hGW=nAFex|Inu*n!|w;O7^*oC?g8;6o5w{5zZTaz2p z2KI1Qt588B1t*j__OhvaD5$W$RH!dgM$s1^_TUf%Uu4iRUu3X){`V&Bd@_)moZtEW zopbIG918!_do%I5e_Yx<9E54hvdzlCBJ}kDj7woCRC4tJ4~3OjMiSXjkArVY2q#k` zr%uD)B0x=IB%Mo=;DaSnjZP+$6C`y&lT@dsMz|or7m@&zNrV0~xFrSPwUN=}#Mu#& z5pMH{lV>vA(hqk?N{vpAOpz3TUr91rQV{;&x>mXnJe2(0(#zKgyIk2y7>0<+gz{*@>a>J5FJs-kUfVM z7Kw=)Y+4rC7;!NthhW~S*p*z-<{ATiu*Pb#gN_`4s-3fIRS);K@HNWh269>cwk3I- zZ&5U^tInHdfivEl#Rsy11xVvV`t1M*f2K~jP05_L-4KuD@E%ajwUdF;#~frzWKWl$ zwTgMutuY9mIavw9W6Yk0qdB3a#p;*p))vm-gsb}6_Txig*1Ro1o z{7B(0Y5Y`avT^02;^13~0P=a6csviQN}Gc`C1|h)TT?CxYm5ai33tf*C)X>De<=<2 zEMZx^M+lcMQe2VUrLV{JIpX@7;;~~F-!b`603NiEGIii(I6^tHcv!uqc$KD6R-4qy zF11oES@l-0kCl%820KEgw)$9kuKzcAP%sc+o!qxrfeM*Z*IAdkK~f`{#z_jY&4vSM zJmH2@RrKXcX0AeQ@l|+To+cXV_?;U6zYlO4IL9|>pxy4XpPt$eYwrW0FOcDO$iS1@mk|fkS_o))tg1O3LP}tN0Q1l>o4t0|APstx@5y)G$ zvc2!dPXnN;Z4u``YE9N`tnp{XSxyZ%Sapqj zpa{!k_M+Yeg<^HSlv~^@>9VTnwD)=)9sLAR?Wb=y)a28IUMKX5{t_Wl3%yUR9#tKD zTMt1w_ugIPEM|&E2y^`k1fvaK`eF<*g zLCciIO_vOX>itUhw>{FMMGi;Sc*DG~y(NUG6nDm6}03%pONW0NCX5a1(GfNV;q{|wf|5S$ztO^u%( zAsOK&kC;6*!7YRE4N2+I?8qcZA^3?T-Iv1f8`t^iB5+R(a!W5?D{OJ4pD+p$i9u#; zoLBi6JSl}Cy_d2L4oX3oOr_JOCP?27MJa^$+o2)=HQOh zzN^d6*u}i*)))p)-7N>fD)DFpZ&OPR^3t&tZc8G0KO={sXyv_Xm*NdF;QjRpb$W}i zEadQ#%w010fxN;}@|5i0q%44RRw5qH!m`}tAWsSEtj?~;3&JX6;RWG)^8U{C%HSVz zojp!i4u2+u%Tp9L!EV#zaeaok{#f?dsTJQe`A`7v_=rUvco_~+jvV$WYqD2q2KOr~ z)XEmMQZ3nYeyN(m_s`jq(aNnhF2fI}v;B8AxUQq5T zM-)wU@TmGO5W1fXHzGPdr(SP&@PrxxS{}P^p+rc~1=cWbU{((RsMg=zYmE!aar-mCW zyG8+!g^Of1q_shzSS^=~`Q4Hhlzxr&UYo-U+OtG;ke&`GOUDVlO6X8yHC4wE@?NZ(1GNpx=PFqwm8_DT%&mFM_Hc-cN$>ErTb(WxyT@Tv~^$7{~XTrf3k}P1Evo%O}o=dg@fK9*~#=PkQ o5fI?*BnB+ow)n@Uc{6S#`NeRTpRa!ymT3Ls?%Cy@eRMkbFSdlEw*UYD diff --git a/footer.jor b/footer.jor index c8bd8bb..142cebe 100755 --- a/footer.jor +++ b/footer.jor @@ -109,6 +109,7 @@ var cchoose 0 LGREEN character neut userword 3 LBLUE character jaye userword +5 CYAN character gord userword : noone WHITE text-color ! s" " dup dup dup 8 portraity 16 portraity 24 portraity 32 portraity ; userword diff --git a/game.jim b/game.jim index 0ba6b8bb22d70e135d35fecc9112378e61bb2ab3..fb0391dfc1102bf95cd5ede6c6ae6d30283df613 100755 GIT binary patch literal 3546 zcmZWsdu&tJ89$ECi4z&F(>A_Jn1eUrE`cJL!1 zMhx95 zZGYJD`JL~4-|u|SlZ|9^WOnQ7$bw_R^UckS3?=f#QF6?=&c5JjAX>JVE~d2t2d;Q* zB-i__mMj)XTPq=d_bkJ;n+uJSiu1Cq!|I|syXSF|LOR=@(ab$}q6pg)bc~*$I~;R# zyu;f5dqLJSfCjNjTy3IAg3I&Xj47 z^{&T7&sgJZM!;Y1J5lnKaDvX!CN4h>awkCkI9S4SFT+}Ki~$p!eM@Mv3}q6dTK=Iz zF;UduQVrxSp_!QAP+l8OrStr*7lnFDIQmpD;wN`p7IG7ok*K5wW3a3v|AJ+(C*u9i zHds<(6K$4&P+d2WRa>ufy;r3+cDRNTtZ6=Dd`Cpr2okV4ci z_E>?ZSWosNbO4}T;(~BT2sPuS4~zS|W9)e`)vYs4Y^m~2CbD~S!(0Ix3pMwE?AxMW zjI&vB)E#4g5C`0I@b_I29U(Id(OE@=*rO4+?id{s>&O`Sn7oH5a^&b2-E|~JoR*J) zkl`cFG0s|~TVjkYmoAAq`=_{^6p{m4%8euzlVgN!k}A%*$If->Ox>)rm6DxsiJB&h zgn6-BC_@aB(mQLP>4-5+G6>?OzuJuch_lnu4Z%e};8}4>DpQM;0`xWbwV}fW8CHe} zZ|G>F4@j6@$0bB>2yHz62c!#dWs7vK3p2~m3SO5SBv&fBbA9gKTq&C>z`b@jP~wnv zg6HNT>%3KQ>}j2%NANGK<{>ikQUl3oiDAff3|E;R?K}WfHppWXlig4dW6#KCdXVpU zU}q^l$+c` zD4ajb6;mLSD4>AMqRv?cv6l~%Ck>(%C-a`S=&Z%Nf1>y`p7iB1ncN5vxg?Hv zOwpN+=}ru|&c0W(ZZxU?vToSIQiwW#zSLH&p^dPAcxwzybdp6H%5<{pH0Qv4n9qOo z+Q?paMjO^Lyj$3OcFW$9R?3tICn2rHmF zVC<5NeWX(Qy-f!9*2~PMhda6D@Ic&O|3o z6f(dkv%TJLKt(J8lRh&_$&SZAe6SI#no4*3dV5Bmldu2r1 z{s)EZv+L}FuMsLerSU+*owxdojvn;?5+aY;_qhLpS(pSo4+{gj0{+S>5;%s}sA|VNxy+SrvEfP|Z*-rR<&lO|& z0A6lOtIVv#W0jeMd>y_U;P*WjYOfBxp9B_%-YbDJjJ%V6bim=j1!}nXHvt3rDIkWE z-ZYWl0b(RxoShHc5>NWk%^wE3+%lu&it7_#`bKMe>)?8wbp%`_rS+w=-~qS!0&ov# zi4=Fo-vX=te|M;8c!mZWs&9rT;Qp&x)H=M|ETjw}B-lpV;3Kn0a8rxU@Mh?>&Y+!S z(%C`N7MxS-NYF)R*#vyb)Hvs&DEkx`kfPz3JL>cC;rm?BW&#mdGjbG^$aA!3TGBDcYs0ib}3 zSQNYYe%Vq?XEdOWGcDxS*>a_6=?>0|3EHVVObJ_Q>#?wdBJU<%H0efP{nR@tP`-a z?TTZZOX5CKJP*qGBP$6e`uW?$P;!VHn1?Zo$8o4W5VDirOd>m2Ys2@N)w&ZfTV?i_ z?tSgEpl(~p!7~J288xZ1?SF-e+E}NveW1a-38oQTWP&~sinDh^JC!(lGjwrnjGYNx zTU!ZDP<&*(2b6X8!%!1R=JpJgidr5#fB`rbME9Q$wN%v=wTw2D%j3*@9q9VSGuC6l zoeK8ub!r9tauv*Us^cBE#2HY$PDRBxfNV0a!3%RSp;I8+7li(#uBz@KRk)8)Utk~w z>@eF=Oi&x)zJ;Qe)$$m%37-1{YBQ#kmdCnG<#KuCjJ$RMuX)Z(XWvyF1ozz4^B_~E zFRO7jr-r2Y;HltMxZ|rTTmBTy)0>J6ThVH;uEGK-oo5W+-18mDjk*W5Jg|^<7i(&ae$$sEI82(j;n) z;H?&kegdbe8s9PF9A}?{m22FJL%9d~97>hyOxR9J*<=n>CW~4MIsqZJ$Psw>B+}WX zj-P;n!ajzbtKx*w#U6!0)_q^hF0+TA>u-c#BdizbToOIz!2N&^+%jM?dvT2+jU)Ff UkD=@jI9}D_{2J~&3OhRc5A}@=D*ylh literal 3562 zcmZWsdu&tJ89#~7$;)x#wK!BIFTw(>%wrHSnze)6mmk+pVHoXY6?N>J;Kta&b`s(? zqE{2u7Of#$M`4SiX=S3*x+xojDQi)+DBajbX&0udLxoX+5Te>BqWy;s*uL-FYbV?O zu;cSP-}%1Z`JN{mi5C9D*6#4%9T$57kJpk=L{{9P$k!Fp(xiJY_E^YH!M`1l7n^VP zFftg=6-LRAoU80as3Cf$kSe6~JO>(tYLe}JMo$#-AWle|P={+b7aAqw&I{G;HWxM6 zdcjHZsZ4)bxAxre0&GvwNjgJ!Ip*l$c3ay?hsH*QSsG;rgmYA8gcRYZPpCDGj+$o> zUm?sJ=!i=-W8D&3!GesJ+trJ}IO`FE93;1iniIUfZ89GO|aQRChHv{sQ z!4jUEhqdaM1SSUirchron2wL?xi94l@q!MQsv#c>4a5QmbNX;HmE(7%VpRor&L8%Y zPhAyc1uVl6Dd>;FvXVRkOMfh^?AQ)VO1j1B3ZGC~*AO3UXR?WOY7o3Y#7*Mv27^5T zLaBU4A1Z9+s4NBm-OJHufE1#mV$23S#VYbFLSq0O5{bAPMDfzI;&5k_y)N$VG}sZb zvBWzO&+N?(a|LKD&=3RJ+v2FGv5&-rJIekcZgal|e?Jq^5i+YF20JZ6?9m8Zcapv$ zR+35bA-Rhva^&dk&Poy`&WZ=5D$5q21)|C1GBCS13XZ4@+;gKHVN=M;Li5Bd$U8CWFFY;a-hUP+Z4~ugSIm^)v>qfIGw=1usQ>gxg*t(v>qRZT*q(~ z=}RlefQlwhQcQMJL6m(@F46;hCkH!A@oA2Z%P76KiGSNr9#`-I6C30@f?;tNvO|eI zybiw)5XNK)^r~EMMZ^LzcQkfE{*4@EAIQgKgS{@>3D@E7)%#N!po_I~Pu}Igy7*XL ztcy#a-;~Vg`>}8_ARWp%8gWk23s5-K%D5$vj^|N8W)bHsgV-xCkjG4-+Z6^A zlm`f8Lt?;f#<|SzpRyV01Ih`AG$vt_a#n6q?C|*u#5v;Jt~8QDZq&@9C0R1vF`!@` z{8|}8bYDR${;ncB*XMY*PPa-L!?J5OJPgYOCDPMp&n( z%)mmYS-7T1r#o(N4x2rg&;L@Y$v$^lAJ)^nTXcKu75j$tA>G2por(wP_&xS=m{N%W zAiQP8w2O$_t%5${A)*Z30b_UA^Vg* z2vPe8>xOkHl@UEABO3W16td55uz!1Mq0*B&4#*sOS5P~RGR*NfcHtBqdyVY3(f$@@D6wY>o+qin&8J$|Rx zPLjF!$YLMD+3;zb3%(uD7v^}+n5CZf+SM0b2Ky_>_oq{Z#Gb`y+I$e*q4)q)Igjpg zUoF|4%;tuAdv$X?c0F+?FPp*+`E~W)AXY_^yH9_gtvGH1yu~Ee^du`-(8~u6oe{ zv%YiGbn!)>iM#`d>7<($@*yB*;%V%@uUWe4MK{;`>)kS=jmK6qsNon9S`}J{r~P@!Su{m{57RF!&l+{%Nm1~c(++d8A3MtTWAD6 zGJD>?xzS*FGxS=_Zzt(gX27xq=Yo|R{VqDorr=Yg<~bKd*>8aXDH4jhBOVVQz9;?F z77&ItBfke_awM|NEd?VnMFy;vyjQ{^Q66x*9cr}&pn!{XsdnrAvZatp>p&f6+9tQbB(;9&4$g}y8dKNPG3fG7sf`3m zZ!nul>N$QA_vhQDXhtQ0*Z&Mv-xFqf)#rvR~Ke7^FqMyG_OeF`ofio~>@i-3ET>(4k zO~*3>kp0;v?fOP&U{f1N9`4-8(o`&~xAc48VdP-G4vOSW;Ke z)B0dGhcoX4&>a=uv@Q52RD6u>2%ZMNGzK*m3m$H7mQI1<9YIvQJm?^aoDMI{#e{wt zWRLoxKLwYS_K+&v$E+_f@G`K&Y)7$tuomu{FX$OPhf$m2x&Omp1E!Ro!@5jnvpM99 zybb}cJDiunehJob&s{nXGDSKMJU$`> zPZjVuYFYr}-yJet{-noXDDDhZk^BhuPD^;43zrK8sDr r@ entity.x @ r@ entity.y @ r@ entity.dir @ sprite @@ -288,6 +281,8 @@ does> @ objects ! ; dup SCAN-ON SCAN-OFF handle-onoff SCAN-ON handle-link |; listener! ; +0 const unconnected + ( usage: entity :noname [ ev -- ev ] ... chain-listener ; ONLY works with :noname at top-level interpretation time - not :| |; compiles a reference to the previous listener into the :noname func @@ -297,9 +292,9 @@ does> @ objects ! ; :noname reset-level - MODE-MOVE @ ' tick redefine + ' mode-move ' tick redefine ' full-draw ' draw redefine :| pjaye yield done |; ' party redefine - :| MODE-WAIT @ ' tick redefine |; ' any-job-started redefine - :| MODE-MOVE @ ' tick redefine hide-footer |; ' all-jobs-complete redefine + :| ' tick-debounce ' tick redefine |; ' any-job-started redefine + :| ' mode-move ' tick redefine hide-footer |; ' all-jobs-complete redefine ; ' onload redefine diff --git a/gameboot.jor b/gameboot.jor index b0e2d1d..25533b8 100755 --- a/gameboot.jor +++ b/gameboot.jor @@ -1,7 +1,7 @@ : blah ' seremit task-emit ! ; blah -0 const DEV +1 const DEV s" game.log" open seekend fdeactivate const LOGFILE : emit-log ' fputc LOGFILE withfp ; @@ -31,10 +31,11 @@ s" game.jor" loadfile intern lev00001.jor intern lev00002.jor +intern lev00003.jor intern end.jor :noname loadfile ; checkpoint _loadlevel ' _loadlevel ' loadlevel redefine -lev00001.jor loadlevel +lev00003.jor loadlevel diff --git a/jiles.jim b/jiles.jim index bff5939b5585ff780791adf610233cb4aa613217..5759fd824bddb1fc4d4fbf2f2704e691e6b8fe21 100755 GIT binary patch literal 1575 zcmc&!-)kII6h6t^lccURN!#6t?S^g%L8xxiy>n+aA~dNEX`?i*c5T8wRO9X>-MZNw zX18t5u`q7Y9q8l<2iRWA^(Aa?0nyM z&pG$I=bjk}eUW=TtLX!6w^QGw+MtxLlqv!A#ya6P(O`>q!M#)js(w(cdBt+Uo23wd z4!IiwZz}Mr=aOa5D|iJh$7TDL4A;6`Y=HsUD;j8#?g!p$MX#>o;D7ylRY$ej6UcaMyUt2iVZD6EH}5KPvS z{$$Ck)jWM@02jLeMhKUz%XaE-!#RplC$s5ZmykaS1wRNC!2CHs}2 z7EBgvI;??jsoij%(~^}^Az3TtU)4jr%ibyT7-%_Rx5C*R+>JgCX@(O7lkgP7(*zH~ zDTY~s`(T3M2*E>;XZQlay-;TOG{GY<$M6in0eI6!IGdS%(I++v?}W@P6MG((?RJ`I zf36zjwTF-FhnkMHTkg7xm*BFoL<7XnFQ~&0?CbHb<2n4x-bh7-uRhl7fi38Ee8m}8 zni+#FGdg3$S%@u(MLosq#=HpgrL&P*lNnUbq6llaj*zU3kTP*#Ihw<)7QV zE5ur$+d5|RTHx@lbB$5WU)P)~WHrC;)bU;C^zk#JVeo3$X=MkTf;lcqSwWlIDff}gP3JEjwb`#}4AX2>F z_q~~U-^zaIXm~N8e-krF7p^DdB|#p6KVK6d;p$ic#L2SQVb^v_QP?8 zQv`RyJi})Q?uFMF9wE2`-eC9?!6A5u;WWX=;Uf#-L~7w^k=Pil`pn4_I}G1gtu)ca z((3YdY5( zpwZS~M7v20sQL$L^^VQccFpP&pDMm#U$er3HL+`4R+ZMAV7`<1+lu!nK1lqs;sXf> zkt%+v*buRQ=q%5xvy2jJG&p~l;!i1UnzSa^)c)Mfr#zEL(!LJL-KkJip+Q2Ze;?U6 za9jUN|0VK%Zyj%JU7VVy^IeCia2jtVP+wAS_oLJ(E;CNw27su}m*wC@z($SxbZroP ub>B*$KLzyK`6jxD*+4dwq;@zsNGPh%hh&(IIruZZIc)6L$o&X^;r;_VK6GOM diff --git a/job.jim b/job.jim index 49aed33959687f5f33a886a36b3c4acfeff7e4bd..04c7b504243903b3a49a6641f1b28e017fe41329 100755 GIT binary patch literal 1149 zcmZvbL1@!Z7{}k1_vq%>)@@cMGMMN}{v{y)Vs{!vc9U|L=S6{l4$}H${r+qv?fo zlQQ0$A1AuGDL-zMWXslDwoxW;;#Wo(pCEd@E_6#?Ypie74coxT3?Cv(_iyJ5nZjK% zbAgcgKqzGL%Xt(CKKD4qyoeM82zkh3B9zS(GG|0xIIo06wKCa``!vf2$TjJ2Y*zBv zYuE}*W!=^x=F%7ZJx@@N?ZKwLei;Hno&kBE$4L!zTeqIbEypx#<|7Da86m+-Nte2` zN6S)?-Bh}CmG`K)DM53wXP_mO9f*E`*B#HXVffmIWB)*R!c$9*wJBHXdT{Ol@#&$I z02EEf(gVZ+Kpl=?{sv5!<^k?N z*#a=1rUu3DDCh?S_2~{^yzFB*<_So$vw_{~D9dAc$*0wR7Y~(*0L3vK3wT42HdEB? z__30gzQPRNDju6sCxgtkUbCajZC1k6FmXX0Ck+$*bz-An06y&~SH}vfON;Csthv}? zLX0}lb8J^V;wzAmg#n9dchwu*V-+~BUbAe&lq-!E`V$9wpguqEu{+Zb5*N9P1&QwY z)E-L>x@wO7R6X`d9VKXTu}xS4cFx6I`d#&5=&O8I5}x@NmR4yQ27>of&vwmIEgVNv z%W_db4;&!+T4YUaC*r8kMYli|E}GUxh+#Gz!@+9+<~laxqvq13(a`l(#LBTfEf}W< zyX@AcaI=8J;)R=|PM%A5!5Awz-6Fe`4ydr1z_*2sKXv+IVjp-!bzS_gbx-{Mqfh!- qV+73ux4qK7X&y_a&jpIyuGv+T1@td2g28;LCax9hAg&Uu9{Uf-OD#tL literal 1149 zcmZvbKTH!*9LFErdnrnQ0#;c_ApQ@z1qa^Ub*VszG{%ND4s{^c_OR7*h29;7OAI*^ z2(rjvTy9`lzrWvm@ALcpzBf+F$$vxX zDS0-jHEEIWQ@klbGqGo&Y1$4%KfvSnW!M$?cLc}&f$p?VEqKnFx==Ocxg8{= zC(0ZTA?uztfLW?jEL$b7YL(8?x*};cZIIa3s;e%VZm|r2*mP04MC<_63lYrUfa%jL zz#VHF02b2mPJEAo?g`M4?f}N?7KUe^f{d*$iSBJ`>E5go(v?;h|7!gb#j`yJc-tTi zHluIHd-SZb2Qzr91#DCwkeLm$;zpSpY)PcH6VrMhsoBC`r#6xU2d3D&{I5ME}U1bIId-@3$?oNrx@t5{`^wFCWjs+ZgO7~ zgxw3N+dJO5rDxbrJz$^o9wJPR+t3oQ^Losu-}DfMUgRSRdWIOS(iZBLCBR#$=ey>G z(H_UTF~_lheQ*HwHP6j4Y;@|1ov<~)&-)f9JYdD`+7wwT2IUrIlYsDVh{=d{4 zP4E$`M+!B)cdV0Aw0VAQ-IsQt9QfYoW;jCF~u}VlWkKK zNpcXe9u!uk3ZjRi2M-p}qorO%1rLQP;=zNUJ&AhoASyVsjUeKlX5a7o-h1=ST<2V8 zBLMH@r$aHi!Qwzb0^=pET83GhL|jmJNyG&Ghn$wRzYDwSB!=0tQt0dRdc6?ztoKNy z+t7ib=(D6(*;YlWHH+w}=BxfDpGgqj}oEt_Bp9nl`AZ)d{#| zbJB}whA}@l?I-B6+YFas2>|ZkO;)b)vYg=MCM(b50zSrv4CFbuVd$Ii1+L?Be2p)8 zqW}Y|aqbv}3cSb9_>ni_<+Vnm4MslUckH0QcqdNkDQ-9jHdw(;w3pf`fiZPvTw}~_ zj0d<4uaZ0Ie!82nTAR6K?gO^-J~~3Pbk=s-^1yXgxD;9x=J7+cba+w7k!zG^bcIG) zLgmtqh9;IPYKdpF8gG%mJvmZKK`0Z7S<}onnBu-=nov$1SH+|{rHOeKZ$T|q_(RMv z_?0FjM>68H&%4*}-BZo`1II8Kk0v8+zBxtZNIEU1>2NqAW>Cxw$Mm13ZfDT5f>*_@ z;YT8WZ$5LtO4)QiaZ>L$54nS$dx?Ly+af#Z6LzZ{d0{A@>F3RXbwLkz_2^6HsN;XG zw=(B>eL(QFwfFU-LZp3uqu&*_VbJr#n6`1`9M;Jz%hn^$*v0n zH_^l>%lfSJTnUMT9;kS=Kk(e(8ZQ@2ND9oICtYIC3_CJI^m zFnLk^4W&IXOSN(ULCs4f5`@awOH*${+u!y4rU&(=1R?NRyY*(du{z>>xK#DO7eQZ= zQp;xovli!$F0yt!)I^|!&IodHltX{Piw<-b6D!HY{Z=KpG@`@`DHy3Hw+;uP<~gWB zbLF*Y6YVf5buJL`qE;3yX-EtqI_z}3cKgE99&rtxm2FL32(CdN9PEHjYwo9VpFq)WL%03ZG z97?)jK={apo^2c!3%$J~j#^T6xl@T+kmH6KA1-m&@mapF3}V05Z(vV3wFa>kuEj9c xS2X2p&7ABh->rt%U8LV~Vz<1pb literal 0 HcmV?d00001 diff --git a/lev00003.jor b/lev00003.jor new file mode 100755 index 0000000..ec89ddb --- /dev/null +++ b/lev00003.jor @@ -0,0 +1,58 @@ +( L E V 0 0 0 0 3 ) + +objects: O + +9 9 door d1 +' d1 7 7 switch b1 +' unconnected 5 7 computer c1 + +6 7 N ' {gord-sit} defentity Gord + +: flicker c1 EVTOG entity>do 15 sleep ; + +var gord-introduced +c1 :noname + dup EVTOUCH = isneut? and gord-introduced @ not and if + 1 gord-introduced ! + neut say" HUMAN PRESENCE\DETECTED" + flicker flicker flicker flicker + neut say" > HUMAN ASSISTANCE IS\REQUIRED" + neut say" > IF HUMAN IS PRESENT\PLEASE RESPOND" + day + flicker flicker flicker flicker + gord say" What the..." + gord say" Is someone in the terminal?" + gord say" > HUMAN IS PRESENT" + night + neut say" > GREETINGS, HUMAN" + neut say" > THIS IS NEUT v0.71.4rc12" + neut say" > PLEASE STATE NAME AND\STATUS" + day + gord say" > THIS IS GORD" + gord say" v1, I guess." + gord say" > LEG IS PINNED UNDER DESK\UNABLE TO MOVE" + night + neut say" > CAN YOU REACH THE SWITCH\BEHIND YOU?" + day + gord say" Huh? Oh, there is a\switch there on the wall." + gord say" Never thought about what\it connected to." + b1 EVACT entity>do 15 sleep + gord say" > I TURNED IT ON" + night + neut say" > MY PROGRAMMER THANKS\YOU, GORD" + neut say" > WE WILL ASSIST YOU SOON" + day + gord say" > AWAITING YOUR HELP, NEUT" + night + then chain-listener ; + +:noname + reset-level O + + :| Gord yield done |; ' entities redefine + + s" lev00003.map" load-map + 7 11 tile>world pjaye entity.pos! + 6 12 tile>world pneut entity.pos! + +; ' onload redefine diff --git a/lev00003.map b/lev00003.map new file mode 100755 index 0000000000000000000000000000000000000000..35b9a542df286959d89162f51c5d5fe85763fbf8 GIT binary patch literal 264 zcmZuqK?;B{49i*s$CxOH|9`4!*V)4iTT(*P+~^>RQNU;EVsCzqfT$ycGoyj%(94s>s&sc*x;quWAi1dztyX*_)na2Wlt&_K;1n30+bNd)S#>{JH2s5?VD$Ejd&yS)r7=vB89jn<9it z*+UPlm&84WT*RsuiA4`RcnMy-Xh9DiyhsUn>7`&n5y6>FBLg4v-n{R7-XoYP*j0PEj*<#O2QBrCblkc;5g(;tR9jthY@tBgqbZ6fU81*Y z<5O80Lbo!rg-mvK2K|gl$l}D@%+2`|B7mx`m+6g1G>C3w7UpxlN>D5UGI|=-`Hp3r3VXa4|>ozT_kT<6Fx$dk6l+> zvd%!{e8|VtlqR_3+kjZ{i5=M`hb)3t%VqwzCw2`GQG}UlG`UgAQ2CGiWnsx#sg#GR zW3~x@=YWHQwC{{Q6YqmsBp*1|d@SlP@e{tLNGwi>y5y`kf;H*8cLApZVbi;fCsP%( U3k_IQdZ6O$|Hhm-XcSHV0BiEI>Hq)$ delta 657 zcmX|7O=uHA7@f_0L)tW}R>-Eb30+zVd)S#>T66Ls2@TR%OThX=B9u}$Z7@s4O%Ot% z?4gHx&@6j1#Die*B0*0T^bo|0)OgcF4+Ss1N|l0oac0xVz{k8d@B7~OrX6mF)fqHB z@_TID^zgp!=@C?`R4vDhwPBWA(y=O9cfmZVG-$p zeiA+N=qmp~=T?DlREA z5IG<6F}BhKmwfCK>jCjXcF9*3K^x^V|Jzf$28bxaEMhddQPfcRj~uaK$yu+I2dYE1 z4S(f%4R^RxF8~_O%O!bPX~78-oQY3ZKEOxvfDyNnT<61UMmNx?xWzZ``L9CpEANaB zROMa3;eOg(qsPR1zZS?Fj SfMul%D$f3IoHhH6qUj&SnYZ!) diff --git a/portrait.gfx b/portrait.gfx index 8065be3a448a701e2e02b4c8d1b121aa6f83be6a..c1eb0bfadda5cccd4b57f440bbdc3440b5662487 100755 GIT binary patch delta 348 zcmcJLF%E)Y429nhBqW4{#LZ}c(b2)gO*n$1n^*7v26_dqpcmi*3deAh6X-uU5JhS+ zObl+e`P!kcuSqGUIA1uf1%wW;c7b`O!f*#nYef;8C9_=#n%V0KG-qnI34l5U8V0>P z-ODVm(hF8}N`RHj+CAV$q7kk301~S2jw1fyor?Z1-WY`3X)3^gk~9dgI^uCxdZZ1W hBNOC`CKt0@-t6lBu=V!o=_2uT+xq%^RLi_`Er^4L; diff --git a/sprite.gfx b/sprite.gfx index 2e52e110de260d4698a134982ef82ea35fc9a9b0..d9ff815e8bf9bf026296992003318d11ce982823 100755 GIT binary patch delta 1466 zcmb7^!D`e%7{^0{rWnfz9`=~}2I9qo&0$y9jeXWr7iX ztd9qzt&j3B|9DmDU$@u6VO{?-eM>(K9<2?C&J7sV6>*zmj>)rk1fvE)9Azkbor1Oe2$$h<-6Ei0Y^OtwvPBa1 zLyimf$rsKFJ1a0~@3Cr@<}5!#T_IT6(}Jend=an!0QdOL=DiJO2y4Om~B{Nx=XO&kC6=_2svo&v;Y z=5upwkQU)@KTs1qSix3$30NAK5g1Ux&W~Q2XHdTeBM)O+uELTz8Z+Zw<`mb*$GeX; K?R{z%qM(RF6AEZs$vW4UPGdrI@Z{qX#oKNc4uOMY{QimnOr(e^=^9Hf+ zWm#=L{rpREdSjle%WOB<@ojxm{~$eysoy($(C!blxBsMpfHxO|`|m$KJK=m2A`^hD zB(4&$Sy3SiSw$5f-%M7yjC#4LDxs9B%~z}n%bf1@dZ)%qSVEiY{l}}MnpBMT+b@#? z$JkFnFa!}0SJ373EuaNGz!YMj20cc}vy0KR2iWF%Od#%l|NNr|IFl3kQ(oDe>jH-` zg|~V@Q{bngX%8?&j?|z*OSTDLJ_>iR3CJ9y+r2>%T}ShLo?iooyKJi}DBPST2qqY( zCus_@BG(&K(kPU_#+PGVU~)YmTjuM0o7-1J?M)7t4$v>jln8|H8l)n^bOC*&auTcO zD9N9H8%ppUoAfF{=lUBC^HFghH@AU6u@IwWK7fA5w0{xxatjCx;ES%HPdL==I;R200qGc; zgNV0Xe-@xKX#G9>Z4PQ{I6zL1Y82UmPk+WsR$9VNp&c;0%2s)Gs89nY==%HLpzUv7 mumzNSuh0Uxgq=d0yMW}UHE0JM0v;MX4tS?i_~G8EVE+J*1!Z3V diff --git a/state.jim b/state.jim index 9a56f1c7ef19bb1b555df8690765912aef6d510f..8b6e39f46d06b3e9e9426c805ba52c294deadcb2 100755 GIT binary patch literal 387 zcmXqFQ0D$Aan!J!vDm=CfQQk`)zQz-RoBtaJt&glizov_u>lvOvqz}2x30UtpDR#^ zk)Z>q4kF~{@8jbi4isc!m>ug}5@KigXTZvkmXnxX%pfbqAZW+| z;gsa3F?0!3vAD2uFjz248!9l*2D2TQU04|zX0yCtZe*1+WQQnDQv|BjHdNtjWc4;= zWdxb#02c8Eio_eTGZv?ofCPbJ5Z&R1jjV-+oQ%misfk5!83v%aAel}>X2z7nN}%d; t*4>6BnK`M&dg*Bu4C}-=bblF42dY>Mv?VVyJ);Dy=7C`zx}sX3A^e3>DpxDvKogg?iv}sx!FU7X_iw>bpVxd$>gFkV|;3Bw- zot;Ge9~_;XoI7-uB8ZDGjdXCk``+ihTZfgz_xwBWkvdyo(_~9kgivKgXgm8bOajzd zoMa2NY)RG(p<*K7q6<^r&~;-M;{;rfUBTE6oCNn{SE(AhDlkUiiOv2Et9xZ#DGD`* zox&@lL=?3`6>pR9!QznD6-~|>H4&sJ3>XEwZ8}|8Ou-L}g%|JGhMT#INRGx}Q=)uH z>W$7BDMtzPA_K{%F&+)Ey^J==(=$HZ;FJX0GNV$$Qshz6wY(r=3#S$C(?dQ*8g0vT z$1i|;gO@IsNYgw=eM%p=*J@kcHOD@K=hWwFpZO?m@t01^Ir2v4jd%Vd2hj^pz-7a9 a<)+&@v96HzS%n|aA%9Gl=@-9C`}7we@^U8t diff --git a/state.jor b/state.jor index 8097366..55ba69d 100755 --- a/state.jor +++ b/state.jor @@ -19,5 +19,4 @@ array flags FLAG-COUNT 8 / 1 + allot : day s" tiles.gfx" loadtiles invalidate-map NIGHT clearflag ; userword : night s" ntiles.gfx" loadtiles invalidate-map NIGHT setflag ; userword -: {car-drive} NIGHT flag@ if {car-lit} else {car} then ;