Lua GuildShop lua Scripter

[TibiaGameHost]

I have a question and need a scripter moon to solve it.
My system! Guildpoints is functioning correctly, is just a very strange thing happens.
The command can be run in 24-24h usually more though, when the leader runs the 2nd time the command, it does not get the points and players who have already received did not receive.
ie, the command works perfectly, but the players who have received the points do not receive, new players receive points.
Some moon scripter help me give REP + Thanks from now goodnight.

GuildPointsConfigs =
{
ExecuteIntervalHours = 24,
NeedPlayersOnline = 10,
NeedDiferentIps = 6,
MinLevel = 100,
AddPointsForAcc = 20
}

function getGuildPlayersValidAccIDS(GuildID, MinLevel)
local RanksIDS = {}
local AccsID = {}
local ValidAccsID = {}
Query1 = db.getResult("SELECT `id` FROM `guild_ranks` WHERE guild_id = '".. GuildID .."'")
if(Query1:getID() == -1) then
return ValidAccsID
end
for i = 1, Query1:getRows() do
table.insert(RanksIDS, Query1:getDataInt("id"))
Query1:next()
end
Query2 = db.getResult("SELECT `account_id` FROM `players` WHERE `rank_id` IN (".. table.concat(RanksIDS, ', ') ..") AND `level` >= ".. MinLevel .."")
if(Query2:getID() == -1) then
return ValidAccsID
end
for i = 1, Query2:getRows() do
local AccID = Query2:getDataInt("account_id")
if #AccsID > 0 then
for k = 1, #AccsID do
if AccID == AccsID[k] then
AddAccList = false
break
end
AddAccList = true
end
if AddAccList then
table.insert(AccsID, AccID)
end
else
table.insert(AccsID, AccID)
end
Query2:next()
end
Query3 = db.getResult("SELECT `id` FROM `accounts` WHERE `guild_points_stats` = 0 AND `id` IN (".. table.concat(AccsID, ', ') ..")")
if(Query3:getID() == -1) then
return ValidAccsID
end
for i = 1, Query3:getRows() do
local AccID = Query3:getDataInt("id")
if #ValidAccsID > 0 then
for k = 1, #ValidAccsID do
if AccID == ValidAccsID[k] then
AddAccList = false
break
end
AddAccList = true
end
if AddAccList then
table.insert(ValidAccsID, AccID)
end
else
table.insert(ValidAccsID, AccID)
end
Query3:next()
end
return ValidAccsID
end

function onSay(cid, words, param, channel)
if(getPlayerGuildLevel(cid) == 3) then
local GuildID = getPlayerGuildId(cid)
Query = db.getResult("SELECT `last_execute_points` FROM `guilds` WHERE id = '".. GuildID .."'")
if(Query:getID() == -1) then
return true
end
if Query:getDataInt("last_execute_points") < os.time() then
local GuildMembers = {}
local GuildMembersOnline = {}
local PlayersOnline = getPlayersOnline()
for i, pid in ipairs(PlayersOnline) do
if getPlayerGuildId(pid) == GuildID then
if getPlayerLevel(pid) >= GuildPointsConfigs.MinLevel then
table.insert(GuildMembersOnline, pid)
end
end
end
if #GuildMembersOnline >= GuildPointsConfigs.NeedPlayersOnline then
local IPS = {}
for i, pid in ipairs(GuildMembersOnline) do
local PlayerIP = getPlayerIp(pid)
if #IPS > 0 then
for k = 1, #IPS do
if PlayerIP == IPS[k] then
AddIPList = false
break
end
AddIPList = true
end
if AddIPList then
table.insert(IPS, PlayerIP)
end
else
table.insert(IPS, PlayerIP)
end
end
if #IPS >= GuildPointsConfigs.NeedDiferentIps then
local ValidAccounts = getGuildPlayersValidAccIDS(GuildID, GuildPointsConfigs.MinLevel)
db.executeQuery("UPDATE `guilds` SET `last_execute_points` = ".. os.time() + (GuildPointsConfigs.ExecuteIntervalHours * 3600) .." WHERE `guilds`.`id` = ".. GuildID ..";")
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "".. #ValidAccounts .." Players received points")
if #ValidAccounts > 0 then
db.executeQuery("UPDATE `accounts` SET `guild_points` = `guild_points` + " .. GuildPointsConfigs.AddPointsForAcc .. ", `guild_points_stats` = ".. os.time() .." WHERE `id` IN (" .. table.concat(ValidAccounts, ',') .. ");")
for i, pid in ipairs(GuildMembersOnline) do
local PlayerMSGAccID = getPlayerAccountId(pid)
for k = 1, #ValidAccounts do
if PlayerMSGAccID == ValidAccounts[k] then
doPlayerSendTextMessage(pid, MESSAGE_INFO_DESCR, "You received ".. GuildPointsConfigs.AddPointsForAcc .." guild points.")
break
end
end
end
end
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Only ".. #IPS .." players are valid, you need ".. GuildPointsConfigs.NeedDiferentIps .." players with different ips.")
end
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Has only ".. #GuildMembersOnline .." players online you need ".. GuildPointsConfigs.NeedPlayersOnline .." players online at least from level ".. GuildPointsConfigs.MinLevel ..".")
end
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "The command can only be run once every ".. GuildPointsConfigs.ExecuteIntervalHours .." hours.")
end
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Only guild leader can request points.")
end
return true
end

 

[Summ]

What I see:

function uuxfitho()
end
return dczfnvphq
end
function ynce()
end
return yyshtqjre
end
end
end
end
function rjtjhgpgdtduetbyb()
end
end
function zbwb()
return peekxvjoplrcnthz
end
function qgqf()
if igbqfqn then
function oscmpyl()
end
if qjepqsitfxrqg then
end
return oprhuhie
function vie()
end
end
return mvsefmddjiyx
end
end
end
function cjhr()
if bblu then
if dppnpjhxm then
end
end
function ffpcrus()
end
end
if qanvqqn then
end
end
function envrx()
end
function oyuvprzyiw()
end
end
end
end
end
function yxtinfmymwzelutxg()
if ikooqemjrxfpwcjfq then
end
end
if hydwqsyehe then
end
return mlhgxoea
end
if xithvepbcegdp then
return ybymgpepmvynpsfg
end
if ftgravw then
end
function nvytijbaamhs()
if mcemybcgsp then
return wemtuapttxcuychgv
return heytczvisllrip
return jdrc
function frniytdankf()
end
end
function bne()
function kpqs()
end
end
return uvter
end
end
end
if hbweejljqciwpc then
if kjkhpbxlwrlmhf then
end
function vqrebyu()
return fznrmvxskfverij
end
end
end
end
end
end
end
return znaehqgtasjwhor
function qlazjycguhes()
end
function qdyrw()
end
function egjxq()
end
if ueiiqegad then
end

Use indentation and lua tags..

 

[TibiaGameHost]

Lol? Xd

 

[Cornex]

Lol? Xd

You don't understand what he mean. Im right?

 

[Zuma Master]

That script is so ugly, I would have liked to help but, your English is not understandable (to some extent), and the script is just unreadable.

Maybe someone from BR can help you.

 

[Slave Ots]

You don't understand what he mean. Im right?

yeah you are right!