wallnithac

Galera, estou aprendo lua faz pouco tempo e fiz um sisteminha simples de batalha, gostaria de saber se se tem como melhorar, fica ao para galera que puder me ajudar a aprender umas coizinhas novas boss = {} --tabela dos monstros boss[1] = {nome = "voce", hp = 10, atac = 4, def = 2,}; boss[2] = {nome = "deer", hp = 10, atac = 3, def = 1,}; boss[3] = {nome = "wolf", hp = 10, atac = 3, def = 2,}; print ("Teste de Consulta a tabela simples \nPara sair digite exit\n"); --explicao simples print ("Escolha um nome"); -- pedido de nome para personagem principal boss[1].nome = io.read(); -- atribui nome ao personagem while true do -- ciclo de comandos print ("\nComandos (ataque),(exit),(numero) \nExp:1"); --explicao detalhada x= io.read(); --pede valor de x para consulta de personagem e inimigos if x == "exit" then -- se digitado exit termina o programa print ("Fim da Consulta"); break; elseif x == "ataque" then -- entra no modo de ataque e imprimi os inimigos menos o personagem print ("Selecione um Alvo:"); for i = 2, #boss do print (i .. "\) " .. "boss: " .. boss[tonumber(i)].nome); -- rotorna o valor de todos os monstros end print ("Selecione um alvo: "); alvo = io.read(); -- seleciona um alvo if boss[tonumber(alvo)] == nil or boss[tonumber(alvo)].hp <= 0 then -- verifica se o valor é valido ou se o alvo ainda tem vida print ("Alvo morto ou invalido"); elseif boss[1].hp <= 0 then -- verifica se voce ainda tem vida, caso nao tenha dá break print ("Voce Está morto"); break; elseif alvo == "1" then -- verifica se voce está se atacando print ("Voce nao pode se atacar, sera direcionado ao inicio"); else boss[tonumber(alvo)].hp = boss[tonumber(alvo)].hp - (boss[1].atac - boss[tonumber(alvo)].def); -- calcula o dano no alvo e atribui em HP boss[1].hp = boss[1].hp - (boss[tonumber(alvo)].atac - boss[1].def); -- calcula o dano recebido no personagem e atribui no hp print ("Voce Atacou: " ..boss[tonumber(alvo)].nome .. " Dano: " .. boss[tonumber(alvo)].def - boss[1].atac .. " Vida Restante: " .. boss[tonumber(alvo)].hp); -- imprime informaçoes de batalha contra inimigos print (boss[tonumber(alvo)].nome .." te atacou" .. " Dano: " .. boss[tonumber(alvo)].atac - boss[1].def .. " Vida Restate: " .. boss[1].hp); -- imprime informaçoes de batalha contra o personagem print ("Tete atacar novamente!!"); -- iforma para voce atarcar novamente end else if tonumber(x) == nil or tonumber(x) > #boss then -- verifica se o valor de consulta é valido. print ("\nAlvo ou comando invalido"); else -- caso o valor de consulta seja valido ele busca na tabela boss print ("\nNome: "..boss[tonumber(x)].nome); print ("Vida: "..boss[tonumber(x)].hp .. " Ataque: " .. boss[tonumber(x)].atac .. " Defesa: " .. boss[tonumber(x)].def); end end end

isso mesmo vlw man =) esqueci desse pqno detalhe de tostring e tonumber vlw mesmo man

Duvida PQ quando tento fazer uma consulta simples ele Retor NILL creatures = {"deer", "rabbit", "minotaur", "ghoul", "orc"} print ("Teste de Consulta a tabela simples \nPara sair digite exit"); while true do x= io.read(); if x == "exit" then print ("Fim da Consulta"); break; else print (creatures[x]); end end

Assim... o portrait ele pucha um id que vc cria por item... na verdade a unica coisa que existe é o spr do item, o resto vc cria por script que puxa o spr identificar ele como item para utilizar apenas a imagem no lugar do spr da pokeball, então oque esta falatado é a informação dele em algum script da portrait, existe uma tabela onde vc add a portrait para o pokemon, verifique se ela esta correta com os ides, e lembrado nao é oq existe o spr do item no data que ele vai ler ele tem que estar definido no item.xml do server

Cara pelo oque eu entendi e vi no SCRIPT em geral que eu tenho aqui...nao é que tenha algum erro... mais uma duvida antes que eu continuar a passar oque eu entendi, isso acontece com todos os pokes ?

Corrigido... apague tudo do respaw.lua e cole isso local shinys = { "Venusaur", "Blastoise", "Butterfree", "Beedrill", "Pidgeot", "Rattata", "Raticate", "Raichu", "Golbat", "Paras", "Parasect", "Magmar", "Typhlosion", "Xatu", "Growlithe", "Arcanine", "Tentacruel", "Farfetch'd", "Gengar", "Krabby", "Tauros", "Kingler", "Cubone", "Horsea", "Seadra", "Weezing", "Scyther", "Pinsir", "Crobat", "Zubat", "Tentacool", "Feraligatr", "Machamp", "Meganium", "Alakazam", "Tangela", "Ampharos", "Electabuzz", "Jynx", "Charizard", "Voltorb", "Electrode"} local raros = {"Dragonair", "Dratini", "Giant Magikarp", "Gyarados", "Magmortar", "Electivire", "Salamence", "Mantine"} local function ShinyName(cid) if isCreature(cid) then if string.find(tostring(getCreatureName(cid)), "Shiny") then local newName = tostring(getCreatureName(cid)):match("Shiny (.*)") doCreatureSetNick(cid, newName) if isMonster(cid) then doSetCreatureDropLoot(cid, false) end end end end local function doSetRandomGender(cid) if not isCreature(cid) then return true end if isSummon(cid) then return true end local gender = 0 local name = getCreatureName(cid) if not newpokedex[name] then return true end local rate = newpokedex[name].gender if rate == 0 then gender = 3 elseif rate == 500 then gender = 4 elseif rate == -1 then gender = 0 elseif math.random(1, 500) <= rate then gender = 4 else gender = 3 end doCreatureSetSkullType(cid, gender) end local function doShiny(cid) if isCreature(cid) then if isSummon(cid) then return true end if getPlayerStorageValue(cid, 74469) >= 1 then return true end if getPlayerStorageValue(cid, 22546) >= 1 then return true end if isNpcSummon(cid) then return true end if getPlayerStorageValue(cid, 637500) >= 1 then return true end --alterado v1.9 if isInArray(shinys, getCreatureName(cid)) then --alterado v1.9 \/ chance = 2.0 --1% chance elseif isInArray(raros, getCreatureName(cid)) then --n coloquem valores menores que 0.1 !! chance = 1 --1% chance else return true end if math.random(1, 500) <= chance*10 then doSendMagicEffect(getThingPos(cid), 18) local name, pos = "Shiny ".. getCreatureName(cid), getThingPos(cid) doRemoveCreature(cid) local shi = doCreateMonster(name, pos, false) setPlayerStorageValue(shi, 74469, 1) else setPlayerStorageValue(cid, 74469, 1) end --/\ else return true end end function onSpawn(cid) registerCreatureEvent(cid, "Experience") registerCreatureEvent(cid, "GeneralConfiguration") registerCreatureEvent(cid, "DirectionSystem") registerCreatureEvent(cid, "CastSystem") if isSummon(cid) then registerCreatureEvent(cid, "SummonDeath") return true end addEvent(doShiny, 10, cid) addEvent(ShinyName, 15, cid) addEvent(adjustWildPoke, 5, cid) return true end Vou ser sincero... a galera amadora se ferra na hora de criar o server e quer vir encher o saco, existem uma quantidade absurda de servidores postados com as mesmas tollagens mais cabe a quem baixo e esta desenvolvendo procurar eliminar e corrigir tais problemas... se vc usa algo como base não sai colocando on antes de verificar as coisas mais simples... O cara teve a boa vontade de postar o server... parem de reclamar e querer tudo na mão

Cara.. vc tem que definir o ip no cliente e servidor e abrir as portas do roteador.

Eae galera bem... Parabéns pelo server, já baixei e estarei verificando para fazer correções. Fiquei triste pelo fim do x...tibia mais foi bom para unir a galera novamente em um único forum, foi algo apenas necessário... teve muito conteúdo perdido, mais felizmente as pessoas interessadas continuam vivas hahahahaah Go Go...