//ėp

function RealToIntString(let num){
   if(num<0){num=0;}
   let stringarray=["0","1","2","3","4","5","6","7","8","9"];
   let lp=floor(log10(num))+1;
   let lp1=lp;
   if(lp<=0){result="0"}
   else{
      result = "";
      loop(lp){
         result=result~ stringarray[(num%(10^lp1)-num%(10^(lp1-1)))/(10^(lp1-1))];
         lp1--;
      }
   }
}

function wait(w) {
   loop(w) { yield; }
}

task Tclear{
      clear=true;
      PlayMusic(bgmclear);
      wait(150);
      loop(30){clearhyouzi += 10;yield;}
      AddScore(GetCommonData("ruikei")*1000);

      loop(160){clearhyouzi += 0.3;yield;}
      loop(110){clearhyouzi += 10;yield;}

      if(stageselect==true){Clear;}

      phase=0;
      stage++;SetCommonData("bgy",0);
      clear=false;
      clearhyouzi = 0;
}
task Tclear2{
      clear=true;
      PlayMusic(bgmclear);
      phase=4;time=0;
      wait(150);
      loop(30){clearhyouzi += 10;yield;}
      AddScore(GetCommonData("ruikei")*1000);

      loop(160){clearhyouzi += 0.3;yield;}
      loop(110){clearhyouzi += 10;yield;}

      if(stageselect==true){Clear;}

      if(GetCommonData("ex")==0){
         SetCommonData("ex",1);
         SetCommonData("ruikei",GetCommonData("ruikei")*2);
         phase=0;
         stage=1;SetCommonData("bgy",0);
         clear=false;
      }
      else{Clear;}
      clearhyouzi = 0;
}
task Tclear3{
      clear=true;
      PlayMusic(bgmclear);
      wait(150);
      loop(30){clearhyouzi += 10;yield;}
      AddScore(GetCommonData("ruikei")*1000);

      loop(160){clearhyouzi += 0.3;yield;}
      loop(110){clearhyouzi += 10;yield;}

      clearhyouzi = 0;
      wait(100);
      DeleteMusic(bgmclear);
      ForbidBomb(true);
      wait(120);
      Clear;
}

task Tzakoheli1(let p,let r,let w,let n,let rank){//w p=0ǔ1t^[@ʒu@Ԋu@@N
   let a=0;
   loop(n){
      CreateEnemyFromFile( zakoheli1, 224-cos(a*110)*60+100*r, 0, rank, 90, p);
      wait(w);
      a++;
   }
}

task Tzakoheli2(let x,let y,let angle,let w,let n,let rank){//󒆓GQ@@@px@Ԋu@@N
   let a=0;
   loop(n){
      CreateEnemyFromFile( zakoheli2, x+cos(angle+90+sin(a*80)*20)*(sin(a*110)*40), y+sin(angle+90+sin(a*80)*20)*(sin(a*110)*40), rank, angle, 0);
      wait(w);
      a++;
   }
}
task Tzakoheli2a(let angle,let w,let n,let rank){//󒆓GQ@@@px@Ԋu@@N
   let a=0;
   let x=224+cos(angle+180)*240;
   let y=240+sin(angle+180)*320;
   loop(n){
      CreateEnemyFromFile( zakoheli2, x+cos(angle+90+sin(a*80)*20)*(sin(a*110)*40), y+sin(angle+90+sin(a*80)*20)*(sin(a*110)*40), rank, angle, 0);
      wait(w);
      a++;
   }
}
task Tzakoheli3(let x,let y,let angle,let w,let n,let rank){//󒆓GQ@@@px@Ԋu@@N
   let a=0;
   loop(n){
      CreateEnemyFromFile( zakoheli3, x+cos(angle+(90+sin(a*65)*10)+sin(a*80)*20)*(sin(a*110)*60), y+sin(angle+(90+sin(a*65)*10)+sin(a*80)*20)*(sin(a*110)*60), rank, angle, 0);
      wait(w);
      a++;
   }
}
task Tzakosky1a(let r,let w,let n,let rank){//󒆓GQ@ʒu@Ԋu@@N
   let a=0;
   loop(n){
      CreateEnemyFromFile( zakosky1, 224+224*r, 80+a*4-15, rank, 1, r);
      wait(w);
      a++;
   }
}
task Tzakosky1b(let r,let w,let n,let rank){//󒆓GQ@ʒu@Ԋu@@N
   let a=0;
   loop(n){
      CreateEnemyFromFile( zakosky1, 224+264*r, 180+a*4-15, rank, 2, r);
      wait(w);
      a++;
   }
}

task Tzakotank1(let x, let y,let angle, let n, let rank){//URԈ@x y px@ N
   let a=0;
   loop(n){
      CreateEnemyFromFile( zakotank1, x, y, rank, angle, 1000);
      wait(80);
      a++;
   }
}
task Tzakotank2(let x, let y,let angle, let n, let rank){//URԈ@x y px@ N
   let a=0;
   loop(n){
      CreateEnemyFromFile( zakotank2, x, y, rank, angle, 1000);
      wait(80);
      a++;
   }
}
task Tzakohune1(let x, let y,let angle, let n, let rank){//URD@x y px@ N
   let a=0;
   loop(n){
      CreateEnemyFromFile( zakohune1, x, y, rank, angle, 1000);
      wait(120);
      a++;
   }
}

task Tzakocannon1a(let x,let y,let r,let n,let rank,){//CWOUO@x  y  @@N
   let a=0;
   loop(n){
      CreateEnemyFromFile( zakocannon1, x+30*a, y-a%2*40*r, rank, 0, 0);
      wait(30);
      a++;
   }
}

task Tzakocannon1b(let x,let y,let angle,let n,let rank,){//C䒼@x  y@px@@N
   let a=0;
   loop(n){
      CreateEnemyFromFile( zakocannon1, x+cos(angle)*50*a, y+sin(angle)*50*a, rank, 0, 0);
      wait(5);
      a++;
   }
}


/////////////////////////Xe[WP//////////////////////////
task Tzakogun101{//ォ
   let a=0;
   loop(350){
      if(a==0){CreateEnemyFromFile( zakotank1, 224-240, 880, 0, 32, 420);}
      if(a==100){CreateEnemyFromFile( zakotank2, 224-240, 880, 0, 32, 330);}
      if(a==200){CreateEnemyFromFile( zakotank1, 224-240, 880, 0, 32, 240);}
      if(a==300){CreateEnemyFromFile( zakotank2, 224-240, 880, 0, 32, 150);}

      if(a==70){CreateEnemyFromFile( zakotank1, 224-240, 830, 0, 32, 350);}
      if(a==190){CreateEnemyFromFile( zakotank1, 224-240, 830, 0, 32, 240);}
      if(a==270){CreateEnemyFromFile( zakotank1, 224-240, 830, 0, 32, 170);}
      wait(1);
      a++;
   }
}

task Tzakogun102{//̑O@
   let a=0;
   loop(6){
      CreateEnemyFromFile( zakotank1, 224-240, 930, 0, 102, 0);
      wait(80);
      a++;
   }
}
task Tzakogun103{//̑O@E
   let a=0;
   loop(7){
      CreateEnemyFromFile( zakotank1, 224+240, 1080, 0, 103, 0);
      wait(80);
      a++;
   }
}
task Tzakogun104{//@ォ
   let a=0;
   loop(450){
      if(a==0){CreateEnemyFromFile( zakotank1, 224-40, 1545, 0, 90, 500);}
      if(a==60){CreateEnemyFromFile( zakotank1, 224, 1545, 0, 90, 460);}
      if(a==120){CreateEnemyFromFile( zakotank1, 224+40, 1545, 0, 90, 420);}
      if(a==180){CreateEnemyFromFile( zakotank1, 224-15, 1545, 0, 90, 380);}
      if(a==240){CreateEnemyFromFile( zakotank1, 224+30, 1545, 0, 90, 340);}
      if(a==300){CreateEnemyFromFile( zakotank1, 224-40, 1545, 0, 90, 300);}
      if(a==360){CreateEnemyFromFile( zakotank1, 224+30, 1545, 0, 90, 260);}
      if(a==420){CreateEnemyFromFile( zakotank1, 224-25, 1545, 0, 90, 220);}

      wait(1);
      a++;
   }
}
task Tzakogun105{//ォ
   let a=0;
   loop(12){
      CreateEnemyFromFile( zakotank1, 224-250, 1910, 0, 105, 0);
      wait(30);
      CreateEnemyFromFile( zakotank1, 224-230, 1960, 0, 105, 0);
      wait(50);
      a++;
   }
}
task Tzakogun106{//Ō@E
   let a=0;
   loop(450){
      if(a==0){CreateEnemyFromFile( zakotank1, 224+240, 2050, 0, 180, 250);}
      if(a==100){CreateEnemyFromFile( zakotank1, 224+240, 2050, 0, 180, 170);}
      if(a==200){CreateEnemyFromFile( zakotank1, 224+240, 2050, 0, 180, 90);}
      if(a==50){CreateEnemyFromFile( zakotank2, 224+240, 2100, 0, 180, 210);}
      if(a==150){CreateEnemyFromFile( zakotank2, 224+240, 2100, 0, 180, 130);}

      wait(1);
      a++;
   }
}
task Tzakogun107{//Ō@
   let a=0;
   loop(450){
      if(a==0){CreateEnemyFromFile( zakotank1, 224-240, 2150, 0, 0, 250);}
      if(a==100){CreateEnemyFromFile( zakotank1, 224-240, 2150, 0, 0, 170);}
      if(a==200){CreateEnemyFromFile( zakotank1, 224-240, 2150, 0, 0, 90);}
      if(a==50){CreateEnemyFromFile( zakotank2, 224-240, 2200, 0, 0, 210);}
      if(a==150){CreateEnemyFromFile( zakotank2, 224-240, 2200, 0, 0, 130);}

      wait(1);
      a++;
   }
}


/////////////////////////Xe[WQ//////////////////////////

task Tzakogun201{//E
   let a=0;
   loop(450){
      if(a==50){CreateEnemyFromFile( zakohune1, 224+240, 130, 2, 180, 240);}
      if(a==150){CreateEnemyFromFile( zakohune1, 224+240, 130, 2, 180, 160);}

      if(a==70){CreateEnemyFromFile( zakohune1, 224+240, 180, 2, 180, 280);}
      if(a==170){CreateEnemyFromFile( zakohune1, 224+240, 180, 2, 180, 200);}
      if(a==270){CreateEnemyFromFile( zakohune1, 224+240, 180, 2, 180, 120);}

      if(a==190){CreateEnemyFromFile( zakohune1, 224+240, 230, 2, 180, 240);}
      if(a==290){CreateEnemyFromFile( zakohune1, 224+240, 230, 2, 180, 160);}

      if(a==210){CreateEnemyFromFile( zakohune1, 224+240, 280, 2, 180, 280);}
      if(a==310){CreateEnemyFromFile( zakohune1, 224+240, 280, 2, 180, 200);}
      if(a==410){CreateEnemyFromFile( zakohune1, 224+240, 280, 2, 180, 120);}

      wait(1);
      a++;
   }
}
task Tzakogun202{//ォ
   let a=0;
   loop(450){
      if(a==0){CreateEnemyFromFile( zakotank2, 224-140, 500, 2, 90, 400);}
      if(a==0){CreateEnemyFromFile( zakotank1, 224-100, 500, 2, 90, 400);}
      if(a==120){CreateEnemyFromFile( zakotank1, 224-100, 500, 2, 90, 320);}
      if(a==120){CreateEnemyFromFile( zakotank2, 224-140, 500, 2, 90, 320);}
      if(a==240){CreateEnemyFromFile( zakotank2, 224-100, 500, 2, 90, 240);}
      if(a==240){CreateEnemyFromFile( zakotank1, 224-140, 500, 2, 90, 240);}

      wait(1);
      a++;
   }
}
task Tzakogun203{//
   let a=0;
   loop(450){
      if(a==0){CreateEnemyFromFile( zakotank1, 224-224, 1060, 2, 0, 250);}
      if(a==100){CreateEnemyFromFile( zakotank1, 224-224, 1060, 2, 0, 170);}
      if(a==200){CreateEnemyFromFile( zakotank2, 224-224, 1060, 2, 0, 90);}
      wait(1);
      a++;
   }
}



/////////////////////////Xe[WR//////////////////////////
task Tzakoheli1a(let p,let r,let w,let n,let rank){//w p=0ǔ1t^[@ʒu@@N
   let a=0;
   loop(40){
      CreateEnemyFromFile( zakoheli1, 224-sin(a*107)*120+60-a*3, 0, rank, 90, p);
      wait(7);
      a++;
   }
}

task Tzakogun301{//ォ
   let a=0;
   loop(11){
      CreateEnemyFromFile( zakotank1, 224-260, 295, 4, 301, 0);
      wait(20);
      CreateEnemyFromFile( zakotank1, 224-240, 365, 4, 301, 0);
      wait(30);
      CreateEnemyFromFile( zakotank1, 224-250, 330, 4, 301, 0);
      wait(30);
      a++;
   }
}
task Tzakogun302{//Eォ
   let a=0;
   loop(9){
      CreateEnemyFromFile( zakotank1, 224-240, 790, 4, 302, 0);
      wait(20);
      CreateEnemyFromFile( zakotank1, 224-260, 825, 4, 302, 0);
      wait(60);
      a++;
   }
}
task Tzakogun303{//G
   let a=0;
   loop(4){
      CreateEnemyFromFile( zakotank1, 224-240, 2060, 4, 303, 0);
      CreateEnemyFromFile( zakotank1, 224+240, 2100, 4, -303, 0);
      wait(80);
      a++;
   }
}
task Tzakogun304{//ォ
   let a=2;
   loop(24){
      CreateEnemyFromFile( zakotank2, 224+a%5*45-115, GetCommonData("bgy"), 4, 90, 400);
      wait(15);
      a+=1.4;
   }
}
task Tzakogun305{//
   let a=0;
   loop(18){
      CreateEnemyFromFile( zakotank1, 224+240, 1860, 4, -305, 0);//1660
      CreateEnemyFromFile( zakotank1, 224-240, 1860, 4, 305, 0);
      wait(80);
      a++;
   }
}
task Tzakogun306{//
   let a=0;
   loop(10){
      CreateEnemyFromFile( zakotank1, 224+240, 1710, 4, -306, 0);
      CreateEnemyFromFile( zakotank1, 224-240, 1710, 4, 306, 0);
      wait(80);
      a++;
   }
}
task Tzakosky1c(let r,let w,let n,let rank){//󒆓GQ@ʒu@Ԋu@@N
   let a=0;
   loop(n){
      CreateEnemyFromFile( zakosky1, 224+224*r, 80+r*7, rank, 1, r);
      wait(w);
      a++;
   }
}



