;;;;;;;;;; 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... }
      }
    }
  }
}

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) }
}