Something

on *:TEXT:!msg*:#:{ 
  write msg.txt $asctime(mmmm dd yyyy) : $time(hh:nn) $+ : $+(<,$nick,>)  $2- 
  notice $nick 12message saved 
} 
on *:TEXT:!read:#:{ 
  if ($nick isop $chan) { 
    if ($read(msg.txt,1)) { 
      notice $nick $read(msg.txt,1) 
    } 
    else { 
      notice $nick no new messages 
    } 
  } 
  else { 
    notice $nick you dont have the required access 
  } 
} 
on *:TEXT:!del:#:{ 
  if ($nick isop $chan) { 
    if ($read(msg.txt,1)) { 
      write -dl1 msg.txt 
      notice $nick message deleted 
    } 
    else { 
      notice $nick no messages to delete 
    } 
  } 
  else { 
    notice $nick you dont have the required access 
  } 
} 
on *:OP:#: { 
  if 4($read(msg.txt,1)) { 
    notice 12$opnick unread messages. type !read to read 
  } 
  else { 
    notice $opnick no new messages 
  } 
}