Mine

On *:TEXT:.apply*:#G-bots: {
  if ($2 == $null) {
    notice $nick [^K]7,1you must enter a channel name after .apply
  }
  elseif (%zzapllly == 1) {
    notice $nick Please wait 15 seconds before re-apply
  }
  else {
    msg $nick I will now be reviewing your channel, dont be alarmed if i join and then part.
    join $2
    set %channel $2
    set %nick.ask $nick  
    timer100 1 5  $!timerz
    msg chanserv a %channel %nick.ask
    set -u15 %zzapllly 1      
  }
}

alias timerz {
  var %i = 1
  while (%i <= $nick(%channel,0)) {
    if (*bot* iswm $opnick(%channel,%i)) { inc %botnick.apply 1 }
    inc %i
  }
  if (%nick.lvl <= 300)  {
    msg #g-bots [^K]0,1 %nick.ask $+ ,[^K]3,1 Your user level in %channel is ( $+ %nick.lvl $+ ) not greater than 300 or there is a net split occuring.
    part %channel  
    unset %nick.lvl
  }
  elseif (%botnick.apply <= 1) {
    set %channel.idler $nick(%channel,0)
    timer200 1 7 part %channel
    timer300 1 11 $!channel
    unset %nick.lvl
  }
  else {
    msg #G-Bots [^K]0,1 %nick.ask $+ ,[^K]5,1 The channel %channel already have an other *Bots*
    part %channel  
    set botnick.apply 0
    unset %nick.lvl
  }
}


alias channel {
  if (%channel.idler < 12) {
    msg #G-bots [^K]0,1 %nick.ask $+ ,[^K]5,1 The channel %channel has not met the minimum user limit (10 users currently in channel, ChanServ and myself do NOT count)
    unset %nick.lvl  
  }
  elseif (%channel.idler >= 12) {
    $eval($botapply)
    unset %nick.lvl  
  }
}

alias Botapply {
  if ((%apps1 <= %apps2) && (%apps1 <= %apps3) && (%apps1 != 15) && (%apps1 <= %apps5) && (%apps1 <= %apps4)) {
    msg G-Bot-1 .join %channel
    msg G-Bot-1 .add %channel
    msg %nick.ask Please addmaster the Bot Before everything
    msg #G-bots [^K]0,1 %nick.ask $+ , [^K]3,1 G-Bot-1 [^K]10,1 is being dispatched to your channel. [^K]3,1 ( $+ %channel $+ )
    inc %apps1
  }
  elseif ((%apps2 <= %apps1) && (%apps2 <= %apps3) && (%apps2 <= %apps4) && (%apps2 <= %apps5) && (%apps2 != 15)) {
    msg G-Bot-2 .join %channel
    msg G-Bot-2 .add %channel
    msg %nick.ask Please addmaster the Bot Before everything
    msg #G-bots [^K]0,1 %nick.ask $+ , [^K]3,1 G-Bot-2 [^K]10,1 is being dispatched to your channel. [^K]3,1 ( $+ %channel $+ )
    inc %apps2
  }
  elseif ((%apps3 <= %apps1) && (%apps3 <= %apps2) && (%apps3 <= %apps4) && (%apps3 <= %apps5) && (%apps3 != 15)) {
    msg G-Bot-3 .join %channel
    msg G-Bot-3 .add %channel
    msg %nick.ask Please addmaster the Bot Before everything
    msg #G-bots [^K]0,1 %nick.ask $+ , [^K]3,1 G-Bot-3 [^K]10,1 is being dispatched to your channel. [^K]3,1 ( $+ %channel $+ )
    inc %apps3
  }  
  elseif ((%apps4 <= %apps1) && (%apps4 <= %apps3) && (%apps4 <= %apps2) && (%apps4 <= %apps5) && (%apps4 != 15)) {
    msg G-Bot-4 .join %channel
    msg G-Bot-4 .add %channel
    msg %nick.ask Please addmaster the Bot Before everything
    msg #G-bots [^K]0,1 %nick.ask $+ , [^K]3,1 G-Bot-4 [^K]10,1 is being dispatched to your channel. [^K]3,1 ( $+ %channel $+ )
    inc %apps4
  }
  elseif ((%apps2 <= %apps1) && (%apps5 <= %apps3) && (%apps5 <= %apps4) && (%apps5 <= %apps2) && (%apps5 != 15)) {
    msg G-Bot-5 .join %channel
    msg G-Bot-5 .add %channel
    msg %nick.ask Please addmaster the Bot Before everything    
    msg #G-bots [^K]0,1 %nick.ask $+ , [^K]3,1 G-Bot-5 [^K]10,1 is being dispatched to your channel. [^K]3,1 ( $+ %channel $+ )
    inc %apps5
  }
  elseif ((%apps1 == 15) && (%apps2 == 15) && (%apps3 == 15) && (%apps4 == 15) && (%apps5 == 15)) {
    msg #G-bots [^K]0,1 %nick.ask $+ , [^K]10,1 We are sorry, all bots are full or unavailable.
  }
}

on *:join:#G-bots: {
  notice $nick Welcome[^B] $nick [^B]on[^B] $chan [^B]: Type .commands For see available commands.  / $+ / $+ / .setcommands For learn how to set them
  notice $nick Visit: http://www.rbmaps.info/gbots/ For the command list and how to use them
}
On *:TEXT:.commands:#G-bots: {
  notice $nick Available commands are: Website-Servers-Steamid-Roster-News-Record-Sponsors-Commands-Join-trigger
  notice $nick Visit: http://www.rbmaps.info/gbots/

}
On *:TEXT:.setcommands:#G-bots: {
  notice $nick To set yours: ?set <[^B]commands[^B]> [^U]Text[^U] [^B]example[^B]: ?set trigger @
  notice $nick After this the channel's trigger will be [^B]@[^B]
  notice $nick After the channel's trigger changement you would need to type: <[^B]new-Trigger[^B]> set <[^B]commands[^B]> [^U]Text[^U]
  notice $nick Example: ( $+ If the new channel's trigger is [^B]@[^B] $+ ) @set roster <[^B]new roster[^B]>
  notice $nick Visit: http://www.rbmaps.info/gbots/
}
on *:TEXT:.slots:#G-Bots: {
  msg $chan There are[^B] $calc(75 - %apps1 - %apps2 - %apps3 - %apps4 - %apps5) [^B]channel slots available
}

on *:NOTICE:*:?: { if ($nick == ChanServ) {
    if (!%noticeset) {    
      if ($5 isnum) {
        set %nick.lvl $5
        set -u 10%noticeset 1
      }
    }
    else {
      msg $me rofl gay cs
      set %nick.lvl 0
      set -u10 %noticeset 1
    }
  }
}