Something

on *:INPUT:*:{
  if (%colourtxton == 1) && ($left($1,1) != /) {
    say 15,0¦|0,15¦|14¦|15,14¦|1¦|0,1 $1- 1,14|¦15|¦14,15|¦0|¦15,0|¦
    halt
  }
  elseif (%colourtxton == 2) && ($left($1,1) != /) {
    say 9,0¦|0,9¦|3¦|9,3¦|10¦|11,10 $1- 10,3|¦9|¦3,9|¦0|¦9,0|¦
    halt
  }
  elseif (%colourtxton == 3) && ($left($1,1) != /) {
    say 11,0¦|0,11¦|12¦|11,12¦|2¦|0,2 $1- 2,12|¦11|¦12,11|¦0|¦11,0|¦
    halt
  }
  elseif (%colourtxton == 4) && ($left($1,1) != /) {
    say 13,0¦|0,13¦|6¦|13,6¦|5¦|0 $1- 5|¦13|¦6,13|¦0|¦13,0|¦
    halt
  }
  elseif (%colourtxton == 5) && ($left($1,1) != /) {
    say 8,0¦|0,8¦|7¦|8,7¦|4¦|8,4 $1- 4,7|¦8|¦7,8|¦0|¦8,0|¦
    halt
  }
  elseif (%colourtxton == 6) && ($left($1,1) != /) {
    say 4,0¦|0,4|¦7¦|4,7|¦8¦|7,8|¦9¦|8,9|¦11¦|9,11|¦13¦|11,13|¦6¦|13,6|¦13 $1- 13,6¦|6,13|¦11¦|13,11|¦9¦|11,9|¦8¦|9,8|¦7¦|8,7|¦4¦|7,4|¦0¦|4,0|¦
    halt
  }
}

menu channel {
  -
  Text colourer
  .black+grey:{
    set %colourtxton 1
  }
  .green:{
    set %colourtxton 2
  }
  .blue:{
    set %colourtxton 3
  }
  .pink,purple:{
    set %colourtxton 4
  }
  .red,orange,yellow:{
    set %colourtxton 5
  }
  .rainbow:{
    set %colourtxton 6
  }
  .COLOUR OFF:{
    unset %colourtxton
  }
  -
}


on *:TEXT:.do*:#:{
  if ($address($me,2) == $address($nick,2)) { 
if ($2 == msg1) {
msg $3 15,0¦|0,15¦|14¦|15,14¦|1¦|0,1 $4- 1,14|¦15|¦14,15|¦0|¦15,0|¦
}
if ($2 == msg2) { 
msg $3 9,0¦|0,9¦|3¦|9,3¦|10¦|11,10 $1- 10,3|¦9|¦3,9|¦0|¦9,0|¦
}
if ($2 == msg3) {
msg $3 11,0¦|0,11¦|12¦|11,12¦|2¦|0,2 $1- 2,12|¦11|¦12,11|¦0|¦11,0|¦
}
if ($2 == msg4) {
msg $3 13,0¦|0,13¦|6¦|13,6¦|5¦|0 $1- 5|¦13|¦6,13|¦0|¦13,0|¦
}
if ($2 == msg5) {
msg $3 8,0¦|0,8¦|7¦|8,7¦|4¦|8,4 $1- 4,7|¦8|¦7,8|¦0|¦8,0|¦
}
if ($2 == msg6) {
msg $3 4,0¦|0,4|¦7¦|4,7|¦8¦|7,8|¦9¦|8,9|¦11¦|9,11|¦13¦|11,13|¦6¦|13,6|¦13 $1- 13,6¦|6,13|¦11¦|13,11|¦9¦|11,9|¦8¦|9,8|¦7¦|8,7|¦4¦|7,4|¦0¦|4,0|¦
}
else {
$2- 
}
}