_________A.tonyu_________


extends DXChar;


function Efect_A() {
  if ($frameCount%2==0) {
    if ($ENEMY0 != null)
    if (crashTo($ENEMY0)) {
      $HP0-=valueOf($DATA.get(7));
      return 1;
    }
    if ($ENEMY1 != null)
    if (crashTo($ENEMY1)) {
      $HP1-=valueOf($DATA.get(7));
      return 1;
    }
    if ($ENEMY2 != null)
    if (crashTo($ENEMY2)) {
      $HP2-=valueOf($DATA.get(7));
      return 1;
    }
    if ($ENEMY3 != null)
    if (crashTo($ENEMY3)) {
      $HP3-=valueOf($DATA.get(7));
      return 1;
    }
    if ($ENEMY4 != null)
    if (crashTo($ENEMY4)) {
      $HP4-=valueOf($DATA.get(7));
      return 1;
    }
    if ($ENEMY5 != null)
    if (crashTo($ENEMY5)) {
      $HP5-=valueOf($DATA.get(7));
      return 1;
    }
    if ($ENEMY6 != null)
    if (crashTo($ENEMY6)) {
      $HP6-=valueOf($DATA.get(7));
      return 1;
    }
    if ($ENEMY7 != null)
    if (crashTo($ENEMY7)) {
      $HP7-=valueOf($DATA.get(7));
      return 1;
    }
    if ($ENEMY8 != null)
    if (crashTo($ENEMY8)) {
      $HP8-=valueOf($DATA.get(7));
      return 1;
    }
    if ($ENEMY9 != null)
    if (crashTo($ENEMY9)) {
      $HP9-=valueOf($DATA.get(7));
      return 1;
    }
    if ($ENEMY10 != null)
    if (crashTo($ENEMY10)) {
      $HP10-=valueOf($DATA.get(7));
      return 1;
    }
  }
  if ($frameCount%2!=0) {
    if ($ENEMY11 != null)
    if (crashTo($ENEMY11)) {
      $HP11-=valueOf($DATA.get(7));
      return 1;
    }
    if ($ENEMY12 != null)
    if (crashTo($ENEMY12)) {
      $HP12-=valueOf($DATA.get(7));
      return 1;
    }
    if ($ENEMY13 != null)
    if (crashTo($ENEMY13)) {
      $HP13-=valueOf($DATA.get(7));
      return 1;
    }
    if ($ENEMY14 != null)
    if (crashTo($ENEMY14)) {
      $HP14-=valueOf($DATA.get(7));
      return 1;
    }
    if ($ENEMY15 != null)
    if (crashTo($ENEMY15)) {
      $HP15-=valueOf($DATA.get(7));
      return 1;
    }
    if ($ENEMY16 != null)
    if (crashTo($ENEMY16)) {
      $HP16-=valueOf($DATA.get(7));
      return 1;
    }
    if ($ENEMY17 != null)
    if (crashTo($ENEMY17)) {
      $HP17-=valueOf($DATA.get(7));
      return 1;
    }
    if ($ENEMY18 != null)
    if (crashTo($ENEMY18)) {
      $HP18-=valueOf($DATA.get(7));
      return 1;
    }
    if ($ENEMY19 != null)
    if (crashTo($ENEMY19)) {
      $HP19-=valueOf($DATA.get(7));
      return 1;
    }
  }
}

function Enemy_A(width,height,a,x,y) {
  if (crashToLine(x-cos(a)*width/2,y-sin(a)*height/2,x+cos(a)*width/2,y+sin(a)*height/2,width,$MyCHA.X,$MyCHA.Y)) {
    $HP-=6;
  }
}

function EA(X,No) {
  Appear(new MAIN(X,$ViewY-50,No));
}

function ENEMY_1(HP,X,Y,a) {
  if (a==60 || a==80 || a==100 || a==120 || a==140) EA($ScreenWidth/2-60,1);
  if (a==180 || a==200 || a==220 || a==240 || a==260) EA($ScreenWidth/2+60,1);
  if (a==300) EA($ScreenWidth/2,2);
  if (a==320) EA($ScreenWidth/2-30,2);
  if (a==320) EA($ScreenWidth/2+30,2);
  if (a==340) EA($ScreenWidth/2-60,2);
  if (a==340) EA($ScreenWidth/2+60,2);
  if (a==360) EA($ScreenWidth/2+60,2);
  if (a==360) EA($ScreenWidth/2-60,2);
  if (a==380) EA($ScreenWidth/2+30,2);
  if (a==380) EA($ScreenWidth/2-30,2);
  if (a==400) EA($ScreenWidth/2,2);
  if (a==500) EA($ScreenWidth/2,3);
  if (a==560) EA($ScreenWidth/2,3);
  if (a==620) EA($ScreenWidth/2,3);
  if (a==680) EA($ScreenWidth/2,3);
  if (a==740) EA($ScreenWidth/2,3);
  if (a==500 && X<$ScreenWidth/2) {EA(10,2);EA(40,2);EA(70,2);EA(100,2);EA(130,2);}
  if (a==500 && X>$ScreenWidth/2) {EA(270,1);EA(240,1);EA(210,1);EA(180,1);EA(150,1);}
  if (a==650 && X<$ScreenWidth/2) {EA(10,3);EA(40,3);EA(70,3);EA(100,3);EA(130,3);}
  if (a==650 && X>$ScreenWidth/2) {EA(270,2);EA(240,2);EA(210,2);EA(180,2);EA(150,2);}
  if (a==750) EA(X,6);
  if (a==750 && Y<$ViewY+$ScreenHeight/2) EA(X+40,7);
  if (a==800) EA(X,6);
  if (a==800 && Y<$ViewY+$ScreenHeight/2) EA(X-40,7);
  if (a==850) EA(X,6);
  if (a==850 && Y<$ViewY+$ScreenHeight/2) EA(X+40,7);
  if (a==900) EA(X,6);
  if (a==900 && Y<$ViewY+$ScreenHeight/2) EA(X-40,7);
  if (a==950) EA(X,6);
  if (a==950 && Y<$ViewY+$ScreenHeight/2) EA(X+40,7);
  if (a==1000) EA($ScreenWidth/2,8);
  if (a==1500 && HP>500) EA($ScreenWidth/2,8);
  if (a==2000) EA($ScreenWidth/2,9);
  if (a==3000) EA($ScreenWidth/2-60,4);
  if (a==3000) EA($ScreenWidth/2+60,5);
  if (a==3250) EA($ScreenWidth/2-60,4);
  if (a==3500 && HP>250) EA($ScreenWidth/2-60,4);
  if (a==3500 && HP>250) EA($ScreenWidth/2+60,5);
  if (a==3750) EA($ScreenWidth/2+60,5);
  if (a>4000 && $ALL==0) EA($ScreenWidth/2,10);
}

function ENEMY_2(HP,X,Y,a) {
  if (a==60 || a==80 || a==100 || a==120 || a==140) EA(100,1);
  if (a==180 || a==200 || a==220 || a==240 || a==260) EA(390,1);
  if (a==300) EA(245,2);
  if (a==320) EA(205,2);
  if (a==320) EA(285,2);
  if (a==340) EA(165,2);
  if (a==340) EA(325,2);
  if (a==360) EA(325,2);
  if (a==360) EA(165,2);
  if (a==380) EA(285,2);
  if (a==380) EA(205,2);
  if (a==400) EA(245,2);
  if (a==300 || a==320 || a==340 || a==360 || a==380 || a==400) EA(X,1);
  if (a==400 || a==420 || a==440 || a==460 || a==480 || a==500) EA(X,2);
  if (a==500) EA(245,3);
  if (a==560) EA(245,3);
  if (a==620) EA(245,3);
  if (a==680) EA(245,3);
  if (a==740) EA(245,3);
  if (a==500 && X<$ScreenWidth/2) {EA(10,2);EA(70,2);EA(130,2);EA(190,2);EA(250,2);}
  if (a==500 && X>$ScreenWidth/2) {EA(480,1);EA(420,1);EA(360,1);EA(300,1);EA(240,1);}
  if (a==650 && X<$ScreenWidth/2) {EA(10,3);EA(70,3);EA(130,3);EA(190,3);EA(250,3);}
  if (a==650 && X>$ScreenWidth/2) {EA(480,2);EA(420,2);EA(360,2);EA(300,2);EA(240,2);}
  if (a==750) EA(X,6);
  if (a==750 && Y<$ScreenHeight/2) EA(X+40,7);
  if (a==800) EA(X,6);
  if (a==800 && Y<$ScreenHeight/2) EA(X-40,7);
  if (a==850) EA(X,6);
  if (a==850 && Y<$ScreenHeight/2) EA(X+40,7);
  if (a==900) EA(X,6);
  if (a==900 && Y<$ScreenHeight/2) EA(X-40,7);
  if (a==950) EA(X,6);
  if (a==950 && Y<$ScreenHeight/2) EA(X+40,7);
  if (a==1000) EA(245,8);
  if (a==1500 && HP>500) EA(245,8);
  if (a==2000) EA(245,9);
  if (a==3000) EA(100,4);
  if (a==3000) EA(390,5);
  if (a==3250) EA(100,4);
  if (a==3500 && HP>250) EA(100,4);
  if (a==3500 && HP>250) EA(390,5);
  if (a==3750) EA(390,5);
  if (a>4000 && $ALL==0) EA(245,10);
}

function ENEMY_3(HP,X,Y,a) {
  if (a==60 || a==80 || a==100 || a==120 || a==140) EA(100,1);
  if (a==180 || a==200 || a==220 || a==240 || a==260) EA(390,1);
  if (a==300) EA(245,2);
  if (a==320) EA(205,2);
  if (a==320) EA(285,2);
  if (a==340) EA(165,2);
  if (a==340) EA(325,2);
  if (a==360) EA(325,2);
  if (a==360) EA(165,2);
  if (a==380) EA(285,2);
  if (a==380) EA(205,2);
  if (a==400) EA(245,2);
  if (a==300 || a==320 || a==340 || a==360 || a==380 || a==400) EA(X,1);
  if (a==400 || a==420 || a==440 || a==460 || a==480 || a==500) EA(X,2);
  if (a==500) EA(245,3);
  if (a==560) EA(245,3);
  if (a==620) EA(245,3);
  if (a==680) EA(245,3);
  if (a==740) EA(245,3);
  if (a==500 && X<$ScreenWidth/2) {EA(10,2);EA(70,2);EA(130,2);EA(190,2);EA(250,2);}
  if (a==500 && X>$ScreenWidth/2) {EA(480,1);EA(420,1);EA(360,1);EA(300,1);EA(240,1);}
  if (a==650 && X<$ScreenWidth/2) {EA(10,3);EA(70,3);EA(130,3);EA(190,3);EA(250,3);}
  if (a==650 && X>$ScreenWidth/2) {EA(480,2);EA(420,2);EA(360,2);EA(300,2);EA(240,2);}
  if (a==750) EA(X,6);
  if (a==750 && Y<$ScreenHeight/2) EA(X+40,7);
  if (a==800) EA(X,6);
  if (a==800 && Y<$ScreenHeight/2) EA(X-40,7);
  if (a==850) EA(X,6);
  if (a==850 && Y<$ScreenHeight/2) EA(X+40,7);
  if (a==900) EA(X,6);
  if (a==900 && Y<$ScreenHeight/2) EA(X-40,7);
  if (a==950) EA(X,6);
  if (a==950 && Y<$ScreenHeight/2) EA(X+40,7);
  if (a==1000) EA(245,8);
  if (a==1500 && HP>500) EA(245,8);
  if (a==2000) EA(245,9);
  if (a==3000) EA(100,4);
  if (a==3000) EA(390,5);
  if (a==3250) EA(100,4);
  if (a==3500 && HP>250) EA(100,4);
  if (a==3500 && HP>250) EA(390,5);
  if (a==3750) EA(390,5);
  if (a>4000 && $ALL==0) EA(245,10);
}

function ENEMY_4(HP,X,Y,a) {
  if (a==60 || a==80 || a==100 || a==120 || a==140) EA(100,1);
  if (a==180 || a==200 || a==220 || a==240 || a==260) EA(390,1);
  if (a==300) EA(245,2);
  if (a==320) EA(205,2);
  if (a==320) EA(285,2);
  if (a==340) EA(165,2);
  if (a==340) EA(325,2);
  if (a==360) EA(325,2);
  if (a==360) EA(165,2);
  if (a==380) EA(285,2);
  if (a==380) EA(205,2);
  if (a==400) EA(245,2);
  if (a==300 || a==320 || a==340 || a==360 || a==380 || a==400) EA(X,1);
  if (a==400 || a==420 || a==440 || a==460 || a==480 || a==500) EA(X,2);
  if (a==500) EA(245,3);
  if (a==560) EA(245,3);
  if (a==620) EA(245,3);
  if (a==680) EA(245,3);
  if (a==740) EA(245,3);
  if (a==500 && X<$ScreenWidth/2) {EA(10,2);EA(70,2);EA(130,2);EA(190,2);EA(250,2);}
  if (a==500 && X>$ScreenWidth/2) {EA(480,1);EA(420,1);EA(360,1);EA(300,1);EA(240,1);}
  if (a==650 && X<$ScreenWidth/2) {EA(10,3);EA(70,3);EA(130,3);EA(190,3);EA(250,3);}
  if (a==650 && X>$ScreenWidth/2) {EA(480,2);EA(420,2);EA(360,2);EA(300,2);EA(240,2);}
  if (a==750) EA(X,6);
  if (a==750 && Y<$ScreenHeight/2) EA(X+40,7);
  if (a==800) EA(X,6);
  if (a==800 && Y<$ScreenHeight/2) EA(X-40,7);
  if (a==850) EA(X,6);
  if (a==850 && Y<$ScreenHeight/2) EA(X+40,7);
  if (a==900) EA(X,6);
  if (a==900 && Y<$ScreenHeight/2) EA(X-40,7);
  if (a==950) EA(X,6);
  if (a==950 && Y<$ScreenHeight/2) EA(X+40,7);
  if (a==1000) EA(245,8);
  if (a==1500 && HP>500) EA(245,8);
  if (a==2000) EA(245,9);
  if (a==3000) EA(100,4);
  if (a==3000) EA(390,5);
  if (a==3250) EA(100,4);
  if (a==3500 && HP>250) EA(100,4);
  if (a==3500 && HP>250) EA(390,5);
  if (a==3750) EA(390,5);
  if (a>4000 && $ALL==0) EA(245,10);
}

function ENEMY_5(HP,X,Y,a) {
  if (a==60 || a==80 || a==100 || a==120 || a==140) EA(100,1);
  if (a==180 || a==200 || a==220 || a==240 || a==260) EA(390,1);
  if (a==300) EA(245,2);
  if (a==320) EA(205,2);
  if (a==320) EA(285,2);
  if (a==340) EA(165,2);
  if (a==340) EA(325,2);
  if (a==360) EA(325,2);
  if (a==360) EA(165,2);
  if (a==380) EA(285,2);
  if (a==380) EA(205,2);
  if (a==400) EA(245,2);
  if (a==300 || a==320 || a==340 || a==360 || a==380 || a==400) EA(X,1);
  if (a==400 || a==420 || a==440 || a==460 || a==480 || a==500) EA(X,2);
  if (a==500) EA(245,3);
  if (a==560) EA(245,3);
  if (a==620) EA(245,3);
  if (a==680) EA(245,3);
  if (a==740) EA(245,3);
  if (a==500 && X<$ScreenWidth/2) {EA(10,2);EA(70,2);EA(130,2);EA(190,2);EA(250,2);}
  if (a==500 && X>$ScreenWidth/2) {EA(480,1);EA(420,1);EA(360,1);EA(300,1);EA(240,1);}
  if (a==650 && X<$ScreenWidth/2) {EA(10,3);EA(70,3);EA(130,3);EA(190,3);EA(250,3);}
  if (a==650 && X>$ScreenWidth/2) {EA(480,2);EA(420,2);EA(360,2);EA(300,2);EA(240,2);}
  if (a==750) EA(X,6);
  if (a==750 && Y<$ScreenHeight/2) EA(X+40,7);
  if (a==800) EA(X,6);
  if (a==800 && Y<$ScreenHeight/2) EA(X-40,7);
  if (a==850) EA(X,6);
  if (a==850 && Y<$ScreenHeight/2) EA(X+40,7);
  if (a==900) EA(X,6);
  if (a==900 && Y<$ScreenHeight/2) EA(X-40,7);
  if (a==950) EA(X,6);
  if (a==950 && Y<$ScreenHeight/2) EA(X+40,7);
  if (a==1000) EA(245,8);
  if (a==1500 && HP>500) EA(245,8);
  if (a==2000) EA(245,9);
  if (a==3000) EA(100,4);
  if (a==3000) EA(390,5);
  if (a==3250) EA(100,4);
  if (a==3500 && HP>250) EA(100,4);
  if (a==3500 && HP>250) EA(390,5);
  if (a==3750) EA(390,5);
  if (a>4000 && $ALL==0) EA(245,10);
}

function ENEMY_6(HP,X,Y,a) {
  x++;
}

function ENEMY_7(HP,X,Y,a) {
  if (a==60 || a==80 || a==100 || a==120 || a==140) EA(100,1);
  if (a==180 || a==200 || a==220 || a==240 || a==260) EA(390,1);
  if (a==300) EA(245,2);
  if (a==320) EA(205,2);
  if (a==320) EA(285,2);
  if (a==340) EA(165,2);
  if (a==340) EA(325,2);
  if (a==360) EA(325,2);
  if (a==360) EA(165,2);
  if (a==380) EA(285,2);
  if (a==380) EA(205,2);
  if (a==400) EA(245,2);
  if (a==300 || a==320 || a==340 || a==360 || a==380 || a==400) EA(X,1);
  if (a==400 || a==420 || a==440 || a==460 || a==480 || a==500) EA(X,2);
  if (a==500) EA(245,3);
  if (a==560) EA(245,3);
  if (a==620) EA(245,3);
  if (a==680) EA(245,3);
  if (a==740) EA(245,3);
  if (a==500 && X<$ScreenWidth/2) {EA(10,2);EA(70,2);EA(130,2);EA(190,2);EA(250,2);}
  if (a==500 && X>$ScreenWidth/2) {EA(480,1);EA(420,1);EA(360,1);EA(300,1);EA(240,1);}
  if (a==650 && X<$ScreenWidth/2) {EA(10,3);EA(70,3);EA(130,3);EA(190,3);EA(250,3);}
  if (a==650 && X>$ScreenWidth/2) {EA(480,2);EA(420,2);EA(360,2);EA(300,2);EA(240,2);}
  if (a==750) EA(X,6);
  if (a==750 && Y<$ScreenHeight/2) EA(X+40,7);
  if (a==800) EA(X,6);
  if (a==800 && Y<$ScreenHeight/2) EA(X-40,7);
  if (a==850) EA(X,6);
  if (a==850 && Y<$ScreenHeight/2) EA(X+40,7);
  if (a==900) EA(X,6);
  if (a==900 && Y<$ScreenHeight/2) EA(X-40,7);
  if (a==950) EA(X,6);
  if (a==950 && Y<$ScreenHeight/2) EA(X+40,7);
  if (a==1000) EA(245,8);
  if (a==1500 && HP>500) EA(245,8);
  if (a==2000) EA(245,9);
  if (a==3000) EA(100,4);
  if (a==3000) EA(390,5);
  if (a==3250) EA(100,4);
  if (a==3500 && HP>250) EA(100,4);
  if (a==3500 && HP>250) EA(390,5);
  if (a==3750) EA(390,5);
  if (a>4000 && $ALL==0) EA(245,10);
}

_____________MAIN.tonyu______________

extends DXChar;

//初期設定
a=0;

//メインページ
if (p==0) {
  $ScreenWidth=280;
  $ScreenHeight=400;
  $ALL=0;
  $DATA=new Array();
  $DATA.load("save.lnk");
  $ENEMY=new Array();
  $ENEMY.load("cha.lnk");
  $BGCOLOR=$clBlack;
  $SY=0;
  $HP=1000;
  $ENEMY_0 = null;
  $ENEMY_1 = null;
  $ENEMY_2 = null;
  $ENEMY_3 = null;
  $ENEMY_4 = null;
  $ENEMY_5 = null;
  $ENEMY_6 = null;
  $ENEMY_7 = null;
  $ENEMY_8 = null;
  $ENEMY_9 = null;
  $ENEMY_10 = null;
  $ENEMY_11 = null;
  $ENEMY_12 = null;
  $ENEMY_13 = null;
  $ENEMY_14 = null;
  $ENEMY_15 = null;
  $ENEMY_16 = null;
  $ENEMY_17 = null;
  $ENEMY_18 = null;
  $ENEMY_19 = null;
  f=1;
  setVisible(0);
  $Panel.drawText(5,26,"なんちゃってシューティング-R-",color(55,55,55),16);
  $Panel.drawText(5,25,"なんちゃってシューティング-R-",color(155,155,155),16);
  $Panel.drawText(5,24,"なんちゃってシューティング-R-",$clWhite,16);
  wait(1);
  $Panel.drawText(5,376,"http://ikka.cccjp.com/",color(55,55,55),10);
  $Panel.drawText(5,375,"http://ikka.cccjp.com/",color(155,155,155),10);
  $Panel.drawText(5,374,"http://ikka.cccjp.com/",$clWhite,10);
  $Panel.drawSprite(190,370,$pat_bannar,0);
  wait(1);
  $Panel.drawLine(0,10,300,10,$clWhite);
  $Panel.drawLine(0,11,300,11,color(155,155,155));
  $Panel.drawLine(0,55,300,55,$clWhite);
  $Panel.drawLine(0,56,300,56,color(155,155,155));
  $Panel.drawLine(0,340,300,340,$clWhite);
  $Panel.drawLine(0,341,300,341,color(155,155,155));
  wait(1);
  $Panel.drawText(20,71,"SKY　難易度★☆☆☆☆",color(155,155,155),14);
  $Panel.drawText(20,70,"SKY　難易度★☆☆☆☆",$clWhite,14);
  wait(1);
  if ($DATA.get(1) == 0) {
    $Panel.drawText(20,100,"???　難易度☆☆☆☆☆",color(155,155,155),14);
  } else {
    $Panel.drawText(20,71,"POIZN　難易度★★☆☆☆",color(155,155,155),14);
    $Panel.drawText(20,70,"POIZN　難易度★★☆☆☆",$clWhite,14);
  }
  wait(1);
  if ($DATA.get(2) == 0) {
    $Panel.drawText(20,130,"???　難易度☆☆☆☆☆",color(155,155,155),14);
  } else {
    $Panel.drawText(20,71,"COSMO　難易度★★★☆☆",color(155,155,155),14);
    $Panel.drawText(20,70,"COSMO　難易度★★★☆☆",$clWhite,14);
  }
  wait(1);
  if ($DATA.get(3) == 0) {
    $Panel.drawText(20,160,"???　難易度☆☆☆☆☆",color(155,155,155),14);
  } else {
    $Panel.drawText(20,71,"HIGH SKY　難易度★★★☆☆",color(155,155,155),14);
    $Panel.drawText(20,70,"HIGH SKY　難易度★★★☆☆",$clWhite,14);
  }
  wait(1);
  if ($DATA.get(4) == 0) {
    $Panel.drawText(20,190,"???　難易度☆☆☆☆☆",color(155,155,155),14);
  } else {
    $Panel.drawText(20,71,"MECA　難易度★★★★☆",color(155,155,155),14);
    $Panel.drawText(20,70,"MECA　難易度★★★★☆",$clWhite,14);
  }
  wait(1);
  if ($DATA.get(5) == 0) {
    $Panel.drawText(20,220,"???　難易度☆☆☆☆☆",color(155,155,155),14);
  } else {
    $Panel.drawText(20,71,"JUNGLE　難易度★★★★☆",color(155,155,155),14);
    $Panel.drawText(20,70,"JUNGLE　難易度★★★★☆",$clWhite,14);
  }
  wait(1);
  if ($DATA.get(6) == 0) {
    $Panel.drawText(20,250,"???　難易度☆☆☆☆☆",color(155,155,155),14);
  } else {
    $Panel.drawText(20,71,"NOTE　難易度★★★★★",color(155,155,155),14);
    $Panel.drawText(20,70,"NOTE　難易度★★★★★",$clWhite,14);
  }
  wait(1);
  $Panel.drawText(20,281,"SHOP　"+$DATA.get(9)+"G",color(155,155,155),14);
  $Panel.drawText(20,280,"SHOP　"+$DATA.get(9)+"G",$clWhite,14);
  wait(1);
  $Panel.drawText(20,311,"OPTION",color(155,155,155),14);
  $Panel.drawText(20,310,"OPTION",$clWhite,14);
  while(1) {
    $map.scrollTo(0,$SY);
    $SY--;
    //背景
    if ($SY%40==0) {
      if (f==1) {
        $map.set(0,$SY/40-1,$pat_map+1+rnd(2));
        $map.set(1,$SY/40-1,$pat_map+1+rnd(2));
        $map.set(2,$SY/40-1,$pat_map+1+rnd(2));
        $map.set(3,$SY/40-1,$pat_map+1+rnd(2));
        $map.set(4,$SY/40-1,$pat_map+1+rnd(2));
        $map.set(5,$SY/40-1,$pat_map+1+rnd(2));
        $map.set(6,$SY/40-1,$pat_map+1+rnd(2));
      }
      if (f==2) {
        $map.set(0,$SY/40-1,$pat_map+3+rnd(2));
        $map.set(1,$SY/40-1,$pat_map+3+rnd(2));
        $map.set(2,$SY/40-1,$pat_map+3+rnd(2));
        $map.set(3,$SY/40-1,$pat_map+3+rnd(2));
        $map.set(4,$SY/40-1,$pat_map+3+rnd(2));
        $map.set(5,$SY/40-1,$pat_map+3+rnd(2));
        $map.set(6,$SY/40-1,$pat_map+3+rnd(2));
      }
      if (f==3) {
        $map.set(0,$SY/40-1,$pat_map+6+rnd(2));
        $map.set(1,$SY/40-1,$pat_map+6+rnd(2));
        $map.set(2,$SY/40-1,$pat_map+6+rnd(2));
        $map.set(3,$SY/40-1,$pat_map+6+rnd(2));
        $map.set(4,$SY/40-1,$pat_map+6+rnd(2));
        $map.set(5,$SY/40-1,$pat_map+6+rnd(2));
        $map.set(6,$SY/40-1,$pat_map+6+rnd(2));
      }
      if (f==4) {
        $map.set(0,$SY/40-1,$pat_map+12+rnd(3));
        $map.set(1,$SY/40-1,$pat_map+12+rnd(3));
        $map.set(2,$SY/40-1,$pat_map+12+rnd(3));
        $map.set(3,$SY/40-1,$pat_map+12+rnd(3));
        $map.set(4,$SY/40-1,$pat_map+12+rnd(3));
        $map.set(5,$SY/40-1,$pat_map+12+rnd(3));
        $map.set(6,$SY/40-1,$pat_map+12+rnd(3));
      }
      if (f==5) {
        $map.set(0,$SY/40-1,$pat_map+18+rnd(3));
        $map.set(1,$SY/40-1,$pat_map+18+rnd(3));
        $map.set(2,$SY/40-1,$pat_map+18+rnd(3));
        $map.set(3,$SY/40-1,$pat_map+18+rnd(3));
        $map.set(4,$SY/40-1,$pat_map+18+rnd(3));
        $map.set(5,$SY/40-1,$pat_map+18+rnd(3));
        $map.set(6,$SY/40-1,$pat_map+18+rnd(3));
      }
      if (f==6) {
        $map.set(0,$SY/40-1,$pat_map+15);
        $map.set(1,$SY/40-1,$pat_map+15);
        $map.set(2,$SY/40-1,$pat_map+15);
        $map.set(3,$SY/40-1,$pat_map+15);
        $map.set(4,$SY/40-1,$pat_map+15);
        $map.set(5,$SY/40-1,$pat_map+15);
        $map.set(6,$SY/40-1,$pat_map+15);
      }
      if (f==7) {
        $map.set(0,$SY/40-1,$pat_map+9);
        $map.set(1,$SY/40-1,$pat_map+10);
        $map.set(2,$SY/40-1,$pat_map+10);
        $map.set(3,$SY/40-1,$pat_map+10);
        $map.set(4,$SY/40-1,$pat_map+10);
        $map.set(5,$SY/40-1,$pat_map+10);
        $map.set(6,$SY/40-1,$pat_map+10);
      }
      if (f==8) {
        $map.set(0,$SY/40-1,$pat_map);
        $map.set(1,$SY/40-1,$pat_map);
        $map.set(2,$SY/40-1,$pat_map);
        $map.set(3,$SY/40-1,$pat_map);
        $map.set(4,$SY/40-1,$pat_map);
        $map.set(5,$SY/40-1,$pat_map);
        $map.set(6,$SY/40-1,$pat_map);
      }
      if (f==9) {
        $map.set(0,$SY/40-1,$pat_map);
        $map.set(1,$SY/40-1,$pat_map);
        $map.set(2,$SY/40-1,$pat_map);
        $map.set(3,$SY/40-1,$pat_map);
        $map.set(4,$SY/40-1,$pat_map);
        $map.set(5,$SY/40-1,$pat_map);
        $map.set(6,$SY/40-1,$pat_map);
      }
    }
    if (getKey(40)==1 && f<10) f++;
    if (getKey(38)==1 && f>1) f--;
    if (getKey(40)) {
      if (f==2 && $DATA.get(1)==0) f++;
      if (f==3 && $DATA.get(2)==0) f++;
      if (f==4 && $DATA.get(3)==0) f++;
      if (f==5 && $DATA.get(4)==0) f++;
      if (f==6 && $DATA.get(5)==0) f++;
      if (f==7 && $DATA.get(6)==0) f++;
    }
    if (getKey(38)) {
      if (f==7 && $DATA.get(6)==0) f--;
      if (f==6 && $DATA.get(5)==0) f--;
      if (f==5 && $DATA.get(4)==0) f--;
      if (f==4 && $DATA.get(3)==0) f--;
      if (f==3 && $DATA.get(2)==0) f--;
      if (f==2 && $DATA.get(1)==0) f--;
    }
    if (getKey(32)) {
      $GAME = f;
      $GAMEOVER = 0;
      for (a=0;a<51;a++) {
        drawDxSprite($ScreenWidth/2,$ViewY+$ScreenHeight/2,$pat_map,0,-100,0,a*5,10);
        update();
      }
      if (f==1)
      for (a=0;a<10;a++) {
        drawDxSprite($ScreenWidth/2,$ViewY+$ScreenHeight/2,$pat_map,0,-100,0,255,10);
        $map.set(0,a,$pat_map+1+rnd(2));
        $map.set(1,a,$pat_map+1+rnd(2));
        $map.set(2,a,$pat_map+1+rnd(2));
        $map.set(3,a,$pat_map+1+rnd(2));
        $map.set(4,a,$pat_map+1+rnd(2));
        $map.set(5,a,$pat_map+1+rnd(2));
        $map.set(6,a,$pat_map+1+rnd(2));
        update();
      }
      $Panel.fillRect(0,0,$ScreenWidth,$ScreenHeight,color(0,0,0),-99);
      $MyCHA = Appear(new MAIN($ScreenWidth/2,$ScreenHeight/2,$pat_cha+122,0));
      $map.scrollTo(0,0);
      for (a=0;a<51;a++) {
        drawDxSprite($ScreenWidth/2,$ViewY+$ScreenHeight/2,$pat_map,0,-100,0,255-a*5,10);
        update();
      }
      wait();
    }
    update();
  }
}

//自機
if (p==$pat_cha+122) {
  zOrder=-100;
  $Panel.fillRect(5,5,275,15,$clBlack);
  wait(51);
  for (zOrder=0;zOrder<4;zOrder++) {
    for (a=0;a<60;a++) {
      if (zOrder==0) {
        drawText(200,201,"3",$clBlack,20);
        drawText(200,200,"3",$clWhite,20);
      }
      if (zOrder==1) {
        drawText(200,201,"2",$clBlack,25);
        drawText(200,200,"2",$clWhite,25);
      }
      if (zOrder==2) {
        drawText(200,201,"1",$clBlack,30);
        drawText(200,200,"1",$clWhite,30);
      }
      if (zOrder==3) {
        drawText(200,201,"GO!",$clBlack,35);
        drawText(200,200,"GO!",$clWhite,35);
      }
      update();
    }
  }
  $SY=1;
  while(1) {
    $map.scrollTo(0,$ViewY-$SY);
    Y-=$SY;
    
    p=$pat_cha+122;
    if (getKey(37) && x>10) {
      if (p==$pat_cha+123 && f==0) p=$pat_cha+122; else p=$pat_cha+123;
      f=1;
      if (getKey(90)) x--; else x-=3;
    }
    if (getKey(39) && x<$ScreenWidth-10) {
      if (p==$pat_cha+123 && f==1) p=$pat_cha+122; else p=$pat_cha+123;
      f=0;
      if (getKey(90)) x++; else x+=3;
    }
    if (getKey(38) && y>$ViewY+10) {
      if (getKey(90)) y--; else y-=3;
    }
    if (getKey(40) && y<$ViewY+$ScreenHeight-10) {
      if (getKey(90)) y++; else y+=3;
    }
    
    if (getkey(32)%6==0 && getKey(32)) {
      if ($DATA.get(7) == 1)
      appear(new MAIN(x,y-10,$pat_efect+49));
      if ($DATA.get(7) == 2)
      appear(new MAIN(x,y-10,$pat_efect+39));
      if (valueOf($DATA.get(7)) > 2)
      appear(new MAIN(x,y-10,$pat_efect+48,0));
    }
    
    if ($ALL<20) {
      a++;
      if ($GAME==1) $A.ENEMY_1($HP,X,Y,a);
      if ($GAME==2) $A.ENEMY_2($HP,X,Y,a);
      if ($GAME==3) $A.ENEMY_3($HP,X,Y,a);
      if ($GAME==4) $A.ENEMY_4($HP,X,Y,a);
      if ($GAME==5) $A.ENEMY_5($HP,X,Y,a);
      if ($GAME==6) $A.ENEMY_6($HP,X,Y,a);
      if ($GAME==7) $A.ENEMY_7($HP,X,Y,a);
    }
    
    if ($HP>100) cl=$clYellow;
    if ($HP>500) cl=$clGreen;
    if ($HP<101) cl=$clRed;
    fillRect(5,$ViewY+5,275/1000*$HP,$ViewY+15,cl,-200);
    
    update();
  }
}

//エフェクト
if (p==$pat_efect && f==0) scaleX=0.5;
if (p==$pat_efect+3) {vx=($MyCHA.X-X)/180;vy=($MyCHA.Y-Y)/180;}
if (p==$pat_efect+4) {vx=-($MyCHA.X-X)/180;vy=-($MyCHA.Y-Y)/180;}
if (p==$pat_efect+8) {vx=sin($frameCount)*2;vy=cos($frameCount)*2;}
if (p==$pat_efect+9) {vx=cos($frameCount)*2;vy=sin($frameCount)*2;}
while(p >= $pat_efect) {
  Y--;
  if (p==$pat_efect+39) {y-=7;if($A.Efect_A()==1){appear(new MAIN(x,y,$pat_efect,0));die();}if (Y<$ViewY-40) die();}
  if (p==$pat_efect+49) {y-=6;if($A.Efect_A()==1){appear(new MAIN(x,y,$pat_efect,0));die();}if (Y<$ViewY-40) die();}
  if (p==$pat_efect && f!=1) {scaleX+=0.1;alpha-=50;}
  if (p==$pat_efect+2) {Y+=4;$A.Enemy_A(getWidth(p)/2,getHeight(p)/2,angle,x,y);}
  if (p==$pat_efect+6) {Y+=6;$A.Enemy_A(getWidth(p)/2,getHeight(p)/2,angle,x,y);}
  if (p==$pat_efect+7) {Y+=8;$A.Enemy_A(getWidth(p)/2,getHeight(p)/2,angle,x,y);}
  if (p==$pat_efect+3 || p==$pat_efect+4 || p==$pat_efect+8 || p==$pat_efect+9) {Y+=VY;x+=VX;$A.Enemy_A(getWidth(p)/2,getHeight(p)/2,angle,x,y);}
  if (p==$pat_efect+48 && f==0) {y-=8;scaleX=0.4+valueOf($DATA.get(7))/10;if($A.Efect_A()==1){appear(new MAIN(x,y,$pat_efect,0));die();}if (Y<$ViewY-40) die();}
  if (Y>$ScreenHeight+$ViewY+40 || X>$ScreenWidth+40 || X<-40 || alpha<1) die();
  update();
}

//敵
t=0;
STATES=$ENEMY.get(p).split("/");
for (a=0;a<STATES.size();a++) {
  STATES.set(a,valueOf(STATES.get(a)));
  update();
}

HP=STATES.get(2);
if (STATES.get(1) != 2) p=$pat_cha+STATES.get(3); else p=getGlobal("$pat_boss"+STATES.get(3));
a=newAnimation();
  
vx=STATES.get(10);
vy=STATES.get(11);
if (STATES.get(12) == 0 && X>$ScreenWidth/2) vx = -vx;

if ($ENEMY0 == null) {$ENEMY0 = this; ENEMY=0; $HP0 = HP;}
if ($ENEMY1 == null && ENEMY == null) {$ENEMY1 = this; ENEMY=1; $HP1 = HP;}
if ($ENEMY2 == null && ENEMY == null) {$ENEMY2 = this; ENEMY=2; $HP2 = HP;}
if ($ENEMY3 == null && ENEMY == null) {$ENEMY3 = this; ENEMY=3; $HP3 = HP;}
if ($ENEMY4 == null && ENEMY == null) {$ENEMY4 = this; ENEMY=4; $HP4 = HP;}
if ($ENEMY5 == null && ENEMY == null) {$ENEMY5 = this; ENEMY=5; $HP5 = HP;}
if ($ENEMY6 == null && ENEMY == null) {$ENEMY6 = this; ENEMY=6; $HP6 = HP;}
if ($ENEMY7 == null && ENEMY == null) {$ENEMY7 = this; ENEMY=7; $HP7 = HP;}
if ($ENEMY8 == null && ENEMY == null) {$ENEMY8 = this; ENEMY=8; $HP8 = HP;}
if ($ENEMY9 == null && ENEMY == null) {$ENEMY9 = this; ENEMY=9; $HP9 = HP;}
if ($ENEMY10 == null && ENEMY == null) {$ENEMY10 = this; ENEMY=10; $HP10 = HP;}
if ($ENEMY11 == null && ENEMY == null) {$ENEMY11 = this; ENEMY=11; $HP11 = HP;}
if ($ENEMY12 == null && ENEMY == null) {$ENEMY12 = this; ENEMY=12; $HP12 = HP;}
if ($ENEMY13 == null && ENEMY == null) {$ENEMY13 = this; ENEMY=13; $HP13 = HP;}
if ($ENEMY14 == null && ENEMY == null) {$ENEMY14 = this; ENEMY=14; $HP14 = HP;}
if ($ENEMY15 == null && ENEMY == null) {$ENEMY15 = this; ENEMY=15; $HP15 = HP;}
if ($ENEMY16 == null && ENEMY == null) {$ENEMY16 = this; ENEMY=16; $HP16 = HP;}
if ($ENEMY17 == null && ENEMY == null) {$ENEMY17 = this; ENEMY=17; $HP17 = HP;}
if ($ENEMY18 == null && ENEMY == null) {$ENEMY18 = this; ENEMY=18; $HP18 = HP;}
if ($ENEMY19 == null && ENEMY == null) {$ENEMY19 = this; ENEMY=19; $HP19 = HP;}
$ALL++;

while(X<$ScreenWidth+50 && X>-50 && Y<$ViewY+$ScreenHeight+50 && HP>0) {
  HP = getGlobal("$HP"+ENEMY);
  t++;
  //アニメ
  if (STATES.get(0) != 6) {
    if (STATES.get(5) == 0) a.loop($pat_cha+STATES.get(3),$pat_cha+STATES.get(3)+STATES.get(4)-1,5);
    if (STATES.get(5) == 1 || STATES.get(5) == 2) {
      if (t%5 == 0) p++;
      if (p == $pat_cha+STATES.get(3)+STATES.get(4)) {
        p=$pat_cha+STATES.get(3);
        if (STATES.get(5) == 2) f=-f;
      }
    }
  } else {
    if (Y > $ViewY+$ScreenHeight/3 && p==$pat_cha+11) p++;
    if (Y > $ViewY+$ScreenHeight/3*2 && p==$pat_cha+12) p++;
    if (Y > $ViewY+$ScreenHeight) HP=0;
  }
  //攻撃
  if (STATES.get(6) != 4) {
    //一定のタイミング
    if (STATES.get(6)==1) {
      if ((STATES.get(0) == 4 && t%5==0) || (STATES.get(0) == 3 && t%20==0) || (STATES.get(0) == 2 && t%10==0))
      Appear(new MAIN(x,y,$pat_efect+STATES.get(7),0,0,0,255,STATES.get(8),STATES.get(9)));
    }
    //あるタイミング
    if (STATES.get(6)==2) {
      if (STATES.get(0) == 5 && X+5>$MyCHA.X && X-5<$MyCHA.X)
      Appear(new MAIN(x,y,$pat_efect+STATES.get(7),0,0,0,255,STATES.get(8),STATES.get(9)));
    }
  } else {
    //その他
    if (STATES.get(0) == 8) {
      if (t%30 == 0) Appear(new MAIN(x,y,$pat_efect+3));
      if (t%31 == 0) Appear(new MAIN(x,y,$pat_efect+4));
      if (t%32 == 0) Appear(new MAIN(x,y,$pat_efect+8));
      if (t%33 == 0) Appear(new MAIN(x,y,$pat_efect+9));
    }
  }
  //移動
  if (STATES.get(12) != 3) {
    //中央に向かう
    if (STATES.get(12) == 0) {
      x += vx;
      y += vy;
    }
    //追尾
    if (STATES.get(12) == 1) {
      if ($MyCHA.X < X) x-=vx; else x+=vx;
      if ($MyCHA.Y < Y) y-=vy; else y+=vy;
    }
    //UFO式
    if (STATES.get(12) == 2) {
      if ($ViewY+getHeight(p)/2 < Y)Y--;
      if ($ScreenWidth < X || 0 > X) vx=-vx;
      x+=vx;
    }
  } else {
    //その他
    if (STATES.get(0) == 8 && Y > $ViewY+$ScreenHeight/2) Y--;
  }
  
  if (STATES.get(13)==1) angle+=40;
  
  $A.ENEMY_A(getWidth(p)/2,getHeight(p)/2,angle,x,y);
  
  update();
}

if (HP<1) {
  Appear(new MAIN(x,y,$pat_efect));
  //死に際
  if (STATES.get(6)==3) {
    if (STATES.get(0) == 6) {
      Appear(new MAIN(x,y,$pat_efect+STATES.get(7),0,0,0,255,STATES.get(8),STATES.get(9)));
      Appear(new MAIN(x,y,$pat_efect+STATES.get(7),0,0,60,255,STATES.get(8),STATES.get(9)));
      Appear(new MAIN(x,y,$pat_efect+STATES.get(7),0,0,120,255,STATES.get(8),STATES.get(9)));
      Appear(new MAIN(x,y,$pat_efect+STATES.get(7),0,0,180,255,STATES.get(8),STATES.get(9)));
      Appear(new MAIN(x,y,$pat_efect+STATES.get(7),0,0,240,255,STATES.get(8),STATES.get(9)));
      Appear(new MAIN(x,y,$pat_efect+STATES.get(7),0,0,320,255,STATES.get(8),STATES.get(9)));
    }
  }
}

if (ENEMY==0) $ENEMY0 = null;
if (ENEMY==1) $ENEMY1 = null;
if (ENEMY==2) $ENEMY2 = null;
if (ENEMY==3) $ENEMY3 = null;
if (ENEMY==4) $ENEMY4 = null;
if (ENEMY==5) $ENEMY5 = null;
if (ENEMY==6) $ENEMY6 = null;
if (ENEMY==7) $ENEMY7 = null;
if (ENEMY==8) $ENEMY8 = null;
if (ENEMY==9) $ENEMY9 = null;
if (ENEMY==10) $ENEMY10 = null;
if (ENEMY==11) $ENEMY11 = null;
if (ENEMY==12) $ENEMY12 = null;
if (ENEMY==13) $ENEMY13 = null;
if (ENEMY==14) $ENEMY14 = null;
if (ENEMY==15) $ENEMY15 = null;
if (ENEMY==16) $ENEMY16 = null;
if (ENEMY==17) $ENEMY17 = null;
if (ENEMY==18) $ENEMY18 = null;
if (ENEMY==19) $ENEMY19 = null;
$ALL--;