Thanks
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*"
"*operator*"
"*ircop*"
"*FutureForce*"
"*Future*"
"*C0mPl3x*"
"*ComPlex*"
"*Marro*"
"*Maro*"
"*netadmin*"
"*N3TADM1N*"
"*H0RR0R*"
"*NETADMIN*"
}
## dont change below unless your know what your doing ##
bind msg o oper oper-up
bind join - "$scan(chan) *" tls:join
bind raw - 307 tls:ident
bind pub -|- !vhost tls: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 tls:join {nick host hand chan} {
global tls_nick tls_ident
set tls_ident "1"
set tls_nick $nick
putserv "WHOIS $nick"
utimer 3 tls:not:ident
}
proc tls:vhost {nick host hand chan vhost} {
global tls_nick tls_ident tls_vhost scan(chan)
if {$chan != "#vhost"} {
putserv "NOTICE $tls_nick : Don't Use This Command Outside #vhost"
return 0
}
if {$vhost == ""} {
if {$chan == "#vhost"} {
putserv "NOTICE $tls_nick : With the command 4!VHOST you can make a vhost."
putserv "NOTICE $tls_nick : Do it this way, !vhost This.is.my.vhost.com ."
putserv "NOTICE $tls_nick : You can only use this service if you have your nick registered and identified"
putserv "NOTICE $tls_nick : For more information type /msg nickserv HELP"
putserv "NOTICE $tls_nick : 4 "
return 0
}
putserv "NOTICE $tls_nick : Met het commando 4!VHOST kan u een vhost instellen."
putserv "NOTICE $tls_nick : Dit commando kunt u echter alleen gebruiken in #vhost"
return 0
}
set tls_ident "2"
set tls_vhost [lindex $vhost 0]
set tls_nick $nick
putserv "WHOIS $nick"
utimer 3 tls:not:ident
}
proc tls:ident {from key args } {
global tls_ident tls_nick tls_vhost
set args [join $args]
set nick [string tolower [lindex $args 1]]
set regist [strlwr [lindex [lrange [split $args ":"] 1 end] 0]]
if {$tls_ident == "1" && $regist == "is a registered nick"} {
foreach j [utimers] {
if {[lindex $j 1] == "tls:not:ident"} { killutimer [lindex $j 2] }
}
putserv "PRIVMSG #vhost :$nick your nick is registered and identified use !vhost <vhost>"
}
if {$tls_ident == "2" && $regist == "is a registered nick"} {
foreach j [utimers] {
if {[lindex $j 1] == "tls:not:ident"} { killutimer [lindex $j 2] }
}
global dvb_badvhost
set temp 0
foreach i [string tolower $dvb_badvhost] {
if {[string match $i [string tolower $tls_vhost]]} {
set temp 1
putserv "NOTICE $tls_nick : Your vhost is not changed 3$tls_vhost3"
putserv "NOTICE $tls_nick : Its not a valid vhost 3$tls_vhost3"
return 0
}
}
putserv "PRIVMSG hostserv : set $tls_nick $tls_vhost"
putserv "PRIVMSG hostserv : set $tls_nick $tls_vhost"
putserv "NOTICE $tls_nick : Your vhost is changed in 3$tls_vhost3"
putserv "NOTICE $tls_nick : Type /msg hostserv on "
}
return 0
}
proc tls:not:ident {} {
global tls_nick
putserv "PRIVMSG #vhost :$tls_nick is: is not registered or identified"
putserv "PRIVMSG #vhost :Type: 4/MSG nickserv HELP for info how to register and identify you nick."
}
putlog "vhost was successfully loaded."
