• There is NO official Otland's Discord server and NO official Otland's server list. The Otland's Staff does not manage any Discord server or server list. Moderators or administrator of any Discord server or server lists have NO connection to the Otland's Staff. Do not get scammed!

[TFS 1.X][8.6] Safezone Event

Roddet

Roddet

†
Staff member
Global Moderator
Joined
May 1, 2013
Messages
943
Solutions
102
Reaction score
760
Location
Mex
Not sure if already exist one but anyway, ill be releasing more events in a future
Cache is encapsulated, so you dont have to worry about making /reload scripts

data/scripts
Lua: 
local SZ = {
    Global = {
        playersCount = 32550;
        gameState = 32551;
    },

    Player = {
        Joined = 32552;
        Damaged = 32553;
    };

    Cache = {
        Players = {};
        Winners = {};
        Tiles = {};
    },

    EventArea = {
        From = Position(1204,1041,7);
        To = Position(1218,1055,7);
    },

    Entrance = {
        MinPlayers = 2;
        MaxPlayers = 25;
        LevelRequired = 150;

        MinutesToStart = 3;
        SecondsToInitiateEvent = 15;

        EventRoom = Position(1213,1047,7);
        Teleport = {
            ID = 1387;
            Position = Position(931,1021,7);
            ActionId = 15000;
        }
    },

    Rewards = {
        -- Set Winners
        MaxWinners = 3;
        [1] = {{2157, 3}, {2160, 5}};
        [2] = {{2157, 1}, {2160, 3}};
        [3] = {{2160, 5}};
    },

    Outfits = {
        -- If LookType is 0, MainOutfit will be taken instead
        MainOutfit = 128;
        -- Every row represents a player life (3 = 3 hits to die)
        [1] = {LookType = 0, Head = 79, Body = 79, Legs = 79, Feet = 79, Addons = 0};
        [2] = {LookType = 0, Head = 77, Body = 77, Legs = 77, Feet = 77, Addons = 0};
        [3] = {LookType = 0, Head = 113, Body = 113, Legs = 113, Feet = 113, Addons = 0};
    },

    Tiles = {
        -- Fixed seconds: 15
        -- Random seconds: {5, 7, 10, 15}
        -- Based on players: 0 (formula is on CreateSafeTiles)
        Seconds = {5, 7, 10, 15};
        RemoveTilesPerWave = 1; -- you can create a table {1,2} to randomize
        GemIDs = {
            {9562, TEXTCOLOR_RED};
            {9563, TEXTCOLOR_BLUE};
            {9564, TEXTCOLOR_PINK};
            {9565, TEXTCOLOR_LIGHTGREEN};
        },
        ShowEffectWithPlayer = true;
    },

    Days = {
        ['Wednesday'] = {'16:00:00'};
    },

    PlayersCanThrowItems = false;
}

local PlayerConditions = {}
for i, v in ipairs(SZ.Outfits) do
    PlayerConditions[i] = Condition(CONDITION_OUTFIT, CONDITIONID_COMBAT)
    PlayerConditions[i]:setTicks(-1)
    PlayerConditions[i]:setOutfit({lookType = SZ.Outfits[i].LookType > 0 and SZ.Outfits[i].LookType or SZ.Outfits.MainOutfit, lookHead = SZ.Outfits[i].Head, lookBody = SZ.Outfits[i].Body, lookLegs = SZ.Outfits[i].Legs, lookFeet = SZ.Outfits[i].Feet, lookAddons = SZ.Outfits[i].Addons})
end

SZ.CacheEvent = function(self, ...)
    local userdata = self.Cache.Players
    local tiles = self.Cache.Tiles
    for i = 1, #{...} do
        local v = select(i, ...)
        if tostring(v) then
            if v == "clear" or v == "remove" then
                for name, _ in pairs(self.Cache) do
                    self.Cache[name] = {}
                end
            elseif v == "create" then
                for x = self.EventArea.From.x, self.EventArea.To.x do
                    for y = self.EventArea.From.y, self.EventArea.To.y do
                        local tile = Tile(x, y, self.EventArea.From.z)
                        if tile then
                            -- add tiles
                            tiles[#tiles + 1] = tile
                            -- add players from tiles
                            local players = tile:getCreatures()
                            if #players > 0 then
                                for i = 1, #players do
                                    local player = players[i]
                                    if not player:getGroup():getAccess() then
                                        self.Cache.Players[player.uid] = player
                                    end
                                end
                            end
                        end
                    end
                end
            end
        end
    end
end

SZ.GetS = function(self, int, str)
    return (int > 1 and int.." "..str.."s" or int.." "..str)
end

SZ.KickPlayers = function(self)
    if Game.getStorageValue(self.Global.playersCount) > 0 then
        self:CacheEvent('create') -- we create a new cache, so we dont loop through onlineList
        for uid, _ in pairs(self.Cache.Players) do
            local player = Player(uid)
            if player then  
                player:setStorageValue(self.Player.Joined)
                player:teleportTo(player:getTown():getTemplePosition())
                player:getPosition():sendMagicEffect(CONST_ME_TELEPORT)
                player:sendTextMessage(MESSAGE_STATUS_CONSOLE_RED, "Safezone event could not start due not enough players.")
            end
        end
        self:CacheEvent('remove')
    end
    Game.setStorageValue(self.Global.playersCount)
end

SZ.BroadcastPlayers = function(self, msg)
    for uid, _ in pairs(self.Cache.Players) do
        local player = Player(uid)
        if player then
            player:sendTextMessage(MESSAGE_EVENT_ADVANCE, msg)
        end
    end
end

SZ.ReturnPlayer = function(self, player, winnerId)
    if winnerId ~= 0 then
        local reward = "Congratulations! Reward: "
        local prize = self.Rewards
        for i = 1, #prize[winnerId] do
            local item = ItemType(prize[winnerId][i][1])
            if item then
                local amount = prize[winnerId][i][2]
                if (i > 1) then
                    if (i == #prize[winnerId]) then
                        reward = reward.." and "
                    else
                        reward = reward..", "
                    end
                end
                reward = reward..(amount == 1 and (item:getArticle().." "..item:getName()) or self:GetS(amount, item:getName()))
                player:addItem(item:getId(), amount)
            end
        end
        self.Cache.Winners[winnerId] = player:getName()
        if winnerId == 1 then
            local winners = self.Cache.Winners
            local broadcast = "Safezone event has been ended, congratulations to the "..(#winners > 1 and self:GetS(#winners, "winner") or "winner")..":\n\n"
            for i = 1, #winners do
                broadcast = broadcast..(#winners > 1 and "["..i.."]" or "").." - "..winners[i].."\n"
            end
            Game.setStorageValue(SZ.Global.gameState)
            Game.setStorageValue(SZ.Global.playersCount)

            Game.broadcastMessage(broadcast, MESSAGE_EVENT_ADVANCE)
        end
        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, reward..".")
    else
        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_RED, "You have lose on safezone.")
    end
    -- removing player
    self.Cache.Players[player.uid] = nil
    player:setStorageValue(self.Player.Joined)
    player:setStorageValue(self.Player.Damaged)
    player:teleportTo(player:getTown():getTemplePosition())
    player:getPosition():sendMagicEffect(CONST_ME_TELEPORT)
    player:removeCondition(CONDITION_OUTFIT)
end

SZ.TileEffect = function(self, repeatTimes, tile, color)
    if tile then
        if (not tile:getTopCreature() or self.Tiles.ShowEffectWithPlayer) then
            Game.sendAnimatedText("SAFE ZONE", tile:getPosition(), color)
        end
    end

    if repeatTimes then
        for i = 1, repeatTimes do
            addEvent(function() self:TileEffect(nil, tile, color) end, i * 1000)
        end
    end
end

SZ.RemoveTiles = function(self)
    local tiles = self.Cache.Tiles
    local userdata = self.Cache.Players
    if #tiles > 0 then
        for i = 1, #tiles do
            local player
            local tile = tiles[i]
            local isProtected = false

            if tile then
                local ground = tile:getGround()  
                local creature = tile:getTopCreature()

                if creature and creature:isPlayer() and not creature:getGroup():getAccess() then
                    player = userdata[creature.uid] -- no need to verify since we know creature exist
                end

                if ground then
                    if ground:getAttribute('aid') > 0 then
                        local item = tile:getItemById(ground:getAttribute('aid'))
                        if item then
                            item:remove()
                        end
                        ground:setAttribute('aid', 0)
                        isProtected = true
                    end
                end

                if player then
                    Game.sendAnimatedText(isProtected and "PROTECTED!" or "DAMAGED!", player:getPosition(), isProtected and TEXTCOLOR_LIGHTGREEN or TEXTCOLOR_DARKRED)
                    player:getPosition():sendMagicEffect(isProtected and CONST_ME_WATERSPLASH or CONST_ME_FIREAREA)

                    if not (isProtected) then
                        player:setStorageValue(self.Player.Damaged, player:getStorageValue(self.Player.Damaged) + 1)
                        player:addCondition(PlayerConditions[player:getStorageValue(self.Player.Damaged)])

                        if player:getStorageValue(self.Player.Damaged) > #PlayerConditions then
                            local playersLeft = Game.getStorageValue(self.Global.playersCount)
                            self:ReturnPlayer(player, playersLeft <= self.Rewards.MaxWinners and playersLeft or 0)
                            Game.setStorageValue(self.Global.playersCount, playersLeft - 1)

                            if (playersLeft - 1) == 1 then
                                for uid, _ in pairs(self.Cache.Players) do
                                    local player = Player(uid)
                                    if player then
                                        self:ReturnPlayer(player, 1)
                                    end
                                end
                            end
                        end
                    end
                else
                    tile:getPosition():sendMagicEffect(CONST_ME_PLANTATTACK)
                end  
            end
        end
    end
    if not Game.getStorageValue(self.Global.playersCount) or Game.getStorageValue(self.Global.playersCount) == -1 then
        return self:CacheEvent('remove')
    end
    addEvent(function() self:CreateSafeTiles() end, 3500)
end

SZ.CreateSafeTiles = function(self)
    local tileSeconds = type(self.Tiles.Seconds) ~= "table" and (self.Tiles.Seconds > 0 and self.Tiles.Seconds or math.max(math.random(2, 3), math.ceil(self:PlayersCount() / 1.5))) + 1 or self.Tiles.Seconds[math.random(1, #self.Tiles.Seconds)]
    local tileAmount = type(self.Tiles.RemoveTilesPerWave) ~= "table" and math.max(1, (Game.getStorageValue(self.Global.playersCount) - self.Tiles.RemoveTilesPerWave)) or math.max(1, math.random(self.Tiles.RemoveTilesPerWave[1], self.Tiles.RemoveTilesPerWave[2]))
    local tilesCreated = 0

    local tiles = self.Cache.Tiles
    if #tiles > 0 then
        while tilesCreated < tileAmount do
            local tile = tiles[math.random(1, #tiles)]
            if tile then
                local ground = tile:getGround()
                if ground then
                    if ground:getAttribute('aid') < 1 then
                        if not tile:getTopCreature() then
                            local gemType = self.Tiles.GemIDs[math.random(1, #self.Tiles.GemIDs)]
                            tile:addItem(gemType[1], 1)
                            tile:getPosition():sendMagicEffect(CONST_ME_TUTORIALARROW)
                            self:TileEffect(tileSeconds, tile, gemType[2])
                            ground:setAttribute('aid', gemType[1])
                            tilesCreated = tilesCreated + 1
                        end
                    end
                end
            end
        end
    end
    self:BroadcastPlayers("[Safezone]\n"..self:GetS(tilesCreated, "tile").." has been created and will be removed in "..self:GetS(tileSeconds, "second")..".")
    addEvent(function() self:RemoveTiles() end, tileSeconds * 1000)
end

SZ.CleanTile = function(self, tile)
    if tile then
        local items = tile:getItems()
        local creatures = tile:getCreatures()
        for i = 1, (#items + #creatures) do
            if i <= #items then
                items[i]:remove()
            else
                local creature = creatures[i - #items]
                if creature:isPlayer() then
                    creature:teleportTo(creature:getTown():getTemplePosition())
                    creature:getPosition():sendMagicEffect(CONST_ME_TELEPORT)
                else
                    creature:remove()
                end
            end
        end
    end
end

SZ.EventTeleport = function(self, createTeleport)
    local tile = Tile(self.Entrance.Teleport.Position)
    if tile then      
        if tile:getItemById(self.Entrance.Teleport.ID) then
            tile:getPosition():sendMagicEffect(CONST_ME_POFF)
        end
        self:CleanTile(tile)

        if createTeleport then          
            local teleport = tile:addItem(self.Entrance.Teleport.ID, 1)
            if teleport then
                teleport:setAttribute('aid', self.Entrance.Teleport.ActionId)
                teleport:setDestination(self.Entrance.EventRoom)
                tile:getPosition():sendMagicEffect(CONST_ME_TELEPORT)
            end
        end
    end  
end

SZ.Countdown = function(self, interval)
    if Game.getStorageValue(self.Global.gameState) == 2 then
        return
    end
    if interval <= 0 then
        if Game.getStorageValue(self.Global.playersCount) >= self.Entrance.MinPlayers then
            self:StartEvent(SZ.Entrance.SecondsToInitiateEvent)
            broadcastMessage("Safezone teleport has been closed, good luck all the participants!")
        else
            self:KickPlayers()
            self:EventTeleport(false)
            Game.setStorageValue(self.Global.gameState)
            broadcastMessage("Safezone event didnt start because number of players registered was not enough.")
        end
        return
    end

    local players = SZ.Entrance.MaxPlayers - Game.getStorageValue(SZ.Global.playersCount)
    Game.broadcastMessage("Safezone event"..(interval == SZ.Entrance.MinutesToStart and " is open and" or "").." will start in "..self:GetS(interval, "minute")..", "..self:GetS(players, "player").." can join to the event.", MESSAGE_EVENT_ADVANCE)

    interval = interval - 1
    addEvent(function() self:Countdown(interval) end, 60 * 1000)
end

SZ.StartEvent = function(self, seconds)
    self:CacheEvent('create')
    self:EventTeleport(false)
    for uid, _ in pairs (self.Cache.Players) do
        local player = Player(uid)
        if player then
            player:setStorageValue(SZ.Player.Damaged, 1)
            player:addCondition(PlayerConditions[player:getStorageValue(SZ.Player.Damaged)])
            player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "Safezone event starts in ".. SZ.Entrance.SecondsToInitiateEvent .." seconds.")
        end
    end
    Game.setStorageValue(self.Global.gameState, 2)
    addEvent(function() self:CreateSafeTiles() end, seconds * 1000)
end

local eventTeleport = MoveEvent()
function eventTeleport.onStepIn(creature, item, position, fromPosition)
    if not creature:isPlayer() then
        return true
    end
    local player = creature
    local returnPosition = player:getTown():getTemplePosition()

    if player:getGroup():getAccess() then
        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_ORANGE, "You have joined as spectator.")
        return player:teleportTo(SZ.Entrance.EventRoom)
    end

    if Game.getStorageValue(SZ.Global.gameState) ~= 1 then
        player:sendCancelMessage("Safezone event is closed.")
        return player:teleportTo(returnPosition)
    end

    if player:getLevel() < SZ.Entrance.LevelRequired then
        player:sendCancelMessage("Only players level "..SZ.Entrance.LevelRequired.." or higher can join the event.")
        return player:teleportTo(returnPosition)
    end

    local countStr = SZ.Global.playersCount
    Game.setStorageValue(countStr, Game.getStorageValue(countStr) + 1)

    -- add player
    player:setStorageValue(SZ.Player.Joined, 1)

    if Game.getStorageValue(countStr) >= SZ.Entrance.MaxPlayers then
        broadcastMessage("Safezone event is full, good luck all the participants!")
        broadcastMessage(player:getName().." has joined to Safezone Event as last participant.", MESSAGE_STATUS_CONSOLE_RED)
        SZ:StartEvent(SZ.Entrance.SecondsToInitiateEvent)
    else
        broadcastMessage(player:getName().." has joined to Safezone Event.", MESSAGE_STATUS_CONSOLE_ORANGE)
        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "Welcome to Safezone Event!")
    end
    return true
end

eventTeleport:aid(SZ.Entrance.Teleport.ActionId)
eventTeleport:register()

local openEvent = GlobalEvent("Safezone_Event")
function openEvent.onThink()
    if SZ.Days[os.date('%A')] then
        if table.contains(SZ.Days[os.date('%A')], os.date('%X', os.time())) then
            Game.setStorageValue(SZ.Global.playersCount, 0)
            Game.setStorageValue(SZ.Global.gameState, 1)

            SZ:Countdown(SZ.Entrance.MinutesToStart)
            SZ:EventTeleport(true)
        end
    end
    return true
end

openEvent:interval(1000)
openEvent:register()

local onThrow = EventCallback
function onThrow.onMoveItem(player, item, count, fromPosition, toPosition, fromCylinder, toCylinder)
    if not SZ.PlayersCanThrowItems then
        if not player:getGroup():getAccess() then
            if toPosition.x ~= CONTAINER_POSITION then
                if (player:getStorageValue(SZ.Player.Joined) == 1) then
                    return false
                end
            end
        end
    end
    return true
end
onThrow:register()

 
Last edited:
Event updated:
  • Added missing decrementer on RemoveTiles for playersCount
  • Removed unused variable groundActionId
  • Fixed some typos on ReturnPlayer
 
beenii said:
safezone.lua:104: attempt to get length of local 'players' (a nil value)

im using:
github.com

GitHub - nekiro/TFS-1.5-Downgrades at 8.60

Alternative forgottenserver versions for older protocols support - GitHub - nekiro/TFS-1.5-Downgrades at 8.60
github.com github.com
Click to expand...
getCreatures only returns nil when tile couldnt be loaded nor creature vector but thats weird since getCreatures() is being called inside Tile check

Try by changing
Lua: 
if #players > 0 then

To
Lua: 
if players and #players > 0 then
 
Last edited:
Roddet said:
getCreatures only returns nil when tile couldnt be loaded nor creature vector but thats weird since getCreatures() is being called inside Tile check

Try by changing
Lua: 
if #players > 0 then

To
Lua: 
if players and #players > 0 then
Click to expand...
now it works fine, thanks

One question, how can I add more days? i try the following way but it doesn't work xD
Lua: 
    Days = {
        ['Wednesday'] = {'13:15:00'};
        ['Wednesday'] = {'14:15:00'};
        ['Wednesday'] = {'15:15:00'};
    },
    
    Days = {
        ['Wednesday'] = {'13:15:00'},
        ['Wednesday'] = {'14:15:00'},
        ['Wednesday'] = {'15:15:00'}
    },


suggestion: that everyone in the event has the same speed (taking into account that they cannot use boots of haste, or conditions haste)

thank you very much for your contribution, it is a very fun event, do you have more content for 8.6?
 
Lua: 
    Days = {
        ['Wednesday'] = {'13:15:00', '14:15:00', '15:15:00'};
        ['Thursday'] = {'14:00:00'};
    },

beenii said:
suggestion: that everyone in the event has the same speed (taking into account that they cannot use boots of haste, or conditions haste)
Click to expand...
Good suggestion, i will once i get some free time
 
Codinablack said:
Pretty sweet and unique event, reminds me of musical chairs, but with more danger :D

Thanks for sharing!
Click to expand...
Not my idea tho but pretty fun event, mostly like a push event :D
 
seems pretty fun. would it work on tfs 1.4? 10.98? or only 8.6?
 
only for ~9.1 versions as it is since its using sendAnimatedText but it can be adapted to work on any version it just need a rework on tile effects code which i plan to do
 
Hello, u help me?

Lua: 
custom/safe_zone.lua:442: attempt to index local 'onThrow' (a nil value)
stack traceback:
    [C]: in function '__newindex'
 
LeOnArd0 said:
Hello, u help me?

Lua: 
custom/safe_zone.lua:442: attempt to index local 'onThrow' (a nil value)
stack traceback:
    [C]: in function '__newindex'
Click to expand...
Looks like your server doesnt have eventcallbacks? Whats your engine?

Try by adding this code here: forgottenserver/player.lua at 1.2 · otland/forgottenserver (https://github.com/otland/forgottenserver/blob/1.2/data/events/scripts/player.lua#L88)
Lua: 
        if not self:getGroup():getAccess() then
            if toPosition.x ~= CONTAINER_POSITION then
                if (self:getStorageValue(32552) == 1) then
                    return false
                end
            end
        end

Enable onMoveItem event (data/events/events.xml)
Lua: 
<event class="Player" method="onMoveItem" enabled="1" />

And remove onThrow code from main script
 
Roddet said:
Looks like your server doesnt have eventcallbacks? Whats your engine?

Try by adding this code here: forgottenserver/player.lua at 1.2 · otland/forgottenserver (https://github.com/otland/forgottenserver/blob/1.2/data/events/scripts/player.lua#L88)
Lua: 
        if not self:getGroup():getAccess() then
            if toPosition.x ~= CONTAINER_POSITION then
                if (self:getStorageValue(32552) == 1) then
                    return false
                end
            end
        end

Enable onMoveItem event (data/events/events.xml)
Lua: 
<event class="Player" method="onMoveItem" enabled="1" />

And remove onThrow code from main script
Click to expand...

I use TFS version 1.3, downgrade by Nekiro.

I made the changes you mentioned. There were no more errors in the distro, however, the event did not start at the scheduled time. I put 00:45 am and 01:00 on Monday for test, as follows:

Days = {
['Wednesday'] = {'09:15:00', '18:15:00'};
['Thursday'] = {'18:00:00'};
['Sunday'] = {'15:00:00'};
['Monday'] = {'00:45:00'};
['Monday'] = {'01:00:00'};

It didn't give any errors, it just didn't start.
 
Event updated, I realized some datapacks uses default return value -1 on global storages
Lua: 
-- SZ.RemoveTiles function
if not Game.getStorageValue(self.Global.playersCount) or Game.getStorageValue(self.Global.playersCount) == -1 then
    return self:CacheEvent('remove')
end

Error 502 said:
Is there something similar for tfs 0.3.x or 0.4?
Click to expand...
Probably yes, on BR forums
 
Roddet said:
Event updated, I realized some datapacks uses default return value -1 on global storages
Lua: 
-- SZ.RemoveTiles function
if not Game.getStorageValue(self.Global.playersCount) or Game.getStorageValue(self.Global.playersCount) == -1 then
    return self:CacheEvent('remove')
end


Probably yes, on BR forums
Click to expand...
Working perfectly on Blazera 1.5 now with that edit!
Thank you for the awesome contribution to the community ;D
 

Similar threads

Marko999x
[TFS 1.x] Avoid people lagging your server by buying alot of items from NPC that drops it on ground
Replies
0
Views
169
Marko999x
Marko999x
Nokturno
[TFS 1.x] Creature Event - Friendly Protection
Replies
0
Views
429
Nokturno
Nokturno
Liikuid
[TFS 1.X][Canary/OTBR] 'Fix' books without text on Quest System
Replies
0
Views
456
Liikuid
Liikuid
Xikini
getNextTime(hour, minute)
Replies
0
Views
197
Xikini
Xikini
Back
Top