
#Title[夢月・通常弾幕1]
#Text[夢月・通常弾幕1]
#Player[FREE]
#ScriptVersion[2]

script_enemy_main{
    #include_script".\Local.txt"
   let imgBOSS = csd~"img\dot_mugetu.png";
   let shotData = csd ~ "data_usershot.txt";
  let effect = csd ~ "img\circle.png";

   @Initialize{
 SetCommonDataEx("","bg",3);
           SetLife(2000);
      SetDamageRate(100,10);
     /*      SetTimer(30);  */
           SetInvincibility(120);
         sgr(0,0);
/*SetMovePosition03(GetCenterX,GetClipMinY+120,20,10);*/
        SetAlpha(255);
           LoadGraphic(imgBOSS);
    LoadGraphic(effect);
          LoadUserShotData(shotData);
           TMain;
    }

   @MainLoop{
    if(OnEvent){break;}
           SetCollisionA(GetX, GetY, 24);
           SetCollisionB(GetX, GetY, 18);

         yield;
       }

   @DrawLoop{
         SetTexture(imgBOSS);  
        DrawGraphic(GetX,GetY);
     }

    @Finalize{
        DeleteGraphic(imgBOSS);
        DeleteGraphic(effect);
     }
 
     task TMain{
  yield;
 CreateEventFromScript("Talk");
  while(OnEvent){ wait(1);}
 SetMovePosition03(GetCenterX,GetClipMinY+120,20,10);
  CreateEventFromScript("Talk2");
   while(OnEvent){ wait(1);}
  Circle2(60);
  SetTimer(30);
   SetInvincibility(120);
    wait(30);
     Move;
          wait(90);
        Shot;
    loop{
   if(OnBomb){SetDamageRate(10,20);}
     else{SetDamageRate(100,10);}
    wait(1);
      }
    }

   task Shot{
     Shot1;
    task Shot1{
    let way = 72;
    loop{
      ascent(a in 0..way){
      let base = 360/way*a;
      let x = GetX;
      let y = GetY;
     ascent(v in 0..3){
      CreateShot02(x,y,6,base,-0.2,2.5-v*0.6,RED12,10);
          }
      }
      PlaySE(seshot1);
       wait(60);
         }
       }
    }

    task Move{
 loop{
   let f = 1;
  let r = rand_int(0,1);
 if(GetX < minx+64){r = 0;}
    else if(GetX > maxx-64){r = 1;}
    let x = GetX + 48*(-1)^r;
    let y = GetY + rand(-48,48);
    if(y < miny+48){y = miny+48;}
    else if(y > miny+160){y = miny+160;}
  /* if(GetX > x){sgr(2,1);}
   else if(GetX < x){sgr(2,3);}  */
    SetMovePosition03(x,y,15,f);
     wait(90);
      }
    }

    function offsetX(radius,angle){
           return radius * cos(angle);
     }

        function offsetY(radius,angle){
            return radius * sin(angle);
     }           

       function move(f){
          SetMovePosition02(rand(GetClipMinX+60,GetClipMaxX-60),GetY+rand(-20,20),f);
     }
            
        function sc(r,g,b){
             SetShotColor(r,g,b);
     }

  function sgr(a,b){SetGraphicRect(a*128,b*128,(a+1)*128,(b+1)*128);}

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

script_event Talk{
    @Initialize{
  }
    @MainLoop{
  if(GetPlayerType == REIMU_A || GetPlayerType == REIMU_B){
       TextOutA("\c[BLUE]この湖の妖精ってこんなに強かったっけ？\n別に問題なかったけど\n
それより、どうしてここに「歪」があるのかしら？\n
・・・・・・\n\n
普通ならここで誰か来るんだけど");
 TextOutA("\c[RED]お答えしましょうか？");
 TextOutA("\c[BLUE]!");
         }
   else if(GetPlayerType == MARISA_A || GetPlayerType == MARISA_B){
      TextOutA("\c[BLUE]なかなかの弾幕だったが\nまぁ準備運動ぐらいにはなったな\n
こういう場合、そろそろボスが出てくるもんだが\n
・・・期待外れだったか？");
 TextOutA("\c[RED]そんなことないんじゃない？");
 TextOutA("\c[BLUE]!");
         }  
       End;
      }
   @Finalize{
      }
    }

script_event Talk2{
    @Initialize{
  }
    @MainLoop{
  if(GetPlayerType == REIMU_A || GetPlayerType == REIMU_B){
    TextOutA("\c[RED]一つぐらいなら");
    TextOutA("\c[BLUE]じゃあ聞くけど、空間の歪みはあんたの仕業？");
     TextOutA("\c[RED]さぁね\n\n
というか、私の正体に興味は無いの？");
    TextOutA("\c[BLUE]答えになってないし\nあんたの正体なんて一目瞭然じゃない\n
それよりこの「歪」どうにかならないの？\n\n
隙間から妖気が漏れて、妖怪が異常になってるんだけど");
  TextOutA("\c[RED]そんなこと言われてもね・・・");
    TextOutA("\c[BLUE]じゃあ、その空間ごと");
     TextOutA("\c[RED]？");
   TextOutA("\c[BLUE]私があんたを封印するわ");
     TextOutA("\c[RED]冗談でしょ？\n「ただ」の人間ごときに出来るかしら");
   TextOutA("\c[BLUE]「ただ」じゃなくて、「巫女」よ！");
   TextOutA("\c[RED]どうでもいいけど\n私、人間の命なんて何とも思ってないから"); 
         }

   else if(GetPlayerType == MARISA_A || GetPlayerType == MARISA_B){
    TextOutA("\c[RED]ボスの登場よ");
    TextOutA("\c[BLUE]・・・・・・");
     TextOutA("\c[RED]何で黙ってるのよ");
    TextOutA("\c[BLUE]いや、お前、どー見たって・・・\n\n
メイドだろ");
  TextOutA("\c[RED]見た目で判断するんじゃないわよ\n\n
私だって好きでこんな格好してるわけじゃないし");
   TextOutA("\c[BLUE]そうか？　結構似合ってると思うが");
     TextOutA("\c[RED]で、何しに来たんだよ");
 TextOutA("\c[BLUE]暇潰し");
     TextOutA("\c[RED]・・・・・・");
   TextOutA("\c[BLUE]あと、お前が何者なのか");
   TextOutA("\c[RED]聞きたかったら、私を倒すことね");
   TextOutA("\c[BLUE]・・・メイドじゃなかったのか？");
         }  
       End;
      }
   @Finalize{
      }
    }