modified script

bind pub - !devoice devoice
bind pub - !d devoice
proc devoice {nick uhost hand chan arg} {
putserv "MODE $chan -v $nick"
}

bind pub - !voice voice
bind pub - !v voice
proc voice {nick uhost hand chan arg} {
putserv "MODE $chan +v $nick"
}

bind pub - !admin help
proc help {nick uhost hand chan arg} {
putserv "NOTICE @$chan $nick has requested urgent assistance in $chan";
putserv "NOTICE greeter $nick has requested urgent assistance in $chan";
putserv "NOTICE $nick Your request for assistance has been sent to the operators of $chan. Please note this will not guarantee a swift reply if no ops are available to help.";
}

bind pub - !coffee acoffee
proc acoffee {nick uhost hand chan arg} {
set total [expr {round(rand() * 100)}]
putserv "PRIVMSG $chan :\001ACTION gives $nick a cup of coffee brewed at $total degrees Celsius.\001";
}

bind pub - !ice aice
proc aice {nick uhost hand chan arg} {
set total [expr {round(rand() * 273)}]
putserv "PRIVMSG $chan :\001ACTION gives $nick a block of ice chilled to -$total degrees Celsius.\001";
}

bind pub - !water awater
proc awater {nick uhost hand chan arg} {
set total [expr {round(rand() * 273)}]
putserv "PRIVMSG $chan :\001ACTION gives $nick a cup of ice water, with ice cubes chilled to -$total degrees Celsius.\001";
}

bind pub - !beer abeer
proc abeer {nick uhost hand chan arg} {
set total [expr {round(rand() * 15)}]
putserv "PRIVMSG $chan :\001ACTION gives $nick a bottle of beer chilled to $total degrees Celsius.\001";
}

bind pub - !cheesecake acheesecake
proc acheesecake {nick uhost hand chan arg} {
putserv "PRIVMSG $chan :\001ACTION gives $nick a slice of cheesecake.\001";
}

bind pub - !hug ahug
proc ahug {nick uhost hand chan arg} {
putserv "PRIVMSG $chan :\001ACTION hugs $nick\001";
}

bind pub - !whisky awhisky
proc awhisky {nick uhost hand chan arg} {
putserv "PRIVMSG $chan :\001ACTION gives $nick a glass of whisky on the rocks, aged 40 years.\001";
}

bind pub - !wine awine
proc awine {nick uhost hand chan arg} {
putserv "PRIVMSG $chan :\001gives $nick a glass of wine.\001";
}

bind pub - !jd ajd
proc ajd {nick uhost hand chan arg} {
if {[string compare $nick Intellectual]==0} {
putserv "PRIVMSG $chan :\001ACTION gives $nick a glass of Jack Daniel's whisky on the rocks, aged 40 years.\001";
}
if {[string compare $nick Intellectual]!=0} {
putserv "PRIVMSG $chan Sorry $nick, that bottle of Jack Daniel's is reserved for Intellectual."
}
}

bind pub - Why?? awhy
proc awhy {nick uhost hand chan arg} {
putserv "PRIVMSG $chan :Because the RNG hates you, that's why!";
}