Hi am trying to get this code to work but im haveing difficulty. i do have the vhchan set, the problem im haveing is the proc msg:vhchan dosent seem to work
setudef flag vhchan
bind pub - !vhost pub:vhost
bind notc - * msg:vhchan
bind pub - !remove pub:remove
bind pub - !help pub:help
proc pub:remove {nick uhost hand chan text} {
if { $chan == "#vhost" } {
putquick "PRIVMSG hostserv :DEL $nick"
putquick "PRIVMSG $chan :$nick 4your vhost has been removed, 8Thank you for stoping by #vhost have a good day"
return
}
}
proc pub:help {nick uhost hand chan text} {
if { $chan == "#vhost" } { putquick "PRIVMSG $chan :!Remove - will remove your vhost"
putquick "PRIVMSG $chan :!vhost hostname - will give you the vhost specified"
putquick "PRIVMSG $chan :would set your vhost to: I.got.my.own.vhost"
putquick "PRIVMSG $chan :The choosen vhost is permanent, only when your nick is registered, and will be enabled on identification with nickserv"
return
}
}
proc pub:vhost {nick host hand chan text} {
if {![channel get $chan vhchan]} {return}
set vhost [lindex $text 0]
if {($vhost == "")} {putserv "PRIVMSG $chan :$nick Please specify a hostname you would like... Try again!"; return}
if {($vhost != "")} {
putserv "PRIVMSG hostserv :set $nick $vhost"
}
}
proc msg:vhchan {nick uhost hand text chan} {
if {[string match -nocase "HostServ" $nick]} {
set line [lrange [split $text] 0 end]
putserv "PRIVMSG $chan :[join $line]"
if {([string match -nocase "*A vhost must*" $line])} {putserv "PRIVMSG $chan :8Please use proper format. \(!vhost ident@vhost.com\)"; return}
putserv "PRIVMSG $chan :15To Activate your vhost type /msg hostserv on"
}
}
this is because of some lame script bound to raw. It is obviously triggered by some feedback from the server in that script. Check the script with that function.