in remote zette dit (moomoo enzo kunde wa aanpasse;)):

on *:text:!moomoo*:#:{
  /mp3 uiu $chan
}


on *:text:moomoo*:#:{
  /mp3 uiu $chan






in aliase dit:

/mp3 {
  set %mp3filename $dll(swamp.dll, WinAmpGet, TRACKFILENAME)
  set %mp4filename "  $+ %mp3filename $+ "
  set %mp5stuff $dll(dephmp3.dll,mp3read,%mp3filename)
  set %mp6stuff $replace(%mp5stuff,$chr(1),$chr(92))
  set %artist $gettok(%mp6stuff,2,92)
  set %biisi $gettok(%mp6stuff,1,92)
  set %levy $gettok(%mp6stuff,3,92)
  set %genre $gettok(%mp6stuff,4,92)

  ;tha name eg.: artist $+ , " $+ %biisi $+ " $+ , from the album: " $+ %levy $+ "
  set %output %artist - %levy - %biisi 
  if (%levy = NULL) set %output %artist - %biisi 
  if (%levy = $null) set %output %artist - %biisi 
  if (%levy < 0) set %output %artist - %biisi 

  if (%artist = NULL) set %output Unknown artist - %biisi 
  if (%artist = $null) set %output Unknown artist - %biisi 
  if (%artist < 0) set %output Unknown artist - %biisi 

  ;checking file: whether no id tag

  set %mp3 $dll(swamp.dll, WinAmpGet, TRACKFILENAME)
  set %mp3lenght $dll(swamp.dll, WinAmpGet, TRACKTIME )


  ;modifying the noidtag and placing it

  set %mp3tokens $numtok(%mp3,92)
  set %noidtag2 $gettok(%mp3,%mp3tokens,92)

  set %temp $calc(%mp3tokens - 1)

  set %noidtag1 $gettok(%mp3,%temp,92)

  set %noidtag %noidtag1 $+ \ $+ %noidtag2

  ;the displaying of the output:

  ;checking
  set %mp3 $dll(swamp.dll, WinAmpGet, ID3TAG)
  if (%mp3 < 0) set %output %noidtag

  if (%biisi = $null) set %output %noidtag
  if (%biisi = NULL) set %output %noidtag
  if (!%biisi)  set %output %noidtag

  set %size $round($calc($file(%mp3filename).size * 8 /1002.5),7)
  set %bitrate $round($calc(%size / %mp3lenght),0)
  set %size2 $mp3(%mp3filename).bitrate
  set %difference $round($calc(%bitrate - %size2))
  if (%difference < 5) set %bitrate $mp3(%mp3filename).bitrate
  unset %difference
  unset %size2
  unset %size
  set %biisi $round($calc(%mp3lenght / 60),2)

  set %mp3tokens $numtok(%mp3filename,46)
  set %noidtag2 $gettok(%mp3filename,%mp3tokens,46)

  if (%biisi = 1092.25) { msg $chan is listening to webcast: $chr(91)  $+ %mp3filename $+  $chr(93) | goto end }
  if (%output = 1\$null) { /echo $chan Winamp 2.x not running! :p | goto end }

  if ($1 = uiu) { msg $chan is listening to: %output ( $+ %bitrate $+ kbps $+ / $+  $round($calc(%mp3lenght / 60),2) $+ min $+ ) | goto end }

  if ($1 = $null) goto simple
  set %gugga <- $1-

  :simple

  if (%biisi = 1092.25) { /me is listening to webcast: $chr(91)  $+ %mp3filename $+  $chr(93) %gugga | goto end }
  if (%output = 1\$null) { /echo $chan Winamp 2.x not running! :p | goto end }

  /msg $chan np: %output ( $+ %bitrate $+ kbps $+ / $+  $round($calc(%mp3lenght / 60),2) $+ min $+ ) %gugga 

  :end
  unset %gugga
  unset %noidtag1
  unset %noidtag2
  unset %artist
  unset %mp3lenght
  unset %genre
  unset %levy
  unset %noidtag
  unset %output
  unset %woot
  unset %text
  unset %mp3
  unset %mp3tokens
  unset %temp
  unset %mp4filename
  unset %mp5stuff
  unset %mp6stuff
  unset %bitrate
  unset %noidtag0
  unset %biisi
  unset %noidtag2
  unset %mp3tokens
  unset %noidtag1
  unset %mp3
}