IF
	!Global("endofbg1","GLOBAL",2)
	InParty(Myself)
	Global("X#ShKill","LOCALS",0)
THEN
	RESPONSE #100
		DestroyItem("monhp1") // No such index
		SetGlobal("X#ShKill","LOCALS",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SharMatch","GLOBAL",0)
	CheckStatGT(Player1,10,CHR)
	CheckStatGT(Player1,10,STR)
	Gender(Player1,MALE)
	!Alignment(Player1,MASK_GOOD)
	!Alignment(Player1,LAWFUL_NEUTRAL)
	!Race(Player1,HALFLING)
	ReputationLT(Player1,10)
THEN
	RESPONSE #100
		RealSetGlobalTimer("X#SharInterestTime","GLOBAL",TWENTY_MINUTES)
		SetGlobal("X#SharMatch","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SharBunk","GLOBAL",1)
	InParty(Myself)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		IncrementGlobal("X#SharBunk","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SharBunk","GLOBAL",2)
	InParty(Myself)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		PlaySong(0)
		PlaySound("shrar")
		StartDialogueNoSet(Player1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	RealGlobalTimerExpired("X#SharInterestTime","GLOBAL")
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	See(Player1)
	OR(14)
		Global("X#SharInterestTalk","GLOBAL",3)
		Global("X#SharInterestTalk","GLOBAL",5)
		Global("X#SharInterestTalk","GLOBAL",7)
		Global("X#SharInterestTalk","GLOBAL",11)
		Global("X#SharInterestTalk","GLOBAL",15)
		Global("X#SharInterestTalk","GLOBAL",17)
		Global("X#SharInterestTalk","GLOBAL",19)
		Global("X#SharInterestTalk","GLOBAL",21)
		Global("X#SharInterestTalk","GLOBAL",23)
		Global("X#SharInterestTalk","GLOBAL",27)
		Global("X#SharInterestTalk","GLOBAL",29)
		Global("X#SharInterestTalk","GLOBAL",31)
		Global("X#SharInterestTalk","GLOBAL",33)
		Global("X#SharInterestTalk","GLOBAL",41)
	OR(2)
		Global("X#SharInterest","GLOBAL",1)
		Global("X#SharInterest","GLOBAL",2)
	ReputationLT(Player1,11)
THEN
	RESPONSE #100
		IncrementGlobal("X#SharInterestTalk","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	RealGlobalTimerExpired("X#SharInterestTime","GLOBAL")
	InParty(Myself)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	OR(21)
		Global("X#SharInterestTalk","GLOBAL",2)
		Global("X#SharInterestTalk","GLOBAL",4)
		Global("X#SharInterestTalk","GLOBAL",6)
		Global("X#SharInterestTalk","GLOBAL",8)
		Global("X#SharInterestTalk","GLOBAL",10)
		Global("X#SharInterestTalk","GLOBAL",12)
		Global("X#SharInterestTalk","GLOBAL",14)
		Global("X#SharInterestTalk","GLOBAL",16)
		Global("X#SharInterestTalk","GLOBAL",18)
		Global("X#SharInterestTalk","GLOBAL",20)
		Global("X#SharInterestTalk","GLOBAL",22)
		Global("X#SharInterestTalk","GLOBAL",24)
		Global("X#SharInterestTalk","GLOBAL",26)
		Global("X#SharInterestTalk","GLOBAL",28)
		Global("X#SharInterestTalk","GLOBAL",30)
		Global("X#SharInterestTalk","GLOBAL",32)
		Global("X#SharInterestTalk","GLOBAL",34)
		Global("X#SharInterestTalk","GLOBAL",36)
		Global("X#SharInterestTalk","GLOBAL",38)
		Global("X#SharInterestTalk","GLOBAL",40)
		Global("X#SharInterestTalk","GLOBAL",42)
THEN
	RESPONSE #100
		PlaySong(0)
		PlaySound("shrar")
		StartDialogueNoSet(Player1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	RealGlobalTimerExpired("X#SharInterestTime","GLOBAL")
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	Global("X#SharInterestTalk","GLOBAL",13)
	Global("X#SharInterest","GLOBAL",1)
	ReputationLT(Player1,11)
	Global("X#SharMatch","GLOBAL",1)
	HPPercentLT(Player1,95)
THEN
	RESPONSE #100
		IncrementGlobal("X#SharInterestTalk","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SharInterestTalk","GLOBAL",39)
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	Global("X#SharInterest","GLOBAL",2)
	ReputationLT(Player1,11)
	OR(4)
		AreaCheck("AR6513")
		AreaCheck("AR6515")
		AreaCheck("AR6519")
		AreaCheck("AR6560")
THEN
	RESPONSE #100
		IncrementGlobal("X#SharInterestTalk","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	InParty(Myself)
	GlobalGT("X#SharInterestTalk","GLOBAL",32)
	Global("X#SharInterest","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("X#SharInterest","GLOBAL",2)
END

IF
	!Global("endofbg1","GLOBAL",2)
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	See(Player1)
	Global("X#SharFloater1","GLOBAL",0)
	Global("X#SharInterest","GLOBAL",2)
	ReputationLT(Player1,11)
	Global("X#SharAngelo1","GLOBAL",1)
THEN
	RESPONSE #100
		IncrementGlobal("X#SharFloater1","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SharFloater1","GLOBAL",1)
	InParty(Myself)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		PlaySong(0)
		PlaySound("shrar")
		StartDialogueNoSet(Player1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	See(Player1)
	Global("X#SharFloater2","GLOBAL",0)
	Global("X#SharInterest","GLOBAL",2)
	ReputationLT(Player1,11)
	AreaCheck("AR7223")
THEN
	RESPONSE #100
		IncrementGlobal("X#SharFloater2","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SharFloater2","GLOBAL",1)
	InParty(Myself)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		PlaySong(0)
		PlaySound("shrar")
		StartDialogueNoSet(Player1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	InParty(Myself)
	Global("X#SharRing","GLOBAL",3)
	Global("X#SharDestroyRing","GLOBAL",0)
	PartyHasItem("RING15") // Bloodstone Ring
THEN
	RESPONSE #100
		SetGlobal("X#SharDestroyRing","GLOBAL",1)
		TakePartyItem("RING15") // Bloodstone Ring
		DestroyItem("RING15") // Bloodstone Ring
END

IF
	!Global("endofbg1","GLOBAL",2)
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	See(Player1)
	OR(2)
		Global("X#SharInterest","GLOBAL",1)
		Global("X#SharInterest","GLOBAL",2)
	Global("GottaGetFlowers","GLOBAL",1)
	Global("X#SharDelFlower","GLOBAL",0)
THEN
	RESPONSE #100
		IncrementGlobal("X#SharDelFlower","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SharDelFlower","GLOBAL",1)
	InParty(Myself)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		PlaySong(0)
		PlaySound("shrar")
		StartDialogueNoSet(Player1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	See(Player1)
	OR(2)
		Global("X#SharInterest","GLOBAL",1)
		Global("X#SharInterest","GLOBAL",2)
	Global("GottaGetFlowers","GLOBAL",1)
	Global("X#SharDelFlower","GLOBAL",2)
	PartyHasItem("MISC1I") // Belladonna flowers
THEN
	RESPONSE #100
		IncrementGlobal("X#SharDelFlower","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SharDelFlower","GLOBAL",3)
	InParty(Myself)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		PlaySong(0)
		PlaySound("shrar")
		StartDialogueNoSet(Player1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	InParty(Myself)
	Global("X#SharInterest","GLOBAL",1)
	Global("X#SharCheckFlirtEarly","GLOBAL",0)
THEN
	RESPONSE #100
		RealSetGlobalTimer("X#SharFlirtEarlyTime","GLOBAL",ONE_HOUR)
		SetGlobal("X#SharCheckFlirtEarly","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	InParty(Myself)
	!Global("X#SharDisableFlirts","GLOBAL",1)
	RealGlobalTimerExpired("X#SharFlirtEarlyTime","GLOBAL")
	CombatCounter(0)
	!See([ENEMY])
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	See(Player1)
	Global("X#SharInterest","GLOBAL",1)
	Global("X#SharFlirtEarly","GLOBAL",0)
	!AreaType(DUNGEON)
THEN
	RESPONSE #100
		SetGlobal("X#SharFlirtEarly","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SharFlirtEarly","GLOBAL",1)
	InParty(Myself)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		PlaySong(0)
		PlaySound("shrar")
		StartDialogueNoSet(Player1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	InParty(Myself)
	!Global("X#SharDisableFlirts","GLOBAL",1)
	Global("X#SharInterest","GLOBAL",2)
	GlobalLT("X#SharKind","GLOBAL",6)
	!Global("X#SharFlirtKind","GLOBAL",2)
THEN
	RESPONSE #100
		RealSetGlobalTimer("X#SharFlirtLateTime","GLOBAL",1000)
		SetGlobal("X#SharFlirtLate","GLOBAL",0)
		SetGlobal("X#SharFlirtKind","GLOBAL",2)
END

IF
	!Global("endofbg1","GLOBAL",2)
	InParty(Myself)
	!Global("X#SharDisableFlirts","GLOBAL",1)
	Global("X#SharInterest","GLOBAL",2)
	GlobalGT("X#SharKind","GLOBAL",5)
	!Global("X#SharFlirtLate","GLOBAL",2)
THEN
	RESPONSE #100
		RealSetGlobalTimer("X#SharFlirtKindTime","GLOBAL",1000)
		SetGlobal("X#SharFlirtLate","GLOBAL",2)
		SetGlobal("X#SharFlirtKind","GLOBAL",0)
END

IF
	!Global("endofbg1","GLOBAL",2)
	RealGlobalTimerExpired("X#SharFlirtLateTime","GLOBAL")
	InParty(Myself)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	!Global("X#SharDisableFlirts","GLOBAL",1)
	CombatCounter(0)
	!See([ENEMY])
	See(Player1)
	Global("X#SharInterest","GLOBAL",2)
	Global("X#SharFlirtLate","GLOBAL",0)
	!AreaType(DUNGEON)
THEN
	RESPONSE #100
		SetGlobal("X#SharFlirtLate","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SharFlirtLate","GLOBAL",1)
	InParty(Myself)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		PlaySong(0)
		PlaySound("shrar")
		StartDialogueNoSet(Player1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	InParty(Myself)
	RealGlobalTimerExpired("X#SharFlirtKindTime","GLOBAL")
	!Global("X#SharDisableFlirts","GLOBAL",1)
	CombatCounter(0)
	!See([ENEMY])
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	See(Player1)
	Global("X#SharInterest","GLOBAL",2)
	Global("X#SharFlirtKind","GLOBAL",0)
	!AreaType(DUNGEON)
THEN
	RESPONSE #100
		SetGlobal("X#SharFlirtKind","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SharFlirtKind","GLOBAL",1)
	InParty(Myself)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		PlaySong(0)
		PlaySound("shrar")
		StartDialogueNoSet(Player1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	InParty(Myself)
	Global("X#SharGoodCheck","GLOBAL",0)
	Gender(Player1,MALE)
	CheckStatGT(Player1,10,CHR)
	CheckStatGT(Player1,10,STR)
	ReputationGT(Player1,10)
	OR(2)
		Class(Player1,PALADIN_ALL)
		Class(Player1,RANGER_ALL)
THEN
	RESPONSE #100
		IncrementGlobal("X#SharGoodCheck","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	See(Player1)
	Global("X#SharGoodCheck","GLOBAL",1)
	ReputationLT(Player1,11)
	CheckStatGT(Player1,11,CHR)
	CheckStatGT(Player1,11,STR)
	OR(2)
		Class(Player1,PALADIN_ALL)
		Class(Player1,RANGER_ALL)
	Global("X#SharFallenTalk","GLOBAL",0)
THEN
	RESPONSE #100
		IncrementGlobal("X#SharGoodCheck","GLOBAL",1)
		RealSetGlobalTimer("X#SharInterestTime","GLOBAL",SIX_HOURS)
		SetGlobal("X#SharMatch","GLOBAL",1)
		SetGlobal("X#SharFallenTalk","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SharFallenTalk","GLOBAL",1)
	InParty(Myself)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		PlaySong(0)
		PlaySound("shrar")
		StartDialogueNoSet(Player1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	AreaCheck("AR9700")
	Global("X#SharMirianneLetter","GLOBAL",0)
	PartyHasItem("BGSCRL3I") // Scroll
	InParty(Myself)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	InMyArea(Player1)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	CombatCounter(0)
	!See([ENEMY])
THEN
	RESPONSE #100
		SetGlobal("X#SharMirianneLetter","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SharMirianneLetter","GLOBAL",1)
	InParty(Myself)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	InMyArea(Player1)
	!StateCheck(Player1,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		PlaySong(0)
		PlaySound("shart99")
		Dialogue(Player1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Gender("sharteel",MALE)
	Global("X#SharMale","GLOBAL",0)
	InParty(Myself)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	InMyArea(Player1)
	!StateCheck(Player1,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		SetGlobal("X#SharMale","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SharMale","GLOBAL",1)
	InParty(Myself)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	InMyArea(Player1)
	!StateCheck(Player1,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		PlaySong(0)
		PlaySound("shart99")
		Dialogue(Player1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	InParty(Myself)
	Global("X#DreamTimerStarted","GLOBAL",0)
THEN
	RESPONSE #100
		RealSetGlobalTimer("X#DreamTalk","GLOBAL",THREE_TURNS)
		SetGlobal("X#DreamTimerStarted","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	InParty(Myself)
	Global("X#ShLowReputation","GLOBAL",0)
	Global("X#ShMedReputation","GLOBAL",0)
	Global("X#ShHighReputation","GLOBAL",0)
	Global("X#ShHighMale","GLOBAL",0)
	Global("X#SharPCTimerStarted","GLOBAL",0)
THEN
	RESPONSE #100
		RealSetGlobalTimer("X#SharPCTalks","GLOBAL",ONE_MINUTE)
		SetGlobal("X#SharPCTimerStarted","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	RealGlobalTimerExpired("X#SharPCTalks","GLOBAL")
	ReputationLT(Player1,6)
	Gender(Player1,FEMALE)
	Global("X#ShLowReputation","GLOBAL",0)
	!Global("X#ShMedReputation","GLOBAL",2)
	!Global("X#ShHighReputation","GLOBAL",2)
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	!StateCheck(Myself,CD_STATE_NOTVALID)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	OR(5)
		Gender(Player2,MALE)
		Gender(Player3,MALE)
		Gender(Player4,MALE)
		Gender(Player5,MALE)
		Gender(Player6,MALE)
	Global("X#ShLowReputation","GLOBAL",0)
	!Global("X#ShMedReputation","GLOBAL",2)
	!Global("X#ShHighReputation","GLOBAL",2)
THEN
	RESPONSE #100
		IncrementGlobal("X#ShLowReputation","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#ShLowReputation","GLOBAL",1)
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	!StateCheck(Myself,CD_STATE_NOTVALID)
	!StateCheck(Player1,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		PlaySong(0)
		PlaySound("shart99")
		StartDialogueNoSet(Player1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	RealGlobalTimerExpired("X#SharPCTalks","GLOBAL")
	ReputationGT(Player1,5)
	!ReputationLT(Player1,13)
	Gender(Player1,FEMALE)
	Global("X#ShMedReputation","GLOBAL",0)
	!Global("X#ShLowReputation","GLOBAL",2)
	!Global("X#ShHighReputation","GLOBAL",2)
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	!StateCheck(Myself,CD_STATE_NOTVALID)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	OR(5)
		Gender(Player2,MALE)
		Gender(Player3,MALE)
		Gender(Player4,MALE)
		Gender(Player5,MALE)
		Gender(Player6,MALE)
THEN
	RESPONSE #100
		IncrementGlobal("X#ShMedReputation","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#ShMedReputation","GLOBAL",1)
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	!StateCheck(Myself,CD_STATE_NOTVALID)
	!StateCheck(Player1,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		PlaySong(0)
		PlaySound("shart99")
		StartDialogueNoSet(Player1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	RealGlobalTimerExpired("X#SharPCTalks","GLOBAL")
	ReputationGT(Player1,12)
	Gender(Player1,FEMALE)
	!Global("X#ShLowReputation","GLOBAL",2)
	!Global("X#ShMedReputation","GLOBAL",2)
	Global("X#ShHighReputation","GLOBAL",0)
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	!StateCheck(Myself,CD_STATE_NOTVALID)
	!StateCheck(Player1,CD_STATE_NOTVALID)
	OR(5)
		Gender(Player2,MALE)
		Gender(Player3,MALE)
		Gender(Player4,MALE)
		Gender(Player5,MALE)
		Gender(Player6,MALE)
THEN
	RESPONSE #100
		IncrementGlobal("X#ShHighReputation","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#ShHighReputation","GLOBAL",1)
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	!StateCheck(Myself,CD_STATE_NOTVALID)
	!StateCheck(Player1,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		PlaySong(0)
		PlaySound("shart99")
		StartDialogueNoSet(Player1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	RealGlobalTimerExpired("X#SharPCTalks","GLOBAL")
	Gender(Player1,MALE)
	ReputationGT(Player1,12)
	!Global("X#ShMale","GLOBAL",2)
	Global("X#ShHighMale","GLOBAL",0)
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	!StateCheck(Myself,CD_STATE_NOTVALID)
	!StateCheck(Player1,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		IncrementGlobal("X#ShHighMale","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#ShHighMale","GLOBAL",1)
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	!StateCheck(Myself,CD_STATE_NOTVALID)
	!StateCheck(Player1,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		PlaySong(0)
		PlaySound("shart99")
		StartDialogueNoSet(Player1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#ShartSex","GLOBAL",1)
	Global("X#SharMorning1","GLOBAL",0)
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	See(Player1)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	!StateCheck(Player1,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		SetGlobal("X#SharMorning1","GLOBAL",1)
		RealSetGlobalTimer("X#DreamTalk","GLOBAL",THREE_TURNS)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SharMorning1","GLOBAL",1)
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	See(Player1)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	!StateCheck(Player1,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		PlaySong(0)
		PlaySound("shart99")
		StartDialogueNoSet(Player1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SharLoveFight","GLOBAL",1)
	InParty(Myself)
	HPPercentGT(Player1,95)
	HPPercentGT("sharteel",95)
THEN
	RESPONSE #100
		AttackOneRound(Player1)
		Continue()
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SharLoveFight","GLOBAL",1)
	HPPercentLT(Player1,96)
THEN
	RESPONSE #100
		SetGlobal("X#SharLoveFight","GLOBAL",2)
		ActionOverride("sharteel",ChangeEnemyAlly("sharteel",ALLY))
		ActionOverride("sharteel",StartDialogueNoSet(Player1))
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SharLoveFight","GLOBAL",1)
	HPPercentGT(Player1,95)
	HPPercentLT("sharteel",96)
THEN
	RESPONSE #100
		SetGlobal("X#SharLoveFight","GLOBAL",4)
		ActionOverride("sharteel",ChangeEnemyAlly("sharteel",ALLY))
		ActionOverride("sharteel",StartDialogueNoSet(Player1))
END

IF
	!Global("endofbg1","GLOBAL",2)
	ReputationGT(Player1,15)
	Global("X#SharPissed","GLOBAL",1)
	Global("X#PissedTimerStarted","GLOBAL",0)
	InParty(Myself)
THEN
	RESPONSE #100
		SetGlobalTimer("X#SHAR63","GLOBAL",14000)
		SetGlobal("X#PissedTimerStarted","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	GlobalTimerExpired("X#SHAR63","GLOBAL")
	Global("X#SharPissed","GLOBAL",1)
	ReputationGT(Player1,15)
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	See(Player1)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	!StateCheck(Player1,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		IncrementGlobal("X#SharPissed","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SharPissed","GLOBAL",2)
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	See(Player1)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	!StateCheck(Player1,CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		PlaySong(0)
		PlaySound("shart99")
		StartDialogueNoSet(Player1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	PartyRested()
	InParty("kivan")
	Global("X#SHKI1","LOCALS",0)
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	RealGlobalTimerExpired("X#DreamTalk","GLOBAL")
	See("kivan")
	!StateCheck(Myself,CD_STATE_NOTVALID)
	!StateCheck("kivan",CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		SetGlobal("X#SHKI1","LOCALS",1)
		RealSetGlobalTimer("X#DreamTalk","GLOBAL",THREE_TURNS)
END

IF
	!Global("endofbg1","GLOBAL",2)
	InParty("kivan")
	Global("X#SHKI1","LOCALS",1)
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	See("kivan")
	!StateCheck(Myself,CD_STATE_NOTVALID)
	!StateCheck("kivan",CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		RealSetGlobalTimer("X#DreamTalk","GLOBAL",THREE_TURNS)
		StartDialogueNoSet("kivan")
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SHSK1","GLOBAL",0)
	InParty("skie")
	InParty("eldoth")
	InParty(Myself)
THEN
	RESPONSE #100
		RealSetGlobalTimer("X#SharSk","GLOBAL",2000)
		SetGlobal("X#SHSK1","GLOBAL",1)
END

IF
	!Global("endofbg1","GLOBAL",2)
	RealGlobalTimerExpired("X#SharSk","GLOBAL")
	Global("X#SHSK1","GLOBAL",1)
	Global("X#SKSH1","GLOBAL",1)
	Global("X#ELSH1","GLOBAL",1)
	InParty("skie")
	InParty("eldoth")
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	!StateCheck(Myself,CD_STATE_NOTVALID)
	!StateCheck("skie",CD_STATE_NOTVALID)
	!StateCheck("eldoth",CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		SetGlobal("X#SHSK1","GLOBAL",2)
END

IF
	!Global("endofbg1","GLOBAL",2)
	Global("X#SHSK1","GLOBAL",2)
	InParty("skie")
	InParty("eldoth")
	InParty(Myself)
	CombatCounter(0)
	!See([ENEMY])
	!StateCheck(Myself,CD_STATE_NOTVALID)
	!StateCheck("skie",CD_STATE_NOTVALID)
	!StateCheck("eldoth",CD_STATE_NOTVALID)
THEN
	RESPONSE #100
		PlaySong(0)
		PlaySound("shart99")
		StartDialogueNoSet(Player1)
END

IF
	StateCheck(Myself,STATE_STONE_DEATH)
	Global("IWasKickedOut","LOCALS",0)
	GlobalLT("ENDOFBG1","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("IWasKickedOut","LOCALS",1)
		Continue()
END

IF
	Dead("Eldoth") // Eldoth
	Global("Eldothfight","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("Eldothfight","GLOBAL",0)
		DialogInterrupt(TRUE)
		JoinParty()
END

IF
	Global("Eldothfight","GLOBAL",2)
	See("Eldoth")
THEN
	RESPONSE #100
		AttackReevaluate("Eldoth",15)
END

IF
	AttackedBy([GOODCUTOFF],DEFAULT)
	Allegiance(Myself,ALLY)
THEN
	RESPONSE #100
		Enemy()
END