script_event Start1{
	@Initialize{}

	@MainLoop{
		Wait(10);
		if(GetPlayerType==REIMU_A || GetPlayerType==REIMU_B){
			TextOutA("\c[BLUE]あーもーなんなのよこの場所はっ");
			TextOutA("\c[BLUE]棺桶持った妖精がウヨウヨして\n気味が悪いわっ");
			}
		else if(GetPlayerType==MARISA_A || GetPlayerType==MARISA_B){
			TextOutA("\c[BLUE]おいおいおいおい、やばいなこの場所は…");
			TextOutA("\c[BLUE]不気味な妖精がウジャウジャいるぜ");
			}
		else{
			TextOutA("\c[RED]あららら？\n見かけない人がいますね");
			}
		Wait(50);
		End;
	}
	@Finalize{}
}

script_event Start2{
	@Initialize{}

	@MainLoop{
		Wait(10);
		if(GetPlayerType==REIMU_A || GetPlayerType==REIMU_B){
			TextOutA("\c[RED]そりゃ墓場ですから、気味が悪いのは当然でしょう");
			TextOutA("\c[RED]むしろ明るい墓場の方が、気味悪いと思いますよ？");
			TextOutA("\c[BLUE]知るか");
			TextOutA("\c[RED]しかし、霊夢さんはどうしてこんな所へ…？");
			TextOutA("\c[RED]見ての通り、ここにあるのは死体や死霊ばかりで、金目の物なんてないですよ？");
			TextOutA("\c[BLUE]確かになさそうね");
			TextOutA("\c[BLUE]ちなみに、これといった目的はなんだけど…");
			TextOutA("\c[RED]興味本位で来て、散々暴れまわった訳ですか…");
			TextOutA("\c[RED]それはちょっと許しがたいですね");
			TextOutA("\c[BLUE]私とやるの？");
			TextOutA("\c[RED]そうですね…\nちょうど新しい魔術も会得した事ですし");
			TextOutA("\c[RED]その力、ここで試すとしましょう");
			}

		else if(GetPlayerType==MARISA_A || GetPlayerType==MARISA_B){
			TextOutA("\c[RED]そりゃ墓場ですから、不気味なのは当然でしょう");
			TextOutA("\c[RED]むしろ明るい墓場の方が、不気味だと思いますよ？");
			TextOutA("\c[BLUE]まあ、まったく解らん気もしないな");
			TextOutA("\c[RED]しかし、魔理沙さんはどうしてこんな所へ…？");
			TextOutA("\c[RED]見ての通り、ここにあるのは死体や死霊ばかりで、めぼしい物なんてないですよ？");
			TextOutA("\c[BLUE]さあ、それは解らないぜ？");
			TextOutA("\c[BLUE]遺跡も墓だからな。\n思わぬ財宝が眠ってるかもしれないぜ");
			TextOutA("\c[RED]つまり考古学者と偽って泥棒しに来た訳ですか…");
			TextOutA("\c[RED]それはちょっと許しがたいですね");
			TextOutA("\c[BLUE]お、やるのか？");
			TextOutA("\c[RED]そうですね…\nちょうど新しい魔術も会得した事ですし");
			TextOutA("\c[RED]その力、ここで試すとしましょう");
			}
		else{
			TextOutA("\c[RED]ここには、死体や死霊くらいしかいません");
			TextOutA("\c[RED]…呪われても、知りませんよ？");
			}
		Wait(50);
		End;
	}
	@Finalize{}
}

script_enemy_main
{
        let csd     = GetCurrentScriptDirectory;
        let imgBoss =csd~"img\dot_devil.png";
	let AnimationA=0;
	let AnimationB=0;
	let Motion=0;

	@Initialize
	{
	SetLife(1);
	SetTimer(999);
        SetDamageRate(0,0);
        SetInvincibility(0);
	SetX(-130);
	SetY(50);
	LoadGraphic(imgBoss);
	SetEnemyMarker(true);
	TEvent;
        TAnime1;
	}
	
	@MainLoop
        {
		SetCollisionA(GetX,GetY,18);
		SetCollisionB(GetX,GetY,18);
        yield;
	}
	
	@Finalize
	{//読みこんだファイルを削除
		DeleteGraphic(imgBoss);
	}

        @DrawLoop {
		SetRenderState(ALPHA);
		SetTexture(imgBoss);
		SetGraphicScale(1,1);
		SetAlpha(255);
		SetColor(255,255,255);
		SetGraphicAngle(0,0,0);
		if(int(GetSpeedX())==0)
		{SetGraphicRect(0,128*AnimationB,127,127+128*AnimationB);}
		else if(GetSpeedX()>0){SetGraphicRect(256,256+128*AnimationA,383,383+128*AnimationA);}
		else if(GetSpeedX()<0){SetGraphicRect(256,128*AnimationA,383,127+128*AnimationA);}
		DrawGraphic(GetX(),GetY());
	}

    	task TAnime1{
		loop{
			AnimationB=0;
        		loop(10){yield;}
			AnimationB=1;
        		loop(10){yield;}
			AnimationB=2;
        		loop(10){yield;}
			AnimationB=3;
        		loop(10){yield;}
			}
		}

    	task TAnime2{
			AnimationA=0;
        		loop(10){yield;}
			AnimationA=1;
        		loop(80){yield;}
			AnimationA=0;
        		loop(10){yield;}
		}
	task TEvent{
		CreateEventFromScript("Start1");
		while(OnEvent){yield;}
        	TAnime2;
		SetMovePosition03(GetCenterX,120,17.5,5);
		CreateEventFromScript("Start2");
		while(OnEvent){yield;}
		AddLife(-1000);
		}
}