Can someone convert Cmd Report 1.0 for API II
 

News:

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

Can someone convert Cmd Report 1.0 for API II

Started by ThugLife, 08 February, 2008, 11:27:08

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

ThugLife

--[[
   CmdReport 1.0 LUA 5.1
   
   By Mutor                03/18/06
   Requested by Mikey
   
   Reports command usage to specified nicks
   Option to exclude certain nicks from check.

]]--

--Script Configuration
CsCfg = {
   Bot = "PtokaX",      -- Bot name
   Desc = "Command report",    -- Bot description
   Mail = "help@domain.com",   -- Bot email address
   ReportTo = {         -- Report to these
      ["Still_Ballin`"] = "main",      -- Nicks = Message type
      Sh0rTy = "main",
   },
   Exclude = {         -- Exclude these Nicks from check
      Mutor = 1,      -- Nick = 1,
      YourNick = 1,
   },
}

Main = function()
   frmHub:RegBot(CsCfg.Bot, 1, CsCfg.Desc, CsCfg.Mail)
   SendToAll(frmHub:GetPrefixes())
end

ChatArrival = function(user,data)
   if not CsCfg.Exclude[user.sName] then
      local msgtype = "Main chat"
      local s,e,to = string.find(data,"^$To:%s(%S+)%s+From:")
      local s,e, pre = string.find(data,"%b<>%s(%p)")
      local s,e,cmd = string.find(data,"%b<>%s%p(%S+)")
      local s,e,msg = string.find(data,"%b<>%s%p%w+%s(.+)|$")
      if not msg then msg = "" end
      if to then msgtype = "Private Message" end
      if pre and cmd then
         for i,v in pairs(frmHub:GetPrefixes()) do
                 if pre == v then
                         cmd = pre..cmd
               local reply = "The user "..user.sName.." sent the command "..
               "in "..msgtype.." -> "..cmd.." "..msg
               for i,v in pairs(CsCfg.ReportTo) do
                  local usr = GetItemByName(i)
                  if usr then
                     if v == "pm" then
                        usr:SendPM(CsCfg.Bot,reply)
                     else
                        usr:SendData(CsCfg.Bot,reply)
                     end
                  end
               end
               break
            end
         end
      end
   end
end
ToArrival = ChatArrival
Skype: galin93

Madman

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

SMF spam blocked by CleanTalk