Kassah

CircleCalc:
gosub CCalcInit
gosub CCalc
#return
exit

CCalcInit:
setvariable Log Null
setvariable gosubs 0
#Available options: Null, Log1, Log2, Log3, Log4, Familiar, Thoughts
Action setvariable guild $1 when Guild: (Ranger|Empath|Warrior Mage|Moon Mage|Trader|Cleric|Bard|Barbarian|Thief|Paladin)
action setvariable circle $1 when Circle: (\d+)
#WEAPON RANKS
Action setvariable ParryAbility $1 when Parry Ability: *(\d+) \d
Action setvariable MultiOpponent $1 when Multi Opponent: *(\d+) \d
Action setvariable 1stWeap $1 when ^ *Highest Weapon: (\d+) in
Action setvariable 1stWeapName $1 when ^ *Highest Weapon: \d+ in ([\S ]+)
Action setvariable 2ndWeap $1 when 2nd Highest Weapon: (\d+) in
Action setvariable 2ndWeapName $1 when 2nd Highest Weapon: \d+ in ([\S ]+)
Action setvariable 3rdWeap $1 when 3rd Highest Weapon: (\d+) in
Action setvariable 3rdWeapName $1 when 3rd Highest Weapon: \d+ in ([\S ]+)
#SURVIVAL RANKS
Action setvariable Evasion $1 when Evasion: *(\d+) \d
Action setvariable Climbing $1 when Climbing: *(\d+) \d
Action setvariable Perception $1 when Perception: *(\d+) \d
Action setvariable Scouting $1 when Scouting: *(\d+) \d
Action setvariable Hiding $1 when Hiding: *(\d+) \d
Action setvariable Lockpicking $1 when Lockpicking: *(\d+) \d
Action setvariable DisarmTraps $1 when Disarm Traps: *(\d+) \d
Action setvariable Stalking $1 when Stalking: *(\d+) \d
Action setvariable Stealing $1 when Stealing: *(\d+) \d
Action setvariable FirstAid $1 when First Aid: *(\d+) \d
Action setvariable Foraging $1 when Foraging: *(\d+) \d
Action setvariable Escaping $1 when Escaping: *(\d+) \d
Action setvariable Backstab $1 when Backstab: *(\d+) \d
Action setvariable Skinning $1 when Skinning: *(\d+) \d
Action setvariable Swimming $1 when Swimming: *(\d+) \d
Action setvariable SurvivalAverage $1 when Survival Average: *(\d+)
Action setvariable GenSurv $1 when Survival Average: \d+ *\(Total: *(\d+) in
#ARMOR RANKS
Action setvariable 1stArmor $1 when ^ *Highest Armor: (\d+) in
Action setvariable 1stArmorName $1 when ^ *Highest Armor: \d+ in ([\S ]+)
Action setvariable 2ndArmor $1 when 2nd Highest Armor: (\d+) in
Action setvariable 2ndArmorName $1 when ^ *2nd Highest Armor: \d+ in ([\S ]+)
Action setvariable Shield $1 when Shield Usage: *(\d+) \d
#LORE RANKS
Action setvariable Scholarship $1 when Scholarship: *(\d+) \d
Action setvariable MechanicalLore $1 when Mechanical Lore: *(\d+) \d
Action setvariable MusicalTheory $1 when Musical Theory: *(\d+) \d
Action setvariable Appraisal $1 when Appraisal: *(\d+) \d
Action setvariable Teaching $1 when Teaching: *(\d+) \d
Action setvariable Trading $1 when Trading: *(\d+) \d
Action setvariable AnimalLore $1 when Animal Lore: *(\d+) \d
Action setvariable Percussions $1 when Percussions: *(\d+) \d
Action setvariable Strings $1 when Strings: *(\d+) \d
Action setvariable Winds $1 when Winds: *(\d+) \d
Action setvariable Vocals $1 when Vocals: *(\d+) \d
Action setvariable Empathy $1 when Empathy: *(\d+) \d
Action setvariable Astrology $1 when Astrology: *(\d+) \d
Action setvariable LoreAverage $1 when Lore Average: *(\d+)
Action setvariable GenLore $1 when Lore Average: *\d+ *\(Total: (\d+) in
#MAGIC
Action setvariable PrimaryMagic $1 when Primary Magic: *(\d+) \d
Action setvariable HarnessAbility $1 when Harness Ability: *(\d+) \d
Action setvariable PowerPerceive $1 when Power Perceive: *(\d+) \d
Action setvariable MagicalDevices $1 when Magical Devices: *(\d+) \d
Action setvariable TargetedMagic $1 when Targeted Magic: *(\d+) \d
Action setvariable MagicAverage $1 when Magic Average: *(\d+)
Action setvariable GenMagic $1 when Magic Average: *\d+ *\(Total: (\d+) in
Return

Ccalc:
put info
waitfor Encumbrance:
pause
math circle add 1
action remove circle: (\d+)
if_1 setvariable circle %1
if "%guild" = "Barbarian" then goto Barbarian
if "%guild" = "Bard" then goto Bard
if "%guild" = "Cleric" then goto Cleric
if "%guild" = "Empath" then goto Empath
if "%guild" = "Ranger" then goto Ranger
if "%guild" = "Thief" then goto Thief
if "%guild" = "Trader" then goto Trader
if "%guild" = "Moon Mage" then goto MoonMage
if "%guild" = "Paladin" then goto Paladin
if "%guild" = "Warrior Mage" then goto WarriorMage
echo
echo *****************************
echo I cannot determine your guild
echo *****************************
echo
return


################################################################################################################################
# Barbarian #
#############
Barbarian:
echo
echo *****************************
echo *Barbarian Circle Calculator*
echo *****************************
echo
put exp Weapon
waitfor EXP HELP
put exp Armor
waitfor EXP HELP
put exp lore all
waitfor EXP HELP
put exp survival all
waitfor EXP HELP
setvariable Stealing 0
echo
echo *************************************************************************
echo * Calculating skills, this could take up to 15 seconds.  Please wait... *
echo *************************************************************************
echo
gosub sortsurv
gosub sortlore
goto Barbarian1
# ---
Barbarian1:
#Setting reqs: 1-10
setvariable req1stWeap 4
setvariable req2ndWeap 4
setvariable req3rdWeap 0
setvariable req4thWeap 0
setvariable req5thWeap 0
setvariable reqParryAbility 4
setvariable reqMultiOpponent 2
setvariable req1stArmor 3
setvariable req2ndArmor 0
setvariable req1stLore 0
setvariable req2ndLore 0
setvariable req1stSurv 2
setvariable req2ndSurv 2
setvariable req3rdSurv 2
setvariable req4thSurv 2
setvariable req5thSurv 2
setvariable req6thSurv 2
setvariable req7thSurv 2
setvariable req8thSurv 2
gosub BarbarianSkill 1
If %circle > 10 then goto Barbarian2
goto Barbarian6