//*********************************Battle Potions*********************************//

//Script:		"battle_potns.inc"
//Version:		1.1
//Author:		Nathan Bunch a.k.a "Grog"
//Date:			11-11-04

//Purpose:		Allows warriors to take to use battle/combat oriented poitons when needed.

//******Use Healing Items******//

//Potion of Storm Giant Strength
IF
	See(NearestEnemyOf(Myself))
	OR(2)
	 NumCreatureGT([EVILCUTOFF],4)
	 HPGT(NearestEnemyOf(Myself),85)
	CheckStatLT(Myself,24,STR)
	HasItem("POTN07",Myself)
THEN
    RESPONSE #100
		UseItem("POTN07",Myself)
		FloatMessage(Myself,6987)
END

//Potion of Cloud Giant Strength
IF
	See(NearestEnemyOf(Myself))
	OR(2)
	 NumCreatureGT([EVILCUTOFF],4)
	 HPGT(NearestEnemyOf(Myself),80)
	CheckStatLT(Myself,23,STR)
	HasItem("POTN06",Myself)
THEN
    RESPONSE #100
		UseItem("POTN06",Myself)
		FloatMessage(Myself,6986)
END

//Potion of Fire Giant Strength
IF
	See(NearestEnemyOf(Myself))
	OR(2)
	 NumCreatureGT([EVILCUTOFF],4)
	 HPGT(NearestEnemyOf(Myself),75)
	CheckStatLT(Myself,22,STR)
	HasItem("POTN05",Myself)
THEN
    RESPONSE #100
		UseItem("POTN05",Myself)
		FloatMessage(Myself,6985)
END

//Potion of Frost Giant Strength
IF
	See(NearestEnemyOf(Myself))
	OR(2)
	 NumCreatureGT([EVILCUTOFF],3)
	 HPGT(NearestEnemyOf(Myself),75)
	CheckStatLT(Myself,21,STR)
	HasItem("POTN04",Myself)
THEN
    RESPONSE #100
		UseItem("POTN04",Myself)
		FloatMessage(Myself,6984)
END

//Potion of Stone Giant Strength
IF
	See(NearestEnemyOf(Myself))
	OR(2)
	 NumCreatureGT([EVILCUTOFF],3)
	 HPGT(NearestEnemyOf(Myself),75)
	CheckStatLT(Myself,20,STR)
	HasItem("POTN12",Myself)
THEN
    RESPONSE #100
		UseItem("POTN12",Myself)
		FloatMessage(Myself,7005)
END

//Potion of Hill Giant Strength
IF
	See(NearestEnemyOf(Myself))
	OR(2)
	 NumCreatureGT([EVILCUTOFF],3)
	 HPGT(NearestEnemyOf(Myself),70)
	CheckStatLT(Myself,19,STR)
	HasItem("POTN03",Myself)
THEN
    RESPONSE #100
		UseItem("POTN03",Myself)
		FloatMessage(Myself,6981)
END

//Potion of Strength
IF
	See(NearestEnemyOf(Myself))
	OR(2)
	 NumCreatureGT([EVILCUTOFF],3)
	 HPGT(NearestEnemyOf(Myself),60)
	CheckStatLT(Myself,18,STR)
	HasItem("POTN44",Myself)
	!GlobalTimerNotExpired("grPoS_Timer","LOCALS")
THEN
	RESPONSE #100
		UseItem("POTN44",Myself)
		FloatMessage(Myself,7103)
		SetGlobalTimer("grPoS_Timer","LOCALS",TWENTY_TURNS)
END

//Potion of Agility

//Deterity of 18 gives a +2 bonus to AC, and a -4 missile adjustment
IF
	See(NearestEnemyOf(Myself))
	OR(2)
	  NumCreatureGT([EVILCUTTOF],4)
	  HPGT(NearestEnemyOf(Myself),60)
	CheckStatLT(Myself,17,DEX)
	HasItem("POTN19",Myself)
THEN
    RESPONSE #100
		UseItem("POTN19",Myself)
		FloatMessage(Myself,7016)
END

//Potion of Fortitude

//Constitution of 18 gives a +2 bonus to HP, (+4 to Warriors)
IF
	See(NearestEnemyOf(Myself))
	OR(2)
	  NumCreatureGT([EVILCUTTOF],4)
	  HPGT(NearestEnemyOf(Myself),60)
	CheckStatLT(Myself,17,CON)
	HasItem("POTN28",Myself)
THEN
    RESPONSE #100
		UseItem("POTN28",Myself)
		FloatMessage(Myself,7053)
END

//Potion of Invulnerability
IF
	OR(2)
	  NumCreatureGT([EVILCUTOFF],4)
	  HPGT(NearestEnemyOf(Myself),65)
	HasItem("POTN11",Myself)
	!GlobalTimerNotExpired("grPoI_Timer","LOCALS")
THEN
    RESPONSE #100
		UseItem("POTN11",Myself)
		FloatMessage(Myself,6998)
		SetGlobalTimer("grPoI_Timer","LOCALS",FIVE_TURNS)
END

//Potion of Heroism
IF
	OR(2)
	  NumCreatureGT([ENEMY],4)
	  HPGT(NearestEnemyOf(Myself),65)
	HasItem("POTN09",Myself)
	!GlobalTimerNotExpired("grPoH_Timer","LOCALS")
THEN
    RESPONSE #100
		UseItem("POTN09",Myself)
		FloatMessage(Myself,6994)
		SetGlobalTimer("grPoH_Timer","LOCALS",TEN_TURNS)
END

//Potion of Super-Heroism
IF
	OR(2)
	  NumCreatureGT([ENEMY],4)
	  HPGT(NearestEnemyOf(Myself),75)
	HasItem("POTNGR03",Myself)
	!GlobalTimerNotExpired("grPoSH_Timer","LOCALS")
THEN
    RESPONSE #100
		UseItem("POTNGR03",Myself)
		FloatMessage(Myself,34584)
		SetGlobalTimer("grPoSH_Timer","LOCALS",FIVE_TURNS)
END

//Potion of Power
IF
	ClassEX(Myself,THIEF)
	OR(2)
	  NumCreatureGT([ENEMY],4)
	  HPGT(NearestEnemyOf(Myself),65)
	HasItem("POTN41",Myself)
	!GlobalTimerNotExpired("grPoP_Timer","LOCALS")
THEN
    RESPONSE #100
		UseItem("POTN09",Myself)
		FloatMessage(Myself,13708)
		SetGlobalTimer("grPoP_Timer","LOCALS",FOUR_TURNS)
END

//Oil of Speed
IF
	See(NearestEnemyOf(Myself))
	OR(2)
	  NumCreatureGT([EVILCUTOFF],5)
	  HPGT(NearestEnemyOf(Myself),95)
	!StateCheck(Myself,STATE_HASTED)
	HasItem("POTN14",Myself)
THEN
    RESPONSE #100
		UseItem("POTN14",Myself)
		FloatMessage(Myself,17855)
END

//Potion of Defense
//	-> Sets AC to 0 for 10 turns
IF
	See(NearestEnemyOf(Myself))
	HasItem("POTN24",Myself)	
	OR(2)
	  HPGT(NearestEnemyOf(Myself),55)
	  NumCreatureGT([EVILCUTOFF],3)
	CheckStatGT(Myself,0,ARMORCLASS)
	!GlobalTimerNotExpired("grPoD_Timer","LOCALS")
THEN
	RESPONSE #100
		UseItem("POTN24",Myself)
		FloatMessage(Myself,7050)
		SetGlobalTimer("grPoD_Timer","LOCALS",TEN_TURNS)
END

//Potion of Invulnerability
//	-> Sets AC to 0 and grants +5 to all saves for 5 turns
IF
	See(SecondNearestEnemyOf(Myself))
	HasItem("POTN40",Myself)	
	OR(2)
	  HPGT(NearestEnemyOf(Myself),55)
	  NumCreatureGT([EVILCUTOFF],3)
	OR(7)
	  ClassEx(LastSeenBy(Myself),CLERIC)	 
	  ClassEx(LastSeenBy(Myself),MAGE)	 
	  ClassEx(LastSeenBy(Myself),DRUID)	 
	  ClassEx(LastSeenBy(Myself),BARD)
	  Class(LastSeenBy(Myself),WYVERN)
	  Race(LastSeenBy(Myself),GHOUL)
	  Race(LastSeenBy(Myself),SLIME)
	  Race(LastSeenBy(Myself),FAIRY)
	  Race(LastSeenBy(Myself),MYCONID)	  
	CheckStatGT(Myself,0,ARMORCLASS)
	!GlobalTimerNotExpired("grPoI_Timer","LOCALS")
THEN
	RESPONSE #100
		UseItem("POTN40",Myself)
		FloatMessage(Myself,6998)
		SetGlobalTimer("grPoI_Timer","LOCALS",FIVE_TURNS)
END

//Potion of Freedom
IF
	See([EVILCUTOFF])
	HasItem("POTN45",Myself)
	OR(7)
	  Race(LastSeenBy(Myself),CARRIONCRAWLER)
	  Race(LastSeenBy(Myself),GHOUL)
	  Race(LastSeenBy(Myself),CARRION CRAWLER)
	  ClassEX(LastSeenBy(Myself),DRUID)
	  ClassEX(LastSeenBy(Myself),CLERIC)
	  ClassEX(LastSeenBy(Myself),MAGE)
	  ClassEX(LastSeenBy(Myself),BARD)
	  GlobalTimerNotExpired("grCastEntangle","LOCALS")
	!GlobalTimerNotExpired("gr_HasFreeAction","LOCALS")
	!HasItem("RING09",Myself)
THEN
	RESPONSE #100
		SetGlobalTimer("gr_HasFreeAction","LOCALS",TWO_TURNS) 
		UseItem("POTN45",Myself)
		FloatMessage(Myself,7104)
END