AMÉLIORATION DU SCRIPT DE CONTRÔLE DE WINAMP DEPUIS IRC DE BOMBSTRIKE !!

; Bon bah voici un ptit code pour ceux qui ont la flemme de lire l'help
; changer l'alias ctlamp pour que celle-ci pointe vers la DLL
;
; /ampsay - Permet de dire automatiquement quelle chanson vous jouez
; /saysong - Permet de le dire manuellement sur le chan en cours
; /sayzik - Permet de le dire manuellement sur tous les chans ouverts
;
; J'ai rajouté 2 bind (F12 et Shift+F12) pour utiliser les fonctions saysong et sayzik
;
; Si vous la mettez dans votre script, merci de m'ajouter dans les credits :)

alias ctlamp return $shortfn($mircdirctlamp.dll)

alias camp { if ($isid) { return $dll($ctlamp,$1,$iif($2-,$2-,$null)) } | else { dll $ctlamp $1 $iif($2-,$2-,$null) } }

alias ampsay {
    if (!$timer(ampbar)) { .timerampbar 0 1 ampbar }
    if ( %sayamp != $camp(GetSongTitle) ) {
    set %sayamp $camp(GetSongTitle)
    saysong
    }
}

alias saysong {
  if ( $camp(GetSongTitle) != WINAMP NOT RUNNING! ) { 
    msg # Winamp .::. Musique : $camp(GetSongTitle) .::. Durée : $+($int($calc($camp(TGetLength) / 60)),:,$iif($calc($camp(TGetLength) % 60) < 10,$+(0,$calc($camp(TGetLength) % 60)),$calc($camp(TGetLength) % 60))) .::. Taille : $round($calc(($file(C:/Le_chemin_du_dossier/ $+ $camp(GetSongTitle) $+ .mp3).size)/1048576),1) Mo .::. Tape !download pour télécharger cette zik !
  }
} 


alias sayzik {
  if ( $camp(GetSongTitle) != WINAMP NOT RUNNING! ) { 
    amsg Winamp .::. Musique : $camp(GetSongTitle) .::. Durée : $+($int($calc($camp(TGetLength) / 60)),:,$iif($calc($camp(TGetLength) % 60) < 10,$+(0,$calc($camp(TGetLength) % 60)),$calc($camp(TGetLength) % 60))) .::. Taille : $round( $calc( $calc( $eval( $file( C:/Le_chemin_du_dossier/ $+ $camp(GetSongTitle) $+ .mp3 ).size) /1000 ) /1000 ) ,2) Mo .::. Tape !download pour télécharger cette zik !
  }
} 

alias sF12 /sayzik

alias F12 /saysong

On *:text:!zik:#:{
  msg # Winamp .::. Musique : $camp(GetSongTitle) .::. Durée : $+($int($calc($camp(TGetLength) / 60)),:,$iif($calc($camp(TGetLength) % 60) < 10,$+(0,$calc($camp(TGetLength) % 60)),$calc($camp(TGetLength) % 60))) .::. Taille : $round( $calc( $calc( $eval( $file( C:/Le_chemin_du_dossier/ $+ $camp(GetSongTitle) $+ .mp3 ).size) /1000 ) /1000 ) ,2) Mo .::. Tape !download pour télécharger cette zik !
}

On *:text:!download:#:{
  dcc send $nick "C:/Le_chemin_du_dossier/ $+ $camp(GetSongTitle) $+ .mp3"
  notice $nick -[« MP3 Download .::. $camp(GetSongTitle) »]-
}