bind msg -|- !voice css_voice
bind join - * css_join
bind msg -|- !promote css_promote
bind msg -|- !demote css_demote
proc css_voice {nick host hand arg} {
set args [string trim $arg]
set channel [lindex [split $args " "] 0]
set md5 [lindex [split $args " "] 1]
if {[md5 $nick] == $md5} {
puthelp "NOTICE $nick :Voice on the way"
puthelp "MODE $channel +v $nick"
} else {
puthelp "NOTICE $nick :Invalid voice command"
putlog "VOICE NOT OK";
}
}
proc css_greet {nick chan} {
puthelp "NOTICE $nick :Welcome to $chan. Please \002/msg \[W3C\]Bot !voice $chan [md5 $nick]\002 to get voice"
puthelp "NOTICE $nick :Please note this is \002_NOT_\002 a CounterStrike channel"
}
proc css_greet_voice {nick chan} {
puthelp "NOTICE $nick :Welcome back to $chan. You will be auto-voiced shortly"
puthelp "NOTICE $nick :Please note this is \002_NOT_\002 a CounterStrike channel"
}
proc css_promote {user uhost hand arg} {
set args [string trim $arg]
set channel [lindex [split $args " "] 0]
set nick [lindex [split $args " "] 1]
if {![isop $user $channel]} {
putlog "HACK ATTEMPT"
puthelp "NOTICE $user :Your not administrator of $channel"
return
}
if {[adduser $nick $nick!*@*]} {
putlog "Added user $nick to the system"
}
if {[matchattr $nick |r $channel]} {
puthelp "NOTICE $user :$nick is already regular on this channel"
return
}
chattr $nick |+r $channel
puthelp "NOTICE $user :Successfully added $nick as regular on $channel"
puthelp "NOTICE $nick :You have been added as regular on $channel and will get autovoice from now on"
}
proc css_demote {user uhost hand arg} {
set args [string trim $arg]
set channel [lindex [split $args " "] 0]
set nick [lindex [split $args " "] 1]
if {![isop $user $channel]} {
putlog "HACK ATTEMPT"
puthelp "NOTICE $user :Your not administrator of $channel"
return
}
if {![matchattr $nick |r $channel]} {
puthelp "NOTICE $user :$nick isnt regular on this channel"
return
}
chattr $nick |-r $channel
puthelp "NOTICE $user :Successfully removed $nick as regular on $channel"
puthelp "NOTICE $nick :You have been removed as regular on $channel and will nolonger get autovoice"
}
proc css_ignore {user uhost hand arg} {
set args [string trim $arg]
set channel [lindex [split $args " "] 0]
set host [lindex [split $args " "] 1]
if {![isop $user $channel]} {
putlog "HACK ATTEMPT"
puthelp "NOTICE $user :Your not administrator of $channel"
return
}
if {[adduser $nick $nick!*@*]} {
putlog "Added user $nick to the system"
}
if {[matchattr $nick |r $channel]} {
puthelp "NOTICE $user :$nick is regular on this channel and may not be set on ignore"
return
}
chattr $nick |+L $channel
puthelp "NOTICE $user :Successfully added $nick as regular on $channel"
puthelp "NOTICE $nick :You have been added as regular on $channel and will get autovoice from now on"
}
proc css_join {nick uhost hand chan} {
if {[matchattr $nick |r $chan]} {
putlog "Regular join"
putserv "MODE $chan +v $nick"
} else {
putlog "New join"
css_greet $nick $chan
}
}
putlog "Loaded CSS 1.2"