Userfile auslesen und Benachrichtigung bestimmter Flags

[Jesterhead]

Moin,

ich versuche gerade ein TCL-Script zu basteln, bleibe allerdings an der
entscheidenden Stelle hängen, da mir einfach das Wissen fehlt... :(

Und zwar geht es dabei hauptsächlich um das Auslesen des Userfiles und
einer Benachrichtigung aller User mit einem Bestimmten Flag, wenn ein
user im Channel einen Trigger ausgelöst hat.

Also in der Art:

WENN !trigger DANN match S|S und MSG an alle S|S und Notice an denjenigen der
den Trigger ausgelöst hat.

WENN keine S|S in der Userlist vorhanden sind, DANN notice an Auslöser des
Triggers mit alternativen Text.

Für Hilfe wäre ich wirklich sehr dankbar. :)

MfG
Jesterhead

[ind00r]

Hallo,

du kannst mit


[matchattr $handle s]


überprüfen ob er die flags hat.

Ich hoffe das ist das, was du suchst.

[Jesterhead]

Hallo,

du kannst mit


[matchattr $handle s]


überprüfen ob er die flags hat.

Ich hoffe das ist das, was du suchst.

Das habe ich schon versucht wobei dann der Trigger-Auslöser überprüft wird.

Das Script sollte jedoch so aussehen, dass das Script die Userlist nach dem
Flag durchsucht und alle User mit passendem Flag eine nachricht schickt.
Der Trigger-Starter soll dabei aussen vor bleiben und nur eine Extramessage
erhalten.

[ind00r]

Dann wird das aber aufwendig.

Du musst dann die eggdrop.user öffnen und jede Zeile durchsuchen ob der user das enstprechende Flag hat.

http://tcl.return0.de/TclCmd/open.htm
http://tcl.return0.de/TclCmd/read.htm

[KeSsY]

Dann wird das aber aufwendig.

Du musst dann die eggdrop.user öffnen und jede Zeile durchsuchen ob der user das enstprechende Flag hat.

http://tcl.return0.de/TclCmd/open.htm
http://tcl.return0.de/TclCmd/read.htm

so umständlich auch nicht,


set memberlist ""
foreach user [userlist] {
if {![matchattr $user S|S $chan]} then {
continue
} else {
lappend memberlist $user
}
}
if {$memberlist != ""} then {
foreach entry $memberlist {
putserv "notice [hand2nick $entry] :bla bla"
}
}


und so weiter eben :D

kind regards,

KeSsY