not finished obviously

git-svn-id: http://svn.net-core.org/repos/t-engine4@5649 51575b47-30f0-44d4-a5cc-537603b46e54

game/modules/tome/data/birth/races/human.lua

@@ -91,6 +91,9 @@ newBirthDescriptor
 		starting_quest = "start-allied",
 		starting_intro = "higher",
 	},
+	cosmetic_unlock = {
+		cosmetic_race_human_redhead = {name="Redhead", on_actor=function(actor) actor.moddable_tile_base = "base_redhead_01.png" end},
+	},
 }
 
 newBirthDescriptor
@@ -118,4 +121,7 @@ newBirthDescriptor
 		starting_quest = "start-allied",
 		starting_intro = "cornac",
 	},
+	cosmetic_unlock = {
+		cosmetic_race_human_redhead = {name="Redhead", on_actor=function(actor) actor.moddable_tile_base = "base_redhead_01.png" end},
+	},
 }

game/modules/tome/data/general/objects/quest-artifacts.lua

@@ -22,7 +22,7 @@ local Stats = require "engine.interface.ActorStats"
 -- The staff of absorption, the reason the game exists!
 newEntity{ define_as = "STAFF_ABSORPTION",
 	power_source = {unknown=true},
-	unique = true, quest=true,
+	unique = true, quest=true, no_curses=true,
 	slot = "MAINHAND",
 	slot_forbid = "OFFHAND",
 	type = "weapon", subtype="staff",

game/modules/tome/data/quests/kryl-feijan-escape.lua

@@ -33,3 +33,11 @@ desc = function(self, who)
 	end
 	return table.concat(desc, "\n")
 end
+
+on_status_change = function(self, who, status, sub)
+	if not sub then
+		if self:isStatus(engine.Quest.DONE) then
+			game:setAllowedBuild("cosmetic_race_human_redhead", true)
+		end
+	end
+end

game/modules/tome/data/texts/unlock-cosmetic_race_human_redhead.lua

+-- ToME - Tales of Maj'Eyal
+-- Copyright (C) 2009, 2010, 2011, 2012 Nicolas Casalini
+--
+-- This program is free software: you can redistribute it and/or modify
+-- it under the terms of the GNU General Public License as published by
+-- the Free Software Foundation, either version 3 of the License, or
+-- (at your option) any later version.
+--
+-- This program is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of
+-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+-- GNU General Public License for more details.
+--
+-- You should have received a copy of the GNU General Public License
+-- along with this program.  If not, see <http://www.gnu.org/licenses/>.
+--
+-- Nicolas Casalini "DarkGod"
+-- darkgod@te4.org
+
+return "New Cosmetic Race Option: #LIGHT_GREEN#Redhead Humans",
+[[You have saved Melinda from untold horrors and torments.
+
+You may now create human characters with red hairs.
+This has no effect on gameplay at all.
+]]