it sends messages to nicks you specify by doing
!notice
!msg

and it records what the user sends and adds an id to the message
so they can get banned if they write bad message

on *:TEXT:!msg *:#:{
  if ( serv isin $2 ) { notice $nick Not Allowed | HALT }
  inc %msgcount 1
  /write messages.txt %msgcount [To : $2 ] [ Message : $3- ] [ From : $nick - $address($nick,2) ]
  /msg $2 [ Message ID : %msgcount ]
  /msg $2 [Message sent By $nick ] : $3-
  notice $nick [To: $2 $+ ] : Message: $3-
}
on *:TEXT:!notice *:#:{
  if ( serv isin $2 ) { notice $nick Not Allowed | HALT }
  inc %msgcount 1
  /write messages.txt %msgcount [To : $2 ] [ Message : $3- ] [ From : $nick - $address($nick,2) ]
  /notice $2 [ Message ID : %msgcount ]
  /notice $2 [Message sent By $nick ] : $3-
  notice $nick [To: $2 $+ ] : Message: $3-
}