elos.txt

参考俄罗斯方块源码。。。／

for(i=1;i<=320&&!kbhit();i++)
  {
  line(i,80,i,479);
  line(640-i,80,640-i,479);
  delay(sped+i*100);
  }
closegraph();
}
leveladd()
{
setfillstyle(SOLID_FILL,BLACK);
bar(214,151,353,430);
outtextxy(220,300,"YEAH!!!!");
sleep(1);
}







line_move()
{
tag=tag%2;
if(tag==0)tag=2;
lineshape(dx,dy,tag,RED,YELLOW,1);
delay(speed+35535);
if(dy>=424&&tag==1){cutpage();dx=270;dy=151;return;}
if(dy>=403&&tag==2){cutpage();dx=270;dy=151;return;}
if(tag==1&&cmpred(dx,dy+7)){cutpage();dy=151;dx=270;return;}
if(tag==2&&getpixel(dx,dy+28)==RED){cutpage();dy=151;dx=270;return;}
lineshape(dx,dy,tag,BLACK,BLACK,1);
dy=dy+7;
}
line_move2(int press)
{
tag=tag%2;
if(tag==0)tag=2;
switch(press)
  {
    case 18432:lineshape(dx,dy,tag,BLACK,BLACK,1);
            if(tag==1&&cmpred(dx,dy+7)){tag=1;return;}
            if(tag==2&&cmpred2(dx+7,dy)){tag=2;return;}
            tag=tag%2+1;return;
    case 19200:if(cmpred2(dx-1,dy))return;
            if(dy>424&&tag==1){lineshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>403&&tag==2){lineshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            else
              {lineshape(dx,dy,tag,BLACK,BLACK,1);dx=dx-7;if(dx<214)dx=214;break;}
    case 19712:if(cmpred2(dx+7,dy)&&tag==2)return;
            if(getpixel(dx+28,dy)==RED&&tag==1)return;
            if(dy>424&&tag==1){lineshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>403&&tag==2){lineshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            else
              {lineshape(dx,dy,tag,BLACK,BLACK,1);dx=dx+7;if(dx>326&&tag==1)dx=326;if(dx>347&&tag==2)dx=347;return;}
    case 20480:lineshape(dx,dy,tag,BLACK,BLACK,1);dy=dy+7;if(dy>424&&tag==1)dy=424;if(dy==403&&tag==2)dy=403;if(tag==1&&cmpred(dx,dy))dy-=7;if(tag==2&&getpixel(dx,dy+21)==RED)dy-=7;return;
  }
}

block_move()
{
blockshape(dx,dy,RED,YELLOW,1);
delay(speed+35535);
if(dy==417){cutpage();dx=270;dy=151;return;}
if(b_cmpred(dx,dy+14)){cutpage();dy=151;dx=270;return;}
blockshape(dx,dy,BLACK,BLACK,1);
dy=dy+7;
}
block_move2(int press)
{
switch(press)
  {
    case 19200:if(b_cmpred2(dx-1,dy))return;
            if(dy>417){blockshape(dx,dy,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            else
              {blockshape(dx,dy,BLACK,BLACK,1);dx=dx-7;if(dx<214)dx=214;return;}
    case 19712:if(b_cmpred2(dx+14,dy))return;
            if(dy>417){blockshape(dx,dy,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            else
              {blockshape(dx,dy,BLACK,BLACK,1);dx=dx+7;if(dx>340&&tag==0)dx=340;return;}
    case 20480:blockshape(dx,dy,BLACK,BLACK,1);dy=dy+7;
            if(dy>417){dy=417;blockshape(dx,dy,RED,YELLOW,1);dy=151;return;}
            if(b_cmpred(dx,dy+7))dy-=7;return;
  }
}
b_cmpred(int x,int y)
{
int i;
for(i=0;i<14;i++)
  if(getpixel(x+i,y)==RED)return 1;
return 0;
}
b_cmpred2(int x,int y)
{
int i;
for(i=0;i<14;i++)
  if(getpixel(x,y+i)==RED)return 1;
return 0;
}
qi_move()
{
qishape(dx,dy,tag,RED,YELLOW,1);
delay(speed+35535);
if(dy>=417&&tag==1){cutpage();dx=270;dy=151;return;}
if(dy>=417&&tag==2){cutpage();dx=270;dy=151;return;}
if(dy>=410&&tag==3){cutpage();dx=270;dy=151;return;}
if(dy>=410&&tag==4){cutpage();dx=270;dy=151;return;}
if(tag==1&&qi_cmpred2(dx,dy+14)){cutpage();dy=151;dx=270;return;}
if(tag==2&&qi_cmpred1(dx,dy)){cutpage();dy=151;dx=270;return;}
if(tag==3&&(getpixel(dx,dy+21)==RED||getpixel(dx+7,dy+7)==RED)){cutpage();dy=151;dx=270;return;}
if(tag==4&&b_cmpred(dx-7,dy+21)){cutpage();dy=151;dx=270;return;}
qishape(dx,dy,tag,BLACK,BLACK,1);
dy=dy+7;
}
qi_move2(int press)
{
switch(press)
  {
    case 18432:qishape(dx,dy,tag,BLACK,BLACK,1);
            if(tag==1&&qi_cmpred2(dx,dy+14)){tag=1;return;}
            if(tag==2&&qi_cmpred1(dx,dy)){tag=2;return;}
            if(tag==2&&cmpred(dx-7,dy+14)){tag=2;return;}
            if(tag==3&&(getpixel(dx+14,dy)==RED||getpixel(dx+14,dy+7)==RED)){tag=3;return;}
            if(tag==4&&(getpixel(dx+7,dy)==RED||b_cmpred(dx+7,dy+7)||getpixel(dx-7,dy+14)==RED||getpixel(dx-7,dy+7)==RED)){tag=4;return;}
            if(tag==1){tag=3;return;}
            if(tag==3){tag=2;return;}
            if(tag==2){tag=4;return;}
            if(tag==4){tag=1;return;}
    case 19200:if(b_cmpred2(dx-1,dy)&&tag==1)return;
            if(getpixel(dx-1,dy)==RED||getpixel(dx+7,dy+7)==RED&&tag==2)return;
            if(qi_cmpred3(dx-1,dy)&&tag==3)return;
            if(getpixel(dx-8,dy+14)==RED||b_cmpred2(dx-1,dy)&&tag==4)return;
            if(dy>417&&tag==1){qishape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>417&&tag==2){qishape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==3){qishape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==4){qishape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            else
              {qishape(dx,dy,tag,BLACK,BLACK,1);
              dx=dx-7;
              if(dx<214&&tag!=4)dx=214;
              if(dx<221&&tag==4)dx=221;
              break;}
    case 19712:if(getpixel(dx+7,dy)==RED||getpixel(dx+21,dy+7)&&tag==1)return;
            if(b_cmpred2(dx+21,dy)&&tag==2)return;
            if(getpixel(dx+14,dy)==RED||b_cmpred2(dx+7,dy+7)&&tag==3)return;
            if(qi_cmpred3(dx+7,dy)&&tag==4)return;
          if(dy>417&&tag==1){qishape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>417&&tag==2){qishape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==3){qishape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==4){qishape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            else
              {qishape(dx,dy,tag,BLACK,BLACK,1);dx=dx+7;
              if(dx>333&&(tag==1||tag==2))dx=333;
              if(dx>340&&tag==3)dx=340;
              if(dx>347&&tag==4)dx=347;
              return;}
    case 20480:qishape(dx,dy,tag,BLACK,BLACK,1);dy=dy+7;
          if(dy>417&&tag==1){qishape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>417&&tag==2){qishape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==3){qishape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==4){qishape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(tag==1&&qi_cmpred2(dx,dy+7))dy-=7;
            if(tag==2&&qi_cmpred1(dx,dy-7))dy-=7;
            if(tag==3&&(getpixel(dx,dy+14)==RED||getpixel(dx+7,dy+7)==RED))dy-=7;
            if(tag==4&&b_cmpred(dx-7,dy+14))dy-=7;
            return;
  }
}
l_move()
{
lshape(dx,dy,tag,RED,YELLOW,1);
delay(speed+35535);
if(dy>=417&&tag==1){cutpage();dx=270;dy=151;return;}
if(dy>=410&&tag==2){cutpage();dx=270;dy=151;return;}
if(dy>=417&&tag==3){cutpage();dx=270;dy=151;return;}
if(dy>=410&&tag==4){cutpage();dx=270;dy=151;return;}
if(tag==1&&(getpixel(dx,dy+14)==RED||b_cmpred(dx+7,dy+7))){cutpage();dy=151;dx=270;return;}
if(tag==2&&(getpixel(dx,dy+7)==RED||getpixel(dx+7,dy+21)==RED)){cutpage();dy=151;dx=270;return;}
if(tag==3&&qi_cmpred2(dx-14,dy+14)){cutpage();dy=151;dx=270;return;}
if(tag==4&&b_cmpred(dx,dy+21)){cutpage();dy=151;dx=270;return;}
lshape(dx,dy,tag,BLACK,BLACK,1);
dy=dy+7;
}
l_move2(int press)
{
switch(press)
  {
    case 18432:lshape(dx,dy,tag,BLACK,BLACK,1);
            if(tag==1&&(b_cmpred(dx+7,dy+7)||b_cmpred(dx+7,dy+14))){tag=1;return;}
            if(tag==2&&qi_cmpred2(dx-14,dy+7)){tag=2;return;}
            if(tag==2&&b_cmpred(dx-7,dy+14)){tag=2;return;}
            if(tag==3&&(b_cmpred(dx-14,dy)||b_cmpred(dx,dy+14))){tag=3;return;}
            if(tag==4&&(b_cmpred(dx+7,dy)||b_cmpred(dx+7,dy+7)||b_cmpred(dx,dy+21))){tag=4;return;}
            tag=tag%4+1;return;
    case 19200:if(b_cmpred2(dx-1,dy)&&tag==1)return;
            if(getpixel(dx-1,dy)==RED||b_cmpred2(dx+6,dy+7)&&tag==2)return;
            if(getpixel(dx-1,dy)==RED||getpixel(dx-15,dy+7)==RED&&tag==3)return;
            if(qi_cmpred3(dx-1,dy)&&tag==4)return;
            if(dy>417&&tag==1){lshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==2){lshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>417&&tag==3){lshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==4){lshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            else
              {lshape(dx,dy,tag,BLACK,BLACK,1);
              dx=dx-7;
              if(dx<214&&tag!=3)dx=214;
              if(dx<228&&tag==3)dx=228;
              break;}
    case 19712:if(getpixel(dx+7,dy+7)==RED||getpixel(dx+21,dy)==RED&&tag==1)return;
            if(qi_cmpred3(dx+14,dy)&&tag==2)return;
            if(b_cmpred2(dx+7,dy)&&tag==3)return;
            if(b_cmpred2(dx+7,dy)||getpixel(dx+14,dy+14)==RED&&tag==4)return;
            if(dy>417&&tag==1){lshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==2){lshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>417&&tag==3){lshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==4){lshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            else
              {lshape(dx,dy,tag,BLACK,BLACK,1);dx=dx+7;
              if(dx>333&&tag==1)dx=333;
              if(dx>340&&(tag==2||tag==4))dx=340;
              if(dx>347&&tag==3)dx=347;
              return;}
    case 20480:lshape(dx,dy,tag,BLACK,BLACK,1);
            dy=dy+7;
            if(dy>417&&tag==1){lshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==2){lshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>417&&tag==3){lshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==4){lshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(tag==1&&(getpixel(dx,dy+7)==RED||b_cmpred(dx+7,dy)))dy=dy-7;
            if(tag==2&&(getpixel(dx,dy)==RED||getpixel(dx+7,dy+14)==RED))dy=dy-7;
            if(tag==3&&qi_cmpred2(dx-14,dy+7))dy=dy-7;
            if(tag==4&&b_cmpred(dx,dy+14))dy=dy-7;
            return;
  }
}
t_move()
{
tshape(dx,dy,tag,RED,YELLOW,1);
delay(speed+35535);
if(dy>=417&&tag==1){cutpage();dx=270;dy=151;return;}
if(dy>=410&&tag==2){cutpage();dx=270;dy=151;return;}
if(dy>=417&&tag==3){cutpage();dx=270;dy=151;return;}
if(dy>=410&&tag==4){cutpage();dx=270;dy=151;return;}
if(tag==1&&qi_cmpred2(dx-7,dy+14)){cutpage();dy=151;dx=270;return;}
if(tag==2&&(getpixel(dx,dy+21)==RED||getpixel(dx+7,dy+14)==RED)){cutpage();dy=151;dx=270;return;}
if(tag==3&&(getpixel(dx,dy+7)==RED||getpixel(dx+7,dy+14)==RED||getpixel(dx+14,dy+7)==RED)){cutpage();dy=151;dx=270;return;}
if(tag==4&&(getpixel(dx,dy+21)==RED||getpixel(dx-7,dy+14)==RED)){cutpage();dy=151;dx=270;return;}
tshape(dx,dy,tag,BLACK,BLACK,1);
dy=dy+7;
}
t_move2(int press)
{
switch(press)
  {
    case 18432:tshape(dx,dy,tag,BLACK,BLACK,1);
            if(tag==1&&(getpixel(dx-1,dy)==RED||getpixel(dx+7,dy)==RED||b_cmpred(dx,dy+14))){tag=1;return;}
            if(tag==2&&(getpixel(dx+7,dy)==RED||getpixel(dx+7,dy+14)==RED||b_cmpred(dx-1,dy+7))){tag=2;return;}
            if(tag==3&&(getpixel(dx+14,dy+7)==RED||qi_cmpred2(dx,dy+14)||b_cmpred(dx-7,dy+7))){tag=3;return;}
            if(tag==4&&(getpixel(dx-1,dy)==RED||getpixel(dx-1,dy+14)==RED||b_cmpred(dx+7,dy))){tag=4;return;}
            tag=tag%4+1;return;
    case 19200:if(getpixel(dx-1,dy)==RED||getpixel(dx-8,dy+7)&&tag==1)return;
            if(qi_cmpred3(dx-1,dy)&&tag==2)return;
            if(getpixel(dx-1,dy)==RED||getpixel(dx,dy+7)==RED&&tag==3)return;
            if(getpixel(dx-1,dy)==RED||getpixel(dx-8,dy+7)==RED||getpixel(dx-1,dy+14)==RED&&tag==4)return;
            if(dy>417&&tag==1){tshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==2){tshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>417&&tag==3){tshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==4){tshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            else
              {tshape(dx,dy,tag,BLACK,BLACK,1);
              dx=dx-7;
              if(dx<214&&(tag==2||tag==3))dx=214;
              if(dx<221&&(tag==1||tag==4))dx=221;
              break;}
    case 19712:if(getpixel(dx+7,dy)==RED||getpixel(dx+14,dy+7)==RED&&tag==1)return;
            if(getpixel(dx+7,dy)==RED||getpixel(dx+14,dy+7)==RED||getpixel(dx+7,dy+14)==RED&&tag==2)return;
            if(getpixel(dx+21,dy)==RED||getpixel(dx+14,dy+7)==RED&&tag==3)return;
            if(qi_cmpred3(dx+7,dy)&&tag==4)return;
            if(dy>417&&tag==1){tshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==2){tshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>417&&tag==3){tshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==4){tshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            else
              {tshape(dx,dy,tag,BLACK,BLACK,1);dx=dx+7;
              if(dx>333&&tag==3)dx=333;
              if(dx>340&&(tag==1||tag==2))dx=340;
              if(dx>347&&tag==4)dx=347;
              return;}
    case 20480:tshape(dx,dy,tag,BLACK,BLACK,1);
            dy=dy+7;
            if(dy>417&&tag==1){tshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==2){tshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>417&&tag==3){tshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==4){tshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(tag==1&&qi_cmpred2(dx-7,dy+7))dy-=7;
            if(tag==2&&(getpixel(dx,dy+14)==RED||getpixel(dx+7,dy+7)==RED))dy-=7;
            if(tag==3&&(getpixel(dx,dy)==RED||getpixel(dx+7,dy+7)==RED||getpixel(dx+14,dy)==RED))dy-=7;
            if(tag==4&&(getpixel(dx,dy+14)==RED||getpixel(dx-7,dy+7)==RED))dy-=7;
            return;
  }
}
z_move()
{
tag=tag%2;
if(tag==0)tag=2;
zshape(dx,dy,tag,RED,YELLOW,1);
delay(speed+35535);
if(dy>=417&&tag==1){cutpage();dx=270;dy=151;return;}
if(dy>=410&&tag==2){cutpage();dx=270;dy=151;return;}
if(tag==1&&(getpixel(dx,dy+7)==RED||b_cmpred(dx+7,dy+14))){cutpage();dy=151;dx=270;return;}
if(tag==2&&(getpixel(dx-7,dy+21)==RED||getpixel(dx,dy+14)==RED)){cutpage();dy=151;dx=270;return;}
zshape(dx,dy,tag,BLACK,BLACK,1);
dy=dy+7;
}
z_move2(int press)
{
tag=tag%2;
if(tag==0)tag=2;
switch(press)
  {
    case 18432:zshape(dx,dy,tag,BLACK,BLACK,1);
            if(tag==1&&(cmpred(dx-7,dy+14)||b_cmpred(dx-7,dy+7))){tag=1;return;}
            if(tag==2&&(qi_cmpred3(dx-14,dy)||getpixel(dx-1,dy)==RED)){tag=2;return;}
            tag=tag%2+1;return;
    case 19200:if(getpixel(dx-1,dy)==RED||getpixel(dx,dy+7)==RED&&tag==1)return;
            if(getpixel(dx-1,dy)==RED||b_cmpred2(dx-7,dy+7)&&tag==2)return;
            if(dy>417&&tag==1){zshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==2){zshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            else
              {zshape(dx,dy,tag,BLACK,BLACK,1);dx=dx-7;
              if(dx<214&&tag==1)dx=214;
              if(dx<221&&tag==2)dx=221;
              return;
              }
    case 19712:if(getpixel(dx+14,dy)==RED||getpixel(dx+21,dy+7)==RED&&tag==1)return;
            if(b_cmpred2(dx+7,dy)||getpixel(dx,dy+14)==RED&&tag==2)return;
            if(dy>417&&tag==1){zshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==2){zshape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            else
              {zshape(dx,dy,tag,BLACK,BLACK,1);dx=dx+7;if(dx>333&&tag==1)dx=333;if(dx>347&&tag==2)dx=347;return;}
    case 20480:zshape(dx,dy,tag,BLACK,BLACK,1);dy=dy+7;
            if(tag==1&&(getpixel(dx,dy)==RED||b_cmpred(dx+7,dy+7)))dy-=7;
            if(tag==2&&(getpixel(dx-7,dy+14)==RED||getpixel(dx,dy+7)==RED))dy-=7;
            return;
  }
}
wu_move()
{
tag=tag%2;
if(tag==0)tag=2;
wushape(dx,dy,tag,RED,YELLOW,1);
delay(speed+35535);
if(dy>=417&&tag==1){cutpage();dx=270;dy=151;return;}
if(dy>=410&&tag==2){cutpage();dx=270;dy=151;return;}
if(tag==1&&(getpixel(dx+7,dy+7)==RED||b_cmpred(dx-7,dy+14))){cutpage();dy=151;dx=270;return;}
if(tag==2&&(getpixel(dx,dy+14)==RED||getpixel(dx+7,dy+21)==RED)){cutpage();dy=151;dx=270;return;}
wushape(dx,dy,tag,BLACK,BLACK,1);
dy=dy+7;
}
wu_move2(int press)
{
tag=tag%2;
if(tag==0)tag=2;
switch(press)
  {
    case 18432:wushape(dx,dy,tag,BLACK,BLACK,1);
            if(tag==1&&(getpixel(dx-1,dy)==RED||qi_cmpred2(dx-7,dy+14)||getpixel(dx+7,dy+7)==RED)){tag=1;return;}
            if(tag==2&&(getpixel(dx+7,dy)==RED||b_cmpred(dx-7,dy+14)||getpixel(dx-7,dy+7)==RED)){tag=2;return;}
            tag=tag%2+1;return;
    case 19200:if(getpixel(dx-1,dy)==RED||getpixel(dx-7,dy+7)==RED&&tag==1)return;
            if(getpixel(dx,dy+14)==RED||b_cmpred2(dx-1,dy)&&tag==2)return;
            if(dy>417&&tag==1){wushape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==2){wushape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            else
              {wushape(dx,dy,tag,BLACK,BLACK,1);dx=dx-7;
              if(dx<221&&tag==1)dx=221;
              if(dx<214&&tag==2)dx=214;
              return;
              }
    case 19712:if(getpixel(dx+14,dy)==RED||getpixel(dx+7,dy+7)==RED&&tag==1)return;
            if(b_cmpred2(dx+14,dy+7)||getpixel(dx+7,dy)==RED&&tag==2)return;
            if(dy>417&&tag==1){wushape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            if(dy>410&&tag==2){wushape(dx,dy,tag,RED,YELLOW,1);cutpage();dx=270;dy=151;return;}
            else
              {wushape(dx,dy,tag,BLACK,BLACK,1);dx=dx+7;if(dx>340)dx=340;return;}
    case 20480:wushape(dx,dy,tag,BLACK,BLACK,1);dy=dy+7;
            if(tag==1&&(getpixel(dx+7,dy)==RED||b_cmpred(dx-7,dy+7)))dy-=7;
            if(tag==2&&(getpixel(dx,dy+7)==RED||getpixel(dx+7,dy+14)==RED))dy-=7;
            return;
  }
}

qi_cmpred1(int x,int y)
{
int i;
for(i=0;i<14;i++)
  if(getpixel(x+i,y+7)==RED)return 1;
for(i=0;i<7;i++)
  if(getpixel(x+14+i,y+14)==RED)return 1;
return 0;
}
qi_cmpred2(int x,int y)
{
int i;
for(i=0;i<21;i++)
  if(getpixel(x+i,y)==RED)return 1;
return 0;
}
qi_cmpred3(int x,int y)
{
int i;
for(i=0;i<21;i++)
  if(getpixel(x,y+i)==RED)return 1;
return 0;
}
inicrack()
{
blockshape(214,200,RED,YELLOW,0);
lineshape(214,220,1,RED,YELLOW,0);
lineshape(250,200,0,RED,YELLOW,0);
qishape(214,240,1,RED,YELLOW,0);
qishape(240,240,2,RED,YELLOW,0);
qishape(270,240,3,RED,YELLOW,0);
qishape(290,240,4,RED,YELLOW,0);
lshape(214,270,1,RED,YELLOW,0);
lshape(240,270,2,RED,YELLOW,0);
lshape(272,277,3,RED,YELLOW,0);
lshape(290,270,4,RED,YELLOW,0);
zshape(214,300,1,RED,YELLOW,0);
zshape(245,300,2,RED,YELLOW,0);
wushape(214,325,1,RED,YELLOW,0);
wushape(240,325,2,RED,YELLOW,0);
tshape(214,350,1,RED,YELLOW,0);
tshape(240,357,2,RED,YELLOW,0);
tshape(260,350,3,RED,YELLOW,0);
tshape(290,350,4,RED,YELLOW,0);
}