fix

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

game/modules/tome/data/lore/age-allure.lua

-f-- ToME - Tales of Maj'Eyal
+-- ToME - Tales of Maj'Eyal
 -- Copyright (C) 2009, 2010 Nicolas Casalini
 --
 -- This program is free software: you can redistribute it and/or modify
@@ -18,7 +18,7 @@ f-- ToME - Tales of Maj'Eyal
 -- darkgod@te4.org
 
 --------------------------------------------------------------------------
--- Temple of Creation
+-- Age of Allure
 --------------------------------------------------------------------------
 
 newLore{
@@ -44,6 +44,7 @@ Testing of live animals has not gone well. Thankfully I can leave the clean-up t
 
 Third test confirms it - the orb allows transition between portal gates. This is the greatest discovery of my life. We are the first research team to ever unlock such powers from a Sher'Tul ruin! Just a shame about all the animals we sent through before. I'm really starting to suspect that pronged instrument was some sort of eating device... Oh well, plenty more test animals available.
 ]]
+}
 
 newLore{
 	id = "halfling-research-note-2",
@@ -77,6 +78,7 @@ Test subject N: Survived first transition, but in coma. Died after 4 days.
 
 We're really getting somewhere here... Just a shame humans are such messy creatures! Honestly, how much intestines do they need?! Will start on the next set of subjects early in the new year.
 ]]
+}
 
 newLore{
 	id = "halfling-research-note-3",
@@ -107,6 +109,7 @@ Test subject Z: Survived both transitions. Remarkable!
 
 Subject Z currently raving, but I believe this is due to stressful conditions, not a direct corrosion of mental faculties from the portal use. Will have to study further.
 ]]
+}
 
 newLore{
 	id = "halfling-research-note-4",
@@ -131,5 +134,5 @@ Beginning to suspect subject Z has latent magical powers. Have seen him move muc
 Subject Z has vanished! This is terrible! It was not even during a portal transit. It looked like he simply stepped into his own shadow and disappeared. My research is ruined!! There will never be another subject like him!
 
 The military are annoying me to no end. I told them to find me more test subjects immediately, but they gave some excuses about enemy patrols in the area. Do they think I care about such trivial things?! And now I hear them practising their fighting in the corridors. They are even grunting and screaming in fake battle noises like stupid children. Do they not realise what an important facility this is? Can they not understand how my genius is disturbed by---
-]],
+]]
 }

game/modules/tome/dialogs/debug/CreateItem.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
+
+require "engine.class"
+local Dialog = require "engine.ui.Dialog"
+local List = require "engine.ui.List"
+local GetQuantity = require "engine.dialogs.GetQuantity"
+
+module(..., package.seeall, class.inherit(Dialog))
+
+function _M:init()
+	self:generateList()
+	Dialog.init(self, "Create Object", 1, 1)
+
+	local list = List.new{width=400, height=500, list=self.list, fct=function(item) self:use(item) end}
+
+	self:loadUI{
+		{left=0, top=0, ui=list},
+	}
+	self:setupUI(true, true)
+
+	self.key:addCommands{ __TEXTINPUT = function(c)
+		for i = list.sel + 1, #self.list do
+			local v = self.list[i]
+			if v.name:sub(1, 1):lower() == c:lower() then list:select(i) return end
+		end
+		for i = 1, list.sel do
+			local v = self.list[i]
+			if v.name:sub(1, 1):lower() == c:lower() then list:select(i) return end
+		end
+	end}
+	self.key:addBinds{ EXIT = function() game:unregisterDialog(self) end, }
+end
+
+function _M:use(item)
+	if not item then return end
+	game:unregisterDialog(self)
+
+	if item.unique then
+		local n = game.zone:finishEntity(game.level, "object", item.e)
+		n:identify(true)
+		game.zone:addEntity(game.level, n, "object", game.player.x, game.player.y)
+	else
+		game:registerDialog(GetQuantity.new("Number of items to make", "1-100", 20, 100, function(qty)
+			Dialog:yesnoPopup("Ego", "Make an ego item if possible?", function(ret)
+				if not ret then
+					for i = 1, qty do
+						local n = game.zone:finishEntity(game.level, "object", item.e, {ego_chance=-1000})
+						n:identify(true)
+						game.zone:addEntity(game.level, n, "object", game.player.x, game.player.y)
+					end
+				else
+					Dialog:yesnoPopup("Greater Ego", "Make an ego item if possible?", function(ret)
+						local f
+						if not ret then
+							f = {ego_chance=1000}
+						else
+							f = {ego_chance=1000, properties={"greater_ego"}}
+						end
+
+						for i = 1, qty do
+							local n = game.zone:finishEntity(game.level, "object", item.e, f)
+							n:identify(true)
+							game.zone:addEntity(game.level, n, "object", game.player.x, game.player.y)
+						end
+					end)
+				end
+			end)
+		end), 1)
+	end
+end
+
+function _M:generateList()
+	local list = {}
+
+	for i, e in ipairs(game.zone.object_list) do
+		if e.name and e.rarity then
+			list[#list+1] = {name=e.name, unique=e.unique, e=e}
+		end
+	end
+	table.sort(list, function(a,b)
+		if a.unique and not b.unique then return true
+		elseif not a.unique and b.unique then return false end
+		return a.name < b.name
+	end)
+
+	local chars = {}
+	for i, v in ipairs(list) do
+		v.name = v.name
+		chars[self:makeKeyChar(i)] = i
+	end
+	list.chars = chars
+
+	self.list = list
+end

game/modules/tome/dialogs/debug/DebugMain.lua

@@ -94,6 +94,7 @@ function _M:generateList()
 	list[#list+1] = {name="Create all artifacts", action="all_arts"}
 	list[#list+1] = {name="Grant/Alter Quests", dialog="GrantQuest"}
 	list[#list+1] = {name="Summon Creature", dialog="SummonCreature"}
+	list[#list+1] = {name="Create Item", dialog="CreateItem"}
 
 	local chars = {}
 	for i, v in ipairs(list) do