Thread View: dnet.witze
4 messages
4 total messages
Started by HORLACHER ULLI
Thu, 07 Nov 1991 13:59
tetris
Author: HORLACHER ULLI
Date: Thu, 07 Nov 1991 13:59
Date: Thu, 07 Nov 1991 13:59
40 lines
2780 bytes
2780 bytes
Der WITZ: Tetris als 1.4 KB C Programm. Eigentlich sogar ein Einzeiler :-)
Komplett inklusive Highscoreverwaltung.
Keys: j left
k rotate
l right
space drop
q quit
Laeuft leider nur unter UNIX und mit vt100 Emulation. Autor unbekannt.
long h[4];t(){h[3]-=h[3]/3000;setitimer(0,h,0);}c,d,l,v[]={(int)t,0,2},w,s,I,K
=0,i=276,j,k,q[276],Q[276],*n=q,*m,x=17,f[]={7,-13,-12,1,8,-11,-12,-1,9,-1,1,
12,3,-13,-12,-1,12,-1,11,1,15,-1,13,1,18,-1,1,2,0,-12,-1,11,1,-12,1,13,10,-12,
1,12,11,-12,-1,1,2,-12,-1,12,13,-12,12,13,14,-11,-1,1,4,-13,-12,12,16,-11,-12,
12,17,-13,1,-1,5,-12,12,11,6,-12,12,24};u(){for(i=11;++i<264;)if((k=q[i])-Q[i]
){Q[i]=k;if(i-++I||i%12<1)printf("\033[%d;%dH",(I=i)/12,i%12*2+28);printf(
"\033[%dm "+(K-k?0:5),k);K=k;}Q[263]=c=getchar();}G(b){for(i=4;i--;)if(q[i?b+
n[i]:b])return 0;return 1;}g(b){for(i=4;i--;q[i?x+n[i]:x]=b);}main(C,V,a)char*
*V,*a;{h[3]=1000000/(l=C>1?atoi(V[1]):2);for(a=C>2?V[2]:"jkl pq";i;i--)*n++=i<
25||i%12<2?7:0;srand(getpid());system("stty cbreak -echo stop u");sigvec(14,v,
0);t();puts("\033[H\033[J");for(n=f+rand()%7*4;;g(7),u(),g(0)){if(c<0){if(G(x+
12))x+=12;else{g(7);++w;for(j=0;j<252;j=12*(j/12+1))for(;q[++j];)if(j%12==10){
for(;j%12;q[j--]=0);u();for(;--j;q[j+12]=q[j]);u();}n=f+rand()%7*4;G(x=17)||(c
=a[5]);}}if(c==*a)G(--x)||++x;if(c==a[1])n=f+4**(m=n),G(x)||(n=m);if(c==a[2])G
(++x)||--x;if(c==a[3])for(;G(x+12);++w)x+=12;if(c==a[4]||c==a[5]){s=sigblock(
8192);printf("\033[H\033[J\033[0m%d\n",w);if(c==a[5])break;for(j=264;j--;Q[j]=
0);while(getchar()-a[4]);puts("\033[H\033[J\033[7m");sigsetmask(s);}}d=popen(
"stty -cbreak echo stop \023;sort -mnr -o HI - HI;cat HI","w");fprintf(d,
"%4d from level %1d by %s\n",w,l,getlogin());pclose(d);}
/---Ulli Horlacher---Rechenzentrum Uni Ulm---Oberer Eselsberg---7900 Ulm---\
\ orakel@dulruu51.bitnet | orakel@rz.uni-ulm.de | framstag@uni-ulm.de /
\------------------------------------------------------------------------/
| "Mit Computerexperten ist es ja immer so, dass keiner genau weiss, |
| was sie eigentlich treiben, aber alle sie bewundern" Hans H. Huebner |
Re: tetris
Author: Juergen Nickelsen
Date: Fri, 08 Nov 1991 12:11
Date: Fri, 08 Nov 1991 12:11
30 lines
2074 bytes
2074 bytes
In article <1991Nov7.135936.14806@rusmv1.rus.uni-stuttgart.de> ORAKEL@rzmain.rz.uni-ulm.de (HORLACHER ULLI) writes: > Der WITZ: Tetris als 1.4 KB C Programm. Eigentlich sogar ein Einzeiler :-) > Komplett inklusive Highscoreverwaltung. [...] > Laeuft leider nur unter UNIX und mit vt100 Emulation. Autor unbekannt. Dieses Programm hat einen Preis im International Obfuscated C Code Contest (IOCCC) gewonnen (ich weiss aber nicht mehr, in welchem Jahr). Der Autor heisst (J. ?) Tromp. Das ist uebrigens das einzige mir bisher untergekommene Tetris-Programm fuer UNIX, das die spieltechnischen Charakteristiken des PC-Tetris (zumindest dessen, das ich kenne) gut nachbildet (so mit Bloecke unter andere schieben, um welchen Punkt sich ein Stein dreht etc.). Macht mir *wesentlich* mehr Spass als xtetris. ObJoke: Kommt ein Polizist auf seine Wache, mit einem Pinguin im Schlepptau. Sagt sein Oberwachtmeister "Bring ihn in den Zoo!" Nach drei Stunden kommt der Polizist wieder mit dem Pinguin an. Bruellt der Oberwachtmeister "Was soll denn das, Du solltest doch mit ihm in den Zoo gehen!" - "War ich auch, war prima, hat ihm gut gefallen. Morgen gehen wir ins Kino." -- Juergen Nickelsen nickel@cs.tu-berlin.de
Re: tetris
Author: Daniel 'danny' Roedding
Date: Sat, 09 Nov 1991 20:49
Date: Sat, 09 Nov 1991 20:49
29 lines
1956 bytes
1956 bytes
nickel@cs.tu-berlin.de (Juergen Nickelsen) writes: >In article <1991Nov7.135936.14806@rusmv1.rus.uni-stuttgart.de> >ORAKEL@rzmain.rz.uni-ulm.de (HORLACHER ULLI) writes: >> Der WITZ: Tetris als 1.4 KB C Programm. Eigentlich sogar ein Einzeiler :-) >> Komplett inklusive Highscoreverwaltung. >[...] >> Laeuft leider nur unter UNIX und mit vt100 Emulation. Autor unbekannt. >Dieses Programm hat einen Preis im International Obfuscated C Code >Contest (IOCCC) gewonnen (ich weiss aber nicht mehr, in welchem Jahr). >Der Autor heisst (J. ?) Tromp. Wenn das gute Stueck wirklich nur so kurz ist, kann man es dann nicht mal posten?? Nach neuen Tetris-Varianten suchend... :-) Daniel -- Daniel Roedding "Wenn Architekten ihre Haeuser so bauen wuerden, wie Program- Detmolder Str. 19 mierer ihre Programme schreiben, koennte ein einziger Specht D-4790 Paderborn unsere ganze Zivilisation vernichten" / q92269@pbhrzx.uni-paderborn.de / danny@fiction.ms.sub.org / +49 5251 541965 / -- Daniel Roedding "Wenn Architekten ihre Haeuser so bauen wuerden, wie Program- Detmolder Str. 19 mierer ihre Programme schreiben, koennte ein einziger Specht D-4790 Paderborn unsere ganze Zivilisation vernichten" / q92269@pbhrzx.uni-paderborn.de / danny@fiction.ms.sub.org / +49 5251 541965 /
Re: tetris
Author: Framstag
Date: Sat, 09 Nov 1991 23:50
Date: Sat, 09 Nov 1991 23:50
19 lines
1493 bytes
1493 bytes
In <q92269.689719760@pbhrzx> q92269@pbhrzx.uni-paderborn.de writes: > Wenn das gute Stueck wirklich nur so kurz ist, kann man es dann nicht mal > posten?? RTFA (read the f*cking article) ! Es war in meinem posting mit drin! Objoke: was ist der unterschied zw bumsen und voegeln? bumsen koennen nicht fliegen. /---Ulli Horlacher---Rechenzentrum Uni Ulm---Oberer Eselsberg---7900 Ulm---\ \ orakel@dulruu51.bitnet | orakel@rz.uni-ulm.de | framstag@uni-ulm.de / \------------------------------------------------------------------------/ | "Mit Computerexperten ist es ja immer so, dass keiner genau weiss, | | was sie eigentlich treiben, aber alle sie bewundern" Hans H. Huebner |
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads