#include "DxLib.h"
#include <stdio.h>
#include <math.h>

void loadg();

//String 使用
#include <string>
using namespace std;


//プログラム中
//main-10
//タイトル-100
int main=100,maintm=0;

//ステージ
int stagecolor=0;
int sta=1,stb=4,stc=0;

//クイック
int fast=1;

//トラップ表示
int trap=1;

//中間ゲート
int tyuukan=0;


//スタッフロール
int ending=0;


//ステージ読み込みループ(いじらない)
int stagerr,stagepoint;
//オーバーフローさせる
int over=0;

//ステージスイッチ
int stageonoff=0;


//メインプログラム
void Mainprogram();
void rpaint();
int maint;


//サブクラス
//(ウエイト系
void wait(int interval);
void wait2(long stime, long etime,int FLAME_TIME);
int rand(int Rand);
void end();

//描画
int color;
void setfont(int a);
void setcolor(int red, int green, int blue);
void setc0();
void setc1();
void drawpixel(int a,int b);
void drawline(int a,int b,int c,int d);
void drawrect(int a,int b,int c,int d);
void fillrect(int a,int b,int c,int d);
void drawarc(int a,int b,int c,int d);
void fillarc(int a,int b,int c,int d);
int grap[161][8],mgrap[51];
int loadimage(string b);
int loadimage(int a,int x,int y,int r,int z);
int mirror;
void drawimage(int mx,int a,int b);
void drawimage(int mx,int a,int b,int c,int d,int e,int f);
void setre();
void setre2();
void setno();
int oto[151];
void ot(int x);void bgmchange(int x);

//文字
void str(string c,int a,int b);


//)

void stagecls();
void stage();
void stagep();





//1-ステージ
//10-ステージ前
//



//ループ
int t,tt,t1,t2,t3,t4;


//初期化
int zxon,zzxon;

//キーコンフィグ
int key,keytm;

//三角関数
double pai=3.1415926535;


//地面
#define smax 31
int sx,sco;
int sa[smax],sb[smax],sc[smax],sd[smax],stype[smax],sxtype[smax],sr[smax];
int sgtype[smax];



//プレイヤー
int mainmsgtype;
int ma,mb,mnobia,mnobib,mhp;
int mc,md,macttype,atkon,atktm,mactsok,msstar,nokori=2,mactp,mact;

int mtype,mxtype,mtm,mzz;
int mzimen,mrzimen,mkasok,mmuki,mmukitm,mjumptm,mkeytm,mcleartm;
int mmutekitm,mmutekion;
int mztm,mztype;
int actaon[7];
//メッセージ
int mmsgtm,mmsgtype;

int mascrollmax=21000;//9000




//ブロック
void tyobi(int x,int y,int type);
void brockbreak(int t);
#define tmax 641
int tco;
int ta[tmax],tb[tmax],tc[tmax],td[tmax],thp[tmax],ttype[tmax];
int titem[tmax],txtype[tmax];

//メッセージブロック
int tmsgtm,tmsgtype,tmsgx,tmsgy,tmsgnobix,tmsgnobiy,tmsg;
void ttmsg();void txmsg(string x,int a);
void setfont(int x,int y);

//効果を持たないグラ
void eyobi(int xa,int xb,int xc,int xd,int xe,int xf,int xnobia,int xnobib,int xgtype,int xtm);
#define emax 201
int eco;
int ea[emax],eb[emax],enobia[emax],enobib[emax],ec[emax],ed[emax];
int ee[emax],ef[emax],etm[emax];
int egtype[emax];



//敵キャラ
void ayobi(int xa,int xb,int xc,int xd,int xnotm,int xtype,int xxtype);
void tekizimen();
#define amax 24
int aco;
int aa[amax],ab[amax],anobia[amax],anobib[amax],ac[amax],ad[amax];
int ae[amax],af[amax],abrocktm[amax];
int aacta[amax],aactb[amax],azimentype[amax],axzimen[amax];
int atype[amax],axtype[amax],amuki[amax],ahp[amax];
int anotm[amax],anx[160],any[160];
int atm[amax],a2tm[amax];
int amsgtm[amax],amsgtype[amax];

//敵出現
#define bmax 81
int bco;
int ba[bmax],bb[bmax],btm[bmax];
int btype[bmax],bxtype[bmax],bz[bmax];


//背景
#define nmax 41
int nxxmax,nco;
int na[nmax],nb[nmax],nc[nmax],nd[nmax],ntype[nmax];
int ne[nmax],nf[nmax],ng[nmax],nx[nmax];


//リフト
#define srmax 21
int srco;
int sra[srmax],srb[srmax],src[srmax],srd[srmax],sre[srmax],srf[srmax];
int srtype[srmax],srgtype[srmax],sracttype[srmax],srsp[srmax];
int srmuki[srmax],sron[srmax],sree[srmax];
int srsok[srmax],srmovep[srmax],srmove[srmax];





//スクロール範囲
int fx=0,fy=0,fzx,fzy,scrollx,scrolly;
//全体のポイント
int fma=0,fmb=0;
//強制スクロール
int kscroll=0;
//画面サイズ(ファミコンサイズ×2)(256-224)
int fxmax=48000,fymax=42000;



//ステージ
byte stagedate[17][2001];

//画面黒
int blacktm=1,blackx=0;



//自由な値
int xx[91];
double xd[11];
string xs[31];


//タイマー測定
long stime;



// プログラムは WinMain から始まります
int WINAPI WinMain( HINSTANCE hInstance, HINSTANCE hPrevInstance,LPSTR lpCmdLine, int nCmdShow ){

  //画面サイズ設定
  SetGraphMode( fxmax/100 , fymax/100 , 16 ) ;
  //
  SetWindowIconID(127);
  //最大化の防止
  ChangeWindowMode(TRUE ) ;
  //タイトルの変更
  SetMainWindowText( "しょぼんのアクション" ) ;
  //applog無効
  SetOutApplicationLogValidFlag(false);


  // ＤＸライブラリ初期化処理(エラーが起きたら直ちに終了)
  if( DxLib_Init() == -1 )return -1 ;

  // 点を打つ
  //DrawPixel( 320 , 240 , 0xffff ) ;

  // キー入力待ち
  //WaitKey();


  //全ロード
  loadg();

  //フォント
  SetFontSize(16) ;
  SetFontThickness(4) ;

  //ループ
  //for (maint=0;maint<=2;maint++){
  while( ProcessMessage() == 0 && CheckHitKey( KEY_INPUT_ESCAPE ) == 0){

    maint=0;Mainprogram();
    if (maint==3)break;
  }



  //ＤＸライブラリ使用の終了処理
  DxLib_End() ;				

  // ソフトの終了 
  return 0 ;				
}



//メイン描画
void rpaint(){

  //ダブルバッファリング
  SetDrawScreen(DX_SCREEN_BACK);

  ClearDrawScreen();

  setcolor(0,0,0);
  //if (stagecolor==1)setcolor(170,170,255);
  if (stagecolor==1)setcolor(160,180,250);
  if (stagecolor==2)setcolor(10,10,10);
  if (stagecolor==3)setcolor(160,180,250);
  if (stagecolor==4)setcolor(10,10,10);
  fillrect(0,0,fxmax,fymax);


  /*
  //文字を書く
  setcolor(0,0,120);

  xs[1]="";
  char num_str[255];
  sprintf_s(num_str, sizeof(num_str),"%d",mjumptm);

  xs[3]=xs[1]+num_str;
  str(xs[3],10,10);
  */


  if (main==1 && zxon>=1){


    //背景
    for (t=0;t<nmax;t++){
      xx[0]=na[t]-fx;xx[1]=nb[t]-fy;
      xx[2]=ne[ntype[t]]*100;xx[3]=nf[ntype[t]]*100;
      xx[2]=16000;xx[3]=16000;

      if (xx[0]+xx[2]>=-10 && xx[0]<=fxmax && xx[1]+xx[3]>=-10 && xx[3]<=fymax){

        if (ntype[t]!=3)
          drawimage(grap[ntype[t]][4],xx[0]/100,xx[1]/100);

        if (ntype[t]==3)
          drawimage(grap[ntype[t]][4],xx[0]/100-5,xx[1]/100);

        //51
        if (ntype[t]==100){
          DrawFormatString(xx[0]/100+fma,xx[1]/100+fmb,GetColor(255,255,255),"51");
        }

        if (ntype[t]==101)
          DrawFormatString(xx[0]/100+fma,xx[1]/100+fmb,GetColor(255,255,255),"ゲームクリアー");
        if (ntype[t]==102)
          DrawFormatString(xx[0]/100+fma,xx[1]/100+fmb,GetColor(255,255,255),"プレイしてくれてありがとー");

      }}//t



      //グラ
      for (t=0;t<emax;t++){
        xx[0]=ea[t]-fx;xx[1]=eb[t]-fy;
        xx[2]=enobia[t]/100;xx[3]=enobib[t]/100;
        if (xx[0]+xx[2]*100>=-10 && xx[1]<=fxmax && xx[1]+xx[3]*100>=-10-8000 && xx[3]<=fymax){

          //コイン
          if (egtype[t]==0)
            drawimage(grap[0][2],xx[0]/100,xx[1]/100);

          //ブロックの破片
          if (egtype[t]==1){
            if (stagecolor<=1 || stagecolor==3)setcolor(9*16,6*16,3*16);
            if (stagecolor==2)setcolor(0,120,160);
            if (stagecolor==4)setcolor(192,192,192);

            fillarc(xx[0]/100,xx[1]/100,7,7);
            setcolor(0,0,0);
            drawarc(xx[0]/100,xx[1]/100,7,7);
          }

          //リフトの破片
          if (egtype[t]==2 || egtype[t]==3){
            if (egtype[t]==3)mirror=1;
            drawimage(grap[0][5],xx[0]/100,xx[1]/100);
            mirror=0;
          }

          //ポール
          if (egtype[t]==4){
            setc1();
            fillrect((xx[0])/100+10,(xx[1])/100, 10, xx[3]);
            setc0();
            drawrect((xx[0])/100+10,(xx[1])/100, 10, xx[3]);
            setcolor(250,250,0);
            fillarc((xx[0])/100+15-1,(xx[1])/100,10,10);
            setc0();
            drawarc((xx[0])/100+15-1,(xx[1])/100,10,10);
          }//4

          //if (egtype[t]==1){
          //drawimage(image[0],xx[0]/100+fma+5,xx[1]/100+fmb+5,0,0,10,10);
          //おもしろ
          //drawimage(image[2],xx[0]/100+fma,xx[1]/100+fmb,0,0,20,20);
          //}
          //if (egtype[t]==2)
          //drawimage(image[11],xx[0]/100+fma,xx[1]/100+fmb,0,0,25,16);


        }
        /*
        //
        if (egtype[t]==100){
        for (t3=0;t3<=2;t3++){ 
        setcolor(60,60,60);
        if (t3==2)setcolor(250,250,250);
        t2=t3*2;if (t2==4)t2=1;
        //str("ステージ  クリアー",xx[0]/100+t2+fx/100,xx[1]/100+t2+fy/100);
        str("ステージ  クリアー",60+t2,90+t2);
        }
        }//100
        */
      }






      //リフト
      for (t=0;t<srmax;t++){
        xx[0]=sra[t]-fx;xx[1]=srb[t]-fy;
        if (xx[0]+src[t]>=-10 && xx[1]<=fxmax+12100 && src[t]/100>=1){
          xx[2]=14;if (srsp[t]==1){xx[2]=12;}

          if (srsp[t]<=9 || srsp[t]>=20){
            setcolor(220,220,0);
            if (srsp[t]==2){setcolor(0,220,0);}
            if (srsp[t]==21){setcolor(180,180,180);}
            fillrect((sra[t]-fx)/100,(srb[t]-fy)/100,src[t]/100,xx[2]);

            setcolor(180,180,0);
            if (srsp[t]==2){setcolor(0,180,0);}
            if (srsp[t]==21){setcolor(150,150,150);}
            drawrect((sra[t]-fx)/100,(srb[t]-fy)/100,src[t]/100,xx[2]);
          }
          else if (srsp[t]<=14){
            if (src[t]>=5000){
              setcolor(0,200,0);
              fillrect((sra[t]-fx)/100,(srb[t]-fy)/100,src[t]/100,30);
              setcolor(0,160,0);
              drawrect((sra[t]-fx)/100,(srb[t]-fy)/100,src[t]/100,30);

              setcolor(180,120,60);
              fillrect((sra[t]-fx)/100+20,(srb[t]-fy)/100+30,src[t]/100-40,480);
              setcolor(100,80,20);
              drawrect((sra[t]-fx)/100+20,(srb[t]-fy)/100+30,src[t]/100-40,480);

            }}
          if (srsp[t]==15){
            for (t2=0;t2<=2;t2++){
              xx[6]=1+0;drawimage(grap[xx[6]][1],(sra[t]-fx)/100+t2*29,(srb[t]-fy)/100);
            }
          }//15



          /*
             if (srtype[t]==0){
             setc1();
             if (srgtype[t]==0){setcolor(200,120,0);}
             if (srgtype[t]==1){setcolor(40,40,240);}
             if (srgtype[t]>=2 && srgtype[t]<=6)setcolor(240,240,40);
             if (srgtype[t]==7)setcolor(0,240,0);
             fillrect(xx[0]/100+fma,xx[1]/100+fmb, src[t]/100, srd[t]/100);
             setc0();
             if (srgtype[t]==0){setcolor(160,80,0);}
             if (srgtype[t]==1){setcolor(0,0,200);}
             if (srgtype[t]>=2 && srgtype[t]<=6)setcolor(200,200,0);
             if (srgtype[t]==7)setcolor(0,210,0);
             drawrect(xx[0]/100+fma,xx[1]/100+0+fmb, src[t]/100, srd[t]/100);
             }}

          //(トゲ)
          if (srtype[t]==1 || srtype[t]==2){
          if (srtype[t]==2)setre2();
          //drawimage(image[6],xx[0]/100+fma,xx[1]/100+fmb,0,0,src[t]/100, srd[t]/100+2);

          xx[20]=2000;
          for (tt=0;tt<=src[t]/xx[20];tt++){
          xx[6]=xx[20]/100;xx[7]=xx[20]/100;if (src[t]/xx[20]==tt){xx[7]=(src[t]%xx[20])/100;}
          if (xx[6]<=0)xx[6]=1;if (xx[7]<=0)xx[7]=1;
          //drawimage(im[0],xx[0]/100+fma+tt*(xx[6]),xx[1]/100+fmb,5,0,xx[7],10);
          drawimage(image[6],xx[0]/100+fma+tt*(xx[6]),xx[1]/100+fmb,0,0,xx[7], srd[t]/100+2);
          }

*/
      }
      //t=xx[21];//if (xx[22]>spmax)t=spmax+1;

      //setno();
      }//t












      //プレイヤー描画
      setcolor(0,0,255);
      //mirror=1;

      if (mactp>=2000){mactp-=2000;if (mact==0){mact=1;}else{mact=0;}}
      if (mmuki==0)mirror=1;

      if (mtype!=200 && mtype!=1){
        if (mzimen==1){
          // 読みこんだグラフィックを拡大描画
          //DrawExtendGraph(ma/100,mb/100,ma/100+100,mb/100+100,grap[0][0], TRUE ) ;
          if (mact==0)drawimage(grap[0][0],ma/100,mb/100);
          if (mact==1)drawimage(grap[1][0],ma/100,mb/100);
        }
        if (mzimen==0){
          drawimage(grap[2][0],ma/100,mb/100);
        }
      }
      //巨大化
      else if (mtype==1){
        drawimage(grap[41][0],ma/100,mb/100);
      }

      else if (mtype==200){
        drawimage(grap[3][0],ma/100,mb/100);
      }

      mirror=0;

      //drawrect(ma/100,mb/100,30,36);


      //g.setFlipMode(Graphics.FLIP_NONE);
      //}//muteki




      //for (t=0;t<bmax;t++){DrawFormatString((ba[t]-fx)/100+40,(bb[t]-fy)/100,GetColor(250,250,250),"%d",t);}

      //敵キャラ
      for (t=0;t<amax;t++){

        xx[0]=aa[t]-fx;xx[1]=ab[t]-fy;
        xx[2]=anobia[t]/100;xx[3]=anobib[t]/100;xx[14]=3000;xx[16]=0;
        if (xx[0]+xx[2]*100>=-10-xx[14] && xx[1]<=fxmax+xx[14] && xx[1]+xx[3]*100>=-10 && xx[3]<=fymax){
          //if (atype[t]>=100)amuki[t]=0;
          if (amuki[t]==1){mirror=1;}
          if (atype[t]==3 && axtype[t]==1){DrawRotaGraph(xx[0]/100+13,xx[1]/100+15, 1.0f ,pai/ 1 , grap[atype[t]][3], TRUE ) ;xx[16]=1;}
          if (atype[t]==9 && ad[t]>=1){DrawRotaGraph(xx[0]/100+13,xx[1]/100+15, 1.0f ,pai/ 1 , grap[atype[t]][3], TRUE ) ;xx[16]=1;}
          if (atype[t]>=100 && amuki[t]==1)mirror=0;

          //tekikaki(atype[t]);

          //if (atype[t]>=100)
          //drawrect(xx[0]/100,xx[1]/100,30,30);


          //DrawFormatString(xx[0]/100+40,xx[1]/100,GetColor(0,0,0),"%d",axzimen[t]);
          //drawstring(grap[atype[t]][3],xx[0]/100,xx[1]/100);


          //メイン
          if (atype[t]<200 && xx[16]==0 && atype[t]!=6 && atype[t]!=79 && atype[t]!=86 && atype[t]!=30){
            if (!((atype[t]==80 || atype[t]==81) && axtype[t]==1)){
              drawimage(grap[atype[t]][3],xx[0]/100,xx[1]/100);
            }}


          //デフラグさん
          if (atype[t]==6){
            if (atm[t]>=10 && atm[t]<=19 || atm[t]>=100 && atm[t]<=119 || atm[t]>=200){
              drawimage(grap[150][3],xx[0]/100,xx[1]/100);
            }else{
              drawimage(grap[6][3],xx[0]/100,xx[1]/100);
            }
          }

          //モララー
          if (atype[t]==30){
            if (axtype[t]==0)drawimage(grap[30][3],xx[0]/100,xx[1]/100);
            if (axtype[t]==1)drawimage(grap[155][3],xx[0]/100,xx[1]/100);
          }



          //ステルス雲
          if ((atype[t]==81) && axtype[t]==1){
            drawimage(grap[130][3],xx[0]/100,xx[1]/100);
          }

          if (atype[t]==79){
            setcolor(250,250,0);
            fillrect(xx[0]/100,xx[1]/100,xx[2],xx[3]);
            setc0();
            drawrect(xx[0]/100,xx[1]/100,xx[2],xx[3]);
          }

          if (atype[t]==82){

            if (axtype[t]==0){
              xx[9]=0;if (stagecolor==2){xx[9]=30;}if (stagecolor==4){xx[9]=60;}
              xx[6]=5+xx[9];drawimage(grap[xx[6]][1],xx[0]/100,xx[1]/100);
            }

            if (axtype[t]==1){
              xx[9]=0;if (stagecolor==2){xx[9]=30;}if (stagecolor==4){xx[9]=60;}
              xx[6]=4+xx[9];drawimage(grap[xx[6]][1],xx[0]/100,xx[1]/100);
            }

            if (axtype[t]==2){
              drawimage(grap[1][5],xx[0]/100,xx[1]/100);
            }

          }
          if (atype[t]==83){

            if (axtype[t]==0){
              xx[9]=0;if (stagecolor==2){xx[9]=30;}if (stagecolor==4){xx[9]=60;}
              xx[6]=5+xx[9];drawimage(grap[xx[6]][1],xx[0]/100+10,xx[1]/100+9);
            }

            if (axtype[t]==1){
              xx[9]=0;if (stagecolor==2){xx[9]=30;}if (stagecolor==4){xx[9]=60;}
              xx[6]=4+xx[9];drawimage(grap[xx[6]][1],xx[0]/100+10,xx[1]/100+9);
            }

          }

          //偽ポール
          if (atype[t]==85){
            setc1();
            fillrect((xx[0])/100+10,(xx[1])/100, 10, xx[3]);
            setc0();
            drawrect((xx[0])/100+10,(xx[1])/100, 10, xx[3]);
            setcolor(0,250,200);
            fillarc((xx[0])/100+15-1,(xx[1])/100,10,10);
            setc0();
            drawarc((xx[0])/100+15-1,(xx[1])/100,10,10);

          }//85


          //ニャッスン
          if (atype[t]==86){
            if (ma>=aa[t]-fx-mnobia-4000 && ma<=aa[t]-fx+anobia[t]+4000){
              drawimage(grap[152][3],xx[0]/100,xx[1]/100);
            }
            else{
              drawimage(grap[86][3],xx[0]/100,xx[1]/100);
            }}




          if (atype[t]==200)
            drawimage(grap[0][3],xx[0]/100,xx[1]/100);


          mirror=0;

        }}



        //ブロック描画
        for (t=0;t<tmax;t++){
          xx[0]=ta[t]-fx;xx[1]=tb[t]-fy;
          xx[2]=32;xx[3]=xx[2];
          if (xx[0]+xx[2]*100>=-10 && xx[1]<=fxmax){

            xx[9]=0;
            if (stagecolor==2){xx[9]=30;}
            if (stagecolor==4){xx[9]=60;}

            if (ttype[t]<100){
              xx[6]=ttype[t]+xx[9];drawimage(grap[xx[6]][1],xx[0]/100,xx[1]/100);
            }

            if(txtype[t] != 10){

              if (ttype[t]==100 || ttype[t]==101 || ttype[t]==102 || ttype[t]==103 ||  ttype[t]==104 && txtype[t]==1 || ttype[t]==114 && txtype[t]==1 || ttype[t]==116){
                xx[6]=2+xx[9];drawimage(grap[xx[6]][1],xx[0]/100,xx[1]/100);
              }

              if (ttype[t]==112 || ttype[t]==104 && txtype[t]==0 || ttype[t]==115 && txtype[t]==1){
                xx[6]=1+xx[9];drawimage(grap[xx[6]][1],xx[0]/100,xx[1]/100);
              }

              if (ttype[t]==111 || ttype[t]==113 || ttype[t]==115 && txtype[t]==0 || ttype[t]==124){
                xx[6]=3+xx[9];drawimage(grap[xx[6]][1],xx[0]/100,xx[1]/100);
              }

            }

            if (ttype[t]==117 && txtype[t]==1){
              drawimage(grap[4][5],xx[0]/100,xx[1]/100);
            }

            if (ttype[t]==117 && txtype[t]>=3){
              drawimage(grap[3][5],xx[0]/100,xx[1]/100);
            }

            if (ttype[t]==115 && txtype[t]==3){
              xx[6]=1+xx[9];drawimage(grap[xx[6]][1],xx[0]/100,xx[1]/100);
              //xx[6]=5+xx[9];drawimage(grap[xx[6]][1],xx[0]/100,xx[1]/100);
            }

            //ジャンプ台
            if (ttype[t]==120 && txtype[t]!=1){
              drawimage(grap[16][1],xx[0]/100+3,xx[1]/100+2);
            }

            //ON-OFF
            if (ttype[t]==130)drawimage(grap[10][5],xx[0]/100,xx[1]/100);
            if (ttype[t]==131)drawimage(grap[11][5],xx[0]/100,xx[1]/100);

            if (ttype[t]==140)drawimage(grap[12][5],xx[0]/100,xx[1]/100);
            if (ttype[t]==141)drawimage(grap[13][5],xx[0]/100,xx[1]/100);
            if (ttype[t]==142)drawimage(grap[14][5],xx[0]/100,xx[1]/100);


            if (ttype[t]==300 || ttype[t]==301)
              drawimage(grap[1][5],xx[0]/100,xx[1]/100);

            //Pスイッチ
            if (ttype[t]==400){drawimage(grap[2][5],xx[0]/100,xx[1]/100);}

            //コイン
            if (ttype[t]==800){drawimage(grap[0][2],xx[0]/100+2,xx[1]/100+1);}

            //if (stagecolor==1)t-=30;
          }}










          //地面(壁)//土管も
          for (t=0;t<smax;t++){
            if (sa[t]-fx+sc[t]>=-10 && sa[t]-fx<=fxmax+1100){

              if (stype[t]==0){
                setcolor(40,200,40);
                fillrect((sa[t]-fx)/100+fma,(sb[t]-fy)/100+fmb, sc[t]/100, sd[t]/100);
                drawrect((sa[t]-fx)/100+fma,(sb[t]-fy)/100+fmb, sc[t]/100, sd[t]/100);
              }
              //土管
              if (stype[t]==1){
                setcolor(0,230,0);
                fillrect((sa[t]-fx)/100+fma,(sb[t]-fy)/100+fmb, sc[t]/100, sd[t]/100);
                setc0();
                drawrect((sa[t]-fx)/100+fma,(sb[t]-fy)/100+fmb, sc[t]/100, sd[t]/100);
              }
              //土管(下)
              if (stype[t]==2){
                setcolor(0,230,0);
                fillrect((sa[t]-fx)/100+fma,(sb[t]-fy)/100+fmb+1, sc[t]/100, sd[t]/100);
                setc0();
                drawline((sa[t]-fx)/100+fma,(sb[t]-fy)/100+fmb, (sa[t]-fx)/100+fma,(sb[t]-fy)/100+fmb+sd[t]/100);
                drawline((sa[t]-fx)/100+fma+sc[t]/100,(sb[t]-fy)/100+fmb, (sa[t]-fx)/100+fma+sc[t]/100,(sb[t]-fy)/100+fmb+sd[t]/100);
              }

              //土管(横)
              if (stype[t]==5){
                setcolor(0,230,0);
                fillrect((sa[t]-fx)/100+fma,(sb[t]-fy)/100+fmb+1, sc[t]/100, sd[t]/100);
                setc0();
                drawline((sa[t]-fx)/100+fma,(sb[t]-fy)/100+fmb, (sa[t]-fx)/100+fma+sc[t]/100,(sb[t]-fy)/100+fmb);
                drawline((sa[t]-fx)/100+fma,(sb[t]-fy)/100+fmb+sd[t]/100, (sa[t]-fx)/100+fma+sc[t]/100,(sb[t]-fy)/100+fmb+sd[t]/100);
              }


              //落ちてくるブロック
              if (stype[t]==51){
                if (sxtype[t]==0){
                  for (t3=0;t3<=sc[t]/3000;t3++){
                    drawimage(grap[1][1],(sa[t]-fx)/100+fma+29*t3,(sb[t]-fy)/100+fmb);
                  }}
                if (sxtype[t]==1 || sxtype[t]==2){
                  for (t3=0;t3<=sc[t]/3000;t3++){
                    drawimage(grap[31][1],(sa[t]-fx)/100+fma+29*t3,(sb[t]-fy)/100+fmb);
                  }}
                if (sxtype[t]==3 || sxtype[t]==4){
                  for (t3=0;t3<=sc[t]/3000;t3++){for (t2=0;t2<=sd[t]/3000;t2++){
                    drawimage(grap[65][1],(sa[t]-fx)/100+fma+29*t3,(sb[t]-fy)/100+29*t2+fmb);
                  }}}

                if (sxtype[t]==10){
                  for (t3=0;t3<=sc[t]/3000;t3++){
                    drawimage(grap[65][1],(sa[t]-fx)/100+fma+29*t3,(sb[t]-fy)/100+fmb);
                  }}

              }//51


              //落ちるやつ
              if (stype[t]==52){
                xx[29]=0;if (stagecolor==2){xx[29]=30;}if (stagecolor==4){xx[29]=60;}

                for (t3=0;t3<=sc[t]/3000;t3++){
                  if (sxtype[t]==0){
                    drawimage(grap[5+xx[29]][1],(sa[t]-fx)/100+fma+29*t3,(sb[t]-fy)/100+fmb);
                    if (stagecolor!=4){drawimage(grap[6+xx[29]][1],(sa[t]-fx)/100+fma+29*t3,(sb[t]-fy)/100+fmb+29);}
                    else{drawimage(grap[5+xx[29]][1],(sa[t]-fx)/100+fma+29*t3,(sb[t]-fy)/100+fmb+29);}
                  }
                  if (sxtype[t]==1){
                    for (t2=0;t2<=sd[t]/3000;t2++){
                      drawimage(grap[1+xx[29]][1],(sa[t]-fx)/100+fma+29*t3,(sb[t]-fy)/100+fmb+29*t2);
                    }}

                  if (sxtype[t]==2){
                    for (t2=0;t2<=sd[t]/3000;t2++){
                      drawimage(grap[5+xx[29]][1],(sa[t]-fx)/100+fma+29*t3,(sb[t]-fy)/100+fmb+29*t2);
                    }
                  }

                }}


                //ステージトラップ
                if (trap==1){
                  if (stype[t]>=100 && stype[t]<=299){
                    if (stagecolor<=1 || stagecolor==3)setc0();
                    if (stagecolor==2 || stagecolor==4)setc1();
                    drawrect((sa[t]-fx)/100+fma,(sb[t]-fy)/100+fmb, sc[t]/100, sd[t]/100);
                  }}

                //ゴール
                if (stype[t]==300){
                  setc1();
                  fillrect((sa[t]-fx)/100+10,(sb[t]-fy)/100, 10, sd[t]/100-8);
                  setc0();
                  drawrect((sa[t]-fx)/100+10,(sb[t]-fy)/100, 10, sd[t]/100-8);
                  setcolor(250,250,0);
                  fillarc((sa[t]-fx)/100+15-1,(sb[t]-fy)/100,10,10);
                  setc0();
                  drawarc((sa[t]-fx)/100+15-1,(sb[t]-fy)/100,10,10);
                }

                //中間
                if (stype[t]==500){
                  drawimage(grap[20][4],(sa[t]-fx)/100,(sb[t]-fy)/100);
                }
            }}//t


          //描画上書き(土管)
          for (t=0;t<smax;t++){
            if (sa[t]-fx+sc[t]>=-10 && sa[t]-fx<=fxmax+1100){

              //入る土管(右)
              if (stype[t]==40){
                setcolor(0,230,0);
                fillrect((sa[t]-fx)/100+fma,(sb[t]-fy)/100+fmb+1, sc[t]/100, sd[t]/100);
                setc0();
                drawrect((sa[t]-fx)/100+fma,(sb[t]-fy)/100+fmb+1, sc[t]/100, sd[t]/100);
              }

              //とぶ土管
              if (stype[t]==50){
                setcolor(0,230,0);
                fillrect((sa[t]-fx)/100+fma+5,(sb[t]-fy)/100+fmb+30, 50, sd[t]/100-30);
                setc0();
                drawline((sa[t]-fx)/100+5+fma,(sb[t]-fy)/100+fmb+30, (sa[t]-fx)/100+fma+5,(sb[t]-fy)/100+fmb+sd[t]/100);
                drawline((sa[t]-fx)/100+5+fma+50,(sb[t]-fy)/100+fmb+30, (sa[t]-fx)/100+fma+50+5,(sb[t]-fy)/100+fmb+sd[t]/100);

                setcolor(0,230,0);
                fillrect((sa[t]-fx)/100+fma,(sb[t]-fy)/100+fmb+1, 60, 30);
                setc0();
                drawrect((sa[t]-fx)/100+fma,(sb[t]-fy)/100+fmb+1, 60, 30);
              }

              //地面(ブロック)
              if (stype[t]==200){
                for (t3=0;t3<=sc[t]/3000;t3++){for (t2=0;t2<=sd[t]/3000;t2++){
                  drawimage(grap[65][1],(sa[t]-fx)/100+fma+29*t3,(sb[t]-fy)/100+29*t2+fmb);
                }}
              }

            }}//t





          //ファイアバー
          for (t=0;t<amax;t++){

            xx[0]=aa[t]-fx;xx[1]=ab[t]-fy;
            //xx[2]=anobia[t]/100;xx[3]=anobib[t]/100;
            xx[14]=12000;xx[16]=0;
            if (atype[t]==87 || atype[t]==88){
              if (xx[0]+xx[2]*100>=-10-xx[14] && xx[1]<=fxmax+xx[14] && xx[1]+xx[3]*100>=-10 && xx[3]<=fymax){

                for (tt=0;tt<=axtype[t]%100;tt++){
                  xx[26]=18;
                  xd[4]=tt*xx[26]*cos(atm[t]*pai/180/2);
                  xd[5]=tt*xx[26]*sin(atm[t]*pai/180/2);
                  xx[24]=(int)xd[4];
                  xx[25]=(int)xd[5];
                  setcolor(230,120,0);
                  xx[23]=8;
                  if (atype[t]==87){
                    fillarc(xx[0]/100+xx[24],xx[1]/100+xx[25],xx[23],xx[23]);
                    setcolor(0,0,0);
                    drawarc(xx[0]/100+xx[24],xx[1]/100+xx[25],xx[23],xx[23]);
                  }else{
                    fillarc(xx[0]/100-xx[24],xx[1]/100+xx[25],xx[23],xx[23]);
                    setcolor(0,0,0);
                    drawarc(xx[0]/100-xx[24],xx[1]/100+xx[25],xx[23],xx[23]);
                  }
                }

              }
            }}







            //プレイヤーのメッセージ
            setc0();
            if (mmsgtm>=1){
              mmsgtm--;
              xs[0]="";

              if (mmsgtype==1)xs[0]="お、おいしい!!";
              if (mmsgtype==2)xs[0]="毒は無いが……";
              if (mmsgtype==3)xs[0]="刺さった!!";
              if (mmsgtype==10)xs[0]="食べるべきではなかった!!";
              if (mmsgtype==11)xs[0]="俺は燃える男だ!!";
              if (mmsgtype==50)xs[0]="体が……焼ける……";
              if (mmsgtype==51)xs[0]="たーまやー!!";
              if (mmsgtype==52)xs[0]="見事にオワタ";
              if (mmsgtype==53)xs[0]="足が、足がぁ!!";
              if (mmsgtype==54)xs[0]="流石は摂氏800度!!";
              if (mmsgtype==55)xs[0]="溶岩と合体したい……";
              //if (mmsgtype==56)xs[0]="";

              //if (stagecolor<=1 || stagecolor==3)setc0();
              //if (stagecolor==2)setc1();

              //str(xs[0],(ma+mnobia+300)/100,mb/100);

              setc0();
              str(xs[0],(ma+mnobia+300)/100-1,mb/100-1);
              str(xs[0],(ma+mnobia+300)/100+1,mb/100+1);
              setc1();
              str(xs[0],(ma+mnobia+300)/100,mb/100);

            }//mmsgtm


            //敵キャラのメッセージ
            setc0();
            for (t=0;t<amax;t++){
              if (amsgtm[t]>=1){
                amsgtm[t]--;//end();

                xs[0]="";

                //if (amsgtype[t]==1001)xs[0]="";
                if (amsgtype[t]==1001)xs[0]="ヤッフー!!";
                if (amsgtype[t]==1002)xs[0]="え?俺勝っちゃったの?";
                if (amsgtype[t]==1003)xs[0]="貴様の死に場所はここだ!";
                if (amsgtype[t]==1004)xs[0]="二度と会う事もないだろう";
                if (amsgtype[t]==1005)xs[0]="俺、最強!!";
                if (amsgtype[t]==1006)xs[0]="一昨日来やがれ!!";
                if (amsgtype[t]==1007)xs[0]="漢に後退の二文字は無い!!";
                if (amsgtype[t]==1008)xs[0]="ハッハァ!!";

                if (amsgtype[t]==1011)xs[0]="ヤッフー!!";
                if (amsgtype[t]==1012)xs[0]="え?俺勝っちゃったの?";
                if (amsgtype[t]==1013)xs[0]="貴様の死に場所はここだ!";
                if (amsgtype[t]==1014)xs[0]="身の程知らずが……";
                if (amsgtype[t]==1015)xs[0]="油断が死を招く";
                if (amsgtype[t]==1016)xs[0]="おめでたい奴だ";
                if (amsgtype[t]==1017)xs[0]="屑が!!";
                if (amsgtype[t]==1018)xs[0]="無謀な……";

                if (amsgtype[t]==1021)xs[0]="ヤッフー!!";
                if (amsgtype[t]==1022)xs[0]="え?俺勝っちゃったの?";
                if (amsgtype[t]==1023)xs[0]="二度と会う事もないだろう";
                if (amsgtype[t]==1024)xs[0]="身の程知らずが……";
                if (amsgtype[t]==1025)xs[0]="僕は……負けない!!";
                if (amsgtype[t]==1026)xs[0]="貴様に見切れる筋は無い";
                if (amsgtype[t]==1027)xs[0]="今死ね、すぐ死ね、骨まで砕けろ!!";
                if (amsgtype[t]==1028)xs[0]="任務完了!!";

                if (amsgtype[t]==1031)xs[0]="ヤッフー!!";
                if (amsgtype[t]==1032)xs[0]="え?俺勝っちゃったの?";
                if (amsgtype[t]==1033)xs[0]="貴様の死に場所はここだ!";
                if (amsgtype[t]==1034)xs[0]="身の程知らずが……";
                if (amsgtype[t]==1035)xs[0]="油断が死を招く";
                if (amsgtype[t]==1036)xs[0]="おめでたい奴だ";
                if (amsgtype[t]==1037)xs[0]="屑が!!";
                if (amsgtype[t]==1038)xs[0]="無謀な……";

                if (amsgtype[t]==15)xs[0]="鉄壁!!よって、無敵!!";
                if (amsgtype[t]==15)xs[0]="丸腰で勝てるとでも?";
                if (amsgtype[t]==15)xs[0]="パリイ!!";
                if (amsgtype[t]==18)xs[0]="自業自得だ";
                if (amsgtype[t]==20)xs[0]="Zzz";
                if (amsgtype[t]==21)xs[0]="ク、クマー";
                if (amsgtype[t]==24)xs[0]="?";
                if (amsgtype[t]==25)xs[0]="食べるべきではなかった!!";
                if (amsgtype[t]==30)xs[0]="うめぇ!!";
                if (amsgtype[t]==31)xs[0]="ブロックを侮ったな?";
                if (amsgtype[t]==32)xs[0]="シャキーン";

                if (amsgtype[t]==50)xs[0]="波動砲!!";
                if (amsgtype[t]==85)xs[0]="裏切られたとでも思ったか?";
                if (amsgtype[t]==86)xs[0]="ポールアターック!!";



                //if (stagecolor<=1 || stagecolor==3)setc0();
                //if (stagecolor==2)setc1();

                if (amsgtype[t]!=31){
                  //str(xs[0],(aa[t]+anobia[t]+300-fx)/100,(ab[t]-fy)/100);
                  xx[5]=(aa[t]+anobia[t]+300-fx)/100;xx[6]=(ab[t]-fy)/100;
                }
                else{
                  xx[5]=(aa[t]+anobia[t]+300-fx)/100;xx[6]=(ab[t]-fy-800)/100;
                }

                //setc0();
                //str(xs[0],xx[5]-1,xx[6]-1);str(xs[0],xx[5]+1,xx[6]+1);
                ChangeFontType(DX_FONTTYPE_EDGE);
                setc1();
                str(xs[0],xx[5],xx[6]);
                ChangeFontType(DX_FONTTYPE_NORMAL);


              }//amsgtm
            }//amax



            //メッセージブロック
            if (tmsgtm>0){
              ttmsg();
              if (tmsgtype==1){
                xx[0]=1200;
                tmsgy+=xx[0];
                if (tmsgtm==1){tmsgtm=80000000;tmsgtype=2;}
              }//1

              else if (tmsgtype==2){
                tmsgy=0;tmsgtype=3;tmsgtm=15+1;
              }

              else if (tmsgtype==3){
                xx[0]=1200;
                tmsgy+=xx[0];
                if (tmsgtm==15)WaitKey();
                if (tmsgtm==1){tmsgtm=0;tmsgtype=0;tmsgy=0;}
              }//1

              tmsgtm--;
            }//tmsgtm


            //メッセージ
            if (mainmsgtype>=1){
              setfont(20,4);
              if (mainmsgtype==1){DrawFormatString(126,100,GetColor(255,255,255),"WELCOME TO OWATA ZONE");}
              if (mainmsgtype==1){for (t2=0;t2<=2;t2++)DrawFormatString(88+t2*143,210,GetColor(255,255,255),"1");}
              setfont(20,5);
            }//mainmsgtype>=1


            //画面黒
            if (blacktm>0){
              blacktm--;
              fillrect(0,0,fxmax,fymax);
              if (blacktm==0){
                if (blackx==1){zxon=0;}
              }

            }//blacktm

            //DrawFormatString(10,10,GetColor(255,255,255),"X … %d",anobib[0]);

}//if (main==1){


if (main==2){

  setcolor(255,255,255);
  str("制作・プレイに関わった方々",240-13*20/2,xx[12]/100);
  str("ステージ１　プレイ",240-9*20/2,xx[13]/100);
  str("先輩　Ⅹ～Ｚ",240-6*20/2,xx[14]/100);
  str("ステージ２　プレイ",240-9*20/2,xx[15]/100);
  str("友人　willowlet ",240-8*20/2,xx[16]/100);
  str("ステージ３　プレイ",240-9*20/2,xx[17]/100);
  str("友人　willowlet ",240-8*20/2,xx[18]/100);
  str("ステージ４　プレイ",240-9*20/2,xx[19]/100);
  str("友人２　ann ",240-6*20/2,xx[20]/100);
  str("ご協力",240-3*20/2,xx[21]/100);
  str("Ｔ先輩",240-3*20/2,xx[22]/100);
  str("Ｓ先輩",240-3*20/2,xx[23]/100);
  str("動画技術提供",240-6*20/2,xx[24]/100);
  str("Ｋ先輩",240-3*20/2,xx[25]/100);
  str("動画キャプチャ・編集・エンコード",240-16*20/2,xx[26]/100);
  str("willowlet ",240-5*20/2,xx[27]/100);
  str("プログラム・描画・ネタ・動画編集",240-16*20/2,xx[28]/100);
  str("ちく",240-2*20/2,xx[29]/100);

  str("プレイしていただき　ありがとうございました～",240-22*20/2,xx[30]/100);
}



if (main==10){

  setc0();
  fillrect(0,0,fxmax,fymax);

  SetFontSize(16) ;
  SetFontThickness(4) ;

  drawimage(grap[0][0],190,190);
  DrawFormatString(230,200,GetColor(255,255,255)," × %d",nokori);


}//if (main==10){


//タイトル
if (main==100){

  setcolor(160,180,250);
  fillrect(0,0,fxmax,fymax);

  drawimage(mgrap[30],240-380/2,60);

  drawimage(grap[0][4],12*30,10*29-12);
  drawimage(grap[1][4],6*30,12*29-12);

  //プレイヤー
  drawimage(grap[0][0],2*30,12*29-12-6);
  for (t=0;t<=16;t++){
    drawimage(grap[5][1],29*t,13*29-12);
    drawimage(grap[6][1],29*t,14*29-12);
  }


  setcolor(0,0,0);
  str("Enterキーを押せ!!",240-8*20/2,250);

}//if (main==100){



//DrawFormatString(230,200,GetColor(255,255,255)," × %d,%d,%d",sta,stb,stc);

ScreenFlip();

}//rpaint()







//メインプログラム
void Mainprogram(){

  stime=long(GetNowCount());


  if (ending==1)main=2;


  //キー
  key = GetJoypadInputState(DX_INPUT_KEY_PAD1);


  if (main==1 && tmsgtype==0){


    if (zxon==0){
      zxon=1;
      mainmsgtype=0;

      stagecolor=1;
      ma=5600;mb=32000;mmuki=1;mhp=1;
      mc=0;md=0;
      mnobia=3000;mnobib=3600;

      mtype=0;
      //if (stc==1)end();

      fx=0;fy=0;
      fzx=0;
      stageonoff=0;




      //チーターマン　入れ
      bgmchange(oto[100]);

      stagecls();

      stage();


      //ランダムにさせる
      if (over==1){
        //for (t=0;t<;t++){na[t]=rand(300000);nb[t]=rand(3000);}
        for (t=0;t<tmax;t++){if (rand(3)<=1){ta[t]=(rand(500)-1)*29*100;tb[t]=rand(14)*100*29-1200;ttype[t]=rand(142);if (ttype[t]>=9 && ttype[t]<=99){ttype[t]=rand(8);}txtype[t]=rand(4);}}
        for (t=0;t<bmax;t++){if (rand(2)<=1){ba[t]=(rand(500)-1)*29*100;bb[t]=rand(15)*100*29-1200-3000;if (rand(6)==0){btype[t]=rand(9);}}}

        srco=0;
        t=srco;sra[t]=ma+fx;srb[t]=(13*29-12)*100;src[t]=30*100;srtype[t]=0;sracttype[t]=0;sre[t]=0;srsp[t]=0;srco++;

        if (rand(4)==0)stagecolor=rand(4);
        //if (rand(6)==0)bgmchange(oto[rand(6)+100]);
      }



      StopSoundMem(oto[0]);


      //メインBGM
      PlaySoundMem(oto[0],DX_PLAYTYPE_LOOP) ;
      //PlayMusic("BGM/titerman.mp3",DX_PLAYTYPE_LOOP) ;


    }//zxon

    //xx[1]=rand(100);







    //プレイヤーの移動
    xx[0]=0;actaon[2]=0;actaon[3]=0;
    if (mkeytm<=0){
      if (( key & PAD_INPUT_LEFT) && keytm<=0){actaon[0]=-1;mmuki=0;actaon[4]=-1;}	
      if (( key & PAD_INPUT_RIGHT) && keytm<=0){actaon[0]=1;mmuki=1;actaon[4]=1;}
      if (key & PAD_INPUT_DOWN){actaon[3]=1;}
    }

    //if (CheckHitKey(KEY_INPUT_F1)==1){end();}
    if (CheckHitKey(KEY_INPUT_F1)==1){main=100;}
    //if (CheckHitKey(KEY_INPUT_Q)==1){mkeytm=0;}
    if (CheckHitKey(KEY_INPUT_O)==1){if (mhp>=1)mhp=0;if (stc>=5){stc=0;stagepoint=0;}}


    if (mkeytm<=0){
      if (key & PAD_INPUT_UP || CheckHitKey(KEY_INPUT_Z)==1){//end();
        if (actaon[1]==10){actaon[1]=1;xx[0]=1;}
        actaon[2]=1;
      }}

    if (key & PAD_INPUT_UP || CheckHitKey(KEY_INPUT_Z)==1){
      if (mjumptm==8 && md>=-900){
        md=-1300;
        //ダッシュ中
        xx[22]=200;if (mc>=xx[22] || mc<=-xx[22]){md=-1400;}
        xx[22]=600;if (mc>=xx[22] || mc<=-xx[22]){md=-1500;}
      }
      // && xx[0]==0 && md<=-10

      //if (mjumptm==7 && md>=-900){}
      if (xx[0]==0)actaon[1]=10;
    }




    //if (( key & PAD_INPUT_UP) && keytm<=0){actaon[0]=-1;mmuki=0;}	

    //xx[0]=200;
    //if (actaon[0]==-1){ma-=xx[0];}
    //if (actaon[0]==1){ma+=xx[0];}


    //加速による移動
    xx[0]=40;xx[1]=700;xx[8]=500;xx[9]=700;
    xx[12]=1;xx[13]=2;

    //すべり補正
    if (mrzimen==1){xx[0]=20;xx[12]=9;xx[13]=10;}


    //if (mzimen==0){xx[0]-=15;}
    if (actaon[0]==-1){
      if (!(mzimen==0 && mc<-xx[8])){
        if (mc>=-xx[9]){mc-=xx[0];if (mc<-xx[9]){mc=-xx[9]-1;}}
        if (mc<-xx[9] && atktm<=0)mc-=xx[0]/10;
      }
      if (mrzimen!=1){
        if (mc>100 && mzimen==0){mc-=xx[0]*2/3;}
        if (mc>100 && mzimen==1){mc-=xx[0];if (mzimen==1){mc-=xx[0]*1/2;}}actaon[0]=3;
        mkasok+=1;
      }}

      if (actaon[0]==1){
        if (!(mzimen==0 && mc>xx[8])){
          if (mc<=xx[9]){mc+=xx[0];if (mc>xx[9]){mc=xx[9]+1;}}
          if (mc>xx[9] && atktm<=0)mc+=xx[0]/10;
        }
        if (mrzimen!=1){
          if (mc<-100 && mzimen==0){mc+=xx[0]*2/3;}
          if (mc<-100 && mzimen==1){mc+=xx[0];if (mzimen==1){mc+=xx[0]*1/2;}}actaon[0]=3;mkasok+=1;
        }}
        if (actaon[0]==0 && mkasok>0){mkasok-=2;}if (mkasok>8){mkasok=8;}

        //すべり補正初期化
        if (mzimen!=1)mrzimen=0;


        //ジャンプ
        if (mjumptm>=0)mjumptm--;
        if (actaon[1]==1 && mzimen==1){
          mb-=400;md=-1200;mjumptm=10;

          //PlaySound( "jump.mp3" , DX_PLAYTYPE_NORMAL ) ;

          //PlayMusic( "SE/jump.mp3" , DX_PLAYTYPE_NORMAL ) ;

          //PlaySoundMem( oto[1], DX_PLAYTYPE_NORMAL ) ;

          //PlaySoundMem( oto[1], DX_PLAYTYPE_BACK) ;
          ot(oto[1]);

          /*
             md=-1040;
             xx[1]=600;if (mc>xx[1] || mc<=-xx[1]){md=-1400;}
             xx[1]=7;xx[2]=400;
             if (mkasok>xx[1] && (mc>xx[2] || mc<=-xx[2])){
             md=-1600;
             if (mc>=800 || mc<=-800){md=-1800;}
             }
             */

          mzimen=0;

        }
        if (actaon[1]<=9)actaon[1]=0;

        //if (actaon[1]==1){my+=xx[1];actaon[1]=0;}

        //}//陸地


        if (mmutekitm>=-1)mmutekitm--;


        //HPがなくなったとき
        if (mhp<=0 && mhp>=-9){
          mkeytm=12;mhp=-20;mtype=200;mtm=0;ot(oto[12]);StopSoundMem(oto[0]);StopSoundMem(oto[11]);StopSoundMem(oto[16]);
        }//mhp
        //if (mhp<=-10){
        if (mtype==200){
          if (mtm<=11){mc=0;md=0;}
          if (mtm==12){md=-1200;}
          if (mtm>=12){mc=0;}
          if (mtm>=100 || fast==1){zxon=0;main=10;mtm=0;mkeytm=0;nokori--;if (fast==1)mtype=0;}//mtm>=100
        }//mtype==200




        //音符によるワープ
        if (mtype==2){
          mtm++;

          mkeytm=2;
          md=-1500;
          if (mb<=-6000){blackx=1;blacktm=20;stc+=5;stagerr=0;StopSoundMem(oto[0]);mtm=0;mtype=0;mkeytm=-1;}
        }//2

        //ジャンプ台アウト
        if (mtype==3){
          md=-2400;
          if (mb<=-6000){mb=-80000000;mhp=0;}
        }


        //mtypeによる特殊的な移動
        if (mtype>=100){mtm++;

          //普通の土管
          if (mtype==100){
            if (mxtype==0){
              mc=0;md=0;t=28;
              if (mtm<=16){mb+=240;mzz=100;}
              if (mtm==17){mb=-80000000;}
              if (mtm==23){sa[t]-=100;}
              if (mtm>=44 && mtm<=60){
                if (mtm%2==0)sa[t]+=200;
                if (mtm%2==1)sa[t]-=200;
              }
              if (mtm>=61 && mtm<=77){
                if (mtm%2==0)sa[t]+=400;
                if (mtm%2==1)sa[t]-=400;
              }
              if (mtm>=78 && mtm<=78+16){
                if (mtm%2==0)sa[t]+=600;
                if (mtm%2==1)sa[t]-=600;
              }
              if (mtm>=110){sb[t]-=mzz;mzz+=80;if (mzz>1600)mzz=1600;}
              if (mtm==160){mtype=0;mhp--;}

            }

            //ふっとばし
            else if (mxtype==10){
              mc=0;md=0;
              if (mtm<=16){ma+=240;}//mzz=100;}
              if (mtm==16)mb-=1100;
              if (mtm==20)ot(oto[10]);

              if (mtm>=24){ma-=2000;mmuki=0;}
              if (mtm>=48){mtype=0;mhp--;}

          }else{
            mc=0;md=0;
            if (mtm<=16 && mxtype!=3){mb+=240;}//mzz=100;}
            if (mtm<=16 && mxtype==3){ma+=240;}
            if (mtm==19 && mxtype==2){mhp=0;mtype=2000;mtm=0;mmsgtm=30;mmsgtype=51;}
            if (mtm==19 && mxtype==5){mhp=0;mtype=2000;mtm=0;mmsgtm=30;mmsgtype=52;}
            if (mtm==20){
              if(mxtype == 6){
                stc += 10;
              }else{
                stc++;
              }
              mb=-80000000;
              mxtype=0;
              blackx=1;
              blacktm=20;
              stagerr=0;StopSoundMem(oto[0]);
            }}
}//00


if (mtype==300){
  mkeytm=3;
  if (mtm<=1){mc=0;md=0;}
  if (mtm>=2 && mtm<=42){md=600;mmuki=1;}
  if (mtm>43 && mtm<=108){mc=300;}
  if (mtm==110){mb=-80000000;mc=0;}
  if (mtm==250){
    stb++;stc=0;zxon=0;tyuukan=0;main=10;maintm=0;
  }
}//mtype==300

if (mtype==301 || mtype==302){
  mkeytm=3;

  if (mtm<=1){mc=0;md=0;}

  if (mtm>=2 && (mtype==301 && mtm<=102 || mtype==302 && mtm<=60)){
    xx[5]=500;
    ma-=xx[5];fx+=xx[5];fzx+=xx[5];
  }

  if ((mtype==301 || mtype==302) && mtm>=2 && mtm<=100){
    mc=250;mmuki=1;
  }

  if (mtm==200){
    ot(oto[17]);
    if(mtype==301){
      na[nco]=117*29*100-1100;nb[nco]=4*29*100;ntype[nco]=101;nco++;if (nco>=nmax)nco=0;
      na[nco]=115*29*100-1100;nb[nco]=6*29*100;ntype[nco]=102;nco++;if (nco>=nmax)nco=0;
    }else{
      na[nco]=157*29*100-1100;nb[nco]=4*29*100;ntype[nco]=101;nco++;if (nco>=nmax)nco=0;
      na[nco]=155*29*100-1100;nb[nco]=6*29*100;ntype[nco]=102;nco++;if (nco>=nmax)nco=0;
    }
  }
  //スタッフロールへ

  if (mtm==440){
    if(mtype==301){
      ending = 1;
    }else{
      sta++;stb=0;stc=0;
    }
  }


  /*
     if (mtm<=1){mc=0;md=0;}
     if (mtm>=2 && mtm<=42){md=600;mmuki=1;}
     if (mtm>43 && mtm<=108){mc=300;}
     if (mtm==110){mb=-80000000;mc=0;}
     if (mtm==250)end();
     */
}//mtype==301

}//mtype>=100




//移動
if (mkeytm>=1){mkeytm--;}//mc=0;}
ma+=mc;mb+=md;
if (mc<0)mactp+=(-mc);
if (mc>=0)mactp+=mc;

if (mtype<=9 || mtype==200 || mtype==300 || mtype==301 || mtype==302)md+=100;


//走る際の最大値
if (mtype==0){
  xx[0]=800;xx[1]=1600;
  if (mc>xx[0] && mc<xx[0]+200){mc=xx[0];}
  if (mc>xx[0]+200){mc-=200;}
  if (mc<-xx[0] && mc>-xx[0]-200){mc=-xx[0];}
  if (mc<-xx[0]-200){mc+=200;}
  if (md>xx[1]){md=xx[1];}
}

//プレイヤー
//地面の摩擦
if (mzimen==1 && actaon[0]!=3){
  if ((mtype<=9) || mtype==300 || mtype==301 || mtype==302){
    if (mrzimen==0){
      xx[2]=30;xx[1]=60;xx[3]=30;
      if (mc>=-xx[3] && mc<=xx[3]){mc=0;}
      if (mc>=xx[2]){mc-=xx[1];}
      if (mc<=-xx[2]){mc+=xx[1];}
    }
    if (mrzimen==1){
      xx[2]=5;xx[1]=10;xx[3]=5;
      if (mc>=-xx[3] && mc<=xx[3]){mc=0;}
      if (mc>=xx[2]){mc-=xx[1];}
      if (mc<=-xx[2]){mc+=xx[1];}
    }
  }}


//地面判定初期化
mzimen=0;

//場外
if (mtype<=9 && mhp>=1){
  if (ma<100){ma=100;mc=0;}
  if (ma+mnobia>fxmax){ma=fxmax-mnobia;mc=0;}
}
//if (mb>=42000){mb=42000;mzimen=1;}
if (mb>=38000 && mhp>=0 && stagecolor==4){mhp=-2;mmsgtm=30;mmsgtype=55;}
if (mb>=52000 && mhp>=0){mhp=-2;}






//ブロック
//1-れんが、コイン、無し、土台、7-隠し

xx[15]=0;
for (t=0;t<tmax;t++){
  xx[0]=200;xx[1]=3000;xx[2]=1000;xx[3]=3000;//xx[2]=1000
  xx[8]=ta[t]-fx;xx[9]=tb[t]-fy;//xx[15]=0;
  if (ta[t]-fx+xx[1]>=-10-xx[3] && ta[t]-fx<=fxmax+12000+xx[3]){
    if (mtype!=200 && mtype!=1 && mtype!=2){
      if (ttype[t]<1000 && ttype[t]!=800 && ttype[t]!=140 && ttype[t]!=141){// && ttype[t]!=5){

        //if (!(mztm>=1 && mztype==1 && actaon[3]==1)){
        if (!(mztype==1)){
          xx[16]=0;xx[17]=0;

          //上
          if (ttype[t]!=7 && ttype[t]!=110 && !(ttype[t]==114)){
            if (ma+mnobia>xx[8]+xx[0]*2+100 && ma<xx[8]+xx[1]-xx[0]*2-100 && mb+mnobib>xx[9] && mb+mnobib<xx[9]+xx[1] && md>=-100){
              if (ttype[t]!=115 && ttype[t]!=400 && ttype[t]!=117 && ttype[t]!=118 && ttype[t]!=120){
                mb=xx[9]-mnobib+100;md=0;mzimen=1;xx[16]=1;
              }
              else if (ttype[t]==115){
                ot(oto[3]);
                eyobi(ta[t]+1200,tb[t]+1200,300,-1000,0,160,1000,1000,1,120);
                eyobi(ta[t]+1200,tb[t]+1200,-300,-1000,0,160,1000,1000,1,120);
                eyobi(ta[t]+1200,tb[t]+1200,240,-1400,0,160,1000,1000,1,120);
                eyobi(ta[t]+1200,tb[t]+1200,-240,-1400,0,160,1000,1000,1,120);
                brockbreak(t);
              }
              //Pスイッチ
              else if (ttype[t]==400){
                md=0;ta[t]=-8000000;ot(oto[13]);
                for (tt=0;tt<tmax;tt++){if (ttype[tt]!=7){ttype[tt]=800;}}
                StopSoundMem(oto[0]);
              }

              //音符+
              else if (ttype[t]==117){
                ot(oto[14]);
                md=-1500;mtype=2;mtm=0;
                if (txtype[t]>=2 && mtype==2){mtype=0;md=-1600;txtype[t]=3;}
                if (txtype[t]==0)txtype[t]=1;
              }

              //ジャンプ台
              else if (ttype[t]==120){
                //txtype[t]=0;
                md=-2400;mtype=3;mtm=0;
              }

            }}
        }//!


        //sstr=""+mjumptm;
        //ブロック判定の入れ替え
        if (!(mztm>=1 && mztype==1)){
          xx[21]=0;xx[22]=1;//xx[12]=0;
          if (mzimen==1 || mjumptm>=10){xx[21]=3;xx[22]=0;}
          for (t3=0;t3<=1;t3++){

            //下
            if (t3==xx[21] && mtype!=100 && ttype[t]!=117){// && xx[12]==0){
              if (ma+mnobia>xx[8]+xx[0]*2+800 && ma<xx[8]+xx[1]-xx[0]*2-800 && mb>xx[9]-xx[0]*2 && mb<xx[9]+xx[1]-xx[0]*2 && md<=0){xx[16]=1;xx[17]=1;
                mb=xx[9]+xx[1]+xx[0];if (md<0){md=-md*2/3;}//}
                //壊れる
                if (ttype[t]==1 && mzimen==0){
                  ot(oto[3]);
                  eyobi(ta[t]+1200,tb[t]+1200,300,-1000,0,160,1000,1000,1,120);
                  eyobi(ta[t]+1200,tb[t]+1200,-300,-1000,0,160,1000,1000,1,120);
                  eyobi(ta[t]+1200,tb[t]+1200,240,-1400,0,160,1000,1000,1,120);
                  eyobi(ta[t]+1200,tb[t]+1200,-240,-1400,0,160,1000,1000,1,120);
                  brockbreak(t);
                }
                //コイン
                if (ttype[t]==2 && mzimen==0){
                  ot(oto[4]);
                  eyobi(ta[t]+10,tb[t],0,-800,0,40,3000,3000,0,16);
                  ttype[t]=3;
                }
                //隠し
                if (ttype[t]==7){
                  ot(oto[4]);
                  eyobi(ta[t]+10,tb[t],0,-800,0,40,3000,3000,0,16);
                  mb=xx[9]+xx[1]+xx[0];ttype[t]=3;if (md<0){md=-md*2/3;}
                }
                // トゲ
                if (ttype[t]==10){
                  mmsgtm=30;
                  mmsgtype=3;
                  mhp--;
                }
            }}


            //左右
            if (t3==xx[22] && xx[15]==0){
              if (ttype[t]!=7 && ttype[t]!=110 && ttype[t]!=117){
                if (!(ttype[t]==114)){// && txtype[t]==1)){
                  if (ta[t]>=-20000){
                    //if (ma+mnobia>xx[8] && ma<xx[8]+xx[2] && mb+mnobib>xx[9]+xx[1]/2-xx[0] &&){
                    if (ma+mnobia>xx[8] && ma<xx[8]+xx[2] && mb+mnobib>xx[9]+xx[1]/2-xx[0] && mb<xx[9]+xx[2] && mc>=0){
                      ma=xx[8]-mnobia;mc=0;xx[16]=1;
                      //if (ttype[t]!=4){ma=xx[8]-mnobia;mc=0;xx[16]=1;}
                      //if (ttype[t]==4){ma=xx[8]-mnobia;mc=-mc*4/4;}
                    }
                    if (ma+mnobia>xx[8]+xx[2] && ma<xx[8]+xx[1] && mb+mnobib>xx[9]+xx[1]/2-xx[0] && mb<xx[9]+xx[2] && mc<=0){
                      ma=xx[8]+xx[1];mc=0;xx[16]=1;//end();
                      //if (ttype[t]!=4){ma=xx[8]+xx[1];mc=0;xx[16]=1;}
                      //if (ttype[t]==4){ma=xx[8]+xx[1];mc=-mc*4/4;}
                    }
                  }}}
                }

              }//t3
            }//!

          }// && ttype[t]<50

          if (ttype[t]==800){
            //if (xx[0]+xx[2]>=-xx[14] && xx[0]<=fxmax+xx[14] && xx[1]+xx[3]>=-10-9000 && xx[1]<=fymax+10000){
            if (mb>xx[9]-xx[0]*2-2000 && mb<xx[9]+xx[1]-xx[0]*2+2000 && ma+mnobia>xx[8]-400 && ma<xx[8]+xx[1]){
              ta[t]=-800000;ot(oto[4]);
            }}

            //剣とってクリア
            if (ttype[t]==140){
              if (mb>xx[9]-xx[0]*2-2000 && mb<xx[9]+xx[1]-xx[0]*2+2000 && ma+mnobia>xx[8]-400 && ma<xx[8]+xx[1]){
                ta[t]=-800000;//ot(oto[4]);
                sracttype[20]=1;sron[20]=1;
                StopSoundMem(oto[0]);mtype=301;mtm=0;ot(oto[16]);

              }}


            //特殊的
            if (ttype[t]==100){//xx[9]+xx[1]+3000<mb && // && mb>xx[9]-xx[0]*2
              if (mb>xx[9]-xx[0]*2-2000 && mb<xx[9]+xx[1]-xx[0]*2+2000 && ma+mnobia>xx[8]-400 && ma<xx[8]+xx[1] && md<=0){
                if (txtype[t]==0)tb[t]=mb+fy-1200-xx[1];
              }

              if (txtype[t]==1){
                if (xx[17]==1){
                  if (ma+mnobia>xx[8]-400 && ma<xx[8]+xx[1]/2-1500){ta[t]+=3000;}
                  else if (ma+mnobia>=xx[8]+xx[1]/2-1500 && ma<xx[8]+xx[1]){ta[t]-=3000;}
                }}

              if (xx[17]==1 && txtype[t]==0){
                ot(oto[4]);
                eyobi(ta[t]+10,tb[t],0,-800,0,40,3000,3000,0,16);
                ttype[t]=3;
              }
            }//100

            //敵出現
            if (ttype[t]==101){//xx[9]+xx[1]+3000<mb && // && mb>xx[9]-xx[0]*2
              if (xx[17]==1){
                ot(oto[8]);
                ttype[t]=3;
                abrocktm[aco]=16;
                if (txtype[t]==0)ayobi(ta[t],tb[t],0,0,0,0,0);
                if (txtype[t]==1)ayobi(ta[t],tb[t],0,0,0,4,0);
                if (txtype[t]==3)ayobi(ta[t],tb[t],0,0,0,101,0);
                if (txtype[t]==4){abrocktm[aco]=20;ayobi(ta[t]-400,tb[t]-1600,0,0,0,6,0);}
                if (txtype[t]==10)ayobi(ta[t],tb[t],0,0,0,101,0);
              }
            }//101

            //おいしいきのこ出現
            if (ttype[t]==102){
              if (xx[17]==1){
                ot(oto[8]);
                ttype[t]=3;abrocktm[aco]=16;
                if (txtype[t]==0)ayobi(ta[t],tb[t],0,0,0,100,0);
                if (txtype[t]==2)ayobi(ta[t],tb[t],0,0,0,100,2);
                if (txtype[t]==3)ayobi(ta[t],tb[t],0,0,0,102,1);
              }}//102

            //まずいきのこ出現
            if (ttype[t]==103){
              if (xx[17]==1){
                ot(oto[8]);
                ttype[t]=3;abrocktm[aco]=16;ayobi(ta[t],tb[t],0,0,0,100,1);
              }}//103


            //悪スター出し
            if (ttype[t]==104){
              if (xx[17]==1){
                ot(oto[8]);
                ttype[t]=3;abrocktm[aco]=16;ayobi(ta[t],tb[t],0,0,0,110,0);
              }}//104




            //毒きのこ量産
            if (ttype[t]==110){
              if (xx[17]==1){
                ttype[t]=111;thp[t]=999;
              }}//110
            if (ttype[t]==111 && ta[t]-fx>=0){
              thp[t]++;if (thp[t]>=16){thp[t]=0;
                ot(oto[8]);
                abrocktm[aco]=16;ayobi(ta[t],tb[t],0,0,0,102,1);
              }}


            //コイン量産
            if (ttype[t]==112){
              if (xx[17]==1){
                ttype[t]=113;thp[t]=999;titem[t]=0;
              }}//110
            if (ttype[t]==113 && ta[t]-fx>=0){
              if (titem[t]<=19)thp[t]++;
              if (thp[t]>=3){thp[t]=0;titem[t]++;
                ot(oto[4]);
                eyobi(ta[t]+10,tb[t],0,-800,0,40,3000,3000,0,16);
                //ttype[t]=3;
              }}


              //隠し毒きのこ
              if (ttype[t]==114){
                if (xx[17]==1){
                  if (txtype[t]==0){
                    ot(oto[8]);ttype[t]=3;
                    abrocktm[aco]=16;ayobi(ta[t],tb[t],0,0,0,102,1);
                  }
                  if (txtype[t]==2){ot(oto[4]);eyobi(ta[t]+10,tb[t],0,-800,0,40,3000,3000,0,16);ttype[t]=115;txtype[t]=0;}
                  if (txtype[t]==10){
                    if (stageonoff==1){ttype[t]=130;stageonoff=0;ot(oto[13]);txtype[t]=2;for (t=0;t<amax;t++){if (atype[t]==87 || atype[t]==88){if (axtype[t]==105){axtype[t]=110;}}}}
                    else{ot(oto[4]);eyobi(ta[t]+10,tb[t],0,-800,0,40,3000,3000,0,16);ttype[t]=3;}
                  }

                }
              }//114


              //もろいブロック
              if (ttype[t]==115){

              }//115


              //Pスイッチ
              if (ttype[t]==116){
                if (xx[17]==1){
                  ot(oto[8]);
                  //ot(oto[13]);
                  ttype[t]=3;//abrocktm[aco]=18;ayobi(ta[t],tb[t],0,0,0,104,1);
                  tyobi(ta[t]/100,(tb[t]/100)-29,400);
                }}//116


              //ファイアバー強化
              if (ttype[t]==124){
                if (xx[17]==1){
                  ot(oto[13]);
                  for (t=0;t<amax;t++){if (atype[t]==87 || atype[t]==88){if (axtype[t]==101){axtype[t]=120;}}}
                  ttype[t]=3;
                }}

              //ONスイッチ
              if (ttype[t]==130){
                if (xx[17]==1){
                  if (txtype[t]!=1){
                    stageonoff=0;ot(oto[13]);
                  }}}
              else if (ttype[t]==131){
                if (xx[17]==1 && txtype[t]!=2){
                  stageonoff=1;ot(oto[13]);
                  if (txtype[t]==1){
                    for (t=0;t<amax;t++){if (atype[t]==87 || atype[t]==88){if (axtype[t]==105){axtype[t]=110;}}}
                    bxtype[3]=105;
                  }
                }}

              //ヒント
              if (ttype[t]==300){
                if (xx[17]==1){
                  ot(oto[15]);
                  if (txtype[t]<=100){
                    tmsgtype=1;tmsgtm=15;tmsgy=300+(txtype[t]-1);tmsg=(txtype[t]);
                  }
                  if (txtype[t]==540){
                    tmsgtype=1;tmsgtm=15;tmsgy=400;tmsg=100;txtype[t]=541;
                  }}
              }//300


              if (ttype[t]==301){
                if (xx[17]==1){
                  ot(oto[3]);
                  eyobi(ta[t]+1200,tb[t]+1200,300,-1000,0,160,1000,1000,1,120);eyobi(ta[t]+1200,tb[t]+1200,-300,-1000,0,160,1000,1000,1,120);eyobi(ta[t]+1200,tb[t]+1200,240,-1400,0,160,1000,1000,1,120);eyobi(ta[t]+1200,tb[t]+1200,-240,-1400,0,160,1000,1000,1,120);
                  brockbreak(t);
                }}//300


          }
          else if (mtype==1){
            if (ma+mnobia>xx[8] && ma<xx[8]+xx[1] && mb+mnobib>xx[9] && mb<xx[9]+xx[1]){

              ot(oto[3]);
              eyobi(ta[t]+1200,tb[t]+1200,300,-1000,0,160,1000,1000,1,120);
              eyobi(ta[t]+1200,tb[t]+1200,-300,-1000,0,160,1000,1000,1,120);
              eyobi(ta[t]+1200,tb[t]+1200,240,-1400,0,160,1000,1000,1,120);
              eyobi(ta[t]+1200,tb[t]+1200,-240,-1400,0,160,1000,1000,1,120);
              brockbreak(t);

            }}


          //ONOFF
          if (ttype[t]==130 && stageonoff==0){ttype[t]=131;}
          if (ttype[t]==131 && stageonoff==1){ttype[t]=130;}

          //ヒント
          if (ttype[t]==300){
            if (txtype[t]>=500 && ta[t]>=-6000){// && ta[t]>=-6000){
              if (txtype[t]<=539)txtype[t]++;
              if (txtype[t]>=540){ta[t]-=500;}
            }}//300


          }}//ブロック







          //壁
          for (t=0;t<smax;t++){
            if (sa[t]-fx+sc[t]>=-12000 && sa[t]-fx<=fxmax){
              xx[0]=200;xx[1]=2400;xx[2]=1000;xx[7]=0;

              xx[8]=sa[t]-fx;xx[9]=sb[t]-fy;
              if ((stype[t]<=99 || stype[t]==200) && mtype<10){

                //おちるブロック
                if (stype[t]==51){
                  if (ma+mnobia>xx[8]+xx[0]+3000 && ma<xx[8]+sc[t]-xx[0] && mb+mnobib>xx[9]+3000 && sgtype[t]==0){
                    if (sxtype[t]==0){
                      sgtype[t]=1;sr[t]=0;
                    }}
                  if (ma+mnobia>xx[8]+xx[0]+1000 && ma<xx[8]+sc[t]-xx[0] && mb+mnobib>xx[9]+3000 && sgtype[t]==0){
                    if ((sxtype[t]==10) && sgtype[t]==0){
                      sgtype[t]=1;sr[t]=0;
                    }}

                  if ((sxtype[t]==1) && sb[27]>=25000 && sa[27]>ma+mnobia && t!=27 && sgtype[t]==0){
                    sgtype[t]=1;sr[t]=0;
                  }
                  if (sxtype[t]==2 && sb[28]>=48000 && t!=28 && sgtype[t]==0 && mhp>=1){
                    sgtype[t]=1;sr[t]=0;
                  }
                  if ((sxtype[t]==3 && mb>=30000 || sxtype[t]==4 && mb>=25000) && sgtype[t]==0 && mhp>=1 && ma+mnobia>xx[8]+xx[0]+3000-300 && ma<xx[8]+sc[t]-xx[0]){
                    sgtype[t]=1;sr[t]=0;
                    if (sxtype[t]==4)sr[t]=100;
                  }

                  if (sgtype[t]==1 && sb[t]<=fymax+18000){
                    sr[t]+=120;if (sr[t]>=1600){sr[t]=1600;}
                    sb[t]+=sr[t];
                    if (ma+mnobia>xx[8]+xx[0] && ma<xx[8]+sc[t]-xx[0] && mb+mnobib>xx[9] && mb<xx[9]+sd[t]+xx[0]){
                      mhp--;xx[7]=1;
                    }}
                }

                //おちるブロック2
                if (stype[t]==52){
                  if (sgtype[t]==0 && ma+mnobia>xx[8]+xx[0]+2000 && ma<xx[8]+sc[t]-xx[0]-2500 && mb+mnobib>xx[9]-3000){
                    sgtype[t]=1;sr[t]=0;
                  }
                  if (sgtype[t]==1){
                    sr[t]+=120;if (sr[t]>=1600){sr[t]=1600;}
                    sb[t]+=sr[t];
                  }
                }



                //通常地面
                if (xx[7]==0){
                  if (ma+mnobia>xx[8]+xx[0] && ma<xx[8]+sc[t]-xx[0] && mb+mnobib>xx[9] && mb+mnobib<xx[9]+xx[1] && md>=-100){mb=sb[t]-fy-mnobib+100;md=0;mzimen=1;}
                  if (ma+mnobia>xx[8]-xx[0] && ma<xx[8]+xx[2] && mb+mnobib>xx[9]+xx[1]*3/4 && mb<xx[9]+sd[t]-xx[2]){ma=xx[8]-xx[0]-mnobia;mc=0;}
                  if (ma+mnobia>xx[8]+sc[t]-xx[0] && ma<xx[8]+sc[t]+xx[0] && mb+mnobib>xx[9]+xx[1]*3/4 && mb<xx[9]+sd[t]-xx[2]){ma=xx[8]+sc[t]+xx[0];mc=0;}
                  if (ma+mnobia>xx[8]+xx[0]*2 && ma<xx[8]+sc[t]-xx[0]*2 && mb>xx[9]+sd[t]-xx[1] && mb<xx[9]+sd[t]+xx[0]){
                    mb=xx[9]+sd[t]+xx[0];if (md<0){md=-md*2/3;}
                  }
                }//xx[7]

                //入る土管
                if (stype[t]==50){
                  if (ma+mnobia>xx[8]+2800 && ma<xx[8]+sc[t]-3000 && mb+mnobib>xx[9]-1000 && mb+mnobib<xx[9]+xx[1]+3000 && mzimen==1 && actaon[3]==1 && mtype==0){
                    //飛び出し
                    if (sxtype[t]==0){
                      mtype=100;mtm=0;ot(oto[7]);mxtype=0;
                    }
                    //普通
                    if (sxtype[t]==1){
                      mtype=100;mtm=0;ot(oto[7]);mxtype=1;
                    }
                    //普通
                    if (sxtype[t]==2){
                      mtype=100;mtm=0;ot(oto[7]);mxtype=2;
                    }
                    if (sxtype[t]==5){
                      mtype=100;mtm=0;ot(oto[7]);mxtype=5;
                    }
                    // ループ
                    if (sxtype[t]==6){
                      mtype=100;mtm=0;ot(oto[7]);mxtype=6;
                    }
                  }}//50

                //入る土管(左から)
                if (stype[t]==40){
                  if (ma+mnobia>xx[8]-300 && ma<xx[8]+sc[t]-1000 && mb>xx[9]+1000 && mb+mnobib<xx[9]+xx[1]+4000 && mzimen==1 && actaon[4]==1 && mtype==0){//end();
                    //飛び出し
                    if (sxtype[t]==0){
                      mtype=500;mtm=0;ot(oto[7]);//mxtype=1;
                      mtype=100;mxtype=10;
                    }

                    if (sxtype[t]==2){
                      mxtype=3;
                      mtm=0;ot(oto[7]);//mxtype=1;
                      mtype=100;
                    }
                    // ループ
                    if (sxtype[t]==6){
                      mtype=3;mtm=0;ot(oto[7]);mxtype=6;
                    }
                  }}//40




              }//stype
              else{
                if (ma+mnobia>xx[8]+xx[0] && ma<xx[8]+sc[t]-xx[0] && mb+mnobib>xx[9] && mb<xx[9]+sd[t]+xx[0]){
                  if (stype[t]==100){
                    if (sxtype[t]==0 || sxtype[t]==1 && ttype[1]!=3){
                      ayobi(sa[t]+1000,32000,0,0,0,3,0);sa[t]=-800000000;ot(oto[10]);
                    }
                  }
                  if (stype[t]==101){ayobi(sa[t]+6000,-4000,0,0,0,3,1);sa[t]=-800000000;ot(oto[10]);}
                  if (stype[t]==102){
                    if (sxtype[t]==0){
                      for (t3=0;t3<=3;t3++){ayobi(sa[t]+t3*3000,-3000,0,0,0,0,0);}
                    }
                    if (sxtype[t]==1 && mb>=16000){ayobi(sa[t]+1500,44000,0,-2000,0,4,0);}
                    else if (sxtype[t]==2){ayobi(sa[t]+4500,30000,0,-1600,0,5,0);ot(oto[10]);sxtype[t]=3;sa[t]-=12000;}
                    else if (sxtype[t]==3){sa[t]+=12000;sxtype[t]=4;}
                    else if (sxtype[t]==4){ayobi(sa[t]+4500,30000,0,-1600,0,5,0);ot(oto[10]);sxtype[t]=5;sxtype[t]=0;}

                    else if (sxtype[t]==7){mainmsgtype=1;}
                    else if (sxtype[t]==8){ayobi(sa[t]-5000-3000*1,26000,0,-1600,0,5,0);ot(oto[10]);}
                    else if (sxtype[t]==9){for (t3=0;t3<=2;t3++){ayobi(sa[t]+t3*3000+3000,48000,0,-6000,0,3,0);}}
                    if (sxtype[t]==10){sa[t]-=5*30*100;stype[t]=101;}

                    if (sxtype[t]==12){
                      for (t3=1;t3<=3;t3++){ayobi(sa[t]+t3*3000-1000,40000,0,-2600,0,9,0);}
                    }

                    //スクロール消し
                    if (sxtype[t]==20){
                      scrollx=0;
                    }

                    //クリア
                    if (sxtype[t]==30){sa[t]=-80000000;md=0;
                      StopSoundMem(oto[0]);mtype=302;mtm=0;ot(oto[16]);
                    }

                    if (sxtype[t]!=3 && sxtype[t]!=4 && sxtype[t]!=10){sa[t]=-800000000;}
                  }

                  if (stype[t]==103){
                    if (sxtype[t]==0){
                      amsgtm[aco]=10;amsgtype[aco]=50;ayobi(sa[t]+9000,sb[t]+2000,0,0,0,79,0);sa[t]=-800000000;
                    }

                    if (sxtype[t]==1 && ttype[6]<=6){
                      amsgtm[aco]=10;amsgtype[aco]=50;ayobi(sa[t]-12000,sb[t]+2000,0,0,0,79,0);sa[t]=-800000000;
                      txtype[9]=500;//ttype[9]=1;
                    }
                  }//103

                  if (stype[t]==104){
                    if (sxtype[t]==0){
                      ayobi(sa[t]+12000,sb[t]+2000+3000,0,0,0,79,0);
                      ayobi(sa[t]+12000,sb[t]+2000+3000,0,0,0,79,1);
                      ayobi(sa[t]+12000,sb[t]+2000+3000,0,0,0,79,2);
                      ayobi(sa[t]+12000,sb[t]+2000+3000,0,0,0,79,3);
                      ayobi(sa[t]+12000,sb[t]+2000+3000,0,0,0,79,4);
                      sa[t]=-800000000;
                    }}

                  if (stype[t]==105 && mzimen==0 && md>=0){ta[1]-=1000;ta[2]+=1000;sxtype[t]++;if (sxtype[t]>=3)sa[t]=-8000000;}


                  if (stype[t]==300 && mtype==0 && mb<xx[9]+sd[t]+xx[0]-3000 && mhp>=1){StopSoundMem(oto[0]);mtype=300;mtm=0;ma=sa[t]-fx-2000;ot(oto[11]);}

                  //中間ゲート
                  if (stype[t]==500 && mtype==0 && mhp>=1){
                    tyuukan+=1;
                    sa[t]=-80000000;
                  }

                }

                if (stype[t]==180){
                  sr[t]++;
                  if (sr[t]>=sgtype[t]){sr[t]=0;
                    ayobi(sa[t],30000,rand(600)-300,-1600-rand(900),0,84,0);
                  }
                }

              }
            }}//壁










          //キー入力初期化
          //for (t=0;t<=6;t++)
          actaon[0]=0;actaon[4]=0;





          //リフト
          for (t=0;t<srmax;t++){
            xx[10]=sra[t];xx[11]=srb[t];xx[12]=src[t];xx[13]=srd[t];
            xx[8]=xx[10]-fx;xx[9]=xx[11]-fy;
            if (xx[8]+xx[12]>=-10-12000 && xx[8]<=fxmax+12100){
              xx[0]=500;xx[1]=1200;xx[2]=1000;xx[7]=2000;
              if (md>=100){xx[1]=900+md;}

              //if (srtype[t]==1){xx[0]=600;}
              if (md>xx[1])xx[1]=md+100;
              //xx[18]=0;

              srb[t]+=sre[t];
              sre[t]+=srf[t];
              //if (srf[t]>=500)srf[t]=0;




              //動き
              switch(sracttype[t]){

                case 1:
                  if (sron[t]==1)srf[t]=60;
                  break;


                case 2:
                  /*
                     if (sra[t]<=srmovep[t]-srmove[t])srmuki[t]=1;
                     if (sra[t]>=srmovep[t]+srmove[t])srmuki[t]=0;
                     */
                  break;

                case 3:
                  /*
                     if (srb[t]<=srmovep[t]-srmove[t])srmuki[t]=1;
                     if (srb[t]>=srmovep[t]+srmove[t])srmuki[t]=0;
                     */
                  break;

                  /*
                     case 4:
                     if (srmove[t]==0){srmuki[t]=0;}else{srmuki[t]=1;}
                     if (sra[t]-fx<-1100-src[t]){sra[t]=fymax+fx+scrollx;}
                     if (sra[t]-fx>24000+scrollx){sra[t]=-1100-src[t]+fx;}
                     break;
                     */

                case 5:
                  if (srmove[t]==0){srmuki[t]=0;}else{srmuki[t]=1;}
                  if (srb[t]-fy<-2100){srb[t]=fymax+fy+scrolly+2000;}
                  if (srb[t]-fy>fymax+scrolly+2000){srb[t]=-2100+fy;}
                  break;

                case 6:
                  if (sron[t]==1)srf[t]=40;
                  break;

                case 7:
                  break;


              }//sw

              //if (srtype[t]==1){sre[10]=300;sre[11]=300;}

              //乗ったとき
              if (!(mztm>=1 && mztype==1 && actaon[3]==1) && mhp>=1){
                if (ma+mnobia>xx[8]+xx[0] && ma<xx[8]+xx[12]-xx[0] && mb+mnobib>xx[9] && mb+mnobib<xx[9]+xx[1] && md>=-100){
                  mb=xx[9]-mnobib+100;
                  //if (sracttype[t]!=7)mzimen=1;

                  if (srtype[t]==1){sre[10]=900;sre[11]=900;}

                  if (srsp[t]!=12){
                    mzimen=1;md=0;
                  }else {
                    //すべり
                    //md=0;mrzimen=1;mzimen=1;
                    md=-800;
                  }


                  /*
                     md=0;
                     if ((sracttype[t]==1 || sracttype[t]==6) && sron[t]==1)mb+=sre[t];

                     if (sracttype[t]==2 || sracttype[t]==4){
                     if (srmuki[t]==0)ma-=srsok[t];
                     if (srmuki[t]==1)ma+=srsok[t];
                     }
                     */

                  //落下
                  if ((sracttype[t]==1) && sron[t]==0)sron[t]=1;

                  if (sracttype[t]==1 && sron[t]==1 || sracttype[t]==3 || sracttype[t]==5){
                    mb+=sre[t];
                    //if (srmuki[t]==0)
                    //if (srf[t]<0)
                    //if (srmuki[t]==1)
                    //if (srf[t]>0)
                    //mb+=srsok[t];
                  }

                  if (sracttype[t]==7){
                    if (actaon[2]!=1){md=-600;mb-=810;}
                    if (actaon[2]==1){mb-=400;md=-1400;mjumptm=10;}
                  }


                  //特殊
                  if (srsp[t]==1){
                    ot(oto[3]);
                    eyobi(sra[t]+200,srb[t]-1000,-240,-1400,0,160,4500,4500,2,120);
                    eyobi(sra[t]+4500-200,srb[t]-1000,240,-1400,0,160,4500,4500,3,120);
                    sra[t]=-70000000;
                  }





                  if (srsp[t]==2){
                    mc=-2400;srmove[t]+=1;
                    if (srmove[t]>=100){mhp=0;mmsgtype=53;mmsgtm=30;srmove[t]=-5000;}
                  }


                  //if (srtype[t]==1){md=-600;mb-=610;mhp-=1;if (mmutekion!=1)mmutekitm=40;}
                }//判定内


                //疲れ初期化
                if (srsp[t]==2 && mc!=-2400 && srmove[t]>0){srmove[t]--;}

                if (srsp[t]==11){
                  if (ma+mnobia>xx[8]+xx[0]-2000 && ma<xx[8]+xx[12]-xx[0]){sron[t]=1;}// && mb+mnobib>xx[9]-1000 && mb+mnobib<xx[9]+xx[1]+2000)
                  if (sron[t]==1){srf[t]=60;srb[t]+=sre[t];}
                }


                //トゲ(下)
                if (ma+mnobia>xx[8]+xx[0] && ma<xx[8]+xx[12]-xx[0] && mb>xx[9]-xx[1]/2 && mb<xx[9]+xx[1]/2){
                  if (srtype[t]==2){if (md<0){md=-md;}mb+=110;if (mmutekitm<=0)mhp-=1;if (mmutekion!=1)mmutekitm=40;}
                }
                //落下
                if (sracttype[t]==6){
                  if (ma+mnobia>xx[8]+xx[0] && ma<xx[8]+xx[12]-xx[0]){sron[t]=1;}
                }

              }//!

              /*
              //ジャンプ台
              if (sracttype[t]==7){
              if (ma+mnobia>xx[8]+xx[0] && ma<xx[8]+xx[12]-xx[0] && mb+mnobib>xx[9]+xx[1]/2 && mb+mnobib<xx[9]+xx[1]*3/2 && md>=-100){
              if (actaon[2]!=1){md=-600;mb-=810;}
              if (actaon[2]==1){mb-=400;md=-1400;mjumptm=10;}
              }}
              */


              if (sracttype[t]==2 || sracttype[t]==4){
                if (srmuki[t]==0)sra[t]-=srsok[t];
                if (srmuki[t]==1)sra[t]+=srsok[t];
              }
              if (sracttype[t]==3 || sracttype[t]==5){
                if (srmuki[t]==0)srb[t]-=srsok[t];
                if (srmuki[t]==1)srb[t]+=srsok[t];
              }






              //敵キャラ適用
              for (tt=0;tt<amax;tt++){
                if (azimentype[tt]==1){
                  if (aa[tt]+anobia[tt]-fx>xx[8]+xx[0] && aa[tt]-fx<xx[8]+xx[12]-xx[0] && ab[tt]+anobib[tt]>xx[11]-100 && ab[tt]+anobib[tt]<xx[11]+xx[1]+500 && ad[tt]>=-100){
                    ab[tt]=xx[9]-anobib[tt]+100;ad[tt]=0;axzimen[tt]=1;
                  }}}


            }}//リフト



















            //グラ
            for (t=0;t<emax;t++){
              xx[0]=ea[t]-fx;xx[1]=eb[t]-fy;
              xx[2]=enobia[t]/100;xx[3]=enobib[t]/100;
              if (etm[t]>=0)etm[t]--;
              if (xx[0]+xx[2]*100>=-10 && xx[1]<=fxmax && xx[1]+xx[3]*100>=-10-8000 && xx[3]<=fymax && etm[t]>=0){
                ea[t]+=ec[t];eb[t]+=ed[t];
                ec[t]+=ee[t];ed[t]+=ef[t];

              }else{ea[t]=-9000000;}

            }//emax






            //敵キャラの配置
            for (t=0;t<bmax;t++){
              if (ba[t]>=-80000){

                if (btm[t]>=0){btm[t]=btm[t]-1;}

                for (tt=0;tt<=1;tt++){
                  xx[0]=0;xx[1]=0;


                  if (bz[t]==0 && btm[t]<0 && ba[t]-fx>=fxmax+2000 && ba[t]-fx<fxmax+2000+mc && tt==0){xx[0]=1;amuki[aco]=0;}// && mmuki==1
                  if (bz[t]==0 && btm[t]<0 && ba[t]-fx>=-400-anx[btype[t]]+mc && ba[t]-fx<-400-anx[btype[t]] && tt==1){xx[0]=1;xx[1]=1;amuki[aco]=1;}// && mmuki==0
                  if (bz[t]==1 && ba[t]-fx>=0-anx[btype[t]] && ba[t]-fx<=fxmax+4000 && bb[t]-fy>=-9000 && bb[t]-fy<=fymax+4000 && btm[t]<0){xx[0]=1;bz[t]=0;}// && xza<=5000// && tyuukan!=1
                  //if (bz[t]==2){xx[0]=0;xx[1]=0;}
                  //if (btype[t]>=100){bz[t]=2;}

                  if (xx[0]==1){//400
                    btm[t]=401;xx[0]=0;//if (btype[t]>=20 && btype[t]<=23){btm[t]=90000;}
                    if (btype[t]>=10){btm[t]=9999999;}


                    //10
                    ayobi(ba[t],bb[t],0,0,0,btype[t],bxtype[t]);

                  }

                }//tt

              }}//t





            //敵キャラ
            for (t=0;t<amax;t++){
              xx[0]=aa[t]-fx;xx[1]=ab[t]-fy;
              xx[2]=anobia[t];xx[3]=anobib[t];xx[14]=12000*1;
              if (anotm[t]>=0)anotm[t]--;
              if (xx[0]+xx[2]>=-xx[14] && xx[0]<=fxmax+xx[14] && xx[1]+xx[3]>=-10-9000 && xx[1]<=fymax+20000){
                aacta[t]=0;aactb[t]=0;

                xx[10]=0;

                switch(atype[t]){
                  case 0:
                    xx[10]=100;
                    break;

                    //こうらの敵
                  case 1:
                    xx[10]=100;
                    break;

                    //こうら
                  case 2:
                    xx[10]=0;xx[17]=800;
                    if (axtype[t]>=1)xx[10]=xx[17];
                    //if (axtype[t]==1)xx[10]=xx[17];
                    //if (axtype[t]==2)xx[10]=-xx[17];
                    //他の敵を倒す
                    if (axtype[t]>=1){
                      for (tt=0;tt<amax;tt++){
                        xx[0]=250;xx[5]=-800;xx[12]=0;xx[1]=1600;
                        xx[8]=aa[tt]-fx;xx[9]=ab[tt]-fy;
                        if (t!=tt){
                          if (aa[t]+anobia[t]-fx>xx[8]+xx[0]*2 && aa[t]-fx<xx[8]+anobia[tt]-xx[0]*2 && ab[t]+anobib[t]-fy>xx[9]+xx[5] && ab[t]+anobib[t]-fy<xx[9]+xx[1]*3+xx[12]+1500){
                            aa[tt]=-800000;ot(oto[6]);
                          }}}
                    }

                    break;

                    //あらまき
                  case 3:
                    azimentype[t]=0;//end();
                    if (axtype[t]==0){
                      ab[t]-=800;
                    }
                    if (axtype[t]==1)
                      ab[t]+=1200;

                    //xx[10]=100;
                    break;

                    //スーパージエン
                  case 4:
                    xx[10]=120;
                    xx[0]=250;
                    xx[8]=aa[t]-fx;
                    xx[9]=ab[t]-fy;
                    if (atm[t]>=0)atm[t]--;
                    if (abs(ma+mnobia-xx[8]-xx[0]*2) < 9000 &&
                        abs(ma<xx[8]-anobia[t]+xx[0]*2) < 3000 &&
                        md<=-600 && atm[t]<=0){
                      if (axtype[t]==1 && mzimen==0 && axzimen[t]==1){
                        ad[t]=-1600;atm[t]=40;ab[t]-=1000;
                      }
                    }// 
                    break;

                    //クマー
                  case 5:
                    xx[10]=160;
                    //azimentype[t]=2;
                    break;

                    //デフラグさん
                  case 6:
                    if (azimentype[t]==30){ad[t]=-1600;ab[t]+=ad[t];}

                    xx[10]=120;
                    if (atm[t]>=10){
                      atm[t]++;
                      if (mhp>=1){
                        if (atm[t]<=19){ma=xx[0];mb=xx[1]-3000;mtype=0;}
                        xx[10]=0;
                        if (atm[t]==20){mc=700;mkeytm=24;md=-1200;mb=xx[1]-1000-3000;amuki[t]=1;if (axtype[t]==1){mc=840;axtype[t]=0;}}
                        if (atm[t]==40){amuki[t]=0;atm[t]=0;}
                      }}

                      //ポール捨て
                      if (axtype[t]==1){
                        for (tt=0;tt<smax;tt++){
                          if (stype[tt]==300){
                            //sa[sco]=xx[21]*100;sb[sco]=xx[22]*100;sc[sco]=3000;sd[sco]=(12-t)*3000;stype[sco]=300;sco++;
                            if (aa[t]-fx>=-8000 && aa[t]>=sa[tt]+2000 && aa[t]<=sa[tt]+3600 && axzimen[t]==1){sa[tt]=-800000;atm[t]=100;}
                          }}

                        if (atm[t]==100){
                          eyobi(aa[t]+1200-1200,ab[t]+3000-10*3000-1500,0,0,0,0,1000,10*3000-1200,4,20);
                          if (mtype==300){mtype=0;StopSoundMem(oto[11]);bgmchange(oto[100]);PlaySoundMem(oto[0],DX_PLAYTYPE_LOOP);}
                          for (t1=0;t1<smax;t1++){if (stype[t1]==104)sa[t1]=-80000000;}
                        }
                        if (atm[t]==120){eyobi(aa[t]+1200-1200,ab[t]+3000-10*3000-1500,600,-1200,0,160,1000,10*3000-1200,4,240);amuki[t]=1;}
                        //mc=700;mkeytm=24;md=-1200;mb=xx[1]-1000-3000;amuki[t]=1;if (axtype[t]==1){mc=840;axtype[t]=0;}}
                        if (atm[t]==140){amuki[t]=0;atm[t]=0;}
                }
                if (atm[t]>=220){atm[t]=0;amuki[t]=0;}

                //他の敵を投げる
                for (tt=0;tt<amax;tt++){
                  xx[0]=250;xx[5]=-800;xx[12]=0;xx[1]=1600;
                  xx[8]=aa[tt]-fx;xx[9]=ab[tt]-fy;
                  if (t!=tt && atype[tt]>=100){
                    if (aa[t]+anobia[t]-fx>xx[8]+xx[0]*2 && aa[t]-fx<xx[8]+anobia[tt]-xx[0]*2 && ab[t]+anobib[t]-fy>xx[9]+xx[5] && ab[t]+anobib[t]-fy<xx[9]+xx[1]*3+xx[12]+1500){
                      //aa[tt]=-800000;
                      amuki[tt]=1;aa[tt]=aa[t]+300;ab[tt]=ab[t]-3000;abrocktm[tt]=120;//aa[tt]=0;
                      atm[t]=200;amuki[t]=1;
                    }}}

                  break;

                  //ジエン大砲
                case 7:
                  azimentype[t]=0;
                  xx[10]=0;xx[11]=400;
                  if (axtype[t]==0)xx[10]=xx[11];
                  if (axtype[t]==1)xx[10]=-xx[11];
                  if (axtype[t]==2)ab[t]-=xx[11];
                  if (axtype[t]==3)ab[t]+=xx[11];
                  break;

                  //スーパーブーン
                case 8:
                  azimentype[t]=0;
                  xx[22]=20;
                  if (atm[t]==0){af[t]+=xx[22];ad[t]+=xx[22];}
                  if (atm[t]==1){af[t]-=xx[22];ad[t]-=xx[22];}
                  if (ad[t]>300)ad[t]=300;
                  if (ad[t]<-300)ad[t]=-300;
                  if (af[t]>=1200)atm[t]=1;
                  if (af[t]<-0)atm[t]=0;
                  ab[t]+=ad[t];
                  //atype[t]=151;
                  break;
                  //ノーマルブーン
                case 151:
                  azimentype[t]=2;
                  break;

                  //ファイアー玉
                case 9:
                  azimentype[t]=5;
                  ab[t]+=ad[t];ad[t]+=100;
                  if (ab[t]>=fymax+1000){ad[t]=900;}
                  if (ab[t]>=fymax+12000){
                    ab[t]=fymax;ad[t]=-2600;
                  }
                  break;

                  //ファイアー
                case 10:
                  azimentype[t]=0;
                  xx[10]=0;xx[11]=400;
                  if (axtype[t]==0)xx[10]=xx[11];
                  if (axtype[t]==1)xx[10]=-xx[11];
                  break;


                  //モララー
                case 30:
                  atm[t]+=1;
                  if (axtype[t]==0){
                    if (atm[t]==50 && mb>=6000){ac[t]=300;ad[t]-=1600;ab[t]-=1000;}

                    for (tt=0;tt<amax;tt++){
                      xx[0]=250;xx[5]=-800;xx[12]=0;xx[1]=1600;
                      xx[8]=aa[tt]-fx;xx[9]=ab[tt]-fy;
                      if (t!=tt && atype[tt]==102){
                        if (aa[t]+anobia[t]-fx>xx[8]+xx[0]*2 && aa[t]-fx<xx[8]+anobia[tt]-xx[0]*2 && ab[t]+anobib[t]-fy>xx[9]+xx[5] && ab[t]+anobib[t]-fy<xx[9]+xx[1]*3+xx[12]+1500){
                          aa[tt]=-800000;axtype[t]=1;ad[t]=-1600;
                          amsgtm[t]=30;amsgtype[t]=25;
                        }}}
                  }
                  if (axtype[t]==1){
                    azimentype[t]=0;
                    ab[t]+=ad[t];ad[t]+=120;
                  }
                  break;

                  //レーザー
                case 79:
                  azimentype[t]=0;
                  xx[10]=1600;
                  if (axtype[t]==1){xx[10]=1200;ab[t]-=200;}
                  if (axtype[t]==2){xx[10]=1200;ab[t]+=200;}
                  if (axtype[t]==3){xx[10]=900;ab[t]-=600;}
                  if (axtype[t]==4){xx[10]=900;ab[t]+=600;}
                  break;

                  //雲の敵
                case 80:
                  azimentype[t]=0;
                  //xx[10]=100;
                  break;
                case 81:
                  azimentype[t]=0;
                  break;
                case 82:
                  azimentype[t]=0;
                  break;
                case 83:
                  azimentype[t]=0;
                  break;

                case 84:
                  azimentype[t]=2;
                  break;

                case 85:
                  xx[23]=400;
                  if (axtype[t]==0){axtype[t]=1;amuki[t]=1;}
                  if (mb>=30000 && ma>=aa[t]-3000*5-fx && ma<=aa[t]-fx && axtype[t]==1){axtype[t]=5;amuki[t]=0;}
                  if (mb>=24000 && ma<=aa[t]+3000*8-fx && ma>=aa[t]-fx && axtype[t]==1){axtype[t]=5;amuki[t]=1;}
                  if (axtype[t]==5)xx[10]=xx[23];
                  break;

                case 86:
                  azimentype[t]=4;
                  xx[23]=1000;
                  if (ma>=aa[t]-fx-mnobia-xx[26] && ma<=aa[t]-fx+anobia[t]+xx[26]){atm[t]=1;}
                  if (atm[t]==1){ab[t]+=1200;}
                  break;

                  //ファイアバー
                case 87:
                  azimentype[t]=0;
                  if (aa[t]%10!=1)atm[t]+=6;
                  else{atm[t]-=6;}
                  xx[25]=2;
                  if (atm[t]>360*xx[25])atm[t]-=360*xx[25];
                  if (atm[t]<0)atm[t]+=360*xx[25];

                  for (tt=0;tt<=axtype[t]%100;tt++){
                    xx[26]=18;
                    xd[4]=tt*xx[26]*cos(atm[t]*pai/180/2);xd[5]=tt*xx[26]*sin(atm[t]*pai/180/2);

                    xx[4]=1800;xx[5]=800;
                    xx[8]=aa[t]-fx+int(xd[4])*100-xx[4]/2;xx[9]=ab[t]-fy+int(xd[5])*100-xx[4]/2;

                    if (ma+mnobia>xx[8]+xx[5] && ma<xx[8]+xx[4]-xx[5] && mb+mnobib>xx[9]+xx[5] && mb<xx[9]+xx[4]-xx[5]){
                      mhp-=1;
                      mmsgtype=51;mmsgtm=30;
                    }
                  }

                  break;

                case 88:
                  azimentype[t]=0;
                  if (aa[t]%10!=1)atm[t]+=6;
                  else{atm[t]-=6;}
                  xx[25]=2;
                  if (atm[t]>360*xx[25])atm[t]-=360*xx[25];
                  if (atm[t]<0)atm[t]+=360*xx[25];

                  for (tt=0;tt<=axtype[t]%100;tt++){
                    xx[26]=18;
                    xd[4]=-tt*xx[26]*cos(atm[t]*pai/180/2);
                    xd[5]=tt*xx[26]*sin(atm[t]*pai/180/2);

                    xx[4]=1800;
                    xx[5]=800;
                    xx[8]=aa[t]-fx+int(xd[4])*100-xx[4]/2;
                    xx[9]=ab[t]-fy+int(xd[5])*100-xx[4]/2;

                    if (ma+mnobia>xx[8]+xx[5] && ma<xx[8]+xx[4]-xx[5] && mb+mnobib>xx[9]+xx[5] && mb<xx[9]+xx[4]-xx[5]){
                      mhp-=1;
                      mmsgtype=51;mmsgtm=30;
                    }
                  }

                  break;


                case 90:
                  xx[10]=160;
                  //azimentype[t]=0;
                  break;


                  //おいしいキノコ
                case 100:
                  azimentype[t]=1;
                  xx[10]=100;

                  //ほかの敵を巨大化
                  if (axtype[t]==2){
                    for (tt=0;tt<amax;tt++){
                      xx[0]=250;xx[5]=-800;xx[12]=0;xx[1]=1600;
                      xx[8]=aa[tt]-fx;xx[9]=ab[tt]-fy;
                      if (t!=tt){
                        if (aa[t]+anobia[t]-fx>xx[8]+xx[0]*2 && aa[t]-fx<xx[8]+anobia[tt]-xx[0]*2 && ab[t]+anobib[t]-fy>xx[9]+xx[5] && ab[t]+anobib[t]-fy<xx[9]+xx[1]*3+xx[12]){
                          if (atype[tt]==0 || atype[tt]==4){
                            atype[tt]=90;//ot(oto[6]);
                            anobia[tt]=6400;anobib[tt]=6300;axtype[tt]=0;
                            aa[tt]-=1050;ab[tt]-=1050;
                            ot(oto[9]);aa[t]=-80000000;
                          }
                        }}}}

                      break;

                      //毒キノコ
                case 102:
                      azimentype[t]=1;
                      xx[10]=100;
                      if (axtype[t]==1)xx[10]=200;
                      break;

                      //悪スター
                case 110:
                      azimentype[t]=1;
                      xx[10]=200;
                      if (axzimen[t]==1){
                        ab[t]-=1200;ad[t]=-1400;
                      }
                      break;


                case 200:
                      azimentype[t]=1;
                      xx[10]=100;
                      break;

                      /*
                         case 1:
                         xx[10]=180;
                         if (axtype[t]==2)xx[10]=0;
                         if (axzimen[t]==1){
                         ab[t]-=1000;ad[t]=-1200;
                         if (axtype[t]==1)ad[t]=-1600;
                         if (axtype[t]==2){
                         atm[t]+=1;
                         if (atm[t]>=2){atm[t]=0;ad[t]=-1600;}else{ad[t]=-1000;}
                         }
                         }

                         break;

                         case 2:
                         xx[10]=160;
                         if (axtype[t]==1)azimentype[t]=2;xx[10]=100;
                         if (axtype[t]==2)xx[10]=0;
                         break;

                         case 3:
                         xx[10]=180;
                         if (ae[t]==0)ad[t]+=10;
                         if (ae[t]==1)ad[t]-=10;
                         if (ad[t]>=100)ae[t]=1;
                         if (ad[t]<=-100)ae[t]=0;
                         ab[t]+=ad[t];//ad[t]+=

                         if (axtype[t]==1){
                         if (ab[t]<mb){ab[t]+=100;}
                         }
                         if (axtype[t]==2)xx[10]=0;
                         break;

                         case 4:
                         if (ae[t]==0)ad[t]+=8;
                         if (ae[t]==1)ad[t]-=8;
                         if (ad[t]>=80)ae[t]=1;
                         if (ad[t]<=-80)ae[t]=0;
                         ab[t]+=ad[t];

                      //sstr=""+atm[t];
                      if (axtype[t]>=1){
                      xx[22]=200;xx[21]=3600;

                      if (atm[t]==0){atm[t]=ab[t]%2+1;a2tm[t]=aa[t];if (axtype[t]%2==0)a2tm[t]=ab[t];}

                      if (axtype[t]%2==1){
                      if (aa[t]<a2tm[t]-xx[21]){atm[t]=2;}
                      if (aa[t]>a2tm[t]+xx[21]){atm[t]=1;}
                      if (atm[t]==1){aa[t]-=xx[22];amuki[t]=0;}
                      if (atm[t]==2){aa[t]+=xx[22];amuki[t]=1;}
                      }
                      if (axtype[t]%2==0){
                      if (ab[t]<a2tm[t]-xx[21]){atm[t]=2;}
                      if (ab[t]>a2tm[t]+xx[21]){atm[t]=1;}
                      if (atm[t]==1){ab[t]-=xx[22];}
                      if (atm[t]==2){ab[t]+=xx[22];}
                      }

                      }//axtype1

                      break;

                      case 5:
                      xx[10]=120;atm[t]++;
                      if (axtype[t]==2){xx[10]=200;azimentype[t]=2;}
                      if (ma+mnobia>=aa[t]-fx && ma<=aa[t]+anobia[t]-fx && mb+mnobib+1000<ab[t]-fy){
                      xx[10]=300;
                      if (axtype[t]>=1){
                      //xx[10]=240;
                      if (atm[t]>=16){amuki[t]+=1;if (amuki[t]>=2)amuki[t]=0;atm[t]=0;
                        //if (axtype[t]==2){ab[t]-=600;ad[t]=-900;}
                      }}
              }
              break;

                case 6:
              atm[t]+=1;xx[10]=0;
              if (axtype[t]==1)atm[t]+=(rand(9)-4);
              if (axtype[t]==2)xx[10]=100;
              if (atm[t]>=40){
                xx[22]=360;if (amuki[t]==0)xx[22]=-xx[22];
                cyobi(aa[t]+amuki[t]*anobia[t],ab[t]+1600,xx[22],0,0,0,0,60);
                atm[t]=0;
              }

              if (axtype[t]!=2){
                if (ma+mnobia/2<=aa[t]+anobia[t]/2-fx){amuki[t]=0;}else{amuki[t]=1;}
              }
              break;


                case 7:
              xx[10]=160;
              if (axtype[t]==1)xx[10]=240;
              if (axtype[t]==2)xx[10]=60;
              break;

                case 8:
              atm[t]+=1;xx[10]=0;
              xx[15]=12;xx[17]=0;
              if (axtype[t]==1)xx[15]=8;
              if (axtype[t]==2){xx[15]=40;xx[17]=3;}

              if (atm[t]>=xx[15]){
                for (t3=0;t3<=xx[17];t3++){
                  xx[16]=300;xx[22]=rand(xx[16])*5/4-xx[16]/4;
                  a2tm[t]+=1;if (a2tm[t]>=1){xx[22]=-xx[22];a2tm[t]=-1;}
                  cyobi(aa[t]+amuki[t]*anobia[t]/2,ab[t]+600,xx[22],-400-rand(600),0,80,1,60);
                  //if ((xx[16]==0) || t3==xx[16])atm[t]=0;
                }//t
                atm[t]=0;
              }

              break;


              */


              }//sw


              if (abrocktm[t]>=1)xx[10]=0;



              if (amuki[t]==0)aacta[t]-=xx[10];
              if (amuki[t]==1)aacta[t]+=xx[10];



              //最大値
              xx[0]=850;xx[1]=1200;

              //if (mc>xx[0]){mc=xx[0];}
              //if (mc<-xx[0]){mc=-xx[0];}
              if (ad[t]>xx[1] && azimentype[t]!=5){ad[t]=xx[1];}


              //行動
              aa[t]+=aacta[t];//ab[t]+=aactb[t];






              if ((azimentype[t]>=1 || azimentype[t]==-1) && abrocktm[t]<=0){
                //if (atype[t]==4)end();

                //移動
                aa[t]+=ac[t];
                if (azimentype[t]>=1 && azimentype[t]<=3){ab[t]+=ad[t];ad[t]+=120;}//ad[t]+=180;


                if (axzimen[t]==1){
                  xx[0]=100;
                  if (ac[t]>=200){ac[t]-=xx[0];}
                  else if (ac[t]<=-200){ac[t]+=xx[0];}
                  else {ac[t]=0;}
                }

                axzimen[t]=0;




                //地面判定
                if (azimentype[t]!=2){
                  tekizimen();
                }



              }//azimentype[t]>=1

              //ブロックから出現するさい
              if (abrocktm[t]>0){
                abrocktm[t]--;
                if (abrocktm[t]<100){ab[t]-=180;}
                if (abrocktm[t]>100){}
                if (abrocktm[t]==100){ab[t]-=800;ad[t]=-1200;ac[t]=700;abrocktm[t]=0;}
              }//abrocktm[t]>0





              //プレイヤーからの判定
              xx[0]=250;xx[1]=1600;xx[2]=1000;
              xx[4]=500;xx[5]=-800;

              xx[8]=aa[t]-fx;xx[9]=ab[t]-fy;
              xx[12]=0;if (md>=100)xx[12]=md;
              xx[25]=0;

              if (ma+mnobia>xx[8]+xx[0]*2 && ma<xx[8]+anobia[t]-xx[0]*2 && mb+mnobib>xx[9]-xx[5] && mb+mnobib<xx[9]+xx[1]+xx[12] && (mmutekitm<=0 || md>=100) && abrocktm[t]<=0){
                if (atype[t]!=4 && atype[t]!=9 && atype[t]!=10 && (atype[t]<=78 || atype[t]==85) && mzimen!=1 && mtype!=200){// && atype[t]!=4 && atype[t]!=7){

                  if (atype[t]==0){
                    if (axtype[t]==0)
                      aa[t]=-900000;
                    if (axtype[t]==1){ot(oto[5]);
                      mb=xx[9]-900-anobib[t];md=-2100;xx[25]=1;actaon[2]=0;
                    }
                  }

                  if (atype[t]==1){
                    atype[t]=2;anobib[t]=3000;axtype[t]=0;
                  }

                  //こうら
                  else if (atype[t]==2 && md>=0){
                    if (axtype[t]==1 || axtype[t]==2){axtype[t]=0;}
                    else if (axtype[t]==0){
                      if (ma+mnobia>xx[8]+xx[0]*2 && ma<xx[8]+anobia[t]/2-xx[0]*4){
                        axtype[t]=1;amuki[t]=1;
                      }else{axtype[t]=1;amuki[t]=0;}}
                  }
                  if (atype[t]==3){
                    xx[25]=1;
                  }

                  if (atype[t]==6){
                    atm[t]=10;md=0;actaon[2]=0;
                  }

                  if (atype[t]==7){
                    aa[t]=-900000;
                  }

                  if (atype[t]==8){
                    atype[t]=151;ad[t]=0;
                  }

                  //if (atype[t]==4){
                  //xx[25]=1;
                  //}

                  if (atype[t]!=85){
                    if (xx[25]==0){ot(oto[5]);mb=xx[9]-1000-anobib[t];md=-1000;}
                  }
                  if (atype[t]==85){
                    if (xx[25]==0){ot(oto[5]);mb=xx[9]-4000;md=-1000;axtype[t]=5;}
                  }

                  if (actaon[2]==1){md=-1600;actaon[2]=0;}
                }
                //if (atype[t]==200){mb=xx[9]-900-anobib[t];md=-2400;}
                }

                //if (aa[t]+anobia[t]-fx>xx[8]-xx[0] && aa[t]-fx<xx[8]){md=-1000;}//aa[t]=-9000000;
                // && ab[t]-fy<xx[9]+xx[1]/2 && ab[t]+anobib[t]-fy>xx[9]+mnobib-xx[2]

                xx[15]=-500;


                //プレイヤーに触れた時
                xx[16]=0;
                if (atype[t]==4 || atype[t]==9 || atype[t]==10)xx[16]=-3000;
                if (atype[t]==82 || atype[t]==83 || atype[t]==84)xx[16]=-3200;
                if (atype[t]==85)xx[16]=-anobib[t]+6000;
                if (ma+mnobia>xx[8]+xx[4] && ma<xx[8]+anobia[t]-xx[4] && mb<xx[9]+anobib[t]+xx[15] && mb+mnobib>xx[9]+anobib[t]-xx[0]+xx[16] && anotm[t]<=0 && abrocktm[t]<=0){
                  if (mmutekion==1){aa[t]=-9000000;}
                  if (mmutekitm<=0 && (atype[t]<=99 || atype[t]>=200)){
                    if (mmutekion!=1 && mtype!=200){
                      //if (mmutekitm<=0)

                      //ダメージ
                      if ((atype[t]!=2 || axtype[t]!=0) && mhp>=1){
                        if (atype[t]!=6){
                          mhp-=1;
                          //mmutekitm=40;
                        }}



                      if (atype[t]==6){
                        atm[t]=10;
                      }


                      //せりふ
                      if (mhp==0){

                        if (atype[t]==0 || atype[t]==7){
                          amsgtm[t]=60;amsgtype[t]=rand(7)+1+1000+(stb-1)*10;
                        }

                        if (atype[t]==1){
                          amsgtm[t]=60;amsgtype[t]=rand(2)+15;
                        }

                        if (atype[t]==2 && axtype[t]>=1 && mmutekitm<=0){
                          amsgtm[t]=60;amsgtype[t]=18;
                        }

                        if (atype[t]==3){
                          amsgtm[t]=60;amsgtype[t]=20;
                        }

                        if (atype[t]==4){
                          amsgtm[t]=60;amsgtype[t]=rand(7)+1+1000+(stb-1)*10;
                        }

                        if (atype[t]==5){
                          amsgtm[t]=60;amsgtype[t]=21;
                        }

                        if (atype[t]==9 || atype[t]==10){
                          mmsgtm=30;mmsgtype=54;
                        }



                        if (atype[t]==31){
                          amsgtm[t]=30;amsgtype[t]=24;
                        }


                        if (atype[t]==80 || atype[t]==81){
                          amsgtm[t]=60;amsgtype[t]=30;
                        }

                        if (atype[t]==82){
                          amsgtm[t]=20;amsgtype[t]=rand(1)+31;
                          xx[24]=900;atype[t]=83;aa[t]-=xx[24]+100;ab[t]-=xx[24]-100*0;
                        }//82

                        if (atype[t]==84){
                          mmsgtm=30;mmsgtype=50;
                        }

                        if (atype[t]==85){
                          amsgtm[t]=60;amsgtype[t]=rand(1)+85;
                        }


                        //雲
                        if (atype[t]==80){
                          atype[t]=81;
                        }


                      }//mhp==0


                      //こうら
                      if (atype[t]==2){
                        //if (axtype[t]==1 || axtype[t]==2){axtype[t]=0;}
                        if (axtype[t]==0){
                          if (ma+mnobia>xx[8]+xx[0]*2 && ma<xx[8]+anobia[t]/2-xx[0]*4){
                            axtype[t]=1;amuki[t]=1;aa[t]=ma+mnobia+fx+mc;mmutekitm=5;
                          }else{
                            axtype[t]=1;amuki[t]=0;aa[t]=ma-anobia[t]+fx-mc;mmutekitm=5;
                          }}else{mhp-=1;}//mmutekitm=40;}
                    }


                  }}
                  //else if (mmutekitm>=0 && mmutekitm<=2){mmutekitm+=1;}
                  //アイテム
                  if (atype[t]>=100 && atype[t]<=199){

                    if (atype[t]==100 && axtype[t]==0){mmsgtm=30;mmsgtype=1;ot(oto[9]);}
                    if (atype[t]==100 && axtype[t]==1){mmsgtm=30;mmsgtype=2;ot(oto[9]);}
                    if (atype[t]==100 && axtype[t]==2){mnobia=5200;mnobib=7300;ot(oto[9]);ma-=1100;mb-=4000;mtype=1;mhp=50000000;}

                    if (atype[t]==101){mhp-=1;mmsgtm=30;mmsgtype=11;}
                    if (atype[t]==102){mhp-=1;mmsgtm=30;mmsgtype=10;}


                    //?ボール
                    if (atype[t]==105){
                      if (axtype[t]==0){
                        ot(oto[4]);sgtype[26]=6;
                      }
                      if (axtype[t]==1){
                        txtype[7]=80;
                        ot(oto[4]);

                        //ayobi(aa[t]-6*3000+1000,-3*3000,0,0,0,110,0);
                        ayobi(aa[t]-8*3000-1000,-4*3000,0,0,0,110,0);
                        ayobi(aa[t]-10*3000+1000,-1*3000,0,0,0,110,0);

                        ayobi(aa[t]+4*3000+1000,-2*3000,0,0,0,110,0);
                        ayobi(aa[t]+5*3000-1000,-3*3000,0,0,0,110,0);
                        ayobi(aa[t]+6*3000+1000,-4*3000,0,0,0,110,0);
                        ayobi(aa[t]+7*3000-1000,-2*3000,0,0,0,110,0);
                        ayobi(aa[t]+8*3000+1000,-2*3000-1000,0,0,0,110,0);
                        tb[0]+=3000*3;
                      }
                    }//105



                    if (atype[t]==110){mhp-=1;mmsgtm=30;mmsgtype=3;}

                    /*
                       if (atype[t]==101){mmutekitm=120;mmutekion=1;}
                       if (atype[t]==102){mhp-=1;mmutekitm=20;}
                       if (atype[t]==103){
                    //xx[24]=2400;
                    eyobi(aa[t]-500,ab[t],0,-600,0,80,2500,1600,2,32);
                    }
                    if (atype[t]==104){mztm=120;mztype=1;}
                    if (atype[t]==105){mztm=160;mztype=2;}

                    if (atype[t]==120){mtype=3;mnobia=3800;mnobib=2300;}


                    if (atype[t]==130){msoubi=1;}
                    if (atype[t]==131){msoubi=2;}
                    if (atype[t]==132){msoubi=3;}
                    if (atype[t]==133){msoubi=4;}

*/
                    aa[t]=-90000000;
                  }

              }//(ma






            }
        else{aa[t]=-9000000;}

      }//t







      //スクロール
      //xx[0]=xx[0];
      //x
      if (kscroll!=1 && kscroll!=2){
        xx[2]=mascrollmax;xx[3]=0;
        xx[1]=xx[2];if (ma>xx[1] && fzx<scrollx){xx[5]=ma-xx[1];ma=xx[1];fx+=xx[5];fzx+=xx[5];if (xx[1]<=5000)xx[3]=1;}
        //if (kscroll!=5){//戻りなし
        //xx[1]=xx[2]-500;if (ma<xx[1] && fzx>700){xx[5]=xx[1]-ma;ma=xx[1];fx-=xx[5];fzx-=xx[5];}
        //}
        //if (xx[3]==1){if (tyuukan==1)tyuukan=1;}
      }//kscroll





      }//if (main==1){


      //スタッフロール
      if (main==2){
        maintm++;

        xx[7]=46;
        if (CheckHitKey(KEY_INPUT_1)==1){end();}
        if (CheckHitKey(KEY_INPUT_SPACE)==1){for (t=0;t<=xx[7];t+=1){xx[12+t]-=300;}}

        if (maintm<=1){
          maintm=2;bgmchange(oto[106]);PlaySoundMem(oto[0],DX_PLAYTYPE_LOOP);xx[10]=0;
          for (t=0;t<=xx[7];t+=1){xx[12+t]=980000;}
          //for (t=0;t<=xx[7];t+=2){xx[12+t]=46000;}
          xx[12]=460;
          xx[13]=540;xx[14]=590;
          xx[15]=650;xx[16]=700;
          xx[17]=760;xx[18]=810;
          xx[19]=870;xx[20]=920;

          xx[21]=1000;xx[22]=1050;xx[23]=1100;
          xx[24]=1180;xx[25]=1230;

          xx[26]=1360;xx[27]=1410;
          xx[28]=1540;xx[29]=1590;

          xx[30]=1800;

          for (t=0;t<=xx[7];t+=1){xx[12+t]*=100;}
        }

        xx[10]+=1;
        for (t=0;t<=xx[7];t+=1){xx[12+t]-=100;}//t

        if (xx[30]==-200){bgmchange(oto[106]);}
        if (xx[30]<=-400){main=100;nokori=2;maintm=0;ending=0;}

      }//main==2


      if (main==10){
        maintm++;

        if (fast==1)maintm+=2;
        if (maintm>=30){maintm=0;main=1;zxon=0;}
      }//if (main==10){


      //タイトル
      if (main==100){
        maintm++;xx[0]=0;
        if (maintm<=10){maintm=11;sta=1;stb=1;stc=0;over=0;}

        if (CheckHitKey(KEY_INPUT_1)==1){sta=1;stb=1;stc=0;}
        if (CheckHitKey(KEY_INPUT_2)==1){sta=1;stb=2;stc=0;}
        if (CheckHitKey(KEY_INPUT_3)==1){sta=1;stb=3;stc=0;}
        if (CheckHitKey(KEY_INPUT_4)==1){sta=1;stb=4;stc=0;}
        if (CheckHitKey(KEY_INPUT_5)==1){sta=2;stb=1;stc=0;}
        if (CheckHitKey(KEY_INPUT_6)==1){sta=2;stb=2;stc=0;}
        if (CheckHitKey(KEY_INPUT_7)==1){sta=2;stb=3;stc=0;}
        if (CheckHitKey(KEY_INPUT_8)==1){sta=2;stb=4;stc=0;}
        //if (CheckHitKey(KEY_INPUT_9)==1){sta=3;stb=1;stc=0;}
        if (CheckHitKey(KEY_INPUT_0)==1){xx[0]=1;over=1;}


        //if (CheckHitKeyAll() == 0){end();}
        if (CheckHitKey(KEY_INPUT_RETURN)==1){xx[0]=1;}
        //if (CheckHitKey(KEY_INPUT_SPACE)==1){xx[0]=1;}
        if (CheckHitKey(KEY_INPUT_Z)==1){xx[0]=1;}

        if (xx[0]==1){
          main=10;zxon=0;maintm=0;
          nokori=2;

          fast=0;trap=0;tyuukan=0;
        }

      }//100



      //描画
      rpaint();


      //30-fps
      xx[0]=30;
      if (CheckHitKey(KEY_INPUT_SPACE)==1){xx[0]=60;}
      wait2(stime,long(GetNowCount()),1000/xx[0]);
      //wait(20);

      }//Mainprogram()


      void tekizimen(){

        //壁
        for (tt=0;tt<smax;tt++){
          if (sa[tt]-fx+sc[tt]>=-12010 && sa[tt]-fx<=fxmax+12100 && stype[tt]<=99){
            xx[0]=200;xx[2]=1000;
            xx[1]=2000;//anobia[t]

            xx[8]=sa[tt]-fx;xx[9]=sb[tt]-fy;
            if (aa[t]+anobia[t]-fx>xx[8]-xx[0] && aa[t]-fx<xx[8]+xx[2] && ab[t]+anobib[t]-fy>xx[9]+xx[1]*3/4 && ab[t]-fy<xx[9]+sd[tt]-xx[2]){aa[t]=xx[8]-xx[0]-anobia[t]+fx;amuki[t]=0;}
            if (aa[t]+anobia[t]-fx>xx[8]+sc[tt]-xx[0] && aa[t]-fx<xx[8]+sc[tt]+xx[0] && ab[t]+anobib[t]-fy>xx[9]+xx[1]*3/4 && ab[t]-fy<xx[9]+sd[tt]-xx[2]){aa[t]=xx[8]+sc[tt]+xx[0]+fx;amuki[t]=1;}

            //if (aa[t]+anobia[t]-fx>xx[8]+xx[0] && aa[t]-fx<xx[8]+sc[tt]-xx[0] && ab[t]+anobib[t]-fy>xx[9] && ab[t]+anobib[t]-fy<xx[9]+xx[1] && ad[t]>=-100){ab[t]=sb[tt]-fy-anobib[t]+100+fy;ad[t]=0;}//mzimen=1;}
            if (aa[t]+anobia[t]-fx>xx[8]+xx[0] && aa[t]-fx<xx[8]+sc[tt]-xx[0] && ab[t]+anobib[t]-fy>xx[9] && ab[t]+anobib[t]-fy<xx[9]+sd[tt]-xx[1] && ad[t]>=-100){ab[t]=sb[tt]-fy-anobib[t]+100+fy;ad[t]=0;axzimen[t]=1;}

            if (aa[t]+anobia[t]-fx>xx[8]+xx[0] && aa[t]-fx<xx[8]+sc[tt]-xx[0] && ab[t]-fy>xx[9]+sd[tt]-xx[1] && ab[t]-fy<xx[9]+sd[tt]+xx[0]){
              ab[t]=xx[9]+sd[tt]+xx[0]+fy;if (ad[t]<0){ad[t]=-ad[t]*2/3;}//axzimen[t]=1;
            }

        }}






      //ブロック
      for (tt=0;tt<tmax;tt++){
        xx[0]=200;xx[1]=3000;xx[2]=1000;
        xx[8]=ta[tt]-fx;xx[9]=tb[tt]-fy;
        if (ta[tt]-fx+xx[1]>=-12010 && ta[tt]-fx<=fxmax+12000){
          if (atype[t]!=86 && atype[t]!=90 && ttype[tt]!=140){

            //上
            if (ttype[tt]!=7){
              //if (ttype[tt]==117 && txtype[t]==1){ad[t]=-1500;}
              if (!(ttype[tt]==117)){
                //if (!(ttype[tt]==120 && txtype[t]==0)){
                if (aa[t]+anobia[t]-fx>xx[8]+xx[0] && aa[t]-fx<xx[8]+xx[1]-xx[0]*1 && ab[t]+anobib[t]-fy>xx[9] && ab[t]+anobib[t]-fy<xx[9]+xx[1] && ad[t]>=-100){
                  ab[t]=xx[9]-anobib[t]+100+fy;ad[t]=0;axzimen[t]=1;
                  //ジャンプ台
                  if (ttype[tt]==120){ad[t]=-1600;azimentype[t]=30;}
                  //}

              }
              }}


            //下
            if (ttype[tt]!=117){
              if (aa[t]+anobia[t]-fx>xx[8]+xx[0] && aa[t]-fx<xx[8]+xx[1]-xx[0]*1 && ab[t]-fy>xx[9]+xx[1]-xx[1] && ab[t]-fy<xx[9]+xx[1]+xx[0]){
                ab[t]=xx[9]+xx[1]+xx[0]+fy;if (ad[t]<0){ad[t]=0;}//=-ad[t]*2/3;}
              //if (ttype[t]==7){
              //for (t2=0;t2<tmax;t2++){if (ttype[t2]==5){ttype[t2]=6;}else if (ttype[t2]==6){ttype[t2]=5;}}
              //}
            }}

            //左右
            xx[27]=0;
            if ((atype[t]>=100 || (ttype[tt]!=7 || ttype[tt]==7 && atype[t]==2)) && ttype[tt]!=117){
              if (aa[t]+anobia[t]-fx>xx[8] && aa[t]-fx<xx[8]+xx[2] && ab[t]+anobib[t]-fy>xx[9]+xx[1]/2-xx[0] && ab[t]-fy<xx[9]+xx[2]){aa[t]=xx[8]-anobia[t]+fx;ac[t]=0;amuki[t]=0;xx[27]=1;}
              if (aa[t]+anobia[t]-fx>xx[8]+xx[1]-xx[0]*2 && aa[t]-fx<xx[8]+xx[1] && ab[t]+anobib[t]-fy>xx[9]+xx[1]/2-xx[0] && ab[t]-fy<xx[9]+xx[2]){aa[t]=xx[8]+xx[1]+fx;ac[t]=0;amuki[t]=1;xx[27]=1;}
              //こうらブレイク
              if (xx[27]==1 && (ttype[tt]==7 || ttype[tt]==1) && atype[t]==2){
                if (ttype[tt]==7){
                  ot(oto[4]);ttype[tt]=3;
                  eyobi(ta[tt]+10,tb[tt],0,-800,0,40,3000,3000,0,16);
                }
                else if (ttype[tt]==1){
                  ot(oto[3]);
                  eyobi(ta[tt]+1200,tb[tt]+1200,300,-1000,0,160,1000,1000,1,120);
                  eyobi(ta[tt]+1200,tb[tt]+1200,-300,-1000,0,160,1000,1000,1,120);
                  eyobi(ta[tt]+1200,tb[tt]+1200,240,-1400,0,160,1000,1000,1,120);
                  eyobi(ta[tt]+1200,tb[tt]+1200,-240,-1400,0,160,1000,1000,1,120);
                  brockbreak(tt);
                }

              }
            }}
            if (atype[t]==86 || atype[t]==90){
              if (aa[t]+anobia[t]-fx>xx[8] && aa[t]-fx<xx[8]+xx[1] && ab[t]+anobib[t]-fy>xx[9] && ab[t]-fy<xx[9]+xx[1]){
                ot(oto[3]);
                eyobi(ta[tt]+1200,tb[tt]+1200,300,-1000,0,160,1000,1000,1,120);
                eyobi(ta[tt]+1200,tb[tt]+1200,-300,-1000,0,160,1000,1000,1,120);
                eyobi(ta[tt]+1200,tb[tt]+1200,240,-1400,0,160,1000,1000,1,120);
                eyobi(ta[tt]+1200,tb[tt]+1200,-240,-1400,0,160,1000,1000,1,120);
                brockbreak(tt);

              }
            }//90


      }
      //剣とってクリア
      if (ttype[tt]==140){
        if (ab[t]-fy>xx[9]-xx[0]*2-2000 && ab[t]-fy<xx[9]+xx[1]-xx[0]*2+2000 && aa[t]+anobia[t]-fx>xx[8]-400 && aa[t]-fx<xx[8]+xx[1]){
          ta[tt]=-800000;//ot(oto[4]);
          sracttype[20]=1;sron[20]=1;
        }}
      }//tt

      }//tekizimen



      //スリープ
      static void wait(int interval){
        WaitTimer(interval) ;
      }

      //タイマー測定
      static void wait2(long stime, long etime,int FLAME_TIME){
        if (etime-stime<FLAME_TIME)
          wait(FLAME_TIME-(etime-stime));
      }


      //乱数作成
      static int rand(int Rand){
        return GetRand(Rand);
      }

      //終了
      void end(){
        //maint=3;
        DxLib_End() ;
      }


      //画像関係
      //{
      //色かえ(指定)
      void setcolor(int red, int green, int blue){
        color=GetColor(red,green,blue) ;
      }
      //色かえ(黒)(白)
      void setc0(){color=GetColor(0,0,0);}
      void setc1(){color=GetColor(255,255,255);}

      //点
      void drawpixel(int a,int b){DrawPixel(a,b,color);}
      //線
      void drawline(int a,int b,int c,int d){DrawLine(a,b,c,d,color);}
      //四角形(塗り無し)
      void drawrect(int a,int b,int c,int d){DrawBox(a,b,a+c,b+d,color,FALSE);}
      //四角形(塗り有り)
      void fillrect(int a,int b,int c,int d){DrawBox(a,b,a+c,b+d,color,TRUE);}
      //円(塗り無し)
      void drawarc(int a,int b,int c,int d){DrawOval(a,b,c,d,color,FALSE);}
      //円(塗り有り)
      void fillarc(int a,int b,int c,int d){DrawOval(a,b,c,d,color,TRUE);}

      //画像の読み込み
      int loadimage(string x){
        //mgrap[a]=LoadGraph(b);
        return LoadGraph(x.c_str());
      }
      int loadimage(int a,int x,int y,int r,int z){
        return DerivationGraph(x,y,r,z,a);
      }

      //画像表示
      void drawimage(int mx,int a,int b){
        if (mirror==0)
          DrawGraph(a,b,mx,TRUE);
        if (mirror==1)
          DrawTurnGraph(a,b,mx,TRUE);
      }
      void drawimage(int mx,int a,int b,int c,int d,int e,int f){
        int m;
        m=DerivationGraph(c,d,e,f,mx);
        if (mirror==0)
          DrawGraph(a,b,m,TRUE);
        if (mirror==1)
          DrawTurnGraph(a,b,m,TRUE);
      }

      //反転
      void setre(){}//g.setFlipMode(Graphics.FLIP_HORIZONTAL);}
      void setre2(){}//g.setFlipMode(Graphics.FLIP_VERTICAL);}
      void setno(){}//g.setFlipMode(Graphics.FLIP_NONE);}

      /*
      //文字
      void str(char d[],int a,int b){
      //char d[]=c;
      DrawString(a,b,d,color);
      }
      */

      //文字
      void str(string x,int a,int b){
        //char d[]="あ";
        DrawString(a,b,x.c_str(),color);
        //DrawString(10,10,xs[3].c_str(),color);

        xx[2]=4;


      }

      /*
      //数値を文字に変換
      void strchange(string x,int a){
      }
      */

      /*
      //中央にあわせる//(font)
      void str1(String c,int r,int b){
      int a=0,x=0;
      int d=6;

//x=c.length()*d;//tiny.6
x=r*d;
a=120-x/2;

g.drawString(c,a,b);
}
*/


//string→int
/*
   char str[] = "12345";
   int num;

   num = atoi(str);
   */


//文字ラベル変更
void setfont(int a){
  /*
     if (a==0)g.setFont(Font.getFont(Font.SIZE_TINY));
     if (a==1)g.setFont(Font.getFont(Font.SIZE_SMALL));
     if (a==2)g.setFont(Font.getFont(Font.SIZE_MEDIUM));
     if (a==3)g.setFont(Font.getFont(Font.SIZE_LARGE));
     */
}

//音楽再生
void ot(int x){
  PlaySoundMem(x, DX_PLAYTYPE_BACK) ;
}



void stagecls(){
  for (t=0;t<smax;t++){sa[t]=-9000000;sb[t]=1;sc[t]=1;sd[t]=1;sgtype[t]=0;stype[t]=0;sxtype[t]=0;}
  //for (t=0;t<spmax;t++){spa[t]=-9000000;szyunni[t]=t;spb[t]=1;spc[t]=1;spd[t]=1;sptype[t]=0;spgtype[t]=0;}
  for (t=0;t<tmax;t++){ta[t]=-9000000;tb[t]=1;tc[t]=1;td[t]=1;titem[t]=0;txtype[t]=0;}
  for (t=0;t<srmax;t++){sra[t]=-9000000;srb[t]=1;src[t]=1;srd[t]=1;sre[t]=0;srf[t]=0;srmuki[t]=0;sron[t]=0;sree[t]=0;srsok[t]=0;srmove[t]=0;srmovep[t]=0;srsp[t]=0;}
  //for (t=0;t<sqmax;t++){sqa[t]=-9000000;sqb[t]=1;sqc[t]=1;sqd[t]=1;sqgtype[t]=0;sqtype[t]=0;}
  //for (t=0;t<kmax;t++){ka[t]=-9000000;kmuki[t]=0;ksoka[t]=0;ksokb[t]=0;kxsoka[t]=0;kxsokb[t]=0;}
  //for (t=0;t<imax;t++){ia[t]=-9000000;ib[t]=1;ic[t]=1;id[t]=1;}
  for (t=0;t<amax;t++){aa[t]=-9000000;ab[t]=1;ac[t]=0;ad[t]=1;azimentype[t]=0;atype[t]=0;axtype[t]=0;ae[t]=0;af[t]=0;atm[t]=0;a2tm[t]=0;abrocktm[t]=0;amsgtm[t]=0;}
  for (t=0;t<bmax;t++){ba[t]=-9000000;bb[t]=1;bz[t]=1;btm[t]=0;bxtype[t]=0;}
  for (t=0;t<emax;t++){ea[t]=-9000000;eb[t]=1;ec[t]=1;ed[t]=1;egtype[t]=0;}
  for (t=0;t<nmax;t++){na[t]=-9000000;nb[t]=1;nc[t]=1;nd[t]=1;ne[t]=1;nf[t]=1;ng[t]=0;ntype[t]=0;}
  //for (t=0;t<cmax;t++){ca[t]=-9000000;cb[t]=1;contm[t]=0;ctype[t]=0;ce[t]=0;cf[t]=0;}
  //for (t=0;t<vmax;t++){va[t]=-9000000;vtype[t]=0;vb[t]=0;vc[t]=1;vd[t]=1;}
  //for (t=0;t<gmax;t++){ga[t]=-9000000;gx[t]=0;gstring[t]="";}

  sco=0;tco=0;aco=0;bco=0;eco=0;nco=0;
  //haikeitouroku();
}//stagecls()




//ステージロード
void stage(){

  //fzx=6000*100;
  scrollx=3600*100;

  //byte stagedate[16][801];
  //byte stagedate2[16][801];


  //1-レンガ,2-コイン,3-空,4-土台//5-6地面//7-隠し//




  stagep();




  for (tt=0;tt<=1000;tt++){
    for (t=0;t<=16;t++){
      xx[10]=0;
      if (stagedate[t][tt]>=1 && stagedate[t][tt]<=255)xx[10]=(int)stagedate[t][tt];
      xx[21]=tt*29;xx[22]=t*29-12;xx[23]=xx[10];
      if (xx[10]>=1 && xx[10]<=19 && xx[10]!=9){tyobi(tt*29,t*29-12,xx[10]);}
      if (xx[10]>=20 && xx[10]<=29){sra[srco]=xx[21]*100;srb[srco]=xx[22]*100;src[srco]=3000;srtype[srco]=0;srco++;if (srco>=srmax)srco=0;}
      if (xx[10]==30){sa[sco]=xx[21]*100;sb[sco]=xx[22]*100;sc[sco]=3000;sd[sco]=6000;stype[sco]=500;sco++;if (sco>=smax)sco=0;}
      if (xx[10]==40){sa[sco]=xx[21]*100;sb[sco]=xx[22]*100;sc[sco]=6000;sd[sco]=3000;stype[sco]=1;sco++;if (sco>=smax)sco=0;}
      if (xx[10]==41){sa[sco]=xx[21]*100+500;sb[sco]=xx[22]*100;sc[sco]=5000;sd[sco]=3000;stype[sco]=2;sco++;if (sco>=smax)sco=0;}

      if (xx[10]==43){sa[sco]=xx[21]*100;sb[sco]=xx[22]*100+500;sc[sco]=2900;sd[sco]=5300;stype[sco]=1;sco++;if (sco>=smax)sco=0;}
      if (xx[10]==44){sa[sco]=xx[21]*100;sb[sco]=xx[22]*100+700;sc[sco]=3900;sd[sco]=5000;stype[sco]=5;sco++;if (sco>=smax)sco=0;}

      //これなぜかバグの原因ｗ
      if (xx[10]>=50 && xx[10]<=79){
        ba[bco]=xx[21]*100;bb[bco]=xx[22]*100;btype[bco]=xx[23]-50;bco++;if (bco>=bmax)bco=0;
      }

      if (xx[10]>=80 && xx[10]<=89){na[nco]=xx[21]*100;nb[nco]=xx[22]*100;ntype[nco]=xx[23]-80;nco++;if (nco>=nmax)nco=0;}

      //コイン
      if (xx[10]==9){tyobi(tt*29,t*29-12,800);}
      if (xx[10]==99){sa[sco]=xx[21]*100;sb[sco]=xx[22]*100;sc[sco]=3000;sd[sco]=(12-t)*3000;stype[sco]=300;sco++;if (sco>=smax)sco=0;}
    }}

  if (tyuukan>=1){
    xx[17]=0;
    for (t=0;t<smax;t++){
      if (stype[t]==500 && tyuukan>=1){
        fx=sa[t]-fxmax/2;fzx=fx;
        ma=sa[t]-fx;
        mb=sb[t]-fy;
        tyuukan--;xx[17]++;

        sa[t]=-80000000;
      }}
    tyuukan+=xx[17];
  }
  //tyobi(1,2,3);



}//stage()



void stagep(){


  //ステージロード
  //void stage(){



  //fzx=6000*100;
  scrollx=3600*100;

  //byte stagedate[16][801];
  //byte stagedate2[16][801];


  //1-レンガ,2-コイン,3-空,4-土台//5-6地面//7-隠し//

  //1-1
  if (sta==1 && stb==1 && stc==0){

    //new byte stagedate[16][801]={

    //                                                                                                                                                                                     中間                                                                                                                                                                                                                                                           
    byte stagedatex[17][1001]={
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,98, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,99, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0,82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,50, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,98, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,98,98,98, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,98, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,50, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,98, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0,98, 0, 0, 0, 1,98, 1, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 1,98, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,98, 0, 0, 0, 0, 0, 0, 1,98, 0, 0, 0, 2, 0, 0, 2, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0,80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0,40, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 4, 0, 7, 7, 7, 7, 7,40, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,83, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,41, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0,41, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,40, 0, 0, 4, 4, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,50, 0, 0, 0, 0, 0,50, 0, 0,81,41, 0, 0, 0, 0, 0,81,98, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,81, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,50, 0,50, 0, 0,51, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,81, 0, 0, 0, 4, 4, 4, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0,41, 0, 0, 0, 0, 0,50, 0,50, 0, 0,41, 0, 4, 4, 4, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 4,81, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 5, 5, 5, 5, 5, 5, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 5, 5, 5, 5, 5, 5, 5} ,
      { 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 6, 6, 6, 6, 6, 6, 0, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
    } ;


    //追加情報
    tyobi(8*29,9*29-12,100);
    txtype[tco]=2;
    tyobi(13*29,9*29-12,102);
    txtype[tco]=0;
    tyobi(14*29,5*29-12,101);
    tyobi(35*29,8*29-12,110);
    tyobi(47*29,9*29-12,103);
    tyobi(59*29,9*29-12,112);
    tyobi(67*29,9*29-12,104);


    sco=0;
    t=sco;sa[t]=20*29*100+500;sb[t]=-6000;sc[t]=5000;sd[t]=70000;stype[t]=100;sco++;
    t=sco;sa[t]=54*29*100-500;sb[t]=-6000;sc[t]=7000;sd[t]=70000;stype[t]=101;sco++;
    t=sco;sa[t]=112*29*100+1000;sb[t]=-6000;sc[t]=3000;sd[t]=70000;stype[t]=102;sco++;
    t=sco;sa[t]=117*29*100;sb[t]=(2*29-12)*100-1500;sc[t]=15000;sd[t]=3000;stype[t]=103;sco++;
    t=sco;sa[t]=125*29*100;sb[t]=-6000;sc[t]=9000;sd[t]=70000;stype[t]=101;sco++;
    //t=sco;sa[t]=77*29*100;sb[t]=(6*29-12)*100-1500;sc[t]=12000;sd[t]=3000;stype[t]=103;sco++;
    t=28;sa[t]=29*29*100+500;sb[t]=(9*29-12)*100;sc[t]=6000;sd[t]=12000-200;stype[t]=50;sco++;
    t=sco;sa[t]=49*29*100;sb[t]=(5*29-12)*100;sc[t]=9000-1;sd[t]=3000;stype[t]=51;sgtype[t]=0;sco++;
    t=sco;sa[t]=72*29*100;sb[t]=(13*29-12)*100;sc[t]=3000*5-1;sd[t]=3000;stype[t]=52;sco++;

    bco=0;
    t=bco;ba[t]=27*29*100;bb[t]=(9*29-12)*100;btype[t]=0;bxtype[t]=0;bco++;
    t=bco;ba[t]=103*29*100;bb[t]=(5*29-12+10)*100;btype[t]=80;bxtype[t]=0;bco++;
    //t=bco;ba[t]=13*29*100;bb[t]=(5*29-12)*100;btype[t]=81;bxtype[t]=0;bco++;

    for (tt=0;tt<=1000;tt++){
      for (t=0;t<=16;t++){
        stagedate[t][tt]=0;stagedate[t][tt]=stagedatex[t][tt];
      }}

  }//sta1


  //1-2(地上)
  if (sta==1 && stb==2 && stc==0){

    //マリ　地上　入れ
    //StopSoundMem(oto[0]);
    bgmchange(oto[100]);
    //PlaySoundMem(oto[0],DX_PLAYTYPE_LOOP) ;

    scrollx=0*100;
    //ma=3000;mb=3000;

    byte stagedatex[17][1001]={
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 7},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0,83, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,44, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 5, 5, 5, 5, 5, 5, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 5, 5, 5, 5, 5, 5, 5} ,
      { 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 6, 6, 6, 6, 6, 6, 0, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
    } ;


    tco=0;
    //ヒント1
    txtype[tco]=1;tyobi(4*29,9*29-12,300);
    //tyobi(7*29,9*29-12,300);

    //毒1
    tyobi(13*29,8*29-12,114);

    //t=28;
    sco=0;
    t=sco;sa[t]=14*29*100+500;sb[t]=(9*29-12)*100;sc[t]=6000;sd[t]=12000-200;stype[t]=50;sxtype[t]=1;sco++;
    t=sco;sa[t]=12*29*100;sb[t]=(11*29-12)*100;sc[t]=3000;sd[t]=6000-200;stype[t]=40;sxtype[t]=0;sco++;
    t=sco;sa[t]=14*29*100+1000;sb[t]=-6000;sc[t]=5000;sd[t]=70000;stype[t]=100;sxtype[t]=1;sco++;

    //ブロックもどき
    //t=bco;ba[t]=7*29*100;bb[t]=(9*29-12)*100;btype[t]=82;bxtype[t]=0;bco++;


    for (tt=0;tt<=1000;tt++){
      for (t=0;t<=16;t++){
        stagedate[t][tt]=0;stagedate[t][tt]=stagedatex[t][tt];
      }}

  }//sta2


  //1-2-1(地下)
  if (sta==1 && stb==2 && stc==1){

    //マリ　地下　入れ
    bgmchange(oto[103]);

    scrollx=4080*100;
    ma=6000;mb=3000;
    stagecolor=2;


    byte stagedatex[17][1001]={
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,97, 0, 0, 0, 0, 0, 0},
      { 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 4, 4, 4, 4, 4, 4, 4, 4, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,98, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0},
      { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0},
      { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0},
      { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0},
      { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0},
      { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0},
      { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,97,44, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0},
      { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0,54, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,97, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 7, 7, 7, 7, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0},
      { 1, 0, 0, 0, 0, 0, 0,98, 2, 2,98, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 7, 7, 7, 7, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,98, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 4, 4, 4, 4, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0},
      { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 4, 0, 4, 0,51, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 1, 1, 4, 4, 4, 4, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0},
      { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 4, 0, 4, 0, 0, 0, 0, 4, 0, 4, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,40, 0, 0, 0, 0, 0, 0,30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 4, 4, 4, 4, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0},
      { 1, 0, 7, 0, 0, 0, 0, 0, 0, 0,50, 0,50, 0, 4, 0, 4, 0, 4, 0, 4, 0,50, 0, 0, 4, 0, 4, 0, 4, 0, 4, 0, 0, 0, 0,50,50,50, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,41, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 4, 4, 4, 4, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0},
      { 5, 5, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 5, 5, 5, 0, 0, 0, 5, 5, 5, 5, 5, 5, 0, 0, 5, 5, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0} ,
      { 6, 6, 0, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 6, 6, 6, 0, 0, 0, 6, 6, 6, 6, 6, 6, 0, 0, 6, 6, 0, 0, 0, 0, 6, 6, 6, 6, 6, 6, 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
    };
    //{ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 6, 6, 0, 6, 6, 6, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}



    tco=0;
    txtype[tco]=2;tyobi(7*29,9*29-12,102);
    tyobi(10*29,9*29-12,101);

    txtype[tco]=2;
    tyobi(49*29,9*29-12,114);

    for (t=0;t>=-7;t--){
      tyobi(53*29,t*29-12,1);
    }

    txtype[tco]=1;tyobi(80*29,5*29-12,104);
    txtype[tco]=2;tyobi(78*29,5*29-12,102);



    //txtype[tco]=1;tyobi(11*29,9*29-12,114);//毒1

    sco=0;
    t=sco;sa[t]=2*29*100;sb[t]=(13*29-12)*100;sc[t]=3000*1-1;sd[t]=3000;stype[t]=52;sco++;
    //t=sco;sa[t]=19*29*100;sb[t]=(13*29-12)*100;sc[t]=3000*1-1;sd[t]=3000;stype[t]=52;sco++;
    t=sco;sa[t]=24*29*100;sb[t]=(13*29-12)*100;sc[t]=3000*1-1;sd[t]=3000;stype[t]=52;sco++;
    t=sco;sa[t]=43*29*100+500;sb[t]=-6000;sc[t]=3000;sd[t]=70000;stype[t]=102;sxtype[t]=1;sco++;
    t=sco;sa[t]=53*29*100+500;sb[t]=-6000;sc[t]=3000;sd[t]=70000;stype[t]=102;sxtype[t]=2;sco++;
    t=sco;sa[t]=129*29*100;sb[t]=(7*29-12)*100;sc[t]=3000;sd[t]=6000-200;stype[t]=40;sxtype[t]=2;sco++;
    t=sco;sa[t]=154*29*100;sb[t]=3000;sc[t]=9000;sd[t]=3000;stype[t]=102;sxtype[t]=7;sco++;

    //ブロックもどき

    t=27;sa[t]=69*29*100;sb[t]=(1*29-12)*100;sc[t]=9000*2-1;sd[t]=3000;stype[t]=51;sxtype[t]=0;sgtype[t]=0;sco++;
    t=28;sa[t]=66*29*100;sb[t]=(1*29-12)*100;sc[t]=9000-1;sd[t]=3000;stype[t]=51;sxtype[t]=1;sgtype[t]=0;sco++;
    t=29;sa[t]=66*29*100;sb[t]=(-2*29-12)*100;sc[t]=9000*3-1;sd[t]=3000;stype[t]=51;sxtype[t]=2;sgtype[t]=0;sco++;

    //26 ファイアー土管
    t=26;sa[t]=103*29*100-1500;sb[t]=(9*29-12)*100-2000;sc[t]=3000;sd[t]=3000;stype[t]=180;sxtype[t]=0;sr[t]=0;sgtype[t]=48;sco++;
    t=sco;sa[t]=102*29*100;sb[t]=(9*29-12)*100;sc[t]=6000;sd[t]=12000-200;stype[t]=50;sxtype[t]=2;sco++;
    t=sco;sa[t]=123*29*100;sb[t]=(9*29-12)*100;sc[t]=3000*5-1;sd[t]=3000*5;stype[t]=52;sxtype[t]=1;sco++;

    t=sco;sa[t]=131*29*100;sb[t]=(1*29-12)*100;sc[t]=4700;sd[t]=3000*8-700;stype[t]=1;sxtype[t]=0;sco++;

    //t=sco;sa[t]=44*29*100;sb[t]=-6000;sc[t]=9000;sd[t]=70000;stype[t]=102;sco++;

    //オワタゾーン
    t=sco;sa[t]=143*29*100;sb[t]=(9*29-12)*100;sc[t]=6000;sd[t]=12000-200;stype[t]=50;sxtype[t]=5;sco++;
    t=sco;sa[t]=148*29*100;sb[t]=(9*29-12)*100;sc[t]=6000;sd[t]=12000-200;stype[t]=50;sxtype[t]=5;sco++;
    t=sco;sa[t]=153*29*100;sb[t]=(9*29-12)*100;sc[t]=6000;sd[t]=12000-200;stype[t]=50;sxtype[t]=5;sco++;



    bco=0;
    t=bco;ba[t]=18*29*100;bb[t]=(10*29-12)*100;btype[t]=82;bxtype[t]=1;bco++;
    //t=bco;ba[t]=52*29*100;bb[t]=(2*29-12)*100;btype[t]=82;bxtype[t]=1;bco++;
    t=bco;ba[t]=51*29*100+1000;bb[t]=(2*29-12+10)*100;btype[t]=80;bxtype[t]=1;bco++;

    //？ボール
    t=bco;ba[t]=96*29*100+100;bb[t]=(10*29-12)*100;btype[t]=105;bxtype[t]=0;bco++;


    //リフト
    srco=0;
    t=srco;sra[t]=111*29*100;srb[t]=(8*29-12)*100;src[t]=90*100;srtype[t]=0;sracttype[t]=5;sre[t]=-300;srco++;
    t=srco;sra[t]=111*29*100;srb[t]=(0*29-12)*100;src[t]=90*100;srtype[t]=0;sracttype[t]=5;sre[t]=-300;srco++;
    t=10;sra[t]=116*29*100;srb[t]=(4*29-12)*100;src[t]=90*100;srtype[t]=1;sracttype[t]=5;sre[t]=300;srco++;
    t=11;sra[t]=116*29*100;srb[t]=(12*29-12)*100;src[t]=90*100;srtype[t]=1;sracttype[t]=5;sre[t]=300;srco++;


    //ヒント1
    //tyobi(4*29,9*29-12,300);
    //tyobi(7*29,9*29-12,300);

    //毒1
    //tyobi(13*29,8*29-12,114);

    //t=28;
    //sco=0;
    //t=sco;
    //sa[t]=14*29*100+500;sb[t]=(9*29-12)*100;sc[t]=6000;sd[t]=12000-200;stype[t]=50;sxtype[t]=1;sco++;


    for (tt=0;tt<=1000;tt++){
      for (t=0;t<=16;t++){
        stagedate[t][tt]=0;stagedate[t][tt]=stagedatex[t][tt];
      }}
    //stagedatex[0][0];

  }//sta1-2-1




  //1-2(地上)
  if (sta==1 && stb==2 && stc==2){

    //マリ　地上　入れ
    //StopSoundMem(oto[0]);
    bgmchange(oto[100]);
    //PlaySoundMem(oto[0],DX_PLAYTYPE_LOOP) ;

    scrollx=900*100;
    ma=7500;mb=3000*9;

    byte stagedatex[17][1001]={
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0,82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,99, 0, 0, 0, 0, 0, 0, 0, 0, 0,82, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,83, 0, 0,},
      { 0, 0,40, 0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0,41, 0, 0, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0 ,0, 0, 0, 0, 81,},
      { 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 5, 5, 5, 5, 5, 5, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 5, 5, 5, 5, 5, 5, 5} ,
      { 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 6, 6, 6, 6, 6, 6, 0, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
    } ;


    /*
    //毒1
    tyobi(13*29,8*29-12,114);

    //t=28;
    sco=0;
    t=sco;sa[t]=14*29*100+500;sb[t]=(9*29-12)*100;sc[t]=6000;sd[t]=12000-200;stype[t]=50;sxtype[t]=1;sco++;
    t=sco;sa[t]=12*29*100;sb[t]=(11*29-12)*100;sc[t]=3000;sd[t]=6000-200;stype[t]=40;sxtype[t]=0;sco++;
    t=sco;sa[t]=14*29*100+1000;sb[t]=-6000;sc[t]=5000;sd[t]=70000;stype[t]=100;sxtype[t]=1;sco++;
    */

    t=sco;sa[t]=5*29*100+500;sb[t]=-6000;sc[t]=3000;sd[t]=70000;stype[t]=102;sxtype[t]=8;sco++;
    //空飛ぶ土管
    t=28;sa[t]=44*29*100+500;sb[t]=(10*29-12)*100;sc[t]=6000;sd[t]=9000-200;stype[t]=50;sco++;

    //ポールもどき
    bco=0;
    t=bco;ba[t]=19*29*100;bb[t]=(2*29-12)*100;btype[t]=85;bxtype[t]=0;bco++;


    for (tt=0;tt<=1000;tt++){
      for (t=0;t<=16;t++){
        stagedate[t][tt]=0;stagedate[t][tt]=stagedatex[t][tt];
      }}

  }//sta2



  //必要BGM+SE

  //1-3(地上)
  if (sta==1 && stb==3 && stc==6){stc=0;}
  if (sta==1 && stb==3 && stc==0){

    //StopSoundMem(oto[0]);
    bgmchange(oto[100]);
    //PlaySoundMem(oto[0],DX_PLAYTYPE_LOOP) ;

    scrollx=3900*100;
    //ma=3000;mb=3000;

    byte stagedatex[17][1001]={//                                                                                                                                                                                     中間                                                                                                                                                                                                                                                           
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,97, 0, 0, 0, 0, 0,97, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0,82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,97, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,84, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,57, 0, 0, 0,84, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,84, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,54, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,84, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,51, 0, 0, 0,84, 0, 0, 0, 0, 0,99, 0, 0, 0, 0, 0, 0,82, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,97, 0, 0, 0, 0, 0, 0,57, 0, 0, 0, 0, 0, 0, 0,97, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,58, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,56, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,84, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0,83, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,84, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,83, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,97, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,97, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0,30, 0, 0, 0, 0, 0, 0,85,85, 0, 0, 0, 0, 0, 0, 0,97, 0, 0, 0, 0, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0,81, 0, 0, 0, 0, 0, 0, 0, 0, 0,81, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,81, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0,81, 0, 0, 0, 0,50, 0,50, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,81, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 5, 5, 5, 5, 5, 5, 0, 0, 0, 5, 5, 5, 0, 0, 0, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0} ,
      { 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 6, 6, 6, 6, 6, 6, 0, 0, 0, 6, 6, 6, 0, 0, 0, 6, 6, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
    };

    tco=0;
    tyobi(22*29,3*29-12,1);
    //毒1
    tyobi(54*29,9*29-12,116);
    //音符+
    tyobi(18*29,14*29-12,117);
    tyobi(19*29,14*29-12,117);
    tyobi(20*29,14*29-12,117);
    txtype[tco]=1;tyobi(61*29,9*29-12,101);//5
    tyobi(74*29,9*29-12,7);//6

    //ヒント2
    txtype[tco]=2;tyobi(28*29,9*29-12,300);//7
    //ファイア
    txtype[tco]=3;tyobi(7*29,9*29-12,101);
    //ヒント3
    txtype[tco]=4;tyobi(70*29,8*29-12,300);//9

    //もろいぶろっく×３
    txtype[tco]=1;tyobi(58*29,13*29-12,115);
    txtype[tco]=1;tyobi(59*29,13*29-12,115);
    txtype[tco]=1;tyobi(60*29,13*29-12,115);

    //ヒントブレイク
    txtype[tco]=0;tyobi(111*29,6*29-12,301);
    //ジャンプ
    txtype[tco]=0;tyobi(114*29,9*29-12,120);

    //ファイア
    //tyobi(7*29,9*29-12,101);


    bco=0;
    t=bco;ba[t]=101*29*100;bb[t]=(5*29-12)*100;btype[t]=4;bxtype[t]=1;bco++;
    t=bco;ba[t]=146*29*100;bb[t]=(10*29-12)*100;btype[t]=6;bxtype[t]=1;bco++;

    t=sco;sa[t]=9*29*100;sb[t]=(13*29-12)*100;sc[t]=9000-1;sd[t]=3000;stype[t]=52;sco++;
    //t=sco;sa[t]=58*29*100;sb[t]=(13*29-12)*100;sc[t]=9000-1;sd[t]=3000;stype[t]=52;sco++;

    //土管
    t=sco;sa[t]=65*29*100+500;sb[t]=(10*29-12)*100;sc[t]=6000;sd[t]=9000-200;stype[t]=50;sxtype[t]=1;sco++;
    //t=28;sa[t]=65*29*100;sb[t]=(10*29-12)*100;sc[t]=6000;sd[t]=9000-200;stype[t]=50;sco++;

    //トラップ
    t=sco;sa[t]=74*29*100;sb[t]=(8*29-12)*100-1500;sc[t]=6000;sd[t]=3000;stype[t]=103;sxtype[t]=1;sco++;
    t=sco;sa[t]=96*29*100-3000;sb[t]=-6000;sc[t]=9000;sd[t]=70000;stype[t]=102;sxtype[t]=10;sco++;
    //ポール砲
    t=sco;sa[t]=131*29*100-1500;sb[t]=(1*29-12)*100-3000;sc[t]=15000;sd[t]=14000;stype[t]=104;sco++;


    //？ボール
    t=bco;ba[t]=10*29*100+100;bb[t]=(11*29-12)*100;btype[t]=105;bxtype[t]=1;bco++;
    //ブロックもどき
    t=bco;ba[t]=43*29*100;bb[t]=(11*29-12)*100;btype[t]=82;bxtype[t]=1;bco++;
    //t=bco;ba[t]=146*29*100;bb[t]=(12*29-12)*100;btype[t]=82;bxtype[t]=1;bco++;
    //うめぇ
    t=bco;ba[t]=1*29*100;bb[t]=(2*29-12+10)*100-1000;btype[t]=80;bxtype[t]=0;bco++;


    //リフト
    srco=0;
    t=srco;sra[t]=33*29*100;srb[t]=(3*29-12)*100;src[t]=90*100;srtype[t]=0;sracttype[t]=0;sre[t]=0;srsp[t]=1;srco++;
    t=srco;sra[t]=39*29*100-2000;srb[t]=(6*29-12)*100;src[t]=90*100;srtype[t]=0;sracttype[t]=1;sre[t]=0;srco++;
    t=srco;sra[t]=45*29*100+1500;srb[t]=(10*29-12)*100;src[t]=90*100;srtype[t]=0;sracttype[t]=0;sre[t]=0;srsp[t]=2;srco++;

    t=srco;sra[t]=95*29*100;srb[t]=(7*29-12)*100;src[t]=180*100;srtype[t]=0;sracttype[t]=0;sre[t]=0;srsp[t]=10;srco++;
    t=srco;sra[t]=104*29*100;srb[t]=(9*29-12)*100;src[t]=90*100;srtype[t]=0;sracttype[t]=0;sre[t]=0;srsp[t]=12;srco++;
    t=srco;sra[t]=117*29*100;srb[t]=(3*29-12)*100;src[t]=90*100;srtype[t]=0;sracttype[t]=1;sre[t]=0;srsp[t]=15;srco++;
    t=srco;sra[t]=124*29*100;srb[t]=(5*29-12)*100;src[t]=210*100;srtype[t]=0;sracttype[t]=0;sre[t]=0;srsp[t]=10;srco++;



    if (stagepoint==1){stagepoint=0;ma=4500;mb=-3000;tyuukan=0;}


    for (tt=0;tt<=1000;tt++){
      for (t=0;t<=16;t++){
        stagedate[t][tt]=0;stagedate[t][tt]=stagedatex[t][tt];
      }}

  }//sta3



  //1-3(地下)
  if (sta==1 && stb==3 && stc==1){

    //マリ　地上　入れ
    //StopSoundMem(oto[0]);
    bgmchange(oto[103]);
    //PlaySoundMem(oto[0],DX_PLAYTYPE_LOOP) ;

    scrollx=0*100;
    ma=6000;mb=6000;
    stagecolor=2;


    byte stagedatex[17][1001]={
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,},
      { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,},
      { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,},
      { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,},
      { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,},
      { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,},
      { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,},
      { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0},
      { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0,},
      { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0,},
      { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0,},
      { 1,54, 0,54, 0,54, 0,54, 0,54, 0,54, 0,54, 0,54, 1, 0,},
      { 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 1, 8, 8, 8, 8,} ,
      { 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
    } ;


    tco=0;
    //tyobi(15*29,12*29-12,111);

    stc=0;


    for (tt=0;tt<=1000;tt++){
      for (t=0;t<=16;t++){
        stagedate[t][tt]=0;stagedate[t][tt]=stagedatex[t][tt];
      }}

  }//sta3



  //1-3(空中)
  if (sta==1 && stb==3 && stc==5){

    stagecolor=3;
    bgmchange(oto[104]);

    scrollx=0*100;
    ma=3000;mb=33000;

    stagepoint=1;

    byte stagedatex[17][1001]={
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 9, 0, 9, 0, 9, 0, 9, 0, 9, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 9, 0, 9, 0, 9, 0, 9, 0, 0, 0, 0, 0,},
      { 0, 0, 9, 0, 9, 0, 9, 0, 9, 0, 9, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,},
      { 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 0, 0, 8, 8, 8, 8, 8,} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
    } ;

    sco=0;
    t=sco;sa[t]=14*29*100-5;sb[t]=(11*29-12)*100;sc[t]=6000;sd[t]=15000-200;stype[t]=50;sxtype[t]=1;sco++;
    //t=sco;sa[t]=12*29*100;sb[t]=(11*29-12)*100;sc[t]=3000;sd[t]=6000-200;stype[t]=40;sxtype[t]=0;sco++;
    //t=sco;sa[t]=14*29*100+1000;sb[t]=-6000;sc[t]=5000;sd[t]=70000;stype[t]=100;sxtype[t]=1;sco++;


    txtype[tco]=0;tyobi(12*29,4*29-12,112);
    //ヒント3
    txtype[tco]=3;tyobi(12*29,8*29-12,300);
    //txtype[tco]=0;tyobi(13*29,4*29-12,110);


    //stc=0;

    for (tt=0;tt<=1000;tt++){
      for (t=0;t<=16;t++){
        stagedate[t][tt]=0;stagedate[t][tt]=stagedatex[t][tt];
      }}

  }//sta5





  //1-4(地下)
  if (sta==1 && stb==4 && stc==0){

    //マリ　地上　入れ
    //StopSoundMem(oto[0]);
    bgmchange(oto[105]);
    //PlaySoundMem(oto[0],DX_PLAYTYPE_LOOP) ;

    scrollx=4400*100;
    ma=12000;mb=6000;
    stagecolor=4;


    byte stagedatex[17][1001]={//                                                                                                                                                                                     中間                                                                                                                                                                                                                                                           
      { 5, 5, 5, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 5, 5, 5, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 7, 7, 7, 7, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,60, 0, 0, 0, 0, 0, 0, 0, 0, 0,60, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,60, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 0, 0, 0, 0, 0, 0, 0,60, 0, 0, 0, 0, 0,60, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,50, 0, 5, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,60, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 3, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0,30, 0, 0, 0, 0, 0, 0, 5, 5, 5, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,60, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0,60, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 3, 0, 0, 0, 5, 5, 0, 0, 0, 0, 0, 7, 7, 2, 2, 7, 5, 5, 5, 5, 0, 0, 0, 3, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0,59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 0, 0, 0, 0, 0, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,59, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 0,59, 0, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,40, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,41, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 5, 5, 5,86, 0, 0,86, 0, 5, 5, 5, 5, 5,86, 0, 0,86, 0, 0,86, 0, 0,86, 0, 0,86, 0, 0,86, 0, 0,86, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,86, 0, 0,86, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,86, 5, 5, 5, 5, 5,86, 0, 0,86, 0, 0, 5, 5, 5, 5, 5, 5, 5,86, 0, 0,86, 5, 5, 5, 5,86, 0, 0,86, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,86, 0, 5, 5,86, 0, 0,86, 0, 0,86, 0, 0,86, 0, 0,86, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,41, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
    } ;

    sco=0;//sco=140;
    t=sco;sa[t]=35*29*100-1500+750;sb[t]=(8*29-12)*100-1500;sc[t]=1500;sd[t]=3000;stype[t]=105;sco++;
    t=sco;sa[t]=67*29*100;sb[t]=(4*29-12)*100;sc[t]=9000-1;sd[t]=3000*1-1;stype[t]=51;sxtype[t]=3;sgtype[t]=0;sco++;
    t=sco;sa[t]=73*29*100;sb[t]=(13*29-12)*100;sc[t]=3000*1-1;sd[t]=3000;stype[t]=52;sco++;
    //t=sco;sa[t]=79*29*100;sb[t]=(13*29-12)*100;sc[t]=30*3*100-1;sd[t]=6000-200;stype[t]=51;sxtype[t]=4;sco++;
    //t=sco;sa[t]=83*29*100;sb[t]=(-2*29-12)*100;sc[t]=30*5*100-1;sd[t]=3000-200;stype[t]=51;sxtype[t]=4;sco++;
    t=sco;sa[t]=123*29*100;sb[t]=(1*29-12)*100;sc[t]=30*6*100-1+0;sd[t]=3000-200;stype[t]=51;sxtype[t]=10;sco++;
    //スクロール消し
    t=sco;sa[t]=124*29*100+3000;sb[t]=(2*29-12)*100;sc[t]=3000*1-1;sd[t]=300000;stype[t]=102;sxtype[t]=20;sco++;
    t=sco;sa[t]=148*29*100+1000;sb[t]=(-12*29-12)*100;sc[t]=3000*1-1;sd[t]=300000;stype[t]=102;sxtype[t]=30;sco++;

    //3連星
    t=sco;sa[t]=100*29*100+1000;sb[t]=-6000;sc[t]=3000;sd[t]=70000;stype[t]=102;sxtype[t]=12;sco++;

    //地面1
    t=sco;sa[t]=0*29*100-0;sb[t]=9*29*100+1700;sc[t]=3000*7-1;sd[t]=3000*5-1;stype[t]=200;sxtype[t]=0;sco++;
    t=sco;sa[t]=11*29*100;sb[t]=-1*29*100+1700;sc[t]=3000*8-1;sd[t]=3000*4-1;stype[t]=200;sxtype[t]=0;sco++;


    bco=0;
    t=bco;ba[t]=8*29*100-1400;bb[t]=(2*29-12)*100+500;btype[t]=86;bxtype[t]=0;bco++;
    t=bco;ba[t]=42*29*100-1400;bb[t]=(-2*29-12)*100+500;btype[t]=86;bxtype[t]=0;bco++;
    t=bco;ba[t]=29*29*100+1500;bb[t]=(7*29-12)*100+1500;btype[t]=87;bxtype[t]=105;bco++;
    t=bco;ba[t]=47*29*100+1500;bb[t]=(9*29-12)*100+1500;btype[t]=87;bxtype[t]=110;bco++;
    t=bco;ba[t]=70*29*100+1500;bb[t]=(9*29-12)*100+1500;btype[t]=87;bxtype[t]=105;bco++;
    t=bco;ba[t]=66*29*100+1501;bb[t]=(4*29-12)*100+1500;btype[t]=87;bxtype[t]=101;bco++;
    t=bco;ba[t]=85*29*100+1501;bb[t]=(4*29-12)*100+1500;btype[t]=87;bxtype[t]=105;bco++;

    //ステルスうめぇ
    t=bco;ba[t]=57*29*100;bb[t]=(2*29-12+10)*100-500;btype[t]=80;bxtype[t]=1;bco++;
    //ブロックもどき
    t=bco;ba[t]=77*29*100;bb[t]=(5*29-12)*100;btype[t]=82;bxtype[t]=2;bco++;
    //ボス
    t=bco;ba[t]=130*29*100;bb[t]=(8*29-12)*100;btype[t]=30;bxtype[t]=0;bco++;
    //クックル
    t=bco;ba[t]=142*29*100;bb[t]=(10*29-12)*100;btype[t]=31;bxtype[t]=0;bco++;

    //マグマ
    nco=0;
    na[nco]=7*29*100-300;nb[nco]=14*29*100-1200;ntype[nco]=6;nco++;if (nco>=nmax)nco=0;
    na[nco]=41*29*100-300;nb[nco]=14*29*100-1200;ntype[nco]=6;nco++;if (nco>=nmax)nco=0;
    na[nco]=149*29*100-1100;nb[nco]=10*29*100-600;ntype[nco]=100;nco++;if (nco>=nmax)nco=0;

    tco=0;
    //ON-OFFブロック
    txtype[tco]=1;tyobi(29*29,3*29-12,130);
    //1-2
    tyobi(34*29,9*29-12,5);
    tyobi(35*29,9*29-12,5);
    //隠し
    tyobi(55*29+15,6*29-12,7);
    //tyobi(62*29,9*29-12,2);
    //隠しON-OFF
    txtype[tco]=10;tyobi(50*29,9*29-12,114);
    //ヒント3
    txtype[tco]=5;tyobi(1*29,5*29-12,300);
    //ファイア
    txtype[tco]=3;
    tyobi(86*29,9*29-12,101);
    //キノコなし　普通
    //txtype[tco]=2;tyobi(81*29,1*29-12,5);
    //音符
    txtype[tco]=2;
    tyobi(86*29,6*29-12,117);

    //もろいぶろっく×３
    for (t=0;t<=2;t++){
      txtype[tco]=3;tyobi((79+t)*29,13*29-12,115);
    }

    //ジャンプ
    txtype[tco]=3;tyobi(105*29,11*29-12,120);
    //毒1
    txtype[tco]=3;tyobi(109*29,7*29-12,102);
    //デフラグ
    txtype[tco]=4;tyobi(111*29,7*29-12,101);
    //剣
    tyobi(132*29,8*29-12-3,140);
    tyobi(131*29,9*29-12,141);
    //メロン
    tyobi(161*29,12*29-12,142);
    //ファイアバー強化
    tyobi(66*29,4*29-12,124);


    //リフト
    srco=0;
    t=srco;sra[t]=93*29*100;srb[t]=(10*29-12)*100;src[t]=60*100;srtype[t]=0;sracttype[t]=1;sre[t]=0;srco++;
    t=20;sra[t]=119*29*100+300;srb[t]=(10*29-12)*100;src[t]=12*30*100+1000;srtype[t]=0;sracttype[t]=0;srsp[t]=21;sre[t]=0;srco++;


    stc=0;


    for (tt=0;tt<=1000;tt++){
      for (t=0;t<=16;t++){
        stagedate[t][tt]=0;stagedate[t][tt]=stagedatex[t][tt];
      }}

  }//sta4

  if (sta==2 && stb==1 && stc==0){// 2-1
    ma=5600;
    mb=32000;
    bgmchange(oto[100]);
    stagecolor=1;
    scrollx=2900*(113-19);
    //
    byte stagedatex[17][1001]={
      { 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,82, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 0, 0, 4, 0, 0, 4, 0, 0, 0, 0, 4, 0, 0,82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,99, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0,82, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 0,82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 4, 0, 0, 0, 0, 4, 4, 4, 4, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0, 0, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 4, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 4, 4, 4, 4, 4, 0, 0, 4, 7, 7, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 2, 2,98, 2, 4, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,10,10,10,10, 0, 0,10,10,10,10, 4, 1, 1, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 7, 0, 4, 4, 4, 4, 4, 4, 4, 4} ,
      { 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,98, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 4, 7, 7, 7, 4, 4, 4, 0, 0, 0, 0,80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0,81, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,81, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,81, 0, 0, 0,81, 0, 0, 0, 0, 0, 0, 0, 0,50, 0, 0,50, 0, 0,50,81, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,81, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 5, 5, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 5, 5, 0, 0, 0, 0, 0, 5, 5, 5} ,
      { 6, 6, 0, 0, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 0, 6, 6, 6, 6, 6, 6, 0, 0, 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 0, 0, 0, 6, 6, 0, 0, 0, 0, 0, 6, 6, 6} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
    };
    //追加情報
    tco = 0;
    //
    txtype[tco]=6;
    tyobi(1*29,9*29-12,300);
    tco += 1;
    //
    txtype[tco]=0;
    tyobi(40*29,9*29-12,110);
    tco += 1;
    //
    txtype[tco]=7;
    tyobi(79*29,7*29-12,300);
    tco += 1;
    //
    txtype[tco]=2;
    tyobi(83*29,7*29-12,102);
    tco += 1;
    //
    txtype[tco]=0;
    tyobi(83*29,2*29-12,114);
    tco += 1;
    //
    for(int i = -1; i > -7; i -= 1){
      tyobi(85*29, i*29-12, 4);
      tco += 1;
    }
    //
    sco = 0;
    sa[sco]=30*29*100;
    sb[sco]=(13*29-12)*100;
    sc[sco]=12000-1;
    sd[sco]=3000;
    stype[sco]=52;
    sxtype[sco]=0;
    sco += 1;
    //
    sa[sco]=51*29*100;
    sb[sco]=(4*29-12)*100;
    sc[sco]=9000-1;
    sd[sco]=3000;
    stype[sco]=51;
    sxtype[sco]=0;
    sco += 1;
    //
    sa[sco]=84*29*100;
    sb[sco]=(13*29-12)*100;
    sc[sco]=9000-1;
    sd[sco]=3000;
    stype[sco]=52;
    sxtype[sco]=0;
    sco += 1;
    //
    sa[sco]=105*29*100;
    sb[sco]=(13*29-12)*100;
    sc[sco]=15000-1;
    sd[sco]=3000;
    stype[sco]=52;
    sxtype[sco]=0;
    sco += 1;
    //
    bco = 0;
    //
    ba[bco]=13*29*100;
    bb[bco]=(6*29-12)*100;
    btype[bco]=4;
    bxtype[bco]=1;
    bco += 1;
    //
    ba[bco]=23*29*100;
    bb[bco]=(7*29-12)*100;
    btype[bco]=80;
    bxtype[bco]=0;
    bco += 1;
    //
    ba[bco]=25*29*100;
    bb[bco]=(7*29-12)*100;
    btype[bco]=80;
    bxtype[bco]=1;
    bco += 1;
    //
    ba[bco]=27*29*100;
    bb[bco]=(7*29-12)*100;
    btype[bco]=80;
    bxtype[bco]=0;
    bco += 1;
    //
    ba[bco]=88*29*100;
    bb[bco]=(12*29-12)*100;
    btype[bco]=82;
    bxtype[bco]=1;
    bco += 1;
    //
    for (tt=0;tt<=1000;tt++){
      for (t=0;t<=16;t++){
        stagedate[t][tt]=0;stagedate[t][tt]=stagedatex[t][tt];
      }
    }
  }

  if (sta==2 && stb==2 && stc==0){//2-2(地上)
    bgmchange(oto[100]);
    stagecolor=1;
    scrollx=2900*(19-19);
    //
    byte stagedatex[17][1001]={
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0,82, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 7, 0, 0, 0},
      { 0,80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5},
      { 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 0, 0, 0, 0, 6, 6, 6},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
    };
    //
    sa[sco]=14*29*100+200;
    sb[sco]=-6000;
    sc[sco]=5000;
    sd[sco]=70000;
    stype[sco]=100;
    sco += 1;
    //
    sa[sco]=12*29*100+1200;
    sb[sco]=-6000;
    sc[sco]=7000;
    sd[sco]=70000;
    stype[sco]=101;
    sco += 1;
    //
    sa[sco]=12*29*100;
    sb[sco]=(13*29-12)*100;
    sc[sco]=6000-1;
    sd[sco]=3000;
    stype[sco]=52;
    sgtype[sco]=0;
    sco += 1;
    //
    sa[sco]=14*29*100;
    sb[sco]=(9*29-12)*100;
    sc[sco]=6000;
    sd[sco]=12000-200;
    stype[sco]=50;
    sxtype[sco]=1;
    sco += 1;
    //
    tyobi(6*29, 9*29-12, 110);
    //
    for (tt=0;tt<=1000;tt++){
      for (t=0;t<=16;t++){
        stagedate[t][tt]=0;stagedate[t][tt]=stagedatex[t][tt];
      }
    }
  }

  if (sta==2 && stb==2 && stc==1){//2-2(地下)
    bgmchange(oto[103]);
    stagecolor=2;
    ma=7500;mb=9000;
    scrollx=2900*(137-19);
    //
    byte stagedatex[17][1001]={
      { 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,98, 4, 4, 4, 4, 4, 4, 0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,98, 1} ,
      { 4, 0, 0, 0, 0, 0, 0,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,10,10,10,10,10,10,10,10,10,10,10, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0,10,10,10,10,10,10,10,10,10, 0, 0, 1} ,
      { 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1} ,
      { 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1} ,
      { 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,51, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1} ,
      { 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,10,10,10,10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1} ,
      { 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 3, 0, 0, 0, 3, 0, 0, 0, 0, 0,30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1} ,
      { 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,57, 0, 0, 0, 0, 0,57, 0, 0, 0, 0, 0, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0,10, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,44, 0, 0, 1, 1, 1, 1, 1, 1, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1} ,
      { 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 7, 7, 7, 0,97, 0, 0, 0, 1, 1, 1, 1, 1, 1, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1} ,
      { 4, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 4, 0, 0, 0, 1, 1, 0, 0, 0, 0,44, 0, 0, 1} ,
      { 4, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 0, 0, 0, 0, 1, 1, 0, 0, 0,97, 0, 0, 0, 1} ,
      { 4, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1} ,
      { 4, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1} ,
      { 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 5, 5, 5, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1} ,
      { 6, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 6, 6, 6, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 6, 6, 6, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
    };
    //
    bco=0;
    ba[bco]=32*29*100-1400;
    bb[bco]=(-2*29-12)*100+500;
    btype[bco]=86;
    bxtype[bco]=0;
    bco += 1;
    //
    ba[bco]=(31*29-12)*100;
    bb[bco]=(7*29-12)*100;
    btype[bco]=7;
    bxtype[bco]=0;
    bco += 1;
    //
    ba[bco]=38*29*100+1500;
    bb[bco]=(6*29-12)*100+1500;
    btype[bco]=87;
    bxtype[bco]=107;
    bco += 1;
    //
    ba[bco]=38*29*100+1500;
    bb[bco]=(6*29-12)*100+1500;
    btype[bco]=88;
    bxtype[bco]=107;
    bco += 1;
    //
    ba[bco]=42*29*100+1500;
    bb[bco]=(6*29-12)*100+1500;
    btype[bco]=87;
    bxtype[bco]=107;
    bco += 1;
    //
    ba[bco]=42*29*100+1500;
    bb[bco]=(6*29-12)*100+1500;
    btype[bco]=88;
    bxtype[bco]=107;
    bco += 1;
    //
    ba[bco]=46*29*100+1500;
    bb[bco]=(6*29-12)*100+1500;
    btype[bco]=87;
    bxtype[bco]=107;
    bco += 1;
    //
    ba[bco]=46*29*100+1500;
    bb[bco]=(6*29-12)*100+1500;
    btype[bco]=88;
    bxtype[bco]=107;
    bco += 1;
    //
    ba[bco]=58*29*100;
    bb[bco]=(7*29-12)*100;
    btype[bco]=82;
    bxtype[bco]=1;
    bco += 1;
    //
    ba[bco]=66*29*100;
    bb[bco]=(7*29-12)*100;
    btype[bco]=82;
    bxtype[bco]=1;
    bco += 1;
    //
    ba[bco]=76*29*100-1400;
    bb[bco]=(-2*29-12)*100+500;
    btype[bco]=86;
    bxtype[bco]=0;
    bco += 1;
    //
    sco = 0;
    sa[sco]=2*29*100;
    sb[sco]=(13*29-12)*100;
    sc[sco]=300000-6001;
    sd[sco]=3000;
    stype[sco]=52;
    sxtype[sco]=0;
    sco += 1;
    //
    sa[sco]=3*29*100;
    sb[sco]=(7*29-12)*100;
    sc[sco]=3000;
    sd[sco]=3000;
    stype[sco]=105;
    sxtype[sco]=0;
    sco += 1;
    //
    sa[sco]=107*29*100;
    sb[sco]=(9*29-12)*100;
    sc[sco]=9000-1;
    sd[sco]=24000;
    stype[sco]=52;
    sxtype[sco]=1;
    sco += 1;
    //
    sa[sco]=111*29*100;
    sb[sco]=(7*29-12)*100;
    sc[sco]=3000;
    sd[sco]=6000-200;
    stype[sco]=40;
    sxtype[sco]=0;
    sco += 1;
    //
    sa[sco]=113*29*100+1100;
    sb[sco]=(0*29-12)*100;
    sc[sco]=4700;
    sd[sco]=27000-1000;
    stype[sco]=0;
    sxtype[sco]=0;
    sco += 1;
    //
    sa[sco]=128*29*100;
    sb[sco]=(9*29-12)*100;
    sc[sco]=9000-1;
    sd[sco]=24000;
    stype[sco]=52;
    sxtype[sco]=1;
    sco += 1;
    //
    sa[sco]=131*29*100;
    sb[sco]=(9*29-12)*100;
    sc[sco]=3000;
    sd[sco]=6000-200;
    stype[sco]=40;
    sxtype[sco]=2;
    sco += 1;
    //
    sa[sco]=133*29*100+1100;
    sb[sco]=(0*29-12)*100;
    sc[sco]=4700;
    sd[sco]=32000;
    stype[sco]=0;
    sxtype[sco]=0;
    sco += 1;
    //
    tco = 0;
    txtype[tco] = 0;
    tyobi(0*29, 0*29-12, 4);
    tco = 1;
    txtype[tco] = 0;
    tyobi(2*29, 9*29-12, 4);
    tco = 2;
    txtype[tco] = 0;
    tyobi(3*29, 9*29-12, 4);
    tco += 1;
    //
    txtype[tco] = 1;
    tyobi(5*29, 9*29-12, 115);
    tco += 1;
    txtype[tco] = 1;
    tyobi(6*29, 9*29-12, 115);
    tco += 1;
    //
    txtype[tco] = 1;
    tyobi(5*29, 10*29-12, 115);
    tco += 1;
    txtype[tco] = 1;
    tyobi(6*29, 10*29-12, 115);
    tco += 1;
    //
    txtype[tco] = 1;
    tyobi(5*29, 11*29-12, 115);
    tco += 1;
    txtype[tco] = 1;
    tyobi(6*29, 11*29-12, 115);
    tco += 1;
    //
    txtype[tco] = 1;
    tyobi(5*29, 12*29-12, 115);
    tco += 1;
    txtype[tco] = 1;
    tyobi(6*29, 12*29-12, 115);
    tco += 1;
    //
    txtype[tco] = 1;
    tyobi(70*29, 7*29-12, 115);
    tco += 1;
    txtype[tco] = 1;
    tyobi(71*29, 7*29-12, 115);
    tco += 1;
    //
    for (tt=0;tt<=1000;tt++){
      for (t=0;t<=16;t++){
        stagedate[t][tt]=0;stagedate[t][tt]=stagedatex[t][tt];
      }
    }
  }

  if (sta==2 && stb==2 && stc==2){// 2-2 地上
    //
    bgmchange(oto[100]);
    stagecolor = 1;
    scrollx = 2900 * (36 - 19);
    ma = 7500;
    mb = 3000 * 9;
    //
    byte stagedatex[17][1001]={
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0,82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,99, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,50,51, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,50, 4, 4, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0,40, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
      { 0, 0,41, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0,54, 0, 0},
      { 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5} ,
      { 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, 6, 6} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
    };
    //
    bco = 0;
    ba[bco]=9*29*100;
    bb[bco]=(12*29-12)*100;
    btype[bco]=82;
    bxtype[bco]=1;
    bco += 1;
    //
    ba[bco]=10*29*100;
    bb[bco]=(11*29-12)*100;
    btype[bco]=82;
    bxtype[bco]=1;
    bco += 1;
    //
    ba[bco]=11*29*100;
    bb[bco]=(10*29-12)*100;
    btype[bco]=82;
    bxtype[bco]=1;
    bco += 1;
    //
    ba[bco]=12*29*100;
    bb[bco]=(9*29-12)*100;
    btype[bco]=82;
    bxtype[bco]=1;
    bco += 1;
    //
    ba[bco]=13*29*100;
    bb[bco]=(8*29-12)*100;
    btype[bco]=82;
    bxtype[bco]=1;
    bco += 1;
    //
    ba[bco]=14*29*100;
    bb[bco]=(7*29-12)*100;
    btype[bco]=82;
    bxtype[bco]=1;
    bco += 1;
    //
    ba[bco]=15*29*100;
    bb[bco]=(6*29-12)*100;
    btype[bco]=82;
    bxtype[bco]=1;
    bco += 1;
    //
    ba[bco]=16*29*100;
    bb[bco]=(5*29-12)*100;
    btype[bco]=82;
    bxtype[bco]=1;
    bco += 1;
    //
    ba[bco]=17*29*100;
    bb[bco]=(5*29-12)*100;
    btype[bco]=82;
    bxtype[bco]=1;
    bco += 1;
    //
    ba[bco]=18*29*100;
    bb[bco]=(5*29-12)*100;
    btype[bco]=82;
    bxtype[bco]=1;
    bco += 1;
    //
    ba[bco]=19*29*100;
    bb[bco]=(5*29-12)*100;
    btype[bco]=82;
    bxtype[bco]=1;
    bco += 1;
    //
    ba[bco]=20*29*100;
    bb[bco]=(5*29-12)*100;
    btype[bco]=82;
    bxtype[bco]=1;
    bco += 1;
    //
    for (tt=0;tt<=1000;tt++){
      for (t=0;t<=16;t++){
        stagedate[t][tt]=0;stagedate[t][tt]=stagedatex[t][tt];
      }
    }
  }
  //
  if (sta==2 && stb==3 && stc == 0){// 2-3
    ma = 7500;
    mb = 3000 * 8;
    bgmchange(oto[100]);
    stagecolor=1;
    scrollx=2900*(126-19);
    //
    byte stagedatex[17][1001]={
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 7, 0, 0, 0, 0, 0, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,82, 0, 0, 0,56, 0, 0, 0, 0, 0, 0, 0, 0, 4,10,10,10,10,10,10,10,10,10,10,10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,99, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0,51, 0, 1, 0, 0, 0, 0, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0,82, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0,82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,50, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 1, 0, 0, 0, 1, 7, 0, 0, 0, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0,10, 4, 4, 4, 0,54, 0,54, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,58, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 4, 0, 0, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 4, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 0, 4, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 7, 0, 7, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,52, 0, 0, 0, 0, 4, 1, 1, 1, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,10,10, 0, 4, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 4, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0,30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 6, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, 6} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
    };
    //
    tco = 0;
    txtype[tco] = 0;
    for(int i = -1; i > -7; i -= 1){
      tyobi(55*29, i*29-12, 4);
      tco += 1;
    }
    //
    txtype[tco] = 0;
    tyobi(64*29, 12*29-12, 120);
    tco += 1;
    //
    txtype[tco] = 8;
    tyobi(60*29, 6*29-12, 300);
    tco += 1;
    //
    bco = 1;
    ba[bco]=(54*29-12)*100;
    bb[bco]=(1*29-12)*100;
    btype[bco]=80;
    bxtype[bco]=0;
    bco += 1;
    //
    sco = 0;
    ba[sco]=(102*29-12)*100;
    bb[sco]=(10*29-12)*100;
    btype[sco]=50;
    bxtype[sco]=1;
    sco += 1;
    //
    srco=0;
    sra[srco]=1*29*100;
    srb[srco]=(10*29-12)*100;
    src[srco]=5*3000;
    srtype[srco]=0;
    sracttype[srco]=1;
    sre[srco]=0;
    srsp[srco]=10;
    srco++;
    //
    sra[srco]=18*29*100;
    srb[srco]=(4*29-12)*100;
    src[srco]=3*3000;
    srtype[srco]=0;
    sracttype[srco]=0;
    sre[srco]=0;
    srsp[srco]=10;
    srco++;
    //
    sra[srco]=35*29*100;
    srb[srco]=(4*29-12)*100;
    src[srco]=5*3000;
    srtype[srco]=0;
    sracttype[srco]=0;
    sre[srco]=0;
    srsp[srco]=10;
    srco++;
    //
    sra[srco]=35*29*100;
    srb[srco]=(8*29-12)*100;
    src[srco]=5*3000;
    srtype[srco]=0;
    sracttype[srco]=0;
    sre[srco]=0;
    srsp[srco]=10;
    srco++;
    //
    sra[srco]=94*29*100;
    srb[srco]=(6*29-12)*100;
    src[srco]=3*3000;
    srtype[srco]=0;
    sracttype[srco]=0;
    sre[srco]=0;
    srsp[srco]=1;
    srco++;
    //
    for (tt=0;tt<=1000;tt++){
      for (t=0;t<=16;t++){
        stagedate[t][tt]=0;stagedate[t][tt]=stagedatex[t][tt];
      }
    }
  }
  //
  if (sta==2 && stb==4 && (stc == 0 || stc == 10 || stc == 12)){// 2-4(1番)
    if(stc == 0){
      ma = 7500;
      mb = 3000 * 4;
    }else{
      ma = 19500;
      mb = 3000*11;
      stc = 0;
    }
    bgmchange(oto[105]);
    stagecolor=4;
    scrollx=2900*(40-19);
    //
    byte stagedatex[17][1001]={
      { 5, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5} ,
      { 5, 5, 5, 5, 5, 5, 5, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0,10, 0, 0, 0,10,10,10, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5} ,
      { 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 7,10,10,10, 5, 5, 5, 5, 5} ,
      { 5, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5} ,
      { 5, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5} ,
      { 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 5, 5, 5, 5, 7, 7, 7, 3, 7, 0, 7, 5, 0, 0, 5, 5, 5, 0,58, 0, 5, 0, 0, 5, 5} ,
      { 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 5, 5, 5, 0, 0, 0, 5, 5, 5, 5, 5} ,
      { 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 5, 5, 5, 0, 0, 0, 5, 5, 5, 5, 5} ,
      { 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 5, 5, 5, 0, 0, 0, 5, 5, 5, 5, 5} ,
      { 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 5, 5, 5, 0, 0, 0, 5, 5, 5, 5, 5} ,
      { 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 5, 5, 5, 0, 0, 0, 5, 5, 5, 5, 5} ,
      { 5, 0, 0, 0, 0, 0, 0, 0, 0, 0,59,59, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 5,59, 0, 0, 5, 5, 5, 5, 5} ,
      { 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 5, 0, 0, 0, 5, 5, 5, 5, 5} ,
      { 5, 5, 5, 5, 5, 5,40, 0, 5, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 5, 0,59, 0, 5, 5, 5, 5, 5} ,
      { 5,86, 5, 5, 5, 5,41, 0, 5,86, 0, 0,86, 5, 5, 5, 5,86, 0, 0,86, 0, 0,86, 5, 0,86, 5, 5, 5,86, 0, 0, 5, 5, 5, 5, 5} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,59,59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,59, 0, 0, 0, 0, 0}
    };
    //
    tco=0;
    txtype[tco] = 0;
    tyobi(0*29, -1*29-12, 5);
    tco += 1;
    //
    txtype[tco] = 0;
    tyobi(4*29, -1*29-12, 5);
    tco += 1;
    //
    txtype[tco] = 0;
    tyobi(1*29, 14*29-12, 5);
    tco += 1;
    //
    txtype[tco] = 0;
    tyobi(6*29, 14*29-12, 5);
    tco += 1;
    //
    txtype[tco] = 0;
    tyobi(7*29, 14*29-12, 5);
    tco += 1;
    //
    bco=0;
    ba[bco]=2*29*100-1400;
    bb[bco]=(-2*29-12)*100+500;
    btype[bco]=86;
    bxtype[bco]=0;
    bco += 1;
    //
    ba[bco]=20*29*100+1500;
    bb[bco]=(5*29-12)*100+1500;
    btype[bco]=87;
    bxtype[bco]=107;
    bco += 1;
    //
    sco=0;
    sa[sco]=17*29*100;
    sb[sco]=(9*29-12)*100;
    sc[sco]=21000-1;
    sd[sco]=3000-1;
    stype[sco]=52;
    sxtype[sco]=2;
    sco += 1;
    //
    sa[sco]=27*29*100;
    sb[sco]=(13*29-12)*100;
    sc[sco]=6000;
    sd[sco]=6000;
    stype[sco]=50;
    sxtype[sco]=6;
    sco += 1;
    //
    sa[sco]=34*29*100;
    sb[sco]=(5*29-12)*100;
    sc[sco]=6000;
    sd[sco]=30000;
    stype[sco]=50;
    sxtype[sco]=1;
    sco += 1;
    //
    for (tt=0;tt<=1000;tt++){
      for (t=0;t<=16;t++){
        stagedate[t][tt]=0;stagedate[t][tt]=stagedatex[t][tt];
      }
    }
  }

  if (sta==2 && stb==4 && stc == 1){// 2-4(2番)
    ma = 4500;
    mb = 3000*11;
    bgmchange(oto[105]);
    stagecolor=4;
    scrollx=2900*(21-19);
    //
    byte stagedatex[17][1001]={
      { 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,98} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 7, 7, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 5, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 5, 5, 0, 0, 5, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0} ,
      { 0,10,10, 0, 0, 5, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0} ,
      { 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0,44, 0, 0} ,
      { 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 5, 0, 0, 0,97, 0, 0, 0} ,
      { 0,40, 0, 0, 0, 5, 0, 0, 0, 0, 0, 5, 0, 0, 0, 5, 5, 5, 5} ,
      {86,41, 0,86, 0, 5,86, 0, 0,86, 0, 5,86, 0, 0,86, 0, 0,86} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
    };
    //
    tco=0;
    txtype[tco] = 1;
    tyobi(12*29, 13*29-12, 115);
    tco += 1;
    //
    txtype[tco] = 1;
    tyobi(13*29, 13*29-12, 115);
    tco += 1;
    //
    txtype[tco] = 1;
    tyobi(14*29, 13*29-12, 115);
    tco += 1;
    //
    sco = 0;
    sa[sco]=6*29*100;
    sb[sco]=(6*29-12)*100;
    sc[sco]=18000-1;
    sd[sco]=6000-1;
    stype[sco]=52;
    sxtype[sco]=0;
    sco += 1;
    //
    sa[sco]=12*29*100;
    sb[sco]=(8*29-12)*100;
    sc[sco]=9000-1;
    sd[sco]=3000-1;
    stype[sco]=52;
    sxtype[sco]=2;
    sco += 1;
    //
    sa[sco]=15*29*100;
    sb[sco]=(11*29-12)*100;
    sc[sco]=3000;
    sd[sco]=6000;
    stype[sco]=40;
    sxtype[sco]=2;
    sco += 1;
    //
    sa[sco]=17*29*100+1100;
    sb[sco]=(0*29-12)*100;
    sc[sco]=4700;
    sd[sco]=38000;
    stype[sco]=0;
    sxtype[sco]=0;
    sco += 1;
    //
    for (tt=0;tt<=1000;tt++){
      for (t=0;t<=16;t++){
        stagedate[t][tt]=0;stagedate[t][tt]=stagedatex[t][tt];
      }
    }
  }

  if (sta==2 && stb==4 && stc == 2){// 2-4(3番)
    ma = 4500;
    mb = 3000*11;
    bgmchange(oto[105]);
    stagecolor=4;
    scrollx=2900*(128-19);
    //
    byte stagedatex[17][1001]={
      { 5, 5, 5, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5} ,
      { 5, 0, 0, 0, 0, 0, 5, 0, 0, 5, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,60, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 5, 0, 0, 0, 0, 0, 5, 0, 0, 5, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,60, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 5, 0, 0, 0, 0, 0, 5, 0, 0, 5, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 5, 0, 5, 5, 5, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,60, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 5, 0, 0, 0, 0, 0, 5, 0, 0, 5, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 7, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 0, 0, 5, 0, 0, 5, 0, 5, 0,10,10, 5, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,60, 0, 0, 0, 0, 0, 0, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 5, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 5, 0, 0, 5, 0, 5, 0, 0, 0, 5, 0, 5, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 5, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 5, 3, 0, 5, 0, 3, 0, 0, 0, 5, 0, 5, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 5, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 5, 0, 0, 5, 0, 5, 5, 5, 0, 5, 0, 5, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 7, 7, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 3, 0, 0, 3, 0, 0, 3, 7, 0, 3, 7, 7, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 5, 0, 5, 0, 0, 0, 5, 0, 5,10,10, 0, 5, 0, 5, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 7, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 5, 0, 0, 5, 0, 0, 0, 0, 0, 5, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 0, 5, 0, 0, 0, 0, 0, 0, 0, 5, 5, 0, 0, 0, 0, 0, 0, 0, 5, 0, 5, 0, 0, 0, 5, 0, 5, 7, 0, 0, 0, 0, 0, 5, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 5, 0, 0, 5, 0, 0, 0, 0, 0, 5, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0,30, 0, 5, 0, 0, 0, 0, 0, 0, 7, 7, 5, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ,
      { 5, 0, 0, 5, 0, 0, 0, 0, 0, 5, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 5, 5, 5, 5, 0, 0, 5, 0, 0, 7, 0, 0, 5, 0, 0, 0, 0, 0, 5, 0, 0, 5, 0, 0, 0, 5, 0, 0, 0, 5, 5, 5, 5, 5, 0, 0, 0, 5, 5, 5, 0, 0, 0, 5, 5, 5, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5} ,
      { 5, 0, 0, 5, 0, 0, 0, 0, 0, 5, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 5, 0, 5, 0, 0, 0, 0, 0, 5, 0, 0, 5, 0, 0, 0, 5,59, 0,59, 5, 5, 5, 5, 5, 0, 0, 0, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5} ,
      { 5,40, 0, 5, 0, 0, 5, 0, 0, 5, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 5, 0, 5, 0, 5, 0, 0, 0, 5, 0, 0, 5, 0, 0, 0, 5, 0,59, 0, 5, 5, 5, 5, 5, 0, 0, 0, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5} ,
      { 5,41, 0, 5,86, 0, 5,86, 0, 5, 5, 5, 5,86, 0, 0,86, 0, 0,86, 0, 0,86, 0, 0,86, 0, 0,86, 0, 0,86, 0, 0,86, 0, 0, 5,86, 0, 0,86, 0, 0,86, 5, 0,86, 0, 5,86, 5, 0, 5,86, 0, 0, 5, 5, 5, 5,86, 0, 0, 5,86,59, 0, 5, 5, 5, 5, 5,86, 0, 0,86, 5, 5,86, 0, 0,86, 0, 0,86, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5,86, 0, 0,86, 0, 0,86, 0, 0,86, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5} ,
      { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,59, 0, 0, 0, 0, 0,59, 0,59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,59, 0,59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
    };
    //
    tco=0;
    txtype[tco] = 0;
    tyobi(1*29, 14*29-12, 5);
    tco += 1;
    //
    txtype[tco] = 0;
    tyobi(2*29, 14*29-12, 5);
    tco += 1;
    //
    txtype[tco] = 9;
    tyobi(3*29, 4*29-12, 300);
    tco += 1;
    //
    txtype[tco] = 1;
    tyobi(32*29,9*29-12, 115);
    tco += 1;
    //
    txtype[tco] = 0;
    tyobi(76*29,14*29-12, 5);
    tco += 1;
    //
    txtype[tco] = 0;
    tyobi(108*29,11*29-12,141);
    tco += 1;
    //
    txtype[tco] = 0;
    tyobi(109*29,10*29-12-3,140);
    tco += 1;
    //
    txtype[tco] = 0;
    tyobi(121*29,10*29-12,142);
    tco += 1;
    //
    bco = 0;
    ba[bco]=0*29*100+1500;
    bb[bco]=(8*29-12)*100+1500;
    btype[bco]=88;
    bxtype[bco]=105;
    bco += 1;
    //
    ba[bco]=2*29*100;
    bb[bco]=(0*29-12)*100;
    btype[bco]=80;
    bxtype[bco]=1;
    bco += 1;
    //
    ba[bco]=3*29*100+1500;
    bb[bco]=(8*29-12)*100+1500;
    btype[bco]=87;
    bxtype[bco]=105;
    bco += 1;
    //
    ba[bco]=6*29*100+1500;
    bb[bco]=(8*29-12)*100+1500;
    btype[bco]=88;
    bxtype[bco]=107;
    bco += 1;
    //
    ba[bco]=9*29*100+1500;
    bb[bco]=(8*29-12)*100+1500;
    btype[bco]=88;
    bxtype[bco]=107;
    bco += 1;
    //
    ba[bco]=25*29*100-1400;
    bb[bco]=(2*29-12)*100-400;
    btype[bco]=86;
    bxtype[bco]=0;
    bco += 1;
    //
    ba[bco]=40*29*100;
    bb[bco]=(8*29-12)*100;
    btype[bco]=82;
    bxtype[bco]=0;
    bco += 1;
    //
    ba[bco]=42*29*100;
    bb[bco]=(8*29-12)*100;
    btype[bco]=82;
    bxtype[bco]=0;
    bco += 1;
    //
    ba[bco]=43*29*100+1500;
    bb[bco]=(6*29-12)*100+1500;
    btype[bco]=88;
    bxtype[bco]=105;
    bco += 1;
    //
    ba[bco]=47*29*100+1500;
    bb[bco]=(6*29-12)*100+1500;
    btype[bco]=87;
    bxtype[bco]=105;
    bco += 1;
    //
    ba[bco]=57*29*100;
    bb[bco]=(7*29-12)*100;
    btype[bco]=82;
    bxtype[bco]=0;
    bco += 1;
    //
    ba[bco]=77*29*100-1400;
    bb[bco]=(2*29-12)*100-400;
    btype[bco]=86;
    bxtype[bco]=0;
    bco += 1;
    //
    ba[bco]=83*29*100-1400;
    bb[bco]=(2*29-12)*100-400;
    btype[bco]=86;
    bxtype[bco]=0;
    bco += 1;
    //
    ba[bco]=88*29*100+1500;
    bb[bco]=(9*29-12)*100+1500;
    btype[bco]=87;
    bxtype[bco]=105;
    bco += 1;
    //
    ba[bco]=88*29*100+1500;
    bb[bco]=(9*29-12)*100+1500;
    btype[bco]=88;
    bxtype[bco]=105;
    bco += 1;
    //
    ba[bco]=90*29*100;
    bb[bco]=(9*29-12)*100;
    btype[bco]=82;
    bxtype[bco]=0;
    bco += 1;
    //
    ba[bco]=107*29*100;
    bb[bco]=(10*29-12)*100;
    btype[bco]=30;
    bxtype[bco]=0;
    bco += 1;
    //
    sco = 0;
    sa[sco]=13*29*100;
    sb[sco]=(8*29-12)*100;
    sc[sco]=33000-1;
    sd[sco]=3000-1;
    stype[sco]=52;
    sxtype[sco]=2;
    sco += 1;
    //
    sa[sco]=13*29*100;
    sb[sco]=(0*29-12)*100;
    sc[sco]=33000-1;
    sd[sco]=3000-1;
    stype[sco]=51;
    sxtype[sco]=3;
    sco += 1;
    //
    sa[sco]=10*29*100;
    sb[sco]=(13*29-12)*100;
    sc[sco]=6000;
    sd[sco]=6000;
    stype[sco]=50;
    sxtype[sco]=6;
    sco += 1;
    //
    sa[sco]=46*29*100;
    sb[sco]=(12*29-12)*100;
    sc[sco]=9000-1;
    sd[sco]=3000-1;
    stype[sco]=52;
    sxtype[sco]=2;
    sco += 1;
    //
    sa[sco]=58*29*100;
    sb[sco]=(13*29-12)*100;
    sc[sco]=6000;
    sd[sco]=6000;
    stype[sco]=50;
    sxtype[sco]=6;
    sco += 1;
    //
    sa[sco]=101*29*100-1500;
    sb[sco]=(10*29-12)*100-3000;
    sc[sco]=12000;
    sd[sco]=12000;
    stype[sco]=104;
    sxtype[sco]=0;
    sco += 1;
    //
    sa[sco]=102*29*100+3000;
    sb[sco]=(2*29-12)*100;
    sc[sco]=3000-1;
    sd[sco]=300000;
    stype[sco]=102;
    sxtype[sco]=20;
    sco += 1;
    //
    srco = 0;
    sra[srco]=74*29*100-1500;
    srb[srco]=(7*29-12)*100;
    src[srco]=2*3000;
    srtype[srco]=0;
    sracttype[srco]=1;
    sre[srco]=0;
    srsp[srco]=0;
    srco = 20;
    //
    sra[srco]=97*29*100;
    srb[srco]=(12*29-12)*100;
    src[srco]=12*3000;
    srtype[srco]=0;
    sracttype[srco]=0;
    sre[srco]=0;
    srsp[srco]=21;
    srco += 1;
    //
    for (tt=0;tt<=1000;tt++){
      for (t=0;t<=16;t++){
        stagedate[t][tt]=0;stagedate[t][tt]=stagedatex[t][tt];
      }
    }
  }

  }//stagep

  //BGM変更
  void bgmchange(int x){
    StopSoundMem(oto[0]);
    oto[0]=0;
    oto[0]=x;
  }//bgmchange()




  //ブロック出現

  void tyobi(int x,int y,int type){

    ta[tco]=x*100;tb[tco]=y*100;ttype[tco]=type;

    tco++;if (tco>=tmax)tco=0;
  }//tyobi


  //ブロック破壊
  void brockbreak(int t){
    if (titem[t]==1){
      //eyobi(ta[t],tb[t],0,-800,0,80,xx[1],xx[1],titem[t],8);
      //hosico++;
    }
    if (titem[t]>=2 && titem[t]<=7){
      //ayobi(ta[t],tb[t],-800,10,100+(titem[t]-2),0);//end();
    }

    ta[t]=-800000;
    //}//ty==1
}//brock


//メッセージ
void ttmsg(){
  xx[1]=6000/100;xx[2]=4000/100;
  if (tmsgtype==1 || tmsgtype==2){
    setc0();	
    fillrect(xx[1],xx[2],360,tmsgy/100);
    setc1();
    drawrect(xx[1],xx[2],360,tmsgy/100);
  }
  if (tmsgtype==2){
    //フォント
    setfont(20,5);

    if (tmsg==0){
      setc1();
      //フォント
      setfont(20,5);
      txmsg("テスト　hoge",0);
    }

    if (tmsg==1){
      setc1();
      txmsg("",0);
      txmsg("ステージ 1 より",0);
      txmsg("特殊的なものが増えたので",1);
      txmsg("気をつけてくれよ～",2);
      txmsg("後、アイテムの一部を利用するかも…",4);
      txmsg("                       ちく より",6);
    }

    if (tmsg==2){
      txmsg("            ？が必要です ",3);
      txmsg("                         m9(^Д^)",6);
    }


    if (tmsg==3){
      txmsg("   別にコインに意味ないけどね ",3);
      txmsg("                      (・ω・ )ﾉｼ",6);
    }

    if (tmsg==4){
      txmsg("この先に隠しブロックがあります ",2);
      txmsg("注意してください !!",4);
    }


    if (tmsg==5){
      txmsg("",0);
      txmsg(" 前回よりも難易度を下げましたので",1);
      txmsg(" 気楽にプレイしてください    ",3);
      txmsg("                       ちく より",6);
    }

    if (tmsg==6){
      txmsg("",0);
      txmsg(" そこにいる敵のそばによると、      ",1);
      txmsg(" 自分と一緒にジャンプしてくれます。",2);
      txmsg("   可愛いですね。                  ",3);
    }

    if (tmsg==7){
      txmsg("",0);
      txmsg(" あの敵は連れて来れましたか?、     ",1);
      txmsg(" 連れて来れなかった貴方は、        ",2);
      txmsg(" そこの落とし穴から Let's dive!    ",3);
    }

    if (tmsg==8){
      txmsg("そんな容易に",1);
      txmsg("ヒントに頼るもんじゃないぜ",2);
      txmsg("ほら、さっさと次行きな!!",3);
    }

    if (tmsg==9){
      txmsg(" 正真正銘のファイナルステージ。    ",1);
      txmsg(" クリアすれば遂にエンディング!!    ",2);
      txmsg(" その土管から戻ってもいいんだぜ?   ",3);
    }

    if (tmsg==100){
      txmsg("え？私ですか？ ",0);
      txmsg("いやぁ、ただの通りすがりの",2);
      txmsg("ヒントブロックですよ～",3);
      txmsg("決して怪しいブロックじゃないですよ",5);
      txmsg("                          (…チッ)",6);
    }


    setfont(16,4);
  }//2

  if (tmsgtype==3){
    xx[5]=(((15-1)*1200+1500)/100-tmsgy/100);
    if (xx[5]>0){
      setc0();
      fillrect(xx[1],xx[2]+tmsgy/100,360,xx[5]);
      setc1();
      drawrect(xx[1],xx[2]+tmsgy/100,360,xx[5]);
    }}

}//ttmsg

void txmsg(string x,int a){
  int xx=6;

  str(x,60+xx,40+xx+a*24);

}//txmsg


//フォント変更
void setfont(int x,int y){
  SetFontSize(x);
  SetFontThickness(y);
}



//グラ作成
void eyobi(int xa,int xb,int xc,int xd,int xe,int xf,int xnobia,int xnobib,int xgtype,int xtm){

  ea[eco]=xa;eb[eco]=xb;ec[eco]=xc;ed[eco]=xd;ee[eco]=xe;ef[eco]=xf;
  egtype[eco]=xgtype;etm[eco]=xtm;
  enobia[eco]=xnobia;enobib[eco]=xnobib;

  eco++;if (eco>=emax)eco=0;

}//eyobi








//敵キャラ、アイテム作成
void ayobi(int xa,int xb,int xc,int xd,int xnotm,int xtype,int xxtype){
  int rz=0;
  for (t1=0;t1<=1;t1++){t1=2;
    if (aa[aco]>=-9000 && aa[aco]<=30000)t1=0;rz++;

    if (rz<=amax){t1=3;

      aa[aco]=xa;
      ab[aco]=xb;//ag[aco]=0;ah[aco]=0;ai[aco]=bb[t];//ad[t]=0;aeon[t]=1;
      ac[aco]=xc;
      ad[aco]=xd;
      if (xxtype>100)ac[aco]=xxtype;
      //ae[aco]=0;af[aco]=0;
      atype[aco]=xtype;
      if (xxtype>=0 && xxtype<=99100)axtype[aco]=xxtype;//ahp[aco]=iz[bxtype[t]];aytm[aco]=0;
      //if (xxtype==1)end();
      anotm[aco]=xnotm;
      if (aa[aco]-fx<=ma+mnobia/2)amuki[aco]=1;
      if (aa[aco]-fx>ma+mnobia/2)amuki[aco]=0;
      if (abrocktm[aco]>=1)amuki[aco]=1;
      if (abrocktm[aco]==20)amuki[aco]=0;

      anobia[aco]=anx[atype[aco]];anobib[aco]=any[atype[aco]];


      //大砲音
      if (xtype==7 && CheckSoundMem(oto[10])==0){ot(oto[10]);}
      //ファイア音
      if (xtype==10 && CheckSoundMem(oto[18])==0){ot(oto[18]);}


      azimentype[aco]=1;

      //if (atype[aco]<=30 && atype[aco]!=4)atm[aco]=20;



      //azimentype[aco]=1;

      switch(atype[aco]){
        /*
           case 0:case 1:case 2:case 5:case 6:case 7:case 8:
           azimentype[aco]=2;
           break;

           case 3:case 4:
           azimentype[aco]=0;
           break;

           case 49:case 50://case 2:case 5:case 6:
           azimentype[aco]=4;
           break;

           case 80:case 81:case 82:case 83:case 84:case 85:
           azimentype[aco]=1;
           break;

           case 100:case 101:case 102:case 103:case 104:case 105:case 106:case 107:case 108:
           azimentype[aco]=1;
           break;

           case 120:case 121:case 122:
           azimentype[aco]=1;
           break;

           case 130:case 131:case 132:case 133:case 134:
           azimentype[aco]=1;
           break;
           */
      }

      if (xtype==87){atm[aco]=rand(179)+(-90);}

      aco+=1;if (aco>=amax-1){aco=0;}
    }//t1

    //if (bz[t]==1){bz[t]=0;}
  }//rz

}//ayobi