//load functions
^assign song_channel #music
####@ current_song = ""
^on ^exec supermuzik {
	@ buffer = [$1-]
	@ timer = [$pop(buffer)]

	if ([$current_song]!=[$buffer]) {
		@ current_song = [$buffer]

		//^timer -delete 456

		@ cntr = id = 0
		while ([$cntr] < [$#buffer]) {
			@ cw = [$word($cntr $buffer)]
			if ( [$cw] != [+0+] ) {
				@ xmmsinfo.$id = [$xmmsinfo[$id]] ## [ ] ## cw
			} {
				@ id = id + 1
			}
			@ cntr = cntr + 1
		}
		if ([$xmmsinfo.3]==[]) {
			//describe $song_channel is listening some junk?! \($xmmsinfo.0 \) \[$xmmsinfo.1 \]
		}{
			//describe $song_channel is listening$xmmsinfo.0 -$xmmsinfo.1 \($xmmsinfo.2,$xmmsinfo.3 \) \[$xmmsinfo.4 \]
		}
		foreach xmmsinfo ii {^assign -xmmsinfo.$ii};^assign -ii
	}

	if ([$timer]> [0]) {
		//^timer -refnum 456 $timer song_checkup
	}{
		//^timer -refnum 456 60 song_checkup
	}
	^assign -buffer
	^assign -timer
}

alias song_stop {
		//^timer -delete 456
		^assign -current_song
}
alias song_checkup {exec -name supermuzik exec xmmsinfo-irc-helper.pl}
song_checkup