BlackTibia

No estás conectado. Conéctate o registrate

 » Open Tibia » Pedido de Scripts » 

[PEDIDO] 3 scripts sencillos......

[PEDIDO] 3 scripts sencillos......

#1 [PEDIDO] 3 scripts sencillos...... el Vie Nov 29, 2013 9:41 pm

Hellscors


Miembro
Hola 
En esta ocacion vengo a pedir 3 scripts sencillitos:3


1er° Script:
Lo eh visto antes ...trata de que al llegar a un level te de un premio...
Ejemplo: Si eres Level 100 ,te de 100cc ,si eres 200 un item(en mi caso una pot doble exp ID: 7743) y en 300 ,otro asta el 600 ....




2do°Script:


Que al entrar el player a mi server le salga ese cuadro gris ,con un texto que yo ponga:3 ese cuadro de Information ,gris,,,,cada vez que entre ,creo que es de login y eso...




En realidad solo venia a pedir 2 scripts pero ya que hice tambien pido el siguiene....
3er° "scripsillo" 
Es de editar el script del utamo vita ,que como ven al usarlo sale ese efecto azul como si te estuvieras curando ,como aser que cambie ese efecto ,por otro? ,


Bueno eso es todo ,gracias espero respuestas ovio(8 (=

http://www.blacktibia.org/t32971-86-prestige-imperia-ot-server-h

#2 Re: [PEDIDO] 3 scripts sencillos...... el Vie Nov 29, 2013 10:04 pm

Sirakx


Moderador
1er script.......
vas a data/creaturescript y en creaturescript.xml pones esto

Código:
<event type="advance" name="Reward" event="script" value="reward.lua"/>
Ahora vas a data/creaturescript/scripts creas un archivo lua con el nombre de reward.lua y dentro pones esto

Código:

local t = {
   39001, {
   [25] = {2160, 10, "Congratulations, You have been awarded with 10 crystal coints!", 1},
   [75] = {2160, 20, "Congratulations, You have been awarded with 20 crystal coints!", 2},
   [125] = {2160, 25, "Congratulations, You have been awarded with 25 crystal coints!", 3},
   [200] = {2160, 25, "Congratulations, You have been awarded with 25 crystal coints!", 4},
   [300] = {2160, 35, "Congratulations, You have been awarded with 35 crystal coints!", 5}
   }
    --LEVEL,IDDELITEM,CANTIDAD,MENSAJE
}

function onAdvance(cid, skill, oldlevel, newlevel)
   if skill == SKILL__LEVEL then
      for level, v in pairs(t[2]) do
         if oldlevel < level and getPlayerLevel(cid) >= level and getPlayerStorageValue(cid, t[1]) < v[4] then
            doPlayerAddItem(cid, v[1], v[2])
            doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, v[3])
            setPlayerStorageValue(cid, t[1], v[4])
         end
      end
   end
   doPlayerSave(cid, true)
   return true
end
2do Script.....

Entras vas a data/creaturescript y abres el archivo login.lua y abajo de esto

Código:
function onLogin(cid)
Pones esto:

Código:

local text= "!check              ->Miras el tiempo de tu comida si tienes menos de 200 empiesas a bajar vida\n!explorer            -> Obtienes items esensiales para una exploracion\n!rank                ->Miras los ranks que hay en el juego (!rank level,magic,etc)\n!commands            ->Para ver todos los comandos"
    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, text)
3er Script...

Vas a data/spells/scripts/support y abres el archivo magic shield y cambias esta parte

Código:
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)
Solamente donde dice CONST_ME_MAGIC_BLUE la cambias por cualquiera de estos...
Spoiler:
Código:

CONST_ME_DRAWBLOOD = 0
CONST_ME_LOSEENERGY = 1
CONST_ME_POFF = 2
CONST_ME_BLOCKHIT = 3
CONST_ME_EXPLOSIONAREA = 4
CONST_ME_EXPLOSIONHIT = 5
CONST_ME_FIREAREA = 6
CONST_ME_YELLOW_RINGS = 7
CONST_ME_GREEN_RINGS = 8
CONST_ME_HITAREA = 9
CONST_ME_TELEPORT = 10
CONST_ME_ENERGYHIT = 11
CONST_ME_MAGIC_BLUE = 12
CONST_ME_MAGIC_RED = 13
CONST_ME_MAGIC_GREEN = 14
CONST_ME_HITBYFIRE = 15
CONST_ME_HITBYPOISON = 16
CONST_ME_MORTAREA = 17
CONST_ME_SOUND_GREEN = 18
CONST_ME_SOUND_RED = 19
CONST_ME_POISONAREA = 20
CONST_ME_SOUND_YELLOW = 21
CONST_ME_SOUND_PURPLE = 22
CONST_ME_SOUND_BLUE = 23
CONST_ME_SOUND_WHITE = 24
CONST_ME_BUBBLES = 25
CONST_ME_CRAPS = 26
CONST_ME_GIFT_WRAPS = 27
CONST_ME_FIREWORK_YELLOW = 28
CONST_ME_FIREWORK_RED = 29
CONST_ME_FIREWORK_BLUE = 30
CONST_ME_STUN = 31
CONST_ME_SLEEP = 32
CONST_ME_WATERCREATURE = 33
CONST_ME_GROUNDSHAKER = 34
CONST_ME_HEARTS = 35
CONST_ME_FIREATTACK = 36
CONST_ME_ENERGYAREA = 37
CONST_ME_SMALLCLOUDS = 38
CONST_ME_HOLYDAMAGE = 39
CONST_ME_BIGCLOUDS = 40
CONST_ME_ICEAREA = 41
CONST_ME_ICETORNADO = 42
CONST_ME_ICEATTACK = 43
CONST_ME_STONES = 44
CONST_ME_SMALLPLANTS = 45
CONST_ME_CARNIPHILA = 46
CONST_ME_PURPLEENERGY = 47
CONST_ME_YELLOWENERGY = 48
CONST_ME_HOLYAREA = 49
CONST_ME_BIGPLANTS = 50
CONST_ME_CAKE = 51
CONST_ME_GIANTICE = 52
CONST_ME_WATERSPLASH = 53
CONST_ME_PLANTATTACK = 54
CONST_ME_TUTORIALARROW = 55
CONST_ME_TUTORIALSQUARE = 56
CONST_ME_MIRRORHORIZONTAL = 57
CONST_ME_MIRRORVERTICAL = 58
CONST_ME_SKULLHORIZONTAL = 59
CONST_ME_SKULLVERTICAL = 60
CONST_ME_ASSASSIN = 61
CONST_ME_STEPSHORIZONTAL = 62
CONST_ME_BLOODYSTEPS = 63
CONST_ME_STEPSVERTICAL = 64
CONST_ME_YALAHARIGHOST = 65
CONST_ME_BATS = 66
CONST_ME_SMOKE = 67
CONST_ME_INSECTS = 68
CONST_ME_DRAGONHEAD = 69
CONST_ME_BLACKFIRE = 70

No lo e intentado pero en vez de escribir el poder mira si te puede funcionar solo poniendo los numeros..



[Tienes que estar registrado y conectado para ver esa imagen]
http://celesta-global.net/

#3 Re: [PEDIDO] 3 scripts sencillos...... el Vie Nov 29, 2013 10:51 pm

Hellscors


Miembro
Es todo we  <3 me funciono el 1 y el 3 ,nomas el 2do no me sirvio..
Lo puse igual y no me salia ningun error en la consola ,sin embargo,no funcionaba,mira te dejare mi login.lua y lo podrias poner tu? ,porfa(:


Código:
local config = {
   loginMessage = getConfigValue('loginMessage'),
   text = "No es permitido darse lvl con mc, de lo demas si.",
   useFragHandler = getBooleanFromString(getConfigValue('useFragHandler'))
}
  function onLogin(cid)
   local loss = getConfigValue('deathLostPercent')
 
   if(loss ~= nil) then
      doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, loss * 10)
  end
 
   if getPlayerStorageValue(cid, 11000) == -1 then
      setPlayerStorageValue(cid, 11000, 0)
   end
 
   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 .. " Please choose your outfit."
         doPlayerSendOutfitWindow(cid)
      end
 
      doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str)
        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(not isPlayerGhost(cid)) then
      doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
   end
 
     registerCreatureEvent(cid, "kill")
     registerCreatureEvent(cid, "onPrepareDeath")
     registerCreatureEvent(cid, "PlayerLogout")
     registerCreatureEvent(cid, "onPrepareDeath")
     registerCreatureEvent(cid, "owned")
     registerCreatureEvent(cid, "deathBroadcast")
     registerCreatureEvent(cid, "DeathBroadcast")
     registerCreatureEvent(cid, "Skull")
     registerCreatureEvent(cid, "showKD")
 
   registerCreatureEvent(cid, "Idle")
   if(config.useFragHandler) then
      registerCreatureEvent(cid, "SkullCheck")
   end
 
   registerCreatureEvent(cid, "ReportBug")
   return true
end

http://www.blacktibia.org/t32971-86-prestige-imperia-ot-server-h

#4 Re: [PEDIDO] 3 scripts sencillos...... el Vie Nov 29, 2013 11:03 pm

Sirakx


Moderador
Código:

local config = {
   loginMessage = getConfigValue('loginMessage'),
   text = "No es permitido darse lvl con mc, de lo demas si.",
   useFragHandler = getBooleanFromString(getConfigValue('useFragHandler'))
}
  function onLogin(cid)
local text = "Welcome " .. getCreatureName(cid) .. ", Esta es la lista de comandos:\n\n!aol              -> Compras un amulet of loss\n!spells            -> Lista de todos los poderes que hay\n!frags            -> Miras la cantidad de Frags que llevas\n!offer            -> Permitirle compra el articulo de ciertas subastas en nuestra página web\nCtrl+R            -> Reportas algun bug al staff\n!afk on(off)              -> Sirve para abisarle a los demas que estas afk.\n!check              ->Miras el tiempo de tu comida si tienes menos de 200 empiesas a bajar vida\n!explorer            -> Obtienes items esensiales para una exploracion\n!rank                ->Miras los ranks que hay en el juego (!rank level,magic,etc)\n!commands            ->Para ver todos los comandos"
    doPlayerPopupFYI(cid,text)
   local loss = getConfigValue('deathLostPercent')
 
   if(loss ~= nil) then
      doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, loss * 10)
  end
 
   if getPlayerStorageValue(cid, 11000) == -1 then
      setPlayerStorageValue(cid, 11000, 0)
   end
 
   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 .. " Please choose your outfit."
         doPlayerSendOutfitWindow(cid)
      end
 
      doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str)
        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(not isPlayerGhost(cid)) then
      doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
   end
 
     registerCreatureEvent(cid, "kill")
     registerCreatureEvent(cid, "onPrepareDeath")
     registerCreatureEvent(cid, "PlayerLogout")
     registerCreatureEvent(cid, "onPrepareDeath")
     registerCreatureEvent(cid, "owned")
     registerCreatureEvent(cid, "deathBroadcast")
     registerCreatureEvent(cid, "DeathBroadcast")
     registerCreatureEvent(cid, "Skull")
     registerCreatureEvent(cid, "showKD")
 
   registerCreatureEvent(cid, "Idle")
   if(config.useFragHandler) then
      registerCreatureEvent(cid, "SkullCheck")
   end
 
   registerCreatureEvent(cid, "ReportBug")
   return true
end
Talvez tengas que reinicar tu server...

Deja tu me gusta



Última edición por God Rakzzo el Vie Nov 29, 2013 11:31 pm, editado 2 veces

http://celesta-global.net/

#5 Re: [PEDIDO] 3 scripts sencillos...... el Vie Nov 29, 2013 11:06 pm

Hellscors


Miembro
Justo asi lo coloquè yo ,pero no funciono T.T  ,porque sera D:?   ,okey(Y)

http://www.blacktibia.org/t32971-86-prestige-imperia-ot-server-h

#6 Re: [PEDIDO] 3 scripts sencillos...... el Vie Nov 29, 2013 11:17 pm

Sirakx


Moderador
[Tienes que estar registrado y conectado para ver este vínculo] escribió:Justo asi lo coloquè yo ,pero no funciono T.T  ,porque sera D:?   ,okey(Y)
Ya lo arregle es que lo que pasa lo puse mal a ver míralo ahora xD (Disculpen spam)

Si funciona si solamente haces reload

http://celesta-global.net/

#7 Re: [PEDIDO] 3 scripts sencillos...... el Vie Nov 29, 2013 11:22 pm

Hellscors


Miembro
Jeje ovio reinicio el server ,no soy tan noob ._. ,ahora me da error D:


Código:
[29/11/2013 20:48:26] [Error - LuaScriptInterface::loadFile] data/creaturescripts/scripts/login.lua:32: unfinished string near '"Hello, it appears that your character has been namelocked, what would you like '
[29/11/2013 20:48:26] [Warning - Event::loadScript] Cannot load script (data/creaturescripts/scripts/login.lua)
[29/11/2013 20:48:26] data/creaturescripts/scripts/login.lua:32: unfinished string near '"Hello, it appears that your character has been namelocked, what would you like '

http://www.blacktibia.org/t32971-86-prestige-imperia-ot-server-h

#8 Re: [PEDIDO] 3 scripts sencillos...... el Vie Nov 29, 2013 11:36 pm

Sirakx


Moderador
Pues esta raro men tal vez sea la versión de tu server o tu consola ami me funciona muy bien

Imagen:
[Tienes que estar registrado y conectado para ver esa imagen]

http://celesta-global.net/

#9 Re: [PEDIDO] 3 scripts sencillos...... el Sáb Nov 30, 2013 12:02 am

Hellscors


Miembro
D: te refieres a la de version de 8.6 y asi? no creo ,ya que ya habia tenido otro ot y si funcionabà en fin seguirè buscando...

http://www.blacktibia.org/t32971-86-prestige-imperia-ot-server-h

#10 Re: [PEDIDO] 3 scripts sencillos...... el Sáb Nov 30, 2013 1:41 am

Belerofonte


Administrador
Un simple despiste ^^
Los espacios entre las palabras de frases que hay "entre comillas" que se entrecortan en una línea
y continua en la/s siguiente/s de abajo (habiéndose pulsado la tecla "Enter/Intro"), no deberían de existir...
Y todas se hayan así:
Código:
               doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, it appears that your character has been namelocked, what would you like

as your new name?")
Cuando deberían de ser así:
Código:
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, it appears that your character has been namelocked, what would you like as your new name?")
El propio error anterior te dice que solamente se puede leer la frase:
"Hello, it appears that your character has been namelocked, what would you like
y no aparece lo que le seguía abajo:
as your new name?")

Con ello la comilla " y paréntesis ) que cerrarían la frase & función secundaria del script:
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, it appears that your character has been namelocked, what would you like as your new name?")

Es decir:
Código:
local config = {
       loginMessage = getConfigValue('loginMessage'),
       text = "No es permitido darse lvl con mc, de lo demas si.",
       useFragHandler = getBooleanFromString(getConfigValue('useFragHandler'))
    }
      function onLogin(cid)
local text = "Welcome " .. getCreatureName(cid) .. ", Esta es la lista de comandos:\n\n!aol               -> Compras un amulet of loss\n!spells            -> Lista de todos los poderes que hay\n!frags             -> Miras la cantidad de Frags que llevas\n!offer            -> Permitirle compra el articulo de ciertas subastas en nuestra página web\nCtrl+R             -> Reportas algun bug al staff\n!afk on(off)              -> Sirve para abisarle a los demas que estas afk.\n!check              ->Miras el tiempo de tu comida si tienes menos de 200 empiesas a bajar vida\n!explorer            -> Obtienes items esensiales para una exploracion\n!rank                ->Miras los ranks que hay en el juego (!rank level,magic,etc)\n!commands             ->Para ver todos los comandos"
        doPlayerPopupFYI(cid,text)
       local loss = getConfigValue('deathLostPercent')
    
      if(loss ~= nil) then
          doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, loss * 10)
      end
    
      if getPlayerStorageValue(cid, 11000) == -1 then
          setPlayerStorageValue(cid, 11000, 0)
       end
    
      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 .. " Please choose your outfit."
             doPlayerSendOutfitWindow(cid)
          end
    
doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str)
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(not isPlayerGhost(cid)) then
          doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
       end
    
        registerCreatureEvent(cid, "kill")
         registerCreatureEvent(cid, "onPrepareDeath")
         registerCreatureEvent(cid, "PlayerLogout")
         registerCreatureEvent(cid, "onPrepareDeath")
         registerCreatureEvent(cid, "owned")
         registerCreatureEvent(cid, "deathBroadcast")
         registerCreatureEvent(cid, "DeathBroadcast")
         registerCreatureEvent(cid, "Skull")
         registerCreatureEvent(cid, "showKD")
    
      registerCreatureEvent(cid, "Idle")
       if(config.useFragHandler) then
          registerCreatureEvent(cid, "SkullCheck")
       end
    
      registerCreatureEvent(cid, "ReportBug")
       return true
    end
Pruébalo.

God Rakzzo escribió:
[Tienes que estar registrado y conectado para ver este vínculo] escribió:Justo asi lo coloquè yo ,pero no funciono T.T  ,porque sera D:?   ,okey(Y)
Ya lo arregle es que lo que pasa lo puse mal a ver míralo ahora xD (Disculpen spam)

Si funciona si solamente haces reload
Tranquilo, no haces spam, simplemente le estás contestando a otro usuario
Él comenta & tú le respondes acerca de su problema... quiero decir: sin que haya más de un comentario entre cada uno.



Sugerencia para evitar futuros quebraderos de cabeza:
[Tienes que estar registrado y conectado para ver este vínculo] - [Tienes que estar registrado y conectado para ver este vínculo] - [Tienes que estar registrado y conectado para ver este vínculo]
[Tienes que estar registrado y conectado para ver esa imagen]

Contenido patrocinado


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 .