Mute :)

[kepp]

Idea from "Y-HUB Crap" :)

-- Mute Script v0.1
-- By Kepp
-- 04/02/18

sBot = "[MUTER]"

MUTE = {}

function DataArrival(user, data)
   if (strsub(data,1,1) == "<") then
   data=strsub(data,1,strlen(data)-1)
   s,e,cmd = strfind(data,"%b<>%s+(%S+)")
      if ((cmd=="+mute")) and user.bOperator then
         DoMute(user, data) return 1
         
      elseif ((cmd=="+unmute")) and user.bOperator then
         DoUnMute(user, data) return 1
      end
      if strsub(data,1,1) == "<" then
         if MUTE[user.sName] == 1 then return 1
         end
      end
   end
end

function DoMute(user, data)
local s,e,cmd,vic = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
local victim = GetItemByName(vic)
   if victim == nil then
      user:SendData(sBot,"User is not in the hub...")
   else
      if MUTE[victim.sName] == nil then
         MUTE[victim.sName] = 1
         SendToAll(sBot,"Tell me "..victim.sName..", How good is a phonecall if you're unable to speak? ;)")
      end
   end
end

function DoUnMute(user, data)
local s,e,cmd,vic = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
local victim = GetItemByName(vic)
   if victim == nil then
      user:SendData(sBot,"User is not in the hub...")
   else
      if MUTE[victim.sName] == 1 then
         MUTE[victim.sName] = nil;
         SendToAll(sBot, victim.sName.." Was umuted ;) ")
      end
   end
end

[Skrollster]

What about !gag ??

[DorianG]

What differences there are with the gag???
The only difference that I have noticed is that warns the user that he has stayed muted.  I think :)

[kepp]

well, this is more like a joke in my oppinion

[Typhoon]

joke or not i like it , and !gag can be bypassed with a reconnect to the hub and !me , but this muter works..
i made a update so the table get " flushed " on a timer ..  now set on 5 minutes  you'll get it ..

-- Mute Script v0.2
-- By Kepp
-- 04/02/18
-- added a timer function that clears the table // Typhoon? / Ratcom_Typhoon?
-- +mute 
-- +unmute 
-- works agaist reconnect and the use of !me

------------ things that can be changed

sBot = "[MUTER]"
ClockInterval = 5   		-- clears table on specific minutes

----------- End

MUTE = {}
mins = 1000 * 60 * ClockInterval

function Main() 
	SetTimer(mins)
	StartTimer() 
end

function OnTimer()
	clear()
end

function clear()
	MUTE = nil
	MUTE = {}
end

function DataArrival(user, data)
   if (strsub(data,1,1) == "<") then
   data=strsub(data,1,strlen(data)-1)
   s,e,cmd = strfind(data,"%b<>%s+(%S+)")
      if ((cmd=="+mute")) and user.bOperator then
         DoMute(user, data) return 1
         
      elseif ((cmd=="+unmute")) and user.bOperator then
         DoUnMute(user, data) return 1
      end
      if strsub(data,1,1) == "<" then
         if MUTE[user.sName] == 1 then return 1
         end
      end
   end
end

function DoMute(user, data)
local s,e,cmd,vic = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
local victim = GetItemByName(vic)
   if victim == nil then
      user:SendData(sBot,"User is not in the hub...")
   else
      if MUTE[victim.sName] == nil then
         MUTE[victim.sName] = 1
         SendToAll(sBot,"Tell me "..victim.sName..", How good is a phonecall if you're unable to speak? ;)")
      end
   end
end

function DoUnMute(user, data)
local s,e,cmd,vic = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
local victim = GetItemByName(vic)
   if victim == nil then
      user:SendData(sBot,"User is not in the hub...")
   else
      if MUTE[victim.sName] == 1 then
         MUTE[victim.sName] = nil;
         SendToAll(sBot, victim.sName.." Was umuted ;) ")
      end
   end
end

[Typhoon]

made a update , added +showmuted

-- Mute Script v0.3
-- By Kepp
-- 04/02/18
-- added a timer function that clears the table // Typhoon? / Ratcom_Typhoon?
-- +mute 
-- +unmute 
-- works agaist reconnect and the use of !me
-- +showmuted added by Typhoon? / Ratcom_Typhoon?
-- thx to kepp & plop  :-?

------------ things that can be changed

sBot = "[MUTER]"
ClockInterval = 5   		-- clears table on specific minutes

----------- End

MUTE = {}
mins = 1000 * 60 * ClockInterval

function Main() 
	SetTimer(mins)
	StartTimer() 
end

function OnTimer()
	clear()
end

function clear()
	MUTE = nil
	MUTE = {}
end

function DataArrival(user, data)
   if (strsub(data,1,1) == "<") then
  	 data=strsub(data,1,strlen(data)-1)
   	s,e,cmd = strfind(data,"%b<>%s+(%S+)")
   end

      if cmd == "+mute" and user.bOperator then
	   DoMute(user, data) return 1
         
	elseif cmd == "+showmuted" and user.bOperator then
		function MUTED()
		local disp = ""
			for index, value in MUTE do
			local line = index
			disp = disp.."\t ? "..line.."\r\n"
			end
			return disp
			end
		user:SendPM(sBot,"\r\n\r\n\t\t\t\t\t(? ?.??.->   These are the muted   <-.??.???)\r\n\r\n"..MUTED().."|")
		return 1
		
      elseif cmd == "+unmute" and user.bOperator then
	   DoUnMute(user, data) return 1
      end
      if strsub(data,1,1) == "<" then
         if MUTE[user.sName] == 1 then return 1
         end
      end
   end


function DoMute(user, data)
local s,e,cmd,vic = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
local victim = GetItemByName(vic)
   if victim == nil then
      user:SendData(sBot,"User is not in the hub...")
   else
      if MUTE[victim.sName] == nil then
         MUTE[victim.sName] = 1
         SendToAll(sBot,"Tell me "..victim.sName..", How good is a phonecall if you're unable to speak? ;)")
      end
   end
end

function DoUnMute(user, data)
local s,e,cmd,vic = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
local victim = GetItemByName(vic)
   if victim == nil then
      user:SendData(sBot,"User is not in the hub...")
   else
      if MUTE[victim.sName] == 1 then
         MUTE[victim.sName] = nil;
         SendToAll(sBot, victim.sName.." Was umuted ;) ")
      end
   end
end

[bliskner]

is this a ptokax server side script?

[plop]

Originally posted by bliskner
is this a ptokax server side script?

yep

plop

[Janhouse]

In Yhub this mute script shows some crap text if you are saying something. But in ptokax it only gag user. No fun : (

[Janhouse]

Can somebody edit it? So it could work like in yhub. Whit that crap text.

[Herodes]

I think u are talking about kennylizing ....

try searching for kenny in the forum u'll find it ...

[ARCHANGEL]

Try the "funscript" by Solian, you can get it from Plops site, it gags and does the Kenny thing, it also makes a user drunk. Heres a link:

http://www.plop.nl/ptokaxbots/Solian.php

[??????Hawk??????]

heres another...

http://www.plop.nl/ptokaxbots/Hawk/kenny-mute.lua


??????Hawk??????