Lore randomly found has a different tile than set lore

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

game/modules/tome/data/general/objects/lore/fun.lua

@@ -17,7 +17,7 @@
 -- Nicolas Casalini "DarkGod"
 -- darkgod@te4.org
 
-newEntity{ base = "BASE_LORE",
+newEntity{ base = "BASE_LORE_RANDOM",
 	name = "trollish poem", lore="troll-poem", unique=true,
 	desc = [[A poem written by a... troll?]],
 	level_range = {1, 50},
@@ -25,7 +25,7 @@ newEntity{ base = "BASE_LORE",
 	encumber = 0,
 }
 
-newEntity{ base = "BASE_LORE",
+newEntity{ base = "BASE_LORE_RANDOM",
 	name = "necromancer poem", lore="necromancer-poem", unique=true,
 	desc = [[A poem written by a... Necromancer?]],
 	level_range = {15, 50},
@@ -33,7 +33,7 @@ newEntity{ base = "BASE_LORE",
 	encumber = 0,
 }
 
-newEntity{ base = "BASE_LORE",
+newEntity{ base = "BASE_LORE_RANDOM",
 	name = "rogues do it from behind", lore="rogue-poem", unique=true,
 	desc = [[A poem written for a rogue?]],
 	level_range = {15, 50},
@@ -42,7 +42,7 @@ newEntity{ base = "BASE_LORE",
 }
 
 for i = 1, 4 do
-newEntity{ base = "BASE_LORE",
+newEntity{ base = "BASE_LORE_RANDOM",
 	name = "how to become a necromancer, part "..i, lore="necromancer-primer-"..i, unique=true,
 	desc = [[How to become a powerful Necromancer!]],
 	level_range = {15, 50},
@@ -50,7 +50,7 @@ newEntity{ base = "BASE_LORE",
 }
 end
 
-newEntity{ base = "BASE_LORE",
+newEntity{ base = "BASE_LORE_RANDOM",
 	name = [["Dust to Dust", an undead hunter's guide, by Aslabor Borys]], lore="dust-to-dust", unique=true,
 	desc = [[An undead hunter's guide, by Aslabor Borys]],
 	level_range = {15, 50},
@@ -65,7 +65,7 @@ elseif i == 3 then who = "Rolf" nb = 2
 elseif i == 4 then who = "Weisman" nb = 2
 elseif i == 5 then who = "Weisman" nb = 3
 end
-newEntity{ base = "BASE_LORE",
+newEntity{ base = "BASE_LORE_RANDOM",
 	name = "letter to "..who.."("..nb..")", lore="adventurer-letter-"..i, unique=true,
 	desc = [[A part of the correspondance between two adventurers]],
 	level_range = {1, 20},
@@ -74,7 +74,7 @@ newEntity{ base = "BASE_LORE",
 }
 end
 
-newEntity{ base = "BASE_LORE",
+newEntity{ base = "BASE_LORE_RANDOM",
 	name = "of halfling feet", lore="halfling-feet", unique=true,
 	desc = [[Notes about .. halfling feet ??]],
 	level_range = {10, 30},

game/modules/tome/data/general/objects/lore/maj-eyal.lua

@@ -19,7 +19,7 @@
 
 for i = 3, 10 do
 local l = mod.class.interface.PlayerLore.lore_defs["races-"..i]
-newEntity{ base = "BASE_LORE",
+newEntity{ base = "BASE_LORE_RANDOM",
 	define_as = "RACES_NOTE"..i,
 	subtype = "analysis", unique=true,
 	name = l.name, lore="races-"..i,

game/modules/tome/data/general/objects/lore/misc.lua

@@ -17,14 +17,14 @@
 -- Nicolas Casalini "DarkGod"
 -- darkgod@te4.org
 
-newEntity{ base = "BASE_LORE",
+newEntity{ base = "BASE_LORE_RANDOM",
 	name = "The story of my salvation", lore="zigur-potion", unique=true,
 	desc = [[An old tale about the fear of magic]],
 	level_range = {1, 20},
 	rarity = 40,
 }
 
-newEntity{ base = "BASE_LORE",
+newEntity{ base = "BASE_LORE_RANDOM",
 	name = "memories of Artelia Firstborn", lore="creation-elf", unique=true,
 	desc = [[The memories of the first elf to have awaken]],
 	level_range = {1, 25},
@@ -33,7 +33,7 @@ newEntity{ base = "BASE_LORE",
 	checkFilter = function(e) local p = game.party:findMember{main=true} if p.descriptor.race == "Elf" then return true end return false end,
 }
 
-newEntity{ base = "BASE_LORE",
+newEntity{ base = "BASE_LORE_RANDOM",
 	name = "human myth of creation", lore="creation-human", unique=true,
 	desc = [[Myth of creation of the humans]],
 	level_range = {1, 25},
@@ -42,7 +42,7 @@ newEntity{ base = "BASE_LORE",
 	checkFilter = function(e) local p = game.party:findMember{main=true} if p.descriptor.race == "Human" then return true end return false end,
 }
 
-newEntity{ base = "BASE_LORE",
+newEntity{ base = "BASE_LORE_RANDOM",
 	name = "a logical analysis of creation, by philosopher Smythen", lore="creation-halfling", unique=true,
 	desc = [[Myth of creation of the halflings]],
 	level_range = {1, 25},
@@ -51,7 +51,7 @@ newEntity{ base = "BASE_LORE",
 	checkFilter = function(e) local p = game.party:findMember{main=true} if p.descriptor.race == "Halfling" then return true end return false end,
 }
 
-newEntity{ base = "BASE_LORE",
+newEntity{ base = "BASE_LORE_RANDOM",
 	name = "Tale of the Moonsisters", lore="moons-human", unique=true,
 	desc = [[The creation of Eyal's moons.]],
 	level_range = {1, 35},

game/modules/tome/data/general/objects/lore/spellhunt.lua

@@ -17,7 +17,7 @@
 -- Nicolas Casalini "DarkGod"
 -- darkgod@te4.org
 
-newEntity{ base = "BASE_LORE",
+newEntity{ base = "BASE_LORE_RANDOM",
 	name = "memories of archmage Varil", lore="spellhunt-note-1", unique=true,
 	desc = [[A collection of thoughts and memories of the archmage Varil, during the Age of Dusk]],
 	level_range = {1, 25},
@@ -26,7 +26,7 @@ newEntity{ base = "BASE_LORE",
 	encumber = 0,
 }
 
-newEntity{ base = "BASE_LORE",
+newEntity{ base = "BASE_LORE_RANDOM",
 	name = "Spellhunter's Guide part 1: How to Detect a Spellweaver", lore="spellhunt-note-2", unique=true,
 	desc = [[The definitive guide to hunting magic users.]],
 	level_range = {1, 25},
@@ -34,7 +34,7 @@ newEntity{ base = "BASE_LORE",
 	is_magic_device = false,
 	encumber = 0,
 }
-newEntity{ base = "BASE_LORE",
+newEntity{ base = "BASE_LORE_RANDOM",
 	name = "Spellhunter's Guide part 2: How to Battle a Magic-User", lore="spellhunt-note-3", unique=true,
 	desc = [[The definitive guide to hunting magic users.]],
 	level_range = {1, 25},
@@ -42,7 +42,7 @@ newEntity{ base = "BASE_LORE",
 	is_magic_device = false,
 	encumber = 0,
 }
-newEntity{ base = "BASE_LORE",
+newEntity{ base = "BASE_LORE_RANDOM",
 	name = "Spellhunter's Guide part 3: How to Kill a Magic-User", lore="spellhunt-note-4", unique=true,
 	desc = [[The definitive guide to hunting magic users.]],
 	level_range = {1, 25},

game/modules/tome/data/general/objects/lore/sunwall.lua

@@ -18,7 +18,7 @@
 -- darkgod@te4.org
 
 for i = 1, 4 do
-newEntity{ base = "BASE_LORE",
+newEntity{ base = "BASE_LORE_RANDOM",
 	define_as = "SUNWALL_LORE_NOTE"..i,
 	name = "Loremaster Verutir's note", lore="sunwall-note-"..i, unique="Loremaster Verutir's note "..i,
 	desc = [[A paper scrap containing some lore.]],

game/modules/tome/data/general/objects/scrolls.lua

@@ -110,6 +110,16 @@ newEntity{
 	desc = [[This parchment contains some lore.]],
 }
 
+newEntity{
+	define_as = "BASE_LORE_RANDOM",
+	type = "lore", subtype="lore", not_in_stores=true, no_unique_lore=true,
+	unided_name = "scroll", identified=true,
+	display = "?", color=colors.ANTIQUE_WHITE, image="object/scroll.png",
+	encumber = 0,
+	checkFilter = function(self) if self.lore and game:getPlayer(true).lore_known and game:getPlayer(true).lore_known[self.lore] then print('[LORE] refusing', self.lore) return false else return true end end,
+	desc = [[This parchment contains some lore.]],
+}
+
 -----------------------------------------------------------
 -- Infusions
 -----------------------------------------------------------