Npc Banqueiro (agora Com Transfer)

[Conde Sapo 4]

O inicio deste meu tutorial era assim :

  Citar

nosso amiguinho BlackHero fez tutorial de NPC Banqueiro.

infelismente o NPC dele usava comandos que gerava erro na maioria dos servers

(mesmo os 8.0)

Descobri que esse NPC é do COLEX

Descula COLEX por dar créditos errados.

 

COLEX <-- Vejam quem é COLEX

----------------------------------------------------------------------------------------------------------------------------------

Exclusivo para XTibia

favor não postar em outro forum

----------------------------------------------------------------------------------------------------------------------------------

 

Vai ae um NPC Banqueiro que não usa comandos especiais.

 

data\npc\scripts\Palmares.lua

local focus = 0
local talk_start = 0

function onThingMove(creature, thing, oldpos, oldstackpos)
end

function onCreatureAppear(creature)
end

function onCreatureDisappear(cid, pos)
if focus == cid then
	selfSay('Good bye then.')
	focus = 0
	talk_start = 0
end
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)
msg = string.lower(msg)

if (msgcontains(msg, 'hi') and focus == 0) and getDistanceToCreature(cid) < 4 then
	selfSay('Hello ' .. creatureGetName(cid) .. '! wellcome to OT Bank System.')
	focus = cid
	talk_start = os.clock()

elseif msgcontains(msg, 'hi') and (focus ~= cid) and getDistanceToCreature(cid) < 4 then
	selfSay('Sorry, ' .. creatureGetName(cid) .. '! I talk to you in a minute.')

elseif focus == cid then
	if msgcontains(msg, 'balance') then
		balance(cid)
		talk_state = 0
		talk_start = os.clock()

	elseif msgcontains(msg, 'deposit') and getCount(msg) > 0 then
		value = getCount(msg)
		selfSay('Would you really like to deposit '..value..' gold?')
		talk_state = 2
		talk_start = os.clock()

	elseif msgcontains(msg, 'deposit') then
		selfSay('Please tell me how much gold it is you would like to deposit.')
		talk_state = 1
		talk_start = os.clock()

	elseif talk_state == 1 then
		value = getCount(msg)
		if value > 0 then
			selfSay('Would you really like to deposit '..value..' gold?')
			talk_state = 2
		else
			talk_state = 0
		end

	elseif msgcontains(msg, 'yes') and talk_state == 2 then
		deposit(cid, value)
		talk_state = 0

	elseif msgcontains(msg, 'transfer') and getCount(msg) > 0 then
		value = getCount(msg)
		selfSay('What Player NAME you want to Transfer '..value..' gold?')
		talk_state = 5
		talk_start = os.clock()

	elseif talk_state == 5 then
		xid = getPlayerByName(msg)
		if xid == 0 then
			selfSay('Player "'..msg..'" not found!!!')
			talk_state = 0
		elseif xid == cid then
			selfSay('You canot transfer money to yourself!!!')
			talk_state = 0
		else
			NomeDele = getPlayerName(xid)
			selfSay('Are you sure you wish to transfer '..value..' gold from your bank to '..NomeDele..' bank?')
			talk_state = 8
		end

	elseif msgcontains(msg, 'transfer') then
		selfSay('Please tell me how much gold you would like to transfer?')
		talk_state = 7
		talk_start = os.clock()

	elseif talk_state == 7 then
		value = getCount(msg)
		if value > 0 then
			selfSay('What Player NAME you want to Transfer '..value..' gold?')
			talk_state = 5
			talk_start = os.clock()
		else
			talk_state = 0
		end

	elseif msgcontains(msg, 'yes') and talk_state == 8 then
		transfer(cid, value, xid)
		talk_state = 0

	elseif msgcontains(msg, 'withdraw') and getCount(msg) > 0 then
		value = getCount(msg)
		selfSay('Are you sure you wish to withdraw '..value..' gold from your bank account?')
		talk_state = 3
		talk_start = os.clock()

	elseif msgcontains(msg, 'withdraw') then
		talk_state = 4
		selfSay('Please tell me how much gold you would like to withdraw.')
		talk_start = os.clock()

	elseif talk_state == 4 then
		value = getCount(msg)
		if value > 0 then
			selfSay('Are you sure you wish to withdraw '..value..' gold from your bank account?')
			talk_state = 3
		else
			talk_state = 0
		end

	elseif msgcontains(msg, 'yes') and talk_state == 3 then
		withdraw(cid, value)
		talk_state = 0

	elseif msgcontains(msg, 'no') and talk_state == 2 then
		selfSay('As you wish. Is there something else I can do for you?')
		talk_state = 0

	elseif msgcontains(msg, 'no') and talk_state == 3 then
		selfSay('The customer is king! Come back anytime you want to if you wish to withdraw your money.')
		talk_state = 0

	elseif msgcontains(msg, 'bye') and getDistanceToCreature(cid) < 4 then
		selfSay('Bye bye ' .. creatureGetName(cid) .. ', come back anytime you want talk about money.')
		focus = 0
		talk_start = 0

	elseif msg ~= "" then
		selfSay('You are in a Bank! Talk about Bank thinks.')
		talk_state = 0
	end
end
end

function onCreatureChangeOutfit(creature)
end

function onThink()
doNpcSetCreatureFocus(focus)
if (os.clock() - talk_start) > 30 then
	if focus > 0 then
		selfSay('Next money owner Please...')
	end
	focus = 0
	talk_start = 0
end
if focus ~= 0 then
	if getDistanceToCreature(focus) > 5 then
		selfSay('Good bye then.  Good talk with you about money.')
		focus = 0
		talk_start = 0
	end
end
end

Palmares é um amiguinho que pediu pra acertar este NPC

Em sua homenagem fiz com o nome dele.

 

Agora precisa a identificação do NPC

 

data\npc\Palmares.xml

<npc name="Palmares" script="data/npc/scripts/Banco.lua" access="3" lookdir="1" autowalk="200" speed="200">
<health now="100" max="100"/>
<look type="134" head="57" body="59" legs="40" feet="76" corpse="2212"/>
<parameters/>
</npc>

 

 

Este NPC usa funções pré-estabelecidas que ficam no arquivo

data\npc\scripts\lib\npc.lua

-- Funçoes de BANCO
function getCount(msg)
b, e = string.find(msg, "%d+")

if b == nil or e == nil then
	count = 1
else
	count = tonumber(string.sub(msg, b, e))
end
if count > 100000 then
	count = 100000
elseif count == 0 then
	count = 1
end
return count
end 

function balance(cid)
	local storage = 666
	local value = getPlayerStorageValue(cid, storage)

	if value > 0 then
			selfSay('Your account balance is '..value..' gold.')
	else
			setPlayerStorageValue(cid, storage, 0)
			selfSay('You don\'t have money in your bank account.')
	end
end

function withdraw(cid, value)
	local storage = 666
	local balance = getPlayerStorageValue(cid, storage)

	if balance == -1 then
		-- Não tinha depositos ainda -> Iniciar com 0
		setPlayerStorageValue(cid, storage, 0)
	end

	if value <= 0 then
			selfSay('You cannot withdraw invalid values.')
	elseif balance < value then
			selfSay('There is not enough gold on your account.')
	else		
			selfSay('Here you are, '..value..' gold. Please let me know if there is something else I can do for you.')
			setPlayerStorageValue(cid, storage, balance-value)
			doPlayerAddMoney(cid,value)
	end
end

function deposit(cid, value)
	local storage = 666
	local balance = getPlayerStorageValue(cid, storage)

	if balance == -1 then
		-- Não tinha depositos ainda -> Iniciar com 0
		setPlayerStorageValue(cid, storage, 0)
	end

	if value < 0 then
			selfSay('You cannot deposit negative values.')
	elseif doPlayerRemoveMoney(cid,value) == TRUE then
			selfSay('Alright, we have added the amount of '..value..' gold to your balance. You can withdraw your money anytime you want to.')
			setPlayerStorageValue(cid, storage, balance + value)
	else
			selfSay('You do not have enough gold.')
	end

end

function transfer(cid, value, xid)
local storage = 666
local balanceEu = getPlayerStorageValue(cid, storage)
local balanceEle = getPlayerStorageValue(xid, storage)

if value <= 0 then
	selfSay('You cannot transfer illegal values.')
elseif balanceEu >= value then
	setPlayerStorageValue(cid, storage, balanceEu - value)
	setPlayerStorageValue(xid, storage, balanceEle + value)
	selfSay('Alright, we have transfered the amount of '..value..' gold from your balance to '..NomeDele..' balance.')
	doPlayerSendTextMessage(xid,4,'OT Bank System : '..getPlayerName(cid)..' transfered the amount of '..value..' gold to your balance.')
	selfSay(getPlayerName(xid)..' received confirmation about transfer.')
else
	selfSay('You do not have enough gold.')
end
end

function doPlayerGetMoney(cid)
local gold = getPlayerItemCount(cid,2148)
local platinum = getPlayerItemCount(cid,2152)
local crystal = getPlayerItemCount(cid,2160)
local total = gold + (platinum*100) + (crystal*10000)
return total
end

Caso não tenha , incluir no FIM do arquivo.

 

A grana fica guardada no Storage 666

Caso esse número já esteja sendo usado , substituir.

 

UpDates

Acharam um erro que foge à minha compreensão

Numa parte que nem é minha.

Eu só usei um recurso que JÁ VEM NO SERVER

 

Aqui : data\npc\scripts\lib\npc.lua <--- Já vem pronto no server

Estava assim :

		elseif doPlayerRemoveMoney(cid,value) then

Troquei por :

		elseif doPlayerRemoveMoney(cid,value) == TRUE then

Não entendi porque esse erro, mas o player depositava grana mesmo sem ter o valor.

 

TRANSFER

Função TRANSFER adicionada

sem os comandos de IO-OPEN só posso fazer TRANSFER pra player on-line

 

o player que ganhou esse TRANFER recebe a mensagem que houve uma transferência da grana para a conta dele.

Editado Janeiro 18, 2008 por Conde Sapo

[SephyrotSin 0]

Não tenho nada pra dizer além de:

Muito BOM... Não... "Muito BOM" não... ÓTIMO tutorial!!

[thayam 0]

Assino em Baxo Nero

Ta muito bom aleluia um que funcione certinho, Conde vc é o cara mano

Na minha opnião vc merece um cargo maior nesse forum, pois vc ajuda e manja muito

Aprovado Parabens

[Conde Sapo 4]

  thayam disse:

Na minha opnião vc merece um cargo maior nesse forum,

AhuheUahuE

 

Brigadúúúú pelo carinho.

 

Quem tem cargo , tem que manter a postura.

Sem cargo eu posso falar mal dos outros.

 

Prefiro poder falar mal dos outros.

Aewwwwwwww.

 

 

 

Falei isto em outro tópico

  Conde Sapo disse:

Tenho dó dos moderadores que veem coisas assim todos os dias

mas tem que manter a postura.

Não quero levar esta Cruz. É muito pesada.........

 

Editado Outubro 9, 2007 por Conde Sapo

[thayam 0]

  Conde Sapo disse:

AhuheUahuE

 

Brigadúúúú pelo carinho.

 

Quem tem cargo , tem que manter a postura.

Sem cargo eu posso falar mal dos outros.

 

Prefiro poder falar mal dos outros.

 

SHAUShuaHSuh.

Poder Falar mal dos outros é bom sim, concordo plenamente com vc.

Mais vai falar que vc não gostaria dum cargo maior??

xP

Abraços ae

[GODFakezin 1]

BOM! Outros Npc's desses que eu vi em outros tutoriais. sempre com algum defeito!

 

Agora ele foi reformado com sucesso!

 

Cya.

 

 

Anteciosamente: GoD Fakezin

Editado Outubro 9, 2007 por GODFakezin

[spot123123 0]

Testei Aki

 

Funciono Tudo certinho

 

Cya~~

[BlackHero 0]

Parabéns Conde Sapo, depois eu tentei fazer sem as funções <io>, mais não consegui e fiquei pouco tempo no pc

Mas parabéns, vai ajudar muita gente que não conseguiu colocar em seu ot.

Por mim: APROVADISSÍMO

Abraços.

Editado Outubro 10, 2007 por BlackHero

[Jvchequer 63]

Olá Xtibiano,

 

Parabéns, o tópico está ótimo.

 

Mais está na seção errada.

 

 

Tópico Movido.

 

 

Atenciosamente,

JV Chequer *Diretor de Fórum Xtibia.com*

[danilo9317 3]

Ja vou colocar no meu Ot =]

[danilo9317 3]

Cara Tipo aki no meu ot quando a pessoa n tem o dinheiro pra depositar ele deposita do mesmo jeito oO como arrumo?

[Conde Sapo 4]

  danilo9317 disse:

Cara Tipo aki no meu ot quando a pessoa n tem o dinheiro pra depositar ele deposita do mesmo jeito oO como arrumo?

Tem um erro que foge a minha compreensão...

 

é numa parte que JÁ VEM NO SERVER

 

Não é minha... só aproveitei um recurso que já existia.

 

Neste lugar aqui : data\npc\scripts\lib\npc.lua

Esse arquivo é do SERVER.

 

No lugar disto :

		elseif doPlayerRemoveMoney(cid,value) then

 

Colocar isto :

		elseif doPlayerRemoveMoney(cid,value) == TRUE then

 

Já acertei no tutorial.

 

Vlw pela dica.

 

Mandei PM pra todos que responderam neste tutorial

Quem pegou o banqueiro e nem falou nada , talvez esteja com o BUG ainda.

 

Cópia da mensagem enviada :

  Citar

Estou enviando esta mensagem a TODOS que responderam no meu tutorial do NPC Banqueiro

 

Npc Banqueiro, sem IO.Open <-- Clicar

 

Acharam um erro que foge à minha compreensão

Acertei lá

 

Desculpa se causei algum dano em seu SERVER

 

[ ]s

Editado Janeiro 18, 2008 por Conde Sapo

[4291226 0]

Alguns Npc Seus Vem com a Seguinte Funçao Se Posso chamar assim:

 

 

  Citar

local keywordHandler = KeywordHandler:new()

local npcHandler = NpcHandler:new(keywordHandler)

 

Essas Coisa Dao erro no meu Ot ..

 

Help Me :_

[Felipe Moraes 151]

bem legal rapaz...

realmente, mtus npcs banqueiros dao algum bug...

parabens ae

[Conde Sapo 4]

  Lord Lolzao disse:

  Citar

local keywordHandler = KeywordHandler:new()

local npcHandler = NpcHandler:new(keywordHandler)

Essas Coisa Dao erro no meu Ot ..

 

São comandos do sistema JIDDO de NPCs

Se você não tem JIDDO não vai funcionar.

 

 

-- This file is part of Jiddo's advanced NpcSystem v3.0x. This npcsystem is free to use by anyone, for any purpuse. 
-- Initial release date: 2007-02-21
-- Credits: Jiddo, honux(I'm using a modified version of his Find function).
-- Please include full credits whereever you use this system, or parts of it.
-- For support, questions and updates, please consult the following thread:
-- http://otfans.net/showthread.php?t=67810

 

Boa Sorte

:smile_positivo: