UPDATED

Simple script:

Commands
S9 what is
S9 where is
S9 can
S9 what color

The menu Includes:
A dialog for all round commands
A menu for each category to: Add, Look up or remove

REMEMBER TO ADD SOME STUFF BEFORE YOU TEST IT OUT

#qq on

on *:TEXT:*:#:{
  if $1-3 == S9 where is {
    :again
    if $readini(Reply.ini, whereis, $rand(1,99)) { msg $chan $2- : $ifmatch } 
  else { goto again } }

  if $1-2 == S9 can {
    :again1
    if $readini(Reply.ini, can, $rand(1,99)) { msg $chan $2- : $ifmatch } 
  else { goto again1 } }

  if $1-3 == S9 what color {
    :again2
    if $readini(Reply.ini, color, $rand(1,99)) { msg $chan $2- : $ifmatch } 
  else { goto again2 } }

  if $1-3 == S9 what is {     
    :again3
    if $readini(Reply.ini, whatis, $rand(1,99)) { msg $chan $2- : $ifmatch } 
  else { goto again3 } }

}

alias -l theloop {
  if $1-3 == S9 where is {
    :again
    if !$readini(Reply.ini, whereis, $rand(1,99)) { goto again } 
  else { return $ifmatch } }
  if $1-2 == S9 can { msg $chan $readini(Reply.ini, can, $rand(1,99)) }
  if $1-3 == S9 what color { msg $chan $readini(Reply.ini, color, $rand(1,99)) }
  if $1-3 == S9 what is { msg $chan $readini(Reply.ini, whatis, $rand(1,99)) }
}

#qq end

#pp off

on *:TEXT:S9 where is*:#:/notice $nick $read(where.txt)
on *:TEXT:S9 can*:#:/notice $nick $read(Can.txt)
on *:TEXT:S9 what colour*:#:/notice $nick $read(colour.txt)
on *:TEXT:S9 what is*:#:/notice $nick $read(what.txt)
on *:TEXT:S9 *:#:/notice $nick $read(can.txt)

#pp end

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on 6:TEXT:S9off:*:{
  enable #pp 
  disable #qq
  notice $chan S9 will now reply via notice and can be used by soldiers now
}

on *:TEXT:S9 *:#:{
  if ($group(#pp) = off) && ($group(#qq) = off) { /notice $nick Sorry S9 is not on }
  else { halt }
}

on 6:TEXT:S9on:*:{
  enable #qq
  disable #pp
  notice $chan MEssage is now on
}

on 6:TEXT:S9end:*:{
  disable #qq
  disable #pp
  notice $chan S9 is now off
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

menu channel {
  S9 commands
    .The Dialog:/dialog -dm test test

  .Where is
  ..Write where is:$whereis 

  ..Look up:/$ewhereis
  ..Remove line:/$rwhereis

  .Can I
  ..Write Can I:/$can  
  ..Look up:$ecan
  ..Remove line:/$rcan

  .What color
  ..Write what color:/$whatc 
  ..Look up:$ewhatc
  ..Remove line:/$rwhatc

  .What is
  ..Write what is:/$whati
  ..Look up:$ewhati
  ..Remove line:/$rwhati

}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias  can {
  echo $?=" Enter the new word that you would like to show when said "
  if !$! { halt }
  else {

    set %x $calc($lines(reply.ini) + 1)
    set %word $!
    set %b 1

    :loop

    if %b == %x {
      writeini reply.ini can %b %word
    echo Written }
    else {
      if $readini(reply.ini, can , %b) {
        inc %b
        goto loop 
      }
      else { 
        writeini reply.ini can %b %word
      echo Written }
    }
  }
}

alias  whatc {
  echo $?=" Enter the new word that you would like to show when said "
  if !$! { halt }
  else {

    set %x $calc($lines(reply.ini) + 1)
    set %word $!
    set %b 1

    :loop

    if %b == %x {
      writeini reply.ini color %b %word
    echo Written }
    else {
      if $readini(reply.ini, color, %b) {
        inc %b
        goto loop 
      }
      else { 
        writeini reply.ini color %b %word
      echo Written }
    }
  }
}

alias  whati {
  echo $?=" Enter the new word that you would like to show when said "
  if !$! { halt }
  else {

    set %x $calc($lines(reply.ini) + 1)
    set %word $!
    set %b 1

    :loop

    if %b == %x {
      writeini reply.ini whatis %b %word
    echo Written }
    else {
      if $readini(reply.ini, whatis, %b) {
        inc %b
        goto loop 
      }
      else { 
        writeini reply.ini whatis %b %word
      echo Written }

    }
  }
}

alias  whereis {
  echo $?=" Enter the new word that you would like to show when said "
  if !$! { halt }
  else {

    set %x $calc($lines(reply.ini) + 1)
    set %word $!
    set %b 1

    :loop

    if %b == %x {
      writeini reply.ini whereis %b %word
    echo Written }
    else {
      if $readini(reply.ini, whereis, %b) {
        inc %b
        goto loop 
      }
      else { 
        writeini reply.ini whereis %b %word
      echo Written }

    }
  }
}

;;;;;;;;;;;;;;;;;;;;

alias ewhereis {
  $?="Enter The number for the Sentance"
  if $readini(reply.ini, whereis, $!) { echo $! : $ifmatch }
  else { echo No record for that number is saved }
}
alias ewhati {
  $?="Enter The number for the Sentance"
  if $readini(reply.ini, whatis, $!) { echo Line $! : $ifmatch }
  else { echo No record for that number is saved }
}
alias ecan {
  $?="Enter The number for the Sentance"
  if $readini(reply.ini, can, $!) { echo $! : $ifmatch }
  else { echo No record for that number is saved }
}
alias ewhatc {
  $?="Enter The number for the Sentance"
  if $readini(reply.ini, color, $!) { echo $! : $ifmatch }
  else { echo No record for that number is saved }
}
;;;;;;;;;;;;;;;;;;;;

alias rwhati {
  $?="Enter The number for the Sentance to remove"
  if $readini(reply.ini, whatis, $!) {
    echo $! removed : $ifmatch
    remini reply.ini whatis $! 
  }
  else { echo No record for that number is saved }
}

alias rwhereis {
  $?="Enter The number for the Sentance"
  if $readini(reply.ini, whereis, $!) { 
    echo $! : $ifmatch 
    remini reply.ini whereis $! 
  }
  else { echo No record for that number is saved }
}

alias ecan {
  $?="Enter The number for the Sentance"
  if $readini(reply.ini, can, $!) { 
    echo $! : $ifmatch
    remini reply.ini can $! 
  }
  else { echo No record for that number is saved }
}
alias ewhatc {
  $?="Enter The number for the Sentance"
  if $readini(reply.ini, color, $!) { 
    echo $! : $ifmatch
    remini reply.ini color $! 
  }
  else { echo No record for that number is saved }
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

dialog test {

  title Script Questions

  size -1 -1 110 100

  option dbu

  tab "Where", 1, 5 5 100 90

  tab "What", 2

  tab "Color", 3

  tab "Can", 4

  button  "Add Where", 11, 30 25 50 12, ok tab 1
  button  "Look up", 18, 30 50 50 12, ok tab 1
  button  "Remove", 20, 30 75 50 12, ok tab 1

  button  "Add what", 12, 30 25 50 12, tab 2
  button  "look up", 17, 30 50 50 12, tab 2
  button  "Remove", 21, 30 75 50 12, ok tab 2

  button  "Add color", 13, 30 25 50 12, tab 3
  button  "look up", 16, 30 50 50 12, tab 3
  button  "Remove", 22, 30 75 50 12, ok tab 3

  button  "Add can", 14, 30 25 50 12, tab 4
  button  "Look up", 15, 30 50 50 12, tab 4
  button  "Remove", 23, 30 75 50 12, ok tab 4

}
on 1:dialog:TEST:sclick:20: {
  $rwhereis
}
on 1:dialog:TEST:sclick:21: {
  $rwhati
}
on 1:dialog:TEST:sclick:22: {
  $rwhatc
}
on 1:dialog:TEST:sclick:23: {
  $rcan
}

on 1:dialog:TEST:sclick:11: {
  $whereis
}
on 1:dialog:TEST:sclick:12: {
  $whati
}
on 1:dialog:TEST:sclick:13: {
  $whatc
}
on 1:dialog:TEST:sclick:14: {
  $can
}
on 1:dialog:TEST:sclick:15: {
  $ecan
}
on 1:dialog:TEST:sclick:16: {
  $ewhatc
}
on 1:dialog:TEST:sclick:17: {
  $ewhati
}
on 1:dialog:TEST:sclick:18: {
  $ewhere
}