BlackTibia

No estás conectado. Conéctate o registrate

 » Open Tibia » Pedido de Scripts » 

Convertir de Talkaction a Globalevent

Convertir de Talkaction a Globalevent

#1 Convertir de Talkaction a Globalevent el Dom Mar 09, 2014 6:41 am

darknelson


Aprendiz
Hola, gustaria de convertir 2 Talkactions a GlobalEvents por Interval, el primero zombie event ojala poder modificarse para que empiese con limite de 4 players cada 1 hora

Código:
function onSay(cid, words, param, channel)
  if(getStorage(ZE_STATUS) ~= 2) then
      local players_on_arena_count = #getZombiesEventPlayers()
      if(param == 'force') then
        if(players_on_arena_count > 0) then
            setZombiesEventPlayersLimit(players_on_arena_count  )
            addZombiesEventBlockEnterPosition()
            doSetStorage(ZE_STATUS, 2)
            doBroadcastMessage("ZombieEvent A Comenzado!.")
            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "ZombieEvent A Comenzado!.")
        else
            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "No Se Puede Iniciar, No hay suficientes Players")
        end
      else
        if(param ~= '' and tonumber(param) > 0) then
            setZombiesEventPlayersLimit(tonumber(param))
        end
        removeZombiesEventBlockEnterPosition()
        doSetStorage(ZE_STATUS, 1)
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Empezo el Evento.")
        doPlayerBroadcastMessage(cid, "ZombieEvent Corriendo, Gana y Sube 25 Levels, Requerimos " .. getZombiesEventPlayersLimit() - players_on_arena_count .. " players para empezar.")
      end
  else
      doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "El evento ya esta corriendo.")
  end
  return true
end



el siguiente es de rush event,

Código:
<talkaction words="!start" event="script"><![CDATA[
   domodlib('re')
   function results()
      for _,cid in ipairs(getPlayersOnline()) do
         if getPlayerStorageValue(cid, 32152) == 1 then
         local red = getGlobalStorageValue(t.l)
         local blue = getGlobalStorageValue(t.u)
         doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "Estadisticas:\nRed Team scored: ".. red .." frags.\nBlue Team scored: ".. blue .." frags.\nGana el Equipo Que Complete ".. t.v .." frags.")
         --doBroadcastMessage("Estadisticas:\nRed Team scored: ".. red .." frags.\nBlue Team scored: ".. blue .." frags.\nGana El Equipo Que Complete ".. t.v .." frags.", MESSAGE_STATUS_WARNING)
         addEvent(results, t.r * 1000 * 60)
         end
      return true
      end
   
      --if(getGlobalStorageValue(t.a) == 1) then
      --   local red = getGlobalStorageValue(t.l)
      --   local blue = getGlobalStorageValue(t.u)         
      --   doBroadcastMessage("Estadisticas:\nRed Team scored: ".. red .." frags.\nBlue Team scored: ".. blue .." frags.\nGana el Equipo que Complete ".. t.v .." frags.", MESSAGE_STATUS_WARNING)
      --   addEvent(results, t.r * 1000 * 60)
      --end
   end
   function start(cid)
      if(getGlobalStorageValue(t.a) == 1 and getGlobalStorageValue(t.c) >= t.mn) then
               for _,cid in ipairs(getPlayersOnline()) do
                  if getPlayerStorageValue(cid, 32152) == 1 then
                  doPlayerSendTextMessage(cid, 25, t.q)
                  end
               end
         setGlobalStorageValue(t.wv, 1)
         addEvent(results, t.r * 1000 * 60)
         for _, pid in ipairs(getPlayersOnline()) do   
            local myOutfit = getCreatureOutfit(pid)
            local red = {lookType = myOutfit.lookType, lookHead = 94, lookBody = 94, lookLegs = 94, lookFeet = 94, lookTypeEx = 0, lookAddons = myOutfit.lookAddons}
            local blue = {lookType = myOutfit.lookType, lookHead = 86, lookBody = 86, lookLegs = 86, lookFeet = 86, lookTypeEx = 0, lookAddons = myOutfit.lookAddons}   
            if getPlayerStorageValue(pid, t.f) == 1 then
               doCreatureAddHealth(pid, getCreatureMaxHealth(pid))
               doCreatureAddMana(pid, getCreatureMaxMana(pid))   
               if((getPlayerStorageValue(pid, t.g) % 2) == 1) then
                  doCreatureChangeOutfit(pid, red)
                  setPlayerStorageValue(pid, t.h, 0)
                  doTeleportThing(pid, t.d_1)
                  setPlayerStorageValue(pid, t.f, 1)
                  setPlayerStorageValue(pid, t.f_1, 0)
                  setPlayerStorageValue(pid, t.f_2, 1)
                  doSendMagicEffect(getCreaturePosition(pid), 10)
                  doPlayerSendTextMessage(pid, MESSAGE_EVENT_ADVANCE, "Estas en el equipo rojo, La batalla acabara cuando consigan ".. t.v .." frags!")
               else
                  doCreatureChangeOutfit(pid, blue)
                  doTeleportThing(pid, t.d_2)
                  setPlayerStorageValue(pid, t.h, 0)
                  setPlayerStorageValue(pid, t.f, 1)
                  setPlayerStorageValue(pid, t.f_1, 1)
                  setPlayerStorageValue(pid, t.f_2, 0)
                  doSendMagicEffect(getCreaturePosition(pid), 10)
                  doPlayerSendTextMessage(pid, MESSAGE_EVENT_ADVANCE, "Estas en el equipo azul, La batalla acabara cuando consigan ".. t.v .." frags!")
               end
            end
         end
      elseif(getGlobalStorageValue(t.c) < t.mn) then
         doBroadcastMessage(t.x, MESSAGE_STATUS_WARNING)
         setGlobalStorageValue(t.a, 0)
         for _,cid in ipairs(getPlayersOnline()) do
            if getPlayerStorageValue(cid, t.f) == 1 then
               setPlayerStorageValue(cid, t.f, -1)
               setPlayerStorageValue(cid, 32152, 0)
               doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
               doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
            end
         end
      end
   end
   
   function onSay(cid, words, param, channel)
      if getPlayerGroupId(cid) > 3 then
         setGlobalStorageValue(t.g, 1)
         setGlobalStorageValue(t.u, 0)
         setGlobalStorageValue(t.l, 0)
         setGlobalStorageValue(t.a, 1)
         setGlobalStorageValue(t.c, 0)
         setGlobalStorageValue(t.wv, 0)
         doBroadcastMessage("Thais war Battle Abrio, En 5 Minutos Comienza el Evento, Para entrar diga !rush en PZ, Si gana Se Lleva un Exp Scarab y 1KK", MESSAGE_STATUS_WARNING)
         addEvent(function()
         doBroadcastMessage("Thais war Comenzara en 2 Minutos, Para entrar al Evento diga !rush", MESSAGE_STATUS_WARNING)
         end, (t.t - 2) * 1000 * 60)
         addEvent(function()
         doBroadcastMessage("Thais war Comenzara en 1 Minuto, Para entrar al Evento diga !rush", MESSAGE_STATUS_WARNING)
         end, (t.t - 1) * 1000 * 60)
         addEvent(start, t.t * 1000 * 60, cid)
         return true
      end
      return true
   end
   
]]></talkaction>



si me pudieran ayudar a hacerlos globalevent se los agradeceria en la fucking alma

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.

 

¿Quién está en línea?

En total hay 0 usuarios en línea: 0 Registrados, 0 Ocultos y 0 Invitado

Usuarios navegando en este foro: Ninguno

Forum Statistics

Nuestros miembros han públicado un total de posts en temas.
Actualmente hay miembros registrados.
Démosle la bienvenida al miembro más reciente,
La mayor cantidad de usuarios en línea ha sido de .