IF
	RandomNumLT(12,2)
	InParty(Player1(Myself))
	Global("Player1DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		NoAction()
		Continue()
END

IF
	RandomNum(12,2)
	InParty(Player1(Myself))
	Global("Player1DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player1Adamant","GLOBAL",ONE_DAY)
		SetGlobal("Player1DrowItem","GLOBAL",1)
END

IF
	RandomNum(12,3)
	InParty(Player1(Myself))
	Global("Player1DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player1Adamant","GLOBAL",ONE_DAY)
		SetGlobal("Player1DrowItem","GLOBAL",1)
END

IF
	RandomNum(12,4)
	InParty(Player1(Myself))
	Global("Player1DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player1Adamant","GLOBAL",ONE_DAY)
		SetGlobal("Player1DrowItem","GLOBAL",1)
END

IF
	RandomNum(12,5)
	InParty(Player1(Myself))
	Global("Player1DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player1Adamant","GLOBAL",ONE_DAY)
		SetGlobal("Player1DrowItem","GLOBAL",1)
END

IF
	RandomNum(12,6)
	InParty(Player1(Myself))
	Global("Player1DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player1Adamant","GLOBAL",ONE_DAY)
		SetGlobal("Player1DrowItem","GLOBAL",1)
END

IF
	RandomNum(12,7)
	InParty(Player1(Myself))
	Global("Player1DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player1Adamant","GLOBAL",ONE_DAY)
		SetGlobal("Player1DrowItem","GLOBAL",1)
END

IF
	RandomNum(12,8)
	InParty(Player1(Myself))
	Global("Player1DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player1Adamant","GLOBAL",ONE_DAY)
		SetGlobal("Player1DrowItem","GLOBAL",1)
END

IF
	RandomNum(12,9)
	InParty(Player1(Myself))
	Global("Player1DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player1Adamant","GLOBAL",ONE_DAY)
		SetGlobal("Player1DrowItem","GLOBAL",1)
END

IF
	RandomNum(12,10)
	InParty(Player1(Myself))
	Global("Player1DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player1Adamant","GLOBAL",ONE_DAY)
		SetGlobal("Player1DrowItem","GLOBAL",1)
END

IF
	RandomNum(12,11)
	InParty(Player1(Myself))
	Global("Player1DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player1Adamant","GLOBAL",ONE_DAY)
		SetGlobal("Player1DrowItem","GLOBAL",1)
END

IF
	RandomNum(12,12)
	InParty(Player1(Myself))
	Global("Player1DrowItem","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobalTimer("Player1Adamant","GLOBAL",ONE_DAY)
		SetGlobal("Player1DrowItem","GLOBAL",1)
END

IF
	Global("Player1DrowItem","GLOBAL",1)
	HasItem("DROWCHAN",Player1(Myself))
	InParty(Player1(Myself))
THEN
	RESPONSE #100
		ForceSpell(Myself,ADAMANT)
		SetGlobal("Player1DrowItem","GLOBAL",0)
END


