var temparray $weaponlist

weapon.skill1:
setvariable LOCATION weapon.skill1
	if "%low.weapon" != "NULL" && $%low.weapon.LearningRate < $maxlearningrate then goto checkskip
preweaponcheck:
        var count.number 0
        eval weapons.number count("%temparray","|")
		var low.weapon %temparray(0)
weaponcheck:
        if %count.number <= %weapons.number then
          {
          if $%temparray(%count.number).LearningRate < $%low.weapon.LearningRate then var low.weapon %temparray(%count.number)
          math count.number add 1
          goto weaponcheck
          }

	gosub lowestweaponcheck
		if $%lowest.weapon.LearningRate > $maxlearningrate then
		{
		math templearningrate add 5
		put #math maxlearningrate add 5
		if %templearningrate > 30 then var templearningrate 33
		if $maxlearningrate > 30 then put #var maxlearningrate 30
		}
	if $%lowest.weapon.LearningRate > 28 then goto archtrain
	var weapon $weapon.%low.weapon
	var combatstart $gametime
	pause 0.5
	if $removeweapon then goto checkskip
	if %weapons.number = 0 then
		{
		var temparray $weaponlist
		goto checkskip
		}
	eval temparray replace("%temparray", "%low.weapon", "|")
	eval temparray replacere("%temparray", "\|+", "|")
	eval temparray replacere("%temparray", "^\|", "")
	eval temparray replacere("%temparray", "\|$", "")
	if "%temparray" = "" then var temparray $weaponlist
	if $%low.weapon.LearningRate > $maxlearningrate then goto preweaponcheck
	checkskip:
	if matchre("$righthand", "\b$weapon.%low.weapon") then
		{
		goto maneuver
		}
	if "$righthand" != "Empty" then gosub stow $righthandnoun
	if matchre("Crossbow|Bow|Slings", "%low.weapon") then send stance shield
	gosub wield $weapon.%low.weapon
	goto maneuver

lowestweaponcheck:
        var final.number 0
        eval total.number count("$weaponlist","|")
		var lowest.weapon $weaponlist(0)
lowestweaponcheck_1:
        if %final.number <= %total.number then
          {
          if $$weaponlist(%final.number).LearningRate < $%lowest.weapon.LearningRate then var lowest.weapon $weaponlist(%final.number)
          math final.number add 1
          goto lowestweaponcheck_1
          }
		return