IF
	Global("NeJRoT","AR0603",1)
	InMyArea("Yoshimo")
	!InParty("Yoshimo")
	Global("VP_Destroy_Yoshimo","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("VP_Destroy_Yoshimo","GLOBAL",1)
		ActionOverride("Yoshimo",DestroySelf())
END