俄罗斯方块C语言源代码txt
/*名称: 俄罗斯方块 源程 For Turbo C 2.0软件编写:中国 北京 幻想空间软件创作群Illusion Space Software Design Groups.BBS: 1601118 Ext (Illusion Space)Email: ILLUSION@peony.ioa.ac.cnW.G. & Lee.k.BP: (010) 2561155 Call 1615 8271188 Call 89161请同我们联系, 或许我们还可以交个朋友.另外, 欢迎各位编程高手加入幻想空间软件创作群 - 程序员们的乐园*//* text mode *//* Turbo C */#include#include#include#include#include#defineL 1#defineR 2#defineRX47#defineRY 4#defineLX15#defineLY 4staticstruct BLOCK{intx0;inty0;intx1;inty1;intx2;inty2;intx3;inty3;intcolor;intnext;}b[23] = {{0, 1, 1, 1, 2, 1, 3, 1, 4, 1},{1, 0, 1, 3, 1, 2, 1, 1, 4, 0 },{1, 1, 2, 2, 1, 2, 2, 1, 1, 2 },{0, 1, 1, 1, 1, 0, 2, 0, 2, 4 },{1, 0, 1, 1, 2, 2, 2, 1, 2, 5 },{0, 2, 1, 2, 1, 1, 2, 1, 2, 6 },{0, 0, 0, 1, 1, 2, 1, 1, 2, 3 },{0, 0, 1, 0, 1, 1, 2, 1, 3, 8 },{0, 1, 0, 2, 1, 1, 1, 0, 3, 9 },{0, 1, 1, 1, 1, 2, 2, 2, 3, 10 },{1, 1, 1, 2, 2, 1, 2, 0, 3, 7 },{1, 0, 1, 1, 1, 2, 2, 2, 7, 12 },{0, 1, 1, 1, 2, 1, 2, 0, 7, 13 },{0, 0, 1, 2, 1, 1, 1, 0, 7, 14 },{0, 1, 0, 2, 1, 1, 2, 1, 7, 11 },{0, 2, 1, 2, 1, 1, 1, 0, 5, 16 },{0, 1, 1, 1, 2, 2, 2, 1, 5, 17 },{1, 0, 1, 1, 1, 2, 2, 0, 5, 18 },{0, 0, 0, 1, 1, 1, 2, 1, 5, 15 },{0, 1, 1, 1, 1, 0, 2, 1, 6, 20 },{0, 1, 1, 2, 1, 1, 1, 0, 6, 21 },{0, 1, 1, 2, 1, 1, 2, 1, 6, 22 },{1, 0, 1, 1, 1, 2, 2, 1, 6, 19 }};staticintd[10]={ 1500,3000,1600,1200,900,800,600,400,300,200 };intLlevel, Lcurrent, Lnext, Lable, lx, ly, Lsum;intRlevel, Rcurrent, Rnext, Rable, rx, ry, Rsum;unsignedLpoint, Rpoint;intLa[19][10], Ra[19][10], FLAG, bell, sum;unsignedldelay, rdelay;voidscrinit( ),datainit( ),dispb( ), eraseb( );voidthrow( ), judge( ), delayp( ), move( ), note( ), show( );intLdrop( ), Rdrop( ), Ljudge( ), Rjudge( ), nextb( ), routejud