Statistics: Posted by aslpls — Sun Apr 16, 2023 10:40 am

Code:

 array set colors {white \00300black \00301blue \00302green \00303red \00304brown \00305purple \00306orange \00307yellow \00308lightgreen \00309darkgreen \00310cyan \00311lightblue \00312pink \00313grey \00314lightgrey \00315end \017nocolor \003bold \002underline \037}foreach {color code} [array get colors] { proc $color {} "return $code" }  #set this to channelset 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*"}## dont change below unless your know what your doing ##bind msg o oper oper-upbind join - "$::scan(chan) *" tls:joinbind raw - 307 tls:identbind pub -|- !vhost tls:vhostbind evnt - init-server oper:connectproc 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      if {$chan != "$::scan(chan)"} {      putserv "NOTICE $tls_nick : Don't Use This Command Outside $::scan(chan)"      return 0   } if {$vhost == ""} { if {$chan == "$::scan(chan)"} {   putserv "PRIVMSG $chan : With the command [red]!VHOST [end]  you can make a vhost."   putserv "PRIVMSG $chan : Do it this way, !vhost This.is.my.vhost.com ."   putserv "PRIVMSG $chan : You can only use this service if you have your nick registered and identified"   putserv "PRIVMSG $chan : For more information type /msg nickserv HELP"   return 0   }      putserv "NOTICE $tls_nick : Met het commando [red] !VHOST [end] kan u een vhost instellen.[end]"      putserv "NOTICE $tls_nick : Dit commando kunt u echter alleen gebruiken in $::scan(chan)"      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 identified for this nick"} {    foreach j [utimers] {        if {[lindex $j 1] == "tls:not:ident"} { killutimer [lindex $j 2] }      }   putserv "PRIVMSG $::scan(chan) :$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_badvhostset temp 0foreach i [string tolower $dvb_badvhost] {if {[string match $i [string tolower $tls_vhost]]} {set temp 1  putserv "PRIVMSG $::scan(chan)  : Your vhost is not changed [green] $tls_vhost [end]"  putserv "PRIVMSG $::scan(chan) : Its not a valid vhost [green] $tls_vhost [end]"  return 0}}  putserv "PRIVMSG hostserv :set $tls_nick $tls_vhost"  putserv "NOTICE $tls_nick :Your vhost is changed to\: [green] $tls_vhost [end]"  }  return 0}proc tls:not:ident {} { global tls_nick putserv "PRIVMSG $::scan(chan) :$tls_nick is: is not registered or identified" putserv "PRIVMSG $::scan(chan) :Type:[red] /MSG nickserv HELP for info how to register and identify you nick. [end]"} putlog "vhost was successfully loaded."

Statistics: Posted by simo — Fri Apr 14, 2023 4:56 am

activate_on_set = true

/os reload

Statistics: Posted by simo — Thu Apr 13, 2023 6:16 pm

Statistics: Posted by simo — Thu Apr 13, 2023 7:11 am

Statistics: Posted by aslpls — Wed Apr 12, 2023 6:21 am

Code:

putserv "PRIVMSG $chan  : Your vhost is not changed 3$tls_vhost3"putserv "PRIVMSG $chan : Its not a valid vhost 3$tls_vhost3"

Statistics: Posted by Sir_Fz — Sun Jul 29, 2007 1:03 pm

#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*" } ## 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 "PRIVMSG $chan : With the command 4!VHOST you can make a vhost."    putserv "PRIVMSG $chan : Do it this way, !vhost This.is.my.vhost.com ."    putserv "PRIVMSG $chan : You can only use this service if you have your nick registered and identified"    putserv "PRIVMSG $chan : For more information type /msg nickserv HELP"    putserv "PRIVMSG $chan : 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 "PRIVMSG $chan  : Your vhost is not changed 3$tls_vhost3"   putserv "PRIVMSG $chan : 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."

Statistics: Posted by doc — Sun Jul 29, 2007 12:50 pm