scn LHCLilithShowStatusFunction

;Main Actor Value's
Float CurrHealth
Float MaxHealth
Float CurrMagicka
Float MaxMagicka
Float CurrFatigue
Float MaxFatigue
;Experience Value's
Float sCurEXP
Float sMaxEXP
Float sBonusExp
;Second Actor Value's
Float CurrSTR
Float MaxSTR
Float CurrINT
Float MaxINT
Float CurrWIL
Float MaxWIL
Float CurrAGI
Float MaxAGI
Float CurrSPD
Float MaxSPD
Float CurrEND
Float MaxEND
Float CurrPER
Float MaxPER
Float CurrLCK
Float MaxLCK
;Miscellaneous Actor Value's
Float Crime
Float AgrLvL
Float ConfLvL
Float EnergyLvL
Float RespLvL
;Resurection Value's
Float cResCount
Float mResCount
Float rDiff
;Other Variables (For Menu)
String_Var MSG
Ref Me

Begin Function {}
	;Init Current Actor Status
	Let Me := LHCRef
	Let cResCount := LHCRef.cfgResPc
	Let mResCount := LHCRef.sResCount
	Let sCurEXP := LHCQuest.fCurrExp
	Let sMaxEXP := LHCQuest.fEXPToLvLUp
	Let sBonusExp := LHCQuest.fBonusMult
	Let rDiff := cResCount-mResCount
	Let CurrHealth := Me.GetAV Health
	Let CurrMagicka := Me.GetAV Magicka
	Let CurrFatigue := Me.GetAV Fatigue
	Let MaxHealth := Me.GetMaxAV Health
	Let MaxMagicka := Me.GetMaxAV Magicka
	Let MaxFatigue := Me.GetMaxAV Fatigue
	Let CurrSTR := Me.GetAV Strength
	Let CurrINT := Me.GetAV Intelligence
	Let CurrWIL := Me.GetAV Willpower
	Let CurrAGI := Me.GetAV Agility
	Let CurrSPD := Me.GetAV Speed
	Let CurrEND := Me.GetAV Endurance
	Let CurrPER := Me.GetAV Personality
	Let CurrLCK := Me.GetAV Luck
	Let MaxSTR := Me.GetMaxAV Strength
	Let MaxINT := Me.GetMaxAV Intelligence
	Let MaxWIL := Me.GetMaxAV Willpower
	Let MaxAGI := Me.GetMaxAV Agility
	Let MaxSPD := Me.GetMaxAV Speed
	Let MaxEND := Me.GetMaxAV Endurance
	Let MaxPER := Me.GetMaxAV Personality
	Let MaxLCK := Me.GetMaxAV Luck
	Let Crime := Me.GetCrimeGold
	Let AgrLvL := Me.GetAV Aggression
	Let ConfLvL := Me.GetAV confidence
	Let EnergyLvL := Me.GetAV Energy
	Let RespLvL := Me.GetAV Responsibility
	Let CurrHealth := Floor CurrHealth
	Let CurrMagicka := Floor CurrMagicka
	Let CurrFatigue := Floor CurrFatigue
	Let CurrSTR := Floor CurrSTR
	Let CurrINT := Floor CurrINT
	Let CurrWIL := Floor CurrWIL
	Let CurrAGI := Floor CurrAGI
	Let CurrSPD := Floor CurrSPD
	Let CurrEND := Floor CurrEND
	Let CurrPER := Floor CurrPER
	Let CurrLCK := Floor CurrLCK
	Let MaxSTR := Floor MaxSTR
	Let MaxINT := Floor MaxINT
	Let MaxWIL := Floor MaxWIL
	Let MaxAGI := Floor MaxAGI
	Let MaxSPD := Floor MaxSPD
	Let MaxEND := Floor MaxEND
	Let MaxPER := Floor MaxPER
	Let MaxLCK := Floor MaxLCK

	;Create Status Menu
	Let MSG := "Статус персонажа Лилит Мерунес:%r"
	Let MSG += "%r"
	Let MSG += "<Состояние>%r"
	if LHCQuest.bEXPSEnable <= 0
		Let MSG += "Уровень: " + $(Me.GetLevel) + "%r"
	Else
		Let MSG += "Уровень: " + $(Me.GetLevel) + ", опыт: (" + $(sCurEXP) + "/" + $(sMaxEXP) + ")" + "%r"
		Let MSG += "Бонус опыта: x" + $(sBonusExp) + "%r"
	Endif
	Let MSG += "Класс: " + $(Me.GetClass) + "%r"
	;Calc Result Health And Difference
	Let MSG += "Здоровье: " + $(CurrHealth) + "/" + $(MaxHealth) + "%r"
	;Calc Result Magicka And Defference
	Let MSG += "Магия: " + $(CurrMagicka) + "/" + $(MaxMagicka) + "%r"
	;Calc Result Fatigue And Difference
	Let MSG += "Запас сил: " + $(CurrFatigue) + "/" + $(MaxFatigue) + "%r"
	Let MSG += "%r"
	Let MSG += "<Побочные характеристики>%r"
	Let MSG += "Агрессия: " + $(AgrLvL) + "%r"
	Let MSG += "Смелость: " + $(ConfLvL) + "%r"
	Let MSG += "Энергичность: " + $(EnergyLvL) + "%r"
	Let MSG += "Ответственность: " + $(RespLvL) + "%r"
	Let MSG += "Награда за голову: " + $(Crime) + "%r"
	Let MSG += "%r"
	Let MSG += "<Особые характеристики>%r"
	Let MSG += "Лилит может воскресить Вас: " + $(rDiff) + " (Заблокировано)%r"
	Let MSG += "%r"
	Let MSG += "<Основные характеристики>%r"
	Let MSG += "Сила: " + $(CurrSTR) + "/" + $(MaxSTR) + "%r"
	Let MSG += "Интеллект: " + $(CurrINT) + "/" + $(MaxINT) + "%r"
	Let MSG += "Сила Воли: " + $(CurrWIL) + "/" + $(MaxWIL) + "%r"
	Let MSG += "Ловкость: " + $(CurrAGI) + "/" + $(MaxAGI) + "%r"
	Let MSG += "Скорость: " + $(CurrSPD) + "/" + $(MaxSPD) + "%r"
	Let MSG += "Выносливость: " + $(CurrEND) + "/" + $(MaxEND) + "%r"
	Let MSG += "Обаяние: " + $(CurrPER) + "/" + $(MaxPER) + "%r"
	Let MSG += "Удача: " + $(CurrLCK) + "/" + $(MaxLCK)
	MessageBoxEX $MSG
	sv_Destruct MSG
	Return
End