成全高清视频免费观看动漫版-成全视频动漫免费高清-午夜不卡久久精品无码免费

#include  <stdio.h>6r.y1H ~(l*a5`
#include  <stdlib.h>tech.techweb.com.cn+X3r1y/K4g1|"O
#include  <dos.h>5A1E3B7M(F(~'F.F
#include <conio>程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛8R3e#o&K7\:Z5h9P
#include <time.h>
#include <grapgics.h>
#define L    1 S(G D/A"`
#define LX 15
#define LY 4
static struct BLOCK{/g"O,l1E+T
int  x0,y0,x1,y1,x2,y2,x3,y3;
int  color,next;}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},+S2^:{!P2W
                                       {0,1,1,1,1,0,2,0,2,4},{0,0,0,1,1,2,1,1,2,3},{0,0,1,0,1,1,2,1,3,8},
                                       {1,0,1,1,2,2,2,1,2,5},{0,2,1,2,1,1,2,1,2,6},{0,1,0,2,1,1,1,0,3,9},  程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛&l5D-t&y'Y-T c4z
                                       {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},  程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛.c!E*i \:I1o$B
                                       {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},tech.techweb.com.cn8I1x"N:q6a-u/e
                                       {0,0,0,1,1,11,2,1,5,15},{0,1,1,1,1,0,2,1,6,2,0},{0,1,1,2,1,1,1,0,6,21},TechWeb-技术社区6^:U%p'H9K7W
                                       {0,1,1,2,1,1,2,1,6,22},{1,0,1,1,1,2,2,1,6,19}};"K:K6a/i0X-z+I"_ [
static int d[10]={33000,3000,1600,1200,900,800,600,400,300,200};*@1G3c*|)C(?3A(f/B2x't:]
int Llevel,Lcurrent,Lnext,Lable,lx,ly,Lsum;
unsigned Lpoint;
int La[19][10],FLAG,sum;
unsigned ldelay;
void scrint(),datainit(),dispb(),eraseeb();tech.techweb.com.cn*Y,`/X8~6a3s
void throw(),judge(),delayp(),move(0,note(0,show();
int Ldrop(),Ljudge(),nextb(),routejudge();
程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛%o$Y:T%b4h1g5S*K.O5_
main(){
         char c;TechWeb-技术社区6M4[#X%w4~)D
         datainit();
         Label=nextb();
         Label=Ldrop();tech.techweb.com.cn8V'O!D2B9S5]'N7y
         while(1) {
                        delayp();TechWeb-技术社区-E"R/z2~3d'a
                           if(Label!=0){
                                 Ljudge();
                                 Lable=nextb();}
                                       ldelay--;.R!n8{3P!y#E,R!h6a$W
                                       if(ldelay==0){3~%U2M/|6F-b+o$}
                                          Label=Ldrop();(U8e*N'L&d$V)C;Q/|
                                          ldelay=d[0];}*P5{;p-](w
                                                         if(FLAG!=0)    break;},]7X4{.g(i$c&X9d6g)` V$T
                                 whlie(getch()!='\r');
                                 {
                                    goto xy(38,16);tech.techweb.com.cn1E:~"b)~2w3m%q'a)g
                                       cputs("again?");
                                       c=getch();
                                    while(c!='n'&&c!='N')
                                 clscr();}TechWeb-技术社区2X:Z0}7\5r4o6S L%B
                                 int nextb(){/N3Z4W%^(v&B9e
                                 if(La[(b[Lnext].y0)][(3+b[Lnext].x0)]!=0 || La[(b[Lnext].y1)][(3+b[Lnext].x1)]
                                    !=0 || La[(b[Lnext].y2)][(3+b[Lnext].x2)]!=0 || La[(b[Lnext].y3)][(3++i!`*Y o;Q'J
                                    b[Lnext].x3)]!=0){tech.techweb.com.cn$K6u1E)`.T-n#G)L4G
                                          FLAG= L; [#^/Q Y!Q+\+H5c
                                          return ( -1 );}
                                          eraseb(0,3,5,Lnext);
                                          Lcurrent = Lnext;
                                          lx=3;ly=0;程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛+g:^+~6w'r%}+P(E
                                          Label=0;TechWeb-技术社区+e;K Z2S(p:k-i!@1u+d#e
                                          ldelay=d[0];tech.techweb.com.cn9f6Q4u!G.^5s
                                          Lsum ++;程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛-A&q;e!y'F&}3H4F
                                          Lpoint += 1;
                                          Lnext=random(23);8R,Y:d5@8E:L(M*Y"i!C
                                          dispb(0,3,5,Lnext);程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛*\3I;T$Y.h,v4y!^
                                          textcolor(7);TechWeb-技术社区(M"^"N4r:l7T&~
                                          goto xy(3,14);cprintf("%#5d",Lsum);8@+s;R2t,E-E9F
                                          goto xy(3,17);cprintf("%#5d",Lpoint);
                                             return(0);  }程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛.K)J#\*L-L1t+q#?2J$t
                                          void delayp(0{
                                          char key;:X,D,o+U'~;q+[$\4`/v
                                          if(kbhit()!=0){程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛$q/|&K2p#}0A#d
                                             key=getch();程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛0P%z$d6L"X1a3H!Q#@
                                             move(key);
                                             if(key=='\\')
                                                   getch();-C6H#K6a!_1G6[+h9]#C
                                                               }}
                              void move(funkey)tech.techweb.com.cn*q&o,e5w-e,T'O;E
                                 char funkey;{
                                 int tempcode;
                                 switch( funkey){程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛 }(e-j!x3T5Y-A/e8B
                                    case 'k': if(lx+b[current].x0>0){tech.techweb.com.cn!P9U;Q ]9`*q)v'r*?
                                                   if(La[ly+(b[Lcurrent].y0)][lx-1+(b[L程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛:x*n&r0x'g+e0k!m
current].x0)]==0&&  La[(ly+b[current].y1)][(lx-1+b[current].x10]==0 && La[ly+b[current].y2)][lx-1+b[Lcurrent].x2)]==0&&La[ly+(b[current].y3)][lx-1+(b[Lcurrent].x3)]==0){    TechWeb-技术社区#w8p6d5L2s+U*j!l
                        eraseb(L,lx,lyLcurrent);程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛&Z,S4S)I)\'Y6i
                        lx--;程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛1n6A$A)B)W1f*_(n
                        dispb(L,lx,ly,Lcurrent);}  break;tech.techweb.com.cn.o0`!Z `.b*X,M.X'l.d [
                                    case 0x20: tempcode=b[Lcurrent].next;+[$B-O0A;m/^"?:T
                                                      if (lx+b[tempcode].x0>=0&&lx+b[tempcode].x3<=9&&
                                                         ly+b[tempcode].y1<=19&&ly+b[tempcode].y2<=19)-|)S%?.g$` f5Q-Q!A k-N
                                                      if(routejudge()!+-1)TechWeb-技术社区4E3W.b9R,i%g6Q(w"u(P
                                                      if(La+(b[tempcode].y0)][lx+(b[tempcode].x0)]==0&&
                                                      La[ly+(b[tempcode].y1)][lx+(b[tempcode].x1)]==0&&La[ly+(b[tempcode].y2)][lx+(b[tempcode].x2)]==0&&La[ly+(b[tempcode].y3)][lx+(b[tempcode].x3)]==0)
                                                   {TechWeb-技术社区#p7g+~"J'z2~0z8[6c
                                                      eraseb(L,lx,ly,Lcurrent);
                                                      Lcurrent=tempcode;
                                                      dispb(L,lx,ly,Lcurrent);}  break;
                                    case 'M': if(lx+b[Lcurrent].x3<9)程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛%B;U!i5c1t9x6H
                                                   if(La[ly+(b[Lcurrent].y0)][lx+(b[Lcurrent].x0)]==0&&La[ly+(b[Lcurrent].y1)][lx+(b[Lcurrent].x1)]==0&&La[ly+(b[Lcurrent].y2)][lx+(b[Lcurrent].x2)]==0&&La[ly+(b[Lcurrent].y3)][lx+(b[Lcurrent].x3)]==0){
                                                            eraseb(L,lx,ly,Lcurrent);.w5[8d/w,f+t
                                                            lx++;程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛#W7W,n*b*R4d'@
                                                            disb(L,lx,ly,Lcurrent);}break;
                                    case  'p': throw();break;
                                    case 0x1b: clrscr();exit(0);break;
                                    default:break;}}
                                    void throw(0{TechWeb-技术社区#n.X4B)R,J+V!s
                                                int tempy;tempy=ly;
                                                   while(ly+b[Lcurrent].y1<19&& ly+b[current].y2<19&&La[ly+(b[Lcurrent].y0)][lx+(b[Lcurrent].x0)]==0&&La[ly+(b[Lcurrent].y1)][lx+(b[Lcurrent].x1)]==0&&La[ly+(b[Lcurrent].y2)][lx+(b[Lcurrent].x2)]==0&&La[ly+(b[Lcurrent].y3)][lx+(b[Lcurrent].x3)]==0)4Y v+r+H$},N6i,m*|;I2z
                                                   ly++;ly--;
eraseb(L,lx,tempy,Lcurrent);dispb(L,lx,ly,Lcurrent);TechWeb-技术社区(h ?4`.b6Q&S#a
La[ly+b[Lcurrent].y0)][lx+(b[current].x0)]=
La[ly+b[Lcurrent].y1)][lx+(b[current].x1)]=
La[ly+b[Lcurrent].y2)][lx+(b[current].x2)]=tech.techweb.com.cn1B1F(z#I1w6y(L-d1c
La[ly+b[Lcurrent].y3)][lx+(b[current].x3)]=b[Lcurrent].color;程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛+{,]%])K9z.]$U%v
Label=-1;}
int routejudge(){
int i,j;(_'l)J;_/h'x&F$[-P:g7j4M
for(i=0;i<3;i++)程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛)D%h)? |*e
for(j=0;j<3;j++)
if(La[ly+i][lx+j]!=0);Z!M/M,_8L1l4l+M
return(-1);
return(1);}
int Ldrop(){
if(ly+b[Lcurrent].y1>=18||ly+b[Lcurrent].y2>=18)程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛)\(j t+r3k+X;v$w7Z$X
{La[ly+b[Lcurrent].y0)][lx+(b[current].x0)]=3S6F(p#e3U4|,m'c#X
La[ly+b[Lcurrent].y1)][lx+(b[current].x1)]=
La[ly+b[Lcurrent].y2)][lx+(b[current].x2)]=
La[ly+b[Lcurrent].y3)][lx+(b[current].x3)]=b[Lcurrent].color;
return(-1);}
if(La(ly+1+(b[Lcurrent].y0)][lx+(b[Lcurrent].x0)]!=0||La(ly+1+(b[Lcurrent].y1)][lx+(b[Lcurrent].x1)]!=0||La(ly+1+(b[Lcurrent].y2)][lx+(b[Lcurrent].x2)]!=0||La(ly+1+(b[Lcurrent].y3)][lx+(b[Lcurrent].x3)]!=0){La[ly+b[Lcurrent].y0)][lx+(b[current].x0)]= S-L |8Q8B
La[ly+b[Lcurrent].y1)][lx+(b[current].x1)]=
La[ly+b[Lcurrent].y2)][lx+(b[current].x2)]="E*u&g3|"U'[
La[ly+b[Lcurrent].y3)][lx+(b[current].x3)]=b[Lcurrent].color;4{6C ?&\$y"F/t-F2_
return(-1);}
eraseb(L,lx,ly,Lcurrent);0C!w(c:g Z.v3P
dispb(L,lx,++ly,Lcurrent);tech.techweb.com.cn(x2x,K.^!B)K!m5Y!T
return(0);}
6|/V6q)[*_([ l%G5T
int Ljudge(){TechWeb-技术社区 ~4f1S6L7W$|
int i,j,k,lines,f;
static int p[5]={0,1,3,6,10};
lines=0;
for(k=0;k<=3;k++){7D3v%B!_8Y+T
f=0;if((ly+k)>18)
      continue;
for(i=0;i<10;i++)TechWeb-技术社区:I/N-k)u%D.S2P9?(}:x
if(La[ly+k]==0);i>0;i--){
f++;break;}TechWeb-技术社区-Q%Y%^%o$Q$[
if(f==0){
m;~!B!Z4k2c&R2J![9Wmovetext(LX,LY,LX+19,LY+ly+k-1,LX,LY+1);
for(i=(ly+k);i>0;i--){
;E,q3}$P/q+`3stech.techweb.com.cn  for(j=0;j<10;j++)程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛%L;q;a0l(S8y,k7b%X
   La[j]=La[i-1][j];
"S9g6R4B;?8g9^ x5] for(j=0;j<10;j++)tech.techweb.com.cn/M:r"m-I9L A4v5@2T2Q:z
La[0][j]=0;'_2[.a.[ b0s
lines++;}}TechWeb-技术社区 W;q(N5r.R5z&N1d
Lpoint+=p[lines]*10;,G"@2V4N4A7y1N#^
return(0);}tech.techweb.com.cn5W(|/p3q%z3p)C5H&B

void scrint(){!d&A2Z%l!F*t0k1u.`
int i;!o(k*p8p/|8O9S.X6_$V
char lft[20];
.f3A'~/q9E/f:e0@textbackground(1);tech.techweb.com.cn6`*b&~5d*c%@ W"_;|
clrscr();
p7j:u;l9|'Y-Dgotoxy(30,9);
:L(e l&~9P5G(R:I-wcputs("enter your name");%F4^:}0u g+p:H
scanf("%s",lft);
5t8?%L2v"ggotoxy(25,14);
4W'U3`$o8Escanf("%s",lft);'k/k#I.Q'Z;E
textbackground(0);clrscr();
2W Y,Y2`.@(stech.techweb.com.cntextcolor(15);gotoxy(17,1);
1^ ^5C,g,C'S9|'@*?6]*l9Scprintf("%s",lft);5K h&c8{(W#q5\4S7x(Q
gotoxy(5,3);,p+R*^$q(}9E b4J6o
cputs("next");tech.techweb.com.cn9w.@.M.I1W%w;l
gotoxy(4,13);cputs("block");
gotoxy(4,16);cputs("point");程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛:R$H+\$_#q,|9c(d
for(i=0;i<19;i++)
3D5_6`.h+a0p  {
gotoxy(LX-2,LY+1);TechWeb-技术社区7A6_%H5f)S&p/I
cputs("**                                        **");'|#J&~4a%v9S4^*q2q4_
}gotoxy(LX-2,LY+19);cputs("**********************");
!G*Q7J-R)\&D0{!f8r5m*K}
void datainit(){
int i,j;)Y#n/Q:d'f:C
for(i=0;i<19;i++)
9P9V(|;S3y/h'Y:B:z for(j=0;j<10;j++)
,~"W&B(d1x S1G-}!RTechWeb-技术社区       La[j]=0;程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛;f:b0T'z%p:s5@#D
Label=0;FLAG=0;
&K1j6T#v k*g%R"Mldelay=d[0];Lsum=0;Lpoint=0;TechWeb-技术社区#[8F"F(m&c*V2M$J
randomize();#B!u#F.z,~-}&[0D&x
Lnext=random(23);}
3w*y.}8y0q"]9y8jvoid dispb(LRflag,x,y,blockcode)
)C9y%W,H1p5Y-w%`tech.techweb.com.cnint realx,realy;:]$n-I7s6~!|"v0?4m
if(LRflag==L)程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛+e3U%X+p3b#A9K8Z-l
   {realx=LX+x*2;realy=LY+y;}
+U9]6O$R"b9^tech.techweb.com.cnelsetech.techweb.com.cn'P0X%X/p3a.w;F
{realx=x,raly=y;}
textcolor(b[blockcode].color);程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛+n2_:l6J"c([:\5Q
gotoxy(realx+2*b[blockcode].x0,realy+b[blockcode].y0);cputs("**");
gotoxy(realx+2*b[blockcode].x1,realy+b[blockcode].y1);cputs("**");
'@;O0`,V:[0D#N ogotoxy(realx+2*b[blockcode].x2,realy+b[blockcode].y2);cputs("**");
3h6d3M X9p*p5k6x2S5u9Agotoxy(realx+2*b[blockcode].x3,realy+b[blockcode].y3);cputs("**");}
-U3V1K.N8R.fvoid eraseb(LRflag,x,y,blockcode)!L o7X.S3i6[&z!z
int LRflag,x,y,blockcode;
$\(g8z8w*S.N+@3rTechWeb-技术社区{
*z$s#v6y%x+LTechWeb-技术社区int realx,realy;程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛'_,\9l9k1_9B'Z)`!E6}
if(LRflag==L)
{&b&D"P:y%p1D{ realx=LX+x*2;realy=LY+y;}
*|7Z7g9E'~"uelse
2[,}0G;N1K"x(u{realx=Lx+x*2;realy=LY+y;}(h:T%m!K4F [9U
textcolor(0);
'T8M2K-Q0J#S$p,q'fgotoxy(realx+2*b[blockcode].x0,realy+b[blockcode].y0);cputs("**");
0j#e;|3u:d$z.E#@3_0sgotoxy(realx+2*b[blockcode].x1,realy+b[blockcode].y1);cputs("**");
gotoxy(realx+2*b[blockcode].x2,realy+b[blockcode].y2);cputs("**");
(M#Z$r0M:^%j&F+BTechWeb-技术社区gotoxy(realx+2*b[blockcode].x3,realy+b[blockcode].y3);cputs("**");}/X.}&\!O3U&b(V8_6m
}

·2024年9月目录
·2024年8月目录
·2024年7月目录
·2024年6月目录
·2024年5月目录
·2024年4月目录
·2024年3月目录
·2024年2月目录
·2024年1月目录
·2023年12月目录
·2023年11月目录
·2023年10月目录
·2023年9月目录
·2023年8月目录