//Entered Firewine Ruins
IF
Global("X#CoranSuccubus","GLOBAL",0)
AreaCheck("AR3400")
THEN
RESPONSE #100
SetGlobal("X#CoranSuccubus","GLOBAL",1)
RealSetGlobalTimer("SeeSuccubusTime","GLOBAL",30)
END

IF
Global("X#CoranSuccubus","GLOBAL",1)
AreaCheck("AR3400")
RealGlobalTimerExpired("SeeSuccubusTime","GLOBAL")
THEN
RESPONSE #100
SetGlobal("X#CoranSuccubus","GLOBAL",2)
StartDialogueNoSet(Player1)
END

IF
InParty(Myself)
AreaCheck("AR9300")
Global("X#RashelExists","GLOBAL",0)
THEN
RESPONSE #100
SetGlobal("X#RashelExists","GLOBAL",1)
CreateCreature("X#RASHEL",[1059.1089],3)
END

IF
Global("X#CoranSuccubus","GLOBAL",11)
!Dead("X#amelia")
RealGlobalTimerExpired("X#CoranResistTimer","GLOBAL")
Global("X#CoranCharmedRun","GLOBAL",0)
THEN
RESPONSE #100
SetGlobal("X#CoranCharmedRun","GLOBAL",1)
StartDialogueNoSet(Player1)
END
