new quests to advance story

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

game/modules/tome/class/Player.lua

@@ -546,6 +546,7 @@ function _M:useOrbPortal(portal)
 	end
 	game:changeLevel(portal.change_level, portal.change_zone)
 	if portal.message then game.logPlayer(self, portal.message) end
+	if portal.on_use then portal:on_use(self) end
 end
 
 --- Tell us when we are targetted

game/modules/tome/data/chats/gates-of-morning-main.lua

+-- ToME - Tales of Middle-Earth
+-- Copyright (C) 2009, 2010 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
+
+newChat{ id="welcome",
+	text = [[Thanks for your help. What may I do for you?]],
+	answers = {
+		{"Tell me more about the Gates of Morning.", jump="explain-gates"},
+		{"I need help to hunt for clue about the staff.", jump="clues"},
+		{"Sorry I have to go!"},
+	}
+}
+
+newChat{ id="explain-gates",
+	text = [[There are two main group of people here, humans and elves.
+Humans came here in the second age, our ancestors were part of an expedition from Numenor to explore the world. Their ship was torn apart and the survivors landed on this continent.
+They came across a group of elves fighting against the orc pride and helped them.
+The elves invited them to stay with them in the Gates of Morning, in the Sunwall mountains.
+The name comes from the earliest days of the world when the world was flat and the Sun came out of a gigantic cavern in the Sunwall.]],
+	answers = {
+		{"Thanks my lady.", jump="welcome"},
+	},
+}
+
+newChat{ id="clues",
+	text = [[I much as I would like to help our forces are already spread too thin, we can not provide you direct power.
+But I might be able to help you by explaining how the Pride is organised, we could help each others.
+Recently we have heard the pride speaking about a new master, or masters. They might be the ones behind the staff mystery of yours.
+We suppose their main place of power is the High Peek in the center of the continent but it is innaccessible and covered by some kind of shield.
+You must investigate the bastions of the Pride, maybe you will find more information about the High Peek, and any orcs you kill is one less that will attack us.
+The known bastions of the Pride are:
+- Rak'shor Pride, in the south west of the High Peek
+- Gorbat Pride, in the southern desert
+- Vor Pride, in the north east
+- Grushnak Pride, which we could never locate, we only heard evasive rumours about it
+- A group of corrupted humans live in Eastport on the southen costline, they have contact wit the Pride]],
+	answers = {
+		{"I will investigate them.", jump="welcome", action=function(npc, player)
+			player:setQuestStatus("orc-hunt", engine.Quest.DONE)
+			player:grantQuest("orc-pride")
+		end},
+	},
+}
+
+return "welcome"

game/modules/tome/data/chats/gates-of-morning-welcome.lua

@@ -64,7 +64,8 @@ You may now enter the Gates of Morning.]],
 	answers = {
 		{"Thank you my Lady.", action=function(npc, player)
 			player:setQuestStatus("spydric-infestation", engine.Quest.DONE)
-			game.level:removeEntity(npc)
+			npc:move(47, 27, true)
+			npc.can_talk = "gates-of-morning-main"
 			game:setAllowedBuild("divine")
 			game:setAllowedBuild("divine_sun_paladin", true)
 		end},

game/modules/tome/data/quests/orc-pride.lua

+-- ToME - Tales of Middle-Earth
+-- Copyright (C) 2009, 2010 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
+
+name = "The many Prides of the Orcs"
+desc = function(self, who)
+	local desc = {}
+	desc[#desc+1] = "The known bastions of the Pride are:"
+	desc[#desc+1] = "- Rak'shor Pride, in the south west of the High Peek"
+	desc[#desc+1] = "- Gorbat Pride, in the southern desert"
+	desc[#desc+1] = "- Vor Pride, in the north east"
+	desc[#desc+1] = "- Grushnak Pride, which we could never locate, we only heard evasive rumours about it"
+	desc[#desc+1] = "- A group of corrupted humans live in Eastport on the southen costline, they have contact wit the Pride"
+	return table.concat(desc, "\n")
+end
+
+--[[
+on_grant = function(self, who)
+	-- Reveal moria entrance
+	local g = mod.class.Grid.new{
+		show_tooltip=true,
+		name="A gate into the mines of Moria",
+		display='>', color=colors.UMBER,
+		notice = true,
+		change_level=1, change_zone="moria"
+	}
+	g:resolve() g:resolve(nil, true)
+	game.zone:addEntity(game.memory_levels["wilderness-1"], g, "terrain", 44, 28)
+	game.logPlayer(game.player, "The elder points the mines on your map, to the north on the western side of the misty mountains.")
+end
+]]

game/modules/tome/data/zones/ardhungol/npcs.lua

@@ -56,5 +56,6 @@ newEntity{ define_as = "UNGOLE", base = "BASE_NPC_SPIDER",
 
 	on_die = function(self, who)
 		game.player:resolveSource():setQuestStatus("spydric-infestation", engine.Quest.COMPLETED)
+		game.player.gates_of_morning_access = true
 	end,
 }

game/modules/tome/data/zones/infinite-dungeon/npcs.lua

@@ -21,6 +21,8 @@ load("/data/general/npcs/ant.lua")
 load("/data/general/npcs/bear.lua")
 load("/data/general/npcs/canine.lua")
 load("/data/general/npcs/cold-drake.lua")
+load("/data/general/npcs/fire-drake.lua")
+load("/data/general/npcs/faeros.lua")
 load("/data/general/npcs/ghoul.lua")
 load("/data/general/npcs/jelly.lua")
 load("/data/general/npcs/minotaur.lua")

game/modules/tome/data/zones/moria/grids.lua

@@ -36,5 +36,8 @@ This one seems to go to the Far East, a continent of Arda of which only rumours
 			x = 9, y = 5,
 		},
 		message = "#VIOLET#You enter the swirling portal and in the blink of an eye you set foot on an unfamiliar land, with no trace of the portal...",
+		on_use = function(self, who)
+			who:setQuestStatus("wild-wild-east", engine.Quest.DONE)
+		end,
 	},
 }

game/modules/tome/data/zones/town-gates-of-morning/npcs.lua

@@ -32,7 +32,7 @@ newEntity{ define_as = "HIGH_SUN_PALADIN_AERYN",
 	rank = 4,
 	size_category = 3,
 	female = true,
-	max_life = 250, life_rating = 14, fixed_rating = true,
+	max_life = 250, life_rating = 24, fixed_rating = true,
 	infravision = 20,
 	stats = { str=15, dex=10, cun=12, mag=16, con=14 },
 

game/modules/tome/load.lua

@@ -79,12 +79,12 @@ ActorResource:defineResource("Positive", "positive", ActorTalents.T_POSITIVE_POO
 ActorResource:defineResource("Negative", "negative", ActorTalents.T_NEGATIVE_POOL, "negative_regen", "Negative energy represents your reserve of negative power. It slowly decreases.")
 
 -- Actor stats
-ActorStats:defineStat("Strength",	"str", 10, 1, {100, no_max=true}, "Strength defines your character's ability to apply physical force. It increases your melee damage, damage done with heavy weapons, your chance to resist physical effects, and carrying capacity.")
-ActorStats:defineStat("Dexterity",	"dex", 10, 1, {100, no_max=true}, "Dexterity defines your character's ability to be agile and alert. It increases your chance to hit, your ability to avoid attacks, and your damage with light weapons.")
-ActorStats:defineStat("Magic",		"mag", 10, 1, {100, no_max=true}, "Magic defines your character's ability to manipulate the magic of the world. It increases your spell power, and the effect of spells and other magic items.")
-ActorStats:defineStat("Willpower",	"wil", 10, 1, {100, no_max=true}, "Willpower defines your character's ability to concentrate. It increases your mana and stamina capacity, and your chance to resist mental attacks.")
-ActorStats:defineStat("Cunning",	"cun", 10, 1, {100, no_max=true}, "Cunning defines your character's ability to learn, think, and react. It allows you to learn many wordly abilities, increases your mental resistance, armor penetration, and critical chance.")
-ActorStats:defineStat("Constitution",	"con", 10, 1, {100, no_max=true}, "Constitution defines your character's ability to withstand and resist damage. It increases your maximum life and physical resistance.")
+ActorStats:defineStat("Strength",	"str", 10, 1, 80, "Strength defines your character's ability to apply physical force. It increases your melee damage, damage done with heavy weapons, your chance to resist physical effects, and carrying capacity.")
+ActorStats:defineStat("Dexterity",	"dex", 10, 1, 80, "Dexterity defines your character's ability to be agile and alert. It increases your chance to hit, your ability to avoid attacks, and your damage with light weapons.")
+ActorStats:defineStat("Magic",		"mag", 10, 1, 80, "Magic defines your character's ability to manipulate the magic of the world. It increases your spell power, and the effect of spells and other magic items.")
+ActorStats:defineStat("Willpower",	"wil", 10, 1, 80, "Willpower defines your character's ability to concentrate. It increases your mana and stamina capacity, and your chance to resist mental attacks.")
+ActorStats:defineStat("Cunning",	"cun", 10, 1, 80, "Cunning defines your character's ability to learn, think, and react. It allows you to learn many wordly abilities, increases your mental resistance, armor penetration, and critical chance.")
+ActorStats:defineStat("Constitution",	"con", 10, 1, 80, "Constitution defines your character's ability to withstand and resist damage. It increases your maximum life and physical resistance.")
 -- Luck is hidden and starts at half max value (50) which is considered the standard
 ActorStats:defineStat("Luck",		"lck", 50, 1, 100, "Luck defines your character's chance when dealing with unknown events. It increases your critical strike chance, your chance of random encounters, ...")