This is a script that that forces the user to type a few random digits to talk with you in pvt. :-)

I had nothing to do and decided to do this. I know some people think it makes no sense. Use it if you want. :-P

Turn on:
/pvtc on
Turn off:
/pvtc on

on ^*:open:?:*:{
  if (%pvtc == on && $left($nick,1) != *) {
    if (!%pvtc_can_ [ $+ [ $nick ] ]) {  
      if (%pvtc_type_ [ $+ [ $nick ] ]) {
        if (%pvtc_ignored_ [ $+ [ $nick ] ]) { .halt }
        elseif ($strip($1) == %pvtc_type_ [ $+ [ $nick ] ]) {
          .unset %pvtc_type_ [ $+ [ $nick ] ]
          .msg $nick  [Auto Message]: 4Digits match!3 You may now talk with 7 $+ $me $+ 3 $+ !
          .set -eu600 %pvtc_can_ [ $+ [ $nick ] ] x
          .halt
        }
        elseif ($strip($1) isnum) {
          .inc -eu120 %pvtc_fail_ [ $+ [ $nick ] ]
          if (%pvtc_fail_ [ $+ [ $nick ] ] == 3) {
            .set -eu300 %pvtc_ignored_ [ $+ [ $nick ] ] x
            .msg $nick  [Auto Message]: 4You failed 3 times! You must to wait 5 minutes to try again.
            .halt
          }
          .set -eu600 %pvtc_type_ [ $+ [ $nick ] ] $rand(10000,99999)
          .msg $nick  [Auto Message]: 4Digits don't match!3 Type the new digits.
          .msg $nick  [Auto Message]:  $+ %pvtc_type_ [ $+ [ $nick ] ] $+ 
          .halt
        }
        else {
          .inc -eu120 %pvtc_fail_ [ $+ [ $nick ] ]
          if (%pvtc_fail_ [ $+ [ $nick ] ] == 3) {
            .set -eu300 %pvtc_ignored_ [ $+ [ $nick ] ] x
            .msg $nick  [Auto Message]: 4You failed 3 times! You must to wait 5 minutes to try again.
            .halt
          }
          .set -eu600 %pvtc_type_ [ $+ [ $nick ] ] $rand(10000,99999)
          .msg $nick  [Auto Message]: 4Digits only, please!3 Type the new digits.
          .msg $nick  [Auto Message]:  $+ %pvtc_type_ [ $+ [ $nick ] ] $+ 
          .halt
        }
      }
      else {
        .set -eu600 %pvtc_type_ [ $+ [ $nick ] ] $rand(10000,99999)
        .msg $nick  [Auto Message]: 3Anti-Spam System!
        .msg $nick  [Auto Message]: 3Type the following digits to talk with 7 $+ $me $+ 3 in pm.
        .msg $nick  [Auto Message]:  $+ %pvtc_type_ [ $+ [ $nick ] ] $+ 
        .halt
      }
    }
    else {
      .unset %pvtc_can_ [ $+ [ $nick ] ]
    }
  }
}

alias pvtc { .set %pvtc $+(o,$iif($pos($$1,on,1),n,ff)) }