Download: Nurse-Joy.zip (MediaFire)
Nurse Joy com janela: Curar, Registrar e Fechar — PokéTibia / TFS 0.3.6
Compartilhando a Nurse Joy da minha base com dialogo no OTClient. A janela mostra o nome e outfit da Nurse, mensagem e botoes Curar/Registrar/Fechar. Cura o treinador, Pokemon solto quando permitido, Ball do slot 8 e Balls da mochila; restaura HP, cooldowns move1..move15, felicidade e fome conforme a configuracao da base. O registro libera uma cidade no sistema de Teleport existente. Nao implementa o Teleport completo.
E uma aplicacao do sistema de dialogo por clique esquerdo que compartilhei antes. O pacote abaixo inclui os arquivos das duas pontas, para nao depender de baixar outro topico. Edicao publica adaptada: JSON no transporte, registro explicitamente configurado no XML e verificacao de mochila valida. A base em uso nao foi alterada. A imagem de demonstracao corresponde a base original; na edicao publica a fonte usa verdana-11px-rounded e pode mudar ligeiramente a aparencia. O fundo window.png do modulo foi mantido.
DEPENDENCIAS: OTClient com extended opcodes, json.decode do corelib, UICreature, estilos Button/Label/ScrollablePanel e fonte verdana-11px-rounded. TFS 0.3.6 / PokexGeneration com NpcSystem, FocusModule, doSendPlayerExtendedOpcode e os helpers/tabelas da sua base. Nao funciona somente copiando heal.lua num TFS puro.
Servidor: copie os arquivos server/data para as mesmas pastas de data. A biblioteca npcdialog_lib.lua deve carregar tambem no ambiente dos NPCs. Nurse.xml aponta para heal.lua; se sua Nurse tem outro XML, preserve seu look/nome e altere apenas script e parametros. Configure/coloque a Nurse no mapa/spawn como de costume. O lookType 532 pertence a esta base; use um ID valido no seu DAT. Faça backup antes de substituir heal.lua: todas as Nurses que o usam receberao a mudanca.
Registro de cidade: ajuste no XML <parameter key="teleportStorage" value="0"/>. Zero deixa o registro desativado. Use a storage que seu menu de Teleport realmente consulta para aquela cidade; exemplo: 897530 SOMENTE se seu Teleport usa esse numero. Registrar grava 1 nessa storage; nao teleporta, nao muda automaticamente townId e nao adiciona destinos ao menu. Nurses de cidades diferentes devem usar storages diferentes. Na edicao publica, Curar nao cadastra cidade automaticamente. Coordenadas particulares e a busca automatica do templo mais proximo foram retiradas para evitar registrar cidade errada em outro mapa.
Cliente: copie os arquivos client/modules/game_npcdialog para modules/game_npcdialog e carregue o modulo depois de corelib/game_interface. Se ja instalou a edicao JSON do meu topico anterior, atualize somente o OTUI/fundo para esta aparencia e use os scripts Nurse do servidor; nao registre o opcode duas vezes. Nao misture o servidor JSON com cliente antigo que usa loadstring/table.serialize.
Clique esquerdo: o bloco client/clique_esquerdo.lua vai DENTRO de processMouseAction em game_interface/gameinterface.lua, logo depois de local keyboardModifiers = g_keyboard.getModifiers(). Preserve o restante do arquivo. Ele manda hi quando o clique esquerdo sem modificadores identifica um NPC. NpcSystem cuida do foco/distancia; com dois NPCs juntos o hi pode escolher outro NPC proximo. Use classificacao isNpc correta no protocolo. O jogador tambem pode cumprimentar pela fala.
Opcode 80 reservado ao dialogo servidor->cliente: se ja usado nessa direcao, altere nas duas pontas. O modulo fecha ao andar, sair do jogo ou pressionar Escape. Fechar libera o foco no servidor. Botoes usam hifen como separador; nao use hifen dentro do nome de uma opcao.
Configuracao de cura: a base precisa definir nurseHealsOnlyInPZ, nurseHealsPokemonOut, baseNurseryHappiness, baseNurseryHunger e pokeballs (entradas all/on). Tambem usa exhaustion.get/set, isPokeball, getPokeballsInContainer, setCD, doCureStatus e opcionalmente doUpdateMoves quando useKpdoDlls=true. Flags false/nil desativam suas respectivas exigencias, mas fome/felicidade precisam de valores numericos. Nao sobrescreva configuration.lua inteira. Exaustao: storage 9211 por 5 segundos; duelo: storage 52480; Fly/Ride/Surf: 17000/17001/63215. Confira conflitos. O HP da Ball e fracao: hp=1 significa cheia. IDs on das Balls precisam ser os seus. Outros atributos como boost, level, held e nick nao sao zerados por este script.
Validacao: Lua 5.1/XML e testes simulados de foco, abrir/voltar/fechar, registrar/repetir/desativado, bloqueio em duelo/PZ/exaustao, Pokemon solto proibido, cura de treinador/slot/mochila e mochila ausente. O transporte JSON e clique foram verificados no pacote anterior. Nao foi feito novo teste visual/end-to-end desta edicao no cliente, nem teste de todas as combinacoes de Balls. Teste em copia da base antes de producao.
Creditos: modulo original game_npcdialog identificado como Gengo, modificado por Biel; OTClient team e autores do fork; autores do NpcSystem e do sistema de cura/PokéTibia preexistente. Raul compartilha sua integracao, organizada com auxilio do Codex. Nao reivindico autoria de todos os componentes. Nao acompanha executavel, cliente completo, sprites, banco ou mapa.
Arquivos completos abaixo. Salve cada bloco no caminho indicado.
client/clique_esquerdo.lua
-- OTPokemon-style NPC interaction: a plain left click greets the NPC and
-- lets the server open the dialog window through the NPC dialog opcode.
local clickedNpc = nil
if creatureThing and creatureThing:isNpc() then
clickedNpc = creatureThing
elseif attackCreature and attackCreature:isNpc() then
clickedNpc = attackCreature
elseif lookThing and lookThing:isCreature() and
lookThing:isNpc() then
clickedNpc = lookThing
end
if mouseButton == MouseLeftButton and keyboardModifiers == KeyboardNoModifier and clickedNpc then
local player = g_game.getLocalPlayer()
if player then player:stopAutoWalk() end
g_game.cancelAttack()
g_game.talkChannel(MessageModes.NpcTo, 0, 'hi')
return true
end
client/modules/game_npcdialog/npcdialog.lua
-- ui widgets
local windowDialog
local buttonHolder
local labelTitle
local outfitBox
local panelMessage
local scrollPanel
local labelMessage
-- variables
local OpcodeDialog = 80
local Actions = {
open = 1,
closed = 2
}
function init()
connect(g_game, { onGameEnd = closeDialog })
connect(LocalPlayer, { onPositionChange = onPositionChange })
ProtocolGame.registerExtendedOpcode(OpcodeDialog, function(protocol, opcode, buffer)
if type(buffer) ~= 'string' or #buffer > 60000 then return end
local ok, result = pcall(json.decode, buffer)
if not ok or type(result) ~= 'table' then return end
if result.action == Actions.closed then
closeDialog()
elseif result.action == Actions.open and type(result.data) == 'table' then
local data = result.data
if type(data.npcId) == 'number' and type(data.message) == 'string'
and (data.options == nil or type(data.options) == 'string') then
createDialog(data)
end
end
end)
windowDialog = g_ui.displayUI('npcdialog')
buttonHolder = windowDialog:getChildById('buttonHolder')
labelTitle = windowDialog:getChildById('labelTitle')
scrollPanel = windowDialog:getChildById('scrollPanel')
panelMessage = windowDialog:getChildById('panelMessage')
outfitBox = windowDialog:getChildById('outfitBox')
labelMessage = g_ui.createWidget('LabelText', panelMessage)
end
function terminate()
disconnect(g_game, { onGameEnd = closeDialog })
disconnect(LocalPlayer, { onPositionChange = onPositionChange })
ProtocolGame.unregisterExtendedOpcode(OpcodeDialog)
windowDialog:destroy()
end
function closeDialog()
windowDialog:hide()
end
function onPositionChange(creature, newPos, oldPos)
if creature:isLocalPlayer() then
windowDialog:hide()
end
end
function openDialog()
windowDialog:raise()
windowDialog:show()
end
function createDialog(value)
local Npc = g_map.getCreatureById(value.npcId)
if not Npc then
return error("game_npcdialog/npcdialog.lua: NPC nao encontrado no mapa visivel.")
end
labelTitle:setText(Npc:getName())
outfitBox:setOutfit(Npc:getOutfit())
labelMessage:clearText()
labelMessage:setText(value.message)
-- Evita erro se o limitText não estiver configurado no .otui
local limit = panelMessage.limitText or 100
scrollPanel:setVisible(labelMessage:getTextSize().height > limit)
buttonHolder:destroyChildren()
if value.options and value.options ~= '' then
-- Divide os botões pelo caractere '-' vindo do script do NPC
local options = {}
for option in value.options:gmatch('[^-]+') do table.insert(options, option) end
for i = 1, #options do
local button = g_ui.createWidget('OptionButton', buttonHolder)
button:setText(tr(options[i]))
button.onClick = function()
g_game.talkChannel(MessageModes.NpcTo, 0, options[i])
end
end
buttonHolder:setHeight(#options > 6 and 48 or 25)
end
openDialog()
end
client/modules/game_npcdialog/npcdialog.otmod
Module
name: game_npcdialog
description: Game NpcDialog
author: Gengo Modificado por Biel
scripts: [ npcdialog ]
sandboxed: true
autoload: true
autoload-priority: 1001
@onLoad: init()
@onUnload: terminate()
client/modules/game_npcdialog/npcdialog.otui
LabelText < Label
padding-bottom: 5
font: verdana-11px-rounded
color: #FFFFFF
text-wrap: true
text-auto-resize: true
OptionButton < Button
margin: 3 0 0 2
width: 80
color: #FFFFFF
UIWindow
size: 620 231
visible: false
image-source: window
image-border: 12
anchors.centerIn: parent
@onEscape: modules.game_npcdialog.closeDialog()
Label
id: labelTitle
font: verdana-11px-rounded
anchors.top: parent.top
anchors.left: parent.left
!text: tr('Title')
margin: 18 0 5 25
color: #FFFFFF
text-auto-resize: true
UICreature
id: outfitBox
size: 75 75
anchors.top: prev.bottom
anchors.left: parent.left
margin: 20 0 5 34
VerticalScrollBar
id: scrollPanel
height: 65
anchors.top: panelMessage.top
anchors.left: panelMessage.right
anchors.bottom: panelMessage.bottom
margin-left: 5
visible: false
pixels-scroll: true
step: 14
ScrollablePanel
id: panelMessage
size: 0 120
anchors.top: labelTitle.bottom
anchors.left: outfitBox.right
anchors.right: parent.right
margin: 8 30 10 25
vertical-scrollbar: scrollPanel
layout: verticalBox
&limitText: 80
ScrollablePanel
id: buttonHolder
size: 0 24
anchors.bottom: parent.bottom
anchors.left: parent.left
anchors.right: parent.right
margin: 15 10 8 10
layout:
type: grid
cell-size: 99 22
flow: trueserver/data/lib/npcdialog_lib.lua
-- Public JSON variant. Use the matching client module; old Lua-table payloads differ.
local OpcodeDialog = 80
local function quote(value)
return '"' .. value:gsub('[%z\1-\31\\"]', function(c)
if c == '"' then return '\\"' end
if c == '\\' then return '\\\\' end
return string.format('\\u%04x', string.byte(c))
end) .. '"'
end
function doSendDialogNpc(cid, npc, msg, opc)
if type(npc) ~= 'number' or type(msg) ~= 'string' then return false end
local buffer = '{"action":1,"data":{"npcId":' .. tostring(npc)
.. ',"message":' .. quote(msg) .. ',"options":' .. quote(opc or '') .. '}}'
return doSendPlayerExtendedOpcode(cid, OpcodeDialog, buffer)
end
function doSendDialogNpcClose(cid)
return doSendPlayerExtendedOpcode(cid, OpcodeDialog, '{"action":2}')
end
server/data/npc/Nurse.xml
<?xml version="1.0" encoding="UTF-8"?>
<npc name="Nurse Joy" script="heal.lua" walkinterval="350000" floorchange="0" speed="0">
<health now="150" max="150"/>
<look type="532" head="91" body="102" legs="83" feet="0"/>
<parameters>
<!-- 0 disables registration. Set your Teleport destination storage. -->
<parameter key="teleportStorage" value="0"/>
<!-- As mensagens foram movidas para o script em Lua para o sistema de dialogo funcionar corretamente -->
<parameter key="message_idletimeout" value="Ate mais treinador!"/>
<parameter key="message_walkaway" value="Ate mais treinador!"/>
</parameters>
</npc>
server/data/npc/scripts/heal.lua
-- Public adaptation: explicit teleportStorage per NPC; no private map coordinates.
local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onThingMove(creature, thing, oldpos, oldstackpos) end
function onCreatureAppear(creature) npcHandler:onCreatureAppear(creature) end
function onCreatureDisappear(cid)
if isPlayer(cid) then doSendDialogNpcClose(cid) end
npcHandler:onCreatureDisappear(cid)
end
function onCreatureTurn(creature) end
function msgcontains(txt, str)
return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)'))
end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg:lower()) end
function onThink() npcHandler:onThink() end
function greetCallback(cid)
doSendDialogNpc(cid, getNpcId(), "Ola treinador! Bem-vindo ao Centro Pokemon.\nComo posso ajudar voce e seus Pokemons hoje?", "Curar-Registrar-Fechar")
return true
end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then return false end
local msg = string.lower(msg)
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid
for a, b in pairs(gobackmsgs or {}) do
local gm = string.gsub(b.go, "doka!", "")
local bm = string.gsub(b.back, "doka!", "")
if string.find(string.lower(msg), string.lower(gm)) or string.find(string.lower(msg), string.lower(bm)) then
return true
end
end
-- REGISTRAR CIDADE PARA O SISTEMA DE TELEPORT
if msgcontains(msg, 'registrar') or msgcontains(msg, 'registra') then
local registeredStorage = tonumber(getNpcParameter("teleportStorage"))
if registeredStorage and (registeredStorage <= 0 or registeredStorage ~= math.floor(registeredStorage)) then
registeredStorage = nil
end
if not registeredStorage then
doSendDialogNpc(cid, getNpcId(), "Esta Nurse ainda nao possui uma cidade configurada para o Teleport.", "Voltar-Fechar")
return true
end
if getPlayerStorageValue(cid, registeredStorage) >= 1 then
doSendDialogNpc(cid, getNpcId(), "Esta cidade ja esta registrada no seu Teleport!", "Curar-Fechar")
return true
end
setPlayerStorageValue(cid, registeredStorage, 1)
doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_GREEN)
doSendDialogNpc(cid, getNpcId(), "Cidade registrada com sucesso! Agora voce pode voltar para ca usando um Pokemon com Teleport.", "Curar-Fechar")
return true
end
-- 1. GATILHO: CLICOU EM CURAR OU FALOU "HEAL/HELP/CURAR"
if msgcontains(msg, 'curar') or msgcontains(msg, 'heal') or msgcontains(msg, 'help') then
if exhaustion.get(cid, 9211) then
selfSay('Por favor, aguarde alguns instantes antes de pedir para curar seus pokemons novamente!', cid)
return true
end
if not getTileInfo(getThingPos(cid)).protection and nurseHealsOnlyInPZ then
selfSay("Por favor, entre no centro pokemon para curar seus pokemons!", cid)
return true
end
if getPlayerStorageValue(cid, 52480) >= 1 then
selfSay("Voce nao pode fazer isso enquanto estiver em um Duelo!", cid)
return true
end
-- Reject before applying healing/exhaustion when summons must be recalled.
if #getCreatureSummons(cid) >= 1 and not nurseHealsPokemonOut then
selfSay("Por favor, coloque seu pokemon de volta na bola!", cid)
return true
end
-- Aplica a exaustao e cura o treinador
exhaustion.set(cid, 9211, 5)
doCreatureAddHealth(cid, getCreatureMaxHealth(cid)-getCreatureHealth(cid))
doCureStatus(cid, "all", true)
doSendMagicEffect(getThingPos(cid), 14)
local mypb = getPlayerSlotItem(cid, 8)
-- Cura Pokemon para fora da bola
if #getCreatureSummons(cid) >= 1 then
if not nurseHealsPokemonOut then
selfSay("Por favor, coloque seu pokemon de volta na bola!", cid)
return true
end
local s = getCreatureSummons(cid)[1]
doCreatureAddHealth(s, getCreatureMaxHealth(s))
doSendMagicEffect(getThingPos(s), 14)
doCureStatus(s, "all", false)
if getPlayerStorageValue(s, 1008) < baseNurseryHappiness then setPlayerStorageValue(s, 1008, baseNurseryHappiness) end
if getPlayerStorageValue(s, 1009) > baseNurseryHunger then setPlayerStorageValue(s, 1009, baseNurseryHunger) end
else
-- Cura o slot principal (Slot 8)
if mypb and mypb.uid > 0 and mypb.itemid ~= 0 and isPokeball(mypb.itemid) then
doItemSetAttribute(mypb.uid, "hp", 1)
if getItemAttribute(mypb.uid, "hunger") and getItemAttribute(mypb.uid, "hunger") > baseNurseryHunger then
doItemSetAttribute(mypb.uid, "hunger", baseNurseryHunger)
end
for c = 1, 15 do
local str = "move"..c
setCD(mypb.uid, str, 0)
end
if getItemAttribute(mypb.uid, "happy") and getItemAttribute(mypb.uid, "happy") < baseNurseryHappiness then
doItemSetAttribute(mypb.uid, "happy", baseNurseryHappiness)
end
if getPlayerStorageValue(cid, 17000) <= 0 and getPlayerStorageValue(cid, 17001) <= 0 and getPlayerStorageValue(cid, 63215) <= 0 then
for a, b in pairs (pokeballs) do
if isInArray(b.all, mypb.itemid) then doTransformItem(mypb.uid, b.on) end
end
end
end
end
-- Varre a mochila e cura todas as outras pokebolas guardadas
local bp = getPlayerSlotItem(cid, CONST_SLOT_BACKPACK)
local balls = {}
if bp and bp.uid > 0 and isContainer(bp.uid) then
balls = getPokeballsInContainer(bp.uid) or {}
end
if #balls >= 1 then
for _, uid in ipairs(balls) do
doItemSetAttribute(uid, "hp", 1)
for c = 1, 15 do
local str = "move"..c
setCD(uid, str, 0)
end
if getItemAttribute(uid, "hunger") and getItemAttribute(uid, "hunger") > baseNurseryHunger then
doItemSetAttribute(uid, "hunger", baseNurseryHunger)
end
if getItemAttribute(uid, "happy") and getItemAttribute(uid, "happy") < baseNurseryHappiness then
doItemSetAttribute(uid, "happy", baseNurseryHappiness)
end
local this = getThing(uid)
for a, b in pairs (pokeballs) do
if isInArray(b.all, this.itemid) then doTransformItem(uid, b.on) end
end
end
end
-- Fecha a janela de dialogo apos a cura concluida com sucesso
doSendDialogNpcClose(cid)
selfSay('Prontinho! Voce e seus pokemons estao saudaveis novamente.', cid)
if useKpdoDlls then doUpdateMoves(cid) end
if npcHandler.unGreet then npcHandler:unGreet(cid) else npcHandler:resetNpc(cid) end
npcHandler:releaseFocus(cid)
return true
elseif msgcontains(msg, "voltar") then
doSendDialogNpc(cid, getNpcId(), "Ola treinador! Bem-vindo ao Centro Pokemon.\nComo posso ajudar voce e seus Pokemons hoje?", "Curar-Registrar-Fechar")
return true
-- 2. GATILHO: CLICOU EM FECHAR OU FALOU "SAIR/BYE/FECHAR"
elseif msgcontains(msg, "fechar") or msgcontains(msg, 'sair') or msgcontains(msg, 'bye') then
doSendDialogNpcClose(cid)
selfSay('Ate mais treinador!', cid)
if npcHandler.unGreet then npcHandler:unGreet(cid) else npcHandler:resetNpc(cid) end
npcHandler:releaseFocus(cid)
return true
end
return true
end
npcHandler:setCallback(CALLBACK_GREET, greetCallback)
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())
Fundo window.png — recriar sem anexo
Na pasta modules/game_npcdialog do cliente, abra PowerShell e execute o bloco abaixo. Ele grava somente window.png nessa pasta. Se preferir outro fundo, ajuste image-source no OTUI.
[System.IO.File]::WriteAllBytes((Join-Path (Get-Location) 'window.png'), [Convert]::FromBase64String('iVBORw0KGgoAAAANSUhEUgAAAGQAAABkCAYAAABw4pVUAAACVUlEQVR4nO3dv07yUBiA8bcNXICzW3cTEyMX4O4d6aR35N5dCMTEWTZnZ0MEB77iaVMK8WvNk/D8NnOwad6H0z8TWfwzKfJNJKbLdRYazL5559Xi89tX5z+oP13zzg4NvipnoP9z7BxHhw5UHeDq+qafMztZ5VFf6FFExMPFbevi/etTRGxjzGdlX2d2ktIZds17FBHxuVi0H2X8c6Dlx/hlmFM9EbPysppl17x317W71Xlt7XH8boyeFWerXZS2eU+X62z3aNu82RhjGGmUVHXTr71rpDdwYwynGSV958ubHzbG8JYf45f5rGx9cq1dsozxt9KdUntTF4dBYAwCYxAYg8AYBMYgMAaBMQiMQWAMAmMQGIPAGATGIDAGgTEIjEFgDAJjEBiDwBgExiAwBoExCIxBYAwCYxAYg8AYBMYgMAaBMQiMQWAMAmMQGIPAGATGIDAGgTEIjEFgDAJjEBiDwBgExiAwBoExCIxBYAwCYxAYg8AYBMYgMAaBMQiMQWAMAmMQGIPAGATGIDAGgTEIjEFgDAJjEBiDwBgExiAwBoExCIxBYAwCYxAYg8AYBMYgMFn6h7+p/nfafks9omWHzGdlXF3fRHG2uvzbUzwdaYymXZlJkW/SBXfKMPbFqHZJHrGN8fz2VfuAO6V/aYzmvKsNkTV3RpM7pR9dl6nUwSARP1H0e8fOMJsU+ebh4rZ18f71qXZA/V4ao2veo4iIz8Wi/SjjSB7JyoM7Sd2my3U2KfJN17yziO0N5W51Xlt7HL/Xno/Vn655733sNcaw9s37G4DX+20+pJNdAAAAAElFTkSuQmCC'))
