'=========================================================================== ' Subject: ADVENTURE GAME MAKER Date: 05-15-97 (10:04) ' Author: Davey W. Taylor Code: QB, QBasic, PDS ' Origin: audio.squad@mailbox.swipnet.se Packet: GAMES.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"AGM.ZIP",4^6:Z&=4261:?STRING$(50,177); U"%up()%9%%%7-%Kxe6Gj535YL3.%%av%%%,%%%%fl%rSgfjxf+x&F?\7uxVhjsda U"oEXPMM4g#&VP+3t?TU6Hu),:]E0QUrgaSp$PnkX,%Ko0l/\uFC0LJ-J U"8I\5%c?nXW,+qlV-J]rs\PvGSs$ark/7iWGUL4Nghd9bhO&^(2NQiIfq=iCZ$Dn U"NMQtx5K235uckFW15&C4+mw=#ARe?WtQ2k?egPeJtNhE$y>lB.n011v*lnjI6Pq U".bFLhnfsWpj)CGO[M')Twbkl\BwT98iXGo(3>L_4K(>uVw=8'mluiD'cN,9(3-# U"faotV$]7n(>jbf_av4E>fDjqnq[Zvw.*'UX3/x]=Z\lbIW2]N0i$jG6BS=+mM>Q U"<1,g_a-^[)tZ/?2qXG&iDD U"D1$tR\eR6YC0a:y(I02_c_g/y'mCxI5G1vB%*5I2ZN59][SO-panzEiAKS(_[.b U"u7>5IQ7bJ']oOSb++_[6%?A6sw>8(9dp,=qG#1PD(_J[O:WQ96gG5&[gU4O;J^W U"JNAha]Y5-\%Unu5$Vr4Zuvjj*ms-9=&rmJ%7qwK#,CS8DlNiNnlK:9T.OB+1Wic U"?M-Hhqu8vbov_QHkm*HI0dH1VfbE0MDD;I2Mg:%L8lf U"3\EQD74M3bLPj^pnZTXP+N8Z4#S+zQ,><+E9[K1&%xeLe/R U"0KbE)b3*#l5FE*c;g:S#5V]le(A&5y,(1)-_sh87froKMf?xe8$C),D(3P6\BWQCN8dy5%H3r9B$N^PAdY1k_SxllWBgl2ci U";TE\7N/asT0f&2Yy&0%L:iO\>V[7&2eh\kMZfBR1Jje/?qYIK22<.AVSQO_QK4P U"hVVXMBU)W)9h:kBdGvm3_G'SSq5VS9ZqZHc*j%TKv8H7X;iinEi5BV%>8;CjCHQ U"5#&p+hn=\kceo$)?tD$fa45/vH6]5D)CtjWIa2D5QcR)*qCB;-3NLn>\$fVotbB U"MyTXDRTJ^TyR]lxOl9KnqzBR#zS<256__Jtrh<57kal87*t[P*>rQ<>+^2Yw)AV U"m>K;.a,_;xZTltdWN0.e)\O;6/[FXyA628W)A8sTDz(NWMZD\-gP*j;%o22,&25 U"Yv1h5,uBDiFFse^Y88hA[V)91QqLJB$<7-_,g4&]b$tixKgCfN7X2K1%Zc'nqMo U"74.\87*)Idy6Etl\Bw[WM,(#kASKj0k,v+6K(q[em=nl=^kAX'^>Bv;YB][)B1L U"w0\YA*%:bSaB,pt(A\qK?aMGKY[NMJ$^[Uv$QI:R94+7)h&-&st97gM)Cv#v+'B U"?yT;Cq1=hv^<8p,AZY:s?q?^Z+B')H0dX.U#J(%8s*$;?Hs:/fk+WQ0=&'9g2D8 U"7&p_0%6ll$3siOcL>BeBJ_K%M^=yF$=C7W^aRvm/Yag=u0?h7S#f/NWc+q>jSXExWjBhyRd=wBgYm+xlkd>h]wJ36BX^t U"Biuo6b8&WTFmvb;_$p)#8dWEYZkCH+ U"v_^#,'*udUH]kXrkP,ClAK3ut*1TmuEMI#Z5Aar6(8VE5c*5rS$nFD'D(9Y_]GC U"72#\Yam0.#W?J[]4=m$d%?2ky+5M44o>h8HMsFSk3\/m]?=Dpxc0XC6ahfs#pD^ U"JAh>.OH?uh')jO9cI0hO'ilMf#b#tUBWJ$R;*787Z^Z,sPdVMS(dIy>IbqLPq2V U"Q8:lRvjXqVY*(rHh:FZ7dUDWmBZl:hCIR*dtLfb=a8UF'aG;TAD0.f0&u:fE]q] U"C+FKvy:wn(,R7>e]9J$jOC%7f044ds\*C%e#;>E$#dh#R[p\dCX5k=AdgtlZYbM U"T<1RVASM9Pli1L:JN?VR&w&Xc&O17H_qU)p+G%-jXn.Sa\2\0[Kv8ka8uC^v-nO U"M[(q%.>/1fQsB-S[V,w[QiB.%4rQ#5#H*$L[l?rsr5NmVja+)M7TbH1U8P5u U"kGBh;moDbJ\'*UIUe=i?MvlY_Mbdn$n_?eL?y-pdRol/e^X\RMjb+?:5dbQdC.PGexd#. U"EPd??vWm3UfXj3bJyfJyQZu'ou8t1IGTOUg&NK#utt(ka[I,-1nins;>nU18u7W U",+mn',J+IVou#R=ka5.6L8S;12a[9T,n%0G( U"QmY95Gn[Rw7?gJ$27TJ#<=WLC*]J_^m6lU<3Wc,6QD)10BTbqF[^(BXi;J%^.v* U"R;i[L0zkT]:qyc\FH:lIM,Wa7mv)X\kJRQEIr_iNQg%/n_BsecH?9eK\?)d'DfF U"P*kXn)]Lt:$Al-2RbX,%Am98HhAD/(;'K6hsO8UH9;d U"UNSj4h$j,U5DTd4B*4Gjuf2f$6;N)p3s/WfU:?D_f-%54*6vsu(]LO-Ywoq^pa\ U"VkJtGIDlTL%]0U_M,V*hFGK^_q-AK;D-6eIT:n6,8buf=VjX1[6j/mq(xGkw)%[ U"NpIr[AJsI.B].kmOzd(3*>m>2n(Mvn9UMTU4riRxQ8BQ6*u/)1[xMMZ'HLK/gkB U"7t%W$p;%j1IOGA+EWLc[C#<2?Va$3<m8wn U"6^?(#iBvq,=2hD5#Tk>TJ'rB[+H$>CxNV.>bNcAHOYk2DT83x\F5F]OdjdcF$5O U"4I7K1P4Pa\5dkW;xNhq-UA[4ZOcFit-Jis-L]:NrvKW5Pqu^%5oj U"sbibEm/?M0k03OIS\(NRQ7pWZLes*GhaudS4WH[]QbTMb&uND0vtOYM%Jn6Qbfe?XLatHfm#opD9mFILB1gOHp]HtXgR8rDJ U"g1oFS7'jNDSurW[md7S6rj=(tZ[/f['FP5D4F#-C_FAZ2=N9f.p7jfkjgjxEgB9 U"K1m=%IC/tHkuZhYz96kIdE\Qt8e*n[_#MC:5O%&g_lrCH&l%W'AWyj$_%NFJ+\&hfgzT U"m:J4D['O_R1%bTXPX%8u9tBLrA>NB.Th*V=ePacAr6IDKu8)#m.meMRdq;TB,C9 U"L*3MuVYUkb&,/%R45e*H3E_HcC_L\rQ3swBLe=O9Zpx%>NZD+ppU)*7UU)U4y9Q5'ZUoT?\GruK?VANnYT^-rR;_R+O&wo*huaqE0b$zW U"mMX]b#vqtU7nT0hk1wn\9BDcUFE2^T7C\qf?y>_rj#tb]WL%whac-fS:BDZqnuT U"hLj*%>i$-J$3/,FxW6,fvK/dcHW#+#W=SX_V,m U"ohahNuR9gh)tXK8d*%_>e_vrcM0mNCKzjWp[4pJcc]HG[1a+6hXDJ U"g4t(HX'YZk8td4Bj+9Nl=dthsF(aBO9W&aBbOW&aLBoFIj,alWC&I,o/F%I,DoF U"%I1,oF%JI,oF>OWbB2oFI,faBOWF&aBO9W&aBbOW&a:BOW&hIvF952f,'8GI7'% U"up&'%9%9%%%%-%0Kx6GYj55Y&L3%%&av%%%,%%%%%%%%%&%E%%%%%%%%%fl%rSg U"f%xup&%'9%9%%%%-I%(h5FG*g6)S+&%.%Um%%%-%%%%%%%%%&%E#%%%q%3%%y%j U"xyS%flxu%p*+%%%%%'#%'%:%%%%I%5%%%%% END SUB CLOSE:IF S=229AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad! SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32 IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1 S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB