on *:JOIN:#ninja: { 
  notice $nick Hello, for a list of cool channels say !Cool 
}

ON *:TEXT:!cool:#ninja: { 
  notice $nick Hello $nick $+ , here are the cool channels listed below:
  timer 1 1 notice $nick %cool
}
ON *:TEXT:!Addcool*:#:{ if ($findtok(%nicks,$nick,32)) {
    set %cool $addtok(%cool,$chr(35) $+ $2 $+ $chr(44),32)
    msg $chan Channel $chr(35) $+ $2 has been added to the AndyBot cool channel script, to view more cool channels say !cool or to be added to the permision list to set cool channels pm `Andy` asking so.
  }
}
ON *:TEXT:!coollist*:#:{ if ($nick == `Andy`) set %nicks $addtok(%nicks,$2,32) {
    notice $2 You have been added to the AndyBot cool access list script
  }
}