scn GSCraftingSCPT

short DoAgain
short sIndex
short sCount

ref rToken
ref rGun

float fGunDur
float fChalBonus

begin gamemode
	if DoAgain
		while sCount < 1 && sIndex < ListGetCount GSWeaponList - 1
			set rToken to ListGetNthForm GSTokenList sIndex
			set sCount to player.getitemcount rToken
			if sCount < 1
				set sIndex to sIndex + 1
			endif
		loop
		if sCount
			set rGun to ListGetNthForm GSWeaponList sIndex
			set fGunDur to ((player.getAV Repair / 200) + (player.getAV Guns / 400)+ fChalBonus)
			if fGunDur > 1
				set fGunDur to 1
			elseif fGunDur < .01
				set fGunDur to .01
			endif
			player.addItemHealthPercent rGun sCount fGunDur
			player.removeitem rToken sCount 1
		endif
		set sIndex to 0
		set DoAgain to 0
		set sCount to 0
	endif
end

begin menumode 1077
	set DoAgain to 1
end