personality script

{ game_menu_getoptions

	setvard QUEST_MODE QUEST_COMPLETE

	if ( QUEST_MODE equals QUEST_COMPLETE )
	{
		local reg.mitem.title BRIBE_MORE
		local reg.mitem.type callback
		local reg.mitem.data 5
		local reg.mitem.callback gain_greed
		menuitem.register
		local reg.mitem.title FORFEIT_REWARD
		local reg.mitem.type callback
		local reg.mitem.data 5
		local reg.mitem.callback gain_altruism
		menuitem.register
		local reg.mitem.title piety
		local reg.mitem.type callback
		local reg.mitem.data 5
		local reg.mitem.callback gain_piety
		menuitem.register
		local reg.mitem.title pride
		local reg.mitem.type callback
		local reg.mitem.data 5
		local reg.mitem.callback gain_pride
		menuitem.register
	}
}

{ get_personality

	setvard DATA_PERSONALITY $get_quest_data(PARAM1,personality)
	if ( $get_token(DATA_PERSONALITY,0) == 0 )
	{
		setvard DATA_PERSONALITY "50;50;50;50"
		quest set PARAM1 personality DATA_PERSONALITY
	}
}

{ gain_greed

	local L_PLAYER_ID_EVENT PARAM1
	callevent get_personality L_PLAYER_ID_EVENT
	local L_GREED $get_token(DATA_PERSONALITY,0)
	local L_ALTRUISM $get_token(DATA_PERSONALITY,1)

	if ( L_GREED < 99 )
	{
		add L_GREED PARAM2
		subtract L_ALTRUISM PARAM2
		capvar L_GREED 1 99
		capvar L_ALTRUISM 1 99

		token.set DATA_PERSONALITY 0 L_GREED
		token.set DATA_PERSONALITY 1 L_ALTRUISM
		quest set L_PLAYER_ID_EVENT personality DATA_PERSONALITY
		playermessage L_PLAYER_ID_EVENT You got more greedy...
	}
}

{ gain_altruism

	local L_PLAYER_ID_EVENT PARAM1
	callevent get_personality L_PLAYER_ID_EVENT
	local L_GREED $get_token(DATA_PERSONALITY,0)
	local L_ALTRUISM $get_token(DATA_PERSONALITY,1)

	if ( L_ALTRUISM < 99 )
	{
		add L_ALTRUISM PARAM2
		subtract L_GREED PARAM2
		capvar L_GREED 1 99
		capvar L_ALTRUISM 1 99

		token.set DATA_PERSONALITY 0 L_GREED
		token.set DATA_PERSONALITY 1 L_ALTRUISM
		quest set L_PLAYER_ID_EVENT personality DATA_PERSONALITY
		playermessage L_PLAYER_ID_EVENT You got more altruistic!
	}
}

{ gain_piety

	local L_PLAYER_ID_EVENT PARAM1
	callevent get_personality L_PLAYER_ID_EVENT
	local L_PIETY $get_token(DATA_PERSONALITY,2)
	local L_PRIDE $get_token(DATA_PERSONALITY,3)

	if ( L_PIETY < 99 )
	{
		add L_PIETY PARAM2
		subtract L_PRIDE PARAM2
		capvar L_PIETY 1 99
		capvar L_PRIDE 1 99

		token.set DATA_PERSONALITY 2 L_PIETY
		token.set DATA_PERSONALITY 3 L_PRIDE
		quest set L_PLAYER_ID_EVENT personality DATA_PERSONALITY
		playermessage L_PLAYER_ID_EVENT Your Piety increased!
	}
}

{ gain_pride

	local L_PLAYER_ID_EVENT PARAM1
	callevent get_personality L_PLAYER_ID_EVENT
	local L_PIETY $get_token(DATA_PERSONALITY,2)
	local L_PRIDE $get_token(DATA_PERSONALITY,3)

	if ( L_PRIDE < 99 )
	{
		add L_PRIDE PARAM2
		subtract L_PIETY PARAM2
		capvar L_PIETY 1 99
		capvar L_PRIDE 1 99

		token.set DATA_PERSONALITY 2 L_PIETY
		token.set DATA_PERSONALITY 3 L_PRIDE
		quest set L_PLAYER_ID_EVENT personality DATA_PERSONALITY
		playermessage L_PLAYER_ID_EVENT Your Pride increased!
	}
}