This is a semi simple bot with some basic functions. Please leave comments on future commands/functions. Enjoy.

on *:text:*:#: {
  if ($chan == %home) {
    if ($1 == !about) {
msg $chan All-Around-Bot v 0.5 By Smokey
    }
        if ($1 == !commands) {
msg $chan OP Commands: !opme - !join #CHAN - !part #chan - !restart - !globalmsg MSG - !adkick NICK
msg $chan User Commands: !about - !commands
    }
    if (# isin $1-) {
      if ($nick !isvoice $chan) {
        if ($nick !isop $chan) {
          ban -u10 $chan $nick
          kick $chan $nick No Advertising!(10 second Ban.)
        }
      }
    }
  }
  if ($1 == !opme) && ($nick isop %home) {
    mode $chan +o $nick
  } 
  if ($1 == !join) && ($nick isop %home) {
    join $2
  }
  if ($1 == !part) && ($nick isop %home) {
    part $2 
  }
  if ($1 == !restart) && ($nick isop %home) {
    quit Restart Request By $nick
    timerboot 1 1 connect %home_server
  }
  if ($1 == !globalmsg) && ($nick isop %home) {
    amsg [ Global Message ] $2-
  }
  if ($1 == !adkick) {
    if ($nick !isop $chan) {
      ban -u120 $chan $2
      kick $chan $2 No Advertising!(2 minute Ban.)
    }
  }
}
on *:text:*:?: {
  msg $nick Hello, $nick Please Speak To %owner About Anything. I Am A bot.
}
on *:load*: {
set %home $?="What Is The Bots Home Channel?"
echo All-Around-Bot v 0.5 By Smokey Loaded
amsg All-Around-Bot v 0.5 By Smokey Loaded
}

menu nicklist {
  Owner
  .Set $1 As Owner: set %owner $1 | echo Owner is now $1 | msg $1 You are now the owner
  .Revoke Ownership: unset %owner | echo Ownership Removed from $1  | msg $1 Ownership Removed
}
menu channel {
  Home Channel
  .Set $chan As Home Channel: set %home $chan | echo Home Channel is now $chan | msg $chan $chan Is now the home channel
  .Unset $chan As Home Channel: unset %home | echo Home Channel unset  | msg $chan $chan Is no longer the home channel
  Home Server
  .set $network as Home Server: set %home_network $1 | echo Home Network is now $1
  .Unset $network as Home Server: unset %home_network  | echo Home Network unset.
}
on *:NICK: {
  if ($nick == %owner) {
    unset %owner
    set %owner $newnick
  }
}