illarion-content/lte/longterm_cooldown.lua

--[[
Illarion Server

This program is free software: you can redistribute it and/or modify it under
the terms of the GNU Affero General Public License as published by the Free
Software Foundation, either version 3 of the License, or (at your option) any
later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
PARTICULAR PURPOSE.  See the GNU Affero General Public License for more
details.

You should have received a copy of the GNU Affero General Public License along
with this program.  If not, see <http://www.gnu.org/licenses/>.
]]
-- Longterm Cooldown
-- by Estralis
-- EffectID = 33
local character = require("base.character")
local common = require("base.common")

local M = {}

local monthlyQuestsIds = {504}

-- Check quests that can be done once in every ingame month
local function checkMonthlyQuests(char)
    local currentTimeUnix = world:getTime("unix")
    local secondsOfCurrentMonth = world:getTime("day")*24*60*60 + world:getTime("hour")*60*60 + world:getTime("seconds")

    for i = 1, #monthlyQuestsIds do
        local questId = monthlyQuestsIds[i]
        local questProgress, lastSet = char:getQuestProgress(questId)
        if questProgress > 0 then
            local secondsSinceLastSet = (currentTimeUnix - lastSet)*3 -- multiplied by 3 to get ingame seconds
            if secondsSinceLastSet > secondsOfCurrentMonth then
                char:setQuestProgress(questId, 0)
            end
        end
    end

end

local function cooldownQuest(Character,QuestID) -- cool down quest ID by 1 every 5 minutes
    local theQuestStatus = Character:getQuestProgress(QuestID)
    if theQuestStatus > 0 then --cool down ends at 0
        Character:setQuestProgress(QuestID,theQuestStatus-1) --cooling 5 minutes!
    end
end

local function cooldownQuestInform(Character,QuestID,endTextDe,endTextEn) -- cool down quest ID by 1 every 5 minutes
    local theQuestStatus = Character:getQuestProgress(QuestID)
    if theQuestStatus > 0 then --cool down ends at 0
        Character:setQuestProgress(QuestID,theQuestStatus-1) --cooling 5 minutes!
        if theQuestStatus == 1 and common.IsNilOrEmpty(endTextDe) == false and  common.IsNilOrEmpty(endTextEn) == false then
            common.InformNLS(Character,endTextDe,endTextEn)
        end
    end
end

local function cooldownQuestNoGM(Character,QuestID,endTextDe,endTextEn) -- cool down quest ID by 1 every 5 minutes
    local theQuestStatus = Character:getQuestProgress(QuestID)
    if theQuestStatus > 0 and Character:isAdmin() ~= true then --cool down ends at 0, GM's don't cool down
        Character:setQuestProgress(QuestID,theQuestStatus-1) --cooling 5 minutes!
        if theQuestStatus == 1 and common.IsNilOrEmpty(endTextDe) == false and  common.IsNilOrEmpty(endTextEn) == false then
            common.InformNLS(Character,endTextDe,endTextEn)
        end
    end
end

function M.addEffect( Effect, Character)
    -- it is needed to add at least value to make sure the effect does not get deleted right after
    -- the first call
    Effect:addValue("10",0)
end

function M.callEffect( Effect, Char ) -- Effect is called

    if Char:idleTime() < 300 then --absolutely no regeneration effect if the player is afk for more than five minutes

        -- Reset queststatus for quests that can be done once every ingame month
        checkMonthlyQuests(Char)

        cooldownQuest(Char,687)    --Banduk: Quest 687 (Fairy Tales)

        --Addition by Envi: Quest 680 (Evil Rock Reward)
        local theQuestStatus=Char:getQuestProgress(680)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(680,theQuestStatus-1) --cooling!
            if theQuestStatus == 1 then --only for this quest. the player should know when he can do it again.
                common.InformNLS(Char,"[Info] Die Zeit scheint reif, um dein Gl<47>ck auf der Insel 'B<>ser Fels' erneut zu versuchen.","[Info] It seems it is time to try your luck again on the island 'Evilrock'.")
            end
        end
        --Addition end

        --Addition by Envi: Quest 665 (Evil Rock Vision)
        theQuestStatus=Char:getQuestProgress(665)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(665,theQuestStatus-1) --cooling!
        end
        --Addition end

        --Addition by Envi: Quest 673 (Feed Galmair's bear)
        theQuestStatus=Char:getQuestProgress(673)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(673,theQuestStatus-1) --cooling!
        end
        --Addition end


        --Addition by Envi: Quest 811 (Licence Cadomyr)
        theQuestStatus=Char:getQuestProgress(811)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(811,theQuestStatus-1) --cooling!
            if theQuestStatus == 1 then --only for this quest. the player should know when he can do it again.
                common.InformNLS(Char,"Deine Lizenz f<>r die Benutzung der Werkzeuge von Cadomyr ist abgelaufen. Du kannst sie im Zensusb<73>ro von Cadomyr erneuern.","Your licence for Cadomyr's static tools has expired. You can get a new one at the census office of Cadomyr.")
            end
        end
        --Addition end

        --Addition by Envi: Quest 812 (Licence Runewick)
        theQuestStatus=Char:getQuestProgress(812)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(812,theQuestStatus-1) --cooling!
            if theQuestStatus == 1 then --only for this quest. the player should know when he can do it again.
                common.InformNLS(Char,"Deine Lizenz f<>r die Benutzung der Werkzeuge von Runewick ist abgelaufen. Du kannst sie im Zensusb<73>ro von Runewick erneuern.","Your licence for Runewick's static tools has expired. You can get a new one at the census office of Runewick.")
            end
        end
        --Addition end

        --Addition by Envi: Quest 811 (Licence Galmair)
        theQuestStatus=Char:getQuestProgress(813)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(813,theQuestStatus-1) --cooling!
            if theQuestStatus == 1 then --only for this quest. the player should know when he can do it again.
                common.InformNLS(Char,"Deine Lizenz f<>r die Benutzung der Werkzeuge von Galmair ist abgelaufen. Du kannst sie im Zensusb<73>ro von Galmair erneuern.","Your licence for Galmair's static tools has expired. You can get a new one at the census office of Galmair.")
            end
        end
        --Addition end

        --Addition by Envi: Quest 613 (Paula Bronzeblatt)
        theQuestStatus=Char:getQuestProgress(613)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(613,theQuestStatus-1) --cooling!
            if theQuestStatus == 1 then --only for this quest. the player should know when he can do it again.
                common.InformNLS(Char,"Eine Taube wirft ein Pergamentst<73>ck neben dir ab. Du liest: 'Ich sollte morgen wieder eine Schatzkarte f<>r dich haben. -Paula Bronzeblatt'","A dove drops a parchment next to you. You read: 'I should have another treasure map for you tomorrow. -Paula Bronzeblatt'")
            end
        end
        --Addition end


        --Addition by Envi: Quest 614 (Arno Unterland)
        theQuestStatus=Char:getQuestProgress(614)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(614,theQuestStatus-1) --cooling!
            if theQuestStatus == 1 then --only for this quest. the player should know when he can do it again.
                common.InformNLS(Char,"Eine Taube wirft ein Pergamentst<73>ck neben dir ab. Du liest: 'Morgen k<>nnen wir wieder etwas drehen. Kommt vorbei! -Arno Unterland'","A dove drops a parchment next to you. You read: 'Tomorrow, we can do it again. Visit me! -Arno Unterland'")
            end
        end
        --Addition end


        --Addition by Envi: Quest 661 (Elstree Forest)
        theQuestStatus=Char:getQuestProgress(661)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(661,theQuestStatus-1) --cooling!
        end
        --Addition end

        --Addition by Envi: Quest 660 (Galmair bridges)
        theQuestStatus=Char:getQuestProgress(660)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(660,theQuestStatus-1) --cooling!
        end
        --Addition end

        --Addition by Estralis: Quest 119/120 (Cadomyr daily missions)
        theQuestStatus=Char:getQuestProgress(120)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(120,theQuestStatus-1) --cooling!
        end
        --Addition end

        --Addition by Estralis: Quest 152/153 (Galmair daily missions)
        theQuestStatus=Char:getQuestProgress(153)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(153,theQuestStatus-1) --cooling!
        end
        --Addition end

        --Addition by Estralis: Quest 160/161 (Runewick daily missions)
        theQuestStatus=Char:getQuestProgress(161)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(161,theQuestStatus-1) --cooling!
        end
        --Addition end

        --Addition by Merung: Quest 162 (Runewick daily missions II)
        theQuestStatus=Char:getQuestProgress(165)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(165,theQuestStatus-1) --cooling!
        end
        --Addition end

        --Addition by Estralis: Quest 127/128/129 Caravan of Honour (Phillip Molitor) Cooldown
        theQuestStatus=Char:getQuestProgress(129)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(129,theQuestStatus-1) --cooling!
        end
        --Addition end

        --Addition by Estralis: Quest 210/211/212 Late Delivery (Anthony Devries) Cooldown
        theQuestStatus=Char:getQuestProgress(212)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(212,theQuestStatus-1) --cooling!
        end
        --Addition end

        --Addition by Estralis: Quest 213/214/215 A Wistful Journey (Pesnar Rolemnes) Cooldown
        theQuestStatus=Char:getQuestProgress(215)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(215,theQuestStatus-1) --cooling!
        end
        --Addition end

        --Addition by Estralis: Quest 162/163/164 Glorious Bounty (Palis Nestros) Cooldown
        theQuestStatus=Char:getQuestProgress(164)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(164,theQuestStatus-1) --cooling!
        end
        --Addition end

        --Addition by Caldarion: Quest 181/182/183 Spy Informant (Bula Glasha) Cooldown
        theQuestStatus=Char:getQuestProgress(183)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(183,theQuestStatus-1) --cooling!
        end
        --Addition end

        --Addition by Caldarion: Quest 184/185/186 The Researcher (Maelyrra Umrielyth) Cooldown
        theQuestStatus=Char:getQuestProgress(186)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(186,theQuestStatus-1) --cooling!
        end
        --Addition end

        --Addition by Evie: Quest 541 Viridian Needles Lair Potion effect Cooldown
        theQuestStatus=Char:getQuestProgress(541)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(541,theQuestStatus-1) --cooling!
        end
        --Addition end

        --Addition by Evie: Quest 561 Fox Den feeding cooldown
        theQuestStatus=Char:getQuestProgress(561)

        if theQuestStatus > 0 then --Is there a cooldown? Will only be reduced if the player isn't AFK/idle
            Char:setQuestProgress(561,theQuestStatus-1) --cooling!
        end
        --Addition end

    end --all above is only conducted for players that aren't afk for more than five minutes

    --Protection by the Don, supposed to last 1 IG month, a bit of a hack to put it in here

    local protectionStatus = Char:getQuestProgress(453)

    if protectionStatus == 1 then --It was just bought within the last 5 min of play, set unix timeStamp
        Char:setQuestProgress(453, world:getTime("unix"))
    end

    local time = world:getTime("unix")

    local protectionDuration = 8*24*60*60

    if protectionStatus > 1 and protectionStatus+protectionDuration < time then
        Char:setQuestProgress(453, 0)
        common.InformNLS(Char, "Dein monatliches Abonnement f<>r den Schutz durch die Wachen des Don ist abgelaufen. Um weiterhin sicher vor <20>berf<72>llen auf der Br<42>cke bei Galmair zu sein, erneuere es noch heute bei Frederik!", "Your monthly subscription to being protected by the Don's Guards has expired. To remain safe from bridge ambushes near Galmair, go renew it at Frederik's today!")
    end


    --Addition by Estralis: Quest 127/128/129 Caravan of Honour (Phillip Molitor) Countdown
    local theQuestStatus=Char:getQuestProgress(128)

    if theQuestStatus == 1 then --Time over!

        common.InformNLS(Char,"[Auftragssstatus] Du hast es nicht geschafft, den Auftrag von Philipp Molitor zu erledigen.","[Order status] You failed to fulfil the order of Philipp Molitor.") -- Feedback!
        Char:setQuestProgress(127,0)

    end

    if theQuestStatus == 3 then --Ten minutes left!

        common.InformNLS(Char,"[Auftragssstatus] Es verbleiben dir noch zehn Minuten, um den Auftrag von Philipp Molitor zu erledigen.","[Order status] You have ten minutes left to fulfil the order of Philipp Molitor.") -- Feedback!

    end

    if theQuestStatus == 13 then --One hour left

        common.InformNLS(Char,"[Auftragssstatus] Es verbleibt dir noch eine Stunde, um den Auftrag von Philipp Molitor zu erledigen.","[Order status] You have one hour left to fulfil the order of Philipp Molitor.") -- Feedback!

    end

    if theQuestStatus > 0 then --Is there a countdown? Will be reduced even if the player is AFK/idle
        Char:setQuestProgress(128,theQuestStatus-1) --counting down!
    end
    --Addition end

    --Addition by Estralis: Quest 210/211/212 Late Delivery (Anthony Devries) Countdown
    theQuestStatus = Char:getQuestProgress(211)

    if theQuestStatus == 1 then --Time over!

        common.InformNLS(Char,"[Auftragssstatus] Du hast es nicht geschafft, den Auftrag von Anthony Devries zu erledigen.","[Order status] You failed to fulfil the order of Anthony Devries.") -- Feedback!
        Char:setQuestProgress(210,0)

    end

    if theQuestStatus == 3 then --Ten minutes left!

        common.InformNLS(Char,"[Auftragssstatus] Es verbleiben dir noch zehn Minuten, um den Auftrag von Anthony Devries zu erledigen.","[Order status] You have ten minutes left to fulfil the order of Anthony Devries.") -- Feedback!

    end

    if theQuestStatus == 13 then --One hour left

        common.InformNLS(Char,"[Auftragssstatus] Es verbleibt dir noch eine Stunde, um den Auftrag von Anthony Devries zu erledigen.","[Order status] You have one hour left to fulfil the order of Anthony Devries.") -- Feedback!

    end

    if theQuestStatus > 0 then --Is there a countdown? Will be reduced even if the player is AFK/idle
        Char:setQuestProgress(211,theQuestStatus-1) --counting down!
    end
    --Addition end

    --Addition by Estralis: Quest 213/214/215 A Wistful Journey (Pesnar Rolemnes) Countdown
    theQuestStatus = Char:getQuestProgress(214)

    if theQuestStatus == 1 then --Time over!

        common.InformNLS(Char,"[Auftragssstatus] Du hast es nicht geschafft, den Auftrag von Pesnar Rolemnes zu erledigen.","[Order status] You failed to fulfil the order of Pesnar Rolemnes.") -- Feedback!
        Char:setQuestProgress(213,0)

    end

    if theQuestStatus == 3 then --Ten minutes left!

        common.InformNLS(Char,"[Auftragssstatus] Es verbleiben dir noch zehn Minuten, um den Auftrag von Pesnar Rolemnes zu erledigen.","[Order status] You have ten minutes left to fulfil the order of Pesnar Rolemnes.") -- Feedback!

    end

    if theQuestStatus == 13 then --One hour left

        common.InformNLS(Char,"[Auftragssstatus] Es verbleibt dir noch eine Stunde, um den Auftrag von Pesnar Rolemnes zu erledigen.","[Order status] You have one hour left to fulfil the order of Pesnar Rolemnes.") -- Feedback!

    end

    if theQuestStatus > 0 then --Is there a countdown? Will be reduced even if the player is AFK/idle
        Char:setQuestProgress(214,theQuestStatus-1) --counting down!
    end
    --Addition end

    --Addition by Estralis: Quest 162/163/164 Glorious Bounty (Palis Nestros) Cooldown
    theQuestStatus=Char:getQuestProgress(163)

    if theQuestStatus == 1 then --Time over!

        common.InformNLS(Char,"[Kopfgeldstatus] Das Kopfgeld von Palis Nestros kannst du dir abschminken.","[Bounty status] You can kiss the bounty of Palis Nestros goodbye.") -- Feedback!
        Char:setQuestProgress(162,0)

    end

    if theQuestStatus == 3 then --Ten minutes left!

        common.InformNLS(Char,"[Kopfgeldstatus] In zehn Minuten l<>uft dein Kopfgeldvertrag mit Palis Nestros aus.","[Bounty status] In ten minutes, your bounty contract with Palis Nestros will expire.") -- Feedback!

    end

    if theQuestStatus == 13 then --One hour left

        common.InformNLS(Char,"[Kopfgeldstatus] Eine Stunde verbleibt dir, um das Kopfgeld von Palis Nestros zu verdienen.","[Bounty status] One hour left for earning the bounty of Palis Nestros.") -- Feedback!

    end

    if theQuestStatus > 0 then --Is there a countdown? Will be reduced even if the player is AFK/idle
        Char:setQuestProgress(163,theQuestStatus-1) --counting down!
    end
    --Addition end

    --Addition by Caldarion: Quest 181/182/183 Spy Informant (Bula Glasha) Cooldown
    theQuestStatus=Char:getQuestProgress(182)

    if theQuestStatus == 1 then --Time over!

        common.InformNLS(Char,"[Informanten Status] Du warst zu langsam um die Informationen zu beschaffen, du bekommst keine Belohnung.","[Information status] You were too slow collecting data, you have lost your fee.") -- Feedback!
        Char:setQuestProgress(181,0)

    end

    if theQuestStatus == 3 then --Ten minutes left!

        common.InformNLS(Char,"[Informanten Status] In zehn Minuten ist deine Chance vestrichen, um Informationen f<>r Bula Glasha zu sammeln.","[Information status] In ten minutes, your chance to collect information for Bula Glasha will be over.") -- Feedback!

    end

    if theQuestStatus == 13 then --One hour left

        common.InformNLS(Char,"[Informanten Status] Eine Stunde verbleibt um Informationen f<>r Bula Glasha zu sammeln.","[Information status] One hour left for earning the information fee of Bula Glasha.") -- Feedback!

    end

    if theQuestStatus > 0 then --Is there a countdown? Will be reduced even if the player is AFK/idle
        Char:setQuestProgress(182,theQuestStatus-1) --counting down!
    end
    --Addition end

        --Addition by Caldarion: Quest 184/185/186 The Researcher (Maelyrra Umrielyth) Cooldown
    theQuestStatus=Char:getQuestProgress(185)

    if theQuestStatus == 1 then --Time over!

        common.InformNLS(Char,"[Forschung Status] Du warst zu langsam um die Informationen zu beschaffen, du bekommst keine Belohnung.","[Research status] You were too slow collecting data, you have lost your fee.") -- Feedback!
        Char:setQuestProgress(184,0)

    end

    if theQuestStatus == 3 then --Ten minutes left!

        common.InformNLS(Char,"[Forschung Status] In zehn Minuten ist deine Chance vestrichen, um Informationen f<>r Maelyrra Umrielyth zu sammeln.","[Research status] In ten minutes, your chance to collect information for Maelyrra Umrielyth will be over.") -- Feedback!

    end

    if theQuestStatus == 13 then --One hour left

        common.InformNLS(Char,"[Forschung Status] Eine Stunde verbleibt um Forschung f<>r Maelyrra Umrielyth zu sammeln.","[Research status] One hour left for earning the research fee of Maelyrra Umrielyth.") -- Feedback!

    end

    if theQuestStatus > 0 then --Is there a countdown? Will be reduced even if the player is AFK/idle
        Char:setQuestProgress(185,theQuestStatus-1) --counting down!
    end
    --Addition end

            --Addition by Evie: Quest 503/507 Pillar quest and cooldown
    theQuestStatus=Char:getQuestProgress(507)

    if theQuestStatus == 1 then --Time over!

        common.InformNLS(Char,"[Quest Status] Du hast darin versagt, das Schwert an dich zu nehmen und dem Zzarn'K'Ska Zelphias beizutreten. Du bezahlst mit deinem Leben.","[Quest status] You failed to take the sword and join the Zzarn'K'Ska of Zelphia, you pay with your life.") -- Feedback!
        world:gfx(2,Char.pos)
        world:makeSound(5,Char.pos)
        character.ChangeHP(Char, -10000)
        Char:setQuestProgress(503,3)

    end

    if theQuestStatus == 3 then --Ten minutes left!

        common.InformNLS(Char,"[Quest Status] Du hast zehn Minuten, um das Schwert an dich zunehmen und sich dem Zzarn'K'Ska Zelphias anzuschlie<69>en oder die Konsequenzen zu ertragen.","[Quest status] You have ten minutes to take the sword and join the Zzarn'K'Ska of Zelphia or suffer the consequences.") -- Feedback!

    end

    if theQuestStatus == 5 then --Twenty minutes left!

        common.InformNLS(Char,"[Quest Status] Du hast zwanzig Minuten, um das Schwert an dich zunehmen und sich dem Zzarn'K'Ska Zelphias anzuschlie<69>en oder die Konsequenzen zu ertragen.","[Quest status] You have twenty minutes to take the sword and join the Zzarn'K'Ska of Zelphia or suffer the consequences.") -- Feedback!

    end

    if theQuestStatus > 0 then --Is there a countdown? Will be reduced even if the player is AFK/idle
        Char:setQuestProgress(507,theQuestStatus-1) --counting down!

    end
    --Addition end

        --Addition by Evie: Quest 508/509 Lake of Life Fountains and cool down
    theQuestStatus=Char:getQuestProgress(509)

    if theQuestStatus == 1 then --Time over!

        common.InformNLS(Char,"Alles N<>sse der Reinigung ist wieder weg und du bist trocken.","You have fully dried off from your cleansing.") -- Feedback!  You dried off!
        Char:setQuestProgress(508,0)

    end

    if theQuestStatus > 0 then --Is there a countdown? Will be reduced even if the player is AFK/idle
        Char:setQuestProgress(509,theQuestStatus-1) --counting down!

    end
    --Addition end

    --Addition by Evie: Quest 561 Fox Den Feeding Cooldown
    cooldownQuestInform(Char,561,
                        "Es ist einige Zeit vergangen. Die kleinen F<>chse haben wieder Hunger.",
                        "Enough time has passed that the fox pups are hungry again.")
    --Addition end

    --Addition by Evie: Quest 119/159/120 Cadmoyr Stockup Anthar Vilicon
    theQuestStatus=Char:getQuestProgress(159)

    if theQuestStatus == 1 then --Time over!

        common.InformNLS(Char,"Du hast es nicht geschafft, die Aufgabe von Anthar Vilicon p<>nktlich zu l<>sen. Frage Anthar Vilicon nach einer neuen Aufgabe, wenn du Cadomyr helfen willst.","You have failed to complete your quest for Anthar Vilicon in time. Try another quest if you wish to help the town of Cadomyr.") -- Feedback!
        Char:setQuestProgress(119,0)

    end

    if theQuestStatus == 3 then --Ten minutes left!

        common.InformNLS(Char,"Dir bleiben noch zehn Minuten, um die Aufgabe von Anthar Vilicon zu erledigen.","You have ten minutes left to finish your quest for Anthar Vilicon.") -- Feedback!

    end

    if theQuestStatus == 13 then --One hour left

        common.InformNLS(Char,"Du hast noch eine Stunde Zeit, die Aufgabe von Anthar Vilicon zu erledigen.","You have one hour left to finish your quest for Anthar Vilicon.") -- Feedback!

    end

    if theQuestStatus > 0 then --Is there a countdown? Will be reduced even if the player is AFK/idle
        Char:setQuestProgress(159,theQuestStatus-1) --counting down!
    end
    --Addition end

    --Addition by Evie: Quest 160/260/161 Runewick Daily Quest Decius Cerasus Industrius
    theQuestStatus=Char:getQuestProgress(260)

    if theQuestStatus == 1 then --Time over!

        common.InformNLS(Char,"Du hast es nicht geschafft, die Aufgabe von Decius Cerasus Industrius p<>nktlich zu l<>sen. Frage Decius Cerasus Industrius nach einer neuen Aufgabe, wenn du Runewick helfen willst.","You have failed to complete your quest for Decius Cerasus Industrius in time. Try another quest if you wish to help the town of Runewick.") -- Feedback!
        Char:setQuestProgress(160,0)

    end

    if theQuestStatus == 3 then --Ten minutes left!

        common.InformNLS(Char,"Dir bleiben noch zehn Minuten, um die Aufgabe von Decius Cerasus Industrius zu erledigen.","You have ten minutes left to finish your quest for Decius Cerasus Industrius.") -- Feedback!

    end

    if theQuestStatus == 13 then --One hour left

        common.InformNLS(Char,"Du hast noch eine Stunde Zeit, die Aufgabe von Decius Cerasus Industrius zu erledigen.","You have one hour left to finish your quest for Decius Cerasus Industrius.") -- Feedback!

    end

    if theQuestStatus > 0 then --Is there a countdown? Will be reduced even if the player is AFK/idle
        Char:setQuestProgress(260,theQuestStatus-1) --counting down!
    end
    --Addition end

    --Addition by Evie: Quest 152/252/153 Galmair Daily Quest Gurzad Gutri
    theQuestStatus=Char:getQuestProgress(252)

    if theQuestStatus == 1 then --Time over!

        common.InformNLS(Char,"Du hast es nicht geschafft, die Aufgabe von Gurzad Gutri p<>nktlich zu l<>sen. Frage Gurzad Gutri nach einer neuen Aufgabe, wenn du Galmair helfen willst.","You have failed to complete your quest for Gurzad Gutri in time. Try another quest if you wish to help the town of Galmair.") -- Feedback!
        Char:setQuestProgress(152,0)

    end

    if theQuestStatus == 3 then --Ten minutes left!

        common.InformNLS(Char,"Dir bleiben noch zehn Minuten, um die Aufgabe von Gurzad Gutri zu erledigen.","You have ten minutes left to finish your quest for Gurzad Gutri.") -- Feedback!

    end

    if theQuestStatus == 13 then --One hour left

        common.InformNLS(Char,"Du hast noch eine Stunde Zeit, die Aufgabe von Gurzad Gutri zu erledigen.","You have one hour left to finish your quest for Gurzad Gutri.") -- Feedback!

    end

    if theQuestStatus > 0 then --Is there a countdown? Will be reduced even if the player is AFK/idle
        Char:setQuestProgress(252,theQuestStatus-1) --counting down!
    end
    --Addition end

    --Addition by Evie: Quest 602/608 - Tronuk beer quest
    theQuestStatus=Char:getQuestProgress(608)

    if theQuestStatus == 1 then --Time over!
        Char:setQuestProgress(602,0)
    end

    if theQuestStatus > 0 then --Is there a countdown? Will be reduced even if the player is AFK/idle
        Char:setQuestProgress(608,theQuestStatus-1) --counting down!
    end
    --Addition end

    --Addition by Banduk: Quest 236,298,299,300 - GM capability for all
    cooldownQuestNoGM(Char,236,"[Info] Die Monster erheben wieder ihre Waffen gegen dich.","[Info] The monsters raise their weapons against you again.")
    cooldownQuestNoGM(Char,298,"[Info] Flammen werden dir wieder etwas anhaben.","[Info] Flames will hurt you again.")
    cooldownQuestNoGM(Char,299,"[Info] Eisflammen werden dir wieder etwas anhaben.","[Info] Ice flames will hurt you again.")
    cooldownQuestNoGM(Char,300,"[Info] Giftwolken werden dir wieder etwas anhaben.","[Info] Poison clouds will hurt you again.")

    --Addition by Banduk: Hairdresser
    -- fresh hair from hairdresser
    cooldownQuestInform(Char,229,"[Info] Deine Frisur sieht nicht mehr wie neu aus.","[Info] Your haircut no longer looks brand new.")
    cooldownQuestInform(Char,230,"[Info] Dein Kamm gl<67>nzt nicht mehr wie frisch poliert.","[Info] The polished shine of your comb wears off.")
    -- hairdresser not paid, remaining time to pay
    cooldownQuest(Char,232)

    --Addition by Banduk: Prevent removing all glyph forges at once
    cooldownQuest(Char,562)
    --Addition by Banduk: wait until next learn by searching a forge
    cooldownQuest(Char,563)

    Effect.nextCalled = 3000 --Effect gets called each 5 minutes
    return true

end


function M.removeEffect( Effect, Character )

--This effect doesn't get removed.

end

function M.loadEffect(Effect, Character)

end

return M