view help.tcl @ 91:6f4bfd8e9447

urllog: Reorder code and make it simpler by removing duplicate checks.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 12 Sep 2011 17:20:53 +0300
parents 15fc72bc3f3e
children b4fdb3300faa
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 $chan "Lisätietoja: http://tnsp.org/irc/readme.php"
  nn_smsg $chan "!sää \[paikka|minmax\] ; !urlfind <+sana|-sana|%käyttäjä> ; !tj \[käyttäjä\] ; !tjaamut \[-\]vuorokaudet \[\[-\]tunnit\]"
  nn_smsg $chan "!laske <kaava> (\002HUOM! Pyöristää vakiona lähimpään kokonaislukuun, käytä yhtä desimaalikua vaihtaaksesi tarkkuuden\002)"
  nn_smsg $chan "!spede \[nro\] ; !spede find <+sana|-sana|%käyttäjä> ; !spede add <teksti> ; !spede del <id> ; (Samat myös: !mn, !tuksu)"
  return 1
}

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