IF
  Global("SarevokOath","GLOBAL",1)
  Global("LowerChange","LOCALS",0)
THEN
  RESPONSE #100
    SetGlobal("LowerChange","LOCALS",1)
    IncrementGlobal("SarevokChange","GLOBAL",-1)
END

IF
  !Allegiance(Myself,ENEMY)
  OR(2)
    Dead("balth2")  // ~Balthazar~
    Global("BalthazarFights","GLOBAL",0)
  Global("MelStillImmortal","AR6200",2)
  Delay(6)
  See([PC])
THEN
  RESPONSE #100
    SetGlobal("MelStillImmortal","AR6200",3)
    StartDialogNoSet([PC])
END

IF
  !Alignment(Myself,CHAOTIC_EVIL)
  Global("NewSounds","LOCALS",0)
THEN
  RESPONSE #100
    SetPlayerSound(Myself,70832,BATTLE_CRY1)  // ~ We Children of Bhaal cannot be stopped!~ [SAREVO13]
    SetPlayerSound(Myself,70833,BATTLE_CRY3)  // ~ Ha!  This arena I know well!!~ [SAREVO14]
    SetPlayerSound(Myself,70834,DYING)  // ~ Ahhhh...~ [SAREVO17]
    SetPlayerSound(Myself,70835,AREA_CITY)  // ~ I have had enough of...people.  They try my patience.~ [SAREVO21]
    SetPlayerSound(Myself,70836,AREA_NIGHT)  // ~ Beware...darkness is murder's most favored companion.~ [SAREVO25]
    SetGlobal("NewSounds","LOCALS",1)
END

IF
  Global("FINSAREV","LOCALS",1)
  Global("ChangeAI","LOCALS",0)
THEN
  RESPONSE #100
    SetGlobal("ChangeAI","LOCALS",1)
    GiveItemCreate("ALLFIVE",Myself,0,0,0)  // <Invalid Strref -1>
    FillSlot(SLOT_RING_LEFT)
    ChangeAIScript("finsarev",OVERRIDE)
    ChangeAIScript("",DEFAULT)
    ChangeAIScript("",GENERAL)
    ChangeAIScript("",RACE)
    ChangeAIScript("",CLASS)
END

IF
  HasItem("sw2h16",Myself)  // ~Sword of Chaos +5~
  Global("SarevokHasSword","LOCALS",0)
THEN
  RESPONSE #100
    SetGlobal("SarevokHasSword","LOCALS",1)
    ReallyForceSpellRES("reavimm",Myself)  // <Invalid Strref -1>
    StartDialogNoSet([PC])
END

IF
  InParty(Myself)
  PartyRested()
  See(Player1)
  Global("ExpBSarevok10","GLOBAL",0)
  Global("ForceTalk1","LOCALS",0)
THEN
  RESPONSE #100
    SetGlobal("ForceTalk1","LOCALS",1)
    RealSetGlobalTimer("SarevokTalkPC1","GLOBAL",60)
END

IF
  InParty(Myself)
  See(Player1)
  Dead("gromnir")  // ~Gromnir Il-Khan~
  Global("ExpBSarevok10","GLOBAL",1)
  Global("ForceTalk2","LOCALS",0)
THEN
  RESPONSE #100
    SetGlobal("ForceTalk2","LOCALS",1)
    RealSetGlobalTimer("SarevokTalkPC2","GLOBAL",90)
END

IF
  InParty(Myself)
  See(Player1)
  GlobalGT("Enclave","GLOBAL",0)
  Global("ExpBSarevok10","GLOBAL",2)
  Global("ForceTalk3","LOCALS",0)
THEN
  RESPONSE #100
    SetGlobal("ForceTalk3","LOCALS",1)
    RealSetGlobalTimer("SarevokTalkPC3","GLOBAL",100)
END

IF
  InParty(Myself)
  RealGlobalTimerExpired("SarevokTalkPC1","GLOBAL")
  !StateCheck(Player1,STATE_SLEEPING)
  Global("ExpBSarevok10","GLOBAL",0)
  Global("ForceTalk1","LOCALS",1)
  See(Player1)
  !See([ENEMY])
  !Range([NEUTRAL],10)
THEN
  RESPONSE #100
    SetGlobal("ForceTalk1","LOCALS",2)
    Interact(Player1)
END

IF
  InParty(Myself)
  RealGlobalTimerExpired("SarevokTalkPC2","GLOBAL")
  !StateCheck(Player1,STATE_SLEEPING)
  Global("ExpBSarevok10","GLOBAL",1)
  Global("ForceTalk2","LOCALS",1)
  See(Player1)
  !See([ENEMY])
  !Range([NEUTRAL],10)
THEN
  RESPONSE #100
    SetGlobal("ForceTalk2","LOCALS",2)
    Interact(Player1)
END

IF
  InParty(Myself)
  RealGlobalTimerExpired("SarevokTalkPC3","GLOBAL")
  !StateCheck(Player1,STATE_SLEEPING)
  Global("ExpBSarevok10","GLOBAL",2)
  Global("ForceTalk3","LOCALS",1)
  See(Player1)
  !See([ENEMY])
  !Range([NEUTRAL],10)
THEN
  RESPONSE #100
    SetGlobal("ForceTalk3","LOCALS",2)
    Interact(Player1)
END

