From 57cd85f387e490a5d7bfe401bc49d5871967d6e6 Mon Sep 17 00:00:00 2001
From: dg <dg@51575b47-30f0-44d4-a5cc-537603b46e54>
Date: Sun, 11 Apr 2010 15:11:50 +0000
Subject: [PATCH] character dump
git-svn-id: http://svn.net-core.org/repos/t-engine4@534 51575b47-30f0-44d4-a5cc-537603b46e54
---
game/engine/interface/WorldAchievements.lua | 2 +-
game/modules/tome/class/Actor.lua | 8 ++
game/modules/tome/dialogs/CharacterSheet.lua | 134 ++++++++++++++++++-
3 files changed, 138 insertions(+), 6 deletions(-)
diff --git a/game/engine/interface/WorldAchievements.lua b/game/engine/interface/WorldAchievements.lua
index 74482a25f4..c191a0076b 100644
--- a/game/engine/interface/WorldAchievements.lua
+++ b/game/engine/interface/WorldAchievements.lua
@@ -69,7 +69,7 @@ function _M:gainAchievement(id, src, ...)
local a = self.achiev_defs[id]
if not a then error("Unknown achievement "..id) return end
if self.achieved[id] then return end
-print("CHECK ACHIEV", id, src.name)
+
if a.can_gain then
local data = nil
if a.mode == "world" then
diff --git a/game/modules/tome/class/Actor.lua b/game/modules/tome/class/Actor.lua
index 8225419acc..c42b3f3711 100644
--- a/game/modules/tome/class/Actor.lua
+++ b/game/modules/tome/class/Actor.lua
@@ -374,6 +374,14 @@ function _M:die(src)
world:gainAchievement("PEST_CONTROL", src:resolveSource(), self)
end
+ -- Record kills
+ if src and src:resolveSource().player then
+ local p = src:resolveSource()
+ p.all_kills = p.all_kills or {}
+ p.all_kills[self.name] = p.all_kills[self.name] or 0
+ p.all_kills[self.name] = p.all_kills[self.name] + 1
+ end
+
return true
end
diff --git a/game/modules/tome/dialogs/CharacterSheet.lua b/game/modules/tome/dialogs/CharacterSheet.lua
index 8b4ed83d05..747e5cca17 100644
--- a/game/modules/tome/dialogs/CharacterSheet.lua
+++ b/game/modules/tome/dialogs/CharacterSheet.lua
@@ -18,7 +18,7 @@
-- darkgod@te4.org
require "engine.class"
-require "engine.Dialog"
+local Dialog = require "engine.Dialog"
local DamageType = require "engine.DamageType"
local Talents = require "engine.interface.ActorTalents"
@@ -26,9 +26,15 @@ module(..., package.seeall, class.inherit(engine.Dialog))
function _M:init(actor)
self.actor = actor
- engine.Dialog.init(self, "Character Sheet: "..self.actor.name, 800, 400, nil, nil, nil, core.display.newFont("/data/font/VeraMono.ttf", 12))
+ engine.Dialog.init(self, "Character Sheet: "..self.actor.name.." (Press 'd' to save)", 800, 400, nil, nil, nil, core.display.newFont("/data/font/VeraMono.ttf", 12))
- self:keyCommands(nil, {
+ self:keyCommands({
+ __TEXTINPUT = function(c)
+ if c == 'd' or c == 'D' then
+ self:dump()
+ end
+ end,
+ }, {
ACCEPT = "EXIT",
EXIT = function()
game:unregisterDialog(self)
@@ -107,7 +113,7 @@ function _M:drawDialog(s)
end
h = h + self.font_h
s:drawColorString(self.font, ("Spellpower: #00ff00#%3d"):format(game.player:combatSpellpower()), w, h, 255, 255, 255) h = h + self.font_h
- s:drawColorString(self.font, ("Spell Crit: #00ff00#%3d"):format(game.player:combatSpellCrit()), w, h, 255, 255, 255) h = h + self.font_h
+ s:drawColorString(self.font, ("Spell Crit: #00ff00#%3d%%"):format(game.player:combatSpellCrit()), w, h, 255, 255, 255) h = h + self.font_h
s:drawColorString(self.font, ("Spell Speed: #00ff00#%3d"):format(game.player:combatSpellSpeed()), w, h, 255, 255, 255) h = h + self.font_h
h = h + self.font_h
@@ -138,7 +144,7 @@ function _M:drawDialog(s)
h = 0
w = 600
- s:drawColorString(self.font, ("#LIGHT_BLUE#Current effects:"):format(game.player.fatigue), w, h, 255, 255, 255) h = h + self.font_h
+ s:drawColorString(self.font, "#LIGHT_BLUE#Current effects:", w, h, 255, 255, 255) h = h + self.font_h
for tid, act in pairs(game.player.sustain_talents) do
if act then s:drawColorString(self.font, ("#LIGHT_GREEN#%s"):format(game.player:getTalentFromId(tid).name), w, h, 255, 255, 255) h = h + self.font_h end
end
@@ -153,3 +159,121 @@ function _M:drawDialog(s)
self.changed = false
end
+
+function _M:dump()
+ fs.mkdir("/character-dumps")
+ local file = "/character-dumps/"..(game.player.name:gsub("[^a-zA-Z0-9_-.]", "_")).."-"..os.date("%Y%m%d-%H%M%S")..".txt"
+ local fff = fs.open(file, "w")
+ local nl = function(s) fff:write(s or "") fff:write("\n") end
+ local nnl = function(s) fff:write(s or "") end
+
+ nl("Sex: "..game.player.descriptor.sex)
+ nl("Race: "..game.player.descriptor.subrace)
+ nl("Class: "..game.player.descriptor.subclass)
+ nl("Level: "..game.player.level)
+
+ nl()
+ local cur_exp, max_exp = game.player.exp, game.player:getExpChart(game.player.level+1)
+ nl(("Exp: %2d%%"):format(100 * cur_exp / max_exp))
+ nl(("Gold: %0.2f"):format(game.player.money))
+
+ nl()
+ nl(("Life: %d/%d"):format(game.player.life, game.player.max_life))
+ if game.player:knowTalent(game.player.T_STAMINA_POOL) then
+ nl(("Stamina: %d/%d"):format(game.player:getStamina(), game.player.max_stamina))
+ end
+ if game.player:knowTalent(game.player.T_MANA_POOL) then
+ nl(("Mana: %d/%d"):format(game.player:getMana(), game.player.max_mana))
+ end
+ if game.player:knowTalent(game.player.T_SOUL_POOL) then
+ nl(("Soul: %d/%d"):format(game.player:getSoul(), game.player.max_soul))
+ end
+ if game.player:knowTalent(game.player.T_EQUILIBRIUM_POOL) then
+ nl(("Equi: %d"):format(game.player:getEquilibrium()))
+ end
+
+ nl()
+ nl(("STR: %3d"):format(game.player:getStr()))
+ nl(("DEX: %3d"):format(game.player:getDex()))
+ nl(("MAG: %3d"):format(game.player:getMag()))
+ nl(("WIL: %3d"):format(game.player:getWil()))
+ nl(("CUN: %3d"):format(game.player:getCun()))
+ nl(("CON: %3d"):format(game.player:getCon()))
+
+ -- All weapons in main hands
+ if self.actor:getInven(self.actor.INVEN_MAINHAND) then
+ for i, o in ipairs(self.actor:getInven(self.actor.INVEN_MAINHAND)) do
+ if o.combat then
+ nl()
+ nl(("Attack(Main Hand): %3d"):format(game.player:combatAttack(o.combat)))
+ nl(("Damage(Main Hand): %3d"):format(game.player:combatDamage(o.combat)))
+ nl(("APR (Main Hand): %3d"):format(game.player:combatAPR(o.combat)))
+ nl(("Crit (Main Hand): %3d%%"):format(game.player:combatCrit(o.combat)))
+ nl(("Speed (Main Hand): %0.2f"):format(game.player:combatSpeed(o.combat)))
+ end
+ end
+ end
+
+ -- All wpeaons in off hands
+ -- Offhand atatcks are with a damage penality, taht can be reduced by talents
+ if self.actor:getInven(self.actor.INVEN_OFFHAND) then
+ local offmult = (mult or 1) / 2
+ if self.actor:knowTalent(Talents.T_DUAL_WEAPON_TRAINING) then
+ offmult = (mult or 1) / (2 - (self.actor:getTalentLevel(Talents.T_DUAL_WEAPON_TRAINING) / 6))
+ end
+ for i, o in ipairs(self.actor:getInven(self.actor.INVEN_OFFHAND)) do
+ if o.combat then
+ nl()
+ nl(("Attack (Off Hand): %3d"):format(game.player:combatAttack(o.combat)))
+ nl(("Damage (Off Hand): %3d"):format(game.player:combatDamage(o.combat) * offmult))
+ nl(("APR (Off Hand): %3d"):format(game.player:combatAPR(o.combat)))
+ nl(("Crit (Off Hand): %3d%%"):format(game.player:combatCrit(o.combat)))
+ nl(("Speed (Off Hand): %0.2f"):format(game.player:combatSpeed(o.combat)))
+ end
+ end
+ end
+
+ nl()
+ nl(("Spellpower: %3d"):format(game.player:combatSpellpower()))
+ nl(("Spell Crit: %3d%%"):format(game.player:combatSpellCrit()))
+ nl(("Spell Speed: %3d"):format(game.player:combatSpellSpeed()))
+
+ nl()
+ for i, t in ipairs(DamageType.dam_def) do
+ if self.actor.inc_damage[DamageType[t.type]] and self.actor.inc_damage[DamageType[t.type]] ~= 0 then
+ nl(("%s damage: %3d%%"):format(t.name:capitalize(), self.actor.inc_damage[DamageType[t.type]]))
+ end
+ end
+
+ nl()
+ nl(("Fatigue: %3d%%"):format(game.player.fatigue))
+ nl(("Armor: %3d"):format(game.player:combatArmor()))
+ nl(("Defence: %3d"):format(game.player:combatDefense()))
+ nl(("Ranged Defence: %3d"):format(game.player:combatDefenseRanged()))
+
+ nl()
+ nl(("Physical Resist: %3d"):format(game.player:combatPhysicalResist()))
+ nl(("Spell Resist: %3d"):format(game.player:combatSpellResist()))
+ nl(("Mental Resist: %3d"):format(game.player:combatMentalResist()))
+
+ nl()
+ for i, t in ipairs(DamageType.dam_def) do
+ if self.actor.resists[DamageType[t.type]] and self.actor.resists[DamageType[t.type]] ~= 0 then
+ nl(("%s Resist: %3d%%"):format(t.name:capitalize(), self.actor.resists[DamageType[t.type]]))
+ end
+ end
+
+ nl()
+ local most_kill, most_kill_max = nil, 0
+ local total_kill = 0
+ for name, nb in pairs(game.player.all_kills) do
+ if nb > most_kill_max then most_kill_max = nb most_kill = name end
+ total_kill = total_kill + nb
+ end
+ nl(("Number of NPC killed: %s"):format(total_kill))
+ nl(("Most killed NPC: %s (%d)"):format(most_kill, most_kill_max))
+
+ fff:close()
+
+ Dialog:simplePopup("Character dump complete", "File: "..fs.getRealPath(file))
+end
--
GitLab