ChatStat
 

News:

29 December 2022 - PtokaX 0.5.3.0 (20th anniversary edition) released...
11 April 2017 - PtokaX 0.5.2.2 released...
8 April 2015 Anti child and anti pedo pr0n scripts are not allowed anymore on this board!
28 September 2015 - PtokaX 0.5.2.1 for Windows 10 IoT released...
3 September 2015 - PtokaX 0.5.2.1 released...
16 August 2015 - PtokaX 0.5.2.0 released...
1 August 2015 - Crowdfunding for ADC protocol support in PtokaX ended. Clearly nobody want ADC support...
30 June 2015 - PtokaX 0.5.1.0 released...
30 April 2015 Crowdfunding for ADC protocol support in PtokaX
26 April 2015 New support hub!
20 February 2015 - PtokaX 0.5.0.3 released...
13 April 2014 - PtokaX 0.5.0.2 released...
23 March 2014 - PtokaX testing version 0.5.0.1 build 454 is available.
04 March 2014 - PtokaX.org sites were temporary down because of DDOS attacks and issues with hosting service provider.

Main Menu

ChatStat

Started by CaSaNoVa, 30 May, 2005, 05:15:03

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages1
User actions

CaSaNoVa

30 May, 2005, 05:15:03
-- ChatStats v3 Made By Optimus
-- Based on Tezlo chats
-- Added Send Commands By TiMeTrAVelleR
-- Madman fixed some in commands
-- Converted to lua5 by Madman with very little help by Jelf
-- with some help by ?

sBot = "????hÆ??Æ?????"      -- Name of Bot
SendComm = 1          -- Send UserCommands 1 = On  0 = Off
pMenu = "????hÆ??Æ?????"    -- Name of Menu

Chatstats = {}

Sortstats = 2   -- 1=words / 2=posts

ChatStatsFile = "chatstats.tbl"

EnableChatStats = {
   [0] = 1, -- Master
   [1] = 1, -- Operators
   [2] = 1, -- Vips
   [3] = 1, -- Regs
   [4] = 1, -- Moderators
   [5] = 1, -- NetFounders
   [-1] = 1, -- Users (UnRegged)
}

AllowedProfiles = {
[0] = 1,   -- Masters
[1] = 0,   -- Operators
[4] = 0,   -- Moderator
[5] = 0,   -- NetFounder
}

function Main()
   frmHub:RegBot(sBot)
   loadTableFromFile(ChatStatsFile)
end

function NewUserConnected(user)
   if SendComm == 1 and EnableChatStats[user.iProfile] == 1 then
      if Chatstats[user.sName] then
         user:SendData(sBot, "??? Le tue statistiche di Chat:  Hai scritto "..Chatstats[user.sName]["post"].." frasi in main usando "..Chatstats[user.sName]["chars"].."  parole,e "..Chatstats[user.sName]["words"].." lettere ???")
      end
      user:SendData("$UserCommand 1 3 "..sMenu.."\\????hÆ??Æ?????\\TopChatters$<%[mynick]> !topchatters||")
      user:SendData("$UserCommand 1 3 "..sMenu.."\\????hÆ??Æ?????\\My Chat Stat$<%[mynick]> !mychatstat||")
      if AllowedProfiles[user.iProfile] == 1 then
         user:SendData("$UserCommand 1 3 "..sMenu.."\\????hÆ??Æ?????\\Del Chatter$<%[mynick]> !delchatter %[line:Nick]||")
         user:SendData("$UserCommand 1 3 "..sMenu.."\\????hÆ??Æ?????\\Clear Chat Stats$<%[mynick]> !clearchatstats||")
      end
   end
end

OpConnected = NewUserConnected

function OnExit()
   saveTableToFile(ChatStatsFile, Chatstats, "Chatstats")
end

function ChatArrival(user, data)
   if (string.sub(data, 1, 1) == "<" ) then
      if EnableChatStats[user.iProfile] == 1 then
         local s,e,str = string.find(data, "^%b<> (.*)%|$")
         updStats(user.sName, str)
      end
      data=string.sub(data,1,string.len(data)-1)
      s,e,cmd=string.find(data, "%b<>%s+(%S+)")
      if (cmd == "!mychatstat") then
         if Chatstats[user.sName] then
            user:SendData(sBot, "??? Le tue statistiche di Chat:  Hai scritto "..Chatstats[user.sName]["post"].." frasi in main usando "..Chatstats[user.sName]["chars"].."  parole,e "..Chatstats[user.sName]["words"].." lettere ???")
            return 1
         else
            user:SendData(sBot, "*** No chat statics found!")
            return 1
         end
      elseif (cmd=="!topchatters") then
         TCopy={}
         if Chatstats then
            for i,v in Chatstats do
               table.insert(TCopy,{i,v.post,v.chars,v.words})
            end
            table.sort(TCopy,function(a,b) return (a[Sortstats] > b[Sortstats]) end)
            local chat = "Current Top Chatters:\r\n\r\n"
            chat = chat.."\t ------------------------------------------------------------------------\r\n"
            chat = chat.."\t Nr.\tPosts:\tChars:\tWords:\tName:\r\n"
            chat = chat.."\t ------------------------------------------------------------------------\r\n"
            for i = 1,25 do
               if TCopy then
--                                 Nr:         Posts:            Chars:            Words:            Name:
                  chat = chat.."\t "..i..".\t "..TCopy[2].."\t "..TCopy[3].."\t "..TCopy[4].."\t"..TCopy[1].."\r\n"
               end
            end
            user:SendData(sBot, chat)
            TCopy={}
         end
         return 1
      elseif (cmd == "!delchatter") and AllowedProfiles[user.iProfile] == 1 then
         local s,e,cmd,name = string.find( data, "%b<>%s+(%S+)%s+(%S+)" )
         if name then
            if Chatstats[name] then
               Chatstats[name] = nil
               user:SendData(sBot, "Chatstats from user "..name.." are now removed!")
               saveTableToFile(ChatStatsFile, Chatstats, "Chatstats")
            else
               user:SendData(sBot, "*** Chatstats from user "..name.." not found!")
            end
         else
            user:SendData(sBot, "*** Usage: !delchatter ")
         end
         return 1
      elseif (cmd == "!clearchatstats") and AllowedProfiles[user.iProfile] == 1 then
         Chatstats = {}
         saveTableToFile(ChatStatsFile, Chatstats, "Chatstats")
         user:SendData(sBot, "Chatstats are cleared by "..user.sName)
         return 1
      end
   end
end

function updStats(nick, str)
   local tmp = Chatstats[nick] or {["post"]=0, ["chars"]=0, ["words"]=0, ["time"]=os.date("%x")}
   tmp["post"], tmp["chars"], tmp["words"], tmp["time"] = tmp["post"]+1, tmp["chars"]+string.len(str), tmp["words"]+cntargs(str,"(%a+)"), os.date("%x")
   Chatstats[nick] = tmp
--   saveTableToFile(ChatStatsFile, Chatstats, "Chatstats")
end

function cntargs(str, rule)
   local s,n = string.gsub(str, rule, "")
   return n
end

----------------------------------------------
-- load & save Tables
----------------------------------------------
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 string.format("[%q]",key) or string.format("[%d]",key);

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

                sTmp = sTmp..",\n"
        end

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

-----------------------------------------------------------
function saveTableToFile(file, table, tablename)
   local handle = io.open(file,"w+")
   handle:write(Serialize(table, tablename))
   handle:flush()
   handle:close()
end
-----------------------------------------------------------
function loadTableFromFile(file)
   local handle = io.open(file,"r")
   if (handle ~= nil) then
      loadstring(handle:read("*all"))
      handle:flush()
      handle:close()
   end
end


>>

      user:SendData("$UserCommand 1 3 "..pMenu.."\\Del Chatter$<%[mynick]> !delchatter %[line:Nick]||")
      user:SendData("$UserCommand 1 3 "..pMenu.."\\Clear Chat Stats$<%[mynick]> !clearchatstats||")


This two command don't work e don't appear on right click...  ?(

jiten

#1
30 May, 2005, 07:54:34
Change this function:
function NewUserConnected(user) 
	if SendComm == 1 and EnableChatStats[user.iProfile] == 1 then 
		if Chatstats[user.sName] then 
			user:SendData(sBot, "??? Le tue statistiche di Chat: Hai scritto "..Chatstats[user.sName]["post"].." frasi in main usando "..Chatstats[user.sName]["chars"].." parole,e "..Chatstats[user.sName]["words"].." lettere ???") 
		end 
		user:SendData("$UserCommand 1 3 "..sMenu.."\\????hÆ??Æ?????\\TopChatters$<%[mynick]> !topchatters||") 
		user:SendData("$UserCommand 1 3 "..sMenu.."\\????hÆ??Æ?????\\My Chat Stat$<%[mynick]> !mychatstat||") 
		if AllowedProfiles[user.iProfile] == 1 then 
			user:SendData("$UserCommand 1 3 "..sMenu.."\\????hÆ??Æ?????\\Del Chatter$<%[mynick]> !delchatter %[line:Nick]||") 
			user:SendData("$UserCommand 1 3 "..sMenu.."\\????hÆ??Æ?????\\Clear Chat Stats$<%[mynick]> !clearchatstats||") 
		end 
	end 
end
to:
function NewUserConnected(user) 
	if SendComm == 1 and EnableChatStats[user.iProfile] == 1 then 
		if Chatstats[user.sName] then 
			user:SendData(sBot, "??? Le tue statistiche di Chat: Hai scritto "..Chatstats[user.sName]["post"].." frasi in main usando "..Chatstats[user.sName]["chars"].." parole,e "..Chatstats[user.sName]["words"].." lettere ???") 
		end 
		user:SendData("$UserCommand 1 3 "..pMenu.."\\TopChatters$<%[mynick]> !topchatters||") 
		user:SendData("$UserCommand 1 3 "..pMenu.."\\My Chat Stat$<%[mynick]> !mychatstat||") 
		if AllowedProfiles[user.iProfile] == 1 then 
			user:SendData("$UserCommand 1 3 "..pMenu.."\\Del Chatter$<%[mynick]> !delchatter %[line:Nick]||") 
			user:SendData("$UserCommand 1 3 "..pMenu.."\\Clear Chat Stats$<%[mynick]> !clearchatstats||") 
		end 
	end 
end
Best regards

CaSaNoVa

Ups
#2
30 May, 2005, 12:21:10
Don't go...

Dessamator

#3
30 May, 2005, 12:28:16 Last Edit: 30 May, 2005, 12:34:33 by Dessamator
are u sure u are using the right profile? i just tested it its working perfectly!
Ignorance is Bliss.

CaSaNoVa

Uhm
#4
30 May, 2005, 12:41:24
I'm NetFounder... do you is this the problem?And if it is,how change profile to netfounder??

Dessamator

#5
30 May, 2005, 13:16:54
change this :
AllowedProfiles = { 
[0] = 1, -- Masters 
[1] = 0, -- Operators 
[4] = 0, -- Moderator 
[5] = 0, -- NetFounder 
}


to this :
AllowedProfiles = { 
[0] = 1, -- Masters 
[1] = 0, -- Operators 
[4] = 0, -- Moderator 
[5] = 1, -- NetFounder 
}
Ignorance is Bliss.

CaSaNoVa

#6
30 May, 2005, 16:45:46
Tkx now work ! ^_^

Dessamator

#7
30 May, 2005, 17:08:05
QuoteOriginally posted by CaSaNoVa
Tkx now work ! ^_^

ur welcome !
Ignorance is Bliss.

Re@SoN

#8
19 June, 2005, 18:27:49
hi!
i use that same script in my hub (that already have to rightclick menus:1 from radioscript and other from zrightclicker of robocop)...the comands work's fine.
the only probl. is that the rightclick menu don't apeear like the other to...

anyone know why???

here's my config.

-- ChatStats v3 Made By Optimus 

-- Based on Tezlo chats 

-- Added Send Commands By TiMeTrAVelleR 

-- Madman fixed some in commands 

-- Converted to lua5 by Madman with very little help by Jelf 

-- with some help by ? 

-- fixed stats saving on exit by jiten 

---- Modded by Madman 

-- Added so it's creates ChatStatsFile, if it's missing 

-- Fixed so it dont counts commands 

-- Added a IgnoreTable, users in that wont be counted 

---- 



sBot = "?M?X-???????"      -- Name of Bot 

SendComm = 1          -- Send UserCommands 1 = On  0 = Off 

pMenu = "? ? ?????? - M ? ? ? ? ?"    -- Name of Menu 

ChatStatsTo = "user" -- Send TopChatters to? user or all 



Chatstats = {} 



Sortstats = 2   -- 1=words / 2=posts 



ChatStatsFile = "chatstats.tbl" 



IgnoreTable = { 

-- 0=dont ignore/1=ignore 

   ["Re@SoN"] = 0,  
   ["aCiD_LoOp"] = 0,  

} 



EnableChatStats = { 

   [0] = 1, -- Master 

   [1] = 1, -- Operators 

   [2] = 1, -- Vips 

   [3] = 1, -- Regs 

   [4] = 1, -- Moderators 

   [5] = 1, -- NetFounders 

   [-1] = 1, -- Users (UnRegged) 

} 



AllowedProfiles = { 

   [0] = 0,   -- Masters 

   [1] = 1,   -- Operators 

   [4] = 0,   -- Moderator 

   [5] = 1,   -- NetFounder 

} 



function Main() 

   frmHub:RegBot(sBot) 

   local file = io.open(ChatStatsFile, "r") 

   if file then 

      file:close() 

   else 

      local file = io.open(ChatStatsFile, "w+") 

      file:write() 

      file:close() 

   end 

   dofile(ChatStatsFile) 

end 



function NewUserConnected(user) 

   if SendComm == 1 and EnableChatStats[user.iProfile] == 1 then 

      if Chatstats[user.sName] then 

         user:SendData(sBot, "---===[ Your Chat Stats:  You Made "..Chatstats[user.sName]["post"].." Posts In Main Used "..Chatstats[user.sName]["chars"].."  Characters, And "..Chatstats[user.sName]["words"].." Words ]===---") 

      end 

      user:SendData("$UserCommand 1 3 "..pMenu.."\\TopChatters$<%[mynick]> !topchatters||") 

      user:SendData("$UserCommand 1 3 "..pMenu.."\\My Chat Stat$<%[mynick]> !mychatstat||") 

      if AllowedProfiles[user.iProfile] == 1 then 

         user:SendData("$UserCommand 1 3 "..pMenu.."\\Del Chatter$<%[mynick]> !delchatter %[line:Nick]||") 

         user:SendData("$UserCommand 1 3 "..pMenu.."\\Clear Chat Stats$<%[mynick]> !clearchatstats||") 

      end 

   end 

end 



OpConnected = NewUserConnected 



function OnExit() 

   if isEmpty(Chatstats) then 

   else 

      saveTableToFile(ChatStatsFile, Chatstats, "Chatstats") 

   end 

end 



function IsCmd(str) 

   return string.sub(str, 1, 1) == "!" or string.sub(str, 1, 1) == "?" or string.sub(str, 1, 1) == "+" or string.sub(str, 1, 1) == "#" 

end 



function ChatArrival(user, data) 

   if EnableChatStats[user.iProfile] == 1 then 

      local s,e,cmd = string.find(data,"%b<>%s+(%S+)") 

      if IsCmd(cmd) then 

      elseif IgnoreTable[user.sName] == 1 then 

      else 

         local s,e,str = string.find(data, "^%b<> (.*)%|$") 

         updStats(user.sName, str) 

      end 

   end 

   data=string.sub(data,1,string.len(data)-1) 

   s,e,cmd=string.find(data, "%b<>%s+(%S+)") 

   if (cmd == "!mychatstat") then 

      if Chatstats[user.sName] then 

         user:SendData(sBot, "---===[ Your Chat Stats:  You Made "..Chatstats[user.sName]["post"].." Posts In Main Used "..Chatstats[user.sName]["chars"].."  Characters, And "..Chatstats[user.sName]["words"].." Words ]===---") 

         return 1 

      else 

         user:SendData(sBot, "*** No chat statics found!") 

         return 1 

      end 

   elseif (cmd=="!topchatters") then 

      TCopy={} 

      if Chatstats then 

         for i,v in Chatstats do 

            table.insert(TCopy,{i,v.post,v.chars,v.words}) 

         end 

         table.sort(TCopy,function(a,b) return (a[Sortstats] > b[Sortstats]) end) 

         local chat = "Current Top Chatters:\r\n\r\n" 

         chat = chat.."\t ------------------------------------------------------------------------\r\n" 

         chat = chat.."\t Nr.\tPosts:\tChars:\tWords:\tName:\r\n" 

         chat = chat.."\t ------------------------------------------------------------------------\r\n" 

         for i = 1,25 do 

            if TCopy[i] then 

--                              Nr:         Posts:            Chars:            Words:            Name: 

               chat = chat.."\t "..i..".\t "..TCopy[i][2].."\t "..TCopy[i][3].."\t "..TCopy[i][4].."\t"..TCopy[i][1].."\r\n" 

            end 

         end 

         if ChatStatsTo == "user" then 

            user:SendData(sBot, chat) 

         elseif ChatStatsTo == "all" then 

            SendToAll(sBot, chat) 

         end 

         TCopy={} 

      end 

      return 1 

   elseif (cmd == "!delchatter") and AllowedProfiles[user.iProfile] == 1 then 

      local s,e,cmd,name = string.find( data, "%b<>%s+(%S+)%s+(%S+)" ) 

      if name then 

         if Chatstats[name] then 

            Chatstats[name] = nil 

            user:SendData(sBot, "Chatstats from user "..name.." are now removed!") 

            saveTableToFile(ChatStatsFile, Chatstats, "Chatstats") 

         else 

            user:SendData(sBot, "*** Chatstats from user "..name.." not found!") 

         end 

      else 

         user:SendData(sBot, "*** Usage: !delchatter ") 

      end 

      return 1 

   elseif (cmd == "!clearchatstats") and AllowedProfiles[user.iProfile] == 1 then 

      Chatstats = {} 

      saveTableToFile(ChatStatsFile, Chatstats, "Chatstats") 

      user:SendData(sBot, "Chatstats are cleared by "..user.sName) 

      return 1 

   end 

end 



function updStats(nick, str) 

   local tmp = Chatstats[nick] or {["post"]=0, ["chars"]=0, ["words"]=0, ["time"]=os.date("%x")} 

   tmp["post"], tmp["chars"], tmp["words"], tmp["time"] = tmp["post"]+1, tmp["chars"]+string.len(str), tmp["words"]+cntargs(str,"(%a+)"), os.date("%x") 

   Chatstats[nick] = tmp 

   saveTableToFile(ChatStatsFile, Chatstats, "Chatstats") 

end 



function cntargs(str, rule) 

   local s,n = string.gsub(str, rule, "") 

   return n 

end 



---------------------------------------------- 

-- load & save Tables 

---------------------------------------------- 

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 string.format("[%q]",key) or string.format("[%d]",key); 



      if(type(value) == "table") then 

         sTmp = sTmp..Serialize(value, sKey, sTab.."\t"); 

      else 

         local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value); 

         sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue 

      end 



      sTmp = sTmp..",\n" 

   end 



   sTmp = sTmp..sTab.."}" 

   return sTmp 

end 



----------------------------------------------------------- 

function saveTableToFile(file, table, tablename) 

   local handle = io.open(file,"w+") 

   handle:write(Serialize(table, tablename)) 

   handle:flush() 

   handle:close() 

end 

----------------------------------------------------------- 

function loadTableFromFile(file) 

   local handle = io.open(file,"r") 

   if (handle ~= nil) then 

      loadstring(handle:read("*all")) 

      handle:flush() 

      handle:close() 

   end 

end 



-------------table checker by herodes 

--- for an associative table, like ["smth"] = "smth else", 

function isEmpty(t) 

   for i,v in t do 

      return false; 

   end 

   return true; 

end;



best regards,
Re@SoN

jiten

#9
19 June, 2005, 18:39:35
QuoteOriginally posted by Re@SoN
hi!
i use that same script in my hub (that already have to rightclick menus:1 from radioscript and other from zrightclicker of robocop)...the comands work's fine.
the only probl. is that the rightclick menu don't apeear like the other to...
Have you checked this table? If the right value is "0", then, the Operator commands aren't sent to that profile. If not, they are. So, have a closer look at it. 
AllowedProfiles = { 

   [0] = 0,   -- Masters 

   [1] = 1,   -- Operators 

   [4] = 0,   -- Moderator 

   [5] = 1,   -- NetFounder 

}
Cheers

Dessamator

#10
19 June, 2005, 18:44:32
compare this :
user:SendData("$UserCommand 1 3 "..pMenu.."\\TopChatters$<%[mynick]> !topchatters||")


to this : 
user:SendData("$UserCommand 1 3 "..sMenu.."\\?•??h?†?†?†?™?•?\\TopChatters$<%[mynick]> !topchatters|")


thats the error, ur missing the "escape"(|) and u have an extra end pipe --> |
Ignorance is Bliss.

Re@SoN

#11
19 June, 2005, 18:53:31
know works!
tks jiten  for the help, once again  :)


[[]]
Re@SoN

jiten

#12
19 June, 2005, 19:01:35
QuoteOriginally posted by Re@SoN
know works!
Not really. My hint was incomplete as I didn't see that endpipe repetition and the missing escape that Dessamator mentioned. So, without changing that, it won't work ;)

Cheers

Re@SoN

#13
19 June, 2005, 19:08:16
Dessamator i changed that line and the script don't work...give me a sintax error at line 130.
if i don't change, works :)

best regards,
Re@SoN

Dessamator

#14
19 June, 2005, 19:14:47
hm, it should work try this

user:SendData("$UserCommand 1 3 "..sMenu.."\\TopChatters$<%[mynick]> !topchatters|")


if it still doesnt work post that line with the error .
Ignorance is Bliss.

Re@SoN

#15
19 June, 2005, 19:26:12
with that line give me this error:

scripts\ChatStats.lua:130: attempt to concatenate global `sMenu' (a nil value)


i'm changing this:
  end 

      user:SendData("$UserCommand 1 3 "..pMenu.."\\TopChatters$<%[mynick]> !topchatters||") 

      user:SendData("$UserCommand 1 3 "..pMenu.."\\My Chat Stat$<%[mynick]> !mychatstat||") 

      if AllowedProfiles[user.iProfile] == 1 then 

         user:SendData("$UserCommand 1 3 "..pMenu.."\\Del Chatter$<%[mynick]> !delchatter %[line:Nick]||") 

         user:SendData("$UserCommand 1 3 "..pMenu.."\\Clear Chat Stats$<%[mynick]> !clearchatstats||") 

      end  



to this:

     end 

      user:SendData("$UserCommand 1 3 "..sMenu.."\\TopChatters$<%[mynick]> !topchatters|") 

      user:SendData("$UserCommand 1 3 "..pMenu.."\\My Chat Stat$<%[mynick]> !mychatstat||") 

      if AllowedProfiles[user.iProfile] == 1 then 

         user:SendData("$UserCommand 1 3 "..pMenu.."\\Del Chatter$<%[mynick]> !delchatter %[line:Nick]||") 

         user:SendData("$UserCommand 1 3 "..pMenu.."\\Clear Chat Stats$<%[mynick]> !clearchatstats||") 

      end

jiten

#16
19 June, 2005, 20:24:25
Try this:
user:SendData("$UserCommand 1 3 "..pMenu.."\\TopChatters$<%[mynick]> !topchatters|")
user:SendData("$UserCommand 1 3 "..pMenu.."\\My Chat Stat$<%[mynick]> !mychatstat|") 
if AllowedProfiles[user.iProfile] == 1 then 
	user:SendData("$UserCommand 1 3 "..pMenu.."\\Del Chatter$<%[mynick]> !delchatter %[line:Nick]|")
	user:SendData("$UserCommand 1 3 "..pMenu.."\\Clear Chat Stats$<%[mynick]> !clearchatstats|")
end
Best regards

Re@SoN

#17
19 June, 2005, 20:52:20
nop.
the only way that make menu apeear on rightclick is this:

     user:SendData("$UserCommand 1 3 "..pMenu.."\\TopChatters$<%[mynick]> !topchatters||") 

      user:SendData("$UserCommand 1 3 "..pMenu.."\\My Chat Stat$<%[mynick]> !mychatstat||") 

      if AllowedProfiles[user.iProfile] == 1 then 

         user:SendData("$UserCommand 1 3 "..pMenu.."\\Del Chatter$<%[mynick]> !delchatter %[line:Nick]||") 

         user:SendData("$UserCommand 1 3 "..pMenu.."\\Clear Chat Stats$<%[mynick]> !clearchatstats||") 

      end

the name of script apears in user list, rightclick also apears, but the comands don't respond...simply nothing apeans...and that's is the probl.


best regards,
Re@SoN

Madman

#18
19 June, 2005, 22:40:26 
function NewUserConnected(user)
	if SendComm == 1 and EnableChatStats[user.iProfile] == 1 then
		if Chatstats[user.sName] then
			user:SendData(sBot, "---===[ Your Chat Stats:  You Made "..Chatstats[user.sName]["post"].." Posts In Main Used "..Chatstats[user.sName]["chars"].."  Characters, And "..Chatstats[user.sName]["words"].." Words ]===---")
		end
		user:SendData("$UserCommand 1 3 "..pMenu.."\\TopChatters$<%[mynick]> !topchatters|")
		user:SendData("$UserCommand 1 3 "..pMenu.."\\My Chat Stat$<%[mynick]> !mychatstat|")
		if AllowedProfiles[user.iProfile] == 1 then
			user:SendData("$UserCommand 1 3 "..pMenu.."\\Del Chatter$<%[mynick]> !delchatter %[line:Nick]|")
			user:SendData("$UserCommand 1 3 "..pMenu.."\\Clear Chat Stats$<%[mynick]> !clearchatstats|")
		end
	end
end

This works for me....
We suffer in silence, we lurk in the shadows, we kill in the night
Site currently down, ETA of returning online is 2099 ;p

jiten

#19
20 June, 2005, 09:29:40
QuoteOriginally posted by Re@SoN
nop.
the name of script apears in user list, rightclick also apears, but the comands don't respond...simply nothing apeans...and that's is the probl.
Maybe you've done something wrong there as yesterday it was working fine for me.

Regards

Re@SoN

#20
20 June, 2005, 20:07:38
know works! :)

the error was a space that i have in 1 line...lol
and haven't notice
tks guys for all the help...

respectfully,
Re@SoN

Mihalich666

#21
08 September, 2005, 16:15:51
I too searched for this script:))) All many thanks. Here where it is possible to find the present help)
 :D

CaSaNoVa

#22
13 September, 2005, 18:13:37
-- ChatStats v3 Made By Optimus
-- Based on Tezlo chats
-- Added Send Commands By TiMeTrAVelleR
-- Madman fixed some in commands
-- Converted to lua5 by Madman with very little help by Jelf
-- with some help by ?
-- fixed stats saving on exit by jiten
-- Added TopChatters list sending every 30 minutes

sBot = "???????hÆ??Æ???????"      -- Name of Bot
SendComm = 1          -- Send UserCommands 1 = On  0 = Off
pMenu = "???????hÆ??Æ???????"    -- Name of Menu

Chatstats = {}

Sortstats = 2   -- 1=words / 2=posts

ChatStatsFile = "chatstats.tbl"

EnableChatStats = {
   [0] = 1, -- Master
   [1] = 1, -- Operators
   [2] = 1, -- Vips
   [3] = 1, -- Regs
   [4] = 1, -- Moderators
   [5] = 1, -- NetFounders
   [-1] = 1, -- Users (UnRegged)
}

AllowedProfiles = {
[0] = 1,   -- Masters
[1] = 0,   -- Operators
[4] = 0,   -- Moderator
[5] = 0,   -- NetFounder
}

function Main()
   frmHub:RegBot(sBot)
   dofile(ChatStatsFile)
   SetTimer(60*60000)
   StartTimer()
end

function NewUserConnected(user)
   if SendComm == 1 and EnableChatStats[user.iProfile] == 1 then
      if Chatstats[user.sName] then
         user:SendData(sBot, "??? Le tue statistiche di Chat:  Hai scritto "..Chatstats[user.sName]["post"].." frasi in main usando "..Chatstats[user.sName]["chars"].."  parole,e "..Chatstats[user.sName]["words"].." lettere ???")
      end
      user:SendData("$UserCommand 1 3 "..pMenu.."\\TopChatters$<%[mynick]> !topchatters||")
      user:SendData("$UserCommand 1 3 "..pMenu.."\\My Chat Stat$<%[mynick]> !mychatstat||")
      if AllowedProfiles[user.iProfile] == 1 then
         user:SendData("$UserCommand 1 3 "..pMenu.."\\Del Chatter$<%[mynick]> !delchatter %[line:Nick]||")
         user:SendData("$UserCommand 1 3 "..pMenu.."\\Clear Chat Stats$<%[mynick]> !clearchatstats||")
      end
   end
end

OpConnected = NewUserConnected

function OnExit()
   if isEmpty(Chatstats) then
   else
      saveTableToFile(ChatStatsFile, Chatstats, "Chatstats")
   end
end

function ChatArrival(user, data)
   if (string.sub(data, 1, 1) == "<" ) then
      if EnableChatStats[user.iProfile] == 1 then
         local s,e,str = string.find(data, "^%b<> (.*)%|$")
         updStats(user.sName, str)
      end
      data=string.sub(data,1,string.len(data)-1)
      s,e,cmd=string.find(data, "%b<>%s+(%S+)")
      if (cmd == "!mychatstat") then
         if Chatstats[user.sName] then
            user:SendData(sBot, "??? Le tue statistiche di Chat:  Hai scritto "..Chatstats[user.sName]["post"].." frasi in main usando "..Chatstats[user.sName]["chars"].."  parole,e "..Chatstats[user.sName]["words"].." lettere ???")
            return 1
         else
            user:SendData(sBot, "*** No chat statics found!")
            return 1
         end
      elseif (cmd=="!topchatters") then
         TCopy={}
         if Chatstats then
            for i,v in Chatstats do
               table.insert(TCopy,{i,v.post,v.chars,v.words})
            end
            table.sort(TCopy,function(a,b) return (a[Sortstats] > b[Sortstats]) end)
            local chat = "Current Top Chatters:\r\n\r\n"
            chat = chat.."\t ??????????????????????????????????????????????????????\r\n"
            chat = chat.."\t Nr.\tPosts:\tChars:\tWords:\tName:\r\n"
            chat = chat.."\t ??????????????????????????????????????????????????????\r\n"
            for i = 1,25 do
               if TCopy then
--                                 Nr:         Posts:            Chars:            Words:            Name:
                  chat = chat.."\t "..i..".\t "..TCopy[2].."\t "..TCopy[3].."\t "..TCopy[4].."\t"..TCopy[1].."\r\n"
               end
            end
            user:SendData(sBot, chat)
            TCopy={}
         end
         return 1
      elseif (cmd == "!delchatter") and AllowedProfiles[user.iProfile] == 1 then
         local s,e,cmd,name = string.find( data, "%b<>%s+(%S+)%s+(%S+)" )
         if name then
            if Chatstats[name] then
               Chatstats[name] = nil
               user:SendData(sBot, "Chatstats from user "..name.." are now removed!")
               saveTableToFile(ChatStatsFile, Chatstats, "Chatstats")
            else
               user:SendData(sBot, "*** Chatstats from user "..name.." not found!")
            end
         else
            user:SendData(sBot, "*** Usage: !delchatter ")
         end
         return 1
      elseif (cmd == "!clearchatstats") and AllowedProfiles[user.iProfile] == 1 then
         Chatstats = {}
         saveTableToFile(ChatStatsFile, Chatstats, "Chatstats")
         user:SendData(sBot, "Chatstats are cleared by "..user.sName)
         return 1
      end
   end
end

function updStats(nick, str)
   local tmp = Chatstats[nick] or {["post"]=0, ["chars"]=0, ["words"]=0, ["time"]=os.date("%x")}
   tmp["post"], tmp["chars"], tmp["words"], tmp["time"] = tmp["post"]+1, tmp["chars"]+string.len(str), tmp["words"]+cntargs(str,"(%a+)"), os.date("%x")
   Chatstats[nick] = tmp
--   saveTableToFile(ChatStatsFile, Chatstats, "Chatstats")
end

function cntargs(str, rule)
   local s,n = string.gsub(str, rule, "")
   return n
end

----------------------------------------------
-- load & save Tables
----------------------------------------------
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 string.format("[%q]",key) or string.format("[%d]",key);

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

                sTmp = sTmp..",\n"
        end

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

-----------------------------------------------------------
function saveTableToFile(file, table, tablename)
   local handle = io.open(file,"w+")
   handle:write(Serialize(table, tablename))
   handle:flush()
   handle:close()
end
-----------------------------------------------------------
function loadTableFromFile(file)
   local handle = io.open(file,"r")
   if (handle ~= nil) then
      loadstring(handle:read("*all"))
      handle:flush()
      handle:close()
   end
end

-------------table checker by herodes
--- for an associative table, like ["smth"] = "smth else",
function isEmpty(t)
   for i,v in t do
      return false;
   end
   return true;
end;

function OnTimer()
   TCopy={}
   if Chatstats then
      for i,v in Chatstats do
         table.insert(TCopy,{i,v.post,v.chars,v.words})
      end
      table.sort(TCopy,function(a,b) return (a[Sortstats] > b[Sortstats]) end)
      local chat = "Current Top Chatters:\r\n\r\n"
      chat = chat.."\t ??????????????????????????????????????????????????????\r\n"
      chat = chat.."\t Nr.\tPosts:\tChars:\tWords:\tName:\r\n"
      chat = chat.."\t ??????????????????????????????????????????????????????\r\n"
      for i = 1,25 do
         if TCopy then
            chat = chat.."\t "..i..".\t "..TCopy[2].."\t "..TCopy[3].."\t "..TCopy[4].."\t"..TCopy[1].."\r\n"
         end
      end
      SendToAll(sBot, chat)
      TCopy={}
   end
end
Print
Go Up Pages1
User actions
SMF spam blocked by CleanTalk