Untitled

dialog lus {

  title "List Users On Server"

  size -1 -1 132 116

  option dbu

  box "User List", 1, 2 2 58 63

  list 2, 4 11 54 51, size vsbar

  box "User's IP", 3, 62 2 68 63

  list 4, 65 11 63 51, size vsbar

  box "Functions", 5, 2 83 128 31

  button "Kill", 6, 4 91 40 10, flat

  button "Zline", 7, 46 91 40 10, flat

  button "Notice", 8, 88 91 40 10, flat

  button "Clipboard", 9, 46 102 40 10, flat

  button "Refresh", 10, 88 102 40 10, flat

  text "", 11, 4 73 54 7, center

  box "User Count", 12, 2 65 58 17

  box "Date/Time", 13, 62 65 68 17

  text "", 14, 65 73 63 7, center

  button "List Chan", 15, 4 102 40 10, flat

dialog lus2 {

  title "ChanList"

  size -1 -1 79 117

  option dbu

  box "Channel's User Is On", 1, 2 2 75 113

  list 2, 4 11 71 39, size

  button "Close", 3, 4 59 35 10, flat cancel

  text "Text Label", 4, 4 51 70 7, center

  button "Join Chan", 5, 40 59 35 10, flat

  button "Kick", 6, 4 70 35 10, flat

  button "Ban", 7, 40 70 35 10, flat

  button "+/- q", 8, 4 81 35 10, flat

  button "+/- a", 9, 40 81 35 10, flat

  button "+/- o", 10, 4 92 35 10, flat

  button "+/- h", 11, 40 92 35 10, flat

  button "+/- v", 12, 4 103 35 10, flat

  button "Insult Ban", 13, 40 103 35 10, flat

on *:load: {

  echo 12 -a You Have Just Loaded Napa182's User Lister

  echo 12 -a A Script0rs Inc. Production

  echo -a 14,1(14,1¯15,1¯0,1¯0,1º $+($chr(171),$chr(164),$chr(88),$chr(167),$chr(199),$chr(174),$chr(238),$chr(254),$chr(116),$chr(48),$chr(174),$chr(167),$chr(88),$chr(164),$chr(187)) º0,1¯15,1¯14,1¯) $+ $chr(153)

on *:snotice:*connecting*:{ if ($dialog(lus)) { did -r lus 2,4,11 | did -b lus 6-9,15 | trace } }

on *:quit:{ if ($dialog(lus)) { did -r lus 2,4,11 | did -b lus 6-9,15 | trace } }

alias -l lus { $iif($count($usermode,N,O,C,A,a,o),dialog $iif($dialog(lus),-v,-md) lus lus,noop $input(You Need To Be IRCOP Or Admin To Use This Script,uho,Error)) }

alias -l lus2 { dialog $iif($dialog(lus2),-v,-md) lus2 lus2 }

alias -l lus3 { whois $did(lus,2).seltext | did -r lus2 2,4 | did -a lus2 4 User: $did(lus,2).seltext | did -b lus2 5-13 }

alias -l lus4 { return $remove($did(lus2,2).seltext,&,+,%,@,~,!,?) }

alias -l lus5 { return $did(lus,2).seltext }

alias -l lusdatetime { did -ra lus 14 $time(mmm ddd d h:nn:ss tt) }

menu menubar,channel {

  .User Lister:{ lus }

on *:dialog:lus:close:0:{ .timerlusdatetime off  }

on *:dialog:lus:init:0:{ did -b lus 6-9,15 | did -a lus 14 $time(mmm ddd d h:nn:ss tt) | if ($timer(lusdatetime)) { haltdef } | else { .timerlusdatetime 0 1 lusdatetime } | trace }

on *:dialog:lus:sclick:*: { if ($did == 2) || ($did == 4) { did -c lus 2,4 $did(lus,$did).sel | did -e lus 6-9,15 | if ($dialog(lus2)) { dialog -x lus2 lus2 } }

  if ($did = 6) { if ($input(Are You Sure You Want To Kill User $did(2).seltext,uqy,Kill User $did(2).seltext $+ ?)) { kill $did(2).seltext Killed } }

  if ($did = 7) { if ($input(Are You Sure You Want To Zline User $did(2).seltext,uqy,Zline User $did(2).seltext $+ ?)) { Gzline *@ $+ $did(4).seltext 0 Zlined Bitch! } }

  if ($did = 8) { var %lusnotice $input(Enter Notice To Send To $did(2).seltext,uiye,Send Notice) | if (%lusnotice) { .Notice $did(2).seltext %lusnotice | noop $input(Notice Has Been Sent To $did(2).seltext,uio,Notice Sent) } }

  if ($did = 9) { clipboard $did(2).seltext $did(4).seltext }

  if ($did = 10) { did -r lus 2,4,11 | did -b lus 6-9,15 | trace | if ($dialog(lus2)) { dialog -x lus2 lus2 } }

  if ($did = 15) { $lus2 | $lus3 }

on *:dialog:lus2:init:0:{ did -b $dname 5-13 }

on *:dialog:lus2:sclick:*: {

  if ($did = 2) { did -e $dname 5-13 }

  if ($did = 5) {

    if (!$did(2).seltext) {

    noop $input(Please Highlite A Channel To Join,uho,Error) }

    else { join $lus4 }

  }

  if ($did = 6) { kick $lus4 $lus5 Cya | $lus3 }

  if ($did = 7) { ban -ku30 $lus4 $lus5 2 30 second ban | $lus3 }

  if ($did = 8) { mode $lus4 $iif($left($nick($lus4,$lus5).pnick,1) = ~,-q,+q) $lus5 | $lus3 }

  if ($did = 9) { mode $lus4 $iif($left($nick($lus4,$lus5).pnick,1) = &,-a,+a) $lus5 | $lus3 }

  if ($did = 10) { mode $lus4 $iif($left($nick($lus4,$lus5).pnick,1) = @,-o,+o) $lus5 | $lus3 }

  if ($did = 11) { mode $lus4 $iif($left($nick($lus4,$lus5).pnick,1) = %,-h,+h) $lus5 | $lus3 }

  if ($did = 12) { mode $lus4 $iif($left($nick($lus4,$lus5).pnick,1) = +,-v,+v) $lus5 | $lus3 }

  if ($did = 13) { if ($sock(baninsult)) sockclose baninsult | .sockopen baninsult www.randominsults.net 80 | sockmark baninsult $lus4 $lus5 2 }

raw *:*: {

  if ($dialog(lus)) {

    if ($istok(311 379 307 312 335 317 318 206 310 313 301,$numeric,32)) { haltdef }

    elseif ($istok(205 204,$numeric,32)) { did -a lus 2 $4 | whois $4 | haltdef }

    elseif ($numeric = 209 && $3 = clients) { did -a lus 11 $4 User's Online | haltdef }

    elseif ($numeric == 378 && $dialog(lus2)) { haltdef }

    elseif ($numeric == 378) { did -a lus 4 $7 | haltdef }

    elseif ($dialog(lus2) && $numeric = 319) { didtok lus2 2 32 $3- | haltdef }

    else { haltdef }

  }

on *:sockopen:baninsult: {

  sockwrite -nt $sockname GET / HTTP/1.1

  sockwrite -nt $sockname Host: $+(www.randominsults.net,$str($crlf,2))

on *:sockread:baninsult: {

  var %baninsult | sockread %baninsult

  if ($regex(%baninsult,/<i>(.+)<\/i>/)) { ban -k $sock(baninsult).mark $regml(1) | .sockclose baninsult | $lus3 }