hss

#__________ ___       __________    __  ____
#`MMMMMMMMM `MMb     dMM'`MM'`MM    d'  @`MM'
# MM      \  MMM.   ,PMM  MM  MM   d'    MM
# MM         M`Mb   d'MM  MM  MM  d'     MM
# MM    ,    M YM. ,P MM  MM  MM d'      MM
# MMMMMMM    M `Mb d' MM  MM  MMd'       MM
# MM    `    M  YM.P  MM  MM  MMYM.      MM
# MM         M  `Mb'  MM  MM  MM YM.     MM
# MM         M   YP   MM  MM  MM  YM.    MM
# MM      /  M   `'   MM  MM  MM   YM.   MM
#_MMMMMMMMM _M_      _MM__MM__MM_   YM.__MM_
#
#    T  H  E     W  A  N  D  E  R  E  R
#
#-------------------------------------------
#
# ichiro 2012. alectormancy
#
# MUSIC CREDITS
#"Misunderstood Keys", "Raising Dust", "Rigor Mortis" by Ibon Moraza Garcia - NEtbuRNER
#"Lost and Found" by HexaHoney
#"Save Me" by Sage
#"Harmony" by  Andreas Viklund
#

# DECLARATIONS

include, plotscr.hsd
include, project.hsi
include, scancode.hsi

global variable(1,quick status)

# DEBUG FUNCTIONS

script, panic, e = 0, begin
	#string 31 is always the panic string
	switch(e) do(
		case(0) do($31="Unknown error.")
		case(1) do($31="Mandatory argument not used in function call.")
	)
	show string(30)
	show text box(3)	#"Script error."
	wait for text box
end
# MAIN MENU FUNCTIONS

#HP/MP bars are 78 px

#HEIRARCHY
#"quick status"
#	gradient background
#		Big box
#			Hero info (x3)
#				Portrait BG
#				Portrait
#				Level
#				Name
#				HP border
#					HP label
#					HP bar
#				MP border
#					MP label
#					MP bar
#		Short Box
#			map name

script, create quick status, begin
	variable(herobox, temp, i, v)
	quick status := load slice collection(2)
	temp := first child(first child(quick status))
	herobox := first child(temp)

	#set visibility of hero groups
	#loop for number of heros
	for(i, -1, 2) do, begin
		if(hero by slot(i) <> -1) then, begin
			set slice visible(herobox)

			#get information of hero
			#change sprite picture

			temp := first sprite child(herobox)
			replace portrait sprite(temp, plut(hero by slot(i)))

			#change hero lv

			temp := next sibling(temp)
			$1="Lv. "
			append number (1, get hero level(i))
			set slice text (temp, 1)

			#change hero name

			temp := next sibling(temp)
			get hero name(1, i)
			set slice text (temp, 1)

			#calculate HP and MP bars
			#((78*cur)/ max) = X

			temp := next sibling(temp)
			temp := last child(temp)
			v := get hero stat(i,stat:HP,current stat) * 78
			v := v / get hero stat(i,stat:HP,maximum stat)
			set slice width(temp, v)

			temp := parent slice(temp)
			temp := next sibling(temp)
			temp := last child(temp)
			v := get hero stat(i,stat:MP,current stat) * 78
			v := v / get hero stat(i,stat:MP,maximum stat)
			set slice width(temp, v)

			herobox := next sibling(herobox)
		end
		else(set slice visible(herobox,off))
	end

	#get map name and change short box

	#finally set everything to visible


end

script, plut, n = -1, begin
	switch(n) do(
		case(hero:Emiki) do (return(1))
		else(
			panic(1)
			return(0)			#returns the blank
		)
	)
end

plotscript, destroy quick status, begin
	free slice (quick status)
end

# MAP FUNCTIONS

plotscript, Save Anywhere Map OKP, begin

end

plotscript, Save Points Map OKP, begin
	if (key is pressed(key: esc)) then, begin
		create quick status
		if (check tag(tag:Save Point On)) then, begin
			set tag(tag:Save Point On, off)
		end
	end

end