Autovoice in TCL

- WebmasterWork »
- Medien »
- Chat & IRC & Instant Messenger »
- Autovoice in TCL »

wyros

König

Dabei seit: 06.03.2003

Beiträge: 792

Sonntag, 5. Dezember 2004, 13:45

Hi, da die scripts von den gängigen scriptseiten nicht funzen frag ich hier mal:

kennt jemand ein funkktionierendes autovoice script für denn eggdrop ?

MfG

Save The Planet - Kill Yourself

Ich bin um zu denken, ich denke um zu sein

heinervdm

Technik-Admin

Dabei seit: 02.10.2002

Beiträge: 3 772

Montag, 6. Dezember 2004, 21:37

	Quellcode
1 2 3 4 5 6 7 8 9 10 11	bind join - * do_voice proc do_voice {nick host handle chan text} { if {$chan == "\#clan-tss"} { putserv "MODE $chan +v $nick" } }

das habe ich mal benutzt.

Über mich: www.heinervdm.de
Persönlich Mitteilungen an mich bitte als PN (nicht Email) hier im Forum. ICQ und Skype bitte nur in Notfällen.

sajez

Tripel-As

Dabei seit: 28.02.2003

Beiträge: 156

Samstag, 23. April 2005, 19:17

Das Script ist schon richtig, könnte aber ein wenig ausgebessert werden. Wenn das ganze auf nur einen Chan beschränkt sein soll und dieser Chan fest eingetragen ist, kann man ihn bereits im 'bind join' angeben. (bind join - "#chan *" do_voice).

Zu dem Vergleich mit '==' muss man sagen, dass er auch auf groß/klein Schreibung achtet. Vielleicht würde sich da ein '[string equal -nocase $chan "#chan"]' besser eignen.

Alle guten Dinge sind 3, darum noch ein 3. Vorschlag:

Anstatt 'putserv' würde ich empfehlen 'pushmode' zu verwenden (pushmode $chan +v $nick), da 'pushmode' die Modes sammelt bevor es sie setzt. Das ist Praktisch, wenn es zum Beispiel eine Join-Flood gibt.

Warum wird alles was ich anpacke illegal?

Autovoice in TCL

Quellcode