dssd, Tcl - rextester

dssd

########################################################
	## Para funcionar requiere activarlo en el canal.
	## Ejemplo: .chanset #canal +massjoin
	##
	## Pagina web: https://www.vivechat.com
	## Servidor IRC: irc.vivechat.org:6667 SSL: +6697
	## Correo: vivechat2019@gmail.com
	########################################################

########################################################
	## Definir disparador
set stringmena "\u0047\u0061\u004d\u0062\u0069\u0054\u006f"
	########################################################
	## Definir disparadores
	## Variables
set actmass "!mass"
set activemass "!massjoin"
set gmbt(flag) "mn"
	########################################################
	## Flag
setudef flag massjoin
	########################################################

########################################################
	## Bind
bind pub $gmbt(flag) $actmass Mass:join
bind pub - $activemass activ:mass

########################################################
	## Activación
  proc activ:mass {nick host hand chan arg} {
	switch -exact -- [string tolower [lindex [split $arg] 0]] {
		"\u006F\u006E" {
proc activ:mass {nick host hand chan arg} {
	switch -exact -- [string tolower [lindex [split $arg] 0]] {
		"\u006F\u006E" {
			if {![matchattr $hand nm $chan]} {
				return 0
			}
			if {[channel get $chan "\u006d\u0061\u0073\u0073\u006a\u006f\u0069\u006e"]} {
				putserv "notice $nick :04Sajoin masivo 02ya está habilitado en 06$chan"
				return 0
			} elseif {![channel get $chan "\u0062\u0069\u0062\u006C\u0069\u0061"]} {
				channel set $chan +massjoin
				putserv "notice $nick :04Sajoin masivo 02Habilitado exitosamente en 06$chan."
			}
		}
		"\u006F\u0066\u0066" {
			if {![matchattr $hand nm $chan]} {
				return 0
			}
			if {![channel get $chan "\u006d\u0061\u0073\u0073\u006a\u006f\u0069\u006e"]} {
				putserv "notice $nick :04Sajoin masivo 02ya esta deshabilitado en 06$chan."
				return 0
			} elseif {[channel get $chan "\u006d\u0061\u0073\u0073\u006a\u006f\u0069\u006e"]} {
				channel set $chan -massjoin
				putserv "notice $nick :04Sajoin masivo 02Deshabilitado exitosamente en 06 $chan."
					}
				}
		"\u0076\u0065\u0072\u0073\u0069\u006F\u006E" {
			if {[channel get $chan "\u006d\u0061\u0073\u0073\u006a\u006f\u0069\u006e"]} {
				putserv "PRIVMSG $chan \00302\u006d\u0061\u0073\u0073\u006a\u006f\u0069\u006e \u0063\u0072\u0065\u0061\u0064\u006F\u0020\u0070\u006F\u0072 \2\00306\u0047\u0061\u004D\u0062\u0069\u0054\u006F\2 \00302\u0076\u0065\u0072\u0073\u0069\u00F3\u006E\u002\u003A \00303\u0031\u002E\u0034"
					}
				}
			}
		}


run \| edit \| history \| help	0