personality script

{
	if ( $get_token($get_quest_data(ent_me,personality),0) == 0 ) //gets the token from the quest personality should return 0 if not assgined
{
	quest set ent_me personality "50;50;50;50"
}
}

{ gain_greed

	local Personality $get_quest_data(ent_me,personality)
	local Greed $get_token(personality,0)
	local Altruism $get_token(personality,1)
	capvar Greed 1 99	//is here to prevent overflow since i dont know what happens if i go below 0, also its a convinient limit
	capvar Altruism 1 99

	if Greed < 99
{
	add Greed PARAM1
	subtract Altruism PARAM1

	token.set personality 0 Greed
	token.set personality 1 Altruism
}
	else
{
	//do nothing
}
}

{ gain_altruism

	local Personality $get_quest_data(ent_me,personality)
	local Greed $get_token(personality,0)
	local Altruism $get_token(personality,1)
	capvar Greed 1 99
	capvar Altruism 1 99

	if Altruism < 99
{
	add Altruism PARAM1
	subtract Greed PARAM1

	token.set personality 0 Greed
	token.set personality 1 Altruism
}
	else
{
	//do nothing
}
}

{ gain_piety

	local Personality $get_quest_data(ent_me,personality)
	local Piety $get_token(personality,2)
	local Pride $get_token(personality,3)
	capvar Pride 1 99
	capvar Piety 1 99

	if Piety < 99
{
	add Piety PARAM1
	subtract Pride PARAM1

	token.set personality 2 Piety
	token.set personality 3 Pride
}
	else
{
	//do nothing
}
}

{ gain_pride

	local Personality $get_quest_data(ent_me,personality)
	local Piety $get_token(personality,2)
	local Pride $get_token(personality,3)
	capvar Pride 1 99
	capvar Piety 1 99

	if Pride < 99
{
	add Pride PARAM1
	subtract Piety PARAM1

	token.set personality 2 Piety
	token.set personality 3 Pride
}
	else
{
	//do nothing
}
}