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

version» Context lines:

Roxen.git/server/plugins/protocols/tetris.pike:1:   #! /usr/bin/env pike - // $Id: tetris.pike,v 1.10 2003/01/22 00:19:34 mani Exp $ Be careful here!! + // $Id: tetris.pike,v 1.11 2003/01/22 00:23:33 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