Code: Select all
if {$nick == $botnick || ![botisop $chan]} { return 0 }
if {![getchanmode $chan == +cMnRtl]} { return 0 }
set nojoins [lindex [split $jtu ":"] 0]
set insec [lindex [split $jtu ":"] 1]
set unlockin [lindex [split $jtu ":"] 2]
incr val($chan)
utimer $nojoins [list reset $chan]
if {$val($chan) >= $nojoins} {
putquick "MODE $chan +MR"
utimer $unlockin [list unlock $chan] }
}
Code: Select all
bind pub o|o !bla pub:bla
proc pub:bla {nick host handle channel arg} {
if {![botisop $channe]} { return }
putserv "PRIVMSG $channel :placing mode 1"
pushmode $channel +m
putserv "PRIVMSG $channel :placing mode 2"
pushmode $channel +m
putserv "PRIVMSG $channel :placing mode 3"
pushmode $channel +m
}
elseplacing mode 1
bot mode +m
placing mode 2
placing mode 3
placing mode 1
bot mode +m
placing mode 2
bot mode +m
placing mode 3
bot mode +m
Code: Select all
if {[getchanmode $chan] == "+cMnRtl"} { return 0 }
Code: Select all
set cm [getchanmode $chan]
if {(([string match {+*[MR]*[MR]*} $cm]) && ([llength [split $cm]] == 1)) || (([string match {+*[MR]*[MR]* *} $cm]) && ([length [split $cm]] > 1))} { return }