Otserver Poketibia - Baixe aqui! By: Meu amigo OtStriker. Esse ai ta mais Editado que o outro que ele postou antes.
É simples colocar um npc que vende pokebolas.
Vou te explicar.
Fiz esse npc.
local focus = 0
local talk_start = 0
local target = 0
local following = false
local attacking = false
function onThingMove(creature, thing, oldpos, oldstackpos)
end
function onCreatureAppear(creature)
end
function onCreatureDisappear(cid, pos)
if focus == cid then
selfSay('Adeus.')
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('Olá, ' .. creatureGetName(cid) .. '! Eu vendo Pokémons, diga {pokes}.')
focus = cid
talk_start = os.clock()
elseif msgcontains(msg, 'hi') and (focus ~= cid) and getDistanceToCreature(cid) < 4 then
selfSay('Eeee, ' .. creatureGetName(cid) .. '! Deixa de ser sem educação, estou falando com outro agora.')
elseif focus == cid then
talk_start = os.clock()
if msgcontains(msg, 'pokes') then
buy(cid,2149,getCount(msg),100)
elseif msgcontains(msg, 'pokis') then
buy(cid,2149,getCount(msg),100)
elseif msgcontains(msg, 'pokebola') or msgcontains(msg, 'poke') then
buy(cid,2149,getCount(msg),100)
elseif msgcontains(msg, 'bolinha') then
buy(cid,2580,getCount(msg),100)
elseif msgcontains(msg, 'bola') then
buy(cid,2050,getCount(msg),2)
elseif msgcontains(msg, 'pokemon') then
buy(cid,2173,getCount(msg),10000)
elseif msgcontains(msg, 'bye') and getDistanceToCreature(cid) < 4 then
selfSay('Adeus, ' .. creatureGetName(cid) .. '!')
focus = 0
talk_start = 0
end
end
end
function onCreatureChangeOutfit(creature)
end
function onThink()
if (os.clock() - talk_start) > 30 then
if focus > 0 then
selfSay('Proximo...')
end
focus = 0
end
if focus ~= 0 then
if getDistanceToCreature(focus) > 5 then
selfSay('Adeus...')
focus = 0
end
end
end
Você pode apenas editar um npc seu que vende qualquer coisa.
Nessa parte:
if msgcontains(msg, 'pokes') then buy(cid,2149,getCount(msg),100)
elseif msgcontains(msg, 'pokis') then
buy(cid,2149,getCount(msg),100)
elseif msgcontains(msg, 'pokebola') or msgcontains(msg, 'poke') then
buy(cid,2149,getCount(msg),100)
elseif msgcontains(msg, 'bolinha') then
buy(cid,2580,getCount(msg),100)
elseif msgcontains(msg, 'bola') then
buy(cid,2050,getCount(msg),100)
elseif msgcontains(msg, 'pokemon') then
buy(cid,2173,getCount(msg),100)
Laranja: Fala do player, quando ele digitar essa mensagem compra o pokemon.
Vermelho: Id da pokebola usada no Go/Back, para sumonar ou dessumonar o pokemon. Você pode usarid de outros itens se não quiser vender só pokebolas.
Azul: Preço em GPS 100 = 1
Se quiser colocar mais coisas para serem vendidas, copie essa parte:
elseif msgcontains(msg, 'pokemon') then buy(cid,2173,getCount(msg),10000)
E cole em baixo dessas:
if msgcontains(msg, 'pokes') then buy(cid,2149,getCount(msg),100)
elseif msgcontains(msg, 'pokis') then
buy(cid,2149,getCount(msg),100)
elseif msgcontains(msg, 'pokebola') or msgcontains(msg, 'poke') then
buy(cid,2149,getCount(msg),100)
elseif msgcontains(msg, 'bolinha') then
buy(cid,2580,getCount(msg),100)
elseif msgcontains(msg, 'bola') then
buy(cid,2050,getCount(msg),2)
elseif msgcontains(msg, 'pokemon') then
buy(cid,2173,getCount(msg),10000)
Salve, feche e vejase o npc funcionou.
Ajudei? Me ajude também! Clique no + ali em baixo.
Abraços.
bem ali do lado, por favor.
