// Macro file by Drablak 
// Write to thoom@me.com for comments or information regarding this file
// This file is intended to be put alongside the main character file
// Put the following line (removing the '//') into your main char file
// include "ranks"

// +=======================+
// +     Ranks macros 
// +=======================+

/* 
	Global Help System (GHS) insert
	This section is part of the global help system. It must include a unique index and a
	name corresponding to the function call that displays the help items
*/

setglobal gh_call[5] "ranks"

ranks
{
	message "* ======================"
	message "*  Ranks macros"
	message "*  file: ranks"
	message "* ======================"
	message " "
	message "'/ranks': list training"
	message "'/r': add a rank in current trainer"
	message "'/pr': add a pet rank"
	message "'/trainer': turn trainers' messages parsing on/off'"
	message "'/ltm': list trainers' messages'"
	message "-- special blades --"
	message "'/bm': list special blades' messages'"
	message "'/lswm': list special blades' messages'"
}
/* END of GHS */

"/ranks" call list_training
"/r" call add_rank
"/pr" call add_pet_rank

setglobal current_training_ranks 0
// setglobal current_trainer ""

set_current_trainer
{
	if @text != ""
		setglobal current_trainer @text
	end if
}

list_training
{
	set index num_of_trainer
	set total 0
	message " "
	label list_next_rank
		message "-" trainer[index] " : " ranks[index] "."
		set total + ranks[index]
		set index - 1
		if index > 0
			goto list_next_rank
		end if
	message "Total = " total " in " num_of_trainer " trainers."
	message
	message "Training goal: " training_message "."
	message
	if char_is_healer == true
		message "Pet name is: " pet_name "."
		message "Pet current ranks = " current_pet_ranks "."
		message
	end if
}

add_rank
{
	if @text == ""
		setglobal current_training_ranks + 1
		call display_gained_ranks
	else if @text == "-"
		setglobal current_training_ranks - 1
		call display_gained_ranks
	else if @text == "?"
		call display_gained_ranks
	else
		setglobal current_trainer @text
		call display_gained_ranks
	end if
}

display_gained_ranks
{
	if current_trainer != ""
		message "-> " trainer[current_trainer_digit]  " += " current_training_ranks "."
		set to_discard ranks[current_trainer_digit]
		set to_discard + current_training_ranks
		message "New ranks total = " to_discard "."
		set to_training_goal current_rank_goal
		set to_training_goal - to_discard
		message "" to_training_goal " to go for goal of " current_rank_goal "."
		if to_training_goal <= 5
			message ""
			message "WARNING: within 5 ranks of training goal!"
			message ""
			message "Goal: " training_message "."
			message ""
		end if
	else
		message "Gained ranks this session : " current_training_ranks "."
	end if
	if pet_name != ""
		message ""
		message "Pet current ranks (" pet_name ") = " current_pet_ranks "."
	end if
}

// pets

add_pet_rank
{
	if @text == ""
		setglobal current_pet_ranks + 1
	else if @text == "-"
		setglobal current_pet_ranks - 1
	end if
	message "Pet current ranks = " current_pet_ranks "."
}


"/trainer" call do_trainer_messages

do_trainer_messages
{
	if do_trainer_check == false
		setglobal do_trainer_check true
		message
		message "- Turning trainer message macro *ON"
		message
		call check_for_trainer_messages
	else
		setglobal do_trainer_check false
		message
		message "- Turning trainer message macro *OFF"
		message
	end if
}

check_for_trainer_messages
{
	label looptrainerscript

	setglobal trainerphrase @env.textLog

	if trainerphrase.word[3] == "says,"
		 setglobal trainer trainerphrase.word[2]
		 call WhichPhrase
	else if trainerphrase.word[4] == "says,"
		 setglobal trainer trainerphrase.word[2]
		 setglobal trainer + " "
		 setglobal trainer + trainerphrase.word[3]
		 call WhichPhrase
	else if trainerphrase.word[1] == "says,"
		 setglobal trainer trainerphrase.word[0]
		 call WhichPhrase
	else if trainerphrase.word[2] == "says,"
		 setglobal trainer trainerphrase.word[0]
		 setglobal trainer + " "
		 setglobal trainer + trainerphrase.word[1]
		 call WhichPhrase
	end if
	pause 1
	if do_trainer_check == true
		goto looptrainerscript
	end if
}

"/bm" call blade_messages
"/lswm" call blade_messages
"/sword" call blade_messages

blade_messages
{
message ""
message "* Special Blade messages"
message "You feel you have much to learn: 0-9"
message "You feel tolerably skilled: 10-19"
message "Your persistence is paying off: 20-29"
message "You are progressing well: 30-39"
message "You are becoming proficient: 40-49"
message "You have learned much: 50-99"
message "You have become skilled: 100-149"
message "You have become very skilled: 150-199"
message "Learning more is a challenge: 200-249"
message "You have attained great skill: 250-299"
message "You are becoming an expert: 300-349"
message "You have attained tremendous skill: 350-399"
message "You are close to attaining mastery: 400-449"
message "You may be proud of your accomplishment: 450-499"
message "You are becoming a master of your art: 500-549"
message "Your dedication is commendable: 550-599"
message "You show great devotion to your studies: 600-649"
message "You are a credit to your craft: 650-699"
message "Few indeed are your peers: 700-749"
message "Your devotion to your craft is exemplary: 750-799"
message "Your expertise is unquestionable: 800-899"
message "You are truly a grand master: 900-999"
message "Few if any are your equal 1000-1249"
message "Your persistence is an example to us all 1250-1499"
message "Your skill astounds me: 1500-1749"
message "You have progressed further than most: 1750-1999"
message "You are nearly peerless: 2000-2249"
message "You are a model of dedication: 2250-2499"
message ""
}

WhichPhrase
{
if trainerphrase < "You have much to learn."
message "*" trainer ": 0-9."
else if trainerphrase < "It is good to see you."
message "*" trainer ": 10-19."
else if trainerphrase < "Your persistence is paying off."
message "*" trainer ": 20-29."
else if trainerphrase < "You are progressing well."
message "*" trainer ": 30-39."
else if trainerphrase < "You are a good pupil of mine."
message "*" trainer ": 40-49."
else if trainerphrase < "You are one of my better pupils."
message "*" trainer ": 50-99."
else if trainerphrase < "You keep me on my toes."
message "*" trainer ": 100-149."
else if trainerphrase < "It is hard to find more to teach you."
message "*" trainer ": 150-199."
else if trainerphrase < "Teaching you is a challenge."
message "*" trainer ": 200-249."
else if trainerphrase < "There is not much more I can teach you."
message "*" trainer ": 250-299."
else if trainerphrase < "Teaching you has taught me much."
message "*" trainer ": 300-349."
else if trainerphrase < "You have attained tremendous skill."
message "*" trainer ": 350-399."
else if trainerphrase < "We are nearly equals."
message "*" trainer ": 400-449."
else if trainerphrase < "You may be proud of your accomplishment."
message "*" trainer ": 450-499."
else if trainerphrase < "You are becoming a master of our art."
message "*" trainer ": 500-549."
else if trainerphrase < "Your dedication is commendable."
message "*" trainer ": 550-599."
else if trainerphrase < "You show great devotion to your studies."
message "*" trainer ": 600-649."
else if trainerphrase < "You are a credit to our craft."
message "*" trainer ": 650-699."
else if trainerphrase < "Few indeed are your peers."
message "*" trainer ": 700-749."
else if trainerphrase < "Your devotion to the craft is exemplary."
message "*" trainer ": 750-799."
else if trainerphrase < "It is always good to greet a respected colleague."
message "*" trainer ": 800-899."
else if trainerphrase < "You are truly a grand master."
message "*" trainer ": 900-999."
else if trainerphrase < "Let us search for more we might learn together."
message "*" trainer ": 1000-1199."
else if trainerphrase < "Your persistence is an example to us all."
message "*" trainer ": 1250-1499.\r"
else if trainerphrase < "Your skill astounds me."
message "*" trainer ": 1500-1749.\r"
else if trainerphrase < "You have progressed further than most."
message "*" trainer ": 1750-1999.\r"
else if trainerphrase < "You are nearly peerless."
message "*" trainer ": 2000-2249.\r"
else if trainerphrase < "You are a model of dedication."
message "*" trainer ": 2250-2499.\r"
else if trainerphrase < "You have achieved mastery."
message "*" trainer ": 2500-2749\r"
else if trainerphrase < "You are enlightened."
message "*" trainer ": 2750-2999\r"
else if trainerphrase < "Your command of our craft is inspiring."
message "*" trainer ": 3000-3249\r"
else if trainerphrase < "All commend your dedication to our craft."
message "*" trainer ": 3250-3499\r"
else if trainerphrase < "I marvel at your skill."
message "*" trainer ": 3500-3999\r"
else if trainerphrase < "Few stones are unturned in your path."
message "*" trainer ": 4000-4249\r"
else if trainerphrase < "Your footsteps guide the dedicated."
message "*" trainer ": 4250-4499\r"
else if trainerphrase < "You chart a way through the unknown."
message "*" trainer ": 4500-4749\r"
else if trainerphrase < "There is nothing I can teach you."
message "*" trainer ": Maxed training (or 4750)!\r"
end if
}

/* LIST TRAINERS' MESSAGES */
"/ltm"
{
		message "+++++++Trainers' messages+++++++"
		message " (use '/bm' for special weapon messages)"
	if @text == ""
		message "0-9 - You have much to learn"
		message "10-19 - It is good to see you"
		message "20-29 - Your persistence is paying off"
		message "30-39 - You are progressing well"
		message "40-49 - You are a good pupil of mine"
		message "50-99 - You are one of my better pupil"
		message "100-149 - You keep me on my toes"
		message "150-199 - It is hard to find more to teach you"
		message "type '/ltm 2' (200-499), '/ltm 3' (500-1199), or '/ltm 4' (2000-3500+) to get the rest"
	else if @text == "2"
		message "200-249 - Teaching you is a challenge"
		message "250-299 - There is not much more I can teach you"
		message "300-349 - Teaching you has taught me much"
		message "350-399 - You have attained tremendous skill"
		message "400-449 - We are nearly equals"
		message "450-499 - You may be proud of your accomplishment"
	else if @text == "3"	
		message "500-549 - You are becoming a master of our art"
		message "550-599 - (bows) Your dedication is commendable"
		message "600-649 - You show great devotion to your studies"
		message "650-699 - You are a credit to our craft"
		message "700-749 - Few indeed are your peers"
		message "750-799 - (bows deeply) Your devotion to the craft is examplary"
		message "800-899 - It is always good to greet a respected colleague"
		message "900-999 - You are truly a grand master"
		message "1000-1199 - Let us search for more we might learn together"
	else if @text == "4"	
		message "2000-2249 - You are nearly peerless"
		message "2250-2499 - You are a model of dedication"
		message "2500-2749 - You have achieved mastery"
		message "2750-2999 - You are enlightened"
		message "3000-3249 - Your command of our craft is inspiring"
		message "3250-3499 - All commend your dedication to our craft"
		message "3500+     - You are enlightened beyond measure"
	end if
		message "+++++++"
	
	label the_end
}

setglobal lines_of_code + 338