AIDE ANIM' - MODULE D'AIDE À L'ANIMATION DE WEBRADIO - BY AUREL212

[Module]
Name=AideAnim'
Description=Module d'aide à l'animation de WebRadio (ShoutCast)
Version=béta
Ref=1.1
View=1
Author=aurel212
;______________________________________________________________
;         Radio Script 1.0 ( adapté pour les Anim' de WebRadio par aurel212 )
;______________________________________________________________
; ------------------------------------------------
; Fenêtre de dialogue pour configuration
; ------------------------------------------------

alias aide-anim dialog -m aide-anim aide-anim

dialog aide-anim {
  title "Aide Anim' - by aurel212 - /aide-anim"
  size -1 -1 293 181
  option dbu
  box " Configuration Principale ", 1, 3 0 227 104
  edit "", 2, 7 25 50 10, center
  edit "", 3, 64 25 50 10, center
  edit "", 4, 7 53 50 10, center
  edit "", 5, 64 53 50 10, center
  edit "", 6, 7 80 50 10, center
  edit "", 7, 56 80 25 10, center
  edit "", 8, 129 25 93 10, center
  edit "", 9, 129 53 93 10, center
  edit "", 10, 129 80 93 10, center
  box " Configuration Perso' - Cocher pour Valider ", 11, 4 105 286 60
  text "Nom de la Radio", 12, 8 15 45 8
  text "Nom du Robot", 13, 65 15 45 8
  text "Salon de la Radio", 14, 8 43 45 8
  text "BackRoom", 15, 65 43 45 8
  text "IP + Port du Shoutcast", 16, 8 70 60 8
  text "Site Web de la Radio", 17, 130 15 70 8
  text "Lien du Player de la Radio", 18, 130 43 70 8
  text "Lien décomposé pour Java", 19, 130 70 70 8
  box "", 20, 233 0 56 104
  icon 21, 237 8 46 39, $mircdirAideAnim.gif
  text "Module d'aide à l'animation de WebRadio sur le serveur Voila / Orange.", 22, 238 65 47 35, center
  text "Aide Anim'", 23, 238 53 47 12, center
  button "Ok / Enregistrer", 24, 211 167 78 12, ok
  text "Aide Anim' peut s'activer de différente façon dont une qui ne s'active automatiquement", 25, 10 115 240 8
  edit "", 26, 225 123 50 10, center
  radio "Activé", 27, 104 123 33 10
  radio "Désactivé", 28, 138 123 33 10
  radio "Automatique", 29, 178 123 45 10
  text "Afficher l'ID3Tag de la musique en cour ?", 30, 11 139 99 8
  check "Oui", 31, 28 151 22 10
  check "Non", 32, 66 151 24 10
  text "Afficher le nombre d'auditeurs en echo ?", 33, 136 139 102 8
  check "Oui", 34, 150 151 25 10
  check "Non", 35, 197 151 23 10
  link " http://IDandT.fr ", 36, 125 169 44 8
  button "Vérifier Mise à Jour", 37, 4 167 78 12
  text "quand tu as ton extension 'Onair' :", 38, 10 123 92 8
}
On *:DIALOG:aide-anim:*:*:{
  if ($devent == init) {
    did -a $dname 2 $AideAnim(Nom)
    did -a $dname 3 $AideAnim(Bot)
    did -a $dname 4 $AideAnim(Salon)
    did -a $dname 5 $AideAnim(BackRoom)
    did -a $dname 6 $AideAnim(IP)
    did -a $dname 7 $AideAnim(Port)
    did -a $dname 8 $AideAnim(Site)
    did -a $dname 9 $AideAnim(Lien)
    did -a $dname 10 $AideAnim(Java)
    did -a $dname 26 $AideAnim(Extension)
    if ($AideAnim(ShowSong) == ON) { did -c $dname 31 }
    else { did -c $dname 32 }
    if ($AideAnim(ShowListen) == ON) { did -c $dname 34 }
    else  { did -c $dname 35 }
    if ($AideAnim(AideAnim-) == PSEUDO) { did -c $dname 29 }
    else {
      if ($AideAnim(AideAnim) == ON) { did -c $dname 27 }
      else { did -c $dname 26 }
    }
  }
  if ($devent == Sclick) {
    if ($did == 24) {
      hadd AideAnim Nom $did(2)
      hadd AideAnim Bot $did(3)
      hadd AideAnim Lien $did(9)
      hadd AideAnim Site $did(8)
      hadd AideAnim Salon $did(4)
      hadd AideAnim BackRoom $did(5)
      hadd AideAnim IP $did(6)
      hadd AideAnim Port $did(7)
      hadd AideAnim Java $did(10)
      hadd AideAnim Extension $did(26)
      if ($did(31).state == 1) { hadd AideAnim ShowSong ON }
      elseif ($did(32).state == 1) { hadd AideAnim ShowSong OFF }
      if ($did(34).state == 1) { hadd AideAnim ShowListen ON }
      elseif ($did(35).state == 1) { hadd AideAnim ShowListen OFF }
      if ($did(27).state == 1) { hadd AideAnim AideAnim ON }
      elseif ($did(28).state == 1) { hadd AideAnim AideAnim OFF }
      if ($did(29).state == 1) { hadd AideAnim AideAnim- PSEUDO }
    }
    if ($did == 31) { did -u $dname 32 }
    if ($did == 32) { did -u $dname 31 }
    if ($did == 34) { did -u $dname 35 }
    if ($did == 35) { did -u $dname 34 }
    if ($did == 36) { url -u http://IDandT.fr }
    if ($did == 37) { url -u http://IDandT.fr/AideAnim.rar }
  }
}
On *:NICK:{
  if ($gettok($nick,1,124) == $gettok($me,1,124)) && ($AideAnim(AideAnim-) == PSEUDO) {
    if ($gettok($newnick,2,124) == $AideAnim(Extension)) {
      hadd AideAnim AideAnim ON
      hadd AideAnim Anim $me
      echo -a 14.::10 $AideAnim(Nom) 14::.10 Vous êtes maintenant OnAir, l'add-on est Activé 14!
    }
    elseif ($gettok($nick,2,124) == $AideAnim(Extension)) && ($gettok($newnick,2,124) != $AideAnim(Extension)) {
      hadd AideAnim AideAnim OFF
      echo -a 14.::10 $AideAnim(Nom) 14::.10 Vous n'êtes maintenant plus OnAir, l'add-on est Désactivé 14!
    }
  }
}
; ------------------------------------------------
; Menu contextuels
; ------------------------------------------------
menu menubar {
  -
     >> AideAnim' by aurel212 <<   
  .Aide Anim' $chr(9) /aide-anim:/aide-anim
  .Inviter un Anim' sur la BackRoom $chr(9) /BackR:/BackR
}
; ------------------------------------------------
; Commandes :
; ------------------------------------------------
On *:TEXT:*:*:{
  if ($AideAnim(AideAnim) == OFF) { halt }
  if ($AideAnim(Bot) ison $chan) { halt }
  if ($1 == !aide) {
    if (!$2) {
      msg $chan 14Voici les commandes disponibles:
      msg $chan 10=> !aide !radio !web !toune !auditeur !dédi !java !winamp
      if ($chan == $AideAnim(BackRoom)) { .timer 1 2 msg $chan 14Pour les admins (sur10 $AideAnim(BackRoom) 14seulement) =>10 !oa !pl }
      .timer2 1 2 msg $chan Pour de plus ample imformations relatives aux commandes, faites !aide <commande> !!!!
    }
    else {
      if ($2 == !aide) { msg $chan Affiche l'aide sur les commandes disponibles. Usage: !aide [commande] }
      elseif ($2 == !anim) { msg $chan Affiche le Nick de l'animateur actuel. Usage: !anim }
      elseif ($2 == !radio) { msg $chan Affiche les infos relatives a la radio (Lien pour se connecter, Deejay qui annime). Usage: !radio }
      elseif ($2 == !web) { msg $chan Affiche le lien du site web de la radio. Usage: !web }
      elseif ($2 == !titre) { msg $chan Affiche le titre de la chanson en cours. Usage: !titre }
      ;elseif ($2 == !auditeur) { msg $chan Affiche le nombre d'auditeur qui écoutent la radio. Usage: !auditeur }
      elseif ($2 == !dédi) { msg $chan Envoie votre demande spéciale au Deejay. Usage: !dédi <artiste - titre> & <dédicace> }
      elseif ($2 == !java) { msg $chan Affiche le lien "détaché" pour ecouter la radio. Usage: !java }
      elseif ($2 == !winamp) { msg $chan Affiche le lien "pls" pour ecouter la radio via Winamp. Usage: !winamp }
      elseif ($chan == $AideAnim(BackRoom)) {
        if ($2 == !oa) { msg $chan Affiche le changement d'Animateur sur le chan Officiel de la radio. Usage: !oa (sur $AideAnim(BackRoom) $+ ) }
        elseif ($2 == !pl) { msg $chan Affiche la prise d'antenne de la PlayLisT sur le chan Officiel de la radio. Usage !pl (sur $AideAnim(BackRoom) $+ ) }
      }
    }
  }
  elseif ($1 == !radio) { notice $nick 10 Tu veux écouter14 $AideAnim(Nom)  10? Rien de plus simple! clic ici 1:14 $AideAnim(Lien) }
  elseif ($1 == !anim) { notice $nick 10 C'est14 $AideAnim(Anim) 10 qui difuse le Meilleur de la musique en ce moment même sur14 $AideAnim(Nom) 10! }
  elseif ($1 == !web) { notice $nick 10 Notre Site web 1:14 $AideAnim(Site) }
  elseif ($1 == !titre) { notice $nick $AideAnim(Info) }
  ;elseif ($1 == !auditeur) { notice $nick 10Vous êtes14 $AideAnim(Auditeurs) 10auditeur(s) sur $AideAnim(Nom) ! On a déjà vu mieux (14 $AideAnim(MaxAuditeurs) 10) }
  elseif ($1 == !dédi) { radioask $2- }
  elseif $+(*,!,*,!) !iswm $chan && ($1 == !java) { msg $chan 10Slt14 $nick $+ 10, Tu veux écouter14 $AideAnim(Nom)  10? Rien de plus simple! recopie ce lien dans ton explorer Internet 1:14 $AideAnim(Java) }
  elseif ($1 == !winamp) { notice $nick 10 Tu veux écouter14 $AideAnim(Nom)  10? Rien de plus simple! Voici l'URL pour ton Winamp player 1:14 http://91.121.10.173:8310/listen.pls }
  elseif ($chan == $AideAnim(BackRoom)) { 
    if ($1 == !ao) {
      hadd AideAnim Anim $nick 
      if ($AideAnim(ShowSong) == ON) { msg $AideAnim(Salon) 14 .::10 $AideAnim(Nom) 14::.10 C'est maintenant14 $AideAnim(Anim) 10qui prend l'antenne sur14 $AideAnim(Nom) 10! }
      if (IriX ison $AideAnim(Salon)) && ($nick !iso $AideAnim(Salon)) { .msg Irix op $AideAnim(Salon) $nick }
    } 
    elseif ($1 == !pl) { hadd AideAnim Anim La PlayLisT
      if ($AideAnim(ShowSong) { msg $AideAnim(Salon) 14 .::10 $AideAnim(Nom) 14::.10 $nick 14vient de caler une pure10 PlayLisT14 sur10 $AideAnim(Nom) 14! }
    }
  }
}
; ______________________________________________________________
; Bon les Anim' on touche pas à la suite de ce code ( j'ai assez galèré dessus ! LoL :x )
; Pis c'est surtout que ça risque de tout foirer !!! Merci de votre compréhension =)
; ______________________________________________________________

On *:START:{ hload AideAnim AideAnim.txt }
On *:EXIT:{ hsave -o AideAnim AideAnim.txt }

On 1:LOAD:{ hmake AideAnim 10 }
alias -l AideAnim { return $hget(AideAnim,$1) }

On *:CONNECT:{
  .timer $+ $cid 0 15 showsong
  .timer $+ $cid 0 15 showlisten
  join $AideAnim(Salon)
  if ($network == %radio.network) {
    .timerradioshhop 0 15 shop
  }
}
alias auditeurs { echo -a 14.::10 $AideAnim(Nom) 14::.10 Il y a actuellement14 $AideAnim(Auditeurs) 10auditeurs, le maximum atteind sur ce serveur est de14 $AideAnim(MaxAuditeurs) 10! } 
alias radioask {
  if (!$1) { notice $nick Usage : !dédi <artiste - titre> & <dédicace> }
  else {
    $iif(!$window(@Dédicace),Window -zg0nk0 @Dédicace)
    echo @Dédicace  14 .::10 Dédicace 14 ::. 10Demande spéciale :14 < $+ $nick $+ > $1-
    notice $nick 10Ta dédicace suivante est dans la boite :14 $1- 10. Patiente un peu, elle arrive sur14 $AideAnim(Nom) 10!
    write Dedicaces.txt $date $time $1-
  }
}
alias showlisten {
  if ($AideAnim(AideAnim) == OFF) { halt }
  if ($AideAnim(ShowListen) == ON) && ($AideAnim(Auditeurs) != $AideAnim(Auditeurs-)) {
    echo -a 14.::10 $AideAnim(Nom) 14::. 10Actuellement14 $AideAnim(Auditeurs) 10auditeurs !
  }
}
alias showsong {
  if ($AideAnim(AideAnim) == OFF) { halt }
  if ($AideAnim(ShowSong) == ON) && ($AideAnim(Titre) != $AideAnim(Titre-)) {
    msg $AideAnim(Salon) $AideAnim(Info)
  }
}
alias shop {
  if $sock(shtxt) { sockclose $v1 }
  sockopen shtxt $AideAnim(IP) $AideAnim(Port)
}
On *:sockopen:shtxt:{ 
  write -c shop.txt 
  sockwrite -n $sockname GET /7.html HTTP/1.1 
  sockwrite -n $sockname Accept: */* 
  sockwrite -n $sockname Accept-Language: nl 
  sockwrite -n $sockname Accept-Encoding: gzip, deflate 
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) 
  sockwrite -n $sockname Host: Radio $AideAnim(Port) | sockwrite -n $sockname Connection: Keep-Alive 
  sockwrite -n $sockname $crlf 
} 
On *:sockread:shtxt:{ 
  if ($sockerr) { return } 
  sockread -f &xsh.txt 
  bwrite shop.txt -1 -1 &xsh.txt 
} 
On *:sockclose:shtxt:{ 
  if ($regex(hs,$read(shop.txt,4),dy>(.*)</b)) { getsm $regml(hs,1) } 
} 
alias getsm { 
  tokenize 44 $1-
  tokenize 32 $1- 
  if (!$5) { return } 
  if ($AideAnim(Auditeurs) != $AideAnim(Auditeurs-)) { hadd AideAnim Auditeurs- $AideAnim(Auditeurs) }
  if ($AideAnim(Titre) != $AideAnim(Titre-)) {
    hadd AideAnim Titre- $AideAnim(Titre)
    write PlayLisT.txt $date $time $AideAnim(Titre-)
  }
  hadd AideAnim Titre $7-
  hadd AideAnim Info 10Actuellement sur $AideAnim(Nom) :14 $7- $AideAnim(BitRate)
  hadd AideAnim Auditeurs $5
  hadd AideAnim MaxAuditeurs $3
  hadd AideAnim BitRate 10(14 $6 $+ 10Kb/s )
}
alias BackR {
  var %anim $$?="Pseudo de l'Anim' à inviter :"
  invite %anim $AideAnim(BackRoom)
}
____________________________________________________________________
-------------------------------------¤ aurel212@hotmail.fr ¤-------------------------------------
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

Télécharger le zip

06 avril 2007 03:41:43 :

Voila j'ai donc optimisé le code, je le poste ici, je changerais le zip une fois de nouvelles fonctions arrivées ( ou bien je REposterais histoire de garder cette version ^^ ) Breff, si j'ai oublié quelque chose .. dites moi :)

06 avril 2007 19:07:51 :

Une petite faute d'étourdissement ^^ On *:input:*: corrigé en ==> On *:TEXT:*:*: ajout de l'alias BackR dans le menu

31 mai 2007 05:49:11 :

*** Version 1.2 disponible : http://www.ircfr.com/code.aspx?ID=42911 ***