BanME Lua5

[TTB]

Hi,

v. 3.1 converted into LUA5 >> that will make it v. 4.1 (why, don't know)  :]


Here again the script for users who like to ban themselves...

-- -----------------------------------------------------------------------
-- BANME script by TTB
-- -----------------------------------------------------------------------
-- OPs get also notification by PM (if enabled)
-- v4.1  26-03-05
-- Also thanx to Piderman & Tejo
-- -----------------------------------------------------------------------
-- Converted into LUA 5
-- ------------------------------------------------------------------------
-- NOTE: If opNote = "2" your BOT (regmybot setting) won't be registered!!
-- ------------------------------------------------------------------------

-- ## Change this to what you like ## --

-->> Bot & Hubname
Bot = "[BOT]PLAY"		-- NAME of your BANME bot  >:)
hubname = "Dutch DVD hub"	-- NAME of your wonderful hub

-->> Your commands
Baninfocmd = "#banhelp"		-- info "how do I get banned?!"
Bancmd = "#banme"		-- your BANME command
Disconnectcmd = "#disconnect"	-- your disconnect command
Killcmd = "#killme"		-- your KILL command

-->> OP Notification
opNote = "2"			-- "0" no notification to OP's
				-- "1" notification to your defined Bot (1st setting)
				-- "2" notification to OP-Chat

-->> Time of your Timebans
minBan = 1			-- Default = 1 min. minimum Timeban. No quotes needed here
maxBan = 1440			-- 1440 min = 24 hours. No quotes needed here

-->> BE CAREFUL WITH THIS SETTING!
kill = "2"			-- "0" = disabled (default)
				-- "1" = enabled (user will be KILLED!!)
				-- "2" = disconnect the user (user will be shocked..)

-->> REG your bot if you don't use the name of a BOT that already exists!
regmybot = "0" 			-- REG your BANME bot? -> "1" (default) else "0"
				-- Please read the NOTE above!!!

-->> Now you are finished with the configuration :) 


-- ## Don't change below ## --

--> REGBOT <--
function Main()
 if (opNote ~= "2") then
  if (regmybot == "1") then
	frmHub:RegBot(Bot)
  end
 end
end

--> DATA <--
function ChatArrival(curUser, data)
   if (string.sub(data, 1, 1) == "<" ) then
    data=string.sub(data,1,string.len(data)-1)
    s,e,cmd = string.find(data,"%b<>%s+(%S+)")
    if (cmd == Baninfocmd) then
     if curUser.bOperator then
      curUser:SendData(Bot, Header..MainInfo..OPInfo)
     else
      curUser:SendData(Bot, Header..MainInfo)
     end
     return 1
    elseif (cmd == Disconnectcmd) then
     local s,e,reason= string.find(data,"%b<>%s+%S+%s+(.*)")
     DiscMe(curUser,reason,data)
     return 1
    elseif (cmd == Killcmd) then
     KillMe(curUser)
     return 1
    elseif (cmd == Bancmd) then
     local s,e,time= string.find(data,"%b<>%s+%S+%s+(%A+)")
      if time == nil then
       curUser:SendData(Bot, "Syntax error! Please use: "..Bancmd.."  to ban yourself! Min. timeban = "..minBan.." minute(s)! Max timeban = "..maxBan.." minutes! Be careful with this command. Please don't spam us by e-mail with your own mistakes. We won't unban you! You knew the risks...!")
      else
       TrigBan(curUser,time,data)
      end
    return 1
    end
   end
end

--> KILL/PERMBAN on NICK/IP! <--
function KillMe(curUser)
 if kill == "1" then
  curUser:SendPM(Bot, "YOU HAVE KILLED YOURSELF! Please don't spam us by e-mail with your own mistakes. We won't unban you! You knew the risks...!")
  curUser:Ban()
  SendToAll(Bot, "*** The user: "..curUser.sName.." has KILLED himself/herself! The stupid fucker doesn't know what he/she has done! ***")
  if (opNote == "1") then
   SendPmToOps(Bot, "*** The user "..curUser.sName.." has KILLED himself/herself! Let the fucker burn in hell! ***")
  elseif (opNote == "2") then
   SendPmToOps(frmHub:GetOpChatName(), "*** The user "..curUser.sName.." has KILLED himself/herself! Let the fucker burn in hell! ***")
  end
 elseif kill == "0" then
  if (opNote == "1") then
   SendPmToOps(Bot, "*** The user "..curUser.sName.." has requested to kill him! Have mercy with this poor fella... ***")
  elseif (opNote == "2") then
   SendPmToOps(frmHub:GetOpChatName(), "*** The user "..curUser.sName.." has requested to kill him! Have mercy with this poor fella... ***")
  end
 curUser:SendPM(Bot, "Your request has been send to all OPs!")
 elseif kill == "2" then
  if (opNote == "1") then
   SendPmToOps(Bot, "*** The user "..curUser.sName.." has requested to kill him! He/she is now disconnected, but please have mercy with this poor fella when he/she reconnects... ***")
  elseif (opNote == "2") then
   SendPmToOps(frmHub:GetOpChatName(), "*** The user "..curUser.sName.." has requested to kill him! He/she is now disconnected, but please have mercy with this poor fella when he/she reconnects... ***")
  end
 curUser:SendPM(Bot, "As you wish... You just KILLED yourself >:)")
 curUser:Disconnect()
 SendToAll(Bot, "*** The user: "..curUser.sName.." has KILLED himself/herself! The stupid fucker doesn't know what he/she has done! ***")
 end
end

--> DISCONNECT <--
function DiscMe(curUser,reason)
-- local s,e,reason= string.find(data,"%b<>%s+%S+%s+(.*)")
  if reason == nil then
   curUser:SendData(Bot, "*** As you wish... DISCONNECTED from "..hubname.." ***")
   curUser:Disconnect()
   SendToAll(Bot, "*** The user: "..curUser.sName.." has disconnected himself/herself for unknown reason... asshole! ***")
  else
   curUser:SendData(Bot, "*** As you wish... DISCONNECTED from "..hubname.." ***")
   curUser:Disconnect()
   SendToAll(Bot, "*** The user: "..curUser.sName.." has disconnected himself/herself with the reason: "..reason.." ***")
  end
end

--> TEMPBAN <--
function TrigBan(curUser,time)
 local time = tonumber(time)
       if (time >= maxBan) then 
        time = maxBan
       elseif (time <= minBan) then
        time = minBan
       end
   curUser:SendPM(Bot, "You have banned yourself for "..time.." minutes! Hope to see you back again :) Please don't spam us by e-mail with your own mistakes. We won't unban you! You knew the risks...!")
   SendToAll(Bot, "*** The user: "..curUser.sName.." has banned himself/herself for "..time.." minutes...! ***")
     if (opNote == "1") then
      SendPmToOps(Bot, "*** The user "..curUser.sName.." has banned himself/herself for "..time.." minutes! ***")
     elseif (opNote == "2") then
      SendPmToOps(frmHub:GetOpChatName(), "*** The user "..curUser.sName.." has banned himself/herself for "..time.." minutes! ***")
     end
  curUser:TimeBan(time)
 return 1
end

--> MENU <--
Header = ("\r\n\t\t\t\t\tBanME-script-by-TTB-v.4.1")
MainInfo = (
       "\r\n\t--<>--------------------------------------------------------------------------------------------------------------------------------------------------------<>--"..
       "\r\n\t\t\t [ BAN Help ]\t\t\t [ BAN Help ]\r\n\t"..
       "--<>--------------------------------------------------------------------------------------------------------------------------------------------------------<>--"..
       "\r\n\t\t "..Disconnectcmd.." \t\t=\tDisconnect yourself"..
       "\r\n\t\t "..Bancmd.."  \t\t\t=\tTimeban yourself in minutes"..
       "\r\n\t\t "..Killcmd.."\t\t\t\t=\tKill yourself  >:)"..
       "\r\n\t\t "..Baninfocmd.."\t\t\t=\tShows you this help\r\n\t"..
       "--<>--------------------------------------------------------------------------------------------------------------------------------------------------------<>--"..
       "\r\n\t > Min. TIMEBAN = "..minBan.." minute(s) / Max. TIMEBAN = "..maxBan.." minutes!"..
       "\r\n\t > No reason by DISCONNECT will give standard reason >:)"..
       "\r\n\t > Please don't spam us by e-mail with your own mistakes. We won't unban you! You knew the risks...!\r\n\t"..
       "--<>--------------------------------------------------------------------------------------------------------------------------------------------------------<>--")
OPInfo = ("\r\n\t"..
       " > Kill mode = "..kill.."    ----------> 0 = disabled (default) <-> 1 = enabled <-> 2 = disconnect mode\r\n\t"..
       "--<>--------------------------------------------------------------------------------------------------------------------------------------------------------<>--\r\n")