//ė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(60);
      loop(30){clearhyouzi += 10;yield;}
      SetCommonData("score",GetCommonData("score")+stage*20000000);

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

      if(stageselect==true){Clear;}

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

      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;}
	SetCommonData("score",GetCommonData("score")+stage*20000000);

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

	clearhyouzi = 0;
	wait(100);
	DeleteMusic(bgmclear);
	ForbidBomb(true);
	while(GetPlayerLife>1){
	   ExtendPlayer(-1);
	   SetCommonData("score",GetCommonData("score")+100000000);
	   PlaySE("se1UP.wav");
	   wait(60);
	}
	while(GetPlayerBomb>0){
	   AddBomb(-1);
	   SetCommonData("score",GetCommonData("score")+10000000);
	   PlaySE("se1UP.wav");
	   wait(60);
	}
	wait(120);
	AddScore(-GetScore);
	AddScore(GetCommonData("score")/100);
	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)*80), y+sin(angle+(90+sin(a*65)*10)+sin(a*80)*20)*(sin(a*110)*80), rank, angle, 0);
      wait(w);
      a++;
   }
}
task Tzakoair1(let x1,let x2,let y1, let y2, let angle, let arg, let w, let n, let rank){//󒆓GQ@x y p^[@E@Ԋu@@N
   let a=0;
   loop(n){
      CreateEnemyFromFile( zakoair1, x1+a*x2, y1+a*y2, rank, angle, arg);
      wait(w);
      a++;
   }
}
task Tzakoair1a(let x1,let x2,let y1, let y2, let angle, let arg, let w, let n, let rank){//󒆓GQ@x y p^[@E@Ԋu@@N
   let a=0;
   loop(n){
      if(GetCommonData("haya")==1){
         CreateEnemyFromFile( zakoair1, x1+a*x2, y1+a*y2, rank, angle, arg);
      }
      wait(w);
      a++;
   }
}

task Tzakoair2(let x1,let x2, let w, let n, let rank){//󒆓GQ@x y px@Ԋu@@N
   let a=0;
   loop(n){
      CreateEnemyFromFile( zakoair2, x1+a*x2, 0, rank, 90, 0);
      wait(w);
      a++;
   }
}
task Tzakoair2a(let r,let w,let n,let rank){//󒆓GQ@ʒu@Ԋu@@N
   let a=0;
   loop(n){
      CreateEnemyFromFile( zakoair2, 224-cos(a*110)*60+100*r, 0, rank, 90, 0);
      wait(w);
      a++;
   }
}
task Tzakoair2b(let r,let w,let n,let rank){//󒆓GQ@ʒu@Ԋu@@N
   let a=0;
   loop(n){
      if(GetCommonData("haya")==1){
      	CreateEnemyFromFile( zakoair2, 224-cos(a*110)*60+100*r, 0, rank, 90, 0);
      }
      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(80);
      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(200){
      if(a==0){CreateEnemyFromFile( zakotank1, 224-240, 340, 0, 0, 240);}
      if(a==50){CreateEnemyFromFile( zakotank1, 224-240, 380, 0, 0, 200);}
      if(a==90){CreateEnemyFromFile( zakotank1, 224-240, 340, 0, 0, 160);}
      if(a==140){CreateEnemyFromFile( zakotank1, 224-240, 380, 0, 0, 120);}
      wait(1);
      a++;
   }
}

task Tzakogun102{//E
   let a=0;
   loop(200){
      if(a==0){CreateEnemyFromFile( zakotank1, 224+240, 340, 0, 180, 200);}
      if(a==50){CreateEnemyFromFile( zakotank1, 224+240, 380, 0, 180, 160);}
      if(a==110){CreateEnemyFromFile( zakotank2, 224+240, 355, 0, 180, 100);}
      wait(1);
      a++;
   }
}
task Tzakogun103{//E
   let a=0;
   loop(200){
      if(a==0){CreateEnemyFromFile( zakotank1, 224+240, 970, 0, 148, 300);}
      if(a==30){CreateEnemyFromFile( zakotank1, 224+240, 920, 0, 148, 280);}
      if(a==80){CreateEnemyFromFile( zakotank1, 224+240, 970, 0, 148, 230);}
      if(a==100){CreateEnemyFromFile( zakotank1, 224+240, 920, 0, 148, 210);}
      if(a==160){CreateEnemyFromFile( zakotank2, 224+240, 940, 0, 148, 160);}
      wait(1);
      a++;
   }
}
task Tzakogun104{//
   let a=0;
   loop(400){
      if(a==0){CreateEnemyFromFile( zakotank1, 224-240, 1370, 0, 32, 300);}
      if(a==80){CreateEnemyFromFile( zakotank1, 224-240, 1370, 0, 32, 230);}
      if(a==160){CreateEnemyFromFile( zakotank1, 224-240, 1370, 0, 32, 160);}
      if(a==140){CreateEnemyFromFile( zakotank1, 224-240, 1420, 0, 32, 300);}
      if(a==220){CreateEnemyFromFile( zakotank1, 224-240, 1420, 0, 32, 230);}
      if(a==300){CreateEnemyFromFile( zakotank1, 224-240, 1420, 0, 32, 160);}
      wait(1);
      a++;
   }
}
task Tzakogun105{//
   let a=0;
   loop(400){
      if(a==0){CreateEnemyFromFile( zakotank2, 224-240, 2710, 0, 32, 300);}
      if(a==80){CreateEnemyFromFile( zakotank2, 224-240, 2710, 0, 32, 230);}
      if(a==160){CreateEnemyFromFile( zakotank2, 224-240, 2710, 0, 32, 160);}
      if(a==60){CreateEnemyFromFile( zakotank1, 224-240, 2660, 0, 32, 300);}
      if(a==140){CreateEnemyFromFile( zakotank1, 224-240, 2660, 0, 32, 230);}
      if(a==220){CreateEnemyFromFile( zakotank1, 224-240, 2660, 0, 32, 160);}
      wait(1);
      a++;
   }
}
task Tzakogun106{//
   let a=0;
   loop(6){
      CreateEnemyFromFile( zakotank1, 224-240, 2730, 0, 106, 0);
      wait(80);
      a++;
   }
}
task Tzakogun107{//傩
   let a=0;
   loop(8){
      CreateEnemyFromFile( zakotank1, 224-30, 3090, 0, 107, 0);
      wait(40);
      if(a>0){CreateEnemyFromFile( zakotank2, 224+30, 3090, 0, 107, 0);}
      wait(40);
      a++;
   }
}


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

task Thunebig(x,y,angle,rank){//hunebigp@x y px@N
   CreateEnemyFromFile( hunebig1, x, y, rank, angle, 2000);
   CreateEnemyFromFile( zakocannon3, x+30, y-25, rank, angle, 2000);
   CreateEnemyFromFile( zakocannon3, x+50, y+25, rank, angle, 2000);
   CreateEnemyFromFile( zakocannon3, x+80, y-45, rank, angle, 2000);
   CreateEnemyFromFile( zakocannon3, x+110, y+5, rank, angle, 2000);
   CreateEnemyFromFile( zakocannon3, x+140, y-30, rank, angle, 2000);
}
task Tzakogun201{//ォ
   let a=0;
   loop(400){
      if(a==10){CreateEnemyFromFile( zakotank1, 224+190, 320, 1, 127, 250);}
      if(a==80){CreateEnemyFromFile( zakotank1, 224+190, 320, 1, 127, 190);}
      if(a==150){CreateEnemyFromFile( zakotank1, 224+190, 320, 1, 127, 130);}
      if(a==0){CreateEnemyFromFile( zakotank2, 224+140, 340, 0, 127, 250);}
      if(a==70){CreateEnemyFromFile( zakotank2, 224+140, 340, 0, 127, 190);}
      if(a==140){CreateEnemyFromFile( zakotank2, 224+140, 340, 0, 127, 130);}
      wait(1);
      a++;
   }
}
task Tzakogun202{//oč
   let a=0;
   loop(7){
      CreateEnemyFromFile( zakotank1, 224-240, 580, 1, 202, 0);
      wait(80);
      a++;
   }
}
task Tzakogun203{//Eĉ
   let a=0;
   loop(12){
      CreateEnemyFromFile( zakotank1, 224+240, 840, 1, 203, 0);
      wait(80);
      a++;
   }
}
task Tzakogun204{//D
   let a=0;
   loop(400){
      if(a==0){CreateEnemyFromFile( zakohune1, 224-240, 1520, 1, 18, 290);}
      if(a==80){CreateEnemyFromFile( zakohune1, 224-240, 1520, 1, 18, 220);}
      if(a==160){CreateEnemyFromFile( zakohune1, 224-240, 1520, 1, 18, 150);}
      if(a==60){CreateEnemyFromFile( zakohune1, 224-240, 1460, 1, 18, 230);}
      if(a==140){CreateEnemyFromFile( zakohune1, 224-240, 1460, 1, 18, 160);}
      wait(1);
      a++;
   }
}


/////////////////////////Xe[WR//////////////////////////



