IF
	RandomNumLT(12,2)
	InParty(Player6(Myself))
	Global("Player6DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		NoAction()
END

IF
	RandomNum(12,2)
	InParty(Player6(Myself))
	Global("Player6DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player6Adamant","GLOBAL",TWO_DAYS)
		SetGlobal("Player6DrowItem","GLOBAL",1)
END

IF
	RandomNum(12,3)
	InParty(Player6(Myself))
	Global("Player6DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player6Adamant","GLOBAL",THREE_DAYS)
		SetGlobal("Player6DrowItem","GLOBAL",1)
END

IF
	RandomNum(12,4)
	InParty(Player6(Myself))
	Global("Player6DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player6Adamant","GLOBAL",FOUR_DAYS)
		SetGlobal("Player6DrowItem","GLOBAL",1)
END

IF
	RandomNum(12,5)
	InParty(Player6(Myself))
	Global("Player6DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player6Adamant","GLOBAL",FIVE_DAYS)
		SetGlobal("Player6DrowItem","GLOBAL",1)
END

IF
	RandomNum(12,6)
	InParty(Player6(Myself))
	Global("Player6DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player6Adamant","GLOBAL",SIX_DAYS)
		SetGlobal("Player6DrowItem","GLOBAL",1)
END

IF
	RandomNum(12,7)
	InParty(Player6(Myself))
	Global("Player6DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player6Adamant","GLOBAL",SEVEN_DAYS)
		SetGlobal("Player6DrowItem","GLOBAL",1)
END

IF
	RandomNum(12,8)
	InParty(Player6(Myself))
	Global("Player6DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player6Adamant","GLOBAL",EIGHT_DAYS)
		SetGlobal("Player6DrowItem","GLOBAL",1)
END

IF
	RandomNum(12,9)
	InParty(Player6(Myself))
	Global("Player6DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player6Adamant","GLOBAL",NINE_DAYS)
		SetGlobal("Player6DrowItem","GLOBAL",1)
END

IF
	RandomNum(12,10)
	InParty(Player6(Myself))
		Global("Player6DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player6Adamant","GLOBAL",TEN_DAYS)
		SetGlobal("Player6DrowItem","GLOBAL",1)
END

IF
	RandomNum(12,11)
	InParty(Player6(Myself))
	Global("Player6DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player6Adamant","GLOBAL",ELEVEN_DAYS)
		SetGlobal("Player6DrowItem","GLOBAL",1)
END

IF
	RandomNum(12,12)
	InParty(Player6(Myself))
	Global("Player6DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player6Adamant","GLOBAL",TWELVE_DAYS)
		SetGlobal("Player6DrowItem","GLOBAL",1)
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWCHN1",Player6(Myself)) // Drow Adamantite Mesh Armor +1
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWCHN1") // Drow Adamantite Mesh Armor +1
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWCHN2",Player6(Myself)) // Drow Adamantite Mesh Armor +2
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWCHN2") // Drow Adamantite Mesh Armor +2
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWCHN3",Player6(Myself)) // Drow Adamantite Mesh Armor +3
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWCHN3") // Drow Adamantite Mesh Armor +3
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWPLT1",Player6(Myself)) // Chainmail +1
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWPLT1") // Chainmail +1
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWPLT2",Player6(Myself)) // Chainmail +1
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWPLT2") // Chainmail +1
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWSHD1",Player6(Myself)) // Drow Adamantite Buckler +1
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWSHD1") // Drow Adamantite Buckler +1
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWSHD2",Player6(Myself)) // Drow Adamantite Buckler +2
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWSHD2") // Drow Adamantite Buckler +2
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWSHD3",Player6(Myself)) // Drow Adamantite Buckler +3
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWSHD3") // Drow Adamantite Buckler +3
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWSWD1",Player6(Myself)) // Drow Adamantite Short Sword +1
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWSWD1") // Drow Adamantite Short Sword +1
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWSWD2",Player6(Myself)) // Drow Adamantite Short Sword +2
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWSWD2") // Drow Adamantite Short Sword +2
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWSWD3",Player6(Myself)) // Drow Adamantite Short Sword +3
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWSWD3") // Drow Adamantite Short Sword +3
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWDAG1",Player6(Myself)) // Drow Adamantite Dagger +1
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWDAG1") // Drow Adamantite Dagger +1
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWDAG2",Player6(Myself)) // Drow Adamantite Dagger +2
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWDAG2") // Drow Adamantite Dagger +2
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWDAG3",Player6(Myself)) // Drow Adamantite Dagger +3
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWDAG3") // Drow Adamantite Dagger +3
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWHLM1",Player6(Myself)) // Drow Adamantite War Helmet of Lolth +1
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWHLM1") // Drow Adamantite War Helmet of Lolth +1
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWHLM2",Player6(Myself)) // Drow Adamantite War Helmet of Lolth +2
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWHLM2") // Drow Adamantite War Helmet of Lolth +2
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWHLM3",Player6(Myself))
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWHLM3")
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWMAC1",Player6(Myself)) // Mace +1
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWMAC1") // Mace +1
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWMAC2",Player6(Myself)) // Mace +1
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWMAC2") // Mace +1
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWMAC3",Player6(Myself)) // Mace +1
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWMAC3") // Mace +1
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWCLK1",Player6(Myself)) // Drow Mage Cloak
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWCLK1") // Drow Mage Cloak
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWCLK2",Player6(Myself)) // Drow Mage Cloak
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWCLK2") // Drow Mage Cloak
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWCLK3",Player6(Myself)) // Drow Mage Cloak
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWCLK3") // Drow Mage Cloak
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWXBW1",Player6(Myself)) // Drow Light Crossbow
 +1
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWXBW1") // Drow Light Crossbow
 +1
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWXBW2",Player6(Myself))
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWXBW2")
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWBOL1",Player6(Myself))
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWBOL1")
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWBOT1",Player6(Myself))
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWBOT1")
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWRNG1",Player6(Myself))
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWRNG1")
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWRNG2",Player6(Myself))
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWRNG2")
END

IF
	GlobalTimerExpired("Player6Adamant","GLOBAL")
	Global("Player6DrowItem","GLOBAL",1)
	HasItem("DROWJVL1",Player6(Myself))
	InParty(Player6(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		DestroyItem("DROWJVL1")
END


