Gustavo Ntos

local text = "[PokeMagic] Voce foi teleportado!" local textt = "Poke Magic sempre inovando!" local pos = {x=2510, y=2233, z=14} local item = 13431 local qtd = 1  function onUse(cid, item, frompos, item2, topos) if getPlayerItemCount(cid, item) >= qtd then  doTeleportThing(cid, pos)  doRemoveItem(item, qtd)  doPlayerSendTextMessage(cid, 25, text)  doPlayerSendTextMessage(cid, 25, textt)  else  doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Voce nao tem os items vaza daqui desgraça")      return true end

local ilha = {x = 1, y = 1, z = 7} -- POSIÇÃO DA ILHA local dp = {x = 1, y = 1, z = 7} -- POSIÇÃO DO TEMPLO OU DP local time = 2 -- Tempo para mandar as mensagens e adiciona item function onUse(cid, item, frompos, item2, topos) doPlayerSendTextMessage(cid, 25, "Voce foi teleportado para ilha, Capture muitos Pokemons!!")  doTeleportThing(cid, ilha) doSendMagicEffect(topos, 24) doRemoveItem(item.uid, 1) function add() doTeleportThing(cid, dp) doSendMagicEffect(topos, 24) end addEvent(add, time* 60 * 60) return TRUE end

Data/globalevents/scripts :
Crie um arquivo chamado "inv.lua" :
 
local i = { ["12:00"] = {nome = "Mensagem do evento", pos = {x=1000, y=1000, z=6}, monster = {"1 nome do mob, 2 nome do mob"}}, } function onThink(interval, lastExecution) hours = tostring(os.date("%X")):sub(1, 5) tb = i[hours] if tb then doBroadcastMessage(hours .. " - " .. tb.nome .. " Iníciou.") for _,x in pairs(tb.monster) do for s = 1, tonumber(x:match("%d+")) do doSummonCreature(x:match("%s(.+)"), tb.pos) end end end return true end  
Globalevents.xml:

<globalevent name="invasion" interval="60000" event="script" value="inv.lua"/>

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat, COMBAT_PARAM_EFFECT, 1)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -45.2, 1, -65.2, 1)
local combat1 = createCombatObject()
setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat1, COMBAT_PARAM_EFFECT, 1)
setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -45.2, 1, -65.2, 1)
local combat2 = createCombatObject()
setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat2, COMBAT_PARAM_EFFECT, 1)
setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, -45.2, 1, -65.2, 1)
arr1 = {
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 1, 2, 1, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
}
arr2 = {
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
}
arr3 = {
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
}

local area1 = createCombatArea(arr1)
local area2 = createCombatArea(arr2)
local area3 = createCombatArea(arr3)
setCombatArea(combat, area1)
setCombatArea(combat1, area2)
setCombatArea(combat2, area3)
local function onCastSpell1(parameters)
return isCreature(parameters.cid) and doCombat(parameters.cid, combat, parameters.var)
end
 
local function onCastSpell2(parameters)
return isCreature(parameters.cid) and doCombat(parameters.cid, combat1, parameters.var)
end
local function onCastSpell3(parameters)
return isCreature(parameters.cid) and doCombat(parameters.cid, combat2, parameters.var)
end
function onCastSpell(cid, var)
local parameters = {cid = cid, var = var}
local waittime = 2 
local storage = 5868
if isPlayer(cid) and exhaustion.check(cid, storage) then
doPlayerSendCancel(cid, "You are exhausted.")
doSendMagicEffect(getCreaturePosition(cid), 2)
return FALSE
end
local p = getCreaturePosition(cid)
addEvent(onCastSpell1, 100, parameters)
addEvent(onCastSpell2, 400, parameters)
addEvent(onCastSpell3, 800, parameters)
exhaustion.set(cid, storage, waittime)
return TRUE
end

Crie mobs com Xp 0 é simples praque script?

Eu testei e funcionou 100% bom uso no teu nto :D , se precisar de + ajuda é so falar:
 
 
local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_HEALING)
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, false)
setCombatParam(combat, COMBAT_PARAM_DISPEL, CONDITION_PARALYZE)
function onGetFormulaValues(cid, level, maglevel)
    min = ((level / 5) + (maglevel * 3.8) + 90)
    max = ((level / 5) + (maglevel * 8.3) + 115)
   return min, max
end
setCombatCallback(combat, CALLBACK_PARAM_LEVELMAGICVALUE, "onGetFormulaValues")
function onCastSpell(cid, var)
local pos2 = getPlayerPosition(cid) 
if getPlayerLookDir(cid) == 1 then   
pos2.x=pos2.x+2
pos2.y=pos2.y+1
elseif getPlayerLookDir(cid) == 2 then  
pos2.x=pos2.x+1
pos2.y=pos2.y+2 
elseif getPlayerLookDir(cid) == 3 then 
pos2.x=pos2.x
pos2.y=pos2.y+1
elseif getPlayerLookDir(cid) == 0 then  
pos2.x=pos2.x+1
pos2.y=pos2.y
end   
doSendMagicEffect(pos2,36)
    addEvent(function() doCombat(cid, combat, var) end, 1000, cid)
    addEvent(function() doCombat(cid, combat, var) end, 2000, cid)
   return doCombat(cid, combat, var)
end

Eu ja te ajudei no facebook... poem aqui como melhor resposta ja que você ja arrumou..

Abra seu Talkactions.xml e adicione isso:
 
<talkaction log="yes" words="/i" access="4" event="script" value="createitem.lua"/>
 
Cria um arquivo chamado createitem.lua na pasta data/talkactions/scripts
 
 
function onSay(cid, words, param, channel)
    if(param == '') then
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Command param required.")
        return true
    end
    local t = string.explode(param, ",")
    local ret = RETURNVALUE_NOERROR
    local pos = getCreaturePosition(cid)
    local id = tonumber(t[1])
    if(not id) then
        id = getItemIdByName(t[1], false)
        if(not id) then
            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Item wich such name does not exists.")
            return true
        end
    end
    local amount = 100
    if(t[2]) then
        amount = t[2]
    end
    local item = doCreateItemEx(id, amount)
    if(t[3] and getBooleanFromString(t[3])) then
        if(t[4] and getBooleanFromString(t[4])) then
            pos = getCreatureLookPosition(cid)
        end
        ret = doTileAddItemEx(pos, item)
    else
        ret = doPlayerAddItemEx(cid, item, true)
    end
    if(ret ~= RETURNVALUE_NOERROR) then
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Couldn't add item: " .. t[1])
        return true
    end
    doDecayItem(item)
    if(not isPlayerGhost(cid)) then
        doSendMagicEffect(pos, CONST_ME_MAGIC_RED)
    end
    return true
end
 

Ola teste essa script claro que voce deve arrumar ela....
 
Essa Spell usa x effect se tiver em determinado posição <> /\ \/
 
 
 
local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -45.2, 1, -65.2, 1)
arr = {
{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
}
local area = createCombatArea(arr)
setCombatArea(combat, area)
function onCastSpell(cid, var)
local waittime = 2 
local storage = 5868
if isPlayer(cid) and exhaustion.check(cid, storage) then
doPlayerSendCancel(cid, "You are exhausted.")
doSendMagicEffect(getCreaturePosition(cid), 2)
return FALSE
end
local p = getCreaturePosition(cid)
local x = {
[0] = {x=p.x+1, y=p.y-1, z=p.z},  --- posicao mecha casa esteja no lugar errado
[1] = {x=p.x+7, y=p.y+1, z=p.z}, --- posicao mecha casa esteja no lugar errado
[2] = {x=p.x+1, y=p.y+7, z=p.z}, --- posicao mecha casa esteja no lugar errado
[3] = {x=p.x-1, y=p.y+1, z=p.z}  --- posicao mecha casa esteja no lugar errado
}
local y = {
[0] = 172,  --- numeros dos efeitos
[1] = 170, --- numeros dos efeitos
[2] = 173, --- numeros dos efeitos
[3] = 171 --- numeros dos efeitos
}
pos = x[getCreatureLookDirection(cid)]
eff = y[getCreatureLookDirection(cid)]
doSendMagicEffect(pos, eff)
exhaustion.set(cid, storage, waittime)
doCombat(cid, combat, var)
return TRUE
end

Ola se voce colocar em uma Spell um effect superior a 255 vai sair um effect errado voce tem que usar effects entre 1-255 
Com isso para que voce adicione seu novo effects "Susanoo" voce tem que dar replace em algum Effect Inutil como mostra a imagem:
http://imgur.com/bXVfW6f

Poderia explicar Como?
( desculpe o post acima deu umprblema na hora de posta)