ADDON RADIO SCRIPT

; ------------------------------------------------
; Radio Script 1.0
; ------------------------------------------------
; ------------------------------------------------
; Fenêtre de dialogue pour configuration
; ------------------------------------------------



; ------------------------------------------------
; Menu contextuels
; ------------------------------------------------

menu channel {
  -
  &Config Radio
  .Nom de la Radio:set %radio.name $?="Nom de la radio"
  .Nom du Bot Radio:set %radio.nick $?="Nom du Bot Radio"
  .Canal principal de la radio:set %radio.mainchan $?="Canal principal de la radio"
  .Canal d'administration du Bot Radio:set %radio.adminchan $?="Canal d'administration du Bot Radio"
  .Serveur principal de la radio:set %radio.network $?="Serveur principal de la radio"
  .Lien pour ecouter la radio:set %radio.link $?="Lien pour ecouter la radio"
  .Site web de la radio:set %radio.url $?="Site web de la radio"
  .Ip du serveur Shoutcast:set %radio.ip $?="Ip du serveur Shoutcast"
  .Port du serveur Shoutcast:set %radio.port $?="Port du serveur Shoutcast"
  .-
  .Reset:rsfirststart
}

menu menubar {
  -
  &Config Radio
  .Nom de la Radio:set %radio.name $?="Nom de la radio"
  .Nom du Bot Radio:set %radio.nick $?="Nom du Bot Radio"
  .Canal principal de la radio:set %radio.mainchan $?="Canal principal de la radio"
  .Canal d'administration du Bot Radio:set %radio.adminchan $?="Canal d'administration du Bot Radio"
  .Serveur principal de la radio:set %radio.network $?="Serveur principal de la radio"
  .Lien pour ecouter la radio:set %radio.link $?="Lien pour ecouter la radio"
  .Site web de la radio:set %radio.url $?="Site web de la radio"
  .Ip du serveur Shoutcast:set %radio.ip $?="Ip du serveur Shoutcast"
  .Port du serveur Shoutcast:set %radio.port $?="Port du serveur Shoutcast"
  .-
  .Reset:rsfirststart
}

; ------------------------------------------------
; Aide des commandes (!aide)
; ------------------------------------------------

on *:Text:!aide*:#:{
  if (!$2) {
    msg # Voici les commandes disponibles.
    msg # 12Pour tout le monde (sur tout les canaux) => !aide !radio !web !toune !auditeur !dj !demande !ecouter
    if ($chan == %radio.adminchan) { .timer 1 2 msg # 4Pour les admins (sur %radio.adminchan seulement) => !chanjoin !chanpart !setdj !setshow !mustquit !pub !showtitle !setbotnick !serverjoin !adddj !remdj }
    .timer2 1 2 msg # Pour de plus ample imformations relatives aux commandes, faites !aide <commande> !!!!
  }
  else {
    if ($2 == !aide) { msg # Affiche l'aide sur les commandes disponibles. Usage: !aide [commande] }
    if ($2 == !radio) { msg # Affiche les infos relatives a la radio (Lien pour se connecter, Deejay qui annime). Usage: !radio }
    if ($2 == !web) { msg # Affiche le lien du site web de la radio. Usage: !web }
    if ($2 == !toune) { msg # Affiche le titre de la chanson en cours. Usage: !toune }
    if ($2 == !auditeur) { msg # Affiche le nombre d'auditeur qui écoutent la radio. Usage: !auditeur }
    if ($2 == !dj) { msg # Affiche le nick du Deejay qui anime ainsi que le nom de son show. Usage: !dj }
    if ($2 == !demande) { msg # Envoie votre demande spéciale au Deejay. Usage: !demande <artiste - titre> }
    if ($2 == !ecouter) { msg # Affiche le lien pour ecouter la radio. Usage: !ecouter }
    if ($chan == %radio.adminchan) {
      if ($2 == !chanjoin) { msg # Fait joindre $me sur un canal. Usage: !chanjoin <#canal> }
      if ($2 == !chanpart) { msg # Fait partir $me de sur un canal. Usage: !chanpart <#canal> }
      if ($2 == !setdj) { msg # Règle le nom du Deejay. Doit être identique au nick utiliser pour le Deejay. Usage: !setdj <nick_du_deejay/offline> }
      if ($2 == !setbotnick) { msg # Règle le nom du Bot Radio. Usage: !setbotnick <nom_du_bot> }
      if ($2 == !setshow) { msg # Règle le titre du Show en cours. Usage: !setshow <nom_du_show> }
      if ($2 == !serverjoin) { msg # Fait connecter $me sur un nouveau server. Fait joindre en même temps %radio.mainchan et %radio.adminchan . Usage: !serverjoin <server_irc[:port]> }
      if ($2 == !mustquit) { msg # Fait deconnecter $me . A n'utiliser qu'en cas de problême de connection. Usage: !mustquit }
      if ($2 == !pub) { msg # Affiche(une fois)/Affiche(aux 30 minutes)/Arrête la pub de la radio sur tout les canaux ou $me est. Usage: !pub <rien/on/off> }
      if ($2 == !showtitle) { msg # Démarre/arrête l'affichage automatique du titre de la chanson en cours sur %radio.mainchan . Usage: !showtitle <on/off> }
      if ($2 == !adddj) { msg # Ajoute un Admin au bot radio }
      if ($2 == !remdj) { msg # Supprime un Admin au bot radio }
    }
  }
}

; ------------------------------------------------
; Commandes de canaux
; ------------------------------------------------

on *:Text:*:#:{
  if ($1 == !radio) { radiolink }
  elseif ($1 == !web) { msg # 4Site web 7:14 %radio.url }
  elseif ($1 == !toune) { msg # %radio.info }
  elseif ($1 == !auditeur) { msg # 4Nombre d'auditeurs présentements connectés sur la radio14:7 %radio.listen 4Maximum atteint14:7 %radio.maxlisten }
  elseif ($1 == !dj) { msg $chan 14.::4 %radio.name 14::. 4Voici notre Deejay qui envoie notre musique direct à vos oreilles 14.::7 Dj- $+ %radio.djnick 14::.4 @7 %radio.show }
  elseif ($1 == !demande) { radioask $2- }
  elseif ($1 == !ecouter) { msg # 14.::4 %radio.name 14::. 4Voici notre petite adresse pour vous connecter: %radio.link }
  elseif ($chan == %radio.adminchan && $ulevel >= 500) {
    if ($1 == !chanjoin) { join $2 | msg # Je viens de joindre $2 }
    elseif ($1 == !chanpart) { part $2 Désoler mais je dois partir | msg # Je pars de $2 }
    elseif ($1 == !setdj) {
      if (($2 ison %radio.mainchan) || ($2 ison %radio.adminchan)) {
        set %radio.djnick $2
        set %radio.djserver $cid
        msg # Voici votre nouveau Dj aux tables tournantes :7 %radio.djnick
      }
      elseif (!$2) { msg # Vous devez spécifier un nick pour le Deejay }
      else {
        msg # Désoler, je ne vois pas4 $2 sur7 %radio.mainchan ou7 %radio.adminchan $+ . Veuillez écrire le nom du Deejay correctement.
        msg # Votre Deejay reste %radio.djnick
      }
    }
    elseif ($1 == !setbotnick) { set %radio.nick $2- | scon -a nick %radio.nick }
    elseif ($1 == !setshow) { set %radio.show $2- | msg # Le nom du présent show est :7 %radio.show }
    elseif ($1 == !serverjoin) { /server -m $2- | /nick %radio.nick | /join %radio.mainchan | /j %radio.adminchan }
    elseif ($1 == !mustquit) { /quit Je reviendrai plus tard }
    elseif ($1 == !showtitle) { askssong $2 }
    elseif ($1 == !pub) {
      if (!$2) { radiopub }
      elseif ($2 == on) { /timerradioppub 0 1800 /radiopub | radiopub }
      elseif ($2 == off) { timerradioppub off | msg # Arrêt de l'affichage automatique de la pub }
      else halt
    }
    elseif ($1 == !adddj) { guser 500 $2 2 | msg # $2 ajouter a la liste d'accès du bot }
    elseif ($1 == !remdj) { ruser $2 2 | msg # $2 supprimé a la liste d'accès du bot }
    else halt
  }
  else halt
}

; --------------------------------------------------------------------------------
; Ne pas editer au-dela de ce point, sous risque que le script ne fonctionne plus.
; Editez a vos propre risque
; --------------------------------------------------------------------------------

;on 1:Load:{ rsfirststart }
on *:connect:{
  /timer $+ $cid 0 15 /showsong
  /j %radio.mainchan
  if ($network == %radio.network) {
    /j %radio.adminchan
    /timerradioshhop 0 15 /shop
  }
}
on *:nick:if ( $nick == %radio.djnick ) { /set %radio.djnick $newnick }

alias rsfirststart {
  set %radio.name $?="Nom de la radio"
  set %radio.mainchan $?="Canal principal de la radio"
  set %radio.adminchan $?="Canal d'administration du Bot Radio"
  set %radio.network $?="Serveur principal de la radio"
  set %radio.link $?="Lien pour ecouter la radio"
  set %radio.url $?="Site web de la radio"
  set %radio.ip $?="Ip du serveur Shoutcast"
  set %radio.port $?="Port du serveur Shoutcast"
}

alias radioask {
  if (!$1) { notice $nick Usage : !demande <artiste - titre> }
  else {
    scid %radio.djserver msg %radio.djnick 14.::4 %radio.name 14 ::. 4Demande spécial fait par7: [ $+ $nick $+ ]
    scid %radio.djserver msg %radio.djnick 4Voici sa demande:7 $1- 
    notice $nick 4Nous avons bien recu votre demande spécial :7 $1- 4. Veuiller patienter pendant que notre dj joue du pied
    write demandespeciale.txt $date $time $1-
  }
}

alias askssong {
  if ($1 == on || !$1) { /timer $+ $cid 0 15 /showsong | msg # Démarrage de l'affichage automatique des chansons en cours }
  elseif ($1 == off) { /timer $+ $cid off | msg # Arrêt de l'affichage automatique des chansons en cours }
}

alias showsong {
  if ( %radio.song != %radio.songold ) {
    if (%radio.showlink >= 3) {
      msg %radio.mainchan 14.::4 %radio.name 14::. 4Voici notre petite adresse pour vous connecter: %radio.link
    }
    msg %radio.mainchan %radio.info
  }
}

alias radiopubshow { if ($2 == $null) { radiopub } | elseif ($2 == on) { /timerradioppub 0 1800 /radiopub | radiopub } | elseif ($2 == off) { timerradioppub off } | else halt }

alias radiopub {
  //amsg 7 $+ %radio.name $+  présente 7 $+ %radio.show $+  avec 7Dj- $+ %radio.djnick $+  aux tables tournantes. Pour écouter=> %radio.link Pour une demande spéciale=> 12!demande <artiste - titre> ¡!¡!¡!¡! %radio.info
}

alias radiolink {
  shop
  msg # 14.::4 %radio.name 14::.
  msg # 4Pour connexion: %radio.link %radio.bitrate
  .timer 1 2 msg # 4Votre Dj: 14.::7 %radio.djnick 4@7 %radio.show 14::.
}

alias radiodj {
  msg # 14.::4 %radio.name 14::. 4Voici notre Dj qui envoie notre musique direct à vos oreilles 14.::7 Dj- $+ %radio.djnick 14::.4 @7 %radio.show
}

alias shop { sockopen shtxt %radio.ip %radio.port }

on *:sockopen:shtxt:{ 
  write -c shop.txt 
  sockwrite -c $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 %radio.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 == $null) { 
    return 
  } 
  if ( %radio.song != %radio.songold ) {
    set %radio.songold %radio.song
    set %radio.showlink %radio.showlink + 1
    write playlist.txt $date $time %radio.songold
  }
  if (%radio.showlink >= 4) {
    set %radio.showlink 0
  }
  set %radio.song $7-
  set %radio.info 4Chanson en cours de diffusion:12 $7-
  set %radio.listen $5
  set %radio.maxlisten $3
  set %radio.bitrate 7(12 $6 $+ 12Kbps 7)
}

; ––––––––––––––––––––––––––––––––––––––––––––––––
; End of file
; ––––––––––––––––––––––––––––––––––––––––––––––––