Ir para conteúdo

Featured Replies

Postado

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 por Zet0N0Murmurou (veja o histórico de edições)

wq3bBzt.png
Pokémon Dust Evolution
 
É aonde começa sua nova aventura!! 

 

Facebook

 
Verifique Atualizações

 

  • Respostas 8
  • Visualizações 407
  • Created
  • Última resposta

Top Posters In This Topic

Postado

 

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 por JonatasLucasf (veja o histórico de edições)

ca.png?1422745283

 

CONQUISTASdesigner-king.png   Designer.png    

 

Postado
  • Autor

 

 

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...

 

 

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 por Zet0N0Murmurou (veja o histórico de edições)

wq3bBzt.png
Pokémon Dust Evolution
 
É aonde começa sua nova aventura!! 

 

Facebook

 
Verifique Atualizações

 

Postado

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: "OTServScriptingActions e TalkActions"

Para: "OTServSuporte OTServSuporte de Scripts"

Postado

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. ;D:P

 

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.

Visitante
Responder

Quem Está Navegando 0

  • Nenhum usuário registrado visualizando esta página.

Estatísticas dos Fóruns

  • Tópicos 96.9k
  • Posts 519.7k

Informação Importante

Confirmação de Termo