PM Blocker Let in the Nice and keep out the Uglies

on 1:START:{
echo -a 08 Loading PM-Blocker 3.0 ...
window -alkC @MESSAGES
set %blockoff 0
echo -a 08 PM-Blocker - ON
}
on 1:load:{
echo -a 08 Loading PM-Blocker 3.0 ...
set %badguy $$?="What Should I Tell BAD People The Message Me ?"
window -alkC @MESSAGES
set %blockoff 0
echo -a 08 PM-Blocker - ON
}
on ^*:open:?:*: {
if (%blockoff == 1) goto End
if ($nick isin %nickok) goto End
if (http: isin $strip($1-)) goto bad
if (www. isin $strip($1-)) goto bad
if (porn isin $strip($1-)) goto bad
if (xxx isin $strip($1-)) goto bad
if ($nick isin %sentmessage) goto skip
notice $nick Sorry I do not accept private messages!
notice $nick To get my attention Do:8 $me Message < In the channel!
if ($window(@MESSAGES) == $null) window -lkC @MESSAGES
/iline @MESSAGES 1  -----------------------------------------------
/iline @MESSAGES 2  Time: $time - $date * Channel: $chan - $network
/iline @MESSAGES 3  $nick PM-Messaged: $1-
/window -gl @messages
set %sentmessage $nick
/halt
:skip
if ($window(@MESSAGES) == $null) window -lkC @MESSAGES
/iline @MESSAGES 1  -----------------------------------------------
/iline @MESSAGES 2  Time: $time - $date * Channel: $chan - $network
/iline @MESSAGES 3  $nick PM-Messaged: $1-
echo -a 08 You Have A New Message From $nick ...
/window -gl @messages
/halt
:bad
/notice $nick - Automated Message - %badguy ..
/msg $nick - Automated Message - %badguy ..
/halt
:End
}
on *:TEXT:$(* $+ $me $+ *):*:{
if (%blockoff == 1) goto End
if ($window(@MESSAGES) == $null) window -lkC @MESSAGES
echo -a 11 Nick: $nick 11Chan: $chan - $network 11Said: $1-
/iline @MESSAGES 1  -----------------------------------------------
/iline @MESSAGES 2  Time: $time - $date * Channel: $chan - $network
/iline @MESSAGES 3  $nick SAID: $1-
/window -g1 @messages
:end
}
on *:notice:$(* $+ $me $+ *):*:{
if (%blockoff == 1) goto End
if ($window(@MESSAGES) == $null) window -lkC @MESSAGES
echo -a 11 Nick: $nick 11Chan: $chan - $network 11Said: $1-
/iline @MESSAGES 1  -----------------------------------------------
/iline @MESSAGES 2  Time: $time - $date * Channel: $chan - $network
/iline @MESSAGES 3  $nick NOTICE: $1-
/window -g1 @messages
:end
}
on *:snotice:$(* $+ $me $+ *):*:{
if (%blockoff == 1) goto End
if ($window(@MESSAGES) == $null) window -lkC @MESSAGES
echo -a 11 Nick: $nick 11Chan: $chan - $network 11Said: $1-
/iline @MESSAGES 1  -----------------------------------------------
/iline @MESSAGES 2  Time: $time - $date * Channel: $chan - $network
/iline @MESSAGES 3  $nick NOTICE: $1-
/window -g1 @messages
:end
}
menu channel {
-
 PM Blocker :var %1 = 1 | unset %1
ON:echo $me  PM-Blocker is: On | set %blockoff 0 | window -alkC @MESSAGES
OFF:echo $me  PM-Blocker is: Off | set %blockoff 1
View Messages:/window -alkC @MESSAGES
View/Edit Nicks:{
set %nickok $$input(SET Nick Names You Want PM You,e,,%nickok)
}
-
}
menu NickList {
-
 PM Blocker :var %1 = 1 | unset %1
ON:echo $me  PM-Blocker is: On | set %blockoff 0 | window -alkC @MESSAGES
OFF:echo $me  PM-Blocker is: Off | set %blockoff 1
Add Nick:{
set %nickok %nickok - $$1
}
-
}
menu @MESSAGES {
Delete Line(s):{
while ($sline(@MESSAGES,0)) { dline @MESSAGES $sline(@MESSAGES,1).ln }
}
}
menu @MESSAGES {
$iif($window($active).type == listbox,Copy-Line):clipboard $$sline($active,1)
}