Code:

set btnck

Code:

global botnick

Code:

#set btnck to the nick of your bot set btnck "yourbotnick"#code starts herebind msg - help not_helpbind msg - kiss not_kissbind msg - rose not_rosebind msg - tonsil not_tonsilbind msg - hug not_hugbind msg - admirer not_admirerbind msg - chocolate not_chocolatebind msg - candy not_candybind msg - lovenote not_lovenotebind msg - thankyou not_thankyoubind msg - apology not_apologybind msg - version not_versionproc not_help {nick uhost hand rest} {    global botnick    set cmd [string tolower [lindex $rest 0]]    if {$cmd == ""} {putnot $nick "------------------ loveserv help ------------------"        putnot $nick "Commands :"        putnot $nick "  ROSE       KISS     TONSIL     HUG       ADMIRER"        putnot $nick "  CHOCOLATE  CANDY    LOVENOTE   APOLOGY"        putnot $nick "  THANKYOU   VERSION"        putnot $nick "   "        putnot $nick "  For Additional Help on each command type:"        putnot $nick "  EXAMPLE: /msg $botnick HELP ROSE"        putnot $nick "---------------------------------------------------"#putlog "$nick ask for loveserv help"return 0}    if {$cmd == "rose"} {putnot $nick "-----rose help-----"        putnot $nick "Send a rose to a loved one on IRC."        putnot $nick "SYNTAX: /msg $botnick ROSE NICK"#putlog "$nick ask for loveserv help rose"return 0}    if {$cmd == "kiss"} {        putnot $nick "-----kiss help-----"        putnot $nick "Send a kiss to that special someone on IRC."        putnot $nick "SYNTAX: /msg $botnick KISS NICK"        #putlog "$nick ask for loveserv help kiss"        return 0}    if {$cmd == "tonsil"} {        putnot $nick "-----tonsil help-----"        putnot $nick "Send a deep tonsil penitrating kiss to someone on IRC."        putnot $nick "SYNTAX: /msg $botnick tonsil NICK"        #putlog "$nick ask for loveserv help tonsil"        return 0}    if {$cmd == "hug"} {        putnot $nick "-----hug help-----"        putnot $nick "Send a hug to someone on IRC."        putnot $nick "SYNTAX: /msg $botnick hug NICK"        #putlog "$nick ask for loveserv help hug"        return 0}    if {$cmd == "admirer"} {        putnot $nick "-----admirer help-----"        putnot $nick "Tell someone on IRC they have a SECRET Admirer!"        putnot $nick "SYNTAX: /msg $botnick admirer NICK"        #putlog "$nick ask for loveserv help admirer"        return 0}    if {$cmd == "chocolate"} {        putnot $nick "-----chocolate help-----"        putnot $nick "Send a big yummy box of candy to someone on IRC."        putnot $nick "SYNTAX: /msg $botnick chocalate NICK"        #putlog "$nick ask for loveserv help chocolate"        return 0}    if {$cmd == "candy"} {        putnot $nick "-----candy help-----"        putnot $nick "Send someone a box of yummy heart shaped candies."        putnot $nick "SYNTAX: /msg $botnick candy NICK"        #putlog "$nick ask for loveserv help candy"        return 0}    if {$cmd == "thankyou"} {        putnot $nick "-----thankyou help-----"        putnot $nick "Send someone a thankyou note."        putnot $nick "SYNTAX: /msg $botnick thankyou NICK here the message you want to send"        #putlog "$nick ask for loveserv help thankyou"        return 0}    if {$cmd == "apology"} {        putnot $nick "-----apology help-----"        putnot $nick "Send an Apology to someone."        putnot $nick "SYNTAX: /msg $botnick APOLOGY NICK here the message you want to send"        #putlog "$nick ask for loveserv help apology"        return 0}    if {$cmd == "lovenote"} {        putnot $nick "-----lovenote help-----"        putnot $nick "Send that special someone a love note."        putnot $nick "SYNTAX: /msg $botnick LOVENOTE NICK I love you dearly"        #putlog "$nick ask for loveserv help lovenote"        return 0}    if {$cmd == "version"} {        putnot $nick "-----version help-----"        putnot $nick "Show $botnick current version."        putnot $nick "SYNTAX: /msg $botnick version"        #putlog "$nick ask for loveserv help version"        return 0}    }proc putnot {nick msg} { putserv "NOTICE $nick :$msg" }proc not_kiss {nick uhost hand rest} {  global botnick btnck    set cmd [string tolower [lindex $rest 0]]    if {$cmd == $btnck} {        putnot $nick "Surley we have better things to do with our time than make a service message itself?"        return 0}    if {$cmd != ""} {        putnot $nick "You have virtually kissed $rest"        putnot $rest "$nick has virtually kissed you!"        return 0}    }proc not_rose {nick uhost hand rest} {  global botnick btnck    set cmd [string tolower [lindex $rest 0]]    if {$cmd == $btnck} {        putnot $nick "Surley we have better things to do with our time than make a service message itself?"        return 0}    if {$cmd != ""} {        putnot $nick "Your rose has been sent to $rest"        putnot $rest "$nick has sent you this beautiful rose! 3--<--<--<4@"        return 0}    } proc not_tonsil {nick uhost hand rest} {  global botnick btnck    set cmd [string tolower [lindex $rest 0]]    if {$cmd == $btnck} {        putnot $nick "Surley we have better things to do with our time than make a service message itself?"        return 0}    if {$cmd != ""} {        putnot $nick "You have virtually tonsilly kissed $rest"        putnot $rest "$nick would like to send a SLoW..LoNG..DeeP..PeNeTRaTiNG..ToNSiL-TiCKLiNG.. HaiR STRaiGHTeNiNG..Toe-CuRLiNG..NeRVe-JaNGLiNG..LiFe-aLTeRiNG.. FaNTaSY-CauSiNG..i JuST SaW GoD!..GoSH, DiD MY CLoTHeS FaLL oFF?.. YeS, i'M GLaD i CaMe oN iRC..KiSS oN Da LiPS!!!"        return 0}    }proc not_hug {nick uhost hand rest} {  global botnick btnck    set cmd [string tolower [lindex $rest 0]]    if {$cmd == $btnck} {        putnot $nick "Surley we have better things to do with our time than make a service message itself?"        return 0}    if {$cmd != ""} {        putnot $nick "$rest has received your hug! :)"        putnot $rest "$nick has sent you a *BIG WARM HUG*!"        return 0}    }proc not_admirer {nick uhost hand rest} {  global botnick btnck    set cmd [string tolower [lindex $rest 0]]    if {$cmd == $btnck} {        putnot $nick "Surley we have better things to do with our time than make a service message itself?"        return 0}    if {$cmd != ""} {        putnot $nick "Anonymous admire sent to $rest"        putnot $rest "You have a secret admirer! ;)"        return 0}    }proc not_chocolate {nick uhost hand rest} {  global botnick btnck    set cmd [string tolower [lindex $rest 0]]    if {$cmd == $btnck} {        putnot $nick "Surley we have better things to do with our time than make a service message itself?"        return 0}    if {$cmd != ""} {        putnot $nick "A box of cholocates has been sent to $rest"        putnot $rest "$nick would like you to have this YUMMY box of chocolates!"        return 0}    }#please leaf this for credit for my work making loveserv.c to loveserv.tcl tnxproc not_version {nick uhost hand rest} {  global botnick        putnot $nick "My version of loveserv is v1 made by TALES on 18-01-2003"        return 0    }proc not_candy {nick uhost hand rest} {  global botnick btnck    set cmd [string tolower [lindex $rest 0]]    if {$cmd == $btnck} {        putnot $nick "Surley we have better things to do with our time than make a service message itself?"        return 0}    if {$cmd != ""} {        putnot $nick "A bag of yummy heart shaped candies has been sent to $rest"        putnot $rest "$nick would like you to have this big YUMMY bag of heart shaped candies!"        return 0}    }proc not_lovenote {nick uhost hand text} { global botnick btnck set rest [lindex $text 0] set msg [lrange $text 1 end]   if {$rest == $btnck} {      putnot $nick "Surley we have better things to do with our time than make a service message itself?"      return 0}   if {$msg == ""} {      puthelp "NOTICE $nick :You need a message to send."      return 0}     putnot $nick "Your lovenote to $rest has been sent! :)"     putnot $rest "$nick has sent you a LoveNote which reads:"     putnot $rest "$msg"     return 0   }proc not_thankyou {nick uhost hand text} { global botnick btnck set rest [lindex $text 0] set msg [lrange $text 1 end]   if {$rest == $btnck} {      putnot $nick "Surley we have better things to do with our time than make a service message itself?"      return 0}   if {$msg == ""} {      puthelp "NOTICE $nick :You need a message to send."      return 0}     putnot $nick "Your Thank You has been sent to $rest"     putnot $rest "$nick wishes to thank you for:"     putnot $rest "$msg"     return 0   }proc not_apology {nick uhost hand text} { global botnick btnck set rest [lindex $text 0] set msg [lrange $text 1 end]   if {$rest == $btnck} {      putnot $nick "Surley we have better things to do with our time than make a service message itself?"      return 0}   if {$msg == ""} {      puthelp "NOTICE $nick :You need a message to send."      return 0}     putnot $nick "Your apology has been sent to $rest"     putnot $rest "$nick is sorry, and would like to apologise for:"     putnot $rest "$msg"     return 0   }