bind pub - !remove pub:remove
bind pub - !help pub:help
proc pub:remove {nick chan} {
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 chan} {
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
}
}
putlog "Loaded vhost script"
Last edited by vince164 on Tue May 23, 2006 10:23 pm, edited 1 time in total.
Args specifies the formal arguments to the procedure. It consists of a list, possibly empty, each of whose elements specifies one argument. Each argument specifier is also a list with either one or two fields. If there is only a single field in the specifier then it is the name of the argument; if there are two fields, then the first is the argument name and the second is its default value.