...no, no puede ser... erm, yo... yo, sólo estaba limpiando el trastero y de pronto...
de pronto veo un CD sin etiqueta reluciendo al fondo del arcón, en una caja de plástico transparente.
¡Es el CD para betatesters de DIV2! ...hace 10 años que no codeo un "program ...:"... Sigo buscando.
El libro! es el libro de ayuda y funciones del primer DIV? Ese de papel reciclado que olía... pues eso, a reciclado
¡Qué tiempos pasados! ...un momento, ¿pasados? _____google___...div games.... .... ... GEMIX (?!)
Gemix? un puzzle nuevo de malditas gemas multicolores? No, pero...si estos nicks me suenan!!! ay, deu... que no
que no puede ser... DIV no ha muerto!! pero... ¿dónde diablos me metí?
parece como... como si hubiera olvidado algo que me hacía soñar con vuestra compañía...
y todo.. por entregarme en cuerpo y alma al demonio del trabajo en las galeras del I+D...
Realmente... habéis sorprendido a este tecnocarca de 40 tacos, me habéis hecho rejuvenecer con la alegría que ha supuesto descubrir todo vuestro esfuerzo en mantener viva la joya que a todos y todas nos ha unido y nos seguirá uniendo por lo que se ve.
De momento sólo os puedo dedicar un gran abrazo lleno de ilusión y... bueno... esta pequeña broma que os dedico probando este invento del Gemix xD
- // Program Ofustris (Gemix version), a Tetriz! like game
- // by !Deemo (from endearing PandoriaStudios DIV coding group)
- // Original release MCMXCVIII (DIV II)
- // Controls: Left, Right, Down (drop), Up (rotate left)
- // Disclaimer: reduced by approximately XXX% chars in length from the original one and
- // new challenge added as no numbers were harmed or sacrificed during putecoding...!
- PROGRAM OFUSTRIS;CONST:Q=PI/PI;O=Q-Q;J=Q+Q;Ñ=J+Q;F=Ñ+Q;M=F+Q;E=M+Q;W=E+J;G
- =W+Q;N=G+Q;H=N+Q;A=G*J;GLOBAL:STRUCT II[E]STRUCT C[Ñ]I[Ñ];END;END=O,Q,O,O,
- O,Q,O,O,O,Q,O,O,O,Q,O,O,O,Q,O,O,O,Q,O,O,O,Q,Q,O,O,O,O,O,O,O,Q,O,O,O,Q,O,O,
- Q,Q,O,O,O,O,O,O,O,O,O,O,Q,Q,O,O,Q,Q,O,O,O,O,O,O,O,O,O,O,Q,O,O,Q,Q,Q,O,O,O,
- O,O,O,O,O,O,O,Q,Q,O,Q,Q,O,O,O,O,O,O,O,O,O,O,Q,Q,O,O,O,Q,Q,O,O,O,O,O;STRUCT
- P;STRUCT C[Ñ]I[Ñ];END;END;STRUCT D;STRUCT C[Ñ]I[Ñ];END;END;STRUCT l;STRUCT
- C[N*J] I[H+Ñ];END;END;S,T;U;R;ll;LOCAL V,B,Il,K;BEGIN FOR(V=O;V<=A-Q;V++)l
- .C[V].I[O]=J;l.C[V].I[Q]=J;l.C[V].I[J]=J;l.C[V].I[N+J]=J;l.C[V].I[N+Ñ]=J;l
- .C[V].I[N+F]=J;END;FOR(B=O;B<=N+F;B++)l.C[A].I[B]=J;l.C[A+Q].I[B]=J;l.C[N*
- J].I[B]=J;END;SET_FPS(N*Ñ,O);WRITE(O,O,A*N,O,"Ofustris (!Deemo MCMXCVIII)"
- );WRITE(O,O,A*N+G,O,"DIVer@s forever!!");WRITE_INT(O,O,O,O,&ll);;FOR(V=O;V
- <=A-Q;V++);FOR(B=Ñ;B<=H;B++);WRITE_INT(O,B*E,V*W,O,&l.C[V].I[B]);END;END;R
- =O;WHILE(R==O)IJ(J,RAND(O,E));S=M;T=O;U=O;IF(IJ(Ñ,O)==O);R=Q;ELSE;IJ(F,O);
- END;WHILE(U==O)TIMER[G]=O;WHILE(TIMER[G]<N*N-ll); IF(SCAN_CODE<>O)B=S;V=T;
- IJ(M,O);;SWITCH(SCAN_CODE)CASE N*W-Ñ:S++;END;CASE N*W-M:;S--;END;CASE W*N:
- T++;END;CASE G*W:IJ(O,O);IJ(E,O);IF(IJ(Ñ,O)==O)IJ(Q,O);END;END;END;IF(IJ(Ñ
- ,O)==O)S=B;T=V;END;IJ(F,O);END;FRAME;END;IJ(M,O):T++;IF(IJ(Ñ,O)==O)T--;U=Q
- ;END;IJ(F,O);END;lJ();END;END;PROCESS IJ(JI,Jl)BEGIN;FOR(V=O;V<=Ñ;V++);FOR
- (B=O;B<=Ñ;B++);SWITCH(JI)CASE O:P.C[V].I[B]=D.C[V].I[B];END;CASE Q:D.C[V].
- I[B]=P.C[V].I[B];END;CASE J:D.C[V].I[B]=II[Jl].C[V].I[B];END;CASE Ñ:IF(D.C
- [V].I[B]<>O&&l.C[T+V].I[S+B]<>O)RETURN(O);END;END;CASE F:IF(D.C[V].I[B]==Q
- )l.C[T+V].I[S+B]=D.C[V].I[B];END;END;CASE M:IF(D.C[V].I[B]==Q)l.C[T+V].I[S
- +B]=O;END; END;CASE E:D.C[Ñ-B].I[V]=P.C[V].I[B];END; END;END;END;RETURN(Q)
- ;END;PROCESS lJ()BEGIN;FOR(V=Q;V<=A-Q;V++);Il=V;FOR(B=Ñ;B<=H;B++)IF(l.C[V]
- .I[B]==O);Il=O;END;END;IF(Il>O);ll++;FOR(K=Il;K>O;K--);FOR (B=Ñ;B<=H;B++)l
- .C[K].I[B]=l.C[K-Q].I[B];END;END;END;END;END//PLUGINS & EXTENSIONS HERE xD
pssst... nos vemos!