Postado Dezembro 27, 2014 10 anos eae galera blz? hj vim pedir 2 script 1º Teleport System de Pokemon!!! eu queria um teleport system que e mais ou menos com estas funções : 1- eu chamo o pokemon para fora no caso o alakazam(tera outros pokemons) 2- eu digito o comando !teleport " + nome da cidade ex '!teleport "tsurg' 3- acontece um efeito ao ser teleportado e ao chegar na cidade(efeito configuravel) 4- eu e meu pokemons somos teleportados para a cidade 2º Script de dar item para todos online!!! com as seguintes funções : 1- eu escrevo o comando '/allplayer,3434,10,Foi adicionado rare candy a todos players online' comando + itemID + Quantidade + mensagem(editado por min junto com o comando) 2- e adicionado item para todos os players online 3- aparece a mensagem no default em azul (mensagem escrita pelo adm no comando) obs: não aparecer o nome do adm ao enviar os items Editado Dezembro 27, 2014 10 anos por Zet0N0Murmurou (veja o histórico de edições) Pokémon Dust Evolution É aonde começa sua nova aventura!! Facebook Verifique Atualizações
Postado Dezembro 27, 2014 10 anos 2º crie um arquivo .lua chamado "additem.lua" em talkactions e adicione isso: function onSay(cid, words, param, channel) local t = string.explode(param, ",") if t[1] ~= nil and t[2] ~= nil then local list = {} for i, tid in ipairs(getPlayersOnline()) do list[i] = tid end for i = 1, #list do doPlayerAddItem(list[i],t[1],t[2]) end doBroadcastMessage(getPlayerName(cid) .. " has given reward: " .. t[2] .." ".. getItemNameById(t[1]) .. " for all players!") else doPlayerPopupFYI(cid, "No parm...\nSend:\n /itemadd itemid,how_much_items\nexample:\n /itemadd 2160,10") end return true end DEPOIS ADICIONE ISSO EM TALKACTIONS.XML <talkaction words="/allplayer" acces="5" event="script" value="additem.lua"/> Editado Dezembro 27, 2014 10 anos por JonatasLucasf (veja o histórico de edições) CONQUISTAS
Postado Dezembro 29, 2014 10 anos Autor 2º crie um arquivo .lua chamado "additem.lua" em talkactions e adicione isso: function onSay(cid, words, param, channel) local t = string.explode(param, ",") if t[1] ~= nil and t[2] ~= nil then local list = {} for i, tid in ipairs(getPlayersOnline()) do list[i] = tid end for i = 1, #list do doPlayerAddItem(list[i],t[1],t[2]) end doBroadcastMessage(getPlayerName(cid) .. " has given reward: " .. t[2] .." ".. getItemNameById(t[1]) .. " for all players!") else doPlayerPopupFYI(cid, "No parm...\nSend:\n /itemadd itemid,how_much_items\nexample:\n /itemadd 2160,10") end return true end DEPOIS ADICIONE ISSO EM TALKACTIONS.XML <talkaction words="/allplayer" acces="5" event="script" value="additem.lua"/> vc esqueceu da ultima parte que era para eu quando digitar o comando aparecer a mensagem que eu digitei e tbm aparecer no default em azul >_> se eu quizese como vc colocou eu tinha ido em alguma parto do tk procurar @Up Alguem ajuda ae, estou louco para alguem e ajudar... 2º crie um arquivo .lua chamado "additem.lua" em talkactions e adicione isso: function onSay(cid, words, param, channel) local t = string.explode(param, ",") if t[1] ~= nil and t[2] ~= nil then local list = {} for i, tid in ipairs(getPlayersOnline()) do list[i] = tid end for i = 1, #list do doPlayerAddItem(list[i],t[1],t[2]) end doBroadcastMessage(getPlayerName(cid) .. " has given reward: " .. t[2] .." ".. getItemNameById(t[1]) .. " for all players!") else doPlayerPopupFYI(cid, "No parm...\nSend:\n /itemadd itemid,how_much_items\nexample:\n /itemadd 2160,10") end return true end DEPOIS ADICIONE ISSO EM TALKACTIONS.XML <talkaction words="/allplayer" acces="5" event="script" value="additem.lua"/> Obrigado por tentar!!! @UP Editado Dezembro 28, 2014 10 anos por Zet0N0Murmurou (veja o histórico de edições) Pokémon Dust Evolution É aonde começa sua nova aventura!! Facebook Verifique Atualizações
Postado Dezembro 29, 2014 10 anos O tópico foi movido para a área correta, preste mais atenção da próxima vez! Leia as regras do fórum: http://tibiaking.com/forum/topic/1281-regras-gerais/?p=7680 Este tópico foi movido: De: "OTServ → Scripting → Actions e TalkActions" Para: "OTServ → Suporte OTServ → Suporte de Scripts" STYLLER OT 2022
Postado Dezembro 29, 2014 10 anos o Teleporte seria esse? local poke = {"Shiny Xatu", "Jynx", "Shiny Jynx", "Xatu", "Natu", "Exeggutor", "Slowking", "Slowbro", "Shiny Mr. Mime", 'Mew', 'Mewtwo', 'Abra', 'Kadabra', 'Alakazam', 'Drowzee', 'Hypno', 'Mr. Mime', 'Porygon', 'Shiny Abra', 'Shiny Alakazam', 'Shiny Hypno', 'Porygon2'} --alterado v1.9 local etele = 222468 local cdtele = 1800 local config = { premium = false, -- se precisa ser premium account (true or false) battle = true -- se precisa estar sem battle (true). Se colocar false, poderá usar teleport no meio de batalhas } local places = { [1] = {name = "Saffron", id = 1, sto = 897530}, [2] = {name = "Cerulean", id = 2, sto = 897531}, [3] = {name = "Lavender", id = 3, sto = 897532}, [4] = {name = "Fuchsia", id = 4, sto = 897533}, [5] = {name = "Celadon", id = 5, sto = 897534}, [6] = {name = "Viridian", id = 6, sto = 897535}, --alterado v1.7 [7] = {name = "Vermilion", id = 7, sto = 897536}, [8] = {name = "Pewter", id = 8, sto = 897537}, [9] = {name = "Pallet", id = 18}, [10] = {name = "Cinnabar", id = 9, sto = 897538}, [11] = {name = "Snow", id = 10, sto = 897539}, } function onSay(cid, words, param) if #getCreatureSummons(cid) == 0 then doPlayerSendCancel(cid, "Você precisa de um pokemon para usar teleporte.") return true end if not isInArray(poke, getCreatureName(getCreatureSummons(cid)[1])) then return 0 end if getPlayerStorageValue(cid, 22545) == 1 then --golden arena doPlayerSendCancel(cid, "Você não pode fazer isso enquanto esta na golden arena!") return true end if getPlayerStorageValue(cid, 212124) >= 1 then --alterado v2.6 return doPlayerSendCancel(cid, "Você não pode fazer isso com um pokemon com a mente controlada!") end if getPlayerStorageValue(cid, 52480) >= 1 then return doPlayerSendCancel(cid, "Você não pode teleporta enquanto um duelo!") --alterado v2.6 end if exhaustion.get(cid, etele) and exhaustion.get(cid, etele) > 0 then local tempo = tonumber(exhaustion.get(cid, etele)) or 0 local min = math.floor(tempo) doPlayerSendCancel(cid, "Seu pokemon está cansado, espere "..getStringmytempo(tempo).." para se teletransportar novamente.") return true end if config.premium and not isPremium(cid) then doPlayerSendCancel(cid, "Somente usuários especiais estão autorizados a usar teleportet.") return true end if config.battle and getCreatureCondition(cid, CONDITION_INFIGHT) then doPlayerSendCancel(cid, "Os seus pokemon não consegue se concentrar durante as batalhas.") return true end if (param == '') then local str = "" str = str .. "Places to go :\n\nHouse\n" for a = 1, #places do str = str..""..places[a].name.."\n" end doShowTextDialog(cid, 7416, str) return true end local item = getPlayerSlotItem(cid, 8) local nome = getPokeballName(item.uid) local summon = getCreatureSummons(cid)[1] local lastppos = getThingPos(cid) local lastspos = getThingPos(summon) local telepos = {} local myplace = "" local townid = 0 if string.lower(param) == "house" then if not getHouseByPlayerGUID(getPlayerGUID(cid)) then doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Você não é dono de uma casa.") return true end telepos = getHouseEntry(getHouseByPlayerGUID(getPlayerGUID(cid))) myplace = "our home" else for x = 1, #places do if string.find(string.lower(places[x].name), string.lower(param)) then townid = places[x].id myplace = places[x].name end end if myplace == "" then doPlayerSendCancel(cid, "Esse lugar não existe.") return true end end if myplace ~= "" and townid > 0 then telepos = getTownTemplePosition(townid) end if getDistanceBetween(getThingPos(cid), telepos) <= 15 then doPlayerSendCancel(cid, "Você está muito perto do lugar que você quer ir!") return true end doSendMagicEffect(getThingPos(summon), 29) doSendMagicEffect(getThingPos(cid), 29) doTeleportThing(cid, telepos, false) local pos2 = getClosestFreeTile(cid, getPosByDir(getThingPos(cid), SOUTH)) doTeleportThing(summon, pos2, false) doSendMagicEffect(getThingPos(cid), 29) doCreatureSay(cid, ""..nome..", teleport to "..myplace.."!", 1) doCreatureSay(cid, ""..nome..", teleport to "..myplace.."!", 1, false, 0, lastppos) doCreatureSay(summon, "TELEPORT!", TALKTYPE_MONSTER) doCreatureSay(summon, "TELEPORT!", TALKTYPE_MONSTER, false, 0, lastspos) doCreatureSetLookDir(cid, SOUTH) doCreatureSetLookDir(summon, SOUTH) doSendMagicEffect(getThingPos(summon), CONST_ME_TELEPORT) exhaustion.set(cid, etele, cdtele) return true end Ajudei? da um Rep+, não custa nada. Servidor de PokeTibia ja online. Pagina: https://www.facebook.com/PokemonxStore?ref=bookmarks Grupo: https://www.facebook.com/groups/257989224406246/ Site: http://pokexstore.wix.com/pokexstore
Participe da conversa
Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.