*bug Subroutine scene called without label. Make sure to specify the subroutine to be called by label.
*label trait_check_start
*params value index
*set cslib_ret true
*if index = 7
	*set cslib_ret false
*if (value)
	*set cslib_ret false
*return

*label trait_check_statpage
*params value index
*set cslib_ret true
*if not (value)
	*set cslib_ret false
*return

*label equipment_check
*params value index
*set cslib_ret false
*if value > 0
	*set cslib_ret true
*return

*label inv_check
*params value index
*set cslib_ret false
*if value > 0
	*set cslib_ret true
*return


*label offensive_lowh
*params value index
*set cslib_ret false
*temp string "offensive_${index}_grade"
*if (value != "none") and ({string} = "low_h")
	*set cslib_ret true
*return

*label defensive_lowh
*params value index
*set cslib_ret false
*temp string "defensive_${index}_grade"
*if (value != "none") and ({string} = "low_h")
	*set cslib_ret true
*return

*label movement_lowh
*params value index
*set cslib_ret false
*temp string "movement_${index}_grade"
*if (value != "none") and ({string} = "low_h")
	*set cslib_ret true
*return

*label supportive_lowh
*params value index
*set cslib_ret false
*temp string "supportive_${index}_grade"
*if (value != "none") and ({string} = "low_h")
	*set cslib_ret true
*return

*label offensive_lowh_training
*params value index
*set cslib_ret false
*temp string "offensive_${index}_grade"
*if (value != "none") and ({string} = "low_h")
	*set string "offensive_${index}_learn"
	*if {string} < 100
		*set cslib_ret true
*return

*label defensive_lowh_training
*params value index
*set cslib_ret false
*temp string "defensive_${index}_grade"
*if (value != "none") and ({string} = "low_h")
	*set string "defensive_${index}_learn"
	*if {string} < 100
		*set cslib_ret true
*return

*label movement_lowh_training
*params value index
*set cslib_ret false
*temp string "movement_${index}_grade"
*if (value != "none") and ({string} = "low_h")
	*set string "movement_${index}_learn"
	*if {string} < 100
		*set cslib_ret true
*return

*label supportive_lowh_training
*params value index
*set cslib_ret false
*temp string "supportive_${index}_grade"
*if (value != "none") and ({string} = "low_h")
	*set string "supportive_${index}_learn"
	*if {string} < 100
		*set cslib_ret true
*return

*label characters_check
*params value index
*set cslib_ret false
*temp opinion "characters_${index}_opinion"
*if {opinion} <= 100
	*set cslib_ret true
*return

*label stone_gambling_cheap
*params value index
*set cslib_ret false
*if index > 5
	*set cslib_ret false
	*return
*if value != "sold"
	*gosub_scene cslib_string find bought_stones "|${index}|"
	*if cslib_ret > 0
		*set cslib_ret false
	*else
		*set cslib_ret true
*return

*label stone_gambling_average
*params value index
*set cslib_ret false
*if (index > 10) or (index < 6)
	*set cslib_ret false
	*return
*if value != "sold"
	*gosub_scene cslib_string find bought_stones "|${index}|"
	*if cslib_ret > 0
		*set cslib_ret false
	*else
		*set cslib_ret true
*return

*label stone_gambling_expensive
*params value index
*set cslib_ret false
*if index < 11
	*set cslib_ret false
	*return
*if value != "sold"
	*gosub_scene cslib_string find bought_stones "|${index}|"
	*if cslib_ret > 0
		*set cslib_ret false
	*else
		*set cslib_ret true
*return

*label stone_gambling_all
*params value index
*set cslib_ret false
*if (value != "sold") and (value != "none")
	*gosub_scene cslib_string find bought_stones "|${index}|"
	*if cslib_ret > 0
		*set cslib_ret true
	*else
		*set cslib_ret false
*return

*label fight_option_check
*params value index
*temp string "fight_option_${index}"
*set cslib_ret false
*if value != "none"
	*set cslib_ret true

*return


*label get_grade_int
*params value return_var
*if value = "low"
	*set {return_var} 1
*elsif value = "middle"
	*set {return_var} 2
*elseif value = "late"
	*set {return_var} 4
*elseif value = "top"
	*set {return_var} 8
*elseif value = "transcendent"
	*set {return_var} 16
*return

*label poison_check
*params value index
*set cslib_ret false
*temp allowed_ids "3|"
*if inv[index] > 0
	*gosub_scene cslib_string find allowed_ids "${index}|"
	*if cslib_ret > 0
		*set cslib_ret true
	*else
		*set cslib_ret false
*return