Whisper Accept Or Decline

[CharmedOne]

I am not sue how to set this up it is something I havent done or messed with can smeone help me ? I was never sure how to set my whispers to accept or decline to even begin to attempt it.

[Warrior124]

Haven't tried this, yet. However, here is something I came up with...

 

on *:TEXT:*:?: {
  var %wtext. [ $+ [ $nick ] ] = $nick $+ : $1-
  .msg $nick Waiting for $me to accept whisper. Please wait...
  if (!%wnick. [ $+ [ $nick ] ]) {
    if ($input(Do you want to accept incoming whisper from $nick $+ ?,n,Incoming Whisper from $nick $+ .) == $true) {
      set %wnick. [ $+ [ $nick ] ] $nick
      echo %wnick. [ $+ [ $nick ] ] %wtext. [ $+ [ $nick ] ]
    }
    else {
      .msg $nick Access to whisper has been denied.
      closemsg $nick
    }
  }
  else echo %wnick. [ $+ [ $nick ] ] %wtext. [ $+ [ $nick ] ]
}

on *:close:?: if (%wnick. [ $+ [ $nick ] ]) unset %wnick. [ $+ [ $nick ] ]

Edited August 18, 2009 by Warrior124

[Fanfare]

Does that script work for Buzzen?

 

 

 

[Warrior124]

I haven't tried it for Buzzen, yet. I did test it out yesterday, though. I got an error saying the $input doesn't work in an event. I'll see what else I can come up with.

 

Edit: Haven't tried the following code on Buzzen, but I've tested this on Koach.com, and it works. Here is the new code...

 

on *:TEXT:*:?: {
  set %wtext. [ $+ [ $nick ] ] = $nick $+ : $1-
  if (!%wnick. [ $+ [ $nick ] ]) {
     .msg $nick Waiting for $me to accept whisper. Please wait...
    .closemsg $nick
    dialog -md waccept. $+ $nick waccept
  }
}

on *:close:?: if (%wnick. [ $+ [ $nick ] ]) unset %wnick. [ $+ [ $nick ] ]

dialog waccept {
  title "Whisper From: "
  size -1 -1 134 45
  option dbu
  button "Yes", 1, 28 31 37 12
  button "No", 2, 68 31 37 12
  text "", 3, 1 1 131 28
}

on *:dialog:waccept*:*:*: {
  tokenize 32 $gettok($dname,2,$asc(.))
  if ($devent == init) {
    dialog -t $dname Whisper from $1- $+ ?
    did -ra $dname 3 Do you want to accept incoming whisper from $1- $+ ?
  }
  if ($devent == sclick) {
    if ($did == 1) {
      set %wnick. [ $+ [ $1- ] ] $1-
      query %wnick. [ $+ [ $1- ] ]
      .msg %wnick. [ $+ [ $1- ] ] Your whisper has been accepted, please continue.
      echo %wnick. [ $+ [ $1- ] ] %wtext. [ $+ [ $1- ] ]
      dialog -c $dname waccept
    }
    if ($did == 2) {
      .msg $1- Access to whisper has been denied.
      closemsg $1-
      dialog -c  $dname waccept
    }
  }
}

Edited August 18, 2009 by Warrior124

[Fanfare]

Nice work, Warrior. But don't you think it's obvious this request was made for Buzzen in the first place? Not to mention this is a Buzzen thread. lol

 

[Guest Travis]

Amy you have had a whisper decline/accept code for years.

[Warrior124]

Fanfare, this should work for Buzzen, and yes I knew it was for Buzzen, because it is a Buzzen thread. However, unless Buzzen has drastically changed coding, this should work there.

Edited August 18, 2009 by Warrior124

[CharmedOne]

Amy you have had a whisper decline/accept code for years.

Nope never had one

[CharmedOne]

name='CharmedOne' date='Aug 18 2009, 08:49 PM' post='73514'

 

Nope never had one tho one I had for msn was way different wont work here on buzzen

Edited August 18, 2009 by CharmedOne

[err0r]

it should work with a little editing.