From a010ec591150dfddf1ba72194380888ef6eb1d3f Mon Sep 17 00:00:00 2001 From: Jeremy Penner Date: Sat, 16 Mar 2019 17:03:24 -0400 Subject: [PATCH] Add some furniture to Pete's house and a horse to the pasture --- entity.jim | Bin 909 -> 1021 bytes entity.jor | 5 +++++ footer.jim | Bin 1075 -> 1075 bytes game.jim | Bin 1925 -> 1925 bytes map.jim | Bin 748 -> 748 bytes pete.jim | Bin 456 -> 456 bytes petehous.jim | Bin 376 -> 686 bytes petehous.jor | 10 ++++++++++ road.jim | Bin 484 -> 532 bytes road.jor | 4 +++- sprite.tif | Bin 4078 -> 4078 bytes timer.jim | Bin 438 -> 438 bytes 12 files changed, 18 insertions(+), 1 deletion(-) diff --git a/entity.jim b/entity.jim index 47cf9bdcab1afebae961a7cf77601e385c300773..56d59b39f25e4836e72739e83ac243e92e766417 100755 GIT binary patch delta 207 zcmeBW|I5xU&-GV$x76p2?2nn0IT=z?(~2|m(sNQ7cm!&Bjac`yT$WtG`-er5MU3Sw z^BMXGrt`(vibe9TG`uO&@cj9Beh+*uy;o@Ti$DaI1avY+L< b@ sprindex ; +: defsingle ( sprindex -- ) create b, does> swap drop b@ ; : defanim ( frame... framecount ticks-per-frame -- ) create b, dup b, 0 for b, next does> ( dir a -- ) @@ -53,3 +54,7 @@ array frames 0 defstatic {car} 1 defstatic {pete-stand} 1 2 2 5 defanim {pete-walk} +13 defsingle {pete-table} +14 defsingle {chair} +15 defsingle {pete-bed} +16 defsingle {horse} diff --git a/footer.jim b/footer.jim index c908f9a1f31f2873c9a5e6383849680ca44491b8..5c726f9d04f9fecfbc7e55adaaf72470a274b4ce 100755 GIT binary patch literal 1075 zcmah|-%C?r7=GOM?uT>cswIKveCKGO2?`bjML%HaP-|%|Wr#wId151Vu`QfIL6Joe z1mQ(=71SS47j@A^i|%q>wS-FWLajT!h=PbC^nPbcz3ae%^E}V@{(9c?8UD?^56yNe zXakxLmou5XmF=9ts}NAo>M)*7Om|jT1cI|#S?t?u(|yg2)6sDESv=r#&op8*9AQv{ zmn`+hB9Q?`F1%%_dnBxYz=9?ai}dg};fvmzJEY<8NeCchv;_6dc-+&Bod7d z##!Hm6o^qoh^O=PC4v#!Y1CeS(;95q(t zpQaYM;VKevgj?*T7UnM)N9db`6W*wAcelHXG-^Jrx4HeYP}Az(Wmj30_tea8Xonr7#8Wo5a?gSe8dCj*#gl!zyz zBaDK$!{}rU>3FEL+PHc=H3I5nbzTUsl~@}X#yg%q)IXqHHsFJyBe6NM5ns7 zy`k>&)DR8{mriZ4`#rYVW5+hw10E|q))szm;d6v|S$2+Nm#iM4RX8V_sF6E=te^=9X!Q8HGO!HLav_@zOcW z>9okI|6*>!QfUI28Z*fbs}sIypk=x*J7m>qnI3RQm##`3h4K7MZC6_sT0!4<;F`4M zLhCc}-RBU{%NFC*!TcxLOE=_EMqe7s^p=~PqlrM7o_p;|(vS4Gm9lv)b$Q!FC&%!U z_Lyz|`9Ytj!0djBo0f zS+BjonN&_)?5KG&($wP8f~ld9QvbW(a@2ex@0l(wnKu;I!Q@-rp~vQWgG;Z>dZe={ zJH=P8HoVr@?eF$Gv}TqXUAAA*)V3nH;;U$t?Jm7H2~$?l!fNxH=>xFN#6-%T^9Voc Ru%(Uj%1)=RcuW93`~h&W4qpHO diff --git a/game.jim b/game.jim index 3a6b8b06705e7eb26428a7df6aea500c6186764b..4f7254a4725196bf10fe13b011bbc0220e08051a 100755 GIT binary patch literal 1925 zcmdT_|7#po5TCo9n&h%gE|=skltOa7d%JhnZ0RpGNF`0QAx08Yl2So}a>;F))9bCh z+oVZDp-@^h`h!ZP_7{<+t<*2z4;Ca4wt}(fQAESlVoGSRq}2uqK|H~&ao+CUCHWKF zAKrWOdGluG&3xYM{n&%h<=AA|nNVA(0(yE6b|^i)M>^no-JR%}BJyH;*I_~?{qKjW zA(hPPYFZiAGRmvkU=~ELfpeiNH6~uH9q>(u<^=gM)otj_igZRt}T4jZ+j?JJZ-tSvz~hk}t7wOCH)`VwP1Gy(Tirv1Iz_fznA6uWsxP#nZ>MF_rJmuskla-e3+N zvew}Fpo!mXgn7O0$>?e3hIilwtT0b8QHdMK;z?;cXrsEK4J(7%Xga~k-y(92X9aGb&u0ZmJXG6^-8Ane>8wDRk;);Z z#)}C9Tx!@aIji^JfDR!ZpYl_}s`JwfgdLn=N7Xm!SSy`{@lll0S z#K$|VMz}!pu1GcLnF)%Th*K(ef%&ATB0ME;My4ba)siEdTU#7$80B2%M&H_ObQ2qW z(k092Vx*0X&P2-KxRO%G)Rgs9??pT$+cE4Jx1iO{(1ZmE(MmWzs*bA8NzuC!SrB~D z1!0|L6FKX7x;dFXi}KY{{pY?sz8vM`alx&I0-Fvj2&)#VJLu02I&Yy<4!Y!^|61rr z4*JMJZTl0Ex$tv7-hccQ*@&7-Y03#LlS&X#c>h=yP5dHSK`%3*T3IIC?sO~B`&1m> z!|syhUxPR6KcqMzX5ft|w>jxwiOdUDPb3V0-?O}aoiJZ?UWf$>tga!4u^9LLJ^4;# z;wLuVKJOG8J=E?Rt@w4o@R`^gtAOFrR7&ATD4qi2ng)JAY%eh0a}6Az^*x^*>G{~x zF&^hR^7VHU?-Pd4U3-x_#Y?eD$f#LWFI8g=zm0K=dX-Ij18;}BJ!^QE(BcC&sS0k7tH1R*s0Qq46 literal 1925 zcmdT_-D@0G6u-N3YLd+)+3Y5}F)cLPojbF$%@nDPK_jUjDQQAtf=OD`f^4#rX6tmP z-JQ*ci4cUkr6?)%L48q3QS?ESLP3f!@x>x*H8Ctc1V2(rKr6LGEd|Gqb7y8Z$)DiD z+)+|cK{>v?%^q%0NSc+`TwgJj2V zB>G0QM%V%U4~6z9M|uaIBCj`0Mf-(HqNa_Mky5i{kAJW4Iibn{W|V|s2a6Dq9~TG| z;Zvav+WBtK!>e33oX4>uJkJ;56QLDC&23MTl51Ov^N{HhdBDQ!lwlmdG6Sl>(K_vPiW-H(bV;{MF<{sMC$mV=We3qSb_X zQ0!RGpf+)JSzLdm5sXp<^$V~`*-8&bzyv?J- zyZwiJo-R`ph$~s(6KjZ`GZcMX8P#*?BrE=Qo@qSIG5c&j$BF!4uoe1n-jC8b4kII0 z5=~8%0!CoHse>!RnA<^yG*QOd6xx=^0t<+ zlWl^uZF^pNjdVEo;Qb5I1&;;qN&zx9p^m+zIEiwv$@}k#)AnQfUiu@n7G@m#C8PGH z$i}1gI6><<38gDi9WgR9$Qlc$obEhbq+d!bBoD@#MGO8cJ927khodc{td^P4-LY*( zw^idJJs4v~)3If0L2s;roK-Y+Qq}CIdM4&W+2L?t+J@%0Lo+sXDOOF+=G2_(p5*;= zu{CZHzXkj(U{%k;&5G%9nXT3vKMEA#PK*_ghumn&)63yC?yil3?4aMd=&Fr2yXd-$ z{$ryLx#(>db?jHgMuejQ)_>kdW)rHW>B^Lz(UMpwtbc6q7Ca$W;mb^_c9ao!I^CRn z3zNfon1+_Kk?W1`AkT})c~E9HXG3$bRnG2-_C44=D;pOOTf{FO&eMjb0$jth7CbLk zlVm0_we|K{r`YPDPS@y!&%$B39921>dZunBsju?|n0GHmnV+JktNiIhFk? zmgPf~1HcRy`{t&S!Ii-dYvo#?7KZ2XLtL{99_Mk``OEoQa7=#=;e PY?<4(E7^axm>2sOlyIFf delta 566 zcmXw%PiPZC6vp4qzL2J_e{k#OppcnSf?z#_(iS{Kk}9zpA*eJ(53)_RW$88v%{JmG zf(Jb)SQoGAMNoRmp;wCsPel=(_j~V~@0&lniQPmcGrDhn zkw00EXE?&SRF!;*X-^=a}Pr~)W{H@t|%!H&E0rFq;?4^t3k~MmKp#S3`8|Y8< z2-6}3_iS(3Uho{%|IE*b2&ahFSKZD5{Sni$FeqDXS)IqJyFQIq`8WObiI>Ow_(*J_ z2EV#&BQ9UWWyk=x5MV~{;~Qb2DS*}lRhv|)PL+SxpIJStkDo-m8Sn8uy}@5uABp`D z>Q<)X%xY2~CNR-WMz|mjL9N-kud=kAC5keM(?;%S5NfB`Km?I?a^|X3k@C2Wb23kE z6pty-NdzpRq!hkXsuJ#tJdvHl+c+;RyonYHRF5Ts+w83NAb7~K?41lYSVpE!D|yi@ Q(GS?u4`jcGvIafuf2z-$djJ3c diff --git a/pete.jim b/pete.jim index 9545ee194cdd5196481e1c336815f36d16edcaef..760c238ab398c46be0fd0e2ed5c7fb8cf2ec8f9d 100755 GIT binary patch literal 456 zcmX|-F-yZh6vto9iEW7`1*t_u4r>zR(rhle*hMJl;+*9$S6kZVLK7Ma4*dWQZhin4 zUEEv>w(cUh)Wr|r&@D>^D|pughvVJjz2E=+-@74S6^D#74yh3ZE@%&)HhglnwE{zU z2UPSG$sM=f)3nRTKy6%Zf!omarECl(ncbbop zQdPBvIV;Z$KvR^plFo0^$1#dYJv0Lxa*i9cCnAn$r!8a1BhQ9y{3?iK@+wSF9uA1H z|7^+`>mtv>P#x)4ic~&K`yh4rR-Ws3o1coL6G9cl+L9D0Du+-`X;#X&^7{=jzX*yWxX3g4bb@g);K@mdXBcalPr_LcnXtj8=T;9b__k%Vu>((a&p9UFw5TS)f1v CI*E$_ delta 368 zcmX@Xe1f@NLAzY}jn+QKH(D39m>H52ix{?wFlcK^F)=hSTwvf4U|`wL!pLCFe3eB; zyIu8yDu{Pc<-f{G9x;|bEIb0ASnRZU1lmA6`5X)lJYK3b%pm=zpz0W)?l>#auDV$KHZw>!LPyn7`7?>VF3U#BWybW diff --git a/petehous.jim b/petehous.jim index 320c43b8e0f1394abe2f225d4b9b752e8fccb941..858ee6f05efd118c4fef7c795d9419009ad6a768 100755 GIT binary patch literal 686 zcmZvZv1=4T6vijH5ln6khZqa12Qe;YcTcf32$mrVf~E)_=LR10b{c~@2L`OiqK5$vNj<m2ws@35M$v*#Y;C;Vf0x_#qX%{|i2 zv)?Y;|}9zNqbI5n$NQ!o|?Q!@zQtMNGR@^_=Q{ z79OA&2g6LQEgIhHC4Bo?IDvc?sG2fuHib_tCEAnQ7+rkV$U_uxBPm!8RKx@-(U?twI_=+S;)W?2q7sj*8y2+sxvv8NkMsy myeiO5e^~ajJW%uD`ot2VQ;=Gcnvq{xte2Zuz_3N>4+{WA_C?kJ diff --git a/petehous.jor b/petehous.jor index 8cc1bf6..3e97074 100755 --- a/petehous.jor +++ b/petehous.jor @@ -1,7 +1,17 @@ ( P E T E ' S H O U S E ) +16 5 N ' {pete-table} defentity table +15 5 N ' {chair} defentity chair +7 6 N ' {pete-bed} defentity bed + +table :touch pete say" Yesterday's breakfast is still\on the table." + say" Maybe the day before's too." ;entity +chair :touch pete say" I've had my morning coffee\already." ;entity +bed :touch pete say" I'm not tired yet." ;entity + :noname reset-level + :| player yield table yield chair yield bed yield 0 |; ' entities redefine :| touch-begin 16 10 2= dup if player move-entity 12 8 pete.jor queue-level diff --git a/road.jim b/road.jim index d79a25694f2bba961e2ebdf52c0f0ca702b1c973..d87ecbc5e379cfd50c79d4d20c1e1c4eceda5273 100755 GIT binary patch delta 409 zcmaFDJcT8`Nc*{Rj5ZfjjJBgTD?@TdX>vBhRuM6l<5Elv4h#*9JOW#^_OmcDII8BW zuH^Z|GDVw5;Ja!GUz&Ca-+mSbhCeL(S+1%0aD8I&*X0pNQ@<|pT8)9_D$7;vGKEhp zmnZ5g)ypXCRR<|%W!TTc$L#{e@?0!ek8PCHO_j81rJPI7*3szOP=LT;r(K~Cbt3tTcV z4eCG*icsShfQ_H0Gx3|6G)!IrD6ayQzYR9<=45k51uvMqGEiO}D$l74avr;`bAE1a zXZ%z286Z<+VA2r^hRgFNgBR_(4kc_E{Uyo|zhV2FT%E=U~|bV<5J Q`H3ldxrqe~YRZ3D0Mk)-tN;K2 delta 362 zcmbQj@`PFcjaIqxMXg(mZ?t#>T(tJHFfv?J`LD8)=M&3%9Ug&iYS$&I)fiZ=vY2YK zDSTovo*1uGzee6yy@YQ+3oFBZ7EXo+9*}gTcDw2Y)%`5IKrtSM*;?B)AZkE-HmI6* zuo11={y8ZM8JXFcdFcuzMTwa?dJHfVC6H9_(-sF>xJNrYH77YgH&vk|Um>?rp&%!5 z5+j!kOoKX5gCf*;1|5(K|7lNFV^oudDNq0^P=PA2)&ZGlIXRtC!3!p@43t-g%4dQN zNY`=B&&@5(%Pgr>NKVZwNiBl8Z==Fn=KU;!4A#sbAFl+fUam9wBBP4@8hLeKko;lU b&+I&-Ee%~#qC}Cl;tEJyfTO?#T%kp&ChzSI zN#n8XZ|3d%d53DKP9L-W(JL+d95ZA0EpQ}?xT#YSX@=`U+bv_&1VKEQRQ(v)1p2=r zF&n$G&M3xSN<#8Rjx33V9LN}8MpDn&BZQRoLi)743qEYa#U+HW1zRwHt7uN7LFj-( zRrvC1v^XA6_*Emp7}>b4r32saaDdU@^{$_{$#UI5rKP4&WRb%sJ<5b6Hyej3S0FCH|pFOjk~$`cfRjC=br7&pUSCsmz%ryZjpK;KN#1^E+5(_)-%3b z2MH`en1RTUUnWlaGF`#Uf8%vOQaU~usje;oB@v4w8*kZuSaG+A4EP_gQB zh0ws0W$M}Y9)*J@KCKyYl;D+L4m#=QG;TRCjILxFDDlqIzlnA7`%^#cDT8U5MW}Ix z#u}HPXxLtXE=Nj@mrZ$> RJZlLT?1(+1KlhAQ;}59>WY+)y literal 438 zcmX|-KTiTd5XA@Xfq%Hdgya%;P0UeHp`jr*<|-2!J6fW-z~;cfK~4gdpTWY|S@;2n zm5qg=_d1M~36)an7g!Q!@4#%c`+M)r%+BHNs<@ETOjDeRJhgg$e^@1Z@5Da0J}?mu zV%!PB3`B<9GI5fZ;V$1bnjG{Zf7BgtumBeU3$K>OJqxEBA!hKDI>SIE&Sh3(mU=d5 z!DudW)Kk$gVp9!o!o!O&{CmyAe_p{d`zU^e#!4W`u;do2P73$s4vnI25U5DCSs~Q$ zZW%rO-i37F;mevKLoqu1a?nUVr*SMn;b7t>1zmjd^jC75{Px%nTgqTs*CJH7hQ^KD zqW)m4jz(q=X|J;F7BB6RtaE`12zAbsc#U&ew)^=Q&$7Wi)1&bqb9CKPYPfF7yX095 O=x`!?VEjMHj2eGu)@j@T