#include <ctype.h> #include <stdio.h> #define A { E"Your score is %d\n",j);exit(0);} #define B(x,y) K(x<y){p=x;x=y;y=p;} #define C do{p=random()%N;}F(c[p]||d[p]); #define D random()%N #define E printf( #define F while #define G int #define H return #define I for #define J(r,j) a[r][j] #define K if #define L else #define M isdigit #define N 30 #define P getchar() G a[N][3],b[N],c[N],d[N],e[N],f[N],g[N],i,j=0,k,l=0; main(){m();n();A;}m(){G o;srandom(getpid());do{I(o=0; o<N;e[o++]=3){J(o,0)=J(o,1)=J(o,2)=-1;c[o]=d[o]=g[o]=0; b[o]=N*2;}r(0);s();}F(s());t();}s(){G o,p;I(o=0;o<N;o++){ B(J(o,2),J(o,1))B(J(o,1),J(o,0))B(J(o,2),J(o,1))K(J(o,0)==-1)H(1); }H(0);}t(){G o,p;I(o=0;o<N;o+=8){C c[p]=1;C d[p]=1;}w(D,0);I(o=0; o<3;o++){do{p=D;}F(c[p]||d[p]||f[p]||!b[p]);f[p]=1;}do{k=D;} F((c[k])||(d[k])||(b[k]==0));}w(o,d)G o,d;{G x;b[o]=d;I(x=0; x<3;x++)K(b[J(o,x)]>d)w(J(o,x),d+1);}G r(x)G x;{G y,t=0,u; F(e[x]){u=3;(e[x])--;do{y=D;K(t++>1000)H(0);K(t%100==0)u--;} F((y==x)||(e[y]<=0)||(y==J(x,2))||(y==J(x,1))||(e[y]<u));(e[y])--; J(x,e[x])=y;J(y,e[y])=x;K(!r(y)){J(x,e[x])=J(y,e[y])=-1;(e[y])++; (e[x])++;}L t=0;}H(1);}n(){G r,n;char v;do{r=D;} F(c[r]||d[r]||(b[r]<3)||d[J(r,0)]||d[J(r,1)]||d[J(r,2)]|| c[J(r,0)]||c[J(r,1)]||c[J(r,2)]);F(1){E"You are in room %d\n",r); K(f[r]){i++;E"You found an arrow\n");j+=20;f[r]=0;}K(b[r]==0){ E"Wumpus meat\n");j-=100;A;}K(d[r]){E"You fell in a pit\n");j-=50; A;}K(r==k){K(i){i--;l++;j-=20;E"You are missing an arrow!\n"); }K(l==3){E"You catch the robber and recover all 3 arrows!\n"); i=3;j+=200;k=-1;}L{E"The robber scurries away\n");do{k=D;} F((c[k])||(d[k])||(b[k]==0)||(k==r));}}K(c[r]){c[r]=0;c[D]=1;r=D; E"The bats pick you up and drop you in room %d\n",r);j-=10;}L{ K(b[r]<3)E"You smell a wumpus\n"); K(d[J(r,0)]||d[J(r,1)]||d[J(r,2)])E"You feel a breeze\n"); K(c[J(r,0)]||c[J(r,1)]||c[J(r,2)])E"You hear a rustling sound\n"); E"Passageways to room %d, %d, and %d\n",J(r,0),J(r,1),J(r,2)); K(!g[r]){j+=10;g[r]=1;}do{v=P;K(v=='s')q(r);K(v=='l')break; K(v=='i')E"You have %d arrow%c\n",i,i-1?'s':' ');K(v=='q')A;} F(!M(v));K(M(v)){n=v-'0';v=P;K(M(v))n=n*10+v-'0'; K((J(r,0)==n)||(J(r,1)==n)||(J(r,2)==n))r=n;}}}}q(r)G r;{G z,n; char v;K(i==0){E"You have no arrows\n");H;}i--; E"Shoot into which rooms? ");I(z=0;z<4;z++){j-=20*z;do{v=P; K((v=='\n')&&(i>0)){j-=50;E"You have %d arrows\n",i);H;}}F(!M(v)); n=v-'0';v=P;K(M(v))n=10*n+v-'0';K((J(r,0)==n)||(J(r,1)==n)||(J(r,2) ==n)){r=n;K(b[r]==0){E"You have killed the Wumpus!\n");j+=500+i*100; A;}}L K(random()%3==1){E"The arrow bounces back and kills you\n"); j-=100;A;}L{I(n=0;n<N;n++)b[n]=2*N;w(D,0);j-=100;}K(v=='\n'){j-=50; E"You have %d arrows\n",i);H;}}}

引用元：https://www.ioccc.org/1994/dodsond2.c

審査員・作者による説明：https://github.com/ioccc-src/winner/blob/main/1994/dodsond2.hint

動作

テキストアドベンチャーゲーム。

$ gcc -o dodsond2 dodsond2.c

$ ./dodsond2
You are in room 2
Passageways to room 14, 15, and 22

部屋番号を入力して進む。

You are in room 0
Passageways to room 11, 12, and 28
11
You are in room 11
You smell a wumpus
You hear a rustling sound
Passageways to room 0, 21, and 23
21
You are in room 21
You feel a breeze
Passageways to room 11, 13, and 20
13
You are in room 13
The robber scurries away
You feel a breeze
Passageways to room 14, 17, and 21
21
...
Passageways to room 8, 15, and 28
15
You are in room 15
The bats pick you up and drop you in room 6
You are in room 6
You fell in a pit
Your score is 20

落とし穴に落ちてゲームオーバーの例。

解説

Hunt the Wumpusというテキストベースのアドベンチャーゲームを意識して作られている。

目的は、ウンパス（Wumpas）というモンスターを倒すこと。 矢を拾って、モンスターの位置を予測して、隣の部屋から矢を射って当たればクリア。 ウンパスが近くにいると「匂いがする」とう表示が出る（同じ部屋に入ってしまうと食われる）。 コマンドは、sで矢を射る、iで持っている矢の数を表示するなど。 詳しくはdodsond2.hintを参照。 ダンジョンには他に、落とし穴（即死トラップ）、コウモリ（他の部屋に連れ去られる）、盗賊（持っている矢を盗む）がある。 落とし穴が近いとすきま風を感じたり、コウモリが近いと音が聞こえたりする。 よくできている。

このプログラムは1994年のサイズ制限（空白文字などを除いて1536文字以内）を超えているのだが、gzipで圧縮することでサイズ制限を回避した、とのこと。 現代だとどうも理解しがたい主張だが、gzipは時代の最先端を行く圧縮フォーマットだったので（gzipのバージョン1.0は1993年）、感覚が違ったのかも知れない。 なお、今後は圧縮ツールでサイズ制限を回避したことにするのはダメとのこと。