if {($tellsongs == 1) && ($oldsong != $cursong) && ($streamstatus == "isonline: 1") } {

if {$songurl != ""} { set songurl " ($songurl)"}

regsub -all "<" $cursong "<" cursong

regsub -all ">" $cursong ">" cursong

regsub -all "&" $cursong "+" cursong

regsub -all "&#x22;" $cursong "\"" cursong

regsub -all "&#x27;" $cursong "'" cursong

regsub -all "ÿ" $cursong "" cursong

poststuff privmsg "0,7Dj $stitle 0,4 Calan parca : 9,1 [lrange $cursong 1 [llength $cursong]]$songurl 0,4 Yayın türü <<<< 0,1 $sgenre 0,7 >>>> "

} 

regsub -all " & # x20; " $cursong "" cursong

regsub -all "<" $songs "<" songs
regsub -all ">" $songs ">" songs
regsub -all "&" $songs "+" songs
regsub -all "&#x22;" $songs "\"" songs
regsub -all "&#x27;" $songs "'" songs
regsub -all "ÿ" $songs "" songs
regsub -all "ö" $songs "ö" songs
regsub -all "ä" $songs "ä" songs
regsub -all "ü" $songs "ü" songs
regsub -all "Ö" $songs "Ö" songs
regsub -all "Ä" $songs "Ä" songs
regsub -all "Ü" $songs "Ü" songs
regsub -all "ß" $songs "ß" songs
regsub -all "ı" $songs "ı" songs
regsub -all "&" $songs "feat." songs
regsub -all "ç" $songs "ç" songs
regsub -all "ğ" $songs "ğ" songs
regsub -all "ı" $songs "ı" songs
regsub -all "İ" $songs "İ" songs
regsub -all "ö" $songs "ö" songs
regsub -all "ş" $songs "ş" songs
regsub -all "Ç" $songs "Ç" songs
regsub -all "Ğ" $songs "Ğ" songs
regsub -all "Ö" $songs "Ö" songs
regsub -all "Ş" $songs "Ş" songs
regsub -all "ü" $songs "ü" songs
regsub -all "Ü" $songs "Ü" songs
regsub -all "¿" $songs "¿" songs
regsub -all "<" $songs "<" songs
regsub -all "&#x86;" $songs "†" songs
regsub -all "ÿ" $songs "" songs
regsub -all "a" $songs "á" songs
regsub -all "b" $songs "ß" songs
regsub -all "i" $songs "í" songs
regsub -all "o" $songs "ó" songs
regsub -all "l" $songs "L" songs
regsub -all "I" $songs "Î" songs
regsub -all "e" $songs "é" songs
regsub -all "t" $songs "†" songs
regsub -all "y" $songs "¥" songs
regsub -all "c" $songs "¢" songs
regsub -all "o" $songs "Ó" songs
regsub -all "n" $songs "ñ" songs

regsub -all "<" $songtitle "<" songtitle
regsub -all ">" $songtitle ">" songtitle
regsub -all "&" $songtitle "+" songtitle
regsub -all "&#x22;" $songtitle "\"" songtitle
regsub -all "&#x27;" $songtitle "'" songtitle
regsub -all "ÿ" $songtitle "" songtitle
regsub -all "ö" $songtitle "ö" songtitle
regsub -all "ä" $songtitle "ä" songtitle
regsub -all "ü" $songtitle "ü" songtitle
regsub -all "Ö" $songtitle "Ö" songtitle
regsub -all "Ä" $songtitle "Ä" songtitle
regsub -all "Ü" $songtitle "Ü" songtitle
regsub -all "ß" $songtitle "ß" songtitle
regsub -all "ı" $songtitle "ı" songtitle
regsub -all "&" $songtitle "feat." songtitle
regsub -all "ç" $songtitle "ç" songtitle
regsub -all "ğ" $songtitle "ğ" songtitle
regsub -all "ı" $songtitle "ı" songtitle
regsub -all "İ" $songtitle "İ" songtitle
regsub -all "ö" $songtitle "ö" songtitle
regsub -all "ş" $songtitle "ş" songtitle
regsub -all "Ç" $songtitle "Ç" songtitle
regsub -all "Ğ" $songtitle "Ğ" songtitle
regsub -all "Ö" $songtitle "Ö" songtitle
regsub -all "Ş" $songtitle "Ş" songtitle
regsub -all "ü" $songtitle "ü" songtitle
regsub -all "Ü" $songtitle "Ü" songtitle
regsub -all "¿" $songtitle "¿" songtitle
regsub -all "<" $songtitle "<" songtitle
regsub -all "&#x86;" $songtitle "†" songtitle
regsub -all "ÿ" $songtitle "" songtitle
regsub -all "a" $songtitle "á" songtitle
regsub -all "b" $songtitle "ß" songtitle
regsub -all "i" $songtitle "í" songtitle
regsub -all "o" $songtitle "ó" songtitle
regsub -all "l" $songtitle "L" songtitle
regsub -all "I" $songtitle "Î" songtitle
regsub -all "e" $songtitle "é" songtitle
regsub -all "t" $songtitle "†" songtitle
regsub -all "y" $songtitle "¥" songtitle
regsub -all "c" $songtitle "¢" songtitle
regsub -all "o" $songtitle "Ó" songtitle
regsub -all "n" $songtitle "ñ" songtitle




regsub -all "<" $cursong "<" cursong
regsub -all ">" $cursong ">" cursong
regsub -all "&" $cursong "+" cursong
regsub -all "&#x22;" $cursong "\"" cursong
regsub -all "&#x27;" $cursong "'" cursong
regsub -all "ÿ" $cursong "" cursong
regsub -all "&" $cursong "feat." cursong
regsub -all "ç" $cursong "ç" cursong
regsub -all "ğ" $cursong "ğ" cursong
regsub -all "ı" $cursong "ı" cursong
regsub -all "İ" $cursong "İ" cursong
regsub -all "ö" $cursong "ö" cursong
regsub -all "ş" $cursong "ş" cursong
regsub -all "Ç" $cursong "Ç" cursong
regsub -all "Ğ" $cursong "Ğ" cursong
regsub -all "Ö" $cursong "Ö" cursong
regsub -all "Ş" $cursong "Ş" cursong
regsub -all "ü" $cursong "ü" cursong
regsub -all "Ü" $cursong "Ü" cursong
regsub -all "¿" $cursong "¿" cursong
regsub -all "<" $cursong "<" cursong
regsub -all "&#x86;" $cursong "†" cursong




regsub -all "<" $stitle "<" stitle
regsub -all ">" $stitle ">" stitle
regsub -all "&" $stitle "+" stitle
regsub -all "&#x22;" $stitle "\"" stitle
regsub -all "&#x27;" $stitle "'" stitle
regsub -all "ö" $stitle "ö" stitle
regsub -all "ä" $stitle "ä" stitle
regsub -all "ü" $stitle "ü" stitle
regsub -all "Ö" $stitle "Ö" stitle
regsub -all "Ä" $stitle "Ä" stitle
regsub -all "Ü" $stitle "Ü" stitle
regsub -all "ß" $stitle "ß" stitle
regsub -all "ı" $stitle "ı" stitle
regsub -all "&" $stitle "feat." stitle
regsub -all "ç" $stitle "ç" stitle
regsub -all "ğ" $stitle "ğ" stitle
regsub -all "ı" $stitle "ı" stitle
regsub -all "İ" $stitle "İ" stitle
regsub -all "ö" $stitle "ö" stitle
regsub -all "ş" $stitle "ş" stitle
regsub -all "Ç" $stitle "Ç" stitle
regsub -all "Ğ" $stitle "Ğ" stitle
regsub -all "Ö" $stitle "Ö" stitle
regsub -all "Ş" $stitle "Ş" stitle
regsub -all "ü" $stitle "ü" stitle
regsub -all "Ü" $stitle "Ü" stitle
regsub -all "¿" $stitle "¿" stitle
regsub -all "<" $stitle "<" stitle
regsub -all "&#x86;" $stitle "†" stitle
regsub -all "ÿ" $stitle "" stitle
regsub -all "a" $stitle "á" stitle
regsub -all "b" $stitle "ß" stitle
regsub -all "i" $stitle "í" stitle
regsub -all "o" $stitle "ó" stitle
regsub -all "l" $stitle "L" stitle
regsub -all "I" $stitle "Î" stitle
regsub -all "e" $stitle "é" stitle
regsub -all "t" $stitle "†" stitle
regsub -all "y" $stitle "¥" stitle
regsub -all "c" $stitle "¢" stitle
regsub -all "o" $stitle "Ó" stitle
regsub -all "n" $stitle "ñ" stitle



regsub -all "<" $sgenre "<" sgenre
regsub -all ">" $sgenre ">" sgenre
regsub -all "&" $sgenre "+" sgenre
regsub -all "&#x22;" $sgenre "\"" sgenre
regsub -all "&#x27;" $sgenre "'" sgenre
regsub -all "ö" $sgenre "ö" sgenre
regsub -all "ä" $sgenre "ä" sgenre
regsub -all "ü" $sgenre "ü" sgenre
regsub -all "Ö" $sgenre "Ö" sgenre
regsub -all "Ä" $sgenre "Ä" sgenre
regsub -all "Ü" $sgenre "Ü" sgenre
regsub -all "ß" $sgenre "ß" sgenre
regsub -all "ı" $sgenre "ı" sgenre
regsub -all "&" $sgenre "feat." sgenre
regsub -all "ç" $sgenre "ç" sgenre
regsub -all "ğ" $sgenre "ğ" sgenre
regsub -all "ı" $sgenre "ı" sgenre
regsub -all "İ" $sgenre "İ" sgenre
regsub -all "ö" $sgenre "ö" sgenre
regsub -all "ş" $sgenre "ş" sgenre
regsub -all "Ç" $sgenre "Ç" sgenre
regsub -all "Ğ" $sgenre "Ğ" sgenre
regsub -all "Ö" $sgenre "Ö" sgenre
regsub -all "Ş" $sgenre "Ş" sgenre
regsub -all "ü" $sgenre "ü" sgenre
regsub -all "Ü" $sgenre "Ü" sgenre
regsub -all "¿" $sgenre "¿" sgenre
regsub -all "<" $sgenre "<" sgenre
regsub -all "&#x86;" $sgenre "†" sgenre
regsub -all "ÿ" $sgenre "" sgenre
regsub -all "a" $sgenre "á" sgenre
regsub -all "b" $sgenre "ß" sgenre
regsub -all "i" $sgenre "í" sgenre
regsub -all "o" $sgenre "ó" sgenre
regsub -all "l" $sgenre "L" sgenre
regsub -all "I" $sgenre "Î" sgenre
regsub -all "e" $sgenre "é" sgenre
regsub -all "t" $sgenre "†" sgenre
regsub -all "y" $sgenre "¥" sgenre
regsub -all "c" $sgenre "¢" sgenre
regsub -all "o" $sgenre "Ó" sgenre
regsub -all "n" $sgenre "ñ" sgenre