#東方弾幕風
#Title[SampleCode]
#Text[SampleCode]
#ScriptVersion[2]
script_enemy_main
{
@Initialize{SetLife(1500);SetTimer(60);SetInvincibility(60);SetMovePosition02(GetCenterX,GetCenterY,60);}
@MainLoop{yield;}@Finalize{}@DrawLoop{}

let Part=8;
Main;
task Main
      {
      loop(60){yield;}
      ascent(i in 0..Part){LaserObject(360/Part*i+360/Part/2);}//全方位レーザー呼出
      }

task LaserObject(angle)
      {
      let Range;
      let A_Spd=0.3;
      CreateLaserA(0,GetX,GetY,300,10,WHITE02,30);
      SetLaserDataA(0,0,angle,0,0,0,0);
      SetLaserDataA(0,90,angle,A_Spd,0,0,0);
      let obj=FireShot(0);

      loop(90){yield;}
      loop
            {
            Range=((GetPlayerX-GetX)^2+(GetPlayerY-GetY)^2)^0.5;
            CreateShotA(0,GetX+Range*cos(Obj_GetAngle(obj)),GetY+Range*sin(Obj_GetAngle(obj)),0);
            SetShotDataA(0,0,0,0,0,0,0,RED01);
            SetShotKillTime(0,360/Part/A_Spd);
            FireShot(0);
            loop(6){yield;}
            }
      }
}//[EOF]