pvt-bloker

on ^*:open:?:*: {
  if (%prvtb == ON) && ($nick != TrackBOT) {
    window -emg[1]k[0] @private-blocker | .splay $mircdirsounds\pvt.wav
    echo -a  $asctime( 0[HH:nn'tt] ) [4 $+ $server $+ ][private request] nickname9: $nick 4(nick is temp-ignored 10min4)
    aline -p @private-blocker $asctime( 0[HH:nn'tt] ) you have new private message - accept private request type9: /7q $nick 
    aline -p @private-blocker $asctime( 0[HH:nn'tt] ) vhost9: $address
    aline -p @private-blocker $asctime( 0[HH:nn'tt] ) server9: $server
    aline -p @private-blocker $asctime( 0[HH:nn'tt] ) message9: $1-
    aline -p @private-blocker $asctime( 0[HH:nn'tt] ) date9: $date
    aline -p @private-blocker $asctime( 0[HH:nn'tt] ) 15------------------------------------------------------------------------------------------------------------------------------------------------
    .notice $nick private chat is temporarily disabled 4(your message: $1- $+ 4) was relayed
    .ignore -pnu720 $nick
    .close -m $nick
    set %qltnick $nick
    haltdef
  }
  if (%whonj == ON) { whois $nick }
  if ($network == PIK) && ($nick != $me) && ($nick != TrackBOT) && (%qlstatus == ON) {
    if (%qlmet == 1) { seennick $nick }
    elseif (%qlmet == 2) { seen $address($nick,7) }
    elseif (%qlmet == 3) { seen $address($nick,2) }
  }
  if ($nick == TrackBOT) && (%qlstatus == ON) {
    set %qltext $1-
    proveriqop
    close -icfgmst@ TrackBOT
    haltdef
  }
}
alias proveriqop {
  var %qlopi = 1
  while (%qlopi <= $query(0)) {
    if ($query(%qlopi) isin %qltext) && (%prvtb == OFF) { set %qlopi $query(%qlopi) | echo 4 %qlopi -> Looking up for %qlopi on TrackBOT ... | echo 4 %qlopi -> TrackBOT says: %qltext | close -icfgmst@ TrackBOT }
    else { inc %qlopi 1 }
  }
  if (%qltnick isin %qltext) && (%prvtb == ON) {
    aline -p @private-blocker $asctime( 0[HH:nn'tt] ) -> Looking up for %qltnick on TrackBOT ...
    aline -p @private-blocker $asctime( 0[HH:nn'tt] ) -> TrackBOT says: %qltext
    aline -p @private-blocker $asctime( 0[HH:nn'tt] ) 15------------------------------------------------------------------------------------------------------------------------------------------------
    close -icfgmst@ TrackBOT
  }
  elseif (%prvtb == OFF) && ($query(%qlopi) !isin %qltext) { echo -a <TrackBOT> %qltext }
  elseif (%prvtb == ON) && ($query(%qlopi) !isin %qltext) {
    aline -p @private-blocker $asctime( 0[HH:nn'tt] ) -> Looking up for %qltnick on TrackBOT ...
    aline -p @private-blocker $asctime( 0[HH:nn'tt] ) -> TrackBOT says: %qltext
  aline -p @private-blocker $asctime( 0[HH:nn'tt] ) 15-------------------------------------------------------------------------------------------------------------- }

}
alias pikpvtcheck {
  dialog -ma pikpvtcheck pikpvtcheck
  if (%qlstatus == ON) { did -c pikpvtcheck 2 | did -u pikpvtcheck 3 }
  else { did -u pikpvtcheck 2 | did -c pikpvtcheck 3 }
  if (%whonj == ON) { did -c pikpvtcheck 5 }
  else { did -u pikpvtcheck 5 }
  if (%qlmet == 1) { did -ac pikpvtcheck 8 nick!*@* | did -a pikpvtcheck 8 nick!*@host | did -a pikpvtcheck 8 *!*@host }
  elseif (%qlmet == 2) { did -a pikpvtcheck 8 nick!*@* | did -ac pikpvtcheck 8 nick!*@host | did -a pikpvtcheck 8 *!*@host }
  elseif (%qlmet == 3) { did -a pikpvtcheck 8 nick!*@* | did -a pikpvtcheck 8 nick!*@host | did -ac pikpvtcheck 8 *!*@host }
}

dialog pikpvtcheck {
  title "PIK Pvt Checker"
  size -1 -1 82 89
  option dbu
  box "Status", 1, 3 1 77 50
  radio "ON", 2, 10 12 34 10
  radio "OFF", 3, 50 12 25 10
  check "Whois on Query Open", 5, 4 54 67 10
  button "OK, thats it! ;-)", 6, 1 65 80 14, ok
  text "Made by munZe @ PIK", 7, 0 80 82 8, disable center
  combo 8, 11 34 60 50, size drop
  text "Seen type", 10, 12 25 25 8
  menu "Help", 9
  item "About", 4, 9
}
on 1:dialog:pikpvtcheck:*:*:{
  if ($devent == sclick) && ($did == 6) {
    if ( $did(pikpvtcheck,5).state == 0) { set %whonj OFF }
    else { set %whonj ON }
    if ( $did(pikpvtcheck,2).state == 0) && ( $did(pikpvtcheck,3).state == 1) { set %qlstatus OFF }
    elseif ( $did(pikpvtcheck,2).state == 1) && ( $did(pikpvtcheck,3).state == 0) { set %qlstatus ON }
    if ($did(pikpvtcheck,8).seltext == nick!*@*) { set %qlmet 1 }
    elseif ($did(pikpvtcheck,8).seltext == nick!*@host) { set %qlmet 2 }
    elseif ($did(pikpvtcheck,8).seltext == *!*@host) { set %qlmet 3 }
  }
  if ($devent == menu) && ($did == 4) { dialog -ma abpikpvtcheck abpikpvtcheck }
}
dialog abpikpvtcheck {
  title "About PVT Checker"
  size -1 -1 114 115
  option dbu
  text "Made by: munZe", 1, 2 41 49 8
  text "PIK Pvt Checker v1.0", 2, 0 4 114 8, center
  text "Other snippets by this author you can find at: ", 3, 2 54 113 8
  text "About: This snippet do seen or seennick for query open nick and print message in active query windows for opened nick.", 4, 2 15 109 25
  link "http://www.hawkee.com/profile/61236/", 5, 7 64 100 8
  text "You can find me on: irc.krstarica.com", 6, 2 75 113 8
  text "@ channel: #Zemun", 7, 2 83 89 8
  button "Ok, thats it ;-)", 8, 2 93 110 20, ok
}
on 1:dialog:abpikpvtcheck:sclick:5:{ run http://www.hawkee.com/profile/61236/ }

menu @private-blocker {

  &clear:clear $active
  &close:close -@ $active
  .-
  ignore:/ignore $$?="Ignore nickname or hostname *!*@"
  query:/q $$?="Enter nickname?"
  -
  uwho:/uwho $$?="Enter nickname?"
  whois:/w $$?="Enter nickname?"
  nickserv info:/nickserv info $$?="Enter nickname?" ALL

}
menu menubar {
addons
.pvt-block
..$iif(%prvtb == ON,$style(3)) &On:/set %prvtb ON
..$iif(%prvtb == OFF,$style(3)) O&ff:/set %prvtb OFF
}
on *:LOAD:{
set %prvtb off
set %whonj off
set %qlmet 3
set %qlstatus ON
}