Mine

on *:TEXT:!msg*:#:{
  write msg.txt $asctime(dd mm yyyy) : $time(hh:nn) $+ : $+(<,$nick,>)  $2- 
  notice $nick message saved
}
on *:TEXT:!read:#:{
  if ($nick isop $chan) {
    notice $nick $read(msg.txt,1) 
  }
  else { 
    notice $nick you dont have the required access 
  }
}
on *:TEXT:!del:#:{
  if ($nick isop $chan) {
    write -dl1 msg.txt
    notice $nick message deleted
  }
  else { 
    notice $nick you dont have the required access 
  }
}