Stuff

on *:TEXT:!msg*:#:{ 
  write msg.txt $asctime(mmmm dd yyyy) : $time(hh:nn) $+ : $+(<,$nick,>)  $2- 
  notice $nick message saved 
} 
on *:TEXT:!read*:#:{ 
  if ($nick isop $chan) { 
    if ($read(msg.txt,$2)) { 
      notice $nick $read(msg.txt,$2) 
    } 
    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,$2)) { 
      write $+(-dl,$2) 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 ($read(msg.txt,1)) { 
    notice $opnick unread messages. type !read to read 
  } 
  else { 
    notice $opnick no new messages 
  } 
}