Mine

alias CAPP {
  if ($nick(%app.chan,0) > 9) && (Chanserv ison %app.chan) && (%app.nick isop %app.chan) {
    set %send.bot %service $+ -0 $+ $rand(1,9)
    msg %app.chan.active %startskin Your Channel Passed! Sending %send.bot To Your Channel %endskin
    msg %send.bot REGISTER %app.chan %app.nick $address(%app.nick,2) %send.bot
    part %app.chan 
    msg %app.nick %startskin Please Do !addop %send.bot In Your Channel Now! Or It Will Be Removed %endskin
    msg %mainbotchannel $+ -Staff %startskin Applications Status: Passed -+- Requested Channel: %app.chan -+- Requested By: %app.nick -+- Address: $address(%app.nick,1) -+- Bot Sent: %send.bot %endskin
    set % $+ %app.chan $address(%app.nick,2) ( $+ %app.nick $+ )
    set %registered.chans %registered.chans %app.chan ( $+ %send.bot $+ )
    unset %app.nick
    unset %app.chan
    unset %chan.access
    unset %app.chan.active
  }
  else {
    part %app.chan
    msg %mainbotchannel $+ -Staff %startskin Applications Status: Failed -+- Requested Channel: %app.chan -+- Requested By: %app.nick -+- Address: $address(%app.nick,1) %endskin
    msg %app.chan.active %startskin Your Channel Failed To Meet Requirments! Your Must Be Op In The Channel + Have Your Channel Registered With ChanServ + Have Over 10 Idlers In Your Channel %endskin
    unset %app.nick
    unset %app.chan
    unset %chan.access
  }
}
on *:TEXT:*:*: {
if ($1 == %trigger $+ getabot) {
    if (!%applyserv) {
      msg $chan %startskin The Application Service Is Currently Down %endskin
      halt
    }
    elseif (%applyzz == 1) {
      msg $chan %startskin I Am Busy With Somone Else, Please Wait 30 Seconds! %endskin
      halt
    }
    elseif (!$2) {
      msg $chan %startskin You must enter a channel name, or type %trigger $+ req to see requirments. %endskin
      halt
    }
    elseif ($address($nick,2) iswm %suspended) {
      var %p 1
      while (%p <= $gettok(%suspended,0,32)) {
        if ($address($nick,2) iswm $gettok(%suspended,%p,32)) {
          msg $chan %startskin You have been suspended from %service for reason: $iif(% [ $+ [ $gettok(%suspended,%p,32) ] ],$v1,None Given) %endskin
          halt
        }
        inc %p
      }
    }
    elseif ($2 iswm %dnrlist) {
      var %p 1
      while (%p <= $gettok(%dnrlist,0,32)) {
        if ($2 iswm $gettok(%dnrlist,%p,32)) {
          msg $chan %startskin That channel is on our DNR list for reason: $iif(% [ $+ [ $gettok(%dnrlist,%p,32) ] ],$v1,None Given)) %endskin
          halt
        }
        inc %p
      }
    }
    elseif (% [ $+ [ $2 ] ]) {
      msg $chan %startskin That channel has already been registered to: % [ $+ [ $2 ] ] %endskin
    }
    elseif ($chr(44) isin $2) {
      set %suspended %suspended $address($nick,2) 
      set % $+ $address($nick,2) Unauthorized Channel Event Registry: $2
      msg $chan %startskin Unauthorized Event: That Channel You Have Chosen To Register Has Been Suspended Indefinitely. Your Actions Has Been Suspended And Will Be Removed At A Later Time. Logged Action: $nick ( $+ $address($nick,2) $+ ) Unauthorized Application Process For Channel: $2 %endskin
      msg %mainbotchannel $+ -Staff %startskin Unauthorized Event: !apply $2 Issued By: $nick Address: $address($nick,2) %endskin
      halt
    }
    elseif ($chr(35) !isin $2) {
      msg $chan %startskin You Left Out  $+ $chr(35) $+  Please Retype Your Previous Entry %endskin
      halt
    }
    elseif (Gamesurge isin $2) {
      set %suspended %suspended $address($nick,2) 
      set % $+ $address($nick,2) Unauthorized Channel Event Registry: $2
      msg $chan %startskin Unauthorized Event: That Channel You Have Chosen To Register Has Been Suspended Indefinitely. Your Actions Has Been Suspended And Will Be Removed At A Later Time. Logged Action: $nick ( $+ $address($nick,2) $+ ) Unauthorized Application Process For Channel: $2 %endskin
      msg %mainbotchannel $+ -Staff %startskin Unauthorized Event: !apply $2 Issued By: $nick Address: $address($nick,2) %endskin
      halt
    }
    elseif (Support isin $2) {
      set %suspended %suspended $address($nick,2)
      set % $+ $address($nick,2) Unauthorized Channel Event Registry: $2
      msg $chan %startskin Unauthorized Event: That Channel You Have Chosen To Register Has Been Suspended Indefinitely. Your Actions Has Been Suspended And Will Be Removed At A Later Time. Logged Action: $nick ( $+ $address($nick,2) $+ ) Unauthorized Application Process For Channel: $2 %endskin
      msg %mainbotchannel $+ -Staff %startskin Unauthorized Event: !apply $2 Issued By: $nick Address: $address($nick,2) %endskin
      halt
    }
    elseif (!% [ $+ [ $2 ] ]) {
      msg $chan %startskin Thank You For Your Application! Please Allow Me To Check You Channel To See If It Meets Requirments, This Could Take Up To 25 Seconds To Complete %endskin
      join $2
      set %app.nick $nick
      set %timed $rand(10,25)
      set %app.chan $2
      set %app.chan.active $chan
      set -u30 %applyzz 1
      msg %mainbotchannel $+ -Staff %startskin Applications: Requested $2 -+- Issued By: $nick -+- Address: $address($nick,2) %endskin
      timerapp 1 %timed CAPP
    }
  }
}