
#Title[夢月・通常弾幕12]
#Text[夢月・通常弾幕12]
#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",8);
           SetLife(3);
      SetDamageRate(1,0);
     /*      SetTimer(30);  */
           SetInvincibility(120);
         sgr(0,0);
/*SetMovePosition03(GetCenterX,GetClipMinY+120,20,10);*/
        SetAlpha(255);
           LoadGraphic(imgBOSS);
    LoadGraphic(effect);
          LoadUserShotData(shotData);
  Circle2(60);
           TMain;
    }

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

         yield;
       }

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

    @Finalize{
        DeleteGraphic(imgBOSS);
        DeleteGraphic(effect);
     }
 
     task TMain{
  yield;
  SetX(cx); SetY(miny+100);
  SetTimer(13);
   SetInvincibility(120);
          wait(90);
        Shot;
    loop{
   if(OnBomb){SetAlpha(0); SetDamageRate(0,0);}
     else{SetAlpha(255);SetDamageRate(1,0);}
    wait(1);
      }
    }

   task Shot{
  sgr(5,1);
  let color = [8,38,38];
  let delay = 10;
  let v = [3,5,5];
  let i = 0;
  loop{
  let x = GetX+rand(-32,32);
  let y = GetY+rand(-32,32);
  let base = rand(-180,180);
  ascent(a in 0..36){
  CreateShot01(x,y,v[i],base+10*a,color[i],delay);
      }
 if(i == 1 || i == 2){
     ascent(a in 0..36){
  CreateShot01(x,y,3,base+10*a,color[i],delay);
      }
   }
  i++;
  if(i > 2){i = 0;}
  PlaySE(seshot1);
   wait(10);
       }
    }

    function Move{
  sgr(0,0);
  ascent(a in 0..16){
   SetGraphicRect(0,0,128,128-(a+1)*8);
 SetY(miny+100-(a+1)*4);
   wait(1);
      }
  let basex = GetX;
   SetX(rand(minx+64,maxx-64));
 while(GetX >= basex-64 && GetX <= basex+64){
  SetX(rand(minx+64,maxx-64));
  }
   let basey = GetY;
     ascent(a in 0..16){
   SetGraphicRect(0,0,128,(a+1)*8);
 SetY(basey+(a+1)*4);
   wait(1);
      }
    }

   task Ref(x,y,v,angle,color,delay){
        let p = Obj_Create(OBJ_SHOT);
         Obj_SetX(p,x);
         Obj_SetY(p,y);
         Obj_SetSpeed(p,v);
         Obj_SetAngle(p,angle);
         ObjShot_SetGraphic(p,color); 
         ObjShot_SetDelay(p,delay);
         Obj_SetAutoDelete(p,true);
         ObjShot_SetBombResist(p,false);
         Obj_SetCollisionToObject(p,true);
         Obj_SetCollisionToPlayer(p,true);
      wait(delay);
    while(!Obj_BeDeleted(p) && Obj_GetSpeed(p) > 0){
      Obj_SetSpeed(p,Obj_GetSpeed(p)-0.1);
      wait(1);
      }
    Obj_SetSpeed(p,0);
    wait(60);
    Obj_SetSpeed(p,v);
   Obj_SetAngle(p,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
普通ならここで誰か来るんだけど");
     Wait(10);
 TextOutA("\c[RED]お答えしましょうか？");
   Wait(10);
 TextOutA("\c[BLUE]!");
 Wait(10);
         }
   else if(GetPlayerType == MARISA_A || GetPlayerType == MARISA_B){
      TextOutA("\c[BLUE]なかなかの弾幕だったが\nまぁ準備運動ぐらいにはなったな\n
こういう場合、そろそろボスが出てくるもんだが\n
・・・期待外れだったか？");
      Wait(10);
 TextOutA("\c[RED]そんなことないんじゃない？");
 Wait(10);
 TextOutA("\c[BLUE]!");
 Wait(10);
         }  
       End;
      }
   @Finalize{
      }
    }

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

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