Roxen.git / server / plugins / protocols / tetris.pike

version» Context lines:

Roxen.git/server/plugins/protocols/tetris.pike:1: - #! /usr/env/bin pike - // $Id: tetris.pike,v 1.9 2002/06/07 15:29:41 nilsson Exp $ - #if constant(roxen) - constant A=roxen.store;void B(string X)catch{Q=roxen.retrieve(X,0)->idi;};} + #! /usr/bin/env pike + // $Id: tetris.pike,v 1.10 2003/01/22 00:19:34 mani Exp $ Be careful here!! + #if constant(core) + constant A=core.store;void B(string VAR){catch{Q=core.retrieve(VAR,0)->idi;};}   #else   constant A=({});void B(string X){Q=A;};   #endif   import Process;mixed a,h,Q,e=([]),q=Q=([]),c,s,I,_,j,K,x=252,m,f=((array)"H45"   "BBI65@CJ@BMED45@GM@LBFP@NBHS@BCDA5@LBB5BNCK5BMEL5@BEC5@MEN5MNFO6@BFE45MFQ65M"   "HR4B@HF5MLHG5MYD")[*]-'A',n=25,io,T;int u(){foreach(sort(indices(Q)),_)_>11&&   _<264&&Q[_]-e[_]&&io->write((_-++I||_%12<1?("\33["+((I=_)/12)+";"+(_%12*2+28)+   "H"):"")+(Q[_]-K?(K=Q[_])?"\33[7;3"+K+"m":"\33[0m":"")+" ");Q=([263:7]);e=q+Q   ;e[0407]=0;}int g(int b){for(_=4;_--;Q[m=_?x+f[n+_]:x]=q[m]=b&&f[n+4]);}int G(   int b){for(_=4;_--;)if(q[_?b+f[n+_]:b])return 1;}void tick(){h-=h/3e3;call_out