Ir para conteúdo

Pesquisar na Comunidade

Mostrando resultados para as tags ''0.3.6''.

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Fóruns

  • xTibia - Notícias e Suporte
    • Regras
    • Noticias
    • Soluções
    • Projetos Patrocinados
    • Tutoriais para Iniciantes
    • Imprensa
  • OTServ
    • Notícias e Debates
    • OTServlist
    • Downloads
    • Recursos
    • Suporte
    • Pedidos
    • Show-Off
    • Tutoriais
  • OFF-Topic
    • Barzinho do Éks
    • Design
    • Informática

Encontrar resultados em...

Encontrar resultados que contenham...


Data de Criação

  • Início

    FIM


Data de Atualização

  • Início

    FIM


Filtrar pelo número de...

Data de Registro

  • Início

    FIM


Grupo


Sou

  1. ---------------------------------------------------------------------------------------------------------------------------------------- Um pouco da minha história na comunidade e a história da base: Anos atrás, eu comprei uma base chamada Poke-VKS, de um cara chamado Viktor. Paguei, na época, R$1000 e fiz um projeto com ela chamado PokeNumb. Trabalhei dois anos em cima desse projeto, editei muitas coisas nela, mexi muito, adicionei sistemas, removi diversos bugs e refiz o balanceamento geral várias e várias vezes. Depois de meses e meses editando, consegui uma base ao meu ver completamente balanceada e estável, diferente de todas com as quais já tinha trabalhado. Era uma base realmente muito boa, gastei muito tempo e esforço nela, mas, no final, gostei muito do resultado. Bom, com o projeto online, eu acabei seguindo outro ramo na vida e não tinha tempo para ficar editando e lançando atualizações. Abri uma loja de estofados e meu tempo ia todo para a loja. Então, resolvi encerrar o projeto e vender algumas cópias da base PokeNumb, para que as pessoas que gostassem da base pudessem continuar o projeto. A minha ideia era vender poucas cópias dessa base, para que a chance dela vazar fosse mínima. Mas, como essa comunidade é excelente e claramente não existe nenhum ladrão nela, eu suspeito que os compradores tiveram dificuldades para editar, estavam querendo ajuda e, assim, passaram a base para algum programador fulera, que roubou a base e começou a espalhá-la por aí. Para todos que compraram, sempre falei que daria suporte vitalício e qualquer sistema ou serviço podia me chamar que eu mesmo faria, porque não confio em quase ninguém dessa comunidade e acho que a maioria que quer "ajudar" só tem interesse em roubar bases dos outros e usá-las para benefício próprio. Eu não tenho o mínimo interesse em saber quem foi o comprador da base que confiou em outra pessoa com ela, e essa pessoa começou a distribuir. Isso já é passado e não tenho tempo para perder com isso. Mas, estou aqui nesse fórum para falar a vocês o seguinte: não confiem em ninguém da comunidade. A maioria aqui só quer saber de falsidade, furto para benefício próprio e tem más intenções. Eu mesmo já passei anos trabalhando junto com um membro da comunidade, ouvindo sobre seus problemas pessoais, ajudando em tudo que dava e o mesmo me apunhalou pelas costas, inventando inúmeras mentiras e manipulando outras pessoas. Enfim, não vou citar nomes nem prolongar mais esse assunto. Só estou falando que pela minha experiência, 90% da comunidade hoje é tóxica e não ajuda sem segundas intenções. Claro que existem grandes nomes confiáveis e pessoas incríveis, como o mapper Quinn, o designer Gabriel Pedro, o Italo, Ryuk, que tenho certeza que fazem um ótimo trabalho. ---------------------------------------------------------------------------------------------------------------------------------------- O motivo pelo qual estou divulgando: Bom, como já falei, vendi poucas unidades da base e, mesmo assim, algum programador com segundas intenções acabou pondo as mãos na base e começou a vendê-la. Até que a base chegou em um tal de "zeon" do Discord. Ele é famoso por fazer trocas de bases. O cara parece que quer um estoque infinito de bases de Poketibia e faz trocas com outras pessoas. Acabou que a base PokeNumb virou a principal moeda de troca dele, então ele passou para diversas pessoas. Até então, eu já estava ciente disso e não é algo que possamos evitar, e até então não dei muita bola. Até que um dia, um cara que não tinha comprado a base comigo chegou pra mim perguntando se eu faria um serviço pra ele na base vazada. Eu, obviamente, falei que não faria nada, pois o cara não comprou a base comigo. Ele conseguiu ela por terceiros. Então, mesmo que pagasse, não iria editar algo meu fornecido por terceiros. Uns dias depois, meu privado começou a lotar de mensagens de pessoas que viram a mesma base sendo vendida por um dos membros da comunidade. O membro em questão se chamava Whiss, ou Thalisson, e tinha entrado em contato com outro membro chamado Thalles para os dois juntos anunciarem a base. Assim que o povo me avisou, já entrei em contato com os dois. O Thalles mesmo já tirou o anúncio da base do ar e me falou que não sabia que era minha, que esse tal Whiss só chegou nele e queria vender. O Thalles me pediu desculpas e por aí ficou, já o outro cara persistiu que isso não tinha nada a ver com ele, que a partir do momento que ele teve acesso à base, ele podia vendê-la pra quem quisesse e não tinha nada de errado nisso. Falei pra ele que realmente ele tinha um ponto, mas ia do código moral e ético de cada um saber o que é certo e o que não é. Estou divulgando essa base, pois sei que ele não é o único vendendo-a, os vendedores lucrando em cima do suor e trabalho dos outros. Então, deixo aqui minha última contribuição para a comunidade. Essa é minha base favorita e eu considero ela perfeita e pronta para um projeto! ---------------------------------------------------------------------------------------------------------------------------------------- Sobre atualizações futuras: A base em si já tem uma atualização que traz compatibilidade em Windows e correções de algumas coisas, como bug visual do fly e remoção de alguns sistemas inúteis que pesavam na base. Essa e possíveis atualizações futuras da base serão liberadas somente para compradores passados e para pessoas que tenham interesse em comprar as atualizações e suporte vitalício da base. Deixarei minhas redes sociais abaixo. Podem entrar em contato comigo. ---------------------------------------------------------------------------------------------------------------------------------------- Bugs e outros: ---------------------------------------------------------------------------------------------------------------------------------------- Sistemas: ---------------------------------------------------------------------------------------------------------------------------------------- Fotos: ---------------------------------------------------------------------------------------------------------------------------------------- Vídeos: ---------------------------------------------------------------------------------------------------------------------------------------- Créditos: ---------------------------------------------------------------------------------------------------------------------------------------- Download e Scam: ---------------------------------------------------------------------------------------------------------------------------------------- By: Mixlort Espero que gostem!! CONTATO DISCORD: Mixlort#2111
  2. PATCH: EXTRAIA ESSE ARQUIVO NA PASTA DATA DO SERVIDOR E SUBSTITUA PARA EVITAR ERROS ! XML.rar • Menu: ├ Informações; ├ Edições; ├ Erros; ├ Prints; ├ Mapa ├ Download; ├ Atualização; ├ Utilitários; └ Créditos. • Informações Basicas • (+)1 a 3 Gen (Completa) (+)Bike System (+)Tournament System (+)Clã System (+)Boost Stone (+)VIP System 100% Fucional Entre outras coisas... • Edições / Ajustes • (+)Retirados alguns Bugs do server (+)Implantado remakes da 1 a 3 Gen (+)Adicionados alguns comandos e system. (+)Nova raça de pokémons FAIRY,DARK,STEEL (+)Adicionado Level System com balanceamento (+)Foi balanceado mais de 123 pokémons (+)Megas Pokémon no client,não deu tempo de serem add (+)Outland (+)PERFECT NICK SYSTEM C++ (+)PRICE SYSTEM (+)Summon Teleport C++ + CONFIG.LUA • Erros Do Servidor • Nenhum que eu saiba. • PrintScreen • Todas as prints: http://imgur.com/a/vTHfl Em breve posto mais prints!! • Download's • SERVER + SOURCE + CLIENT: http://www.4shared.com/rar/ona5VVkmce/PDA_2016_Open_Source.html? • SCAN • 4SHARED JÁ FAZ SCAN • Creditos • DASH TEAM - PELA BASE PokeCamp -- pelas sprites e alguns sistemas PDA BY GOD ANNA - PELO MAPA E POR ULTIMO EU <3 CONTRIBUIÇÃO PARA A MARATONA DE PROJETOS ! XML.rar
  3. Galera, eu quero muito saber se tem como compilar TFS 0.3.6/0.4/1.0/1.1 usando o Microsoft Visual Studio 2013. Por favor gente, me respondam. Se houver, me ensinem como!
  4. Olá pessoal, Estou procurando a alguns dias e não consegui fazer da certo ate o momento, então acho que mais pessoas devem ter a mesma dificuldade. Atualmente alguns servidores de poketibia tem um autoloot que é ativado assim que o monstro morre, você não precisa ir lá click no corpo e nem ficar configurando qual item vc quer. Uso a base do PokemasterX, esse servidores já te um script que pega todos os loot's, porem precisa click no poke morto, se alguém conseguir fazer o scrip funcionar se click no corpo ou tiver outro script ajudaria muito. Obrigado! Script que uso hoje: function getContainerBackpack(containeruid) local containers = {} if type(getContainerSize(containeruid)) ~= "number" then return false end for slot = 0, getContainerSize(containeruid)-1 do local item = getContainerItem(containeruid, slot) if item.itemid == 0 then break end if isContainer(item.uid) then table.insert(containers, item.uid) end end for i = 1, #containers do if #containers > 1 then table.remove(containers, containers[i+1]) end if #containers > 2 then table.remove(containers, containers[i+2]) end if #containers > 3 then table.remove(containers, containers[i+3]) end if #containers > 4 then table.remove(containers, containers[i+4]) end if #containers > 5 then table.remove(containers, containers[i+5]) end end for i = 1, #containers do for _, x in ipairs(getContainerBackpack(containers[i])) do table.insert(containers, x) end end return containers end function getContainerItems(containeruid) local items = {} local containers = {} if type(getContainerSize(containeruid)) ~= "number" then return false end for slot = 0, getContainerSize(containeruid)-1 do local item = getContainerItem(containeruid, slot) if item.itemid == 0 then break end if isContainer(item.uid) then table.insert(containers, item.uid) end table.insert(items, item) end if #containers > 0 then for i,x in ipairs(getContainerItems(containers[1])) do table.insert(items, x) end table.remove(containers, 1) end return items end function isCorpse(item) return string.find(getItemNameById(item.itemid), "fainted") or string.find(getItemNameById(item.itemid), "defeated ") end function getCorpsesPosition(position) local toret = { } -- table to return items position.stackpos = 1 while true do -- loop to catch the items and insert them in toret table local thing = getThingfromPos(position) if thing.itemid == 0 then -- thing doesn't exist, break the loop... break end if thing.uid > 0 and isContainer(thing.uid) and isCorpse(thing) then table.insert(toret,thing) end position.stackpos = position.stackpos + 1 -- get next item end return toret end function doPlayerAddItemStacking(cid, itemid, quant) -- by mkalo local item = getItemsInContainerById(getPlayerSlotItem(cid, 3).uid, itemid) local piles = 0 if #item > 0 then for i,x in pairs(item) do if getThing(x).type < 100 then local it = getThing(x) doTransformItem(it.uid, itemid, it.type+quant) if it.type+quant > 100 then doPlayerAddItem(cid, itemid, it.type+quant-100) end else piles = piles+1 end end else return doPlayerAddItem(cid, itemid, quant) end if piles == #item then doPlayerAddItem(cid, itemid, quant) end end function doLoot(cid, corpse) if not isCollectAll(cid) then return true end if not isContainer(corpse.uid) then return false end local itemsToLootAllWindow = {} for _, loot in pairs(getContainerItems(corpse.uid)) do local slot = getPlayerSlotItem(cid, 3).uid local container = getContainerBackpack(slot) local item1 = getPlayerStorageValue(cid, 251461):explode("|") or 0 function configLoot() local itt = "".. tostring(getItemInfo(loot.itemid).clientId) .."|".. loot.type .."|" local ittt1, ittt2 = itt:explode("|")[1], itt:explode("|")[2] local itr = ittt1 .."-".. ittt2 .."-" table.insert(itemsToLootAllWindow, itr) doRemoveItem(loot.uid) doSendPlayerExtendedOpcode(cid, 69, table.concat(itemsToLootAllWindow)) end --// Sistema de Daily Itens \\-- if inDailyItens(cid) then if tonumber(item1[1]) == loot.itemid then doPlayerSendTextMessage(cid, 20, "[Daily Itens]: Resta você coletar ["..(tonumber(item1[3]) - getPlayerItemCount(cid, item1[1])) - loot.type.."] "..getItemNameById(loot.itemid)..".") end if tonumber(item1[2]) == loot.itemid then doPlayerSendTextMessage(cid, 20, "[Daily Itens]: Resta você coletar ["..(tonumber(item1[4]) - getPlayerItemCount(cid, item1[2])) - loot.type.."] "..getItemNameById(loot.itemid)..".") end if tonumber(item1[5]) == loot.itemid then doPlayerSendTextMessage(cid, 20, "[Daily Itens]: Resta você coletar ["..(tonumber(item1[7]) - getPlayerItemCount(cid, item1[5])) - loot.type.."] "..getItemNameById(loot.itemid)..".") end if tonumber(item1[6]) == loot.itemid then doPlayerSendTextMessage(cid, 20, "[Daily Itens]: Resta você coletar ["..(tonumber(item1[8]) - getPlayerItemCount(cid, item1[6])) - loot.type.."] "..getItemNameById(loot.itemid)..".") end end --// Sistema de Daily Itens \\-- if #container < 1 then doPlayerAddItem(cid, loot.itemid, loot.type) configLoot() end for i = 1, #container do if #container >= 1 then if getContainerSlotsFree(container[i]) >= 1 then doAddContainerItem(container[i], loot.itemid, loot.type) configLoot() break end else doPlayerAddItem(cid, loot.itemid, loot.type) configLoot() end end end end function checkLoot(cid, corpse, SemMensagem) if not isContainer(corpse.uid) then return false end local quemMatou = getItemAttribute(corpse.uid, "corpseowner") if quemMatou then local player = getCreatureByName(quemMatou) if isPlayer(player) then local isInParyWithPlayer = false if isInParty(cid) and isInParty(player) then isInParyWithPlayer = isPartyEquals(player, cid) end if getCreatureName(cid) ~= getCreatureName(player) and not isInParyWithPlayer then if not SemMensagem then doPlayerSendCancel(cid, "Você não pode abrir um loot que não é seu.") end return false end end end return true end function onUse(cid, item, frompos, item2, topos) if isWatchingTv(cid) then return true end if not isContainer(item.uid) then return true end if not isCollectAll(cid) then return false end local maxItem = 800 if isContainer(item.uid)then if (getPlayerTotalItem(cid) + #getAllItemsFromContainer(item)) > maxItem then doPlayerSendCancel(cid, "Você não pode carregar mais itens pois já lotou a quantidade de slot's disponíveis") return false end else if getPlayerTotalItem(cid) + 1 > maxItem then doPlayerSendCancel(cid, "Você não pode carregar mais itens pois já lotou a quantidade de slot's disponíveis") return false end end local openCorpse = #getContainerItems(item.uid) < 1 if checkLoot(cid, item, false) then doLoot(cid, item) end for _, corpse in pairs(getCorpsesPosition(getThingPosition(item.uid))) do if checkLoot(cid, corpse, false) then doLoot(cid, corpse) end end if openCorpse then return false end return true end
  5. • Menu: ├ Informações; ├ Prints; ├ Download; └ Creditos. • Informações Basicas • • print screen • • download+scan • • Creditos • brun123 Valakinhas Luiz Machado (mapa) Sam Lecter (ajuda nos sistemas) Kevick (eu)
  6. Servidor testado 0.3.6 8.60 ✅ - Podendo funcionar em 0.4 ⚠️ Primeiro vou explicar um pouco sobre ele é base do script do @xWhiteWolf e modificado para escalar com skill pelo @BangxD e agora modificado novamente para não só funcionar com players mas também com todos os monstros. Instalação Se ja tem instalado siga as instruções abaixo para instalar o script basta remover o registro do login.lua, alterar a tag XML pela nova fornecida Caso não tenha instalado basta instalar normalmente criando o arquivo critical.lua e adicionando as tag no XML Tag XML Script
  7. Estava editando este layout para um amigo. Porém como ele não vai mais usar decidi postar ele aqui. Lembrando que quando editei esse layout eu era um iniciante (e ainda sou) então pode ter algum problema ou algo assim. Nos próximos dias postarei mais layout's derivados para quem quiser usar, estarei fazendo apenas para Treino. Layout Dragon Ball Segundo Print (parte de baixo) DOWNLOAD: Layout_DragonBall.rar SCAN Créditos: Eu (Mark) por editar grande parte do layout. E os responsáveis pelo Layout Original que foi oque eu editei (SODB Layout): Kadres Swirus(nieudas) Prawdziwy.
  8. Boa noite, eu estive procurando no fórum um script que atribuísse slot e atributos a um item, eu ate encontrei o script no fórum, porem estou precisando de ajuda para ajusta-lo ou corrigir o bug. Script: Creaturescript: Action: Bom o script está funcionando, porem o bug que esta acontecendo é que ao utilizar o item no set ele esta atribuindo a % porem não esta somando com as skill e HP que o player já possui, eu queria ajuda nesta parte. Caso não tiver solução eu queria trocar % por atributos brutos por ex: (+15 de ml sem ser em %) TFS: 0.3.6 REP+ Agradeço a Atenção.
  9. Boa tarde, Estou com Problema no meu script! ficando dando esse erro. script:
  10. Emooooo

    npc cassino erro

    erro npc não recolhe o dinheiro ! sendo que esta configurado tudo certo. 08/04/2019 20:07:20] [Error - Npc interface] [08/04/2019 20:07:20] In a timer event called from: [08/04/2019 20:07:20] data/npc/scripts/cassino.lua:onCreatureSay [08/04/2019 20:07:20] Description: [08/04/2019 20:07:20] (luaDoRemoveItem) Item not found
  11. Ola Xtibianos precisava de um npc que fale com um char de cada vez. Ex1: char nr1 fala hi NPC fala hi Ex2: char nr2 fala hi NPC fala calma estou ocupado no momento Versão 8.6 Tfs 0.4
  12. NOVIDADESMaster Ball [100%]Hydra Stone [100%]Mega Stone [100%]Boost Stone [100%]Shadow Megas [100%]Red Megas [100%]Áreas VIP e Free [100%]Held System [100%]Double EXP [100%]Cooldown dos golpes [100%] Sistema de Torneio [100%]Pergaminhos [100%]Todas as gerações [100%] Sistema de VIP [100%]Novas quests [100%] Base editada Poke Dash [100%] _________________________________________ SCREENSHOTS In-game _________________________________________ Download Tamanho do arquivo: 107 MB. Servidor + Cliente: http://www.4shared.com/rar/l8yCTegFba/Anonymous_Open_Source.html? OBS: 4Shared ja faz scan... _________________________________________ Créditos Bolz Lucas Kuchiki Cromendak PxG
  13. Eae, essa função é de outro fórum não tenho certeza se tem aqui mas decidi só colocar aqui como prefiro mais esse forum rs decidi colocar pra quando eu precisar novamente e pra caso algume precise... Mas indo ao assunto: Essa função nada mais é que quando o player loga abre os chat selecionado no login.lua automaticamente Essa função é para 0.3.6 Versões testada: 8.54 Vamos ao código em LuaScript.cpp Procure: //getChannelUsers(channelId) lua_register(m_luaState, "getChannelUsers", LuaScriptInterfaceluaGetChannelUsers); Adicione em baixo: //doPlayerOpenChannel(cid, channelId) lua_register(m_luaState, "doPlayerOpenChannel", LuaScriptInterface::luaDoPlayerOpenChannel); Continuando procure: int32_t LuaScriptInterfaceinternalGetPlayerInfo(lua_State* L, PlayerInfo_t info) Acima adicione: int32_t LuaScriptInterfaceluaDoPlayerOpenChannel(lua_State* L) { //doPlayerOpenChannel(cid, channelId) uint32_t channelId = popNumber(L); uint32_t cid = popNumber(L); ScriptEnviroment* env = getEnv(); Player* player = env->getPlayerByUID(cid); if(player) lua_pushnumber(L, g_game.playerOpenChannel(cid, channelId) ? true : false); else { errorEx(getError(LUA_ERROR_PLAYER_NOT_FOUND)); lua_pushnumber(L, false); } return 1; } Agora em LuaScript.h Procure por: static int32_t luaGetChannelUsers(lua_State* L); abaixo adicione: static int32_t luaDoPlayerOpenChannel(lua_State* L); Agora em data/creaturescripts/scripts/login.lua Antes do último return true Adicione: doPlayerOpenChannel(cid, 7) -- 7 é o número do channel para ver é em data/xml/channels.xml
  14. 8.54 com Codigo Fonte [+] New e Old Cliente [+] Catch médio [+] Up Médio [+] Sem ip changer [+] Sem hamachi [+] 1º 2º 3º 4º Geração [+] Base Shiny [+] 32 + quests [+] 24/7 online [+] Area Vip [+] Eventos automaticos [+] Passiva por clan [+] Task System [+] Ditto Memory System [+] Outfits da Pokexgames Pagina: https://www.facebook.com/pokemonhpoficial/ Site: http://www.pokemonhp.net/ Scan: https://virustotal.com/pt/file/15b0764b900d7f2a158dd8a043932b9518ebcc5a351a14feee3e2eec245799bf/analysis/1482210443/ PRINTS:
  15. Encontrei alguns tópicos sobre trainer offline, mas funciona apenas em servidores tfs 0.4, se alguém puder me ajudar com script de trainer offline para tfs 0.3.6 agradeço!
  16. Olá Galera estava me arriscando em programar em lua e decidi criar algo bem simples mas útil ! vamos lá então ! Em Actions.xml Adiciona Isto: E Em Data/Actions/Scripts Cria um Arquivo Lua Chamado "addonbox" e Adiciona Isto Dentro Dele: REP +
  17. Bom Galera é o seguinte o Meu Servidor ele tem um bug que quando o Player Desloga No Fly Ele Não Consegui Mais Logar No Servidor Eu Queria Um Script Que Não Desse Pra Eles Deslogarem No Fly So Quando Estiverem No Chão Login.lua local config = { loginMessage = getConfigValue('loginMessage'), useFragHandler = getBooleanFromString(getConfigValue('useFragHandler')) } function onLogin(cid) if getPlayerLevel(cid) >= 1 and getPlayerLevel(cid) <= 10 then --alterado v1.8 doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, 0) else doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, (getPlayerLevel(cid) >= 200 and 100 or math.floor(getPlayerLevel(cid)/2)) ) end doCreatureSetDropLoot(cid, false) local accountManager = getPlayerAccountManager(cid) if(accountManager == MANAGER_NONE) then local lastLogin, str = getPlayerLastLoginSaved(cid), config.loginMessage if(lastLogin > 0) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str) str = "Your last visit was on " .. os.date("%a %b %d %X %Y", lastLogin) .. "." else str = str end doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str) sendMsgToPlayer(cid, 20, "Bem-Vindo ao PokemonXjirachi.") elseif(accountManager == MANAGER_NAMELOCK) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, it appears that your character has been namelocked, what would you like as your new name?") elseif(accountManager == MANAGER_ACCOUNT) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, type 'account' to manage your account and if you want to start over then type 'cancel'.") else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, type 'account' to create an account or type 'recover' to recover an account.") end if getCreatureName(cid) == "Account Manager" then local outfit = {} if accountManagerRandomPokemonOutfit then outfit = {lookType = getPokemonXMLOutfit(oldpokedex[math.random(151)][1])} else outfit = accountManagerOutfit end doSetCreatureOutfit(cid, outfit, -1) return true end if(not isPlayerGhost(cid)) then doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT) end local outfit = {} if getPlayerVocation(cid) == 0 then doPlayerSetMaxCapacity(cid, 7) doPlayerSetVocation(cid, 1) setCreatureMaxMana(cid, 6) doPlayerAddSoul(cid, -getPlayerSoul(cid)) setPlayerStorageValue(cid, 19898, 0) if getCreatureOutfit(cid).lookType == 128 then outfit = {lookType = 510, lookHead = math.random(0, 132), lookBody = math.random(0, 132), lookLegs = math.random(0, 132), lookFeet = math.random(0, 132)} elseif getCreatureOutfit(cid).lookType == 136 then outfit = {lookType = 511, lookHead = math.random(0, 132), lookBody = math.random(0, 132), lookLegs = math.random(0, 132), lookFeet = math.random(0, 132)} end doCreatureChangeOutfit(cid, outfit) end registerCreatureEvent(cid, "dropStone") registerCreatureEvent(cid, "ShowPokedex") registerCreatureEvent(cid, "ClosePokedex") registerCreatureEvent(cid, "WatchTv") registerCreatureEvent(cid, "StopWatchingTv") registerCreatureEvent(cid, "WalkTv") registerCreatureEvent(cid, "RecordTv") registerCreatureEvent(cid, "PlayerLogout") registerCreatureEvent(cid, "WildAttack") registerCreatureEvent(cid, "Idle") registerCreatureEvent(cid, "EffectOnAdvance") registerCreatureEvent(cid, "GeneralConfiguration") registerCreatureEvent(cid, "SaveReportBug") registerCreatureEvent(cid, "LookSystem") registerCreatureEvent(cid, "T1") registerCreatureEvent(cid, "T2") registerCreatureEvent(cid, "atkz") registerCreatureEvent(cid, "atk") registerCreatureEvent(cid, "magica") registerCreatureEvent(cid, "Effect") registerCreatureEvent(cid, "Teste") if getPlayerStorageValue(cid, 99284) == 1 then setPlayerStorageValue(cid, 99284, -1) end if getPlayerStorageValue(cid, 6598754) >= 1 or getPlayerStorageValue(cid, 6598755) >= 1 then setPlayerStorageValue(cid, 6598754, -1) setPlayerStorageValue(cid, 6598755, -1) doRemoveCondition(cid, CONDITION_OUTFIT) --alterado v1.9 \/ doTeleportThing(cid, posBackPVP, false) doCreatureAddHealth(cid, getCreatureMaxHealth(cid)) end doChangeSpeed(cid, -(getCreatureSpeed(cid))) --///////////////////////////////////////////////////////////////////////////-- local storages = {17000, 63215, 17001, 13008, 5700} for s = 1, #storages do if not tonumber(getPlayerStorageValue(cid, storages)) then if s == 3 then setPlayerStorageValue(cid, storages, 1) elseif s == 4 then setPlayerStorageValue(cid, storages, -1) else if isBeingUsed(getPlayerSlotItem(cid, 8).itemid) then setPlayerStorageValue(cid, storages, 1) else setPlayerStorageValue(cid, storages, -1) end end doPlayerSendTextMessage(cid, 27, "Sorry, but a problem occurred on the server, but now it's alright") end end --/////////////////////////////////////////////////////////////////////////-- if getPlayerStorageValue(cid, 17000) >= 1 then -- fly local item = getPlayerSlotItem(cid, local poke = getItemAttribute(item.uid, "poke") doChangeSpeed(cid, getPlayerStorageValue(cid, 54844)) doRemoveCondition(cid, CONDITION_OUTFIT) local addonfly = getPlayerSlotItem(cid, 8).uid local addofly = getItemAttribute(addonfly,"addonfly") if not addofly then doSetItemAttribute(addonfly,"addonfly",0) doSetCreatureOutfit(cid, {lookType = flys[poke][1] + 351}, -1) end if addofly > 0 then doSetCreatureOutfit(cid, {lookType = addofly}, -1) end local item = getPlayerSlotItem(cid, local poke = getItemAttribute(item.uid, "poke") doChangeSpeed(cid, getPlayerStorageValue(cid, 54844)) doRemoveCondition(cid, CONDITION_OUTFIT) doSetCreatureOutfit(cid, {lookType = flys[poke][1] + 351}, -1) local apos = getFlyingMarkedPos(cid) apos.stackpos = 0 if getTileThingByPos(apos).itemid <= 2 then doCombatAreaHealth(cid, FIREDAMAGE, getFlyingMarkedPos(cid), 0, 0, 0, CONST_ME_NONE) doCreateItem(460, 1, getFlyingMarkedPos(cid)) end doTeleportThing(cid, apos, false) if getItemAttribute(item.uid, "boost") and getItemAttribute(item.uid, "boost") >= 50 and getPlayerStorageValue(cid, 42368) >= 1 then sendAuraEffect(cid, auraSyst[getItemAttribute(item.uid, "aura")]) --alterado v1.8 end local posicao = getTownTemplePosition(getPlayerTown(cid)) markFlyingPos(cid, posicao) elseif getPlayerStorageValue(cid, 63215) >= 1 then -- surf local item = getPlayerSlotItem(cid, local poke = getItemAttribute(item.uid, "poke") doSetCreatureOutfit(cid, {lookType = surfs[poke].lookType + 351}, -1) --alterado v1.6 doChangeSpeed(cid, getPlayerStorageValue(cid, 54844)) if getItemAttribute(item.uid, "boost") and getItemAttribute(item.uid, "boost") >= 50 and getPlayerStorageValue(cid, 42368) >= 1 then sendAuraEffect(cid, auraSyst[getItemAttribute(item.uid, "aura")]) --alterado v1.8 end elseif getPlayerStorageValue(cid, 17001) >= 1 then -- ride local item = getPlayerSlotItem(cid, local poke = getItemAttribute(item.uid, "poke") if rides[poke] then doChangeSpeed(cid, getPlayerStorageValue(cid, 54844)) doRemoveCondition(cid, CONDITION_OUTFIT) doSetCreatureOutfit(cid, {lookType = rides[poke][1] + 351}, -1) if getItemAttribute(item.uid, "boost") and getItemAttribute(item.uid, "boost") >= 50 and getPlayerStorageValue(cid, 42368) >= 1 then sendAuraEffect(cid, auraSyst[getItemAttribute(item.uid, "aura")]) --alterado v1.8 end else setPlayerStorageValue(cid, 17001, -1) doRegainSpeed(cid) end local posicao2 = getTownTemplePosition(getPlayerTown(cid)) markFlyingPos(cid, posicao2) elseif getPlayerStorageValue(cid, 13008) >= 1 then -- dive if not isInArray({5405, 5406, 5407, 5408, 5409, 5410}, getTileInfo(getThingPos(cid)).itemid) then setPlayerStorageValue(cid, 13008, 0) doRegainSpeed(cid) doRemoveCondition(cid, CONDITION_OUTFIT) return true end if getPlayerSex(cid) == 1 then doSetCreatureOutfit(cid, {lookType = 1034, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet}, -1) else doSetCreatureOutfit(cid, {lookType = 1035, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet}, -1) end doChangeSpeed(cid, 800) elseif getPlayerStorageValue(cid, 5700) > 0 then --bike doChangeSpeed(cid, -getCreatureSpeed(cid)) doChangeSpeed(cid, getPlayerStorageValue(cid, 5700)) --alterado v1.8 if getPlayerSex(cid) == 1 then doSetCreatureOutfit(cid, {lookType = 1394}, -1) else doSetCreatureOutfit(cid, {lookType = 1393}, -1) end elseif getPlayerStorageValue(cid, 75846) >= 1 then --alterado v1.9 \/ doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)), false) setPlayerStorageValue(cid, 75846, -1) sendMsgToPlayer(cid, 20, "You have been moved to your town!") else doRegainSpeed(cid) end if getPlayerStorageValue(cid, 22545) >= 1 then setPlayerStorageValue(cid, 22545, -1) doTeleportThing(cid, getClosestFreeTile(cid, posBackGolden), false) setPlayerRecordWaves(cid) end if useKpdoDlls then doUpdateMoves(cid) doUpdatePokemonsBar(cid) end return true end
  18. JairKevick

    POKEXJIRACHI

    Estamos online! [•] SITE: http://pokexjirachi.servegame.com [•] PAGINA: www.facebook.com/pokexjirachi [•] INFORMAÇOES: - SERVIDOR CONTENDO CODIGO FONTE (SOURCE) - Servidor Estavel Uptime de (580 hrs) Testado - Player EXP: 10x - Pokemon EXP: 15x - Catch System Inovado (Rate Por Skill "Catching" + Rate normal) - Catch Channel System (Veja todos os Catch do Servidor Pelo Canal Catch-Channel) - Bonus Level System (Marca na Ball a quantia de Level que voce Upou Nesse Pokemon, Assim mudando o Comercio de Pokemons) - Pokemon Level Max : 300 - Pokemon Boost Max FREE: +50 - Pokemon Boost Max VIP: +80 + (Bonus Boost) - Novo Balanceamentos dos Pokemons - Surf - Fly - 6 Pokemons (na bag) - Dive - Order - Pokedex - Respaw de Shiny Aleatorio (1%) - Passive - Torneio - Teleport - Apricorns e Vitaminas - Cassino - Invasao automatica (09:00 as 21:00) - Npcs (Aura,mark,Pokemon Collector,lock ball e etc.....) - Aura - Task System (NPC MEGA TASK) - Clan - Look Score - Rare Candy - Evoluçao (Automatica e Por Stones) 90% Automatico e 10 % Stones - Fome e Sentimento - 1-2 Geraçao Full - 3-6 Geraçao Metade - Shinys (1-2 Geraçao Full) - Shinys (3-6 Geraçao Metade Adicionada )
  19. Olá pessoas, to aqui para pedir uma ajuda PARA ADICIONAR ALGUMAS COISAS num script de summon por level, exemplo: Eu sou x level, uso o summon e sumono x monstro. Porém o script é muito simples; se o player não tem o level necessário não envia a msg avisando isso a ele, não tem exausted também. Como eu sou totalmente leigo vim pedir uma ajudinha de vocês. Segue o script:
  20. Salve galera, recentemente (depois de ter parado 5 vezes) comecei a mexer com a base Pokémon Dash (Antiga) e me deparei com a spell e move healarea, o que esta acontecendo? Bom ela apenas esta healando o Pokémon, gostaria que ela desse heal igual na pxg que no caso é tanto no player quanto no pokemon. Versão: 0.3.6 TFS Código do move: elseif pokemon.x.spell == "Healarea" then doCreatureSay(getCreatureSummons(cid)[1], ""..string.upper(c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell).."!", TALKTYPE_MONSTER) doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", "..c[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType].x.spell.."!", TALKTYPE_SAY) exhaustion.set(cid, pokemon.x.ex, pokemon.x.cd) setCombatParam(COMBAT_HEALING, COMBAT_PARAM_AGGRESSIVE, FALSE) doCreatureAddHealth(getCreatureSummons(cid)[1], ((num2)+((getPlayerLevel(cid))*(num3)))) doAreaCombatHealth(getCreatureSummons(cid)[1], COMBAT_HEALING, getThingPos(getCreatureSummons(cid)[1]), healarea, ((num1)+(getPlayerLevel(cid)*(num3))), ((num2)+(getPlayerLevel(cid)*(num3))), CONST_ME_MAGIC_BLUE) doSendAnimatedText(getThingPos(getCreatureSummons(cid)[1]), "+"..((num2)+((getPlayerLevel(cid))*(num3))).."", 71) addEvent(doSendAnimatedText(getThingPos(getCreatureSummons(cid)[1]), "+"..((num2)+((getPlayerLevel(cid))*(num3))).."", 71),1) return 0 Se alguém puder ajudar agradeço.
  21. Alguem poderia me ajudar a solucionar meu problema ao compilar? make[1]: *** [luascript.o] Error 1 make[1]: Leaving directory `/home/PokemonCore/source' make: *** [all] Error 2
  22. Estou com um pequeno problema no servidor, o depot está acessível para qualquer um. Se um player guardar algo, outro player pode pegar esse item. ... E aparece umas mensagens na distro ao colocar e remover algo do depot. Print do erro.
  23. Bom, não achei onde postar! Se estiver na área errada mova por favor! bom adaptei uma source para meu servidor... está tudo ok inicia normal, aparece que está online e etc... só que inicia com 1 único erro na distro [Error - CreatureEvent::configureEvent] No valid type for creature event.actionchannel perguntei à um amigo meu e ele disse que tem que adicionar uma função na source em creature event mas ele n tem tempo para adicionar para mim! alguém poderia me dar uma ajuda?
  24. Nunca sei como começar um tópico fazendo pedido mas lá vai.. um script que faz effect ( pode ser o efeito "\1" ou CONST_ME_LOSEENERGY como preferirem chamar.. ) em cima de tal id. ou seja todos esses ids, que serao estatuas no mapa, ficariam aparecendo o effect... precisa ser por id...
  25. Bom galera, tive um ideia para um quest, vou ser breve porque vou ter que ir para faculdade... se eu nao postasse isso eu acabria esquecendo. Pensei em uma quest onde duas pessoas puxam uma alavanca e vão para um corredor, e sumona um bixo em tal posição. basicamente era isso. porém preciso tambem que não de para outras pessoas usarem a alavanca até as duas pessoas que estão dentro do corredor sairem... desde já obrigado pela atenção
×
×
  • Criar Novo...