Ir para conteúdo
TK News
  • Cadastre-se

Derivado Preciso de Ajuda com Erros no Console

ZoR

Por ,
em Suporte Tibia OTServer

 Share Seguidores 0

Posts Recomendados

ZoR

ZoR 93

Postado
Postado

GALERA SUAVE ? ENTAO PRECISO DE AJUDA COM ALGUNS BUGS NO MEU CONSOLE!

 

597d6b7956187_Bugsgame.thumb.png.f3994c66f31ef4a3eec228fb1a21956e.png

 

Scripts

 

Habateku Chidori

Spoiler 

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat, COMBAT_PARAM_HITCOLOR, 101)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -100.2, 1, -100.2, 1)

local combat2 = createCombatObject()
setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat2, COMBAT_PARAM_HITCOLOR, 101)
setCombatFormula(combat3, COMBAT_FORMULA_LEVELMAGIC, -1.5, 2, -5.3, 2)

local combat4 = createCombatObject()
setCombatParam(combat4, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat4, COMBAT_PARAM_HITCOLOR, 101)
setCombatFormula(combat4, COMBAT_FORMULA_LEVELMAGIC, -1.5, 2, -11.2, 1)

function onCastSpell(cid, var)
local waittime = 3.0 -- Tempo de exhaustion
local storage = 115829

if exhaustion.check(cid, storage) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Aguarde " .. exhaustion.get(cid, storage) .. " segundos para usar a spell novamente.")
return false
end
   local pos1 = {x=getThingPosition(getCreatureTarget(cid)).x+2, y=getThingPosition(getCreatureTarget(cid)).y, z=getThingPosition(getCreatureTarget(cid)).z}
   local pos2 = {x=getThingPosition(getCreatureTarget(cid)).x+3, y=getThingPosition(getCreatureTarget(cid)).y, z=getThingPosition(getCreatureTarget(cid)).z}
   local pos3 = {x=getThingPosition(getCreatureTarget(cid)).x+2, y=getThingPosition(getCreatureTarget(cid)).y, z=getThingPosition(getCreatureTarget(cid)).z}
   local pos4 = {x=getThingPosition(getCreatureTarget(cid)).x-1, y=getThingPosition(getCreatureTarget(cid)).y, z=getThingPosition(getCreatureTarget(cid)).z}
   
   local t1 = 1
   local t2 = 1000
   local t3 = 2000
   local t4 = 2000
   addEvent(doSendMagicEffect,t1,pos1,293)
   addEvent(doSendMagicEffect,t2,pos2,426) 
   addEvent(doSendMagicEffect,t3,pos3,275) 
   addEvent(doSendMagicEffect,t4,pos4,275) 
   addEvent(doCombat, 1000, cid,combat,var)
   addEvent(doCombat3, 2000, cid,combat3,var)
   addEvent(doCombat4, 2500, cid,combat4,var)
   exhaustion.set(cid, storage, waittime)
   return true
end

 

 

Tsuk

 

Spoiler 

local time = 15 -- tempo em segundos para voltar
local points = 10 -- o tanto de skills ele ficara mais forte

local condition = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition, CONDITION_PARAM_TICKS, time*1000)
setConditionParam(condition, CONDITION_PARAM_STAT_MAGICLEVEL, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_FIST, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_SWORD, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_AXE, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_CLUB, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_DISTANCE, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_SHIELD, points)

function onCastSpell(cid, var)

local waittime = 15 -- Tempo de exhaustion
local storage = 15288

if exhaustion.check(cid, storage) then
return false
end

exhaustion.set(cid, storage, waittime)
local pos = getCreaturePosition(cid)
local target = getCreatureTarget(cid)
local targetpos = getCreaturePosition(target)

local Tile1 = {x=1509, y=1255, z=7} -- position onde o player sera teleportado
local Tile2 = {x=1509, y=1259, z=7} -- position onde o target sera teleportado
local from,to = {x=979, y=911, z=7},{x=994, y=918, z=7},{ -- ponto 1 ao ponto 2 da area em que ele sera teleportado
local from,to1 = {x=1504, y=1253, z=7},{x=1514, y=1263, z=7},{ -- ponto 1 ao ponto 2 da area em que ele sera teleportado
local from,to2 = {x=1553, y=1253, z=7},{x=1562, y=1262, z=7},{ -- ponto 1 ao ponto 2 da area em que ele sera teleportado
local from,to3 = {x=1160, y=1176, z=7},{x=1168, y=1190, z=7},{ -- ponto 1 ao ponto 2 da area em que ele sera teleportado
local from,to4 = {x=664, y=1099, z=7},{x=685, y=1104, z=7},{ -- ponto 1 ao ponto 2 da area em que ele sera teleportado


if isInRange(pos, from, to) and isInRange(pos, from1, to1) and isInRange(pos, from2, to2) and isInRange(pos, from3, to3) and isInRange(pos, from4, to4) then
doPlayerSendCancel(cid, "Você nao pode usar o Tsukuyomi World aqui!")
return FALSE
end

if not isPlayer(target) then
doPlayerSendCancel(cid, "Você so pode usar essa magia em players!")
return FALSE
end

local function Teleport_Player(cid)
doTeleportThing(cid,pos)
end

local function Teleport_Target(target)
doCreatureSetNoMove(target, 0)
doTeleportThing(target,targetpos)
end

doAddCondition(cid, condition)
doCreatureSetNoMove(target, 1)
doTeleportThing(cid,Tile1)
doTeleportThing(target,Tile2)
doSendMagicEffect(targetpos, 252)
addEvent(Teleport_Player, time*1000, cid)
addEvent(Teleport_Target, time*1000, target)
return TRUE
end

 

  

O rei de seu proprio destino é aquele que luta pela gloria do amanhã!
Discord : ZoR#9373


 

Link para o post
Compartilhar em outros sites
quemtuacha

quemtuacha 49

Postado
Postado

tsu

Spoiler

local time = 15 -- tempo em segundos para voltar
local points = 10 -- o tanto de skills ele ficara mais forte

local condition = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition, CONDITION_PARAM_TICKS, time*1000)
setConditionParam(condition, CONDITION_PARAM_STAT_MAGICLEVEL, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_FIST, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_SWORD, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_AXE, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_CLUB, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_DISTANCE, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_SHIELD, points)

function onCastSpell(cid, var)

local waittime = 15 -- Tempo de exhaustion
local storage = 15288

if exhaustion.check(cid, storage) then
return false
end

exhaustion.set(cid, storage, waittime)
local pos = getCreaturePosition(cid)
local target = getCreatureTarget(cid)
local targetpos = getCreaturePosition(target)

local Tile1 = {x=1509, y=1255, z=7} -- position onde o player sera teleportado
local Tile2 = {x=1509, y=1259, z=7} -- position onde o target sera teleportado
local from,to = {x=979, y=911, z=7},{x=994, y=918, z=7} -- ponto 1 ao ponto 2 da area em que ele sera teleportado
local from,to1 = {x=1504, y=1253, z=7},{x=1514, y=1263, z=7} -- ponto 1 ao ponto 2 da area em que ele sera teleportado
local from,to2 = {x=1553, y=1253, z=7},{x=1562, y=1262, z=7} -- ponto 1 ao ponto 2 da area em que ele sera teleportado
local from,to3 = {x=1160, y=1176, z=7},{x=1168, y=1190, z=7} -- ponto 1 ao ponto 2 da area em que ele sera teleportado
local from,to4 = {x=664, y=1099, z=7},{x=685, y=1104, z=7} -- ponto 1 ao ponto 2 da area em que ele sera teleportado


if isInRange(pos, from, to) and isInRange(pos, from1, to1) and isInRange(pos, from2, to2) and isInRange(pos, from3, to3) and isInRange(pos, from4, to4) then
doPlayerSendCancel(cid, "Você nao pode usar o Tsukuyomi World aqui!")
return FALSE
end

if not isPlayer(target) then
doPlayerSendCancel(cid, "Você so pode usar essa magia em players!")
return FALSE
end

local function Teleport_Player(cid)
doTeleportThing(cid,pos)
end

local function Teleport_Target(target)
doCreatureSetNoMove(target, 0)
doTeleportThing(target,targetpos)
end

doAddCondition(cid, condition)
doCreatureSetNoMove(target, 1)
doTeleportThing(cid,Tile1)
doTeleportThing(target,Tile2)
doSendMagicEffect(targetpos, 252)
addEvent(Teleport_Player, time*1000, cid)
addEvent(Teleport_Target, time*1000, target)
return TRUE
end

 

habateku

 

Spoiler

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat, COMBAT_PARAM_HITCOLOR, 101)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -100.2, 1, -100.2, 1)

local combat2 = createCombatObject()
setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat2, COMBAT_PARAM_HITCOLOR, 101)
setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, -1.5, 2, -5.3, 2)

local combat4 = createCombatObject()
setCombatParam(combat4, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat4, COMBAT_PARAM_HITCOLOR, 101)
setCombatFormula(combat4, COMBAT_FORMULA_LEVELMAGIC, -1.5, 2, -11.2, 1)

function onCastSpell(cid, var)
local waittime = 3.0 -- Tempo de exhaustion
local storage = 115829

if exhaustion.check(cid, storage) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Aguarde " .. exhaustion.get(cid, storage) .. " segundos para usar a spell novamente.")
return false
end
   local pos1 = {x=getThingPosition(getCreatureTarget(cid)).x+2, y=getThingPosition(getCreatureTarget(cid)).y, z=getThingPosition(getCreatureTarget(cid)).z}
   local pos2 = {x=getThingPosition(getCreatureTarget(cid)).x+3, y=getThingPosition(getCreatureTarget(cid)).y, z=getThingPosition(getCreatureTarget(cid)).z}
   local pos3 = {x=getThingPosition(getCreatureTarget(cid)).x+2, y=getThingPosition(getCreatureTarget(cid)).y, z=getThingPosition(getCreatureTarget(cid)).z}
   local pos4 = {x=getThingPosition(getCreatureTarget(cid)).x-1, y=getThingPosition(getCreatureTarget(cid)).y, z=getThingPosition(getCreatureTarget(cid)).z}
   
   local t1 = 1
   local t2 = 1000
   local t3 = 2000
   local t4 = 2000
   addEvent(doSendMagicEffect,t1,pos1,293)
   addEvent(doSendMagicEffect,t2,pos2,426) 
   addEvent(doSendMagicEffect,t3,pos3,275) 
   addEvent(doSendMagicEffect,t4,pos4,275) 
   addEvent(doCombat, 1000, cid,combat,var)
   addEvent(doCombat2, 2000, cid,combat2,var)
   addEvent(doCombat4, 2500, cid,combat4,var)
   exhaustion.set(cid, storage, waittime)
   return true
end

 

da uma olhada na pasta mods, tem um arquivo config.xml nela que não é um mod.

 

Host bom para hospedar seu jogo => https://shre.ink/OminiHost

 

Link para o post
Compartilhar em outros sites
ZoR

ZoR 93

Postado
  • Autor
Postado
1 minuto atrás, quemtuacha disse:

tsu

  Ocultar conteúdo

local time = 15 -- tempo em segundos para voltar
local points = 10 -- o tanto de skills ele ficara mais forte

local condition = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition, CONDITION_PARAM_TICKS, time*1000)
setConditionParam(condition, CONDITION_PARAM_STAT_MAGICLEVEL, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_FIST, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_SWORD, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_AXE, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_CLUB, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_DISTANCE, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_SHIELD, points)

function onCastSpell(cid, var)

local waittime = 15 -- Tempo de exhaustion
local storage = 15288

if exhaustion.check(cid, storage) then
return false
end

exhaustion.set(cid, storage, waittime)
local pos = getCreaturePosition(cid)
local target = getCreatureTarget(cid)
local targetpos = getCreaturePosition(target)

local Tile1 = {x=1509, y=1255, z=7} -- position onde o player sera teleportado
local Tile2 = {x=1509, y=1259, z=7} -- position onde o target sera teleportado
local from,to = {x=979, y=911, z=7},{x=994, y=918, z=7} -- ponto 1 ao ponto 2 da area em que ele sera teleportado
local from,to1 = {x=1504, y=1253, z=7},{x=1514, y=1263, z=7} -- ponto 1 ao ponto 2 da area em que ele sera teleportado
local from,to2 = {x=1553, y=1253, z=7},{x=1562, y=1262, z=7} -- ponto 1 ao ponto 2 da area em que ele sera teleportado
local from,to3 = {x=1160, y=1176, z=7},{x=1168, y=1190, z=7} -- ponto 1 ao ponto 2 da area em que ele sera teleportado
local from,to4 = {x=664, y=1099, z=7},{x=685, y=1104, z=7} -- ponto 1 ao ponto 2 da area em que ele sera teleportado


if isInRange(pos, from, to) and isInRange(pos, from1, to1) and isInRange(pos, from2, to2) and isInRange(pos, from3, to3) and isInRange(pos, from4, to4) then
doPlayerSendCancel(cid, "Você nao pode usar o Tsukuyomi World aqui!")
return FALSE
end

if not isPlayer(target) then
doPlayerSendCancel(cid, "Você so pode usar essa magia em players!")
return FALSE
end

local function Teleport_Player(cid)
doTeleportThing(cid,pos)
end

local function Teleport_Target(target)
doCreatureSetNoMove(target, 0)
doTeleportThing(target,targetpos)
end

doAddCondition(cid, condition)
doCreatureSetNoMove(target, 1)
doTeleportThing(cid,Tile1)
doTeleportThing(target,Tile2)
doSendMagicEffect(targetpos, 252)
addEvent(Teleport_Player, time*1000, cid)
addEvent(Teleport_Target, time*1000, target)
return TRUE
end

 

habateku

 

  Ocultar conteúdo

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat, COMBAT_PARAM_HITCOLOR, 101)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -100.2, 1, -100.2, 1)

local combat2 = createCombatObject()
setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat2, COMBAT_PARAM_HITCOLOR, 101)
setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, -1.5, 2, -5.3, 2)

local combat4 = createCombatObject()
setCombatParam(combat4, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat4, COMBAT_PARAM_HITCOLOR, 101)
setCombatFormula(combat4, COMBAT_FORMULA_LEVELMAGIC, -1.5, 2, -11.2, 1)

function onCastSpell(cid, var)
local waittime = 3.0 -- Tempo de exhaustion
local storage = 115829

if exhaustion.check(cid, storage) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Aguarde " .. exhaustion.get(cid, storage) .. " segundos para usar a spell novamente.")
return false
end
   local pos1 = {x=getThingPosition(getCreatureTarget(cid)).x+2, y=getThingPosition(getCreatureTarget(cid)).y, z=getThingPosition(getCreatureTarget(cid)).z}
   local pos2 = {x=getThingPosition(getCreatureTarget(cid)).x+3, y=getThingPosition(getCreatureTarget(cid)).y, z=getThingPosition(getCreatureTarget(cid)).z}
   local pos3 = {x=getThingPosition(getCreatureTarget(cid)).x+2, y=getThingPosition(getCreatureTarget(cid)).y, z=getThingPosition(getCreatureTarget(cid)).z}
   local pos4 = {x=getThingPosition(getCreatureTarget(cid)).x-1, y=getThingPosition(getCreatureTarget(cid)).y, z=getThingPosition(getCreatureTarget(cid)).z}
   
   local t1 = 1
   local t2 = 1000
   local t3 = 2000
   local t4 = 2000
   addEvent(doSendMagicEffect,t1,pos1,293)
   addEvent(doSendMagicEffect,t2,pos2,426) 
   addEvent(doSendMagicEffect,t3,pos3,275) 
   addEvent(doSendMagicEffect,t4,pos4,275) 
   addEvent(doCombat, 1000, cid,combat,var)
   addEvent(doCombat2, 2000, cid,combat2,var)
   addEvent(doCombat4, 2500, cid,combat4,var)
   exhaustion.set(cid, storage, waittime)
   return true
end

 

da uma olhada na pasta mods, tem um arquivo config.xml nela que não é um mod.

TOOOOP!!! Vlw caraaa!!!!! Te Amo s2!

7 horas atrás, quemtuacha disse:

tsu

  Mostrar conteúdo oculto

local time = 15 -- tempo em segundos para voltar
local points = 10 -- o tanto de skills ele ficara mais forte

local condition = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition, CONDITION_PARAM_TICKS, time*1000)
setConditionParam(condition, CONDITION_PARAM_STAT_MAGICLEVEL, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_FIST, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_SWORD, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_AXE, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_CLUB, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_DISTANCE, points)
setConditionParam(condition, CONDITION_PARAM_SKILL_SHIELD, points)

function onCastSpell(cid, var)

local waittime = 15 -- Tempo de exhaustion
local storage = 15288

if exhaustion.check(cid, storage) then
return false
end

exhaustion.set(cid, storage, waittime)
local pos = getCreaturePosition(cid)
local target = getCreatureTarget(cid)
local targetpos = getCreaturePosition(target)

local Tile1 = {x=1509, y=1255, z=7} -- position onde o player sera teleportado
local Tile2 = {x=1509, y=1259, z=7} -- position onde o target sera teleportado
local from,to = {x=979, y=911, z=7},{x=994, y=918, z=7} -- ponto 1 ao ponto 2 da area em que ele sera teleportado
local from,to1 = {x=1504, y=1253, z=7},{x=1514, y=1263, z=7} -- ponto 1 ao ponto 2 da area em que ele sera teleportado
local from,to2 = {x=1553, y=1253, z=7},{x=1562, y=1262, z=7} -- ponto 1 ao ponto 2 da area em que ele sera teleportado
local from,to3 = {x=1160, y=1176, z=7},{x=1168, y=1190, z=7} -- ponto 1 ao ponto 2 da area em que ele sera teleportado
local from,to4 = {x=664, y=1099, z=7},{x=685, y=1104, z=7} -- ponto 1 ao ponto 2 da area em que ele sera teleportado


if isInRange(pos, from, to) and isInRange(pos, from1, to1) and isInRange(pos, from2, to2) and isInRange(pos, from3, to3) and isInRange(pos, from4, to4) then
doPlayerSendCancel(cid, "Você nao pode usar o Tsukuyomi World aqui!")
return FALSE
end

if not isPlayer(target) then
doPlayerSendCancel(cid, "Você so pode usar essa magia em players!")
return FALSE
end

local function Teleport_Player(cid)
doTeleportThing(cid,pos)
end

local function Teleport_Target(target)
doCreatureSetNoMove(target, 0)
doTeleportThing(target,targetpos)
end

doAddCondition(cid, condition)
doCreatureSetNoMove(target, 1)
doTeleportThing(cid,Tile1)
doTeleportThing(target,Tile2)
doSendMagicEffect(targetpos, 252)
addEvent(Teleport_Player, time*1000, cid)
addEvent(Teleport_Target, time*1000, target)
return TRUE
end

 

habateku

 

  Mostrar conteúdo oculto

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat, COMBAT_PARAM_HITCOLOR, 101)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -100.2, 1, -100.2, 1)

local combat2 = createCombatObject()
setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat2, COMBAT_PARAM_HITCOLOR, 101)
setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, -1.5, 2, -5.3, 2)

local combat4 = createCombatObject()
setCombatParam(combat4, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat4, COMBAT_PARAM_HITCOLOR, 101)
setCombatFormula(combat4, COMBAT_FORMULA_LEVELMAGIC, -1.5, 2, -11.2, 1)

function onCastSpell(cid, var)
local waittime = 3.0 -- Tempo de exhaustion
local storage = 115829

if exhaustion.check(cid, storage) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Aguarde " .. exhaustion.get(cid, storage) .. " segundos para usar a spell novamente.")
return false
end
   local pos1 = {x=getThingPosition(getCreatureTarget(cid)).x+2, y=getThingPosition(getCreatureTarget(cid)).y, z=getThingPosition(getCreatureTarget(cid)).z}
   local pos2 = {x=getThingPosition(getCreatureTarget(cid)).x+3, y=getThingPosition(getCreatureTarget(cid)).y, z=getThingPosition(getCreatureTarget(cid)).z}
   local pos3 = {x=getThingPosition(getCreatureTarget(cid)).x+2, y=getThingPosition(getCreatureTarget(cid)).y, z=getThingPosition(getCreatureTarget(cid)).z}
   local pos4 = {x=getThingPosition(getCreatureTarget(cid)).x-1, y=getThingPosition(getCreatureTarget(cid)).y, z=getThingPosition(getCreatureTarget(cid)).z}
   
   local t1 = 1
   local t2 = 1000
   local t3 = 2000
   local t4 = 2000
   addEvent(doSendMagicEffect,t1,pos1,293)
   addEvent(doSendMagicEffect,t2,pos2,426) 
   addEvent(doSendMagicEffect,t3,pos3,275) 
   addEvent(doSendMagicEffect,t4,pos4,275) 
   addEvent(doCombat, 1000, cid,combat,var)
   addEvent(doCombat2, 2000, cid,combat2,var)
   addEvent(doCombat4, 2500, cid,combat4,var)
   exhaustion.set(cid, storage, waittime)
   return true
end

 

da uma olhada na pasta mods, tem um arquivo config.xml nela que não é um mod.

ainda ta com erro amigo,o erro só tinha desaparecido mas quando uso in-game aparece isso

597de13ad311b_maiserros.png.e43d0622882aad46e6e9b85c1520b857.png

 

Kisame protect

Spoiler 

local tempo = 60 -- tempo em segundos.
local effect = {13} -- effect no player, caso queira apenas 1, basta remover os outros numeros.
     
local ml = 70 -- quantos ira aumentar o skill de ML
local skillfist = 70 -- quantos ira aumentar o skill de Fist
local skillsword = 70 -- quantos ira aumentar o skill de Sword
local skillaxe = 70 -- quantos ira aumentar o skill de Axe
local skillclub = 70 -- quantos ira aumentar o skill de Club
local skilldistance = 70 -- quantos ira aumentar o skill de Distance
local skillshield = 70 -- quantos ira aumentar o skill de Shield
local health = 200 -- A cada 1 segundo quantos aumentar de vida
local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0)
     
local condition = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition, CONDITION_PARAM_TICKS, tempo*1000)
setConditionParam(condition, CONDITION_PARAM_STAT_MAGICLEVEL, ml)
setConditionParam(condition, CONDITION_PARAM_SKILL_FIST, skillfist)
setConditionParam(condition, CONDITION_PARAM_SKILL_SWORD, skillsword)
setConditionParam(condition, CONDITION_PARAM_SKILL_AXE, skillaxe)
setConditionParam(condition, CONDITION_PARAM_SKILL_CLUB, skillclub)
setConditionParam(condition, CONDITION_PARAM_SKILL_DISTANCE, skilldistance)
setConditionParam(condition, CONDITION_PARAM_SKILL_SHIELD, skillshield)
setConditionParam(condition, CONDITION_PARAM_OUTFIT, outfit)
setCombatCondition(combat, condition)
     
local condition = createConditionObject(CONDITION_HASTE)
setConditionParam(condition, CONDITION_PARAM_SPEED, 250)
setConditionParam(condition, CONDITION_PARAM_TICKS, tempo*1000)
setConditionParam(condition, CONDITION_PARAM_BUFF, TRUE)
setCombatCondition(combat, condition)
     
local condition = createConditionObject(CONDITION_REGENERATION)
setConditionParam(condition, CONDITION_PARAM_SUBID, 1)
setConditionParam(condition, CONDITION_PARAM_BUFF, TRUE)
setConditionParam(condition, CONDITION_PARAM_TICKS, tempo*1000)
setConditionParam(condition, CONDITION_PARAM_HEALTHGAIN, health)
setConditionParam(condition, CONDITION_PARAM_HEALTHTICKS, 1000)
setCombatCondition(combat, condition)
            
function magicEffect1(tempo2,tempo3,cid)
if (isCreature(cid)) then
    if getPlayerStorageValue(cid, 102011) > 0 and getCreatureCondition(cid, CONDITION_REGENERATION, 1) then
        for i=1, #effect do
        local position = {x=getPlayerPosition(cid).x+1, y=getPlayerPosition(cid).y+1, z=getPlayerPosition(cid).z}
doSendMagicEffect(position, effect[i])  
        end
    end
end
end
                  
function onCastSpell(cid, var)
local position127 = {x=getPlayerPosition(cid).x, y=getPlayerPosition(cid).y, z=getPlayerPosition(cid).z}
if getPlayerStorageValue(cid, 102011) ~= 1 or getCreatureCondition(cid, CONDITION_REGENERATION, 1) == false then
    doCombat(cid, combat, var)
    tempo2 = 0
    while (tempo2 ~= (tempo*1000)) do
        addEvent(magicEffect231, tempo2, tempo2, tempo*1000, cid)
        tempo2 = tempo2 + 300
    end
    setPlayerStorageValue(cid, 102011,1) -- storage verifica transformado, quando = 1 player esta transformado.
    doCreatureSay(cid, "Suiton Protect", TALKTYPE_MONSTER)
doSendMagicEffect(position127, 13)
else
end
end

 

 

http://prntscr.com/g26shf

Bugs

Spoiler 

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat, COMBAT_PARAM_EFFECT, 358)
setCombatParam(combat1, COMBAT_PARAM_HITCOLOR, 210)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -40.2, 1, -40.2, 1)

function onCastSpell(cid, var)
local waittime = 20 -- Tempo de exhaustion
local storage = 115829

if exhaustion.check(cid, storage) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Aguarde " .. exhaustion.get(cid, storage) .. " segundos para usar a spell novamente.")
return false
end
local target = getCreatureTarget(cid)
local storage = 102053
if isPlayer(target) then
if getPlayerStorageValue(target, storage) == 1 then
setPlayerStorageValue(target, storage, 0)
exhaustion.set(cid, storage, waittime)
return doCombat(cid, combat, var)
else 
doPlayerSendTextMessage(cid, 20, "O Player já está sem Buff.")
end
else 
doPlayerSendTextMessage(cid, 20, "Você só pode usar este poder em Players, pois monstros não tem Buff.")
end
end

 

Boost

Spoiler 

addSkills = function(cid)
if boost.getSkillBoosts(cid) > 0 then
if getCreatureCondition(cid, CONDITION_ATTRIBUTE, boost_Lib.cond_subId) then
 doRemoveCondition(cid, CONDITION_ATTRIBUTE, boost_Lib.cond_subId)
end


boost_system  = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(boost_system, CONDITION_PARAM_TICKS, -1)
setConditionParam(boost_system, CONDITION_PARAM_STAT_MAGICPOINTS, boost.getSkillBoosts(cid))
setConditionParam(boost_system, CONDITION_PARAM_SKILL_SWORD, boost.getSkillBoosts(cid))
setConditionParam(boost_system, CONDITION_PARAM_SKILL_CLUB, boost.getSkillBoosts(cid))
setConditionParam(boost_system, CONDITION_PARAM_SKILL_DISTANCE, boost.getSkillBoosts(cid))
setConditionParam(boost_system, CONDITION_PARAM_SKILL_SHIELD, boost.getSkillBoosts(cid))
setConditionParam(boost_system, CONDITION_PARAM_SUBID, boost_Lib.cond_subId)
return doAddCondition(cid, boost_system)
else
return false
end
end

 

Look

Spoiler 

function onLook(cid, thing, position, lookDistance)
if isPlayer(thing.uid) and thing.uid ~= cid then
 if jin.getPlayerBijuu(thing.uid) ~= 0 then
  doPlayerSetSpecialDescription(thing.uid, "\nJinchuuriki de: ["..jin.getPlayerBijuu(thing.uid).."]\nGraduação: "..
  grad.getGradu(thing.uid).."\nPatente: "..patente.getPatentName(thing.uid)..
  "\nPatente Kills: "..patente.getkills(thing.uid))
 else
  doPlayerSetSpecialDescription(thing.uid, "\nNão é um Jinchuuriki.\nGraduação: "..
  grad.getGradu(thing.uid).."\nPatente: "..patente.getPatentName(thing.uid)..
  "\nPatente Kills: "..patente.getkills(thing.uid))
 end
 return true
elseif thing.uid == cid then
 local string = 'You see yourself.'
 if getPlayerFlagValue(cid, PLAYERFLAG_SHOWGROUPINSTEADOFVOCATION) then
  string = string..' You are '.. getPlayerGroupName(cid) ..'.'
 elseif getPlayerVocation(cid) ~= 0 then
  string = string..' You are '.. getPlayerVocationName(cid) ..'.'
 else
  string = string..' You have no vocation.'
 end
 string = string..getPlayerSpecialDescription(cid)..''

if getPlayerGuildId(cid) > 0 then 
 string = string..' You are ' .. (getPlayerGuildRank(cid) == '' and 'a member' or getPlayerGuildRank(cid)) ..' of the '.. getPlayerGuildName(cid)
 string = getPlayerGuildNick(cid) ~= '' and string..' ('.. getPlayerGuildNick(cid) ..').' or string..'.'
end 

if getPlayerFlagValue(cid, PLAYERCUSTOMFLAG_CANSEECREATUREDETAILS) then
 string = string..'\nHealth: ['.. getCreatureHealth(cid) ..' / '.. getCreatureMaxHealth(cid) ..'], Mana: ['.. getCreatureMana(cid) ..' / '.. getCreatureMaxMana(cid) ..'].'
 string = string..'\nIP: '.. doConvertIntegerToIp(getPlayerIp(cid)) ..'.'
end

if getPlayerFlagValue(cid, PLAYERCUSTOMFLAG_CANSEEPOSITION) then
 string = string..'\nPosition: [X:'.. position.x..'] [Y:'.. position.y..'] [Z:'.. position.z..'].'
end

if jin.getPlayerBijuu(cid) ~= 0 then
 string = string.."\nJinchuuriki de: ["..jin.getPlayerBijuu(cid).."]"
else
 string = string.."\nNão é um Jinchuuriki."
end

string = string.."\nGraduação: "..grad.getGradu(cid)
string = string.."\nPatente: "..patente.getPatentName(cid).."\nPatente Kills: "..patente.getkills(cid)


 doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, string) 
 return false
end
 return true
end

 

login

Spoiler 

local config = {
 loginMessage = getConfigValue('loginMessage'),
 useFragHandler = getBooleanFromString(getConfigValue('useFragHandler'))
}

function onLogin(cid)
boost.addSkills(cid)
 local loss = getConfigValue('deathLostPercent')
 if(loss ~= nil) then
  doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, loss * 10)
 end


	return true
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) .. "."
  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, "Mail")
 registerCreatureEvent(cid, "GuildMotd")

 registerCreatureEvent(cid, "Idle")
 if(config.useFragHandler) then
  registerCreatureEvent(cid, "SkullCheck")
 end
        registerCreatureEvent(cid, "ProtDeath")
           registerCreatureEvent(cid, "Biohazard")
           registerCreatureEvent(cid, "ZombieAttack")
           registerCreatureEvent(cid, "WeaponMana")
     registerCreatureEvent(cid, "showVoc")       
        registerCreatureEvent(cid, "ReportBug")
        registerCreatureEvent(cid, "AdvanceSave")
 registerCreatureEvent(cid, "Outfit")
 registerCreatureEvent(cid, "MonsteDeath")
registerCreatureEvent(cid, "ExameJouninDead")
        registerCreatureEvent(cid, "ExameJouninBoss")
setPlayerStorageValue(cid, 8855, -1)
registerCreatureEvent(cid, "Senha")
registerCreatureEvent(cid, "eventotimes")
registerCreatureEvent(cid, "report")
registerCreatureEvent(cid, "attackguild")
registerCreatureEvent(cid, "NlooT")
registerCreatureEvent(cid, "DeathHP")
registerCreatureEvent(cid, "FirstItems")
registerCreatureEvent(cid, "KamuiMuzan")
registerCreatureEvent(cid, "UP")
registerCreatureEvent(cid, "Niwdeath")
registerCreatureEvent(cid, "Izanagi")
---------- PlayerPort---------------
if getPlayerStorageValue(cid, 49708) ~= 0 then
        setPlayerStorageValue(cid, 49708, 0) 
end
        if getPlayerGuildId(cid) > 0 then
             local guild = getPlayerGuildId(cid)
            doGuildAddEnemy(guild, enemy, 0, WAR_GUILD)
        else
        end
 return true
end

 

  

O rei de seu proprio destino é aquele que luta pela gloria do amanhã!
Discord : ZoR#9373


 

Link para o post
Compartilhar em outros sites
KotZletY

KotZletY 1097

Postado
Postado

login.lua:

Spoiler 

local config = {
 loginMessage = getConfigValue('loginMessage'),
 useFragHandler = getBooleanFromString(getConfigValue('useFragHandler'))
}

function onLogin(cid)
boost.addSkills(cid)
 local loss = getConfigValue('deathLostPercent')
 if(loss ~= nil) then
  doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, loss * 10)
 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) .. "."
  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, "Mail")
 registerCreatureEvent(cid, "GuildMotd")

 registerCreatureEvent(cid, "Idle")
 if(config.useFragHandler) then
  registerCreatureEvent(cid, "SkullCheck")
 end
 
registerCreatureEvent(cid, "ProtDeath")
registerCreatureEvent(cid, "Biohazard")
registerCreatureEvent(cid, "ZombieAttack")
registerCreatureEvent(cid, "WeaponMana")
registerCreatureEvent(cid, "showVoc")       
registerCreatureEvent(cid, "ReportBug")
registerCreatureEvent(cid, "AdvanceSave")
registerCreatureEvent(cid, "Outfit")
registerCreatureEvent(cid, "MonsteDeath")
registerCreatureEvent(cid, "ExameJouninDead")
registerCreatureEvent(cid, "ExameJouninBoss")
setPlayerStorageValue(cid, 8855, -1)
registerCreatureEvent(cid, "Senha")
registerCreatureEvent(cid, "eventotimes")
registerCreatureEvent(cid, "report")
registerCreatureEvent(cid, "attackguild")
registerCreatureEvent(cid, "NlooT")
registerCreatureEvent(cid, "DeathHP")
registerCreatureEvent(cid, "FirstItems")
registerCreatureEvent(cid, "KamuiMuzan")
registerCreatureEvent(cid, "UP")
registerCreatureEvent(cid, "Niwdeath")
registerCreatureEvent(cid, "Izanagi")
---------- PlayerPort---------------
if getPlayerStorageValue(cid, 49708) ~= 0 then
        setPlayerStorageValue(cid, 49708, 0) 
end
        if getPlayerGuildId(cid) > 0 then
             local guild = getPlayerGuildId(cid)
            doGuildAddEnemy(guild, enemy, 0, WAR_GUILD)
        else
        end
 return true
end

 

 

kisameprotect.lua:

Spoiler 

local tempo = 60 -- tempo em segundos.
local effect = {13} -- effect no player, caso queira apenas 1, basta remover os outros numeros.
     
local ml = 70 -- quantos ira aumentar o skill de ML
local skillfist = 70 -- quantos ira aumentar o skill de Fist
local skillsword = 70 -- quantos ira aumentar o skill de Sword
local skillaxe = 70 -- quantos ira aumentar o skill de Axe
local skillclub = 70 -- quantos ira aumentar o skill de Club
local skilldistance = 70 -- quantos ira aumentar o skill de Distance
local skillshield = 70 -- quantos ira aumentar o skill de Shield
local health = 200 -- A cada 1 segundo quantos aumentar de vida
local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0)
     
local condition = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition, CONDITION_PARAM_TICKS, tempo*1000)
setConditionParam(condition, CONDITION_PARAM_STAT_MAGICLEVEL, ml)
setConditionParam(condition, CONDITION_PARAM_SKILL_FIST, skillfist)
setConditionParam(condition, CONDITION_PARAM_SKILL_SWORD, skillsword)
setConditionParam(condition, CONDITION_PARAM_SKILL_AXE, skillaxe)
setConditionParam(condition, CONDITION_PARAM_SKILL_CLUB, skillclub)
setConditionParam(condition, CONDITION_PARAM_SKILL_DISTANCE, skilldistance)
setConditionParam(condition, CONDITION_PARAM_SKILL_SHIELD, skillshield)
setConditionParam(condition, CONDITION_PARAM_OUTFIT, outfit)
setCombatCondition(combat, condition)
     
local condition = createConditionObject(CONDITION_HASTE)
setConditionParam(condition, CONDITION_PARAM_SPEED, 250)
setConditionParam(condition, CONDITION_PARAM_TICKS, tempo*1000)
setConditionParam(condition, CONDITION_PARAM_BUFF, TRUE)
setCombatCondition(combat, condition)
     
local condition = createConditionObject(CONDITION_REGENERATION)
setConditionParam(condition, CONDITION_PARAM_SUBID, 1)
setConditionParam(condition, CONDITION_PARAM_BUFF, TRUE)
setConditionParam(condition, CONDITION_PARAM_TICKS, tempo*1000)
setConditionParam(condition, CONDITION_PARAM_HEALTHGAIN, health)
setConditionParam(condition, CONDITION_PARAM_HEALTHTICKS, 1000)
setCombatCondition(combat, condition)
            
function magicEffect1(tempo2,tempo3,cid)
if (isCreature(cid)) then
    if getPlayerStorageValue(cid, 102011) > 0 and getCreatureCondition(cid, CONDITION_REGENERATION, 1) then
        for i=1, #effect do
        local position = {x=getPlayerPosition(cid).x+1, y=getPlayerPosition(cid).y+1, z=getPlayerPosition(cid).z}
doSendMagicEffect(position, effect[i])  
        end
    end
end
end
                  
function onCastSpell(cid, var)
local position127 = {x=getPlayerPosition(cid).x, y=getPlayerPosition(cid).y, z=getPlayerPosition(cid).z}
if getPlayerStorageValue(cid, 102011) ~= 1 or getCreatureCondition(cid, CONDITION_REGENERATION, 1) == false then
    doCombat(cid, combat, var)
    tempo2 = 0
    while (tempo2 ~= (tempo*1000)) do		
        addEvent(function() magicEffect1(tempo2,tempo2,cid) end, tempo*1000)
        tempo2 = tempo2 + 300
    end
    setPlayerStorageValue(cid, 102011,1) -- storage verifica transformado, quando = 1 player esta transformado.
    doCreatureSay(cid, "Suiton Protect", TALKTYPE_MONSTER)
doSendMagicEffect(position127, 13)
else
end
end

 

 

Os erros estão aparecendo devido as suas alterações, então cuidado ao mexer, não mexa no que você não sabe, muito menos onde não deve! 

                                                              ezgif-1-98aab239f3.gif.1a897c9c3225228909e7b356a5cfb8e4.gif

Link para o post
Compartilhar em outros sites
ZoR

ZoR 93

Postado
  • Autor
Postado
21 minutos atrás, KotZletY disse:

login.lua:

  Ocultar conteúdo 


local config = {
 loginMessage = getConfigValue('loginMessage'),
 useFragHandler = getBooleanFromString(getConfigValue('useFragHandler'))
}

function onLogin(cid)
boost.addSkills(cid)
 local loss = getConfigValue('deathLostPercent')
 if(loss ~= nil) then
  doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, loss * 10)
 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) .. "."
  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, "Mail")
 registerCreatureEvent(cid, "GuildMotd")

 registerCreatureEvent(cid, "Idle")
 if(config.useFragHandler) then
  registerCreatureEvent(cid, "SkullCheck")
 end
 
registerCreatureEvent(cid, "ProtDeath")
registerCreatureEvent(cid, "Biohazard")
registerCreatureEvent(cid, "ZombieAttack")
registerCreatureEvent(cid, "WeaponMana")
registerCreatureEvent(cid, "showVoc")       
registerCreatureEvent(cid, "ReportBug")
registerCreatureEvent(cid, "AdvanceSave")
registerCreatureEvent(cid, "Outfit")
registerCreatureEvent(cid, "MonsteDeath")
registerCreatureEvent(cid, "ExameJouninDead")
registerCreatureEvent(cid, "ExameJouninBoss")
setPlayerStorageValue(cid, 8855, -1)
registerCreatureEvent(cid, "Senha")
registerCreatureEvent(cid, "eventotimes")
registerCreatureEvent(cid, "report")
registerCreatureEvent(cid, "attackguild")
registerCreatureEvent(cid, "NlooT")
registerCreatureEvent(cid, "DeathHP")
registerCreatureEvent(cid, "FirstItems")
registerCreatureEvent(cid, "KamuiMuzan")
registerCreatureEvent(cid, "UP")
registerCreatureEvent(cid, "Niwdeath")
registerCreatureEvent(cid, "Izanagi")
---------- PlayerPort---------------
if getPlayerStorageValue(cid, 49708) ~= 0 then
        setPlayerStorageValue(cid, 49708, 0) 
end
        if getPlayerGuildId(cid) > 0 then
             local guild = getPlayerGuildId(cid)
            doGuildAddEnemy(guild, enemy, 0, WAR_GUILD)
        else
        end
 return true
end

 

 

kisameprotect.lua:

  Ocultar conteúdo 


local tempo = 60 -- tempo em segundos.
local effect = {13} -- effect no player, caso queira apenas 1, basta remover os outros numeros.
     
local ml = 70 -- quantos ira aumentar o skill de ML
local skillfist = 70 -- quantos ira aumentar o skill de Fist
local skillsword = 70 -- quantos ira aumentar o skill de Sword
local skillaxe = 70 -- quantos ira aumentar o skill de Axe
local skillclub = 70 -- quantos ira aumentar o skill de Club
local skilldistance = 70 -- quantos ira aumentar o skill de Distance
local skillshield = 70 -- quantos ira aumentar o skill de Shield
local health = 200 -- A cada 1 segundo quantos aumentar de vida
local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0)
     
local condition = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition, CONDITION_PARAM_TICKS, tempo*1000)
setConditionParam(condition, CONDITION_PARAM_STAT_MAGICLEVEL, ml)
setConditionParam(condition, CONDITION_PARAM_SKILL_FIST, skillfist)
setConditionParam(condition, CONDITION_PARAM_SKILL_SWORD, skillsword)
setConditionParam(condition, CONDITION_PARAM_SKILL_AXE, skillaxe)
setConditionParam(condition, CONDITION_PARAM_SKILL_CLUB, skillclub)
setConditionParam(condition, CONDITION_PARAM_SKILL_DISTANCE, skilldistance)
setConditionParam(condition, CONDITION_PARAM_SKILL_SHIELD, skillshield)
setConditionParam(condition, CONDITION_PARAM_OUTFIT, outfit)
setCombatCondition(combat, condition)
     
local condition = createConditionObject(CONDITION_HASTE)
setConditionParam(condition, CONDITION_PARAM_SPEED, 250)
setConditionParam(condition, CONDITION_PARAM_TICKS, tempo*1000)
setConditionParam(condition, CONDITION_PARAM_BUFF, TRUE)
setCombatCondition(combat, condition)
     
local condition = createConditionObject(CONDITION_REGENERATION)
setConditionParam(condition, CONDITION_PARAM_SUBID, 1)
setConditionParam(condition, CONDITION_PARAM_BUFF, TRUE)
setConditionParam(condition, CONDITION_PARAM_TICKS, tempo*1000)
setConditionParam(condition, CONDITION_PARAM_HEALTHGAIN, health)
setConditionParam(condition, CONDITION_PARAM_HEALTHTICKS, 1000)
setCombatCondition(combat, condition)
            
function magicEffect1(tempo2,tempo3,cid)
if (isCreature(cid)) then
    if getPlayerStorageValue(cid, 102011) > 0 and getCreatureCondition(cid, CONDITION_REGENERATION, 1) then
        for i=1, #effect do
        local position = {x=getPlayerPosition(cid).x+1, y=getPlayerPosition(cid).y+1, z=getPlayerPosition(cid).z}
doSendMagicEffect(position, effect[i])  
        end
    end
end
end
                  
function onCastSpell(cid, var)
local position127 = {x=getPlayerPosition(cid).x, y=getPlayerPosition(cid).y, z=getPlayerPosition(cid).z}
if getPlayerStorageValue(cid, 102011) ~= 1 or getCreatureCondition(cid, CONDITION_REGENERATION, 1) == false then
    doCombat(cid, combat, var)
    tempo2 = 0
    while (tempo2 ~= (tempo*1000)) do		
        addEvent(function() magicEffect1(tempo2,tempo2,cid) end tempo*1000)
        tempo2 = tempo2 + 300
    end
    setPlayerStorageValue(cid, 102011,1) -- storage verifica transformado, quando = 1 player esta transformado.
    doCreatureSay(cid, "Suiton Protect", TALKTYPE_MONSTER)
doSendMagicEffect(position127, 13)
else
end
end

 

 

Os erros estão aparecendo devido as suas alterações, então cuidado ao mexer, não mexa no que você não sabe, muito menos onde não deve! 

 

21 minutos atrás, KotZletY disse:

login.lua:

  Ocultar conteúdo 


local config = {
 loginMessage = getConfigValue('loginMessage'),
 useFragHandler = getBooleanFromString(getConfigValue('useFragHandler'))
}

function onLogin(cid)
boost.addSkills(cid)
 local loss = getConfigValue('deathLostPercent')
 if(loss ~= nil) then
  doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, loss * 10)
 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) .. "."
  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, "Mail")
 registerCreatureEvent(cid, "GuildMotd")

 registerCreatureEvent(cid, "Idle")
 if(config.useFragHandler) then
  registerCreatureEvent(cid, "SkullCheck")
 end
 
registerCreatureEvent(cid, "ProtDeath")
registerCreatureEvent(cid, "Biohazard")
registerCreatureEvent(cid, "ZombieAttack")
registerCreatureEvent(cid, "WeaponMana")
registerCreatureEvent(cid, "showVoc")       
registerCreatureEvent(cid, "ReportBug")
registerCreatureEvent(cid, "AdvanceSave")
registerCreatureEvent(cid, "Outfit")
registerCreatureEvent(cid, "MonsteDeath")
registerCreatureEvent(cid, "ExameJouninDead")
registerCreatureEvent(cid, "ExameJouninBoss")
setPlayerStorageValue(cid, 8855, -1)
registerCreatureEvent(cid, "Senha")
registerCreatureEvent(cid, "eventotimes")
registerCreatureEvent(cid, "report")
registerCreatureEvent(cid, "attackguild")
registerCreatureEvent(cid, "NlooT")
registerCreatureEvent(cid, "DeathHP")
registerCreatureEvent(cid, "FirstItems")
registerCreatureEvent(cid, "KamuiMuzan")
registerCreatureEvent(cid, "UP")
registerCreatureEvent(cid, "Niwdeath")
registerCreatureEvent(cid, "Izanagi")
---------- PlayerPort---------------
if getPlayerStorageValue(cid, 49708) ~= 0 then
        setPlayerStorageValue(cid, 49708, 0) 
end
        if getPlayerGuildId(cid) > 0 then
             local guild = getPlayerGuildId(cid)
            doGuildAddEnemy(guild, enemy, 0, WAR_GUILD)
        else
        end
 return true
end

 

 

kisameprotect.lua:

  Ocultar conteúdo 


local tempo = 60 -- tempo em segundos.
local effect = {13} -- effect no player, caso queira apenas 1, basta remover os outros numeros.
     
local ml = 70 -- quantos ira aumentar o skill de ML
local skillfist = 70 -- quantos ira aumentar o skill de Fist
local skillsword = 70 -- quantos ira aumentar o skill de Sword
local skillaxe = 70 -- quantos ira aumentar o skill de Axe
local skillclub = 70 -- quantos ira aumentar o skill de Club
local skilldistance = 70 -- quantos ira aumentar o skill de Distance
local skillshield = 70 -- quantos ira aumentar o skill de Shield
local health = 200 -- A cada 1 segundo quantos aumentar de vida
local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0)
     
local condition = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition, CONDITION_PARAM_TICKS, tempo*1000)
setConditionParam(condition, CONDITION_PARAM_STAT_MAGICLEVEL, ml)
setConditionParam(condition, CONDITION_PARAM_SKILL_FIST, skillfist)
setConditionParam(condition, CONDITION_PARAM_SKILL_SWORD, skillsword)
setConditionParam(condition, CONDITION_PARAM_SKILL_AXE, skillaxe)
setConditionParam(condition, CONDITION_PARAM_SKILL_CLUB, skillclub)
setConditionParam(condition, CONDITION_PARAM_SKILL_DISTANCE, skilldistance)
setConditionParam(condition, CONDITION_PARAM_SKILL_SHIELD, skillshield)
setConditionParam(condition, CONDITION_PARAM_OUTFIT, outfit)
setCombatCondition(combat, condition)
     
local condition = createConditionObject(CONDITION_HASTE)
setConditionParam(condition, CONDITION_PARAM_SPEED, 250)
setConditionParam(condition, CONDITION_PARAM_TICKS, tempo*1000)
setConditionParam(condition, CONDITION_PARAM_BUFF, TRUE)
setCombatCondition(combat, condition)
     
local condition = createConditionObject(CONDITION_REGENERATION)
setConditionParam(condition, CONDITION_PARAM_SUBID, 1)
setConditionParam(condition, CONDITION_PARAM_BUFF, TRUE)
setConditionParam(condition, CONDITION_PARAM_TICKS, tempo*1000)
setConditionParam(condition, CONDITION_PARAM_HEALTHGAIN, health)
setConditionParam(condition, CONDITION_PARAM_HEALTHTICKS, 1000)
setCombatCondition(combat, condition)
            
function magicEffect1(tempo2,tempo3,cid)
if (isCreature(cid)) then
    if getPlayerStorageValue(cid, 102011) > 0 and getCreatureCondition(cid, CONDITION_REGENERATION, 1) then
        for i=1, #effect do
        local position = {x=getPlayerPosition(cid).x+1, y=getPlayerPosition(cid).y+1, z=getPlayerPosition(cid).z}
doSendMagicEffect(position, effect[i])  
        end
    end
end
end
                  
function onCastSpell(cid, var)
local position127 = {x=getPlayerPosition(cid).x, y=getPlayerPosition(cid).y, z=getPlayerPosition(cid).z}
if getPlayerStorageValue(cid, 102011) ~= 1 or getCreatureCondition(cid, CONDITION_REGENERATION, 1) == false then
    doCombat(cid, combat, var)
    tempo2 = 0
    while (tempo2 ~= (tempo*1000)) do		
        addEvent(function() magicEffect1(tempo2,tempo2,cid) end tempo*1000)
        tempo2 = tempo2 + 300
    end
    setPlayerStorageValue(cid, 102011,1) -- storage verifica transformado, quando = 1 player esta transformado.
    doCreatureSay(cid, "Suiton Protect", TALKTYPE_MONSTER)
doSendMagicEffect(position127, 13)
else
end
end

 

 

Os erros estão aparecendo devido as suas alterações, então cuidado ao mexer, não mexa no que você não sabe, muito menos onde não deve! 

[16:44:46.601] [Error - LuaInterface::loadFile] data/spells/scripts/summons/kisameprotect.lua:58: ')' expected near 'tempo'
[16:44:46.601] [Warning - Event::loadScript] Cannot load script (data/spells/scripts/summons/kisameprotect.lua)
[16:44:46.601] data/spells/scripts/summons/kisameprotect.lua:58: ')' expected near 'tempo'

[16:44:46.709] [Error - Spell Interface]
[16:44:46.710] data/spells/scripts/vip/minato/fuin kai.lua
[16:44:46.710] Description:
[16:44:46.711] (luaSetCombatParam) Combat not found
[16:44:46.825] [Warning - Event::loadScript] Event onSay not found (data/talkactions/scripts/boost.lua)
[16:44:46.966] [Warning - Event::loadScript] Event onLogin not found (data/creaturescripts/scripts/look.lua) 

O rei de seu proprio destino é aquele que luta pela gloria do amanhã!
Discord : ZoR#9373


 

Link para o post
Compartilhar em outros sites
KotZletY

KotZletY 1097

Postado
Postado

Erro meu, tinha esquecido uma virgula, agora ta certo! 

                                                              ezgif-1-98aab239f3.gif.1a897c9c3225228909e7b356a5cfb8e4.gif

Link para o post
Compartilhar em outros sites

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

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Seguidores 0
Ir para a lista de tópicos

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

  • Conteúdo Similar

    • LeoTK
      [Mapping - Nto NS : New Map] #Att 11/08/2022
      Por LeoTK
      Salve galera neste tópico irei postar algumas prints do mapa do servidor para quem queira acompanhar e quem sabe até utilizar de inspiração para mapear o seu NTO.
       
      #Att 11/08/2022

       
       
       
       
      Konoha (Em Desenvolvimento)
       
       
       
       
    • DiigooMix
      (Resolvido)Sprite Hitto Dragon Ball
      Por DiigooMix
      Como o título já diz, será que alguém possui sprite do hitto e se possível as transformações dele?
    • OmegaZero
      (Resolvido)DOUBLE HIT NA ARMA
      Por OmegaZero
      Olá gostaria que alguém me ajudasse com uma "scripting" não sei se é pela mesma, seria o seguinte uma determinada arma teria a chance de dar double hit e não sei oque fazer alguem poderia ajudar?

      OBS:não sei se é o local correto se não for mova, desculpe
    • Madarasenju
      (Resolvido)[PEDIDO] Npc(de enfeite que não faz nada, só anda)
      Por Madarasenju
      Olá galera do Tibia King, queria por uns npc's no meu server que não tem função de trade nem nada do tipo, queria que eles só andassem como enfeite, Rep+ Pra quem me ajudar... grato desde já.
    • SilenceRoot
      (Resolvido)Magia de teleporte
      Por SilenceRoot
      A magia é assim o você usa a a magia e ela ficará ativado por 10 segundos, até que o inimigo lance a primeira magia ou todos de uma vez, quando ele lançar a primeira magia, ele não lhe acertará ou seja esquivando dela, e logo em seguida será teletransportado aleatoriamente ao redor do inimigo que usou.

TibiaKing

Open Tibia Server

Quer aprender a criar seu próprio servidor de Tibia? Então está no lugar certo, aqui você encontrará milhares de tutorias, scripts, códigos, mapas e utilitários para que você possa fazer o seu próprio servidor de Tibia começando do zero.

Redes Sociais

Anuncie no TibiaKing

Precisa de mais visibilidade em seus projetos? Quer fazer um plano publicitário para o seu servidor? Anuncie no OTKing e faça sua divulgação, possuímos centenas de acessos simultâneos e milhares diários, com certeza será a sua solução!

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo

  Eu aceito