Code:

################################################################################################################################                                                                                                                             # # LoReZ ShoutCast Script v2.1 (sc.tcl)                                                                                        ## Email: lorez@bigvibez.com                                                                                                   ## IRC: #bigvibez @ Quakenet                                                                                                   ##                                                                                                                             ## Please contact me if you notice any bugs                                                                                    ##                                                                                                                             ## Installation: Put the script and the config file into your scripts directory, add "source scripts/sc.tcl" to your eggdrop   ##               config and rehash the bot. (http package is REQUIRED for this script to work)                                 #                                                                                              ##                                                                                                                             ################################################################################################################################################################################################################################################################                                                START OF CONFIGURATION FOR SC.TCL                                            ################################################################################################################################### Stream Settings #### A Description for your Streamset sc::vars(desc) "Retter-Radio.de"# The IPdress of your Streamset sc::vars(ip) "123.45.678.910"# The Port on which ShoutCast runsset sc::vars(port) "8000"# The ID on which ShoutCast runs# set sc::vars(ID) "1"# The Password of your Streamset sc::vars(pass) "xxxxxxxxx" # The MIME encrypted Admin Password of your Stream (you can get it with mIRC by typing //echo -a $encode(admin:adminpassword,m)set sc::vars(adpass) "xxxxxxxxx"# The Channels on which the Bot shall react on Commandsset sc::vars(chans) "#retter-radio #retter-team"# The Intern Channel to which the Bot sends Wishes and Greets (if send Wishes and Greets to Intern Channel is activated)set sc::vars(intern) "#retter-team"# The File where the Data shall be storedset sc::vars(file) "scripts/sc.db"# The Flag required for kicking the Source and un/setting the DJset sc::vars(flag) ""# The Trigger used for Commandsset sc::vars(trigger) "!"### General Settings #### Enable Public Commands (0 = No | 1 = Yes)set sc::sets(pub) 1# Enable Message Commands (0 = No | 1 = Yes)set sc::sets(msg) 1# Reply In Channel (0 = No | 1 = Yes)set sc::sets(reply) 1# Where to send Wishes and Greets (0 = DJ | 1 = Intern Channel)set sc::sets(wishgreet) 0# Announce Track Changes (0 = No | 1 = Yes)set sc::sets(anntrack) 0# Announce Bitrate Changes (0 = No | 1 = Yes)set sc::sets(annbitrate) 0# Announce Listener Count Changes (0 = No | 1 = Yes)set sc::sets(annlist) 0# Announce Peak Changes (0 = No | 1 = Yes)set sc::sets(annpeak) 0# Announce DJ Changes (0 = No | 1 = Yes)set sc::sets(anndj) 1# Announce when Stream goes on/offline (0 = No | 1 = Yes)set sc::sets(ann) 0# Advertise Stream (0 = No | 1 = Yes)set sc::sets(adv) 0# Advertise every X Minutes set sc::sets(advtime) 15# Change Topic when Stream goes on/offlineset sc::sets(topchg) 1# Change Topic when the DJ Changesset sc::sets(djtopchg) 1# Change Topic with Q Bot (QuakeNet)set sc::sets(qtopic) 0    ### Command and Text Settings #### In the texts you can use these variables:# %listeners %peak %max %unique %avgtime %genre %url %title %song %songurl %irc %icq %aim %webhits %streamhits %bitrate %content %version %ip %port %desc %lastsongs %djnick %dj %showname %status# Stream Triggerset sc::triggers(stream) "stream"# Text when someone uses the Stream Triggerset sc::texts(stream) "Unser Stream: http://retter-radio.de:8000/listen.pls ..::.. Alternative !realpl ..::.. !wmp ..::.. !telefon"# Info Triggerset sc::triggers(info) "info"# Text when someone uses the Info Triggerset sc::texts(info) "Das Retter-Radio ist ein Webradio welches nicht nur fuer Alltagsretter spielt, ausserdem bieten wir einen Spielebereich auf unserer Seite an. Klick www.retter-radio.de"# Mod Triggerset sc::triggers(mod) "mod"# Text when someone uses the Mod Triggerset sc::texts(mod) "Jetzt sendet fuer euch: %dj"# Song Triggerset sc::triggers(song) "lied"# Text when someone uses the Song Triggerset sc::texts(song) "Jetzt laeuft: %song"# Hoerer Triggerset sc::triggers(hoerer) "hoerer"# Text when someone uses the Hoerer Triggerset sc::texts(hoerer) "Das erfaehrst Du vielleicht vom Moderator"# Plan Triggerset sc::triggers(plan) "plan"# Text when someone uses the Plan Triggerset sc::texts(plan) "Sendeplan: https://www.retter-radio.de/radioforum/sendeplan_ausgabe.php"# Stream Winamp Triggerset sc::triggers(winamp) "winamp"# Text when someone uses the Stream Winamp Triggerset sc::texts(winamp) "Winamp: http://retter-radio.de:8000/listen.pls"# Stream Realplayer Triggerset sc::triggers(realpl) "realpl"# Text when someone uses the Stream Realplayer Triggerset sc::texts(realpl) "RealPlayer: https://www.retter-radio.de/stream.ram"# Stream WMP Triggerset sc::triggers(wmp) "wmp"# Text when someone uses the Stream WMP Triggerset sc::texts(wmp) "Windows Media Player: https://www.retter-radio.de/listen.m3u"# Stream Telefon Triggerset sc::triggers(telefon) "telefon"# Text when someone uses the Stream Telefon Triggerset sc::texts(telefon) "Telefonstream: 0541 4444 17740 ..::.. Festnetztarif ..:::. Mit Flatrate zum Nulltarif"# Telefonwunsch Triggerset sc::triggers(telewunsch) "telewunsch"# Text when someone uses the Telefonwunsch Triggerset sc::texts(telewunsch) "Telefonwunsch -gruss: 0541 4444 17739 ..::.. Festnetztarif ..::.. Mit Flatrate zum Nulltarif "# Streamadressen Triggerset sc::triggers(streams) "streams"# Text when someone uses the Streamadressen Triggerset sc::texts(streams) " Unsere Streams: !winamp ..::.. !realpl ..::.. !wmp ..::.. !telefon"# Last Songs Triggerset sc::triggers(lsongs) "lastsongs"# Text when someone uses the Last Songs Triggerset sc::texts(lsongs) "davor gespielte Lieder: %lastsongs"### You can remove Commands by deleting or commenting a Trigger and a Text for the Command ###### You can also add Commands by setting up a Trigger and a Text for the Command. E.g.: #### Homepage Triggerset sc::triggers(hp) "hp"# Text when someone uses the Homepage Triggerset sc::texts(hp) "Homepage: www.retter-radio.de"    # Help Triggerset sc::triggers(help) "help"# Wish Trigger#set sc::triggers(wish) "wunsch"# Greet Trigger#set sc::triggers(greet) "gruss"# Greet Trigger#set sc::triggers(greet) "gruß"# Kick Triggerset sc::triggers(kick) "kick"# Set DJ Triggerset sc::triggers(setdj) "setdj"# Unset DJ Triggerset sc::triggers(unsetdj) "unsetdj"# Text that is advertised (if advertise Stream is activated)set sc::texts(adv) "tune in @ http://%ip:%port/listen.pls"# Text when Stream goes online (if announce when Stream goes on/offline is activated)set sc::texts(on) "Retter-Radio ist nun online Stream: http://www.retter-radio.de/listen.pls"# Text when Stream goes offline (if announce when Stream goes on/offline is activated)set sc::texts(off) "Retter-Radio ist momentan offline!"# Text for the Topic when Stream goes online (if change Topic when Stream goes on/offline is activated)set sc::texts(ontopic) ".. Willkommen im Chat von retter-radio.de :: Stream: http://retter-radio.de:8000/listen.pls :: Sendeplan: www.retter-radio.de/radioforum/sendeplan_ausgabe.php :: Aktuell auf Sendung: die Plattenkiste .."# Text for the Topic when Stream goes offline (if change Topic when Stream goes on/offline is activated)# set sc::texts(offtopic) ".. Willkommen im Chat von retter-radio.de :: Stream: http://retter-radio.de:8000/listen.pls :: Sendeplan: www.retter-radio.de/radioforum/sendeplan_ausgabe.php :: Retter-Radio ist momentan offline! .."# Text for the Topic when the DJ changes (if change Topic when DJ changes is activated)set sc::texts(djtopic) ".. Willkommen im Chat von retter-radio.de :: Stream: http://retter-radio.de:8000/listen.pls :: Sendeplan: www.retter-radio.de/radioforum/sendeplan_ausgabe.php :: Aktuell auf Sendung: %dj .."# Text when a new Song is playing (if announce when Track changes is activated)set sc::texts(songchg) "New Track playing: %song"# Text when the Listener Count changes (if announce when Listener Count changes is activated)set sc::texts(listchg) "There are now %listeners (%unique) of %max people listening"# Text when the Bitrate Changes (if announce when Bitrate changes is activated)set sc::texts(bitratechg) "Bitrate changed to %bitrate"# Text when the Peak changes (if announce when Peak changes is activated)set sc::texts(peakchg) "New Peak: %peak"# Text when the DJ changes (if announce when DJ changes is activated)set sc::texts(djchg) "Jetzt sendet für euch %dj"# Text when Stream is offline and someone uses a Commandset sc::texts(offcmd) "Der Stream laeuft aber ich der RetterBote kann ihn nicht auslesen ... darum momentan offline"    ################################################################################################################################                                                 END OF CONFIGURATION FOR SC.TCL                                             ################################################################################################################################

Code:

################################################################################################################################ # # LoReZ ShoutCast Script v2.1 (sc.tcl)## Email: lorez@bigvibez.com   ## IRC: #bigvibez @ Quakenet   ## ## Please contact me if you notice any bugs## ## Installation: Put the script and the config file into your scripts directory, add "source scripts/sc.tcl" to your eggdrop   ##   config and rehash the bot. (http package is REQUIRED for this script to work) ### Version v2.3.1 by virtu @ 06.04.2014  ## ################################################################################################################################################################################################################################################################  START OF TCL CODE  ################################################################################################################################package require httpbind pub - !wunsch wunschbind pub - !gruss greetnamespace eval sc {variable varsvariable setsvariable triggersvariable textsvariable offadv 0source scripts/sc.cfgproc init {} {set start [clock clicks]set sc::offadv 0bind time - "* * * * *" sc::checkbind nick - * sc::nickforeach x [array names sc::triggers] {if {$sc::sets(pub) == 1} {bind pub [expr {($x == "kick") || ($x == "setdj") || ($x == "unsetdj") ? "$sc::vars(flag)" : "-"}] $sc::vars(trigger)$sc::triggers($x) "sc::pub $x"}if {$sc::sets(msg) == 1} {bind msg [expr {($x == "kick") || ($x == "setdj") || ($x == "unsetdj") ? "$sc::vars(flag)" : "-"}] $sc::vars(trigger)$sc::triggers($x) "sc::msg $x"}}if {$sc::sets(adv) == 1} {timer $sc::sets(advtime) "sc::post privmsg none all {$sc::texts(adv)}"}putlog "sc.tcl v2.3.1 by LoReZ and virtu successfully initialized in [expr {([clock clicks]-$start)/1000.0}]ms"}proc pub {text nick uhost hand chan arg} {if {([lsearch -exact [string tolower $sc::vars(chans)] [string tolower $chan]] != -1) || ($sc::vars(chans) == "")} {sc::cmd $text $nick $chan $arg}}proc msg {text nick uhost hand arg} {sc::cmd $text $nick none $arg}proc nick {nick uhost hand chan newnick} {set tmp [open $sc::vars(file) r]gets $tmp streamdatagets $tmp songdatagets $tmp djdataclose $tmpif {$nick == [lindex $djdata 0]} {set tmp [open $sc::vars(file) w+]puts $tmp $streamdataputs $tmp $songdataputs $tmp "$newnick [expr {([lindex $djdata 1] == $nick) ? $newnick : [lindex $djdata 1]}] [lrange $djdata 2 end]"close $tmpif {([lindex $djdata 1] == $nick) && ($sc::sets(djtopchg) == 1)} {#sc::post topic none all "$sc::texts(djtopic)"}}}proc cmd {text nick chan arg} {set args [split $arg]if {[file exists $sc::vars(file)] != 1} {sc::check * * * * *}set tmp [open $sc::vars(file) r]gets $tmp streamdatagets $tmp songdatagets $tmp djdataclose $tmpswitch -exact $text {help {set sc::offadv 1putquick "privmsg $nick :Available Commands:"foreach x [array names sc::triggers] {if {$x != "help"} {if {(([matchattr [nick2hand $nick $chan] +$sc::vars(flag) $chan] != 1) && ($x != "kick") && ($x != "setdj") && ($x != "unsetdj")) || ([matchattr [nick2hand $nick $chan] +$sc::vars(flag) $chan] == 1)} {set sc::offadv 1putquick "privmsg $nick :$sc::vars(trigger)[expr {($x == "setdj") ? "$sc::triggers($x)" : [expr {(($x == "wish") || ($x == "greet")) ? "$sc::triggers($x) <$x>" : "$sc::triggers($x)"}]}]"  }}}set sc::offadv 1putquick "privmsg $nick :End of Commands"}kick {if {$chan ne $sc::vars(intern) || (![isop $nick $chan] && ![ishalfop $nick $chan])} {return}putquick "privmsg $nick :Source successfully kicked"if {[lindex $streamdata 15] == 1} {set sock [socket $sc::vars(ip) $sc::vars(port)]puts $sock "GET /admin.cgi?mode=kicksrc HTTP/1.1"                              puts $sock "User-Agent:Mozilla"puts $sock "Host: $sc::vars(ip)"puts $sock "Authorization: Basic $sc::vars(adpass)"puts $sock ""flush $sock}}setdj {if {$chan ne $sc::vars(intern) || (![isop $nick $chan] && ![ishalfop $nick $chan])} {return}putquick "PRIVMSG $chan :Du bist jetzt der DJ vom Retter-Radio, bitte setze ein Motto z.B. !motto Rock"if {[lindex $streamdata 15] == 1} {set tmp [open $sc::vars(file) w+]puts $tmp $streamdataputs $tmp $songdataputs $tmp [list $nick [expr {([lindex $args 0] == "") ? $nick : [lindex $args 0]}] [lrange $args 1 end]]close $tmpif {$sc::sets(anndj) == 1} {sc::post privmsg none all "$sc::texts(djchg)"}if {$sc::sets(djtopchg) == 1} {sc::post topic none all "$sc::texts(djtopic)"}}}unsetdj {                if {$chan ne $sc::vars(intern) || (![isop $nick $chan] && ![ishalfop $nick $chan])} {return}                putquick "PRIVMSG $chan :Du bist nicht mehr der DJ vom Retter-Radio"                channel set $::radioIntern motto "Unsere Plattenkiste spielt ueberwiegend Musik der 80er Jahre"                if {[lindex $streamdata 15] == 1} {                    set tmp [open $sc::vars(file) w+]                                                  puts $tmp $streamdata                    puts $tmp $songdata                    puts $tmp "none none none"                    close $tmp                    if {$sc::sets(anndj) == 1} {                        sc::post privmsg none all "$sc::texts(djchg)"                    }                    if {$sc::sets(djtopchg) == 1} {                        sc::post topic none all "$sc::texts(ontopic)"                    }                }            }default {if {($text != "wish") && ($text != "greet")} {sc::post privmsg $nick $chan "$sc::texts($text)"} else {if {[lindex $streamdata 15] == 1} {if {($arg == "{}")} {putquick "privmsg $nick :Nothing specified"} else {sc::post privmsg $nick none "$sc::texts(offcmd)"}}}}}putlog "sc.tcl v2.3.1 $nick used $sc::vars(trigger)$sc::triggers($text)"}   proc check {min hour day month year} {set start [clock clicks]if {[file exists $sc::vars(file)] == 1} {set tmp [open $sc::vars(file) r]gets $tmp olddatagets $tmp songdatagets $tmp djdataclose $tmp} else {set olddata "0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0"set djdata "none none none"}http::config -useragent "Mozilla 5.0"set con [http::geturl http://$sc::vars(ip):$sc::vars(port)/statistics -timeout 10000]set urldata [http::data $con]http::cleanup $con foreach {y z} {21 ! 22 \" 23 # 24 \$ 25 % 26 + 27 ' 28 \( 29 \) 2A * 2B + 2C , 2E . 2F / 3A : 3B \; 3C < 3D = 3E > 3F ? 40 @ 5B \[ 5C \\ 5D \] 5F _ 60 ` C0 À C1 Á C2 Â C3 Ã C4 Ä C5 Å C6 Æ C7 Ç C8 È C9 É CA Ê CB Ë CC Ì CD Í CE Î CF Ï D1 Ñ D2 Ò D3 Ó D4 Ô D5 Õ D6 Ö D9 Ù DA Ú DB Û DC Ü DD Ý DF ß E0 à E1 á E2 â E3 ã E4 ä E5 å E6 æ E7 ç E8 è E9 é EA ê EB ë EC ì ED í EE î EF ï F0 ð F1 ñ F2 ò F3 ó F4 ô F5 õ F6 ö F9 ù FA ú FB û FC ü FD ý FE þ FF ÿ} {regsub -all "&#x$y;" $urldata "$z" urldata }regsub -all ".*<SHOUTCASTSERVER>" $urldata "" data1regsub -all "<WEBDATA>.*" $data1 "" data1regsub -all ".*<SONGHISTORY>" $urldata "\{" data2regsub -all "</SONGHISTORY>.*" $data2 " \}" data2set x 0foreach y {CURRENTLISTENERS PEAKLISTENERS MAXLISTENERS REPORTEDLISTENERS AVERAGETIME SERVERGENRE SERVERURL SERVERTITLE SONGTITLE SONGURL IRC ICQ AIM WEBHITS STREAMHITS STREAMSTATUS BITRATE CONTENT VERSION SONG PLAYEDAT TITLE} {if {$x < 19} {regsub -all ".*<$y>" $data1 "" data10regsub -all "</$y>.*" $data10 "" data10lappend streamdata [expr {(($data10 == "0") || ($data10 == "")) && ([string match -nocase *listeners "$y"] != 1) && ([string match -nocase *hits "$y"] != 1) && ([string match -nocase *time "$y"] != 1) ? "N/A" : $data10}]}if {$x > 18} {regsub -all "<$y>" $data2 "\{" data2regsub -all "</$y>" $data2 "\} " data2}incr x}set tmp [open $sc::vars(file) w+]puts $tmp $streamdataputs $tmp $data2puts $tmp $djdataclose $tmpif {[lindex $olddata 15] != [lindex $streamdata 15]} {if { ($sc::sets(ann) == 1)} {set sc::offadv [expr {([lindex $streamdata 15] == 1) ? 0 : 1}]sc::post privmsg none all "[expr {([lindex $streamdata 15] == 1) ? $sc::texts(on) : $sc::texts(off)}]"}if {$sc::sets(topchg) == 1} {set sc::offadv [expr {([lindex $streamdata 15] == 1) ? 0 : 1}]sc::post topic none all "[expr {([lindex $streamdata 15] == 1) ? $sc::texts(ontopic) : $sc::texts(offtopic)}]"}}foreach {x y z} {8 anntrack songchg 0 annlist listchg 1 annpeak peakchg 16 annbitrate bitratechg} {if {([lindex $olddata $x] != [lindex $streamdata $x]) && ($sc::sets($y) == 1)} {sc::post privmsg all all "$sc::texts($z)"}}putlog "sc.tcl v2.3.1 received information from $sc::vars(ip):$sc::vars(port) in [expr {([clock clicks]-$start)/1000.0}]ms"}  proc post {mode nick chan text} {set tmp [open $sc::vars(file) r]gets $tmp streamdatagets $tmp songdatagets $tmp djdataclose $tmpif {([lindex $streamdata 15] == 1) || ($sc::offadv == 1)} {foreach x [lindex $songdata 0] {append lastsongs "[lindex $x 1] :: "}lappend streamdata $sc::vars(ip) $sc::vars(port) $sc::vars(desc) ":: $lastsongs" [expr {(([lindex $djdata 0] == "none") || ([lindex $djdata 0] == "{}") || ([lindex $djdata 0] == "")) ? "No DJ" : [lindex $djdata 0]}] [expr {(([lindex $djdata 1] == "none") || ([lindex $djdata 1] == "{}") || ([lindex $djdata 1] == "")) ? "No DJ" : [lindex $djdata 1]}] [expr {(([lindex $djdata 2] == "none") || ([lindex $djdata 2] == "{}") || ([lindex $djdata 2] == "")) ? "No Show" : [lrange $djdata 2 end]}] [expr {([lindex $streamdata 15] == 1) ? "online" : "offline"}]set x 0foreach y {listeners peak max unique avgtime genre url title song songurl irc icq aim webhits streamhits streamstatus bitrate content version ip port desc lastsongs djnick dj showname status} {regsub -all "%$y" $text "[lindex $streamdata $x]" textincr x}if {$mode == "topic"} {foreach chans [channels] {if {$sc::vars(chans) == ""} {if {$sc::sets(qtopic) == 1} {putquick "privmsg TheQBot@CServe.quakenet.org :SETTOPIC $chans $text"} else {putquick "$mode $chans :$text"}} else {if {([lsearch -exact [string tolower $sc::vars(chans)] [string tolower $chans]] != -1)} {if {$sc::sets(qtopic) == 1} {putquick "privmsg TheQBot@CServe.quakenet.org :SETTOPIC $chans $text"} else {putquick "$mode $chans :$text"}}}}} else {if {($sc::sets(reply) != 1) || ($chan == "none")} {putquick "$mode $nick :$text"}if {$chan ne "none"} {putquick "$mode $chan :$text"} elseif {(($sc::sets(reply) == 1) && ($chan != "none")) || ($chan == "all")} {foreach chans [channels] {if {$sc::vars(chans) == ""} {putquick "$mode $chans :$text"} else {if {([lsearch -exact [string tolower $sc::vars(chans)] [string tolower $chans]] != -1)} {putquick "$mode $chans :$text"}}}}}} else {putquick "$mode [expr {((($sc::sets(reply) != 1) || ($chan == "none")) && ($chan != "all")) ? $nick : $chan}] :$sc::texts(offcmd)"}set sc::offadv 0}proc streaminfo {id} {set tmp [open $sc::vars(file) r]gets $tmp streamdatagets $tmp songdatagets $tmp djdataclose $tmplindex $streamdata [lsearch -exact -nocase {listeners peak max unique avgtime genre url title song songurl irc icq aim webhits streamhits streamstatus bitrate content version ip port desc lastsongs djnick dj showname status} $id]}sc::init}proc wunsch {nick host hand chan arg} {global ::wishgreet waittime scset hostname "*!$host"set args [split $arg]if {[file exists $sc::vars(file)] != 1} {sc::check * * * * *}set tmp [open $sc::vars(file) r]gets $tmp streamdatagets $tmp songdatagets $tmp djdataclose $tmpif {[info exists ::waittime($hostname)]} { return }if {[lindex $streamdata 15] == 1} {if {($arg == "{}")} {putquick "privmsg $nick :Nothing specified"} else {if {([lindex $djdata 1] == "none") || (${::wishgreet:on} == 0)} {putquick "PRIVMSG $chan :Momentan werden keine Wuensche akzeptiert."} else {putserv "PRIVMSG [expr {($sc::sets(wishgreet) == 1) ? $sc::vars(intern) : [lindex $djdata 0]}] :Wunsch von $nick: $arg"putquick "NOTICE $nick :Dein Wunsch wurde an den Moderator weitergeleitet. Bitte habe Verstaendnis dafuer, dass es dauern kann bis dieser gespielt wird!"set waittime($hostname) "1"utimer 60 [list unset ::waittime($hostname)]puthelp "NOTICE $nick :..... Deinen naechsten Wunsch kannst Du in 60 Sekunden wieder abgeben. Bitte habe Verstaendnis dafuer."}}} else {sc::post privmsg $nick none "$sc::texts(offcmd)"}putlog "sc.tcl v2.3.1 $nick used !wunsch"}proc greet {nick host hand chan arg} {global ::wishgreet waittime sc ::greetset hostname "*!$host"set args [split $arg]if {[file exists $sc::vars(file)] != 1} {sc::check * * * * *}set tmp [open $sc::vars(file) r]gets $tmp streamdatagets $tmp songdatagets $tmp djdataclose $tmpif {[info exists ::waittime($hostname)]} { return }if {[lindex $streamdata 15] == 1} {if {($arg == "{}")} {putquick "privmsg $nick :Nothing specified"} else {if {([lindex $djdata 1] == "none") || (${::wishgreet:on} == 0) && (${::greet:on} == 0)} {putquick "PRIVMSG $chan :Momentan werden keine Gruesse akzeptiert."if (${::wishgreet:on} == 0) && (${::greet:on} == 1)} {putserv "PRIVMSG [expr {($sc::sets(wishgreet) == 1) ? $sc::vars(intern) : [lindex $djdata 0]}] :Gruss von $nick: $arg"putquick "NOTICE $nick :Dein Gruss wurde an den Moderator weitergeleitet."set waittime($hostname) "1"utimer 30 [list unset ::waittime($hostname)]puthelp "NOTICE $nick :..... Deinen naechsten Gruss kannst Du in 30 Sekunden wieder abgeben. Bitte habe Verstaendnis dafuer."}}} else {sc::post privmsg $nick none "$sc::texts(offcmd)"}putlog "sc.tcl v2.3.1 $nick used !gruss"}################################################################################################################################   END OF TCL CODE   ################################################################################################################################