games/source/inform/DragonTroll.inf

!% -~S
!% $OMIT_UNUSED_ROUTINES=1
!% $ZCODE_LESS_DICT_DATA=1
!% $OMIT_SYMBOL_TABLE=1
!% $ZCODE_COMPACT_GLOBALS=1
!% $ZCODE_MAX_INLINE_STRING=4000
!% $TRANSCRIPT_FORMAT=1
Release 2; Serial "251002";Abbreviate"ntain pass""the rive""treasure"" to the"
"You ""thing "" the ""sword""troll""ragon""The ""ing""ive"" a "" it" ".^";
#Ifv3;Global p1=Room;Global p2; Global p3;Object Room " ";#Endif;Global w=_w;
Global y=_y;Global t=_t;Global f=_f;Global g=_g;Global k=_k;Global h=_h;Array e
->1 3 2 2 6 1 3 1 2 6 5 5 5 5 5 4 5 5 1 7 4 1 5 1 1;Array _g->5 7 7 6 4 13 15
15 15 6 9 11 11 11 10 5 7 6 4 4 9 11 10 9 2;Array c-->"stick""rope""key""ring"
"sword""treasure""mountain pass""mountain pass""gate to the north""gate to the
south""dragon""troll";Array _y-->3 11 5 21 0 20 12 17 18 19 25 1;Array b-->"on
a plain""in the forest""in the desert""in a swamp""in the mountains""by the
river""in a cave";Array u-->'n//''s//''e//''w//''take''jump''drop''kill''give'
'i//''quit''q//';Array _h-->"Road is blocked""What???""You can't take it!"
"Where is it?""You pick it up""You drop it""The rope hangs across the river"
"Nothing happens""You kill the dragon with the sword.""You unlock the gate.";
Array _f->43;Array _t->26;Array _w->1 2 4 8;Array d-->1 (-1) 5 (-5);Array _k->3
*12;[ps a;@output_stream 3 f;print(string)a;@output_stream -3;];[main p q r m a
s x v x3;print"The Dragon and the Troll^^Steal the treasure^";for(x=0:x<12:x++)
{ps(c-->x);for(p=0:p<3:p++)k->(3*x+p)=f->(2+p);}p=1;r=1;m=1;.i;s=m;m=0;if(s==0)
m=1;.j;if(m){print(string)h-->(m-1),"^";p=a;m=0;}print"^You are ",(string)b-->(
e->(p-1)-1),"^You see ^";for(x=0:x<12:x++)if(y-->x==p)print(string)c-->x,"^";if
(q&&p==10 or 5)print(string)h-->6,"^";if(r){r=0;print"The troll wants its ring
back.^";}g->17=6;g->18=4;if(y-->2<0){g->17=7;g->18=6;if(p==18 or 19){print
(string)h-->9,"^";}}print"You can go ";for(x=0:x<4:x++)if(g->(p-1)&(w->x))print
(address)u-->x,",";new_line;.n;print "? ";f->0=40;t->0=6;read f t;v=0;if(t->1>0
)for(x=0:x<12:x++)if(t-->1==u-->x)v=x+1;if(v==0){print"Eh?^";jump n;}a=p;switch
(v){1,2,3,4:m=(g->(p-1))&(w->(v-1));if(m)p=p+(d-->(v-1));jump i;5:if(t->1>1)for
(x=0:x<12:x++){x3=3*x;if(k->x3==f->(t->9)&&k->(x3+1)==f->(1+t->9)&&k->(x3+2)==f
->(2+t->9)&&y-->x==p){m=5-2*(x>5);if(m==5)y-->x=-1;jump j;}}m=2;jump j;7:if(t->
1>1)for(x=0:x<12:x++){x3=3*x;if(k->x3==f->(t->9)&&k->(x3+1)==f->(1+t->9)&&k->(
x3+2)==f->(2+t->9)){m=6-2*(y-->x>-1);if(m==6)y-->x=p;if(p==10&&x==1&&y-->x==p){
m=7;q=1;g->9=14;y-->1=0;}if(p~=1||x~=5)jump j;.z;print"When you give the chest
to the troll he gives you a kingdom and lots of gold. You live happily ever
after.^";jump o;}}m=2;jump j;6:p=p-(5*(p==17))+(5*(p==12));if(y-->0>0||a==p)m=8
;jump j;10:print"Inventory:^";for(x=0:x<12:x++)if(y-->x<0)print(string)c-->x,
"^";jump j;8:if(p==25&&y-->10==p&&y-->4<0){m=9;g->24=10;y-->10=0;jump j;}print
"Something kills you.";9:if(p==1&&y-->3<0){y-->3=0;y-->4=-1;print"You get a 
sword by the troll.^";jump j;}if(p==1&&y-->5<0)jump z;m=8;jump j;}.o;print
"^Press [RETURN] to exit.^";read f t;];