MaXwEllDeN

local config = {    wall_id = 2109, -- ItemID da Parede    effect = 3, -- Distance Effect    pos = {x = 160, y = 54, z = 7}, -- Posição da Parede    percent = 100, -- Porcentagem de remover }   function onUse(cid, item)    if not doPlayerRemoveItem(cid, 1294, 1) then       return doPlayerSendCancel(cid, "Você precisa ter 1 small stone para usar essa alavanca.")    end      local wall = getTileItemById(confi.pos, config.wall_id)    if wall.itemid ~= 0 then       if math.random(100) <= config.percent then          doRemoveItem(wall.uid, 1)          return false       end       return true    end      return true end  

[paste]kKrFJMwY[/paste]

local combat = createCombatObject()   local meteor = createCombatObject() setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_ICEDAMAGE) setCombatParam(combat, COMBAT_PARAM_EFFECT, 41) setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -10.3, -47, -10.2, 2)   local stun = createConditionObject(CONDITION_PARALYZE) setConditionParam(stun, CONDITION_PARAM_TICKS, 5000) setConditionFormula(stun, -0.8, 0, -0.9, 0) setCombatCondition(meteor, stun)   local combat2 = createCombatObject()   local meteor2 = createCombatObject() setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_ICEDAMAGE) setCombatParam(combat2, COMBAT_PARAM_EFFECT, 43) setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, -7.3, -47, -6.2, 2)     local arr = { {0, 0, 0, 0, 0}, {0, 0, 1, 0, 0}, {0, 1, 3, 1, 0}, {0, 0, 1, 0, 0}, {0, 0, 0, 0, 0} }   local arr2 = { {0, 0, 0, 0, 0}, {0, 0, 1, 0, 0}, {0, 1, 3, 1, 0}, {0, 0, 1, 0, 0}, {0, 0, 0, 0, 0} }       local area = createCombatArea(arr) local area2 = createCombatArea(arr2)   setCombatArea(combat, area) setCombatArea(combat2, area2)   local function meteorCast(p)     doCombat(p.cid, p.combat, positionToVariant(p.pos)) end local function meteorCast2(p)     doCombat(p.cid, p.combat2, positionToVariant(p.pos)) end local function stunEffect(cid)     doSendMagicEffect(getThingPos(cid), CONST_ME_STUN) end     function onTargetTile(cid, pos)     if (math.random(0, 0) == 0) then         local ground = getThingfromPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0})         if (isInArray(water, ground.itemid) == TRUE) then             local newpos = {x = pos.x + 7, y = pos.y - 6, z = pos.z}             doSendDistanceShoot(newpos, pos, CONST_ANI_ICE)             addEvent(meteorCast, 200, {cid = cid, pos = pos, combat = meteor_water})         else             local newpos = {x = pos.x + 7, y = pos.y - 6, z = pos.z}             doSendDistanceShoot(newpos, pos, CONST_ANI_ICE)             addEvent(meteorCast, 200, {cid = cid,pos = pos, combat = meteor})         end     end end setCombatCallback(combat, CALLBACK_PARAM_TARGETTILE, "onTargetTile")     function onTargetTile(cid, pos)     if (math.random(0, 0) == 0) then         local ground = getThingfromPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0})         if (isInArray(water, ground.itemid) == TRUE) then             local newpos = {x = pos.x + 7, y = pos.y - 6, z = pos.z}             doSendDistanceShoot(newpos, pos, CONST_ANI_ICE)             addEvent(meteorCast2, 200, {cid = cid, pos = pos, combat2 = meteor_water2})         else             local newpos = {x = pos.x + 7, y = pos.y - 6, z = pos.z}             doSendDistanceShoot(newpos, pos, CONST_ANI_ICE)             addEvent(meteorCast2, 200, {cid = cid,pos = pos, combat2 = meteor2})         end     end end   setCombatCallback(combat2, CALLBACK_PARAM_TARGETTILE, "onTargetTile")   local outfits = {    [0] = {lookType = 144, lookAddons = 3},    [1] = {lookType = 148, lookAddons = 3} }   function onCastSpell(cid, var)    local conf = outfits[getPlayerSex(cid)]    local outf = getCreatureOutfit(cid)      if outf.lookType == conf.lookType and outf.lookAddons == conf.lookAddons then       doCombat(cid, combat, var)    else       doCombat(cid, combat2, var)    end      return true end  

local function start()    local players_on_arena_count = #getZombiesEventPlayers()    if players_on_arena_count < 10 then       for _, pid in pairs(getZombiesEventPlayers()) do          kickPlayerFromZombiesArea(pid)       end         doBroadcastMessage("Zombie Couldn't Start Because there was few numbers ona rena")       doSetStorage(ZE_STATUS, 0)       addZombiesEventBlockEnterPosition()       return true    end      setZombiesEventPlayersLimit(players_on_arena_count)    addZombiesEventBlockEnterPosition()    doSetStorage(ZE_STATUS, 2)    doBroadcastMessage("Zombie Arena Event started")    return true   end   function onTime(interval, lastExecution)    setZombiesEventPlayersLimit(10)    doBroadcastMessage("Zombie Event Is Waiting For 10 Players To Join.Zombie Will Start In 8 Minutes")    removeZombiesEventBlockEnterPosition()    addEvent(start,8*60*1000)    doSetStorage(ZE_STATUS, 1)    return true end

local id = 2525 -- ItemId da Estatua local intervalo = 30 -- Tempo em segundos para estatua voltar local criatura = "Hydra" -- Nome do monsto a ser sumonado   function onUse(cid, item, fromPosition, itemEx, toPosition)    doRemoveItem(item.uid, 1)    doCreateMonster(criatura, toPosition)      addEvent(function()       doCreateItem(id, 1, toPosition)       doSendMagicEffect(toPosition, CONST_ME_MAGIC_GREEN)    end, intervalo * 1000)    return true end  

Só organizando melhor a ideia do Luan:
 
Primeiro adicione isso no arquivo data/creaturescripts/creaturescripts.xml:
<event type="kill" name="Pascoa" script="pascoa.lua"/> Depois, abra o arquivo data/creaurescripts/scripts/login.lua
 
e antes do ÚLTIMO return true, adicione isso:
registerCreatureevent(cid, "Pascoa") Ficando, por exemplo assim:
   registerCreatureevent(cid, "Pascoa")    return true end Depois, crie um arquivo de nome pascoa.lua na pasta data/creaturescripts/scripts
 
e adicione isso dentro dele:
local config = {    -- NOME SEMPRE EM LETRAS MINÚSCULAS    ["azerus"] = {item_win = 2160, quantidade = 1},    ["black knight"] = {item_win = 2160, quantidade = 10}, }   function onKill(cid, target, damage, flags)    local reward = config[getCreatureName(target):lower()]      if isMonster(target) and reward then       doPlayerAddItem(cid, reward.item_win, reward.quantidade)    end      return true end

local pos = {x = 855, y = 980, z = 7} local reativar = 10 -- em segundos local check = 4 -- em segundos local from = {x = 860, y = 978, z = 7} local to = {x = 865, y = 982, z = 7} function getPlayersFromArea(from, to) local ret = {} for _, pid in pairs(getSpectatorsFromArea(from, to) or {}) do if isPlayer(pid) then table.insert(ret, pid) end end return ret end function ReAtive() -- linha 38 de erro do Launcher if #getPlayersFromArea(from, to) >= 1 then -- linha 39 de erro do Launcher doBroadcastMessage("Temos intrusos e o item nao foi criado!") addEvent(ReAtive, check * 1000) else doCreateItem(corpse, 1, pos) doBroadcastMessage("Item adicionado com sucesso!") end end

usa esse login:

local config = { loginMessage = getConfigValue('loginMessage') }   function onLogin(cid) local loss = getConfigValue('deathLostPercent') if(loss ~= nil) then doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, loss * 10) end   local Subwat = getPlayerAccountManager(cid) if(Subwat == MANAGER_NONE) then local lastLogin, str = getPlayerLastLoginSaved(cid), config.loginMessage if(lastLogin > 0) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str) str = "Seu ultimo login foi " .. os.date("%a %b %d %X %Y", lastLogin) .. "." else str = str .. "The BEST" doPlayerSendOutfitWindow(cid) end   doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str) elseif(Subwat == MANAGER_NAMELOCK) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, it appearss that your character has been namelocked, what would you like as your new name?") elseif(Subwat == MANAGER_ACCOUNT) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Ola, digite 'account' acessar sua conta ou digite  'cancel'.") else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Ola, digite 'account' Para criar uma conta no servidor ou 'recover' Para recuperar conta perdida.") end   if(not isPlayerGhost(cid)) then doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT) end   doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "Bem vindo!") registerCreatureEvent(cid, "Mail") if getPlayerLevel(cid) < 717217 then registerCreatureEvent(cid, "AdvanceTeleport") end registerCreatureEvent(cid, "GuildMotd") registerCreatureEvent(cid, "Idle") registerCreatureEvent(cid, "DeathBroadcast") registerCreatureEvent(cid, "addons") registerCreatureEvent(cid, "onPrepareDeath") registerCreatureEvent(cid, "magebomb") registerCreatureEvent(cid, "SkullCheck") registerCreatureEvent(cid, "SkullAmulet") registerCreatureEvent(cid, "killitem") registerCreatureEvent(cid, "zombieevent") registerCreatureEvent(cid, "huntdeath") registerCreatureEvent(cid, "loguthunt") registerCreatureEvent(cid, "ReportBug") doSetCreatureLight(cid, 25, 250, -1) return true end    
Tem algo de errado no exphit

Fazer um novo vai dar muito trabalho. O melhor é pegar um eficiente e adaptar. Procura no fórum por algum que seja bom.

Testa assim:
 
-- Função by LekoDS local cash = 10000 * 100 local talkclean = "[SISTEMA DE ANUNCIO] Fale sua oferta novamente!" local msgerro = "[SISTEMA DE ANUNCIO] Desculpe! Para fazer uma oferta voce tem que ser Premium e ter uma quantia de " .. cash .." gold!"   function onSay(cid, words, param, channel)    if param == '' then       return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, talkclean)    end      if getPlayerMoney(cid) >= cash and isPremium(cid) then       doPlayerRemoveMoney(cid, cash)       doPlayerBroadcastMessage(cid, param)    else       doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, msgerro)    end        return true end