Description: This script is an query msg.

dialog pmad* {
  title "PM Accept/Deny"
  size -1 -1 160 97
  option dbu
  box "PM Message", 1, 14 11 125 56
  button "Accept", 2, 14 69 37 12
  button "Deny", 3, 58 69 37 12
  button "Cancel", 4, 58 83 37 12, cancel
  button "More...", 5, 102 69 37 12
  text "", 6, 5 3 66 8
  text "", 7, 16 18 121 47
}
on *:OPEN:?:{
  set %pm.n $nick
  set %pm.m $strip($1-,burcm)
  inc %pm.c
  msg $nick Hello $nick, I currently have $query(0) $iif($query(0) == 1,query,queries) open and my idle time is $duration($idle) $+ .
  msg $nick For any question about SQUADBOTS service, please join #squadbots and ask in it.
  msg $nick This script provide from #SquadBots Script v1.0
  dialog -m pmad $+ $nick pmad $+ $nick
}
on *:dialog:pmad*:init:*: {
  did -ra pmad $+ %pm.n 6 %pm.n
  did -ra pmad $+ %pm.n 7 %pm.m
}
on *:dialog:pmad*:sclick:*: {
  if ($did == 2) {
    msg $did(6) Your Query has been $chr(2) $+ ACCEPTED $+ $chr(2) $+ !
    dialog -x pmad $+ $did(6) pmad $+ $did(6)
  }
  if ($did == 3) {
    msg $did(5) Your Query has been $chr(2) $+ DENIED $+ $chr(2) $+ !
    close -m $did(6)
    dialog -x pmad $+ $did(6) pmad $+ $did(6)
  }
  if ($did == 5) {
    set %pm.mn $did(6)
    set %pm.mm $did(7)
    dialog -m pmc pmc
    dialog -x pmad $+ $did(6) pmad $+ $did(6)
  }
}
dialog pmc {
  title "Anthony's Script Query MSG"
  size -1 -1 275 250
  option dbu
  tab "PM Message", 1, 1 1 273 247
  text "", 4, 58 16 78 8, tab 1
  box "PM Message", 5, 70 29 141 57, tab 1
  text "", 6, 72 35 137 36, tab 1
  button "Accept", 7, 79 87 37 12, tab 1
  button "Deny", 8, 122 87 37 12, tab 1
  button "Ignore", 9, 165 87 37 12, tab 1
  button "Cancel", 10, 122 106 37 12, tab 1 cancel
  text "Nick:", 28, 199 129 13 8, tab 1
  edit "", 31, 213 127 50 11, tab 1
  button "Whois", 32, 220 143 37 12, tab 1
  button "Ignore List", 33, 220 155 37 12, tab 1
  button "Ping", 34, 220 175 37 12, tab 1
  button "Time", 35, 220 187 37 12, tab 1
  button "Version", 36, 220 199 37 12, tab 1
  button "DCC Send", 37, 220 219 37 12, tab 1
  button "DCC Chat", 38, 220 231 37 12, tab 1
  text "", 39, 47 118 43 8, tab 1
  edit "", 40, 25 130 172 113, tab 1 read multi autovs vsbar
  text "", 22, 72 71 137 13, tab 1
  tab "Channel Control", 2
  list 11, 211 67 62 176, tab 2 size vsbar
  list 12, 211 24 62 42, tab 2 size vsbar
  text "Common Channels:", 13, 214 16 53 8, tab 2
  box "", 14, 3 34 206 212, tab 2
  edit "", 15, 5 51 202 171, tab 2 read multi autovs vsbar
  edit "", 16, 154 18 50 9, tab 2
  text "Nick:", 17, 141 18 12 8, tab 2
  button "Check", 18, 164 28 28 8, tab 2
  edit "", 19, 4 230 175 12, tab 2 read return autohs
  text "Message Here:", 20, 5 222 37 8, tab 2
  text "", 3, 7 42 198 8, tab 2
  button "Send", 21, 180 230 27 12, tab 2
}
on *:dialog:pmc:init:*: {
  did -ra pmc 4 Last PM Nick: %pm.mn
  did -ra pmc 31 %pm.mn
  did -ra pmc 16 %pm.mn
  did -ra pmc 6 %pm.mm
  var %x 1 | while (%x <= $comchan($did(pmc,16),0)) {
    did -a pmc 12 $comchan($did(pmc,16),%x)
    inc %x
  }
}
on *:TEXT:*:*:{
  if ($dialog(pmc)) {
    if ($chan == $did(pmc,14)) {
      did -a pmc 15 $timestamp < $+ $nick($did(pmc,14),$nick).pnick $+ > $1- $crlf
    }
  }
}
on *:INPUT:*:{
  if ($dialog(pmc)) {
    if ($chan == $did(pmc,14)) {
      did -a pmc 15 $timestamp < $+ $nick($did(pmc,14),$me).pnick $+ > $1- $crlf
    }
  }
}
on *:CTCPREPLY:PING*:{
  if ($dialog(pmc)) {
    did -a pmc 40 From $me to $did(pmc,31) $crlf
    did -a pmc 40 -------------------- $crlf
    did -a pmc 40 $me $+ : %pm.ping $crlf
    did -a pmc 40 $did(pmc,31) $+ : $remove($2,$chr(1)) $crlf
    did -a pmc 40 -------------------- $crlf
    did -a pmc 40 $calc($remove($2,$chr(1)) - %pm.ping) seconds $crlf
    unset %pm.ping
  }
}
on *:CTCPREPLY:TIME*:{
  if ($dialog(pmc)) {
    did -a pmc 40 The Time is: $crlf
    did -a pmc 40 $2- $crlf
  }
}
on *:CTCPREPLY:VERSION*:{
  if ($dialog(pmc)) {
    did -a pmc 40 User $did(pmc,31) is using: $crlf
    did -a pmc 40 $2- $crlf
  }
}
on *:dialog:pmc:sclick:*: {
  if ($did == 12) {
    if ($did(12).seltext) {
      if ($did(14) != $did(12).seltext) {
        did -r pmc 15
        did -n pmc 19
      }
      did -ra pmc 14 $did(12).seltext
      did -r pmc 11
      var %x 1 | while (%x <= $nick($did(12).seltext,0)) {
        did -a pmc 11 $nick($did(12).seltext,%x).pnick
        inc %x
      }
    }
  }
  elseif ($did == 7) {
    if ($query($gettok($did(pmc,4),4,32)) == $null) {
      did -ra pmc 22 Accept Deny and Ignore Commands will not work because this query does not exist! | .timer 1 3 did -r pmc 22
    }
    else {
      msg $gettok($did(4),4,32) Your Query has been $chr(2) $+ ACCEPTED $+ $chr(2) $+ !
      dialog -x pmc pmc
    }
  }
  elseif ($did == 8) {
    if ($query($gettok($did(pmc,4),4,32)) == $null) {
      did -ra pmc 22 Accept Deny and Ignore Commands will not work because this query does not exist! | .timer 1 3 did -r pmc 22
    }
    else {
      msg $gettok($did(4),4,32) Your Query has been $chr(2) $+ DENIED $+ $chr(2) $+ !
      close -m $gettok($did(4),4,32)
      dialog -x pmc pmc
    }
  }
  elseif ($did == 9) {
    if ($query($gettok($did(pmc,4),4,32)) == $null) {
      did -ra pmc 22 Accept Deny and Ignore Commands will not work because this query does not exist! | .timer 1 3 did -r pmc 22
    }
    else {
      msg $gettok($did(4),4,32) Your Query has been [^B]IGNORED[^B] and all further messages will be ignored for the next 15 minutes!
      ignore on
      ignore -pu900 $address($gettok($did(4),4,32),2)
      close -m $gettok($did(4),4,32)
      dialog -x pmc pmc
    }
  }
  elseif ($did == 33) {
    did -r pmc 40
    did -a pmc 40 Ignore List: $crlf
    did -a pmc 40 -------------------- $crlf
    did -a pmc 40 Ignored Users: $crlf $crlf
    if ($ignore(0)) {
      var %x 1
      while (%x <= $ignore(0)) {
        did -a pmc 40 $ord(%x) Ignored User: $crlf
        did -a pmc 40 Nick/Address: $ignore(%x) $crlf
        did -a pmc 40 Type: $ignore(%x).type $crlf
        did -a pmc 40 Network: $ignore(%x).network $crlf
        did -a pmc 40 Time Left: $duration($ignore(%x).secs) $crlf $crlf
        inc %x
      }
    }
    else {
      did -a pmc 40 No Ignored Users!
    }
  }
  elseif ($did == 18) {
    did -r pmc 12
    var %x 1 | while (%x <= $comchan($did(16),0)) {
      did -a pmc 12 $comchan($did(16),%x)
      inc %x
    }
  }
  elseif ($did == 21) {
    if ($did(19)) {
      msg $did(14) $did(19)
      did -a pmc 15 $timestamp < $+ $nick($did(pmc,14),$me).pnick $+ > $did(19) $crlf
      did -r pmc 19
    }
  }
  elseif ($did == 34) {
    .msg $did(31) $chr(1) $+ PING $ctime $+
    set %pm.ping $ctime
    did -r pmc 40
    did -a pmc 40 Ping Results: $crlf
    did -a pmc 40 -------------------- $crlf
  }
  elseif ($did == 35) {
    .msg $did(31) $chr(1) $+ TIME
    did -r pmc 40
    did -a pmc 40 Time Results: $crlf
    did -a pmc 40 -------------------- $crlf
  }
  elseif ($did == 36) {
    .msg $did(31) $chr(1) $+ VERSION
    did -r pmc 40
    did -a pmc 40 Version Results: $crlf
    did -a pmc 40 -------------------- $crlf
  }
  elseif ($did == 32) {
    whois $did(31)
    did -r pmc 40
    did -a pmc 40 Whois Results: $crlf
    did -a pmc 40 -------------------- $crlf
  }
}
raw 311:*:{ if ($dialog(pmc)) { did -a pmc 40 Whois: From $1 to $2 $crlf } }
raw 319:*:{ if ($dialog(pmc)) { did -a pmc 40 Channels: $3- $crlf | var %pm.wcomc | var %x 1 | while (%x <= $comchan($did(pmc,31),0)) { set %pm.wcomc %pm.wcomc $comchan($did(pmc,31),%x) | inc %x } | did -a pmc 40 Common Channels: %pm.wcomc $crlf } }
raw 312:*:{ if ($dialog(pmc)) { did -a pmc 40 Network: $4- $crlf } }
raw 330:*:{ if ($dialog(pmc)) { did -a pmc 40 AuthServ Account: $3 $crlf } }
raw 338:*:{ if ($dialog(pmc)) { did -a pmc 40 $1- $crlf } }
raw 317:*:{ if ($dialog(pmc)) { did -a pmc 40 $1- $crlf } }
raw 318:*:{ if ($dialog(pmc)) { did -a pmc 40 $2- $crlf } }
alias pmc {
  dialog -m pmc pmc
}

the only bad thing is that it ONLY sets 1 nick not multiple. :(

nice rip off of http://scriptsurge.org/960
^^^^^^^^^^^^^^^^^^^^^



noob

Don't steal my work... i noticed it right off the bat.. plus i fixed it so mine accepts multiple :D I'm glad you liked it enough to claim it as your own!


... the only thing that only allows one nick is the "More.." part which is the way it should be in my opinion. Maybe i should but a list of all open queried names and have it so you can switch between them.. would that satisfy? or does anyone even use this?

hey.. I'm sorry.. I was so newb in this time. But don't worry, all next script will be make by me =]
One more time, sorry.

I about died a little inside when I saw this.

This is one of the scripts puma taught me to script off of!

I love you puma!

how to unlock iphone
iphone unlock
            
unlock iphone [ounlockiphone.com] unlock iphone unlock iphone            
unlock iphone          
            
iphone unlock unlock iphone  <a href=http://ounlockiphone.com>how to unlock iphone </a> unlock iphone

Where by Unlock iPhone Approach is Right for You Unlock iPhone However there's a lot of mobile devices inside of the universe which are often considering well liked and properly called Iphone.A concern is til you have your own long term contract making use of the recognized agencies related to apple iphones, that you have been kind of doomed in order to utilize the iphone 3gs and also it is just the average person look at.The fact is you'll be able to Discover i-phones regardless of who the particular bag is without a doubt.The main Unlock iPhone preference you will be getting is the How to make easy tactic plus the to become self-sufficient one self method.                    
<a href=http://howtounlockiphone3g114.tumblr.com/>how to unlock iphone 3gs with 4.1</a>
<a href=http://dimenmetin89.posterous.com/>how to unlocking iphone 4</a>
<a href=https://sourceforge.net/p/thatufu982/blog/2011/12/how-to-unlock-and-iphone/>how to unlock 4.1</a>

Procedures for Unlock Iphone 4 you have g Anybody who is the owner of an iPhone should tend to be divulged to you personally and they also needs unlock iPhone 4 w points, generally regarding wonderful software programs which happens to be simultaneously acquire.However, it usually is extremely demoralizing every single child uncover someone's simply put i telephone if you do not find very good innovative iphone removing the padlock upon job application.There are a lot involving advertisings anywhere, yet, without having selected becoming familiar with you can get, 100 % caught up, for that reason several options several significant capital regarding practically nothing.                    
<a href=http://www.unlockiphonetut.com>how to hack iphone 3g</a>

Where Unlock iPhone Method Right for You Unlock iPhone Even so there are a lot mobile phones inside of the planet and that is considering chosen and effectively called Iphone 3gs.The very problem is in anticipation of having ones written agreement aided by the public internet service providers involving apple iphones, you happen to be method of condemned when you have to apply the iphone 4g and it is precisely the style the majority of folks take into account.In reality you can easily Discover i-phones no matter who a tote is definitely.The primary Unlock iPhone selection you will possess might be the Build it yourself system and also the undertake it your self tactic.                        
<a href=http://www.unlockiphonetut.com>how to unlock iphone</a>

Of which Unlock iPhone Technique is Ideal for you Unlock iPhone In spite of this there are thousands of cellular phones inside the universe which can be chosen and effectively named the Apple company iphone.This issue is til you have a get making use of the established providers linked with i-phones, you happen to be kind of destined if you need to implement some sort of i phone and also it is strictly exactly what the open public take under consideration.The fact is that you can easily Open i-phones no matter who all the container is usually.The key Unlock iPhone preference you will get stands out as the How to do procedure and then the become self-sufficient one self way.                          
<a href=http://nhypalordy79.posterous.com>unlock apple iphone 4</a>

Oops! You need to login or register before you can post a comment!