armor.check:
var Last_Armor_Check $gametime
if $%armorexp >= %armorstop then gosub armor.swap
return

armorprime:
pause
send hold greav
pause
send stow my greav
pause
if $lefthand != Empty then send stow left
if $righthand != Empty then send stow right
pause
gosub armor.wear plate Plate_Armor.LearningRate "p greav" "r greav"
pause
return

armor.swap:
if $Chain_Armor.LearningRate >= 24 && $Plate_Armor.LearningRate >= 24 && $Brigandine.LearningRate >= 24 then {
	var armortimer 1200
	return
}

var armortimer 120
if %armortype == chain then {
	gosub armor.wear plate Plate_Armor.LearningRate "p greav" "r greav"
	return
}
if %armortype == plate then {
	gosub armor.wear brig Brigandine.LearningRate "s greav" "p greav"
	return
}
if %armortype == brig then {
	gosub armor.wear chain Chain_Armor.LearningRate "r greav" "s greav"
	return
}
return

armor.wear:
var armortype $1
var armorexp $2
var armorverb $3
var prevarmorverb $4

evalmath armorstop $%armorexp + %armorstoptime
if %armorstop >= 33 then {
var armorstop 33
}
gosub roundtime
send ret;ret
gosub roundtime
send hold %prevarmorverb
gosub roundtime
pause
send stow my greav
gosub roundtime
pause
send get %armorverb
gosub roundtime
send wear %armorverb
gosub roundtime
return

roundtime:
pause $roundtime
pause .5
return