Whois Dialog & Query Acceptor | Blocker .

Please Register to submit score.

Average Score	8.0
Scores Submitted	1
Date Added	Dec 16, 2007
Last Updated	Dec 22, 2007

Introduction

This Is My Addon << Query Acceptor For Messages Blocker For The Nicknames, Whois For The Nicks >> It Is Very Simple. It Has Button In That You Can Changes The messages Of Query, 2 Buttons For Enable And Disable On|Off, It Has Ignore Edit In That You Can Set The Seconds That You Want Block The Nick . and 8 (texts) edits : nickname name address channels Away Server Status idle Time That You Can Whois The Nickname And 4 Button: version ping time finger that you can Ctcp Someone . Try it.

Grab the Code

;####################
;# Query Acceptor   #
;#  Whois System    #
;#    By IcE^_      #
;####################

on *:start: {
  .set %querynickname.msg 12A2utomessage: 12Y2our 12M2essage 12I2s 12W2aiting 12A2pproval.
  .set %queryaccept.msg 12Q2uery 12A2ccepted!
  .set %querydecline.msg 12Q2uery 4R2ejected!
}

#queryacceptor on
raw 311:*: { 
  queryacceptor
  did -r _queryacceptor 21,22,23
  .did -a _queryacceptor 21 $2
  .did -a _queryacceptor 22 $6-
  .did -a _queryacceptor 23 $3 $+ @ $+ $4
  halt
}

raw 301:*:if (($dialog(_queryacceptor).x == $null) || ($did(_queryacceptor,21) != $2)) { | halt } | else { did -r _queryacceptor 26 | did -a _queryacceptor 26 $3- | halt }
raw 319:*:did -r _queryacceptor 24 | did -a _queryacceptor 24 $3- | halt
raw 317:*:did -r _queryacceptor 25 | did -a _queryacceptor 25 $duration($3) / $duration($calc($ctime - $4)) | halt
raw 312:*:did -r _queryacceptor 27 | did -a _queryacceptor 27 $2- | halt
raw 313:*:did -r _queryacceptor 28 | did -a _queryacceptor 28 Irc Operator | halt

ON *:OPEN:?: { 
  set %querynickname $nick
  window -h %querynickname
  .whois %querynickname
  .msg %querynickname %querynickname.msg 
  dialog -m _queryacceptor _queryacceptor 
  did -a _queryacceptor 3 $1-
  did -a _queryacceptor 4 %querynickname
}

#queryacceptor end

alias queryacceptor {
  if ($dialog(_queryacceptor).x == $null) .dialog -m _queryacceptor _queryacceptor
  if (($dialog(_queryacceptor).x != $null) && ($1 == $null)) {
    did -r _queryacceptor 21,22,23,24,25,26,27,28
    did -a _queryacceptor 21 None.
    did -a _queryacceptor 22 None.
    did -a _queryacceptor 23 None.
    did -a _queryacceptor 24 None.
    did -a _queryacceptor 25 None.
    did -a _queryacceptor 26 None.
    did -a _queryacceptor 27 None.
    did -a _queryacceptor 28 Normal User
    .dialog -v _queryacceptor _queryacceptor
  } 
  else halt   
}

on *:load: { echo -a 12Q2uery 12A2cceptor 12A2nd 12W2hois 12S2ystem 12B2y 12IcE^_ 12L2oaded! }
on *:Unload: { echo -a 12Q2uery 12A2cceptor 12A2nd 12W2hois 12S2ystem 12B2y 12IcE^_ 12U2nloaded!  }

menu status,channel,menubar {
  Query Acceptor - Whois System
  .Settings...:/queryacceptor 1
}

dialog _queryacceptor {
  title "Query Acceptor And Whois System By IcE^_"
  size -1 -1 248 412
  button "On" 1, 1 3 40 25,left push flat group
  button "Off" 2, 1 3 40 25,left push flat 
  button "View" 5, 42 3 50 25,left push flat
  button "Query Acceptor Settings" 6, 93 3 150 25,left push flat
  button "Ok" 15, 4 356 80 20,ok flat
  button "Cancel" 16, 83 356 70 20,cancel flat
  button "Reset Settings." 17, 153 356 92 20,left push flat
  button "Accept" 18, 3 378 130 30,left push flat
  button "Decline" 19, 133 378 112 30,left push flat
  button "Version" 29, 3 335 60 20,left push flat
  button "Ping" 30, 62 335 60 20,left push flat
  button "Finger" 31, 124 335 60 20,left push flat
  button "Time" 32, 184 335 60 20,left push flat
  text "New Private Message Arrived!" 7, 42 30 180 20
  text "From:" 10, 20 47 30 20
  text "Saying:" 11, 15 73 35 20
  text "In Case Of Decline Ignore User For:" 12, 5 100 190 20
  text "Seconds." 13, 5 116 50 20
  text "Nickname:" 41, 10 135 50 20
  text "Name:" 42, 13 160 50 20
  text "Address:" 43, 13 187 50 20
  text "Channels:" 44, 13 213 50 20
  text "Idle Time:" 45, 10 237 50 20
  text "Away:" 46, 13 261 50 20
  text "Server:" 47, 13 287 50 20
  text "Status:" 48, 13 312 50 20
  edit "" 4, 70 47 170 20,read autohs
  edit "" 3, 70 73 170 20,read autohs
  edit "" 14, 180 100 60 20,autohs
  edit "" 21, 70 135 170 20,read autohs
  edit "" 22, 70 160 170 20,read autohs
  edit "" 23, 70 185 170 20,read autohs
  edit "" 24, 70 210 170 20,read autohs
  edit "" 25, 70 235 170 20,read autohs
  edit "" 26, 70 260 170 20,read autohs
  edit "" 27, 70 285 170 20,read autohs
  edit "" 28, 70 310 170 20,read autohs
  box "" 8, 68 39 174 30
  box "" 9, 68 65 174 30
  box "" 20, 1 -5 246 416
  box "" 33, 68 127 174 30
  box "" 34, 68 152 174 30
  box "" 35, 68 177 174 30
  box "" 36, 68 202 174 30
  box "" 37, 68 227 174 30
  box "" 38, 68 252 174 30
  box "" 39, 68 277 174 30
  box "" 49, 178 93 64 29
  box "" 50, 68 302 174 30
  halt
}

on 1:dialog:_queryacceptor:sclick:6:{ .set %querynickname.msg $$?="Please Enter Your Query Message Example: CTRL+K 12 Your Message Is Waiting Approval:" | .set %queryaccept.msg $$?="Please Enter Your Accept Message Example CTRL+K 12 Query Accepted!:" | .set %querydecline.msg $$?="Please Enter Your Decline Message CTRL+K 12 Query Rejected!:" | .echo -a 12S2ettings 12A2pplied! }
on 1:dialog:_queryacceptor:sclick:17:{ .unset %querynickname.msg | unset queryaccept.msg | unset querydecline.msg | .set %querynickname.msg 12A2utomessage: 12Y2our 12M2essage 12I2s 12W2aiting 12A2pproval.  | .set %queryaccept.msg 12Q2uery 12A2ccepted! | .set %querydecline.msg 12Q2uery 4R2ejected! | .echo -a  12S2ettings 12R2ESET! }
on *:dialog:_queryacceptor:sclick:5:{ echo -a 12A2utoMessage: %querynickname.msg | echo -a 12M2essage 12A2ccepted: %queryaccept.msg | echo -a 12M2essage 12R2ejected: %querydecline.msg }
on *:dialog:_queryacceptor:edit:14:{ %ignoretime = $did(14).text }

on *:DIALOG:_queryacceptor:sclick:18:{
  window -w %querynickname
  .msg %querynickname %queryaccept.msg  
  dialog -x _queryacceptor
  window -a %querynickname
  unset %querynickname
}

on *:DIALOG:_queryacceptor:sclick:19:{
  .msg %querynickname %querydecline.msg 
  dialog -x _queryacceptor 
  close -m %querynickname
  ignore -u $+ %ignoretime %querynickname
  unset %querynickname
}

on 1:dialog:_queryacceptor:sclick:1:{ if ($did(1) == On) .enable #queryacceptor | .did -h _queryacceptor 1 | .did -v _queryacceptor 2 | echo -a 12Q2uery 12A2cceptor - 12W2hois 12S2ystem 12O2n. }
on 1:dialog:_queryacceptor:sclick:2:{ if ($did(2) == Off) .disable #queryacceptor | .did -h _queryacceptor 2 | .did -v _queryacceptor 1 | echo -a 12Q2uery 12A2cceptor - 12W2hois 12S2ystem 12O2ff. }

on 1:dialog:_queryacceptor:sclick:*:{
  if ($did == 30) ctcp $did(_queryacceptor,21).text ping
  if ($did == 29) ctcp $did(_queryacceptor,21).text version
  if ($did == 32) ctcp $did(_queryacceptor,21).text time
  if ($did == 31) ctcp $did(_queryacceptor,21).text finger
}

Comments

(2) RSS

Go to Bottom

Comments: 795

mIRC Snippet: Whois Dialog & Query Acceptor | Blocker .
Posted on Dec 22, 2007 7:44 am

Well seems to work just fine.Cant see the themed colors to well on my black background maybe a color theme option,for the waiting message an accept an decline an the base messages,your colors are fine but your giving it for others use not all peoples preferences are the same don't even have to deviate from the bold first letter then regular size part of your theme,your choice there im just throwing stuff out there is all.Another thing i noticed is * Added Nemisis!*@* to ignore list for 10 secs <--- you must have never been query flooded before ignoring nicknames,maybe change or give an option to ignore a different mask or even just a host option stop them completely,course that in the case your around such things, i personally script most every thing to protect myself best i can.this is a nice script tho awesome lay out like the fact u can see all the info on the person an the message very well done on that.also i personally cant be pinged or versioned or fingered etc. i didn't code any thing to stop those functions my mirc just doesn't reply so i didn't get to check those functions out as well as i should but they did send the commands i just can't get a reply from myself(Seperate script).all in all a solid script very useful 8/10.`-.-�

IcE^__

Comments: 37

mIRC Snippet: Whois Dialog & Query Acceptor | Blocker .
Posted on Dec 22, 2007 9:03 am

Thank you for rating . simply I thought of creating this so as to shows in the user and the message from other user and it makes whois . I added also button for the messages settings. from that I believe however this addon it is very simple and it did not deserve for many points .

Whois Dialog & Query Acceptor | Blocker .

Introduction

Grab the Code

Comments

IcE^__

Contact

Sponsors

		Student Greece
Last seen: Jun 27, 2008 Profile Snippets (11) Images (1) Comments Received (37) Comments Submitted (37)