Code:

#playlist scan by #@homer#version 0.5#email fkhg1@web.de (reason scriptname.tcl)#icq 92566354#simple make a playlist of all your mp3's or what you whant#than put it into a direcory (simple ~/playlists/playlist01.htm or what you whant)#use !addpl Playlist1 ~/playlists/playlist01.html (be sure that you are bot owner)#if you whant to donate me paypal: fkhg1@web.de#if you have any problems with the script just visit me#my homepage www.homer-im-bett.de.vu##i have made this script for the radio #dynamix in irc.quakenet.org www.rautedynamix.de#if you have any good ideas what i can code just visit me :D i have a lot of time ^^#copyright 2004 homer^im^bett Florian K.bind pub n !addpl apppbind pub - !setcurrent scurrbind pub - !playlist plsearch#do not change or ripp anything under this line:#-----------------------------------------------proc searchlist {listname nick strings} {if {![file exists $listname]} {putserv "NOTICE $nick :Playlist Not Found"varin ~/stream.txt scan noreturn noplaylist}if {[file exists $listname]} {set fs [open $listname r]set found 0regsub -all " " $strings "*" blagets $fs pointwhile {![eof $fs]} {if {[string match -nocase "*$bla*" $point]} {incr foundset output($found) $point}gets $fs point}close $fsif {$found == 0} {putserv "NOTICE $nick :nothing found!!!"varin ~/stream.txt scan noreturn found0}if {$found <= 5} {set afound 1while {$afound <= $found} {regsub -all "<BR>" $output($afound) "" textregsub -all "<br>" $text "" textputhelp "NOTICE $nick :$afound / $found found: $text"incr afound}varin ~/stream.txt scan noreturn afterwhile}if {$found >= 5} {putserv "NOTICE $nick :too many matches ($found) show the first 5 matches"set afound 1while {$afound <= 5} {regsub -all "<BR>" $output($afound) "" textregsub -all "<br>" $text "" textputhelp "NOTICE $nick :$afound / $found found: $text"incr afound}}}varin ~/stream.txt scan no}proc appp {nick host handle chan text} {if {$text == ""} {putserv "NOTICE $nick :Syntax: !addpl NAME OF HTML PLAYLIST ~/playlists/XXXXX.html \"!addpl play01 ~/playlists/play01.html\""return help}addpl $nick [lindex $text 0] [lindex $text 1] $chan }proc addpl { nick plname pl chan } {if {![file exists $pl]} {putserv "NOTICE $nick :PlayList Not Found"return noplaylist}if {[file exists $pl]} {varin ~/playlists.txt $plname $plputserv "NOTICE $nick :playlist saved as: $plname"putserv "PRIVMSG $chan :playlist: $pl : $nick name: $plname"return everythingdone}}proc scurr {nick host handle chan text} {if {[lindex $text 0] == ""} {putserv "NOTICE $nick :!setcurrent playlistname"return 0}if {![file exists [varout ~/playlists.txt [lindex $text 0]]]} {putserv "PRIVMSG $chan :playlist not in list"return 1}if {[varout ~/playlists.txt [lindex $text 0]] == "0"} {putserv "PRIVMSG $chan :playlist not in list"return 2}if {[varout ~/playlists.txt [lindex $text 0]] != "0"} {varin ~/stream.txt current [varout ~/playlists.txt [lindex $text 0]]varin ~/stream.txt curpl [lindex $text 0]putserv "PRIVMSG $chan :playlist set to: [varout ~/playlists.txt [lindex $text 0]]"return 10000}}proc plsearch {nick host handle chan text} {if {[varout ~/stream.txt curpl] == 0} {putserv "NOTICE $nick :Playlist not loadet"return nopl}if {[varout ~/stream.txt current] == 0} {putserv "NOTICE $nick :Playlist not loadet"return nopl}if {[varout ~/stream.txt scan] == "scan"} {putserv "NOTICE $nick :Please wait"return already}if {$text == ""} {putserv "NOTICE $nick :syntax: !playlist string to search"return 0}if {[llength [split $text ""]] <= 2} {putserv "NOTICE $nick :string to short must be longer than 3 letters"return 2short}varin ~/stream.txt scan scanputserv "NOTICE $nick :Scanning playlist: [varout ~/stream.txt curpl]"searchlist [varout ~/stream.txt current] $nick [lrange $text 0 end]return 0}##### one piece of my var.tcl normal it is very big if you whant it contact me in irc.quakenet.org #@homer ######copyright 2004 homer^im^bett Florian K.#do not change or ripp anything under this line:#-----------------------------------------------proc varin {storeplace var text} {if {![file exists $storeplace]} {set fs [open $storeplace w]puts $fs ""close $fs}set change 0set fs [open $storeplace r]set tmpfs [open $storeplace.tmp w]while {![eof $fs]} {gets $fs lineif {[lindex $line 0] != $var && [lindex $line 0] != ""} {puts $tmpfs "$line"}if {[lindex $line 0] == $var} {puts $tmpfs "$var [lrange $text 0 end]"set change 1}}if {!$change} {puts $tmpfs "$var [lrange $text 0 end]"}close $fsclose $tmpfsset fs [open $storeplace.tmp r]set grrr "[read $fs]"close $fsset fs [open $storeplace w]puts $fs "$grrr"close $fsreturn 0}proc varout {storeplace var} {if {![file exists $storeplace]} {return file!exists}set fs [open $storeplace r]set varX 0set ende 0while {![eof $fs] || !$ende} {gets $fs lineif {[lindex $line 0] == $var} {close $fsreturn [lrange $line 1 end]set varX [lrange $line 1 end]set ende 1}if {$line == ""} {close $fsreturn 0}}close $fsreturn $varX}