glife/locations/DH_Gear_Heads.qsrc

# DH_Gear_Head
!! I have to carry an array of all the different item strings
!! so they can be iterated over and/or randomly chosen from
!! e.g. for loot or shop items

if $ARGS[0] = 'GetRequired':
	$.character = $ARGS[1]
	$.item = $ARGS[2]
	
	gs 'DH_Gear_Head', $.item, 'GetRequired'
	
	_isMeetsReq = True
	if     dhCh_Level[$.character] != dhReq_Level : _isMeetsReq = False
	
	elseif dhCh_Agi[$.character]   != dhReq_Agi   : _isMeetsReq = False
	elseif dhCh_Cha[$.character]   != dhReq_Cha   : _isMeetsReq = False
	elseif dhCh_Int[$.character]   != dhReq_Int   : _isMeetsReq = False
	elseif dhCh_Lor[$.character]   != dhReq_Lor   : _isMeetsReq = False
	elseif dhCh_Luc[$.character]   != dhReq_Luc   : _isMeetsReq = False
	elseif dhCh_Per[$.character]   != dhReq_Per   : _isMeetsReq = False
	elseif dhCh_Str[$.character]   != dhReq_Str   : _isMeetsReq = False
	
	end
	
	RESULT = _isMeetsReq
end

if     $ARGS[0] = 'SimpleWoodenHelmet':
	if $ARGS[1] = 'GetRequired':
		dhReq_Level = 0
		dhReq_Agi = 0
		dhReq_Cha = 0
		dhReq_Int = 0
		dhReq_Lor = 0
		dhReq_Luc = 0
		dhReq_Per = 0
		dhReq_Str = 0
		exit
	end
	
	$dhArm_Name = 'Simple Wooden Helmet'
	dhArm_Grade = 1
	dhArm_Defense = 5
	dhArm_DurMax = 8
	dhArm_ResFire = -80
	dhArm_ResEarth = 0
	dhArm_ResMetal = 0
	dhArm_ResWater = 0
	dhArm_ResWood = 10
	dhArm_EnExp = 0

elseif $ARGS[0] = 'EpicWoodenHelmet':
	if $ARGS[1] = 'GetRequired':
		dhReq_Level = 5
		dhReq_Agi = 0
		dhReq_Cha = 0
		dhReq_Int = 0
		dhReq_Lor = 0
		dhReq_Luc = 0
		dhReq_Per = 0
		dhReq_Str = 0
		exit
	end
	
	$dhArm_Name = 'Epic Wooden Helmet'
	dhArm_Grade = 3
	dhArm_Defense = 15
	dhArm_DurMax = 12
	dhArm_ResFire = -50
	dhArm_ResEarth = 10
	dhArm_ResMetal = 0
	dhArm_ResWater = 5
	dhArm_ResWood = 25
	dhArm_EnExp = 5

else
	!! Unknown Item so reset stats
	if $ARGS[1] = 'GetRequired':
		dhReq_Level = 0
		dhReq_Agi = 0
		dhReq_Cha = 0
		dhReq_Int = 0
		dhReq_Lor = 0
		dhReq_Luc = 0
		dhReq_Per = 0
		dhReq_Str = 0
		exit
	end
	
	$dhArm_Name   = 'Epic Wooden Helmet'
	dhArm_Grade   = 0
	dhArm_Defense = 0
	dhArm_DurMax  = 0
	
	dhArm_ResFire  = 0
	dhArm_ResEarth = 0
	dhArm_ResMetal = 0
	dhArm_ResWater = 0
	dhArm_ResWood  = 0
	
	dhArm_EnExp = 0
end

!! Equip error helmet if trying to equip an unknown head-gear?
gs 'DH_Player', 'UnequipGear', 'Head'

--- DH_Gear_Head ---------------------------------