Olá galera do XTibia; eu postei já vários tópicos, incluindo sistemas, e scripts em parceria com o Vodkart, por exemplo, que infelizmente, não foram muito apreciados (links na minha assinatura). Então eu pensei em fazer algo grande, um sistema que talvez não fosse compartilhado por outras pessoas, sem negociações de dinheiro. Foi ai que me veio uma idéia, que inicialmente eu pensei que poderia ser grande, um sistema difícil e com vários scripts. Trabalhando nisso por alguns dias, eu desenvolvi um sistema de reputação, ou recompensa, como preferirem, utilizando apenas dois scripts lua. Não posso dizer que foi fácil, tive meus problemas, mas não foi tão difícil quanto o esperado.
Bom, vamos ao que interessa; o sistema funciona assim: Há um npc, e este npc pode colocar recompensas pela cabeça dos jogadores, desde que você o pague, é claro. São dez níveis de recompensa, sendo que a cada nível, a recompensa vai melhorando. Exemplo de uso:
Um pk me matou, e não tenho forças para mata-lo. Quero que ele sofra, mas não quero ser descoberto, pois não quero morrer para ele de novo. A solução? Caçador de recompensas. Vou contratar o caçador de recompensas e usar todo o meu dinheiro para aumentar sua recompensa ao nível máximo, o nível 9! Assim, uma mensagem irá avisar a todos no servidor que o jogador teve sua recompensa aumentada, e assim, os mais fortes irão matar este pk para mim, e ele não saberá que fui eu. Assim que o jogador for morto, a recompensa será resetada, e o cara que matou irá ganhar um item de acordo com o nível da recompensa.
Vamos aos scripts e suas explicações:
Versão 1.5:
CreatureScripts:
Vá em data/creaturescripts/scripts, crie um arquivo .lua, e cole isto nele:
function onKill(cid, target)
local award = {
[0] = 2160, -- crystal coin
[1] = 2497, -- crusader helmet
[2] = 2487, -- crown armor
[3] = 2195, -- boots of haste
[4] = 2520, -- demon shield
[5] = 2470, -- golden legs
[6] = 2466, -- golden armor
[7] = 2506, -- dragon scale helmet
[8] = 2492, -- dragon scale mail
[9] = 2514 -- mastermind shield
}
if getPlayerStorageValue(target, 13131) > -1 then
doPlayerAddItem(cid, award[getPlayerStorageValue(target, 13131)])
setPlayerStorageValue(target, 13131, -1)
end
return TRUE
end
Feito isso, nesta mesma pasta, abra o arquivo login.lua, ache as tags que registram eventos, que são algo assim:
registerCreatureEvent(cid, "Evento") registerCreatureEvent(cid, "Evento") registerCreatureEvent(cid, "Evento")
Entre alguma delas, adicione esta tag:
registerCreatureEvent(cid, "Recompensa")
Para finalizar a parte do CreatureScripts, vá em data/creaturescripts, abra o arquivo creaturescripts.xml e cole esta tag em algum lugar:
<event type="kill" name="Recompensa" event="script" value="Nome_do_Arquivo.lua"/>
Npc:
Vá em data/npcs, crie um arquivo .xml e cole isto nele:
<?xml version="1.0" encoding="UTF-8"?>
<npc name="Matador por Recompensas" script="data/npc/scripts/Nome_do_Arquivo.lua" walkinterval="2000" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="152" head="79" body="128" legs="114" feet="0" addons="3"/>
<parameters>
<parameter key="message_greet" value="Ola |PLAYERNAME|. Diga {promover, recompensa, level,} ou para mais informacoes, diga {informacoes}." />
</parameters>
</npc>
Agora vá em data/npcs/scripts, crie um arquivo .lua e cole isto nele:
local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid
preco = {
[-1] = 100000,
[0] = 200000,
[1] = 300000,
[2] = 400000,
[3] = 500000,
[4] = 600000,
[5] = 700000,
[6] = 800000,
[7] = 900000,
[8] = 1000000
}
if(msgcontains(msg, 'promover')) then
selfSay('Diga o nome do jogador que voce deseja promover.', cid)
talkState[talkUser] = 1
elseif isPlayer(getPlayerByNameWildcard(msg)) and talkState[talkUser] == 1 then
if getPlayerStorageValue(getPlayerByNameWildcard(msg), 13131) < 9 then
if doPlayerRemoveMoney(cid, preco[getPlayerStorageValue(getPlayerByNameWildcard(msg), 13131)]) == TRUE then
setPlayerStorageValue(getPlayerByNameWildcard(msg), 13131, getPlayerStorageValue(getPlayerByNameWildcard(msg), 13131) + 1)
doBroadcastMessage("O jogador "..msg.." foi promovido para o nivel "..getPlayerStorageValue(getPlayerByNameWildcard(msg), 13131)..".", BroadCast_Type)
else
selfSay('Descupe, voce não possui o dinheiro necessário para promover este jogador.', cid)
end
else
selfSay('O jogador que voce escolheu ja foi promovido ao maximo.', cid)
end
talkState[talkUser] = 0
elseif(msgcontains(msg, 'no') and isInArray({1}, talkState[talkUser]) == TRUE) then
talkState[talkUser] = 0
selfSay('Certo entao.', cid)
end
if(msgcontains(msg, 'level')) then
selfSay('Diga o nome do jogador que voce deseja checar o level.', cid)
talkState[talkUser] = 2
elseif isPlayer(getPlayerByNameWildcard(msg)) and talkState[talkUser] == 2 then
if getPlayerStorageValue(getPlayerByNameWildcard(msg), 13131) >= 0 then
selfSay("O level de recompensa deste jogador é "..getPlayerStorageValue(getPlayerByNameWildcard(msg), 13131)..".", cid)
else
selfSay('Este jogador nao esta sendo procurado.', cid)
end
talkState[talkUser] = 0
elseif(msgcontains(msg, 'no') and isInArray({1}, talkState[talkUser]) == TRUE) then
talkState[talkUser] = 0
selfSay('Certo entao.', cid)
end
if(msgcontains(msg, 'recompensa')) then
selfSay('Deseja checar o seu level de recompensa?', cid)
talkState[talkUser] = 3
elseif (msgcontains(msg, 'yes') and talkState[talkUser]) == 3 then
if getPlayerStorageValue(cid, 13131) >= 0 then
selfSay("O seu level de recompensa é "..getPlayerStorageValue(cid, 13131)..".", cid)
else
selfSay('Voce nao esta sendo procurado.', cid)
end
talkState[talkUser] = 0
elseif(msgcontains(msg, 'no') and isInArray({1}, talkState[talkUser]) == TRUE) then
talkState[talkUser] = 0
selfSay('Certo entao.', cid)
end
if(msgcontains(msg, 'informaçoes')) then
selfSay('O sistema funciona da seguinte maneira: voce pode colocar recompensas pela cabeça de jogadores, assim, quem matar estes jogadores irá ganhar algum item, porem, ha um alto custo para utilizar os meus serviços.', cid)
talkState[talkUser] = 0
end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())
As seguintes opções de palavras são validas para versão 1.5:
Informaçoes - O npc irá explicar detalhadamente como funciona o sistema para o jogador. Recompensa - O npc irá te dizer o nível de sua recompensa. Level - Diga level, e depois o nome do jogador que você deseja consultar, e irá saber o nível da recompensa dele. Promover - Diga promover e promova a recompensa de algum jogar, lembrando que a recompensa será aumentado 1 por 1.
Espero que gostem, me esforcei de mais para fazer este sistema, espero que todos que utilizarem, comentem; é só comentar dizendo se gostou ou não, ou se encontrou algum erro, enfim, comentem.
