var verbose 1
debug 0

gosub INIT
gosub ResetVars


#Group 1
	#0	Shield Usage, Light Armor, Chain Armor, Brigandine, Plate Armor, Defending

	var groupName armor skillset
	var group1Skills Shield_Usage|Light_Armor|Chain_Armor|Brigandine|Plate_Armor|Defending|
	gosub TestGroupRate %group1Skills

#group 2
	#20 sec.	Parry Ability, Small Edged, Large Edged, Twohanded Edged

	var groupName edged weapons + parry
	var group2Skills Parry_Ability|Small_Edged|Large_Edged|Twohanded_Edged|
	gosub TestGroupRate %group2Skills


#group 3
	#40 sec.	Small Blunt, Large Blunt, Twohanded Blunt, Slings, Bow, Crossbow

	var groupName blunts and bows
	var group3Skills Small_Blunt|Large_Blunt|Twohanded_Blunt|Slings|Bow|Crossbow|
	gosub TestGroupRate %group3Skills

#group 4
	#60 sec.	Staves, Polearms, Light Thrown, Heavy Thrown, Brawling, Offhand Weapon, Melee Mastery
	var groupName brawling, thrown, assorted weapons
	var group4Skills Staves|Polearms|Light_Thrown|Heavy_Thrown|Brawling|Offhand_Weapon|Melee_Mastery
	gosub TestGroupRate %group4Skills


#group 5
	#80 sec.	Missile Mastery, Primary Magic, Attunement, Arcana, Targeted Magic, Augmentation
	var groupName missile mastery and magic group 1
	var group5Skills Missile_Mastery|Primary_Magic|Attunement|Arcana|Targeted_Magic|Augmentation|
	gosub TestGroupRate %group5Skills

#group 6
	#100 sec.	Debilitation, Utility, Warding, Sorcery, Evasion, Athletics, Perception, Scouting
	var groupName (most) combat survivals and magic set 2
	var group6Skills Debilitation|Utility|Warding|Sorcery|Evasion|Athletics|Perception|Scouting|
	gosub TestGroupRate %group6Skills

#group 7
	#120 sec.	Stealth, Locksmithing, Thievery, First Aid, Outdoorsmanship
	var groupName OOC survivals
	var group7Skills Stealth|Locksmithing|Thievery|First_Aid|Outdoorsmanship|
	gosub TestGroupRate %group7Skills

#group 8
	#140 sec.	Skinning, Backstab
	var groupName Skinning and Backstabbing
	var group8Skills Skinning|Backstab|
	gosub TestGroupRate %group8Skills

#group 9
	#160 sec.	Forging, Engineering, Outfitting, Alchemy, Enchanting, Scholarship, Mechanical Lore, Appraisal, Bardic Lore, Trading
	var groupName Crafting, appraisal, bard/trader
	var group9Skills Forging|Engineering|Outfitting|Alchemy|Enchanting|Scholarship|Mechanical_Lore|Appraisal|Bardic_Lore|Trading|
	gosub TestGroupRate %group9Skills

#group 10
	#180 sec.	Performance, Tactics, Astrology, Empathy, Thanatology, Expertise, Summoning, Theurgy, Conviction
	var groupName Other lores, guild skills
	var group10Skills Performance|Tactics|Astrology|Empathy|Thanatology|Expertise|Summoning|Theurgy|Conviction|
	gosub TestGroupRate %group10Skills

WRAPUP:
	pause .05
	put #echo ----------------------------------------------------------
	put #echo blue ___ Learning %learningGroups of %groupCount pulse groups ___
	put #echo ----------------------------------------------------------
exit

TestGroupRate:
	MATH groupCount ADD 1
	var skills $1
	var i 0
	eval count count("%skills","|")

	splitFunctionLoop:
		if (%count = %i) then goto FinalizeGroup
		var skill %skills(%i)
		if $%skill.LearningRate > 0 then {
			var tmp 1
			var tmpLearning %tmpLearning %skill -
		} else {
			var tmpNotLearning %tmpNotLearning %skill -
		}

		MATH i add 1
		goto splitFunctionLoop
return

INIT:
	put exp
	pause 2
	var groupCount 0
	var learningGroups 0
	var groupTotal 10
return

ResetVars:
	pause .05
	var tmp 0
	var tmpLearning
	var tmpNotLearning
return

FinalizeGroup:
	pause .05
	if %tmp = 1 then {
		MATH learningGroups ADD 1
	}
	if (%verbose = 1 and %tmp = 1) then var outputColor blue
	if (%verbose = 1 and %tmp = 0) then var outputColor white
	if (%verbose = 1 and %groupCount = 1) then put #echo %outputColor ----------------------------------------------------------
	if (%verbose = 1) then {
		eval tmpLearning replace("%tmpLearning", "_", " ")
		eval tmpNotLearning replace("%tmpNotLearning", "_", " ")

		put #echo %outputColor Group: %groupCount (%groupName)
		put #echo %outputColor Learning: %tmpLearning
		put #echo %outputColor Not Learning: %tmpNotLearning
		put #echo ----------------------------------------------------------
	}
	gosub ResetVars
return