kivin_or.c

1984-1993模糊 C 源代码竞赛.zip 非常的好,不过这是DOS格式,要用UE去打开.

#include						       <X11/Xlib.h>
# 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?
      exit(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?exit(++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):exit(++c);};return(c);}