on spamlist:JOIN:#:/address $chan add deny $address($nick,3) | /kick $chan $2 $nick Spamlisted. | /msg # $2  $nick has been caught spamming :@:@:@ | /amsg Damn Pornbotz :@
on level5:TEXT:`list:#:/msg # There are currently $lines(pornbotz.mrc) PornListed | /amsg Dont you jus hate them :p
on *:KICK:*:{
  if ($address($knick,1) isin $read(pornbotz.mrc,w,* $+ $address($knick,1) $+ *))  {
    /echo -a $knick $+ !* $+ $remove($address($knick,1),*!*) Is Already On Porn Access
    halt
  }
  if (spam isin $1-) || (porn isin $1-) || (spam isin $1-) {
    /write pornbotz.mrc $address($knick,1)
    /echo -a [- $+ $asctime(h:nn tt) $+ -] $knick $+ !* $+ $remove($address($knick,1),*!*) Is Now On Porn Access
  }
}