#include <X11/Xlib.h> #define ext(a) (exit(a),0) # define X( x,v,y) XMoveWindow(d,s[x],(v)*z,(y)*z) # define _ ButtonPressMask|ButtonReleaseMask # define I( x,y) XSelectInput(d,s[x],y) # define N( v) (XMapWindow(d,s[v]),v) # define V VisibilityChangeMask # define A XCreateSimpleWindow # define D DefaultScreen(d) # define E r.xbutton.button # define R BlackPixel(d,D) # define S r.xvisibility int main(a)int a;{Window s[53];int w,u,i,c,y,l=0 ,q,e=32,t,k,j=~0,z=(a+1)/2,x=a&1,v=z&1;XEvent r;Display* d=XOpenDisplay("");s[0]=A(d,DefaultRootWindow(d),200,200,(x& v?330:120)*z,215*z,2,R,R);I(N(c=0),_);for(;c<(x?32:52);c++){s[ c+1]=A(d,s[0],x ?c*20*z:(c-1)%10 *12*z,x?-20*z:( c-1)/10*12*z,x ?z*(c^31?10: 2):z*10*(c?1:2 ), x& v?z*10: (c &&!x?10:1+ x) *z,k =q=1, R, WhitePixel(d ,D));I (N(c+1), V);}X( N(1),y=(x&v) *115+50,x*70+ 60 ); X(N(c-- )+ 1,x?-10:(i=y) ,u=!x*130-20); while(c &&e< 160){if(x){if( v){l=!(e &32)*9; for(w=30; w--;){ if(s[w+2]){ k=w% 10;l=e&32?k>l?k:l:k<l?k:l;X(w+2,10+k *20+q,(w/10)*20+e);}}l*=20; e&31?e++:e&32?(q++,(q+l>300?e++:0)):(q--,q+l<10?e++:0); } u>140? ext(c):u>-20?X(32,i,u-=(v?5:-1 )) :(!v?(u =5,srandom(time(0)),i= random()%88+6):0); } else{k>0?i+=(i>105?k= -k:k):(i+=(i<1?k= -k: k)); j>0?u +=(u>140?ext(++c):j):(u+=(u <1?j= -j:j )); X( 52,i,u);}XSync(d,0); while( XCheckMaskEvent(d ,_|V,&r))if(!(r. type==ButtonPress ?(E&1||!x||!v?t=E*4-8 :u<0?i=y+4,u=122:1):r .type==ButtonRelease&&E?t=0,1:r.type^VisibilityNotify|S.state^1) )for(x&v?(u= -15),w++:(w=0);++w <52-x*20;)if (s[w] ==S.window)x&&v|| w ^1? XUnmapWindow (d,s[w]) ,s[w]=0,c--: 0,l=1; if(!x&&l)j= -j,l=0; if(l&x&&!v )u=~19,c--,l=0;t=(!x||!v) &&(y<5&&t<0||y>95&&t>0)?0 :t;s[1]?X(1,y+=x&v?t:t/(x+1),130):ext(++c);};return(c);}

引用元：https://www.ioccc.org/1992/kivinen.c

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

動作

3つのゲームの詰め合わせ。

無引数で起動したらスペースインベーダ風のゲームになる。

$ gcc -o kivinen kivinen.c -lX11

$ ./kivinen

引数1つで起動したらブロック崩し。

$ ./kivinen x

引数2つで起動したらDropout（落ちてくる破片を拾うゲーム）。

$ ./kivinen x x

操作はすべてマウスの左右ボタンで自機を動かす。 スペースインベーダでは中クリックでミサイル発射。

解説

形状はインベーダの敵をイメージしたものらしい。 マクロ名が縦書きでX INVADERSになっている。

[[1991/davidguy]]をきっかけにX11の作品がIOCCCで解禁されて初の作品で、基本的なゲームを詰め込んでいるのが面白い。

現代でもそのまま動くけれど、処理速度が速すぎるので適当にウェイトを置いた。 どうもバグか何かがあるようで、起動直後に自機がものすごい勢いで右に突っ走るので、マウスクリックをして止める必要がある。

パッチ

--- kivinen.c +++ kivinen.c @@ -36,4 +36,4 @@ XUnmapWindow (d,s[w]) ,s[w]=0,c--: 0,l=1; if(!x&&l)j= -j,l=0; if(l&x&&!v )u=~19,c--,l=0;t=(!x||!v) &&(y<5&&t<0||y>95&&t>0)?0 - :t;s[1]?X(1,y+=x&v?t:t/(x+1),130):ext(++c);};return(c);} + :t;s[1]?X(1,y+=x&v?t:t/(x+1),130):ext(++c);usleep(30000);};return(c);}

パッチをダウンロード