#	Copyright 2022 Nicodemus
#	Dieses Modul/Skript ist freie Software: Sie darf weitergeben und/oder 
#	modifiziert werden wie es unter den Bedingungen der "GNU General Public License"
#	veröffentlicht wurde. Entweder durch die "Free Software Foundation Version 3",
#	oder(nach Ihrer Wahl) durch eine hiernach folgende Version.
#	
#	Dieses Skript wird in der Hoffnung zur Verfügung gestellt, dass es nützlich ist,
#	aber ohne jegliche Gewährleistung; auch ohne die implizite Garantie der
#	Gebrauchstauglichkeit oder Eignung für einen bestimmten Zweck. Siehe die
#	GNU General Public License für weitere Details.
#	
#	Sie sollten mit diesem Skript eine Kopie der GNU General Public License erhalten
#	haben. Falls nicht, siehe .
#	 
#	Chalice - Nicodemus
#	Dieses Skript kann als eine virtuelle Bibliothek verwendet werden.
#	Das Script ist leicht erweiterbar, ohne dass neuer Code benötigt wird.
#	Bitte lesen Sie die "Readme" Datei für Installationsanweisungen.
#
#
#

bind pub - ~chalice chalice_lookup
proc chalice_lookup {nick uhost hand chan arg} {
if {$arg == "hilfe"} {
    putmsg $chan "Ich habe derzeit folgende Literatur installiert:"
    putmsg $chan "Arnold G. Fruchtenbaum, Handbuch der biblischen Prophetie"
    putmsg $chan "David Wilkerson, Die Vision - div"
    putmsg $chan "Ellen White, Die große Kontroverse - dgk"
    putmsg $chan "Watchman Nee, Der Geistliche Christ - dgc"
    putmsg $chan "Wenn Sie ein Buch kennen, das in diese Liste aufgenommen werden sollte, wenden Sie sich bitte an Ihre Kanalbetreiber."
    putmsg $chan "Anwendung: ~chalice <chalice Akronym> <Zeilennummer>"
    return
} else {
    set i 0
    set chalicechoice [string range $arg 0 2]
    set chaliceshelfs [open "scripts/chalice/$chalicechoice.chalice" r]
    set chalicelookup [string trimleft $arg $chalicechoice]
    set chalicelookup [string trimleft $chalicelookup]
    set chalicelookup "#$chalicelookup "
    while {[gets $chaliceshelfs line] != -1} {
        if {[string first $chalicelookup $line] != -1} {
            putmsg $chan "$line"
            set i 1
        } else {
            if {[eof $chaliceshelfs] == 1} {
                if {$i == 0} {
                    putmsg $chan "Dieser Eintrag scheint nicht zu existieren. Sind Sie sicher, dass Sie ihn richtig geschrieben haben?"
                    return
                }
            }
        }
    }
}
}

putlog "Loaded"