[8.21]dark Rodo Com Novo Sistema De Venda

Por delton, 19 de ago. de 2008 em NPCs, monsters e raids

script

3.7k

deltonEx-XtibianDVisconde

info

Grupo: Visconde

Registrado: 16/11/07

Posts: 389

Reputação: +6

Gênero: Masculino

Char no Tibia: Tiger Darm

19 de agosto de 2008 às 00:18

Vá na pasta data de seu ot dps npc e copia um npc depois renomeie ele para Darok Rodo.

Depois dentro dele coloque isso:

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Dark Rodo" script="data/npc/scripts/runes1.lua" walkinterval="2000" floorchange="0">
<health now="100" max="100"/>
<look type="289" head="140" body="64" legs="121" feet="76" addons="3"/>
</npc>

Após ter feito isso va na pasta scripts e copie um script e renomeie ele para runes1.lua, depois coloque isso dentro dele:

local focuses = {}
local function isFocused(cid)

for i, v in pairs(focuses) do

if(v == cid) then

return true

end

end

return false

end

local function addFocus(cid)

if(not isFocused(cid)) then

table.insert(focuses, cid)

end

end

local function removeFocus(cid)

for i, v in pairs(focuses) do

if(v == cid) then

table.remove(focuses, i)

break

end

end

end

local function lookAtFocus()

for i, v in pairs(focuses) do

if(isPlayer(v) == TRUE) then

doNpcSetCreatureFocus(v)

return

end

end

doNpcSetCreatureFocus(0)

end

local itemWindow = {

{id=2268, subtype=0, buy=215, sell=0},

{id=2273, subtype=0, buy=100, sell=0},

{id=2313, subtype=0, buy=125, sell=0},

{id=2304, subtype=0, buy=125, sell=0},

{id=8828, subtype=0, buy=22000, sell=0},

{id=2187, subtype=0, buy=15000, sell=0},

{id=2188, subtype=0, buy=5000, sell=0},

{id=8827, subtype=0, buy=7500, sell=0},

{id=8826, subtype=0, buy=18000, sell=0},

{id=2189, subtype=0, buy=10000, sell=0},

{id=2190, subtype=0, buy=500, sell=0},

{id=2191, subtype=0, buy=1000, sell=0},

{id=2274, subtype=0, buy=100, sell=0},

{id=8817, subtype=0, buy=750, sell=0},

{id=8816, subtype=0, buy=22000, sell=0},

{id=2183, subtype=0, buy=15000, sell=0},

{id=2181, subtype=0, buy=10000, sell=0},

{id=2182, subtype=0, buy=500, sell=0},

{id=2185, subtype=0, buy=5000, sell=0},

{id=2186, subtype=0, buy=1000, sell=0},

{id=8818, subtype=0, buy=18000, sell=0},

{id=8377, subtype=0, buy=310, sell=0},

{id=7591, subtype=0, buy=190, sell=0},

{id=7588, subtype=0, buy=100, sell=0},

{id=7618, subtype=0, buy=45, sell=0},

{id=8376, subtype=0, buy=190, sell=0},

{id=7590, subtype=0, buy=120, sell=0},

{id=7589, subtype=0, buy=80, sell=0},

{id=7620, subtype=0, buy=50, sell=0},

{id=2163, subtype=0, buy=500, sell=0},

{id=2311, subtype=0, buy=300, sell=0},

{id=2260, subtype=0, buy=10, sell=0}

}

local items = {}

for _, item in ipairs(itemWindow) do

items[item.id] = {buyPrice = item.buy, sellPrice = item.sell, subtype = item.subtype}

end

local function getPlayerMoney(cid)

return ((getPlayerItemCount(cid, 2160) * 10000) +

(getPlayerItemCount(cid, 2152) * 100) +

getPlayerItemCount(cid, 2148))

end

local onBuy = function(cid, item, subtype, amount)

if(items[item] == nil) then

selfSay("Ehm.. sorry... this shouldn't be there, I'm not selling it.", cid)

return

end

if(getPlayerMoney(cid) >= amount*items[item].buyPrice) then

local itemz, i = doPlayerAddItem(cid, item, subtype, amount)

if(i < amount) then

if(i == 0) then

selfSay("Sorry, but you don't have space to take it.", cid)

else

selfSay("I've sold some for you, but it seems you can't carry more than this. I won't take more money than necessary.", cid)

doPlayerRemoveMoney(cid, i*items[item].buyPrice)

end

else

selfSay("Thanks for the money!", cid)

doPlayerRemoveMoney(cid, amount*items[item].buyPrice)

end

else

selfSay("You don't have money.", cid)

end

end

local onSell = function(cid, item, subtype, amount)

if(items[item] == nil) then

selfSay("Ehm.. sorry... this shouldn't be there, I'm not buying it.", cid)

end

if(subtype < 1) then

subtype = -1

end

if(doPlayerRemoveItem(cid, item, amount, subtype) == TRUE) then

doPlayerAddMoney(cid, items[item].sellPrice*amount)

selfSay("Here you are.", cid)

else

selfSay("No item, no deal.", cid)

end

end

function onCreatureAppear(cid)

end

function onCreatureDisappear(cid)

if(isFocused(cid)) then

selfSay("Hmph!")

removeFocus(cid)

if(isPlayer(cid) == TRUE) then --Be sure he's online

closeShopWindow(cid)

end

end

end

function onCreatureSay(cid, type, msg)

if((msg == "hi") and not (isFocused(cid))) then

selfSay("Welcome, ".. getCreatureName(cid) ..".", cid, TRUE)

selfSay("I sell all types {runes}?", cid)

addFocus(cid)

elseif((isFocused(cid)) and (msg == "runes" or msg == "trade")) then

selfSay("Pretty nice, right?", cid)

openShopWindow(cid, itemWindow, onBuy, onSell)

elseif((isFocused(cid)) and (msg == "bye" or msg == "goodbye" or msg == "cya")) then

selfSay("Goodbye!", cid, TRUE)

closeShopWindow(cid)

removeFocus(cid)

end

end

function onPlayerCloseChannel(cid)

if(isFocused(cid)) then

selfSay("Hmph!")

closeShopWindow(cid)

removeFocus(cid)

end

end

function onPlayerEndTrade(cid)

selfSay("It was a pleasure doing business with you.", cid)

end

function onThink()

for i, focus in pairs(focuses) do

if(isCreature(focus) == FALSE) then

removeFocus(focus)

else

local distance = getDistanceTo(focus) or -1

if((distance > 4) or (distance == -1)) then

selfSay("Hmph!")

closeShopWindow(focus)

removeFocus(focus)

end

end

end

lookAtFocus()

end

OBS: Onde está em Vermelho é os itens que ele vende e onde está em azul é o que vc prescisa dizer para que apareça a janela dos itens....

Caso vc queira que o npc venda itens coloque isso (OBS está em Negrito)

{id=2268, subtype=0, buy=215, sell=0},
{id=2273, subtype=0, buy=100, sell=0},

{id=2313, subtype=0, buy=125, sell=0},

{id=2304, subtype=0, buy=125, sell=0},

{id=8828, subtype=0, buy=22000, sell=0},

{id=2187, subtype=0, buy=15000, sell=0},

{id=2188, subtype=0, buy=5000, sell=0},

{id=8827, subtype=0, buy=7500, sell=0},

{id=8826, subtype=0, buy=18000, sell=0},

{id=2189, subtype=0, buy=10000, sell=0},

{id=2190, subtype=0, buy=500, sell=0},

{id=2191, subtype=0, buy=1000, sell=0},

{id=2274, subtype=0, buy=100, sell=0},

{id=8817, subtype=0, buy=750, sell=0},

{id=8816, subtype=0, buy=22000, sell=0},

{id=2183, subtype=0, buy=15000, sell=0},

{id=2181, subtype=0, buy=10000, sell=0},

{id=2182, subtype=0, buy=500, sell=0},

{id=2185, subtype=0, buy=5000, sell=0},

{id=2186, subtype=0, buy=1000, sell=0},

{id=8818, subtype=0, buy=18000, sell=0},

{id=8377, subtype=0, buy=310, sell=0},

{id=7591, subtype=0, buy=190, sell=0},

{id=7588, subtype=0, buy=100, sell=0},

{id=7618, subtype=0, buy=45, sell=0},

{id=8376, subtype=0, buy=190, sell=0},

{id=7590, subtype=0, buy=120, sell=0},

{id=7589, subtype=0, buy=80, sell=0},

{id=7620, subtype=0, buy=50, sell=0},

{id=2163, subtype=0, buy=500, sell=0},

{id=2311, subtype=0, buy=300, sell=0},

{id=2260, subtype=0, buy=10, sell=0},

{id=7634, subtype=0, sell=5, buy=0}

}

É um exemplo do Empty Strong Potion

Crédits:

80% Eu

20% Sibuna

Editado Agosto 19 por delton

TulioXD35 TCampones

info

Grupo: Campones

Registrado: 18/03/08

Posts: 28

Reputação: +1

19 de agosto de 2008 às 17:29

cara,eu moro em turmalina,e ai pertinho de minas novas ^^

daki um dia agente ate se ve por la

Dare DevilEx-Coordenador de ImprensaDHerói Herói

info

Grupo: Herói

Registrado: 27/06/07

Posts: 598

Reputação: +8

Gênero: Masculino

19 de agosto de 2008 às 17:39

cara,eu moro em turmalina,e ai pertinho de minas novas ^^

daki um dia agente ate se ve por la

Amigo posts sem sentido com o que é abordado no tópico,

é considerado flood.

Tópico encaminhado a Moderação~

Atenciosamente,

Dare Devil

lastsouls LConde Conde

info

Grupo: Conde

Registrado: 13/12/07

Posts: 628

Reputação: +31

19 de agosto de 2008 às 18:24

#TulioAC,

Evite esse tipo de comentários.

Da proxima será alertado.

Notificado via PM.

deltonEx-XtibianDVisconde

info

Grupo: Visconde

Registrado: 16/11/07

Posts: 389

Reputação: +6

Gênero: Masculino

Char no Tibia: Tiger Darm

19 de agosto de 2008 às 20:42

???

TulioAC eu nem moro nessa cidade o.O

Deragon DBanidos Banidos

info

Grupo: Banidos

Registrado: 29/06/08

Posts: 65

Reputação: 0

19 de agosto de 2008 às 21:28

creditos a simone por desenvolver o primeiro e voce apenas editar ;D

tem o tiozinho q eh de guild e de premiu/promo ?

heimond HCampones

info

Grupo: Campones

Registrado: 19/08/07

Posts: 90

Reputação: 0

20 de agosto de 2008 às 15:57

Tipo, eu compro a coisa mas ele n tira a grana do meu char, isso ta "zuado", tem q arruma.Savvy?

deltonEx-XtibianDVisconde

info

Grupo: Visconde

Registrado: 16/11/07

Posts: 389

Reputação: +6

Gênero: Masculino

Char no Tibia: Tiger Darm

21 de agosto de 2008 às 21:39

BUG ARRUMADO!!!

Ta ae o Script

local focuses = {}
local function isFocused(cid)

for i, v in pairs(focuses) do

if(v == cid) then

return true

end

end

return false

end

local function addFocus(cid)

if(not isFocused(cid)) then

table.insert(focuses, cid)

end

end

local function removeFocus(cid)

for i, v in pairs(focuses) do

if(v == cid) then

table.remove(focuses, i)

break

end

end

end

local function lookAtFocus()

for i, v in pairs(focuses) do

if(isPlayer(v) == TRUE) then

doNpcSetCreatureFocus(v)

return

end

end

doNpcSetCreatureFocus(0)

end

local itemWindow = {

{id=2268, subtype=0, buy=215, sell=0},

{id=2273, subtype=0, buy=100, sell=0},

{id=2313, subtype=0, buy=125, sell=0},

{id=2304, subtype=0, buy=125, sell=0},

{id=8828, subtype=0, buy=22000, sell=0},

{id=2187, subtype=0, buy=15000, sell=0},

{id=2188, subtype=0, buy=5000, sell=0},

{id=8827, subtype=0, buy=7500, sell=0},

{id=8826, subtype=0, buy=18000, sell=0},

{id=2189, subtype=0, buy=10000, sell=0},

{id=2190, subtype=0, buy=500, sell=0},

{id=2191, subtype=0, buy=1000, sell=0},

{id=2274, subtype=0, buy=100, sell=0},

{id=8817, subtype=0, buy=750, sell=0},

{id=8816, subtype=0, buy=22000, sell=0},

{id=2183, subtype=0, buy=15000, sell=0},

{id=2181, subtype=0, buy=10000, sell=0},

{id=2182, subtype=0, buy=500, sell=0},

{id=2185, subtype=0, buy=5000, sell=0},

{id=2186, subtype=0, buy=1000, sell=0},

{id=8818, subtype=0, buy=18000, sell=0},

{id=8377, subtype=0, buy=310, sell=0},

{id=7591, subtype=0, buy=190, sell=0},

{id=7588, subtype=0, buy=100, sell=0},

{id=7618, subtype=0, buy=45, sell=0},

{id=8376, subtype=0, buy=190, sell=0},

{id=7590, subtype=0, buy=120, sell=0},

{id=7589, subtype=0, buy=80, sell=0},

{id=7620, subtype=0, buy=50, sell=0},

{id=2163, subtype=0, buy=500, sell=0},

{id=2311, subtype=0, buy=300, sell=0},

{id=2260, subtype=0, buy=10, sell=0},

{id=7634, subtype=0, sell=5, buy=0}

}

local items = {}

for _, item in ipairs(itemWindow) do

items[item.id] = {buyPrice = item.buy, sellPrice = item.sell, subtype = item.subtype}

end

local function getPlayerMoney(cid)

return ((getPlayerItemCount(cid, 2160) * 10000) +

(getPlayerItemCount(cid, 2152) * 100) +

getPlayerItemCount(cid, 2148))

end

local onBuy = function(cid, item, subtype, amount)

if(items[item] == nil) then

selfSay("Ehm.. sorry... this shouldn't be there, I'm not selling it.", cid)

return

end

if(getPlayerMoney(cid) >= amount*items[item].buyPrice) then

local itemz, i = doPlayerAddItem(cid, item, subtype, amount)

if(amount) then

if(i == 0) then

selfSay("Sorry, but you don't have space to take it.", cid)

else

selfSay("I've sold some for you, but it seems you can't carry more than this. I won't take more money than necessary.", cid)

doPlayerRemoveMoney(cid, amount*items[item].buyPrice)

end

else

selfSay("Thanks for the money!", cid)

doPlayerRemoveMoney(cid, amount*items[item].buyPrice)

end

else

selfSay("You don't have money.", cid)

end

end

local onSell = function(cid, item, subtype, amount)

if(items[item] == nil) then

selfSay("Ehm.. sorry... this shouldn't be there, I'm not buying it.", cid)

end

if(subtype < 1) then

subtype = -1

end

if(doPlayerRemoveItem(cid, item, amount, subtype) == TRUE) then

doPlayerAddMoney(cid, items[item].sellPrice*amount)

selfSay("Here you are.", cid)

else

selfSay("No item, no deal.", cid)

end

end

function onCreatureAppear(cid)

end

function onCreatureDisappear(cid)

if(isFocused(cid)) then

selfSay("Hmph!")

removeFocus(cid)

if(isPlayer(cid) == TRUE) then --Be sure he's online

closeShopWindow(cid)

end

end

end

function onCreatureSay(cid, type, msg)

if((msg == "hi") and not (isFocused(cid))) then

selfSay("Welcome, ".. getCreatureName(cid) ..".", cid, TRUE)

selfSay("eu vendo todo tipo de {runes}!", cid)

addFocus(cid)

elseif((isFocused(cid)) and (msg == "runes" or msg == "trade")) then

selfSay("Pretty nice, right?", cid)

openShopWindow(cid, itemWindow, onBuy, onSell)

elseif((isFocused(cid)) and (msg == "bye" or msg == "good bye" or msg == "cya")) then

selfSay("Good bye!", cid, TRUE)

closeShopWindow(cid)

removeFocus(cid)

end

end

function onPlayerCloseChannel(cid)

if(isFocused(cid)) then

selfSay("Hmph!")

closeShopWindow(cid)

removeFocus(cid)

end

end

function onPlayerEndTrade(cid)

selfSay("It was a pleasure doing business with you.", cid)

end

function onThink()

for i, focus in pairs(focuses) do

if(isCreature(focus) == FALSE) then

removeFocus(focus)

else

local distance = getDistanceTo(focus) or -1

if((distance > 4) or (distance == -1)) then

selfSay("Hmph!")

closeShopWindow(focus)

removeFocus(focus)

end

end

end

lookAtFocus()

end

Flwss

heimond HCampones

info

Grupo: Campones

Registrado: 19/08/07

Posts: 90

Reputação: 0

22 de agosto de 2008 às 13:29

Cara, vc ajudo muito agora, vlw.Savvy?

deltonEx-XtibianDVisconde

info

Grupo: Visconde

Registrado: 16/11/07

Posts: 389

Reputação: +6

Gênero: Masculino

Char no Tibia: Tiger Darm

22 de agosto de 2008 às 18:00

Meu thyrania 8.22 e 8.21 tah completo....

Vo bota on sabado ele tah todo em 8.21 e 8.22

charleschaleronCall Are You!!!CBarão Barão

info

Grupo: Barão

Registrado: 05/01/08

Posts: 226

Reputação: 0

Char no Tibia: Brahamus

22 de agosto de 2008 às 19:02

ow se pode ajuda ai o dark rodo naun ta vendendo runas quando eu vo para comprar

se puder ai ajudar

grato pela compreenção.

flws

decion DCampones

info

Grupo: Campones

Registrado: 02/09/07

Posts: 19

Reputação: 0

25 de agosto de 2008 às 18:09

é aqui ta dando problema tambem

[25/08/2008 18:09:06] Lua Script Error: [Npc interface]

[25/08/2008 18:09:06] (Unknown scriptfile)

[25/08/2008 18:09:06] data/npc/scripts/runes.lua:87: attempt to compare nil with number

[25/08/2008 18:09:06] stack traceback:

[25/08/2008 18:09:06] data/npc/scripts/runes.lua:87: in function <data/npc/scripts/runes.lua:79>

zimbitubaCrystal Server FounderZConde Conde

info

Grupo: Conde

Registrado: 19/01/08

Posts: 704

Reputação: +17

Char no Tibia: Atera Knight

26 de agosto de 2008 às 09:30

este fácil, mas ultil ^^

parabéns ai

teria como você me passar o npc de travel?

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

edite

eu achei bug bug nesses npc 8.2...

Tipo eles não dão dinheiro acima de 10k ou 100 gps

exemplo:

NPC que compra os items... o player vai vender por 20k e o npc paga só 10k

tem como você arrumar isto?

Editado Agosto 26 por Shynzo

1 mês depois...

SlinixThe Slinix ® TCS DeveloperSCampones

info

Grupo: Campones

Registrado: 19/04/08

Posts: 53

Reputação: +1

Char no Tibia: Akilles Palyy

14 de setembro de 2008 às 08:25

Pow , Parabens , Só tem um problema , se o NPC estiver em minha tela (na regiao da screen no tibia) e eu falar hi , ele falara comigo , n importa odne eu esteja , ai se tem 4 npc juntos ( com esse jeito de npc sistem ) eu falo HI ai todos els falam comigo , ai falo trade ou a palavra , + o trade ali do lado abre e fexa , só quandoe stão em mais de 1 npc , resumindo , se arrumar esse problema minha nota é 10 , caso não nota 8 , Vlw

Edit...

nao ta dando pra conpra ele nao me vende ele fala assim

09:12 Dark Rodo: Welcome, TheDark.
09:12 Dark Rodo: eu vendo todo tipo de runes!
09:12 TheDark [9]: runes
09:12 Dark Rodo: Pretty nice, right?
09:12 Dark Rodo: Sorry, but you don't have space to take it.
09:13 Dark Rodo: Sorry, but you don't have space to take it.
09:13 Dark Rodo: Sorry, but you don't have space to take it.
09:13 Dark Rodo: Sorry, but you don't have space to take it.
09:13 Dark Rodo: Sorry, but you don't have space to take it.

me ajuda ai Ty =)

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

é por que voce não tem espaço na BP ....

EDIT...

Eu peguei o otro escrit e blz , agr ele me tira o dinheiro quando compro , + quando vendo n ganho nada -.-

Editado Setembro 14 por Slinix

1 mês depois...

satan666Antichrist SuperstarSConde Conde

info

Grupo: Conde

Registrado: 07/05/08

Posts: 612

Reputação: +12

Char no Tibia: leviana luciferiana

07 de outubro de 2008 às 14:51

vou da uma edeia aki teste tudo antes de posta pra n dar mais erro.