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...
EpicNet.Ru - Форум IRC Чата |
Привет, Гость! Войдите или зарегистрируйтесь.
Вы здесь » EpicNet.Ru - Форум IRC Чата » HELP SCRIPTS - Помощь по mIRC скриптам » How to change in radio bot an addon from Shoutcast to Icecast
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...
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="https://forumstatic.ru/files/000d/c9/8c/34681.jpg"></td><td><a href="https://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]
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...
;;;;;;;;;; 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...
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...
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...
О Боже... этот код в общей сумме содержит почти 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="https://forumstatic.ru/files/000d/c9/8c/34681.jpg"></td><td><a href="https://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]
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...
Вы здесь » EpicNet.Ru - Форум IRC Чата » HELP SCRIPTS - Помощь по mIRC скриптам » How to change in radio bot an addon from Shoutcast to Icecast