function getOnlineGuildMembers(cid) -- by Xafterin
local t = {}
local p = getPlayersOnline()
local g = getPlayerGuildId(cid)
for _, ps in ipairs(p) do
local gs = getPlayerGuildId(ps)
if(g == gs) then
table.insert(t, ps)
end
end
return t
end
function getStringVocationCount(cid, tab)
for i = 0, 8 do
local v = getPlayerVocation(cid)
if(v == i) then
local var = tab[cid][v]
var = var + 1
local vocVar = getPlayerVocationName(cid)
local str = str .. var .. " " .. vocVar .. " " .. (var > 1 and "s." or ".")
end
end
return str
end
local vocCount = {}
local text = "There"
function onSay(cid, words, param, channel)
if(words == "!partycheck") then
local pmem = getPartyMembers(getPartyLeader(cid))
if(pmem) then
for _, pyd in ipairs(pmem) do
text = text .. " is only one person, you!!!"
if(#pmem > 1) then
text = text .. " are on party " .. getStringVocationCount(pyd, vocCount)
return true
end
end
else
text = "You are not in any party."
end
elseif(words == "!guildcheck") then
local gmem = getOnlineGuildMembers(cid)
if(gmem) then
local noneCount = 0
local g = {name = getPlayerGuildName(cid)}
text = "[".. g.name .."] There are ".. #gmem .." players playing. "
for _, gid in ipairs(gmem) do
noneCount = noneCount + 1
if(#gmem == 1) then
text = "You are alone in this guild."
else
text = text .. getPlayerName(gid) .. (noneCount == #gmem and "." or ", ")
end
end
end
end
doPlayerSendTextMessage(cid, 22, text)
local relocate = {text, noneCount, vocCount}
for i = 1, #relocate do
relocate[i] = nil
end
return 0
end
