Start script (With channel lock)

on *:TEXT:*:#: {
  ;*** +/-BOT (Used to activate/disable the bot in channels)
  if ($regex($nick($chan,$nick).pnick,/(!|~|&|@|%)/)) && ($left($strip($1),1) isin +-) && ($me isin $1) {
    ;*** Already ON/OFF
    if ($left($strip($1),1) == + && $istok(%ChanList,$+($network,$chan),32)) || ($left($strip($1),1) == - && !$istok(%ChanList,$+($network,$chan),32)) { .msg # System is already $+($iif($left($strip($1),1) == -,4de,9),activated) }
    else { set %ChanList $iif($left($strip($1),1) == -,$remtok(%ChanList,$+($network,$chan),1,32),$addtok(%ChanList,$+($network,$chan),32)) | .msg # $iif($left($strip($1),1) == -,Comenzing... system shutdown,Initializing... start up sequence) activated by $xNiCK($nick) }
  }
  ;*** Check to see if activated (and/or SPAMMiNG the channel) - If so we don't do anything... funny enough
  elseif (!$istok(%ChanList,$+($network,$chan),32)) || ($timer($+(SPAM,$network,$chan))) { halt }
  ;**************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
  ;*** Flood Protection (Network) Channel based *** Currently set to 7 secs
  .timer $+ $+(SPAM,$network,$chan) 1 6 noop
  ;*** Setting variables for late use (Setting where to output the reply aka where / who to messages)
  var %SEND $iif(%action != !,.notice $nick,$iif($regex($nick($chan,$nick).pnick,/(!|~|&|@|%|\+)/),.msg $chan,.notice $nick))
  ;**************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
  ;******* Commands below here
  ;*** !CMDS
  if ($istok(!Commands !Help !CMDS !CMD !Command,$replace($1,@,!,.,!),32)) { msg # Nothing added yet... but hopefully at some point you'll be able to do more then just $1 }
  ;*** !BEER
  elseif ($istok(!Beer !Soda,$replace($1,@,!,.,!),32)) { describe # hands $nick a $mid($1,2,$len($1)) }
  ;**************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
  ;*** ChanServ
  ;* Owner
  elseif ($regex($nick($chan,$nick).pnick,/(!|~)/)) && ($regex($nick($chan,$me).pnick,/(!|~)/)) && ($istok(!Owner !Kingpin !DeOwner !DeKingpin,$replace($1,@,!,.,!),32)) { mode # $+($iif($mid($1,2,2) == de,-,+),qo) $str($2,2) }
  ;**************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
  ;* Admin
  elseif ($regex($nick($chan,$nick).pnick,/(!|~|&)/)) && ($regex($nick($chan,$me).pnick,/(!|~)/)) && ($istok(!Admin !DeAdmin !Henchman !DeHenchman !Protect !DeProtect,$replace($1,@,!,.,!),32)) { mode # $+($iif($mid($1,2,2) == de,-,+),ao) $str($2,2) }
  ;**************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
  ;* Operator
  elseif ($regex($nick($chan,$nick).pnick,/(!|~|&|@)/)) && ($regex($nick($chan,$me).pnick,/(!|~|&)/)) && ($istok(!OP !DEOP !Operator !DeOperator,$replace($1,@,!,.,!),32)) { mode # $+($iif($mid($1,2,2) == de,-,+),o) $2 }
  ;**************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
  ;* HalfOP
  elseif ($regex($nick($chan,$nick).pnick,/(!|~|&|@|%)/)) && ($regex($nick($chan,$me).pnick,/(!|~|&|@)/)) && ($istok(!HalfOP !DEHalfOP !Enforcer !DeEnforcer,$replace($1,@,!,.,!),32)) { mode # $+($iif($mid($1,2,2) == de,-,+),h) $2 }
  ;**************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
  ;* Voice
  elseif ($regex($nick($chan,$nick).pnick,/(!|~|&|@|%)/)) && ($regex($nick($chan,$me).pnick,/(!|~|&|@|%)/)) && ($istok(!Voice !DEVoice !VOP !DV,$replace($1,@,!,.,!),32)) { mode # $+($iif($mid($1,2,2) == de,-,+),v) $2 }
  ;**************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
  ;*** Add more commands below here (Copy/Paste)
  elseif ($istok(!You !Can !Add !As !Many !CMDS !As !You !Want !Here !Just !Seperate !With !A !Space,$replace($1,@,!,.,!),32)) { msg # Here a command can be place }
}