;*******
;* GET *
;*******


on *:text:!get*:*: {if ( $2 = %getmp3 ) {
  /dcc send $nick ( " $+ $dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, TRACKFILENAME)),.mp3),_,$chr(32)) $+ $chr(34) $+ $chr(32) $+ )
}

on *:LOAD: {
  echo -a Vous avez chargé le Script Winamp Status
  echo -a Utilisable avec toutes les version de mIRC depuis la 5.91. (compatible Fate Script)
  echo -a Utilisez les Menus ou la commande /wa pour afficher votre Status Winamp
}

menu query,nicklist,menubar,channel {
  -
  ; Lancer WinAmp:/run C:\Program Files\Winamp\winamp.exe


  Dire la music sur le chan : wa

  Get $$1:  {/say !get $$1 
}

alias wa {
  if ($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, INSTALLED) == $false) { say $ampnoinstal | halt }
  if ($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, RUNNING) == $false) { say $ampquit | halt }
  if ($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, STATE) == Playing) { /ampplaying | halt } 
  if ($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, STATE) == Paused) { say $amppaused | halt } 
  if ($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, STATE) == Stopped) { say $ampstopped | halt }
}

on *:text:!infos*:*: {
  /mp3gen $gettok( %switches, 1, 32 ) $active $gettok( %switches, 2-, 32 )
  /notice $nick TITRE : $mp3( %mp3.filename ).title
  if ( $mp3( %mp3.filename ).artist ) {
    /notice $nick AUTEUR : $mp3( %mp3.filename ).artist
  }
  if ( $mp3( %mp3.filename ).album ) {
    /notice $nick ALBUM : $mp3( %mp3.filename ).album
  }
  if ( $mp3( %mp3.filename ).track ) {
    /notice $nick TRACK : $mp3( %mp3.filename ).track
  }
  /notice $nick TAILLE : %mp3.size3
  /notice $nick LONGUEUR : $replace($duration($dll($shortfn($mircdirampstatus\swamp.dll), ;WinAmpGet, TRACKTIME)),hrs,h,hr,h,mins,m,secs,s,sec,s) ;$prcbar($int($calc(($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, PLAYEDTIME) / ;$calc($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, TRACKTIME) * 1000)) * 100)))
  /notice $nick BITRATE : %mp3.bitrate3 %mp3.rate
  if ( $mp3( %mp3.filename ).track ) {
    /notice $nick VERSION : $mp3( %mp3.filename ).version
  }
}




alias ampplaying { 
  /mp3gen $gettok( %switches, 1, 32 ) $active $gettok( %switches, 2-, 32 ) 
  %mp3.type = $gettok( $nopath(%mp3.filename), $numtok( $nopath(mp3.filename), 46 ), 46 )
  if ( %mp3.type != avi ) {
    /Set %getmp3 $me
    /say 9Esco8baRS4cripT 9donne 8du 4son  7!Get $me 7«13  %mp3.title - %mp3.album %mp3.time  %mp3.bitrate %mp3.playlist %mp3.mode %mp3.size 7»    
    /say 9Esco8baRS4cripT 7!9in8f4os $me 7«9 Pour 8les 4infos 9s8u4r 7ce 9M8P4.37>>    

  }
  else {
    /say  $+ %mp3.color1 $+ (Winamp %mp3.version $+ )  $+ %mp3.color1Play Video ( $+ %mp3.color2 $+ %mp3.title $+  $+ %mp3.color1 $+ ) %mp3.time
  }
}
alias mp3gen {

  /unset %mp3.*
  if ( $left( $1, 1 ) == - ) {
    %mp3.switches = $1
    %mp3.channel = $$2
  }
  else {
    %mp3.channel = $$1
  }

  if ( $version < 5.91 ) {
    echo %mp3.channel 4ATTENTION! Télécharge mIRC 5.91 pour que ca fonctionne .
    halt
  }


  if ( !$dll( ampstatus\swamp.dll, WinAmpGet, RUNNING ) ) {
    if ( w isin %mp3.switches ) {
      if ( c isin %mp3.switches ) {
        if ( ($3 isnum 0-15) && ($4 isnum 0-15) && (c !isin $gettok( $chan( %mp3.channel ).mode, 1, 32 )) ) {
          %mp3.color1 = $3
          if ( $len( %mp3.color1 ) == 1 ) {
            %mp3.color1 = $+( 0, $3 )
          }
          %mp3.color2 = $4
          if ( $len( %mp3.color2 ) == 1 ) {
            %mp3.color2 = $+( 0, $4 )
          }
          %mp3.color1 = $+( , %mp3.color1 )
          %mp3.color2 = $+( , %mp3.color2 )
        }
        else {
          %mp3.color1 = 04
          %mp3.color2 = 14
        }
      }

      msg %mp3.channel $+( %mp3.color1, [mp3, %mp3.color1, $chr( 124 ), %mp3.color2, Winamp est charger, %mp3.color1, ] )
    }
    halt
  }

  %mp3.filename = $dll( ampstatus\swamp.dll, WinAmpGet, TRACKFILENAME )
  %mp3.filetypes = mp2;mp3;wav;mid;
  if ( $gettok( %mp3.filename, $numtok( %mp3.filename, 46 ), 46 ) == cda ) {
    %mp3.cd = 1
    dll ampstatus\swamp.dll WinAmpCmd SAVEPLAYLIST
    %mp3.winampdir = $+( $dll( ampstatus\swamp.dll, WinAmpGet, DIRECTORY ), WinAmp.m3u )
    %mp3.temp = $read( %mp3.winampdir, sn, %mp3.filename )
    %mp3.temp = $read( %mp3.winampdir, n, $calc( $readn - 1 ) )
    %mp3.title = $gettok( %mp3.temp, 2, 44 )
  }
  elseif ( http://*:* iswm %mp3.filename ) {
    %mp3.shoutcast = 1
    %mp3.title = %mp3.filename
  }
  elseif ( f isin %mp3.switches ) {
    if ( a isin %mp3.switches ) {
      %mp3.title = $gettok( %mp3.filename, $+( $calc( $numtok( %mp3.filename, 92 ) - 1 ), - ), 92 )
    }
    else {
      %mp3.title = $replace( $nopath( %mp3.filename ), _, $chr( 32 ) )
    }
    %mp3.temp = $+( $gettok( %mp3.title, $numtok( %mp3.title, 46 ), 46 ), ; )
    if ( (%mp3.temp isin %mp3.filetypes) && (e !isin %mp3.switches) ) {
      %mp3.title = $gettok( %mp3.title, $+( 1-, $calc( $numtok( %mp3.title, 46 ) - 1 ) ), 46 )
    }
  }
  else {
    %mp3.id3 = $mp3( %mp3.filename ).artist
    if ( !%mp3.id3 ) {
      %mp3.id3 = $replace( $nopath( %mp3.filename ), _, $chr( 32 ) )
    }
    %mp3.temp = $mp3( %mp3.filename ).title
    if ( !%mp3.temp ) {
      %mp3.id3 = $+( %mp3.id3, $chr( 32 ), Unknown Track )
    }
    else {
      %mp3.id3 = $+( %mp3.id3, $chr( 32), -, $chr( 32 ), %mp3.temp )
    }
    if ( %mp3.id3 == Unknown Artist - Unknown Track ) {
      %mp3.title = $replace( $nopath( %mp3.filename ), _, $chr( 32 ) )
      %mp3.temp = $+( $gettok( %mp3.title, $numtok( %mp3.title, 46 ), 46 ), ; )
      if ( (%mp3.temp isin %mp3.filetypes) && (e !isin %mp3.switches) ) {
        %mp3.title = $gettok( %mp3.title, $+( 1-, $calc( $numtok( %mp3.title, 46 ) - 1 ) ), 46 )
      }
    }
    else {
      %mp3.title = %mp3.id3
    }
  }

  if ( (c isin %mp3.switches) && ($3 isnum 0-15) && ($4 isnum 0-15) && (c !isin $gettok( $chan( %mp3.channel ).mode, 1, 32 )) ) {
    %mp3.color1 = $3
    if ( $len( %mp3.color1 ) == 1 ) {
      %mp3.color1 = $+( 0, $3 )
    }
    %mp3.color2 = $4
    if ( $len( %mp3.color2 ) == 1 ) {
      %mp3.color2 = $+( 0, $4 )
    }
    %mp3.color1 = $+( , %mp3.color1 )
    %mp3.color2 = $+( , %mp3.color2 )
  }
  elseif ( (c isin %mp3.switches) && ($3 !isnum 0-15) && ($4 !isnum 0-15) ) {
    unset %mp3.color1
    unset %mp3.color2
  }
  elseif ( c !isin $gettok( $chan( %mp3.channel ).mode, 1, 32 ) ) {
    %mp3.color1 = 10
    %mp3.color2 = 09
  }

  if ( (u isin %mp3.switches) && (t !isin %mp3.switches) && !%mp3.shoutcast ) {
    %mp3.temp = $mp3duration( $dll( ampstatus\swamp.dll, WinAmpGet, TRACKTIME ) )
    %mp3.time = $+ %mp3.color1, $chr( 124 ), %mp3.color2, %mp3.temp )
  }
  if ( %mp3.shoutcast ) {
    %mp3.time = connected: $gettok( $calc( $dll( ampstatus\swamp.dll, WinAmpGet, PLAYEDTIME ) / 1000 ), 1, 46 )
  }
  else {
    %mp3.time3 = $+( $int($calc(($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, PLAYEDTIME) / $calc($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, TRACKTIME) * 1000)) * 100)) $+ $chr(37) of $replace($duration($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, TRACKTIME)),hrs,h,hr,h,mins,m,secs,s,sec,s) $prcbar($int($calc(($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, PLAYEDTIME) / $calc($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, TRACKTIME) * 1000)) * 100))) )
  }
  if ( t isin %mp3.switches ) {
    %mp3.time = $+(  $+ 1| %mp3.color1 $+ Temps écoulé : $+ %mp3.color2 %mp3.time3 )
  }
  %mp3.time2 = $+(  $+ 1| %mp3.color1 $+ Temps écoulé : $+ %mp3.color2 %mp3.time3 )

  %mp3.bitrate3 = $dll( ampstatus\swamp.dll, WinAmpGet, BITRATE ) kbps
  if ( $mp3( %mp3.filename ).vbr ) {
    %mp3.bitrate3 = $+( %mp3.bitrate, , $chr( 40 ), VBR, $chr( 41 )  )
  }
  %mp3.rate = $dll( ampstatus\swamp.dll, WinAmpGet, SAMPLERATE )
  if ( %mp3.rate = 44 ) {
    %mp3.rate = 44100 Hz
  }
  if ( %mp3.rate = 22 ) {
    %mp3.rate = 22150 Hz
  }
  if ( b isin %mp3.switches || r isin %mp3.switches ) {
    %mp3.bitrate = $+(  $+ 1| %mp3.color1 $+ Bitrate : $+ %mp3.color2 %mp3.bitrate3 %mp3.rate )
  }
  %mp3.bitrate2 = $+(  $+ 1| %mp3.color1 $+ Bitrate : $+ %mp3.color2 %mp3.bitrate3 %mp3.rate )


  if ( s isin %mp3.switches ) {
    %mp3.state = $+( , $chr( 40 ), , $dll( ampstatus\swamp.dll, WinAmpGet, STATE ), , $chr( 41 ),  )
  }

  if ( p isin %mp3.switches ) {
    %mp3.playlist = $dll( ampstatus\swamp.dll, WinAmpGet, TRACKNUMBER )
    %mp3.playlist = $+(  $+ %mp3.color1 $+ Playlist ( $+ %mp3.color2 %mp3.playlist / $dll( ampstatus\swamp.dll, WinAmpGet, PLAYLISTLENGTH ),  $+ %mp3.color1 $+ ) )
  }

  %mp3.mode3 = $lower( $mp3( %mp3.filename ).mode )
  if ( m isin %mp3.switches ) {
    %mp3.mode = $+(  $+ %mp3.color1 $+ Temps écoulé %mp3.color2 %mp3.mode3 )
  }
  %mp3.mode2 = $+(  $+ %mp3.color1 $+ Temps écoulé %mp3.color2 %mp3.mode3 )

  %mp3.size3 = $round( $calc( $file( %mp3.filename ).size / 1024 / 1024 ), 2 ) MB
  if ( (z isin %mp3.switches) && (!%mp3.shoutcast) && (!%mp3.cd) ) {
    %mp3.size = $+(  $+ 1| %mp3.color1 $+ Taille : $+ %mp3.color2 %mp3.size3 )
  }
  %mp3.size2 = $+(  $+ 1| %mp3.color1 $+ Taille : $+ %mp3.color2 %mp3.size3 )

  %mp3.version = $dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, VERSION)
}

return 10(Winamp $dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, VERSION) $+ )  $+ %mp3.color1 $+ Play (9 $+ $replace($nopath($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, TRACKFILENAME)),_,$chr(32)) $+  $+ %mp3.color1 $+ ) Time (9 $int($calc(($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, PLAYEDTIME) / $calc($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, TRACKTIME) * 1000)) * 100)) $+ $chr(37) of $replace($duration($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, TRACKTIME)),hrs,h,hr,h,mins,m,secs,s,sec,s) $prcbar($int($calc(($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, PLAYEDTIME) / $calc($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, TRACKTIME) * 1000)) * 100))) $+ 10) Bitrate (9 $dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, BITRATE) kbps  $+ %mp3.color1 $+ ) (!Mp3Adi pour télécharger :)) }


alias amppaused { 
%mp3.type = $gettok( $nopath(%mp3.filename), $numtok( $nopath(%mp3.filename), 46 ), 46 )
if ( %mp3.type != avi ) {
  return 10(Winamp $dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, VERSION) $+ )  $+ %mp3.color1 $+ Pause ( $+ %mp3.color2 $+ $replace($remove($nopath($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, TRACKFILENAME)),.mp3),_,$chr(32)) $+  $+ %mp3.color1 $+ ) Time ( $+ %mp3.color2 $int($calc(($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, PLAYEDTIME) / $calc($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, TRACKTIME) * 1000)) * 100)) $+ $chr(37) of $replace($duration($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, TRACKTIME)),hrs,h,hr,h,mins,m,secs,s,sec,s) $prcbar($int($calc(($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, PLAYEDTIME) / $calc($dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, TRACKTIME) * 1000)) * 100))) $+  $+ %mp3.color1 $+ )
}
else {
  /mp3gen $gettok( %switches, 1, 32 ) $active $gettok( %switches, 2-, 32 )
  /say 10(Winamp %mp3.version $+ )  $+ %mp3.color1 $+ Play Video ( $+ %mp3.color2 $+ %mp3.title $+ 10) %mp3.time
}
}
alias ampstopped { return  $+ %mp3.color1 $+ (Winamp $dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, VERSION) $+ )  $+ %mp3.color1 $+ Stopped playing }
alias ampquit { return  $+ %mp3.color1 $+ (Winamp $dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, VERSION) $+ )  $+ %mp3.color1 $+ Je ne fais rien ;) }
alias ampnoinstal { return winamp(is not installed on this machine) }

alias mp3setup {
dialog -m mp3setup mp3setup
}

dialog mp3setup {
title "MP3Script Setup Menu"
size -1 -1 92 118

option dbu

button "Okay", 1, 55 93 35 10, ok
button "Cancel", 2, 55 105 35 10, cancel

text "Info Display Options", 101, 2 2 90 7
check "Bitrate" 3, 2 10 90 7
check "File Extension (only with filename)" 4, 2 18 90 7
check "Use Filename" 5, 2 26 90 7
check "Stereo Mode" 6, 2 34 90 7
check "Playlist Position" 7, 2 42 90 7
check "Sample Rate" 8, 2 50 90 7
check "Playing/Stopped State" 9, 2 58 90 7
check "Elapsed/Total Time" 10, 2 66 90 7
check "File Size (in MB)" 11, 2 74 50 7
check "Use Custom Colors" 12, 2 82 55 7
check "Show Album" 15, 2 90 50 7
check "Show total time" 16, 2 98 50 7
combo 13, 2 106 23 50, drop
combo 14, 26 106 23 50, drop
}

on *:DIALOG:mp3setup:*:*: {
if ( $devent == init ) {
  didtok mp3setup 13 59 0;1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;none
  didtok mp3setup 14 59 0;1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;none
  if ( b isin $gettok( %switches, 1, 32 ) ) did -c mp3setup 3
  if ( e isin $gettok( %switches, 1, 32 ) ) did -c mp3setup 4
  if ( f isin $gettok( %switches, 1, 32 ) ) did -c mp3setup 5
  if ( m isin $gettok( %switches, 1, 32 ) ) did -c mp3setup 6
  if ( p isin $gettok( %switches, 1, 32 ) ) did -c mp3setup 7
  if ( r isin $gettok( %switches, 1, 32 ) ) did -c mp3setup 8
  if ( s isin $gettok( %switches, 1, 32 ) ) did -c mp3setup 9
  if ( t isin $gettok( %switches, 1, 32 ) ) did -c mp3setup 10
  if ( z isin $gettok( %switches, 1, 32 ) ) did -c mp3setup 11
  if ( a isin $gettok( %switches, 1, 32 ) ) did -c mp3setup 15
  if ( u isin $gettok( %switches, 1, 32 ) ) did -c mp3setup 16
  if ( c isin $gettok( %switches, 1, 32 ) ) {
    did -c mp3setup 12
  }
  if ( ($gettok( %switches, 2, 32 ) isnum 0-15) && ($gettok( %switches, 3, 32 ) isnum 0-15) ) {
    did -c mp3setup 13 $calc( $gettok( %switches, 2, 32 ) + 1 )
    did -c mp3setup 14 $calc( $gettok( %switches, 3, 32 ) + 1 )
  }
  else {
    did -c mp3setup 13 17
    did -c mp3setup 14 17
  }
}

if ( ($did == 1) && ($devent == sclick) ) {
  var %mp3s.temp
  if ( $did( mp3setup, 3 ).state ) %mp3s.temp = $+( %mp3s.temp, b )
  if ( $did( mp3setup, 4 ).state ) %mp3s.temp = $+( %mp3s.temp, e )
  if ( $did( mp3setup, 5 ).state ) %mp3s.temp = $+( %mp3s.temp, f )
  if ( $did( mp3setup, 6 ).state ) %mp3s.temp = $+( %mp3s.temp, m )
  if ( $did( mp3setup, 7 ).state ) %mp3s.temp = $+( %mp3s.temp, p )
  if ( $did( mp3setup, 8 ).state ) %mp3s.temp = $+( %mp3s.temp, r )
  if ( $did( mp3setup, 9 ).state ) %mp3s.temp = $+( %mp3s.temp, s )
  if ( $did( mp3setup, 10 ).state ) %mp3s.temp = $+( %mp3s.temp, t )
  if ( $did( mp3setup, 11 ).state ) %mp3s.temp = $+( %mp3s.temp, z )
  if ( $did( mp3setup, 15 ).state ) %mp3s.temp = $+( %mp3s.temp, a )
  if ( $did( mp3setup, 16 ).state ) %mp3s.temp = $+( %mp3s.temp, u )
  if ( $did( mp3setup, 12 ).state ) {
    %mp3s.temp = $+( %mp3s.temp, c )
    if ( ($did( mp3setup, 13 ).text != none) && ($did( mp3setup, 14 ).text != none) ) {
      %mp3s.temp = %mp3s.temp $did( mp3setup, 13 ).text $did( mp3setup, 14 ).text
    }
  }
  set %switches $+( -, %mp3s.temp )
  dialog -x mp3setup
}
if ( ($did == 16) && ($devent == sclick) ) {
  did -u $dname 10
}
}


alias prcbar {
set %procent $1
if %procent <= 10 { set %output 12[14||||||||||12] }
if %procent >= 10 { set %output 12[4|14|||||||||12] }
if %procent >= 20 { set %output 12[4||14||||||||12] }
if %procent >= 30 { set %output 12[4|||14|||||||12] }
if %procent >= 40 { set %output 12[4||||14||||||12] }
if %procent >= 50 { set %output 12[4|||||14|||||12] }
if %procent >= 60 { set %output 12[4||||||14||||12] }
if %procent >= 70 { set %output 12[4|||||||14|||12] }
if %procent >= 80 { set %output 12[4||||||||14||12] }
if %procent >= 90 { set %output 12[4|||||||||14|12] }
if %procent >= 95 { set %output 12[4||||||||||12] }
return %output
unset %procent
unset %output
}



on 1*:TEXT:!get *%getmp3*:*: {
/dcc send $nick ( " $+ $dll($shortfn($mircdirampstatus\swamp.dll), WinAmpGet, TRACKFILENAME)),.mp3),_,$chr(32)) $+ $chr(34) $+ $chr(32) $+ )
}
}