Zombie Event 8.6

GoalTV · Jun 25, 2012

I Make New Topic Because I Buy That Skrypt And Want Share Any Problem Write Here That Why I Make New Topic I Something Wont Work

XML:

<?xml version='1.0' encoding='UTF-8'?>
<mod name='Zombie Event' version='2.0' author='Oskar' contact='http://tibia.net.pl/members/oskar.html' enabled='yes'>
<config name='zombieEvent_conf'><=!=[=C=D=A=T=A=[
ZE_REWARDS = {
                random = false,
                rew = {2160,5,2645,1}
                }
            rewards = { 
                    [60] = { {8306, 1}, {"crystal coin",40}, {12466, 3} },
                    [25] = { {"crystal coin",60}, {12466, 5} },
                    [15] = {  {"crystal coin",100}, {11144, 1}, {5795, 1}, {12466, 10}, {9004, 1}, {9693, 1}, {12659, 1}}
                } 


ZE_MAX_PLAYERS = 2 --number of player how much is need to start event
ZE_MIN_PLAYERS = 1
ZE_ACCESS_TO_IGNORE_ARENA = 3
timeOnJoinToEvent = 3 --in minutes

-- POSITIONS
ZE_kickPosition = {x=2910,y=3318,z=7}
ZE_enterPosition = {x=2904,y=3302,z=7}

ZE_centerRoomPosition = {x=2905,y=3310,z=7}
ZE_rX_rY = {22,18}

ZE_STATUS = 13300

maxTime=3

ZOMBIE = {
            ['horned mutant'] = {20,1},
            ['vile centurion'] = {15,2},
            ['daidalost'] = {10,4},
            ['mongrel man'] = {5,8},
            ['propell zombie'] = {2,16},
            ['scrathclaw'] = {1,32}
            }
ZOMBIES = {}
for k, v in pairs(ZOMBIE) do
    table.insert(ZOMBIES, k)
end

function chooseMonster()
local monster = false
for k, v in pairs(ZOMBIE) do
    monster = monster or (math.random(100) <= v[1] and k or false)
end
return monster or chooseMonster()
end

function isWalkable(pos, creature, proj, pz)
if getTileThingByPos({x=pos.x,y=pos.y,z=pos.z,stackpos=0}).itemid == 0 then return false end
if getTopCreature(pos).uid > 0 and creature then return false end
if getTileInfo(pos).protection and pz then return false, true end
local n = not proj and 3 or 2
for i = 0, 255 do
    pos.stackpos = i
    local tile = getTileThingByPos(pos)
        if tile.itemid ~= 0 and not isCreature(tile.uid) then
            if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then
                return false
            end
        end
end
return true
end


function getPlayerZombiesEventStatus(cid)
    return getCreatureStorage(cid, ZE_STATUS)
end
 
function setPlayerZombiesEventStatus(cid, value)
    doCreatureSetStorage(cid, ZE_STATUS, value)
end
 
function getZombiesEventPlayers()
    local players = {}
    for _, cid in pairs(getPlayersOnline()) do
        if getPlayerZombiesEventStatus(cid) == 1 then
            table.insert(players, cid)
        end
    end
    if players then
    return players
    else 
    return false
    end
end

function kickPlayerFromZombiesArea(cid)
    doSendMagicEffect(getThingPosition(cid), CONST_ME_TELEPORT)
    doTeleportThing(cid, ZE_kickPosition, false, true)
    doSendMagicEffect(getThingPosition(cid), CONST_ME_TELEPORT)
    return setPlayerZombiesEventStatus(cid, 0)
end
function getPercent()
    rand= math.random(1,100)
    prev = 0
    chosenItem = 0
    for k, v in pairs(rewards) do 
        if rand > prev and rand <= k+prev then
            chosenItem = k
            break
        else
            prev =  k+prev
        end
    end
    return chosenItem
end
 
function giveReward(cid)
    percent = getPercent()
 
    randomizer = rewards[percent][math.random(1,#rewards[percent])]
    item = not tonumber(randomizer[1]) and getItemIdByName(randomizer[1]) or randomizer[1]
    count = isItemStackable(item) and math.min(randomizer[2],100) or 1
 
    msg = "You have won ".. (count == 1 and "a" or count) .." " .. getItemNameById(item) .. "" .. (count == 1 and "" or "s").."."
    doBroadcastMessage(getPlayerName(cid).." have won ".. (count == 1 and "a" or count) .." " .. getItemNameById(item) .. "" .. (count == 1 and "" or "s")..".")
    doPlayerAddItem(cid,item,count) 
     
    doPlayerSendTextMessage(cid,MESSAGE_TYPES["white"],msg)
 
end

function LessTime()
 if getStorage(ZE_STATUS) ~= 1 then
  return true
 end
 if #getZombiesEventPlayers() >= ZE_MIN_PLAYERS then
    doSetStorage(ZE_STATUS, 2)
    spawnNewZombie()
    for _, v in ipairs(getZombiesEventPlayers()) do
        addPlayerToZombiesArea(v)
        doCreatureSetNoMove(v, false)
    end
    doBroadcastMessage('Zombie Event is started!')
    return true
 else
    doBroadcastMessage("Zombie Event was cancelled because less than "..ZE_MIN_PLAYERS.." players joined.")
    doSetStorage(ZE_STATUS, 1)
 end
end

function loseOnZombieArena(cid)
    local players, msg = getZombiesEventPlayers(), ''
    doCreatureSetStorage(cid, ZE_STATUS+1, 0)
    kickPlayerFromZombiesArea(cid)
    doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, 'You are dead.')
    if(#getZombiesEventPlayers() <= 1) then
        local winner = getZombiesEventPlayers()[1] or players[1]
        if winner then
            giveReward(winner)
            doPlayerSendTextMessage(winner, MESSAGE_STATUS_CONSOLE_BLUE, 'You won zombie event.')
            msg = getCreatureName(winner) .. ' won Zombie Event'
            kickPlayerFromZombiesArea(winner)
            if getSpectators(ZE_centerRoomPosition, ZE_rX_rY[1], ZE_rX_rY[2]) then
                for _, v in ipairs(getSpectators(ZE_centerRoomPosition, ZE_rX_rY[1], ZE_rX_rY[2])) do
                    if isMonster(v) then
                        doRemoveThing(v)
                    end
                end
            end
        else
            msg = 'Zombie event finished! No one win!'
        end
        doSetStorage(ZE_STATUS, 0)
    end
doBroadcastMessage(msg)
return true
end
 
function addPlayerToZombiesArea(cid)
    doSendMagicEffect(getThingPosition(cid), CONST_ME_TELEPORT)
    doTeleportThing(cid, ZE_enterPosition, false, true)
    doSendMagicEffect(getThingPosition(cid), CONST_ME_TELEPORT)
    if getPlayerAccess(cid) < ZE_ACCESS_TO_IGNORE_ARENA then
        setPlayerZombiesEventStatus(cid, 1)
    end
    return true
end
 
function spawnNewZombie(fromPosition, n)
local n, pos = n or 0, {x = ZE_centerRoomPosition.x + math.random(-ZE_rX_rY[1],ZE_rX_rY[1]), y = ZE_centerRoomPosition.y + math.random(-ZE_rX_rY[2],ZE_rX_rY[2]), z = ZE_centerRoomPosition.z}
if isWalkable(pos, true, true, true) then 
    local monster = chooseMonster()
    local cid = doCreateMonster((monster == '' and 'horned mutant' or monster), pos, false, false, false)
    doSendMagicEffect(pos, CONST_ME_MORTAREA)
    return (isMonster(cid) and registerCreatureEvent(cid, 'zombieEventDeath') and registerCreatureEvent(cid, 'zombieEventThink')) and (fromPosition and doSendDistanceShoot(fromPosition, pos, CONST_ANI_SUDDENDEATH) or true)
end
return (n < 200 and spawnNewZombie(fromPosition, n+1) or true)
end

function getExhausted(cid, storage)
    return os.time() >= getCreatureStorage(cid, storage) and true or false
end

function setExhausted(cid, storage, cooldown)
    return doCreatureSetStorage(cid, storage, os.time() + cooldown)
end

function LessTime()
 if getStorage(ZE_STATUS) ~= 1 then
  return true
 end
 if #getZombiesEventPlayers() >= ZE_MIN_PLAYERS then
    doSetStorage(ZE_STATUS, 2)
    spawnNewZombie()
    for _, v in ipairs(getZombiesEventPlayers()) do
        addPlayerToZombiesArea(v)
        doCreatureSetNoMove(v, false)
    end
    doBroadcastMessage('Zombie Event is started!')
    return true
 else
    doBroadcastMessage("Zombie Event was cancelled because less than "..ZE_MIN_PLAYERS.." players joined.")
    doSetStorage(ZE_STATUS, 1)
 end
end
]=]=></config>

<event type='death' name='zombieEventDeath' event='script'><=!=[=C=D=A=T=A=[
domodlib('zombieEvent_conf')
function onDeath(cid)
    for i = 1, math.random(1,4) do
        spawnNewZombie(getThingPos(cid))
    end
    doSendMagicEffect(getThingPos(cid), CONST_ME_MORTAREA)
    return doCreatureSay(cid, 'I\'ll be back!', TALKTYPE_ORANGE_1)
end
]=]=></event>





<event type='statschange' name='zombieEventStatsChange' event='script'><=!=[=C=D=A=T=A=[
domodlib('zombieEvent_conf')
function onStatsChange(target, cid, changetype, combat, value)
if isMonster(cid) and isPlayer(target) and isInArray(ZOMBIES, getCreatureName(cid):lower()) and changetype == STATSCHANGE_HEALTHLOSS and math.abs(value) >= getCreatureHealth(target) then
    doCreatureAddHealth(target, getCreatureMaxHealth(target))
    return loseOnZombieArena(target) and false
end
return true
end
]=]=></event>

<globalevent name='zombieStart' type='start' event='script'><=!=[=C=D=A=T=A=[
domodlib('zombieEvent_conf')
function onStartup()
    return doSetStorage(ZE_STATUS, 0)
end
]=]=></globalevent>

<moveevent type='stepIn' uniqueid='3000' event='script'><=!=[=C=D=A=T=A=[
domodlib('zombieEvent_conf')
function onStepIn(cid, item, position, lastPosition, fromPosition, toPosition, actor)
local msg = ''
if isPlayer(cid) then
    if getCreatureCondition(cid, CONDITION_INFIGHT) and getPlayerAccess(cid) <= ZE_ACCESS_TO_IGNORE_ARENA then
        return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'You are in PZ!')
    end
    if getPlayerAccess(cid) > ZE_ACCESS_TO_IGNORE_ARENA then
        if getStorage(ZE_STATUS) ~= 1 then 
            doSetStorage(ZE_STATUS, 1)
            addEvent(LessTime, 1000*60*maxTime)
            for i=1, maxTime-1 do
                addEvent(doBroadcastMessage,1000*60*i,(maxTime-i)..' minutes to Zombie Arena Event started. If you want join to event say !zombie join or enter the teleport in depot. We wait on '..ZE_MAX_PLAYERS..' players.')
            end
            doBroadcastMessage('Zombie Arena Event is started. If you want join to event say !zombie join or enter the teleport in depot. We wait on '..ZE_MAX_PLAYERS..' players.')
        end
        return addPlayerToZombiesArea(cid)
    elseif #getZombiesEventPlayers() < ZE_MAX_PLAYERS and getStorage(ZE_STATUS) == 1 then
        setPlayerZombiesEventStatus(cid, 1)
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'You are player of number '..#getZombiesEventPlayers()..', which join to event.')
        if #getZombiesEventPlayers() == ZE_MAX_PLAYERS then
            doSetStorage(ZE_STATUS, 2)
            spawnNewZombie()
            for _, v in ipairs(getZombiesEventPlayers()) do
                addPlayerToZombiesArea(cid)
            end
            msg = 'Zombie Event is started.'
        else
            msg = getCreatureName(cid) .. ' has entered a Zombie Arena. We still need ' .. ZE_MAX_PLAYERS - players_on_arena_count .. ' players.'
        end
        return (msg ~= '' and doBroadcastMessage(msg) or true)
    else
        return doTeleportThing(cid, fromPosition, false, true) and doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'Arena is full.')
    end
end
return true
end
]=]=></moveevent>

<talkaction words='!zombie' event='script'><=!=[=C=D=A=T=A=[
domodlib('zombieEvent_conf')
function onSay(cid, words, param, channel)
local msg = ''
if param:lower() == 'join' then
    if getCreatureCondition(cid, CONDITION_INFIGHT) and getPlayerAccess(cid) <= ZE_ACCESS_TO_IGNORE_ARENA then
        return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'You are in PZ!')
    end
    if getPlayerAccess(cid) > ZE_ACCESS_TO_IGNORE_ARENA then
        if getStorage(ZE_STATUS) ~= 1 then 
            doSetStorage(ZE_STATUS, 1)
            addEvent(LessTime, 1000*60*maxTime)
            for i=1, maxTime-1 do
                addEvent(doBroadcastMessage,1000*60*i,(maxTime-i)..' minutes to Zombie Arena Event started. If you want join to event say !zombie join or enter the teleport in depot. We wait on '..ZE_MAX_PLAYERS..' players.')
            end
            doBroadcastMessage('Zombie Arena Event is started. If you want join to event say !zombie join or enter the teleport in depot. We wait on '..ZE_MAX_PLAYERS..' players.')
        end
        
        return addPlayerToZombiesArea(cid)
    elseif #getZombiesEventPlayers() < ZE_MAX_PLAYERS and getStorage(ZE_STATUS) == 1 then
        doCreatureSetNoMove(cid, true)
        setPlayerZombiesEventStatus(cid, 1)
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'You are player of number '..#getZombiesEventPlayers()..', which join to event.')
        if #getZombiesEventPlayers() == ZE_MAX_PLAYERS then
            doSetStorage(ZE_STATUS, 2)
            spawnNewZombie()
            for _, v in ipairs(getZombiesEventPlayers()) do
                addPlayerToZombiesArea(v)
                doCreatureSetNoMove(v, false)
            end
            msg = 'Zombie Event is started.'
        else
            msg = getCreatureName(cid) .. ' has entered a Zombie Arena. We still need more players.'
        end
        doBroadcastMessage(msg)
        return true
    else
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'Arena is full.')
        return true
    end
elseif param:lower() == 'leave' then
    if getStorage(ZE_STATUS) < 2 then
        setPlayerZombiesEventStatus(cid, 0)
        return doCreatureSetNoMove(cid, false)
    end
    return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'You are on arena.')
end
return true
end
]=]=></talkaction>

<globalevent name="zombieTime" time="18:00" event="script"><=!=[=C=D=A=T=A=[
domodlib("zombieEvent_conf")

function onTime(time)
    doSetStorage(ZE_STATUS, 1)
    addEvent(LessTime, 1000*60*maxTime)
    for i=1, maxTime-1 do
      addEvent(doBroadcastMessage,1000*60*i,(maxTime-i)..' minutes to Zombie Arena Event started. If you want join to event say !zombie join or enter the teleport in depot. We wait on '..ZE_MAX_PLAYERS..' players.')
    end
    return doBroadcastMessage('Zombie Arena Event is started. If you want join to event say !zombie join or enter the teleport in depot. We wait on '..ZE_MAX_PLAYERS..' players.')
end
]=]=></globalevent>

<event type="login" name="zombieEventLogin" event="buffer"><=!=[=C=D=A=T=A=[
domodlib("zombieEvent_conf")
function onLogin(cid)

    registerCreatureEvent(cid, 'zombieEventStatsChange')
return true
end
    
]=]=></event>
</mod>

Have Fun
Help?? Give Rep For Help

update 31/03/13 not working ok so I try fix it it was working for me I think you most put id on the floor the place of spawn and teleport but i check i post later results

ok right its not working I maked New Map To test But The Same Error Something wrong with teleport and spawn but boardcost work fine ;p

DiZzyMaN · Jun 26, 2012

Thanks pretty Awesome
! Testing Soon!

tetra20 · Jul 8, 2012

Can you please tell us how does it work?

taha94 · Jul 9, 2012

indeed, were do we post it,
And can you supply with a zombie map

Bassam421 · Dec 19, 2012

Loading zombieevent.xml...[Error - ScriptingManager::loadFromXml] Cannot load mod mods/zombieevent.xml
[19/12/2012 22:53:53] Line: 361, Info: StartTag: invalid element name

pansuchar · Jan 3, 2013

I have the same error as Bassam421.

Futlend · Jan 8, 2013

Look everyone you see the error is on line 361 download notepad++ and look for 361 and you will find the problem it even says invalid element name. It is a very very easy fix.

iKaS · Jan 8, 2013

Try:

XML:

<?xml version='1.0' encoding='UTF-8'?>
<mod name='Zombie Event' version='2.0' author='Oskar' contact='http://tibia.net.pl/members/oskar.html' enabled='yes'>
<config name='zombieEvent_conf'><![CDATA[
ZE_REWARDS = {
                random = false,
                rew = {2160,5,2645,1}
 }
            rewards = { 
 [60] = { {8306, 1}, {"crystal coin",40}, {12466, 3} },
 [25] = { {"crystal coin",60}, {12466, 5} },
 [15] = { {"crystal coin",100}, {11144, 1}, {5795, 1}, {12466, 10}, {9004, 1}, {9693, 1}, {12659, 1}}
 } 
 
 
ZE_MAX_PLAYERS = 2 --number of player how much is need to start event
ZE_MIN_PLAYERS = 1
ZE_ACCESS_TO_IGNORE_ARENA = 3
timeOnJoinToEvent = 3 --in minutes
 
-- POSITIONS
ZE_kickPosition = {x=2910,y=3318,z=7}
ZE_enterPosition = {x=2904,y=3302,z=7}
 
ZE_centerRoomPosition = {x=2905,y=3310,z=7}
ZE_rX_rY = {22,18}
 
ZE_STATUS = 13300
 
maxTime=3
 
ZOMBIE = {
 ['horned mutant'] = {20,1},
 ['vile centurion'] = {15,2},
 ['daidalost'] = {10,4},
 ['mongrel man'] = {5,8},
 ['propell zombie'] = {2,16},
 ['scrathclaw'] = {1,32}
 }
ZOMBIES = {}
for k, v in pairs(ZOMBIE) do
    table.insert(ZOMBIES, k)
end
 
function chooseMonster()
local monster = false
for k, v in pairs(ZOMBIE) do
    monster = monster or (math.random(100) <= v[1] and k or false)
end
return monster or chooseMonster()
end
 
function isWalkable(pos, creature, proj, pz)
if getTileThingByPos({x=pos.x,y=pos.y,z=pos.z,stackpos=0}).itemid == 0 then return false end
if getTopCreature(pos).uid > 0 and creature then return false end
if getTileInfo(pos).protection and pz then return false, true end
local n = not proj and 3 or 2
for i = 0, 255 do
    pos.stackpos = i
    local tile = getTileThingByPos(pos)
        if tile.itemid ~= 0 and not isCreature(tile.uid) then
            if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then
                return false
            end
        end
end
return true
end
 
 
function getPlayerZombiesEventStatus(cid)
    return getCreatureStorage(cid, ZE_STATUS)
end
 
function setPlayerZombiesEventStatus(cid, value)
    doCreatureSetStorage(cid, ZE_STATUS, value)
end
 
function getZombiesEventPlayers()
    local players = {}
    for _, cid in pairs(getPlayersOnline()) do
        if getPlayerZombiesEventStatus(cid) == 1 then
            table.insert(players, cid)
        end
    end
    if players then
    return players
    else 
    return false
    end
end
 
function kickPlayerFromZombiesArea(cid)
    doSendMagicEffect(getThingPosition(cid), CONST_ME_TELEPORT)
    doTeleportThing(cid, ZE_kickPosition, false, true)
    doSendMagicEffect(getThingPosition(cid), CONST_ME_TELEPORT)
    return setPlayerZombiesEventStatus(cid, 0)
end
function getPercent()
    rand= math.random(1,100)
    prev = 0
    chosenItem = 0
    for k, v in pairs(rewards) do 
        if rand > prev and rand <= k+prev then
            chosenItem = k
            break
        else
            prev =  k+prev
        end
    end
    return chosenItem
end
 
function giveReward(cid)
    percent = getPercent()
 
    randomizer = rewards[percent][math.random(1,#rewards[percent])]
    item = not tonumber(randomizer[1]) and getItemIdByName(randomizer[1]) or randomizer[1]
    count = isItemStackable(item) and math.min(randomizer[2],100) or 1
 
    msg = "You have won ".. (count == 1 and "a" or count) .." " .. getItemNameById(item) .. "" .. (count == 1 and "" or "s").."."
    doBroadcastMessage(getPlayerName(cid).." have won ".. (count == 1 and "a" or count) .." " .. getItemNameById(item) .. "" .. (count == 1 and "" or "s")..".")
    doPlayerAddItem(cid,item,count) 
 
    doPlayerSendTextMessage(cid,MESSAGE_TYPES["white"],msg)
 
end
 
function LessTime()
 if getStorage(ZE_STATUS) ~= 1 then
  return true
 end
 if #getZombiesEventPlayers() >= ZE_MIN_PLAYERS then
    doSetStorage(ZE_STATUS, 2)
    spawnNewZombie()
    for _, v in ipairs(getZombiesEventPlayers()) do
        addPlayerToZombiesArea(v)
        doCreatureSetNoMove(v, false)
    end
    doBroadcastMessage('Zombie Event is started!')
    return true
 else
    doBroadcastMessage("Zombie Event was cancelled because less than "..ZE_MIN_PLAYERS.." players joined.")
    doSetStorage(ZE_STATUS, 1)
 end
end
 
function loseOnZombieArena(cid)
    local players, msg = getZombiesEventPlayers(), ''
    doCreatureSetStorage(cid, ZE_STATUS+1, 0)
    kickPlayerFromZombiesArea(cid)
    doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, 'You are dead.')
    if(#getZombiesEventPlayers() <= 1) then
        local winner = getZombiesEventPlayers()[1] or players[1]
        if winner then
            giveReward(winner)
            doPlayerSendTextMessage(winner, MESSAGE_STATUS_CONSOLE_BLUE, 'You won zombie event.')
            msg = getCreatureName(winner) .. ' won Zombie Event'
            kickPlayerFromZombiesArea(winner)
            if getSpectators(ZE_centerRoomPosition, ZE_rX_rY[1], ZE_rX_rY[2]) then
                for _, v in ipairs(getSpectators(ZE_centerRoomPosition, ZE_rX_rY[1], ZE_rX_rY[2])) do
                    if isMonster(v) then
                        doRemoveThing(v)
                    end
                end
            end
        else
            msg = 'Zombie event finished! No one win!'
        end
        doSetStorage(ZE_STATUS, 0)
    end
doBroadcastMessage(msg)
return true
end
 
function addPlayerToZombiesArea(cid)
    doSendMagicEffect(getThingPosition(cid), CONST_ME_TELEPORT)
    doTeleportThing(cid, ZE_enterPosition, false, true)
    doSendMagicEffect(getThingPosition(cid), CONST_ME_TELEPORT)
    if getPlayerAccess(cid) < ZE_ACCESS_TO_IGNORE_ARENA then
        setPlayerZombiesEventStatus(cid, 1)
    end
    return true
end
 
function spawnNewZombie(fromPosition, n)
local n, pos = n or 0, {x = ZE_centerRoomPosition.x + math.random(-ZE_rX_rY[1],ZE_rX_rY[1]), y = ZE_centerRoomPosition.y + math.random(-ZE_rX_rY[2],ZE_rX_rY[2]), z = ZE_centerRoomPosition.z}
if isWalkable(pos, true, true, true) then 
    local monster = chooseMonster()
    local cid = doCreateMonster((monster == '' and 'horned mutant' or monster), pos, false, false, false)
    doSendMagicEffect(pos, CONST_ME_MORTAREA)
    return (isMonster(cid) and registerCreatureEvent(cid, 'zombieEventDeath') and registerCreatureEvent(cid, 'zombieEventThink')) and (fromPosition and doSendDistanceShoot(fromPosition, pos, CONST_ANI_SUDDENDEATH) or true)
end
return (n < 200 and spawnNewZombie(fromPosition, n+1) or true)
end
 
function getExhausted(cid, storage)
    return os.time() >= getCreatureStorage(cid, storage) and true or false
end
 
function setExhausted(cid, storage, cooldown)
    return doCreatureSetStorage(cid, storage, os.time() + cooldown)
end
 
function LessTime()
 if getStorage(ZE_STATUS) ~= 1 then
  return true
 end
 if #getZombiesEventPlayers() >= ZE_MIN_PLAYERS then
    doSetStorage(ZE_STATUS, 2)
    spawnNewZombie()
    for _, v in ipairs(getZombiesEventPlayers()) do
        addPlayerToZombiesArea(v)
        doCreatureSetNoMove(v, false)
    end
    doBroadcastMessage('Zombie Event is started!')
    return true
 else
    doBroadcastMessage("Zombie Event was cancelled because less than "..ZE_MIN_PLAYERS.." players joined.")
    doSetStorage(ZE_STATUS, 1)
 end
end
]]></config>
 
<event type='death' name='zombieEventDeath' event='script'><![CDATA[
domodlib('zombieEvent_conf')
function onDeath(cid)
    for i = 1, math.random(1,4) do
        spawnNewZombie(getThingPos(cid))
    end
    doSendMagicEffect(getThingPos(cid), CONST_ME_MORTAREA)
    return doCreatureSay(cid, 'I\'ll be back!', TALKTYPE_ORANGE_1)
end
]]></event>
 
 
 
 
 
<event type='statschange' name='zombieEventStatsChange' event='script'><![CDATA[
domodlib('zombieEvent_conf')
function onStatsChange(target, cid, changetype, combat, value)
if isMonster(cid) and isPlayer(target) and isInArray(ZOMBIES, getCreatureName(cid):lower()) and changetype == STATSCHANGE_HEALTHLOSS and math.abs(value) >= getCreatureHealth(target) then
    doCreatureAddHealth(target, getCreatureMaxHealth(target))
    return loseOnZombieArena(target) and false
end
return true
end
]]></event>
 
<globalevent name='zombieStart' type='start' event='script'><![CDATA[
domodlib('zombieEvent_conf')
function onStartup()
    return doSetStorage(ZE_STATUS, 0)
end
]]></globalevent>
 
<moveevent type='stepIn' uniqueid='3000' event='script'><![CDATA[
domodlib('zombieEvent_conf')
function onStepIn(cid, item, position, lastPosition, fromPosition, toPosition, actor)
local msg = ''
if isPlayer(cid) then
    if getCreatureCondition(cid, CONDITION_INFIGHT) and getPlayerAccess(cid) <= ZE_ACCESS_TO_IGNORE_ARENA then
        return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'You are in PZ!')
    end
    if getPlayerAccess(cid) > ZE_ACCESS_TO_IGNORE_ARENA then
        if getStorage(ZE_STATUS) ~= 1 then 
            doSetStorage(ZE_STATUS, 1)
            addEvent(LessTime, 1000*60*maxTime)
            for i=1, maxTime-1 do
                addEvent(doBroadcastMessage,1000*60*i,(maxTime-i)..' minutes to Zombie Arena Event started. If you want join to event say !zombie join or enter the teleport in depot. We wait on '..ZE_MAX_PLAYERS..' players.')
            end
            doBroadcastMessage('Zombie Arena Event is started. If you want join to event say !zombie join or enter the teleport in depot. We wait on '..ZE_MAX_PLAYERS..' players.')
        end
        return addPlayerToZombiesArea(cid)
    elseif #getZombiesEventPlayers() < ZE_MAX_PLAYERS and getStorage(ZE_STATUS) == 1 then
        setPlayerZombiesEventStatus(cid, 1)
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'You are player of number '..#getZombiesEventPlayers()..', which join to event.')
        if #getZombiesEventPlayers() == ZE_MAX_PLAYERS then
            doSetStorage(ZE_STATUS, 2)
            spawnNewZombie()
            for _, v in ipairs(getZombiesEventPlayers()) do
                addPlayerToZombiesArea(cid)
            end
            msg = 'Zombie Event is started.'
        else
            msg = getCreatureName(cid) .. ' has entered a Zombie Arena. We still need ' .. ZE_MAX_PLAYERS - players_on_arena_count .. ' players.'
        end
        return (msg ~= '' and doBroadcastMessage(msg) or true)
    else
        return doTeleportThing(cid, fromPosition, false, true) and doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'Arena is full.')
    end
end
return true
end
]]></moveevent>
 
<talkaction words='!zombie' event='script'><![CDATA[
domodlib('zombieEvent_conf')
function onSay(cid, words, param, channel)
local msg = ''
if param:lower() == 'join' then
    if getCreatureCondition(cid, CONDITION_INFIGHT) and getPlayerAccess(cid) <= ZE_ACCESS_TO_IGNORE_ARENA then
        return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'You are in PZ!')
    end
    if getPlayerAccess(cid) > ZE_ACCESS_TO_IGNORE_ARENA then
        if getStorage(ZE_STATUS) ~= 1 then 
            doSetStorage(ZE_STATUS, 1)
            addEvent(LessTime, 1000*60*maxTime)
            for i=1, maxTime-1 do
                addEvent(doBroadcastMessage,1000*60*i,(maxTime-i)..' minutes to Zombie Arena Event started. If you want join to event say !zombie join or enter the teleport in depot. We wait on '..ZE_MAX_PLAYERS..' players.')
            end
            doBroadcastMessage('Zombie Arena Event is started. If you want join to event say !zombie join or enter the teleport in depot. We wait on '..ZE_MAX_PLAYERS..' players.')
        end
 
        return addPlayerToZombiesArea(cid)
    elseif #getZombiesEventPlayers() < ZE_MAX_PLAYERS and getStorage(ZE_STATUS) == 1 then
        doCreatureSetNoMove(cid, true)
        setPlayerZombiesEventStatus(cid, 1)
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'You are player of number '..#getZombiesEventPlayers()..', which join to event.')
        if #getZombiesEventPlayers() == ZE_MAX_PLAYERS then
            doSetStorage(ZE_STATUS, 2)
            spawnNewZombie()
            for _, v in ipairs(getZombiesEventPlayers()) do
                addPlayerToZombiesArea(v)
                doCreatureSetNoMove(v, false)
            end
            msg = 'Zombie Event is started.'
        else
            msg = getCreatureName(cid) .. ' has entered a Zombie Arena. We still need more players.'
        end
        doBroadcastMessage(msg)
        return true
    else
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'Arena is full.')
        return true
    end
elseif param:lower() == 'leave' then
    if getStorage(ZE_STATUS) < 2 then
        setPlayerZombiesEventStatus(cid, 0)
        return doCreatureSetNoMove(cid, false)
    end
    return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'You are on arena.')
end
return true
end
]]></talkaction>
 
<globalevent name="zombieTime" time="18:00" event="script"><![CDATA[
domodlib("zombieEvent_conf")
 
function onTime(time)
    doSetStorage(ZE_STATUS, 1)
    addEvent(LessTime, 1000*60*maxTime)
    for i=1, maxTime-1 do
      addEvent(doBroadcastMessage,1000*60*i,(maxTime-i)..' minutes to Zombie Arena Event started. If you want join to event say !zombie join or enter the teleport in depot. We wait on '..ZE_MAX_PLAYERS..' players.')
    end
    return doBroadcastMessage('Zombie Arena Event is started. If you want join to event say !zombie join or enter the teleport in depot. We wait on '..ZE_MAX_PLAYERS..' players.')
end
]]></globalevent>
 
<event type="login" name="zombieEventLogin" event="buffer"><![CDATA[
domodlib("zombieEvent_conf")
function onLogin(cid)
 
    registerCreatureEvent(cid, 'zombieEventStatsChange')
return true
end
 
]]></event>
</mod>

Futlend · Jan 8, 2013

And as 1 error is fixed another occurs!

[08/01/2013 16:49:11] > Loading zombie.xml...[Error - ScriptingManager::loadFromXml] Cannot load mod mods/zombie.xml
[08/01/2013 16:49:11] Line: 369, Info: Extra content at the end of the document

Ikas I tried your "fix aswell" and it gave me this...

[08/01/2013 16:52:08] > Loading zombie.xml...[Error - ScriptingManager::loadFromXml] Cannot load mod mods/zombie.xml
[08/01/2013 16:52:08] Line: 3, Info: Extra content at the end of the document

For a working zombie script go here...

http://otland.net/f163/zombie-event-without-bugs-work-all-forgotten-server-144357/

keccish · Apr 20, 2013

Bintzer · Apr 20, 2013

its a mod.. its all in one xml file, stick it in ur mods folder

GoalTV · May 1, 2013

Not Working Don't know why it was working this thread can be close.

markim1986 · May 3, 2013

mine is working correctly, the message comes
* "Broadcasted message:" Zombie Arena Event is started. If you want to join event say! Zombie join or enter the teleport in depot. We wait on two players. "."
there when I try to write! "zombie" nothing happens, no error in the console.

wikutag · Mar 25, 2014

when I try to write! "zombie" nothing happens, no error in the console.

!zombie join

Zombie Event 8.6

GoalTV

NANI?!

DiZzyMaN

YouTalkinToMe?!

tetra20

DD

taha94

New Member

Bassam421

Lockout RPG/PVP Owner

pansuchar

Member

Futlend

New Member

iKaS

Member

Futlend

New Member

keccish

New Member

Bintzer

One Love

GoalTV

NANI?!

markim1986

New Member

wikutag

SoulBound 8.6 100% custom

Similar threads