IF







  SpellCastOnMe([ANYONE],CLERIC_CURE_LIGHT_WOUNDS)







  !StateCheck(Myself,STATE_INVISIBLE)







THEN







  RESPONSE #100







  DisplayStringWait(Myself,~Stop! Do not!~)







  SetInterrupt(FALSE)







  ApplyDamage(Myself,22,PIERCING)







  ReallyForceSpell(Myself,WIZARD_INVISIBILITY)







  RunAwayFrom([GOODCUTOFF],120)







  SetInterrupt(TRUE)







END















IF







SpellCastOnMe([ANYONE],CLERIC_CURE_MEDIUM_WOUNDS)







!StateCheck(Myself,STATE_INVISIBLE)







THEN







 RESPONSE #100







DisplayStringWait(Myself,~Stop! Do not!~)







SetInterrupt(FALSE)







ApplyDamage(Myself,28,PIERCING)







ReallyForceSpell(Myself,WIZARD_INVISIBILITY)







RunAwayFrom([GOODCUTOFF],160)







SetInterrupt(TRUE)







END















IF







 SpellCastOnMe([ANYONE],CLERIC_CURE_SERIOUS_WOUNDS)







  !StateCheck(Myself,STATE_INVISIBLE)







 THEN







  RESPONSE #100







DisplayStringWait(Myself,~Stop! Do not!~)







SetInterrupt(FALSE)







ApplyDamage(Myself,46,PIERCING)







ReallyForceSpell(Myself,WIZARD_INVISIBILITY)







RunAwayFrom([GOODCUTOFF],200) 







SetInterrupt(TRUE)







END















IF







 SpellCastOnMe([ANYONE],CLERIC_CURE_CRITICAL_WOUNDS)







  !StateCheck(Myself,STATE_INVISIBLE)







THEN







  RESPONSE #100







SetInterrupt(FALSE)







ApplyDamage(Myself,54,PIERCING)







ReallyForceSpell(Myself,WIZARD_INVISIBILITY)







DisplayStringWait(Myself,~Stop! Do not!~)







RunAwayFrom([GOODCUTOFF],240)







END















IF







Global("Underdark","AR2100",0) // So he can get near the duerger







THEN







RESPONSE #100







SetGlobal("Underdark","AR2100",1)







ChangeGeneral(Myself,HUMANOID)







END















IF







Global("Underdark2","AR2200",0) // Put him back to UNDEAD







THEN







RESPONSE #100







SetGlobal("Underdark2","AR2200",1)







ChangeGeneral(Myself,UNDEAD)







END















IF







Global("Suldanesselar","AR2800",0) // So the elves don't attack him







THEN







RESPONSE #100







SetGlobal("Suldanesselar","AR2800",1)







ChangeGeneral(Myself,HUMANOID)







END















IF







Global("Abyss","AR2900",0) // Put him back to UNDEAD







THEN







RESPONSE #100







SetGlobal("Abyss","AR9200",1)







ChangeGeneral(Myself,UNDEAD)







END















IF







AreaCheck("AR2200")







Detect("Tran2201")







Range("Tran2201",10)







Global("Phaerejob","GLOBAL",8)







GlobalLT("matronjob","GLOBAL",1) 







Global("Cant_Pass","LOCALS",0)







THEN







RESPONSE #100







SetGlobal("Cant_Pass","LOCALS",1)







Dialog(Player1)







END















IF







AreaCheck("AR0605")







Detect("Tran0606")







Range("Tran0606",10)







Global("Cant_Pass_QUAYLE","LOCALS",0)







THEN







RESPONSE #100







SetGlobal("Cant_Pass_QUAYLE","LOCALS",1)







Dialog(Myself)







END















IF







AreaCheck("AR2202")







OR(2)







Detect("Tran2203")







Range("Tran2203",10)







Global("Cant_Pass_LUST","LOCALS",0)







THEN







RESPONSE #100







SetGlobal("Cant_Pass_LUST","LOCALS",1)







Dialog([PC])







END















IF







  See("SK#Vidu")  // ~Viduan~







  CombatCounter(0)







  OR(2)  







  HasItem("SW2HOST",Myself)  // ~Relic Amaunatori +3~







  HasItem("SWGHOST",Myself)  







Global("RelicVidu","LOCALS",0)







  CombatCounter(0)







THEN







  RESPONSE #100







    SetInterrupt(FALSE)   







    SetGlobal("RelicVidu","LOCALS",1)







    CreateCreatureObject("SW2HOST","SK#Neht",0,0,0)  // ~Relic Amaunatori +3~







    Wait(3)







    MoveToObject("SK#Vidu")







    ActionOverride("SK#Vidu",Dialog([PC]))







END















IF







!AreaCheck("SK6400")  







See("SK#Sarie")  // ~Sarie~







  Global("SarieAttackNeht","GLOBAL",0)







THEN







  RESPONSE #100







    SetGlobal("SarieAttackNeht","GLOBAL",1)







    Interact(Myself)







END















IF







  Global("SarieTaunt","GLOBAL",1)







  HaveSpell(CLERIC_RESIST_COLD)







  See([EVILCUTOFF])







  General([EVILCUTOFF],UNDEAD)







THEN







  RESPONSE #100







    ForceSpell(Myself,CLERIC_RESIST_COLD)







    ReallyForceSpellRES("SK#Fade",Myself)  // ~Fade~







    AttackReevaluate(LastAttackerOf(Myself),30)







END















IF







  Global("SarieTaunt","GLOBAL",1)







  See([EVILCUTOFF])







  General([EVILCUTOFF],UNDEAD)







THEN







  RESPONSE #100







    ReallyForceSpellRES("SK#Fade",Myself)  // ~Fade~







    AttackReevaluate(LastAttackerOf(Myself),30)







END















IF







  AreaCheck("AR0800")







  HPPercentLT(Myself,70)







  OR(3)







    !Dead("SK#SSP1")  // ~Sarie Spawn~







    !Dead("SK#SSP2")  // ~Sarie Spawn~







    !Dead("SK#SSP3")  // ~Sarie Spawn~







THEN







  RESPONSE #100







    ReallyForceSpell(Myself,WIZARD_INVISIBILITY)







    EscapeAreaMove("AR0800",1002,351,0)







END















IF







  Global("SarieTaunt","GLOBAL",1)







  OR(3)







    Dead("SK#SSP1")  // ~Sarie Spawn~







    Dead("SK#SSP2")  // ~Sarie Spawn~







    Dead("SK#SSP3")  // ~Sarie Spawn~







  !See([ENEMY])







  CombatCounter(0)







  Global("NehtExplains","GLOBAL",0)







THEN







  RESPONSE #100







    SetGlobal("SarieTaunt","Global",2)







    SetGlobal("NehtExplains","GLOBAL",1)







    MoveGlobalObject(Myself,Player1)







    CreateCreatureObject("SW2HOST",Player1,0,0,0)  // ~Relic Amaunatori +3~







    PlaySound("SK#Neh1")







    Wait(1)







    Dialog(Player1)







END















IF







  InParty(Myself)







  AreaCheck("AR2600")







  PartyRested()







  Global("NehtEnd1","GLOBAL",0)







THEN







  RESPONSE #100







    SetGlobal("NehtEnd1","GLOBAL",1)







    StartCutSceneMode()







    CreateCreatureObjectOffset("SK#Amaun",Player1,[-100.-100])







    CreateCreatureObjectOffset("SK#Helm",Player1,[100.-100])







    Wait(2)







    ActionOverride(Player1,StartDialogue("Player1",Player1))







    EndCutSceneMode()







END















IF







  Global("NehtEnd1","GLOBAL",2)







THEN







  RESPONSE #100







    SetGlobal("NehtEnd1","GLOBAL",3)







    ActionOverride("SK#Amaun",DestroySelf())







    ActionOverride("SK#Helm",DestroySelf())







END















IF







  SpellCastOnMe([ANYONE],CLERIC_HEAL)







THEN







  RESPONSE #100







    Kill(Myself)







END















IF







  Level(Myself,12)







  Global("RemoveSpl12","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl12","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,13)







  Global("RemoveSpl13","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl13","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,14)







  Global("RemoveSpl14","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl14","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,15)







  Global("RemoveSpl15","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl15","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,16)







  Global("RemoveSpl16","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl16","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,17)







  Global("RemoveSpl17","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl17","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,18)







  Global("RemoveSpl18","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl18","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,19)







  Global("RemoveSpl19","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl19","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,20)







  Global("RemoveSpl20","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl20","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,21)







  Global("RemoveSpl21","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl21","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,22)







  Global("RemoveSpl22","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl22","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,23)







  Global("RemoveSpl23","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl23","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,24)







  Global("RemoveSpl24","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl24","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,25)







  Global("RemoveSpl25","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl25","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself) 







END















IF







  Level(Myself,26)







  Global("RemoveSpl26","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl26","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,27)







  Global("RemoveSpl27","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl27","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,28)







  Global("RemoveSpl28","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl28","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,29)







  Global("RemoveSpl29","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl29","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,30)







  Global("RemoveSpl30","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl30","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,31)







  Global("RemoveSpl31","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl31","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,32)







  Global("RemoveSpl32","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl32","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,33)







  Global("RemoveSpl33","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl33","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  Level(Myself,34)







  Global("RemoveSpl34","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("RemoveSpl34","LOCALS",1)







    ReallyForceSpellRES("SK#Strip",Myself)  







END















IF







  See(Player1)







  !InParty(Myself)







  NumberOfTimesTalkedTo(0)







THEN







  RESPONSE #100







    Dialog(Player1)







END















IF







  OnCreation()







  Global("SK#NehtMatch","GLOBAL",0)







  Global("CheckSK#NehtMatch","GLOBAL",0)







  Gender(Player1,FEMALE)







  OR(1)







    !Class(Player1,THIEF)







THEN







  RESPONSE #100







    SetGlobal("CheckSK#NehtMatch","GLOBAL",1)







    SetGlobal("SK#NehtMatch","GLOBAL",1)







END















IF







  OnCreation()







  Global("FriendlyNeht","GLOBAL",0)







  Global("CheckFriendlyNeht","GLOBAL",0)







  !Global("SK#NehtMatch","GLOBAL",1)







THEN







  RESPONSE #100







    SetGlobal("CheckFriendlyNeht","GLOBAL",1)







    SetGlobal("FriendlyNeht","GLOBAL",1)







END















IF







  InParty(Myself)







  Global("FriendlyNeht","GLOBAL",1)







  Global("SK#FNeht","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("SK#FNeht","LOCALS",1)







    SetGlobal("SK#FNehtActive","GLOBAL",1)







    SetGlobalTimer("FriendNeht","GLOBAL",ONE_DAY)







END















IF







  InParty(Myself)







  GlobalTimerExpired("FriendNeht","GLOBAL")







  !Global("SK#FNehtActive","GLOBAL",0)







  !Global("SK#FNehtActive","GLOBAL",3)







  Global("FriendlyNeht","GLOBAL",1)







  Global("1stTalk","GLOBAL",0)







  !AreaCheck("AR1300")







  !AreaType(DUNGEON)







  See(Player1)







  CombatCounter(0)







  OR(2)







    Global("SK#FNeht","LOCALS",1)







    Global("SK#FNeht","LOCALS",3)







THEN







  RESPONSE #100







    SetGlobal("1stTalk","GLOBAL",1)







    MoveViewObject("SK#Neht",INSTANT)







    IncrementGlobal("SK#FNeht","LOCALS",1)







    Interact(Player1)







END















IF







  InParty(Myself)







  Global("N#LoveTalk","LOCALS",0)







  Global("SK#NehtMatch","GLOBAL",1)







THEN







  RESPONSE #100







    SetGlobal("N#Lovetalk","LOCALS",1)







    SetGlobal("SK#NehtRomanceActive","GLOBAL",1)







    SetGlobalTimer("SK#NehtRomance","GLOBAL",ONE_DAY)







END















IF







  InParty(Myself)







  PartyRested()







  GlobalTimerExpired("SK#NehtRomance","GLOBAL")







  !Global("SK#NehtRomanceActive","GLOBAL",0)







  !Global("SK#NehtRomanceActive","GLOBAL",3)







  Global("SK#NehtMatch","GLOBAL",1)







  !AreaType(DUNGEON)







  See(Player1)







  CombatCounter(0)







  OR(2)







    Global("N#LoveTalk","LOCALS",1)







    Global("N#LoveTalk","LOCALS",3)







THEN







  RESPONSE #100







    SetGlobalTimer("SK#NehtRomance","GLOBAL",10)







END















IF







  InParty(Myself)







  GlobalTimerExpired("SK#NehtRomance","GLOBAL")







  Global("SK#NehtMatch","GLOBAL",1)







  !Global("SK#NehtRomanceActive","GLOBAL",0)







  !Global("SK#NehtRomanceActive","GLOBAL",3)







  Global("SK#NehtMatch","GLOBAL",1)







  !AreaCheck("AR1300")







  !AreaType(DUNGEON)







  See(Player1)







  !See([ENEMY])







  !Range([NEUTRAL],10)







  CombatCounter(0)







  OR(2)







    Global("N#LoveTalk","LOCALS",1)







    Global("N#LoveTalk","LOCALS",3)







THEN







  RESPONSE #100







    MoveViewObject("SK#Neht",INSTANT)







    IncrementGlobal("N#LoveTalk","LOCALS",1)







    Interact(Player1)







END















IF







  InParty(Myself)







  GlobalTimerExpired("SK#NehtRomance","GLOBAL")







  Global("SK#NehtMatch","GLOBAL",1)







  OR(2)







    Global("N#LoveTalk","LOCALS",2)







    Global("N#LoveTalk","LOCALS",4)







THEN







  RESPONSE #100







    IncrementGlobal("N#LoveTalk","LOCALS",1)







    SetGlobalTimer("SK#NehtRomance","GLOBAL",3600)







END















IF







  InParty(Myself)







  Global("SK#NehtRomanceActive","GLOBAL",2)







  OR(3)







    Global("AnomenRomanceActive","GLOBAL",1)







    Global("J#KelseyRomanceActive","GLOBAL",1)







THEN







  RESPONSE #100







    SetGlobal("AnomenRomanceActive","GLOBAL",3)







    SetGlobal("J#KelseyRomanceActive","GLOBAL",3)







    SetGlobal("FriendlyNeht","GLOBAL",1)







END















IF







  InParty(Myself)







  PartyHasItem("MISC5A")  // ~Rift Device Part~







  Global("Nehttrial","GLOBAL",0)







  CombatCounter(0)







THEN







  RESPONSE #100







//    SetGlobal("Nehttrial","GLOBAL",1)







    Dialog(Player1)







END















IF







  InParty(Myself)







  PartyHasItem("SHLD27")  // ~Saving Grace +3~







  Global("Nehttrial2","GLOBAL",0)







  CombatCounter(0)







THEN







  RESPONSE #100







//    SetGlobal("Nehttrial2","GLOBAL",1)







    Dialog(Player1)







END















IF







  InParty(Myself)







  Dead("THESHAL")  // ~Theshal~







  Global("UndeadT","GLOBAL",0)







  CombatCounter(0)







THEN







  RESPONSE #100







    SetGlobal("UndeadT","GLOBAL",1)







    Dialog(Player1)







END















IF







  Level(Myself,15)







  InParty(Myself)







  Global("Nightish","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("Nightish","LOCALS",1)







    SetGlobalTimer("ReaderPC","GLOBAL",TWO_DAYS)







END















IF







  GlobalTimerExpired("ReaderPC","GLOBAL")







  InParty("SK#Neht")  // SK#Neht







  PartyRested()







  Global("ReadToPC","GLOBAL",0)







THEN







  RESPONSE #100







    SetGlobal("ReadToPC","GLOBAL",1)







    Dialog(Player1)







END















IF







  Level(Myself,16)







  HasItem("GHBOOK",Myself)  // ~Book of the Amaunatori~







  Global("GainedNewBook","LOCALS",0)







  Global("ReadToPC","GLOBAL",2)







THEN







  RESPONSE #100







    SetGlobal("GainedNewBook","LOCALS",1)







    TakeItemReplace("G1BOOK","GHBOOK",Myself)







END















IF







  Level(Myself,18)







  HasItem("G1BOOK",Myself)  // ~Book of the Amaunatori~







  Global("GainedNewBook2","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("GainedNewBook2","LOCALS",1)







    TakeItemReplace("G2BOOK","G1BOOK",Myself)







END















IF







  Level(Myself,20)







  HasItem("G2BOOK",Myself)  // ~Book of the Amaunatori~







  Global("GainedNewBook3","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("GainedNewBook3","LOCALS",1)







    TakeItemReplace("G3BOOK","G2BOOK",Myself)







END















IF







  Level(Myself,22)







  HasItem("G3BOOK",Myself)  // ~Book of the Amaunatori~







  Global("GainedNewBook4","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("GainedNewBook4","LOCALS",1)







    TakeItemReplace("G4BOOK","G3BOOK",Myself)







END















IF







  Level(Myself,24)







  HasItem("G4BOOK",Myself)  // ~Book of the Amaunatori~







  Global("GainedNewBook5","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("GainedNewBook5","LOCALS",1)







    TakeItemReplace("G5BOOK","G4BOOK",Myself)







END















IF







  Level(Myself,26)







  HasItem("G5BOOK",Myself)  // ~Book of the Amaunatori~







  Global("GainedNewBook6","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("GainedNewBook6","LOCALS",1)







    TakeItemReplace("G6BOOK","G5BOOK",Myself)







END















IF







  Level(Myself,28)







  HasItem("G6BOOK",Myself)  // ~Book of the Amaunatori~







  Global("GainedNewBook7","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("GainedNewBook7","LOCALS",1)







    TakeItemReplace("G7BOOK","G6BOOK",Myself)







END















IF







  Level(Myself,17)







  Global("Gained17Abil","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("Gained17Abil","LOCALS",1)







    AddSpecialAbility("SK#FForm")  // ~Fire Wraith~







    AddSpecialAbility("SK#Inco")







END















IF







  OR(3)







    Die()







    CheckStatLT(Myself,1,INT)







    CheckStatLT(Myself,1,STR)







THEN







  RESPONSE #100







    LeaveParty()







    DestroySelf()







END















IF







  InParty("Anomen")  // Anomen







  Global("Nehttrial","GLOBAL",1)







  Global("NehAno","GLOBAL",0)







THEN







  RESPONSE #100







    SetGlobalTimer("SK#AnoNeht","GLOBAL",THREE_DAYS)







    SetGlobal("NehAno","GLOBAL",1)







END















IF







  GlobalTimerExpired("SK#AnoNeht","GLOBAL")







  InParty("Anomen")  // Anomen







  See("Anomen")  // Anomen







  !Dead("Anomen")  // Anomen







  Global("SK#AaN","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("SK#AaN","LOCALS",1)







    Interact("Anomen")







END































IF







  See("WSMITH01")  // ~Cromwell~







  HasItem("SW2HOST",Myself)  // ~Relic Amaunatori +3~







  CombatCounter(0)







//  Global("CromwellRelic","LOCALS",0)







  Global("UpgradeRelic","GLOBAL",1)







Delay(3)







THEN







  RESPONSE #100







    SetGlobal("UpgradeRelic","GLOBAL",2)







//    SetGlobal("CromwellRelic","LOCALS",1)







    CreateCreatureObject("SW2HOST","SK#Neht",0,0,0)  // ~Relic Amaunatori +3~







    Wait(1)







    ActionOverride("SW2HOST",Dialog(Myself))







END















IF







  PartyHasItem("SW2HOST")  // ~Relic Amaunatori +3~







  !PartyHasItem("SWGHOST")  // ~Relic Amaunatori +1~







  Global("NehtJustLeft2","LOCALS",0)







THEN







  RESPONSE #100







    TakePartyItem("SW2HOST")







    SetGlobal("NehtJustLeft2","LOCALS",1)







END















IF







  PartyHasItem("SWGHOST")  // ~Relic Amaunatori +1~







  !PartyHasItem("SW2HOST")  // ~Relic Amaunatori +3~







  Global("NehtJustLeft3","LOCALS",0)







THEN







  RESPONSE #100







    TakePartyItem("SWGHOST")







    SetGlobal("NehtJustLeft3","LOCALS",1)







END















IF







  AreaCheck("AR1404")







  Global("DFounder","GLOBAL",0)







THEN







  RESPONSE #100







    SetGlobal("DFounder","GLOBAL",1)







    Dialog(Player1)







END















IF







  !Dead("SHADEL")  // ~Shade Lord~







  AreaCheck("AR1403")







  Global("NowayAmo","GLOBAL",0)







  Global("AnathTemple","GLOBAL",1)







THEN







  RESPONSE #100







    SetGlobal("NowayAmo","GLOBAL",1)







    Dialog(Player1)







END















IF







  !Dead("SHADEL")  // ~Shade Lord~







  Global("NehtCrystal","GLOBAL",0)







  Global("ActivateCrystal","AR1404",2)







  !See([ENEMY])







THEN







  RESPONSE #100







 // SetGlobal("NehtCrystal","GLOBAL",1)







 Dialog(Player1)







END















IF







  !Dead("SHADEL")  // ~Shade Lord~







  AreaCheck("AR1401")







  HasItem("SW2HOST",Myself)  // ~Relic Amaunatori +3~







  Global("RelicNehto1","GLOBAL",0)







THEN







  RESPONSE #100







    SetGlobal("RelicNehto1","GLOBAL",1)







    CreateCreatureObject("SW2HOST","SK#Neht",0,0,0)  // ~Relic Amaunatori +3~







    Wait(2)







    Dialog("SK#Neht")







END















IF







  AreaCheck("AR1203")







  HasItem("SW2HOST",Myself)  // ~Relic Amaunatori +3~







  Global("RelicDragon","GLOBAL",0)







THEN







  RESPONSE #100







    SetGlobal("RelicDragon","GLOBAL",1)







    CreateCreatureObject("SW2HOST","SK#Neht",0,0,0)  // ~Relic Amaunatori +3~







    Wait(2)







    ActionOverride("SW2HOST",Dialog("SK#Neht"))







END















IF







  !Dead("SHADEL")  // ~Shade Lord~







  CombatCounter(0)







  Global("RitualDone","GLOBAL",1)







  Global("NehtStatue","GLOBAL",0)







THEN







  RESPONSE #100







    SetGlobal("NehtStatue","GLOBAL",1)







    Dialog(Player1)







END















IF







  AreaCheck("AR1400")







  CombatCounter(0)







  Dead("uhrang01")  // ~Merella~







  Global("ShadeGone","GLOBAL",0)







THEN







  RESPONSE #100







    SetGlobal("ShadeGone","GLOBAL",1)







    Dialog(Player1)







END















IF







  AreaCheck("AR0900")







  CombatCounter(0)







  Global("SK#Notliked","GLOBAL",0)







THEN







  RESPONSE #100







    SetGlobal("SK#Notliked","GLOBAL",1)







    Dialog(Player1)







END















IF







  HasItem("SW2HOST",Myself)  // ~Relic Amaunatori +3~







  PartyHasItem("SW2H14")  // ~Lilarcor~







  CombatCounter(0)







  Global("Got_Lilacor","GLOBAL",0)







THEN







  RESPONSE #100







  SetGlobal("Got_Lilacor","GLOBAL",1)







    SetGlobalTimer("Sword_Talk","GLOBAL",900)







END















IF







  HasItem("SW2HOST",Myself)  // ~Relic Amaunatori +3~







  PartyHasItem("SW2H14")  // ~Lilarcor~







  CombatCounter(0)







  Global("RelicLilac2","GLOBAL",0)







  GlobalTimerExpired("Sword_Talk","GLOBAL")







THEN







  RESPONSE #100







  CreateCreatureObject("SW2HOST","SK#Neht",0,0,0)  // ~Relic Amaunatori +3~







    Wait(1)







    CreateCreatureObject("SK#LILA","SK#Neht",0,0,0)  // ~Lilacor~







    SetGlobal("RelicLilac2","GLOBAL",1)







    Wait(1)







    ActionOverride("SK#LILA",Dialog(Myself))







END















IF







  HasItem("SW2HOST",Myself)  // ~Relic Amaunatori +3~







  PartyHasItem("SW2H14")  // ~Lilarcor~







  CombatCounter(0)







  Global("RelicLilac2","GLOBAL",2)







  GlobalTimerExpired("BadSwords2","GLOBAL")







THEN







  RESPONSE #100







    CreateCreatureObject("SW2HOST","SK#Neht",0,0,0)  // ~Relic Amaunatori +3~







    Wait(1)







    CreateCreatureObject("SK#LILA","SK#Neht",0,0,0)  // ~Lilacor~







    SetGlobal("RelicLilac2","GLOBAL",3)







    Wait(1)







    ActionOverride("SK#LILA",Dialog(Myself))







END















IF







  Global("RelicLilac2","GLOBAL",2)







  Global("SK#Swords1","LOCALS",0)







  Delay(3)







THEN







  RESPONSE #100







    SetGlobal("SK#Swords1","LOCALS",1)







    ActionOverride("SW2HOST",DestroySelf())







    ActionOverride("SK#LILA",DestroySelf())







END















IF // CHECK THIS!!!!!!







  AreaCheck("AR2806")







  CombatCounter(0)







  !See("suelleap")  // ~Ellesime~







  Global("ElleNeht","GLOBAL",0)







THEN







  RESPONSE #100







    SetGlobal("ElleNeht","GLOBAL",1)







    Dialog(Player1)







END















IF







  AreaCheck("AR0331")







  Global("KangaxxQuest","GLOBAL",0)







  Global("RelicKang","GLOBAL",0)







  HasItem("SW2HOST",Myself)  // ~Relic Amaunatori +3~







THEN







  RESPONSE #100







    CreateCreatureObject("SW2HOST","SK#Neht",0,0,0)  // ~Relic Amaunatori +3~







    SetGlobal("RelicKang","GLOBAL",1)







    Wait(1)







    Dialog("SK#Neht")







END















IF







  InParty("SK#NEHT")  // SK#NEHT







  Global("HateRain","GLOBAL",0)







  !AreaType(DUNGEON)







  OR(4)







    AreaType(OUTDOOR)







    AreaType(CITY)







    AreaType(WEATHER)







    AreaType(FOREST)







THEN







  RESPONSE #100







    SetGlobal("HateRain","GLOBAL",1)







    SetGlobalTimer("NehtRain","GLOBAL",TWO_DAYS)







END















IF







  InParty("SK#Neht")  // SK#Neht







  !StateCheck("SK#Neht",STATE_SLEEPING)  // SK#Neht







  GlobalTimerExpired("NehtRain","GLOBAL")







  Global("HateRain2","GLOBAL",0)







  !AreaType(DUNGEON)







  OR(4)







    AreaType(OUTDOOR)







    AreaType(CITY)







    AreaType(WEATHER)







    AreaType(FOREST)







THEN







  RESPONSE #100







    SetGlobal("HateRain2","GLOBAL",1)







    Weather(RAIN)







    SetGlobalTimer("NehtRain2","GLOBAL",20)







END















IF







  InParty("SK#Neht")  // SK#Neht







  !StateCheck("SK#Neht",STATE_SLEEPING)  // SK#Neht







  Global("HateRain2","GLOBAL",1)







  !AreaType(DUNGEON)







  OR(4)







    AreaType(OUTDOOR)







    AreaType(CITY)







    AreaType(WEATHER)







    AreaType(FOREST)







  GlobalTimerExpired("NehtRain2","GLOBAL")







THEN







  RESPONSE #100







    SetGlobal("HateRain2","GLOBAL",2)







    StartDialogNoSet(Player1)







END















IF







  InParty("SK#Neht")  // SK#Neht







  PartyRested()







  AreaCheck("AR2300")







  Global("WaterCity","GLOBAL",0)







  CombatCounter(0)







THEN







  RESPONSE #100







    SetGlobal("WaterCity","GLOBAL",1)







    Dialog(Player1)







END















IF







  InParty("SK#Neht")  // SK#Neht







  AreaCheck("AR2500")







  CombatCounter(0)







  Global("TakingCareNeht","LOCALS",0)







THEN







  RESPONSE #100







 DialogInterrupt(FALSE)







 SetGlobal("TakingCareNeht","LOCALS",1)







 Dialog(Player1)







END















IF







  InParty(Myself)







  InParty("Keldorn")  // Keldorn







  Global("Keldorn_Chat","LOCALS",0)







THEN







  RESPONSE #100







    SetGlobal("Keldorn_Chat","LOCALS",1)







    SetGlobalTimer("Neht_Kel","GLOBAL",ONE_DAY)







END















IF







  InParty(Myself)







  InParty("Keldorn")  // Keldorn







  CombatCounter(0)







  !AreaType(DUNGEON)







  GlobalTimerExpired("Neht_Kel","GLOBAL")







  Global("SK#KaN","GLOBAL",0)







THEN







  RESPONSE #100







    ActionOverride("Keldorn",Interact("SK#NEHT"))







END















IF







InParty(Myself)







InParty("Viconia")  // Viconia







Global("SK#VaN2","GLOBAL",0)







GlobalTimerExpired("SK#Vic2","GLOBAL")







CombatCounter(0)







!AreaType(DUNGEON)







THEN







  RESPONSE #100







ActionOverride("Viconia",Interact("SK#NEHT"))







END















IF







  InParty(Myself)







  InParty("Viconia")  // Viconia







  CombatCounter(0)







  Global("Collarstuff","GLOBAL",0)







  Global("SK#VaN3","GLOBAL",1)







  See("JAHABOAM")  // ~Jahaboam~







  Range("JAHABOAM",10)  // ~Jahaboam~







THEN







  RESPONSE #100







    ActionOverride("Viconia",Dialog("JAHABOAM"))







END















IF







See("SK#UNAT")







Global("SpiderLove","LOCALS",0)







THEN







RESPONSE #100







Dialogue("SK#UNAT")







END















IF







PartyRested()







AreaCheck("AR2900") // Nine Hells







CombatCounter(0)







InParty("SK#Neht")







Global("NehtBye","GLOBAL",0)







THEN







RESPONSE #100







SetGlobal("NehtBye","GLOBAL",1)







Dialog(Myself)







END















IF







AreaCheck("AR2000")







!See([EVILCUTOFF])







InParty("SK#Neht")







Global("HeraVoice","LOCALS",0)







Delay(2)

THEN







RESPONSE #100







SetGlobal("HeraVoice","LOCALS",1)







DisplayStringWait(Myself,~I hear someone shouting deeper within this town.~)







END















IF







InParty("SK#Neht")







CombatCounter(0)







See("SK#HERA")







Global("NehtSeeHera","LOCALS",0)







THEN







RESPONSE #100







SetGlobal("NehtSeeHera","LOCALS",1)







Wait(3)







Dialog(Myself)







END















IF







CombatCounter(0)







InParty("SK#Neht")







AreaCheck("AR2000")







Global("MakeStatue","GLOBAL",2)







Global("NehtSStatue","LOCALS",0)







THEN







RESPONSE #100







SetGlobal("NehtSStatue","LOCALS",1)







Dialog(Myself)







END















IF







HotKey(F)







THEN







RESPONSE #100







ChangeAIScript("",CLASS)







END















IF







Global("NoVicNeht","GLOBAL",1)







THEN







RESPONSE #100







SetGlobal("SK#VaN","GLOBAL",2)







SetGlobal("SK#VaN2","GLOBAL",2)







SetGlobal("SK#VaN3","GLOBAL",2)







SetGlobal("SK#VaN4","GLOBAL",2)







SetGlobal("Collarstuff","GLOBAL",2)







SetGlobal("VicNeh5Talk","GLOBAL",2)







SetGlobal("NoVicNeht","GLOBAL",2)







END















IF







Dead("UnseeingEye") // The Unseeing Eye Beholder







CombatCounter(0)







InParty("SK#Neht")







Global("DeadEye","LOCALS",0)







THEN







RESPONSE #100







SetGlobal("DeadEye","LOCALS",1)







DisplayStringWait(Myself,~The false god is dead! We should hurry back to the temple before the Rift Device begins to malfunction.~)







SetGlobal("DeadEye","LOCALS",1)







END















IF







AreaCheck("AR2100")







CombatCounter(0)







InParty("SK#Neht")







Global("UhohUnderdark","LOCALS",0)







THEN







RESPONSE #100







SetGlobal("UhohUnderdark","LOCALS",1)







Dialog(Myself)







END















IF







AreaCheck("AR0501")







CombatCounter(0)







Global("BadSmell","LOCALS",0)







GlobalGT("TannerMove","GLOBAL",0)


InParty("SK#Neht")







THEN







RESPONSE #100







SetGlobal("BadSmell","LOCALS",1)







DisplayStringWait(Myself,~This... is the source of the repeated violent deaths I sensed in the streets.~)







END















IF







AreaCheck("AR0502")







CombatCounter(0)







Global("TannerSmell","LOCALS",0)







InParty("SK#Neht")







THEN







RESPONSE #100







SetGlobal("TannerSmell","LOCALS",1)







DisplayStringWait(Myself,~Not just of blood, this room is thick with the smell of undead and magic. Be careful.~)







END















IF 







AreaCheck("AR1002")







CombatCounter(0)







Global("GoodMemory","LOCALS",0)







InParty("SK#Neht")







THEN







RESPONSE #100







SetGlobal("GoodMemory","LOCALS",1)







Dialog(Myself)







END















IF







InParty("SK#Neht")







AreaCheck("AR0400")







CombatCounter(0)







Global("SlumGold2","LOCALS",0)







Global("SlumGold","GLOBAL",1)







THEN







RESPONSE #100







Wait(3)







SetGlobal("SlumGold2","LOCALS",1)







Dialog(Myself)







END















IF







InParty("SK#Neht")







AreaCheck("AR0900")







CombatCounter(0)







Global("HeardOfSlaveLords","GLOBAL",1)







Global("AmnishSearch","GLOBAL",0)







THEN







RESPONSE #100







Wait(3)







SetGlobal("AmnishSearch","GLOBAL",1)







CreateCreatureObjectOffScreen("SK#AMN",Myself,0,0,0) // Amnish Soldier







END















IF







AreaCheck("AR0900")







Global("AmnishSearch","GLOBAL",3)







THEN







RESPONSE #100







Wait(3)







SetGlobal("AmnishSearch","GLOBAL",0)







END















IF // if other npc mods interrupt doesn't trigger







InParty("SK#Neht")







CombatCounter(0)




Dead("HLSION")




PartyHasItem("Sicroll")







Global("DeadSLords","LOCALS",0)







THEN







RESPONSE #100







SetGlobal("DeadSLords","LOCALS",1)







Dialog(Myself)







END















IF // Neht's comments re Enforcer were not triggering







Dead("SK#LICH")







!See("SK#ENF")







!See("SK#ALGOL")







AreaCheck("SK5401")







Global("Enf_Gone","LOCALS",0)







THEN







RESPONSE #100







Dialog(Player1)







END








IF 
Global("SlaveLNeht","GLOBAL",1)
THEN
RESPONSE #100
SetGlobal("SlaveLNeht","GLOBAL",2)
Dialog(Myself)
END