#東方弾幕風
#Title[自機ストーカー]
#Text[]
#ScriptVersion[2]

script_enemy_main
{
         let Rumia="script\img\ExRumia.png";

         function objshot{
                   let obj=Obj_Create(OBJ_SHOT);
                   Obj_SetPosition(obj,GetEnemyX,GetEnemyY);
                   Obj_SetSpeed(obj,0);
                   Obj_SetAngle(obj,90);
                   ObjShot_SetGraphic(obj,RED01);

                   objmove(obj);
         }

         function objmove(obj){
                   let objspd=3;
                   let objX=Obj_GetX(obj);
                   let objY=Obj_GetY(obj);

                 loop(3600){
                   if(Obj_BeDeleted(obj)) { break; }

                   objX=Obj_GetX(obj);
                   objY=Obj_GetY(obj);

                   if(objX<GetPlayerX){
                        if(objY>GetPlayerY){//自機が弾の右上
                          Obj_SetPosition(obj,objX+objspd,objY-objspd);}
                        else if(objY<GetPlayerY){//自機が弾の右下
                          Obj_SetPosition(obj,objX+objspd,objY+objspd);}
                        else if(objY==GetPlayerY){//自機が弾の真右
                          Obj_SetPosition(obj,objX+objspd,objY);}
                   }

                   else if(objX>GetPlayerX){
                        if(objY>GetPlayerY){//自機が弾の左上
                          Obj_SetPosition(obj,objX-objspd,objY-objspd);}
                        else if(objY<GetPlayerY){//自機が弾の左下
                          Obj_SetPosition(obj,objX-objspd,objY+objspd);}
                        else if(objY==GetPlayerY){//自機が弾の真左
                          Obj_SetPosition(obj,objX-objspd,objY);}
                   }

                   else{
                        if(objY>GetPlayerY){Obj_SetPosition(obj,objX,objY-objspd);}//自機が弾の真上
                        else if(objY<GetPlayerY){Obj_SetPosition(obj,objX,objY+objspd);}//自機が弾の真下
                   }
                 }
                 ObjShot_FadeDelete(obj);
         }

         @Initialize
         {
              SetX(GetCenterX);
              SetY(GetClipMinY+90);

              SetScore(110000);
              SetLife(2000);
              SetDamageRate(100,100);
              SetTimer(60);

              LoadGraphic(Rumia);
              SetTexture(Rumia);
              SetGraphicRect(1,1,64,64);
              
         }

         @MainLoop
         {
              SetCollisionA(GetEnemyX,GetEnemyY,10);
              SetCollisionB(GetEnemyX,GetEnemyY,10);

              objshot;
         }

         @DrawLoop
         {
              DrawGraphic(GetEnemyX,GetEnemyY);
         }

         @Finalize
         {
             DeleteGraphic(Rumia);
         }
}