Jump to content


Photo

baldur.bcs


  • Please log in to reply
49 replies to this topic

#1 Bloodtitan

Bloodtitan
  • Member
  • 406 posts

Posted 18 November 2007 - 12:16 AM

so i have learned that the stutter demon has it's origin in the scripts running from baldur.bcs. i still am in the BG1 part of my game and after clearing cloakwood and finishing the megadungeon from DToSC, stutter began. i rushed to Baldurs Gate to check with Skar or Husam but this time it was not them. stutter still killing my game.

so i opened the baldur.bcs to check for scripts. it's HUGE. my problem is that i don't see any BG1 scripts. almost everything seems to come from CB and i see smaller parts like Lilarcor or the Acid Kensai...

can i savely delete the content of the .bcs and play on normally ?

NOTE: don't ask for my weidu.log, i have working installation with no conflicts or bad mod versions...

#2 Ascension64

Ascension64
  • Modder
  • 5983 posts

Posted 18 November 2007 - 01:06 AM

so i have learned that the stutter demon has it's origin in the scripts running from baldur.bcs. i still am in the BG1 part of my game and after clearing cloakwood and finishing the megadungeon from DToSC, stutter began. i rushed to Baldurs Gate to check with Skar or Husam but this time it was not them. stutter still killing my game.

so i opened the baldur.bcs to check for scripts. it's HUGE. my problem is that i don't see any BG1 scripts. almost everything seems to come from CB and i see smaller parts like Lilarcor or the Acid Kensai...

can i savely delete the content of the .bcs and play on normally ?

NOTE: don't ask for my weidu.log, i have working installation with no conflicts or bad mod versions...

It's extremely dangerous to delete all the contents of baldur.bcs. You are better of posting the contents of your baldur.bcs so we can help you work out what to delete for safety.

--------------
Retired Modder
Note: I do not respond to profile comments/personal messages in regards to troubleshooting my modifications. Please post on the public forums instead.

Baldur's Gate Trilogy-WeiDU and Mods
Throne of Bhaal Extender (TobEx)

Contributions: (NWN2) A Deathstalker (voice acting) - (IWD2) IWD2 NPC Project (soundset editing) - (Misc) SHS PC Soundsets (voice acting)
Legacy: (BG/Tutu/BGT) Beregost Crash Fixer 1.9 (18 Jul 10) - (BG2) Enable conversations with charmed/dominated creatures (18 Jul 10) - (BG2) Experience Corrections (18 Jul 10) - (Misc) Platform Conversion Utility RC2 (13 Feb 10)


#3 Bloodtitan

Bloodtitan
  • Member
  • 406 posts

Posted 18 November 2007 - 01:33 AM

by now i have checked ALL entries and none of them is from BG1. it's all BG2 or BG2 mods.

where would BG1 store the running scripts then ?

#4 Miloch

Miloch

    Barbarian

  • Modder
  • 6573 posts

Posted 18 November 2007 - 03:06 AM

Unmodded BG1 does not have a baldur.bcs, or the concept of a global script runner. But if you're playing BGT, baldur.bcs is used throughout the game.

I don't know if it'll help in your case, if you've a megamod install with script slowdown, but you might try turning off ambient sounds. It's helped a lot of stutter cases I've seen.

Infinity Engine Contributions
Aurora * BG1 NPC * BG1 Fixpack * Haiass * Infinity Animations * Level 1 NPCs * P5Tweaks
PnP Free Action * Thrown Hammers * Unique Containers * BG:EE * BGII:EE * IWD:EE
================================================================
Player & Modder Resources
BAM Batcher * Creature Lister * Creature Checker * Creature Fixer * Tutu/BGT Area Map & List * Tutu Mod List
================================================================
"Infinity turns out to be the opposite of what people say it is. It is not 'that which has nothing beyond itself' that is infinite, but 'that which always has something beyond itself'." -Aristotle


#5 Bloodtitan

Bloodtitan
  • Member
  • 406 posts

Posted 18 November 2007 - 04:04 AM

thanks but i know the usual stutter killers and always try them before i post. as long as i play Megamodded BG2 i have never run into stutter related to large ammo packs, containers or ambient sound. it always was quest scripting for me.

btw, i have solved the current stutter. a truely odd one. normally i just try to finish all the running quests and hope to kill the script causing the error. this time it was a quest i had not started at all! i had to start and finish the sonner/tenya quest to fix the stuttering.

sometimes i had this game :(

#6 Azazello

Azazello

    The Anti-Spammer

  • Staff
  • 1912 posts

Posted 18 November 2007 - 07:48 PM

Think you got it bad? I wonder how players of BiG World installs are handling stutters...

#7 berelinde

berelinde

    Troublemaker

  • Modder
  • 4916 posts

Posted 18 November 2007 - 10:47 PM

They biff.

"Imagination is given to man to console him for what he is not; a sense of humor, for what he is." - Oscar Wilde

berelinde's mods
TolkienAcrossTheWater website
TolkienAcrossTheWater Forum


#8 Ascension64

Ascension64
  • Modder
  • 5983 posts

Posted 19 November 2007 - 12:07 AM

They biff.

Only if stuttering is due to an override folder the size of a small town's population.

--------------
Retired Modder
Note: I do not respond to profile comments/personal messages in regards to troubleshooting my modifications. Please post on the public forums instead.

Baldur's Gate Trilogy-WeiDU and Mods
Throne of Bhaal Extender (TobEx)

Contributions: (NWN2) A Deathstalker (voice acting) - (IWD2) IWD2 NPC Project (soundset editing) - (Misc) SHS PC Soundsets (voice acting)
Legacy: (BG/Tutu/BGT) Beregost Crash Fixer 1.9 (18 Jul 10) - (BG2) Enable conversations with charmed/dominated creatures (18 Jul 10) - (BG2) Experience Corrections (18 Jul 10) - (Misc) Platform Conversion Utility RC2 (13 Feb 10)


#9 Bloodtitan

Bloodtitan
  • Member
  • 406 posts

Posted 19 November 2007 - 06:42 AM

sorry i didn't mean to step on anyone's toes.

it would be really awesome to have a script monitoring tool for savegames to track stuttering. possible ?

#10 Bloodtitan

Bloodtitan
  • Member
  • 406 posts

Posted 21 November 2007 - 07:56 AM

ok it's stuttering again... i am in the bg2 part of the game now

per request i post the content of baldur.bcs. i am unsure this will help though. what i really need is a precise method to analyse a savegame and get information about bad scripts influencing the save.

anyway:
CODE
IF
    Global("KuroiSpawn","GLOBAL",0)
    AreaType(OUTDOOR)
    AreaType(CITY)
    CombatCounter(0)
    !Difficulty(EASIEST)
    OR(18)
        HasItemEquiped("c2sw1h02",Player1) // Celestial Fury +5
        HasItemEquiped("c2sw1h02",Player2) // Celestial Fury +5
        HasItemEquiped("c2sw1h02",Player3) // Celestial Fury +5
        HasItemEquiped("c2sw1h02",Player4) // Celestial Fury +5
        HasItemEquiped("c2sw1h02",Player5) // Celestial Fury +5
        HasItemEquiped("c2sw1h02",Player6) // Celestial Fury +5
        HasItemEquiped("sw1h45",Player1) // Malakar +2
        HasItemEquiped("sw1h45",Player2) // Malakar +2
        HasItemEquiped("sw1h45",Player3) // Malakar +2
        HasItemEquiped("sw1h45",Player4) // Malakar +2
        HasItemEquiped("sw1h45",Player5) // Malakar +2
        HasItemEquiped("sw1h45",Player6) // Malakar +2
        HasItemEquiped("sw1h51",Player1) // Celestial Fury +3
        HasItemEquiped("sw1h51",Player2) // Celestial Fury +3
        HasItemEquiped("sw1h51",Player3) // Celestial Fury +3
        HasItemEquiped("sw1h51",Player4) // Celestial Fury +3
        HasItemEquiped("sw1h51",Player5) // Celestial Fury +3
        HasItemEquiped("sw1h51",Player6) // Celestial Fury +3
    OR(2)
        GlobalLT("Chapter","GLOBAL",4)
        GlobalGT("Chapter","GLOBAL",5)
THEN
    RESPONSE #100
        IncrementGlobal("KuroiSpawn","GLOBAL",1)
        SetGlobalTimer("KuroiSpawnTimer","GLOBAL",ONE_DAY)
END

IF
    !Global("KuroiSpawn","GLOBAL",2)
    !Difficulty(EASIEST)
    OR(6)
        HasItemEquiped("solak1",Player1) // Kuroisan
        HasItemEquiped("solak1",Player2) // Kuroisan
        HasItemEquiped("solak1",Player3) // Kuroisan
        HasItemEquiped("solak1",Player4) // Kuroisan
        HasItemEquiped("solak1",Player5) // Kuroisan
        HasItemEquiped("solak1",Player6) // Kuroisan
THEN
    RESPONSE #100
        SetGlobal("KuroiSpawn","GLOBAL",2)
END

IF
    Global("KuroiSpawn","GLOBAL",1)
    GlobalTimerExpired("KuroiSpawnTimer","GLOBAL")
    !Difficulty(EASIEST)
    AreaType(OUTDOOR)
    AreaType(CITY)
    CombatCounter(0)
    OR(18)
        HasItemEquiped("c2sw1h02",Player1) // Celestial Fury +5
        HasItemEquiped("c2sw1h02",Player2) // Celestial Fury +5
        HasItemEquiped("c2sw1h02",Player3) // Celestial Fury +5
        HasItemEquiped("c2sw1h02",Player4) // Celestial Fury +5
        HasItemEquiped("c2sw1h02",Player5) // Celestial Fury +5
        HasItemEquiped("c2sw1h02",Player6) // Celestial Fury +5
        HasItemEquiped("sw1h45",Player1) // Malakar +2
        HasItemEquiped("sw1h45",Player2) // Malakar +2
        HasItemEquiped("sw1h45",Player3) // Malakar +2
        HasItemEquiped("sw1h45",Player4) // Malakar +2
        HasItemEquiped("sw1h45",Player5) // Malakar +2
        HasItemEquiped("sw1h45",Player6) // Malakar +2
        HasItemEquiped("sw1h51",Player1) // Celestial Fury +3
        HasItemEquiped("sw1h51",Player2) // Celestial Fury +3
        HasItemEquiped("sw1h51",Player3) // Celestial Fury +3
        HasItemEquiped("sw1h51",Player4) // Celestial Fury +3
        HasItemEquiped("sw1h51",Player5) // Celestial Fury +3
        HasItemEquiped("sw1h51",Player6) // Celestial Fury +3
    OR(2)
        GlobalLT("Chapter","GLOBAL",4)
        GlobalGT("Chapter","GLOBAL",5)
THEN
    RESPONSE #100
        IncrementGlobal("KuroiSpawn","GLOBAL",1)
        CreateCreatureObjectOffScreen("solak1",Player1,0,0,0) // Kuroisan
END

IF
    Dead("Horred") // Horred the Plague - Horred
    Global("BPHorredDeadCheck","GLOBAL",0)
    !Global("BPHorredChanged","GLOBAL",2)
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        SetGlobal("BPHorredDeadCheck","GLOBAL",1)
        SetGlobal("BPHorredLastSpeech","GLOBAL",1)
        StartDialog("HORRED",Player1)
        SetInterrupt(TRUE)
END

IF
    Delay(600)
    CombatCounter(0)
    OR(6)
        HasItemEquipedReal("bhfsw1",Player1) // Sword of Flame +2
        HasItemEquipedReal("bhfsw1",Player2) // Sword of Flame +2
        HasItemEquipedReal("bhfsw1",Player3) // Sword of Flame +2
        HasItemEquipedReal("bhfsw1",Player4) // Sword of Flame +2
        HasItemEquipedReal("bhfsw1",Player5) // Sword of Flame +2
        HasItemEquipedReal("bhfsw1",Player6) // Sword of Flame +2
THEN
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108540) //   Torment!
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108541) //   Plenty to burn here.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108542) //   The flames await.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108543) //   I wait to walk paths of flames.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108544) //   The flames grow within me.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108545) //   No more talk and wonder.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108546) //   Great power is here.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108547) //   The flames hunger for the blistering of flesh.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108548) //   I wait.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108549) //   Ah, sweet flames.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108550) //   As I remained here, thoughts filled with flames.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108551) //   I am yours til death comes for us both.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108552) //   Fires shall sweep through the streets.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108553) //   I live?
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108554) //   Yes?
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108555) //   Ahhh.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108556) //   Yes, my master.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108557) //   You are all tallow for my flames.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108558) //   Long scream.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108559) //   Pain.
END

IF
    Delay(125)
    !CombatCounter(0)
    OR(6)
        HasItemEquipedReal("bhfsw1",Player1) // Sword of Flame +2
        HasItemEquipedReal("bhfsw1",Player2) // Sword of Flame +2
        HasItemEquipedReal("bhfsw1",Player3) // Sword of Flame +2
        HasItemEquipedReal("bhfsw1",Player4) // Sword of Flame +2
        HasItemEquipedReal("bhfsw1",Player5) // Sword of Flame +2
        HasItemEquipedReal("bhfsw1",Player6) // Sword of Flame +2
THEN
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108558) //   Long scream.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108560) //   Scream.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108557) //   You are all tallow for my flames.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108559) //   Pain.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108541) //   Plenty to burn here.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108561) //   Yes. (*laughs*)
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108562) //   As you wish.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108563) //   I will burn you, lend some fire to the flames.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108544) //   The flames grow within me.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108540) //   Torment!
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108564) //   Again.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108545) //   No more talk and wonder.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108542) //   The flames await.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108565) //   Yes.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108552) //   Fires shall sweep through the streets.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108566) //   Ah, sweet flames!
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108567) //   The skys shall be flames and all life shall be torches.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108568) //   Darkness smothers the flames.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108547) //   The flames hunger for the blistering of flesh.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108569) //   I am yours.
    RESPONSE #10
        DisplayStringHeadOwner("bhfsw1",108558) //   Long scream.
END

IF
    Global("CbVampireSubQuestStart","GLOBAL",3)
    PartyHasItem("CBVMPDR1") // Cursed Earth
    PartyHasItem("CBVMPDR2") // Cursed Earth
    PartyHasItem("CBVMPDR3") // Cursed Earth
    PartyHasItem("CBVMPCF1") // Vampire Coffin
    PartyHasItem("CBVMPCF2") // Vampire Coffin
    PartyHasItem("CBVMPCF3") // Vampire Coffin
    PartyHasItem("CBVMPCF4") // Vampire Coffin
    AreaType(OUTDOOR)
    GlobalTimerExpired("CbMovingVampires","GLOBAL")
    TimeGT(DAWN_START)
THEN
    RESPONSE #100
        SetGlobal("CbVampireSubQuestStart","GLOBAL",69)
        SetGlobal("CbVampireSubQuestFailed","GLOBAL",1)
        TakePartyItem("CBVMPDR1") // Cursed Earth
        TakePartyItem("CBVMPDR2") // Cursed Earth
        TakePartyItem("CBVMPDR3") // Cursed Earth
        TakePartyItem("CBVMPCF1") // Vampire Coffin
        TakePartyItem("CBVMPCF2") // Vampire Coffin
        TakePartyItem("CBVMPCF3") // Vampire Coffin
        TakePartyItem("CBVMPCF4") // Vampire Coffin
        DisplayStringNoName(Player1,78992) // Apparently, you have waited to long to finish moving the family of vampires.  They have been destroyed in the sunlight.
END

IF
    OR(30)
        AreaCheck("AR0042")
        AreaCheck("AR0043")
        AreaCheck("AR0044")
        AreaCheck("AR1100")
        AreaCheck("AR1400")
        AreaCheck("AR1300")
        AreaCheck("AR1200")
        AreaCheck("AR1404")
        AreaCheck("AR1304")
        AreaCheck("AR2000")
        AreaCheck("AR1900")
        AreaCheck("AR1700")
        AreaCheck("AR2500")
        AreaCheck("AR2600")
        AreaCheck("AR1800")
        AreaCheck("AR1600")
        AreaCheck("AR2100")
        AreaCheck("AR1500")
        AreaCheck("AR2300")
        AreaCheck("AR2800")
        AreaCheck("AR4000")
        AreaCheck("AR3000")
        AreaCheck("AR5000")
        AreaCheck("AR5500")
        AreaCheck("AR5203")
        AreaCheck("AR5202")
        AreaCheck("AR5200")
        AreaCheck("AR6300")
        AreaCheck("AR6400")
        AreaCheck("AR6000")
    !Global("CbTaxCollected","GLOBAL",1)
    Global("CbTaxAnnouncement","GLOBAL",5)
THEN
    RESPONSE #100
        SetGlobal("CbTaxCollected","GLOBAL",1)
END

IF
    OR(8)
        AreaCheck("AR0700")
        AreaCheck("AR0400")
        AreaCheck("AR0300")
        AreaCheck("AR0500")
        AreaCheck("AR0800")
        AreaCheck("AR0900")
        AreaCheck("AR1000")
        AreaCheck("AR0020")
    Global("CbTaxAnnouncement","GLOBAL",5)
    Global("CbTaxCollected","GLOBAL",1)
    !Exists("CBTAXCOL")
THEN
    RESPONSE #100
        CreateCreatureOffScreen("CBTAXCOL",0) // Tax Collector
END

IF
    OR(7)
        AreaCheck("AR0700")
        AreaCheck("AR0400")
        AreaCheck("AR0300")
        AreaCheck("AR0500")
        AreaCheck("AR0900")
        AreaCheck("AR1000")
        AreaCheck("AR0020")
    Global("CbTaxAnnouncement","GLOBAL",2)
    Global("CbCreateTaxAnnouncer","MYAREA",0)
THEN
    RESPONSE #100
        SetGlobal("CbCreateTaxAnnouncer","MYAREA",1)
        CreateCreatureOffScreen("CBTAXTWC",0) // Ausrufer
END

IF
    GlobalTimerExpired("CbDeliverIceMelting","GLOBAL")
    PartyHasItem("CBICEBLK") // Block of Ice
THEN
    RESPONSE #100
        TakePartyItem("CBICEBLK") // Block of Ice
        DisplayStringNoName(Player1,78993) // The block of ice you have been carrying has melted.  Perhaps you should have delivered it more quickly.
END

IF
    OR(5)
        Global("CbPlayer_2_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_3_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_4_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_5_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_6_HasSpellsung","GLOBAL",1)
    !GlobalTimerNotExpired("CbSpellsungDamage","GLOBAL")
    OR(5)
        HasItemEquipedReal("CBSSLNG2",Player1) // SongSapate
        HasItemEquipedReal("CBSSLNG3",Player1) // SongSapate
        HasItemEquipedReal("CBSSLNG4",Player1) // SongSapate
        HasItemEquipedReal("CBSSLNG5",Player1) // SongSapate
        HasItemEquipedReal("CBSSLNG6",Player1) // SongSapate
THEN
    RESPONSE #100
        ActionOverride(Player1,ReallyForceSpell(Player1,FIFTY_PERCENT_DAMAGE))
        DisplayStringHead(Player1,78994) // The Spellsung Blade has not chosen you as its rightful owner.  It lashes out in rebellion.
        SetGlobalTimer("CbSpellsungDamage","GLOBAL",TWELVE_MINUTES)
END

IF
    OR(5)
        Global("CbPlayer_1_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_3_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_4_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_5_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_6_HasSpellsung","GLOBAL",1)
    !GlobalTimerNotExpired("CbSpellsungDamage","GLOBAL")
    OR(5)
        HasItemEquipedReal("CBSSLNG1",Player2) // SongSapate
        HasItemEquipedReal("CBSSLNG3",Player2) // SongSapate
        HasItemEquipedReal("CBSSLNG4",Player2) // SongSapate
        HasItemEquipedReal("CBSSLNG5",Player2) // SongSapate
        HasItemEquipedReal("CBSSLNG6",Player2) // SongSapate
THEN
    RESPONSE #100
        ActionOverride(Player2,ReallyForceSpell(Player2,FIFTY_PERCENT_DAMAGE))
        DisplayStringHead(Player2,78994) // The Spellsung Blade has not chosen you as its rightful owner.  It lashes out in rebellion.
        SetGlobalTimer("CbSpellsungDamage","GLOBAL",TWELVE_MINUTES)
END

IF
    OR(5)
        Global("CbPlayer_1_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_2_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_4_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_5_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_6_HasSpellsung","GLOBAL",1)
    !GlobalTimerNotExpired("CbSpellsungDamage","GLOBAL")
    OR(5)
        HasItemEquipedReal("CBSSLNG1",Player3) // SongSapate
        HasItemEquipedReal("CBSSLNG2",Player3) // SongSapate
        HasItemEquipedReal("CBSSLNG4",Player3) // SongSapate
        HasItemEquipedReal("CBSSLNG5",Player3) // SongSapate
        HasItemEquipedReal("CBSSLNG6",Player3) // SongSapate
THEN
    RESPONSE #100
        ActionOverride(Player3,ReallyForceSpell(Player3,FIFTY_PERCENT_DAMAGE))
        DisplayStringHead(Player3,78994) // The Spellsung Blade has not chosen you as its rightful owner.  It lashes out in rebellion.
        SetGlobalTimer("CbSpellsungDamage","GLOBAL",TWELVE_MINUTES)
END

IF
    OR(5)
        Global("CbPlayer_1_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_2_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_3_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_5_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_6_HasSpellsung","GLOBAL",1)
    !GlobalTimerNotExpired("CbSpellsungDamage","GLOBAL")
    OR(5)
        HasItemEquipedReal("CBSSLNG1",Player4) // SongSapate
        HasItemEquipedReal("CBSSLNG2",Player4) // SongSapate
        HasItemEquipedReal("CBSSLNG3",Player4) // SongSapate
        HasItemEquipedReal("CBSSLNG5",Player4) // SongSapate
        HasItemEquipedReal("CBSSLNG6",Player4) // SongSapate
THEN
    RESPONSE #100
        ActionOverride(Player4,ReallyForceSpell(Player4,FIFTY_PERCENT_DAMAGE))
        DisplayStringHead(Player4,78994) // The Spellsung Blade has not chosen you as its rightful owner.  It lashes out in rebellion.
        SetGlobalTimer("CbSpellsungDamage","GLOBAL",TWELVE_MINUTES)
END

IF
    OR(5)
        Global("CbPlayer_1_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_2_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_3_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_4_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_6_HasSpellsung","GLOBAL",1)
    !GlobalTimerNotExpired("CbSpellsungDamage","GLOBAL")
    OR(5)
        HasItemEquipedReal("CBSSLNG1",Player5) // SongSapate
        HasItemEquipedReal("CBSSLNG2",Player5) // SongSapate
        HasItemEquipedReal("CBSSLNG3",Player5) // SongSapate
        HasItemEquipedReal("CBSSLNG4",Player5) // SongSapate
        HasItemEquipedReal("CBSSLNG6",Player5) // SongSapate
THEN
    RESPONSE #100
        ActionOverride(Player5,ReallyForceSpell(Player5,FIFTY_PERCENT_DAMAGE))
        DisplayStringHead(Player5,78994) // The Spellsung Blade has not chosen you as its rightful owner.  It lashes out in rebellion.
        SetGlobalTimer("CbSpellsungDamage","GLOBAL",TWELVE_MINUTES)
END

IF
    OR(5)
        Global("CbPlayer_1_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_2_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_3_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_4_HasSpellsung","GLOBAL",1)
        Global("CbPlayer_5_HasSpellsung","GLOBAL",1)
    !GlobalTimerNotExpired("CbSpellsungDamage","GLOBAL")
    OR(5)
        HasItemEquipedReal("CBSSLNG1",Player6) // SongSapate
        HasItemEquipedReal("CBSSLNG2",Player6) // SongSapate
        HasItemEquipedReal("CBSSLNG3",Player6) // SongSapate
        HasItemEquipedReal("CBSSLNG4",Player6) // SongSapate
        HasItemEquipedReal("CBSSLNG5",Player6) // SongSapate
THEN
    RESPONSE #100
        ActionOverride(Player6,ReallyForceSpell(Player6,FIFTY_PERCENT_DAMAGE))
        DisplayStringHead(Player6,78994) // The Spellsung Blade has not chosen you as its rightful owner.  It lashes out in rebellion.
        SetGlobalTimer("CbSpellsungDamage","GLOBAL",TWELVE_MINUTES)
END

IF
    Global("CbTempMoonBlade","GLOBAL",0)
    HasItemEquipedReal("CBEMMOON",Player1) // Moonblade +3
THEN
    RESPONSE #100
        SetGlobal("CbTempMoonBlade","GLOBAL",1)
        SetGlobal("CbMoonBladePlayer1","GLOBAL",1)
END

IF
    Global("CbTempMoonBlade","GLOBAL",0)
    HasItemEquipedReal("CBEMMOON",Player2) // Moonblade +3
THEN
    RESPONSE #100
        SetGlobal("CbTempMoonBlade","GLOBAL",1)
        SetGlobal("CbMoonBladePlayer2","GLOBAL",1)
END

IF
    Global("CbTempMoonBlade","GLOBAL",0)
    HasItemEquipedReal("CBEMMOON",Player3) // Moonblade +3
THEN
    RESPONSE #100
        SetGlobal("CbTempMoonBlade","GLOBAL",1)
        SetGlobal("CbMoonBladePlayer3","GLOBAL",1)
END

IF
    Global("CbTempMoonBlade","GLOBAL",0)
    HasItemEquipedReal("CBEMMOON",Player4) // Moonblade +3
THEN
    RESPONSE #100
        SetGlobal("CbTempMoonBlade","GLOBAL",1)
        SetGlobal("CbMoonBladePlayer4","GLOBAL",1)
END

IF
    Global("CbTempMoonBlade","GLOBAL",0)
    HasItemEquipedReal("CBEMMOON",Player5) // Moonblade +3
THEN
    RESPONSE #100
        SetGlobal("CbTempMoonBlade","GLOBAL",1)
        SetGlobal("CbMoonBladePlayer5","GLOBAL",1)
END

IF
    Global("CbTempMoonBlade","GLOBAL",0)
    HasItemEquipedReal("CBEMMOON",Player6) // Moonblade +3
THEN
    RESPONSE #100
        SetGlobal("CbTempMoonBlade","GLOBAL",1)
        SetGlobal("CbMoonBladePlayer6","GLOBAL",1)
END

IF
    Global("CbTempMoonBlade","GLOBAL",1)
    OR(5)
        Global("CbMoonBladePlayer2","GLOBAL",1)
        Global("CbMoonBladePlayer3","GLOBAL",1)
        Global("CbMoonBladePlayer4","GLOBAL",1)
        Global("CbMoonBladePlayer5","GLOBAL",1)
        Global("CbMoonBladePlayer6","GLOBAL",1)
    !GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
    HasItemEquipedReal("CBEMMOON",Player1) // Moonblade +3
THEN
    RESPONSE #100
        ActionOverride(Player1,ReallyForceSpell(Player1,FIFTY_PERCENT_DAMAGE))
        DisplayStringHead(Player1,78995) // The Moonblade has not chosen you as its rightful owner.  It lashes out in rebellion.
        SetGlobalTimer("CbMoonBladeDamage","GLOBAL",ONE_DAY)
END

IF
    Global("CbTempMoonBlade","GLOBAL",1)
    OR(5)
        Global("CbMoonBladePlayer1","GLOBAL",1)
        Global("CbMoonBladePlayer3","GLOBAL",1)
        Global("CbMoonBladePlayer4","GLOBAL",1)
        Global("CbMoonBladePlayer5","GLOBAL",1)
        Global("CbMoonBladePlayer6","GLOBAL",1)
    !GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
    HasItemEquipedReal("CBEMMOON",Player2) // Moonblade +3
THEN
    RESPONSE #100
        ActionOverride(Player2,ReallyForceSpell(Player2,FIFTY_PERCENT_DAMAGE))
        DisplayStringHead(Player2,78995) // The Moonblade has not chosen you as its rightful owner.  It lashes out in rebellion.
        SetGlobalTimer("CbMoonBladeDamage","GLOBAL",ONE_DAY)
END

IF
    Global("CbTempMoonBlade","GLOBAL",1)
    OR(5)
        Global("CbMoonBladePlayer1","GLOBAL",1)
        Global("CbMoonBladePlayer2","GLOBAL",1)
        Global("CbMoonBladePlayer4","GLOBAL",1)
        Global("CbMoonBladePlayer5","GLOBAL",1)
        Global("CbMoonBladePlayer6","GLOBAL",1)
    !GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
    HasItemEquipedReal("CBEMMOON",Player3) // Moonblade +3
THEN
    RESPONSE #100
        ActionOverride(Player3,ReallyForceSpell(Player3,FIFTY_PERCENT_DAMAGE))
        DisplayStringHead(Player3,78995) // The Moonblade has not chosen you as its rightful owner.  It lashes out in rebellion.
        SetGlobalTimer("CbMoonBladeDamage","GLOBAL",ONE_DAY)
END

IF
    Global("CbTempMoonBlade","GLOBAL",1)
    OR(5)
        Global("CbMoonBladePlayer1","GLOBAL",1)
        Global("CbMoonBladePlayer2","GLOBAL",1)
        Global("CbMoonBladePlayer3","GLOBAL",1)
        Global("CbMoonBladePlayer5","GLOBAL",1)
        Global("CbMoonBladePlayer6","GLOBAL",1)
    !GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
    HasItemEquipedReal("CBEMMOON",Player4) // Moonblade +3
THEN
    RESPONSE #100
        ActionOverride(Player4,ReallyForceSpell(Player4,FIFTY_PERCENT_DAMAGE))
        DisplayStringHead(Player4,78995) // The Moonblade has not chosen you as its rightful owner.  It lashes out in rebellion.
        SetGlobalTimer("CbMoonBladeDamage","GLOBAL",ONE_DAY)
END

IF
    Global("CbTempMoonBlade","GLOBAL",1)
    OR(5)
        Global("CbMoonBladePlayer1","GLOBAL",1)
        Global("CbMoonBladePlayer2","GLOBAL",1)
        Global("CbMoonBladePlayer3","GLOBAL",1)
        Global("CbMoonBladePlayer4","GLOBAL",1)
        Global("CbMoonBladePlayer6","GLOBAL",1)
    !GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
    HasItemEquipedReal("CBEMMOON",Player5) // Moonblade +3
THEN
    RESPONSE #100
        ActionOverride(Player5,ReallyForceSpell(Player5,FIFTY_PERCENT_DAMAGE))
        DisplayStringHead(Player5,78995) // The Moonblade has not chosen you as its rightful owner.  It lashes out in rebellion.
        SetGlobalTimer("CbMoonBladeDamage","GLOBAL",ONE_DAY)
END

IF
    Global("CbTempMoonBlade","GLOBAL",1)
    OR(5)
        Global("CbMoonBladePlayer1","GLOBAL",1)
        Global("CbMoonBladePlayer2","GLOBAL",1)
        Global("CbMoonBladePlayer3","GLOBAL",1)
        Global("CbMoonBladePlayer4","GLOBAL",1)
        Global("CbMoonBladePlayer5","GLOBAL",1)
    !GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
    HasItemEquipedReal("CBEMMOON",Player6) // Moonblade +3
THEN
    RESPONSE #100
        ActionOverride(Player6,ReallyForceSpell(Player6,FIFTY_PERCENT_DAMAGE))
        DisplayStringHead(Player6,78995) // The Moonblade has not chosen you as its rightful owner.  It lashes out in rebellion.
        SetGlobalTimer("CbMoonBladeDamage","GLOBAL",ONE_DAY)
END

IF
    Global("CbTempMoonBlade","GLOBAL",1)
    Global("CbMoonBladePlayer1","GLOBAL",0)
    OR(20)
        HasItemEquipedReal("CBMOONP2",Player1) // ElfSapate
        HasItemEquipedReal("CBMOONP3",Player1) // ElfSapate
        HasItemEquipedReal("CBMOONP4",Player1) // ElfSapate
        HasItemEquipedReal("CBMOONP5",Player1) // ElfSapate
        HasItemEquipedReal("CBMOONP6",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP2b",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP2c",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP2d",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP3b",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP3c",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP3d",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP4b",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP4c",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP4d",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP5b",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP5c",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP5d",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP6b",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP6c",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP6d",Player1) // ElfSapate
    !GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
THEN
    RESPONSE #100
        ActionOverride(Player1,ReallyForceSpell(Player1,FIFTY_PERCENT_DAMAGE))
        DisplayStringHead(Player1,78996) // ElfSapate has not chosen you as its rightful owner.  The Moonblade rebels against you, and you should stop using the blade as quickly as you can.
        SetGlobalTimer("CbMoonBladeDamage","GLOBAL",TWELVE_MINUTES)
END

IF
    Global("CbTempMoonBlade","GLOBAL",1)
    Global("CbMoonBladePlayer2","GLOBAL",0)
    OR(20)
        HasItemEquipedReal("CBMOONP1",Player2) // ElfSapate
        HasItemEquipedReal("CBMOONP3",Player2) // ElfSapate
        HasItemEquipedReal("CBMOONP4",Player2) // ElfSapate
        HasItemEquipedReal("CBMOONP5",Player2) // ElfSapate
        HasItemEquipedReal("CBMOONP6",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP1b",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP1c",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP1d",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP3b",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP3c",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP3d",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP4b",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP4c",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP4d",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP5b",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP5c",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP5d",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP6b",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP6c",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP6d",Player2) // ElfSapate
    !GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
THEN
    RESPONSE #100
        ActionOverride(Player2,ReallyForceSpell(Player2,FIFTY_PERCENT_DAMAGE))
        DisplayStringHead(Player2,78996) // ElfSapate has not chosen you as its rightful owner.  The Moonblade rebels against you, and you should stop using the blade as quickly as you can.
        SetGlobalTimer("CbMoonBladeDamage","GLOBAL",TWELVE_MINUTES)
END

IF
    Global("CbTempMoonBlade","GLOBAL",1)
    Global("CbMoonBladePlayer3","GLOBAL",0)
    OR(20)
        HasItemEquipedReal("CBMOONP1",Player3) // ElfSapate
        HasItemEquipedReal("CBMOONP2",Player3) // ElfSapate
        HasItemEquipedReal("CBMOONP4",Player3) // ElfSapate
        HasItemEquipedReal("CBMOONP5",Player3) // ElfSapate
        HasItemEquipedReal("CBMOONP6",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP2b",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP2c",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP2d",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP1b",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP1c",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP1d",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP4b",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP4c",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP4d",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP5b",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP5c",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP5d",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP6b",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP6c",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP6d",Player3) // ElfSapate
    !GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
THEN
    RESPONSE #100
        ActionOverride(Player3,ReallyForceSpell(Player3,FIFTY_PERCENT_DAMAGE))
        DisplayStringHead(Player3,78996) // ElfSapate has not chosen you as its rightful owner.  The Moonblade rebels against you, and you should stop using the blade as quickly as you can.
        SetGlobalTimer("CbMoonBladeDamage","GLOBAL",TWELVE_MINUTES)
END

IF
    Global("CbTempMoonBlade","GLOBAL",1)
    Global("CbMoonBladePlayer4","GLOBAL",0)
    OR(20)
        HasItemEquipedReal("CBMOONP1",Player4) // ElfSapate
        HasItemEquipedReal("CBMOONP2",Player4) // ElfSapate
        HasItemEquipedReal("CBMOONP3",Player4) // ElfSapate
        HasItemEquipedReal("CBMOONP5",Player4) // ElfSapate
        HasItemEquipedReal("CBMOONP6",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP2b",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP2c",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP2d",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP3b",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP3c",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP3d",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP1b",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP1c",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP1d",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP5b",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP5c",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP5d",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP6b",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP6c",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP6d",Player4) // ElfSapate
    !GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
THEN
    RESPONSE #100
        ActionOverride(Player4,ReallyForceSpell(Player4,FIFTY_PERCENT_DAMAGE))
        DisplayStringHead(Player4,78996) // ElfSapate has not chosen you as its rightful owner.  The Moonblade rebels against you, and you should stop using the blade as quickly as you can.
        SetGlobalTimer("CbMoonBladeDamage","GLOBAL",TWELVE_MINUTES)
END

IF
    Global("CbTempMoonBlade","GLOBAL",1)
    Global("CbMoonBladePlayer5","GLOBAL",0)
    OR(20)
        HasItemEquipedReal("CBMOONP1",Player5) // ElfSapate
        HasItemEquipedReal("CBMOONP2",Player5) // ElfSapate
        HasItemEquipedReal("CBMOONP3",Player5) // ElfSapate
        HasItemEquipedReal("CBMOONP4",Player5) // ElfSapate
        HasItemEquipedReal("CBMOONP6",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP2b",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP2c",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP2d",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP3b",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP3c",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP3d",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP4b",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP4c",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP4d",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP1b",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP1c",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP1d",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP6b",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP6c",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP6d",Player5) // ElfSapate
    !GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
THEN
    RESPONSE #100
        ActionOverride(Player5,ReallyForceSpell(Player5,FIFTY_PERCENT_DAMAGE))
        DisplayStringHead(Player5,78996) // ElfSapate has not chosen you as its rightful owner.  The Moonblade rebels against you, and you should stop using the blade as quickly as you can.
        SetGlobalTimer("CbMoonBladeDamage","GLOBAL",TWELVE_MINUTES)
END

IF
    Global("CbTempMoonBlade","GLOBAL",1)
    Global("CbMoonBladePlayer6","GLOBAL",0)
    OR(20)
        HasItemEquipedReal("CBMOONP1",Player6) // ElfSapate
        HasItemEquipedReal("CBMOONP2",Player6) // ElfSapate
        HasItemEquipedReal("CBMOONP3",Player6) // ElfSapate
        HasItemEquipedReal("CBMOONP4",Player6) // ElfSapate
        HasItemEquipedReal("CBMOONP5",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP2b",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP2c",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP2d",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP3b",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP3c",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP3d",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP4b",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP4c",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP4d",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP5b",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP5c",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP5d",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP1b",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP1c",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP1d",Player6) // ElfSapate
    !GlobalTimerNotExpired("CbMoonBladeDamage","GLOBAL")
THEN
    RESPONSE #100
        ActionOverride(Player6,ReallyForceSpell(Player6,FIFTY_PERCENT_DAMAGE))
        DisplayStringHead(Player6,78996) // ElfSapate has not chosen you as its rightful owner.  The Moonblade rebels against you, and you should stop using the blade as quickly as you can.
        SetGlobalTimer("CbMoonBladeDamage","GLOBAL",TWELVE_MINUTES)
END

IF
    Global("CbMoonBladeAbilities","GLOBAL",3)
    HasItemEquipedReal("CBMOONP1",Player1) // ElfSapate
THEN
    RESPONSE #100
        SetGlobal("CbMoonBladeAbilities","GLOBAL",4)
        DisplayStringHeadOwner("CBMOONP1",78997) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
        TakeItemReplace("CBMONP1b","CBMOONP1",Player1) // ElfSapate
END

IF
    Global("CbMoonBladeAbilities","GLOBAL",6)
    HasItemEquipedReal("CBMONP1b",Player1) // ElfSapate
THEN
    RESPONSE #100
        SetGlobal("CbMoonBladeAbilities","GLOBAL",7)
        DisplayStringHeadOwner("CBMONP1b",78997) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
        TakeItemReplace("CBMONP1c","CBMONP1b",Player1) // ElfSapate
END

IF
    Global("CbMoonBladeAbilities","GLOBAL",10)
    HasItemEquipedReal("CBMONP1c",Player1) // ElfSapate
THEN
    RESPONSE #100
        SetGlobal("CbMoonBladeAbilities","GLOBAL",11)
        DisplayStringHeadOwner("CBMONP1c",78997) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
        TakeItemReplace("CBMONP1d","CBMONP1c",Player1) // ElfSapate
END

IF
    Global("CbMoonBladeAbilities","GLOBAL",3)
    HasItemEquipedReal("CBMOONP2",Player2) // ElfSapate
THEN
    RESPONSE #100
        SetGlobal("CbMoonBladeAbilities","GLOBAL",4)
        DisplayStringHeadOwner("CBMOONP2",78997) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
        TakeItemReplace("CBMONP2b","CBMOONP2",Player2) // ElfSapate
END

IF
    Global("CbMoonBladeAbilities","GLOBAL",6)
    HasItemEquipedReal("CBMONP2b",Player2) // ElfSapate
THEN
    RESPONSE #100
        SetGlobal("CbMoonBladeAbilities","GLOBAL",7)
        DisplayStringHeadOwner("CBMONP2b",78997) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
        TakeItemReplace("CBMONP2c","CBMONP2b",Player2) // ElfSapate
END

IF
    Global("CbMoonBladeAbilities","GLOBAL",10)
    HasItemEquipedReal("CBMONP2c",Player2) // ElfSapate
THEN
    RESPONSE #100
        SetGlobal("CbMoonBladeAbilities","GLOBAL",11)
        DisplayStringHeadOwner("CBMONP2c",78997) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
        TakeItemReplace("CBMONP2d","CBMONP2c",Player2) // ElfSapate
END

IF
    Global("CbMoonBladeAbilities","GLOBAL",3)
    HasItemEquipedReal("CBMOONP3",Player3) // ElfSapate
THEN
    RESPONSE #100
        SetGlobal("CbMoonBladeAbilities","GLOBAL",4)
        DisplayStringHeadOwner("CBMOONP3",78997) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
        TakeItemReplace("CBMONP3b","CBMOONP3",Player3) // ElfSapate
END

IF
    Global("CbMoonBladeAbilities","GLOBAL",6)
    HasItemEquipedReal("CBMONP3b",Player3) // ElfSapate
THEN
    RESPONSE #100
        SetGlobal("CbMoonBladeAbilities","GLOBAL",7)
        DisplayStringHeadOwner("CBMONP3b",78997) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
        TakeItemReplace("CBMONP3c","CBMONP3b",Player3) // ElfSapate
END

IF
    Global("CbMoonBladeAbilities","GLOBAL",10)
    HasItemEquipedReal("CBMONP3c",Player3) // ElfSapate
THEN
    RESPONSE #100
        SetGlobal("CbMoonBladeAbilities","GLOBAL",11)
        DisplayStringHeadOwner("CBMONP3c",78997) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
        TakeItemReplace("CBMONP3d","CBMONP3c",Player3) // ElfSapate
END

IF
    Global("CbMoonBladeAbilities","GLOBAL",3)
    HasItemEquipedReal("CBMOONP4",Player4) // ElfSapate
THEN
    RESPONSE #100
        SetGlobal("CbMoonBladeAbilities","GLOBAL",4)
        DisplayStringHeadOwner("CBMOONP4",78997) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
        TakeItemReplace("CBMONP4b","CBMOONP4",Player4) // ElfSapate
END

IF
    Global("CbMoonBladeAbilities","GLOBAL",6)
    HasItemEquipedReal("CBMONP4b",Player4) // ElfSapate
THEN
    RESPONSE #100
        SetGlobal("CbMoonBladeAbilities","GLOBAL",7)
        DisplayStringHeadOwner("CBMONP4b",78997) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
        TakeItemReplace("CBMONP4c","CBMONP4b",Player4) // ElfSapate
END

IF
    Global("CbMoonBladeAbilities","GLOBAL",10)
    HasItemEquipedReal("CBMONP4c",Player4) // ElfSapate
THEN
    RESPONSE #100
        SetGlobal("CbMoonBladeAbilities","GLOBAL",11)
        DisplayStringHeadOwner("CBMONP4c",78997) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
        TakeItemReplace("CBMONP4d","CBMONP4c",Player4) // ElfSapate
END

IF
    Global("CbMoonBladeAbilities","GLOBAL",3)
    HasItemEquipedReal("CBMOONP5",Player5) // ElfSapate
THEN
    RESPONSE #100
        SetGlobal("CbMoonBladeAbilities","GLOBAL",4)
        DisplayStringHeadOwner("CBMOONP5",78997) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
        TakeItemReplace("CBMONP5b","CBMOONP5",Player5) // ElfSapate
END

IF
    Global("CbMoonBladeAbilities","GLOBAL",6)
    HasItemEquipedReal("CBMONP5b",Player5) // ElfSapate
THEN
    RESPONSE #100
        SetGlobal("CbMoonBladeAbilities","GLOBAL",7)
        DisplayStringHeadOwner("CBMONP5b",78997) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
        TakeItemReplace("CBMONP5c","CBMONP5b",Player5) // ElfSapate
END

IF
    Global("CbMoonBladeAbilities","GLOBAL",10)
    HasItemEquipedReal("CBMONP5c",Player5) // ElfSapate
THEN
    RESPONSE #100
        SetGlobal("CbMoonBladeAbilities","GLOBAL",11)
        DisplayStringHeadOwner("CBMONP5c",78997) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
        TakeItemReplace("CBMONP5d","CBMONP5c",Player5) // ElfSapate
END

IF
    Global("CbMoonBladeAbilities","GLOBAL",3)
    HasItemEquipedReal("CBMOONP6",Player6) // ElfSapate
THEN
    RESPONSE #100
        SetGlobal("CbMoonBladeAbilities","GLOBAL",4)
        DisplayStringHeadOwner("CBMOONP6",78997) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
        TakeItemReplace("CBMONP6b","CBMOONP6",Player6) // ElfSapate
END

IF
    Global("CbMoonBladeAbilities","GLOBAL",6)
    HasItemEquipedReal("CBMONP6b",Player6) // ElfSapate
THEN
    RESPONSE #100
        SetGlobal("CbMoonBladeAbilities","GLOBAL",7)
        DisplayStringHeadOwner("CBMONP6b",78997) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
        TakeItemReplace("CBMONP6c","CBMONP6b",Player6) // ElfSapate
END

IF
    Global("CbMoonBladeAbilities","GLOBAL",10)
    HasItemEquipedReal("CBMONP6c",Player6) // ElfSapate
THEN
    RESPONSE #100
        SetGlobal("CbMoonBladeAbilities","GLOBAL",11)
        DisplayStringHeadOwner("CBMONP6c",78997) // ElfSapate has chosen you as a valorous and honorable weilder, and one of the Moonblade's dormant powers is released.
        TakeItemReplace("CBMONP6d","CBMONP6c",Player6) // ElfSapate
END

IF
    HPGT(Player1,10)
    Global("CbPlayer1DiseasedByCowl","GLOBAL",1)
    GlobalTimerExpired("CbPlayer1DiseasedDay","GLOBAL")
THEN
    RESPONSE #100
        SetGlobalTimer("CbPlayer1DiseasedDay","GLOBAL",ONE_DAY)
        ApplySpell(Player1,WIZARD_COWLED_VD)
END

IF
    HPGT(Player1,11)
    Global("CbPlayer1DiseasedByCowl","GLOBAL",2)
    GlobalTimerExpired("CbPlayer1DiseasedDay","GLOBAL")
THEN
    RESPONSE #100
        SetGlobalTimer("CbPlayer1DiseasedDay","GLOBAL",ONE_DAY)
        ApplySpell(Player1,WIZARD_COWLED_VD)
        ApplySpell(Player1,WIZARD_COWLED_VD)
END

IF
    HPGT(Player1,12)
    GlobalGT("CbPlayer1DiseasedByCowl","GLOBAL",2)
    GlobalTimerExpired("CbPlayer1DiseasedDay","GLOBAL")
THEN
    RESPONSE #100
        SetGlobalTimer("CbPlayer1DiseasedDay","GLOBAL",ONE_DAY)
        ApplySpell(Player1,WIZARD_COWLED_VD)
        ApplySpell(Player1,WIZARD_COWLED_VD)
        ApplySpell(Player1,WIZARD_COWLED_VD)
END

IF
    HPGT(Player2,10)
    Global("CbPlayer2DiseasedByCowl","GLOBAL",1)
    GlobalTimerExpired("CbPlayer2DiseasedDay","GLOBAL")
THEN
    RESPONSE #100
        SetGlobalTimer("CbPlayer2DiseasedDay","GLOBAL",ONE_DAY)
        ApplySpell(Player2,WIZARD_COWLED_VD)
END

IF
    HPGT(Player2,11)
    Global("CbPlayer2DiseasedByCowl","GLOBAL",2)
    GlobalTimerExpired("CbPlayer2DiseasedDay","GLOBAL")
THEN
    RESPONSE #100
        SetGlobalTimer("CbPlayer2DiseasedDay","GLOBAL",ONE_DAY)
        ApplySpell(Player2,WIZARD_COWLED_VD)
        ApplySpell(Player2,WIZARD_COWLED_VD)
END

IF
    HPGT(Player2,12)
    GlobalGT("CbPlayer2DiseasedByCowl","GLOBAL",2)
    GlobalTimerExpired("CbPlayer2DiseasedDay","GLOBAL")
THEN
    RESPONSE #100
        SetGlobalTimer("CbPlayer2DiseasedDay","GLOBAL",ONE_DAY)
        ApplySpell(Player2,WIZARD_COWLED_VD)
        ApplySpell(Player2,WIZARD_COWLED_VD)
        ApplySpell(Player2,WIZARD_COWLED_VD)
END

IF
    HPGT(Player3,10)
    Global("CbPlayer3DiseasedByCowl","GLOBAL",1)
    GlobalTimerExpired("CbPlayer3DiseasedDay","GLOBAL")
THEN
    RESPONSE #100
        SetGlobalTimer("CbPlayer3DiseasedDay","GLOBAL",ONE_DAY)
        ApplySpell(Player3,WIZARD_COWLED_VD)
END

IF
    HPGT(Player3,11)
    Global("CbPlayer3DiseasedByCowl","GLOBAL",2)
    GlobalTimerExpired("CbPlayer3DiseasedDay","GLOBAL")
THEN
    RESPONSE #100
        SetGlobalTimer("CbPlayer3DiseasedDay","GLOBAL",ONE_DAY)
        ApplySpell(Player3,WIZARD_COWLED_VD)
        ApplySpell(Player3,WIZARD_COWLED_VD)
END

IF
    HPGT(Player3,12)
    GlobalGT("CbPlayer3DiseasedByCowl","GLOBAL",2)
    GlobalTimerExpired("CbPlayer3DiseasedDay","GLOBAL")
THEN
    RESPONSE #100
        SetGlobalTimer("CbPlayer3DiseasedDay","GLOBAL",ONE_DAY)
        ApplySpell(Player3,WIZARD_COWLED_VD)
        ApplySpell(Player3,WIZARD_COWLED_VD)
        ApplySpell(Player3,WIZARD_COWLED_VD)
END

IF
    HPGT(Player4,10)
    Global("CbPlayer4DiseasedByCowl","GLOBAL",1)
    GlobalTimerExpired("CbPlayer4DiseasedDay","GLOBAL")
THEN
    RESPONSE #100
        SetGlobalTimer("CbPlayer4DiseasedDay","GLOBAL",ONE_DAY)
        ApplySpell(Player4,WIZARD_COWLED_VD)
END

IF
    HPGT(Player4,11)
    Global("CbPlayer4DiseasedByCowl","GLOBAL",2)
    GlobalTimerExpired("CbPlayer4DiseasedDay","GLOBAL")
THEN
    RESPONSE #100
        SetGlobalTimer("CbPlayer4DiseasedDay","GLOBAL",ONE_DAY)
        ApplySpell(Player4,WIZARD_COWLED_VD)
        ApplySpell(Player4,WIZARD_COWLED_VD)
END

IF
    HPGT(Player4,12)
    GlobalGT("CbPlayer4DiseasedByCowl","GLOBAL",2)
    GlobalTimerExpired("CbPlayer4DiseasedDay","GLOBAL")
THEN
    RESPONSE #100
        SetGlobalTimer("CbPlayer4DiseasedDay","GLOBAL",ONE_DAY)
        ApplySpell(Player4,WIZARD_COWLED_VD)
        ApplySpell(Player4,WIZARD_COWLED_VD)
        ApplySpell(Player4,WIZARD_COWLED_VD)
END

IF
    HPGT(Player5,10)
    Global("CbPlayer5DiseasedByCowl","GLOBAL",1)
    GlobalTimerExpired("CbPlayer5DiseasedDay","GLOBAL")
THEN
    RESPONSE #100
        SetGlobalTimer("CbPlayer5DiseasedDay","GLOBAL",ONE_DAY)
        ApplySpell(Player5,WIZARD_COWLED_VD)
END

IF
    HPGT(Player5,11)
    Global("CbPlayer5DiseasedByCowl","GLOBAL",2)
    GlobalTimerExpired("CbPlayer5DiseasedDay","GLOBAL")
THEN
    RESPONSE #100
        SetGlobalTimer("CbPlayer5DiseasedDay","GLOBAL",ONE_DAY)
        ApplySpell(Player5,WIZARD_COWLED_VD)
        ApplySpell(Player5,WIZARD_COWLED_VD)
END

IF
    HPGT(Player5,12)
    GlobalGT("CbPlayer5DiseasedByCowl","GLOBAL",2)
    GlobalTimerExpired("CbPlayer5DiseasedDay","GLOBAL")
THEN
    RESPONSE #100
        SetGlobalTimer("CbPlayer5DiseasedDay","GLOBAL",ONE_DAY)
        ApplySpell(Player5,WIZARD_COWLED_VD)
        ApplySpell(Player5,WIZARD_COWLED_VD)
        ApplySpell(Player5,WIZARD_COWLED_VD)
END

IF
    HPGT(Player6,10)
    Global("CbPlayer6DiseasedByCowl","GLOBAL",1)
    GlobalTimerExpired("CbPlayer6DiseasedDay","GLOBAL")
THEN
    RESPONSE #100
        SetGlobalTimer("CbPlayer6DiseasedDay","GLOBAL",ONE_DAY)
        ApplySpell(Player6,WIZARD_COWLED_VD)
END

IF
    HPGT(Player6,11)
    Global("CbPlayer6DiseasedByCowl","GLOBAL",2)
    GlobalTimerExpired("CbPlayer6DiseasedDay","GLOBAL")
THEN
    RESPONSE #100
        SetGlobalTimer("CbPlayer6DiseasedDay","GLOBAL",ONE_DAY)
        ApplySpell(Player6,WIZARD_COWLED_VD)
        ApplySpell(Player6,WIZARD_COWLED_VD)
END

IF
    HPGT(Player6,12)
    GlobalGT("CbPlayer6DiseasedByCowl","GLOBAL",2)
    GlobalTimerExpired("CbPlayer6DiseasedDay","GLOBAL")
THEN
    RESPONSE #100
        SetGlobalTimer("CbPlayer6DiseasedDay","GLOBAL",ONE_DAY)
        ApplySpell(Player6,WIZARD_COWLED_VD)
        ApplySpell(Player6,WIZARD_COWLED_VD)
        ApplySpell(Player6,WIZARD_COWLED_VD)
END

IF
    Global("CBMALR1","GLOBAL",1)
    !Exists("CBMALR1X")
THEN
    RESPONSE #100
        CreateCreatureOffScreen("CBMALR1X",0) // No such index
END

IF
    Global("CBMALR1","GLOBAL",0)
    Exists("CBMALR1X")
THEN
    RESPONSE #100
        ActionOverride("CBMALR1X",DestroySelf())
END

IF
    PartyHasItemIdentified("CBMALR6a") // Todesalb
    GlobalGT("CbMalteseArtifact","GLOBAL",4)
    GlobalGT("SPRITE_IS_DEADCBMALR1","GLOBAL",0)
    Global("CbMalteseJournals","GLOBAL",0)
    OR(3)
        AreaCheck("AR1202")
        AreaCheck("AR1401")
        AreaCheck("AR3570")
THEN
    RESPONSE #100
        SetGlobal("CbMalteseJournals","GLOBAL",1)
        SetGlobal("CbMalteseArtifact","GLOBAL",10)
        AddJournalEntry(78998,QUEST_DONE) // Of Elves and Artifacts  I have found a way to stop the mage Khaddyr from completing his permatration ritual.  What began as an elusive quest with a scared elfwoman is almost complete.  I have recovered the real Crown of Horns, but have not yet decided what should be done with it.  I could keep it, but it's evil would still exist in Faerûn.  Perhaps it would be best if the Crown were destroyed.
        EraseJournalEntry(78999) // Of Elves and Artifacts    I had a lengthy discussion with Eleanor, an elven mage who specializes in scholarly pursuits of ancient artifacts and magical items.  She is quite concerned with the ambitions of a mage who has employed her to research a theory known as permatration; which I had believed was just a myth.  Apparently this mage has come into an artifact which may allow him to perform a permatration ritual, and of course in the process causing widespread destruction.  Eleanor beseeched my aid, and has come up with a plan to foil the evil mage.   She thinks it best to create a duplicate copy of the artifact, one which is harmless.  I do not know if this is a good idea, but if I wish to construct such a counterfeit artifact, she has told me what items I would need to create such a fake.  The items are commonly found, and I would need a diamond, a Potion of Magic Protection, a scroll with the spell Enchanted Weapon, and any item containing greenstone.  If I find these items and want to have Eleanor create a counterfeit, she said she would contact me someplace in Athkatla.   Aside from duplicating the object, Eleanor told me where I could find the mage.  She was told that she could contact him in a dungeon below the Windspear Hills, where he has a laboratory where he conducts his experiements.  If all else fails, I could probably find him there to defeat his attempts to steal the life force of others to earn himself a god-hood.
        EraseJournalEntry(79000) // Of Elves and Artifacts  After leaving the Temple of Waukeen in Trademeet, Eleanor was attacked by the mage she told me about.  He had a few bodyguards with him, but did not need them.  His magic was strong, much to strong for Eleanor, who was killed by the mage in an earnest spell battle for her very life.  I shall honor her sacrifice, and not let it be in vain.
        EraseJournalEntry(79001) // Of Elves and Artifacts  I found the parts that Eleanor told me to collect in order to create a counterfeit Crown of Horns.  I brought them to my friend Cromwell, a master craftsman, but he was unable to create a duplicate.  I shall either have to have him try again, or find some other way of preventing the mage from attempting Permatration.
        EraseJournalEntry(79002) // Of Elves and Artifacts  I found the items that Eleanor had told me about and brought them to my dwarf friend Cromwell.  He was able to create nearly an exact copy of the true Crown of Horns, and I will have to meet up with this mage.  Hopefully he will fall for the ruse.
        EraseJournalEntry(79003) // Of Elves and Artifacts    I had a lengthy discussion with Eleanor, an elven mage who specializes in scholarly pursuits of ancient artifacts and magical items.  She is quite concerned with the ambitions of a mage who has employed her to research a theory known as permatration; which I had believed was just a myth.  Apparently this mage has come into an artifact which may allow him to perform a permatration ritual, and of course in the process causing widespread destruction.  Eleanor beseeched my aid, and has come up with a plan to foil the evil mage.   She thinks it best to create a duplicate copy of the artifact, one which is harmless.  I do not know if this is a good idea, but if I wish to construct such a counterfeit artifact, she has told me what items I would need to create such a fake.  The items are commonly found, and I would need a diamond, a Potion of Magic Protection, a scroll with the spell Enchanted Weapon, and any item containing greenstone.  If I find these items and want to have Eleanor create a counterfeit, she said she would contact me someplace in Athkatla.   Aside from duplicating the object, Eleanor told me where I could find the mage.  She was told that she could contact him in a meadow near the Forest of Tethyr, where he keeps an underground laboratory to conduct his experiements.  If all else fails, I could probably find him there to defeat his attempts to steal the life force of others to earn himself a god-hood.
        EraseJournalEntry(79004) // Of Elves and Artifacts    I had a lengthy discussion with Eleanor, an elven mage who specializes in scholarly pursuits of ancient artifacts and magical items.  She is quite concerned with the ambitions of a mage who has employed her to research a theory known as permatration; which I had believed was just a myth.  Apparently this mage has come into an artifact which may allow him to perform a permatration ritual, and of course in the process causing widespread destruction.  Eleanor beseeched my aid, and has come up with a plan to foil the evil mage.   She thinks it best to create a duplicate copy of the artifact, one which is harmless.  I do not know if this is a good idea, but if I wish to construct such a counterfeit artifact, she has told me what items I would need to create such a fake.  The items are commonly found, and I would need a diamond, a Potion of Magic Protection, a scroll with the spell Enchanted Weapon, and any item containing greenstone.  If I find these items and want to have Eleanor create a counterfeit, she said she would contact me someplace in Athkatla.   Aside from duplicating the object, Eleanor told me where I could find the mage.  She was told that she could contact him in a dungeon near the Umar Hills, where he has a laboratory where he conducts his experiements.  If all else fails, I could probably find him there to defeat his attempts to steal the life force of others to earn himself a god-hood.
        EraseJournalEntry(79005) // Of Elves and Artifacts  I have identified and received the magical message stored within the statuette given to my by an elf in the Bridge District.  The voice, apparently the elf's, was full of fear and terror, though did not yield many clues as to what the adventure that the elf alludes to.  All I know is that the elf woman may be in danger- and she mentions that the Sword Coast could also be in danger- and if I meet her in the Temple of Waukeen in Trademeet, she will try to explain further.  Perhaps I will, but I'd much rather know more about this elf woman first.
        EraseJournalEntry(79006) // Of Elves and Artifacts  While walking through the Bridge District of Athkatla, an elf, whom I do not know, approached me with much trepidation.  She did not say anything, but surreptisiously dropped a small statuette into my pack.  I do not know why, yet I do not know what the properties of the statuette are yet.  I shall have to investigate it, and perhaps the elf may lead me to yet another adventure.
END

IF
    OR(12)
        SpellCast([GOODCUTOFF],WIZARD_EAGLES_SPLENDOR)
        SpellCast([GOODCUTOFF],WIZARD_DECASTAVE)
        SpellCast([GOODCUTOFF],WIZARD_CATS_GRACE)
        SpellCast([GOODCUTOFF],WIZARD_MORDENKAINENS_FORCE_MISSILES)
        SpellCast([GOODCUTOFF],WIZARD_BALL_LIGHTNING)
        SpellCast([GOODCUTOFF],WIZARD_LUTZAENS_FREQUENT_JAUNT)
        SpellCast([GOODCUTOFF],WIZARD_DARTS_OF_BONE)
        SpellCast([GOODCUTOFF],WIZARD_ANTIMAGIC_FIELD)
        SpellCast([GOODCUTOFF],WIZARD_LICH_TOUCH)
        SpellCast([GOODCUTOFF],WIZARD_TROLLISH_FORTITUDE)
        SpellCast([GOODCUTOFF],WIZARD_IRON_BODY)
        SpellCast([GOODCUTOFF],WIZARD_MIND_BLANK)
    Global("CbSelimCreated","GLOBAL",0)
    !Global("CbSelimTurnsEnemy","GLOBAL",1)
    AreaType(DUNGEON)
THEN
    RESPONSE #100
        SetGlobal("CbSelimCreated","GLOBAL",1)
        CreateCreatureOffScreen("CBSELIMS",0) // Selim Sivad
END

IF
    OR(12)
        SpellCast([GOODCUTOFF],WIZARD_EAGLES_SPLENDOR)
        SpellCast([GOODCUTOFF],WIZARD_DECASTAVE)
        SpellCast([GOODCUTOFF],WIZARD_CATS_GRACE)
        SpellCast([GOODCUTOFF],WIZARD_MORDENKAINENS_FORCE_MISSILES)
        SpellCast([GOODCUTOFF],WIZARD_BALL_LIGHTNING)
        SpellCast([GOODCUTOFF],WIZARD_LUTZAENS_FREQUENT_JAUNT)
        SpellCast([GOODCUTOFF],WIZARD_DARTS_OF_BONE)
        SpellCast([GOODCUTOFF],WIZARD_ANTIMAGIC_FIELD)
        SpellCast([GOODCUTOFF],WIZARD_LICH_TOUCH)
        SpellCast([GOODCUTOFF],WIZARD_TROLLISH_FORTITUDE)
        SpellCast([GOODCUTOFF],WIZARD_IRON_BODY)
        SpellCast([GOODCUTOFF],WIZARD_MIND_BLANK)
    Global("CbSelimCreated","GLOBAL",0)
    !Global("CbSelimTurnsEnemy","GLOBAL",1)
    TimeGT(DUSK_END)
    TimeLT(DAWN_START)
THEN
    RESPONSE #100
        SetGlobal("CbSelimCreated","GLOBAL",1)
        CreateCreatureOffScreen("CBSELIMS",0) // Selim Sivad
END

IF
    Global("CbAssassinGotTheDeed","GLOBAL",1)
    !AreaCheck("AR3536")
    !AreaCheck("AR3535")
    !AreaCheck("AR3534")
THEN
    RESPONSE #100
        HideAreaOnMap("AR3534")
        SetGlobal("CbAssassinGotTheDeed","GLOBAL",2)
END

IF
    Global("Cb_CowlsGoEnemy","GLOBAL",2)
    !GlobalTimerNotExpired("CbSpawnPissedCowls","GLOBAL")
THEN
    RESPONSE #100
        SetGlobalTimer("CbSpawnPissedCowls","GLOBAL",TEN_HOURS)
        CreateCreatureObjectDoor("COWENF1",LastTrigger,0,0,0) // Verhüllter Vollstrecker
        CreateCreatureObjectDoor("COWENF3",LastTrigger,0,0,0) // Verhüllter Vollstrecker
        CreateCreatureObjectDoor("COWENF4",LastTrigger,0,0,0) // Verhüllter Vollstrecker
        CreateCreatureObjectDoor("COWENF1",LastTrigger,0,0,0) // Verhüllter Vollstrecker
        CreateCreatureObjectDoor("COWENF3",LastTrigger,0,0,0) // Verhüllter Vollstrecker
        CreateCreatureObjectDoor("COWENF4",LastTrigger,0,0,0) // Verhüllter Vollstrecker
END

IF
    Global("CBBDHELP","GLOBAL",1)
    !Exists("CBBDHELP")
THEN
    RESPONSE #100
        SetGlobal("CBBDHELP","GLOBAL",0)
        CreateCreatureOffScreen("CBBDHELP",0) // Darammareth S'ooloun Crommadar Ammanth Kuleera - Blue Dragon
END

IF
    Global("PlayerHasStronghold","GLOBAL",1)
    Global("CbWeddingQuestStarts","GLOBAL",0)
    LevelGT(Player1,11)
    PartyGoldGT(10000)
    !InParty("Anomen")
    !AreaType(DUNGEON)
    !GlobalGT("KillSaerk","GLOBAL",0)
    !GlobalGT("SaerkPlot","GLOBAL",0)
    !GlobalGT("TalkedCor","GLOBAL",0)
    !GlobalGT("AnomenDecide","GLOBAL",0)
    !GlobalGT("AnomenCor","GLOBAL",0)
THEN
    RESPONSE #100
        CreateCreatureOffScreen("CBSFMESS",0) // Messenger
        SetGlobal("CbWeddingQuestStarts","GLOBAL",1)
END

IF
    GlobalGT("CbWeddingQuestStarts","GLOBAL",0)
    Global("CbCanDoWedding","GLOBAL",0)
    GlobalTimerExpired("CbFarrahdWeddingTimer","GLOBAL")
THEN
    RESPONSE #100
        SetGlobal("CbCanDoWedding","GLOBAL",1)
END

IF
    Global("CbCanDoWedding","GLOBAL",1)
    GlobalTimerExpired("CbFarrahdWeddingOverTimer","GLOBAL")
THEN
    RESPONSE #100
        SetGlobal("CbCanDoWedding","GLOBAL",2)
END

IF
    Global("Cb_DSACK_TakesPlayer1sSkin","GLOBAL",1)
    !StateCheck(Player1,STATE_DISEASED)
THEN
    RESPONSE #100
        ForceSpellRES("CBNOSKIN",Player1) // No such index
END

IF
    Delay(500)
    CombatCounter(0)
    OR(4)
        HasItemEquipedReal("CBMOONP1",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP1b",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP1c",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP1d",Player1) // ElfSapate
THEN
    RESPONSE #10
        DisplayStringHead(Player1,79007) // The seasons change as we stand about.
    RESPONSE #10
        DisplayStringHead(Player1,79008) // I will do my best to keep you out of harm's way.
    RESPONSE #10
        DisplayStringHead(Player1,79009) // May Corellan Lotharian grace our path.
    RESPONSE #10
        DisplayStringHead(Player1,79010) // Take care where you point me.
    RESPONSE #10
        DisplayStringHead(Player1,79011) // The Seldarine judge us all by our actions.
    RESPONSE #10
        DisplayStringHead(Player1,79012) // We are prepared for our task.  Onward we go on behalf of The People.
    RESPONSE #10
        DisplayStringHead(Player1,79013) // I've always thought of you in a special way.
    RESPONSE #10
        DisplayStringHead(Player1,79013) // I've always thought of you in a special way.
    RESPONSE #10
        DisplayStringHead(Player1,79014) // Don't put your unicorn before the horn.
    RESPONSE #10
        DisplayStringHead(Player1,79015) // It is an honor to be one with you.
    RESPONSE #10
        DisplayStringHead(Player1,79016) // I will not take my duties lightly.
    RESPONSE #10
        DisplayStringHead(Player1,79017) // Point the way and we shall do the Seldarine's work here on Faerûn.
    RESPONSE #10
        DisplayStringHead(Player1,79018) // Stand ready and we will not falter in our tasks.
    RESPONSE #10
        DisplayStringHead(Player1,79019) // Without honoring the Seldarine, we cannot hope to accomplish much.
    RESPONSE #10
        DisplayStringHead(Player1,79020) // Sing the praises of the Forest and the Weave, and we shall do no wrong.
END

IF
    Delay(150)
    !CombatCounter(0)
    OR(4)
        HasItemEquipedReal("CBMOONP1",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP1b",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP1c",Player1) // ElfSapate
        HasItemEquipedReal("CBMONP1d",Player1) // ElfSapate
THEN
    RESPONSE #10
        DisplayStringHead(Player1,79021) // Time to trim this one down to size.
    RESPONSE #10
        DisplayStringHead(Player1,79022) // You're about one click away from feeling my blade.
    RESPONSE #10
        DisplayStringHead(Player1,79023) // Rest easy, for death is about to take you.
    RESPONSE #10
        DisplayStringHead(Player1,79024) // Another one soon to be in a grave.
    RESPONSE #10
        DisplayStringHead(Player1,79025) // May the Seldarine have mercy on you.
    RESPONSE #10
        DisplayStringHead(Player1,79026) // May your final journey be a peaceful one.
    RESPONSE #10
        DisplayStringHead(Player1,79027) // Feel my blade!
    RESPONSE #10
        DisplayStringHead(Player1,79028) // For The People!
    RESPONSE #10
        DisplayStringHead(Player1,79029) // We shall not die this day.
    RESPONSE #10
        DisplayStringHead(Player1,79030) // Farewell and may your spirit find peace in the afterlife.
END

IF
    Delay(500)
    CombatCounter(0)
    OR(4)
        HasItemEquipedReal("CBMOONP1",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP1b",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP1c",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP1d",Player2) // ElfSapate
THEN
    RESPONSE #10
        DisplayStringHead(Player2,79007) // The seasons change as we stand about.
    RESPONSE #10
        DisplayStringHead(Player2,79008) // I will do my best to keep you out of harm's way.
    RESPONSE #10
        DisplayStringHead(Player2,79009) // May Corellan Lotharian grace our path.
    RESPONSE #10
        DisplayStringHead(Player2,79010) // Take care where you point me.
    RESPONSE #10
        DisplayStringHead(Player2,79011) // The Seldarine judge us all by our actions.
    RESPONSE #10
        DisplayStringHead(Player2,79012) // We are prepared for our task.  Onward we go on behalf of The People.
    RESPONSE #10
        DisplayStringHead(Player2,79013) // I've always thought of you in a special way.
    RESPONSE #10
        DisplayStringHead(Player2,79013) // I've always thought of you in a special way.
    RESPONSE #10
        DisplayStringHead(Player2,79014) // Don't put your unicorn before the horn.
    RESPONSE #10
        DisplayStringHead(Player2,79015) // It is an honor to be one with you.
    RESPONSE #10
        DisplayStringHead(Player2,79016) // I will not take my duties lightly.
    RESPONSE #10
        DisplayStringHead(Player2,79017) // Point the way and we shall do the Seldarine's work here on Faerûn.
    RESPONSE #10
        DisplayStringHead(Player2,79018) // Stand ready and we will not falter in our tasks.
    RESPONSE #10
        DisplayStringHead(Player2,79019) // Without honoring the Seldarine, we cannot hope to accomplish much.
    RESPONSE #10
        DisplayStringHead(Player2,79020) // Sing the praises of the Forest and the Weave, and we shall do no wrong.
END

IF
    Delay(150)
    !CombatCounter(0)
    OR(4)
        HasItemEquipedReal("CBMOONP1",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP1b",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP1c",Player2) // ElfSapate
        HasItemEquipedReal("CBMONP1d",Player2) // ElfSapate
THEN
    RESPONSE #10
        DisplayStringHead(Player2,79021) // Time to trim this one down to size.
    RESPONSE #10
        DisplayStringHead(Player2,79022) // You're about one click away from feeling my blade.
    RESPONSE #10
        DisplayStringHead(Player2,79023) // Rest easy, for death is about to take you.
    RESPONSE #10
        DisplayStringHead(Player2,79024) // Another one soon to be in a grave.
    RESPONSE #10
        DisplayStringHead(Player2,79025) // May the Seldarine have mercy on you.
    RESPONSE #10
        DisplayStringHead(Player2,79026) // May your final journey be a peaceful one.
    RESPONSE #10
        DisplayStringHead(Player2,79027) // Feel my blade!
    RESPONSE #10
        DisplayStringHead(Player2,79028) // For The People!
    RESPONSE #10
        DisplayStringHead(Player2,79029) // We shall not die this day.
    RESPONSE #10
        DisplayStringHead(Player2,79030) // Farewell and may your spirit find peace in the afterlife.
END

IF
    Delay(500)
    CombatCounter(0)
    OR(4)
        HasItemEquipedReal("CBMOONP1",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP1b",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP1c",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP1d",Player3) // ElfSapate
THEN
    RESPONSE #10
        DisplayStringHead(Player3,79007) // The seasons change as we stand about.
    RESPONSE #10
        DisplayStringHead(Player3,79008) // I will do my best to keep you out of harm's way.
    RESPONSE #10
        DisplayStringHead(Player3,79009) // May Corellan Lotharian grace our path.
    RESPONSE #10
        DisplayStringHead(Player3,79010) // Take care where you point me.
    RESPONSE #10
        DisplayStringHead(Player3,79011) // The Seldarine judge us all by our actions.
    RESPONSE #10
        DisplayStringHead(Player3,79012) // We are prepared for our task.  Onward we go on behalf of The People.
    RESPONSE #10
        DisplayStringHead(Player3,79013) // I've always thought of you in a special way.
    RESPONSE #10
        DisplayStringHead(Player3,79013) // I've always thought of you in a special way.
    RESPONSE #10
        DisplayStringHead(Player3,79014) // Don't put your unicorn before the horn.
    RESPONSE #10
        DisplayStringHead(Player3,79015) // It is an honor to be one with you.
    RESPONSE #10
        DisplayStringHead(Player3,79016) // I will not take my duties lightly.
    RESPONSE #10
        DisplayStringHead(Player3,79017) // Point the way and we shall do the Seldarine's work here on Faerûn.
    RESPONSE #10
        DisplayStringHead(Player3,79018) // Stand ready and we will not falter in our tasks.
    RESPONSE #10
        DisplayStringHead(Player3,79019) // Without honoring the Seldarine, we cannot hope to accomplish much.
    RESPONSE #10
        DisplayStringHead(Player3,79020) // Sing the praises of the Forest and the Weave, and we shall do no wrong.
END

IF
    Delay(150)
    !CombatCounter(0)
    OR(4)
        HasItemEquipedReal("CBMOONP1",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP1b",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP1c",Player3) // ElfSapate
        HasItemEquipedReal("CBMONP1d",Player3) // ElfSapate
THEN
    RESPONSE #10
        DisplayStringHead(Player3,79021) // Time to trim this one down to size.
    RESPONSE #10
        DisplayStringHead(Player3,79022) // You're about one click away from feeling my blade.
    RESPONSE #10
        DisplayStringHead(Player3,79023) // Rest easy, for death is about to take you.
    RESPONSE #10
        DisplayStringHead(Player3,79024) // Another one soon to be in a grave.
    RESPONSE #10
        DisplayStringHead(Player3,79025) // May the Seldarine have mercy on you.
    RESPONSE #10
        DisplayStringHead(Player3,79026) // May your final journey be a peaceful one.
    RESPONSE #10
        DisplayStringHead(Player3,79027) // Feel my blade!
    RESPONSE #10
        DisplayStringHead(Player3,79028) // For The People!
    RESPONSE #10
        DisplayStringHead(Player3,79029) // We shall not die this day.
    RESPONSE #10
        DisplayStringHead(Player3,79030) // Farewell and may your spirit find peace in the afterlife.
END

IF
    Delay(500)
    CombatCounter(0)
    OR(4)
        HasItemEquipedReal("CBMOONP1",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP1b",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP1c",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP1d",Player4) // ElfSapate
THEN
    RESPONSE #10
        DisplayStringHead(Player4,79007) // The seasons change as we stand about.
    RESPONSE #10
        DisplayStringHead(Player4,79008) // I will do my best to keep you out of harm's way.
    RESPONSE #10
        DisplayStringHead(Player4,79009) // May Corellan Lotharian grace our path.
    RESPONSE #10
        DisplayStringHead(Player4,79010) // Take care where you point me.
    RESPONSE #10
        DisplayStringHead(Player4,79011) // The Seldarine judge us all by our actions.
    RESPONSE #10
        DisplayStringHead(Player4,79012) // We are prepared for our task.  Onward we go on behalf of The People.
    RESPONSE #10
        DisplayStringHead(Player4,79013) // I've always thought of you in a special way.
    RESPONSE #10
        DisplayStringHead(Player4,79013) // I've always thought of you in a special way.
    RESPONSE #10
        DisplayStringHead(Player4,79014) // Don't put your unicorn before the horn.
    RESPONSE #10
        DisplayStringHead(Player4,79015) // It is an honor to be one with you.
    RESPONSE #10
        DisplayStringHead(Player4,79016) // I will not take my duties lightly.
    RESPONSE #10
        DisplayStringHead(Player4,79017) // Point the way and we shall do the Seldarine's work here on Faerûn.
    RESPONSE #10
        DisplayStringHead(Player4,79018) // Stand ready and we will not falter in our tasks.
    RESPONSE #10
        DisplayStringHead(Player4,79019) // Without honoring the Seldarine, we cannot hope to accomplish much.
    RESPONSE #10
        DisplayStringHead(Player4,79020) // Sing the praises of the Forest and the Weave, and we shall do no wrong.
END

IF
    Delay(150)
    !CombatCounter(0)
    OR(4)
        HasItemEquipedReal("CBMOONP1",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP1b",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP1c",Player4) // ElfSapate
        HasItemEquipedReal("CBMONP1d",Player4) // ElfSapate
THEN
    RESPONSE #10
        DisplayStringHead(Player4,79021) // Time to trim this one down to size.
    RESPONSE #10
        DisplayStringHead(Player4,79022) // You're about one click away from feeling my blade.
    RESPONSE #10
        DisplayStringHead(Player4,79023) // Rest easy, for death is about to take you.
    RESPONSE #10
        DisplayStringHead(Player4,79024) // Another one soon to be in a grave.
    RESPONSE #10
        DisplayStringHead(Player4,79025) // May the Seldarine have mercy on you.
    RESPONSE #10
        DisplayStringHead(Player4,79026) // May your final journey be a peaceful one.
    RESPONSE #10
        DisplayStringHead(Player4,79027) // Feel my blade!
    RESPONSE #10
        DisplayStringHead(Player4,79028) // For The People!
    RESPONSE #10
        DisplayStringHead(Player4,79029) // We shall not die this day.
    RESPONSE #10
        DisplayStringHead(Player4,79030) // Farewell and may your spirit find peace in the afterlife.
END

IF
    Delay(500)
    CombatCounter(0)
    OR(4)
        HasItemEquipedReal("CBMOONP1",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP1b",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP1c",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP1d",Player5) // ElfSapate
THEN
    RESPONSE #10
        DisplayStringHead(Player5,79007) // The seasons change as we stand about.
    RESPONSE #10
        DisplayStringHead(Player5,79008) // I will do my best to keep you out of harm's way.
    RESPONSE #10
        DisplayStringHead(Player5,79009) // May Corellan Lotharian grace our path.
    RESPONSE #10
        DisplayStringHead(Player5,79010) // Take care where you point me.
    RESPONSE #10
        DisplayStringHead(Player5,79011) // The Seldarine judge us all by our actions.
    RESPONSE #10
        DisplayStringHead(Player5,79012) // We are prepared for our task.  Onward we go on behalf of The People.
    RESPONSE #10
        DisplayStringHead(Player5,79013) // I've always thought of you in a special way.
    RESPONSE #10
        DisplayStringHead(Player5,79013) // I've always thought of you in a special way.
    RESPONSE #10
        DisplayStringHead(Player5,79014) // Don't put your unicorn before the horn.
    RESPONSE #10
        DisplayStringHead(Player5,79015) // It is an honor to be one with you.
    RESPONSE #10
        DisplayStringHead(Player5,79016) // I will not take my duties lightly.
    RESPONSE #10
        DisplayStringHead(Player5,79017) // Point the way and we shall do the Seldarine's work here on Faerûn.
    RESPONSE #10
        DisplayStringHead(Player5,79018) // Stand ready and we will not falter in our tasks.
    RESPONSE #10
        DisplayStringHead(Player5,79019) // Without honoring the Seldarine, we cannot hope to accomplish much.
    RESPONSE #10
        DisplayStringHead(Player5,79020) // Sing the praises of the Forest and the Weave, and we shall do no wrong.
END

IF
    Delay(150)
    !CombatCounter(0)
    OR(4)
        HasItemEquipedReal("CBMOONP1",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP1b",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP1c",Player5) // ElfSapate
        HasItemEquipedReal("CBMONP1d",Player5) // ElfSapate
THEN
    RESPONSE #10
        DisplayStringHead(Player5,79021) // Time to trim this one down to size.
    RESPONSE #10
        DisplayStringHead(Player5,79022) // You're about one click away from feeling my blade.
    RESPONSE #10
        DisplayStringHead(Player5,79023) // Rest easy, for death is about to take you.
    RESPONSE #10
        DisplayStringHead(Player5,79024) // Another one soon to be in a grave.
    RESPONSE #10
        DisplayStringHead(Player5,79025) // May the Seldarine have mercy on you.
    RESPONSE #10
        DisplayStringHead(Player5,79026) // May your final journey be a peaceful one.
    RESPONSE #10
        DisplayStringHead(Player5,79027) // Feel my blade!
    RESPONSE #10
        DisplayStringHead(Player5,79028) // For The People!
    RESPONSE #10
        DisplayStringHead(Player5,79029) // We shall not die this day.
    RESPONSE #10
        DisplayStringHead(Player5,79030) // Farewell and may your spirit find peace in the afterlife.
END

IF
    Delay(500)
    CombatCounter(0)
    OR(4)
        HasItemEquipedReal("CBMOONP1",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP1b",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP1c",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP1d",Player6) // ElfSapate
THEN
    RESPONSE #10
        DisplayStringHead(Player6,79007) // The seasons change as we stand about.
    RESPONSE #10
        DisplayStringHead(Player6,79008) // I will do my best to keep you out of harm's way.
    RESPONSE #10
        DisplayStringHead(Player6,79009) // May Corellan Lotharian grace our path.
    RESPONSE #10
        DisplayStringHead(Player6,79010) // Take care where you point me.
    RESPONSE #10
        DisplayStringHead(Player6,79011) // The Seldarine judge us all by our actions.
    RESPONSE #10
        DisplayStringHead(Player6,79012) // We are prepared for our task.  Onward we go on behalf of The People.
    RESPONSE #10
        DisplayStringHead(Player6,79013) // I've always thought of you in a special way.
    RESPONSE #10
        DisplayStringHead(Player6,79013) // I've always thought of you in a special way.
    RESPONSE #10
        DisplayStringHead(Player6,79014) // Don't put your unicorn before the horn.
    RESPONSE #10
        DisplayStringHead(Player6,79015) // It is an honor to be one with you.
    RESPONSE #10
        DisplayStringHead(Player6,79016) // I will not take my duties lightly.
    RESPONSE #10
        DisplayStringHead(Player6,79017) // Point the way and we shall do the Seldarine's work here on Faerûn.
    RESPONSE #10
        DisplayStringHead(Player6,79018) // Stand ready and we will not falter in our tasks.
    RESPONSE #10
        DisplayStringHead(Player6,79019) // Without honoring the Seldarine, we cannot hope to accomplish much.
    RESPONSE #10
        DisplayStringHead(Player6,79020) // Sing the praises of the Forest and the Weave, and we shall do no wrong.
END

IF
    Delay(150)
    !CombatCounter(0)
    OR(4)
        HasItemEquipedReal("CBMOONP1",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP1b",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP1c",Player6) // ElfSapate
        HasItemEquipedReal("CBMONP1d",Player6) // ElfSapate
THEN
    RESPONSE #10
        DisplayStringHead(Player6,79021) // Time to trim this one down to size.
    RESPONSE #10
        DisplayStringHead(Player6,79022) // You're about one click away from feeling my blade.
    RESPONSE #10
        DisplayStringHead(Player6,79023) // Rest easy, for death is about to take you.
    RESPONSE #10
        DisplayStringHead(Player6,79024) // Another one soon to be in a grave.
    RESPONSE #10
        DisplayStringHead(Player6,79025) // May the Seldarine have mercy on you.
    RESPONSE #10
        DisplayStringHead(Player6,79026) // May your final journey be a peaceful one.
    RESPONSE #10
        DisplayStringHead(Player6,79027) // Feel my blade!
    RESPONSE #10
        DisplayStringHead(Player6,79028) // For The People!
    RESPONSE #10
        DisplayStringHead(Player6,79029) // We shall not die this day.
    RESPONSE #10
        DisplayStringHead(Player6,79030) // Farewell and may your spirit find peace in the afterlife.
END

IF
    OR(6)
        HasItemEquiped("CBMALR6A",Player1) // Todesalb
        HasItemEquiped("CBMALR6A",Player2) // Todesalb
        HasItemEquiped("CBMALR6A",Player3) // Todesalb
        HasItemEquiped("CBMALR6A",Player4) // Todesalb
        HasItemEquiped("CBMALR6A",Player5) // Todesalb
        HasItemEquiped("CBMALR6A",Player6) // Todesalb
THEN
    RESPONSE #100
        TakeItemReplace("CBMALR6C","CBMALR6A",LastTrigger) // Crown of Horns
END

IF
    Global("UseSmith","GLOBAL",1)
THEN
    RESPONSE #100
        CreateCreatureObject("botsmith",Player1,0,0,0) // Cespenar
        SetGlobal("UseSmith","GLOBAL",0)
END

IF
    Dead("gromnir") // Gromnir Il-Khan
    Global("DeathOfGromnir","GLOBAL",0)
    CombatCounter(0)
    !AreaCheck("AR4500")
THEN
    RESPONSE #100
        ClearAllActions()
        StartCutSceneMode()
        SetGlobal("DeathOfGromnir","GLOBAL",1)
        CreateCreatureObject("MEL01",Player1,0,0,0) // Melissan
        Wait(1)
        PlaySong(79)
        ActionOverride("mel01",StartDialogueNoSet(Player1))
        EndCutSceneMode()
END

IF
    Global("fampsd","GLOBAL",1)
    GlobalGT("Chapter","GLOBAL",7)
THEN
    RESPONSE #100
        SetGlobal("fampsd","GLOBAL",0)
        MoveGlobalObject("fampsd25",Player1)
END

IF
    Global("famfer","GLOBAL",1)
    GlobalGT("Chapter","GLOBAL",7)
THEN
    RESPONSE #100
        SetGlobal("famfer","GLOBAL",0)
        MoveGlobalObject("famfer25",Player1)
END

IF
    Global("famimp","GLOBAL",1)
    GlobalGT("Chapter","GLOBAL",7)
THEN
    RESPONSE #100
        SetGlobal("famimp","GLOBAL",0)
        MoveGlobalObject("famimp25",Player1)
END

IF
    Global("famrab","GLOBAL",1)
    GlobalGT("Chapter","GLOBAL",7)
THEN
    RESPONSE #100
        SetGlobal("famrab","GLOBAL",0)
        MoveGlobalObject("famrab25",Player1)
END

IF
    Global("famdust","GLOBAL",1)
    GlobalGT("Chapter","GLOBAL",7)
THEN
    RESPONSE #100
        SetGlobal("famdust","GLOBAL",0)
        MoveGlobalObject("famdus25",Player1)
END

IF
    Global("famfair","GLOBAL",1)
    GlobalGT("Chapter","GLOBAL",7)
THEN
    RESPONSE #100
        SetGlobal("famfair","GLOBAL",0)
        MoveGlobalObject("famfai25",Player1)
END

IF
    Global("famcat","GLOBAL",1)
    GlobalGT("Chapter","GLOBAL",7)
THEN
    RESPONSE #100
        SetGlobal("famcat","GLOBAL",0)
        MoveGlobalObject("famcat25",Player1)
END

IF
    Global("famquas","GLOBAL",1)
    GlobalGT("Chapter","GLOBAL",7)
THEN
    RESPONSE #100
        SetGlobal("famquas","GLOBAL",0)
        MoveGlobalObject("famqua25",Player1)
END

IF
    Global("CbHideArea602","GLOBAL",0)
    GlobalGT("GaelanMove","GLOBAL",2)
THEN
    RESPONSE #100
        SetGlobal("CbHideArea602","GLOBAL",1)
        HideAreaOnMap("AR0602")
END

IF
    Global("CB0800AA","GLOBAL",1)
    !AreaCheck("AR1500")
    !AreaCheck("AR1501")
    !AreaCheck("AR1502")
    !AreaCheck("AR1503")
    !AreaCheck("AR1504")
    !AreaCheck("AR1505")
    !AreaCheck("AR1506")
    !AreaCheck("AR1507")
    !AreaCheck("AR1508")
    !AreaCheck("AR1509")
    !AreaCheck("AR1510")
    !AreaCheck("AR1511")
    !AreaCheck("AR1512")
    !AreaCheck("AR1513")
    !AreaCheck("AR1514")
    !AreaCheck("AR1515")
    !AreaCheck("AR1516")
    !AreaCheck("AR1600")
    !AreaCheck("AR1601")
    !AreaCheck("AR1602")
    !AreaCheck("AR1603")
    !AreaCheck("AR1604")
    !AreaCheck("AR1605")
    !AreaCheck("AR1606")
    !AreaCheck("AR1607")
    !AreaCheck("AR1608")
    !AreaCheck("AR1609")
    !AreaCheck("AR1610")
    !AreaCheck("AR1611")
    !AreaCheck("AR1612")
    !AreaCheck("AR1613")
    !AreaCheck("AR2100")
    !AreaCheck("AR2101")
    !AreaCheck("AR2102")
    !AreaCheck("AR2200")
    !AreaCheck("AR2201")
    !AreaCheck("AR2202")
    !AreaCheck("AR2203")
    !AreaCheck("AR2204")
    !AreaCheck("AR2205")
    !AreaCheck("AR2206")
    !AreaCheck("AR2207")
    !AreaCheck("AR2208")
    !AreaCheck("AR2209")
    !AreaCheck("AR2210")
    !AreaCheck("AR2300")
    !AreaCheck("AR2400")
    !AreaCheck("AR2401")
    !AreaCheck("AR2402")
THEN
    RESPONSE #100
        ClearAllActions()
        StartCutSceneMode()
        StartCutScene("CBMALR1A")
END

IF
    Global("CB0500AA","GLOBAL",1)
    !AreaCheck("AR1500")
    !AreaCheck("AR1501")
    !AreaCheck("AR1502")
    !AreaCheck("AR1503")
    !AreaCheck("AR1504")
    !AreaCheck("AR1505")
    !AreaCheck("AR1506")
    !AreaCheck("AR1507")
    !AreaCheck("AR1508")
    !AreaCheck("AR1509")
    !AreaCheck("AR1510")
    !AreaCheck("AR1511")
    !AreaCheck("AR1512")
    !AreaCheck("AR1513")
    !AreaCheck("AR1514")
    !AreaCheck("AR1515")
    !AreaCheck("AR1516")
    !AreaCheck("AR1600")
    !AreaCheck("AR1601")
    !AreaCheck("AR1602")
    !AreaCheck("AR1603")
    !AreaCheck("AR1604")
    !AreaCheck("AR1605")
    !AreaCheck("AR1606")
    !AreaCheck("AR1607")
    !AreaCheck("AR1608")
    !AreaCheck("AR1609")
    !AreaCheck("AR1610")
    !AreaCheck("AR1611")
    !AreaCheck("AR1612")
    !AreaCheck("AR1613")
    !AreaCheck("AR2100")
    !AreaCheck("AR2101")
    !AreaCheck("AR2102")
    !AreaCheck("AR2200")
    !AreaCheck("AR2201")
    !AreaCheck("AR2202")
    !AreaCheck("AR2203")
    !AreaCheck("AR2204")
    !AreaCheck("AR2205")
    !AreaCheck("AR2206")
    !AreaCheck("AR2207")
    !AreaCheck("AR2208")
    !AreaCheck("AR2209")
    !AreaCheck("AR2210")
    !AreaCheck("AR2300")
    !AreaCheck("AR2400")
    !AreaCheck("AR2401")
    !AreaCheck("AR2402")
THEN
    RESPONSE #100
        ClearAllActions()
        StartCutSceneMode()
        StartCutScene("CBMALR1B")
END

IF
    Global("CB0400AA","GLOBAL",1)
    !AreaCheck("AR1500")
    !AreaCheck("AR1501")
    !AreaCheck("AR1502")
    !AreaCheck("AR1503")
    !AreaCheck("AR1504")
    !AreaCheck("AR1505")
    !AreaCheck("AR1506")
    !AreaCheck("AR1507")
    !AreaCheck("AR1508")
    !AreaCheck("AR1509")
    !AreaCheck("AR1510")
    !AreaCheck("AR1511")
    !AreaCheck("AR1512")
    !AreaCheck("AR1513")
    !AreaCheck("AR1514")
    !AreaCheck("AR1515")
    !AreaCheck("AR1516")
    !AreaCheck("AR1600")
    !AreaCheck("AR1601")
    !AreaCheck("AR1602")
    !AreaCheck("AR1603")
    !AreaCheck("AR1604")
    !AreaCheck("AR1605")
    !AreaCheck("AR1606")
    !AreaCheck("AR1607")
    !AreaCheck("AR1608")
    !AreaCheck("AR1609")
    !AreaCheck("AR1610")
    !AreaCheck("AR1611")
    !AreaCheck("AR1612")
    !AreaCheck("AR1613")
    !AreaCheck("AR2100")
    !AreaCheck("AR2101")
    !AreaCheck("AR2102")
    !AreaCheck("AR2200")
    !AreaCheck("AR2201")
    !AreaCheck("AR2202")
    !AreaCheck("AR2203")
    !AreaCheck("AR2204")
    !AreaCheck("AR2205")
    !AreaCheck("AR2206")
    !AreaCheck("AR2207")
    !AreaCheck("AR2208")
    !AreaCheck("AR2209")
    !AreaCheck("AR2210")
    !AreaCheck("AR2300")
    !AreaCheck("AR2400")
    !AreaCheck("AR2401")
    !AreaCheck("AR2402")
THEN
    RESPONSE #100
        ClearAllActions()
        StartCutSceneMode()
        StartCutScene("CBMALR1C")
END

IF
    Global("CB0700AA","GLOBAL",1)
    !AreaCheck("AR1500")
    !AreaCheck("AR1501")
    !AreaCheck("AR1502")
    !AreaCheck("AR1503")
    !AreaCheck("AR1504")
    !AreaCheck("AR1505")
    !AreaCheck("AR1506")
    !AreaCheck("AR1507")
    !AreaCheck("AR1508")
    !AreaCheck("AR1509")
    !AreaCheck("AR1510")
    !AreaCheck("AR1511")
    !AreaCheck("AR1512")
    !AreaCheck("AR1513")
    !AreaCheck("AR1514")
    !AreaCheck("AR1515")
    !AreaCheck("AR1516")
    !AreaCheck("AR1600")
    !AreaCheck("AR1601")
    !AreaCheck("AR1602")
    !AreaCheck("AR1603")
    !AreaCheck("AR1604")
    !AreaCheck("AR1605")
    !AreaCheck("AR1606")
    !AreaCheck("AR1607")
    !AreaCheck("AR1608")
    !AreaCheck("AR1609")
    !AreaCheck("AR1610")
    !AreaCheck("AR1611")
    !AreaCheck("AR1612")
    !AreaCheck("AR1613")
    !AreaCheck("AR2100")
    !AreaCheck("AR2101")
    !AreaCheck("AR2102")
    !AreaCheck("AR2200")
    !AreaCheck("AR2201")
    !AreaCheck("AR2202")
    !AreaCheck("AR2203")
    !AreaCheck("AR2204")
    !AreaCheck("AR2205")
    !AreaCheck("AR2206")
    !AreaCheck("AR2207")
    !AreaCheck("AR2208")
    !AreaCheck("AR2209")
    !AreaCheck("AR2210")
    !AreaCheck("AR2300")
    !AreaCheck("AR2400")
    !AreaCheck("AR2401")
    !AreaCheck("AR2402")
THEN
    RESPONSE #100
        ClearAllActions()
        StartCutSceneMode()
        StartCutScene("CBMALR1D")
END

IF
    Global("CB0300AA","GLOBAL",1)
    !AreaCheck("AR1500")
    !AreaCheck("AR1501")
    !AreaCheck("AR1502")
    !AreaCheck("AR1503")
    !AreaCheck("AR1504")
    !AreaCheck("AR1505")
    !AreaCheck("AR1506")
    !AreaCheck("AR1507")
    !AreaCheck("AR1508")
    !AreaCheck("AR1509")
    !AreaCheck("AR1510")
    !AreaCheck("AR1511")
    !AreaCheck("AR1512")
    !AreaCheck("AR1513")
    !AreaCheck("AR1514")
    !AreaCheck("AR1515")
    !AreaCheck("AR1516")
    !AreaCheck("AR1600")
    !AreaCheck("AR1601")
    !AreaCheck("AR1602")
    !AreaCheck("AR1603")
    !AreaCheck("AR1604")
    !AreaCheck("AR1605")
    !AreaCheck("AR1606")
    !AreaCheck("AR1607")
    !AreaCheck("AR1608")
    !AreaCheck("AR1609")
    !AreaCheck("AR1610")
    !AreaCheck("AR1611")
    !AreaCheck("AR1612")
    !AreaCheck("AR1613")
    !AreaCheck("AR2100")
    !AreaCheck("AR2101")
    !AreaCheck("AR2102")
    !AreaCheck("AR2200")
    !AreaCheck("AR2201")
    !AreaCheck("AR2202")
    !AreaCheck("AR2203")
    !AreaCheck("AR2204")
    !AreaCheck("AR2205")
    !AreaCheck("AR2206")
    !AreaCheck("AR2207")
    !AreaCheck("AR2208")
    !AreaCheck("AR2209")
    !AreaCheck("AR2210")
    !AreaCheck("AR2300")
    !AreaCheck("AR2400")
    !AreaCheck("AR2401")
    !AreaCheck("AR2402")
THEN
    RESPONSE #100
        ClearAllActions()
        StartCutSceneMode()
        StartCutScene("CBMALR1E")
END

IF
    Global("CB0020AA","GLOBAL",1)
    !AreaCheck("AR1500")
    !AreaCheck("AR1501")
    !AreaCheck("AR1502")
    !AreaCheck("AR1503")
    !AreaCheck("AR1504")
    !AreaCheck("AR1505")
    !AreaCheck("AR1506")
    !AreaCheck("AR1507")
    !AreaCheck("AR1508")
    !AreaCheck("AR1509")
    !AreaCheck("AR1510")
    !AreaCheck("AR1511")
    !AreaCheck("AR1512")
    !AreaCheck("AR1513")
    !AreaCheck("AR1514")
    !AreaCheck("AR1515")
    !AreaCheck("AR1516")
    !AreaCheck("AR1600")
    !AreaCheck("AR1601")
    !AreaCheck("AR1602")
    !AreaCheck("AR1603")
    !AreaCheck("AR1604")
    !AreaCheck("AR1605")
    !AreaCheck("AR1606")
    !AreaCheck("AR1607")
    !AreaCheck("AR1608")
    !AreaCheck("AR1609")
    !AreaCheck("AR1610")
    !AreaCheck("AR1611")
    !AreaCheck("AR1612")
    !AreaCheck("AR1613")
    !AreaCheck("AR2100")
    !AreaCheck("AR2101")
    !AreaCheck("AR2102")
    !AreaCheck("AR2200")
    !AreaCheck("AR2201")
    !AreaCheck("AR2202")
    !AreaCheck("AR2203")
    !AreaCheck("AR2204")
    !AreaCheck("AR2205")
    !AreaCheck("AR2206")
    !AreaCheck("AR2207")
    !AreaCheck("AR2208")
    !AreaCheck("AR2209")
    !AreaCheck("AR2210")
    !AreaCheck("AR2300")
    !AreaCheck("AR2400")
    !AreaCheck("AR2401")
    !AreaCheck("AR2402")
THEN
    RESPONSE #100
        ClearAllActions()
        StartCutSceneMode()
        StartCutScene("CBMALR1F")
END

IF
    Global("CB0900AA","GLOBAL",1)
    !AreaCheck("AR1500")
    !AreaCheck("AR1501")
    !AreaCheck("AR1502")
    !AreaCheck("AR1503")
    !AreaCheck("AR1504")
    !AreaCheck("AR1505")
    !AreaCheck("AR1506")
    !AreaCheck("AR1507")
    !AreaCheck("AR1508")
    !AreaCheck("AR1509")
    !AreaCheck("AR1510")
    !AreaCheck("AR1511")
    !AreaCheck("AR1512")
    !AreaCheck("AR1513")
    !AreaCheck("AR1514")
    !AreaCheck("AR1515")
    !AreaCheck("AR1516")
    !AreaCheck("AR1600")
    !AreaCheck("AR1601")
    !AreaCheck("AR1602")
    !AreaCheck("AR1603")
    !AreaCheck("AR1604")
    !AreaCheck("AR1605")
    !AreaCheck("AR1606")
    !AreaCheck("AR1607")
    !AreaCheck("AR1608")
    !AreaCheck("AR1609")
    !AreaCheck("AR1610")
    !AreaCheck("AR1611")
    !AreaCheck("AR1612")
    !AreaCheck("AR1613")
    !AreaCheck("AR2100")
    !AreaCheck("AR2101")
    !AreaCheck("AR2102")
    !AreaCheck("AR2200")
    !AreaCheck("AR2201")
    !AreaCheck("AR2202")
    !AreaCheck("AR2203")
    !AreaCheck("AR2204")
    !AreaCheck("AR2205")
    !AreaCheck("AR2206")
    !AreaCheck("AR2207")
    !AreaCheck("AR2208")
    !AreaCheck("AR2209")
    !AreaCheck("AR2210")
    !AreaCheck("AR2300")
    !AreaCheck("AR2400")
    !AreaCheck("AR2401")
    !AreaCheck("AR2402")
THEN
    RESPONSE #100
        ClearAllActions()
        StartCutSceneMode()
        StartCutScene("CBMALR1G")
END

IF
    Global("CB1000AA","GLOBAL",1)
    !AreaCheck("AR1500")
    !AreaCheck("AR1501")
    !AreaCheck("AR1502")
    !AreaCheck("AR1503")
    !AreaCheck("AR1504")
    !AreaCheck("AR1505")
    !AreaCheck("AR1506")
    !AreaCheck("AR1507")
    !AreaCheck("AR1508")
    !AreaCheck("AR1509")
    !AreaCheck("AR1510")
    !AreaCheck("AR1511")
    !AreaCheck("AR1512")
    !AreaCheck("AR1513")
    !AreaCheck("AR1514")
    !AreaCheck("AR1515")
    !AreaCheck("AR1516")
    !AreaCheck("AR1600")
    !AreaCheck("AR1601")
    !AreaCheck("AR1602")
    !AreaCheck("AR1603")
    !AreaCheck("AR1604")
    !AreaCheck("AR1605")
    !AreaCheck("AR1606")
    !AreaCheck("AR1607")
    !AreaCheck("AR1608")
    !AreaCheck("AR1609")
    !AreaCheck("AR1610")
    !AreaCheck("AR1611")
    !AreaCheck("AR1612")
    !AreaCheck("AR1613")
    !AreaCheck("AR2100")
    !AreaCheck("AR2101")
    !AreaCheck("AR2102")
    !AreaCheck("AR2200")
    !AreaCheck("AR2201")
    !AreaCheck("AR2202")
    !AreaCheck("AR2203")
    !AreaCheck("AR2204")
    !AreaCheck("AR2205")
    !AreaCheck("AR2206")
    !AreaCheck("AR2207")
    !AreaCheck("AR2208")
    !AreaCheck("AR2209")
    !AreaCheck("AR2210")
    !AreaCheck("AR2300")
    !AreaCheck("AR2400")
    !AreaCheck("AR2401")
    !AreaCheck("AR2402")
THEN
    RESPONSE #100
        ClearAllActions()
        StartCutSceneMode()
        StartCutScene("CBMALR1H")
END

IF
    OR(49)
        AreaCheck("AR1500")
        AreaCheck("AR1501")
        AreaCheck("AR1502")
        AreaCheck("AR1503")
        AreaCheck("AR1504")
        AreaCheck("AR1505")
        AreaCheck("AR1506")
        AreaCheck("AR1507")
        AreaCheck("AR1508")
        AreaCheck("AR1509")
        AreaCheck("AR1510")
        AreaCheck("AR1511")
        AreaCheck("AR1512")
        AreaCheck("AR1513")
        AreaCheck("AR1514")
        AreaCheck("AR1515")
        AreaCheck("AR1516")
        AreaCheck("AR1600")
        AreaCheck("AR1601")
        AreaCheck("AR1602")
        AreaCheck("AR1603")
        AreaCheck("AR1604")
        AreaCheck("AR1605")
        AreaCheck("AR1606")
        AreaCheck("AR1607")
        AreaCheck("AR1608")
        AreaCheck("AR1609")
        AreaCheck("AR1610")
        AreaCheck("AR1611")
        AreaCheck("AR1612")
        AreaCheck("AR1613")
        AreaCheck("AR2100")
        AreaCheck("AR2101")
        AreaCheck("AR2102")
        AreaCheck("AR2200")
        AreaCheck("AR2201")
        AreaCheck("AR2202")
        AreaCheck("AR2203")
        AreaCheck("AR2204")
        AreaCheck("AR2205")
        AreaCheck("AR2206")
        AreaCheck("AR2207")
        AreaCheck("AR2208")
        AreaCheck("AR2209")
        AreaCheck("AR2210")
        AreaCheck("AR2300")
        AreaCheck("AR2400")
        AreaCheck("AR2401")
        AreaCheck("AR2402")
    OR(8)
        Global("CB0800AA","GLOBAL",1)
        Global("CB0500AA","GLOBAL",1)
        Global("CB0400AA","GLOBAL",1)
        Global("CB0700AA","GLOBAL",1)
        Global("CB0300AA","GLOBAL",1)
        Global("CB0020AA","GLOBAL",1)
        Global("CB0900AA","GLOBAL",1)
        Global("CB1000AA","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CB0800AA","GLOBAL",0)
        SetGlobal("CB0500AA","GLOBAL",0)
        SetGlobal("CB0400AA","GLOBAL",0)
        SetGlobal("CB0700AA","GLOBAL",0)
        SetGlobal("CB0300AA","GLOBAL",0)
        SetGlobal("CB0020AA","GLOBAL",0)
        SetGlobal("CB0900AA","GLOBAL",0)
        SetGlobal("CB1000AA","GLOBAL",0)
END

IF
    Global("CbCharlotteAndNaliaGirlTalk","GLOBAL",0)
    Global("CbCharlotteAndNaliaMeet","GLOBAL",5)
    GlobalTimerExpired("CbCharlotteAndNaliaSecond","GLOBAL")
    InParty("CHARLOTT")
    InParty("NALIA")
    TimeGT(8)
    TimeLT(DUSK_START)
    CombatCounter(0)
    AreaType(OUTDOOR)
    !StateCheck("CHARLOTT",STATE_SLEEPING)
    !StateCheck("NALIA",STATE_SLEEPING)
    !StateCheck("Player1",STATE_SLEEPING)
THEN
    RESPONSE #100
        ActionOverride("NALIA",StartDialogueNoSet("CHARLOTT"))
END

IF
    Global("CbCharlotteAndNaliaGirlTalk","GLOBAL",32)
    GlobalTimerExpired("CbCharlotteAndNaliaFourthBanter","GLOBAL")
    InParty("CHARLOTT")
    InParty("NALIA")
    !AreaType(DUNGEON)
    CombatCounter(0)
    !StateCheck("CHARLOTT",STATE_SLEEPING)
    !StateCheck("NALIA",STATE_SLEEPING)
    !StateCheck(Player1,STATE_SLEEPING)
THEN
    RESPONSE #100
        ActionOverride("CHARLOTT",StartDialogueNoSet("NALIA"))
END

IF
    Global("CbCharlotteAndNaliaGirlTalk","GLOBAL",14)
    GlobalTimerExpired("CbCharlotteAndNaliaThirdBanter","GLOBAL")
    InParty("CHARLOTT")
    InParty("NALIA")
    TimeGT(MIDNIGHT)
    TimeLT(DAWN_START)
    !AreaType(DUNGEON)
    CombatCounter(0)
    !StateCheck("CHARLOTT",STATE_SLEEPING)
    !StateCheck("NALIA",STATE_SLEEPING)
    !StateCheck(Player1,STATE_SLEEPING)
THEN
    RESPONSE #100
        ActionOverride("CHARLOTT",StartDialogueNoSet("NALIA"))
END

IF
    Global("CbPartyInvestigatesLeads","GLOBAL",2)
    Global("CbOneSpyDown","GLOBAL",6)
THEN
    RESPONSE #100
        SetGlobal("CbPartyInvestigatesLeads","GLOBAL",3)
END

IF
    Global("CbPartyInvestigatesLeads","GLOBAL",3)
    Global("CbSpyIsNotWinthrop","GLOBAL",1)
    Global("CbSpyIsNotCharlie","GLOBAL",1)
    Global("CbSpyIsNotFighter","GLOBAL",1)
    Global("CbSpyIsNotMiller","GLOBAL",1)
    Global("CbSpyIsNotRanger","GLOBAL",1)
    Global("CbSpyIsNotMayor","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPartyInvestigatesLeads","GLOBAL",4)
        SetGlobal("CbSpyIs_SSC","GLOBAL",1)
END

IF
    Global("CbPartyInvestigatesLeads","GLOBAL",3)
    Global("CbSpyIsNotSSC","GLOBAL",1)
    Global("CbSpyIsNotCharlie","GLOBAL",1)
    Global("CbSpyIsNotFighter","GLOBAL",1)
    Global("CbSpyIsNotMiller","GLOBAL",1)
    Global("CbSpyIsNotRanger","GLOBAL",1)
    Global("CbSpyIsNotMayor","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPartyInvestigatesLeads","GLOBAL",4)
        SetGlobal("CbSpyIs_Winthrop","GLOBAL",1)
END

IF
    Global("CbPartyInvestigatesLeads","GLOBAL",3)
    Global("CbSpyIsNotSSC","GLOBAL",1)
    Global("CbSpyIsNotWinthrop","GLOBAL",1)
    Global("CbSpyIsNotFighter","GLOBAL",1)
    Global("CbSpyIsNotMiller","GLOBAL",1)
    Global("CbSpyIsNotRanger","GLOBAL",1)
    Global("CbSpyIsNotMayor","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPartyInvestigatesLeads","GLOBAL",4)
        SetGlobal("CbSpyIs_Charlie","GLOBAL",1)
END

IF
    Global("CbPartyInvestigatesLeads","GLOBAL",3)
    Global("CbSpyIsNotSSC","GLOBAL",1)
    Global("CbSpyIsNotWinthrop","GLOBAL",1)
    Global("CbSpyIsNotCharlie","GLOBAL",1)
    Global("CbSpyIsNotMiller","GLOBAL",1)
    Global("CbSpyIsNotRanger","GLOBAL",1)
    Global("CbSpyIsNotMayor","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPartyInvestigatesLeads","GLOBAL",4)
        SetGlobal("CbSpyIs_Fighter","GLOBAL",1)
END

IF
    Global("CbPartyInvestigatesLeads","GLOBAL",3)
    Global("CbSpyIsNotSSC","GLOBAL",1)
    Global("CbSpyIsNotWinthrop","GLOBAL",1)
    Global("CbSpyIsNotCharlie","GLOBAL",1)
    Global("CbSpyIsNotFighter","GLOBAL",1)
    Global("CbSpyIsNotRanger","GLOBAL",1)
    Global("CbSpyIsNotMayor","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPartyInvestigatesLeads","GLOBAL",4)
        SetGlobal("CbSpyIs_Miller","GLOBAL",1)
END

IF
    Global("CbPartyInvestigatesLeads","GLOBAL",3)
    Global("CbSpyIsNotSSC","GLOBAL",1)
    Global("CbSpyIsNotWinthrop","GLOBAL",1)
    Global("CbSpyIsNotCharlie","GLOBAL",1)
    Global("CbSpyIsNotFighter","GLOBAL",1)
    Global("CbSpyIsNotMiller","GLOBAL",1)
    Global("CbSpyIsNotMayor","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPartyInvestigatesLeads","GLOBAL",4)
        SetGlobal("CbSpyIs_Ranger","GLOBAL",1)
END

IF
    Global("CbPartyInvestigatesLeads","GLOBAL",3)
    Global("CbSpyIsNotSSC","GLOBAL",1)
    Global("CbSpyIsNotWinthrop","GLOBAL",1)
    Global("CbSpyIsNotCharlie","GLOBAL",1)
    Global("CbSpyIsNotFighter","GLOBAL",1)
    Global("CbSpyIsNotMiller","GLOBAL",1)
    Global("CbSpyIsNotRanger","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPartyInvestigatesLeads","GLOBAL",4)
        SetGlobal("CbSpyIs_Mayor","GLOBAL",1)
END

IF
    Alignment(Player1,MASK_EVIL)
    HasItem("CDHLYSYM",Player1) // No such index
THEN
    RESPONSE #100
        ApplySpellRES("CDHLYSY2",Player1) // By Torm, you don't sound too pleased about it though.  <CHARNAME>, what's the old Major up to these days?
        TakeItemReplace("BELT14","CDHLYSYM",Player1) // No such index
END

IF
    Alignment(Player2,MASK_EVIL)
    HasItem("CDHLYSYM",Player2) // No such index
THEN
    RESPONSE #100
        ApplySpellRES("CDHLYSY2",Player2) // By Torm, you don't sound too pleased about it though.  <CHARNAME>, what's the old Major up to these days?
        TakeItemReplace("BELT14","CDHLYSYM",Player2) // No such index
END

IF
    Alignment(Player3,MASK_EVIL)
    HasItem("CDHLYSYM",Player3) // No such index
THEN
    RESPONSE #100
        ApplySpellRES("CDHLYSY2",Player3) // By Torm, you don't sound too pleased about it though.  <CHARNAME>, what's the old Major up to these days?
        TakeItemReplace("BELT14","CDHLYSYM",Player3) // No such index
END

IF
    Alignment(Player4,MASK_EVIL)
    HasItem("CDHLYSYM",Player4) // No such index
THEN
    RESPONSE #100
        ApplySpellRES("CDHLYSY2",Player4) // By Torm, you don't sound too pleased about it though.  <CHARNAME>, what's the old Major up to these days?
        TakeItemReplace("BELT14","CDHLYSYM",Player4) // No such index
END

IF
    Alignment(Player5,MASK_EVIL)
    HasItem("CDHLYSYM",Player5) // No such index
THEN
    RESPONSE #100
        ApplySpellRES("CDHLYSY2",Player5) // By Torm, you don't sound too pleased about it though.  <CHARNAME>, what's the old Major up to these days?
        TakeItemReplace("BELT14","CDHLYSYM",Player5) // No such index
END

IF
    Alignment(Player6,MASK_EVIL)
    HasItem("CDHLYSYM",Player6) // No such index
THEN
    RESPONSE #100
        ApplySpellRES("CDHLYSY2",Player6) // By Torm, you don't sound too pleased about it though.  <CHARNAME>, what's the old Major up to these days?
        TakeItemReplace("BELT14","CDHLYSYM",Player6) // No such index
END

IF
    Alignment(Player1,MASK_GENEUTRAL)
    HasItem("CDHLYSYM",Player1) // No such index
THEN
    RESPONSE #100
        ApplySpellRES("CDHLYSY2",Player1) // By Torm, you don't sound too pleased about it though.  <CHARNAME>, what's the old Major up to these days?
        TakeItemReplace("BELT13","CDHLYSYM",Player1) // No such index
END

IF
    Alignment(Player2,MASK_GENEUTRAL)
    HasItem("CDHLYSYM",Player2) // No such index
THEN
    RESPONSE #100
        ApplySpellRES("CDHLYSY2",Player2) // By Torm, you don't sound too pleased about it though.  <CHARNAME>, what's the old Major up to these days?
        TakeItemReplace("BELT13","CDHLYSYM",Player2) // No such index
END

IF
    Alignment(Player3,MASK_GENEUTRAL)
    HasItem("CDHLYSYM",Player3) // No such index
THEN
    RESPONSE #100
        ApplySpellRES("CDHLYSY2",Player3) // By Torm, you don't sound too pleased about it though.  <CHARNAME>, what's the old Major up to these days?
        TakeItemReplace("BELT13","CDHLYSYM",Player3) // No such index
END

IF
    Alignment(Player4,MASK_GENEUTRAL)
    HasItem("CDHLYSYM",Player4) // No such index
THEN
    RESPONSE #100
        ApplySpellRES("CDHLYSY2",Player4) // By Torm, you don't sound too pleased about it though.  <CHARNAME>, what's the old Major up to these days?
        TakeItemReplace("BELT13","CDHLYSYM",Player4) // No such index
END

IF
    Alignment(Player5,MASK_GENEUTRAL)
    HasItem("CDHLYSYM",Player5) // No such index
THEN
    RESPONSE #100
        ApplySpellRES("CDHLYSY2",Player5) // By Torm, you don't sound too pleased about it though.  <CHARNAME>, what's the old Major up to these days?
        TakeItemReplace("BELT13","CDHLYSYM",Player5) // No such index
END

IF
    Alignment(Player6,MASK_GENEUTRAL)
    HasItem("CDHLYSYM",Player6) // No such index
THEN
    RESPONSE #100
        ApplySpellRES("CDHLYSY2",Player6) // By Torm, you don't sound too pleased about it though.  <CHARNAME>, what's the old Major up to these days?
        TakeItemReplace("BELT13","CDHLYSYM",Player6) // No such index
END

IF
    Alignment(Player1,MASK_GOOD)
    HasItem("CDHLYSYM",Player1) // No such index
THEN
    RESPONSE #100
        ApplySpellRES("CDHLYSY2",Player1) // By Torm, you don't sound too pleased about it though.  <CHARNAME>, what's the old Major up to these days?
        TakeItemReplace("BELT12","CDHLYSYM",Player1) // No such index
END

IF
    Alignment(Player2,MASK_GOOD)
    HasItem("CDHLYSYM",Player2) // No such index
THEN
    RESPONSE #100
        ApplySpellRES("CDHLYSY2",Player2) // By Torm, you don't sound too pleased about it though.  <CHARNAME>, what's the old Major up to these days?
        TakeItemReplace("BELT12","CDHLYSYM",Player2) // No such index
END

IF
    Alignment(Player3,MASK_GOOD)
    HasItem("CDHLYSYM",Player3) // No such index
THEN
    RESPONSE #100
        ApplySpellRES("CDHLYSY2",Player3) // By Torm, you don't sound too pleased about it though.  <CHARNAME>, what's the old Major up to these days?
        TakeItemReplace("BELT12","CDHLYSYM",Player3) // No such index
END

IF
    Alignment(Player4,MASK_GOOD)
    HasItem("CDHLYSYM",Player4) // No such index
THEN
    RESPONSE #100
        ApplySpellRES("CDHLYSY2",Player4) // By Torm, you don't sound too pleased about it though.  <CHARNAME>, what's the old Major up to these days?
        TakeItemReplace("BELT12","CDHLYSYM",Player4) // No such index
END

IF
    Alignment(Player5,MASK_GOOD)
    HasItem("CDHLYSYM",Player5) // No such index
THEN
    RESPONSE #100
        ApplySpellRES("CDHLYSY2",Player5) // By Torm, you don't sound too pleased about it though.  <CHARNAME>, what's the old Major up to these days?
        TakeItemReplace("BELT12","CDHLYSYM",Player5) // No such index
END

IF
    Alignment(Player6,MASK_GOOD)
    HasItem("CDHLYSYM",Player6) // No such index
THEN
    RESPONSE #100
        ApplySpellRES("CDHLYSY2",Player6) // By Torm, you don't sound too pleased about it though.  <CHARNAME>, what's the old Major up to these days?
        TakeItemReplace("BELT12","CDHLYSYM",Player6) // No such index
END

IF
    InPartyAllowDead("Nalia")
    Dead("Nalia")
    Dead("Torgal") // TorGal
    Global("NaliaTorgalDies","GLOBAL",0)
    Global("NaliaKeepPlot","GLOBAL",0)
THEN
    RESPONSE #100
        SetGlobal("NaliaTorgalDies","GLOBAL",1)
END

IF
    InPartyAllowDead("Nalia")
    Dead("Nalia")
    AreaCheck("AR1300")
    Global("EnteredAR1300","GLOBAL",0)
    Global("NaliaKeepPlot","GLOBAL",0)
THEN
    RESPONSE #100
        SetGlobal("EnteredAR1300","GLOBAL",1)
        SetGlobalTimer("ArrivedNaliaKeep","GLOBAL",ONE_DAY)
END

IF
    InPartyAllowDead("Nalia")
    Dead("Nalia")
    Global("DelciaLeave","GLOBAL",1)
    Global("NaliaKeepPlot","GLOBAL",0)
THEN
    RESPONSE #100
        SetGlobal("DelciaLeave","GLOBAL",2)
END

IF
    InPartyAllowDead("Nalia")
    Dead("Nalia")
    AreaCheck("AR1302")
    CombatCounter(0)
    Global("NaliaInAR1302","AR1302",0)
THEN
    RESPONSE #100
        SetGlobal("NaliaInAR1302","AR1302",1)
END

IF
    InPartyAllowDead("Nalia")
    Dead("Nalia")
    AreaCheck("AR1303")
    Global("NaliaInAR1303","AR1303",0)
THEN
    RESPONSE #100
        SetGlobal("NaliaInAR1303","AR1303",1)
END

IF
    Global("PlayEndMovie","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("PlayEndMovie","GLOBAL",2)
        StartMovie("END15FPS")
END

IF
    Global("PlayEndCredits","GLOBAL",1)
THEN
    RESPONSE #100
        ClearAllActions()
        StartCutSceneMode()
        SetGlobal("PlayEndCredits","GLOBAL",2)
        StartCutScene("cut101a")
END

IF
    Delay(10)
    Global("FoundMontaronBody","GLOBAL",0)
    PartyHasItem("MISC5U") // Montarons Leiche
THEN
    RESPONSE #100
        SetGlobal("FoundMontaronBody","GLOBAL",1)
        AddexperienceParty(20000)
END

IF
    Global("CutTest","GLOBAL",1)
THEN
    RESPONSE #100
        ClearAllActions()
        StartCutSceneMode()
        StartCutScene("cuttest")
END

IF
    Global("ScreenTest","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("ScreenTest","GLOBAL",2)
        TextScreen("SCENE01")
END

IF
    Global("ScreenTest","GLOBAL",2)
THEN
    RESPONSE #100
        SetGlobal("ScreenTest","GLOBAL",3)
        TextScreen("SCRTXT01")
END

IF
    Global("ScreenTest","GLOBAL",3)
THEN
    RESPONSE #100
        SetGlobal("ScreenTest","GLOBAL",4)
        TextScreen("SCRTXT02")
END

IF
    Global("ScreenTest","GLOBAL",4)
THEN
    RESPONSE #100
        SetGlobal("ScreenTest","GLOBAL",5)
        TextScreen("SCRTXT03")
END

IF
    Global("ScreenTest","GLOBAL",5)
THEN
    RESPONSE #100
        SetGlobal("ScreenTest","GLOBAL",6)
        TextScreen("SCRTXT04")
END

IF
    Global("ScreenTest","GLOBAL",6)
THEN
    RESPONSE #100
        SetGlobal("ScreenTest","GLOBAL",7)
        TextScreen("SCRTXT05")
END

IF
    Global("JaheiraMatch","GLOBAL",0)
    Global("CheckJaheiraMatch","GLOBAL",0)
    Gender(Player1,MALE)
    OR(4)
        Race(Player1,HUMAN)
        Race(Player1,HALF_ELF)
        Race(Player1,ELF)
        Race(Player1,HALFLING)
THEN
    RESPONSE #100
        SetGlobal("CheckJaheiraMatch","GLOBAL",1)
        SetGlobal("JaheiraMatch","GLOBAL",1)
END

IF
    Global("AerieMatch","GLOBAL",0)
    Global("CheckAerieMatch","GLOBAL",0)
    Gender(Player1,MALE)
    OR(5)
        Race(Player1,HUMAN)
        Race(Player1,HALF_ELF)
        Race(Player1,ELF)
        Race(Player1,HALFLING)
        Race(Player1,GNOME)
THEN
    RESPONSE #100
        SetGlobal("CheckAerieMatch","GLOBAL",1)
        SetGlobal("AerieMatch","GLOBAL",1)
END

IF
    Global("AnomenMatch","GLOBAL",0)
    Global("CheckAnomenMatch","GLOBAL",0)
    Gender(Player1,FEMALE)
    OR(4)
        Race(Player1,HUMAN)
        Race(Player1,HALF_ELF)
        Race(Player1,ELF)
        Race(Player1,HALFLING)
THEN
    RESPONSE #100
        SetGlobal("CheckAnomenMatch","GLOBAL",1)
        SetGlobal("AnomenMatch","GLOBAL",1)
END

IF
    Global("ViconiaMatch","GLOBAL",0)
    Global("CheckViconiaMatch","GLOBAL",0)
    Gender(Player1,MALE)
    OR(4)
        Race(Player1,HUMAN)
        Race(Player1,HALF_ELF)
        Race(Player1,HALFLING)
        Race(Player1,HALFORC)
THEN
    RESPONSE #100
        SetGlobal("CheckViconiaMatch","GLOBAL",1)
        SetGlobal("ViconiaMatch","GLOBAL",1)
END

IF
    Delay(10)
    Global("HabibAppearance","GLOBAL",0)
    PartyHasItem("SW1H56") // Krummsäbel
THEN
    RESPONSE #100
        ActionOverride(Player1,DropItem("SW1H56",[-1.-1])) // Krummsäbel
        ActionOverride(Player2,DropItem("SW1H56",[-1.-1])) // Krummsäbel
        ActionOverride(Player3,DropItem("SW1H56",[-1.-1])) // Krummsäbel
        ActionOverride(Player4,DropItem("SW1H56",[-1.-1])) // Krummsäbel
        ActionOverride(Player5,DropItem("SW1H56",[-1.-1])) // Krummsäbel
        ActionOverride(Player6,DropItem("SW1H56",[-1.-1])) // Krummsäbel
        SetGlobal("HabibAppearance","GLOBAL",1)
END

IF
    Delay(10)
    Global("HabibAppearance","GLOBAL",1)
    AreaCheck("AR0408")
    PartyHasItem("MISC07") // Goldmünze
THEN
    RESPONSE #100
        ActionOverride(Player1,DropItem("MISC07",[-1.-1])) // Goldmünze
        ActionOverride(Player2,DropItem("MISC07",[-1.-1])) // Goldmünze
        ActionOverride(Player3,DropItem("MISC07",[-1.-1])) // Goldmünze
        ActionOverride(Player4,DropItem("MISC07",[-1.-1])) // Goldmünze
        ActionOverride(Player5,DropItem("MISC07",[-1.-1])) // Goldmünze
        ActionOverride(Player6,DropItem("MISC07",[-1.-1])) // Goldmünze
        SetGlobal("HabibAppearance","GLOBAL",2)
END

IF
    OR(2)
        Global("PCSphere","GLOBAL",2)
        ReputationLT(Player1,4)
    GlobalLT("BribedCowled","GLOBAL",2)
THEN
    RESPONSE #100
        SetGlobal("BribedCowled","GLOBAL",2)
END

IF
    Global("fampsd","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("fampsd","GLOBAL",0)
        MoveGlobalObject("fampsd",Player1)
END

IF
    Global("famfer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("famfer","GLOBAL",0)
        MoveGlobalObject("famfer",Player1)
END

IF
    Global("famimp","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("famimp","GLOBAL",0)
        MoveGlobalObject("famimp",Player1)
END

IF
    Global("famrab","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("famrab","GLOBAL",0)
        MoveGlobalObject("famrab",Player1)
END

IF
    Global("famdust","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("famdust","GLOBAL",0)
        MoveGlobalObject("famdust",Player1)
END

IF
    Global("famfair","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("famfair","GLOBAL",0)
        MoveGlobalObject("famfair",Player1)
END

IF
    Global("famcat","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("famcat","GLOBAL",0)
        MoveGlobalObject("famcat",Player1)
END

IF
    Global("famquas","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("famquas","GLOBAL",0)
        MoveGlobalObject("famquas",Player1)
END

IF
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    AreaType(OUTDOOR)
    !AreaCheck("AR2500")
    !AreaCheck("AR1901")
    Dead("cefald01") // Faldorn
    Class(Player1,DRUID_ALL)
    LevelGT(Player1,13)
    Global("DruidADSpawn","GLOBAL",0)
    Global("GreatDruid","GLOBAL",0)
THEN
    RESPONSE #100
        Wait(2)
        SetGlobal("DruidADSpawn","GLOBAL",1)
        CreateCreatureObjectOffScreen("DRUIDAD",Player1,0,0,0) // Druide
END

IF
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    AreaType(OUTDOOR)
    !AreaCheck("AR2500")
    !AreaCheck("AR1901")
    Class(Player1,DRUID_ALL)
    LevelGT(Player1,13)
    Global("DruidADSpawn","GLOBAL",1)
    Global("GreatDruid","GLOBAL",0)
    GlobalTimerExpired("DruidADReturn","GLOBAL")
THEN
    RESPONSE #100
        SetGlobal("DruidADSpawn","GLOBAL",2)
        CreateCreatureObjectOffScreen("DRUIDAD",Player1,0,0,0) // Druide
END

IF
    Delay(10)
    AreaType(OUTDOOR)
    Dead("c6bodhi") // Bodhi
    OR(8)
        PartyHasItem("sw1h15") // Frostbrand +3
        PartyHasItem("sw1h16") // Defender +5
        PartyHasItem("chan06") // Mithril Kettenhemd +4
        PartyHasItem("bruenaxe") // Streitaxt +1
        PartyHasItem("bruenpla") // Mithril Field Plate Mail +2
        PartyHasItem("cattibow") // Tansherons Bogen +3
        PartyHasItem("regisamu") // Rubinanhänger
        PartyHasItem("aegis2") // Aegis Fang +3
    !Exists("c6harp")
THEN
    RESPONSE #100
        CreateCreatureObjectDoor("C6HARP",Player1,0,0,0) // Malchor Harpell
        ActionOverride("c6harp",StartDialogueNoSet(Player1))
END

IF
    Global("drowTalk","GLOBAL",0)
    Global("slayer1","GLOBAL",0)
    PartyRested()
    GlobalGT("AsylumPlot","GLOBAL",43)
THEN
    RESPONSE #100
        SetGlobal("drowTalk","GLOBAL",2)
        SetGlobal("slayer1","GLOBAL",1)
        SetGlobalTimer("SlayerTimer2","GLOBAL",FIVE_MINUTES)
        ActionOverride(Player1,StartDialog("player1",Player1))
END

IF
    GlobalTimerExpired("SlayerTimer2","GLOBAL")
    Global("goodagain","GLOBAL",0)
THEN
    RESPONSE #100
        SetGlobal("goodagain","GLOBAL",1)
        SetGlobal("DrowTalk","GLOBAL",4)
        ActionOverride(Player1,StartDialog("player1",Player1))
END

IF
    Global("Slayer10","GLOBAL",1)
THEN
    RESPONSE #100
        ActionOverride(Player1,StartDialog("player1",Player1))
END

IF
    PartyGoldGT(14999)
    Global("BodiAppear","GLOBAL",0)
    GlobalGT("ShadowWork","GLOBAL",0)
    Global("WorkingForAran","GLOBAL",0)
    GlobalTimerExpired("ValenAppearTimer","GLOBAL")
    AreaType(OUTDOOR)
    OR(6)
        AreaCheck("AR0300")
        AreaCheck("AR0400")
        AreaCheck("AR0500")
        AreaCheck("AR0700")
        AreaCheck("AR0900")
        AreaCheck("AR1000")
    CombatCounter(0)
THEN
    RESPONSE #100
        ClearAllActions()
        SetGlobal("BodiAppear","GLOBAL",1)
        SetGlobalTimer("MakeBrusWait","GLOBAL",ONE_MINUTE)
        CreateCreatureObject("ANAST",Player1,0,0,0) // Valen
        ActionOverride("ANAST",StartDialogueNoSet(Player1))
END

IF
    !Exists("BRUS")
    !Exists("BRUS3")
    Global("SpawnBrus","GLOBAL",1)
    GlobalTimerExpired("MakeBrusWait","GLOBAL")
    Global("ImTooSexyForThisBrus","GLOBAL",0)
    AreaType(OUTDOOR)
    Global("WorkingForAran","GLOBAL",0)
    Global("WorkingForBodhi","GLOBAL",0)
THEN
    RESPONSE #100
        ClearAllActions()
        CreateCreatureObjectOffScreen("BRUS3",Player1,0,0,0) // Brus
        ActionOverride("brus3",StartDialogueNoSet(Player1))
END

IF
    GlobalTimerExpired("PGThievesReturn","GLOBAL")
    Global("NotifyThiefHead","GLOBAL",0)
THEN
    RESPONSE #100
        SetGlobal("NotifyThiefHead","GLOBAL",1)
        DisplayStringHead(Player1,62083) // Eure Diebe sind von den zugewiesenen Aufträgen zurückgekehrt.
END

IF
    GlobalTimerExpired("JosterReturn","GLOBAL")
    Global("JosterLeave","GLOBAL",1)
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
THEN
    RESPONSE #100
        SetGlobal("JosterLeave","GLOBAL",2)
        SetGlobalTimer("JosterReturn","GLOBAL",SIX_DAYS)
        SetGlobalTimer("JosterPaid","GLOBAL",FIVE_DAYS)
        DisplayStringHead(Player1,62081) // Der Zahlmeister wartet bereits in der Gilde darauf, dass Ihr Renals Anteil abliefert.
END

IF
    GlobalTimerExpired("JosterPaid","GLOBAL")
    Global("JosterLeave","GLOBAL",2)
    Global("PGFailed","GLOBAL",0)
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
THEN
    RESPONSE #100
        SetGlobal("PGFailed","GLOBAL",1)
        DisplayStringHead(Player1,62082) // Renal will no longer wait for his due... you have lost your guild.
END

IF
    Global("MinscByeBye","GLOBAL",1)
THEN
    RESPONSE #100
        ActionOverride("Minsc",EscapeArea())
END

IF
    Global("MinscByeBye","GLOBAL",2)
THEN
    RESPONSE #100
        MoveGlobal("AR0400","Minsc",[519.529])
END

IF
    Global("SpawnTanadv","GLOBAL",0)
    Global("TurnCragmoon","GLOBAL",1)
    GlobalTimerExpired("CragmoonAttack","GLOBAL")
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    AreaType(CITY)
    !AreaCheck("AR2500")
    !AreaCheck("AR1000")
    !AreaCheck("AR0700")
    !AreaCheck("AR0900")
    AreaType(OUTDOOR)
THEN
    RESPONSE #100
        SetGlobal("SpawnTanadv","GLOBAL",1)
        CreateCreatureObjectOffScreen("TANADV01",Player1,0,0,0) // Strachan Feuerklinge
        CreateCreatureObjectOffScreen("TANADV02",Player1,0,0,0) // Abenteurer
        CreateCreatureObjectOffScreen("TANADV03",Player1,0,0,0) // Abenteurer
        CreateCreatureObjectOffScreen("TANADV04",Player1,0,0,0) // Abenteurer
        CreateCreatureObjectOffScreen("TANADV05",Player1,0,0,0) // Abenteurer
        CreateCreatureObjectOffScreen("TANADV06",Player1,0,0,0) // Dunbar der Fünfte
END

IF
    Dead("Jaheira")
    GlobalGT("JaheiraCursed","GLOBAL",0)
    GlobalLT("JaheiraCursed","GLOBAL",8)
    Global("JaheiraCursedDead","GLOBAL",0)
THEN
    RESPONSE #100
        SetGlobal("JaheiraCursedDead","GLOBAL",1)
END

IF
    GlobalGT("JaheiraCursed","GLOBAL",6)
    Global("JaheiraCursedDead","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("JaheiraCursedDead","GLOBAL",0)
        Continue()
END

IF
    GlobalGT("JaheiraCursed","GLOBAL",0)
    GlobalLT("JaheiraCursed","GLOBAL",8)
    Global("JaheiraCursedDead","GLOBAL",1)
    !Dead("Jaheira")
THEN
    RESPONSE #100
        ActionOverride("Jaheira",StartDialogueNoSet([PC]))
END

IF
    GlobalTimerExpired("OgronAssault","GLOBAL")
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    AreaType(OUTDOOR)
    Global("DelonSpawn","GLOBAL",0)
THEN
    RESPONSE #100
        SetGlobal("DelonSpawn","GLOBAL",1)
        SetGlobal("OgronAttack","GLOBAL",1)
        CreateCreatureObjectOffScreen("DELON",Player1,0,0,0) // Delon
        ActionOverride("delon",StartDialogueNoSet(Player1))
END

IF
    GlobalTimerExpired("UmarAssault","GLOBAL")
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    AreaType(OUTDOOR)
    Global("DelonSpawn","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("DelonSpawn","GLOBAL",2)
        SetGlobal("UmarPlot","GLOBAL",1)
        CreateCreatureObjectOffScreen("DELON",Player1,0,0,0) // Delon
        ActionOverride("delon",StartDialogueNoSet(Player1))
END

IF
    GlobalTimerExpired("MeetHiggin","GLOBAL")
    Global("MeckComesFirst","GLOBAL",0)
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    !AreaCheck("AR2000")
    Global("BardPlot1","GLOBAL",0)
    AreaType(CITY)
    OR(3)
        AreaType(OUTDOOR)
        AreaCheck("AR0522")
        AreaCheck("AR0511")
THEN
    RESPONSE #100
        SetGlobal("MeckComesFirst","GLOBAL",1)
        CreateCreatureObjectOffScreen("bdgoph01",Player1,0,0,0) // Meck
END

IF
    GlobalTimerExpired("MeetHiggin","GLOBAL")
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    AreaType(CITY)
    !AreaCheck("AR2000")
    Global("BardPlot1","GLOBAL",3)
    OR(3)
        AreaType(OUTDOOR)
        AreaCheck("AR0522")
        AreaCheck("AR0511")
THEN
    RESPONSE #100
        SetGlobal("BardPlot1","GLOBAL",4)
        SetGlobal("BardPlotOn","GLOBAL",1)
        CreateCreatureObjectOffScreen("bdgoph01",Player1,0,0,0) // Meck
END

IF
    GlobalTimerExpired("MeetHiggin2","GLOBAL")
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    AreaType(CITY)
    !AreaCheck("AR2000")
    Global("BardPlot1","GLOBAL",6)
    OR(3)
        AreaType(OUTDOOR)
        AreaCheck("AR0522")
        AreaCheck("AR0511")
THEN
    RESPONSE #100
        SetGlobal("BardPlot1","GLOBAL",7)
        SetGlobal("BardPlotOn","GLOBAL",1)
        CreateCreatureObjectOffScreen("bdgoph01",Player1,0,0,0) // Meck
END

IF
    GlobalTimerExpired("MeetHiggin3","GLOBAL")
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    AreaType(CITY)
    !AreaCheck("AR2000")
    Global("BardPlot1","GLOBAL",9)
    OR(3)
        AreaType(OUTDOOR)
        AreaCheck("AR0522")
        AreaCheck("AR0511")
THEN
    RESPONSE #100
        SetGlobal("BardPlot1","GLOBAL",10)
        SetGlobal("BardPlotOn","GLOBAL",1)
        CreateCreatureObjectOffScreen("bdgoph01",Player1,0,0,0) // Meck
END

IF
    GlobalTimerExpired("MeetHiggin4","GLOBAL")
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    AreaType(CITY)
    !AreaCheck("AR2000")
    Global("BardPlot1","GLOBAL",12)
    OR(3)
        AreaType(OUTDOOR)
        AreaCheck("AR0522")
        AreaCheck("AR0511")
THEN
    RESPONSE #100
        SetGlobal("BardPlot1","GLOBAL",13)
        SetGlobal("BardPlotOn","GLOBAL",1)
        CreateCreatureObjectOffScreen("bdgoph01",Player1,0,0,0) // Meck
END

IF
    GlobalTimerExpired("MeetHiggin5","GLOBAL")
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    AreaType(CITY)
    !AreaCheck("AR2000")
    Global("BardPlot1","GLOBAL",16)
    OR(3)
        AreaType(OUTDOOR)
        AreaCheck("AR0522")
        AreaCheck("AR0511")
THEN
    RESPONSE #100
        SetGlobal("BardPlot1","GLOBAL",17)
        SetGlobal("BardPlotOn","GLOBAL",1)
        CreateCreatureObjectOffScreen("bdgoph01",Player1,0,0,0) // Meck
END

IF
    GlobalTimerExpired("MeetHiggin6","GLOBAL")
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    AreaType(CITY)
    !AreaCheck("AR2000")
    Global("BardPlot1","GLOBAL",19)
    OR(2)
        AreaType(OUTDOOR)
        AreaCheck("AR0511")
THEN
    RESPONSE #100
        SetGlobal("BardPlot1","GLOBAL",40)
        SetGlobal("BardPlotOn","GLOBAL",1)
        CreateCreatureObjectOffScreen("bdgoph01",Player1,0,0,0) // Meck
END

IF
    GlobalTimerExpired("MeetHiggin7","GLOBAL")
    Global("BardPlot1","GLOBAL",42)
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    AreaType(CITY)
    !AreaCheck("AR2000")
    OR(3)
        AreaType(OUTDOOR)
        AreaCheck("AR0522")
        AreaCheck("AR0511")
THEN
    RESPONSE #100
        SetGlobal("BardPlot1","GLOBAL",45)
        SetGlobal("BardPlotOn","GLOBAL",1)
        CreateCreatureObjectOffScreen("bdgoph01",Player1,0,0,0) // Meck
END

IF
    GlobalTimerExpired("MeetHiggin8","GLOBAL")
    AreaType(CITY)
    !AreaCheck("AR2000")
    Global("BardPlot1","GLOBAL",50)
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    OR(3)
        AreaType(OUTDOOR)
        AreaCheck("AR0522")
        AreaCheck("AR0511")
THEN
    RESPONSE #100
        SetGlobal("BardPlot1","GLOBAL",51)
        SetGlobal("BardPlotOn","GLOBAL",1)
        CreateCreatureObjectOffScreen("bdgoph01",Player1,0,0,0) // Meck
END

IF
    PartyRested()
    GlobalTimerExpired("JaheiraReturn","GLOBAL")
    Global("JaheiraReturns","GLOBAL",0)
THEN
    RESPONSE #100
        SetGlobal("JaheiraReturns","GLOBAL",1)
        MoveGlobalObject("Jaheira",Player1)
END

IF
    GlobalTimerExpired("BardMoneyTime","GLOBAL")
    GlobalGT("BardMoney","GLOBAL",500)
    Global("BardPlotOn","GLOBAL",5)
THEN
    RESPONSE #100
        SetGlobalTimer("BardMoneyTime","GLOBAL",SEVEN_DAYS)
        DisplayString(Player1,47142) // Gold has been placed in your keep.
        IncrementGlobal("BardMoney","GLOBAL",-100)
        AddGlobals("BardMoneyX","BardMoney")
END

IF
    GlobalTimerExpired("BardMoneyTime","GLOBAL")
    GlobalLT("BardMoney","GLOBAL",501)
    Global("BardPlotOn","GLOBAL",5)
THEN
    RESPONSE #100
        SetGlobalTimer("BardMoneyTime","GLOBAL",SEVEN_DAYS)
        DisplayString(Player1,47142) // Gold has been placed in your keep.
        AddGlobals("BardMoneyX","BardMoney")
END

IF
    GlobalTimerExpired("KPTaxTime","GLOBAL")
    Global("PCKeepOwner","GLOBAL",1)
THEN
    RESPONSE #100
        DisplayString(Player1,47142) // Gold has been placed in your keep.
        SetGlobalTimer("KPTaxTime","GLOBAL",SEVEN_DAYS)
        IncrementGlobal("KPTaxes","GLOBAL",500)
END

IF
    GlobalTimerExpired("KPPlotTime","GLOBAL")
    AreaType(OUTDOOR)
    !AreaCheck("AR2500")
    !AreaCheck("AR2600")
    !AreaCheck("AR2000")
    !AreaCheck("AR1900")
    Global("KeepPlot","GLOBAL",4)
    InParty("Nalia")
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    Global("NaliaIsaeaPlotDone","GLOBAL",1)
    Global("KPRunnerSpawn","GLOBAL",0)
THEN
    RESPONSE #100
        SetGlobal("KPRunnerSpawn","GLOBAL",1)
        CreateCreatureObjectOffScreen("KPRUNN01",Player1,0,0,0) // Bote der Festung
END

IF
    GlobalTimerExpired("KPPlotTime","GLOBAL")
    AreaType(OUTDOOR)
    !AreaCheck("AR2500")
    !AreaCheck("AR2600")
    !AreaCheck("AR2000")
    !AreaCheck("AR1900")
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    Global("KeepPlot","GLOBAL",4)
    !InParty("Nalia")
    Global("KPRunnerSpawn","GLOBAL",0)
THEN
    RESPONSE #100
        SetGlobal("KPRunnerSpawn","GLOBAL",1)
        CreateCreatureObjectOffScreen("KPRUNN01",Player1,0,0,0) // Bote der Festung
END

IF
    GlobalTimerExpired("KPPlotTime","GLOBAL")
    AreaType(OUTDOOR)
    !AreaCheck("AR2500")
    !AreaCheck("AR2600")
    !AreaCheck("AR2000")
    !AreaCheck("AR1900")
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    Global("KeepPlot","GLOBAL",7)
    Global("KPRunnerSpawn","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("KPRunnerSpawn","GLOBAL",2)
        CreateCreatureObjectOffScreen("KPRUNN01",Player1,0,0,0) // Bote der Festung
END

IF
    GlobalTimerExpired("KPPlotTime","GLOBAL")
    AreaType(OUTDOOR)
    !AreaCheck("AR2500")
    !AreaCheck("AR2600")
    !AreaCheck("AR2000")
    !AreaCheck("AR1900")
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    Global("KeepPlot","GLOBAL",8)
    Global("KPRunnerSpawn","GLOBAL",2)
THEN
    RESPONSE #100
        SetGlobal("KPRunnerSpawn","GLOBAL",3)
        CreateCreatureObjectOffScreen("KPRUNN01",Player1,0,0,0) // Bote der Festung
END

IF
    GlobalGT("KPRevolt","GLOBAL",9)
    Global("RoenalControl","GLOBAL",0)
    GlobalLT("KeepPlot","GLOBAL",12)
THEN
    RESPONSE #100
        ClearAllActions()
        StartCutSceneMode()
        StartCutScene("Cut32n")
END

IF
    GlobalTimerExpired("TeolMessenger","GLOBAL")
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    AreaType(OUTDOOR)
    !AreaCheck("AR2500")
    !AreaCheck("AR2600")
    Global("NatulaSpawn","GLOBAL",0)
THEN
    RESPONSE #100
        SetGlobal("NatulaSpawn","GLOBAL",1)
        CreateCreatureObject("MGASS01",Player1,0,0,0) // Feldwebel Natula
        ActionOverride("MGASS01",StartDialogueNoSet(Player1))
END

IF
    Global("geniesgone","GLOBAL",0)
    Dead("trgeni01") // Khan Zahraa
THEN
    RESPONSE #100
        SetGlobal("geniesgone","GLOBAL",1)
END

IF
    GlobalTimerExpired("udPhaTimer","GLOBAL")
    Global("udPhaTimerOn","GLOBAL",1)
    Global("DrowCityHostile","GLOBAL",0)
    !Dead("Phaere")
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        DisplayStringHead(Player1,43962) // A loud gong sounds and you fear you may have failed in the task that the drow have given you.
        SetGlobal("udPhaTimerOn","GLOBAL",0)
        SetGlobal("udSolTimerOn","GLOBAL",0)
        SetGlobal("DrowTimePhaere","GLOBAL",1)
        SetGlobal("ADrowTimerHasExpired","GLOBAL",1)
        CreateCreatureObjectDoor("udphae02",Player1,0,0,0) // Phaere
        ActionOverride(Player1,ApplySpell(Myself,UNDER_NORM))
        ActionOverride(Player2,ApplySpell(Myself,UNDER_NORM))
        ActionOverride(Player3,ApplySpell(Myself,UNDER_NORM))
        ActionOverride(Player4,ApplySpell(Myself,UNDER_NORM))
        ActionOverride(Player5,ApplySpell(Myself,UNDER_NORM))
        ActionOverride(Player6,ApplySpell(Myself,UNDER_NORM))
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("udSolTimer","GLOBAL")
    GlobalLT("PhaereJob","GLOBAL",6)
    Global("udSolTimerOn","GLOBAL",1)
    Global("DrowCityHostile","GLOBAL",0)
    !Dead("Solaufein")
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        DisplayStringHead(Player1,43962) // A loud gong sounds and you fear you may have failed in the task that the drow have given you.
        SetGlobal("udSolTimerOn","GLOBAL",0)
        SetGlobal("udPhaTimerOn","GLOBAL",0)
        SetGlobal("DrowTimeSol","GLOBAL",1)
        SetGlobal("ADrowTimerHasExpired","GLOBAL",1)
        CreateCreatureObjectDoor("udsola02",Player1,0,0,0) // Solaufein
        ActionOverride(Player1,ApplySpell(Myself,UNDER_NORM))
        ActionOverride(Player2,ApplySpell(Myself,UNDER_NORM))
        ActionOverride(Player3,ApplySpell(Myself,UNDER_NORM))
        ActionOverride(Player4,ApplySpell(Myself,UNDER_NORM))
        ActionOverride(Player5,ApplySpell(Myself,UNDER_NORM))
        ActionOverride(Player6,ApplySpell(Myself,UNDER_NORM))
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("udEscape","GLOBAL")
    Global("DrowCityHostile","GLOBAL",0)
THEN
    RESPONSE #100
        SetGlobal("udSolTimerOn","GLOBAL",0)
        SetGlobal("udPhaTimerOn","GLOBAL",0)
        SetGlobal("DrowCityHostile","GLOBAL",1)
END

IF
    Global("GivePowerSlayer","GLOBAL",1)
THEN
    RESPONSE #100
        StartCutSceneMode()
        SetGlobal("GivePowerSlayer","GLOBAL",2)
        ActionOverride(Player1,ApplySpell(Myself,GIVE_SLAYER_POWER))
        EndCutSceneMode()
END

IF
    Global("setAerieDlg","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("setAerieDlg","GLOBAL",2)
        ActionOverride("aerie",SetDialog("aeriej"))
END

IF
    Delay(600)
    CombatCounter(0)
    OR(6)
        HasItemEquipedReal("sw2h14",Player1) // Lilarcor +3
        HasItemEquipedReal("sw2h14",Player2) // Lilarcor +3
        HasItemEquipedReal("sw2h14",Player3) // Lilarcor +3
        HasItemEquipedReal("sw2h14",Player4) // Lilarcor +3
        HasItemEquipedReal("sw2h14",Player5) // Lilarcor +3
        HasItemEquipedReal("sw2h14",Player6) // Lilarcor +3
THEN
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",20580) // Ich zähle mich zu den intelligenteren Schwertern, auch wenn ich keine besondere Ausbeulung genossen habe.
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",20779) // Können wir jetzt langsam mal mit der Metzelei anfangen, ja?
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",20780) // Wie wär's denn mit jetzt gleich, nein?
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",20956) // Gibt es JETZT vielleicht was zu metzeln?
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",24939) // Mmmm... now?
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",25349) // Wie wär's denn mit jetzt gleich?
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",31258) // Jetzt? Och, bitte! Bittebitte!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",31259) // Ich weiß ja nicht, was Ihr so alles vom Leben erwartet, aber ich als Schwert bin in meinen Wünschen ja ziemlich festgelegt.
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",31260) // Wie wär's denn jetzt mit einer zünftigen Prügelei, hm?
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",31638) // Let's whack something eeeeevvvvillllll...
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",31639) // Warum gehen wir nicht hin, und metzeln das da drüben einfach nieder?
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",31640) // Ich war einst eine Mondklinge, müsst Ihr wissen.
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",31641) // Ihr könntet mich mal putzen. Ich mag's gerne etwas glänzender.
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",31646) // Kriege ich jetzt vielleicht mal was Anständiges zu metzeln?
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",31649) // Wisst Ihr, mein früherer Besitzer sagte immer, ich sei scharf wie Nachbars Lumpi. Das war ja ein solcher Nusskopf...
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",31651) // Ich schlage kein Holz. Ich bin schließlich keine Axt.
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",31652) // Jetzt! Ja! Jetzt! Metzeln! Oh, jaa!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",31654) // Gott, wie öööööde!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",31655) // (Seufzer)
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",31656) // (doppelter Seufzer)
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",6433) // Wollt Ihr nicht auch ein bisschen metzeln, hmm? Los jetzt, rein ins Blutbad!
END

IF
    Delay(125)
    !CombatCounter(0)
    OR(6)
        HasItemEquipedReal("sw2h14",Player1) // Lilarcor +3
        HasItemEquipedReal("sw2h14",Player2) // Lilarcor +3
        HasItemEquipedReal("sw2h14",Player3) // Lilarcor +3
        HasItemEquipedReal("sw2h14",Player4) // Lilarcor +3
        HasItemEquipedReal("sw2h14",Player5) // Lilarcor +3
        HasItemEquipedReal("sw2h14",Player6) // Lilarcor +3
THEN
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",839) // Ihr redet, ich schneide!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",844) // Mal sehen, wie der hier von innen aussieht! Jaaah!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",849) // Kommt her und holt Euch einen ab!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",869) // Hört bloß auf, Ihr Tölpel! Ihr packt mich ja völlig falsch an!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",2308) // Jetzt mal Hand hoch, Kinder: Wer möchte als Erster sterben?
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",2389) // Mmmm... Schmeckt nach Hühnchen!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",4393) // He, Schlappschwanz! Ihr packt zu und ich kratze, ja?
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",31659) // Muwahahaha-ha-ha!!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",31660) // Das meinste aber nicht ernst, oder, Kumpel?
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",7908) // Ohhh, das gibt 'ne hässliche Narbe!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",8480) // Mord! Totschlag! METZELEI!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",9687) // Wer ist denn Euer Papa?
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",9800) // We got a gusher!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",10725) // Redet Ihr etwa mit MIR?!!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",11255) // Eine meiner besten Arbeiten!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",12671) // Ich bin der Beste in dem, was ich mache, und was ich mache, ist gar nicht nett!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",31662) // Jaaah! Getroffen! Und gleich noch mal!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",31663) // Ich bin unschlagbar! Einfach unschlagbar!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",32426) // Wouldn't it be cool if you could dual-wield me?
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",19304) // Paaf! Das war die Nase!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",19441) // Mein Bruder ist ein Hackmeister +12 !
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",19638) // Ich liebe den Geruch von Dattelpalmen am Morgen!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",20059) // Ihr müsst stärker ausholen, Mensch! Ausholen!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",20396) // Schickt sie rüber zu mir! Ich bin noch nicht fertig!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",20457) // Oh jaaah!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",31658) // Ein Tänzchen gefällig?
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",34689) // Niedermachen! Niedermachen! Schnell, bevor sie alle wieder weg sind!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",36145) // Tod! Tod! Tod! Jaaah! Herrlich!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",41815) // ... and this one's for grandma, who said I'd never amount to anything more than a butterknife!!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",6434) // Wie durch heiße Butter!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",6435) // Na los.... 'Make my day'!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",6441) // Ohhh, ich zittere! Haha!
    RESPONSE #10
        DisplayStringHeadOwner("sw2h14",6442) // Oooh, throw a coin in that fountain! Hahahaha!
END

IF
    InParty("Viconia")
    Global("ViconiaJoinedParty","GLOBAL",0)
THEN
    RESPONSE #100
        ReputationInc(-2)
        SetGlobal("ViconiaJoinedParty","GLOBAL",1)
END

IF
    !InParty("Viconia")
    !Dead("Viconia")
    Global("ViconiaJoinedParty","GLOBAL",1)
THEN
    RESPONSE #100
        ReputationInc(2)
        SetGlobal("ViconiaJoinedParty","GLOBAL",0)
END

IF
    Global("DrowCityHostile","GLOBAL",1)
    Global("drowEraseJournal","GLOBAL",0)
THEN
    RESPONSE #100
        EraseJournalEntry(55408) // Die Anhänger Ghaunadaurs aufspüren  Eine ziemlich herrische Drow hat mir befohlen, mich in den südöstlichen Teil der Drowstadt zu begeben und eine Sekte von Ghaunadauranhängern zu zerstören, die sich dort versteckt. Ich weiß nicht, ob es mir etwas bringen würde, diese Aufgabe abzulehnen ... Ich fürchte, das würde wohl in einer Katastrophe enden.
        EraseJournalEntry(61412) // In der Stadt der Drow  Es scheint so, dass Veldrin, in dessen Gestalt ich mich befinde, in der Stadt bereits von einem Drow-Befehlshaber namens Solaufein erwartet wurde. Ich soll ihn in der Kämpfergilde treffen. Es befindet sich im nördlichen Bereich der Stadt hinter dem Haus der Weiblichen Kämpfer und vor der Spinnengrube. Wenn ich mich nicht wie geplant melde, würde ich mich sicher verdächtig machen.
        EraseJournalEntry(9986) // In der Drow-Stadt  Ich habe mehr als nur eine Aufgabe für die Drow erledigt und dadurch genügend Vertrauen aufgebaut, dass ich nun die Mutter Oberin Ardulace des Hauses Despana persönlich treffen werde. Mit den Worten der Drow: Ich habe die Gunst des Hauses errungen. Und das hilft mir weiter. Ich soll nun ohne große Verzögerung Phaere, die Tochter der Mutter Oberin, beim Tempel von Lolth treffen.
        EraseJournalEntry(7096) // In der Stadt der Drow.  Ich bin in Ust Natha und wurde einem Drowkommandeur zugewiesen, einem gewissen Solaufein. Der begrüsst meine Anwesenheit nicht im Geringsten. Er sagte, ich hätte das Interesse einer Mutter Oberin geweckt, und ich solle ihn und eine der 'Zofen Lolths' am Eingang der Stadt treffen, um weitere Anweisungen von ihr zu erhalten. Ich darf mich nicht verhaspeln, jetzt, wo ich in der Stadt bin... der kleinste Fehler meinerseits, und die Dunkelelfen werden herausfinden, was ich wirklich bin. Nichts würde mich dann noch retten.
        EraseJournalEntry(15787) // In der Stadt der Drow  Mir wurde die Aufgabe übertragen, die Tochter einer Mutter Oberin zu retten, die von den Illithiden gefangen wurde. Ich soll Solaufein in der Nähe des Eingangs zur Illithiden-Stadt treffen, der im südöstlichen Teil des Haupthöhlengebiets liegt. Dort wird er die Illithiden irgendwie aus ihrer Astralreise herausziehen. Ich darf keine Zeit verlieren.
        EraseJournalEntry(20170) // In der Stadt der Drow  Ich habe Phaere gerettet, die Tochter der Mutter Oberin. Sie kannte Solaufein und zeigte auch an mir ein flüchtiges Interesse. Sie ist selbst in die Stadt zurückgekehrt. Solaufein folgte und befahl mir, ihn in der Stadt beim Tor zu treffen.
        EraseJournalEntry(9978) // In der Drow-Stadt  Ich bin in die Stadt zurückgekehrt, um Solaufein zu treffen. Dabei erfuhren wir von Imrae, dass wir gute Arbeit geleistet hatten. Sie informierte uns auch darüber, dass wir uns binnen eines Tages in der Drow-Taverne melden sollten, um Phaere zu treffen ... es geht wohl um eine Belohnung.
        EraseJournalEntry(5832) // In der Stadt der Drow.  Phaere gab uns noch eine Aufgabe von der Mutter Oberin: Wir sollen ans nördliche Ende der Höhle in die Nähe des Svirfneblin-Dorfes gehen und eine Gruppe Tiefengnome abschlachten, um den Gnomen mehr Angst zu machen. Solaufein scheint etwas dagegen zu haben, ihm wäre es wohl lieber, wenn ich diesen Auftrag alleine erledigen würde, aber Phaere hat darauf bestanden, dass er mitgeht. Ich soll Solaufein in ein paar Tagen in der Nähe des Dorfs treffen.
        EraseJournalEntry(15725) // In der Stadt der Drow  Ich habe Phaere, die Tochter der Mutter Oberin, wie befohlen in der Taverne getroffen. Scheinbar ist ihre Mutter sehr an mir interessiert, und wir sollen eine weitere Aufgabe durchführen. Phaere ist dann gegangen, und Solaufein und ich sollen sie in ein paar Tagen am Eingang der Stadt treffen und mehr Informationen erhalten. Bis dahin kann ich mit meiner Zeit machen, was ich will.
        EraseJournalEntry(23500) // In der Stadt der Drow  Phaere hat vor, sich mir anzuschließen, wenn ich gemeinsam mit Solaufein den Betrachter angreife, der Adamantit geschmuggelt hat. Der Betrachter ist mit einer Zauberjammer in die Stadt der Drow gekommen. Er befindet sich auf einer Plattform im südöstlichen Teil der Stadt, und ich soll mich dort mit Phaere und Solaufein treffen.
        EraseJournalEntry(11690) // In der Drow-Stadt  Solaufein hat mich ermahnt, dass ich ihm oder Phaere nicht unabsichtlich Schaden zufügen soll, wenn wir es mit dem Betrachter zu tun kriegen. Solche 'Unfälle' passieren viel zu oft in der Drow-Gesellschaft, und zweifellos würde ich dafür zur Rechenschaft gezogen.
        EraseJournalEntry(15746) // In der Stadt der Drow  Jetzt, wo der Betrachter tot ist, sind Phaere und Solaufein gegangen, um der Mutter Oberin Bericht zu erstatten. Phaere befahl mir, sie in drei Tagen wieder in der Taverne zu treffen.
        EraseJournalEntry(15745) // In der Stadt der Drow  Ich habe Solaufein überredet, in die Stadt zurückzukehren, damit ich mich allein um die Tiefengnome kümmern kann. Wenn ich fertig bin, werde ich mich in der Taverne in Ust Natha mit Phaere treffen und als Beweis für meine Tat den Helm des Anführers der Gnomenpatrouille mitbringen.
        EraseJournalEntry(23519) // In der Stadt der Drow  Die Patrouille der Gnome ist tot. Solaufein hat mir den Befehl erteilt, die Körper der Gnome nach dem Helm des Anführers zu durchsuchen und dann zum Wirtshaus zurückzukehren, um mich mit Phaere zu treffen. Dann ist er angewidert nach Ust Natha zurückgekehrt.
        EraseJournalEntry(6933) // In der Stadt der Drow.  Ich habe den Helm des Anführers der Svirfneblin-Patrouille friedlich bekommen... und die Drow werden niemals dahinterkommen. Alles. was ich noch tun muss, ist, zu Phaere in die Kneipe von Ust Natha zurückzukehren, bevor sie ungeduldig wird.
        EraseJournalEntry(23486) // In der Stadt der Drow  Phaere hat offenbar noch weitere Pläne mit mir. Sie hat mir den Befehl erteilt, dass ich mich mit ihr in ihren Privatquartieren im Turm der Gesellschaft weiblicher Kämpfer treffe.
        EraseJournalEntry(23485) // Inside the Drow City  Phaere demands that I hunt down Solaufein and kill him.  He will be within his quarters in the Male Fighter's Society, and once the deed is done I am to return to Phaere's quarters with his piwafwi cloak.
        EraseJournalEntry(23445) // Inside the Drow City  I have talked Solaufein into giving me his piwafwi cloak.  With luck, he will not betray me and Phaere will never know the difference.  It doesn't seem like he will... from the sounds of it, Solaufein is unlike other drow, and actually expressed disgust with their ways.  Perhaps he and I shall meet again.
        EraseJournalEntry(23444) // Inside the Drow City  I have found Solaufein at his quarters and battled him.  I only need take his piwafwi cloak and return to Phaere's apartment.
        EraseJournalEntry(5810) // Das Beschwörungsritual der Drow.  Ardulace war von meinem Verrat an Phaere beeindruckt... sogar so stark, dass sie meine Anwesenheit bei dem Ritual wünscht, um weitere Unterbrechungen zu vermeiden. Ich soll bald von einer Wache abgeholt und zu dem Ritual gebracht werden.
        EraseJournalEntry(6535) // Das Beschwörungsritual der Drow.  Ich habe der Mutter Oberin Ardulace die echten Dracheneier gegeben, wodurch Phaeres Verrat aufgedeckt wurde. Ardulace hat jetzt nach Phaere geschickt, um sie zu richten.
        EraseJournalEntry(16529) // Das Beschwörungsritual der Drow  Der Schlüssel, den Phaere mir gab, um an die echten Eier aus dem Schatz zu gelangen, genügte, um die  Matrone Ardulace von ihrem Verrat zu überzeugen. Das bedeutet, dass ich jetzt nicht in der Lage sein werde, an die Eier zu kommen ... doch vielleicht ergibt sich später eine Gelegenheit. In der Zwischenzeit bekommt Phaere das, was sie verdient hat.
        EraseJournalEntry(6943) // Das Beschwörungsritual der Drow.  Ich enthüllte Phaeres Verrat der Mutter Oberin Ardulace, indem ich ihr die gefälschten Eier zeigte. Sie fragte nach den echten und fiel auf die gefälschten Eier, die Solaufein mir gegeben hat, rein. Die echten Eier sind immer noch in meinem Besitz. Ardulace glaubt mir nun und hat Phaere zu einer harten Strafe verurteilt.
        EraseJournalEntry(16339) // Das Beschwörungsritual der Drow  Ich habe Phaeres Verrat der Matrone Ardulace gegenüber enthüllt, indem ich ihr die gefälschten Eier zeigte, die Phaere mir gegeben hatte. Sie bemerkte die echten Eier und nahm auch sie ... aber zumindest glaubt sie, dass Phaere hinter all dem steckt.
        EraseJournalEntry(9649) // Das Beschwörungsritual der Drow  Ein Teufelchen, das behauptet, vom Silberdrachen geschickt worden zu sein, meldet, dass die Eier gerettet werden müssen, bevor das Ritual abgeschlossen ist und die Eier dem Dämon geopfert werden. Das Ritual muss aufgehalten werden... und dann muss Ardulace getötet werden, um das magische Siegel von der Stadt zu entfernen. Sobald dies geschehen ist, habe ich nur wenige Minuten, um mit den Eiern aus der Stadt zu fliehen, bevor ich enttarnt werde. Das dürfte ziemlich knapp werden.
        EraseJournalEntry(6405) // Das Beschwörungsritual der Drow.  Ein Tuefelchen, das behauptete, es sei von dem Silberdrachen geschickt worden, tauchte gerade auf und erklärte mir, dass ich erst Mutter Oberin Ardulace töten müsse, bevor ich mit den Eiern aus der Stadt fliehen könne. Wenn ich das mache, bleiben mir nur ein paar Minuten, um aus der Stadt zu kommen, bevor meine Verkleidung von den verärgerten Zofen Lolths entdeckt wird. Kein Zweifel, meine Chance wird sich während des Rituals ergeben... ganz schön knapp.
        EraseJournalEntry(6403) // Das Beschwörungsritual der Drow.  Ich habe Phaere die echten silbernen Eier gegeben... Mir blieb kein anderer Ausweg... Sie ging zum Tempel der Lolth und befahl mir, ihr zu folgen.
        EraseJournalEntry(6590) // Das Beschwörungsritual der Drow.  Ich gab Phaere die Eier, die ich von Solaufein erhalten habe... und es sieht so aus, als wäre sie auf meinen kleinen Trick reingefallen. Die echten Eier sind immer noch in meinem Besitz... und beide, Phaere und Mutter Oberin Ardulace, glauben nun, sie hätten die echten Eier für das Ritual. Phaere ist zum Tempel von Lolth vorgegangen und befahl mir, ihr sofort zu folgen.
        EraseJournalEntry(7147) // Das Beschwörungsritual der Drow.  Ich habe wieder mal Solaufein getroffen, der offensichtlich in die Stadt zurückgekehrt ist, um Phaere auszuspionieren. Er dankte mir dafür, dass ich ihn verschont habe, und gab mir noch eine Kopie der Eier des Silberdrachen... diese wird sogar Phaere nicht von den echten unterscheiden können.
        EraseJournalEntry(7148) // Das Beschwörungsritual der Drow  Phaere hat mir den gesamten Plan von Ardulace enthüllt. Die Drow beabsichtigen, zur Oberfläche vorzudringen ... zu welchem Zweck auch immer. Doch das Ritual von Oberin Ardulace wird einen mächtigen Dämonen beschwören, der die Drow unterstützen wird. Als Gegenleistung für die Dienste des Dämons sollen diesem die Dracheneier geopfert werden, wodurch das Haus Despana in den Augen Lolths an Ansehen gewinnt. Phaere beabsichtigt, Ardulace zu hintergehen und hat mich mehr oder weniger zur Mitarbeit bewegt. Sie will, dass ich in die Schatzkammer der Despana im Tempel von Lolth gehe und die Eier des Silberdrachens durch die von Phaere angefertigten Fälschungen ersetze. Sobald Ardulace dann die gefälschten Eier anbietet, kann Phaere mit den echten auftreten. Bei meinem Besuch in der Schatzkammer muss ich vorsichtig sein... Wenn sich das Töten der Wachen nicht umgehen lässt, dann muss es sehr diskret geschehen. Und selbst wenn ich die Eier finden sollte - die Stadt wurde von Oberin Ardulace abgeriegelt ... es gibt keine Fluchtmöglichkeit. Ich muss das Spiel mitspielen ... vorerst jedenfalls.
        EraseJournalEntry(15793) // Das Beschwörungsritual der Drow  Ich bin mit dem Blut zurückgekehrt, und Mutter Ardulace war sehr erfreut. Sie erwähnte, dass sie vorhat, ein Ritual durchzuführen... und bevor sie damit anfängt, wollte sie die Stadt versiegeln. Ich nehme an, es bedeutet, dass niemand hinein oder heraus kann. Sie sagte auch, dass die 'Silberne' am Betreten gehindert sei... offensichtlich weiß sie etwas über die Eier des Silberdrachens. Mutter Ardulace empfahl mir, etwas auszuspannen, aber Phaere ordnete an, sie in einer Stunde in ihren Gemächern aufzusuchen. Sie hat anscheinend etwas Anderes im Sinn.
        EraseJournalEntry(15792) // Das Beschwörungsritual der Drow  Die Oberin Ardulace hat mich fortgeschickt, ihr das Blut von jemandem zu beschaffen, der einer der Alten Rassen im Unterreich angehört. Ich soll entweder in die Tunnel der Betrachter im Südosten gehen und einen Älteren Betrachter töten, oder die Illithidenstadt im Südosten aufsuchen und ein Ältestenhirn töten oder aber mich zu den Kuo-Toan-Ruinen im Westen begeben und einen Kuo-Tuan-Prinzen töten. Sobald ich das Blut habe, soll ich umgehend zu Ardulace zurückkehren.
        EraseJournalEntry(23424) // Das Beschwörungsritual der Drow  Die Mutter Oberin Ardulace hat beschlossen, dass ich ihr nützlich sein kann. Ich soll irgendwelche Zutaten für sie sammeln. Wofür diese Zutaten dienen sollen, hat sie mir nicht verraten, vielleicht für irgendeinen Zauber. Ich soll eine Meister-Peitsche der Kuo-Toas finden. Diese halten sich im westlichen Teil der Höhlen auf. Ich habe drei Tage, um mit dem Blut dieses Wesens zur Mutter Oberin zurückzukehren.
        SetGlobal("drowEraseJournal","GLOBAL",2)
        Continue()
END

IF
    Global("DrowCityHostile","GLOBAL",1)
    Global("drowEraseJournal","GLOBAL",2)
    !AreaCheck("AR2102")
THEN
    RESPONSE #100
        AddJournalEntry(19438,QUEST_DONE) // In der Stadt der Drow  Man hat mich entdeckt, und der Alarm schallte durch die ganze Stadt der Drow. Es wird problematisch sein, auch nur irgendwohin zu gelangen, um es mal zahm auszudrücken. Ganz offensichtlich hätte ich vorsichtiger sein sollen.
        SetGlobal("drowEraseJournal","GLOBAL",1)
END

IF
    Global("DrowCityHostile","GLOBAL",1)
    Global("drowEraseJournal","GLOBAL",2)
    AreaCheck("AR2102")
THEN
    RESPONSE #100
        SetGlobal("drowEraseJournal","GLOBAL",1)
END

IF
    PartyRested()
THEN
    RESPONSE #100
        SmallWait(1)
END

IF
    OR(2)
        Global("JaheiraRomanceActive","GLOBAL",1)
        Global("JaheiraRomanceActive","GLOBAL",2)
    !InPartyAllowDead("Jaheira")
    Dead("Jaheira")
THEN
    RESPONSE #100
        SetGlobal("JaheiraRomanceActive","GLOBAL",3)
END

IF
    OR(2)
        Global("AerieRomanceActive","GLOBAL",1)
        Global("AerieRomanceActive","GLOBAL",2)
    !InPartyAllowDead("Aerie")
    Dead("Aerie") // Aerie
THEN
    RESPONSE #100
        SetGlobal("AerieRomanceActive","GLOBAL",3)
END

IF
    OR(2)
        Global("ViconiaRomanceActive","GLOBAL",1)
        Global("ViconiaRomanceActive","GLOBAL",2)
    !InPartyAllowDead("Viconia")
    Dead("Viconia")
THEN
    RESPONSE #100
        SetGlobal("ViconiaRomanceActive","GLOBAL",3)
END

IF
    OR(2)
        Global("AnomenRomanceActive","GLOBAL",1)
        Global("AnomenRomanceActive","GLOBAL",2)
    !InPartyAllowDead("Anomen")
    Dead("Anomen")
THEN
    RESPONSE #100
        SetGlobal("AnomenRomanceActive","GLOBAL",3)
END

IF
    Global("AerieRomanceActive","GLOBAL",1)
    Global("AerieRomanceOut","GLOBAL",0)
    !InPartyAllowDead("Aerie")
    !Dead("Aerie") // Aerie
THEN
    RESPONSE #100
        SetGlobal("AerieRomanceOut","GLOBAL",1)
        SetGlobalTimer("AerieOutOfParty","GLOBAL",THREE_DAYS)
END

IF
    Global("AerieRomanceActive","GLOBAL",1)
    Global("AerieRomanceOut","GLOBAL",1)
    GlobalTimerExpired("AerieOutOfParty","GLOBAL")
    !InPartyAllowDead("Aerie")
    !Dead("Aerie") // Aerie
THEN
    RESPONSE #100
        SetGlobal("AerieRomanceActive","GLOBAL",3)
END

IF
    Global("AerieRomanceActive","GLOBAL",1)
    Global("AerieRomanceOut","GLOBAL",1)
    !GlobalTimerExpired("AerieOutOfParty","GLOBAL")
    InPartyAllowDead("Aerie")
THEN
    RESPONSE #100
        SetGlobal("AerieRomanceOut","GLOBAL",0)
        RealSetGlobalTimer("AerieRomance","GLOBAL",TWELVE_HOURS)
END

IF
    Global("ViconiaRomanceActive","GLOBAL",1)
    Global("ViconiaRomanceOut","GLOBAL",0)
    !InPartyAllowDead("Viconia")
    !Dead("Viconia")
THEN
    RESPONSE #100
        SetGlobal("ViconiaRomanceOut","GLOBAL",1)
        SetGlobalTimer("ViconiaOutOfParty","GLOBAL",THREE_DAYS)
END

IF
    Global("ViconiaRomanceActive","GLOBAL",1)
    Global("ViconiaRomanceOut","GLOBAL",1)
    GlobalTimerExpired("ViconiaOutOfParty","GLOBAL")
    !InPartyAllowDead("Viconia")
    !Dead("Viconia")
THEN
    RESPONSE #100
        SetGlobal("ViconiaRomanceActive","GLOBAL",3)
END

IF
    Global("ViconiaRomanceActive","GLOBAL",1)
    Global("ViconiaRomanceOut","GLOBAL",1)
    !GlobalTimerExpired("ViconiaOutOfParty","GLOBAL")
    InPartyAllowDead("Viconia")
THEN
    RESPONSE #100
        SetGlobal("ViconiaRomanceOut","GLOBAL",0)
        RealSetGlobalTimer("ViconiaRomance","GLOBAL",TWELVE_HOURS)
END

IF
    Global("AnomenRomanceActive","GLOBAL",1)
    Global("AnomenRomanceOut","GLOBAL",0)
    !InPartyAllowDead("Anomen")
    !Dead("Anomen")
THEN
    RESPONSE #100
        SetGlobal("AnomenRomanceOut","GLOBAL",1)
        SetGlobalTimer("AnomenOutOfParty","GLOBAL",THREE_DAYS)
END

IF
    Global("AnomenRomanceActive","GLOBAL",1)
    Global("AnomenRomanceOut","GLOBAL",1)
    GlobalTimerExpired("AnomenOutOfParty","GLOBAL")
    !InPartyAllowDead("Anomen")
    !Dead("Anomen")
THEN
    RESPONSE #100
        SetGlobal("AnomenRomanceActive","GLOBAL",3)
END

IF
    Global("AnomenRomanceActive","GLOBAL",1)
    Global("AnomenRomanceOut","GLOBAL",1)
    !GlobalTimerExpired("AnomenOutOfParty","GLOBAL")
    InPartyAllowDead("Anomen")
THEN
    RESPONSE #100
        SetGlobal("AnomenRomanceOut","GLOBAL",0)
        RealSetGlobalTimer("AnomenRomance","GLOBAL",TWELVE_HOURS)
END

IF
    Global("CbPlayer1Has_Life_Eater","GLOBAL",5)
    !HasItem("CBHBLFET",Player1) // Hellblade:  Lifeeater
    PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
        GiveItemCreate("CBHBLFET",Player1,1,0,0) // Hellblade:  Lifeeater
        ReputationInc(-1)
END

IF
    Global("CbPlayer1Has_Life_Eater","GLOBAL",5)
    !HasItem("CBHBLFET",Player1) // Hellblade:  Lifeeater
    !PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player1,PickUpItem("CBHBLFET")) // Hellblade:  Lifeeater
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer1_Life_EaterTimerTwo","GLOBAL")
    Global("CbPlayer1Has_Life_Eater","GLOBAL",3)
    HasItem("CBHBLFET",Player1) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Life_Eater","GLOBAL",5)
        ChangeAlignment(Player1,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer1Has_Life_Eater","GLOBAL",0)
    GlobalTimerExpired("CbLife_Eater_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
        GiveItemCreate("CBHBLFET",Player1,1,0,0) // Hellblade:  Lifeeater
        SetGlobal("CbPlayer1Has_Life_Eater","GLOBAL",3)
        SetGlobalTimer("CbPlayer1_Life_EaterTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer1Has_Life_Eater","GLOBAL",3)
    !HasItem("CBHBLFET",Player1) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Life_Eater","GLOBAL",0)
        SetGlobalTimer("CbLife_Eater_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer1Has_Life_Eater","GLOBAL",2)
    GlobalTimerExpired("CbPlayer1_Life_Eater_TimerOne","GLOBAL")
    HasItem("CBHBLFET",Player1) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Life_Eater","GLOBAL",3)
        ChangeAlignment(Player1,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer1_Life_EaterTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer1Has_Life_Eater","GLOBAL",0)
    GlobalTimerExpired("CbLife_Eater_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
        GiveItemCreate("CBHBLFET",Player1,1,0,0) // Hellblade:  Lifeeater
        SetGlobal("CbPlayer1Has_Life_Eater","GLOBAL",1)
END

IF
    Global("CbPlayer1Has_Life_Eater","GLOBAL",2)
    !HasItem("CBHBLFET",Player1) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Life_Eater","GLOBAL",0)
        SetGlobalTimer("CbLife_Eater_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer1Has_Life_Eater","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Life_Eater","GLOBAL",2)
        SetGlobalTimer("CbPlayer1_Life_Eater_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBLFET",Player1) // Hellblade:  Lifeeater
    PartyHasItemIdentified("CBHBLFET") // Hellblade:  Lifeeater
    Global("CbPlayer1Has_Life_Eater","GLOBAL",0)
    !Global("CbPlayer2Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer3Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer4Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer5Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer6Has_Life_Eater","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Life_Eater","GLOBAL",1)
END

IF
    Global("CbPlayer2Has_Life_Eater","GLOBAL",5)
    !HasItem("CBHBLFET",Player2) // Hellblade:  Lifeeater
    PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
        GiveItemCreate("CBHBLFET",Player2,1,0,0) // Hellblade:  Lifeeater
        ReputationInc(-1)
END

IF
    Global("CbPlayer2Has_Life_Eater","GLOBAL",5)
    !HasItem("CBHBLFET",Player2) // Hellblade:  Lifeeater
    !PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player2,PickUpItem("CBHBLFET")) // Hellblade:  Lifeeater
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer2_Life_EaterTimerTwo","GLOBAL")
    Global("CbPlayer2Has_Life_Eater","GLOBAL",3)
    HasItem("CBHBLFET",Player2) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Life_Eater","GLOBAL",5)
        ChangeAlignment(Player2,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer2Has_Life_Eater","GLOBAL",0)
    GlobalTimerExpired("CbLife_Eater_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
        GiveItemCreate("CBHBLFET",Player2,1,0,0) // Hellblade:  Lifeeater
        SetGlobal("CbPlayer2Has_Life_Eater","GLOBAL",3)
        SetGlobalTimer("CbPlayer2_Life_EaterTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer2Has_Life_Eater","GLOBAL",3)
    !HasItem("CBHBLFET",Player2) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Life_Eater","GLOBAL",0)
        SetGlobalTimer("CbLife_Eater_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer2Has_Life_Eater","GLOBAL",2)
    GlobalTimerExpired("CbPlayer2_Life_Eater_TimerOne","GLOBAL")
    HasItem("CBHBLFET",Player2) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Life_Eater","GLOBAL",3)
        ChangeAlignment(Player2,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer2_Life_EaterTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer2Has_Life_Eater","GLOBAL",0)
    GlobalTimerExpired("CbLife_Eater_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
        GiveItemCreate("CBHBLFET",Player2,1,0,0) // Hellblade:  Lifeeater
        SetGlobal("CbPlayer2Has_Life_Eater","GLOBAL",1)
END

IF
    Global("CbPlayer2Has_Life_Eater","GLOBAL",2)
    !HasItem("CBHBLFET",Player2) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Life_Eater","GLOBAL",0)
        SetGlobalTimer("CbLife_Eater_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer2Has_Life_Eater","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Life_Eater","GLOBAL",2)
        SetGlobalTimer("CbPlayer2_Life_Eater_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBLFET",Player2) // Hellblade:  Lifeeater
    PartyHasItemIdentified("CBHBLFET") // Hellblade:  Lifeeater
    Global("CbPlayer2Has_Life_Eater","GLOBAL",0)
    !Global("CbPlayer1Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer3Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer4Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer5Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer6Has_Life_Eater","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Life_Eater","GLOBAL",1)
END

IF
    Global("CbPlayer3Has_Life_Eater","GLOBAL",5)
    !HasItem("CBHBLFET",Player3) // Hellblade:  Lifeeater
    PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
        GiveItemCreate("CBHBLFET",Player3,1,0,0) // Hellblade:  Lifeeater
        ReputationInc(-1)
END

IF
    Global("CbPlayer3Has_Life_Eater","GLOBAL",5)
    !HasItem("CBHBLFET",Player3) // Hellblade:  Lifeeater
    !PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player3,PickUpItem("CBHBLFET")) // Hellblade:  Lifeeater
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer3_Life_EaterTimerTwo","GLOBAL")
    Global("CbPlayer3Has_Life_Eater","GLOBAL",3)
    HasItem("CBHBLFET",Player3) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Life_Eater","GLOBAL",5)
        ChangeAlignment(Player3,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer3Has_Life_Eater","GLOBAL",0)
    GlobalTimerExpired("CbLife_Eater_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
        GiveItemCreate("CBHBLFET",Player3,1,0,0) // Hellblade:  Lifeeater
        SetGlobal("CbPlayer3Has_Life_Eater","GLOBAL",3)
        SetGlobalTimer("CbPlayer3_Life_EaterTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer3Has_Life_Eater","GLOBAL",3)
    !HasItem("CBHBLFET",Player3) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Life_Eater","GLOBAL",0)
        SetGlobalTimer("CbLife_Eater_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer3Has_Life_Eater","GLOBAL",2)
    GlobalTimerExpired("CbPlayer3_Life_Eater_TimerOne","GLOBAL")
    HasItem("CBHBLFET",Player3) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Life_Eater","GLOBAL",3)
        ChangeAlignment(Player3,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer3_Life_EaterTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer3Has_Life_Eater","GLOBAL",0)
    GlobalTimerExpired("CbLife_Eater_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
        GiveItemCreate("CBHBLFET",Player3,1,0,0) // Hellblade:  Lifeeater
        SetGlobal("CbPlayer3Has_Life_Eater","GLOBAL",1)
END

IF
    Global("CbPlayer3Has_Life_Eater","GLOBAL",2)
    !HasItem("CBHBLFET",Player3) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Life_Eater","GLOBAL",0)
        SetGlobalTimer("CbLife_Eater_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer3Has_Life_Eater","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Life_Eater","GLOBAL",2)
        SetGlobalTimer("CbPlayer3_Life_Eater_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBLFET",Player3) // Hellblade:  Lifeeater
    PartyHasItemIdentified("CBHBLFET") // Hellblade:  Lifeeater
    Global("CbPlayer3Has_Life_Eater","GLOBAL",0)
    !Global("CbPlayer1Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer2Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer4Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer5Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer6Has_Life_Eater","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Life_Eater","GLOBAL",1)
END

IF
    Global("CbPlayer4Has_Life_Eater","GLOBAL",5)
    !HasItem("CBHBLFET",Player4) // Hellblade:  Lifeeater
    PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
        GiveItemCreate("CBHBLFET",Player4,1,0,0) // Hellblade:  Lifeeater
        ReputationInc(-1)
END

IF
    Global("CbPlayer4Has_Life_Eater","GLOBAL",5)
    !HasItem("CBHBLFET",Player4) // Hellblade:  Lifeeater
    !PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player4,PickUpItem("CBHBLFET")) // Hellblade:  Lifeeater
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer4_Life_EaterTimerTwo","GLOBAL")
    Global("CbPlayer4Has_Life_Eater","GLOBAL",3)
    HasItem("CBHBLFET",Player4) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Life_Eater","GLOBAL",5)
        ChangeAlignment(Player4,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer4Has_Life_Eater","GLOBAL",0)
    GlobalTimerExpired("CbLife_Eater_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
        GiveItemCreate("CBHBLFET",Player4,1,0,0) // Hellblade:  Lifeeater
        SetGlobal("CbPlayer4Has_Life_Eater","GLOBAL",3)
        SetGlobalTimer("CbPlayer4_Life_EaterTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer4Has_Life_Eater","GLOBAL",3)
    !HasItem("CBHBLFET",Player4) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Life_Eater","GLOBAL",0)
        SetGlobalTimer("CbLife_Eater_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer4Has_Life_Eater","GLOBAL",2)
    GlobalTimerExpired("CbPlayer4_Life_Eater_TimerOne","GLOBAL")
    HasItem("CBHBLFET",Player4) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Life_Eater","GLOBAL",3)
        ChangeAlignment(Player4,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer4_Life_EaterTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer4Has_Life_Eater","GLOBAL",0)
    GlobalTimerExpired("CbLife_Eater_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
        GiveItemCreate("CBHBLFET",Player4,1,0,0) // Hellblade:  Lifeeater
        SetGlobal("CbPlayer4Has_Life_Eater","GLOBAL",1)
END

IF
    Global("CbPlayer4Has_Life_Eater","GLOBAL",2)
    !HasItem("CBHBLFET",Player4) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Life_Eater","GLOBAL",0)
        SetGlobalTimer("CbLife_Eater_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer4Has_Life_Eater","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Life_Eater","GLOBAL",2)
        SetGlobalTimer("CbPlayer4_Life_Eater_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBLFET",Player4) // Hellblade:  Lifeeater
    PartyHasItemIdentified("CBHBLFET") // Hellblade:  Lifeeater
    Global("CbPlayer4Has_Life_Eater","GLOBAL",0)
    !Global("CbPlayer1Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer2Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer3Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer5Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer6Has_Life_Eater","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Life_Eater","GLOBAL",1)
END

IF
    Global("CbPlayer5Has_Life_Eater","GLOBAL",5)
    !HasItem("CBHBLFET",Player5) // Hellblade:  Lifeeater
    PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
        GiveItemCreate("CBHBLFET",Player5,1,0,0) // Hellblade:  Lifeeater
        ReputationInc(-1)
END

IF
    Global("CbPlayer5Has_Life_Eater","GLOBAL",5)
    !HasItem("CBHBLFET",Player5) // Hellblade:  Lifeeater
    !PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player5,PickUpItem("CBHBLFET")) // Hellblade:  Lifeeater
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer5_Life_EaterTimerTwo","GLOBAL")
    Global("CbPlayer5Has_Life_Eater","GLOBAL",3)
    HasItem("CBHBLFET",Player5) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Life_Eater","GLOBAL",5)
        ChangeAlignment(Player5,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer5Has_Life_Eater","GLOBAL",0)
    GlobalTimerExpired("CbLife_Eater_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
        GiveItemCreate("CBHBLFET",Player5,1,0,0) // Hellblade:  Lifeeater
        SetGlobal("CbPlayer5Has_Life_Eater","GLOBAL",3)
        SetGlobalTimer("CbPlayer5_Life_EaterTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer5Has_Life_Eater","GLOBAL",3)
    !HasItem("CBHBLFET",Player5) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Life_Eater","GLOBAL",0)
        SetGlobalTimer("CbLife_Eater_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer5Has_Life_Eater","GLOBAL",2)
    GlobalTimerExpired("CbPlayer5_Life_Eater_TimerOne","GLOBAL")
    HasItem("CBHBLFET",Player5) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Life_Eater","GLOBAL",3)
        ChangeAlignment(Player5,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer5_Life_EaterTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer5Has_Life_Eater","GLOBAL",0)
    GlobalTimerExpired("CbLife_Eater_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
        GiveItemCreate("CBHBLFET",Player5,1,0,0) // Hellblade:  Lifeeater
        SetGlobal("CbPlayer5Has_Life_Eater","GLOBAL",1)
END

IF
    Global("CbPlayer5Has_Life_Eater","GLOBAL",2)
    !HasItem("CBHBLFET",Player5) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Life_Eater","GLOBAL",0)
        SetGlobalTimer("CbLife_Eater_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer5Has_Life_Eater","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Life_Eater","GLOBAL",2)
        SetGlobalTimer("CbPlayer5_Life_Eater_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBLFET",Player5) // Hellblade:  Lifeeater
    PartyHasItemIdentified("CBHBLFET") // Hellblade:  Lifeeater
    Global("CbPlayer5Has_Life_Eater","GLOBAL",0)
    !Global("CbPlayer1Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer2Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer3Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer4Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer6Has_Life_Eater","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Life_Eater","GLOBAL",1)
END

IF
    Global("CbPlayer6Has_Life_Eater","GLOBAL",5)
    !HasItem("CBHBLFET",Player6) // Hellblade:  Lifeeater
    PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
        GiveItemCreate("CBHBLFET",Player6,1,0,0) // Hellblade:  Lifeeater
        ReputationInc(-1)
END

IF
    Global("CbPlayer6Has_Life_Eater","GLOBAL",5)
    !HasItem("CBHBLFET",Player6) // Hellblade:  Lifeeater
    !PartyHasItem("CBHBLFET") // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player6,PickUpItem("CBHBLFET")) // Hellblade:  Lifeeater
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer6_Life_EaterTimerTwo","GLOBAL")
    Global("CbPlayer6Has_Life_Eater","GLOBAL",3)
    HasItem("CBHBLFET",Player6) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Life_Eater","GLOBAL",5)
        ChangeAlignment(Player6,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer6Has_Life_Eater","GLOBAL",0)
    GlobalTimerExpired("CbLife_Eater_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
        GiveItemCreate("CBHBLFET",Player6,1,0,0) // Hellblade:  Lifeeater
        SetGlobal("CbPlayer6Has_Life_Eater","GLOBAL",3)
        SetGlobalTimer("CbPlayer6_Life_EaterTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer6Has_Life_Eater","GLOBAL",3)
    !HasItem("CBHBLFET",Player6) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Life_Eater","GLOBAL",0)
        SetGlobalTimer("CbLife_Eater_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer6Has_Life_Eater","GLOBAL",2)
    GlobalTimerExpired("CbPlayer6_Life_Eater_TimerOne","GLOBAL")
    HasItem("CBHBLFET",Player6) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Life_Eater","GLOBAL",3)
        ChangeAlignment(Player6,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer6_Life_EaterTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer6Has_Life_Eater","GLOBAL",0)
    GlobalTimerExpired("CbLife_Eater_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBLFET") // Hellblade:  Lifeeater
        GiveItemCreate("CBHBLFET",Player6,1,0,0) // Hellblade:  Lifeeater
        SetGlobal("CbPlayer6Has_Life_Eater","GLOBAL",1)
END

IF
    Global("CbPlayer6Has_Life_Eater","GLOBAL",2)
    !HasItem("CBHBLFET",Player6) // Hellblade:  Lifeeater
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Life_Eater","GLOBAL",0)
        SetGlobalTimer("CbLife_Eater_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer6Has_Life_Eater","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Life_Eater","GLOBAL",2)
        SetGlobalTimer("CbPlayer6_Life_Eater_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBLFET",Player6) // Hellblade:  Lifeeater
    PartyHasItemIdentified("CBHBLFET") // Hellblade:  Lifeeater
    Global("CbPlayer6Has_Life_Eater","GLOBAL",0)
    !Global("CbPlayer1Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer2Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer3Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer4Has_Life_Eater","GLOBAL",1)
    !Global("CbPlayer5Has_Life_Eater","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Life_Eater","GLOBAL",1)
END

IF
    Global("CbPlayer1Has_Soul_drainer","GLOBAL",5)
    !HasItem("CBHBSLDR",Player1) // Hellblade:  Souldrainer
    PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
        GiveItemCreate("CBHBSLDR",Player1,1,0,0) // Hellblade:  Souldrainer
        ReputationInc(-1)
END

IF
    Global("CbPlayer1Has_Soul_drainer","GLOBAL",5)
    !HasItem("CBHBSLDR",Player1) // Hellblade:  Souldrainer
    !PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player1,PickUpItem("CBHBSLDR")) // Hellblade:  Souldrainer
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer1_Soul_drainerTimerTwo","GLOBAL")
    Global("CbPlayer1Has_Soul_drainer","GLOBAL",3)
    HasItem("CBHBSLDR",Player1) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_drainer","GLOBAL",5)
        ChangeAlignment(Player1,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer1Has_Soul_drainer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_drainer_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
        GiveItemCreate("CBHBSLDR",Player1,1,0,0) // Hellblade:  Souldrainer
        SetGlobal("CbPlayer1Has_Soul_drainer","GLOBAL",3)
        SetGlobalTimer("CbPlayer1_Soul_drainerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer1Has_Soul_drainer","GLOBAL",3)
    !HasItem("CBHBSLDR",Player1) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_drainer","GLOBAL",0)
        SetGlobalTimer("CbSoul_drainer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer1Has_Soul_drainer","GLOBAL",2)
    GlobalTimerExpired("CbPlayer1_Soul_drainer_TimerOne","GLOBAL")
    HasItem("CBHBSLDR",Player1) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_drainer","GLOBAL",3)
        ChangeAlignment(Player1,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer1_Soul_drainerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer1Has_Soul_drainer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_drainer_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
        GiveItemCreate("CBHBSLDR",Player1,1,0,0) // Hellblade:  Souldrainer
        SetGlobal("CbPlayer1Has_Soul_drainer","GLOBAL",1)
END

IF
    Global("CbPlayer1Has_Soul_drainer","GLOBAL",2)
    !HasItem("CBHBSLDR",Player1) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_drainer","GLOBAL",0)
        SetGlobalTimer("CbSoul_drainer_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer1Has_Soul_drainer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_drainer","GLOBAL",2)
        SetGlobalTimer("CbPlayer1_Soul_drainer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLDR",Player1) // Hellblade:  Souldrainer
    PartyHasItemIdentified("CBHBSLDR") // Hellblade:  Souldrainer
    Global("CbPlayer1Has_Soul_drainer","GLOBAL",0)
    !Global("CbPlayer2Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_drainer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_drainer","GLOBAL",1)
END

IF
    Global("CbPlayer2Has_Soul_drainer","GLOBAL",5)
    !HasItem("CBHBSLDR",Player2) // Hellblade:  Souldrainer
    PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
        GiveItemCreate("CBHBSLDR",Player2,1,0,0) // Hellblade:  Souldrainer
        ReputationInc(-1)
END

IF
    Global("CbPlayer2Has_Soul_drainer","GLOBAL",5)
    !HasItem("CBHBSLDR",Player2) // Hellblade:  Souldrainer
    !PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player2,PickUpItem("CBHBSLDR")) // Hellblade:  Souldrainer
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer2_Soul_drainerTimerTwo","GLOBAL")
    Global("CbPlayer2Has_Soul_drainer","GLOBAL",3)
    HasItem("CBHBSLDR",Player2) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_drainer","GLOBAL",5)
        ChangeAlignment(Player2,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer2Has_Soul_drainer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_drainer_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
        GiveItemCreate("CBHBSLDR",Player2,1,0,0) // Hellblade:  Souldrainer
        SetGlobal("CbPlayer2Has_Soul_drainer","GLOBAL",3)
        SetGlobalTimer("CbPlayer2_Soul_drainerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer2Has_Soul_drainer","GLOBAL",3)
    !HasItem("CBHBSLDR",Player2) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_drainer","GLOBAL",0)
        SetGlobalTimer("CbSoul_drainer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer2Has_Soul_drainer","GLOBAL",2)
    GlobalTimerExpired("CbPlayer2_Soul_drainer_TimerOne","GLOBAL")
    HasItem("CBHBSLDR",Player2) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_drainer","GLOBAL",3)
        ChangeAlignment(Player2,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer2_Soul_drainerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer2Has_Soul_drainer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_drainer_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
        GiveItemCreate("CBHBSLDR",Player2,1,0,0) // Hellblade:  Souldrainer
        SetGlobal("CbPlayer2Has_Soul_drainer","GLOBAL",1)
END

IF
    Global("CbPlayer2Has_Soul_drainer","GLOBAL",2)
    !HasItem("CBHBSLDR",Player2) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_drainer","GLOBAL",0)
        SetGlobalTimer("CbSoul_drainer_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer2Has_Soul_drainer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_drainer","GLOBAL",2)
        SetGlobalTimer("CbPlayer2_Soul_drainer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLDR",Player2) // Hellblade:  Souldrainer
    PartyHasItemIdentified("CBHBSLDR") // Hellblade:  Souldrainer
    Global("CbPlayer2Has_Soul_drainer","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_drainer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_drainer","GLOBAL",1)
END

IF
    Global("CbPlayer3Has_Soul_drainer","GLOBAL",5)
    !HasItem("CBHBSLDR",Player3) // Hellblade:  Souldrainer
    PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
        GiveItemCreate("CBHBSLDR",Player3,1,0,0) // Hellblade:  Souldrainer
        ReputationInc(-1)
END

IF
    Global("CbPlayer3Has_Soul_drainer","GLOBAL",5)
    !HasItem("CBHBSLDR",Player3) // Hellblade:  Souldrainer
    !PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player3,PickUpItem("CBHBSLDR")) // Hellblade:  Souldrainer
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer3_Soul_drainerTimerTwo","GLOBAL")
    Global("CbPlayer3Has_Soul_drainer","GLOBAL",3)
    HasItem("CBHBSLDR",Player3) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_drainer","GLOBAL",5)
        ChangeAlignment(Player3,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer3Has_Soul_drainer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_drainer_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
        GiveItemCreate("CBHBSLDR",Player3,1,0,0) // Hellblade:  Souldrainer
        SetGlobal("CbPlayer3Has_Soul_drainer","GLOBAL",3)
        SetGlobalTimer("CbPlayer3_Soul_drainerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer3Has_Soul_drainer","GLOBAL",3)
    !HasItem("CBHBSLDR",Player3) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_drainer","GLOBAL",0)
        SetGlobalTimer("CbSoul_drainer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer3Has_Soul_drainer","GLOBAL",2)
    GlobalTimerExpired("CbPlayer3_Soul_drainer_TimerOne","GLOBAL")
    HasItem("CBHBSLDR",Player3) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_drainer","GLOBAL",3)
        ChangeAlignment(Player3,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer3_Soul_drainerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer3Has_Soul_drainer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_drainer_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
        GiveItemCreate("CBHBSLDR",Player3,1,0,0) // Hellblade:  Souldrainer
        SetGlobal("CbPlayer3Has_Soul_drainer","GLOBAL",1)
END

IF
    Global("CbPlayer3Has_Soul_drainer","GLOBAL",2)
    !HasItem("CBHBSLDR",Player3) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_drainer","GLOBAL",0)
        SetGlobalTimer("CbSoul_drainer_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer3Has_Soul_drainer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_drainer","GLOBAL",2)
        SetGlobalTimer("CbPlayer3_Soul_drainer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLDR",Player3) // Hellblade:  Souldrainer
    PartyHasItemIdentified("CBHBSLDR") // Hellblade:  Souldrainer
    Global("CbPlayer3Has_Soul_drainer","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer2Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_drainer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_drainer","GLOBAL",1)
END

IF
    Global("CbPlayer4Has_Soul_drainer","GLOBAL",5)
    !HasItem("CBHBSLDR",Player4) // Hellblade:  Souldrainer
    PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
        GiveItemCreate("CBHBSLDR",Player4,1,0,0) // Hellblade:  Souldrainer
        ReputationInc(-1)
END

IF
    Global("CbPlayer4Has_Soul_drainer","GLOBAL",5)
    !HasItem("CBHBSLDR",Player4) // Hellblade:  Souldrainer
    !PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player4,PickUpItem("CBHBSLDR")) // Hellblade:  Souldrainer
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer4_Soul_drainerTimerTwo","GLOBAL")
    Global("CbPlayer4Has_Soul_drainer","GLOBAL",3)
    HasItem("CBHBSLDR",Player4) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_drainer","GLOBAL",5)
        ChangeAlignment(Player4,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer4Has_Soul_drainer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_drainer_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
        GiveItemCreate("CBHBSLDR",Player4,1,0,0) // Hellblade:  Souldrainer
        SetGlobal("CbPlayer4Has_Soul_drainer","GLOBAL",3)
        SetGlobalTimer("CbPlayer4_Soul_drainerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer4Has_Soul_drainer","GLOBAL",3)
    !HasItem("CBHBSLDR",Player4) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_drainer","GLOBAL",0)
        SetGlobalTimer("CbSoul_drainer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer4Has_Soul_drainer","GLOBAL",2)
    GlobalTimerExpired("CbPlayer4_Soul_drainer_TimerOne","GLOBAL")
    HasItem("CBHBSLDR",Player4) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_drainer","GLOBAL",3)
        ChangeAlignment(Player4,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer4_Soul_drainerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer4Has_Soul_drainer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_drainer_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
        GiveItemCreate("CBHBSLDR",Player4,1,0,0) // Hellblade:  Souldrainer
        SetGlobal("CbPlayer4Has_Soul_drainer","GLOBAL",1)
END

IF
    Global("CbPlayer4Has_Soul_drainer","GLOBAL",2)
    !HasItem("CBHBSLDR",Player4) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_drainer","GLOBAL",0)
        SetGlobalTimer("CbSoul_drainer_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer4Has_Soul_drainer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_drainer","GLOBAL",2)
        SetGlobalTimer("CbPlayer4_Soul_drainer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLDR",Player4) // Hellblade:  Souldrainer
    PartyHasItemIdentified("CBHBSLDR") // Hellblade:  Souldrainer
    Global("CbPlayer4Has_Soul_drainer","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer2Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_drainer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_drainer","GLOBAL",1)
END

IF
    Global("CbPlayer5Has_Soul_drainer","GLOBAL",5)
    !HasItem("CBHBSLDR",Player5) // Hellblade:  Souldrainer
    PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
        GiveItemCreate("CBHBSLDR",Player5,1,0,0) // Hellblade:  Souldrainer
        ReputationInc(-1)
END

IF
    Global("CbPlayer5Has_Soul_drainer","GLOBAL",5)
    !HasItem("CBHBSLDR",Player5) // Hellblade:  Souldrainer
    !PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player5,PickUpItem("CBHBSLDR")) // Hellblade:  Souldrainer
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer5_Soul_drainerTimerTwo","GLOBAL")
    Global("CbPlayer5Has_Soul_drainer","GLOBAL",3)
    HasItem("CBHBSLDR",Player5) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_drainer","GLOBAL",5)
        ChangeAlignment(Player5,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer5Has_Soul_drainer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_drainer_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
        GiveItemCreate("CBHBSLDR",Player5,1,0,0) // Hellblade:  Souldrainer
        SetGlobal("CbPlayer5Has_Soul_drainer","GLOBAL",3)
        SetGlobalTimer("CbPlayer5_Soul_drainerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer5Has_Soul_drainer","GLOBAL",3)
    !HasItem("CBHBSLDR",Player5) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_drainer","GLOBAL",0)
        SetGlobalTimer("CbSoul_drainer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer5Has_Soul_drainer","GLOBAL",2)
    GlobalTimerExpired("CbPlayer5_Soul_drainer_TimerOne","GLOBAL")
    HasItem("CBHBSLDR",Player5) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_drainer","GLOBAL",3)
        ChangeAlignment(Player5,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer5_Soul_drainerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer5Has_Soul_drainer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_drainer_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
        GiveItemCreate("CBHBSLDR",Player5,1,0,0) // Hellblade:  Souldrainer
        SetGlobal("CbPlayer5Has_Soul_drainer","GLOBAL",1)
END

IF
    Global("CbPlayer5Has_Soul_drainer","GLOBAL",2)
    !HasItem("CBHBSLDR",Player5) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_drainer","GLOBAL",0)
        SetGlobalTimer("CbSoul_drainer_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer5Has_Soul_drainer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_drainer","GLOBAL",2)
        SetGlobalTimer("CbPlayer5_Soul_drainer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLDR",Player5) // Hellblade:  Souldrainer
    PartyHasItemIdentified("CBHBSLDR") // Hellblade:  Souldrainer
    Global("CbPlayer5Has_Soul_drainer","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer2Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_drainer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_drainer","GLOBAL",1)
END

IF
    Global("CbPlayer6Has_Soul_drainer","GLOBAL",5)
    !HasItem("CBHBSLDR",Player6) // Hellblade:  Souldrainer
    PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
        GiveItemCreate("CBHBSLDR",Player6,1,0,0) // Hellblade:  Souldrainer
        ReputationInc(-1)
END

IF
    Global("CbPlayer6Has_Soul_drainer","GLOBAL",5)
    !HasItem("CBHBSLDR",Player6) // Hellblade:  Souldrainer
    !PartyHasItem("CBHBSLDR") // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player6,PickUpItem("CBHBSLDR")) // Hellblade:  Souldrainer
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer6_Soul_drainerTimerTwo","GLOBAL")
    Global("CbPlayer6Has_Soul_drainer","GLOBAL",3)
    HasItem("CBHBSLDR",Player6) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_drainer","GLOBAL",5)
        ChangeAlignment(Player6,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer6Has_Soul_drainer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_drainer_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
        GiveItemCreate("CBHBSLDR",Player6,1,0,0) // Hellblade:  Souldrainer
        SetGlobal("CbPlayer6Has_Soul_drainer","GLOBAL",3)
        SetGlobalTimer("CbPlayer6_Soul_drainerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer6Has_Soul_drainer","GLOBAL",3)
    !HasItem("CBHBSLDR",Player6) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_drainer","GLOBAL",0)
        SetGlobalTimer("CbSoul_drainer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer6Has_Soul_drainer","GLOBAL",2)
    GlobalTimerExpired("CbPlayer6_Soul_drainer_TimerOne","GLOBAL")
    HasItem("CBHBSLDR",Player6) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_drainer","GLOBAL",3)
        ChangeAlignment(Player6,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer6_Soul_drainerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer6Has_Soul_drainer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_drainer_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDR") // Hellblade:  Souldrainer
        GiveItemCreate("CBHBSLDR",Player6,1,0,0) // Hellblade:  Souldrainer
        SetGlobal("CbPlayer6Has_Soul_drainer","GLOBAL",1)
END

IF
    Global("CbPlayer6Has_Soul_drainer","GLOBAL",2)
    !HasItem("CBHBSLDR",Player6) // Hellblade:  Souldrainer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_drainer","GLOBAL",0)
        SetGlobalTimer("CbSoul_drainer_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer6Has_Soul_drainer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_drainer","GLOBAL",2)
        SetGlobalTimer("CbPlayer6_Soul_drainer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLDR",Player6) // Hellblade:  Souldrainer
    PartyHasItemIdentified("CBHBSLDR") // Hellblade:  Souldrainer
    Global("CbPlayer6Has_Soul_drainer","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer2Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_drainer","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_drainer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_drainer","GLOBAL",1)
END

IF
    Global("CbPlayer1Has_Soul_devourer","GLOBAL",5)
    !HasItem("CBHBSLDV",Player1) // Hellblade:  Souldevourer
    PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
        GiveItemCreate("CBHBSLDV",Player1,1,0,0) // Hellblade:  Souldevourer
        ReputationInc(-1)
END

IF
    Global("CbPlayer1Has_Soul_devourer","GLOBAL",5)
    !HasItem("CBHBSLDV",Player1) // Hellblade:  Souldevourer
    !PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player1,PickUpItem("CBHBSLDV")) // Hellblade:  Souldevourer
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer1_Soul_devourerTimerTwo","GLOBAL")
    Global("CbPlayer1Has_Soul_devourer","GLOBAL",3)
    HasItem("CBHBSLDV",Player1) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_devourer","GLOBAL",5)
        ChangeAlignment(Player1,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer1Has_Soul_devourer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_devourer_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
        GiveItemCreate("CBHBSLDV",Player1,1,0,0) // Hellblade:  Souldevourer
        SetGlobal("CbPlayer1Has_Soul_devourer","GLOBAL",3)
        SetGlobalTimer("CbPlayer1_Soul_devourerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer1Has_Soul_devourer","GLOBAL",3)
    !HasItem("CBHBSLDV",Player1) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_devourer","GLOBAL",0)
        SetGlobalTimer("CbSoul_devourer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer1Has_Soul_devourer","GLOBAL",2)
    GlobalTimerExpired("CbPlayer1_Soul_devourer_TimerOne","GLOBAL")
    HasItem("CBHBSLDV",Player1) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_devourer","GLOBAL",3)
        ChangeAlignment(Player1,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer1_Soul_devourerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer1Has_Soul_devourer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_devourer_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
        GiveItemCreate("CBHBSLDV",Player1,1,0,0) // Hellblade:  Souldevourer
        SetGlobal("CbPlayer1Has_Soul_devourer","GLOBAL",1)
END

IF
    Global("CbPlayer1Has_Soul_devourer","GLOBAL",2)
    !HasItem("CBHBSLDV",Player1) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_devourer","GLOBAL",0)
        SetGlobalTimer("CbSoul_devourer_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer1Has_Soul_devourer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_devourer","GLOBAL",2)
        SetGlobalTimer("CbPlayer1_Soul_devourer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLDV",Player1) // Hellblade:  Souldevourer
    PartyHasItemIdentified("CBHBSLDV") // Hellblade:  Souldevourer
    Global("CbPlayer1Has_Soul_devourer","GLOBAL",0)
    !Global("CbPlayer2Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_devourer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_devourer","GLOBAL",1)
END

IF
    Global("CbPlayer2Has_Soul_devourer","GLOBAL",5)
    !HasItem("CBHBSLDV",Player2) // Hellblade:  Souldevourer
    PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
        GiveItemCreate("CBHBSLDV",Player2,1,0,0) // Hellblade:  Souldevourer
        ReputationInc(-1)
END

IF
    Global("CbPlayer2Has_Soul_devourer","GLOBAL",5)
    !HasItem("CBHBSLDV",Player2) // Hellblade:  Souldevourer
    !PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player2,PickUpItem("CBHBSLDV")) // Hellblade:  Souldevourer
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer2_Soul_devourerTimerTwo","GLOBAL")
    Global("CbPlayer2Has_Soul_devourer","GLOBAL",3)
    HasItem("CBHBSLDV",Player2) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_devourer","GLOBAL",5)
        ChangeAlignment(Player2,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer2Has_Soul_devourer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_devourer_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
        GiveItemCreate("CBHBSLDV",Player2,1,0,0) // Hellblade:  Souldevourer
        SetGlobal("CbPlayer2Has_Soul_devourer","GLOBAL",3)
        SetGlobalTimer("CbPlayer2_Soul_devourerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer2Has_Soul_devourer","GLOBAL",3)
    !HasItem("CBHBSLDV",Player2) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_devourer","GLOBAL",0)
        SetGlobalTimer("CbSoul_devourer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer2Has_Soul_devourer","GLOBAL",2)
    GlobalTimerExpired("CbPlayer2_Soul_devourer_TimerOne","GLOBAL")
    HasItem("CBHBSLDV",Player2) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_devourer","GLOBAL",3)
        ChangeAlignment(Player2,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer2_Soul_devourerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer2Has_Soul_devourer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_devourer_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
        GiveItemCreate("CBHBSLDV",Player2,1,0,0) // Hellblade:  Souldevourer
        SetGlobal("CbPlayer2Has_Soul_devourer","GLOBAL",1)
END

IF
    Global("CbPlayer2Has_Soul_devourer","GLOBAL",2)
    !HasItem("CBHBSLDV",Player2) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_devourer","GLOBAL",0)
        SetGlobalTimer("CbSoul_devourer_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer2Has_Soul_devourer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_devourer","GLOBAL",2)
        SetGlobalTimer("CbPlayer2_Soul_devourer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLDV",Player2) // Hellblade:  Souldevourer
    PartyHasItemIdentified("CBHBSLDV") // Hellblade:  Souldevourer
    Global("CbPlayer2Has_Soul_devourer","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_devourer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_devourer","GLOBAL",1)
END

IF
    Global("CbPlayer3Has_Soul_devourer","GLOBAL",5)
    !HasItem("CBHBSLDV",Player3) // Hellblade:  Souldevourer
    PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
        GiveItemCreate("CBHBSLDV",Player3,1,0,0) // Hellblade:  Souldevourer
        ReputationInc(-1)
END

IF
    Global("CbPlayer3Has_Soul_devourer","GLOBAL",5)
    !HasItem("CBHBSLDV",Player3) // Hellblade:  Souldevourer
    !PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player3,PickUpItem("CBHBSLDV")) // Hellblade:  Souldevourer
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer3_Soul_devourerTimerTwo","GLOBAL")
    Global("CbPlayer3Has_Soul_devourer","GLOBAL",3)
    HasItem("CBHBSLDV",Player3) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_devourer","GLOBAL",5)
        ChangeAlignment(Player3,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer3Has_Soul_devourer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_devourer_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
        GiveItemCreate("CBHBSLDV",Player3,1,0,0) // Hellblade:  Souldevourer
        SetGlobal("CbPlayer3Has_Soul_devourer","GLOBAL",3)
        SetGlobalTimer("CbPlayer3_Soul_devourerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer3Has_Soul_devourer","GLOBAL",3)
    !HasItem("CBHBSLDV",Player3) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_devourer","GLOBAL",0)
        SetGlobalTimer("CbSoul_devourer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer3Has_Soul_devourer","GLOBAL",2)
    GlobalTimerExpired("CbPlayer3_Soul_devourer_TimerOne","GLOBAL")
    HasItem("CBHBSLDV",Player3) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_devourer","GLOBAL",3)
        ChangeAlignment(Player3,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer3_Soul_devourerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer3Has_Soul_devourer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_devourer_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
        GiveItemCreate("CBHBSLDV",Player3,1,0,0) // Hellblade:  Souldevourer
        SetGlobal("CbPlayer3Has_Soul_devourer","GLOBAL",1)
END

IF
    Global("CbPlayer3Has_Soul_devourer","GLOBAL",2)
    !HasItem("CBHBSLDV",Player3) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_devourer","GLOBAL",0)
        SetGlobalTimer("CbSoul_devourer_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer3Has_Soul_devourer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_devourer","GLOBAL",2)
        SetGlobalTimer("CbPlayer3_Soul_devourer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLDV",Player3) // Hellblade:  Souldevourer
    PartyHasItemIdentified("CBHBSLDV") // Hellblade:  Souldevourer
    Global("CbPlayer3Has_Soul_devourer","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer2Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_devourer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_devourer","GLOBAL",1)
END

IF
    Global("CbPlayer4Has_Soul_devourer","GLOBAL",5)
    !HasItem("CBHBSLDV",Player4) // Hellblade:  Souldevourer
    PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
        GiveItemCreate("CBHBSLDV",Player4,1,0,0) // Hellblade:  Souldevourer
        ReputationInc(-1)
END

IF
    Global("CbPlayer4Has_Soul_devourer","GLOBAL",5)
    !HasItem("CBHBSLDV",Player4) // Hellblade:  Souldevourer
    !PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player4,PickUpItem("CBHBSLDV")) // Hellblade:  Souldevourer
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer4_Soul_devourerTimerTwo","GLOBAL")
    Global("CbPlayer4Has_Soul_devourer","GLOBAL",3)
    HasItem("CBHBSLDV",Player4) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_devourer","GLOBAL",5)
        ChangeAlignment(Player4,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer4Has_Soul_devourer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_devourer_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
        GiveItemCreate("CBHBSLDV",Player4,1,0,0) // Hellblade:  Souldevourer
        SetGlobal("CbPlayer4Has_Soul_devourer","GLOBAL",3)
        SetGlobalTimer("CbPlayer4_Soul_devourerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer4Has_Soul_devourer","GLOBAL",3)
    !HasItem("CBHBSLDV",Player4) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_devourer","GLOBAL",0)
        SetGlobalTimer("CbSoul_devourer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer4Has_Soul_devourer","GLOBAL",2)
    GlobalTimerExpired("CbPlayer4_Soul_devourer_TimerOne","GLOBAL")
    HasItem("CBHBSLDV",Player4) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_devourer","GLOBAL",3)
        ChangeAlignment(Player4,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer4_Soul_devourerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer4Has_Soul_devourer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_devourer_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
        GiveItemCreate("CBHBSLDV",Player4,1,0,0) // Hellblade:  Souldevourer
        SetGlobal("CbPlayer4Has_Soul_devourer","GLOBAL",1)
END

IF
    Global("CbPlayer4Has_Soul_devourer","GLOBAL",2)
    !HasItem("CBHBSLDV",Player4) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_devourer","GLOBAL",0)
        SetGlobalTimer("CbSoul_devourer_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer4Has_Soul_devourer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_devourer","GLOBAL",2)
        SetGlobalTimer("CbPlayer4_Soul_devourer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLDV",Player4) // Hellblade:  Souldevourer
    PartyHasItemIdentified("CBHBSLDV") // Hellblade:  Souldevourer
    Global("CbPlayer4Has_Soul_devourer","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer2Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_devourer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_devourer","GLOBAL",1)
END

IF
    Global("CbPlayer5Has_Soul_devourer","GLOBAL",5)
    !HasItem("CBHBSLDV",Player5) // Hellblade:  Souldevourer
    PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
        GiveItemCreate("CBHBSLDV",Player5,1,0,0) // Hellblade:  Souldevourer
        ReputationInc(-1)
END

IF
    Global("CbPlayer5Has_Soul_devourer","GLOBAL",5)
    !HasItem("CBHBSLDV",Player5) // Hellblade:  Souldevourer
    !PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player5,PickUpItem("CBHBSLDV")) // Hellblade:  Souldevourer
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer5_Soul_devourerTimerTwo","GLOBAL")
    Global("CbPlayer5Has_Soul_devourer","GLOBAL",3)
    HasItem("CBHBSLDV",Player5) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_devourer","GLOBAL",5)
        ChangeAlignment(Player5,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer5Has_Soul_devourer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_devourer_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
        GiveItemCreate("CBHBSLDV",Player5,1,0,0) // Hellblade:  Souldevourer
        SetGlobal("CbPlayer5Has_Soul_devourer","GLOBAL",3)
        SetGlobalTimer("CbPlayer5_Soul_devourerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer5Has_Soul_devourer","GLOBAL",3)
    !HasItem("CBHBSLDV",Player5) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_devourer","GLOBAL",0)
        SetGlobalTimer("CbSoul_devourer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer5Has_Soul_devourer","GLOBAL",2)
    GlobalTimerExpired("CbPlayer5_Soul_devourer_TimerOne","GLOBAL")
    HasItem("CBHBSLDV",Player5) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_devourer","GLOBAL",3)
        ChangeAlignment(Player5,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer5_Soul_devourerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer5Has_Soul_devourer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_devourer_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
        GiveItemCreate("CBHBSLDV",Player5,1,0,0) // Hellblade:  Souldevourer
        SetGlobal("CbPlayer5Has_Soul_devourer","GLOBAL",1)
END

IF
    Global("CbPlayer5Has_Soul_devourer","GLOBAL",2)
    !HasItem("CBHBSLDV",Player5) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_devourer","GLOBAL",0)
        SetGlobalTimer("CbSoul_devourer_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer5Has_Soul_devourer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_devourer","GLOBAL",2)
        SetGlobalTimer("CbPlayer5_Soul_devourer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLDV",Player5) // Hellblade:  Souldevourer
    PartyHasItemIdentified("CBHBSLDV") // Hellblade:  Souldevourer
    Global("CbPlayer5Has_Soul_devourer","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer2Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_devourer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_devourer","GLOBAL",1)
END

IF
    Global("CbPlayer6Has_Soul_devourer","GLOBAL",5)
    !HasItem("CBHBSLDV",Player6) // Hellblade:  Souldevourer
    PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
        GiveItemCreate("CBHBSLDV",Player6,1,0,0) // Hellblade:  Souldevourer
        ReputationInc(-1)
END

IF
    Global("CbPlayer6Has_Soul_devourer","GLOBAL",5)
    !HasItem("CBHBSLDV",Player6) // Hellblade:  Souldevourer
    !PartyHasItem("CBHBSLDV") // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player6,PickUpItem("CBHBSLDV")) // Hellblade:  Souldevourer
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer6_Soul_devourerTimerTwo","GLOBAL")
    Global("CbPlayer6Has_Soul_devourer","GLOBAL",3)
    HasItem("CBHBSLDV",Player6) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_devourer","GLOBAL",5)
        ChangeAlignment(Player6,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer6Has_Soul_devourer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_devourer_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
        GiveItemCreate("CBHBSLDV",Player6,1,0,0) // Hellblade:  Souldevourer
        SetGlobal("CbPlayer6Has_Soul_devourer","GLOBAL",3)
        SetGlobalTimer("CbPlayer6_Soul_devourerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer6Has_Soul_devourer","GLOBAL",3)
    !HasItem("CBHBSLDV",Player6) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_devourer","GLOBAL",0)
        SetGlobalTimer("CbSoul_devourer_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer6Has_Soul_devourer","GLOBAL",2)
    GlobalTimerExpired("CbPlayer6_Soul_devourer_TimerOne","GLOBAL")
    HasItem("CBHBSLDV",Player6) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_devourer","GLOBAL",3)
        ChangeAlignment(Player6,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer6_Soul_devourerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer6Has_Soul_devourer","GLOBAL",0)
    GlobalTimerExpired("CbSoul_devourer_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLDV") // Hellblade:  Souldevourer
        GiveItemCreate("CBHBSLDV",Player6,1,0,0) // Hellblade:  Souldevourer
        SetGlobal("CbPlayer6Has_Soul_devourer","GLOBAL",1)
END

IF
    Global("CbPlayer6Has_Soul_devourer","GLOBAL",2)
    !HasItem("CBHBSLDV",Player6) // Hellblade:  Souldevourer
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_devourer","GLOBAL",0)
        SetGlobalTimer("CbSoul_devourer_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer6Has_Soul_devourer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_devourer","GLOBAL",2)
        SetGlobalTimer("CbPlayer6_Soul_devourer_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLDV",Player6) // Hellblade:  Souldevourer
    PartyHasItemIdentified("CBHBSLDV") // Hellblade:  Souldevourer
    Global("CbPlayer6Has_Soul_devourer","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer2Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_devourer","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_devourer","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_devourer","GLOBAL",1)
END

IF
    Global("CbPlayer1Has_Soul_sucker","GLOBAL",5)
    !HasItem("CBHBSLSK",Player1) // Hellblade:  Soulsucker
    PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
        GiveItemCreate("CBHBSLSK",Player1,1,0,0) // Hellblade:  Soulsucker
        ReputationInc(-1)
END

IF
    Global("CbPlayer1Has_Soul_sucker","GLOBAL",5)
    !HasItem("CBHBSLSK",Player1) // Hellblade:  Soulsucker
    !PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player1,PickUpItem("CBHBSLSK")) // Hellblade:  Soulsucker
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer1_Soul_suckerTimerTwo","GLOBAL")
    Global("CbPlayer1Has_Soul_sucker","GLOBAL",3)
    HasItem("CBHBSLSK",Player1) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_sucker","GLOBAL",5)
        ChangeAlignment(Player1,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer1Has_Soul_sucker","GLOBAL",0)
    GlobalTimerExpired("CbSoul_sucker_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
        GiveItemCreate("CBHBSLSK",Player1,1,0,0) // Hellblade:  Soulsucker
        SetGlobal("CbPlayer1Has_Soul_sucker","GLOBAL",3)
        SetGlobalTimer("CbPlayer1_Soul_suckerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer1Has_Soul_sucker","GLOBAL",3)
    !HasItem("CBHBSLSK",Player1) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_sucker","GLOBAL",0)
        SetGlobalTimer("CbSoul_sucker_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer1Has_Soul_sucker","GLOBAL",2)
    GlobalTimerExpired("CbPlayer1_Soul_sucker_TimerOne","GLOBAL")
    HasItem("CBHBSLSK",Player1) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_sucker","GLOBAL",3)
        ChangeAlignment(Player1,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer1_Soul_suckerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer1Has_Soul_sucker","GLOBAL",0)
    GlobalTimerExpired("CbSoul_sucker_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
        GiveItemCreate("CBHBSLSK",Player1,1,0,0) // Hellblade:  Soulsucker
        SetGlobal("CbPlayer1Has_Soul_sucker","GLOBAL",1)
END

IF
    Global("CbPlayer1Has_Soul_sucker","GLOBAL",2)
    !HasItem("CBHBSLSK",Player1) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_sucker","GLOBAL",0)
        SetGlobalTimer("CbSoul_sucker_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer1Has_Soul_sucker","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_sucker","GLOBAL",2)
        SetGlobalTimer("CbPlayer1_Soul_sucker_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLSK",Player1) // Hellblade:  Soulsucker
    PartyHasItemIdentified("CBHBSLSK") // Hellblade:  Soulsucker
    Global("CbPlayer1Has_Soul_sucker","GLOBAL",0)
    !Global("CbPlayer2Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_sucker","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_sucker","GLOBAL",1)
END

IF
    Global("CbPlayer2Has_Soul_sucker","GLOBAL",5)
    !HasItem("CBHBSLSK",Player2) // Hellblade:  Soulsucker
    PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
        GiveItemCreate("CBHBSLSK",Player2,1,0,0) // Hellblade:  Soulsucker
        ReputationInc(-1)
END

IF
    Global("CbPlayer2Has_Soul_sucker","GLOBAL",5)
    !HasItem("CBHBSLSK",Player2) // Hellblade:  Soulsucker
    !PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player2,PickUpItem("CBHBSLSK")) // Hellblade:  Soulsucker
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer2_Soul_suckerTimerTwo","GLOBAL")
    Global("CbPlayer2Has_Soul_sucker","GLOBAL",3)
    HasItem("CBHBSLSK",Player2) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_sucker","GLOBAL",5)
        ChangeAlignment(Player2,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer2Has_Soul_sucker","GLOBAL",0)
    GlobalTimerExpired("CbSoul_sucker_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
        GiveItemCreate("CBHBSLSK",Player2,1,0,0) // Hellblade:  Soulsucker
        SetGlobal("CbPlayer2Has_Soul_sucker","GLOBAL",3)
        SetGlobalTimer("CbPlayer2_Soul_suckerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer2Has_Soul_sucker","GLOBAL",3)
    !HasItem("CBHBSLSK",Player2) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_sucker","GLOBAL",0)
        SetGlobalTimer("CbSoul_sucker_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer2Has_Soul_sucker","GLOBAL",2)
    GlobalTimerExpired("CbPlayer2_Soul_sucker_TimerOne","GLOBAL")
    HasItem("CBHBSLSK",Player2) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_sucker","GLOBAL",3)
        ChangeAlignment(Player2,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer2_Soul_suckerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer2Has_Soul_sucker","GLOBAL",0)
    GlobalTimerExpired("CbSoul_sucker_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
        GiveItemCreate("CBHBSLSK",Player2,1,0,0) // Hellblade:  Soulsucker
        SetGlobal("CbPlayer2Has_Soul_sucker","GLOBAL",1)
END

IF
    Global("CbPlayer2Has_Soul_sucker","GLOBAL",2)
    !HasItem("CBHBSLSK",Player2) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_sucker","GLOBAL",0)
        SetGlobalTimer("CbSoul_sucker_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer2Has_Soul_sucker","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_sucker","GLOBAL",2)
        SetGlobalTimer("CbPlayer2_Soul_sucker_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLSK",Player2) // Hellblade:  Soulsucker
    PartyHasItemIdentified("CBHBSLSK") // Hellblade:  Soulsucker
    Global("CbPlayer2Has_Soul_sucker","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_sucker","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_sucker","GLOBAL",1)
END

IF
    Global("CbPlayer3Has_Soul_sucker","GLOBAL",5)
    !HasItem("CBHBSLSK",Player3) // Hellblade:  Soulsucker
    PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
        GiveItemCreate("CBHBSLSK",Player3,1,0,0) // Hellblade:  Soulsucker
        ReputationInc(-1)
END

IF
    Global("CbPlayer3Has_Soul_sucker","GLOBAL",5)
    !HasItem("CBHBSLSK",Player3) // Hellblade:  Soulsucker
    !PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player3,PickUpItem("CBHBSLSK")) // Hellblade:  Soulsucker
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer3_Soul_suckerTimerTwo","GLOBAL")
    Global("CbPlayer3Has_Soul_sucker","GLOBAL",3)
    HasItem("CBHBSLSK",Player3) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_sucker","GLOBAL",5)
        ChangeAlignment(Player3,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer3Has_Soul_sucker","GLOBAL",0)
    GlobalTimerExpired("CbSoul_sucker_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
        GiveItemCreate("CBHBSLSK",Player3,1,0,0) // Hellblade:  Soulsucker
        SetGlobal("CbPlayer3Has_Soul_sucker","GLOBAL",3)
        SetGlobalTimer("CbPlayer3_Soul_suckerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer3Has_Soul_sucker","GLOBAL",3)
    !HasItem("CBHBSLSK",Player3) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_sucker","GLOBAL",0)
        SetGlobalTimer("CbSoul_sucker_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer3Has_Soul_sucker","GLOBAL",2)
    GlobalTimerExpired("CbPlayer3_Soul_sucker_TimerOne","GLOBAL")
    HasItem("CBHBSLSK",Player3) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_sucker","GLOBAL",3)
        ChangeAlignment(Player3,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer3_Soul_suckerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer3Has_Soul_sucker","GLOBAL",0)
    GlobalTimerExpired("CbSoul_sucker_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
        GiveItemCreate("CBHBSLSK",Player3,1,0,0) // Hellblade:  Soulsucker
        SetGlobal("CbPlayer3Has_Soul_sucker","GLOBAL",1)
END

IF
    Global("CbPlayer3Has_Soul_sucker","GLOBAL",2)
    !HasItem("CBHBSLSK",Player3) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_sucker","GLOBAL",0)
        SetGlobalTimer("CbSoul_sucker_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer3Has_Soul_sucker","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_sucker","GLOBAL",2)
        SetGlobalTimer("CbPlayer3_Soul_sucker_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLSK",Player3) // Hellblade:  Soulsucker
    PartyHasItemIdentified("CBHBSLSK") // Hellblade:  Soulsucker
    Global("CbPlayer3Has_Soul_sucker","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer2Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_sucker","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_sucker","GLOBAL",1)
END

IF
    Global("CbPlayer4Has_Soul_sucker","GLOBAL",5)
    !HasItem("CBHBSLSK",Player4) // Hellblade:  Soulsucker
    PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
        GiveItemCreate("CBHBSLSK",Player4,1,0,0) // Hellblade:  Soulsucker
        ReputationInc(-1)
END

IF
    Global("CbPlayer4Has_Soul_sucker","GLOBAL",5)
    !HasItem("CBHBSLSK",Player4) // Hellblade:  Soulsucker
    !PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player4,PickUpItem("CBHBSLSK")) // Hellblade:  Soulsucker
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer4_Soul_suckerTimerTwo","GLOBAL")
    Global("CbPlayer4Has_Soul_sucker","GLOBAL",3)
    HasItem("CBHBSLSK",Player4) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_sucker","GLOBAL",5)
        ChangeAlignment(Player4,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer4Has_Soul_sucker","GLOBAL",0)
    GlobalTimerExpired("CbSoul_sucker_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
        GiveItemCreate("CBHBSLSK",Player4,1,0,0) // Hellblade:  Soulsucker
        SetGlobal("CbPlayer4Has_Soul_sucker","GLOBAL",3)
        SetGlobalTimer("CbPlayer4_Soul_suckerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer4Has_Soul_sucker","GLOBAL",3)
    !HasItem("CBHBSLSK",Player4) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_sucker","GLOBAL",0)
        SetGlobalTimer("CbSoul_sucker_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer4Has_Soul_sucker","GLOBAL",2)
    GlobalTimerExpired("CbPlayer4_Soul_sucker_TimerOne","GLOBAL")
    HasItem("CBHBSLSK",Player4) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_sucker","GLOBAL",3)
        ChangeAlignment(Player4,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer4_Soul_suckerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer4Has_Soul_sucker","GLOBAL",0)
    GlobalTimerExpired("CbSoul_sucker_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
        GiveItemCreate("CBHBSLSK",Player4,1,0,0) // Hellblade:  Soulsucker
        SetGlobal("CbPlayer4Has_Soul_sucker","GLOBAL",1)
END

IF
    Global("CbPlayer4Has_Soul_sucker","GLOBAL",2)
    !HasItem("CBHBSLSK",Player4) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_sucker","GLOBAL",0)
        SetGlobalTimer("CbSoul_sucker_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer4Has_Soul_sucker","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_sucker","GLOBAL",2)
        SetGlobalTimer("CbPlayer4_Soul_sucker_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLSK",Player4) // Hellblade:  Soulsucker
    PartyHasItemIdentified("CBHBSLSK") // Hellblade:  Soulsucker
    Global("CbPlayer4Has_Soul_sucker","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer2Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_sucker","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_sucker","GLOBAL",1)
END

IF
    Global("CbPlayer5Has_Soul_sucker","GLOBAL",5)
    !HasItem("CBHBSLSK",Player5) // Hellblade:  Soulsucker
    PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
        GiveItemCreate("CBHBSLSK",Player5,1,0,0) // Hellblade:  Soulsucker
        ReputationInc(-1)
END

IF
    Global("CbPlayer5Has_Soul_sucker","GLOBAL",5)
    !HasItem("CBHBSLSK",Player5) // Hellblade:  Soulsucker
    !PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player5,PickUpItem("CBHBSLSK")) // Hellblade:  Soulsucker
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer5_Soul_suckerTimerTwo","GLOBAL")
    Global("CbPlayer5Has_Soul_sucker","GLOBAL",3)
    HasItem("CBHBSLSK",Player5) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_sucker","GLOBAL",5)
        ChangeAlignment(Player5,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer5Has_Soul_sucker","GLOBAL",0)
    GlobalTimerExpired("CbSoul_sucker_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
        GiveItemCreate("CBHBSLSK",Player5,1,0,0) // Hellblade:  Soulsucker
        SetGlobal("CbPlayer5Has_Soul_sucker","GLOBAL",3)
        SetGlobalTimer("CbPlayer5_Soul_suckerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer5Has_Soul_sucker","GLOBAL",3)
    !HasItem("CBHBSLSK",Player5) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_sucker","GLOBAL",0)
        SetGlobalTimer("CbSoul_sucker_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer5Has_Soul_sucker","GLOBAL",2)
    GlobalTimerExpired("CbPlayer5_Soul_sucker_TimerOne","GLOBAL")
    HasItem("CBHBSLSK",Player5) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_sucker","GLOBAL",3)
        ChangeAlignment(Player5,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer5_Soul_suckerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer5Has_Soul_sucker","GLOBAL",0)
    GlobalTimerExpired("CbSoul_sucker_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
        GiveItemCreate("CBHBSLSK",Player5,1,0,0) // Hellblade:  Soulsucker
        SetGlobal("CbPlayer5Has_Soul_sucker","GLOBAL",1)
END

IF
    Global("CbPlayer5Has_Soul_sucker","GLOBAL",2)
    !HasItem("CBHBSLSK",Player5) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_sucker","GLOBAL",0)
        SetGlobalTimer("CbSoul_sucker_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer5Has_Soul_sucker","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_sucker","GLOBAL",2)
        SetGlobalTimer("CbPlayer5_Soul_sucker_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLSK",Player5) // Hellblade:  Soulsucker
    PartyHasItemIdentified("CBHBSLSK") // Hellblade:  Soulsucker
    Global("CbPlayer5Has_Soul_sucker","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer2Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_sucker","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_sucker","GLOBAL",1)
END

IF
    Global("CbPlayer6Has_Soul_sucker","GLOBAL",5)
    !HasItem("CBHBSLSK",Player6) // Hellblade:  Soulsucker
    PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
        GiveItemCreate("CBHBSLSK",Player6,1,0,0) // Hellblade:  Soulsucker
        ReputationInc(-1)
END

IF
    Global("CbPlayer6Has_Soul_sucker","GLOBAL",5)
    !HasItem("CBHBSLSK",Player6) // Hellblade:  Soulsucker
    !PartyHasItem("CBHBSLSK") // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player6,PickUpItem("CBHBSLSK")) // Hellblade:  Soulsucker
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer6_Soul_suckerTimerTwo","GLOBAL")
    Global("CbPlayer6Has_Soul_sucker","GLOBAL",3)
    HasItem("CBHBSLSK",Player6) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_sucker","GLOBAL",5)
        ChangeAlignment(Player6,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer6Has_Soul_sucker","GLOBAL",0)
    GlobalTimerExpired("CbSoul_sucker_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
        GiveItemCreate("CBHBSLSK",Player6,1,0,0) // Hellblade:  Soulsucker
        SetGlobal("CbPlayer6Has_Soul_sucker","GLOBAL",3)
        SetGlobalTimer("CbPlayer6_Soul_suckerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer6Has_Soul_sucker","GLOBAL",3)
    !HasItem("CBHBSLSK",Player6) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_sucker","GLOBAL",0)
        SetGlobalTimer("CbSoul_sucker_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer6Has_Soul_sucker","GLOBAL",2)
    GlobalTimerExpired("CbPlayer6_Soul_sucker_TimerOne","GLOBAL")
    HasItem("CBHBSLSK",Player6) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_sucker","GLOBAL",3)
        ChangeAlignment(Player6,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer6_Soul_suckerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer6Has_Soul_sucker","GLOBAL",0)
    GlobalTimerExpired("CbSoul_sucker_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSK") // Hellblade:  Soulsucker
        GiveItemCreate("CBHBSLSK",Player6,1,0,0) // Hellblade:  Soulsucker
        SetGlobal("CbPlayer6Has_Soul_sucker","GLOBAL",1)
END

IF
    Global("CbPlayer6Has_Soul_sucker","GLOBAL",2)
    !HasItem("CBHBSLSK",Player6) // Hellblade:  Soulsucker
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_sucker","GLOBAL",0)
        SetGlobalTimer("CbSoul_sucker_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer6Has_Soul_sucker","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_sucker","GLOBAL",2)
        SetGlobalTimer("CbPlayer6_Soul_sucker_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLSK",Player6) // Hellblade:  Soulsucker
    PartyHasItemIdentified("CBHBSLSK") // Hellblade:  Soulsucker
    Global("CbPlayer6Has_Soul_sucker","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer2Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_sucker","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_sucker","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_sucker","GLOBAL",1)
END

IF
    Global("CbPlayer1Has_Soul_skinner","GLOBAL",5)
    !HasItem("CBHBSLSN",Player1) // Hellblade:  Soulskinner
    PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
        GiveItemCreate("CBHBSLSN",Player1,1,0,0) // Hellblade:  Soulskinner
        ReputationInc(-1)
END

IF
    Global("CbPlayer1Has_Soul_skinner","GLOBAL",5)
    !HasItem("CBHBSLSN",Player1) // Hellblade:  Soulskinner
    !PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player1,PickUpItem("CBHBSLSN")) // Hellblade:  Soulskinner
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer1_Soul_skinnerTimerTwo","GLOBAL")
    Global("CbPlayer1Has_Soul_skinner","GLOBAL",3)
    HasItem("CBHBSLSN",Player1) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_skinner","GLOBAL",5)
        ChangeAlignment(Player1,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer1Has_Soul_skinner","GLOBAL",0)
    GlobalTimerExpired("CbSoul_skinner_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
        GiveItemCreate("CBHBSLSN",Player1,1,0,0) // Hellblade:  Soulskinner
        SetGlobal("CbPlayer1Has_Soul_skinner","GLOBAL",3)
        SetGlobalTimer("CbPlayer1_Soul_skinnerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer1Has_Soul_skinner","GLOBAL",3)
    !HasItem("CBHBSLSN",Player1) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_skinner","GLOBAL",0)
        SetGlobalTimer("CbSoul_skinner_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer1Has_Soul_skinner","GLOBAL",2)
    GlobalTimerExpired("CbPlayer1_Soul_skinner_TimerOne","GLOBAL")
    HasItem("CBHBSLSN",Player1) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_skinner","GLOBAL",3)
        ChangeAlignment(Player1,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer1_Soul_skinnerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer1Has_Soul_skinner","GLOBAL",0)
    GlobalTimerExpired("CbSoul_skinner_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
        GiveItemCreate("CBHBSLSN",Player1,1,0,0) // Hellblade:  Soulskinner
        SetGlobal("CbPlayer1Has_Soul_skinner","GLOBAL",1)
END

IF
    Global("CbPlayer1Has_Soul_skinner","GLOBAL",2)
    !HasItem("CBHBSLSN",Player1) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_skinner","GLOBAL",0)
        SetGlobalTimer("CbSoul_skinner_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer1Has_Soul_skinner","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_skinner","GLOBAL",2)
        SetGlobalTimer("CbPlayer1_Soul_skinner_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLSN",Player1) // Hellblade:  Soulskinner
    PartyHasItemIdentified("CBHBSLSN") // Hellblade:  Soulskinner
    Global("CbPlayer1Has_Soul_skinner","GLOBAL",0)
    !Global("CbPlayer2Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_skinner","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_skinner","GLOBAL",1)
END

IF
    Global("CbPlayer2Has_Soul_skinner","GLOBAL",5)
    !HasItem("CBHBSLSN",Player2) // Hellblade:  Soulskinner
    PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
        GiveItemCreate("CBHBSLSN",Player2,1,0,0) // Hellblade:  Soulskinner
        ReputationInc(-1)
END

IF
    Global("CbPlayer2Has_Soul_skinner","GLOBAL",5)
    !HasItem("CBHBSLSN",Player2) // Hellblade:  Soulskinner
    !PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player2,PickUpItem("CBHBSLSN")) // Hellblade:  Soulskinner
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer2_Soul_skinnerTimerTwo","GLOBAL")
    Global("CbPlayer2Has_Soul_skinner","GLOBAL",3)
    HasItem("CBHBSLSN",Player2) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_skinner","GLOBAL",5)
        ChangeAlignment(Player2,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer2Has_Soul_skinner","GLOBAL",0)
    GlobalTimerExpired("CbSoul_skinner_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
        GiveItemCreate("CBHBSLSN",Player2,1,0,0) // Hellblade:  Soulskinner
        SetGlobal("CbPlayer2Has_Soul_skinner","GLOBAL",3)
        SetGlobalTimer("CbPlayer2_Soul_skinnerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer2Has_Soul_skinner","GLOBAL",3)
    !HasItem("CBHBSLSN",Player2) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_skinner","GLOBAL",0)
        SetGlobalTimer("CbSoul_skinner_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer2Has_Soul_skinner","GLOBAL",2)
    GlobalTimerExpired("CbPlayer2_Soul_skinner_TimerOne","GLOBAL")
    HasItem("CBHBSLSN",Player2) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_skinner","GLOBAL",3)
        ChangeAlignment(Player2,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer2_Soul_skinnerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer2Has_Soul_skinner","GLOBAL",0)
    GlobalTimerExpired("CbSoul_skinner_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
        GiveItemCreate("CBHBSLSN",Player2,1,0,0) // Hellblade:  Soulskinner
        SetGlobal("CbPlayer2Has_Soul_skinner","GLOBAL",1)
END

IF
    Global("CbPlayer2Has_Soul_skinner","GLOBAL",2)
    !HasItem("CBHBSLSN",Player2) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_skinner","GLOBAL",0)
        SetGlobalTimer("CbSoul_skinner_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer2Has_Soul_skinner","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_skinner","GLOBAL",2)
        SetGlobalTimer("CbPlayer2_Soul_skinner_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLSN",Player2) // Hellblade:  Soulskinner
    PartyHasItemIdentified("CBHBSLSN") // Hellblade:  Soulskinner
    Global("CbPlayer2Has_Soul_skinner","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_skinner","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_skinner","GLOBAL",1)
END

IF
    Global("CbPlayer3Has_Soul_skinner","GLOBAL",5)
    !HasItem("CBHBSLSN",Player3) // Hellblade:  Soulskinner
    PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
        GiveItemCreate("CBHBSLSN",Player3,1,0,0) // Hellblade:  Soulskinner
        ReputationInc(-1)
END

IF
    Global("CbPlayer3Has_Soul_skinner","GLOBAL",5)
    !HasItem("CBHBSLSN",Player3) // Hellblade:  Soulskinner
    !PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player3,PickUpItem("CBHBSLSN")) // Hellblade:  Soulskinner
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer3_Soul_skinnerTimerTwo","GLOBAL")
    Global("CbPlayer3Has_Soul_skinner","GLOBAL",3)
    HasItem("CBHBSLSN",Player3) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_skinner","GLOBAL",5)
        ChangeAlignment(Player3,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer3Has_Soul_skinner","GLOBAL",0)
    GlobalTimerExpired("CbSoul_skinner_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
        GiveItemCreate("CBHBSLSN",Player3,1,0,0) // Hellblade:  Soulskinner
        SetGlobal("CbPlayer3Has_Soul_skinner","GLOBAL",3)
        SetGlobalTimer("CbPlayer3_Soul_skinnerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer3Has_Soul_skinner","GLOBAL",3)
    !HasItem("CBHBSLSN",Player3) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_skinner","GLOBAL",0)
        SetGlobalTimer("CbSoul_skinner_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer3Has_Soul_skinner","GLOBAL",2)
    GlobalTimerExpired("CbPlayer3_Soul_skinner_TimerOne","GLOBAL")
    HasItem("CBHBSLSN",Player3) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_skinner","GLOBAL",3)
        ChangeAlignment(Player3,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer3_Soul_skinnerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer3Has_Soul_skinner","GLOBAL",0)
    GlobalTimerExpired("CbSoul_skinner_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
        GiveItemCreate("CBHBSLSN",Player3,1,0,0) // Hellblade:  Soulskinner
        SetGlobal("CbPlayer3Has_Soul_skinner","GLOBAL",1)
END

IF
    Global("CbPlayer3Has_Soul_skinner","GLOBAL",2)
    !HasItem("CBHBSLSN",Player3) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_skinner","GLOBAL",0)
        SetGlobalTimer("CbSoul_skinner_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer3Has_Soul_skinner","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_skinner","GLOBAL",2)
        SetGlobalTimer("CbPlayer3_Soul_skinner_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLSN",Player3) // Hellblade:  Soulskinner
    PartyHasItemIdentified("CBHBSLSN") // Hellblade:  Soulskinner
    Global("CbPlayer3Has_Soul_skinner","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer2Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_skinner","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_skinner","GLOBAL",1)
END

IF
    Global("CbPlayer4Has_Soul_skinner","GLOBAL",5)
    !HasItem("CBHBSLSN",Player4) // Hellblade:  Soulskinner
    PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
        GiveItemCreate("CBHBSLSN",Player4,1,0,0) // Hellblade:  Soulskinner
        ReputationInc(-1)
END

IF
    Global("CbPlayer4Has_Soul_skinner","GLOBAL",5)
    !HasItem("CBHBSLSN",Player4) // Hellblade:  Soulskinner
    !PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player4,PickUpItem("CBHBSLSN")) // Hellblade:  Soulskinner
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer4_Soul_skinnerTimerTwo","GLOBAL")
    Global("CbPlayer4Has_Soul_skinner","GLOBAL",3)
    HasItem("CBHBSLSN",Player4) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_skinner","GLOBAL",5)
        ChangeAlignment(Player4,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer4Has_Soul_skinner","GLOBAL",0)
    GlobalTimerExpired("CbSoul_skinner_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
        GiveItemCreate("CBHBSLSN",Player4,1,0,0) // Hellblade:  Soulskinner
        SetGlobal("CbPlayer4Has_Soul_skinner","GLOBAL",3)
        SetGlobalTimer("CbPlayer4_Soul_skinnerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer4Has_Soul_skinner","GLOBAL",3)
    !HasItem("CBHBSLSN",Player4) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_skinner","GLOBAL",0)
        SetGlobalTimer("CbSoul_skinner_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer4Has_Soul_skinner","GLOBAL",2)
    GlobalTimerExpired("CbPlayer4_Soul_skinner_TimerOne","GLOBAL")
    HasItem("CBHBSLSN",Player4) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_skinner","GLOBAL",3)
        ChangeAlignment(Player4,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer4_Soul_skinnerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer4Has_Soul_skinner","GLOBAL",0)
    GlobalTimerExpired("CbSoul_skinner_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
        GiveItemCreate("CBHBSLSN",Player4,1,0,0) // Hellblade:  Soulskinner
        SetGlobal("CbPlayer4Has_Soul_skinner","GLOBAL",1)
END

IF
    Global("CbPlayer4Has_Soul_skinner","GLOBAL",2)
    !HasItem("CBHBSLSN",Player4) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_skinner","GLOBAL",0)
        SetGlobalTimer("CbSoul_skinner_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer4Has_Soul_skinner","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_skinner","GLOBAL",2)
        SetGlobalTimer("CbPlayer4_Soul_skinner_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLSN",Player4) // Hellblade:  Soulskinner
    PartyHasItemIdentified("CBHBSLSN") // Hellblade:  Soulskinner
    Global("CbPlayer4Has_Soul_skinner","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer2Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_skinner","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_skinner","GLOBAL",1)
END

IF
    Global("CbPlayer5Has_Soul_skinner","GLOBAL",5)
    !HasItem("CBHBSLSN",Player5) // Hellblade:  Soulskinner
    PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
        GiveItemCreate("CBHBSLSN",Player5,1,0,0) // Hellblade:  Soulskinner
        ReputationInc(-1)
END

IF
    Global("CbPlayer5Has_Soul_skinner","GLOBAL",5)
    !HasItem("CBHBSLSN",Player5) // Hellblade:  Soulskinner
    !PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player5,PickUpItem("CBHBSLSN")) // Hellblade:  Soulskinner
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer5_Soul_skinnerTimerTwo","GLOBAL")
    Global("CbPlayer5Has_Soul_skinner","GLOBAL",3)
    HasItem("CBHBSLSN",Player5) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_skinner","GLOBAL",5)
        ChangeAlignment(Player5,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer5Has_Soul_skinner","GLOBAL",0)
    GlobalTimerExpired("CbSoul_skinner_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
        GiveItemCreate("CBHBSLSN",Player5,1,0,0) // Hellblade:  Soulskinner
        SetGlobal("CbPlayer5Has_Soul_skinner","GLOBAL",3)
        SetGlobalTimer("CbPlayer5_Soul_skinnerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer5Has_Soul_skinner","GLOBAL",3)
    !HasItem("CBHBSLSN",Player5) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_skinner","GLOBAL",0)
        SetGlobalTimer("CbSoul_skinner_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer5Has_Soul_skinner","GLOBAL",2)
    GlobalTimerExpired("CbPlayer5_Soul_skinner_TimerOne","GLOBAL")
    HasItem("CBHBSLSN",Player5) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_skinner","GLOBAL",3)
        ChangeAlignment(Player5,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer5_Soul_skinnerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer5Has_Soul_skinner","GLOBAL",0)
    GlobalTimerExpired("CbSoul_skinner_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
        GiveItemCreate("CBHBSLSN",Player5,1,0,0) // Hellblade:  Soulskinner
        SetGlobal("CbPlayer5Has_Soul_skinner","GLOBAL",1)
END

IF
    Global("CbPlayer5Has_Soul_skinner","GLOBAL",2)
    !HasItem("CBHBSLSN",Player5) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_skinner","GLOBAL",0)
        SetGlobalTimer("CbSoul_skinner_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer5Has_Soul_skinner","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_skinner","GLOBAL",2)
        SetGlobalTimer("CbPlayer5_Soul_skinner_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLSN",Player5) // Hellblade:  Soulskinner
    PartyHasItemIdentified("CBHBSLSN") // Hellblade:  Soulskinner
    Global("CbPlayer5Has_Soul_skinner","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer2Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_skinner","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_skinner","GLOBAL",1)
END

IF
    Global("CbPlayer6Has_Soul_skinner","GLOBAL",5)
    !HasItem("CBHBSLSN",Player6) // Hellblade:  Soulskinner
    PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
        GiveItemCreate("CBHBSLSN",Player6,1,0,0) // Hellblade:  Soulskinner
        ReputationInc(-1)
END

IF
    Global("CbPlayer6Has_Soul_skinner","GLOBAL",5)
    !HasItem("CBHBSLSN",Player6) // Hellblade:  Soulskinner
    !PartyHasItem("CBHBSLSN") // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player6,PickUpItem("CBHBSLSN")) // Hellblade:  Soulskinner
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer6_Soul_skinnerTimerTwo","GLOBAL")
    Global("CbPlayer6Has_Soul_skinner","GLOBAL",3)
    HasItem("CBHBSLSN",Player6) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_skinner","GLOBAL",5)
        ChangeAlignment(Player6,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer6Has_Soul_skinner","GLOBAL",0)
    GlobalTimerExpired("CbSoul_skinner_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
        GiveItemCreate("CBHBSLSN",Player6,1,0,0) // Hellblade:  Soulskinner
        SetGlobal("CbPlayer6Has_Soul_skinner","GLOBAL",3)
        SetGlobalTimer("CbPlayer6_Soul_skinnerTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer6Has_Soul_skinner","GLOBAL",3)
    !HasItem("CBHBSLSN",Player6) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_skinner","GLOBAL",0)
        SetGlobalTimer("CbSoul_skinner_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer6Has_Soul_skinner","GLOBAL",2)
    GlobalTimerExpired("CbPlayer6_Soul_skinner_TimerOne","GLOBAL")
    HasItem("CBHBSLSN",Player6) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_skinner","GLOBAL",3)
        ChangeAlignment(Player6,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer6_Soul_skinnerTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer6Has_Soul_skinner","GLOBAL",0)
    GlobalTimerExpired("CbSoul_skinner_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLSN") // Hellblade:  Soulskinner
        GiveItemCreate("CBHBSLSN",Player6,1,0,0) // Hellblade:  Soulskinner
        SetGlobal("CbPlayer6Has_Soul_skinner","GLOBAL",1)
END

IF
    Global("CbPlayer6Has_Soul_skinner","GLOBAL",2)
    !HasItem("CBHBSLSN",Player6) // Hellblade:  Soulskinner
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_skinner","GLOBAL",0)
        SetGlobalTimer("CbSoul_skinner_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer6Has_Soul_skinner","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_skinner","GLOBAL",2)
        SetGlobalTimer("CbPlayer6_Soul_skinner_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLSN",Player6) // Hellblade:  Soulskinner
    PartyHasItemIdentified("CBHBSLSN") // Hellblade:  Soulskinner
    Global("CbPlayer6Has_Soul_skinner","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer2Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_skinner","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_skinner","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_skinner","GLOBAL",1)
END

IF
    Global("CbPlayer1Has_Soul_zapper","GLOBAL",5)
    !HasItem("CBHBSLZP",Player1) // Hellblade:  Soulzapper
    PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
        GiveItemCreate("CBHBSLZP",Player1,1,0,0) // Hellblade:  Soulzapper
        ReputationInc(-1)
END

IF
    Global("CbPlayer1Has_Soul_zapper","GLOBAL",5)
    !HasItem("CBHBSLZP",Player1) // Hellblade:  Soulzapper
    !PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player1,PickUpItem("CBHBSLZP")) // Hellblade:  Soulzapper
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer1_Soul_zapperTimerTwo","GLOBAL")
    Global("CbPlayer1Has_Soul_zapper","GLOBAL",3)
    HasItem("CBHBSLZP",Player1) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_zapper","GLOBAL",5)
        ChangeAlignment(Player1,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer1Has_Soul_zapper","GLOBAL",0)
    GlobalTimerExpired("CbSoul_zapper_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
        GiveItemCreate("CBHBSLZP",Player1,1,0,0) // Hellblade:  Soulzapper
        SetGlobal("CbPlayer1Has_Soul_zapper","GLOBAL",3)
        SetGlobalTimer("CbPlayer1_Soul_zapperTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer1Has_Soul_zapper","GLOBAL",3)
    !HasItem("CBHBSLZP",Player1) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_zapper","GLOBAL",0)
        SetGlobalTimer("CbSoul_zapper_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer1Has_Soul_zapper","GLOBAL",2)
    GlobalTimerExpired("CbPlayer1_Soul_zapper_TimerOne","GLOBAL")
    HasItem("CBHBSLZP",Player1) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_zapper","GLOBAL",3)
        ChangeAlignment(Player1,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer1_Soul_zapperTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer1Has_Soul_zapper","GLOBAL",0)
    GlobalTimerExpired("CbSoul_zapper_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
        GiveItemCreate("CBHBSLZP",Player1,1,0,0) // Hellblade:  Soulzapper
        SetGlobal("CbPlayer1Has_Soul_zapper","GLOBAL",1)
END

IF
    Global("CbPlayer1Has_Soul_zapper","GLOBAL",2)
    !HasItem("CBHBSLZP",Player1) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_zapper","GLOBAL",0)
        SetGlobalTimer("CbSoul_zapper_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer1Has_Soul_zapper","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_zapper","GLOBAL",2)
        SetGlobalTimer("CbPlayer1_Soul_zapper_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLZP",Player1) // Hellblade:  Soulzapper
    PartyHasItemIdentified("CBHBSLZP") // Hellblade:  Soulzapper
    Global("CbPlayer1Has_Soul_zapper","GLOBAL",0)
    !Global("CbPlayer2Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_zapper","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer1Has_Soul_zapper","GLOBAL",1)
END

IF
    Global("CbPlayer2Has_Soul_zapper","GLOBAL",5)
    !HasItem("CBHBSLZP",Player2) // Hellblade:  Soulzapper
    PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
        GiveItemCreate("CBHBSLZP",Player2,1,0,0) // Hellblade:  Soulzapper
        ReputationInc(-1)
END

IF
    Global("CbPlayer2Has_Soul_zapper","GLOBAL",5)
    !HasItem("CBHBSLZP",Player2) // Hellblade:  Soulzapper
    !PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player2,PickUpItem("CBHBSLZP")) // Hellblade:  Soulzapper
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer2_Soul_zapperTimerTwo","GLOBAL")
    Global("CbPlayer2Has_Soul_zapper","GLOBAL",3)
    HasItem("CBHBSLZP",Player2) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_zapper","GLOBAL",5)
        ChangeAlignment(Player2,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer2Has_Soul_zapper","GLOBAL",0)
    GlobalTimerExpired("CbSoul_zapper_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
        GiveItemCreate("CBHBSLZP",Player2,1,0,0) // Hellblade:  Soulzapper
        SetGlobal("CbPlayer2Has_Soul_zapper","GLOBAL",3)
        SetGlobalTimer("CbPlayer2_Soul_zapperTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer2Has_Soul_zapper","GLOBAL",3)
    !HasItem("CBHBSLZP",Player2) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_zapper","GLOBAL",0)
        SetGlobalTimer("CbSoul_zapper_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer2Has_Soul_zapper","GLOBAL",2)
    GlobalTimerExpired("CbPlayer2_Soul_zapper_TimerOne","GLOBAL")
    HasItem("CBHBSLZP",Player2) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_zapper","GLOBAL",3)
        ChangeAlignment(Player2,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer2_Soul_zapperTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer2Has_Soul_zapper","GLOBAL",0)
    GlobalTimerExpired("CbSoul_zapper_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
        GiveItemCreate("CBHBSLZP",Player2,1,0,0) // Hellblade:  Soulzapper
        SetGlobal("CbPlayer2Has_Soul_zapper","GLOBAL",1)
END

IF
    Global("CbPlayer2Has_Soul_zapper","GLOBAL",2)
    !HasItem("CBHBSLZP",Player2) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_zapper","GLOBAL",0)
        SetGlobalTimer("CbSoul_zapper_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer2Has_Soul_zapper","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_zapper","GLOBAL",2)
        SetGlobalTimer("CbPlayer2_Soul_zapper_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLZP",Player2) // Hellblade:  Soulzapper
    PartyHasItemIdentified("CBHBSLZP") // Hellblade:  Soulzapper
    Global("CbPlayer2Has_Soul_zapper","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_zapper","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer2Has_Soul_zapper","GLOBAL",1)
END

IF
    Global("CbPlayer3Has_Soul_zapper","GLOBAL",5)
    !HasItem("CBHBSLZP",Player3) // Hellblade:  Soulzapper
    PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
        GiveItemCreate("CBHBSLZP",Player3,1,0,0) // Hellblade:  Soulzapper
        ReputationInc(-1)
END

IF
    Global("CbPlayer3Has_Soul_zapper","GLOBAL",5)
    !HasItem("CBHBSLZP",Player3) // Hellblade:  Soulzapper
    !PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player3,PickUpItem("CBHBSLZP")) // Hellblade:  Soulzapper
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer3_Soul_zapperTimerTwo","GLOBAL")
    Global("CbPlayer3Has_Soul_zapper","GLOBAL",3)
    HasItem("CBHBSLZP",Player3) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_zapper","GLOBAL",5)
        ChangeAlignment(Player3,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer3Has_Soul_zapper","GLOBAL",0)
    GlobalTimerExpired("CbSoul_zapper_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
        GiveItemCreate("CBHBSLZP",Player3,1,0,0) // Hellblade:  Soulzapper
        SetGlobal("CbPlayer3Has_Soul_zapper","GLOBAL",3)
        SetGlobalTimer("CbPlayer3_Soul_zapperTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer3Has_Soul_zapper","GLOBAL",3)
    !HasItem("CBHBSLZP",Player3) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_zapper","GLOBAL",0)
        SetGlobalTimer("CbSoul_zapper_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer3Has_Soul_zapper","GLOBAL",2)
    GlobalTimerExpired("CbPlayer3_Soul_zapper_TimerOne","GLOBAL")
    HasItem("CBHBSLZP",Player3) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_zapper","GLOBAL",3)
        ChangeAlignment(Player3,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer3_Soul_zapperTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer3Has_Soul_zapper","GLOBAL",0)
    GlobalTimerExpired("CbSoul_zapper_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
        GiveItemCreate("CBHBSLZP",Player3,1,0,0) // Hellblade:  Soulzapper
        SetGlobal("CbPlayer3Has_Soul_zapper","GLOBAL",1)
END

IF
    Global("CbPlayer3Has_Soul_zapper","GLOBAL",2)
    !HasItem("CBHBSLZP",Player3) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_zapper","GLOBAL",0)
        SetGlobalTimer("CbSoul_zapper_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer3Has_Soul_zapper","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_zapper","GLOBAL",2)
        SetGlobalTimer("CbPlayer3_Soul_zapper_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLZP",Player3) // Hellblade:  Soulzapper
    PartyHasItemIdentified("CBHBSLZP") // Hellblade:  Soulzapper
    Global("CbPlayer3Has_Soul_zapper","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer2Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_zapper","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer3Has_Soul_zapper","GLOBAL",1)
END

IF
    Global("CbPlayer4Has_Soul_zapper","GLOBAL",5)
    !HasItem("CBHBSLZP",Player4) // Hellblade:  Soulzapper
    PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
        GiveItemCreate("CBHBSLZP",Player4,1,0,0) // Hellblade:  Soulzapper
        ReputationInc(-1)
END

IF
    Global("CbPlayer4Has_Soul_zapper","GLOBAL",5)
    !HasItem("CBHBSLZP",Player4) // Hellblade:  Soulzapper
    !PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player4,PickUpItem("CBHBSLZP")) // Hellblade:  Soulzapper
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer4_Soul_zapperTimerTwo","GLOBAL")
    Global("CbPlayer4Has_Soul_zapper","GLOBAL",3)
    HasItem("CBHBSLZP",Player4) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_zapper","GLOBAL",5)
        ChangeAlignment(Player4,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer4Has_Soul_zapper","GLOBAL",0)
    GlobalTimerExpired("CbSoul_zapper_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
        GiveItemCreate("CBHBSLZP",Player4,1,0,0) // Hellblade:  Soulzapper
        SetGlobal("CbPlayer4Has_Soul_zapper","GLOBAL",3)
        SetGlobalTimer("CbPlayer4_Soul_zapperTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer4Has_Soul_zapper","GLOBAL",3)
    !HasItem("CBHBSLZP",Player4) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_zapper","GLOBAL",0)
        SetGlobalTimer("CbSoul_zapper_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer4Has_Soul_zapper","GLOBAL",2)
    GlobalTimerExpired("CbPlayer4_Soul_zapper_TimerOne","GLOBAL")
    HasItem("CBHBSLZP",Player4) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_zapper","GLOBAL",3)
        ChangeAlignment(Player4,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer4_Soul_zapperTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer4Has_Soul_zapper","GLOBAL",0)
    GlobalTimerExpired("CbSoul_zapper_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
        GiveItemCreate("CBHBSLZP",Player4,1,0,0) // Hellblade:  Soulzapper
        SetGlobal("CbPlayer4Has_Soul_zapper","GLOBAL",1)
END

IF
    Global("CbPlayer4Has_Soul_zapper","GLOBAL",2)
    !HasItem("CBHBSLZP",Player4) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_zapper","GLOBAL",0)
        SetGlobalTimer("CbSoul_zapper_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer4Has_Soul_zapper","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_zapper","GLOBAL",2)
        SetGlobalTimer("CbPlayer4_Soul_zapper_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLZP",Player4) // Hellblade:  Soulzapper
    PartyHasItemIdentified("CBHBSLZP") // Hellblade:  Soulzapper
    Global("CbPlayer4Has_Soul_zapper","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer2Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_zapper","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer4Has_Soul_zapper","GLOBAL",1)
END

IF
    Global("CbPlayer5Has_Soul_zapper","GLOBAL",5)
    !HasItem("CBHBSLZP",Player5) // Hellblade:  Soulzapper
    PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
        GiveItemCreate("CBHBSLZP",Player5,1,0,0) // Hellblade:  Soulzapper
        ReputationInc(-1)
END

IF
    Global("CbPlayer5Has_Soul_zapper","GLOBAL",5)
    !HasItem("CBHBSLZP",Player5) // Hellblade:  Soulzapper
    !PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player5,PickUpItem("CBHBSLZP")) // Hellblade:  Soulzapper
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer5_Soul_zapperTimerTwo","GLOBAL")
    Global("CbPlayer5Has_Soul_zapper","GLOBAL",3)
    HasItem("CBHBSLZP",Player5) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_zapper","GLOBAL",5)
        ChangeAlignment(Player5,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer5Has_Soul_zapper","GLOBAL",0)
    GlobalTimerExpired("CbSoul_zapper_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
        GiveItemCreate("CBHBSLZP",Player5,1,0,0) // Hellblade:  Soulzapper
        SetGlobal("CbPlayer5Has_Soul_zapper","GLOBAL",3)
        SetGlobalTimer("CbPlayer5_Soul_zapperTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer5Has_Soul_zapper","GLOBAL",3)
    !HasItem("CBHBSLZP",Player5) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_zapper","GLOBAL",0)
        SetGlobalTimer("CbSoul_zapper_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer5Has_Soul_zapper","GLOBAL",2)
    GlobalTimerExpired("CbPlayer5_Soul_zapper_TimerOne","GLOBAL")
    HasItem("CBHBSLZP",Player5) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_zapper","GLOBAL",3)
        ChangeAlignment(Player5,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer5_Soul_zapperTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer5Has_Soul_zapper","GLOBAL",0)
    GlobalTimerExpired("CbSoul_zapper_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
        GiveItemCreate("CBHBSLZP",Player5,1,0,0) // Hellblade:  Soulzapper
        SetGlobal("CbPlayer5Has_Soul_zapper","GLOBAL",1)
END

IF
    Global("CbPlayer5Has_Soul_zapper","GLOBAL",2)
    !HasItem("CBHBSLZP",Player5) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_zapper","GLOBAL",0)
        SetGlobalTimer("CbSoul_zapper_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer5Has_Soul_zapper","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_zapper","GLOBAL",2)
        SetGlobalTimer("CbPlayer5_Soul_zapper_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLZP",Player5) // Hellblade:  Soulzapper
    PartyHasItemIdentified("CBHBSLZP") // Hellblade:  Soulzapper
    Global("CbPlayer5Has_Soul_zapper","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer2Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer6Has_Soul_zapper","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer5Has_Soul_zapper","GLOBAL",1)
END

IF
    Global("CbPlayer6Has_Soul_zapper","GLOBAL",5)
    !HasItem("CBHBSLZP",Player6) // Hellblade:  Soulzapper
    PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
        GiveItemCreate("CBHBSLZP",Player6,1,0,0) // Hellblade:  Soulzapper
        ReputationInc(-1)
END

IF
    Global("CbPlayer6Has_Soul_zapper","GLOBAL",5)
    !HasItem("CBHBSLZP",Player6) // Hellblade:  Soulzapper
    !PartyHasItem("CBHBSLZP") // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        ActionOverride(Player6,PickUpItem("CBHBSLZP")) // Hellblade:  Soulzapper
        ReputationInc(-1)
        SetInterrupt(TRUE)
END

IF
    GlobalTimerExpired("CbPlayer6_Soul_zapperTimerTwo","GLOBAL")
    Global("CbPlayer6Has_Soul_zapper","GLOBAL",3)
    HasItem("CBHBSLZP",Player6) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_zapper","GLOBAL",5)
        ChangeAlignment(Player6,CHAOTIC_EVIL)
END

IF
    Global("CbPlayer6Has_Soul_zapper","GLOBAL",0)
    GlobalTimerExpired("CbSoul_zapper_ForceReturn","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
        GiveItemCreate("CBHBSLZP",Player6,1,0,0) // Hellblade:  Soulzapper
        SetGlobal("CbPlayer6Has_Soul_zapper","GLOBAL",3)
        SetGlobalTimer("CbPlayer6_Soul_zapperTimerTwo","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer6Has_Soul_zapper","GLOBAL",3)
    !HasItem("CBHBSLZP",Player6) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_zapper","GLOBAL",0)
        SetGlobalTimer("CbSoul_zapper_ForceReturn","GLOBAL",TWO_DAYS)
END

IF
    Global("CbPlayer6Has_Soul_zapper","GLOBAL",2)
    GlobalTimerExpired("CbPlayer6_Soul_zapper_TimerOne","GLOBAL")
    HasItem("CBHBSLZP",Player6) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_zapper","GLOBAL",3)
        ChangeAlignment(Player6,NEUTRAL_EVIL)
        SetGlobalTimer("CbPlayer6_Soul_zapperTimerTwo","GLOBAL",SEVEN_DAYS)
END

IF
    Global("CbPlayer6Has_Soul_zapper","GLOBAL",0)
    GlobalTimerExpired("CbSoul_zapper_Returns","GLOBAL")
THEN
    RESPONSE #100
        TakePartyItem("CBHBSLZP") // Hellblade:  Soulzapper
        GiveItemCreate("CBHBSLZP",Player6,1,0,0) // Hellblade:  Soulzapper
        SetGlobal("CbPlayer6Has_Soul_zapper","GLOBAL",1)
END

IF
    Global("CbPlayer6Has_Soul_zapper","GLOBAL",2)
    !HasItem("CBHBSLZP",Player6) // Hellblade:  Soulzapper
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_zapper","GLOBAL",0)
        SetGlobalTimer("CbSoul_zapper_Returns","GLOBAL",FOUR_DAYS)
END

IF
    Global("CbPlayer6Has_Soul_zapper","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_zapper","GLOBAL",2)
        SetGlobalTimer("CbPlayer6_Soul_zapper_TimerOne","GLOBAL",SEVEN_DAYS)
END

IF
    HasItem("CBHBSLZP",Player6) // Hellblade:  Soulzapper
    PartyHasItemIdentified("CBHBSLZP") // Hellblade:  Soulzapper
    Global("CbPlayer6Has_Soul_zapper","GLOBAL",0)
    !Global("CbPlayer1Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer2Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer3Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer4Has_Soul_zapper","GLOBAL",1)
    !Global("CbPlayer5Has_Soul_zapper","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("CbPlayer6Has_Soul_zapper","GLOBAL",1)
END

IF
    Delay(150)
    !CombatCounter(0)
    OR(6)
        HasItemEquipedReal("SoulArmr",Player1) // Soul Armor +2
        HasItemEquipedReal("SoulArmr",Player2) // Soul Armor +2
        HasItemEquipedReal("SoulArmr",Player3) // Soul Armor +2
        HasItemEquipedReal("SoulArmr",Player4) // Soul Armor +2
        HasItemEquipedReal("SoulArmr",Player5) // Soul Armor +2
        HasItemEquipedReal("SoulArmr",Player6) // Soul Armor +2
THEN
    RESPONSE #10
        DisplayStringHeadOwner("SoulArmr",63207) // Der zweite Regler ist eingerostet und widersetzt sich Euren Bemühungen. Ihr nehmt all Eure Stärke zusammen und dreht ihn mühselig eine Vierteldrehung
    RESPONSE #10
        DisplayStringHeadOwner("SoulArmr",63208) // Die Maschine speit eine Giftgaswolke aus.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArmr",63209) // Eine ganze Reihe von positiven und schützenden Zaubern trifft Euch.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArmr",63210) // Für einen Moment öffnet sich die negative materielle Ebene und Eure Seele wird Euch aus dem Leib geschnitten. <GABBER> verliert 15 Grade.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArmr",63211) // Ich kann den Blutkrieg an diesen Sterblichen riechen!! Ihr steckt alle mit den Baatezu unter einer Decke!! Tötet sie alle!
    RESPONSE #10
        DisplayStringHeadOwner("SoulArmr",63212) // Um Euch herum erscheint eine wirbelnde Kugel glühenden Lichts und verschwindet unmittelbar danach. Ihr spürt die Aura einer magischen Sicherheit, die tief in Eure Knochen zu sickern scheint. <GABBER> hat die permanente MAGIERESISTENZ erhalten.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArmr",63213) // Tanar-Ri! Tanar-Ri in der Verkleidung von Sterblichen! Ist dem nicht so! Im Namen des Blutkriegs, tötet unseren alten Feind!!
    RESPONSE #10
        DisplayStringHeadOwner("SoulArmr",63214) // You press the red button in and wait expectantly.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArmr",63215) // Es geschieht offenbar gar nichts. Vielleicht wird der rote Knopf ja erst dadurch aktiviert, indem man einen der Hebel zieht oder einen Regler dreht.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArmr",63216) // Das bis zu diesem Zeitpunkt nicht aktive magische Tor im nordöstlichen Eck des Raumes wird plötzlich aktiviert. Magische Energie umtanzt das Portal mit lautem Zischen und Krachen. Der Weg hinunter in das nächste Stockwerk ist frei.
END

IF
    Delay(550)
    CombatCounter(0)
    OR(6)
        HasItemEquipedReal("SoulArmr",Player1) // Soul Armor +2
        HasItemEquipedReal("SoulArmr",Player2) // Soul Armor +2
        HasItemEquipedReal("SoulArmr",Player3) // Soul Armor +2
        HasItemEquipedReal("SoulArmr",Player4) // Soul Armor +2
        HasItemEquipedReal("SoulArmr",Player5) // Soul Armor +2
        HasItemEquipedReal("SoulArmr",Player6) // Soul Armor +2
THEN
    RESPONSE #10
        DisplayStringHeadOwner("SoulArmr",63196) // Ahhh... (hisssss)  The mortal returns once more.  Sooooo... have you the heart of Tahazzar in tow?
    RESPONSE #10
        DisplayStringHeadOwner("SoulArmr",63198) // No I don't... but I intend to get it soon.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArmr",63199) // Nein, das habe ich nicht, und ich habe auch nicht vor, es Euch zu beschaffen!
    RESPONSE #10
        DisplayStringHeadOwner("SoulArmr",63200) // Wir sind im Moment sehr beschäftigt damit, unser Tor zu wirken, sterbliches Wesen. Was auch immer Ihr wollt, muss warten.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArmr",63201) // Euer Geldbeutel fühlt sich auf einmal deutlich schwerer an. Ein äußerst angenehmes Gefühl ...
    RESPONSE #10
        DisplayStringHeadOwner("SoulArmr",63202) // Ein taubes Gefühl macht sich in Euren Gelenken breit, Euer Gleichgewichtssinn und Eure Hand-Auge-Koordination sind gestört. <GABBER> verliert 1 Punkt GESCHICKLICHKEIT.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArmr",63203) // Ein Gegenstand taucht in Eurem Rucksack auf.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArmr",63204) // Euer Verstand scheint unter einem Schlag zu erzittern. Die Welt zerbirst in einem chaotischen Schleier aus Farben.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArmr",63205) // Zu den Klerikerzaubern.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArmr",63206) // Zu den Magierzaubern.
END

IF
    Delay(100)
    !CombatCounter(0)
    OR(6)
        HasItemEquipedReal("SoulArm3",Player1) // Soul Armor +3
        HasItemEquipedReal("SoulArm3",Player2) // Soul Armor +3
        HasItemEquipedReal("SoulArm3",Player3) // Soul Armor +3
        HasItemEquipedReal("SoulArm3",Player4) // Soul Armor +3
        HasItemEquipedReal("SoulArm3",Player5) // Soul Armor +3
        HasItemEquipedReal("SoulArm3",Player6) // Soul Armor +3
THEN
    RESPONSE #10
        DisplayStringHeadOwner("SoulArm3",63207) // Der zweite Regler ist eingerostet und widersetzt sich Euren Bemühungen. Ihr nehmt all Eure Stärke zusammen und dreht ihn mühselig eine Vierteldrehung
    RESPONSE #10
        DisplayStringHeadOwner("SoulArm3",63208) // Die Maschine speit eine Giftgaswolke aus.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArm3",63209) // Eine ganze Reihe von positiven und schützenden Zaubern trifft Euch.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArm3",63210) // Für einen Moment öffnet sich die negative materielle Ebene und Eure Seele wird Euch aus dem Leib geschnitten. <GABBER> verliert 15 Grade.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArm3",63211) // Ich kann den Blutkrieg an diesen Sterblichen riechen!! Ihr steckt alle mit den Baatezu unter einer Decke!! Tötet sie alle!
    RESPONSE #10
        DisplayStringHeadOwner("SoulArm3",63212) // Um Euch herum erscheint eine wirbelnde Kugel glühenden Lichts und verschwindet unmittelbar danach. Ihr spürt die Aura einer magischen Sicherheit, die tief in Eure Knochen zu sickern scheint. <GABBER> hat die permanente MAGIERESISTENZ erhalten.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArm3",63213) // Tanar-Ri! Tanar-Ri in der Verkleidung von Sterblichen! Ist dem nicht so! Im Namen des Blutkriegs, tötet unseren alten Feind!!
    RESPONSE #10
        DisplayStringHeadOwner("SoulArm3",63214) // You press the red button in and wait expectantly.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArm3",63215) // Es geschieht offenbar gar nichts. Vielleicht wird der rote Knopf ja erst dadurch aktiviert, indem man einen der Hebel zieht oder einen Regler dreht.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArm3",63216) // Das bis zu diesem Zeitpunkt nicht aktive magische Tor im nordöstlichen Eck des Raumes wird plötzlich aktiviert. Magische Energie umtanzt das Portal mit lautem Zischen und Krachen. Der Weg hinunter in das nächste Stockwerk ist frei.
END

IF
    Delay(400)
    CombatCounter(0)
    OR(6)
        HasItemEquipedReal("SoulArm3",Player1) // Soul Armor +3
        HasItemEquipedReal("SoulArm3",Player2) // Soul Armor +3
        HasItemEquipedReal("SoulArm3",Player3) // Soul Armor +3
        HasItemEquipedReal("SoulArm3",Player4) // Soul Armor +3
        HasItemEquipedReal("SoulArm3",Player5) // Soul Armor +3
        HasItemEquipedReal("SoulArm3",Player6) // Soul Armor +3
THEN
    RESPONSE #10
        DisplayStringHeadOwner("SoulArm3",63196) // Ahhh... (hisssss)  The mortal returns once more.  Sooooo... have you the heart of Tahazzar in tow?
    RESPONSE #10
        DisplayStringHeadOwner("SoulArm3",63198) // No I don't... but I intend to get it soon.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArm3",63199) // Nein, das habe ich nicht, und ich habe auch nicht vor, es Euch zu beschaffen!
    RESPONSE #10
        DisplayStringHeadOwner("SoulArm3",63200) // Wir sind im Moment sehr beschäftigt damit, unser Tor zu wirken, sterbliches Wesen. Was auch immer Ihr wollt, muss warten.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArm3",63201) // Euer Geldbeutel fühlt sich auf einmal deutlich schwerer an. Ein äußerst angenehmes Gefühl ...
    RESPONSE #10
        DisplayStringHeadOwner("SoulArm3",63202) // Ein taubes Gefühl macht sich in Euren Gelenken breit, Euer Gleichgewichtssinn und Eure Hand-Auge-Koordination sind gestört. <GABBER> verliert 1 Punkt GESCHICKLICHKEIT.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArm3",63203) // Ein Gegenstand taucht in Eurem Rucksack auf.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArm3",63204) // Euer Verstand scheint unter einem Schlag zu erzittern. Die Welt zerbirst in einem chaotischen Schleier aus Farben.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArm3",63205) // Zu den Klerikerzaubern.
    RESPONSE #10
        DisplayStringHeadOwner("SoulArm3",63206) // Zu den Magierzaubern.
END

IF
    GlobalGT("Drizztiwdornot","GLOBAL",12)
    GlobalGT("Chapter","GLOBAL",5)
    Global("TrigCQuest","GLOBAL",1)
    !Global("TrigCQCip","GLOBAL",1)
    !Global("TrigCQCip","GLOBAL",2)
    XPGT(Player1,3299999)
THEN
    RESPONSE #100
        SetGlobalTimer("StartCQuest","GLOBAL",THREE_DAYS)
        SetGlobal("TrigCQuest","GLOBAL",2)
        SetGlobal("CQuestActive","GLOBAL",1)
END

IF
    GlobalGT("Drizztiwdornot","GLOBAL",12)
    GlobalGT("Chapter","GLOBAL",5)
    Global("TrigCQCip","GLOBAL",1)
    !Global("TrigCQuest","GLOBAL",2)
THEN
    RESPONSE #100
        SetGlobalTimer("StartCQuest","GLOBAL",ONE_DAY)
        SetGlobal("TrigCQCip","GLOBAL",2)
        SetGlobal("CQuestActive","GLOBAL",1)
END

IF
    Global("CQuestActive","GLOBAL",1)
    GlobalTimerExpired("StartCQuest","GLOBAL")
    InParty("Driz2")
    CombatCounter(0)
    AreaType(CITY)
    !AreaCheck("AR2200")
    !AreaCheck("AR1600")
    !AreaCheck("AR5100")
THEN
    RESPONSE #100
        CreateCreatureObject("Chaunti",Player1,0,0,0) // Brother Chaunticleer
        SetGlobal("CQuestActive","GLOBAL",2)
END

IF
    Global("CQuestActive","GLOBAL",3)
    Global("DrizLeaves","GLOBAL",0)
THEN
    RESPONSE #100
        StartCutSceneMode()
        HideGUI()
        ActionOverride("Driz2",LeaveParty())
        ActionOverride("Catt2",LeaveParty())
        ActionOverride("Reg2",LeaveParty())
        ActionOverride("Wulfg2",LeaveParty())
        ActionOverride("Brue2",LeaveParty())
        Wait(1)
        ActionOverride("Driz2",EscapeArea())
        ActionOverride("Catt2",EscapeArea())
        ActionOverride("Reg2",EscapeArea())
        ActionOverride("Wulfg2",EscapeArea())
        ActionOverride("Brue2",EscapeArea())
        ActionOverride("Chaunti",EscapeArea())
        Wait(3)
        UnhideGUI()
        EndCutSceneMode()
        SetGlobal("DrizLeaves","GLOBAL",1)
END

IF
    Global("CQuestActive","GLOBAL",5)
THEN
    RESPONSE #100
        StartCutSceneMode()
        HideGUI()
        Wait(1)
        FadeToColor([20.0],0)
        Wait(1)
        ActionOverride(Player1,LeaveAreaLUA("RA3707","",[137.2134],9))
        ActionOverride(Player2,LeaveAreaLUA("RA3707","",[169.2166],9))
        ActionOverride(Player3,LeaveAreaLUA("RA3707","",[91.2168],9))
        ActionOverride(Player4,LeaveAreaLUA("RA3707","",[127.2206],9))
        ActionOverride(Player5,LeaveAreaLUA("RA3707","",[43.2202],9))
        ActionOverride(Player6,LeaveAreaLUA("RA3707","",[75.2244],9))
        DayNight(2)
        Wait(1)
        MultiPlayerSync()
        EndCutSceneMode()
        TextScreen("SCRTXT11")
        SmallWait(1)
        StartCutSceneMode()
        Wait(1)
        FadeFromColor([20.0],0)
        Wait(1)
        UnhideGUI()
        EndCutSceneMode()
        SetGlobal("CQuestActive","GLOBAL",6)
END

IF
    Global("CQuestActive","GLOBAL",12)
    Dead("CadPri15") // Brother Lucas
THEN
    RESPONSE #100
        ActionOverride(Player1,DisplayStringHead(Myself,71165)) //
        Wait(3)
        ActionOverride(Player1,Kill(Myself))
END

IF
    Global("CQuestActive","GLOBAL",12)
    Global("DeneirHelps","GLOBAL",0)
    !CombatCounter(0)
    Delay(400)
THEN
    RESPONSE #100
        CreateCreatureObject("Deneir2",Protagonist,0,0,0) // Deneir
        SetGlobal("TimefDentost","GLOBAL",1)
    RESPONSE #100
        SetGlobal("DeneirHelps","GLOBAL",2)
    RESPONSE #100
        CreateCreatureObject("Deneir2",Protagonist,0,0,0) // Deneir
        SetGlobal("TimefDentost","GLOBAL",2)
    RESPONSE #100
        SetGlobal("DeneirHelps","GLOBAL",2)
END

IF
    Global("TimefDentost","GLOBAL",1)
THEN
    RESPONSE #100
        ActionOverride("Deneir2",ForceSpell(NearestEnemyOf(Myself),0))
        Wait(2)
        ActionOverride("Deneir2",DestroySelf())
        Wait(2)
        ActionOverride(Player1,DisplayStringHead(Myself,71166)) // Der Stein ist unglaublich heiß. Man sollte wohl besser vorsichtig mit ihm umgehen. Die Gravur, die tief in seine Oberfläche geschnitten ist, scheint einen Schädel darzustellen. Wofür dieser Schutzstein nützlich ist, wisst Ihr nicht.
        SetGlobal("DeneirHelps","GLOBAL",1)
        SetGlobal("TimefDentost","GLOBAL",5)
END

IF
    Global("TimefDentost","GLOBAL",2)
THEN
    RESPONSE #100
        ActionOverride("Deneir2",ForceSpell(NearestEnemyOf(Myself),0))
        Wait(2)
        ActionOverride("Deneir2",DestroySelf())
        Wait(2)
        ActionOverride(Player1,DisplayStringHead(Myself,71166)) // Der Stein ist unglaublich heiß. Man sollte wohl besser vorsichtig mit ihm umgehen. Die Gravur, die tief in seine Oberfläche geschnitten ist, scheint einen Schädel darzustellen. Wofür dieser Schutzstein nützlich ist, wisst Ihr nicht.
        SetGlobal("DeneirHelps","GLOBAL",1)
        SetGlobal("TimefDentost","GLOBAL",5)
END

IF
    Global("CQuestActive","GLOBAL",12)
    Global("DeneirHelps","GLOBAL",1)
    !CombatCounter(0)
    Delay(400)
THEN
    RESPONSE #100
        CreateCreatureObject("Deneir2",Protagonist,0,0,0) // Deneir
        SetGlobal("TimefDentost","GLOBAL",3)
    RESPONSE #100
        SetGlobal("DeneirHelps","GLOBAL",3)
    RESPONSE #100
        CreateCreatureObject("Deneir2",Protagonist,0,0,0) // Deneir
        SetGlobal("TimefDentost","GLOBAL",4)
    RESPONSE #100
        SetGlobal("DeneirHelps","GLOBAL",3)
END

IF
    Global("TimefDentost","GLOBAL",3)
THEN
    RESPONSE #100
        ActionOverride("Deneir2",ForceSpell(NearestEnemyOf(Myself),0))
        Wait(2)
        ActionOverride("Deneir2",DestroySelf())
        SetGlobal("DeneirHelps","GLOBAL",3)
        SetGlobal("TimefDentost","GLOBAL",5)
END

IF
    Global("TimefDentost","GLOBAL",4)
THEN
    RESPONSE #100
        ActionOverride("Deneir2",ForceSpell(NearestEnemyOf(Myself),0))
        Wait(2)
        ActionOverride("Deneir2",DestroySelf())
        SetGlobal("DeneirHelps","GLOBAL",3)
        SetGlobal("TimefDentost","GLOBAL",5)
END

IF
    Global("DeneirHelps","GLOBAL",2)
    !CombatCounter(0)
    Delay(20)
THEN
    RESPONSE #100
        SetGlobal("DeneirHelps","GLOBAL",0)
END

IF
    Global("DeneirHelps","GLOBAL",3)
    !CombatCounter(0)
    Delay(20)
THEN
    RESPONSE #100
        SetGlobal("DeneirHelps","GLOBAL",1)
END

IF
    Global("CQuestActive","GLOBAL",12)
    Global("Dennotstrike1","GLOBAL",1)
    Dead("CadDem16") // Balor Lord
THEN
    RESPONSE #100
        SetGlobal("DeneirHelps","GLOBAL",1)
        SetGlobal("Dennotstrike1","GLOBAL",2)
END

IF
    Global("CQuestActive","GLOBAL",12)
    Global("Dennotstrike2","GLOBAL",1)
    Dead("CadDem17") // Xer
THEN
    RESPONSE #100
        SetGlobal("DeneirHelps","GLOBAL",1)
        SetGlobal("Dennotstrike2","GLOBAL",2)
END

IF
    Global("CQuestActive","GLOBAL",12)
    Global("Dennotstrike3","GLOBAL",1)
    Dead("CadDem18") // Carethron
THEN
    RESPONSE #100
        SetGlobal("DeneirHelps","GLOBAL",1)
        SetGlobal("Dennotstrike3","GLOBAL",2)
END

IF
    Global("CQuestActive","GLOBAL",12)
    Global("Dennotstrike4","GLOBAL",1)
    Dead("CadDem19") // Bane Lord
THEN
    RESPONSE #100
        SetGlobal("DeneirHelps","GLOBAL",1)
        SetGlobal("Dennotstrike4","GLOBAL",2)
END

IF
    Global("CQuestActive","GLOBAL",12)
    Global("Dennotstrike5","GLOBAL",1)
    Dead("CadDem21") // Balor Lord
THEN
    RESPONSE #100
        SetGlobal("DeneirHelps","GLOBAL",1)
        SetGlobal("Dennotstrike5","GLOBAL",2)
END

IF
    Global("CQuestActive","GLOBAL",12)
    Global("Dennotstrike6","GLOBAL",1)
    Dead("CadDem22") // Hand of Evil
THEN
    RESPONSE #100
        SetGlobal("DeneirHelps","GLOBAL",1)
        SetGlobal("Dennotstrike6","GLOBAL",2)
END

IF
    Global("CQuestActive","GLOBAL",18)
    Global("Lgthofss","GLOBAL",1)
THEN
    RESPONSE #100
        StartCutSceneMode()
        HideGUI()
        Wait(1)
        FadeToColor([20.0],0)
        Wait(1)
        ActionOverride(Player1,LeaveAreaLUA("ar0020","",[764.511],3))
        ActionOverride(Player2,LeaveAreaLUA("ar0020","",[736.485],3))
        ActionOverride(Player3,LeaveAreaLUA("ar0020","",[768.465],3))
        ActionOverride(Player4,LeaveAreaLUA("ar0020","",[792.487],3))
        ActionOverride(Player5,LeaveAreaLUA("ar0020","",[814.463],3))
        ActionOverride(Player6,LeaveAreaLUA("ar0020","",[786.439],3))
        Wait(1)
        MultiPlayerSync()
        EndCutSceneMode()
        TextScreen("SCRTXT12")
        SmallWait(1)
        StartCutSceneMode()
        Wait(1)
        FadeFromColor([20.0],0)
        SetGlobal("CQuestActive","GLOBAL",19)
        SetGlobal("Lgthofss","GLOBAL",3)
        Wait(1)
        UnhideGUI()
        EndCutSceneMode()
        ActionOverride("Chaunti2",StartDialogueNoSet(Player1))
END

IF
    Global("CQuestActive","GLOBAL",18)
    Global("Lgthofss","GLOBAL",2)
THEN
    RESPONSE #100
        StartCutSceneMode()
        HideGUI()
        Wait(1)
        FadeToColor([20.0],0)
        Wait(1)
        ActionOverride(Player1,LeaveAreaLUA("RR3100","",[4679.160],3))
        ActionOverride(Player2,LeaveAreaLUA("RR3100","",[4727.190],3))
        ActionOverride(Player3,LeaveAreaLUA("RR3100","",[4699.144],3))
        ActionOverride(Player4,LeaveAreaLUA("RR3100","",[4749.174],3))
        ActionOverride(Player5,LeaveAreaLUA("RR3100","",[4775.140],3))
        ActionOverride(Player6,LeaveAreaLUA("RR3100","",[4723.106],3))
        Wait(1)
        FadeFromColor([20.0],0)
        SetGlobal("CQuestActive","GLOBAL",19)
        SetGlobal("Lgthofss","GLOBAL",3)
        Wait(1)
        UnhideGUI()
        EndCutSceneMode()
        ActionOverride("Chaunti2",StartDialogueNoSet(Player1))
END

IF
    Global("Hammermeetings","GLOBAL",1)
    Global("CreatinHamm2","GLOBAL",0)
THEN
    RESPONSE #100
        SetGlobalTimer("HammCrea2","GLOBAL",FIFTEEN_DAYS)
        SetGlobal("CreatinHamm2","GLOBAL",1)
END

IF
    Global("CreatinHamm2","GLOBAL",1)
    GlobalTimerExpired("HammCrea2","GLOBAL")
THEN
    RESPONSE #100
        SetGlobalTimer("HammCrea3","GLOBAL",ONE_DAY)
        SetGlobal("CreatinHamm2","GLOBAL",2)
END

IF
    Global("Hammermeetings","GLOBAL",5)
    Global("CreatinHamm3","GLOBAL",0)
THEN
    RESPONSE #100
        SetGlobalTimer("HammCrea4","GLOBAL",FIFTEEN_DAYS)
        SetGlobal("CreatinHamm3","GLOBAL",1)
END

IF
    Global("Hammermeetings","GLOBAL",7)
    Global("CreatinHamm4","GLOBAL",0)
THEN
    RESPONSE #100
        SetGlobalTimer("HammCrea5","GLOBAL",TEN_DAYS)
        SetGlobal("CreatinHamm4","GLOBAL",1)
END

IF
    Global("Hammermeetings","GLOBAL",8)
    Global("dsaskjfldfg","GLOBAL",0)
THEN
    RESPONSE #100
        SetGlobalTimer("HammDest2","GLOBAL",THREE_DAYS)
        SetGlobal("dsaskjfldfg","GLOBAL",1)
END

IF
    Global("dsaskjfldfg","GLOBAL",1)
    GlobalTimerExpired("HammDest2","GLOBAL")
THEN
    RESPONSE #100
        ActionOverride("Hammr4",DestroySelf())
        ActionOverride("HamAra3",DestroySelf())
        ActionOverride("HamMan3",DestroySelf())
        ActionOverride("HamRob3",DestroySelf())
        ActionOverride("HamOlg3",DestroySelf())
        ActionOverride("HamJen3",DestroySelf())
        SetGlobal("CreatinHamm4","GLOBAL",3)
        SetGlobal("Hammermeetings","GLOBAL",9)
        SetGlobal("dsaskjfldfg","GLOBAL",2)
END

IF
    Global("Hammermeetings","GLOBAL",10)
    Dead("layer2)")
THEN
    RESPONSE #100
        CreateCreatureObject("Deneir2",Protagonist,0,0,0) // Deneir
        Wait(1)
        ActionOverride("Deneir2",ReallyForceSpell(Player2,CLERIC_RESURRECTION))
        Wait(1)
        ActionOverride("Deneir2",DestroySelf())
        SetGlobal("Hammermeetings","GLOBAL",11)
END

IF
    Global("Hammermeetings","GLOBAL",10)
    Dead("layer3)")
THEN
    RESPONSE #100
        CreateCreatureObject("Deneir2",Protagonist,0,0,0) // Deneir
        Wait(1)
        ActionOverride("Deneir2",ReallyForceSpell(Player3,CLERIC_RESURRECTION))
        Wait(1)
        ActionOverride("Deneir2",DestroySelf())
        SetGlobal("Hammermeetings","GLOBAL",11)
END

IF
    Global("Hammermeetings","GLOBAL",10)
    Dead("layer4)")
THEN
    RESPONSE #100
        CreateCreatureObject("Deneir2",Protagonist,0,0,0) // Deneir
        Wait(1)
        ActionOverride("Deneir2",ReallyForceSpell(Player4,CLERIC_RESURRECTION))
        Wait(1)
        ActionOverride("Deneir2",DestroySelf())
        SetGlobal("Hammermeetings","GLOBAL",11)
END

IF
    Global("Hammermeetings","GLOBAL",10)
    Dead("layer5)")
THEN
    RESPONSE #100
        CreateCreatureObject("Deneir2",Protagonist,0,0,0) // Deneir
        Wait(1)
        ActionOverride("Deneir2",ReallyForceSpell(Player5,CLERIC_RESURRECTION))
        Wait(1)
        ActionOverride("Deneir2",DestroySelf())
        SetGlobal("Hammermeetings","GLOBAL",11)
END

IF
    Global("Hammermeetings","GLOBAL",10)
    Dead("layer6)")
THEN
    RESPONSE #100
        CreateCreatureObject("Deneir2",Protagonist,0,0,0) // Deneir
        Wait(1)
        ActionOverride("Deneir2",ReallyForceSpell(Player6,CLERIC_RESURRECTION))
        Wait(1)
        ActionOverride("Deneir2",DestroySelf())
        SetGlobal("Hammermeetings","GLOBAL",11)
END

IF
    Global("Hammermeetings","GLOBAL",10)
    Dead("layer1)")
THEN
    RESPONSE #100
        CreateCreatureObject("Deneir2",Protagonist,0,0,0) // Deneir
        Wait(1)
        ActionOverride("Deneir2",ReallyForceSpell(Player1,CLERIC_RESURRECTION))
        Wait(1)
        ActionOverride("Deneir2",DestroySelf())
        SetGlobal("Hammermeetings","GLOBAL",11)
END

IF
    Global("Hammermeetings","GLOBAL",11)
THEN
    RESPONSE #100
        Wait(1)
        SetGlobal("Hammermeetings","GLOBAL",10)
END

IF
    CombatCounter(0)
    Delay(5)
    OR(2)
        Global("Hammermeetings","GLOBAL",10)
        Global("Hammermeetings","GLOBAL",11)
THEN
    RESPONSE #100
        ActionOverride("CadDem25",ForceSpell(Myself,0))
        Wait(3)
        CreateVisualEffect("SPFIRSDI",[725.542])
        CreateCreature("CadDem23",[725.542],12) // Cornugon
        CreateVisualEffect("SPFIRSDI",[763.586])
        CreateCreature("CadDem24",[763.586],11) // Dämon
END

IF
    Global("Seethemayor","GLOBAL",2)
THEN
    RESPONSE #100
        StartCutSceneMode()
        HideGUI()
        Wait(1)
        FadeToColor([20.0],0)
        Wait(2)
        ActionOverride(Player1,LeaveAreaLUA("RA5101","",[421.507],9))
        ActionOverride(Player2,LeaveAreaLUA("RA5101","",[473.525],8))
        ActionOverride(Player3,LeaveAreaLUA("RA5101","",[399.529],9))
        ActionOverride(Player4,LeaveAreaLUA("RA5101","",[455.545],8))
        ActionOverride(Player5,LeaveAreaLUA("RA5101","",[385.553],9))
        ActionOverride(Player6,LeaveAreaLUA("RA5101","",[433.571],8))
        Wait(1)
        FadeFromColor([20.0],0)
        Wait(1)
        UnhideGUI()
        EndCutSceneMode()
        SetGlobal("Seethemayor","GLOBAL",3)
END

IF
    Global("BreVil1","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobalTimer("ChangeVil1","GLOBAL",ONE_DAY)
        SetGlobal("BreVil1","GLOBAL",2)
END

IF
    GlobalTimerExpired("ChangeVil1","GLOBAL")
    Global("BreVil1","GLOBAL",2)
THEN
    RESPONSE #100
        SetGlobal("BreVil1","GLOBAL",3)
END

IF
    Global("BreVil2","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobalTimer("ChangeVil2","GLOBAL",ONE_DAY)
        SetGlobal("BreVil2","GLOBAL",2)
END

IF
    GlobalTimerExpired("ChangeVil2","GLOBAL")
    Global("BreVil2","GLOBAL",2)
THEN
    RESPONSE #100
        SetGlobal("BreVil2","GLOBAL",3)
END

IF
    Global("BreVil3","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobalTimer("ChangeVil3","GLOBAL",ONE_DAY)
        SetGlobal("BreVil3","GLOBAL",2)
END

IF
    GlobalTimerExpired("ChangeVil3","GLOBAL")
    Global("BreVil3","GLOBAL",2)
THEN
    RESPONSE #100
        SetGlobal("BreVil3","GLOBAL",3)
END

IF
    Global("BreVil4","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobalTimer("ChangeVil4","GLOBAL",ONE_DAY)
        SetGlobal("BreVil4","GLOBAL",2)
END

IF
    GlobalTimerExpired("ChangeVil4","GLOBAL")
    Global("BreVil4","GLOBAL",2)
THEN
    RESPONSE #100
        SetGlobal("BreVil4","GLOBAL",3)
END

IF
    Global("BreVil5","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobalTimer("ChangeVil5","GLOBAL",ONE_DAY)
        SetGlobal("BreVil5","GLOBAL",2)
END

IF
    GlobalTimerExpired("ChangeVil5","GLOBAL")
    Global("BreVil5","GLOBAL",2)
THEN
    RESPONSE #100
        SetGlobal("BreVil5","GLOBAL",3)
END

IF
    Global("BreVil6","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobalTimer("ChangeVil6","GLOBAL",ONE_DAY)
        SetGlobal("BreVil6","GLOBAL",2)
END

IF
    GlobalTimerExpired("ChangeVil6","GLOBAL")
    Global("BreVil6","GLOBAL",2)
THEN
    RESPONSE #100
        SetGlobal("BreVil6","GLOBAL",3)
END

IF
    Global("BreVil7","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobalTimer("ChangeVil7","GLOBAL",ONE_DAY)
        SetGlobal("BreVil7","GLOBAL",2)
END

IF
    GlobalTimerExpired("ChangeVil7","GLOBAL")
    Global("BreVil7","GLOBAL",2)
THEN
    RESPONSE #100
        SetGlobal("BreVil7","GLOBAL",3)
END

IF
    Global("BreVil8","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobalTimer("ChangeVil8","GLOBAL",ONE_DAY)
        SetGlobal("BreVil8","GLOBAL",2)
END

IF
    GlobalTimerExpired("ChangeVil8","GLOBAL")
    Global("BreVil8","GLOBAL",2)
THEN
    RESPONSE #100
        SetGlobal("BreVil8","GLOBAL",3)
END

IF
    Global("BreVil9","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobalTimer("ChangeVil9","GLOBAL",ONE_DAY)
        SetGlobal("BreVil9","GLOBAL",2)
END

IF
    GlobalTimerExpired("ChangeVil9","GLOBAL")
    Global("BreVil9","GLOBAL",2)
THEN
    RESPONSE #100
        SetGlobal("BreVil9","GLOBAL",3)
END

IF
    Global("BreVil10","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobalTimer("ChangeVil10","GLOBAL",ONE_DAY)
        SetGlobal("BreVil10","GLOBAL",2)
END

IF
    GlobalTimerExpired("ChangeVil10","GLOBAL")
    Global("BreVil10","GLOBAL",2)
THEN
    RESPONSE #100
        SetGlobal("BreVil10","GLOBAL",3)
END

IF
    Global("BreVil11","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobalTimer("ChangeVil11","GLOBAL",FOUR_DAYS)
        SetGlobal("BreVil11","GLOBAL",2)
END

IF
    GlobalTimerExpired("ChangeVil11","GLOBAL")
    Global("BreVil11","GLOBAL",2)
THEN
    RESPONSE #100
        SetGlobal("BreVil10","GLOBAL",3)
    RESPONSE #100
        SetGlobal("BreVil10","GLOBAL",4)
    RESPONSE #100
        SetGlobal("BreVil10","GLOBAL",5)
    RESPONSE #100
        SetGlobal("BreVil10","GLOBAL",5)
END

IF
    OR(3)
        Global("BreVil11","GLOBAL",6)
        Global("BreVil11","GLOBAL",7)
        Global("BreVil11","GLOBAL",8)
    Global("BreVil12","GLOBAL",0)
THEN
    RESPONSE #100
        SetGlobalTimer("ChangeVil12","GLOBAL",ONE_DAY)
        SetGlobal("BreVil12","GLOBAL",1)
END

IF
    GlobalTimerExpired("ChangeVil12","GLOBAL")
    Global("BreVil12","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("BreVil12","GLOBAL",2)
END

IF
    Global("BreVil13","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobalTimer("ChangeVil13","GLOBAL",ONE_DAY)
        SetGlobal("BreVil13","GLOBAL",2)
END

IF
    GlobalTimerExpired("ChangeVil13","GLOBAL")
    Global("BreVil13","GLOBAL",2)
THEN
    RESPONSE #100
        SetGlobal("BreVil13","GLOBAL",3)
END

IF
    Global("BreVil14","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobalTimer("ChangeVil14","GLOBAL",THREE_DAYS)
        SetGlobal("BreVil14","GLOBAL",2)
END

IF
    GlobalTimerExpired("ChangeVil14","GLOBAL")
    Global("BreVil14","GLOBAL",2)
THEN
    RESPONSE #100
        SetGlobal("BreVil14","GLOBAL",3)
END

IF
    GlobalTimerExpired("Brotiwd22","GLOBAL")
    Global("Brothertimeriwd","GLOBAL",1)
    !Global("Brothertimeriwd","GLOBAL",5)
    !Global("Brothertimeriwd","GLOBAL",6)
    !Global("Brothertimeriwd","GLOBAL",7)
THEN
    RESPONSE #100
        SetGlobal("Brothertimeriwd","GLOBAL",4)
END

IF
    Global("Wulfgarsquest","GLOBAL",1)
    Global("Wulfgarsendinp","GLOBAL",0)
    !InParty("Wulfg2")
    OR(8)
        Global("FinalBattleofitemp","GLOBAL",0)
        Global("FinalBattleofitemp","GLOBAL",1)
        Global("FinalBattleofitemp","GLOBAL",2)
        Global("FinalBattleofitemp","GLOBAL",3)
        Global("FinalBattleofitemp","GLOBAL",4)
        Global("FinalBattleofitemp","GLOBAL",5)
        Global("FinalBattleofitemp","GLOBAL",6)
        Global("FinalBattleofitemp","GLOBAL",7)
THEN
    RESPONSE #100
        ChangeEnemyAlly("Beogorn",NEUTRAL)
        ChangeEnemyAlly("Ulgarth",NEUTRAL)
        ChangeEnemyAlly("BarBar1",NEUTRAL)
        ChangeEnemyAlly("BarBar2",NEUTRAL)
        ChangeEnemyAlly("BarBar3",NEUTRAL)
        ChangeEnemyAlly("BarBar4",NEUTRAL)
        SmallWait(1)
        ActionOverride("Beogorn",EscapeArea())
        ActionOverride("Ulgarth",EscapeArea())
        ActionOverride("BarBar1",EscapeArea())
        ActionOverride("BarBar2",EscapeArea())
        ActionOverride("BarBar3",EscapeArea())
        ActionOverride("BarBar4",EscapeArea())
        ActionOverride("Wulfg2",EscapeArea())
        SetGlobal("Wulfgarsendinp","GLOBAL",1)
END

IF
    Global("JoinTheCult","GLOBAL",5)
    GlobalTimerExpired("BeastCultTask1","GLOBAL")
    PartyHasItem("CultSym1") // Cult Symbol
    Delay(10)
THEN
    RESPONSE #100
        SetGlobal("CultTaskNum1","GLOBAL",1)
        ActionOverride(Player1,DisplayStringHead(Myself,73572)) // Seid Ihr *sicher*, dass ich Euch nicht davon überzeugen kann, mich einzulassen?
END

IF
    Global("JoinTheCult","GLOBAL",5)
    GlobalTimerExpired("BeastCultTask1","GLOBAL")
    PartyHasItem("CultSym1") // Cult Symbol
    Delay(50)
THEN
    RESPONSE #100
        SetGlobal("JoinTheCult","GLOBAL",7)
END

IF
    OR(5)
        Global("CultTaskNum1","GLOBAL",1)
        Global("CultTaskNum2","GLOBAL",1)
        Global("CultTaskNum3","GLOBAL",1)
        Global("CultTaskNum4","GLOBAL",1)
        Global("CultTaskNum5","GLOBAL",1)
    Global("MvtoCult","GLOBAL",1)
    !AreaCheck("RA5500")
    !AreaCheck("RA5501")
    CombatCounter(0)
THEN
    RESPONSE #100
        StartCutSceneMode()
        HideGUI()
        PlaySound("EFF_M07")
        StorePartyLocations()
        Wait(1)
        CreateVisualEffectObject("SPCLOUD1",Player1)
        CreateVisualEffectObject("SPCLOUD1",Player2)
        CreateVisualEffectObject("SPCLOUD1",Player3)
        CreateVisualEffectObject("SPCLOUD1",Player4)
        CreateVisualEffectObject("SPCLOUD1",Player5)
        CreateVisualEffectObject("SPCLOUD1",Player6)
        FadeToColor([20.0],0)
        Wait(2)
        SetGlobal("MvtoCult","GLOBAL",0)
        SetGlobal("MtoCult2","GLOBAL",1)
        UnhideGUI()
        EndCutSceneMode()
        ActionOverride(Player1,LeaveAreaLUA("RA5500","",[2877.563],2))
        ActionOverride(Player2,LeaveAreaLUA("RA5500","",[2877.563],2))
        ActionOverride(Player3,LeaveAreaLUA("RA5500","",[2877.563],2))
        ActionOverride(Player4,LeaveAreaLUA("RA5500","",[2877.563],2))
        ActionOverride(Player5,LeaveAreaLUA("RA5500","",[2877.563],2))
        ActionOverride(Player6,LeaveAreaLUA("RA5500","",[2877.563],2))
END

IF
    Global("JoinTheCult","GLOBAL",13)
    GlobalTimerExpired("BeastCultTask2","GLOBAL")
    PartyHasItem("CultSym1") // Cult Symbol
    Delay(10)
THEN
    RESPONSE #100
        SetGlobal("CultTaskNum2","GLOBAL",1)
        ActionOverride(Player1,DisplayStringHead(Myself,73572)) // Seid Ihr *sicher*, dass ich Euch nicht davon überzeugen kann, mich einzulassen?
END

IF
    Global("JoinTheCult","GLOBAL",13)
    GlobalTimerExpired("BeastCultTask2","GLOBAL")
    PartyHasItem("CultSym1") // Cult Symbol
    Delay(50)
THEN
    RESPONSE #100
        SetGlobal("JoinTheCult","GLOBAL",15)
END

IF
    Global("JoinTheCult","GLOBAL",19)
    GlobalTimerExpired("BeastCultTask3","GLOBAL")
    PartyHasItem("CultSym1") // Cult Symbol
    Delay(10)
THEN
    RESPONSE #100
        SetGlobal("CultTaskNum3","GLOBAL",1)
        ActionOverride(Player1,DisplayStringHead(Myself,73572)) // Seid Ihr *sicher*, dass ich Euch nicht davon überzeugen kann, mich einzulassen?
END

IF
    Global("JoinTheCult","GLOBAL",19)
    GlobalTimerExpired("BeastCultTask3","GLOBAL")
    PartyHasItem("CultSym1") // Cult Symbol
    Delay(50)
THEN
    RESPONSE #100
        SetGlobal("JoinTheCult","GLOBAL",20)
END

IF
    Global("JoinTheCult","GLOBAL",28)
    GlobalTimerExpired("BeastCultTask4","GLOBAL")
    PartyHasItem("CultSym1") // Cult Symbol
    Delay(10)
THEN
    RESPONSE #100
        SetGlobal("CultTaskNum4","GLOBAL",1)
        ActionOverride(Player1,DisplayStringHead(Myself,73572)) // Seid Ihr *sicher*, dass ich Euch nicht davon überzeugen kann, mich einzulassen?
END

IF
    Global("JoinTheCult","GLOBAL",28)
    GlobalTimerExpired("BeastCultTask4","GLOBAL")
    PartyHasItem("CultSym1") // Cult Symbol
    Delay(50)
THEN
    RESPONSE #100
        SetGlobal("JoinTheCult","GLOBAL",29)
END

IF
    Global("JoinTheCult","GLOBAL",37)
    GlobalTimerExpired("BeastCultTask5","GLOBAL")
    PartyHasItem("CultSym1") // Cult Symbol
    Delay(10)
THEN
    RESPONSE #100
        SetGlobal("CultTaskNum5","GLOBAL",1)
        ActionOverride(Player1,DisplayStringHead(Myself,73572)) // Seid Ihr *sicher*, dass ich Euch nicht davon überzeugen kann, mich einzulassen?
END

IF
    Global("JoinTheCult","GLOBAL",37)
    GlobalTimerExpired("BeastCultTask5","GLOBAL")
    PartyHasItem("CultSym1") // Cult Symbol
    Delay(50)
THEN
    RESPONSE #100
        SetGlobal("JoinTheCult","GLOBAL",38)
END

IF
    Global("MotoCult","GLOBAL",1)
    !AreaCheck("RA5500")
    !AreaCheck("RA5501")
    CombatCounter(0)
THEN
    RESPONSE #100
        StartCutSceneMode()
        HideGUI()
        PlaySound("EFF_M07")
        StorePartyLocations()
        Wait(1)
        CreateVisualEffectObject("SPCLOUD1",Player1)
        CreateVisualEffectObject("SPCLOUD1",Player2)
        CreateVisualEffectObject("SPCLOUD1",Player3)
        CreateVisualEffectObject("SPCLOUD1",Player4)
        CreateVisualEffectObject("SPCLOUD1",Player5)
        CreateVisualEffectObject("SPCLOUD1",Player6)
        FadeToColor([20.0],0)
        Wait(2)
        SetGlobal("MotoCult","GLOBAL",0)
        SetGlobal("MtCult2","GLOBAL",1)
        UnhideGUI()
        EndCutSceneMode()
        ActionOverride(Player1,LeaveAreaLUA("RA5500","",[2877.563],2))
        ActionOverride(Player2,LeaveAreaLUA("RA5500","",[2877.563],2))
        ActionOverride(Player3,LeaveAreaLUA("RA5500","",[2877.563],2))
        ActionOverride(Player4,LeaveAreaLUA("RA5500","",[2877.563],2))
        ActionOverride(Player5,LeaveAreaLUA("RA5500","",[2877.563],2))
        ActionOverride(Player6,LeaveAreaLUA("RA5500","",[2877.563],2))
END

IF
    Global("RandallJoin","GLOBAL",4)
THEN
    RESPONSE #100
        SetGlobal("RandallJoin","GLOBAL",5)
        SetGlobalTimer("RandallQuest","GLOBAL",FIVE_DAYS)
END

IF
    GlobalTimerExpired("RandallQuest","GLOBAL")
    Global("RandallJoin","GLOBAL",5)
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    !AreaType(CITY)
    AreaType(OUTDOOR)
    !AreaCheck("AR2500")
    !AreaCheck("AR1901")
    XPGT(Player1,250000)
THEN
    RESPONSE #100
        Wait(2)
        SetGlobal("RandallJoin","GLOBAL",6)
        CreateCreatureObjectOffScreen("RanNec1",Player1,0,0,0) // Nekromant
        CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke2",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke3",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke4",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke5",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke6",Player1,0,0,0) // Strong Skeleton
END

IF
    Global("RandallJoin","GLOBAL",6)
    !Dead("Randall")
    Dead("RanNec1") // Nekromant
    CombatCounter(0)
THEN
    RESPONSE #100
        SetGlobal("RandallJoin","GLOBAL",7)
END

IF
    Global("RandallJoin","GLOBAL",7)
THEN
    RESPONSE #100
        ActionOverride("Randall",StartDialog("RandallJ",[PC]))
END

IF
    Global("RandallJoin","GLOBAL",8)
THEN
    RESPONSE #100
        SetGlobal("RandallJoin","GLOBAL",9)
        SetGlobalTimer("RandallQuest2","GLOBAL",TEN_DAYS)
END

IF
    GlobalTimerExpired("RandallQuest2","GLOBAL")
    Global("RandallJoin","GLOBAL",9)
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    !AreaType(CITY)
    AreaType(OUTDOOR)
    !AreaCheck("AR2500")
    !AreaCheck("AR1901")
    XPGT(Player1,500000)
THEN
    RESPONSE #100
        Wait(2)
        SetGlobal("RandallJoin","GLOBAL",10)
        CreateCreatureObjectOffScreen("RanNec2",Player1,0,0,0) // Nekromant
        CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke7",Player1,0,0,0) // Kriegerskelett
        CreateCreatureObjectOffScreen("RanSke7",Player1,0,0,0) // Kriegerskelett
END

IF
    Global("RandallJoin","GLOBAL",10)
    !Dead("Randall")
    Dead("RanNec2") // Nekromant
    CombatCounter(0)
THEN
    RESPONSE #100
        SetGlobal("RandallJoin","GLOBAL",11)
END

IF
    Global("RandallJoin","GLOBAL",11)
THEN
    RESPONSE #100
        ActionOverride("Randall",StartDialog("RandallJ",[PC]))
END

IF
    Global("RandallJoin","GLOBAL",12)
THEN
    RESPONSE #100
        SetGlobal("RandallJoin","GLOBAL",13)
        SetGlobalTimer("RandallQuest3","GLOBAL",TEN_DAYS)
END

IF
    GlobalTimerExpired("RandallQuest3","GLOBAL")
    Global("RandallJoin","GLOBAL",13)
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    !AreaType(CITY)
    AreaType(OUTDOOR)
    !AreaCheck("AR2500")
    !AreaCheck("AR1901")
    XPGT(Player1,1000000)
THEN
    RESPONSE #100
        Wait(2)
        SetGlobal("RandallJoin","GLOBAL",14)
        CreateCreatureObjectOffScreen("RanNec3",Player1,0,0,0) // Bheodin
        CreateCreatureObjectOffScreen("RanNec4",Player1,0,0,0) // Nekromant
        CreateCreatureObjectOffScreen("RanNec5",Player1,0,0,0) // Nekromant
        CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke1",Player1,0,0,0) // Strong Skeleton
        CreateCreatureObjectOffScreen("RanSke7",Player1,0,0,0) // Kriegerskelett
        CreateCreatureObjectOffScreen("RanSke7",Player1,0,0,0) // Kriegerskelett
END

IF
    Global("RandallJoin","GLOBAL",14)
    !Dead("Randall")
    Dead("RanNec2") // Nekromant
    Dead("RanNec4") // Nekromant
    Dead("RanNec5") // Nekromant
    CombatCounter(0)
    PartyHasItem("RanNote") // A note
THEN
    RESPONSE #100
        SetGlobal("RandallJoin","GLOBAL",15)
END

IF
    Global("RandallJoin","GLOBAL",15)
THEN
    RESPONSE #100
        ActionOverride("Randall",StartDialog("RandallJ",[PC]))
END

IF
    !CombatCounter(0)
    Global("SwrdRain","GLOBAL",1)
    Global("Rainoftheswrd","GLOBAL",0)
    AreaType(OUTDOOR)
THEN
    RESPONSE #100
        Weather(RAIN)
        SetGlobal("Rainoftheswrd","GLOBAL",1)
END

IF
    CombatCounter(0)
    Global("SwrdRain","GLOBAL",1)
    Global("Rainoftheswrd","GLOBAL",1)
    AreaType(OUTDOOR)
THEN
    RESPONSE #100
        Weather(NOWEATHER)
        SetGlobal("Rainoftheswrd","GLOBAL",0)
END

IF
    Global("CSCutS4","GLOBAL",0)
    GlobalTimerExpired("CSCutScene4","GLOBAL")
THEN
    RESPONSE #100
        StartCutSceneMode()
        HideGUI()
        Wait(1)
        SetGlobal("CSCutS4","GLOBAL",1)
        StartCutScene("CSCutS4")
        Continue()
END

IF
    Global("u!SunaDies","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("u!SunaDies","GLOBAL",2)
        Wait(5)
        ActionOverride("Valygar",StartDialogueNoSet(Player1))
END

IF
    Delay(600)
    CombatCounter(0)
    OR(6)
        HasItemEquipedReal("c2sw2h01",Player1) // Lilarcor +5
        HasItemEquipedReal("c2sw2h01",Player2) // Lilarcor +5
        HasItemEquipedReal("c2sw2h01",Player3) // Lilarcor +5
        HasItemEquipedReal("c2sw2h01",Player4) // Lilarcor +5
        HasItemEquipedReal("c2sw2h01",Player5) // Lilarcor +5
        HasItemEquipedReal("c2sw2h01",Player6) // Lilarcor +5
THEN
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",20580) // Ich zähle mich zu den intelligenteren Schwertern, auch wenn ich keine besondere Ausbeulung genossen habe.
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",20779) // Können wir jetzt langsam mal mit der Metzelei anfangen, ja?
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",20780) // Wie wär's denn mit jetzt gleich, nein?
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",20956) // Gibt es JETZT vielleicht was zu metzeln?
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",24939) // Mmmm... now?
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",25349) // Wie wär's denn mit jetzt gleich?
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",31258) // Jetzt? Och, bitte! Bittebitte!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",31259) // Ich weiß ja nicht, was Ihr so alles vom Leben erwartet, aber ich als Schwert bin in meinen Wünschen ja ziemlich festgelegt.
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",31260) // Wie wär's denn jetzt mit einer zünftigen Prügelei, hm?
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",31638) // Let's whack something eeeeevvvvillllll...
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",31639) // Warum gehen wir nicht hin, und metzeln das da drüben einfach nieder?
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",31640) // Ich war einst eine Mondklinge, müsst Ihr wissen.
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",31641) // Ihr könntet mich mal putzen. Ich mag's gerne etwas glänzender.
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",31646) // Kriege ich jetzt vielleicht mal was Anständiges zu metzeln?
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",31649) // Wisst Ihr, mein früherer Besitzer sagte immer, ich sei scharf wie Nachbars Lumpi. Das war ja ein solcher Nusskopf...
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",31651) // Ich schlage kein Holz. Ich bin schließlich keine Axt.
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",31652) // Jetzt! Ja! Jetzt! Metzeln! Oh, jaa!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",31654) // Gott, wie öööööde!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",31655) // (Seufzer)
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",31656) // (doppelter Seufzer)
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",6433) // Wollt Ihr nicht auch ein bisschen metzeln, hmm? Los jetzt, rein ins Blutbad!
END

IF
    Delay(125)
    !CombatCounter(0)
    OR(6)
        HasItemEquipedReal("c2sw2h01",Player1) // Lilarcor +5
        HasItemEquipedReal("c2sw2h01",Player2) // Lilarcor +5
        HasItemEquipedReal("c2sw2h01",Player3) // Lilarcor +5
        HasItemEquipedReal("c2sw2h01",Player4) // Lilarcor +5
        HasItemEquipedReal("c2sw2h01",Player5) // Lilarcor +5
        HasItemEquipedReal("c2sw2h01",Player6) // Lilarcor +5
THEN
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",839) // Ihr redet, ich schneide!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",844) // Mal sehen, wie der hier von innen aussieht! Jaaah!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",849) // Kommt her und holt Euch einen ab!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",869) // Hört bloß auf, Ihr Tölpel! Ihr packt mich ja völlig falsch an!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",2308) // Jetzt mal Hand hoch, Kinder: Wer möchte als Erster sterben?
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",2389) // Mmmm... Schmeckt nach Hühnchen!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",4393) // He, Schlappschwanz! Ihr packt zu und ich kratze, ja?
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",31659) // Muwahahaha-ha-ha!!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",31660) // Das meinste aber nicht ernst, oder, Kumpel?
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",7908) // Ohhh, das gibt 'ne hässliche Narbe!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",8480) // Mord! Totschlag! METZELEI!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",9687) // Wer ist denn Euer Papa?
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",9800) // We got a gusher!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",10725) // Redet Ihr etwa mit MIR?!!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",11255) // Eine meiner besten Arbeiten!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",12671) // Ich bin der Beste in dem, was ich mache, und was ich mache, ist gar nicht nett!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",31662) // Jaaah! Getroffen! Und gleich noch mal!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",31663) // Ich bin unschlagbar! Einfach unschlagbar!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",32426) // Wouldn't it be cool if you could dual-wield me?
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",19304) // Paaf! Das war die Nase!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",19441) // Mein Bruder ist ein Hackmeister +12 !
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",19638) // Ich liebe den Geruch von Dattelpalmen am Morgen!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",20059) // Ihr müsst stärker ausholen, Mensch! Ausholen!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",20396) // Schickt sie rüber zu mir! Ich bin noch nicht fertig!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",20457) // Oh jaaah!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",31658) // Ein Tänzchen gefällig?
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",34689) // Niedermachen! Niedermachen! Schnell, bevor sie alle wieder weg sind!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",36145) // Tod! Tod! Tod! Jaaah! Herrlich!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",41815) // ... and this one's for grandma, who said I'd never amount to anything more than a butterknife!!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",6434) // Wie durch heiße Butter!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",6435) // Na los.... 'Make my day'!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",6441) // Ohhh, ich zittere! Haha!
    RESPONSE #10
        DisplayStringHeadOwner("c2sw2h01",6442) // Oooh, throw a coin in that fountain! Hahahaha!
END


#11 berelinde

berelinde

    Troublemaker

  • Modder
  • 4916 posts

Posted 21 November 2007 - 09:02 AM

My word, that is one heck of a baldur.bcs. I'm not surprised you've got stutter.

When you have an OR(#) block, every single line must be checked before it can move on to the next block. So that means that if it's at the top of the script, it's going to run each and every pass through the script. When you consider that HasItemEquipped() means that every single character's inventory has to be checked, together with a long OR() block, I'm not surprised you've got lag.

I don't know what mod introduced Kuroi, but I'd consider the possibility that your system can't handle it.

"Imagination is given to man to console him for what he is not; a sense of humor, for what he is." - Oscar Wilde

berelinde's mods
TolkienAcrossTheWater website
TolkienAcrossTheWater Forum


#12 Bloodtitan

Bloodtitan
  • Member
  • 406 posts

Posted 21 November 2007 - 09:09 AM

Kuroi should be Kuroisan the Acid Kensai, that's a small mod and i cannot recall any troubles with it from earlier megamod installations i have been running. i also do not recall anyone else reporting problems with it.
like i said, almost all the scripts there are from CTB (basically anything with a global starting with CB).


i'm running a 2 GHZ P4 with 1 GB RAM and lots of free diskspace / cache .... OS is Win XP.

Edited by Bloodtitan, 21 November 2007 - 09:10 AM.


#13 Miloch

Miloch

    Barbarian

  • Modder
  • 6573 posts

Posted 21 November 2007 - 10:46 AM

My word, that is one heck of a baldur.bcs. I'm not surprised you've got stutter.

What she said. I don't know which mods are adding all that crap, but it's uncalled for. What is "ElfSapate" and all this stuff? Hell, my browser is getting stutter just trying to read all that (seriously - and my machine's about the same as yours). Modding baldur.bcs should really be a last resort, only if necessary and no other outlets are possible, and even then, a modder should seriously reconsider before doing it. Certainly before doing it to the extent in that file.

Infinity Engine Contributions
Aurora * BG1 NPC * BG1 Fixpack * Haiass * Infinity Animations * Level 1 NPCs * P5Tweaks
PnP Free Action * Thrown Hammers * Unique Containers * BG:EE * BGII:EE * IWD:EE
================================================================
Player & Modder Resources
BAM Batcher * Creature Lister * Creature Checker * Creature Fixer * Tutu/BGT Area Map & List * Tutu Mod List
================================================================
"Infinity turns out to be the opposite of what people say it is. It is not 'that which has nothing beyond itself' that is infinite, but 'that which always has something beyond itself'." -Aristotle


#14 berelinde

berelinde

    Troublemaker

  • Modder
  • 4916 posts

Posted 21 November 2007 - 11:21 AM

Last time you ran Kuroisan the Acid Kensai, did you have CtB on there, too?

Quest mods do have to use baldur.bcs because there is no other script that runs constantly. If it's all taking place in the same area, like the Docks, I'd consider using that area script instead. But it isn't, so baldur.bcs it is.

Still, you're the player, not the modder, so there are a few things you should be aware of.

The first is that lag is cumulative. If you have one mod on there that contributes to lag, you'll probably be OK, but when you start putting mod after mod after mod on there, you start getting into trouble. For example: I know that the avatar morphing script, gradual drow item disintegration, unlimited item stacking, and bottomless bags are all components of BG2 Tweaks. They all contribute to lag. When I add unlimited item stacking, all is well (as long as I don't stack more than about a hundred per stack). When I add bottomless bags, I'm still all right (as long as I remember to empty them out periodically). But when I add avatar morphing script, I start to see a little lag, and when I add gradual drow item disintegration, the lag becomes more than I'm willing to put up with. Were I to add CtB, my game would be unplayable.

"Imagination is given to man to console him for what he is not; a sense of humor, for what he is." - Oscar Wilde

berelinde's mods
TolkienAcrossTheWater website
TolkienAcrossTheWater Forum


#15 erebusant

erebusant

    It takes a village...

  • Modder
  • 2109 posts

Posted 21 November 2007 - 12:34 PM

@Bloodtitan - All of Elfsapate, and Hell Blade scripts are from SoS and CtB, etc; you can pretty safely remove them from Baldur.bcs and not cause a lot of issues in your game.

Take a look at the 1st post in the Stickied BG2 Fixpack Mega-Install topic and use the attached baldur.bcs as a template. That should have all the extra crap pared out of it and hasn't caused me any issues.

It takes a village...


#16 Bloodtitan

Bloodtitan
  • Member
  • 406 posts

Posted 21 November 2007 - 02:57 PM

thanks, i will do that.

#17 Azazello

Azazello

    The Anti-Spammer

  • Staff
  • 1912 posts

Posted 21 November 2007 - 05:48 PM

Also, you can go thru the file and remove those blocks which you know have completed. For example, "Sword of Flame" is from NTotSC, I believe. Since you're never going back to BG1 (in your current game, that is), all those blocks can be safely removed.

#18 Ascension64

Ascension64
  • Modder
  • 5983 posts

Posted 21 November 2007 - 05:53 PM

Since you don't want to post your WeiDU.log, I hope that you also don't have too many AI mods installed. Too many long scripts running at the same time is just as bad as having an ultra-long baldur.bcs.

--------------
Retired Modder
Note: I do not respond to profile comments/personal messages in regards to troubleshooting my modifications. Please post on the public forums instead.

Baldur's Gate Trilogy-WeiDU and Mods
Throne of Bhaal Extender (TobEx)

Contributions: (NWN2) A Deathstalker (voice acting) - (IWD2) IWD2 NPC Project (soundset editing) - (Misc) SHS PC Soundsets (voice acting)
Legacy: (BG/Tutu/BGT) Beregost Crash Fixer 1.9 (18 Jul 10) - (BG2) Enable conversations with charmed/dominated creatures (18 Jul 10) - (BG2) Experience Corrections (18 Jul 10) - (Misc) Platform Conversion Utility RC2 (13 Feb 10)


#19 Chevalier

Chevalier

    Knight of the Realms

  • Modder
  • 2405 posts

Posted 21 November 2007 - 06:00 PM

Azazello are you talking about this? It is from SoBH, it's the talking flaming sword. If you are no longer carrying yes you can get rid of it. I know this because I am carrying it right now. :twisted:

IF
	Delay(600)
	CombatCounter(0)
	OR(6)
		HasItemEquipedReal("bhfsw1",Player1) // Sword of Flame +2
		HasItemEquipedReal("bhfsw1",Player2) // Sword of Flame +2
		HasItemEquipedReal("bhfsw1",Player3) // Sword of Flame +2
		HasItemEquipedReal("bhfsw1",Player4) // Sword of Flame +2
		HasItemEquipedReal("bhfsw1",Player5) // Sword of Flame +2
		HasItemEquipedReal("bhfsw1",Player6) // Sword of Flame +2
THEN
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",108540) //   Torment!
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",108541) //   Plenty to burn here.
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",108542) //   The flames await.
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",108543) //   I wait to walk paths of flames.
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",108544) //   The flames grow within me.
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",108545) //   No more talk and wonder.
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",108546) //   Great power is here.
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",108547) //   The flames hunger for the blistering of flesh.
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",108548) //   I wait.
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",108549) //   Ah, sweet flames.
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",108550) //   As I remained here, thoughts filled with flames.
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",108551) //   I am yours til death comes for us both.
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",108552) //   Fires shall sweep through the streets.
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",108553) //   I live?
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",108554) //   Yes?
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",108555) //   Ahhh.
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",108556) //   Yes, my master.
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",108557) //   You are all tallow for my flames.
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",108558) //   Long scream.
	RESPONSE #10
		DisplayStringHeadOwner("bhfsw1",108559) //   Pain.
END

IF

I Ride for the King!


a.k.a. Chev


#20 Azazello

Azazello

    The Anti-Spammer

  • Staff
  • 1912 posts

Posted 21 November 2007 - 07:12 PM

Chev, how did you sneak that sword pass Transition customs? :lol: