It identifys with nickserv and opers up but its not sending the cmd to set the host on the trigger and since I'm new to tcl I don't know if this script is corect or not. Can someone help by telling me if this script is right or needs some adjustments or a script that will work on my network would be a great help.
My network is running Unreal 3.2 and freeBSD any help would be appreciated
Thank you all for your help and support
Code: Select all
#set this to channel
set scan(chan) "#VHOST"
# Set this to the bot's O-Line username #
set oper(username) "*****"
# Set this to the bots O-Line password #
set oper(password) "*******"
# Set here the words that are not alowed in the vhost #
set dvb_badvhost {
"*admin*"
"*bitch*"
"*[censored]*"
"*operator*"
"*ircop*"
"*[censored]*"
"*asshole*"
"*pussy*"
"*slut*"
"*mother fuker*"
"*cock *"
}
## dont change below unless your know what your doing ##
bind msg O oper oper-up
bind join - "$scan(chan) *" dvb:join
bind raw - 307 dvb:ident
bind pub -|- !vhost dvb:vhost
bind evnt - init-server oper:connect
proc oper:connect init-server {
putserv "OPER $::oper(username) $::oper(password)"
}
proc oper-up {nick host chan text} {
global operid operpass owner2
putserv "OPER $::oper(username) $::oper(password)"
putserv "NOTICE $nick : I Opered up"
}
proc dvb:join {nick host hand chan} {
global dvb_nick dvb_ident
set dvb_ident "1"
set dvb_nick $nick
putserv "WHOIS $nick"
utimer 3 dvb:not:ident
}
proc dvb:vhost {nick host hand chan vhost} {
global dvb_nick dvb_ident dvb_vhost scan(chan)
if {$chan != "#VHOST"} {
putserv "NOTICE $dvb_nick : You can use 4!VHOST to setup a vhost."
putserv "NOTICE $dvb_nick : This command only works in #VHOST"
return 0
}
if {$vhost == ""} {
if {$chan == "#VHOST"} {
putserv "NOTICE $dvb_nick : You can use 4!VHOST to set a vhost."
putserv "NOTICE $dvb_nick : This will hide your real host from normal users."
putserv "NOTICE $dvb_nick : For Example 4!VHOST this.is.my.vhost.com ."
putserv "NOTICE $dvb_nick : You must have two periods in your host."
putserv "NOTICE $dvb_nick : You must have a registed nick and be identified to use this command.."
putserv "NOTICE $dvb_nick : For more information type 4/NICKSERV HELP."
return 0
}
putserv "NOTICE $dvb_nick : You can use 4!VHOST to set a vhost."
putserv "NOTICE $dvb_nick : This Command is only available in #VHOST"
return 0
}
set dvb_ident "2"
set dvb_vhost [lindex $vhost 0]
set dvb_nick $nick
putserv "WHOIS $nick"
utimer 3 dvb:not:ident
}
proc dvb:ident {from key args} {
global dvb_ident dvb_nick dvb_vhost
set args [join $args]
set nick [string tolower [lindex $args 1]]
set regist [strlwr [lindex [lrange [split $args ":"] 1 end] 0]]
if {$dvb_ident == "1" && $regist == "is a registered nick"} {
foreach j [utimers] {
if {[lindex $j 1] == "dvb:not:ident"} { killutimer [lindex $j 2] }
}
putserv "PRIVMSG #VHOST :$nick is: registered and can use the command: !vhost <vhost>"
}
if {$dvb_ident == "2" && $regist == "is a registered nick"} {
foreach j [utimers] {
if {[lindex $j 1] == "dvb:not:ident"} { killutimer [lindex $j 2] }
}
global dvb_badvhost
set temp 0
foreach i [string tolower $dvb_badvhost] {
if {[string match $i [string tolower $dvb_vhost]]} {
set temp 1
putserv "NOTICE $dvb_nick : Your Vhost has not been changed to 3$dvb_vhost3 as it is an invalid/disallowed host."
return 0
}
}
putserv "PRIVMSG hostserv : set $dvb_nick $dvb_vhost"
putserv "PRIVMSG hostserv : set $dvb_nick $dvb_vhost"
putserv "chghost $dvb_nick $dvb_vhost"
putserv "NOTICE $dvb_nick : Your New Host is: $dvb_vhost"
putserv "NOTICE $dvb_nick : You must use msg hostserv on to activate it on connect from now on."
}
return 0
}
proc dvb:not:ident {} {
global dvb_nick
putserv "PRIVMSG #VHOST :$dvb_nick is: not currently registered or identified."
putserv "PRIVMSG #VHOST :Type: 4/MSG NICKSERV HELP for help on registering a nick and how to identify."
}
