New lore to Kor'Pul

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

game/modules/tome/data/lore/kor-pul.lua

+-- ToME - Tales of Maj'Eyal
+-- 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
+
+--------------------------------------------------------------------------
+-- Ruins of Kor'Pul
+--------------------------------------------------------------------------
+
+newLore{
+	id = "kor-pul-note-1",
+	category = "kor'pul",
+	name = "journal page (kor'pul)",
+	lore = [[Damn that Zemekkys! Damn his insane experiments!! Why in the blackest night did I ever agree to take part in them?!
+
+Oh yeah, because I was broke. Bah...
+
+I think I might have considered things differently had I known I'd be transported without my clothes though! Imagine my embarrassment turning up in a foreign land, with my... my unmentionables on display... Thankfully I managed to borrow a robe from a friendly farmer, and did some work for him to earn gold enough for a bit of food, a journal, and a rusty old sword. When I heard there were ruins filled with undead nearby I knew my calling had come! So here I am, mighty Sun Paladin Telthar, to prove my strength in these foreign lands of the west!
+
+But all I've found so far is rats. I hate rats...]],
+}
+
+newLore{
+	id = "kor-pul-note-2",
+	category = "kor'pul",
+	name = "journal page (kor'pul)",
+	lore = [[Aha, I have found the accursed undead that plague this nefarious dungeon! The skeletal fool was thankfully no match for me! I suppose it helped that he had no arms...
+
+I've found myself an old shield that in spite of a few dents seems serviceable enough. Some of these rats are BIG, and giving them a strong bash with the shield helps to stop their poisonous bites before I get my sword to their necks. I also found a few gems - I may have to hunt round for more. Not out of any personal greed of course, but my noble quest requires that I gather resources to defeat the great evils in this land and back home!
+
+Diamonds are my favourite, so sparkly.]],
+}
+
+newLore{
+	id = "kor-pul-note-3",
+	category = "kor'pul",
+	name = "journal page (kor'pul)",
+	lore = [[This place is infested! I've found a lot of skeletons now, and unfortunately most of them have borne a full set of limbs. However my holy quest cannot to be denied! Plus I got a really great sword off one of the blighters, I can chop anything up easily now!
+
+The skeletal mages have been a night-born nuisance, but I've found a new weapon to use against them - a phase door rune! As soon as I catch sight of one of the robed wretches I activate my rune and foom, I'm away!
+
+It's not fleeing, it's just tactical repositioning...
+]],
+}
+
+newLore{
+	id = "kor-pul-note-4",
+	category = "kor'pul",
+	name = "journal page (kor'pul)",
+	lore = [[Kor'Pul, Kor'Pul... When the farmer told me what this place was called it reminded me of something, and I think it's coming back to me now. My mother used to tell me a story about our ancestors, how they fled by ship to escape the grasp of an evil sorcerer who dominated the lands. The sorcerer was a vile necromancer who took advantage of the destruction from the Spellblaze and the Cataclysm to create huge armies of undead. The people fought against him time and time again, but though he would be defeated he would still come back, sometimes after hundreds of years. And that sorcerer's name was.... Kor'Pul.
+
+Probably just a coincidence.]],
+}
+
+newLore{
+	id = "kor-pul-note-5",
+	category = "kor'pul",
+	name = "journal page (kor'pul)",
+	lore = [[It's quiet down hear. And dark... very dark. I suppose I should have brought a lantern. Our motto is to bring light into dark places, but I guess I should have thought about that in practical terms. I've cleared out pretty much all of this area, and there's not much left to explore beyond this last room.
+
+This adventuring stuff is quite lonely, I must say. I guess keeping this journal helps a bit. I miss home a lot now. I miss... I miss Falia. Maybe I should have said something to her about how I feel... but I guess running away on an adventure seemed easier. Pah, how brave of me...
+
+I'm not cut out for this paladin work. Here I am, alone in a horrible dark dungeon in an unknown land, without a single sound to keep me company beyond the scratchings of my own quill. Hmm, except for--]],
+}

game/modules/tome/data/lore/lore.lua

@@ -19,6 +19,7 @@
 
 load("/data/lore/trollmire.lua")
 load("/data/lore/scintillating-caves.lua")
+load("/data/lore/kor-pul.lua")
 load("/data/lore/maze.lua")
 load("/data/lore/daikara.lua")
 load("/data/lore/old-forest.lua")

game/modules/tome/data/maps/zones/ruins-kor-pul-last.lua

@@ -20,6 +20,7 @@
 defineTile('.', "FLOOR")
 defineTile('#', "WALL")
 defineTile('+', "DOOR")
+defineTile('n', "FLOOR", "NOTE5")
 defineTile('s', "FLOOR", nil, "SHADE")
 
 subGenerator{
@@ -86,7 +87,7 @@ return {
 [[                                                  ]],
 [[                                                  ]],
 [[#########################+########################]],
-[[##..............#...#........#...#..............##]],
+[[##..............#...#...n....#...#..............##]],
 [[#.............#...#...#....#...#...#.............#]],
 [[#.........##############################.........#]],
 [[#................................................#]],

game/modules/tome/data/zones/ruins-kor-pul/objects.lua

@@ -18,3 +18,14 @@
 -- darkgod@te4.org
 
 load("/data/general/objects/objects.lua")
+
+for i = 1, 5 do
+newEntity{ base = "BASE_LORE",
+	define_as = "NOTE"..i,
+	name = "journal page", lore="kor-pul-note-"..i,
+	desc = [[A journal page, left by an adventurer.]],
+	rarity = false,
+	is_magic_device = false,
+	encumberance = 0,
+}
+end

game/modules/tome/data/zones/ruins-kor-pul/zone.lua

@@ -72,4 +72,9 @@ return {
 			}, },
 		},
 	},
+
+	post_process = function(level)
+		-- Place a lore note on each level
+		if level.level <= 4 then game:placeRandomLoreObject("NOTE"..level.level) end
+	end,
 }