diff options
author | Roberto C. Sanchez <roberto@connexer.com> | 2014-03-29 10:54:02 -0400 |
---|---|---|
committer | Roberto C. Sanchez <roberto@connexer.com> | 2014-03-29 10:54:02 -0400 |
commit | 936d9e8484ff73282c8c0a277310d1ffdde86e10 (patch) | |
tree | 084d6d2e50f188b0e9c00c109a935efa6ad665fc /utilities/diatheke/tcl/biblebot-diatheke-books.tcl | |
parent | 71a39f4652cd51df814c930dd268f3c9ad2aee86 (diff) |
Imported Upstream version 1.6.1+dfsg
Diffstat (limited to 'utilities/diatheke/tcl/biblebot-diatheke-books.tcl')
-rw-r--r-- | utilities/diatheke/tcl/biblebot-diatheke-books.tcl | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/utilities/diatheke/tcl/biblebot-diatheke-books.tcl b/utilities/diatheke/tcl/biblebot-diatheke-books.tcl new file mode 100644 index 0000000..f10528b --- /dev/null +++ b/utilities/diatheke/tcl/biblebot-diatheke-books.tcl @@ -0,0 +1,42 @@ +# Diatheke/Tcl 5.0 by Chris Little <chrislit@crosswire.org> + +# Copyright 1999-2009 CrossWire Bible Society (http://www.crosswire.org) +# CrossWire Bible Society +# P. O. Box 2528 +# Tempe, AZ 85280-2528 +# +# This program is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by the +# Free Software Foundation version 2. +# +# This program is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. + +bind pub - !KJV setver_KJV + +proc setver_KJV {nick uhost hand channel arg} { + global botnick chan bibver + set bibver KJV + pub_lookup $nick $uhost $hand $channel $arg +} + +bind pub - !sKJV setver_sKJV + +proc setver_sKJV {nick uhost hand channel arg} { + global botnick chan bibver + set bibver KJV + pub_lookups $nick $uhost $hand $channel $arg +} + +proc printBibles {nick} { + putserv "NOTICE $nick :Bibles (1):" + putserv "NOTICE $nick :King James Version (1769) with Strongs Numbers and Morphology (!KJV)" +} + +proc printComms {nick} { +} + +proc printDicts {nick} { +} |