;;;;;;;;;;;;;;;
;; Das is das ?<suchbegriff>? teil von Kathy
;; Das prinzip und die Funktionsweise ist recht simpel es liest aus einer datei genannt ask-data.txt aus
;; in der datei sind die daten so eingetragen
;;;;;;;;;;;;;;;
;; BEISPIEL: ;;
;;;;;;;;;;;;;;;
;; sex,friends,brain,bigpenis
;; something you will never have
;;;;;;;;;;;;;;;
;; Kathy läd die komplette datei in ein Temporäres Fenster und liest die daten von dort aus...
;; (isn bissl schneller)
;; so das wärs eigentlich wie es funzt weiss ja jeder oder net?
;;;;;;;;;;;;;;;
;; Benutzung ;;
;;;;;;;;;;;;;;;
;; Im channel folgendes eingeben:
;;;;
;; ?sex? [nick]
;; gibt alle treffer zu ?sex? aus und wenn man [nick] angiebt wird jeder message der nick vorne weg gesetzt
;;;;
;; ?? sex [nick]
;; Sendet alle treffer via notice anstatt im Channel sonst genauso wie oben
;;;;
;; Ich werde hierzu im Channel keine!!! hilfe geben
;;;;;;;;;;;;;;;
on *:text:*:#:{
if $left($1,1) == ? && $right($1,1) == ? && $len($remove($1,?,!,*)) > 0 || $1 == ?? {
var %w = $right($left($1,-1),-1)
var %target = $chan,%ev = msg
var %?nick = $iif($2,$2,$nick)
var %prevent = $+ %?nick $+ $+ :
if ($1 == ??) { %target = %?nick | %w = $2 }
if (%target != $chan) { unset %prevent | %target = $iif($3 ison $chan,$3,$nick) | %ev = .notice }
window -h @buffer
loadbuf @buffer ask-data.txt
var %x = $line(@buffer,0),%i = 1,%readn = 2
while %i < %x {
if $findtok($line(@buffer,%i),%w,1,44) { set -un %?send $true | %ev %target $iif($2,%prevent) $replace($line(@buffer,%readn),&word&,%w,&nick&,$nick) }
inc %i 2
inc %readn 2
}
window -c @buffer
if ((%target != $nick) && ($1 == ??) && (%?send)) .notice $nick Done.
elseif (($2) && ($1 == ??) && (!%?send)) .notice $nick No entry for %w found.
}
}