catmario/src/main.cpp

#include "lib.h"
#include <math.h>

//#define TEST_MODE
//#define DEBUG_LEVEL
//#define SHOW_TRAP
//#define RAND_STAGE

#if !defined(TEST_MODE)
#define printf(...) {};
#endif

static inline int abs(int v) {
  return v < 0 ? -v : v;
}

static inline int max(int a, int b) {
  return a > b ? a : b;
}

static inline int clamp(int v, int a, int b) {
  if (v < a) v = a;
  if (v > b) v = b;
  return v;
}

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

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

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


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


//ステージ読み込みループ(いじらない)
int stagerr, stagepoint;

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

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

byte paused = 0;
byte waitpause = 0;
int score = 0;
int scorepos = 0;
int nopause = 0;

struct savestage {
  int life;
  int time;
  int pos;
};

struct savedata {
  int version;
  char sta;
  char stb;
  char stc;
  char std;
  int life;
  int time;
  int score;
  savestage stage[14];
  unsigned int check;
};

savedata save = { 0 };

//描画
int grap[161][8], mgrap[51];

//文字
void str(const char* c, int a, int b);
void stri(int id, 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, 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(int x, int a);

//効果を持たないグラ
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 fma1 = 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];
const char* xs[31];


//タイマー測定
long stime;


// Language

// language string def
#define JP(id, s)  id,
#define CN(id, s)
enum StringIDs {
  IDS_EMPTY,
#include "str.h"
  IDS_COUNT,
};
enum LanguageID {
  LANG_JP,
  LANG_CN,
  LANG_COUNT,
};

static const char* string_table[LANG_COUNT][IDS_COUNT];
static int lang = LANG_CN;

void lang_init() {
  for (int i = 0; i < LANG_COUNT; i++) {
    for (int id = 0; id < IDS_COUNT; id++) {
      string_table[i][id] = "";
    }
  }

#define JP(id, s)
#define CN(id, s) string_table[LANG_CN][id] = s;
#include "str.h"
}

void drawlang(int a, int b, int id) {
  drawstring(a, b, string_table[LANG_CN][id]);
}

void drawlangc(int a, int b, int id) {
  drawstringc(a, b, string_table[LANG_CN][id]);
}

const char* base64char = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
static int base64_encode(const unsigned char *bindata, char *base64, int binlength) {
  int i, j;
  unsigned char current;

  for (i = 0, j = 0; i < binlength; i += 3) {
    current = (bindata[i] >> 2);
    current &= (unsigned char)0x3F;
    base64[j++] = base64char[(int)current];

    current = ((unsigned char)(bindata[i] << 4)) & ((unsigned char)0x30);
    if (i + 1 >= binlength) {
      base64[j++] = base64char[(int)current];
      base64[j++] = '=';
      base64[j++] = '=';
      break;
    }
    current |= ((unsigned char)(bindata[i + 1] >> 4)) & ((unsigned char)0x0F);
    base64[j++] = base64char[(int)current];

    current = ((unsigned char)(bindata[i + 1] << 2)) & ((unsigned char)0x3C);
    if (i + 2 >= binlength) {
      base64[j++] = base64char[(int)current];
      base64[j++] = '=';
      break;
    }
    current |= ((unsigned char)(bindata[i + 2] >> 6)) & ((unsigned char)0x03);
    base64[j++] = base64char[(int)current];

    current = ((unsigned char)bindata[i + 2]) & ((unsigned char)0x3F);
    base64[j++] = base64char[(int)current];
  }
  base64[j] = '\0';
  return j;
}

static int base64_decode(const char * base64, unsigned char * bindata, int len) {
  int i, j;
  unsigned char k;
  unsigned char temp[4] = { 0xff, 0xff, 0xff, 0xff };
  for (i = 0, j = 0; base64[i] != '\0'; i += 4) {
    for (k = 0; k < 64; k++) {
      if (base64char[k] == base64[i])
        temp[0] = k;
    }
    for (k = 0; k < 64; k++) {
      if (base64char[k] == base64[i + 1])
        temp[1] = k;
    }
    for (k = 0; k < 64; k++) {
      if (base64char[k] == base64[i + 2])
        temp[2] = k;
    }
    for (k = 0; k < 64; k++) {
      if (base64char[k] == base64[i + 3])
        temp[3] = k;
    }

    if (j >= len) break;
    bindata[j++] = ((unsigned char)(((unsigned char)(temp[0] << 2)) & 0xFC)) |
      ((unsigned char)((unsigned char)(temp[1] >> 4) & 0x03));
    if (base64[i + 2] == '=')
      break;

    if (j >= len) break;
    bindata[j++] = ((unsigned char)(((unsigned char)(temp[1] << 4)) & 0xF0)) |
      ((unsigned char)((unsigned char)(temp[2] >> 2) & 0x0F));
    if (base64[i + 3] == '=')
      break;

    if (j >= len) break;
    bindata[j++] = ((unsigned char)(((unsigned char)(temp[2] << 6)) & 0xF0)) |
      ((unsigned char)(temp[3] & 0x3F));
  }
  return j;
}

static unsigned int crc32(unsigned int crc, unsigned char *data, int len) {
  unsigned int POLYNOMIAL = 0xEDB88320;
  unsigned int table[256];

  int i, j;
  for (i = 0; i < 256; i++)
    for (j = 0, table[i] = i; j < 8; j++)
      table[i] = (table[i] >> 1) ^ ((table[i] & 1) ? POLYNOMIAL : 0);

  crc = ~crc;
  for (i = 0; i < len; i++)
    crc = (crc >> 8) ^ table[(crc ^ data[i]) & 0xff];
  return ~crc;
}

static void encode(unsigned char* data, int len) {
  unsigned int seed = 'tiwb';
  for (int i = 0; i < len; i++) {
    data[i] ^= seed;
    seed = seed * 1103515245 + 12345;
  }
}

static int getstageid() {
  if (sta == 1 && stb == 1 && stc == 0) return 1;

  if (sta == 1 && stb == 2 && stc == 0) return 2;
  if (sta == 1 && stb == 2 && stc == 1) return 3;
  if (sta == 1 && stb == 2 && stc == 2) return 4;

  if (sta == 1 && stb == 3 && stc == 0) return 5;
  if (sta == 1 && stb == 3 && stc == 5) return 5;
  if (sta == 1 && stb == 4 && stc == 0) return 6;

  if (sta == 2 && stb == 1 && stc == 0) return 7;

  if (sta == 2 && stb == 2 && stc == 0) return 8;
  if (sta == 2 && stb == 2 && stc == 1) return 9;
  if (sta == 2 && stb == 2 && stc == 2) return 10;

  if (sta == 2 && stb == 3 && stc == 0) return 11;

  if (sta == 2 && stb == 4 && stc == 0) return 12;
  if (sta == 2 && stb == 4 && stc == 1) return 13;
  if (sta == 2 && stb == 4 && stc == 2) return 14;

  return 0;
}

void dlm_save() {
  save.version = ('S' << 24) | ('J' << 16) | ('M' << 8) | 0x02;
  save.sta = sta;
  save.stb = stb;
  save.stc = stc;
  save.std = tyuukan;
  save.check = crc32('TIWB', (unsigned char*)&save, sizeof(save) - 4);
  savedata d = save;
  encode((unsigned char*)&d, sizeof(d));
  char buf[sizeof(d) * 2];
  base64_encode((unsigned char*)&d, buf, sizeof(d));
  EM_ASM_({
    localStorage.data = UTF8ToString($0);
  }, buf);
}

void dlm_load() {
  char buf[sizeof(save) * 2];
  EM_ASM_({
    try {
      stringToUTF8(localStorage.data, $0, $1)
    }
    catch (err) {}
  }, buf, sizeof(buf));
  base64_decode(buf, (unsigned char*)&save, sizeof(save));
  encode((unsigned char*)&save, sizeof(save));
  int saveChekc = save.version & 0xffffff00;
  int versionNum = save.version & 0xff;
  if (versionNum == 2 && save.check == crc32('TIWB', (unsigned char*)&save, sizeof(save) - 4)) {
    sta = save.sta;
    stb = save.stb;
    stc = save.stc;
    tyuukan = save.std;
    zxon = 0;
  }
  else {
    dlm_reset();
  }
}

EMSCRIPTEN_KEEPALIVE
void dlm_reset() {
  sta = 1;
  stb = 1;
  stc = 0;
  tyuukan = 0;
  zxon = 0;
  for (int i = 0; i < sizeof(save); i++) {
    ((char*)&save)[i] = 0;
  }
  dlm_save();
}

int dlm_updatescore(int stage) {
  int sc = 0;
  static const int poslimit[14] = {
    37400, 4500, 37400, 9300, 41700, 45200, 31900, 4500, 38000, 
    9600, 35400, 10100, 4400, 33200,
  };

  printf("------------------\n");
  for (int i = 0; i < stage; i++) {
    sc += clamp(save.stage[i].pos, 0, poslimit[i]);
    sc += clamp(10000 - save.stage[i].life * 100, 0, 10000);
    sc += clamp(10000 - save.stage[i].time, 0, 10000);
    printf("stage: %d  pos:%d  time:%d   life:%d\n", i, 
           save.stage[i].pos,
           save.stage[i].time,
           save.stage[i].life);
  }
  printf("total score:%d\n", sc);
  return sc;
}

void dlm_stagestart() {
  stageid = getstageid();
  save.time = 0;
  save.score = dlm_updatescore(stageid - 1);
  score = save.score;
}

void dlm_checkpoint() {
  if (stageid > 0) {
    save.stage[stageid - 1].time += save.time;
    save.time = 0;
  }
}

void dlm_stageclear() {
  if (stageid > 0) {
    save.stage[stageid - 1].time += save.time;
    save.stage[stageid - 1].pos = scorepos / 1000 * 100;
    save.time = 0;
    save.score = dlm_updatescore(stageid);
    score = save.score;
    stageid = 0;
  }
}

void dlm_killed() {
  save.life++;
  if (stageid > 0) {
    save.stage[stageid - 1].life++;
  }
}

EMSCRIPTEN_KEEPALIVE
void dlm_start() {
  mainproc = 10;
  zxon = 0;
  maintm = 0;
  nopause = 1;
  soundplay(0);

#ifdef DEBUG_LEVEL
  {sta = 1; stb = 2; stc = 0; tyuukan = 1; }
#endif
}

EMSCRIPTEN_KEEPALIVE
int dlm_mainproc() {
  return mainproc;
}

EMSCRIPTEN_KEEPALIVE
void dlm_title() {
  mainproc = 100;
  maintm = 0;
  paused = 0;
  bgmstop();
}

EMSCRIPTEN_KEEPALIVE
void dlm_init(void) {
  dlm_load();
  input_init();
  graphics_init();
  sound_init();
  lang_init();

  for (t = 0; t < 7; t++) {
    mgrap[t] = 0;
  }

  //画像読み込み

  //プレイヤー
  mgrap[0] = loadimage("res/player.png");
  //ブロック
  mgrap[1] = loadimage("res/brock.png");
  //アイテム
  mgrap[2] = loadimage("res/item.png");
  //敵
  mgrap[3] = loadimage("res/teki.png");
  //背景
  mgrap[4] = loadimage("res/haikei.png");
  //ブロック2
  mgrap[5] = loadimage("res/brock2.png");
  //おまけ
  mgrap[6] = loadimage("res/omake.png");
  //おまけ2
  mgrap[7] = loadimage("res/omake2.png");
  //タイトル
  //mgrap[30] = loadimage("res/syobon3.png");


  //プレイヤー読み込み
  grap[40][0] = subimage(0, 0, 30, 36, mgrap[0]);
  grap[0][0] = subimage(31 * 4, 0, 30, 36, mgrap[0]);
  grap[1][0] = subimage(31 * 1, 0, 30, 36, mgrap[0]);
  grap[2][0] = subimage(31 * 2, 0, 30, 36, mgrap[0]);
  grap[3][0] = subimage(31 * 3, 0, 30, 36, mgrap[0]);
  grap[41][0] = subimage(50, 0, 51, 73, mgrap[6]);

  //ブロック読み込み
  for (t = 0; t <= 6; t++) {
    grap[t][1] = subimage(33 * t, 0, 30, 30, mgrap[1]);
    grap[t + 30][1] = subimage(33 * t, 33, 30, 30, mgrap[1]);
    grap[t + 60][1] = subimage(33 * t, 66, 30, 30, mgrap[1]);
  }
  grap[8][1] = subimage(33 * 7, 0, 30, 30, mgrap[1]);
  grap[16][1] = subimage(33 * 6, 0, 24, 27, mgrap[2]);
  grap[10][1] = subimage(33 * 9, 0, 30, 30, mgrap[1]);
  grap[40][1] = subimage(33 * 9, 33, 30, 30, mgrap[1]);
  grap[70][1] = subimage(33 * 9, 66, 30, 30, mgrap[1]);

  //ブロック読み込み2
  for (t = 0; t <= 6; t++) {
    grap[t][5] = subimage(33 * t, 0, 30, 30, mgrap[5]);
  }
  grap[10][5] = subimage(33 * 1, 33, 30, 30, mgrap[5]);
  grap[11][5] = subimage(33 * 2, 33, 30, 30, mgrap[5]);
  grap[12][5] = subimage(33 * 0, 66, 30, 30, mgrap[5]);
  grap[13][5] = subimage(33 * 1, 66, 30, 30, mgrap[5]);
  grap[14][5] = subimage(33 * 2, 66, 30, 30, mgrap[5]);

  //アイテム読み込み
  for (t = 0; t <= 5; t++) {
    grap[t][2] = subimage(33 * t, 0, 30, 30, mgrap[2]);
  }

  //敵キャラ読み込み
  grap[0][3] = subimage(33 * 0, 0, 30, 30, mgrap[3]);
  grap[1][3] = subimage(33 * 1, 0, 30, 43, mgrap[3]);
  grap[2][3] = subimage(33 * 2, 0, 30, 30, mgrap[3]);
  grap[3][3] = subimage(33 * 3, 0, 30, 44, mgrap[3]);
  grap[4][3] = subimage(33 * 4, 0, 33, 35, mgrap[3]);
  grap[5][3] = subimage(0, 0, 37, 55, mgrap[7]);
  grap[6][3] = subimage(38 * 2, 0, 36, 50, mgrap[7]);
  grap[150][3] = subimage(38 * 2 + 37 * 2, 0, 36, 50, mgrap[7]);
  grap[7][3] = subimage(33 * 6 + 1, 0, 32, 32, mgrap[3]);
  grap[8][3] = subimage(38 * 2 + 37 * 3, 0, 37, 47, mgrap[7]);
  grap[151][3] = subimage(38 * 3 + 37 * 3, 0, 37, 47, mgrap[7]);
  grap[9][3] = subimage(33 * 7 + 1, 0, 26, 30, mgrap[3]);
  grap[10][3] = subimage(214, 0, 46, 16, mgrap[6]);

  //モララー
  grap[30][3] = subimage(0, 56, 30, 36, mgrap[7]);
  grap[155][3] = subimage(31 * 3, 56, 30, 36, mgrap[7]);
  grap[31][3] = subimage(50, 74, 49, 79, mgrap[6]);


  grap[80][3] = subimage(151, 31, 70, 40, mgrap[4]);
  grap[81][3] = subimage(151, 72, 70, 40, mgrap[4]);
  grap[130][3] = subimage(151 + 71, 72, 70, 40, mgrap[4]);
  grap[82][3] = subimage(33 * 1, 0, 30, 30, mgrap[5]);
  grap[83][3] = subimage(0, 0, 49, 48, mgrap[6]);
  grap[84][3] = subimage(33 * 5 + 1, 0, 30, 30, mgrap[3]);
  grap[86][3] = subimage(102, 66, 49, 59, mgrap[6]);
  grap[152][3] = subimage(152, 66, 49, 59, mgrap[6]);

  grap[90][3] = subimage(102, 0, 64, 63, mgrap[6]);

  grap[100][3] = subimage(33 * 1, 0, 30, 30, mgrap[2]);
  grap[101][3] = subimage(33 * 7, 0, 30, 30, mgrap[2]);
  grap[102][3] = subimage(33 * 3, 0, 30, 30, mgrap[2]);

  //grap[104][3] = subimage( 33*2, 0, 30, 30, mgrap[5]) ;
  grap[105][3] = subimage(33 * 5, 0, 30, 30, mgrap[2]);
  grap[110][3] = subimage(33 * 4, 0, 30, 30, mgrap[2]);


  //背景読み込み
  grap[0][4] = subimage(0, 0, 150, 90, mgrap[4]);
  grap[1][4] = subimage(151, 0, 65, 29, mgrap[4]);
  grap[2][4] = subimage(151, 31, 70, 40, mgrap[4]);
  grap[3][4] = subimage(0, 91, 100, 90, mgrap[4]);
  grap[4][4] = subimage(151, 113, 51, 29, mgrap[4]);
  grap[5][4] = subimage(222, 0, 28, 60, mgrap[4]);
  grap[6][4] = subimage(151, 143, 90, 40, mgrap[4]);

  //中間フラグ
  grap[20][4] = subimage(40, 182, 40, 60, mgrap[4]);


  //グラ
  grap[0][5] = subimage(167, 0, 45, 45, mgrap[6]);


  //敵サイズ収得
  //int GrHandle=0;
  for (t = 0; t <= 140; t++) {
    getimagesize(grap[t][3], &anx[t], &any[t]);
    anx[t] *= 100; any[t] *= 100;
  }
  anx[79] = 120 * 100; any[79] = 15 * 100;
  anx[85] = 25 * 100; any[85] = 30 * 10 * 100;

  //背景サイズ収得
  for (t = 0; t < 40; t++) {
    getimagesize(grap[t][4], &ne[t], &nf[t]);
    //ne[t]*=100;nf[t]*=100;
  }
}


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

  //ダブルバッファリング
  setcolor(0, 0, 0);
  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);
  clearscreen();


  /*
     //文字を書く
     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 (mainproc == 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
        setcolor(255, 255, 255);
        if (ntype[t] == 100)
          drawlang(xx[0] / 100 + fma1, xx[1] / 100 + fmb, IDS_1);
        if (ntype[t] == 101)
          drawlangc(xx[0] / 100 + fma1, xx[1] / 100 + fmb, IDS_2);
        if (ntype[t] == 102)
          drawlangc(xx[0] / 100 + fma1, xx[1] / 100 + fmb, IDS_3);
      }
    }   //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) setmirror(1);
          drawimage(grap[0][5], xx[0] / 100, xx[1] / 100);
          setmirror(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+fma1+5,xx[1]/100+fmb+5,0,0,10,10);
        //おもしろ
        //drawimage(image[2],xx[0]/100+fma1,xx[1]/100+fmb,0,0,20,20);
        //}
        //if (egtype[t]==2)
        //drawimage(image[11],xx[0]/100+fma1,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+fma1,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+fma1,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+fma1,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+fma1+tt*(xx[6]),xx[1]/100+fmb,5,0,xx[7],10);
           drawimage(image[6],xx[0]/100+fma1+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);
    //setmirror(1);

    if (mactp >= 2000) { mactp -= 2000; if (mact == 0) { mact = 1; } else { mact = 0; } }
    if (mmuki == 0) setmirror(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);
    }

    setmirror(0);

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


    //g.setFlipMode(Graphics.FLIP_NONE);



    //for (t=0;t<bmax;t++){drawstringf((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) { setmirror(1); }
        if (atype[t] == 3 && axtype[t] == 1) { drawimageflip(grap[atype[t]][3], xx[0] / 100, xx[1] / 100); xx[16] = 1; }
        if (atype[t] == 9 && ad[t] >= 1) { drawimageflip(grap[atype[t]][3], xx[0] / 100, xx[1] / 100); xx[16] = 1; }
        if (atype[t] >= 100 && amuki[t] == 1) setmirror(0);

        //tekikaki(atype[t]);

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


        //drawstringf(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);


        setmirror(0);

#ifdef DEBUG_LEVEL
        {
          char buff[32];
          snprintf(buff, sizeof(buff), "%d", atype[t]);
          drawstring(xx[0] / 100, xx[1] / 100, buff);
        }
#endif
      }
    }



    //ブロック描画
    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); }

#ifdef DEBUG_LEVEL
        {
          char buff[32];
          snprintf(buff, sizeof(buff), "%d", ttype[t]);
          drawstring(xx[0] / 100, xx[1] / 100, buff);
        }
#endif
        //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 + fma1, (sb[t] - fy) / 100 + fmb, sc[t] / 100, sd[t] / 100);
          drawrect((sa[t] - fx) / 100 + fma1, (sb[t] - fy) / 100 + fmb, sc[t] / 100, sd[t] / 100);
        }
        //土管
        if (stype[t] == 1) {
          setcolor(0, 230, 0);
          fillrect((sa[t] - fx) / 100 + fma1, (sb[t] - fy) / 100 + fmb, sc[t] / 100, sd[t] / 100);
          setc0();
          drawrect((sa[t] - fx) / 100 + fma1, (sb[t] - fy) / 100 + fmb, sc[t] / 100, sd[t] / 100);
        }
        //土管(下)
        if (stype[t] == 2) {
          setcolor(0, 230, 0);
          fillrect((sa[t] - fx) / 100 + fma1, (sb[t] - fy) / 100 + fmb + 1, sc[t] / 100, sd[t] / 100);
          setc0();
          drawline((sa[t] - fx) / 100 + fma1, (sb[t] - fy) / 100 + fmb, (sa[t] - fx) / 100 + fma1, (sb[t] - fy) / 100 + fmb + sd[t] / 100);
          drawline((sa[t] - fx) / 100 + fma1 + sc[t] / 100, (sb[t] - fy) / 100 + fmb, (sa[t] - fx) / 100 + fma1 + sc[t] / 100, (sb[t] - fy) / 100 + fmb + sd[t] / 100);
        }

        //土管(横)
        if (stype[t] == 5) {
          setcolor(0, 230, 0);
          fillrect((sa[t] - fx) / 100 + fma1, (sb[t] - fy) / 100 + fmb + 1, sc[t] / 100, sd[t] / 100);
          setc0();
          drawline((sa[t] - fx) / 100 + fma1, (sb[t] - fy) / 100 + fmb, (sa[t] - fx) / 100 + fma1 + sc[t] / 100, (sb[t] - fy) / 100 + fmb);
          drawline((sa[t] - fx) / 100 + fma1, (sb[t] - fy) / 100 + fmb + sd[t] / 100, (sa[t] - fx) / 100 + fma1 + 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 + fma1 + 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 + fma1 + 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 + fma1 + 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 + fma1 + 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 + fma1 + 29 * t3, (sb[t] - fy) / 100 + fmb);
              if (stagecolor != 4) { drawimage(grap[6 + xx[29]][1], (sa[t] - fx) / 100 + fma1 + 29 * t3, (sb[t] - fy) / 100 + fmb + 29); }
              else { drawimage(grap[5 + xx[29]][1], (sa[t] - fx) / 100 + fma1 + 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 + fma1 + 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 + fma1 + 29 * t3, (sb[t] - fy) / 100 + fmb + 29 * t2);
              }
            }

          }
        }


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

        //ゴール
        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 + fma1, (sb[t] - fy) / 100 + fmb + 1, sc[t] / 100, sd[t] / 100);
          setc0();
          drawrect((sa[t] - fx) / 100 + fma1, (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 + fma1 + 5, (sb[t] - fy) / 100 + fmb + 30, 50, sd[t] / 100 - 30);
          setc0();
          drawline((sa[t] - fx) / 100 + 5 + fma1, (sb[t] - fy) / 100 + fmb + 30, (sa[t] - fx) / 100 + fma1 + 5, (sb[t] - fy) / 100 + fmb + sd[t] / 100);
          drawline((sa[t] - fx) / 100 + 5 + fma1 + 50, (sb[t] - fy) / 100 + fmb + 30, (sa[t] - fx) / 100 + fma1 + 50 + 5, (sb[t] - fy) / 100 + fmb + sd[t] / 100);

          setcolor(0, 230, 0);
          fillrect((sa[t] - fx) / 100 + fma1, (sb[t] - fy) / 100 + fmb + 1, 60, 30);
          setc0();
          drawrect((sa[t] - fx) / 100 + fma1, (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 + fma1 + 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--;
      int strid = 0;

      if (mmsgtype == 1) strid = IDS_MSG_1;
      if (mmsgtype == 2) strid = IDS_MSG_2;
      if (mmsgtype == 3) strid = IDS_MSG_3;
      if (mmsgtype == 10) strid = IDS_MSG_10;
      if (mmsgtype == 11) strid = IDS_MSG_11;
      if (mmsgtype == 50) strid = IDS_MSG_50;
      if (mmsgtype == 51) strid = IDS_MSG_51;
      if (mmsgtype == 52) strid = IDS_MSG_52;
      if (mmsgtype == 53) strid = IDS_MSG_53;
      if (mmsgtype == 54) strid = IDS_MSG_54;
      if (mmsgtype == 55) strid = IDS_MSG_55;

      setfonttype(DX_FONTTYPE_EDGE);
      setc1();
      stri(strid, (ma + mnobia + 300) / 100, mb / 100);
      setfonttype(DX_FONTTYPE_NORMAL);
    }        //mmsgtm


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

        int strid = 0;

        if (amsgtype[t] == 1001) strid = IDS_AMSG_1001;
        if (amsgtype[t] == 1002) strid = IDS_AMSG_1002;
        if (amsgtype[t] == 1003) strid = IDS_AMSG_1003;
        if (amsgtype[t] == 1004) strid = IDS_AMSG_1004;
        if (amsgtype[t] == 1005) strid = IDS_AMSG_1005;
        if (amsgtype[t] == 1006) strid = IDS_AMSG_1006;
        if (amsgtype[t] == 1007) strid = IDS_AMSG_1007;
        if (amsgtype[t] == 1008) strid = IDS_AMSG_1008;

        if (amsgtype[t] == 1011) strid = IDS_AMSG_1011;
        if (amsgtype[t] == 1012) strid = IDS_AMSG_1012;
        if (amsgtype[t] == 1013) strid = IDS_AMSG_1013;
        if (amsgtype[t] == 1014) strid = IDS_AMSG_1014;
        if (amsgtype[t] == 1015) strid = IDS_AMSG_1015;
        if (amsgtype[t] == 1016) strid = IDS_AMSG_1016;
        if (amsgtype[t] == 1017) strid = IDS_AMSG_1017;
        if (amsgtype[t] == 1018) strid = IDS_AMSG_1018;

        if (amsgtype[t] == 1021) strid = IDS_AMSG_1021;
        if (amsgtype[t] == 1022) strid = IDS_AMSG_1022;
        if (amsgtype[t] == 1023) strid = IDS_AMSG_1023;
        if (amsgtype[t] == 1024) strid = IDS_AMSG_1024;
        if (amsgtype[t] == 1025) strid = IDS_AMSG_1025;
        if (amsgtype[t] == 1026) strid = IDS_AMSG_1026;
        if (amsgtype[t] == 1027) strid = IDS_AMSG_1027;
        if (amsgtype[t] == 1028) strid = IDS_AMSG_1028;

        if (amsgtype[t] == 1031) strid = IDS_AMSG_1031;
        if (amsgtype[t] == 1032) strid = IDS_AMSG_1032;
        if (amsgtype[t] == 1033) strid = IDS_AMSG_1033;
        if (amsgtype[t] == 1034) strid = IDS_AMSG_1034;
        if (amsgtype[t] == 1035) strid = IDS_AMSG_1035;
        if (amsgtype[t] == 1036) strid = IDS_AMSG_1036;
        if (amsgtype[t] == 1037) strid = IDS_AMSG_1037;
        if (amsgtype[t] == 1038) strid = IDS_AMSG_1038;

        if (amsgtype[t] == 15) strid = IDS_AMSG_15;
        if (amsgtype[t] == 16) strid = IDS_AMSG_16;
        if (amsgtype[t] == 17) strid = IDS_AMSG_17;
        if (amsgtype[t] == 18) strid = IDS_AMSG_18;
        if (amsgtype[t] == 20) strid = IDS_AMSG_20;
        if (amsgtype[t] == 21) strid = IDS_AMSG_21;
        if (amsgtype[t] == 24) strid = IDS_AMSG_24;
        if (amsgtype[t] == 25) strid = IDS_AMSG_25;
        if (amsgtype[t] == 30) strid = IDS_AMSG_30;
        if (amsgtype[t] == 31) strid = IDS_AMSG_31;
        if (amsgtype[t] == 32) strid = IDS_AMSG_32;

        if (amsgtype[t] == 50) strid = IDS_AMSG_50;
        if (amsgtype[t] == 85) strid = IDS_AMSG_85;
        if (amsgtype[t] == 86) strid = IDS_AMSG_86;

        if (amsgtype[t] != 31) {
          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;
        }

        setfonttype(DX_FONTTYPE_EDGE);
        setc1();
        stri(strid, xx[5], xx[6]);
        setfonttype(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) {
        paused = 1;
        tmsgy = 0; tmsgtype = 3; tmsgtm = 15 + 1;
      }
      else if (tmsgtype == 3) {
        xx[0] = 1200;
        tmsgy += xx[0];
        if (tmsgtm == 1) { tmsgtm = 0; tmsgtype = 0; tmsgy = 0; }
      }        //1

      tmsgtm--;
    }        //tmsgtm


    //メッセージ
    if (mainmsgtype >= 1) {
      setfont(20, 4);
      setcolor(255, 255, 255);
      if (mainmsgtype == 1) { drawlangc(240, 100, IDS_4); }
      if (mainmsgtype == 1) { 
        for (t2 = 0; t2 <= 2; t2++) {
          char buff[16];
          snprintf(buff, sizeof(buff), "%d", t2 + 1);
          drawstring(88 + t2 * 143, 210, buff); 
        }
      }
      setfont(20, 5);
    }        //mainmsgtype>=1


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

    }        //blacktm

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

    //score
    {
      char buff[128];
      setc1();
      snprintf(buff, sizeof(buff), "%s %d", string_table[lang][IDS_SCORE], score);
      drawstring(15, 5, buff);

      snprintf(buff, sizeof(buff), string_table[lang][IDS_LEVEL], sta, stb);
      drawstring(400, 5, buff);

#ifdef TEST_MODE
      setcolor(255, 0, 0);
      snprintf(buff, sizeof(buff), "stage:%d(%d-%d-%d-%d) mainproc:%d  mtype:%d  mtm:%d", stageid, sta, stb, stc, tyuukan, mainproc, mtype, mtm);

      drawstring(10, 25, buff);

      if (stageid > 0) {
        snprintf(buff, sizeof(buff), "time:%d + %d", save.stage[stageid - 1].time, save.time);
        drawstring(10, 45, buff);
      }
#endif
      setfonttype(DX_FONTTYPE_NORMAL);
    }

  } //if (mainproc==1)


  if (mainproc == 2) {

    setcolor(255, 255, 255);
    drawlangc(240, xx[12] / 100, IDS_STAFF_1);
    drawlangc(240, xx[13] / 100, IDS_STAFF_2);
    drawlangc(240, xx[14] / 100, IDS_STAFF_3);
    drawlangc(240, xx[15] / 100, IDS_STAFF_4);
    drawlangc(240, xx[16] / 100, IDS_STAFF_5);
    drawlangc(240, xx[17] / 100, IDS_STAFF_6);
    drawlangc(240, xx[18] / 100, IDS_STAFF_7);
    drawlangc(240, xx[19] / 100, IDS_STAFF_8);
    drawlangc(240, xx[20] / 100, IDS_STAFF_9);
    drawlangc(240, xx[21] / 100, IDS_STAFF_10);
    drawlangc(240, xx[22] / 100, IDS_STAFF_11);
    drawlangc(240, xx[23] / 100, IDS_STAFF_12);
    drawlangc(240, xx[24] / 100, IDS_STAFF_13);
    drawlangc(240, xx[25] / 100, IDS_STAFF_14);
    drawlangc(240, xx[26] / 100, IDS_STAFF_15);
    drawlangc(240, xx[27] / 100, IDS_STAFF_16);
    drawlangc(240, xx[28] / 100, IDS_STAFF_17);
    drawlangc(240, xx[29] / 100, IDS_STAFF_18);
    drawlangc(240, xx[30] / 100, IDS_STAFF_19);
  }



  if (mainproc == 10) {

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

    setfont(16, 4);

    drawimage(grap[0][0], 190, 190);
    setcolor(255, 255, 255);
    char buff[256];
    snprintf(buff, sizeof(buff), " x %d", 2 - save.life);
    drawstring(230, 200, buff);

    setc1();
    snprintf(buff, sizeof(buff), "%s %d", string_table[lang][IDS_SCORE], score);
    drawstring(15, 5, buff);

    snprintf(buff, sizeof(buff), string_table[lang][IDS_LEVEL], sta, stb);
    drawstring(400, 5, buff);

  } //if (mainproc==10){


  //タイトル
  if (mainproc == 100) {
    int height = getscreenheight();
    int h = height - 420;

    setcolor(160, 180, 250);
    clearscreen();

    //drawimage(grap[50][0], 240 - 380 / 2, height * 2 / 10);

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

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


    {
      //char buff[256];
      //snprintf(buff, sizeof(buff), string_table[lang][IDS_STAGE], sta, stb);
      //setcolor(0, 0, 0);
      //drawstringc(240, 250, buff);
    }
  } //if (mainproc==100)


  if (mainproc == 10 || mainproc == 1) {
    drawpad();
  }

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

} //rpaint()








//メインプログラム
EMSCRIPTEN_KEEPALIVE
void dlm_frame() {
  int time = gettime();
  if (time - stime < 1000 / 30)
    return;

  stime = time;

  //キー
  key = input_get();

  if (paused) {
    if (key) paused = 0;
    return;
  }

  if (ending == 1) mainproc = 2;

  if (mainproc == 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;
      scorepos = 0;




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

      stagecls();

      stage();


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



      //メインBGM
      bgmplay();

    } //zxon

    //xx[1]=getrand(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 (input_keydown(KEY_INPUT_F1)==1){end();}
    //if (input_keydown(KEY_INPUT_F1) == 1) {mainproc = 100; }
    //if (input_keydown(KEY_INPUT_Q)==1){mkeytm=0;}
    //if (input_keydown(KEY_INPUT_O) == 1) {if (mhp >= 1) mhp = 0; if (stc >= 5) {stc = 0; stagepoint = 0; }}


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

    if (key & PAD_INPUT_JUMP) {
      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) ;
      soundplay(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) {
#ifdef TEST_MODE
      if ((key & PAD_INPUT_CLICK) == 0) mhp = 1; else
#endif
      {
        printf("killed: hp=%d\n", mhp);
        mkeytm = 12; mhp = -20; mtype = 200; mtm = 0;
        dlm_killed(); dlm_save();
        soundplay(12); bgmstop(); soundstop(11); soundstop(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 == 99) {
        dlm_score(1, score);
      }
      if (mtm >= 100) {
        zxon = 0; mainproc = 10; mtm = 0; mkeytm = 0;
      } //mtm>=100
    }    //mtype==200




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

      mkeytm = 2;
      md = -1500;
      if (mb <= -6000) {
        blackx = 1; blacktm = 20; stc += 5; stagerr = 0; bgmstop(); 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) soundplay(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 {
              printf("stage clear(stc)\n");
              dlm_stageclear();
              stc++;
              fx = 0;
              dlm_save();
            }
            mb = -80000000;
            mxtype = 0;
            blackx = 1;
            blacktm = 20;
            stagerr = 0; bgmstop();
          }
        }
      } //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 == 110) {
          printf("stage clear(stb)\n");
          dlm_stageclear();
        }
        if (mtm == 250) {
          stb++; stc = 0; zxon = 0; tyuukan = 0; mainproc = 10; maintm = 0;
          dlm_save();
          dlm_score(3, score);
        }
      } //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 <= 130) {
          mc = 250; mmuki = 1;
        }

        if (mtm == 200) {
          soundplay(17);
          dlm_stageclear();
          if (mtype == 301) {
            na[nco] = 121 * 29 * 100 - 1100; nb[nco] = 4 * 29 * 100; ntype[nco] = 101; nco++; if (nco >= nmax) nco = 0;
            na[nco] = 121 * 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;
            printf("ending\n");
          }
          else {
            printf("stage clear(sta)\n");
            sta++; stb = 1; stc = 0;
            zxon = 0; tyuukan = 0; mainproc = 10; maintm = 0;
            dlm_save();
            dlm_score(4, score);
          }
        }


        /*
           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]; }
        }
      }
    }

#ifdef TEST_MODE
    if (mb > 60000) mb = 60000;
    if (key & PAD_INPUT_UP) { md = 0; mb -= 1000; }
#endif



    //地面判定初期化
    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) {
                    soundplay(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; soundplay(13);
                    for (tt = 0; tt < tmax; tt++) {
                      if (ttype[tt] != 7) {
                        ttype[tt] = 800;
                      }
                    }
                    bgmstop();
                  }
                  //音符+
                  else if (ttype[t] == 117) {
                    soundplay(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) {
                      soundplay(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) {
                      soundplay(4);
                      eyobi(ta[t] + 10, tb[t], 0, -800, 0, 40, 3000, 3000, 0, 16);
                      ttype[t] = 3;
                    }
                    //隠し
                    if (ttype[t] == 7) {
                      soundplay(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; soundplay(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; //soundplay(4);
              sracttype[20] = 1; sron[20] = 1;
              bgmstop(); mtype = 301; mtm = 0; soundplay(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) {
              soundplay(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) {
              soundplay(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) {
              soundplay(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) {
              soundplay(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) {
              soundplay(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;
              soundplay(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]++;
              soundplay(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) {
                soundplay(8); ttype[t] = 3;
                abrocktm[aco] = 16; ayobi(ta[t], tb[t], 0, 0, 0, 102, 1);
              }
              if (txtype[t] == 2) { soundplay(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; soundplay(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 { soundplay(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) {
              soundplay(8);
              //soundplay(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) {
              soundplay(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; soundplay(13);
              }
            }
          }
          else if (ttype[t] == 131) {
            if (xx[17] == 1 && txtype[t] != 2) {
              stageonoff = 1; soundplay(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) {
              soundplay(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) {
              soundplay(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]) {

            soundplay(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; soundplay(7); mxtype = 0;
              }
              //普通
              if (sxtype[t] == 1) {
                mtype = 100; mtm = 0; soundplay(7); mxtype = 1;
              }
              //普通
              if (sxtype[t] == 2) {
                mtype = 100; mtm = 0; soundplay(7); mxtype = 2;
              }
              if (sxtype[t] == 5) {
                mtype = 100; mtm = 0; soundplay(7); mxtype = 5;
              }
              // ループ
              if (sxtype[t] == 6) {
                mtype = 100; mtm = 0; soundplay(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; soundplay(7); //mxtype=1;
                mtype = 100; mxtype = 10;
              }

              if (sxtype[t] == 2) {
                mxtype = 3;
                mtm = 0; soundplay(7);   //mxtype=1;
                mtype = 100;
              }
              // ループ
              if (sxtype[t] == 6) {
                mtype = 3; mtm = 0; soundplay(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; soundplay(10);
              }
            }
            if (stype[t] == 101) { ayobi(sa[t] + 6000, -4000, 0, 0, 0, 3, 1); sa[t] = -800000000; soundplay(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); soundplay(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); soundplay(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); soundplay(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;
                bgmstop(); mtype = 302; mtm = 0; soundplay(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) { bgmstop(); mtype = 300; mtm = 0; ma = sa[t] - fx - 2000; soundplay(11); }

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

          }

          if (stype[t] == 180) {
            sr[t]++;
            if (sr[t] >= sgtype[t]) {
              sr[t] = 0;
              ayobi(sa[t], 30000, getrand(600) - 300, -1600 - getrand(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) {
              soundplay(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; soundplay(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; soundstop(11); bgmchange(100); bgmplay(); }
              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;      //soundplay(6);
                    anobia[tt] = 6400; anobib[tt] = 6300; axtype[tt] = 0;
                    aa[tt] -= 1050; ab[tt] -= 1050;
                    soundplay(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]+=(getrand(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]=getrand(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-getrand(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) {
                soundplay(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) { soundplay(5); mb = xx[9] - 1000 - anobib[t]; md = -1000; }
            }
            if (atype[t] == 85) {
              if (xx[25] == 0) { soundplay(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] = getrand(7) + 1 + 1000 + (stb - 1) * 10;
                }

                if (atype[t] == 1) {
                  amsgtm[t] = 60; amsgtype[t] = getrand(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] = getrand(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] = getrand(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] = getrand(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; soundplay(9); }
            if (atype[t] == 100 && axtype[t] == 1) { mmsgtm = 30; mmsgtype = 2; soundplay(9); }
            if (atype[t] == 100 && axtype[t] == 2) { mnobia = 5200; mnobib = 7300; soundplay(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) {
                soundplay(4); sgtype[26] = 6;
              }
              if (axtype[t] == 1) {
                txtype[7] = 80;
                soundplay(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



    // update score/
    if (stageid > 0) {
      save.time++;
      scorepos = max(scorepos, fx + ma);
      score = save.score + (scorepos) / 1000 * 100;
    }
  }    //if (mainproc==1)


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

    xx[7] = 46;
    //if (input_keydown(KEY_INPUT_1) == 1) {end(); }
    if (key != 0) {
      for (t = 0; t <= xx[7]; t += 1) {
        xx[12 + t] -= 300;
      }
    }

    if (maintm <= 1) {
      maintm = 2; bgmchange(106); bgmplay(); 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] += getscreenheight() - 420;
        xx[12 + t] *= 100;
      }
    }

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

    if (xx[30] <= -400) {
      if (ending == 1) {
        ending = 0;
        maintm = 2;
        dlm_score(2, score);
        dlm_title();
      }
    }
  }    //mainproc==2


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

    if (nopause) {
      if (maintm >= 30) {
        maintm = 0; mainproc = 1; zxon = 0;
        nopause = 0;
      }
    }
    else {
      if (maintm == 1) {
        adshow();
        waitpause = 1;
      }
      if (key) waitpause = 0;
      if (maintm == 29) {
        if (waitpause) paused = 1;
      }
      if (maintm >= 30) {
        adhide();
        maintm = 0; mainproc = 1; zxon = 0;
      }
    }
  }    //if (mainproc==10){


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

    // use dlm_start to start game.
    //if (key != 0) { xx[0] = 1; }

    if (xx[0] == 1) {
      dlm_start();
    }

  }    //100



  //描画
  begindraw();
  rpaint();
  enddraw();

} //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) {
              soundplay(4); ttype[tt] = 3;
              eyobi(ta[tt] + 10, tb[tt], 0, -800, 0, 40, 3000, 3000, 0, 16);
            }
            else if (ttype[tt] == 1) {
              soundplay(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]) {
          soundplay(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; //soundplay(4);
        sracttype[20] = 1; sron[20] = 1;
      }
    }
  }    //tt

}      //tekizimen



//終了
void end() {
}

//色かえ(黒)(白)
void setc0() { setcolor(0, 0, 0); }
void setc1() { setcolor(255, 255, 255); }

//文字
void str(const char *x, int a, int b) {
  drawstring(a, b, x);
  xx[2] = 4;
}

void stri(int id, int a, int b) {
  str(string_table[lang][id], a, b);
}

//音楽再生

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);


  dlm_stagestart();

} //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) {

    //マリ　地上　入れ
    bgmchange(100);

    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(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) {

    //マリ　地上　入れ
    //soundstop(0);
    bgmchange(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) {

    //soundstop(0);
    bgmchange(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) {

    //マリ　地上　入れ
    //soundstop(0);
    bgmchange(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(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) {

    //マリ　地上　入れ
    //soundstop(0);
    bgmchange(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(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(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(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(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(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,30, 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;
      dlm_save();
    }
    bgmchange(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(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(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



//ブロック出現

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);
    setc1();

    if (tmsg == 0) {
      txmsg(IDS_TMSG_0, 0);
    }

    if (tmsg == 1) {
      txmsg(IDS_EMPTY, 0);
      txmsg(IDS_TMSG_11, 0);
      txmsg(IDS_TMSG_12, 1);
      txmsg(IDS_TMSG_13, 2);
      txmsg(IDS_TMSG_14, 4);
      txmsg(IDS_TMSG_15, 6);
    }

    if (tmsg == 2) {
      txmsg(IDS_TMSG_21, 3);
      txmsg(IDS_TMSG_22, 6);
    }


    if (tmsg == 3) {
      txmsg(IDS_TMSG_31, 3);
      txmsg(IDS_TMSG_32, 6);
    }

    if (tmsg == 4) {
      txmsg(IDS_TMSG_41, 2);
      txmsg(IDS_TMSG_42, 4);
    }


    if (tmsg == 5) {
      txmsg(IDS_EMPTY, 0);
      txmsg(IDS_TMSG_51, 1);
      txmsg(IDS_TMSG_52, 3);
      txmsg(IDS_TMSG_53, 6);
    }

    if (tmsg == 6) {
      txmsg(IDS_EMPTY, 0);
      txmsg(IDS_TMSG_61, 1);
      txmsg(IDS_TMSG_62, 2);
      txmsg(IDS_TMSG_63, 3);
    }

    if (tmsg == 7) {
      txmsg(IDS_EMPTY, 0);
      txmsg(IDS_TMSG_71, 1);
      txmsg(IDS_TMSG_72, 2);
      txmsg(IDS_TMSG_73, 3);
    }

    if (tmsg == 8) {
      txmsg(IDS_TMSG_81, 1);
      txmsg(IDS_TMSG_82, 2);
      txmsg(IDS_TMSG_83, 3);
    }

    if (tmsg == 9) {
      txmsg(IDS_TMSG_91, 1);
      txmsg(IDS_TMSG_92, 2);
      txmsg(IDS_TMSG_93, 3);
    }

    if (tmsg == 100) {
      txmsg(IDS_TMSG_1001, 0);
      txmsg(IDS_TMSG_1002, 2);
      txmsg(IDS_TMSG_1003, 3);
      txmsg(IDS_TMSG_1004, 5);
      txmsg(IDS_TMSG_1005, 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(int id, int a) {
  int xx = 6;

  stri(id, 60 + xx, 40 + xx + a * 24);

} //txmsg



//グラ作成
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 && soundcheck(10) == 0) { soundplay(10); }
      //ファイア音
      if (xtype == 10 && soundcheck(18) == 0) { soundplay(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] = getrand(179) + (-90); }

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

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

} //ayobi