[Encerrado] [Pokemon] Dúvidas? - Pda

[kois 22]

Alquem ae tem Npc q TROKA cassino Coins por Pokemon

 

 

local keywordHandler = KeywordHandler:new()

local npcHandler = NpcHandler:new(keywordHandler)

NpcSystem.parseParameters(npcHandler)

local talkState = {}

 

function doBuyPokemonWithCasinoCoins(cid, poke) npcHandler:onSellpokemon(cid) end

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

 

 

 

if msgcontains(msg, 'pokemon') then

selfSay("Hello ".. getCreatureName(cid) .. ", I have two Pokemons to choose one among them, {Eevee} and {Porygon}, which would you choose? ", cid)

talkState[cid] = 1

end

 

if (msgcontains(msg, 'Eevee') or msgcontains(msg, 'eevee')) and talkState[cid] == 1 then

selfSay("Are you sure you want an Eevee?", cid)

talkState[cid] = 2

elseif (msgcontains(msg, 'nao') or msgcontains(msg, 'no')) and talkState[cid] == 2 then

selfSay("Did not like this choice? You can choose one {Porygon} too.", cid)

talkState[cid] = 1

elseif (msgcontains(msg, 'sim') or msgcontains(msg, 'yes')) and talkState[cid] == 2 then

local pokemon = Eevee

if pokemon == "" then return true end

 

local gender = getRandomGenderByName(pokemon)

local mypoke = getPokemonStatus(pokemon)

 

if not mypoke then return true end

local level = 5

local extrastr = 1.5

local btype = "normal"

local offense = mypoke.off * level * extrastr

local defense = mypoke.def * level * extrastr

local speed = mypoke.agi * level * extrastr

local vit = mypoke.vit * level * extrastr

local spatk = mypoke.spatk * level * extrastr

local happy = 180

local leveltable = getPokemonExperienceTable(pokemon)

 

 

local item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", pokemon)

doItemSetAttribute(item, "hp", 1)

doItemSetAttribute(item, "level", level)

doItemSetAttribute(item, "exp", leveltable[level])

doItemSetAttribute(item, "nextlevelexp", leveltable[level+1] - leveltable[level])

doItemSetAttribute(item, "offense", offense)

doItemSetAttribute(item, "defense", defense)

doItemSetAttribute(item, "speed", speed)

doItemSetAttribute(item, "vitality", vit)

doItemSetAttribute(item, "specialattack", spatk)

doItemSetAttribute(item, "happy", happy)

doItemSetAttribute(item, "gender", gender)

doItemSetAttribute(item, "description", "Contains a "..pokemon..".")

doItemSetAttribute(item, "fakedesc", "Contains a "..pokemon..".")

doPlayerAddItemEx(cid, item, true)

 

doTransformItem(item, pokeballs[btype].on)

setPlayerStorageValue(cid, 23254, getPlayerStorageValue(cid, 23254) - 22000)

selfSay("Here you are! You have just bought an Eevee for 22000 casino coins!", cid)

talkState[cid] = 0

end

 

if (msgcontains(msg, 'Porygon') or msgcontains(msg, 'porygon')) and talkState[cid] == 1 then

selfSay("Are you sure you want a porygon?", cid)

talkState[cid] = 3

elseif (msgcontains(msg, 'nao') or msgcontains(msg, 'no')) and talkState[cid] == 3 then

selfSay("Did not like his choice? You can choose a {Eevee} too.", cid)

talkState[cid] = 1

elseif (msgcontains(msg, 'sim') or msgcontains(msg, 'yes')) and talkState[cid] == 3 then

local pokemon1 = Porygon

if pokemon1 == "" then return true end

 

local gender = getRandomGenderByName(pokemon1)

local mypoke = getPokemonStatus(pokemon1)

 

if not mypoke then return true end

local level = 5

local extrastr = 1.5

local btype = "normal"

local offense = mypoke.off * level * extrastr

local defense = mypoke.def * level * extrastr

local speed = mypoke.agi * level * extrastr

local vit = mypoke.vit * level * extrastr

local spatk = mypoke.spatk * level * extrastr

local happy = 180

local leveltable = getPokemonExperienceTable(pokemon1)

 

local item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", pokemon1)

doItemSetAttribute(item, "hp", 1)

doItemSetAttribute(item, "level", level)

doItemSetAttribute(item, "exp", leveltable[level])

doItemSetAttribute(item, "nextlevelexp", leveltable[level+1] - leveltable[level])

doItemSetAttribute(item, "offense", offense)

doItemSetAttribute(item, "defense", defense)

doItemSetAttribute(item, "speed", speed)

doItemSetAttribute(item, "vitality", vit)

doItemSetAttribute(item, "specialattack", spatk)

doItemSetAttribute(item, "happy", happy)

doItemSetAttribute(item, "gender", gender)

doItemSetAttribute(item, "description", "Contains a "..pokemon1..".")

doItemSetAttribute(item, "fakedesc", "Contains a "..pokemon1..".")

doPlayerAddItemEx(cid, item, true)

 

doTransformItem(item, pokeballs[btype].on)

setPlayerStorageValue(cid, 23254, getPlayerStorageValue(cid, 23255) - 45000)

selfSay("Here you are! You have just bought a Porygon for 45000 casino coins!",cid)

talkState[cid] = 0

end

 

end

npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)

npcHandler:addModule(FocusModule:new())

 

 

Esse Script q eu uso mais vc fala Hi/pokemon/nome do pokemon/dai ela nao fala mais nada e nao da o pokemon alquem me ajuda ae

Editado Março 10, 2012 por Kois

[Dudu08267 7]

'-' no otscript live ta dando isso kois

 

INFO: Starting OTScript Debug.lua

ERROR: Cópia de config.lua:1: attempt to index global 'KeywordHandler' (a nil value)

INFO: Stopping OTScript Debug.lua

 

não poderia ser nessa tal keywordHandler? '-'

Editado Março 10, 2012 por Dudu08267

[Slicer 1070]

@Dudu08267

isso da em qlqr script de npc..

 

@Kois

usa esse ^^ ja testei.. parece ta 100%...

eh.. achei uns problemas como o price do porygon e se o cara tivese 6 pokes sei la pra onde ia a ball.. mas ja corri.. entao se alguem ja tiver pego o npc.. por favor pegue denovo!

npc cassino, pokes por cassino coins... by kois, edited by me

 

 

local keywordHandler = KeywordHandler:new()

local npcHandler = NpcHandler:new(keywordHandler)

NpcSystem.parseParameters(npcHandler)

local talkState = {}

 

function doBuyPokemonWithCasinoCoins(cid, poke) npcHandler:onSellpokemon(cid) end

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 function buyPoke(cid, pokemon, price, lvl)

if pokemon == "" then return true end

 

local gender = getRandomGenderByName(pokemon)

local mypoke = getPokemonStatus(pokemon)

 

if not mypoke then return true end

local level = lvl

local extrastr = 1.5

local btype = "normal"

local offense = mypoke.off * level * extrastr

local defense = mypoke.def * level * extrastr

local speed = mypoke.agi * level * extrastr

local vit = mypoke.vit * level * extrastr

local spatk = mypoke.spatk * level * extrastr

local happy = 180

local leveltable = getPokemonExperienceTable(pokemon)

 

if getPlayerFreeCap(cid) >= 6 or getContainerSize(getPlayerSlotItem(cid, 3).uid) >= 18 then

item = doCreateItemEx(11826)

else

item = doAddContainerItem(getPlayerSlotItem(cid, 3).uid, 11826, 1)

end

 

doItemSetAttribute(item, "poke", pokemon)

doItemSetAttribute(item, "hp", 1)

doItemSetAttribute(item, "level", level)

doItemSetAttribute(item, "exp", leveltable[level])

doItemSetAttribute(item, "nextlevelexp", leveltable[level+1] - leveltable[level])

doItemSetAttribute(item, "offense", offense)

doItemSetAttribute(item, "defense", defense)

doItemSetAttribute(item, "speed", speed)

doItemSetAttribute(item, "vitality", vit)

doItemSetAttribute(item, "specialattack", spatk)

doItemSetAttribute(item, "happy", happy)

doItemSetAttribute(item, "gender", gender)

doItemSetAttribute(item, "description", "Contains a "..pokemon..".")

doItemSetAttribute(item, "fakedesc", "Contains a "..pokemon..".")

 

if getPlayerFreeCap(cid) >= 6 or getContainerSize(getPlayerSlotItem(cid, 3).uid) >= 18 then

doPlayerSendMailByName(getCreatureName(cid), item, 1)

end

setPlayerStorageValue(cid, 23254, getPlayerStorageValue(cid, 23254) - price)

end

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

 

if msgcontains(msg, 'pokemon') then

selfSay("Hello ".. getCreatureName(cid) .. ", I have two Pokemons to choose one among them, {Eevee} and {Porygon}, which would you choose? ", cid)

talkState[cid] = 1

 

elseif (msgcontains(msg, 'Eevee') or msgcontains(msg, 'eevee')) and talkState[cid] == 1 then

selfSay("Are you sure you want buy an Eevee for 22000 cassino coins?", cid)

talkState[cid] = 2

elseif (msgcontains(msg, 'Porygon') or msgcontains(msg, 'porygon')) and talkState[cid] == 1 then

selfSay("Are you sure you want buy an Porygon for 45000 cassino coins?", cid)

talkState[cid] = 3

 

elseif (msgcontains(msg, 'nao') or msgcontains(msg, 'no')) and talkState[cid] == 2 then

selfSay("Did not like this choice? You can choose one {Porygon} too.", cid)

talkState[cid] = 1

elseif (msgcontains(msg, 'nao') or msgcontains(msg, 'no')) and talkState[cid] == 3 then

selfSay("Did not like this choice? You can choose one {Eevee} too.", cid)

talkState[cid] = 1

 

elseif (msgcontains(msg, 'sim') or msgcontains(msg, 'yes')) and talkState[cid] == 2 then

if getPlayerStorageValue(cid, 23254) >= 22000 then

local pokemon = "Eevee"

local price = 22000

local lvl = 20

buyPoke(cid, pokemon, price, lvl)

selfSay("Here you are! You have just bought an "..pokemon.." for "..price.." casino coins!", cid)

talkState[cid] = 0

else

selfSay("You don't have enought cassino coins!", cid)

talkState[cid] = 0

end

 

elseif (msgcontains(msg, 'sim') or msgcontains(msg, 'yes')) and talkState[cid] == 3 then

if getPlayerStorageValue(cid, 23254) >= 45000 then

local pokemon = "Porygon"

local price = 45000

local lvl = 40

buyPoke(cid, pokemon, price, lvl)

selfSay("Here you are! You have just bought an "..pokemon.." for "..price.." casino coins!", cid)

talkState[cid] = 0

else

selfSay("You don't have enought cassino coins!", cid)

talkState[cid] = 0

end

end

 

end

npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)

npcHandler:addModule(FocusModule:new())

 

 

Editado Março 11, 2012 por Slicer

[ZeNit91 11]

O npc do Cassino ta bugado.

Vou tentar resolver aki depois posto a solucao para galera

[Roversinho 2]

alguém pode me ajuda toda ves que ponho online outras pessoas n conseguem logar apenas eu da error conection failed

[Slicer 1070]

@Zerons

bugado? expecifique.. pois em meus testes estava 100%..

lembrando q eh hi, pokemon, nome do poke, yes

[MarcosFraga 34]

@Zerons

bugado? expecifique.. pois em meus testes estava 100%..

lembrando q eh hi, pokemon, nome do poke, yes

100% funcional só tive que mecher no script da coin case pois o maximo permitido era 1000 coloquei 10.000 trocou pokemon normal e diminiui da case certinho.

Rep+

 

Quem estiver tentando com acc de god não vai ir pra bp mesmo com free cap vai direto pro CP.

Editado Março 11, 2012 por SoulOroshie

[Denuvo 71]

algen sabe dizer como poe 20% a mais de exp para players vips? ou se ja tem no server? obg rep+

[Slicer 1070]

@SoulOroshie

eh eh.. maldito GOD com full cap ;p

[SaikiSailed 0]

Como acomodo las fotos de pokes johtos en el Pokemon bar?

[ZeNit91 11]

@Zerons

bugado? expecifique.. pois em meus testes estava 100%..

lembrando q eh hi, pokemon, nome do poke, yes

@Zerons

bugado? expecifique.. pois em meus testes estava 100%..

lembrando q eh hi, pokemon, nome do poke, yes

100% funcional só tive que mecher no script da coin case pois o maximo permitido era 1000 coloquei 10.000 trocou pokemon normal e diminiui da case certinho.

Rep+

 

Quem estiver tentando com acc de god não vai ir pra bp mesmo com free cap vai direto pro CP.

 

mlz fata erro meu tava testado do kois --'

[fernandofw 2]

Me ajudem preciso de um um npc.

 

q tipo no meu ot tem cassino qdo ajente tiver 5000 pontos fala com o npc diz hi hitmonlee yes e ganha um hitmonlee e paga 5000 coin?

 

Podem colocar um script e colar aqui pra mim e o .lua tb?

[AlanWake 0]

Alguem ai pode postar o negocio das promotion que nem o da zeref se possivel vc zeref posta ai seu server, se nao ql a versao do server mais nova?

 

 

 

Rep+

[Denuvo 71]

como faço pra diminuir o rate da pesca tá mt rapido.. um kra no meu serve ja ta lvl 85 só pescando de ontem pra hj obg

[Slicer 1070]

@fernandinhobeiramar

mano volta uma pagina e pega o script q eu postei la e edita ele pra hitmonlee/chan.. n eh dificil.. ;x

 

@AlanWake

a versao mais nova eh a q ta na 1* pagina desse topico.. e duvido q ele poste a dele ^^

 

@ChuckNorris666

oia mano.. achu q o unico jeito de arruma isso eh na source... pq se tu coloca o minimo ainda vai upa muito rapido.. ;x deve ter como aumenta a qntdade de pnts q precisa pra upa 1 lvl de pesca na source sei la.. ou algu do genero.. ;x

 

detalhe.. no meu outro serv eu coloquei um math.random pra add pnt de fishing.. tpw.. dai no caso teria 30% chance de aumenta fishing.. dai ia upando mais lento.. mas vai de cada um neh.. ;x

if math.random(1, 100) <= 30 then
add pnt em fishing
end

Editado Março 11, 2012 por Slicer