PtokaX forum

Hey guys,

I'm after a script that will keep a record of who is regging users & how many. Some of my OPs av become lazy fuckers n want a script like Robocop's !tophubbers & !topkickers so that it will display how many people have regged new users. Also maybe an option so it'll display top reggers per week & per month.

Thanx in advance,
Quik.

Hi,

Yes it can be made, can you give us the syntax of your reg command ??

Best regards, nErBoS

It's jus !reguser or !regvip that we use. lol if that's any help watsoeva?

Hi,

OK, but what is the syntax ??

!reguser
!regvip

is it this one ??

Best regards, nErBoS

Yep sorry  :rolleyes:

Hi,

The script should be first in the Script List then the script that have the commands, to catch then first. Here you go...

--## Top Regger
--## Requested by QuikThinker
--## Made by nErBoS
--## Commands:
--## !topreg -- Show the TOP reggers of the HUB

sBot = "Top-Regger"

arrReg = {}
fReg = "topreg.dat"

--## Configuration ##--

uLaterPtokax = 0 -- Choose 0 if you are using a Ptokax version 0.3.3.0 or higher
-- Choose 1 if you are using a Ptokax version lower then 0.3.3.0

--## END ##--


function Main()
frmHub:RegBot(sBot)
LoadFromFile(fReg)
end

function OnExit()
SaveToFile(fReg , arrReg , "arrReg")
end

function DataArrival(user,data)
if (strsub(data,1,1) == "<" or strsub(data,1,5+strlen(sBot)) == "$To: "..sBot) then
data = strsub(data,1,strlen(data)-1)
s,e,cmd = strfind(data, "%b<>%s+(%S+)")
if (cmd == "!topreg" and user.bOperator) then
local sTmp,usr,num = "The TOP reggers of the HUB:\r\n\r\n"
for usr, num in arrReg do
sTmp = sTmp.."\tUser: "..usr.." Regged: "..num.."\r\n"
end
user:SendPM(sBot, sTmp)
return 1
elseif (user.bOperator and (cmd == "!reguser" or cmd == "!regvip")) then
local s,e,usr,pass = strfind(data, "%b<>%s+%S+%s+(%S+)%s+(%S+)")
if (usr ~= nil and pass ~= nil) then
if (arrReg[user.sName] == nil) then
arrReg[user.sName] = 1
else
arrReg[user.sName] = arrReg[user.sName] + 1
end
if (uLaterPtokax == 1) then
OnExit()
end
end
end
end
end

function Serialize(tTable, sTableName, sTab)
assert(tTable, "tTable equals nil");
assert(sTableName, "sTableName equals nil");

assert(type(tTable) == "table", "tTable must be a table!");
assert(type(sTableName) == "string", "sTableName must be a string!");

sTab = sTab or "";
sTmp = ""

sTmp = sTmp..sTab..sTableName.." = {\n"

for key, value in tTable do
local sKey = (type(key) == "string") and format("[%q]",key) or format("[%d]",key);

if(type(value) == "table") then
sTmp = sTmp..Serialize(value, sKey, sTab.."\t");
else
local sValue = (type(value) == "string") and format("%q",value) or tostring(value);
sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue
end

sTmp = sTmp..",\n"
end

sTmp = sTmp..sTab.."}"
return sTmp
end

function SaveToFile(file , table , tablename)
writeto(file)
write(Serialize(table, tablename))
writeto()
end

function LoadFromFile(file)
if (readfrom(file) ~= nil) then
readfrom(file)
dostring(read("*all"))
readfrom()
end
end
Best regards, nErBoS

I tested this Nerbos & all I get when I run the !topreg command is this:
[00:42:20] The TOP reggers of the HUB:



Any ideas?

Hi,

Have you register any one ??? With the right syntax ??Is the script first then your major script in the Script List ??

Best regards, nErBoS

lol yea we regged quite a few & I put it at the very top of the scriptlist. Still nuttin. It did create the .dat file but that was empty.

Hi,

Strange i have tried out and worked for me. Try to make him first in the list please. And i belive that this option "uLaterPtokax = 0" is acourd to yout ptokax version.

Best regards, nErBoS