on *:text:*:%config.canal: {
if ($strip($1) == $+($pref(rn),solicitar.radio)) {
if ($2 == $null) || ($left($2,1) != $chr(35)) { msg $chan $logo Sintaxis Incorrecta. Escribe 4 $pref $+ solicitar.radio #Tucanal. | halt }
if (%solicita.canal != $null) { msg $chan $logo Hay otra petición en curso. Por favor, vuelve a intentarlo en unos segundos. | halt }
%solicita.iD = on
%solicita.nick = $nick
%solicita.canal = $2
ignore $nick
.msg $chan $logo Espere un momento por favor, estamos procesando su solicitud para el canal 4[1 $2 4]
.msg %config.debug Solicitudes: 12 $nick Solicita a 10 $me para la Sala 4 $2
.msg CHaN info $2
.timer 1 30 ignore -r $nick
.timer 1 31 msg %config.canal $logo Comando !Solicita* Liberado.
}
}
on *:text:*:?: {
if ($nick == CHaN) {
if (%solicita.iD == on) {
if ($1 == Estado:) || ($1 == Fundador:) || ($1 == Sucesor:) {
writeini Sistema\db\ $+ $network $+ \Canales\temporal.bd %solicita.canal $gettok($1,1,58) $2-
.timerchan 1 5 solicita.continuar estado
}
if ($1 == El) {
.timer 1 5 solicita.continuar noreg
writeini Sistema\db\ $+ $network $+ \Canales\temporal.bd %solicita.canal Estado NOREG
}
}
}
}
alias solicita.continuar {
if (%solicita.iD != on) { halt }
if ($1 == estado) {
if ($readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,estado) == Suspendido) {
msg %config.debug 4Error! 1El canal 4[1 $+ %solicita.canal $+ 4]1 esta 4Suspendido1.
pet.denegada
}
else {
msg %config.debug 3YeaH! 1El canal 4[1 $+ %solicita.canal $+ 4]1 esta 3Activo1.
.timer 1 3 /solicita.continuar fundsuc
}
}
if ($1 == fundsuc) {
if ($readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,fundador) != %solicita.nick) && ($readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,sucesor) != %solicita.nick) {
msg %config.debug 4Error! 1 $+ %solicita.nick $+ 4 NO1 es ni Fundador (4 $+ $readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,fundador) $+ 1) $iif($readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,sucesor) != $null,1ni Sucesor (4 $+ $readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,sucesor) $+ 1) del canal 4 $+ %solicita.canal $+ 1,del canal 6 $+ %solicita.canal $+ 1)
pet.denegada
}
else {
if ($readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,fundador) == %solicita.nick) {
msg %config.debug 3YeaH! 1 $+ %solicita.nick $+ 1 es Fundador de 4 $+ %solicita.canal $+ 1.
join -n %solicita.canal
}
else {
msg %config.debug3YeaH! 1 $+ %solicita.nick $+ 1 es Sucesor de 4 $+ %solicita.canal $+ 1.
join -n %solicita.canal
}
}
}
if ($1 == noreg) {
msg %config.debug 4Error! 1El canal 4[1 $+ %solicita.canal $+ 4] NO1 está registrado.
pet.denegada
}
if ($1 == users) {
if ($nick(%solicita.canal,0) < 5) {
msg %config.debug 4Error! 4[1 $+ %solicita.canal $+ 4] 1tiene $nick(%solicita.canal,0) Usuarios.
pet.denegada
halt
}
msg %config.debug 3YeaH! 4[1 $+ %solicita.canal $+ 4] 1tiene $nick(%solicita.canal,0) Usuarios.
pet.aceptada
}
}
alias pet.denegada {
if ($me ison %solicita.canal) { part %solicita.canal $logo 4Error! 1Petición 4Denegada1. Más Información: %config.canal o entra en nuestra pagina web
http://www.radionatural.es/ }
msg %config.debug 4Error! 1Petición de 4[1 $+ %solicita.canal $+ 4] Denegada1.
msg %config.canal 4Error! 1 $+ %solicita.nick $+ 4 NO1 eres ni el Fundador (4 $+ $readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,fundador) $+ 1) $iif($readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,sucesor) != $null,1ni el Successor (4 $+ $readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,sucesor) $+ 1) del canal 4 $+ %solicita.canal $+ 1,del canal 6 $+ %solicita.canal $+ 1)
msg %config.canal %solicita.nick $+ , Tu petición ha sido 4Denegada1. Por 4NO1 cumplir los Requisitos Minimos.
unset %solicita.*
halt
}
alias pet.aceptada {
part %solicita.canal $logo 3YeaH! 1Petición 3Aceptada1. En Breves Entrará el Bot.
msg %config.canal %solicita.nick $+ , Tu petición ha sido 3Aceptada1. El canal 3SI1 cumple con los Requisitos Minimos. En un plazo máximo de 24h entrará el Bot.
if ($read(Sistema\db\ $+ $network $+ \Canales\Canales.bd, w, %solicita.canal) != $null) { msg %config.debug Solicitudes: La Sala 12 %solicita.canal ya esta en la 1BDD | halt }
write Sistema\db\ $+ $network $+ \Canales\Canales.bd %solicita.canal
write Sistema\db\ $+ $network $+ \Canales\autojoin.bd join %solicita.canal
write Sistema\db\ $+ $network $+ \Perfiles\Administracion\ $+ $nick $+ .bd LOG $date - $timestamp aceptada sala %solicita.canal
set %x $rand(1,3)
elseif (%x = 1) { set %xx MaRiaN }
elseif (%x = 2) { set %xx KiKeKu }
elseif (%x = 3) { set %xx DaNnY }
write -l1 Sistema\db\ $+ $network $+ \Canales\ $+ Canal_ $+ %solicita.canal $+ .bd %solicita.nick
write -l2 Sistema\db\ $+ $network $+ \Canales\ $+ Canal_ $+ %solicita.canal $+ .bd ACEPTADO
write -l3 Sistema\db\ $+ $network $+ \Canales\ $+ Canal_ $+ %solicita.canal $+ .bd %xx
write -l4 Sistema\db\ $+ $network $+ \Canales\ $+ Canal_ $+ %solicita.canal $+ .bd Automatico
write -l5 Sistema\db\ $+ $network $+ \Canales\ $+ Canal_ $+ %solicita.canal $+ .bd $date $timestamp
msg %config.debug 3YeaH! 1Petición de CANAL 12 %solicita.canal 3ACEPTADO Automaticamente
msg %config.debug 1Notificación: 10MeMo Enviado 3Correctamente a la sala 12 %solicita.canal .
msg %config.radio Sala 10 %solicita.canal 3Aceptada Automaticamente por el Sistema. Salas Actuales en Base de Datos: 12 $lines(Sistema\db\ $+ $network $+ \Canales\Canales.bd)
join %solicita.canal
msg %solicita.canal 1¡¡3Felicidades1!! 1 Sala 3ACEPTADA 1 por la Administración de $logo
msg %solicita.canal 1Desde la Administración de $logo 1Queremos agradecer vuestro soporte a nuestro Equipo.
msg %solicita.canal
timermemo 1 1 msg MeMo send %solicita.nick Su Sala ha sido Aceptada en nuestra Base de Datos. En caso de Dudas consulte nuestra Página Oficial: 12
http://www.radionatural.es/ elseif (%xx = MaRiaN) { timermemo 1 35 msg MeMo send %solicita.nick La Administradora Asignada para atenderles es: 3 MaRiaN Ella atenderá vuestras dudas/quejas relacionadas con $logo y sus servicios. Sala de Soporte: 12 %config.canal }
elseif (%xx = KiKeKu) { timermemo 1 35 msg MeMo send %solicita.nick El Administrador Asignado para atenderles es: 3 KiKeKu El atenderá vuestras dudas/quejas relacionadas con $logo y sus servicios. Sala de Soporte: 12 %config.canal }
elseif (%xx = DaNnY) { timermemo 1 35 msg MeMo send %solicita.nick El Administrador Asignado para atenderles es: 3 DaNnY El atenderá vuestras dudas/quejas relacionadas con $logo y sus servicios. Sala de Soporte: 12 %config.canal }
unset %solicita.id %solicita.canal %solicita.nick %x
halt
}
on *:join:*: {
if ($nick == $me) {
if (%solicita.iD == on) {
if ($chan == %solicita.canal) { .timerjoin 1 6 /solicita.continuar users }
}
}
}