Foro IRcap

Tiene demasiados errores, sugiero que revises el codigo, termines el alias pe.denegado, cambies D:\Darkgon por $mircdir,
 cambiar el de no registrado, etc.

En fin, a la proxima vez esfuerzate mas para que no sea tan inutil tu ayuda ya que tienes intenciones de aportar.

Suerte

De donde sacaste el código original, viene completo y sin errores

Con razón estâ a medias xDD

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