All pastes #579713 Raw Edit

Stuff

public text v1 · immutable
·published 2007-06-20 20:05 UTC
rendered paste body
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;#########Feel Free To Edit Script#########;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;#########Spoonadoon##########Dialog#######;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


menu * {
  -
  IRC ToolKit:/dialog -m cc cc | if (%cc.use == $null) did -a cc 42 This Dialog Has Been Used 0 Times Before. | if (%cc.use) did -a cc 42 This Dialog Has Been Used %cc.use Times Before. | inc %cc.use | if ($address(Spoonadoon,2)) did -a cc 44 Contact Spoonadoon. | did -a cc 2 %cc.chan | did -a cc 35 %cc.35 | did -a cc 36 %cc.36 | did -a cc 37 %cc.37 | did -a cc 38 %cc.38 | did -a cc 39 %cc.39 | did -a cc 40 %cc.40 | did -a cc 48 %cc.48 | did -a cc 49 Clear Variables
  -
}
alias ChannelControl {
  /dialog -m cc cc
}
dialog cc {
  title "IRC ToolKit"
  size -1 -1 550 485
  tab "Channel Modes", 52, 1 1 547 485 
  tab "IRC Help", 53

  text "Channel:", 1, 295 250 80 25, tab 52
  edit "", 2, 340 247 140 20, tab 52

  button "No Colours Allowed", 4, 5 30 140 25, tab 52
  button "Invite Only", 5, 5 55 140 25, tab 52
  button "Need To Be Registerd", 6, 5 80 140 25, tab 52
  button "Private", 7, 5 105 140 25, tab 52
  button "No External Messages", 8, 5 130 140 25, tab 52
  button "IRC Op's Only", 9, 5 155 140 25, tab 52
  button "Secret", 10, 5 180 140 25, tab 52
  button "Registerd Nicks Only", 11, 5 205 140 25, tab 52
  button "Op's Change Topic", 12, 5 230 140 25, tab 52
  button "Moderated", 13, 5 255 140 25, tab 52

  button "Colours Allowed", 14, 145 30 140 25, tab 52
  button "Don't Need Invite", 15, 145 55 140 25, tab 52
  button "AnyOne Can Speek", 16, 145 80 140 25, tab 52
  button "Come's Up In Searches", 17, 145 105 140 25, tab 52
  button "External Messages", 18, 145 130 140 25, tab 52
  button "Don't Need To Be IRC Op", 19, 145 155 140 25, tab 52
  button "Not Secret", 20, 145 180 140 25, tab 52
  button "AnyOne Can Join", 21, 145 205 140 25, tab 52
  button "AnyOne Can Change Topic", 22, 145 230 140 25, tab 52
  button "Not Moderated", 23, 145 255 140 25, tab 52

  button "Operator", 24, 5 280 140 25, tab 52
  button "Half-Operator", 25, 5 305 140 25, tab 52
  button "Voice", 26, 5 330 140 25, tab 52
  Button "De-Operator", 27, 145 280 140 25, tab 52
  Button "De-Half-Operator", 28, 145 305 140 25, tab 52
  button "De-Voice", 29, 145 330 140 25, tab 52
  button "Limit To", 30, 5 355 140 25, tab 52
  button "Remove Limit", 31, 145 355 140 25, tab 52
  button "Ban", 32, 5 380 140 25, tab 52
  button "Un-Ban", 33, 145 380 140 25, tab 52
  button "Kick", 34, 5 405 280 25, tab 52
  button "Set Topic", 47, 5 430 280 25, tab 52

  edit "", 35, 286 280 210 25, tab 52
  edit "", 36, 286 305 210 25, tab 52
  edit "", 37, 286 330 210 25, tab 52
  edit "", 38, 286 355 210 25, tab 52
  edit "", 39, 286 380 210 25, tab 52
  edit "", 40, 286 405 210 25, tab 52
  edit "", 48, 286 430 210 25, tab 52

  box "", 41, 295 30 200 200, tab 52

  text "", 42, 300 40 195 25, tab 52
  text "Welcome to Spoonadoon's New IRC ToolKit.", 43, 300 70 195 30, tab 52
  link "", 44, 300 100 150 25, tab 52
  text "Using 'Contact Spoonadoon' link means Spoonadoon is Online and clicking the link will notice him that you need help.", 45, 300 125 195 100, tab 52
  button "Close Dialog", 46, 300 200 190 25, cancel, tab 52
  button "", 49, 355 170 90 20, tab 52

  ; Updates ; ### ; Updates ; ### ; Updates ; ### ; Updates ;

  button "Mute Regulars", 50, 5 455 140 25, tab 52
  button "Un-Mute Regulars", 51, 145 455 140 25, tab 52

  ; IRC Help ; ### ; IRC Help ; ### ; IRC Help ;

  text "Register Your Own Channel", 54, 25 30 150 20, tab 53
  text "Channel:", 55, 15 50 80 20, tab 53
  text "Desired PassWord:", 56, 170 50 100 20, tab 53
  text "Description:", 57, 350 50 100 20, tab 53

  edit "", 58, 60 47 100 20, tab 53
  edit "", 59, 262 47 80 20, tab 53
  edit "", 60, 410 47 130 20, tab 53


  text "Register A NickName", 61, 25 90 150 20, tab 53
  text "NickName:", 62, 10 110 80 20, tab 53
  text "Desired PassWord:", 63, 170 110 100 20, tab 53
  text "E-Mail Address:", 64, 345 110 100 20, tab 53

  edit "", 65, 60 107 100 20, tab 53
  edit "", 66, 262 107 80 20, tab 53
  edit "", 67, 420 107 120 20, tab 53


  link "Join Official SwiftIRC Help Channel", 68, 25 140 200 20, tab 53

  text "Quick Kill On Your NickName", 69, 25 165 200 20, tab 53
  text "NickName:", 70, 10 190 80 20, tab 53
  text "PassWord:", 71, 170 190 80 20, tab 53
  button "Quick", 72, 345 187 50 20, tab 53 
  button "On", 73, 395 187 50 20, tab 53 
  button "Off", 74, 445 187 50 20, tab 53 

  edit "", 75, 60 187 100 20, tab 53
  edit "", 76, 222 187 100 20, tab 53


  button "Register Channel", 77, 225 140 100 20, tab 53
  button "Register NickName", 78, 325 140 100 20, tab 53


  button "Assign SwiftIRC Channel Bot To Your Channel", 79, 5 242 540 25, tab 53
  text "Invite a Friend to channel", 80, 15 290 200 25, tab 53
  text "NickName:", 81, 5 315 50 25, tab 53
  text "Channel:", 82, 200 315 50 25, tab 53
  button "Invite", 83, 500 312 40 20, tab 53

  edit "", 84, 60 312 120 20, tab 53
  edit "", 85, 255 312 120 20, tab 53 

  button "Find Out What Channel's your friends are on with Whois", 86, 5 350 540 25, tab 53
}
on *:dialog:cc:sclick:86: {
  /dialog -m whois whois
}
on *:dialog:cc:sclick:83: {
  /invite $did(84) $did(85)
}
on *:dialog:cc:sclick:79: {
  /dialog -m ccs ccs
  did -a ccs 2 $did(2)
}
on *:dialog:cc:sclick:80: {
  /dialog -a ccb ccb 
  did -a ccb 2 $did(2)
}
on *:dialog:cc:sclick:77: {
  /join $did(58)
  /cs register $did(58) $did(59) $did(60)
  /cs id $did(58) $did(59)
}
on *:dialog:cc:sclick:78: {
  /nick $did(65)
  /ns register $did(65) $did(66) $did(64)
  /ns id $did(65)
}
on *:dialog:cc:sclick:72: {
  /nick $did(75)
  /ns id $did(76)
  /ns set kill quick
}
on *:dialog:cc:sclick:73: {
  /nick $did(75)
  /ns id $did(76)
  /ns set kill on
}
on *:dialog:cc:sclick:74: {
  /nick $did(75)
  /ns id $did(76)
  /ns set kill off
}
on *:dialog:cc:sclick:68: {
  /join #IRCHelp
}

on *:dialog:cc:sclick:50: {
  /mode $did(2) +m 
}
on *:dialog:cc:sclick:51: {
  /mode $did(2) -m
}
on *:dialog:cc:sclick:49: {
  /unset %cc.*
}
on *:dialog:cc:edit:2: {
  set %cc.chan $did(2)
}
on *:dialog:cc:edit:35: {
  set %cc.35 $did(35)
}
on *:dialog:cc:edit:36: {
  set %cc.36 $did(36)
}
on *:dialog:cc:edit:37: {
  set %cc.37 $did(37)
}
on *:dialog:cc:edit:38: {
  set %cc.38 $did(38)
}
on *:dialog:cc:edit:39: {
  set %cc.39 $did(39)
}
on *:dialog:cc:edit:40: {
  set %cc.40 $did(40)
}
on *:dialog:cc:edit:48: {
  set %cc.48 $did(48)
}
on *:dialog:cc:sclick:4: { 
  /mode $did(2) +c
}
on *:dialog:cc:sclick:14: { 
  /mode $did(2) -c
}
on *:dialog:cc:sclick:5: { 
  /mode $did(2) +i
}
on *:dialog:cc:sclick:15: { 
  /mode $did(2) -i
}
on *:dialog:cc:sclick:6: { 
  /mode $did(2) +M
}
on *:dialog:cc:sclick:16: { 
  /mode $did(2) -M
}
on *:dialog:cc:sclick:7: { 
  /mode $did(2) +p
}
on *:dialog:cc:sclick:17: { 
  /mode $did(2) -p
}
on *:dialog:cc:sclick:8: { 
  /mode $did(2) +n
}
on *:dialog:cc:sclick:18: {  
  /mode $did(2) -n
}
on *:dialog:cc:sclick:9: { 
  /mode $did(2) +O
}
on *:dialog:cc:sclick:19: { 
  /mode $did(2) -O
}
on *:dialog:cc:sclick:10: { 
  /mode $did(2) +s
}
on *:dialog:cc:sclick:20: { 
  /mode $did(2) -s
}
on *:dialog:cc:sclick:11: { 
  /mode $did(2) +R
}
on *:dialog:cc:sclick:21: { 
  /mode $did(2) -R
}
on *:dialog:cc:sclick:12: { 
  /mode $did(2) +t
}
on *:dialog:cc:sclick:22: { 
  /mode $did(2) -t
}
on *:dialog:cc:sclick:13: { 
  /mode $did(2) +m
}
on *:dialog:cc:sclick:23: {  
  /mode $did(2) -m
}
on *:dialog:cc:sclick:24: { 
  /mode $did(2) +o $did(35)
}
on *:dialog:cc:sclick:27: { 
  /mode $did(2) -o $did(35)
}
on *:dialog:cc:sclick:25: { 
  /mode $did(2) +h $did(36)
}
on *:dialog:cc:sclick:28: {  
  /mode $did(2) -h $did(36)
}
on *:dialog:cc:sclick:26: { 
  /mode $did(2) +v $did(37) 
}
on *:dialog:cc:sclick:29: { 
  /mode $did(2) -v $did(37)
}
on *:dialog:cc:sclick:30: { 
  /mode $did(2) +l $did(38)
}
on *:dialog:cc:sclick:31: { 
  /mode $did(2) -l
}
on *:dialog:cc:sclick:32: { 
  /mode $did(2) +b $address($did(39),1) 
  /mode $did(2) +b $did(39)
}
on *:dialog:cc:sclick:33: { 
  /mode $did(2) -b $address($did(39),1)
  /mode $did(2) -b $did(39)
}
on *:dialog:cc:sclick:34: { 
  /kick $did(2) $did(40)
}
on *:dialog:cc:sclick:47: {  
  /topic $did(2) $did(48)
}
on *:dialog:cc:sclick:44: {
  /notice Spoonadoon $me is using your Channel Control. Please help $me and join $did(2) $+ .
}
dialog ccs {
  title "SwiftIRC Bot Assign To Channel"
  size -1 -1 710 500

  text "Channel:", 1, 15 15 80 25
  edit "", 2, 60 12 80 20
  box "", 3, 5 3 140 32
  text "Made By: Spoonadoon                Total Bots: 79", 4, 300 5 300 25
  button "Close", 5, 200 5 80 20, cancel

  button "X", 6, 5 40 140 25
  button "Y", 7, 5 65 140 25
  button "[-I_Love_Winni-]", 8, 5 90 140 25
  button "[-Kicker_Of_Noobs-]", 9, 5 115 140 25
  button "[-Ownage-]", 10, 5 140 140 25
  button "[-RuneScapeRealm-]", 11, 5 165 140 25
  button "[-TAD-]", 12, 5 190 140 25
  button "Ap", 13, 5 215 140 25
  button "ArPC", 14, 5 240 140 25
  button "BearBot", 15, 5 265 140 25
  button "BikeStealer", 16, 5 290 140 25
  button "BlAcKdRaGoN", 17, 5 315 140 25
  button "BlackRoy", 18, 5 340 140 25
  button "Bless", 19, 5 365 140 25
  button "BoarBot", 20, 5 390 140 25
  button "Cliffy", 21, 5 415 140 25
  button "CyberBot", 22, 5 440 140 25
  button "Dagannoth-King", 23, 5 465 140 25


  button "DarkSlayer", 24, 145 40 140 25
  button "Dingo", 25, 145 65 140 25
  button "Dr", 26, 145 90 140 25
  button "Dr_Evil", 27, 145 115 140 25
  button "Eagle", 28, 145 140 140 25
  button "EdgEyBot", 29, 145 165 140 25
  button "Endless", 30, 145 190 140 25
  button "EoS", 31, 145 215 140 25
  button "FGF", 32, 145 240 140 25
  button "FishServ", 33, 145 265 140 25
  button "GameFAQs", 34, 145 290 140 25
  button "GameZone", 35, 145 315 140 25
  button "GayBot", 36, 145 340 140 25
  button "Gieco", 37, 145 365 140 25
  button "Godly1`Services", 38, 145 390 140 25
  button "Gunthor", 39, 145 415 140 25
  button "Halo3", 40, 145 440 140 25
  button "HamishServ", 41, 145 465 140 25


  button "HC", 42, 285 40 140 25
  button "HeadBanger", 43, 285 65 140 25
  button "Hutch", 44, 285 90 140 25
  button "Hyperion", 45, 285 115 140 25
  button "IdleQuest", 46, 285 140 140 25
  button "iHalpServ", 47, 285 165 140 25
  button "IndoServ", 48, 285 190 140 25
  button "InfernalServ", 49, 285 215 140 25
  button "IQ420", 50, 285 240 140 25
  button "Jess", 51, 285 265 140 25
  button "KarlServ", 52, 285 290 140 25
  button "KizzyBot", 53, 285 315 140 25
  button "LameServ", 54, 285 340 140 25
  button "Lara", 55, 285 365 140 25
  button "LavaDragon", 56, 285 390 140 25
  button "LemonParty", 57, 285 415 140 25
  button "Melvin", 58, 285 440 140 25
  button "mIRC", 59, 285 465 140 25


  button "NeoSeeker", 60, 425 40 140 25
  button "NGoR", 61, 425 65 140 25
  button "Noobs", 62, 425 90 140 25
  button "Owned", 63, 425 115 140 25
  button "Pest-Control", 64, 425 140 140 25
  button "Pheonix", 65, 425 165 140 25
  button "PK", 66, 425 190 140 25
  button "Q", 67, 425 215 140 25
  button "Qwerty", 68, 425 240 140 25
  button "ReBirth", 69, 425 265 140 25
  button "Ren", 70, 425 290 140 25
  button "Res", 71, 425 315 140 25
  button "RupertServ", 72, 425 340 140 25
  button "snoozles", 73, 425 365 140 25
  button "TDS", 74, 425 390 140 25
  button "TheDarkLegend", 75, 425 415 140 25
  button "TotallyRune", 76, 425 440 140 25
  button "TubGirl", 77, 425 465 140 25


  button "UnoBot", 78, 565 40 140 25
  button "Vengence", 79, 565 65 140 25
  button "Void-Knight", 80, 565 90 140 25
  button "W", 81, 565 115 140 25
  button "Warcraft", 82, 565 140 140 25
  button "WillServ", 83, 565 165 140 25
  button "Worshiper", 84, 565 190 140 25


  box "", 85, 566 211 139 279
  text "You may Change this dialog around to how you like it, but yet do not change the 'Made By:' name to yours and Re-Post, this dialog has cost me alot of time to create and I don't really want people copy, pasting and claiming it that they made it. ThankYou. Invite A bot by placing channel in top, and clicking on the bot you would like.", 86, 571 221 130 200
}

on *:dialog:ccs:sclick:6: {
  /bs assign $did(2) $did(6)
}
on *:dialog:ccs:sclick:7: {
  /bs assign $did(2) $did(7)
}
on *:dialog:ccs:sclick:8: {
  /bs assign $did(2) $did(8)
}
on *:dialog:ccs:sclick:9: {
  /bs assign $did(2) $did(8)
}
on *:dialog:ccs:sclick:10: {
  /bs assign $did(2) $did(10)
}
on *:dialog:ccs:sclick:11: {
  /bs assign $did(2) $did(11)
}
on *:dialog:ccs:sclick:12: {
  /bs assign $did(2) $did(12)
}
on *:dialog:ccs:sclick:13: {
  /bs assign $did(2) $did(13)
}
on *:dialog:ccs:sclick:14: {
  /bs assign $did(2) $did(14)
}
on *:dialog:ccs:sclick:15: {
  /bs assign $did(2) $did(15)
}
on *:dialog:ccs:sclick:16: {
  /bs assign $did(2) $did(16)
}
on *:dialog:ccs:sclick:17: {
  /bs assign $did(2) $did(17)
}
on *:dialog:ccs:sclick:18: {
  /bs assign $did(2) $did(18)
}
on *:dialog:ccs:sclick:19: {
  /bs assign $did(2) $did(19)
}
on *:dialog:ccs:sclick:20: {
  /bs assign $did(2) $did(20)
}
on *:dialog:ccs:sclick:21: {
  /bs assign $did(2) $did(21)
}
on *:dialog:ccs:sclick:22: {
  /bs assign $did(2) $did(22)
}
on *:dialog:ccs:sclick:23: {
  /bs assign $did(2) $did(23)
}
on *:dialog:ccs:sclick:24: {
  /bs assign $did(2) $did(24)
}
on *:dialog:ccs:sclick:25: {
  /bs assign $did(2) $did(25)
}
on *:dialog:ccs:sclick:26: {
  /bs assign $did(2) $did(26)
}
on *:dialog:ccs:sclick:27: {
  /bs assign $did(2) $did(27)
}
on *:dialog:ccs:sclick:28: {
  /bs assign $did(2) $did(28)
}
on *:dialog:ccs:sclick:29: {
  /bs assign $did(2) $did(29)
}
on *:dialog:ccs:sclick:30: {
  /bs assign $did(2) $did(30)
}
on *:dialog:ccs:sclick:31: {
  /bs assign $did(2) $did(31)
}
on *:dialog:ccs:sclick:32: {
  /bs assign $did(2) $did(32)
}
on *:dialog:ccs:sclick:33: {
  /bs assign $did(2) $did(33)
}
on *:dialog:ccs:sclick:34: {
  /bs assign $did(2) $did(34)
}
on *:dialog:ccs:sclick:35: {
  /bs assign $did(2) $did(35)
}
on *:dialog:ccs:sclick:36: {
  /bs assign $did(2) $did(36)
}
on *:dialog:ccs:sclick:37: {
  /bs assign $did(2) $did(37)
}
on *:dialog:ccs:sclick:38: {
  /bs assign $did(2) $did(38)
}
on *:dialog:ccs:sclick:39: {
  /bs assign $did(2) $did(39)
}
on *:dialog:ccs:sclick:40: {
  /bs assign $did(2) $did(40)
}
on *:dialog:ccs:sclick:41: {
  /bs assign $did(2) $did(41)
}
on *:dialog:ccs:sclick:42: {
  /bs assign $did(2) $did(42)
}
on *:dialog:ccs:sclick:43: {
  /bs assign $did(2) $did(43)
}
on *:dialog:ccs:sclick:44: {
  /bs assign $did(2) $did(44)
}
on *:dialog:ccs:sclick:45: {
  /bs assign $did(2) $did(45)
}
on *:dialog:ccs:sclick:46: {
  /bs assign $did(2) $did(46)
}
on *:dialog:ccs:sclick:47: {
  /bs assign $did(2) $did(47)
}
on *:dialog:ccs:sclick:48: {
  /bs assign $did(2) $did(48)
}
on *:dialog:ccs:sclick:49: {
  /bs assign $did(2) $did(49)
}
on *:dialog:ccs:sclick:50: {
  /bs assign $did(2) $did(50)
}
on *:dialog:ccs:sclick:51: {
  /bs assign $did(2) $did(51)
}
on *:dialog:ccs:sclick:52: {
  /bs assign $did(2) $did(52)
}
on *:dialog:ccs:sclick:53: {
  /bs assign $did(2) $did(53)
}
on *:dialog:ccs:sclick:54: {
  /bs assign $did(2) $did(54)
}
on *:dialog:ccs:sclick:55: {
  /bs assign $did(2) $did(55)
}
on *:dialog:ccs:sclick:56: {
  /bs assign $did(2) $did(56)
}
on *:dialog:ccs:sclick:57: {
  /bs assign $did(2) $did(57)
}
on *:dialog:ccs:sclick:58: {
  /bs assign $did(2) $did(58)
}
on *:dialog:ccs:sclick:59: {
  /bs assign $did(2) $did(59)
}
on *:dialog:ccs:sclick:60: {
  /bs assign $did(2) $did(60)
}
on *:dialog:ccs:sclick:61: {
  /bs assign $did(2) $did(61)
}
on *:dialog:ccs:sclick:62: {
  /bs assign $did(2) $did(62)
}
on *:dialog:ccs:sclick:63: {
  /bs assign $did(2) $did(63)
}
on *:dialog:ccs:sclick:64: {
  /bs assign $did(2) $did(64)
}
on *:dialog:ccs:sclick:65: {
  /bs assign $did(2) $did(65)
}
on *:dialog:ccs:sclick:66: {
  /bs assign $did(2) $did(66)
}
on *:dialog:ccs:sclick:67: {
  /bs assign $did(2) $did(67)
}
on *:dialog:ccs:sclick:68: {
  /bs assign $did(2) $did(68)
}
on *:dialog:ccs:sclick:69: {
  /bs assign $did(2) $did(69)
}
on *:dialog:ccs:sclick:70: {
  /bs assign $did(2) $did(70)
}
on *:dialog:ccs:sclick:71: {
  /bs assign $did(2) $did(71)
}
on *:dialog:ccs:sclick:72: {
  /bs assign $did(2) $did(72)
}
on *:dialog:ccs:sclick:73: {
  /bs assign $did(2) $did(73)
}
on *:dialog:ccs:sclick:74: {
  /bs assign $did(2) $did(74)
}
on *:dialog:ccs:sclick:75: {
  /bs assign $did(2) $did(75)
}
on *:dialog:ccs:sclick:76: {
  /bs assign $did(2) $did(76)
}
on *:dialog:ccs:sclick:77: {
  /bs assign $did(2) $did(77)
}
on *:dialog:ccs:sclick:78: {
  /bs assign $did(2) $did(78)
}
on *:dialog:ccs:sclick:79: {
  /bs assign $did(2) $did(79)
}
on *:dialog:ccs:sclick:80: {
  /bs assign $did(2) $did(80)
}
on *:dialog:ccs:sclick:81: {
  /bs assign $did(2) $did(81)
}
on *:dialog:ccs:sclick:82: {
  /bs assign $did(2) $did(82)
}
on *:dialog:ccs:sclick:83: {
  /bs assign $did(2) $did(83)
}
on *:dialog:ccs:sclick:84: {
  /bs assign $did(2) $did(84)
}
dialog whois {
  title "Whois" 
  size -1 -1 200 450

  text "Made By: Spoonadoon", 1, 5 5 150 20
  text "IRC Name:", 2, 5 25 80 20
  edit "", 3, 60 23 100 20

  text "Channels", 4, 5 60 100 20
  text "", 5, 5 80 200 20
  text "", 6, 5 100 200 20
  text "", 7, 5 120 200 20
  text "", 8, 5 140 200 20
  text "", 9, 5 160 200 20
  text "", 10, 5 180 200 20
  text "", 11, 5 200 200 20
  text "", 12, 5 220 200 20
  text "", 13, 5 240 200 20
  text "", 14, 5 260 200 20
  text "", 15, 5 280 200 20
  text "", 16, 5 300 200 20
  text "", 17, 5 320 200 20
  text "", 18, 5 340 200 20
  text "", 19, 5 360 200 20
  text "", 20, 5 380 200 20

  text "Server:", 21, 5 410 60 20

  text "", 23, 50 410 300 20


  button "Whois", 25, 150 1 48 20
}
on *:dialog:whois:sclick:25: {
  set %whois $did(3)
  did -a whois 5
  did -a whois 6
  did -a whois 7
  did -a whois 8
  did -a whois 9
  did -a whois 10
  did -a whois 11
  did -a whois 12
  did -a whois 13
  did -a whois 14
  did -a whois 15
  did -a whois 16
  did -a whois 17
  did -a whois 18
  did -a whois 19
  did -a whois 23
  enable #GroupRaw 
  /whois %whois
} 
#GroupRaw off
raw 319:*:{ 
  if (!%whois) { halt } 
  else { 
    if ($3) did -a whois 5 1.) $remove($3,@,%,+)
    if ($4) did -a whois 6 2.) $remove($4,@,%,+)
    if ($5) did -a whois 7 3.) $remove($5,@,%,+)
    if ($6) did -a whois 8 4.) $remove($6,@,%,+)
    if ($7) did -a whois 9 5.) $remove($7,@,%,+)
    if ($8) did -a whois 10 6.) $remove($8,@,%,+)
    if ($9) did -a whois 11 7.) $remove($9,@,%,+)
    if ($10) did -a whois 12 8.) $remove($10,@,%,+)
    if ($11) did -a whois 13 9.) $remove($11,@,%,+)
    if ($12) did -a whois 14 10.) $remove($12,@,%,+)
    if ($13) did -a whois 15 11.) $remove($13,@,%,+)
    if ($14) did -a whois 16 12.) $remove($14,@,%,+)
    if ($15) did -a whois 17 13.) $remove($15,@,%,+)
    if ($16) did -a whois 18 14.) $remove($16,@,%,+)
    if ($17) did -a whois 19 15.) $remove($17,@,%,+)
    disable #GroupRaw 
    enable #GroupRaw 
    /whois %whois 
  } 
} 
#GroupRaw off 
raw 312:*:{ 
  if (!%whois) { halt } 
  else { 
    did -a whois 23 $3
    disable #GroupRaw 
  } 
}