Begrüßungs script

Help for those learning Tcl or writing their own scripts.
Post Reply
B
Balu_der_Baer
Voice
Posts: 1
Joined: Sat Feb 18, 2006 4:56 am

Begrüßungs script

Post by Balu_der_Baer »

Hallo alle zusammen
Ich suche ein script welches den user bei eintritt in den chan begrüßst und sagt"hallo (nick) schön dich zu sehen setz dich fühl dich wohl du bist person nr (123456) und das ist dein (xxx) login. ich kenne so ein script vom angel bot.Währe super wenn mir jemand helfen könnte.
W
Winters
Voice
Posts: 29
Joined: Sat Jul 09, 2005 12:24 pm

Post by Winters »

Code: Select all

setudef str counter

bind join - * join:greet

proc join:greet {nick host hand chan} {
if {"[channel get $chan counter]" == ""} {
channel set $chan counter "0"
}
set id "[channel get $chan counter]"
channel set $chan counter "[expr $id + 1]"
putserv "privmsg $chan :Moin $nick schön dich in $chan zu sehen. Setz dich und fühl dich wohl. Du bist Person Nr. [expr $id +1]."
}
Das sollte klappen :)
Post Reply