//*********Icewind Dale Version of Potion Swapping Routine*********//

//Script:		"potnSwap.inc"
//Version:		1.5
//Author:		Nathan Bunch a.k.a "Grog"
//Date:			02-04-05

//Purpose:		Transfer healing potions to other party members that need them.

//*****Give Potions*****//

//Potion fo Healing -- Heal 9 HP
IF
	Heard([PC],NEED_POTION)
	!Range(LastHeardBy(Myself),0)
	!HaveSpell(CLERIC_CURE_LIGHT_WOUNDS)
	!HaveSpell(CLERIC_CURE_MODERATE_WOUNDS)
	!HaveSpell(CLERIC_CURE_SERIOUS_WOUNDS)
	!HaveSpell(CLERIC_CURE_CRITICAL_WOUNDS)
	HasItem("POTN08",Myself)
	HPPercentGT(Myself,50)
	Internal(Myself,0,0)
THEN
	RESPONSE #100
		GiveItem("POTN08",LastHeardBy(Myself))
		SetInternal(Myself,0,1)
END

//Potion of Extra Healing -- Heal 18 HP
IF
	Heard([PC],NEED_POTION)
	!Range(LastHeardBy(Myself),0)
	!HaveSpell(CLERIC_CURE_LIGHT_WOUNDS)
	!HaveSpell(CLERIC_CURE_MODERATE_WOUNDS)
	!HaveSpell(CLERIC_CURE_SERIOUS_WOUNDS)
	!HaveSpell(CLERIC_CURE_CRITICAL_WOUNDS)
	HasItem("EXTHEAL",Myself)
	HPPercentGT(Myself,50)
	Internal(Myself,0,0)
THEN
	RESPONSE #100
		GiveItem("EXTHEAL",LastHeardBy(Myself))
		SetInternal(Myself,0,1)
END

//Potion of Regeneration
IF
	Heard([PC],NEED_POTION)
	!Range(LastHeardBy(Myself),0)
	!HaveSpell(CLERIC_CURE_LIGHT_WOUNDS)
	!HaveSpell(CLERIC_CURE_MODERATE_WOUNDS)
	!HaveSpell(CLERIC_CURE_SERIOUS_WOUNDS)
	!HaveSpell(CLERIC_CURE_CRITICAL_WOUNDS)
	HasItem("POTN42",Myself)
	HPPercentGT(Myself,50)
	Internal(Myself,0,0)
THEN
	RESPONSE #100
		GiveItem("POTN42",LastHeardBy(Myself))
		SetInternal(Myself,0,1)
END

//Elixir of Health -- Heal 10 HP & Removes Poison
IF
	Heard([PC],NEED_POTION)
	!Range(LastHeardBy(Myself),0)
	!HaveSpell(CLERIC_CURE_LIGHT_WOUNDS)
	!HaveSpell(CLERIC_CURE_MODERATE_WOUNDS)
	!HaveSpell(CLERIC_CURE_SERIOUS_WOUNDS)
	!HaveSpell(CLERIC_CURE_CRITICAL_WOUNDS)
	HasItem("POTN17",Myself)
	HPPercentGT(Myself,50)
	Internal(Myself,0,0)
THEN
	RESPONSE #100
		GiveItem("POTN17",LastHeardBy(Myself))
		SetInternal(Myself,0,1)
END

//Potion of Rejuvination -- Heals 27 HP & Reduces Fatigue
IF
	Heard([PC],NEED_POTION)
	!Range(LastHeardBy(Myself),0)
	!HaveSpell(CLERIC_CURE_LIGHT_WOUNDS)
	!HaveSpell(CLERIC_CURE_MODERATE_WOUNDS)
	!HaveSpell(CLERIC_CURE_SERIOUS_WOUNDS)
	!HaveSpell(CLERIC_CURE_CRITICAL_WOUNDS)
	HasItem("POTNGR02",Myself)
	HPPercentGT(Myself,50)
	Internal(Myself,0,0)
THEN
	RESPONSE #100
		GiveItem("POTNGR02",LastHeardBy(Myself))
		SetInternal(Myself,0,1)
END

//Potion of Super Healing -- Heals 40 HP
IF
	Heard([PC],NEED_POTION)
	!Range(LastHeardBy(Myself),0)
	!HaveSpell(CLERIC_CURE_LIGHT_WOUNDS)
	!HaveSpell(CLERIC_CURE_MODERATE_WOUNDS)
	!HaveSpell(CLERIC_CURE_SERIOUS_WOUNDS)
	!HaveSpell(CLERIC_CURE_CRITICAL_WOUNDS)
	HasItem("CMSHEAL",Myself)
	HPPercentGT(Myself,50)
	Internal(Myself,0,0)
THEN
	RESPONSE #100
		GiveItem("CMSHEAL",LastHeardBy(Myself))
		SetInternal(Myself,0,1)
END

//Antidote -- Cure Poison
IF
	Heard([PC],POISONED)
	!Range(LastHeardBy(Myself),0)
	!HaveSpell(CLERIC_NEUTRALIZE_POISON)
	!HaveSpell(CLERIC_SLOW_POISON)
	!HaveSpell(INNATE_SLOW_POISON)
	HasItem("POTN20",Myself)
	Internal(Myself,0,0)
THEN
	RESPONSE #100
		GiveItem("POTN20",LastHeardBy(Myself))
		SetInternal(Myself,0,1)
END

//Potion of Renewal -- Cure Poison
IF
	Heard([PC],POISONED)
	!Range(LastHeardBy(Myself),0)
	!HaveSpell(CLERIC_NEUTRALIZE_POISON)
	!HaveSpell(CLERIC_SLOW_POISON)
	!HaveSpell(INNATE_SLOW_POISON)
	HasItem("POTNGR01",Myself)
	Internal(Myself,0,0)
THEN
	RESPONSE #100
		GiveItem("POTNGR01",LastHeardBy(Myself))
		SetInternal(Myself,0,1)
END

//Mummies Tea -- Cures Disease
IF
	Heard([PC],DISEASED)
	!Range(LastHeardBy(Myself),0)
	!HaveSpell(CLERIC_CURE_DISEASE)
	HasItem("ADISEASE",Myself)
	Internal(Myself,0,0)
THEN
	RESPONSE #100
		GiveItem("ADISEASE",LastHeardBy(Myself))
		SetInternal(Myself,0,1)
END

//Potion of Renewal -- Cures Disease
IF
	Heard([PC],DISEASED)
	!Range(LastHeardBy(Myself),0)
	!HaveSpell(CLERIC_CURE_DISEASE)
	HasItem("POTNGR01",Myself)
	Internal(Myself,0,0)
THEN
	RESPONSE #100
		GiveItem("POTNGR01",LastHeardBy(Myself))
		SetInternal(Myself,0,1)
END

IF
	Heard([PC],RECIEVED_POTION)
	!Range(LastHeardBy(Myself),0)
    Internal(Myself,0,1)
THEN
	RESPONSE #100
		SetInternal(Myself,0,0)
END