PVT Blocker

By Vlada_bgd on Jul 13, 2008

This is a simple popup private (query) message blocker. Load into remotes.

alias pbokd { dialog -m pbok pbok }
dialog pbok {
  title "PVT Blocker by Vlada"
  size -1 -1 267 62
  option dbu
  text "Incomming message", 1, 99 2 49 8
  edit %pbnick, 2, 69 11 130 10, read
  text "From:", 3, 52 12 17 8
  text "Message:", 4, 3 25 25 8
  edit %pbmsg, 5, 28 24 234 18, read
  button "Accept", 6, 65 49 38 10, flat ok
  button "Deny", 7, 145 49 38 10, flat ok
}
on ^*:OPEN:?: {
  if (%pb == yes) && ($away == $true) {
    query %pbnick
    msg $nick -[Auto Messages]- I`m sorry, but I am AFK now. Please try later!
    close -m $nick
  }
  if (%pb == yes) && ($away != $true) {
    set %pbnick $nick
    query %pbnick
    set %pbmsg $1-
    msg %pbnick * Hello %pbnick *
    msg %pbnick * Your query is being considered. Please wait. *
    msg %pbnick * PVT Blocker by Vlada *
    pbokd
  }
}
On *:dialog:pbok:sclick:6:{
  msg %pbnick -[AutoMessage]- Your query is accepted!
  query %pbnick
  dialog -c pbok
}
On *:dialog:pbok:sclick:7:{ 
  msg %pbnick -[AutoMessage]- Your query is denied! Please try again later!
  ignore -pu120 %pbnick
  close -m %pbnick
  dialog -c pbok
}

menu menubar,channel,status {
  PVT Blocker
  .ON:set %pb yes | echo -a PVT Blocker is ON
  .OFF:set %pb no | echo -a PVT Blocker is OFF
}

Comments

Sign in to comment.
xFireWallx   -  Jul 27, 2008

Try... msg $nick -[Auto Messages]- I`m sorry, but I am AFK now. Please try later!

;-)

 Respond  
napa182   -  Jul 13, 2008

you are welcome

 Respond  
Vlada_bgd   -  Jul 13, 2008

I don`t know. Thanks for advice.

 Respond  
napa182   -  Jul 13, 2008

on ur ignore why ignore them from everywhere why not use the ignore switch for private messages.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.