Something

on 1:INPUT:#: {
  if (%banner.mode [ $+ [ $active ] ] == on) {
    if ($me == `Ash`) {
      if (/ isin $left($1,1)) { $$1- | halt }
      set %banner $rand(1,11)
      if (%banner == 1) { msg $active 15,0\0,15\13,15\15,13\6,13\13,6\ $$1- /6,13/15,13/13,15/0,15/15,0/ | haltdef }
      if (%banner == 2) { msg $active 15,0\0,15\11,15\15,11\12,11\11,12\ $$1- /12,11/15,11/11,15/0,15/15,0/ | haltdef }
      if (%banner == 3) { msg $active 15,0\0,15\9,15\15,9\3,9\9,3\ $$1- /3,9/15,9/9,15/0,15/15,0/ | haltdef }
      if (%banner == 4) { msg $active 15,0\0,15\8,15\15,8\7,8\8,7\ $$1- /7,8/15,8/8,15/0,15/15,0/ | haltdef }
      if (%banner == 5) { msg $active 15,0\0,15\4,15\15,4\5,4\4,5\ $$1- /5,4/15,4/4,15/0,15/15,0/ | haltdef }
      if (%banner == 6) { msg $active 15,0\0,15\4,15\15,4\12,4\4,12\ $$1- /12,4/15,4/4,15/0,15/15,0/ | haltdef }
      if (%banner == 7) { msg $active 15,0\0,15\8,15\15,8\9,8\8,9\ $$1- /9,8/15,8/8,15/0,15/15,0/ | haltdef }
      if (%banner == 8) { msg $active 15,0\0,15\7,15\15,7\12,7\7,12\ $$1- /12,7/15,7/7,15/0,15/15,0/ | haltdef }
      if (%banner == 9) { msg $active 15,0\0,15\9,15\15,9\4,9\9,4\ $$1- /4,9/15,9/9,15/0,15/15,0/ | haltdef }
      if (%banner == 10) { msg $active 15,0\0,15\8,15\15,8\6,8\8,6\ $$1- /6,8/15,8/8,15/0,15/15,0/ | haltdef }
      if (%banner == 11) { msg $active 15,0\0,15\12,15\15,12\2,12\12,2\ $$1- /2,12/15,12/12,15/0,15/15,0/ | haltdef }
    }
  }
}
alias banner.mode {
  if ($$1 == on) { set %banner.mode [ $+ [ $active ] ] on | echo $active 11Banner Mode is now set to 13ON11 for13 $active $+ 11. }
  if ($$1 == off) { set %banner.mode [ $+ [ $active ] ] off | echo $active 11Banner Mode is now set to 13OFF11 for13 $active $+ 11. }