#Set your channel name Here
set voicechan "#mIRCpending"
bind join - * join_atvoice
proc join_atvoice {nick uhost hand chan} {
global botnick voicechan
if {([lsearch -exact [string tolower $voicechan] [string tolower $chan]] != -1)} {
if {[isop $nick $chan]} {return}
putserv "NOTICE $nick :Checking some things, if logged into your username I will voice you in a moment, if not, please Try #Usernames instead | Do NOT /m$
putserv "NOTICE $nick :Monitoring Line for this channels * #mIRCBeginners * #mIRCpending * #Opasistencia * #HelpVolunter * "
}
}
## The channel where you want the script to be active
set vchan #mIRCpending
bind join - * join_whois_x
bind msgm - * join_got_whois_x
proc join_got_whois_x {nick uhost hand text} {
if {$nick=="X"&&$uhost=="cservice@undernet.org"} {
if {[string match -nocase "* USER: *" $text]} {
# got a "user reply"
set ::xlastreply [lindex [split $text " "] 1]
} elseif {[string match -nocase "** SUSPENDED **" $text] && [info exists ::xlastreply]} {
set ::suspended($::xlastreply) 1
unset ::xlastreply
}
}
}
proc join_whois_x {nick uhost hand chan} {
putserv "privmsg x :access $chan $nick -modif"
utimer 10 [list join_voice_utimer_10 $nick $uhost $hand $chan]
}
proc join_voice_utimer_10 { nick host hand chan } {
global vchan botnick
if {[onchan $nick $chan]} {
if {![matchattr $hand |fglov $chan]} {
if {![string match -nocase "*.undernet.org" $host]} {
pushmode $vchan -v $nick
utimer 11 [list puthelp "NOTICE $nick :AUTHENTICATION FAILED as $nick . Please join #Usernames and ask help regarding registering an username."]
utimer 16 [list puthelp "NOTICE $nick :Remember:On undernet.org NICKSERV is NOT available $nick . Please GO TO : http://cservice.undernet.org/live/newus$
return 1
}
utimer 14 [list puthelp "NOTICE $nick :AUTHENTICATION SUCCESSFUL as $host"]
utimer 17 [list puthelp "NOTICE $nick :Remember: Nobody from CService will ever ask you for your password, do NOT give out your password to anyone clai$
utimer 19 [list puthelp "NOTICE $nick :Please just ask your question in the channel without colours, bold, underline, repeat, offensive language"]
utimer 23 [list putserv "privmsg X : voice $vchan $nick "]