Best X Program

最高のXプログラム

Line wrap

Highlight

#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/kivinen.orig.c

審査員・作者による説明：https://www.ioccc.org/1992/kivinen/index.html

動作

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);}

パッチをダウンロード