on *:open:?:*:{
var %pm $comchan($nick,0)
while (%pm) {
if ($nick !isop $comchan($nick,%pm)) { close -m $nick }
else {
if ($hget(pmusers) != $null) {
if ($nick != $hget(pmusers, $nick)) {
.notice $me $nick just tried to sen PM with stareting word: $1
.notice $nick Sorry, unknown PM messages are not allowed and not received. Please ask privlidges in main chat.
return
}
else { msg $nick Hello, I got your message and will try to respond to you ASAP. }
}
}
dec %pm
}
}