<globalevent name="staff_salary" time="00:00" event="script" value="nome_do_arquivo.lua"/>

function onSay(cid, words, param)
    local balance, wasted_this_month = getPlayerStorageValue(cid, STAFF_VAULT) < 0 and 0 or getPlayerStorageValue(cid, STAFF_VAULT), getPlayerStorageValue(cid, STAFF_VAULT_LIMITS) < 0 and 0 or getPlayerStorageValue(cid, STAFF_VAULT_LIMITS)
    
    if words == "/cofreLimits" then
        local popup_message = [[
            *** Informations about your personal vault ***
            
        You wasted this month: %d gold.
        At the moment, you have %d gold in your personal vault.]]
        
        doPlayerPopupFYI(cid, popup_message:format(wasted_this_month, balance))
    else
        if param == "" then
            return doPlayerSendCancel(cid, "Please, specify the player name and the money you want transfer.")
        end
        
        local info = param:explode(",")
        local player, money = getPlayerByName(info[1]), tonumber(info[2])
        if not isPlayer(player) then
            return doPlayerSendCancel(cid, "This player doesn't exist or is offline.")
        elseif not money then
            return doPlayerSendCancel(cid, "Please, write a valid number.")
        elseif money > balance then
            return doPlayerSendCancel(cid, "You can't transfer this quantity of money.")
        end
        
        local player_balance = getPlayerBalance(player)
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "You successfully transfered "..money.." gold from your personal vault to "..(player == cid and "yourself" or info[1])..".")
        if player ~= cid then
            doPlayerSendTextMessage(player, MESSAGE_STATUS_CONSOLE_ORANGE, "You received "..money.." gold from "..getCreatureName(cid)..". The money was sent to your bank.")
        end
        doPlayerSetBalance(player, player_balance + money)
        setPlayerStorageValue(cid, STAFF_VAULT, balance - money)
        setPlayerStorageValue(cid, STAFF_VAULT_LIMITS, wasted_this_month + money)
    end
    return true
end

<talkaction words="/cofreLimits;/cofreTransfer" access="4" event="script" value="nome_do_arquivo.lua"/>

PLAYERCUSTOMFLAG_HASFULLLIGHT = 26


STAFF_VAULT = 49391
STAFF_VAULT_LIMITS = 49392


maleOutfits = {128, 129, 130, 131, 132, 133, 134, 143, 144, 145, 146, 151, 152, 153, 154, 251, 268, 273, 278, 289, 325, 328, 335, 367}

local config = {
creationTime = 7 * 86400,
checkTime = 7 * 86400,
viceCount = 4,
memberCount = 10
}


function onStartup()
local data, time, result = {}, os.time(), db.getResult("SELECT `id`, `ownerid`, `creationdata`, `checkdata` FROM `guilds` WHERE `world_id` = " .. getConfigValue('worldId') .. ";")
if(result:getID() ~= -1) then
repeat
data[result:getDataInt("id")] = {result:getDataInt("ownerid"), result:getDataInt("creationdata"), result:getDataInt("checkdata")}
until not(result:next())
result:free()
end


for id, v in ipairs(data) do
local owner, created, check = v[1], v[2], v[3]
if(created < (time - config.creationTime)) then
result = db.getResult("SELECT `id`, `level` FROM `guild_ranks` WHERE `guild_id` = " .. id .. ";")
if(result:getID() ~= -1) then
local rank, ranks = 0, {}
repeat
ranks[result:getDataInt("id")] = result:getDataInt("level")
if(result:getDataInt("level") == 1) then
rank = result:getDataInt("id")
end
until not(result:next())
result:free()


local members = {0, 0, 0, 0}
for k, v in ipairs(ranks) do
result = db.getResult("SELECT COUNT(`id`) AS `count` FROM `players` WHERE `rank_id` = " .. k .. ";")
if(result:getID() ~= -1) then
members[v] = members[v] + result:getDataInt("count")
result:free()
end


if(v == 2) then
result = db.getResult("SELECT `p`.`id` FROM `players` p LEFT JOIN `accounts` a ON `p`.`account_id` = `a`.`id` WHERE `p`.`rank_id` = " .. k .. " AND (`a`.`premdays` = 0 OR (`a`.`lastday` + (`a`.`premdays` * 86400) <= 0));")
if(result:getID() ~= -1) then
local demote = ""
repeat
demote = demote .. result:getDataInt("id") .. ","
members[2] = members[2] - 1
members[1] = members[1] + 1
until not(result:next())
result:free()


if(demote ~= "" and rank ~= 0) then
db.query("UPDATE `players` SET `rank_id` = " .. rank .. " WHERE `id` IN (" .. demote:sub(1, -2) .. ");")
end
end
end
end


for i = 1, 3 do
members[4] = members[4] + members[i]
end


if(members[2] < config.viceCount or members[4] < config.memberCount) then
if(check == 0) then
db.query("UPDATE `guilds` SET `checkdata` = " .. (time + config.checkTime) .. " WHERE `id` = " .. id .. ";")
elseif(check < time) then
local tmp = ""
for rank, _ in ipairs(ranks) do
tmp = tmp .. rank .. ","
end


db.query("UPDATE `players` SET `rank_id` = 0, `guildnick` = '', `guildjoin` = 0 WHERE `rank_id` IN (" .. tmp:sub(1, -2) .. ");")
db.query("DELETE FROM `guilds` WHERE `id` = " .. id .. ";")
end
end
end
end
end


db.query("UPDATE `players` SET `online` = 0 WHERE `world_id` = " .. getConfigValue('worldId') .. " AND `online` > 0;")
db.query("UPDATE `bans` SET `active` = 0 WHERE `expires` <= " .. time .. " AND `expires` >= 0 AND `active` = 1")
db.query("DELETE FROM `guild_wars` WHERE `status` = 0 AND `begin` < " .. (time - 2 * 86400) .. ";")


if(getConfigValue("sqlType") ~= "sqlite") then
db.query("TRUNCATE TABLE `player_statements`;")
else
db.query("DELETE FROM `player_statements`;")
end
local query = db.getResult("SELECT `guild_id` FROM `castle_dono` WHERE `guild_id` > 0")
if query:getID() ~= -1 then
setGlobalStorageValue(1823999, query:getDataInt("guild_id"))
end


return true
end


function onGlobalSave()
if(getGameState() ~= GAMESTATE_CLOSING) then
return onStartup()
end


return true
end