view help.tcl @ 698:6ba9f961e463 default tip

quotedb: Bump version and copyright.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 18 Sep 2023 11:38:41 +0300
parents b4fdb3300faa
children
line wrap: on
line source

##########################################################################
# Niinuska Help
##########################################################################
set nn_message "Niinuska Help v0.2 by ccr/TNSP"
set nn_preferredmsg "PRIVMSG"

putlog "$nn_message"
bind pub - !help nn_pubmsg
bind pub - !apua nn_pubmsg

# ------------------------------------------------------------------------
proc nn_smsg {udest umsg} {
  global nn_preferredmsg

  putserv "$nn_preferredmsg $udest :$umsg"
}


# ------------------------------------------------------------------------
proc nn_pubmsg {unick uhost uhand uchan uargs} {
  nn_smsg $uchan "Lisätietoja Niinuskan toiminnoista: \002http://tnsp.org/irc/\002 ja \002http://tnsp.org/irc/readme.php\002"
  return 1
}

# ------------------------------------------------------------------------