EpicNet.Ru - Форум IRC Чата

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » EpicNet.Ru - Форум IRC Чата » HELP SCRIPTS - Помощь по mIRC скриптам » How to change in radio bot an addon from Shoutcast to Icecast


How to change in radio bot an addon from Shoutcast to Icecast

Сообщений 1 страница 8 из 8

1

Hello Epic, I'm asking you to see if you could change some radio bot addons that only read "Shoutcast" so that it would also read "Icecast", thank you very much

Подпись автора

Mi ingles: no es el mejor, Manda el traductor... :writing:

2

1530,370 написал(а):

Hello Epic, I'm asking you to see if you could change some radio bot addons that only read "Shoutcast" so that it would also read "Icecast"

Кажется вы забыли предоставить для изучения сам код скрипта или ссылку на исходник с аддонами, о которых вы спрашиваете, т.к. я никогда ими не пользовался и не знаю, что это такое...

Подпись автора

[html]<style>img {vertical-align:middle;}.hnet{color:#FFFFFF;}.hstar{color:#DE0000;}.htext{font-family:Verdana;font-size:13px;color:#6E1E00;}.heading{font-family:Verdana;font-size:13px;font-weight:bold;background-color:#4897E7;}.stitle{font-family:Verdana;font-size:12px;}.dot{color:#808000;}.desc{color:#ADADAD;}a .curl{font-family:Verdana;font-size:13px;color:#3A92CD;}</style><table><tr><td width="20px" height="20px"><img src="http://forumstatic.ru/files/000d/c9/8c/34681.jpg"></td><td><a href="http://forum.epicnet.ru/viewtopic.php?id=234"><span class="heading"> <span class="hstar">★</span> <span class="hnet">EpicNet.Ru</span> <span class="hstar">★</span> </span><span class="htext"> - IRC Чат © 2008</span></a></td></tr><tr><td></td><td><div class="stitle"><span class="dot">•</span> <span class="desc">Вход через вебгейт:</span> <a href="http://irc.epicnet.ru"><span class="curl">http://irc.epicnet.ru</span></a><br><span class="dot">•</span> <span class="desc">Сервер:</span> irc.epicnet.ru <span class="desc">Порты:</span> 6667, 6668 (ssl)<br><div></td></tr></table>[/html]

3

1531,2 написал(а):

Parece que olvidaste proporcionar el código del script para estudiarlo o un enlace al código fuente con los complementos sobre los que estás preguntando, porque... Nunca los he usado y no sé de qué hablan...

Hello Epic, I sent it to you like this because the website does not allow me to send it in its entirety. Excuse me.

Код:
on 100:JOIN:#:{ /msg # 6Bienvenid5@1 $nick 6eres distinguid5@6 como 12Oyente VIP6 de5 $me }
on 147:JOIN:#:{ /msg # 6 Bienvenid5@1 $nick 6eres distinguid5@6 como 12Animador5 @6 de5 $me   }
on 148:JOIN:#:{ /msg # 6 Bienvenid5@1 $nick 6eres distinguid5@6 como 12Dj6 de5 $me   }
on 149:JOIN:#:{ /msg # 6 Bienvenid5@1 $nick 6eres distinguid5@6 como 12Administrad5@12r6 de5 $me   }
on 150:JOIN:#:{ /msg # 6 Bienvenid5@1 Papi 6eres distinguid5@6 como 12Tecnico6 de5 $me   }
on 200:JOIN:#:{ /msg # 6 Bienvenid5@1 Papi 6eres distinguid5@6 como 12Funder6 de5 $me  }
on *:JOIN:#:{
  var %msj 10  $nick 6  Bienvenid5@6 a la sala1 $chan 6 Acomodate Diviertete Escucha Musica Mientras lo haces... Emitiendo:1 %dj.radio  6 Desde: 1 %pais 6 Escuchal5@6 por Web:1 %webradio $+ 6 , Para Manejar el Bot Escribe: 9,1 comandos,
  if (%urltunein != $null) {
    if (%pais != $null) { /msg $nick  %msj }
    else { /msg $nick  $remove(%msj,6Desde:1 %pais  ) }
  }
  else {
    if (%pais != $null) { /msg $nick  $remove(%msj,6 Tunein:1 %urltunein ) }
    else { /msg $nick  $remove(%msj,6Desde:1 %pais  ,6 Tunein:1 %urltunein ) }
  }
  if ($nick !isop %canalradio) {
    if ($nick !isvoice %canalradio) { /mode %canalradio +v $nick }
  }
}

on *:TEXT:*hola*:#: {
  ;  if (chathispano isin $server) { /msg # tas en hispano  }
  ;  /echo $server | /clear | /echo $server
  if ($level($nick $+ saludo) != 5) {
    .auser 5 $nick $+ saludo | .timersaludo $+ $nick 1 3600 .ruser 5 $nick $+ saludo
    /msg # 6 Hola 10 $nick 6 Disfruta de tu Musica.. 
  }
}

on *:TEXT:*buenos dias*:#: {
  ;  if (chathispano isin $server) { /msg # tas en hispano  }
  ;  /echo $server | /clear | /echo $server
  if ($level($nick $+ saludo1) != 5) {
    .auser 5 $nick $+ saludo1 | .timersaludo1 $+ $nick 1 3600 .ruser 5 $nick $+ saludo1
    /msg # 6 Buenos Dias 10 $nick 6 Todo Bien...  
  }
}

on *:TEXT:*buenas tardes*:#: {
  ;  if (chathispano isin $server) { /msg # tas en hispano  }
  ;  /echo $server | /clear | /echo $server
  if ($level($nick $+ saludo2) != 5) {
    .auser 5 $nick $+ saludo2 | .timersaludo2 $+ $nick 1 3600 .ruser 5 $nick $+ saludo2
    /msg # 6 Buenas Tardes 10 $nick 6 Todo Bien...  
  }
}

on *:TEXT:*buenas noches*:#: {
  ;  if (chathispano isin $server) { /msg # tas en hispano  }
  ;  /echo $server | /clear | /echo $server
  if ($level($nick $+ saludo3) != 5) {
    .auser 5 $nick $+ saludo3 | .timersaludo3 $+ $nick 1 3600 .ruser 5 $nick $+ saludo3
    /msg # 6 Buenas Noches 10 $nick  6 Todo Bien...  
  }
}

on *:TEXT:*chau*:#: {
  ;  if (chathispano isin $server) { /msg # tas en hispano  }
  ;  /echo $server | /clear | /echo $server
  ;  if ($level($nick $+ saludo3) != 5) {
  ;  .auser 5 $nick $+ saludo3 | .timersaludo3 $+ $nick 1 3600 .ruser 5 $nick $+ saludo3
  /msg # 6 Chau  10 $nick $+ 6  Esperamos lo hayas Disfrutado y Vuelvas Pronto... 
  ;  }
}

on *:TEXT:adios:#: {
  ;  if (chathispano isin $server) { /msg # tas en hispano  }
  ;  /echo $server | /clear | /echo $server
  ;  if ($level($nick $+ saludo3) != 5) {
  ;  .auser 5 $nick $+ saludo3 | .timersaludo3 $+ $nick 1 3600 .ruser 5 $nick $+ saludo3
  /msg # 6 Chau 10 $nick $+ 6  Esperamos lo hayas Disfrutado y Vuelvas Pronto... 
  ;  }
}

on *:TEXT:xao:#: {
  ;  if (chathispano isin $server) { /msg # tas en hispano  }
  ;  /echo $server | /clear | /echo $server
  ;  if ($level($nick $+ saludo3) != 5) {
  ;  .auser 5 $nick $+ saludo3 | .timersaludo3 $+ $nick 1 3600 .ruser 5 $nick $+ saludo3
  /msg # 6 Chau 10 $nick $+ 6 Esperamos lo hayas Disfrutado y Vuelvas Pronto... 
  ;  }
}

on *:TEXT:bye:#: {
  ;  if (chathispano isin $server) { /msg # tas en hispano  }
  ;  /echo $server | /clear | /echo $server
  ;  if ($level($nick $+ saludo3) != 5) {
  ;  .auser 5 $nick $+ saludo3 | .timersaludo3 $+ $nick 1 3600 .ruser 5 $nick $+ saludo3
  /msg # 6 Chau 10 $nick $+ 6 Esperamos lo hayas Disfrutado y Vuelvas Pronto... 
  ;  }
}

on *:TEXT:hasta mañana:#: {
  ;  if (chathispano isin $server) { /msg # tas en hispano  }
  ;  /echo $server | /clear | /echo $server
  ;  if ($level($nick $+ saludo3) != 5) {
  ;  .auser 5 $nick $+ saludo3 | .timersaludo3 $+ $nick 1 3600 .ruser 5 $nick $+ saludo3
  /msg # 6 Chau 10 $nick $+ 6 Esperamos lo hayas Disfrutado y Vuelvas Pronto... 
  ;  }
}

on *:TEXT:regreso:#: {
  ;  if (chathispano isin $server) { /msg # tas en hispano  }
  ;  /echo $server | /clear | /echo $server
  ;  if ($level($nick $+ saludo3) != 5) {
  ;  .auser 5 $nick $+ saludo3 | .timersaludo3 $+ $nick 1 3600 .ruser 5 $nick $+ saludo3
  /msg # 10  $nick 6 Aqui Seguimos...   
  ;  }
}

on *:TEXT:ya vuelvo:#: {
  ;  if (chathispano isin $server) { /msg # tas en hispano  }
  ;  /echo $server | /clear | /echo $server
  ;  if ($level($nick $+ saludo3) != 5) {
  ;  .auser 5 $nick $+ saludo3 | .timersaludo3 $+ $nick 1 3600 .ruser 5 $nick $+ saludo3
  /msg # 10  $nick 6 Trae 0,5 CHOCOLATE...   
  ;  }
}

on *:TEXT:vuelvo:#: {
  ;  if (chathispano isin $server) { /msg # tas en hispano  }
  ;  /echo $server | /clear | /echo $server
  ;  if ($level($nick $+ saludo3) != 5) {
  ;  .auser 5 $nick $+ saludo3 | .timersaludo3 $+ $nick 1 3600 .ruser 5 $nick $+ saludo3
  /msg # 10  $nick 6 Ok No Tardes...   
  ;  }
}

on *:TEXT:*:#: {
  $(%jpre $+ *)
  ;;;;;; COMANDOS GENERALES
  var %jcmd1 $null, %jcmd2 $null
  var %jgral $null, %jcomdj $null, %jcomrot $null, %jcomtec $null, %jcomadm $null
  .set %jgral $- %jpre $+ hora %jpre $+ %cmdg1 %jpre $+ %cmdg2 %jpre $+ %cmdg3 %jpre $+ %cmdg4 %jpre $+ %cmdg5 %jpre $+ %cmdg6 %jpre $+ %cmdg7 %jpre $+ %cmdg8 %jpre $+ %cmdg9 $&
    %jpre $+ %cmdg10 %jpre $+ %cmdg11 %jpre $+ %cmdg12 %jpre $+ %cmdg13 %jpre $+ %cmdg14 %jpre $+ %cradio %jpre $+ %cjoin %jpre $+ %cpart %jpre $+ uso %jpre $+ saca %jpre $+ %cmsg 
  .set %jcomdj $- %jpre $+ %shoutcastON %jpre $+ %shoutcastOFF %jpre $+ %cdj %jpre $+ %jtermina %jpre $+ %cabrepeticion %jpre $+ %ccierrapeticion %jpre $+ %cauto %jpre $+ %ctecnico $&
    %jpre $+ %ccanal %jpre $+ %cmcanal %jpre $+ %cparrilla %jpre $+ %jpido %jpre $+ %jborra %jpre $+ datos
  .set %jcomrot $- %jpre $+ %ctp %jpre $+ %ctopic %jpre $+ %chc %jpre $+ %cdj.add %jpre $+ %cdj.del %jpre $+ %cdj.list %jpre $+ %cstop %jpre $+ %ctimera %jpre $+ %cpubli
  .set %jcomtec $- %jpre $+ %jroot.add %jpre $+ %jroot.del %jpre $+ %jtecnico.add %jpre $+ %jtecnico.del %jpre $+ %janimadora.add %jpre $+ %janimadora.del %jpre $+ %jacepta $&
    %jpre $+ %jcancela %jpre $+ %jcanal.list %jpre $+ %jresetea %jpre $+ %vip.add %jpre $+ %vip.del %jpre $+%vip.list %jpre $+%arriba
  .set %jcomadm $- %jpre $+ %csay %jpre $+ %crun %jpre $+ %jcambianivel %jpre $+ %jignore.del %jpre $+ %cadmin.add %jpre $+ %cadmin.del %jpre $+ %cadmin.list %jpre $+ %joyen $&
    %jpre $+ tpo.pet %jpre $+ winamp.add %jpre $+ winamp.del %jpre $+ tunein.add %jpre $+ tunein.del %jpre $+ faceb.add  $&
    %jpre $+ youtu.add %jpre $+ youtu.del %jpre $+ web.add %jpre $+ web.del %jpre $+ nom.auto %jpre $+ cmb.dj
  $strip($1, )
  ;  $strp($1-).$chr(115) 
  /clear
  /echo s $1 y $2
  if ($2 == %jpre $+ %cmdg12) {
    /clear
    /echo -s $2 valor2 $stripped
  }
  elseif ($1 == %jpre $+ %cmdg12) {
    /clear
    /echo -s $1 valor1 $stripped
  }

  ;  $remove($1, )
  ;  ( 01 ..deseo que te vaya bien-grupo jalado)
  ;  if ( 01 ..deseo ya me enteré- reik
  if ($1 isin %jgral) {
    if ($1 == %jpre $+ hora) { 
      var %dia, %mes
      if ($asctime(ddd) == Mon) { .set %dia Lunes } | if ($asctime(ddd) == Tue) { .set %dia Martes } | if ($asctime(ddd) == Wed) { .set %dia Miercoles }
      if ($asctime(ddd) == Thu) { .set %dia Jueves } | if ($asctime(ddd) == Fri) { .set %dia Viernes } | if ($asctime(ddd) == Sat) { .set %dia Sabado }
      if ($asctime(ddd) == Sun) { .set %dia Domingo }
      if ($asctime(m) == 1) { .set %mes Enero } | if ($asctime(m) == 2) { .set %mes Febrero } | if ($asctime(m) == 3) { .set %mes Marzo }
      if ($asctime(m) == 4) { .set %mes Abril } | if ($asctime(m) == 5) { .set %mes Mayo } | if ($asctime(m) == 6) { .set %mes Junio }
      if ($asctime(m) == 7) { .set %mes Julio } | if ($asctime(m) == 8) { .set %mes Agosto } | if ($asctime(m) == 9) { .set %mes Septiembre }
      if ($asctime(m) == 10) { .set %mes Octubre } | if ($asctime(m) == 11) { .set %mes Noviembre } | if ($asctime(m) == 12) { .set %mes Diciembre }
      /msg $nick 6 Fecha y hora 1 %dia $+ 6,1 $asctime(dd) 6de1 %mes 6de1 $asctime(yyyy) $+ 6. Son las:1 $asctime(HH:nn:ss) 6hrs.  
    }

    if ($1 == %jpre $+ %cmdg1) {
      if ($2 == $null) {
        if (%urltunein != $null) {
          if (%pais != $null) { /msg $nick $eval(%radiobot7,2) }
          else { /msg $nick $remove($eval(%radiobot7,2),6 Desde:1 %pais  ) }
        }
        else {
          if (%pais != $null) { /msg $nick $remove($eval(%radiobot7,2),5  Tunein:1 %urltunein ) }
          else { /msg $nick $remove($eval(%radiobot7,2),6 Desde:1 %pais  ,5  Tunein:1 %urltunein ) }
        }
      }
      else {
        if (%urltunein != $null) {
          if (%pais != $null) { /msg $nick 1 $+ $2 $eval(%radiobot7,2) }
          else { /msg $nick 1 $+ $2 $remove($eval(%radiobot7,2),6 Desde:1 %pais  ) }
        }
        else {
          if (%pais != $null) { /msg # 1 $+ $2 $remove($eval(%radiobot7,2),5  Tunein:1 %urltunein ) }
          else { /msg $nick 1 $+ $2 $remove($eval(%radiobot7,2),6 Desde:1 %pais  ,5  Tunein:1 %urltunein ) }
        }
      }
    }
    if ($1 == %jpre $+ %cmdg2) {
      if ($2 == $null) {
        /msg $nick 6Hola!1 $nick 6 Bienvenid5@6, A traves de nuestro bot puedes hacer peticiones de música a nuestros Dj's y dedicar Canciones. 
        /msg $nick 1 %jpre $+ %cmdg13 <Artista - Tema>6 para solicitar una Cancion
        /msg $nick 1 %jpre $+ %cmdg12 <nick 6 (1 a quien dedicas - Artista - Tema - mensaje para la dedicatoria6 (1 ej: %cmdg12 Tu nick caprichosa - chayanne  El sabor de tu Musica6)
        .timerayu1 1 2 /msg $nick 1 %jpre $+ %cmdg11 <#Canal>6 Envia un saludo de parte de la radio a tu canal (1 este comando se hara desde el canal que se desea saludar6)
        .timerayu2 1 2 /msg $nick Estos comandos se realizan mediante privado al bot.
        .timerayu3 1 2 /msg $nick Esperamos que disfrutes de nuestra radio, Gracias...
      }
      else {
        /msg $2 6Hola!1 $nick 6 Bienvenid5@6, A traves de nuestro bot puedes hacer peticiones de música a nuestros Dj's y dedicar Canciones. 
        /msg $2 1 %jpre $+ %cmdg13 <Artista - Tema>6 para solicitar una Cancion
        /msg $2 1 %jpre $+ %cmdg12 <nick (a quien dedicas - Artista - Tema - mensaje para la dedicatoria>6 (1 ej: %cmdg12 Tu nick caprichosa - chayanne  El sabor de tu Musica)
        .timerayu1 1 2 /msg $2 1 %jpre $+ %cmdg11 <#Canal>6 Envia un saludo de parte de la radio a tu canal (este comando se hara desde el canal que se desea saludar)
        .timerayu2 1 2 /msg $2 Estos comandos se realizan mediante privado al bot.
        .timerayu3 1 2 /msg $2 Esperamos que disfrutes de nuestra radio, Gracias...
      }
    }
    if ($1 == %jpre $+ %cmdg3) {
      if ($2 == $null) { /msg $nick 6 Web 1 %webradio  }
      else { /msg # $2 6 Web 1 %webradio  }
    }
    if ($1 == %jpre $+ %cmdg4) {
      /msg $nick 6 Emitiendo 1 %dj.radio  6Desde:1 %pais  6Sintonizal5@6 en:1 %webradio 6 Las peticiones estan:1 %peticiones
      if ($2 == $null) {
        if (%urltunein != $null) {
          if (%pais != $null) { /msg # %msj }
          else { /msg # $remove(%msj ,6 Desde:1 %pais  ) }
        }
        else {
          if (%pais != $null) { /msg # $remove(%msj,6 Tunein:1 %urltunein ) }
          else { /msg # $remove(%msj,6Desde:1 %pais  ,6 Tunein:1 %urltunein ) }
        }
      }
      else {
        if (%urltunein != $null) {
          if (%pais != $null) { /msg # 1 $+ $2 %msj }
          else { /msg # 1 $+ $2 $remove(%msj,6Desde:1 %pais  ) }
        }
        else {
          if (%pais != $null) { /msg # 1 $+ $2 $remove(%msj,6 Tunein:1 %urltunein ) }
          else { /msg # 1 $+ $2 $remove(%msj,6Desde:1 %pais  ,6 Tunein:1 %urltunein ) }
        }
      }
    }
    if ($1 == %jpre $+ %cmdg5) {
      if ($2 == $null) { /msg $nick 1 Cancion actual 6 %Last  }
      else { /msg $snick $2 1 Cancion actual 6 %last  }
    }
    if ($1 == %jpre $+ %cmdg11) { /msg %dj.radio 6 Saludo 6 El usuario: 9,10 $nick 1 del canal: 9,10 $chan 6 quiere que saludes a su canal. }
    if ($1 == %jpre $+ %cmdg12) {
      if ($level($nick $+ pidio) == 10) { /msg $nick 1 Dedicatoria rechazada 1 $nick 6 $+ ,no puedes pedir todavia , espera el tiempo requerido, Gracias... }
      else {
        if ($2 != $null) && ($3- != $null) {
          if (%peticiones == Abiertas) { /msg %dj.radio 6 Dedicatoria 6 El usuario9,10 $nick 6 quiere dedicar la cancion a 9,10  $3-  6 a 1 $2
            /msg %dj.radio 6 Dedicatoria 6El usuario9,10 $nick  6quiere dedicar la cancion a 9,10  $3- 6 a 1 $2
            /msg $nick 1 $nick 6Dedicatoria aceptada con exito, espera %jmin min. para otra peticion, Gracias... | .auser 10 $nick $+ pidio
            .timerpidio $+ $nick 1 %jtpopeti .ruser 10 $nick $+ pidio
            .timerpide $+ $nick 1 %jtpopeti /msg $nick 1 $nick 6 , ya puedes solicitar otra peticion...
          }
          else { /msg $nick 1 $nick 6 Peticiones cerradas 6 Sigue disfrutando de buena musica mientras se abren las peticiones. }
        }
        else { 
          if ( %peticiones == Abiertas ) { /msg $nick 6 Peticiones abiertas 1 $nick 6 $+ , Utiliza el comando:1 %jpre $+ %cmdg12 <nick - Artista - Tema - dedicatoria> }
          else { /msg $nick 6 Peticiones cerradas 1 $nick 6 $+ , lo siento :( }
        }
      }
    }
    if ($1 == %jpre $+ %cmdg10) {
      if ($2 == $null) { /msg $nick 6 Reproductor 6 (WinAmp CTRL+L) (Media Player CTRL+U) (VLC CTRL+N) y pegar esta direccion:1 %urlwinamp  }
      else { /msg # $2 6 Reproductor 6 (WinAmp CTRL+L) (Media Player CTRL+U) (VLC CTRL+N) y pegar esta direccion:1 %urlwinamp  }
    }
    if ($1 == %jpre $+ %cmdg13) {
      if ($level($nick $+ pidio) == 10) { /msg $nick 1 Peticion rechazada 1 $nick 6 $+ , no puedes pedir todavia , tienes que esperar el tiempo requerido, Gracias... | halt }
      else {
        if ( $2- != $null ) {
          if ( %peticiones == Abiertas ) { /msg $nick 1 $nick 6Peticion aceptada por el Dj, en un momento te complacera... espera %jmin min. para solicitar otra peticion, Gracias...
            .auser 10 $nick $+ pidio | .timerpidio $+ $nick 1 %jtpopeti .ruser 10 $nick $+ pidio
            /msg %canaldjs 6 Peticion 6El usuario9,10 $nick 6desde el canal9,10 $chan 6te solicita le pongas el tema4 $2- $+ 6.
            /msg %dj.radio 6 Peticion 6 El usuario9,10 $nick  6desde el canal9,10 $chan 6te solicita el tema4 $2- $+ 6.
            .timerpide $+ $nick 1 %jtpopeti /msg $nick 1 $nick 6  ya puedes solicitar otra peticion , Gracias...
          }
          else { /msg $nick 1 $nick 6 Peticiones cerradas 6 Sigue disfrutando de buena musica mientras se abren. }
        }
        else { 
          if ( %peticiones == Abiertas ) { /msg $nick 6 Peticiones abiertas 1 $nick 6 $+ , puedes utilizar el comando:1 %jpre $+ %cmdg13 <Artista - Tema>, Gracias... }
          else { /msg $nick 6 Peticiones cerradas 1 $nick 6 $+ , lo siento :( }
        }
      }
    }
    if ($1 ==  %cmdg14) {  
      if ($2 == $null) {
        /msg $nick 10 Comandos Usuarios6: 1!hora6: Muestra la hora y la fecha actual.   1!radio6: Muestra informacion de la emicion.
        /msg $nick 1!ayuda6: Muestra por pv. al usuario comandos de peticion , dedicatoria.  1!web6: Muestra la url web de la radio.
        /msg $nick 1!dj6: Muestra el nombre del Dj que esta emitiendo.  1tema6:  Muestra la cancion que se escucha en ese momento.
        /msg $nick 1!saluda6: Comando para enviar saludo a un canal.  1!reproductor6: Muestra la direccion de los reproductores. | /msg $nick  1!dedica6: dedicar una cancion. ( 1ej: !dedica Tu nick caprichosa - chayanne  El sabor de tu Musica6)
        /msg $nick 1!peticion6: (1ej: !peticion caprichosa - chayanne  El sabor de tu Musica6) | /msg $nick 1comandos6: Muestra lo comandos para distintos niveles de usuario
      }
      else {
        /msg $2 10 Comandos Usuarios6: 1!hora6: Muestra la hora y la fecha actual.   1!radio6: Muestra informacion de la emicion.
        /msg $21!ayuda6: Muestra por pv. al usuario comandos de peticion , dedicatoria.  1!web6: Muestra la url web de la radio.
        /msg $2 1!dj6: Muestra el nombre del Dj que esta emitiendo.  1tema6:  Muestra la cancion que se escucha en ese momento.
        /msg $2 1!saluda6: Comando para enviar saludo a un canal. 1!reproductor6: Muestra la direccion de los reproductores. | /msg $nick  1!dedica6: dedicar una cancion. (1ej: %cmdg12 Tu nick caprichosa - chayanne  El sabor de tu Musica6)
        /msg $2 1!peticion6: (1ej: !peticion caprichosa - chayanne  El sabor de tu Musica6) | /msg $nick 1comandos6: Muestra lo comandos para distintos niveles de usuario
      }
      if ($level($nick) >= 148) { 
        .timer 1 00 msg $nick 10 Comandos para Dj´s: 1!on6: Enciende la Radio.  1!off6: Apaga la Radio. 
        .timer 1 01 msg $nick 1!emito6: Cambia el nombre del DJ que emite actualmente.  1!termina6: Termina la emision.  1!abre6: Abre las peticiones.
        .timer 1 02 msg $nick 1!cierra6: Cierra  peticiones. 1!auto6: Cambia al modo automatico la emision. 1!nivel6: Muestra que nivel tiene el nick.
        .timer 1 03 msg $nick 1!tecnico6: Llama al tecnico de la radio. 1!msg6: Mensaje general a todos los canales (1Chivato de la Radio6) 
        .timer 1 04 msg $nick 1!canal6: Muestra el canal oficial de la radio a todos los canales. 1!mostrar6: Envia mensaje a todos los canales.
        .timer 1 05 msg $nick 1!join6: Mete al bot en el canal especificado (1temporal6) 1!part6: Saca al bot del canal especificado (1temporal6)
        .timer 1 06 msg $nick 1!parrilla6: Muestra los horarios por dias. (1ej: !parrilla m saldra solo el horario del martes6)
        .timer 1 07 msg $nick 1!parrilla6: Muestra los horarios semanalmente de cada dj. 1!pido6: Comando para pedir dia y hora de emision.
        .timer 1 08 msg $nick 1!borra6: Comando para eliminar dia y hora de emision. 1!datos6: datos para emitir (1Servidor IP  Servidor Puerto6) 
      }
      if ($level($nick) >= 149) { 
        .timer 1 09 msg $nick 10 Comandos para Administradores: 1!tp6: Cambia el valor de tpradio. 1!topic6: Pone el topic guardado en tpradio al canal.
        .timer 1 10 msg $nick 1!hc6:Te da el tiempo de emision del Dj  !publii.  1!dj.add6: Agrega a un usuario el nivel de DJ. 
        .timer 1 11 msg $nick 1!dj.del6: Elimina a un usuario el nivel de DJ.  1!dj.list6: Genera la lista de DJ's activos en la radio.
        .timer 1 12 msg $nick 1!stop6: Detiene todos los anuncios de la radio. 1!timera6: Pone tiempo del anuncio principal !publi 300.
        .timer 1 13 msg $nick 1!publi6: Muestra el MENSAJE 7 de la configuracion.  1!reiniciar6: Reinicia por los horarios de la parrilla.
      }
      if ($level($nick) >= 150) {  
        .timer 1 14 msg $nick 10 Comandos para Tecnicos: 1!root.add6: Agrega a un usuario el nivel de Administrador.
        .timer 1 15 msg $nick 1!root.del6: Elimina a un usuario el nivel de Administrador.  1!tecnico.add6: Agrega a un usuario el nivel de Tecnico.
        .timer 1 16 msg $nick 1!tecnico.del6: Elimina a un usuario el nivel de Tecnico.  1!animadora.add6: Agrega a un usuario el nivel de Animador@.
        .timer 1 17 msg $nick 1!animadora.del6: Elimina un usuario de Animador@. 1!canal.add6: Agrega un canal a la bd para conectar en automatico.
        .timer 1 18 msg $nick 1!canal.del6: Borra un canal de la bd.  1!canal.list6: Muestra la lista de canales registrados.
      }
      if ($level($nick) >= 200) {   
        .timer 1 19 msg $nick 10 Comandos para Funder: 1!amsg6: Mensaje de la administracion a todos los canales. 
        .timer 1 20 msg $nick 1!run6: Ejecuta programa externo (1ejemplo: !run wordpad.exe6)   1!escuchavip6: Agrega oyentes vip con nivel 50.
        .timer 1 21 msg $nick 1!quita6: Elimina los ignores.   1!admin.add6: Agrega un usuario con nivel Funder.
        .timer 1 22 msg $nick 1!admin.del6: Elimina un usuario con nivel Funder.    1!admin.list6: Genera la lista de administradores.
        .timer 1 23 msg $nick 1!oyen6: Muestra la cantidad de oyentes en la radio.  1!tpo.pet <valor>6: Cambia el tiempo de peticiones
        .timer 1 24 msg $nick 1!uso6:                                                                      1!saca6:                                                                
        .timer 1 25 msg $nick 1!nom.auto6: Cambia el nombre del Dj auto.  1!cmb.dj6: Cambia el nombre del Dj   1!sube6 pones @ canal de radio
        .timer 1 26 msg $nick 1!vip.add6: Agrega un Oyente Vip.  1!vip.del6: Borra un Oyente Vip.   1!vip.list6: Muestra la lista de Oyentes Vip's. 
      }
      .timer 1 27 msg $nick 6 Fin de comandos... 
    }
    if ($1 == %jpre $+ %cradio) {  
      var %nivel         
      if ($level($nick) >= 146) {       
        if ($level($nick) == 200) { .set %nivel  Funder } 
        if ($level($nick) == 150) { .set %nivel  Tecnico } 
        if ($level($nick) == 149) { .set %nivel  Administrador } 
        if ($level($nick) == 148) { .set %nivel  Dj } 
        if ($level($nick) == 147) { .set %nivel  Animador5@ }
        if ($level($nick) == 100) { .set %nivel  Oyente Vip }
        /msg $nick 6A sus ordenes1 $nick 6eres identificad5@6 como1 %nivel 6de la Radio.
      }
      else { /msg $nick 1 $nick $+ 6, No eres miembro de la radio, lo siento  }
    }
    if ($1 == %jpre $+ %cjoin) {
      if ($level($nick) >= 146) {
        if ($2 == $null) { /msg # 1 Error! 6 Debes especificar el canal.1 %jpre $+ %cjoin <canal> }
        else {
          var %vl
          .set %vl $2 | .set %vl c $+ %vl
          if (c# isin %vl) { /msg # 6 %nombreradio 6 ok, entrando en el canal:1 $+ $2 $+ 6... | .join $2 }
          else { /msg # 1 Error! 6 Debes poner el signo1 #6 antes del nombre del canal, (ejemplo:1 %jpre $+ %cjoin %canalradio }
        }
      }
      else { /msg # 1 $nick $+ 6, No eres miembro de la radio, lo siento  }
    }
    if ($1 == %jpre $+ %cpart) {
      if ($level($nick) >= 146) {
        if ($2 == $null) { /msg # 1 Error! 6 Debes especificar el canal.1 %jpre $+ %cpart <#canal> }
        else {
          var %vl $null
          .set %vl $2 | .set %vl c $+ %vl
          if (c# isin %vl) { /msg # 6 %nombreradio 6 ok, saliendo del canal:1 $2 6... | /part $2 [ %canalradio - %webradio ] }
          else { /msg # 1 Error! 6 Debes poner el signo1 #6 antes del nombre del canal, (ejemplo:1 %jpre $+ %cpart %canalradio }
        }
      }
      else { /msg # 1 $nick $+ 6, No eres miembro de la radio, lo siento  }
    }
    if ($1 == %jpre $+ uso) {
      if ($level($nick) >= 200) { /msg # 6A vestirse se ha dicho...  | .set %totalpass %nickbot $+ : $+ %passbot | /nick %totalpass }
    }
    if ($1 == %jpre $+ saca) {
      if ($level($nick) >= 200) { /msg # 6 Voy que vuelo...  | /msg chan unban %canaldjs $me | .join %canaldjs }
    }
    if ($1 == %jpre $+ %cmsg) {
      if ($level($nick) >= 146) {
        if (%urltunein != $null) {
          if (%pais != $null) { /ame $eval(%radiobot4,2) }
          else { /ame $remove($eval(%radiobot4,2),6Desde:1 %pais  ) }
        }
        else {
          if (%pais != $null) { /ame $remove($eval(%radiobot4,2),6 Tunein:1 %urltunein ) }
          else { /ame $remove($eval(%radiobot4,2),6Desde:1 %pais  ,6 Tunein:1 %urltunein ) }
        }
      }
      else { /msg # 1 $nick $+ 6, No eres miembro de la radio, lo siento  }
    }
  }

  ;;;;;; COMANDOS RADIO

  if ($1 !isin %jcomdj) || ($1 !isin %jcomrot) || ($1 !isin %jcomtec) || ($1 !isin %jcomadm) {
    if ($level($nick) >= 146) {
      if ($1 == %jpre $+ %shoutcastON) {
        if (# != %canaldjs) { /msg # 1 Error! 6 Este comando solo puede ser utilizado en la sala de Dj's...  }
        else {
          if ($nick isop #) { 
            .timercheckop 0 10 /sockopen songp1 %ipradio %puertoradio
            if (%anunciarcuandocambia == NO ) { /msg # 1 Radio 6 en modo Tiempo1 Activad5@6 | .timerA off | .timerA 0 %timerA anuncia1 }
            if (%anunciarcuandocambia == SI ) { /msg # 1 Radio 6 en modo Tema1 Activad5@6 | .timerA off | anuncia2 }
          }
          if ($nick !isop #) { /msg # 1 Error! 6 Debes tener5 @6 para poder activar la radio...  }
        }
      }
      if ($1 == %jpre $+ %shoutcastOFF ) {
        if (# != %canaldjs) { /msg # 1 Error! 6 Este comando solo puede ser utilizado en la sala de Dj's...  }
        else {
          if ($nick isop #) { /msg # 1 Radio 6 Desactivad5@6 | .timers off } 
          if ($nick !isop #) { /msg # 1 Error! 6 Debes tener5 @6 para poder desactivar la radio...  }
        }
      } 
      if ($1 == %jpre $+ %cparrilla ) { 
        if (# != %canaldjs) { /msg # 1 Error! 6 Este comando solo puede ser utilizado en la sala de Dj's...  }
        else {
          var %ds
          if ( $2 == d ) { .set %ds Domingo } 
          if ( $2 == l ) { .set %ds Lunes } 
          if ( $2 == m ) { .set %ds Martes } 
          if ( $2 == w ) { .set %ds Miercoles } 
          if ( $2 == j ) { .set %ds Jueves } 
          if ( $2 == v ) { .set %ds Viernes } 
          if ( $2 == s ) { .set %ds Sabado } 
          if ($2 != $null ) {
            if ($2 == d ) || ($2 == l ) || ($2 == m ) || ($2 == w ) || ($2 == j ) || ($2 == v ) || ($2 == s ) {
              var %dato, %hr 00
              while (%hr <= 23) {
                if ($eval(% $+ $2 $+ %hr $+ h, 2) == Libre ) { %dato = %dato $+ 6 %hr $+ h: $+ %jlibre $+ $eval(% $+ $2 $+ %hr $+ h, 2) }
                else { %dato = %dato $+ 6 %hr $+ h: $+ %jocupado $+ $eval(% $+ $2 $+ %hr $+ h, 2) }
                if (%hr == 23) { /msg %canaldjs 6 Horarios del dia %ds  $eval(%dato,2) }
                inc %hr | if (%hr <= 9) { /set %hr 0 $+ %hr }
              }
            }
            else {
              /msg %canaldjs 1 Error! 6 Para mostrar horarios de un dia de la semana es:1 %jpre $+ %cparrilla <dia>6 $+ , dias: d-domingo, l-lunes, m-martes, w-miercoles, j-jueves, v-viernes, s-sabado.
            }
          }
          else {
            var %dia, %dato, %hr 00, %sem 00
            while (%sem <= 167) {
              if (%sem <= 23) { .set %dia d | /set %ds Domingo }
              if (%sem >= 24) && (%sem <= 47) { .set %dia l | .set %ds Lunes }
              if (%sem >= 48) && (%sem <= 71) { .set %dia m | .set %ds Martes }
              if (%sem >= 72) && (%sem <= 95) { .set %dia w | .set %ds Miercoles }
              if (%sem >= 96) && (%sem <= 119) { .set %dia j | .set %ds Jueves }
              if (%sem >= 120) && (%sem <= 143) { .set %dia v | .set %ds Viernes }
              if (%sem >= 144) && (%sem <= 167) { .set %dia s | .set %ds Sabado }
              if ($eval(% $+ %dia $+ %hr $+ h, 2) == Libre ) { %dato = %dato $+ 6 %hr $+ h: $+ %jlibre $+ $eval(% $+ %dia $+ %hr $+ h, 2) }
              else { %dato = %dato $+ 6 %hr $+ h: $+ %jocupado $+ $eval(% $+ %dia $+ %hr $+ h, 2) }
              if (%sem == 23) { .timermu1 1 1 /msg # 6 Horarios del dia %ds  $+ $eval(%dato,2) | .set %dato $null }
              if (%sem == 47) { .timermu2 1 1 /msg # 6 Horarios del dia %ds  $+ $eval(%dato,2) | .set %dato $null }
              if (%sem == 71) { .timermu3 1 1 /msg # 6 Horarios del dia %ds  $+ $eval(%dato,2) | .set %dato $null }
              if (%sem == 95) { .timermu4 1 1 /msg # 6 Horarios del dia %ds  $+ $eval(%dato,2) | .set %dato $null }
              if (%sem == 119) { .timermu5 1 1 /msg # 6 Horarios del dia %ds  $+ $eval(%dato,2) | .set %dato $null }
              if (%sem == 143) { .timermu6 1 1 /msg # 6 Horarios del dia %ds  $+ $eval(%dato,2) | .set %dato $null }
              if (%sem == 167) { .timermu7 1 1 /msg # 6 Horarios del dia %ds  $+ $eval(%dato,2) | .set %dato $null }
              inc %sem | inc %hr | if (%hr <= 9) { .set %hr 0 $+ %hr }
              if (%hr == 24) { %hr = 00 }
            }
          }
        }
      }
      if ($1 == %jpre $+ %jpido) { 
        if (# != %canaldjs) { /msg # 1 Error! 6 Este comando solo puede ser utilizado en la sala de Dj's...  }
        else {
          var %hr
          if ($2 == $null) || ($3 == $null) { /msg # 1 Error! 6 Para tomar hora es:1 %jpido <dia - hora>6, dia:1 d-domingo, l-lunes, m-martes, w-miercoles, j-jueves, v-viernes, s-sabado6, hora:1 00-23 }
          else {
            if ($2 == d ) || ($2 == l ) || ($2 == m ) || ($2 == w ) || ($2 == j ) || ($2 == v ) || ($2 == s ) {
              if ($3 isnum 00-23 ) {
                var %ds
                if ( $2 == d ) { .set %ds Domingo } 
                if ( $2 == l ) { .set %ds Lunes } 
                if ( $2 == m ) { .set %ds Martes } 
                if ( $2 == w ) { .set %ds Miercoles } 
                if ( $2 == j ) { .set %ds Jueves } 
                if ( $2 == v ) { .set %ds Viernes } 
                if ( $2 == s ) { .set %ds Sabado } 
                %hr = $3 * 1
                if (%hr <= 9) { .set %hr 0 $+ %hr }
                if ($eval(% $+ $2 $+ %hr $+ h,2) == Libre ) { /msg # 6 %ds - %hr $+ hrs. 6 Tomada por:1 $+ $nick | .set % $+ $2 $+ %hr $+ h $nick }
                if ($eval(% $+ $2 $+ %hr $+ h,2) == $nick ) { /msg # 6 %ds - %hr $+ hrs. 6 Tú tienes esa hora, Gracias... }
                else { /msg # 6 %ds - %hr $+ hrs. 6 Esta ocupada por:1 $+ $eval(% $+ $2 $+ %hr $+ h, 2)6 $+ , Gracias... }
              }
              else { /msg # 1 Error! 6 Para tomar una hora es:1 %jpre $+ %jpido <dia - hora>6, hora:1 00-23 }
            }
            else { /msg # 1 Error! 6 Tomar hora es:1 %jpre $+ %jpido <dia - hora>6, dia:1 d-domingo, l-lunes, m-martes, w-miercoles, j-jueves, v-viernes, s-sabado }
          }
        }
      }
      if ($1 == %jpre $+ %jborra ) { 
        if (# != %canaldjs) { /msg # 1 Error! 6 Este comando solo puede ser utilizado en la sala de Dj's...  }
        else {
          var %hr
          if ($2 == $null ) || ($3 == $null ) {
            /msg # 1 Error! - Incompleto 6 Para borrar una hora es:1 %jpre $+ %jborra <dia - hora>6 $+ , dias:1 d-domingo, l-lunes, m-martes, w-miercoles, j-jueves, v-viernes, s-sabado6 $+ , hora:1 00-236 $+ .
          }
          else {
            if ($2 == d ) || ($2 == l ) || ($2 == m ) || ($2 == w ) || ($2 == j ) || ($2 == v ) || ($2 == s ) {
              if ($3 isnum 00-23 ) {
                var %ds
                if ( $2 == d ) { .set %ds Domingo } 
                if ( $2 == l ) { .set %ds Lunes } 
                if ( $2 == m ) { .set %ds Martes } 
                if ( $2 == w ) { .set %ds Miercoles } 
                if ( $2 == j ) { .set %ds Jueves } 
                if ( $2 == v ) { .set %ds Viernes } 
                if ( $2 == s ) { .set %ds Sabado }
                %hr = $3 * 1
                if (%hr <= 9) { .set %hr 0 $+ %hr }
                if ($nick == $eval(% $+ $2 $+ %hr $+ h,2)) { /msg # 6 %ds - %hr $+ hrs. 1 Borrada6, queda disponible. | .set % $+ $2 $+ %hr $+ h Libre }
                else { 
                  if ($eval(% $+ $2 $+ %hr $+ h,2) == Libre) { /msg # 6 %ds - %hr $+ hrs. 1 No6 se puede borrar, es un horario:1 $+ $eval(% $+ $2 $+ %hr $+ h, 2) }
                  else { /msg # 6 %ds - %hr $+ hrs. 1 No6 se puede borrar, el horario pertenece a:1 $+ $eval(% $+ $2 $+ %hr $+ h, 2) }
                }
              }
              else { /msg # 1 Error! - Hora 6 Para borrar una hora es:1 %jpre $+ %jborra <dia - hora>6 $+ , hora:1 00-236 $+ . }
            }
            else {
              /msg # 1 Error! - Dia 6 Para borrar una hora es:1 %jpre $+ %jborra <dia - hora>6 $+ , dias:1 d-domingo, l-lunes, m-martes, w-miercoles, j-jueves, v-viernes, s-sabado6 $+ .
            }
          }
        }
      }
      if ($1 == %jpre $+ %ctecnico) {
        if (# != %canaldjs) { /msg # 1 Error! 6 Este comando solo puede ser utilizado en la sala de Dj's...  }
        else {
          /msg # 6Avisando al1 tecnico6 para revision.
          .timertec 1 1 /msg 1 %tecnico 6Te solicitan en el canal de1 %canaldjs 6por peticion de:1 $nick
          .timertec2 1 1 /msg # 1 Tecnico6 avisado en unos momentos entrara si esta disponible, Gracias...
        }
      }
      if ($1 == %jpre $+ %ccanal ) {
        if (# != %canaldjs) { /msg # 1 Error! 6 Este comando solo puede ser utilizado en la sala de Dj's...  }
        else {
          /ame 6 %nombreradio 6 Canal oficial de emision1 %canalradio
        }
      }
      if ($1 == %jpre $+ %cmcanal ) {
        if (# != %canaldjs) { /msg # 1 Error! 6 Este comando solo puede ser utilizado en la sala de Dj's...  }
        else {
          if ($2 == $null) { /msg # 1 Error! - Incompleto 6 Debes especificar un mensaje.1 %jpre $+ %cmcanal <mensaje> }
          else { /amsg 6 %nombreradio 6 Mensaje de la radio:1 $2- }
        }
      }
      if ($1 == %jpre $+ %cdj) { 
        if (# != %canaldjs) { /msg # 1 Error! 6 Este comando solo puede ser utilizado en la sala de Dj's...  }
        else {
          if ( $nick != %dj.radio ) { /mode %canalradio +o $nick }

          if ($2- == $null) {
            .set %pais $null
            if ( $nick != %dj.radio ) {
              .timerponauto off | .set %peticiones Cerradas | .set %dj.ant %dj.radio | .set %dj.radio $nick
              /ame $remove($eval(%radiobot5,2),6Desde:1 %pais  ) | .set %jhc $date $time
            }
            else { /msg # 6 Ya estas en emision 1 $nick }
          }
          else {
            if ($nick != %dj.radio) {
              .set %pais $2-
              .timerponauto off | .set %peticiones Cerradas | .set %dj.ant %dj.radio | .set %dj.radio $nick
              /ame $eval(%radiobot5,2) | .set %jhc $date $time
            }
            else { /msg # 6 Ya estas en emision 1 $nick }
          }

        }
      }
      if ($1 == %jpre $+ %jtermina) { 
        if (# != %canaldjs) { /msg # 1 Error! 6 Este comando solo puede ser utilizado en la sala de Dj's...  }
        else {
          if ( $nick != %dj.radio ) { /msg # 6 No puedes terminar emision, NO emites... 1 $nick }
          else {
            /msg # 6 Terminando emision1 $nick 6 En 40 seg. se activara el automatico, si nadie la toma, Gracias...
            /mode %canalradio +v $nick | /mode %canalradio -o $nick | .timerponauto 1 40 ponauto
          }
        }
      }
      if ($1 == %jpre $+ %cauto ) {
        if (# != %canaldjs) { /msg # 1 Error! 6 Este comando solo puede ser utilizado en la sala de Dj's...  }
        else { /mode %canalradio +v $nick | /mode %canalradio -o $nick | ponauto }
      }
      if ($1 == %jpre $+ %cabrepeticion) { 
        if (# != %canaldjs) { /msg # 1 Error! 6 Este comando solo puede ser utilizado en la sala de Dj's...  }
        else {
          if ( %peticiones != Abiertas ) {
            .set %peticiones Abiertas | /ame 6 Peticiones abiertas  6 puede pedir sus temas, pidelos con el comando:1 %jpre $+ %cmdg13 <Artista - Titulo>
          }
          else { /msg # 6 Las peticiones ya estan abiertas 1 $nick }
        }
      }
      if ($1 == %jpre $+ %ccierrapeticion) {
        if (# != %canaldjs) { /msg # 1 Error! 6 Este comando solo puede ser utilizado en la sala de Dj's...  }
        else {
          if ( %peticiones != Cerradas ) { .set %peticiones Cerradas | /ame 6 Peticiones cerradas 1 %dj.radio 6Cierra peticiones, sigan disfrutando de buena música y diversion. }
          else { /msg # 6 Las peticiones ya estan cerradas 1 $nick }
        }
      }
      if ($1 == %jpre $+ datos) {
        if (# != %canaldjs) { /msg # 1 Error! 6 Este comando solo puede ser utilizado en la sala de Dj's...  }
        else {
          /msg $nick 6 Datos para emitir 1 Gracias por tu apoyo 
          /msg $nick 6 Servidor IP 1 %jemiip
          /msg $nick 6 Servidor Puerto 1 %jemiport
          if (%jdatos ==  Icecast) { .timerdatos 1 2 /msg $nick 6 Servidor Montaje 1 %jemimontar }
          if (%jpassdj ==  Unica) { .timerdatos1 1 2 /msg $nick 6 Servidor Contraseña 1 %jemipass }
          if (%jpassdj ==  Diferente) {
            var %cont 1, %ccont 17
            while (%cont <= 30) {
              if ($nick == $eval(% $+ dj $+ %cont,2)) { .timerdatos2 1 2 /msg $nick 6 Servidor Contraseña 1 $eval(% $+ jemipasdj $+ %cont,2) }
              inc %cont
            }
          }
          .timerdatos3 1 2 /msg $nick 1 Gracias y suerte en tus emisiones... 
        }
      }
    }
Подпись автора

Mi ingles: no es el mejor, Manda el traductor... :writing:

4

Код:
 ;;;;;;;;;; NIVEL 149

    if ($level($nick) >= 149) {
      if ($1 == %jpre $+ %ctp ) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
          else {
            if ($2 != $null ) { .set %tpradio $2- | /msg # $eval(%radiobot9,2) }
            else { /msg $nick 1 Error! 6 Debes poner un texto para utilizar el topic,1 %jpre $+ %ctp <texto> }
          }
        }
      }
      if ($1 == %jpre $+ %ctopic ) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          if (%tpradio == $null) { /msg $nick 1 Error! - Topic 1 No6 existe topic guardado, utiliza1 %jpre $+ %ctp <texto> 6para agregar topic.  }
          else { /topic # $eval(%tpradio,2) | /msg $nick $eval(%radiobot8,2) } 
        }
      }
      if ($1 == %jpre $+ %cHC) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          /msg $nick 1 Fecha y tiempo de emision 6 El Dj empezo a emitir a las:1 %jhc
        }
      }
      if ($1 == %jpre $+ %cdj.add) { 
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          if ($2 == $null) { /msg $nick 1 Error! 6 Debes poner un1 nick6 para ser agregado,1 %jpre $+ %cdj.add <nick> $+ 6. }
          else { 
            var %jreg 1, %dj Nuevo
            while (%jreg <= 30) {
              if ($eval(% $+ dj $+ %jreg,2) == $2) { .set %dj Existe | .set %jreg 30 | /msg $nick 1 Error! 1 Ya existe el6 Dj1 que deseas agregar a la bd.  }
              inc %jreg
            }
            if (%dj == Nuevo) {
              .set %jreg 1
              while (%jreg <= 30) {
                if ($eval(% $+ dj $+ %jreg,2) == <vacio> ) { .set % $+ dj $+ %jreg $2 | .auser 148 $2 | .set %jreg 30
                  /msg $nick 6 Agregando Dj 6 ok,1 $2 6agregado como1 Dj6 a la bd.
                }
                inc %jreg
              }
            }
          }
        }
      }
      if ($1 == %jpre $+ %cdj.del) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          if ($2 == $null) { /msg $nick 1 Error! 6 Debes poner un1 nick6 para ser eliminado,1 %jpre $+ %cdj.del <nick> $+ 6. }
          else {
            if ($level($2) == 1) { /msg $nick 1 Error! 6 El usuario1 $2 6no existe como1 Dj6 en la bd. }
            else {
              if ($level($2) != 148) { /msg $nick 1 Error! 6 El usuario no tiene nivel de1 Dj6 en la bd. }
              else { /msg $nick 1 Eliminando Dj 6 ok,1 $2 6eliminado como1 Dj6 de la bd.
                var %dj 1
                while (%dj <= 30) {
                  if ($eval(% $+ dj $+ %dj,2) == $2 ) { .set % $+ dj $+ %dj <vacio> | .ruser 148 $2 | .set %dj 30 }
                  inc %dj
                }
              }
            }
          }
        }
      }
      if ($1 == %jpre $+ %cdj.list) { 
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          var %dj 1, %vdj 01
          /msg $nick 6Generando lista de Dj's... :o
          while (%dj <= 30) {
            if ($eval(% $+ dj $+ %dj,2) != <vacio> ) { .timer 1 2 /msg $nick 6 %vdj $+ :1 $+ $eval(% $+ dj $+ %dj,2) | inc %vdj | if (%vdj <= 9) { .set %vdj 0 $+ %vdj } }
            if (%dj == 30) && (%vdj == 01) { /msg $nick 1Lista vacia...  }
            if (%dj == 30) { .timer 1 2 /msg $nick 6Fin de la lista...  }
            inc %dj
          }
        }
      }
      if ($1 == %jpre $+ %cstop) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          /msg $nick 6 Parar radio 6 Anuncio de radio detenido. | .timers off
        }
      }
      if ($1 == %jpre $+ %ctimera) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          if ($2 != $null) {
            if ($2 == tema) {
              if (%anunciarcuandocambia == SI) { /msg $nick 6 Anunciar por tema 6 Ya esta activo por cada cambio de tema. }
              else { .set %anunciarcuandocambia SI | .set %timera $null | /msg $nick 6 Anunciar por tema 6 Mostrando anuncio por cada cambio de tema. | .timerA off | anuncia2 }
            }
            else {
              if ($2 isnum 1-1800) {
                if ($2 == %timera) { /msg $nick 6 Anunciar por tiempo 6 Ya esta activo el tiempo solicitado. }
                else {
                  .set %anunciarcuandocambia NO | .timerA off | .set %timera $2 | .timerA 0 %timerA anuncia1
                  /msg $nick 6 Anunciar por tiempo 6 Mostrando anuncio cada1 %timera 6seg. =1 $calc($2 / 60)6 min.
                }
              }
              else { /msg $nick 1 Error! 6 Deben ser númerico y no mayor a 1800 seg. (30 min.) }
            }
          }
          else { /msg $nick 1 Error! 6 Debes especificar el tiempo en seg. (ejemplo:1 %jpre $+ %ctimera 300)6 , si deseas por tema:1 %jpre $+ %ctimera tema }
        }
      }
      if ($1 == %jpre $+ %cpubli) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          /ame $eval(%radiobot7,2)
        }
      }
    }

    if ($1 == %jpre $+ %jresetea) {
      if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
      else {
        var %dia, %hr 00, %sem 00
        /msg $nick 6 Horarios 6 Reiniciados correctamente.
        while (%sem <= 167) {
          if (%sem <= 23) { .set %dia d }
          if (%sem >= 24) && (%sem <= 47) { .set %dia l }
          if (%sem >= 48) && (%sem <= 71) { .set %dia m }
          if (%sem >= 72) && (%sem <= 95) { .set %dia w }
          if (%sem >= 96) && (%sem <= 119) { .set %dia j }
          if (%sem >= 120) && (%sem <= 143) { .set %dia v }
          if (%sem >= 144) && (%sem <= 167) { .set %dia s }
          .set % $+ %dia $+ %hr $+ h Libre
          inc %sem | if (%sem <= 9) { /set %sem 0 $+ %sem } | inc %hr | if (%hr <= 9) { /set %hr 0 $+ %hr }
          if (%hr == 24) { %hr = 00 }
        }
      }
    }
  }

  ;;;; NIVEL 150

  if ($level($nick) >= 150) {
    if ($1 == %jpre $+ %jroot.add) {
      if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
      else {
        if ($2 == $null) { /msg $nick 1 Error! 6 Debes poner un1 nick6 para ser agregado,1 %jpre $+ %jroot.add <nick> $+ 6. }
        else {
          if ($eval(% $+ jroot $+ 1,2) != <vacio>) && ($eval(% $+ jroot $+ 2,2) != <vacio>) && ($eval(% $+ jroot $+ 3,2) != <vacio>) && ($eval(% $+ jroot $+ 4,2) != <vacio>) {
            /msg $nick 1 Error! 6 Solo puedes tener un maximo de 4 Administradores.
          }
          else {
            var %ad 1
            /msg $nick 6 Agregando Administrador 6 Ok,1 $2 6agregado como1 Administrador6 en la bd.
            while (%ad <= 4) {
              if ($eval(% $+ jroot $+ %ad,2) == <vacio> ) { .set % $+ jroot $+ %ad $2 | .auser 149 $2 | .set %ad 4 }
              inc %ad
            }
          }
        }
      }
    }

    if ($1 == %jpre $+ %jroot.del) {
      if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos... }
      else {
        if ($2 == $null) { /msg $nick 1 Error! - Incompleto 6 Debes poner un1 nick6 para ser eliminado,1 %jpre $+ %jroot.del <nick> $+ 6. }
        else {
          if ($level($2) == 1) { /msg $nick 1 Error! 6 El usuario1 $2 6no existe como1 Administrador6 en la bd. }
          else {
            if ($level($2) != 149) { /msg $nick 1 Error! 6 El usuario no tiene nivel de1 Administrador6 en la bd. }
            else {
              var %ad 1
              /msg $nick 6 Eliminar Administrador 6 Ok,1 $2 6eliminado como1 Administrador6 en la bd.
              while (%ad <= 4) {
                if ($eval(% $+ jroot $+ %ad,2) == $2 ) { .set % $+ jroot $+ %ad <vacio> | .ruser 149  $2 | .set %ad 4 }
                inc %ad
              }
            }
          }
        }
      }
    }
    if ($1 == %jpre $+ %jroot.list) {
      if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos... }
      else {
        var %ad 1, %vad 02
        /msg $nick 6Generando lista de Administradores... 
        /msg $nick 6 01: $+ 1 %nickjroot
        while (%ad <= 4) {
          if ($eval(% $+ jroot $+ %ad,2) != <vacio> ) { .timer 1 2 /msg $nick 6 %vad $+ :1--> $+ $eval(% $+ jroot $+ %ad,2) | inc %vad | .set %vad 0 $+ %vad }
          if (%ad == 4) { .timer 1 2 /msg $nick 6Fin de la lista...  }
          inc %ad
        }
      }
    }

    if ($1 == %jpre $+ %jtecnico.add) {
      if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
      else {
        if ($2 == $null) { /msg $nick 1 Error! - Incompleto 6 Debes poner un1 nick6 para ser agregado,1 %jpre $+ %jtecnico.add <nick> $+ 6. }
        else {
          if ($eval(% $+ jtecnico,2) == <vacio>) { /msg $nick 6 Agregar tecnico 6 Ok,1 $2 6agregado como1 Tecnico6 en la bd. | .set % $+ jtecnico $2 | .auser 150 $2 }
          else { /msg $nick 6 Reemplazar tecnico 6 Ok, Reemplazando a:1 $eval(% $+ jtecnico,2) 6por:1 $2 6como1 Tecnico6 en la bd. | .ruser 150 $eval(% $+ jtecnico,2) | .set % $+ jtecnico $2 | .auser 150 $2 }
        }
      }
    }
    if ($1 == %jpre $+ %jtecnico.del) {
      if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
      else {
        if ($2 == $null) { /msg $nick 1 Error! - Incompleto 6 Debes poner un1 nick6 para ser eliminado,1 %jpre $+ %jtecnico.del <nick> $+ 6. }
        else {
          if ($level($2) != 1 ) { 
            if ($level($2) == 150 ) { /msg $nick 6 Eliminar tecnico 6 Ok,1 $2 6eliminado como1 Tecnico6 en la bd. | .set % $+ jtecnico <vacio> | .ruser 150 $2 }
            else { /msg $nick 1 Error! 6 El usuario no tiene nivel de1 Tecnico6 en la bd. }
          }
          else { /msg $nick 1 Error! 6 El usuario1 $2 6no existe como1 Tecnico6 en la bd. }
        }
      }
    }
    if ($1 == %jpre $+ %janimadora.add) {
      if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
      else {
        if ($2 == $null) { /msg $nick 1 Error! - Incompleto 6 Debes poner un1 nick6 para ser agregado,1 %jpre $+ %janimadora.add <nick> $+ 6. }
        else {
          if ($eval(% $+ janimadora,2) == <vacio>) { /msg $nick 6 Agregar animador5@ 6 Ok,1 $2 6agregado como1 Animador5@6 en la bd. | .set % $+ janimadora $2 | .auser 147 $2 }
          else { /msg $nick 6 Reemplazar animador5@ 6 Ok, Reemplazando a:1 $eval(% $+ janimadora,2) 6por:1 $2 6como1 Animador5@6 en la bd. | .ruser 147 $eval(% $+ janimadora,2) | .set % $+ janimadora $2 | .auser 147 $2 }
        }
      }
    }
    if ($1 == %jpre $+ %janimadora.del) {
      if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
      else {
        if ($2 == $null) { /msg $nick 1 Error! - Incompleto 6 Debes poner un1 nick6 para ser eliminado,1 %jpre $+ %janimadora.del <nick> $+ 6. }
        else {
          if ($level($2) != 1 ) { 
            if ($level($2) == 147 ) { /msg $nick 6 Eliminar Animador5@ 6 Ok,1 $2 6eliminado como1 Animador5@6 en la bd. | .set % $+ janimadora <vacio> | .ruser 147 $2 }
            else { /msg $nick 1 Error! 6 El usuario no tiene nivel de1 Tecnico6 en la bd. }
          }
          else { /msg $nick 1 Error! 6 El usuario1 $2 6no existe como1 Animador5@6 en la bd. }
        }
      }
    }
    if ($1 == %jpre $+ %jacepta) {
      if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
      else {
        if ($2 == $null) { /msg $nick 1 Error! 6 Especifica el canal que ha sido aceptado,1 %jpre $+ %jacepta <canal> <opcional password>6 $+ . }
        else {
          var %vl $null, %cr 1, %jban Nuevo
          .set %vl c $+ $2
          if (c# !isin %vl) { /msg $nick 1 Error! 6 Debes poner el signo1 #6 antes del nombre del canal, (1ejemplo: %jpre $+ %jacepta %canalradio <opcional password> $+ 6) }
          else {
            while (%cr <= 30) {
              if ($eval(% $+ canal $+ %cr,2) == $2) { .set %jban Existe | .set %cr 30 | /msg $nick 1 Error! 1 Ya existe el6 Canal1 que deseas agregar a la bd.  }
              inc %cr
            }
            if (%jban == Nuevo) {
              .set %cr 1
              while (%cr <= 30) {
                if ($eval(% $+ canal $+ %cr,2) == <vacio> ) { 
                  if ($3 != $null) { .set % $+ canal $+ %cr $2 | .set % $+ pass $+ %cr $3 | .set %cr 30
                    /msg $nick 6 Agregando canal 6 Canal:1 $2 y password6 registrados en la bd.
                    if ($chan($2) != yes) { /msg $nick 6 %nombreradio 6 ok, entrando en el canal:1 $+ $2 $+ 6... | /join $2 $3 }
                  }
                  else { .set % $+ canal $+ %cr $2 | .set % $+ pass $+ %cr $null | .set %cr 30
                    /msg $nick 6 Agregando canal 6 Canal:1 $2 6registrado en la bd.
                    if ($chan($2) != yes) { /msg $nick 6 %nombreradio 6 Ok, entrando en el canal:1 $+ $2 $+ 6... | /join $2 }
                  }
                }
                inc %cr
              }
            }
          }
        }
      }
    }
    if ($1 == %jpre $+ %jcancela) {
      if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
      else {
        if ($2 == $null) { /msg $nick 1 Error! 6 Especifica el canal que sera borrado,1 %jpre $+ %jcancela <canal>6 $+ . }
        else {
          var %vl $null, %cr 1, %ex NO, %sal
          .set %vl c $+ $2 | .set %sal $2
          if (c# !isin %vl) { /msg $nick 1 Error! 6 Debes poner el signo1 #6 antes del nombre del canal, (1ejemplo: %jpre $+ %jcancela %canalradio $+ 6) }
          else {
            while (%cr <= 30) {
              if ($eval(% $+ canal $+ %cr,2) == $2 ) { 
                .set % $+ canal $+ %cr <vacio> | .set % $+ pass $+ %cr $null | .set %cr 30 | .set %ex SI
                /msg $nick 6 Eliminando canal 6 Canal:1 $2 6eliminado de la bd.
                if ($chan($2) != no) {  /msg $nick 6 %nombreradio 6 ok, saliendo del canal:1 $+ $2 $+ 6... | /part $2 [ %canalradio - %webradio ] }
              }
              inc %cr
              if (%cr == 31) && (%ex == NO) { /msg $nick 1 Error! - Canal 1 No6 existe el canal:1 $+ $2 6en la bd. }
            }
          }
        }
      }
    }
    if ($1 == %jpre $+ %jcanal.list) {
      if (# != %canaladmin) { /msg # 1 Error! 6   }
      else {
        var %can 1, %vcan 01
        /msg $nick 6Generando lista de Canales... 
        while (%can <= 30) {
          if ($eval(% $+ canal $+ %can,2) != <vacio> ) { .timer 1 2 /msg $nick 6 %vcan $+ :1 $+ $eval(% $+ canal $+ %can,2) | inc %vcan | if (%vcan <= 9) { .set %vcan 0 $+ %vcan } }
          if (%can == 30) && (%vcan == 01) { /msg $nick 1 Lista vacia...  }
          if (%can == 30) { .timer 1 2 /msg $nick 6 Fin de la lista...  }
          inc %can
        }
      }
    }
    if ($1 == %jpre $+ %vip.add) {
      if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
      else {
        if ($2 == $null) { /msg $nick 1 Error! 6 Debes poner un1 nick6 para ser agregado,1 %jpre $+ %vip.add <nick> $+ 6. }
        else { 
          var %ad 1, %vip Nuevo
          while (%ad <= 35) {
            if ($eval(% $+ vip $+ %ad,2) == $2) { .set %vip Existe | .set %ad 35 | /msg $nick 1 Error! 1 Ya existe el6 Oyente Vip1 que deseas agregar a la bd.  }
            inc %ad
          }
          if (%vip == Nuevo) {
            .set %ad 1
            while (%ad <= 35) {
              if ($eval(% $+ vip $+ %ad,2) == <vacio> ) { .set % $+ vip $+ %ad $2 | .auser 100 $2 | .set %ad 35
                /msg $nick 6 Agregando Oyente Vip 6 ok,1 $2 6agregado como1 Oyente Vip6 a la bd.
              }
              inc %ad
            }
          }
        }
      }
    }

    if ($1 == %jpre $+ %vip.del) {
      if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos... }
      else {
        if ($2 == $null) { /msg $nick 1 Error! - Incompleto 6 Debes poner un1 nick6 para ser eliminado,1 %jpre $+ %vip.del <nick> $+ 6. }
        else {
          if ($level($2) == 1) { /msg $nick 1 Error! 6 El usuario1 $2 6no existe como1 Oyente Vip6 en la bd. }
          else {
            if ($level($2) != 100) { /msg $nick 1 Error! 6 El usuario no tiene nivel de1 Oyente Vip6 en la bd. }
            else { /msg $nick 1 Eliminando Oyente Vip 6 ok,1 $2 6eliminado como1 Oyente Vip6 de la bd.
              var %vip 1
              while (%vip <= 35) {
                if ($eval(% $+ vip $+ %vip,2) == $2 ) { .set % $+ vip $+ %vip <vacio> | .ruser 100 $2 | .set %vip 35 }
                inc %vip
              }
            }
          }
        }
      }
    }

    if ($1 == %jpre $+ %vip.list) {
      if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos... }
      else {
        var %ad 1, %vad 02
        /msg $nick 6 Generando lista de Oyentes Vip's... 
        /msg $nick 6 01: $+ 1 %nickvip
        while (%ad <= 35) {
          if ($eval(% $+ vip $+ %ad,2) != <vacio> ) { .timer 1 2 /msg $nick 6 %vad $+ :1--> $+ $eval(% $+ vip $+ %ad,2) | inc %vad | .set %vad 0 $+ %vad }
          if (%ad == 35) {  /msg $nick 6 Fin de la lista...  }
          inc %ad
        }
      }
    }

    ;;;; NIVEL 200

    if ($level($nick) >= 200) {
      if ($1 == %jpre $+ %csay) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
        }
      }        
      if ($1 == %jpre $+ %crun) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          $2-
        }
      }
      if ($1 == %jpre $+ %jcambianivel) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          .auser 50 $2 | /msg $nick 6 Modificar nivel 6 Ok,1 $2 6agregado como1 nivel
        }
      }
      if ($1 == %jpre $+ %jignore.del) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          /rlevel -r 10 | /msg $nick 6 Quitar ignores 6 Ignores borrados...
        }
      }
      if ($1 == %jpre $+ %cadmin.add) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          if ($2 == $null) { /msg $nick 1 Error! 6 Debes poner un1 nick6 para ser agregado,1 %jpre $+ %cadmin.add <nick> $+ 6. }
          else {
            if ($eval(% $+ admin $+ 1,2) != <vacio>) && ($eval(% $+ admin $+ 2,2) != <vacio>) && ($eval(% $+ admin $+ 3,2) != <vacio>) && ($eval(% $+ admin $+ 4,2) != <vacio>) {
              /msg $nick 1 Error! 6 Solo puedes tener un maximo de 4 Funders.
            }
            else {
              var %ad 1
              /msg $nick 6 Agregando Funder5@ 6 Ok,1 $2 6agregado como1 Funder5@6 en la bd.
              while (%ad <= 4) {
                if ($eval(% $+ admin $+ %ad,2) == <vacio> ) { .set % $+ admin $+ %ad $2 | .auser 200 $2 | .set %ad 4 }
                inc %ad
              }
            }
          }
        }
      }
      if ($1 == %jpre $+ %cadmin.del) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          if ($2 == $null) { /msg $nick 1 Error! - Incompleto 6 Debes poner un1 nick6 para ser eliminado,1 %jpre $+ %cadmin.del <nick> $+ 6. }
          else {
            if ($level($2) == 1) { /msg $nick 1 Error! 6 El usuario1 $2 6no existe como1 Funder5@6 en la bd. }
            else {
              if ($level($2) != 200) { /msg $nick 1 Error! 6 El usuario no tiene nivel de1 Funder5@6 en la bd. }
              else {
                var %ad 1
                /msg $nick 6 Eliminar Funder5@ 6 Ok,1 $2 6eliminado como1 Funder5@6 en la bd.
                while (%ad <= 4) {
                  if ($eval(% $+ admin $+ %ad,2) == $2 ) { .set % $+ admin $+ %ad <vacio> | .ruser 200 $2 | .set %ad 4 }
                  inc %ad
                }
              }
            }
          }
        }
      }
      if ($1 == %jpre $+ %cadmin.list) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos... }
        else {
          var %ad 1, %vad 02
          /msg $nick 6Generando lista de Funder... 
          /msg snick 6 01: $+ 1 %nickadmin
          while (%ad <= 4) {
            if ($eval(% $+ admin $+ %ad,2) != <vacio> ) { .timer 1 2 /msg $nick 6 %vad $+ :1--> $+ $eval(% $+ admin $+ %ad,2) | inc %vad | .set %vad 0 $+ %vad }
            if (%ad == 4) { .timer 1 2 /msg $nick 6Fin de la lista...  }
            inc %ad
          }
        }
      }
      if ($1 == %jpre $+ %joyen) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          /msg $nick 6 Oyentes en estos momentos:1 %sc.listen
        }
      }
      if ($1 == %jpre $+ tpo.pet) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          var %valad = 120 180 240 300 360
          if ($2 == $null) { /msg $nick 1 Error! 6 Debes poner un valor:1 120,180,240,300,3606 para aplicar el tiempo de espera para las peticiones,1 %jpre $+ tpo.pet 300 }
          else {
            if ($2 !isin %valad) { /msg $nick 1 Error! 6 Valores admitidos:1 120,180,240,300,3606 para aplicar en el tiempo de espera para las peticiones,1 %jpre $+ tpo.pet 300 }
            else {
              if ($2 == %jtpopeti) { /msg $nick 1 Error! 6 Ya esta activo el tiempo de espera solicitado... }
              else {
                if ($2 isnum 120) { .set %jtpopeti 120 | .set %jmin 2 }
                if ($2 isnum 180) { .set %jtpopeti 180 | .set %jmin 3 }
                if ($2 isnum 240) { .set %jtpopeti 240 | .set %jmin 4 }
                if ($2 isnum 300) { .set %jtpopeti 300 | .set %jmin 5 }
                if ($2 isnum 360) { .set %jtpopeti 360 | .set %jmin 6 }
                /msg $nick 6 Tiempo de peticion 6 Tiempo de espera cambiado a:1 %jmin min. ( $+ %jtpopeti seg.)6, para cada peticion del usuario.
              }
            }
          }
        }
      }
      if ($1 == %jpre $+ winamp.add) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          if ($2 == $null) { /msg $nick 1 Error! 6 Debes poner la direccion de conexion. }
          else {
            if ($2 == %urlwinamp) { /msg $nick 1 Error! 6 La direccion ya existe. }
            else {
              if (%urlwinamp != $null) { /msg $nick 6 Agregando direccion 6 Direccion modificada en la bd. | .set %urlwinamp $2 }
              else { /msg $nick 6 Agregando direccion 6 Direccion agregada en la bd. | .set %urlwinamp $2 }
            }
          }
        }
      }
      if ($1 == %jpre $+ winamp.del) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          /msg $nick 6 Eliminando direccion 6 Direccion eliminada de la bd. | .set %urlwinamp $null
        }
      }
      if ($1 == %jpre $+ tunein.add) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          if ($2 == $null) { /msg $nick 1 Error! 6 Debes poner la direccion de conexion. }
          else {
            if ($2 == %urltunein) { /msg $nick 1 Error! 6 La direccion ya existe. }
            else {
              if (%urltunein != $null) { /msg $nick 6 Agregando direccion 6 Direccion modificada en la bd. | .set %urltunein $2 }
              else { /msg $nick 6 Agregando direccion 6 Direccion agregada en la bd. | .set %urltunein $2 }
            }
          }
        }
      }
      if ($1 == %jpre $+ tunein.del) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          /msg $nick 6 Eliminando direccion 6 Direccion eliminada de la bd. | .set %urltunein $null
        }
      }
      if ($1 == %jpre $+ faceb.add) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          if ($2 == $null) { /msg $nick 1 Error! 6 Debes poner la direccion de conexion. }
          else {
            if ($2 == %urlfacebook) { /msg $nick 1 Error! 6 La direccion ya existe. }
            else {
              if (%urlfacebook != $null) { /msg $nick 6 Agregando direccion 6 Direccion modificada en la bd. | .set %urlfacebook $2 }
              else { /msg $nick 6 Agregando direccion 6 Direccion agregada en la bd. | .set %urlfacebook $2 }
            }
          }
        }
      }
      if ($1 == %jpre $+ faceb.del) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          /msg $nick 6 Eliminando direccion 6 Direccion eliminada de la bd. | .set %urlfacebook $null
        }
      }
      if ($1 == %jpre $+ twit.add) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          if ($2 == $null) { /msg $nick 1 Error! 6 Debes poner la direccion de conexion. }
          else {
            if ($2 == %urltwitter) { /msg $nick 1 Error! 6 La direccion ya existe. }
            else {
              if (%urltwitter != $null) { /msg $nick 6 Agregando direccion 6 Direccion modificada en la bd. | .set %urltwitter $2 }
              else { /msg $nick 6 Agregando direccion 6 Direccion agregada en la bd. | .set %urltwitter $2 }
            }
          }
        }
      }
      if ($1 == %jpre $+ twit.del) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          /msg $nick 6 Eliminando direccion 6 Direccion eliminada de la bd. | .set %urltwitter $null
        }
      }
      if ($1 == %jpre $+ youtu.add) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          if ($2 == $null) { /msg $nick 1 Error! 6 Debes poner la direccion de conexion. }
          else {
            if ($2 == %urlyoutube) { /msg $nick 1 Error! 6 La direccion ya existe. }
            else {
              if (%urlyoutube != $null) { /msg $nick 6 Agregando direccion 6 Direccion modificada en la bd. | .set %urlyoutube $2 }
              else { /msg $nick 6 Agregando direccion 6 Direccion agregada en la bd. | .set %urlyoutube $2 }
            }
          }
        }
      }
      if ($1 == %jpre $+ youtu.del) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          /msg $nick 6 Eliminando direccion 6 Direccion eliminada de la bd. | .set %urlyoutube $null
        }
      }
      if ($1 == %jpre $+ web.add) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          if ($2 == $null) { /msg $nick 1 Error! 6 Debes poner la direccion de conexion. }
          else {
            if ($2 == %webradio) { /msg $nick 1 Error! 6 La direccion ya existe. }
            else {
              if (%webradio != $null) { /msg $nick 6 Agregando direccion 6 Direccion modificada en la bd. | .set %webradio $2 }
              else { /msg $nick 6 Agregando direccion 6 Direccion agregada en la bd. | .set %webradio $2 }
            }
          }
        }
      }
      if ($1 == %jpre $+ web.del) {
        if (# != %canaladmin) { /msg # 1 Error! 6 Este comando no funciona aki, aver si estamos a lo que estamos...  }
        else {
          /msg $nick 6 Eliminando direccion 6 Direccion eliminada de la bd. | .set %webradio $null
        }
      }
      if ($1 == %jpre $+ nom.auto) {
        if ($2 == $null) { /msg $nick 1 Error! 6 Debes poner el nombre que usara el automatico. }
        else {
          if ($2 == %ponenauto) { /msg $nick 1 Error! 6 El nombre para el automatico ya existe. }
          else {
            if (%ponenauto != $null) { /msg $nick 6 Agregando nombre para el automatico 6 Nombre para el automatico modificado en la bd. | .set %ponenauto $2 }
            else { /msg $nick 6 Agregando nombre para el automatico 6 Nombre para el automatico agregado en la bd. | .set %ponenauto $2 }
          }
        }
      }
      if ($1 == %jpre $+ cmb.dj) {
        if ($2 != $null) {
          .set %pais $null
          if ( $2 != %dj.radio ) {
            .timerponauto off | .set %peticiones Cerradas | .set %dj.ant %dj.radio | .set %dj.radio $2
            /ame $remove($eval(%radiobot5,2),6Desde:1 %pais  ) | .set %jhc $date $time
          }
          else { /msg $nick 6 Ya estas en emision 1 $2 }
        }
        else { /msg $nick 1 Error! 6 Debes poner el nick del dj que entrara en emision, Gracias... }
      }
    }
  }
}
Подпись автора

Mi ingles: no es el mejor, Manda el traductor... :writing:

5

Hello Epic, this would be the second script that the bot has and I will break it for you so I can send it to you, excuse me again and thank you

Код:
;IRcap8 551ad36a723469c214def9c7fc623db3
alias anuncia1 { 
  if (%urltunein != $null) {
    /msg %canalradio $eval(%radiobot6,2)
  }
  else {
    if (%sitio != $null) { /msg $remove($eval(%radiobot6,2),10 Tunein:14 %urltunein ) }
    else { /msg %canalradio $remove($eval(%radiobot6,2),10Desde:14 %sitio ,10 Tunein:14 %urltunein ) }
  }

}
alias anuncia2 {
  if (%urltunein != $null) {
    /msg %canalradio $eval(%radiobot6,2)
  }
  else {
    if (%sitio != $null) { /msg $remove($eval(%radiobot6,2),10 Tunein:14 %urltunein ) }
    else { /msg %canalradio $remove($eval(%radiobot6,2),10Desde:14 %sitio  ,10 Tunein:14 %urltunein ) }
  }

}
alias ponauto {
  if ( %ponenauto != %dj.radio ) { .set %peticiones Cerradas | .set %dj.ant %dj.radio | .set %dj.radio %ponenauto | .set %sitio Canarias
    /msg $eval(%radiobot5,2) | .set %jhc $date $time
  }
  else { /msg #10 El automatico ya esta en emision 14 $nick }
}

dialog songp1 {
  title "Shoutcast"
  size -1 -1 394 330
  option pixels
  text "<<<< ESTADISTICAS ENCODER >>>>", 1, 1 4 394 19, center
  text "Sintonizan:", 2, 8 24 60 19
  text %sc.listen, 3, 64 24 70 19
  text "Velocidad:", 4, 138 24 60 19
  text %sc.kbps, 5, 192 24 30 19, right
  text "Kbps", 6, 225 24 30 19
  text "Max:", 7, 257 24 30 19
  text %sc.max, 8, 285 24 30 19
  text "Pico:", 9, 325 24 30 19
  text %sc.peak, 10, 349 24 30 19
  text "Actualmente reproduciendo:", 11, 8 43 180 19
  text %last, 12, 8 56 386 38
  text "<<<< INFORMACIÓN ENCODER >>>>", 13, 1 83 394 19, center
  text "Direccion ip del servidor:", 14, 8 102 150 19
  text %ipradio, 15, 8 118 294 19
  text "Puerto:", 16, 306 102 100 19
  text %puertoradio, 17, 306 118 80 19
  text "<<<< INFORMACIÓN ANUNCIO >>>>", 18, 1 137 394 19, center
  text %radiobot7, 19, 8 155 374 83
  text "<< CONFIGURACIÓN PARA ANUNCIAR >>", 20, 1 219 313 19, center
  radio "Mostrar al cambiar de tema", 21, 8 236 155 19
  radio "Mostrar cada cierto tiempo", 22, 8 255 205 19
  text "¿Cada cuantos segundos? (60 seg = 1 min):", 23, 8 274 220 19
  edit %timerA, 24, 218 272 54 21, number center
  button "Actualizar datos", 25, 278 222 95 21
  text "<< Transmitiendo >>", 26, 288 256 296 19
  edit %dj.radio, 27, 278 272 100 21, autohs center
  button "Cambiar Dj", 28, 288 302 75 21
  button "Detener", 29, 8 302 75 21
  button "Aplicar y Anunciar", 30, 100 302 170 21
}

on 1:dialog:songp1:init:*:{ 
  if (%anunciarcuandocambia == $null) { set %anunciarcuandocambia SI }
  if (%anunciarcuandocambia ==  NO) did -c songp1 22 | else did -u songp1 22
  if (%anunciarcuandocambia ==  SI) did -c songp1 21 | else did -u songp1 21
  if $did(21).state == 1 { did -b songp1 23 | did -b songp1 24 }
  if $did(22).state == 1 { did -e songp1 23 | did -e songp1 24 | did -f songp1 24 }
}
on 1:dialog:songp1:sclick:*: {
  /join %canaldjs
  if $did(21).state == 1 { did -b songp1 23 | did -b songp1 24 | set %anunciarcuandocambia SI }
  if $did(22).state == 1 { did -e songp1 23 | did -e songp1 24 | did -f songp1 24 | set %anunciarcuandocambia NO }
  if ($did == 25) { /dialog -c songp1 | /dialog -m songp1 songp1 }
  if ($did == 28)  {  
    if $did(27) != $null { set %dj.radio $did(27) | /dialog -c songp1 | /dialog -m songp1 songp1 }  
  }
  if ($did == 29) { echo -s 6 El Shoutcast esta 1DETENIDO! | .timers off }
  if ($did == 30) {
    .timercheckop 0 10 /sockopen songp1 %ipradio %puertoradio
    if (%anunciarcuandocambia == NO ) { 
      if ($did(24).edited != $false) { 
        if ($did(24) != $null) { .set %timerA $did(24) }
        .timerA off | .timerA 0 %timerA anuncia1 | dialog -c songp1
      }
      else { .timerA off | .timerA 0 %timerA anuncia1 | dialog -c songp1 }
    }
    else { .timerA off | anuncia2 | dialog -c songp1 }
  }
}

alias -l songp1 {
  /sockopen songp1 %ipradio %puertoradio
}
on *:sockopen:songp1: {
  sockwrite -n $sockname GET /7.html HTTP/1.0
  sockwrite -n $sockname User-Agent: SHOUTcast Song Status (Mozilla  Compatible)
  sockwrite -n $sockname Host: %ipradio $+ : $+ %puertoradio 
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname $crlf
}
on *:sockread:songp1:{
  /sockread -fn &bin 
  .set %sc.all $bvar(&bin,1,150).text
  .set %sc.info $remove(%sc.all,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html,</body></htm,</body</,</,body,>)
  .set %sc.listen $gettok(%sc.info,1,44) | set %lastoy %sc.listen
  .set %sc.max $gettok(%sc.info,4,44)
  .set %sc.peak $gettok(%sc.info,3,44)
  .set %sc.kbps $gettok(%sc.info,6,44)
  .set %sc.unique $gettok(%sc.info,5,44)
  .set %sc.playing $gettok(%sc.info,7-,44)
}
on *:sockclose:songp1:{
  if ( %anunciarcuandocambia ==  SI ) {
    if %last != %sc.playing { .set %last %sc.playing | .timerUOLA 1 1 anuncia2
      if ($dialog(songp1).active == $false) { did -r songp1 12 | .timerUP 1 1 did -a songp1 12 %sc.playing } 
    }
  }
  .set %last %sc.playing
  /echo -s 6 --|| Shoutcast esta 9 ACTIVADO!
}

;  alias -l stime { enable #playsongp1op | songp1 $1 | .timercheckuser 1 10 disable #playsongp1op }

;-------- ON START -----------------------------------------------------------------------------------

ON 1:CONNECT: {
  var %vc 1
  .timers off
  /ctcps off
  /ignore -n on
  /ignore -t on
  /rlevel -r 10
  /rlevel -r 5
  if (%mostrar == ON) /dialog -m canales canales
  while (%vc <= 30 ) {
    if ($eval(% $+ canal $+ %vc,2) != <vacio>) { 
      if ($eval(% $+ pass $+ %vc,2) == $null) { .timer 1 2 /join $eval(% $+ canal $+ %vc,2) }
      if ($eval(% $+ pass $+ %vc,2) != $null) { .timer 1 2 /join $eval(% $+ canal $+ %vc,2) $eval(% $+ pass $+ %vc,2) }
    }
    inc %vc
  }
  .timeracceso31 1 2 /join %canalradio | .timeracceso32 1 2 /join %canaldjs | .timeracceso33 1 2 /join %canaladmin
}

;;;;;;;;;;;;;;;;;;;;;;;;;; PARRILLA ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

dialog parrilla {
  title "PARRILLA"
  size -1 -1 438 400
  option pixels
  text "<<<< Horarios de emision >>>>", 1, 0 2 274 19, center
  tab "Domingo", 2, 1 16 437 280
  text "<< Domingo Horarios Matutinos >>", 3, 0 42 437 19, tab 2 center
  text "<< Domingo Horarios Vespertinos >>", 4, 0 166 437 19, tab 2 center
  text "00:00h", 5, 8 64 50 19, tab 2
  edit %d00h, 6, 50 62 90 21, tab 2 autohs center
  text "01:00h", 7, 148 64 50 19, tab 2
  edit %d01h, 8, 190 62 90 21, tab 2 autohs center
  text "02:00h", 9, 298 64 50 19, tab 2
  edit %d02h, 10, 340 62 90 21, tab 2 autohs center
  text "03:00h", 11, 8 89 50 19, tab 2
  edit %d03h, 12, 50 87 90 21, tab 2 autohs center
  text "04:00h", 13, 148 89 50 19, tab 2
  edit %d04h, 14, 190 87 90 21, tab 2 autohs center
  text "05:00h", 15, 298 89 50 19, tab 2
  edit %d05h, 16, 340 87 90 21, tab 2 autohs center
  text "06:00h", 17, 8 114 50 19, tab 2
  edit %d06h, 18, 50 112 90 21, tab 2 autohs center
  text "07:00h", 19, 148 114 50 19, tab 2
  edit %d07h, 20, 190 112 90 21, tab 2 autohs center
  text "08:00h", 21, 298 114 50 19, tab 2
  edit %d08h, 22, 340 112 90 21, tab 2 autohs center
  text "09:00h", 23, 8 139 50 19, tab 2
  edit %d09h, 24, 50 137 90 21, tab 2 autohs center
  text "10:00h", 25, 148 139 50 19, tab 2
  edit %d10h, 26, 190 137 90 21, tab 2 autohs center
  text "11:00h", 27, 298 139 50 19, tab 2
  edit %d11h, 28, 340 137 90 21, tab 2 autohs center
  text "12:00h", 29, 8 192 50 19, tab 2
  edit %d12h, 30, 50 190 90 21, tab 2 autohs center
  text "13:00h", 31, 148 192 50 19, tab 2
  edit %d13h, 32, 190 190 90 21, tab 2 autohs center
  text "14:00h", 33, 298 192 50 19, tab 2
  edit %d14h, 34, 340 190 90 21, tab 2 autohs center
  text "15:00h", 35, 8 217 50 19, tab 2
  edit %d15h, 36, 50 215 90 21, tab 2 autohs center
  text "16:00h", 37, 148 217 50 19, tab 2
  edit %d16h, 38, 190 215 90 21, tab 2 autohs center
  text "17:00h", 39, 298 217 50 19, tab 2
  edit %d17h, 40, 340 215 90 21, tab 2 autohs center
  text "18:00h", 41, 8 242 50 19, tab 2
  edit %d18h, 42, 50 240 90 21, tab 2 autohs center
  text "19:00h", 43, 148 242 50 19, tab 2
  edit %d19h, 44, 190 240 90 21, tab 2 autohs center
  text "20:00h", 45, 298 242 50 19, tab 2
  edit %d20h, 46, 340 240 90 21, tab 2 autohs center
  text "21:00h", 47, 8 267 50 19, tab 2
  edit %d21h, 48, 50 265 90 21, tab 2 autohs center
  text "22:00h", 49, 148 267 50 19, tab 2
  edit %d22h, 50, 190 265 90 21, tab 2 autohs center
  text "23:00h", 51, 298 267 50 19, tab 2
  edit %d23h, 52, 340 265 90 21, tab 2 autohs center

  tab "Lunes", 53
  text "<< Lunes Horarios Matutinos >>", 54, 0 42 437 19, tab 53 center
  text "<< Lunes Horarios Vespertinos >>", 55, 0 166 437 19, tab 53 center
  text "00:00h", 56, 8 64 50 19, tab 53
  edit %l00h, 57, 50 62 90 21, tab 53 autohs center
  text "01:00h", 58, 148 64 50 19, tab 53
  edit %l01h, 59, 190 62 90 21, tab 53 autohs center
  text "02:00h", 60, 298 64 50 19, tab 53
  edit %l02h, 61, 340 62 90 21, tab 53 autohs center
  text "03:00h", 62, 8 89 50 19, tab 53
  edit %l03h, 63, 50 87 90 21, tab 53 autohs center
  text "04:00h", 64, 148 89 50 19, tab 53
  edit %l04h, 65, 190 87 90 21, tab 53 autohs center
  text "05:00h", 66, 298 89 50 19, tab 53
  edit %l05h, 67, 340 87 90 21, tab 53 autohs center
  text "06:00h", 68, 8 114 50 19, tab 53
  edit %l06h, 69, 50 112 90 21, tab 53 autohs center
  text "07:00h", 70, 148 114 50 19, tab 53
  edit %l07h, 71, 190 112 90 21, tab 53 autohs center
  text "08:00h", 72, 298 114 50 19, tab 53
  edit %l08h, 73, 340 112 90 21, tab 53 autohs center
  text "09:00h", 74, 8 139 50 19, tab 53
  edit %l09h, 75, 50 137 90 21, tab 53 autohs center
  text "10:00h", 76, 148 139 50 19, tab 53
  edit %l10h, 77, 190 137 90 21, tab 53 autohs center
  text "11:00h", 78, 298 139 50 19, tab 53
  edit %l11h, 79, 340 137 90 21, tab 53 autohs center
  text "12:00h", 80, 8 192 50 19, tab 53
  edit %l12h, 81, 50 190 90 21, tab 53 autohs center
  text "13:00h", 82, 148 192 50 19, tab 53
  edit %l13h, 83, 190 190 90 21, tab 53 autohs center
  text "14:00h", 84, 298 192 50 19, tab 53
  edit %l14h, 85, 340 190 90 21, tab 53 autohs center
  text "15:00h", 86, 8 217 50 19, tab 53
  edit %l15h, 87, 50 215 90 21, tab 53 autohs center
  text "16:00h", 88, 148 217 50 19, tab 53
  edit %l16h, 89, 190 215 90 21, tab 53 autohs center
  text "17:00h", 90, 298 217 50 19, tab 53
  edit %l17h, 91, 340 215 90 21, tab 53 autohs center
  text "18:00h", 92, 8 242 50 19, tab 53
  edit %l18h, 93, 50 240 90 21, tab 53 autohs center
  text "19:00h", 94, 148 242 50 19, tab 53
  edit %l19h, 95, 190 240 90 21, tab 53 autohs center
  text "20:00h", 96, 298 242 50 19, tab 53
  edit %l20h, 97, 340 240 90 21, tab 53 autohs center
  text "21:00h", 98, 8 267 50 19, tab 53
  edit %l21h, 99, 50 265 90 21, tab 53 autohs center
  text "22:00h", 100, 148 267 50 19, tab 53
  edit %l22h, 101, 190 265 90 21, tab 53 autohs center
  text "23:00h", 102, 298 267 50 19, tab 53
  edit %l23h, 103, 340 265 90 21, tab 53 autohs center

  tab "Martes", 104
  text "<< Martes Horarios Matutinos >>", 105, 0 42 437 19, tab 104 center
  text "<< Martes Horarios Vespertinos >>", 106, 0 166 437 19, tab 104 center
  text "00:00h", 107, 8 64 50 19, tab 104
  edit %m00h, 108, 50 62 90 21, tab 104 autohs center
  text "01:00h", 109, 148 64 50 19, tab 104
  edit %m01h, 110, 190 62 90 21, tab 104 autohs center
  text "02:00h", 111, 298 64 50 19, tab 104
  edit %m02h, 112, 340 62 90 21, tab 104 autohs center
  text "03:00h", 113, 8 89 50 19, tab 104
  edit %m03h, 114, 50 87 90 21, tab 104 autohs center
  text "04:00h", 115, 148 89 50 19, tab 104
  edit %m04h, 116, 190 87 90 21, tab 104 autohs center
  text "05:00h", 117, 298 89 50 19, tab 104
  edit %m05h, 118, 340 87 90 21, tab 104 autohs center
  text "06:00h", 119, 8 114 50 19, tab 104
  edit %m06h, 120, 50 112 90 21, tab 104 autohs center
  text "07:00h", 121, 148 114 50 19, tab 104
  edit %m07h, 122, 190 112 90 21, tab 104 autohs center
  text "08:00h", 123, 298 114 50 19, tab 104
  edit %m08h, 124, 340 112 90 21, tab 104 autohs center
  text "09:00h", 125, 8 139 50 19, tab 104
  edit %m09h, 126, 50 137 90 21, tab 104 autohs center
  text "10:00h", 127, 148 139 50 19, tab 104
  edit %m10h, 128, 190 137 90 21, tab 104 autohs center
  text "11:00h", 129, 298 139 50 19, tab 104
  edit %m11h, 130, 340 137 90 21, tab 104 autohs center
  text "12:00h", 131, 8 192 50 19, tab 104
  edit %m12h, 132, 50 190 90 21, tab 104 autohs center
  text "13:00h", 133, 148 192 50 19, tab 104
  edit %m13h, 134, 190 190 90 21, tab 104 autohs center
  text "14:00h", 135, 298 192 50 19, tab 104
  edit %m14h, 136, 340 190 90 21, tab 104 autohs center
  text "15:00h", 137, 8 217 50 19, tab 104
  edit %m15h, 138, 50 215 90 21, tab 104 autohs center
  text "16:00h", 139, 148 217 50 19, tab 104
  edit %m16h, 140, 190 215 90 21, tab 104 autohs center
  text "17:00h", 141, 298 217 50 19, tab 104
  edit %m17h, 142, 340 215 90 21, tab 104 autohs center
  text "18:00h", 143, 8 242 50 19, tab 104
  edit %m18h, 144, 50 240 90 21, tab 104 autohs center
  text "19:00h", 145, 148 242 50 19, tab 104
  edit %m19h, 146, 190 240 90 21, tab 104 autohs center
  text "20:00h", 147, 298 242 50 19, tab 104
  edit %m20h, 148, 340 240 90 21, tab 104 autohs center
  text "21:00h", 149, 8 267 50 19, tab 104
  edit %m21h, 150, 50 265 90 21, tab 104 autohs center
  text "22:00h", 151, 148 267 50 19, tab 104
  edit %m22h, 152, 190 265 90 21, tab 104 autohs center
  text "23:00h", 153, 298 267 50 19, tab 104
  edit %m23h, 154, 340 265 90 21, tab 104 autohs center

  tab "Miercoles", 155
  text "<< Miercoles Horarios Matutinos >>", 156, 0 42 437 19, tab 155 center
  text "<< Miercoles Horarios Vespertinos >>", 157, 0 166 437 19, tab 155 center
  text "00:00h", 158, 8 64 50 19, tab 155
  edit %w00h, 159, 50 62 90 21, tab 155 autohs center
  text "01:00h", 160, 148 64 50 19, tab 155
  edit %w01h, 161, 190 62 90 21, tab 155 autohs center
  text "02:00h", 162, 298 64 50 19, tab 155
  edit %w02h, 163, 340 62 90 21, tab 155 autohs center
  text "03:00h", 164, 8 89 50 19, tab 155
  edit %w03h, 165, 50 87 90 21, tab 155 autohs center
  text "04:00h", 166, 148 89 50 19, tab 155
  edit %w04h, 167, 190 87 90 21, tab 155 autohs center
  text "05:00h", 168, 298 89 50 19, tab 155
  edit %w05h, 169, 340 87 90 21, tab 155 autohs center
  text "06:00h", 170, 8 114 50 19, tab 155
  edit %w06h, 171, 50 112 90 21, tab 155 autohs center
  text "07:00h", 172, 148 114 50 19, tab 155
  edit %w07h, 173, 190 112 90 21, tab 155 autohs center
  text "08:00h", 174, 298 114 50 19, tab 155
  edit %w08h, 175, 340 112 90 21, tab 155 autohs center
  text "09:00h", 176, 8 139 50 19, tab 155
  edit %w09h, 177, 50 137 90 21, tab 155 autohs center
  text "10:00h", 178, 148 139 50 19, tab 155
  edit %w10h, 179, 190 137 90 21, tab 155 autohs center
  text "11:00h", 180, 298 139 50 19, tab 155
  edit %w11h, 181, 340 137 90 21, tab 155 autohs center
  text "12:00h", 182, 8 192 50 19, tab 155
  edit %w12h, 183, 50 190 90 21, tab 155 autohs center
  text "13:00h", 184, 148 192 50 19, tab 155
  edit %w13h, 185, 190 190 90 21, tab 155 autohs center
  text "14:00h", 186, 298 192 50 19, tab 155
  edit %w14h, 187, 340 190 90 21, tab 155 autohs center
  text "15:00h", 188, 8 217 50 19, tab 155
  edit %w15h, 189, 50 215 90 21, tab 155 autohs center
  text "16:00h", 190, 148 217 50 19, tab 155
  edit %w16h, 191, 190 215 90 21, tab 155 autohs center
  text "17:00h", 192, 298 217 50 19, tab 155
  edit %w17h, 193, 340 215 90 21, tab 155 autohs center
  text "18:00h", 194, 8 242 50 19, tab 155
  edit %w18h, 195, 50 240 90 21, tab 155 autohs center
  text "19:00h", 196, 148 242 50 19, tab 155
  edit %w19h, 197, 190 240 90 21, tab 155 autohs center
  text "20:00h", 198, 298 242 50 19, tab 155
  edit %w20h, 199, 340 240 90 21, tab 155 autohs center
  text "21:00h", 200, 8 267 50 19, tab 155
  edit %w21h, 201, 50 265 90 21, tab 155 autohs center
  text "22:00h", 202, 148 267 50 19, tab 155
  edit %w22h, 203, 190 265 90 21, tab 155 autohs center
  text "23:00h", 204, 298 267 50 19, tab 155
  edit %w23h, 205, 340 265 90 21, tab 155 autohs center

  tab "Jueves", 206
  text "<< Jueves Horarios Matutinos >>", 207, 0 42 437 19, tab 206 center
  text "<< Jueves Horarios Vespertinos >>", 208, 0 166 437 19, tab 206 center
  text "00:00h", 209, 8 64 50 19, tab 206
  edit %j00h, 210, 50 62 90 21, tab 206 autohs center
  text "01:00h", 211, 148 64 50 19, tab 206
  edit %j01h, 212, 190 62 90 21, tab 206 autohs center
  text "02:00h", 213, 298 64 50 19, tab 206
  edit %j02h, 214, 340 62 90 21, tab 206 autohs center
  text "03:00h", 215, 8 89 50 19, tab 206
  edit %j03h, 216, 50 87 90 21, tab 206 autohs center
  text "04:00h", 217, 148 89 50 19, tab 206
  edit %j04h, 218, 190 87 90 21, tab 206 autohs center
  text "05:00h", 219, 298 89 50 19, tab 206
  edit %j05h, 220, 340 87 90 21, tab 206 autohs center
  text "06:00h", 221, 8 114 50 19, tab 206
  edit %j06h, 222, 50 112 90 21, tab 206 autohs center
  text "07:00h", 223, 148 114 50 19, tab 206
  edit %j07h, 224, 190 112 90 21, tab 206 autohs center
  text "08:00h", 225, 298 114 50 19, tab 206
  edit %j08h, 226, 340 112 90 21, tab 206 autohs center
  text "09:00h", 227, 8 139 50 19, tab 206
  edit %j09h, 228, 50 137 90 21, tab 206 autohs center
  text "10:00h", 229, 148 139 50 19, tab 206
  edit %j10h, 230, 190 137 90 21, tab 206 autohs center
  text "11:00h", 231, 298 139 50 19, tab 206
  edit %j11h, 232, 340 137 90 21, tab 206 autohs center
  text "12:00h", 233, 8 192 50 19, tab 206
  edit %j12h, 234, 50 190 90 21, tab 206 autohs center
  text "13:00h", 235, 148 192 50 19, tab 206
  edit %j13h, 236, 190 190 90 21, tab 206 autohs center
  text "14:00h", 237, 298 192 50 19, tab 206
  edit %j14h, 238, 340 190 90 21, tab 206 autohs center
  text "15:00h", 239, 8 217 50 19, tab 206
  edit %j15h, 240, 50 215 90 21, tab 206 autohs center
  text "16:00h", 241, 148 217 50 19, tab 206
  edit %j16h, 242, 190 215 90 21, tab 206 autohs center
  text "17:00h", 243, 298 217 50 19, tab 206
  edit %j17h, 244, 340 215 90 21, tab 206 autohs center
  text "18:00h", 245, 8 242 50 19, tab 206
  edit %j18h, 246, 50 240 90 21, tab 206 autohs center
  text "19:00h", 247, 148 242 50 19, tab 206
  edit %j19h, 248, 190 240 90 21, tab 206 autohs center
  text "20:00h", 249, 298 242 50 19, tab 206
  edit %j20h, 250, 340 240 90 21, tab 206 autohs center
  text "21:00h", 251, 8 267 50 19, tab 206
  edit %j21h, 252, 50 265 90 21, tab 206 autohs center
  text "22:00h", 253, 148 267 50 19, tab 206
  edit %j22h, 254, 190 265 90 21, tab 206 autohs center
  text "23:00h", 255, 298 267 50 19, tab 206
  edit %j23h, 256, 340 265 90 21, tab 206 autohs center

  tab "Viernes", 257
  text "<< Viernes Horarios Matutinos >>", 258, 0 42 437 19, tab 257 center
  text "<< Viernes Horarios Vespertinos >>", 259, 0 166 437 19, tab 257 center
  text "00:00h", 260, 8 64 50 19, tab 257
  edit %v00h, 261, 50 62 90 21, tab 257 autohs center
  text "01:00h", 262, 148 64 50 19, tab 257
  edit %v01h, 263, 190 62 90 21, tab 257 autohs center
  text "02:00h", 264, 298 64 50 19, tab 257
  edit %v02h, 265, 340 62 90 21, tab 257 autohs center
  text "03:00h", 266, 8 89 50 19, tab 257
  edit %v03h, 267, 50 87 90 21, tab 257 autohs center
  text "04:00h", 268, 148 89 50 19, tab 257
  edit %v04h, 269, 190 87 90 21, tab 257 autohs center
  text "05:00h", 270, 298 89 50 19, tab 257
  edit %v05h, 271, 340 87 90 21, tab 257 autohs center
  text "06:00h", 272, 8 114 50 19, tab 257
  edit %v06h, 273, 50 112 90 21, tab 257 autohs center
  text "07:00h", 274, 148 114 50 19, tab 257
  edit %v07h, 275, 190 112 90 21, tab 257 autohs center
  text "08:00h", 276, 298 114 50 19, tab 257
  edit %v08h, 277, 340 112 90 21, tab 257 autohs center
  text "09:00h", 278, 8 139 50 19, tab 257
  edit %v09h, 279, 50 137 90 21, tab 257 autohs center
  text "10:00h", 280, 148 139 50 19, tab 257
  edit %v10h, 281, 190 137 90 21, tab 257 autohs center
  text "11:00h", 282, 298 139 50 19, tab 257
  edit %v11h, 283, 340 137 90 21, tab 257 autohs center
  text "12:00h", 284, 8 192 50 19, tab 257
  edit %v12h, 285, 50 190 90 21, tab 257 autohs center
  text "13:00h", 286, 148 192 50 19, tab 257
  edit %v13h, 287, 190 190 90 21, tab 257 autohs center
  text "14:00h", 288, 298 192 50 19, tab 257
  edit %v14h, 289, 340 190 90 21, tab 257 autohs center
  text "15:00h", 290, 8 217 50 19, tab 257
  edit %v15h, 291, 50 215 90 21, tab 257 autohs center
  text "16:00h", 292, 148 217 50 19, tab 257
  edit %v16h, 293, 190 215 90 21, tab 257 autohs center
  text "17:00h", 294, 298 217 50 19, tab 257
  edit %v17h, 295, 340 215 90 21, tab 257 autohs center
  text "18:00h", 296, 8 242 50 19, tab 257
  edit %v18h, 297, 50 240 90 21, tab 257 autohs center
  text "19:00h", 298, 148 242 50 19, tab 257
  edit %v19h, 299, 190 240 90 21, tab 257 autohs center
  text "20:00h", 300, 298 242 50 19, tab 257
  edit %v20h, 301, 340 240 90 21, tab 257 autohs center
  text "21:00h", 302, 8 267 50 19, tab 257
  edit %v21h, 303, 50 265 90 21, tab 257 autohs center
  text "22:00h", 304, 148 267 50 19, tab 257
  edit %v22h, 305, 190 265 90 21, tab 257 autohs center
  text "23:00h", 306, 298 267 50 19, tab 257
  edit %v23h, 307, 340 265 90 21, tab 257 autohs center

  tab "Sabado", 308
  text "<< Sabado Horarios Matutinos >>", 309, 0 42 437 19, tab 308 center
  text "<< Sabado Horarios Vespertinos >>", 310, 0 166 437 19, tab 308 center
  text "00:00h", 311, 8 64 50 19, tab 308
  edit %s00h, 312, 50 62 90 21, tab 308 autohs center
  text "01:00h", 313, 148 64 50 19, tab 308
  edit %s01h, 314, 190 62 90 21, tab 308 autohs center
  text "02:00h", 315, 298 64 50 19, tab 308
  edit %s02h, 316, 340 62 90 21, tab 308 autohs center
  text "03:00h", 317, 8 89 50 19, tab 308
  edit %s03h, 318, 50 87 90 21, tab 308 autohs center
  text "04:00h", 319, 148 89 50 19, tab 308
  edit %s04h, 320, 190 87 90 21, tab 308 autohs center
  text "05:00h", 321, 298 89 50 19, tab 308
  edit %s05h, 322, 340 87 90 21, tab 308 autohs center
  text "06:00h", 323, 8 114 50 19, tab 308
  edit %s06h, 324, 50 112 90 21, tab 308 autohs center
  text "07:00h", 325, 148 114 50 19, tab 308
  edit %s07h, 326, 190 112 90 21, tab 308 autohs center
  text "08:00h", 327, 298 114 50 19, tab 308
  edit %s08h, 328, 340 112 90 21, tab 308 autohs center
  text "09:00h", 329, 8 139 50 19, tab 308
  edit %s09h, 330, 50 137 90 21, tab 308 autohs center
  text "10:00h", 331, 148 139 50 19, tab 308
  edit %s10h, 332, 190 137 90 21, tab 308 autohs center
  text "11:00h", 333, 298 139 50 19, tab 308
  edit %s11h, 334, 340 137 90 21, tab 308 autohs center
  text "12:00h", 335, 8 192 50 19, tab 308
  edit %s12h, 336, 50 190 90 21, tab 308 autohs center
  text "13:00h", 337, 148 192 50 19, tab 308
  edit %s13h, 338, 190 190 90 21, tab 308 autohs center
  text "14:00h", 339, 298 192 50 19, tab 308
  edit %s14h, 340, 340 190 90 21, tab 308 autohs center
  text "15:00h", 341, 8 217 50 19, tab 308
  edit %s15h, 342, 50 215 90 21, tab 308 autohs center
  text "16:00h", 343, 148 217 50 19, tab 308
  edit %s16h, 344, 190 215 90 21, tab 308 autohs center
  text "17:00h", 345, 298 217 50 19, tab 308
  edit %s17h, 346, 340 215 90 21, tab 308 autohs center
  text "18:00h", 347, 8 242 50 19, tab 308
  edit %s18h, 348, 50 240 90 21, tab 308 autohs center
  text "19:00h", 349, 148 242 50 19, tab 308
  edit %s19h, 350, 190 240 90 21, tab 308 autohs center
  text "20:00h", 351, 298 242 50 19, tab 308
  edit %s20h, 352, 340 240 90 21, tab 308 autohs center
  text "21:00h", 353, 8 267 50 19, tab 308
  edit %s21h, 354, 50 265 90 21, tab 308 autohs center
  text "22:00h", 355, 148 267 50 19, tab 308
  edit %s22h, 356, 190 265 90 21, tab 308 autohs center
  text "23:00h", 357, 298 267 50 19, tab 308
  edit %s23h, 358, 340 265 90 21, tab 308 autohs center

  text %cparrilla - Para mostrar todos los horarios., 359, 8 296 342 19
  text "Color dia/hora", 360, 350 296 100 19
  text %cparrilla <número de dia> - Para mostrar un dia especifico., 361, 8 310 342 19
  text "Ocupado", 362, 350 318 50 19
  edit %jocupado, 363, 400 316 20 21, number center
  text %jpido <núm. dia - hora> - Para seleccionar dia y hora de emision., 364, 8 324 342 19
  text "Libre", 365, 369 343 30 19
  edit %jlibre, 366, 400 341 20 21, number center
  text %jborra <núm. dia - hora> - Para eliminar dia y hora de emision., 367, 8 338 342 19
  button "Guardar", 368, 214 364 75 21, ok
}
on 1:dialog:parrilla:init:*:{ 
}
on 1:dialog:parrilla:sclick:*:{ 
  var %c1 1, %d1 6, %hr 00
  if ($did(363).edited != $false) { 
    if ($did(363).text != $null) {
      if ($did(363).text <= 15) { /set %jocupado $did(363).text }
      else { /set %jocupado 4 }
    }
    else { /set %jocupado 4 }
  }
  if ($did(366).edited != $false) { 
    if ($did(366).text != $null) {
      if ($did(366).text <= 15) { /set %jlibre $did(366).text }
      else { /set %jlibre 3 }
    }
    else { /set %jlibre 3 }
  }
  while (%c1 <= 24) {
    if ($did(%d1).edited != $false) { 
      if ($did(%d1).text != $null) {  /set %d $+ %hr $+ h $did(%d1).text }
      else { /set %d $+ %hr $+ h Libre }
    }
    inc %hr | if (%hr <= 9) { /set %hr 0 $+ %hr }
    %d1 = %d1 + 2 | inc %c1
  }
  /set %c1 1 | /set %d1 57 | /set %hr 00
  while (%c1 <= 24) {
    if ($did(%d1).edited != $false) { 
      if ($did(%d1).text != $null) {  /set %l $+ %hr $+ h $did(%d1).text }
      else { /set %l $+ %hr $+ h Libre }
    }
    inc %hr | if (%hr <= 9) { /set %hr 0 $+ %hr }
    %d1 = %d1 + 2 | inc %c1
  }
  /set %c1 1 | /set %d1 108 | /set %hr 00
  while (%c1 <= 24) {
    if ($did(%d1).edited != $false) { 
      if ($did(%d1).text != $null) {  /set %m $+ %hr $+ h $did(%d1).text }
      else { /set %m $+ %hr $+ h Libre }
    }
    inc %hr | if (%hr <= 9) { /set %hr 0 $+ %hr }
    %d1 = %d1 + 2 | inc %c1
  }
  /set %c1 1 | /set %d1 159 | /set %hr 00
  while (%c1 <= 24) {
    if ($did(%d1).edited != $false) { 
      if ($did(%d1).text != $null) {  /set %w $+ %hr $+ h $did(%d1).text }
      else { /set %w $+ %hr $+ h Libre }
    }
    inc %hr | if (%hr <= 9) { /set %hr 0 $+ %hr }
    %d1 = %d1 + 2 | inc %c1
  }
  /set %c1 1 | /set %d1 210 | /set %hr 00
  while (%c1 <= 24) {
    if ($did(%d1).edited != $false) { 
      if ($did(%d1).text != $null) {  /set %j $+ %hr $+ h $did(%d1).text }
      else { /set %j $+ %hr $+ h Libre }
    }
    inc %hr | if (%hr <= 9) { /set %hr 0 $+ %hr }
    %d1 = %d1 + 2 | inc %c1
  }
  /set %c1 1 | /set %d1 261 | /set %hr 00
  while (%c1 <= 24) {
    if ($did(%d1).edited != $false) { 
      if ($did(%d1).text != $null) {  /set %v $+ %hr $+ h $did(%d1).text }
      else { /set %v $+ %hr $+ h Libre }
    }
    inc %hr | if (%hr <= 9) { /set %hr 0 $+ %hr }
    %d1 = %d1 + 2 | inc %c1
  }
  /set %c1 1 | /set %d1 312 | /set %hr 00
  while (%c1 <= 24) {
    if ($did(%d1).edited != $false) { 
      if ($did(%d1).text != $null) {  /set %s $+ %hr $+ h $did(%d1).text }
      else { /set %s $+ %hr $+ h Libre }
    }
    inc %hr | if (%hr <= 9) { /set %hr 0 $+ %hr }
    %d1 = %d1 + 2 | inc %c1
  }
}

;;;;;;;;;;;;;;;;;;;;;;;;;; PANEL 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

dialog panel1 {
  title "Configuracion de datos"
  size -1 -1 600 600
  option pixels
  text "EL BOT DEBE TENER REGISTRO Y CON NIVEL 499 EN EL CANAL DE RADIO Y DJ'S", 1, 0 4 480 19, center
  text "<< Funder >>", 2, 0 20 492 19, center
  text "Nick*", 3, 170 40 30 30
  edit %nickadmin, 4, 204 38 100 21, autohs center
  text "Canal de radio*", 6, 10 65 128 19
  edit %canalradio, 7, 130 65 170 21, autohs center
  text "Canal de djs*", 8, 10 92 118 19
  edit %canaldjs, 9, 130 92 170 21, autohs center
  text "Nombre de la radio*", 10, 10 150 163 32
  edit %nombreradio, 11, 130 150 170 19, autohs center
  text "IP*", 13, 8 170 67 19
  edit %ipradio, 14, 8 190 166 21, autohs center
  text "Puerto*", 15, 220 170 69 19
  edit %puertoradio, 16, 204 190 80 21, autohs center
  text "Url Winamp y otros reproductores", 19, 8 212 210 19
  edit %urlwinamp, 20, 8 232 252 21, autohs center
  text "Url Tunein", 21, 8 254 210 19
  edit %urltunein, 22, 8 274 252 21, autohs center
  text "Url Facebook", 23, 8 296 210 19
  edit %urlfacebook, 24, 8 316 252 21, autohs center
  text "Url Twitter", 25, 8 338 210 19
  edit %urltwitter, 26, 8 358 252 21, autohs center
  text "Url Youtube", 27, 8 380 210 19
  edit %urlyoutube, 28, 8 400 252 21, autohs center
  text "Web de la radio*", 29, 8 422 210 19
  edit %webradio, 30, 8 442 252 21, autohs center
  text "<< Protecciones >>", 31, 350 60 130 19, center
  text "Proteger contra CLONES", 32, 330 85 160 42
  check %anticlones, 33, 500 84 100 22
  text "Proteger contra SPAM FLOOD", 34, 330 115 160 42
  check %antiflood, 35, 500 114 100 22
  text "Proteger de CTCP Sound", 36, 330 145 160 42
  check %antisound, 37, 500 144 100 22
  text "Proteger de Spam MP3", 38, 330 175 160 42
  check %antimp3, 39, 500 174 100 22
  text "Nombre en modo Automatico*", 40, 280 220 200 42
  edit %ponenauto, 41, 310 244 110 21, autohs center
  text "Nombre del BOT*", 42, 280 273 200 19
  edit %nickbot, 43, 310 293 110 21, autohs center
  text "Password del BOT*", 44, 280 332 200 42
  edit %passbot, 45, 310 362 110 21, autohs password center
  text "* - Obligatorio.", 46, 316 456 200 42
  button "Guardar", 47, 307 410 75 25, ok
  text "Canal Administradores*", 48, 10 119 148 19
  edit %canaladmin, 49, 170 119 130 21, autohs center
}
on 1:dialog:panel1:init:*:{
  if (%anticlones != OFF) { did -c panel1 33 }
  if (%antiflood != OFF) { did -c panel1 35 }
  if (%antisound != OFF) { did -c panel1 37 }
  if (%antimp3 != OFF) { did -c panel1 39 }
}
on 1:dialog:panel1:sclick:*: {  
  if ($did(4) == $null) { .timer 1 0 dialog -m panel1 panel1 }
  else { if ($did(4).edited != $false) { .ruser 200 %nickadmin | .set %nickadmin $did(4) | .auser 200 %nickadmin } }
  if ($did(7) == $null) { .timer 1 0 dialog -m panel1 panel1 }
  else { if ($did(7).edited != $false) { .set %canalradio $did(7) } }
  if ($did(9) == $null) { .timer 1 0 dialog -m panel1 panel1 }
  else { if ($did(9).edited != $false) { .set %canaldjs $did(9) } }
  if ($did(49) == $null) { .timer 1 0 dialog -m panel1 panel1 }
  else { if ($did(49).edited != $false) { .set %canaladmin $did(49) } }
  if ($did(11) == $null) { .timer 1 0 dialog -m panel1 panel1 }
  else { if ($did(11).edited != $false) { .set %nombreradio $did(11) } }
  if ($did(14) == $null) { .timer 1 0 dialog -m panel1 panel1 }
  else { if ($did(14).edited != $false) { .set %ipradio $did(14) } }
  if ($did(16) == $null) { .timer 1 0 dialog -m panel1 panel1 }
  else { if ($did(16).edited != $false) { .set %puertoradio $did(16) } }
  if ($did(20).edited != $false) { set %urlwinamp $did(20) }
  if ($did(22).edited != $false) { set %urltunein $did(22) }
  if ($did(24).edited != $false) { set %urlfacebook $did(24) }
  if ($did(26).edited != $false) { set %urltwitter $did(26) }
  if ($did(28).edited != $false) { set %urlyoutube $did(28) }
  if ($did(30) == $null) { /timer 1 0 dialog -m panel1 panel1 }
  else { if ($did(30).edited != $false) { set %webradio $did(30) } }
  if ($did(33).state) { set %anticlones ON }
  else { set %anticlones OFF }
  if ($did(35).state) { set %antiflood ON }
  else { set %antiflood OFF }
  if ($did(37).state) { set %antisound ON }
  else { set %antisound OFF }
  if ($did(39).state) { set %antimp3 ON }
  else { set %antimp3 OFF }
  if ($did(41) == $null) { /timer 1 0 dialog -m panel1 panel1 }
  else {
    if ($did(41).edited != $false) {
      if (%dj.radio == %ponenauto) { .set %ponenauto $did(41) | .set %dj.radio %ponenauto }
      else { .set %ponenauto $did(41) }
    }
  }
  if ($did(43) == $null) { /timer 1 0 dialog -m panel1 panel1 }
  else { if ($did(43).edited != $false) { set %nickbot $did(43) } }
  if ($did(45) == $null) { /timer 1 0 dialog -m panel1 panel1 }
  else { if ($did(45).edited != $false) { set %passbot $did(45) } }
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; LISTA DE DJS ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Подпись автора

Mi ingles: no es el mejor, Manda el traductor... :writing:

6

Код:
dialog lista {
  title "Lista de DJ's"
  size -1 -1 324 332
  option pixels
  text "No incluir nicks de admins, levels, etc., es solamente para DJ's", 1, 0 4 324 19, center
  text "<<<< Lista de DJ's >>>>", 2, 0 24 324 19, center
  edit %dj1, 3, 8 48 100 21, autohs center
  edit %dj2, 4, 8 73 100 21, autohs center
  edit %dj3, 5, 8 98 100 21, autohs center
  edit %dj4, 6, 8 123 100 21, autohs center
  edit %dj5, 7, 8 148 100 21, autohs center
  edit %dj6, 8, 8 173 100 21, autohs center
  edit %dj7, 9, 8 198 100 21, autohs center
  edit %dj8, 10, 8 223 100 21, autohs center
  edit %dj9, 11, 8 248 100 21, autohs center
  edit %dj10, 12, 8 273 100 21, autohs center
  edit %dj11, 13, 112 48 100 21, autohs center
  edit %dj12, 14, 112 73 100 21, autohs center
  edit %dj13, 15, 112 98 100 21, autohs center
  edit %dj14, 16, 112 123 100 21, autohs center
  edit %dj15, 17, 112 148 100 21, autohs center
  edit %dj16, 18, 112 173 100 21, autohs center
  edit %dj17, 19, 112 198 100 21, autohs center
  edit %dj18, 20, 112 223 100 21, autohs center
  edit %dj19, 21, 112 248 100 21, autohs center
  edit %dj20, 22, 112 273 100 21, autohs center
  edit %dj21, 23, 216 48 100 21, autohs center
  edit %dj22, 24, 216 73 100 21, autohs center
  edit %dj23, 25, 216 98 100 21, autohs center
  edit %dj24, 26, 216 123 100 21, autohs center
  edit %dj25, 27, 216 148 100 21, autohs center
  edit %dj26, 28, 216 173 100 21, autohs center
  edit %dj27, 29, 216 198 100 21, autohs center
  edit %dj28, 30, 216 223 100 21, autohs center
  edit %dj29, 31, 216 248 100 21, autohs center
  edit %dj30, 32, 216 273 100 21, autohs center
  check "Mostrar al conectar", 33, 8 304 110 19
  button "Aceptar", 34, 200 298 75 25, ok
}
on 1:dialog:lista:init:*:{ 
  if (%mostrarlista == on ) did -c lista 33 | else did -u lista 33
}
on 1:dialog:lista:sclick:*:{ 
  var %cont 1, %ccont 3
  while (%cont <= 30) {
    if $did(%ccont).edited != $false {
      if ($did(%ccont) != $null) { .set % $+ dj $+ %cont $did(%ccont) }
      else { .set % $+ dj $+ %cont <vacio> }
    }
    inc %ccont | inc %cont
  }
}

;;;;;;;;;;;;;;;;;;;;; CANALES ;;;;;;;;;;;;;;;;;;;

dialog canales {
  title "Lista de canales"
  size -1 -1 648 340
  option pixels
  text "Introduzca los canales a los cuales entrara el bot automaticamente (el canal debe anteponer el simbolo #)", 1, 0 4 648 19, center
  text "<<<< Lista de canales >>>>", 2, 0 24 648 19, center
  text "#Canal", 3, 8 45 100 19, center
  text "Password", 4, 112 45 100 19, center
  text "#Canal", 5, 216 45 100 19, center
  text "Password", 6, 320 45 100 19, center
  text "#Canal", 7, 424 45 100 19, center
  text "Password", 8, 528 45 100 19, center
  edit %canal1, 9, 8 60 100 21, autohs center
  edit %canal2, 10, 8 85 100 21, autohs center
  edit %canal3, 11, 8 110 100 21, autohs center
  edit %canal4, 12, 8 135 100 21, autohs center
  edit %canal5, 13, 8 160 100 21, autohs center
  edit %canal6, 14, 8 185 100 21, autohs center
  edit %canal7, 15, 8 210 100 21, autohs center
  edit %canal8, 16, 8 235 100 21, autohs center
  edit %canal9, 17, 8 260 100 21, autohs center
  edit %canal10, 18, 8 285 100 21, autohs center
  edit %canal11, 19, 216 60 100 21, autohs center
  edit %canal12, 20, 216 85 100 21, autohs center
  edit %canal13, 21, 216 110 100 21, autohs center
  edit %canal14, 22, 216 135 100 21, autohs center
  edit %canal15, 23, 216 160 100 21, autohs center
  edit %canal16, 24, 216 185 100 21, autohs center
  edit %canal17, 25, 216 210 100 21, autohs center
  edit %canal18, 26, 216 235 100 21, autohs center
  edit %canal19, 27, 216 260 100 21, autohs center
  edit %canal20, 28, 216 285 100 21, autohs center
  edit %canal21, 29, 424 60 100 21, autohs center
  edit %canal22, 30, 424 85 100 21, autohs center
  edit %canal23, 31, 424 110 100 21, autohs center
  edit %canal24, 32, 424 135 100 21, autohs center
  edit %canal25, 33, 424 160 100 21, autohs center
  edit %canal26, 34, 424 185 100 21, autohs center
  edit %canal27, 35, 424 210 100 21, autohs center
  edit %canal28, 36, 424 235 100 21, autohs center
  edit %canal29, 37, 424 260 100 21, autohs center
  edit %canal30, 38, 424 285 100 21, autohs center
  edit %pass1, 39, 112 60 100 21, autohs password center
  edit %pass2, 40, 112 85 100 21, autohs password center
  edit %pass3, 41, 112 110 100 21, autohs password center
  edit %pass4, 42, 112 135 100 21, autohs password center
  edit %pass5, 43, 112 160 100 21, autohs password center
  edit %pass6, 44, 112 185 100 21, autohs password center
  edit %pass7, 45, 112 210 100 21, autohs password center
  edit %pass8, 46, 112 235 100 21, autohs password center
  edit %pass9, 47, 112 260 100 21, autohs password center
  edit %pass10, 48, 112 285 100 21, autohs password center
  edit %pass11, 49, 320 60 100 21, autohs password center
  edit %pass12, 50, 320 85 100 21, autohs password center
  edit %pass13, 51, 320 110 100 21, autohs password center
  edit %pass14, 52, 320 135 100 21, autohs password center
  edit %pass15, 53, 320 160 100 21, autohs password center
  edit %pass16, 54, 320 185 100 21, autohs password center
  edit %pass17, 55, 320 210 100 21, autohs password center
  edit %pass18, 56, 320 235 100 21, autohs password center
  edit %pass19, 57, 320 260 100 21, autohs password center
  edit %pass20, 58, 320 285 100 21, autohs password center
  edit %pass21, 59, 528 60 100 21, autohs password center
  edit %pass22, 60, 528 85 100 21, autohs password center
  edit %pass23, 61, 528 110 100 21, autohs password center
  edit %pass24, 62, 528 135 100 21, autohs password center
  edit %pass25, 63, 528 160 100 21, autohs password center
  edit %pass26, 64, 528 185 100 21, autohs password center
  edit %pass27, 65, 528 210 100 21, autohs password center
  edit %pass28, 66, 528 235 100 21, autohs password center
  edit %pass29, 67, 528 260 100 21, autohs password center
  edit %pass30, 68, 528 285 100 21, autohs password center
  check "Mostrar al conectar", 69, 8 316 110 19
  button "Aceptar", 70, 200 310 75 25, ok
}
on 1:dialog:canales:init:*:{ 
  if (%mostrar == on ) did -c canales 69 | else did -u canales 69
}

on 1:dialog:canales:sclick:*:{ 
  var %cont 1, %ccont 9, %cpass 39
  while (%cont <= 30) {
    if $did(%ccont).edited != $false {
      if ($did(%ccont) != $null) { .set % $+ canal $+ %cont $did(%ccont) }
      else { .set % $+ canal $+ %cont <vacio> }
    }
    if $did(%cpass).edited != $false {
      if ($did(%cpass) != $null) { .set % $+ pass $+ %cont $did(%cpass) }
      else { .set % $+ pass $+ %cont $null }
    }
    if ($did(%ccont) == $null) || ($did(%ccont) == <vacio>) { .set % $+ pass $+ %cont $null }
    inc %ccont | inc %cpass | inc %cont
  }
}

;;;;;;;;;;;;;;;;;;;;; MENSAJES ;;;;;;;;;;;;;;;;;;;

dialog mensajesype {
  title "Mensajes - Personalizar"
  size -1 -1 300 85
  option dbu
  tab "Accesar", 1, 0 0 300 67
  text "ANUNCIO DE PUBLICIDAD AL ACCESAR A LA SALA DE LA RADIO", 2, 0 20 300 19, tab 1 center
  edit %radiobot4, 3, 0 28 300 38, tab 1 multi
  tab "Anunciar", 4
  text "ANUNCIO DE RADIO AUTOMÁTICO ", 5, 0 20 300 23, tab 4 center
  edit %radiobot6, 6, 0 28 300 38, tab 4 multi
  tab %jpre $+ %cDJ, 7
  text "ANUNCIO PARA EL DJ QUE ESTA EN EMISIÓN", 8, 0 20 300 19, tab 7 center
  edit %radiobot5, 9, 0 28 300 38, tab 7 multi
  tab %jpre $+ %cmdg1, 10
  text "ANUNCIO DE RADIO PARA PUBLICIDAD CON EL COMANDO !radio", 11, 0 20 300 19, tab 10 center
  edit %radiobot7, 12, 0 28 300 38, tab 10 multi
  tab "Inactivo", 13
  text "ANUNCIO PARA LA RADIO CUANDO ESTA DETENIDA", 14, 0 20 300 19, tab 13 center
  edit %radiobot2, 15, 0 28 300 38, tab 13 multi
  tab "Tiempo", 16
  text "ANUNCIO DE TIEMPO PARA PASAR ENTRE UN AVISO Y EL SIGUIENTE", 17, 0 20 300 19, tab 16 center
  edit %radiobot3, 18, 0 28 300 38, tab 16 multi
  tab "Topic", 19
  text "COLOCANDO EL TOPIC GUARDADO", 20, 0 20 300 19, tab 19 center
  edit %radiobot8, 21, 0 28 300 38, tab 19 multi
  tab "Hora", 22
  text "MENSAJE PARA LA HORA GUARDADA", 23, 0 20 300 19, tab 22 center
  edit %radiobot9, 24, 0 28 300 38, tab 22 multi
  button "Guardar", 34, 112 71 30 10, ok
}
on 1:dialog:mensajesype:init:*:{ 
}
on 1:dialog:mensajesype:sclick:*:{ 
  if $did(3).edited != $false { .set %radiobot4 $did(3) $+ $did(3,2) $+ $did(3,3) $+ $did(3,4) $+ $did(3,5) }
  if $did(6).edited != $false { .set %radiobot6 $did(6) $+ $did(6,2) $+ $did(6,3) $+ $did(6,4) $+ $did(6,5) }
  if $did(9).edited != $false { .set %radiobot5 $did(9) $+ $did(9,2) $+ $did(9,3) $+ $did(9,4) $+ $did(9,5) }
  if $did(12).edited != $false { .set %radiobot7 $did(12) $+ $did(12,2) $+ $did(12,3) $+ $did(12,4) $+ $did(12,5) }
  if $did(15).edited != $false { .set %radiobot2 $did(15) $+ $did(15,2) $+ $did(15,3) $+ $did(15,4) $+ $did(15,5) }
  if $did(18).edited != $false { .set %radiobot3 $did(18) $+ $did(18,2) $+ $did(18,3) $+ $did(18,4) $+ $did(18,5) } 
  if $did(21).edited != $false { .set %radiobot8 $did(21) $+ $did(21,2) $+ $did(21,3) $+ $did(21,4) $+ $did(21,5) } 
  if $did(24).edited != $false { .set %radiobot9 $did(24) $+ $did(24,2) $+ $did(24,3) $+ $did(24,4) $+ $did(24,5) } 
}

;;;;;;;;;;;;;;;;;;;;; EMISION ;;;;;;;;;;;;;;;;;;;

dialog emision {
  title "Datos para emitir"
  size -1 -1 476 216
  option pixels
  text "Tipo de servidor:", 1, 8 4 100 19
  radio "Icecast", 2, 116 4 70 19
  radio "Shoutcast", 3, 194 4 70 19
  text "IP del servidor", 4, 8 27 100 19
  edit %jemiip, 5, 8 42 148 21, autohs center
  text "Puerto del servidor", 6, 164 27 100 19
  edit %jemiport, 7, 164 42 148 21, autohs center
  text "Montaje del servidor", 8, 320 27 100 19
  edit %jemimontar, 9, 320 42 148 21, autohs center
  text "Contraseña del servidor:", 10, 8 71 140 19
  radio "Diferente para todos", 11, 156 71 120 19
  radio "Misma para todos", 12, 290 71 120 19
  text "Contraseña única:", 13, 8 96 100 19, tab 10
  edit %jemipass, 14, 98 94 148 21, autohs center
  tab %dj1, 15, 0 123 476 60
  text "Contraseña del servidor para transmitir:", 16, 8 152 200 19, tab 15
  edit %jemipasdj1, 17, 202 150 148 22, tab 15 autohs center
  tab %dj2, 18
  text "Contraseña del servidor para transmitir:", 19, 8 152 200 19, tab 18
  edit %jemipasdj2, 20, 202 150 148 21, tab 18 autohs center
  tab %dj3, 21
  text "Contraseña del servidor para transmitir:", 22, 8 152 200 19, tab 21
  edit %jemipasdj3, 23, 202 150 148 21, tab 21 autohs center
  tab %dj4, 24
  text "Contraseña del servidor para transmitir:", 25, 8 152 200 19, tab 24
  edit %jemipasdj4, 26, 202 150 148 21, tab 24 autohs center
  tab %dj5, 27
  text "Contraseña del servidor para transmitir:", 28, 8 152 200 19, tab 27
  edit %jemipasdj5, 29, 202 150 148 21, tab 27 autohs center
  tab %dj6, 30
  text "Contraseña del servidor para transmitir:", 31, 8 152 200 19, tab 30
  edit %jemipasdj6, 32, 202 150 148 21, tab 30 autohs center
  tab %dj7, 33
  text "Contraseña del servidor para transmitir:", 34, 8 152 200 19, tab 33
  edit %jemipasdj7, 35, 202 150 148 21, tab 33 autohs center
  tab %dj8, 36
  text "Contraseña del servidor para transmitir:", 37, 8 152 200 19, tab 36
  edit %jemipasdj8, 38, 202 150 148 21, tab 36 autohs center
  tab %dj9, 39
  text "Contraseña del servidor para transmitir:", 40, 8 152 200 19, tab 39
  edit %jemipasdj9, 41, 202 150 148 21, tab 39 autohs center
  tab %dj10, 42
  text "Contraseña del servidor para transmitir:", 43, 8 152 200 19, tab 42
  edit %jemipasdj10, 44, 202 150 148 21, tab 42 autohs center
  tab %dj11, 45
  text "Contraseña del servidor para transmitir:", 46, 8 152 200 19, tab 45
  edit %jemipasdj11, 47, 202 150 148 21, tab 45 autohs center
  tab %dj12, 48
  text "Contraseña del servidor para transmitir:", 49, 8 152 200 19, tab 48
  edit %jemipasdj12, 50, 202 150 148 21, tab 48 autohs center
  tab %dj13, 51
  text "Contraseña del servidor para transmitir:", 52, 8 152 200 19, tab 51
  edit %jemipasdj13, 53, 202 150 148 21, tab 51 autohs center
  tab %dj14, 54
  text "Contraseña del servidor para transmitir:", 55, 8 152 200 19, tab 54
  edit %jemipasdj14, 56, 202 150 148 21, tab 54 autohs center
  tab %dj15, 57
  text "Contraseña del servidor para transmitir:", 58, 8 152 200 19, tab 57
  edit %jemipasdj15, 59, 202 150 148 21, tab 57 autohs center
  tab %dj16, 60
  text "Contraseña del servidor para transmitir:", 61, 8 152 200 19, tab 60
  edit %jemipasdj16, 62, 202 150 148 21, tab 60 autohs center
  tab %dj17, 63
  text "Contraseña del servidor para transmitir:", 64, 8 152 200 19, tab 63
  edit %jemipasdj17, 65, 202 150 148 21, tab 63 autohs center
  tab %dj18, 66
  text "Contraseña del servidor para transmitir:", 67, 8 152 200 19, tab 66
  edit %jemipasdj18, 68, 202 150 148 21, tab 66 autohs center
  tab %dj19, 69
  text "Contraseña del servidor para transmitir:", 70, 8 152 200 19, tab 69
  edit %jemipasdj19, 71, 202 150 148 21, tab 69 autohs center
  tab %dj20, 72
  text "Contraseña del servidor para transmitir:", 73, 8 152 200 19, tab 72
  edit %jemipasdj20, 74, 202 150 148 21, tab 72 autohs center
  tab %dj21, 75
  text "Contraseña del servidor para transmitir:", 76, 8 152 200 19, tab 75
  edit %jemipasdj21, 77, 202 150 148 21, tab 75 autohs center
  tab %dj22, 78
  text "Contraseña del servidor para transmitir:", 79, 8 152 200 19, tab 78
  edit %jemipasdj22, 80, 202 150 148 21, tab 78 autohs center
  tab %dj23, 81
  text "Contraseña del servidor para transmitir:", 82, 8 152 200 19, tab 81
  edit %jemipasdj23, 83, 202 150 148 21, tab 81 autohs center
  tab %dj24, 84
  text "Contraseña del servidor para transmitir:", 85, 8 152 200 19, tab 84
  edit %jemipasdj24, 86, 202 150 148 21, tab 84 autohs center
  tab %dj25, 87
  text "Contraseña del servidor para transmitir:", 88, 8 152 200 19, tab 87
  edit %jemipasdj25, 89, 202 150 148 21, tab 87 autohs center
  tab %dj26, 90
  text "Contraseña del servidor para transmitir:", 91, 8 152 200 19, tab 90
  edit %jemipasdj26, 92, 202 150 148 21, tab 90 autohs center
  tab %dj27, 93
  text "Contraseña del servidor para transmitir:", 94, 8 152 200 19, tab 93
  edit %jemipasdj27, 95, 202 150 148 21, tab 93 autohs center
  tab %dj28, 96
  text "Contraseña del servidor para transmitir:", 97, 8 152 200 19, tab 96
  edit %jemipasdj28, 98, 202 150 148 21, tab 96 autohs center
  tab %dj29, 99
  text "Contraseña del servidor para transmitir:", 100, 8 152 200 19, tab 99
  edit %jemipasdj29, 101, 202 150 148 21, tab 99 autohs center
  tab %dj30, 102
  text "Contraseña del servidor para transmitir:", 103, 8 152 200 19, tab 102
  edit %jemipasdj30, 104, 202 150 148 21, tab 102 autohs center
  button "Guardar", 105, 188 186 100 25, ok
}
on 1:dialog:emision:init:*:{ 
  if (%jdatos == $null) { set %jdatos Shoutcast }
  if (%jdatos ==  Icecast) { did -c emision 2 } | else { did -u emision 2 }
  if (%jdatos ==  Shoutcast) { did -c emision 3 } | else { did -u emision 3 }
  if $did(3).state == 1 { did -b emision 8 | did -b emision 9 }
  if $did(2).state == 1 { did -e emision 8 | did -e emision 9 | did -f emision 9 }
  if (%jpassdj == $null) { set %jpassdj Unica }
  if (%jpassdj ==  Diferente) { did -c emision 11 } | else { did -u emision 11 }
  if (%jpassdj ==  Unica) { did -c emision 12 } | else { did -u emision 12 }
  if $did(11).state == 1 { did -b emision 13 | did -b emision 14 | did -v emision 15 }
  if $did(12).state == 1 { did -e emision 13 | did -e emision 14 | did -f emision 14 | did -h emision 15 }
}
on 1:dialog:emision:sclick:*:{
  if $did(3).state == 1 { did -b emision 8 | did -b emision 9 | set %jdatos Shoutcast }
  if $did(2).state == 1 { did -e emision 8 | did -e emision 9 | did -f emision 9 | set %jdatos Icecast }
  if $did(11).state == 1 { did -b emision 13 | did -b emision 14 | set %jpassdj Diferente | did -v emision 15 | set %jemipass <vacio> }
  if $did(12).state == 1 { did -e emision 13 | did -e emision 14 | did -f emision 14 | set %jpassdj Unica | did -h emision 15 }
  if $did(5).edited != $false {
    if ($did(5) != $null) { .set % $+ jemiip $did(5) }
    else { .set % $+ jemiip <vacio> }
  }
  if $did(7).edited != $false {
    if ($did(7) != $null) { .set % $+ jemiport $did(7) }
    else { .set % $+ jemiport <vacio> }
  }
  if $did(9).edited != $false {
    if ($did(9) != $null) { .set % $+ jemimontar $did(9) }
    else { .set % $+ jemimontar <vacio> }
  }
  if (%jpassdj ==  Diferente) {
    var %cont 1, %ccont 17
    while (%cont <= 30) {
      if $did(%ccont).edited != $false {
        if ($did(%ccont) != $null) { .set % $+ jemipasdj $+ %cont $did(%ccont) }
        else { .set % $+ jemipasdj $+ %cont <vacio> }
      }
      %ccont = %ccont + 3 | inc %cont
    }
  }
  if (%jpassdj ==  Unica) {
    if $did(14).edited != $false {
      if ($did(14) != $null) { .set % $+ jemipass $did(14) }
      else { .set % $+ jemipass <vacio> }
    }
  }
}

;;;;;;;;;;;;;;;;;;;;; EQUIPO ;;;;;;;;;;;;;;;;;;;

dialog equipo {
  title "Equipo - Personal de la radio"
  size -1 -1 800 700
  option pixels
  text "Nivel del bot", 1, 8 4 100 19
  edit %level, 2, 8 20 100 21, autohs center
  text "Administradores", 3, 8 160 100 19
  edit %jroot1, 4, 110 160 100 21, autohs center
  edit %jroot2, 5, 220 160 100 21, autohs center
  edit %jroot3, 6, 330 160 100 21, autohs center
  edit %jroot4, 7, 420 160 100 21, autohs center
  text "Funder", 8, 8 115 100 19
  edit %admin1, 9, 60 115 100 21, autohs center
  edit %admin2, 10, 190 115 100 21, autohs center
  edit %admin3, 11, 300 115 100 21, autohs center
  edit %admin4, 12, 410 115 100 21, autohs center
  text "Tecnico", 13, 8 190 100 19
  edit %jtecnico, 14, 70 190 100 21, autohs center
  text "Animador", 15, 5 230 100 19
  edit %janimadora, 16, 70 230 100 21, autohs center
  text "Oyentes vip's", 18, 300 270 100 30
  edit %vip1, 19, 8 310 100 30, autohs center
  edit %vip2, 20, 120 310 100 30, autohs center
  edit %vip3, 21, 232 310 100 30, autohs center
  edit %vip4, 22, 344 310 100 30, autohs center
  edit %vip5, 23, 456 310 100 30, autohs center
  edit %vip6, 24, 568 310 100 30, autohs center
  edit %vip7, 25, 680 310 100 30, autohs center
  edit %vip8, 26, 8 360 100 30, autohs center
  edit %vip9, 27, 120 360 100 30, autohs center
  edit %vip10, 28, 232 360 100 30, autohs center
  edit %vip11, 29, 344 360 100 30, autohs center
  edit %vip12, 30, 456 360 100 30, autohs center
  edit %vip13, 31, 568 360 100 30, autohs center
  edit %vip14, 32, 680 360 100 30, autohs center
  edit %vip15, 33, 8 410 100 30, autohs center
  edit %vip16, 34, 120 410 100 30, autohs center
  edit %vip17, 35, 232 410 100 30, autohs center
  edit %vip18, 36, 344 410 100 30, autohs center
  edit %vip19, 37, 456 410 100 30, autohs center
  edit %vip20, 38, 568 410 100 30, autohs center
  edit %vip21, 39, 680 410 100 30, autohs center
  edit %vip22, 40, 8 460 100 30, autohs center
  edit %vip23, 41, 120 460 100 30, autohs center
  edit %vip24, 42, 232 460 100 30, autohs center
  edit %vip25, 43, 344 460 100 30, autohs center
  edit %vip26, 44, 456 460 100 30, autohs center
  edit %vip27, 45, 568 460 100 30, autohs center
  edit %vip28, 46, 680 460 100 30, autohs center
  edit %vip29, 47, 8 510 100 30, autohs center
  edit %vip30, 48, 120 510 100 30, autohs center
  edit %vip31, 49, 232 510 100 30, autohs center
  edit %vip32, 50, 344 510 100 30, autohs center
  edit %vip33, 51, 456 510 100 30, autohs center
  edit %vip34, 52, 568 510 100 30, autohs center
  edit %vip35, 53, 680 510 100 30, autohs center
  button "Guardar", 17, 137 600 75 25, ok
}
on 1:dialog:equipo:init:*:{ 
}
on 1:dialog:equipo:sclick:*:{ 
  if $did(2).edited != $false {
    if ($did(2) != $null) {
      if ($eval(% $+ level,2) == <vacio>) { .set % $+ level $did(2) | .auser 499 $did(2) }
      else { .ruser 499 $eval(% $+ level,2) | .set % $+ level $did(2) | .auser 499 $did(2) }
    }
    else { if ($eval(% $+ level,2) != <vacio>) { .ruser 499 $eval(% $+ level,2) | .set % $+ level <vacio> } }
  }
  if $did(4).edited != $false {
    if ($did(4) != $null) {
      if ($eval(% $+ jroot1,2) == <vacio>) { .set % $+ jroot1 $did(4) | .auser 149 $did(4) }
      else { .ruser 149 $eval(% $+ jroot1,2) | .set % $+ jroot1 $did(4) | .auser 149 $did(4) }
    }
    else { if ($eval(% $+ jroot1,2) != <vacio>) { .ruser 149 $eval(% $+ jroot1,2) | .set % $+ jroot1 <vacio> } }
  }
  if $did(5).edited != $false {
    if ($did(5) != $null) {
      if ($eval(% $+ jroot2,2) == <vacio>) { .set % $+ jroot2 $did(5) | .auser 149 $did(5) }
      else { .ruser 149 $eval(% $+ jroot2,2) | .set % $+ jroot2 $did(5) | .auser 149 $did(5) }
    }
    else { if ($eval(% $+ jroot2,2) != <vacio>) { .ruser 149 $eval(% $+ jroot2,2) | .set % $+ jroot2 <vacio> } }
  }
  if $did(6).edited != $false {
    if ($did(6) != $null) {
      if ($eval(% $+ jroot3,2) == <vacio>) { .set % $+ jroot3 $did(6) | .auser 149 $did(6) }
      else { .ruser 149 $eval(% $+ jroot3,2) | .set % $+ jroot3 $did(6) | .auser 149 $did(6) }
    }
    else { if ($eval(% $+ jroot3,2) != <vacio>) { .ruser 149 $eval(% $+ jroot3,2) | .set % $+ jroot3 <vacio> } }
  }
  if $did(7).edited != $false {
    if ($did(7) != $null) {
      if ($eval(% $+ jroot4,2) == <vacio>) { .set % $+ jroot4 $did(7) | .auser 149 $did(7) }
      else { .ruser 149 $eval(% $+ jroot4,2) | .set % $+ jroot4 $did(7) | .auser 149 $did(7) }
    }
    else { if ($eval(% $+ jroot4,2) != <vacio>) { .ruser 149 $eval(% $+ jroot4,2) | .set % $+ jroot4 <vacio> } }
  }
  if $did(9).edited != $false { 
    if ($did(9) != $null) {
      if ($eval(% $+ admin1,2) == <vacio>) { .set % $+ admin1 $did(9) | .auser 200 $did(9) }
      else { .ruser 200 $eval(% $+ admin1,2) | .set % $+ admin1 $did(9) | .auser 200 $did(9) }
    }
    else { if ($eval(% $+ admin1,2) != <vacio>) { .ruser 200 $eval(% $+ admin1,2) | .set % $+ admin1 <vacio> } }
  }
  if $did(10).edited != $false {
    if ($did(10) != $null) {
      if ($eval(% $+ admin2,2) == <vacio>) { .set % $+ admin2 $did(10) | .auser 200 $did(10) }
      else { .ruser 200 $eval(% $+ admin2,2) | .set % $+ admin2 $did(10) | .auser 200 $did(10) }
    }
    else { if ($eval(% $+ admin2,2) != <vacio>) { .ruser 200 $eval(% $+ admin2,2) | .set % $+ admin2 <vacio> } }
  }
  if $did(11).edited != $false {
    if ($did(11) != $null) {
      if ($eval(% $+ admin3,2) == <vacio>) { .set % $+ admin3 $did(11) | .auser 200 $did(11) }
      else { .ruser 200 $eval(% $+ admin3,2) | .set % $+ admin3 $did(11) | .auser 200 $did(11) }
    }
    else { if ($eval(% $+ admin3,2) != <vacio>) { .ruser 200 $eval(% $+ admin3,2) | .set % $+ admin3 <vacio> } }
  }
  if $did(11).edited != $false {
    if ($did(11) != $null) {
      if ($eval(% $+ admin3,2) == <vacio>) { .set % $+ admin3 $did(11) | .auser 200 $did(11) }
      else { .ruser 200 $eval(% $+ admin3,2) | .set % $+ admin3 $did(11) | .auser 200 $did(11) }
    }
    else { if ($eval(% $+ admin3,2) != <vacio>) { .ruser 200 $eval(% $+ admin3,2) | .set % $+ admin3 <vacio> } }
  }

  if $did(12).edited != $false {
    if ($did(12) != $null) {
      if ($eval(% $+ admin4,2) == <vacio>) { .set % $+ admin4 $did(12) | .auser 200 $did(12) }
      else { .ruser 200 $eval(% $+ admin4,2) | .set % $+ admin4 $did(12) | .auser 200 $did(12) }
    }
    else { if ($eval(% $+ admin4,2) != <vacio>) { .ruser 200 $eval(% $+ admin4,2) | .set % $+ admin4 <vacio> } }
  } 
  if $did(14).edited != $false {
    if ($did(14) != $null) {
      if ($eval(% $+ jtecnico,2) == <vacio>) { .set % $+ jtecnico $did(14) | .auser 150 $did(14) }
      else { .ruser 150 $eval(% $+ jtecnico,2) | .set % $+ jtecnico $did(14) | .auser 150 $did(14) }
    }
    else { if ($eval(% $+ jtecnico,2) != <vacio>) { .ruser 150 $eval(% $+ jtecnico,2) | .set % $+ jtecnico <vacio> } }
  } 
  if $did(16).edited != $false { 
    if ($did(16) != $null) {
      if ($eval(% $+ janimadora,2) == <vacio>) { .set % $+ janimadora $did(16) | .auser 147 $did(16) }
      else { .ruser 147 $eval(% $+ janimadora,2) | .set % $+ janimadora $did(16) | .auser 147 $did(16) }
    }
    else { if ($eval(% $+ janimadora,2) != <vacio>) { .ruser 147 $eval(% $+ janimadora,2) | .set % $+ janimadora <vacio> } }
  }
  if $did(19).edited != $false {
    if ($did(19) != $null) {
      if ($eval(% $+ vip1,2) == <vacio>) { .set % $+ vip1 $did(19) | .auser 100 $did(19) }
      else { .ruser 100 $eval(% $+ vip1,2) | .set % $+ vip1 $did(19) | .auser 100 $did(19) }
    }
    else { if ($eval(% $+ vip1,2) != <vacio>) { .ruser 100 $eval(% $+ vip1,2) | .set % $+ vip1 <vacio> } }
  }
  if $did(20).edited != $false {
    if ($did(20) != $null) {
      if ($eval(% $+ vip2,2) == <vacio>) { .set % $+ vip2 $did(20) | .auser 100 $did(20) }
      else { .ruser 100 $eval(% $+ vip2,2) | .set % $+ vip2 $did(20) | .auser 100 $did(20) }
    }
    else { if ($eval(% $+ vip2,2) != <vacio>) { .ruser 100 $eval(% $+ vip2,2) | .set % $+ vip2 <vacio> } }
  }
  if $did(21).edited != $false {
    if ($did(21) != $null) {
      if ($eval(% $+ vip3,2) == <vacio>) { .set % $+ vip3 $did(21) | .auser 100 $did(21) }
      else { .ruser 100 $eval(% $+ vip3,2) | .set % $+ vip3 $did(21) | .auser 100 $did(21) }
    }
    else { if ($eval(% $+ vip3,2) != <vacio>) { .ruser 100 $eval(% $+ vip3,2) | .set % $+ vip3 <vacio> } }
  }
  if $did(22).edited != $false {
    if ($did(22) != $null) {
      if ($eval(% $+ vip4,2) == <vacio>) { .set % $+ vip4 $did(22) | .auser 100 $did(22) }
      else { .ruser 100 $eval(% $+ vip4,2) | .set % $+ vip4 $did(22) | .auser 100 $did(22) }
    }
    else { if ($eval(% $+ vip4,2) != <vacio>) { .ruser 100 $eval(% $+ vip4,2) | .set % $+ vip4 <vacio> } }
  }
  if $did(23).edited != $false {
    if ($did(23) != $null) {
      if ($eval(% $+ vip5,2) == <vacio>) { .set % $+ vip5 $did(23) | .auser 100 $did(23) }
      else { .ruser 100 $eval(% $+ vip5,2) | .set % $+ vip5 $did(23) | .auser 100 $did(23) }
    }
    else { if ($eval(% $+ vip5,2) != <vacio>) { .ruser 100 $eval(% $+ vip5,2) | .set % $+ vip5 <vacio> } }
  }
  if $did(24).edited != $false {
    if ($did(24) != $null) {
      if ($eval(% $+ vip6,2) == <vacio>) { .set % $+ vip6 $did(24) | .auser 100 $did(24) }
      else { .ruser 100 $eval(% $+ vip6,2) | .set % $+ vip6 $did(24) | .auser 100 $did(24) }
    }
    else { if ($eval(% $+ vip6,2) != <vacio>) { .ruser 100 $eval(% $+ vip6,2) | .set % $+ vip6 <vacio> } }
  }
  if $did(25).edited != $false {
    if ($did(25) != $null) {
      if ($eval(% $+ vip7,2) == <vacio>) { .set % $+ vip7 $did(25) | .auser 100 $did(25) }
      else { .ruser 100 $eval(% $+ vip7,2) | .set % $+ vip7 $did(25) | .auser 100 $did(25) }
    }
    else { if ($eval(% $+ vip7,2) != <vacio>) { .ruser 100 $eval(% $+ vip7,2) | .set % $+ vip7 <vacio> } }
  }
  if $did(26).edited != $false {
    if ($did(26) != $null) {
      if ($eval(% $+ vip8,2) == <vacio>) { .set % $+ vip8 $did(26) | .auser 100 $did(26) }
      else { .ruser 100 $eval(% $+ vip5,2) | .set % $+ vip8 $did(26) | .auser 100 $did(26) }
    }
    else { if ($eval(% $+ vip8,2) != <vacio>) { .ruser 100 $eval(% $+ vip8,2) | .set % $+ vip8 <vacio> } }
  }
  if $did(27).edited != $false {
    if ($did(27) != $null) {
      if ($eval(% $+ vip9,2) == <vacio>) { .set % $+ vip9 $did(27) | .auser 100 $did(27) }
      else { .ruser 100 $eval(% $+ vip9,2) | .set % $+ vip9 $did(27) | .auser 100 $did(27) }
    }
    else { if ($eval(% $+ vip9,2) != <vacio>) { .ruser 100 $eval(% $+ vip9,2) | .set % $+ vip9 <vacio> } }
  }
  if $did(28).edited != $false {
    if ($did(28) != $null) {
      if ($eval(% $+ vip10,2) == <vacio>) { .set % $+ vip10 $did(28) | .auser 100 $did(28) }
      else { .ruser 100 $eval(% $+ vip10,2) | .set % $+ vip10 $did(28) | .auser 100 $did(28) }
    }
    else { if ($eval(% $+ vip10,2) != <vacio>) { .ruser 100 $eval(% $+ vip10,2) | .set % $+ vip10 <vacio> } }
  }
  if $did(29).edited != $false {
    if ($did(29) != $null) {
      if ($eval(% $+ vip11,2) == <vacio>) { .set % $+ vip11 $did(29) | .auser 100 $did(29) }
      else { .ruser 100 $eval(% $+ vip11,2) | .set % $+ vip5 $did(29) | .auser 100 $did(29) }
    }
    else { if ($eval(% $+ vip11,2) != <vacio>) { .ruser 100 $eval(% $+ vip11,2) | .set % $+ vip11 <vacio> } }
  }
  if $did(30).edited != $false {
    if ($did(30) != $null) {
      if ($eval(% $+ vip12,2) == <vacio>) { .set % $+ vip12 $did(30) | .auser 100 $did(30) }
      else { .ruser 100 $eval(% $+ vip12,2) | .set % $+ vip12 $did(30) | .auser 100 $did(30) }
    }
    else { if ($eval(% $+ vip12,2) != <vacio>) { .ruser 100 $eval(% $+ vip12,2) | .set % $+ vip12 <vacio> } }
  }
  if $did(31).edited != $false {
    if ($did(31) != $null) {
      if ($eval(% $+ vip13,2) == <vacio>) { .set % $+ vip13 $did(31) | .auser 100 $did(31) }
      else { .ruser 100 $eval(% $+ vip13,2) | .set % $+ vip13 $did(31) | .auser 100 $did(31) }
    }
    else { if ($eval(% $+ vip13,2) != <vacio>) { .ruser 100 $eval(% $+ vip13,2) | .set % $+ vip13 <vacio> } }
  }
  if $did(32).edited != $false {
    if ($did(32) != $null) {
      if ($eval(% $+ vip14,2) == <vacio>) { .set % $+ vip14 $did(32) | .auser 100 $did(32) }
      else { .ruser 100 $eval(% $+ vip14,2) | .set % $+ vip14 $did(32) | .auser 100 $did(32) }
    }
    else { if ($eval(% $+ vip14,2) != <vacio>) { .ruser 100 $eval(% $+ vip14,2) | .set % $+ vip14 <vacio> } }
  }
  if $did(33).edited != $false {
    if ($did(33) != $null) {
      if ($eval(% $+ vip15,2) == <vacio>) { .set % $+ vip15 $did(33) | .auser 100 $did(33) }
      else { .ruser 100 $eval(% $+ vip15,2) | .set % $+ vip15 $did(33) | .auser 100 $did(33) }
    }
    else { if ($eval(% $+ vip15,2) != <vacio>) { .ruser 100 $eval(% $+ vip15,2) | .set % $+ vip15 <vacio> } }
  }
  if $did(34).edited != $false {
    if ($did(34) != $null) {
      if ($eval(% $+ vip16,2) == <vacio>) { .set % $+ vip16 $did(34) | .auser 100 $did(34) }
      else { .ruser 100 $eval(% $+ vip16,2) | .set % $+ vip16 $did(34) | .auser 100 $did(34) }
    }
    else { if ($eval(% $+ vip16,2) != <vacio>) { .ruser 100 $eval(% $+ vip16,2) | .set % $+ vip16 <vacio> } }
  }
  if $did(35).edited != $false {
    if ($did(35) != $null) {
      if ($eval(% $+ vip17,2) == <vacio>) { .set % $+ vip17 $did(35) | .auser 100 $did(35) }
      else { .ruser 100 $eval(% $+ vip17,2) | .set % $+ vip17 $did(35) | .auser 100 $did(35) }
    }
    else { if ($eval(% $+ vip17,2) != <vacio>) { .ruser 100 $eval(% $+ vip17,2) | .set % $+ vip17 <vacio> } }
  }
  if $did(36).edited != $false {
    if ($did(36) != $null) {
      if ($eval(% $+ vip18,2) == <vacio>) { .set % $+ vip18 $did(36) | .auser 100 $did(36) }
      else { .ruser 100 $eval(% $+ vip18,2) | .set % $+ vip18 $did(36) | .auser 100 $did(36) }
    }
    else { if ($eval(% $+ vip18,2) != <vacio>) { .ruser 100 $eval(% $+ vip18,2) | .set % $+ vip18 <vacio> } }
  }
  if $did(37).edited != $false {
    if ($did(37) != $null) {
      if ($eval(% $+ vip19,2) == <vacio>) { .set % $+ vip12 $did(37) | .auser 100 $did(37) }
      else { .ruser 100 $eval(% $+ vip19,2) | .set % $+ vip12 $did(37) | .auser 100 $did(37) }
    }
    else { if ($eval(% $+ vip19,2) != <vacio>) { .ruser 100 $eval(% $+ vip19,2) | .set % $+ vip19 <vacio> } }
  }
  if $did(38).edited != $false {
    if ($did(38) != $null) {
      if ($eval(% $+ vip20,2) == <vacio>) { .set % $+ vip20 $did(38) | .auser 100 $did(38) }
      else { .ruser 100 $eval(% $+ vip20,2) | .set % $+ vip20 $did(38) | .auser 100 $did(38) }
    }
    else { if ($eval(% $+ vip20,2) != <vacio>) { .ruser 100 $eval(% $+ vip20,2) | .set % $+ vip20 <vacio> } }
  }
  if $did(39).edited != $false {
    if ($did(39) != $null) {
      if ($eval(% $+ vip21,2) == <vacio>) { .set % $+ vip21 $did(39) | .auser 100 $did(39) }
      else { .ruser 100 $eval(% $+ vip21,2) | .set % $+ vip21 $did(39) | .auser 100 $did(39) }
    }
    else { if ($eval(% $+ vip21,2) != <vacio>) { .ruser 100 $eval(% $+ vip21,2) | .set % $+ vip21 <vacio> } }
  }
  if $did(40).edited != $false {
    if ($did(40) != $null) {
      if ($eval(% $+ vip22,2) == <vacio>) { .set % $+ vip22 $did(40) | .auser 100 $did(40) }
      else { .ruser 100 $eval(% $+ vip22,2) | .set % $+ vip22 $did(40) | .auser 100 $did(40) }
    }
    else { if ($eval(% $+ vip22,2) != <vacio>) { .ruser 100 $eval(% $+ vip22,2) | .set % $+ vip22 <vacio> } }
  }
  if $did(41).edited != $false {
    if ($did(41) != $null) {
      if ($eval(% $+ vip23,2) == <vacio>) { .set % $+ vip23 $did(41) | .auser 100 $did(41) }
      else { .ruser 100 $eval(% $+ vip23,2) | .set % $+ vip23 $did(41) | .auser 100 $did(41) }
    }
    else { if ($eval(% $+ vip23,2) != <vacio>) { .ruser 100 $eval(% $+ vip23,2) | .set % $+ vip23 <vacio> } }
  }
  if $did(42).edited != $false {
    if ($did(42) != $null) {
      if ($eval(% $+ vip24,2) == <vacio>) { .set % $+ vip24 $did(42) | .auser 100 $did(42) }
      else { .ruser 100 $eval(% $+ vip24,2) | .set % $+ vip24 $did(42) | .auser 100 $did(42) }
    }
    else { if ($eval(% $+ vip24,2) != <vacio>) { .ruser 100 $eval(% $+ vip24,2) | .set % $+ vip24 <vacio> } }
  }
  if $did(43).edited != $false {
    if ($did(43) != $null) {
      if ($eval(% $+ vip25,2) == <vacio>) { .set % $+ vip25 $did(43) | .auser 100 $did(43) }
      else { .ruser 100 $eval(% $+ vip25,2) | .set % $+ vip25 $did(43) | .auser 100 $did(43) }
    }
    else { if ($eval(% $+ vip25,2) != <vacio>) { .ruser 100 $eval(% $+ vip25,2) | .set % $+ vip25 <vacio> } }
  }
  if $did(44).edited != $false {
    if ($did(44) != $null) {
      if ($eval(% $+ vip26,2) == <vacio>) { .set % $+ vip26 $did(44) | .auser 100 $did(44) }
      else { .ruser 100 $eval(% $+ vip26,2) | .set % $+ vip26 $did(44) | .auser 100 $did(44) }
    }
    else { if ($eval(% $+ vip26,2) != <vacio>) { .ruser 100 $eval(% $+ vip26,2) | .set % $+ vip26 <vacio> } }
  }
  if $did(45).edited != $false {
    if ($did(45) != $null) {
      if ($eval(% $+ vip27,2) == <vacio>) { .set % $+ vip27 $did(45) | .auser 100 $did(45) }
      else { .ruser 100 $eval(% $+ vip27,2) | .set % $+ vip27 $did(45) | .auser 100 $did(45) }
    }
    else { if ($eval(% $+ vip27,2) != <vacio>) { .ruser 100 $eval(% $+ vip27,2) | .set % $+ vip27 <vacio> } }
  }
  if $did(46).edited != $false {
    if ($did(46) != $null) {
      if ($eval(% $+ vip28,2) == <vacio>) { .set % $+ vip28 $did(46) | .auser 100 $did(45) }
      else { .ruser 100 $eval(% $+ vip28,2) | .set % $+ vip28 $did(46) | .auser 100 $did(45) }
    }
    else { if ($eval(% $+ vip28,2) != <vacio>) { .ruser 100 $eval(% $+ vip28,2) | .set % $+ vip28 <vacio> } }
  }
  if $did(47).edited != $false {
    if ($did(47) != $null) {
      if ($eval(% $+ vip29,2) == <vacio>) { .set % $+ vip29 $did(46) | .auser 100 $did(45) }
      else { .ruser 100 $eval(% $+ vip29,2) | .set % $+ vip29 $did(46) | .auser 100 $did(45) }
    }
    else { if ($eval(% $+ vip29,2) != <vacio>) { .ruser 100 $eval(% $+ vip29,2) | .set % $+ vip29 <vacio> } }
  }
  if $did(48).edited != $false {
    if ($did(48) != $null) {
      if ($eval(% $+ vip30,2) == <vacio>) { .set % $+ vip30 $did(48) | .auser 100 $did(48) }
      else { .ruser 100 $eval(% $+ vip30,2) | .set % $+ vip30 $did(48) | .auser 100 $did(48) }
    }
    else { if ($eval(% $+ vip30,2) != <vacio>) { .ruser 100 $eval(% $+ vip30,2) | .set % $+ vip30 <vacio> } }
  }
  if $did(49).edited != $false {
    if ($did(49) != $null) {
      if ($eval(% $+ vip31,2) == <vacio>) { .set % $+ vip31 $did(49) | .auser 100 $did(48) }
      else { .ruser 100 $eval(% $+ vip31,2) | .set % $+ vip31 $did(49) | .auser 100 $did(48) }
    }
    else { if ($eval(% $+ vip31,2) != <vacio>) { .ruser 100 $eval(% $+ vip31,2) | .set % $+ vip31 <vacio> } }
  }
  if $did(48).edited != $false {
    if ($did(48) != $null) {
      if ($eval(% $+ vip32,2) == <vacio>) { .set % $+ vip32 $did(48) | .auser 100 $did(48) }
      else { .ruser 100 $eval(% $+ vip32,2) | .set % $+ vip32 $did(48) | .auser 100 $did(48) }
    }
    else { if ($eval(% $+ vip32,2) != <vacio>) { .ruser 100 $eval(% $+ vip30,2) | .set % $+ vip32 <vacio> } }
  }
  if $did(49).edited != $false {
    if ($did(49) != $null) {
      if ($eval(% $+ vip33,2) == <vacio>) { .set % $+ vip33 $did(49) | .auser 100 $did(49) }
      else { .ruser 100 $eval(% $+ vip33,2) | .set % $+ vip33 $did(49) | .auser 100 $did(49) }
    }
    else { if ($eval(% $+ vip33,2) != <vacio>) { .ruser 100 $eval(% $+ vip33,2) | .set % $+ vip33 <vacio> } }
  }
  if $did(49).edited != $false {
    if ($did(49) != $null) {
      if ($eval(% $+ vip34,2) == <vacio>) { .set % $+ vip34 $did(49) | .auser 100 $did(49) }
      else { .ruser 100 $eval(% $+ vip34,2) | .set % $+ vip34 $did(49) | .auser 100 $did(49) }
    }
    else { if ($eval(% $+ vip34,2) != <vacio>) { .ruser 100 $eval(% $+ vip34,2) | .set % $+ vip34 <vacio> } }
  }
  if $did(50).edited != $false {
    if ($did(50) != $null) {
      if ($eval(% $+ vip35,2) == <vacio>) { .set % $+ vip35 $did(50) | .auser 100 $did(50) }
      else { .ruser 100 $eval(% $+ vip35,2) | .set % $+ vip35 $did(50) | .auser 100 $did(50) }
    }
    else { if ($eval(% $+ vip35,2) != <vacio>) { .ruser 100 $eval(% $+ vip35,2) | .set % $+ vip35 <vacio> } } 
  }
}

;;;;;;;;;;;;;;;;;;;;; LISTA DE COMANDOS ;;;;;;;;;;;;;;;;;;;

dialog comgen {
  title "Comandos generales"
  size -1 -1 400 432
  option pixels
  text "Puedes cambiar aqui los comandos que se usan generalmente", 1, 0 4 400 19, center
  text "<< Comando >>", 2, 8 24 100 19, center
  text "<< Concepto >>", 3, 112 24 280 19, center
  edit %cmdg1, 4, 8 44 100 21, autohs center
  text "Muestra el estado de la radio.", 5, 112 46 280 19
  edit %cmdg2, 6, 8 69 100 21, autohs center
  text "Muestra por prv. al usuario comandos de peticiom.", 7, 112 71 280 19
  edit %cmdg3, 8, 8 94 100 21, autohs center
  text "Muestra la url web de la radio.", 9, 112 96 280 19
  edit %cmdg4, 10, 8 119 100 21, autohs center
  text "Muestra al dj-locutor que esta en emision.", 11, 112 121 280 19
  edit %cmdg5, 12, 8 144 100 21, autohs center
  text "Muestra la cancion que se escucha en ese momento.", 13, 112 146 280 19
  edit %cmdg6, 14, 8 169 100 21, autohs center
  text "Muestra la direcciom utl de tunein.", 15, 112 171 280 19
  edit %cmdg7, 16, 8 194 100 21, autohs center
  text "Muestra la direcciom utl de facebook.", 17, 112 196 280 19
  edit %cmdg8, 18, 8 219 100 21, autohs center
  text "Muestra la direcciom utl de twitter.", 19, 112 221 280 19
  edit %cmdg9, 20, 8 244 100 21, autohs center
  text "Muestra la direcciom utl de youtube.", 21, 112 246 280 19
  edit %cmdg10, 22, 8 269 100 21, autohs center
  text "Muestra la direcciom utl de winamp y reproductores.", 23, 112 271 280 19
  edit %cmdg11, 24, 8 294 100 21, autohs center
  text "Comando para enviar saludo a un canal.", 25, 112 296 280 19
  edit %cmdg12, 26, 8 319 100 21, autohs center
  text "Comando para dedicar una cancion.", 27, 112 321 280 19
  edit %cmdg13, 28, 8 344 100 21, autohs center
  text "Comando para hacer peticion de una cancion.", 29, 112 346 290 19
  edit %cmdg14, 30, 8 369 100 21, autohs center
  text "Muestra lo comandos para distintos niveles de usuario.", 31, 112 371 280 19
  text "Prefijo", 98, 322 24 40 19
  edit %jpre, 99, 358 22 30 21, center
  button "Guardar", 32, 150 398 75 25, ok
}
on 1:dialog:comgen:init:*:{ 
}
on 1:dialog:comgen:sclick:*:{
  var %cuenta 4, %num 1
  while (%cuenta <= 30) {
    if $did(%cuenta).edited != $false { .set %cmdg $+ %num $did(%cuenta) }
    %cuenta = %cuenta + 2 | inc %num
  }
  if $did(99).edited != $false { .set %jpre $did(99) }
  if $did(99) == $null { .set %jpre ! }
  .set %jusa %jpre $+ *
}

dialog comdjs {
  title "Comandos para DJ's"
  size -1 -1 400 504
  option pixels
  text "Puedes cambiar aqui los comandos que se usan para los DJ's", 1, 0 4 400 19, center
  text "<< Comando >>", 2, 8 24 100 19, center
  text "<< Concepto >>", 3, 112 24 280 19, center
  edit %shoutcastON, 4, 8 44 100 21, autohs center
  text "Enciende la radio.", 5, 112 46 280 19
  edit %shoutcastOFF, 6, 8 69 100 21, autohs center
  text "Apaga la radio.", 7, 112 71 280 19
  edit %cdj, 8, 8 94 100 21, autohs center
  text "Cambia el nombre del DJ que emite actualmente.", 9, 112 96 280 19
  edit %cabrepeticion, 10, 8 119 100 21, autohs center
  text "Abre las peticiones.", 11, 112 121 280 19
  edit %ccierrapeticion, 12, 8 144 100 21, autohs center
  text "Cierra las peticiones.", 13, 112 146 280 19
  edit %cauto, 14, 8 169 100 21, autohs center
  text "Cambia al modo automatico de emision.", 15, 112 171 280 19
  edit %cradio, 16, 8 194 100 21, autohs center
  text "Muestra que nivel tiene el nick en la radio.", 17, 112 196 280 19
  edit %ctecnico, 18, 8 219 100 21, autohs center
  text "Llama al tecnico de la radio.", 19, 112 221 280 19
  edit %cmsg, 20, 8 244 100 21, autohs center
  text "Mensaje general a todos los canales (Mensaje Accesar).", 21, 112 246 280 19
  edit %ccanal, 22, 8 269 100 21, autohs center
  text "Muestra el canal oficial a todos los canales.", 23, 112 271 280 19
  edit %cmcanal, 24, 8 294 100 21, autohs center
  text "Muestra el canal oficial en todos los canales.", 25, 112 296 280 19
  edit %cjoin, 26, 8 319 100 21, autohs center
  text "Mete al bot en el canal especificado (temporal).", 27, 112 321 280 19
  edit %cpart, 28, 8 344 100 21, autohs center
  text "Saca al bot del canal especificado (temporal).", 29, 112 346 280 19
  edit %cparrilla, 30, 8 369 100 21, autohs center
  text "Muestra los horarios de emision de cada dj.", 31, 112 371 290 19
  edit %jpido, 32, 8 394 100 21, autohs center
  text "Comando para pedir dia y hora de emision.", 33, 112 396 280 19
  edit %jborra, 34, 8 419 100 21, autohs center
  text "Comando para eliminar dia y hora de emision.", 35, 112 421 280 19
  edit %jtermina, 36, 8 444 100 21, autohs center
  text "Termina la emision el Transmitiendo.", 37, 112 446 280 19
  button "Guardar", 38, 150 474 75 25, ok
}
on 1:dialog:comdjs:init:*:{ 
}
on 1:dialog:comdjs:sclick:*:{
  if $did(4).edited != $false { /set %shoutcastON $did(4) }
  if $did(6).edited != $false { /set %shoutcastOFF $did(6) }
  if $did(8).edited != $false { /set %cdj $did(8) }
  if $did(10).edited != $false { /set %cabrepeticion $did(10) }
  if $did(12).edited != $false { /set %ccierrapeticion $did(12) }
  if $did(14).edited != $false { /set %cauto $did(14) }
  if $did(16).edited != $false { /set %cradio $did(16) } 
  if $did(18).edited != $false { /set %ctecnico $did(18) }
  if $did(20).edited != $false { /set %cmsg $did(20) } 
  if $did(22).edited != $false { /set %ccanal $did(22) }
  if $did(24).edited != $false { /set %cmcanal $did(24) }
  if $did(26).edited != $false { /set %cjoin $did(26) } 
  if $did(28).edited != $false { /set %cpart $did(28) }
  if $did(30).edited != $false { /set %cparrilla $did(30) }
  if $did(32).edited != $false { /set %jpido $did(32) }
  if $did(34).edited != $false { /set %jborra $did(34) }
  if $did(36).edited != $false { /set %jtermina $did(36) }
}
dialog comroot {
  title "Comandos para root Administradores"
  size -1 -1 400 300
  option pixels
  text "Puedes cambiar aqui los comandos que se usan generalmente", 1, 0 4 400 19, center
  text "<< Comando >>", 2, 8 24 100 19, center
  text "<< Concepto >>", 3, 112 24 280 19, center
  edit %ctp, 4, 8 44 100 21, autohs center
  text "Cambia el valor de %tpradio.", 5, 112 46 280 19
  edit %ctopic, 6, 8 69 100 21, autohs center
  text "Pone el topic guardado en %tpradio al canal.", 7, 112 71 280 19
  edit %chc, 8, 8 94 100 21, autohs center
  text "Cambia el valor a la hora actual para usar !publii.", 9, 112 96 280 19
  edit %cdj.add, 10, 8 119 100 21, autohs center
  text "Agrega a un usuario el nivel de DJ.", 11, 112 121 280 19
  edit %cdj.del, 12, 8 144 100 21, autohs center
  text "Elimina a un usuario el nivel de DJ.", 13, 112 146 280 19
  edit %cdj.list, 14, 8 169 100 21, autohs center
  text "Genera la lista de DJ's activos en la radio.", 15, 112 171 280 19
  edit %cstop, 16, 8 194 100 21, autohs center
  text "Detiene todos los anuncios de la radio.", 17, 112 196 280 19
  edit %ctimera, 18, 8 219 100 21, autohs center
  text "Pone tiempo del anuncio principal !publi 300.", 19, 112 221 280 19
  edit %cpubli, 20, 8 244 100 21, autohs center
  text "Muestra el MENSAJE 7 de la configuracion.", 21, 112 246 280 19
  button "Guardar", 32, 150 270 75 25, ok
}
on 1:dialog:comroot:init:*:{ 
}
on 1:dialog:comroot:sclick:*:{
  if $did(4).edited != $false { /set %ctp $did(4) } 
  if $did(6).edited != $false { /set %ctopic $did(6) } 
  if $did(8).edited != $false { /set %chc $did(8) } 
  if $did(10).edited != $false { /set %cdj.add $did(10) }
  if $did(12).edited != $false { /set %cdj.del $did(12) }
  if $did(14).edited != $false { /set %cdj.list $did(14) }
  if $did(16).edited != $false { /set %cstop $did(16) }
  if $did(18).edited != $false { /set %ctimera $did(18) }
  if $did(20).edited != $false { /set %cpubli $did(20) }
}
dialog comtec {
  title "Comandos para tecnico"
  size -1 -1 400 324
  option pixels
  text "Puedes cambiar aqui los comandos que se usan generalmente", 1, 0 4 400 19, center
  text "<< Comando >>", 2, 8 24 100 19, center
  text "<< Concepto >>", 3, 112 24 280 19, center
  edit %jroot.add, 4, 8 44 100 21, autohs center
  text "Agrega a un usuario el nivel de Administrador.", 5, 112 46 280 19
  edit %jroot.del, 6, 8 69 100 21, autohs center
  text "Elimina a un usuario el nivel de Administrador.", 7, 112 71 280 19
  edit %jtecnico.add, 8, 8 94 100 21, autohs center
  text "Agrega a un usuario el nivel de Tecnico.", 9, 112 96 280 19
  edit %jtecnico.del, 10, 8 119 100 21, autohs center
  text "Elimina a un usuario el nivel de Tecnico.", 11, 112 121 280 19
  edit %janimadora.add, 12, 8 144 100 21, autohs center
  text "Agrega a un usuario el nivel de Animador@.", 13, 112 146 280 19
  edit %janimadora.del, 14, 8 169 100 21, autohs center
  text "Elimina a un usuario el nivel de Animador@.", 15, 112 171 280 19
  edit %jacepta, 16, 8 194 100 21, autohs center
  text "Agrega un canal a la bd para conectar en automatico.", 17, 112 196 280 19
  edit %jcancela, 18, 8 219 100 21, autohs center
  text "Borra un canal de la bd.", 19, 112 221 280 19
  edit %jcanal.list, 20, 8 244 100 21, autohs center
  text "Muestra la lista de canales registrados.", 21, 112 246 280 19
  edit %jresetea, 22, 8 269 100 21, autohs center
  text "Reinicia por completo los horarios de la parrilla.", 23, 112 271 280 19
  button "Guardar", 24, 150 296 75 25, ok
}
on 1:dialog:comtec:init:*:{ 
}
on 1:dialog:comtec:sclick:*:{
  if $did(4).edited != $false { /set %jroot.add $did(4) }
  if $did(6).edited != $false { /set %jroot.del $did(6) }
  if $did(8).edited != $false { /set %jtecnico.add $did(8) }
  if $did(10).edited != $false { /set %jtecnico.del $did(10) }
  if $did(12).edited != $false { /set %janimadora.add $did(12) }
  if $did(14).edited != $false { /set %janimadora.del $did(14) }
  if $did(16).edited != $false { /set %jacepta $did(16) }
  if $did(18).edited != $false { /set %jcancela $did(18) }
  if $did(20).edited != $false { /set %jcanal.list $did(20) }
  if $did(22).edited != $false { /set %jresetea $did(22) }
}

dialog comadm {
  title "Comandos para Funder"
  size -1 -1 400 500
  option pixels
  text "Puedes cambiar aqui los comandos que se usan generalmente", 1, 0 4 400 19, center
  text "<< Comando >>", 2, 8 24 100 19, center
  text "<< Concepto >>", 3, 112 24 280 19, center
  edit %csay, 4, 8 44 100 21, autohs center
  text "Mensaje de la administracion a todos los canales.", 5, 112 46 280 19
  edit %crun, 6, 8 69 100 21, autohs center
  text "Ejecuta programa externo (ejemplo: !run wordpad.exe).", 7, 112 71 280 19
  edit %jcambianivel, 8, 8 94 100 21, autohs center
  text "Cambia el nivel de usuario en la radio.", 9, 112 96 280 19
  edit %jignore.del, 10, 8 119 100 21, autohs center
  text "Elimina los ignores.", 11, 112 121 280 19
  edit %cadmin.add, 12, 8 144 100 21, autohs center
  text "Agrega un usuario con nivel Funder.", 13, 112 146 280 19
  edit %cadmin.del, 14, 8 169 100 21, autohs center
  text "Elimina un usuario con nivel Funder.", 15, 112 171 280 19
  edit %cadmin.list, 16, 8 194 100 21, autohs center
  text "Genera la lista de Funder.", 17, 112 196 280 19
  edit %joyen, 18, 8 219 100 21, autohs center
  text "Muestra la cantidad de oyentes en la radio.", 19, 112 221 280 19
  text "Agrega un usuario Oyente Vip", 21, 112 244 280 19
  edit %vip.add, 22, 8 244 100 21, autohs center
  text "Elimina un usuario Oyente Vip", 23, 112 269 280 19
  edit %vip.del, 24, 8 269 100 24, autohs center
  text "Genera la lista Oyentes Vip's", 25, 112 294 280 19
  edit %vip.list, 26, 8 294 100 21, autohs center
  text "Te sube como @ canal radio", 27, 112 319 280 19  
  edit %arriba, 28, 8 319 100 21, autohs center   
  button "Guardar", 20, 150 450 75 25, ok
}
on 1:dialog:comadm:init:*:{ 
}
on 1:dialog:comadm:sclick:*:{
  ;  /clear -s
  ;  /echo -s $timer(0)
  if $did(4).edited != $false { /set %csay $did(4) }
  if $did(6).edited != $false { /set %crun $did(6) }
  if $did(8).edited != $false { /set %jcambianivel $did(8) }
  if $did(10).edited != $false { /set %jignore.del $did(10) }
  if $did(12).edited != $false { /set %cadmin.add $did(12) }
  if $did(14).edited != $false { /set %cadmin.del $did(14) }
  if $did(16).edited != $false { /set %cadmin.list $did(16) }
  if $did(18).edited != $false { /set %joyen $did(18) }
  if $did(22).edited != $false { /set %vip.add $did(22) }
  if $did(24).edited != $false { /set %vip.del $did(24) }
  if $did(26).edited != $false { /set %vip.list $did(26) }
  if $did(28).edited != $false { /set %arriba $did(28) }
}
Подпись автора

Mi ingles: no es el mejor, Manda el traductor... :writing:

7

О Боже...   этот код в общей сумме содержит почти 3000 строк!!  Он явно нуждается в оптимизации и значительном сокращении.

Ваш скрипт на столько огромен, что я даже не знаю, с чего начинать, и не знаю, когда у меня появится так много свободного времени, чтобы заняться решением вашей проблемы.

Также вы забыли добавить описание к вашему коду. Это должна быть небольшая справочная информация с примерами, для изучения и тестирования другими mIRC скриптерами:

  • Для чего этот скрипт?

  • Что делает этот скрипт?

  • Как использовать этот скрипт?

  • Как настраивать этот скрипт?

  • Какие есть пользовательские команды?

  • Какие есть администраторские команды?

  • И так далее ...

Кроме того мне будет очень сложно разобраться в вашем коде, т.к. похоже в названиях его переменных и прочих типах данных используется испанский язык или смесь разных языков мира, вместо того, чтобы использовать единый английский язык, хотя бы для объявления названий типов данных в коде. Это сильно усложняет задачу и влияет на моё желание разбираться в этом запутанном клубке из строк кода, т.к. я не являюсь носителем этих языков. Мне будет очень трудно сопоставлять и искать взаимосвязи между разными данными и названиями в таком огромном коде как ваш, используя для этого онлайн переводчик, чтобы понять что делает та или иная функция и чтобы потом найти подходящее решение для изменения или исправления.

[indent=0.8,0.5]

На будущее, возьмите на заметку в качестве правила, что для названия типов данных в коде вы должны всегда использовать ТОЛЬКО английский язык, чтобы избежать возможных ошибок, связанных с тем, когда некоторые символы из разных языков мира могут быть внешне похожими, но интерпретатор кода их будет различать и тогда это может привести к запутанности и неработоспособности скрипта. Также, это нужно, чтобы синтаксис вашего кода был всегда понятен другим пользователям, скриптерам и разработчикам из разных стран мира, которые будут оказывать вам помощь.

Красным цветом выделено то, что должно быть исключительно на английском языке и возможно что-то ещё:

[c=black]var %name = value[/c]
[c=black]alias name {}[/c]
[c=black]timer_name 1 1 name[/c]
[c=black]$name()[/c]
[c=black]on *:DIALOG:name:*:*:{}[/c]
[c=black]dialog name {}[/c]

И только для ввода пользовательских команд или текста, который будет виден пользователям чата вы можете использовать любой другой понятный вам язык мира.

[indent=0.8,0.5]
Тем не менее, спасибо вам за ваше обращение. Возможно, этот пост увидит кто то ещё, кроме меня, из всемирной паутины интернет пространства, кто разбирается также хорошо в mIRC скриптах, чтобы оказать вам необходимую помощь в решении данной проблемы.

Подпись автора

[html]<style>img {vertical-align:middle;}.hnet{color:#FFFFFF;}.hstar{color:#DE0000;}.htext{font-family:Verdana;font-size:13px;color:#6E1E00;}.heading{font-family:Verdana;font-size:13px;font-weight:bold;background-color:#4897E7;}.stitle{font-family:Verdana;font-size:12px;}.dot{color:#808000;}.desc{color:#ADADAD;}a .curl{font-family:Verdana;font-size:13px;color:#3A92CD;}</style><table><tr><td width="20px" height="20px"><img src="http://forumstatic.ru/files/000d/c9/8c/34681.jpg"></td><td><a href="http://forum.epicnet.ru/viewtopic.php?id=234"><span class="heading"> <span class="hstar">★</span> <span class="hnet">EpicNet.Ru</span> <span class="hstar">★</span> </span><span class="htext"> - IRC Чат © 2008</span></a></td></tr><tr><td></td><td><div class="stitle"><span class="dot">•</span> <span class="desc">Вход через вебгейт:</span> <a href="http://irc.epicnet.ru"><span class="curl">http://irc.epicnet.ru</span></a><br><span class="dot">•</span> <span class="desc">Сервер:</span> irc.epicnet.ru <span class="desc">Порты:</span> 6667, 6668 (ssl)<br><div></td></tr></table>[/html]

8

1536,2 написал(а):

Dios mío... este código contiene casi 3000 líneas en total!! Claramente necesita optimización y reducción significativa.

Tu guión es tan grande que ni siquiera sé por dónde empezar y no sé cuándo tendré tanto tiempo libre para trabajar en la solución de tu problema.

También olvidó agregar una descripción a su código. Esto debería ser un poco de información general con ejemplos para que los scripters de mIRC los estudien y prueben:

Además, me resultará muy difícil entender tu código, porque... parece que sus nombres de variables y otros tipos de datos usan español o una mezcla de diferentes idiomas del mundo, en lugar de usar un solo idioma inglés, al menos para declarar nombres de tipos de datos en el código. Esto complica mucho la tarea y afecta mi deseo de entender esta maraña de líneas de código, porque... No soy un hablante nativo de estos idiomas. Me resultará muy difícil comparar y buscar relaciones entre diferentes datos y nombres en un código tan grande como el suyo, utilizando para ello un traductor en línea, entender qué hace tal o cual función y luego encontrar una solución adecuada para el cambio. o corrección.

Sin embargo, gracias por comunicarte. Quizás esta publicación sea vista por alguien más, además de mí, de la World Wide Web de Internet, que también conoce bien los scripts mIRC, para brindarle la asistencia necesaria para resolver este problema.

EPIC I apologize but the code is how I found it. It works. I understand perfectly that the international language for programming is English. and I know it will take time just to translate it. That's w***'m going to see if anyone can help me. is a radio bot that reads the listeningcast server and plays the songs around the room. Poen the DJ who broadcasts, talks about the radio equipment, the rooms where he is, if it is live, or the radio broadcast is automatic and little else. What I was asking is if there is a possibility that it could read icecast servers. Thank you

Подпись автора

Mi ingles: no es el mejor, Manda el traductor... :writing:


Вы здесь » EpicNet.Ru - Форум IRC Чата » HELP SCRIPTS - Помощь по mIRC скриптам » How to change in radio bot an addon from Shoutcast to Icecast