Admin/ircop user lister

mIRC Code

+ 4 likes

Please Register to submit score.

Average Score	9.5
Scores Submitted	13
Date Added	May 03, 2008
Last Updated	Sep 06, 2008
Tags	admin dialog ircop list user

Introduction

Ok what this does is lists the users and ip's on the server you admin or ircop at. just another way to help run ur server and know who's on. You have to be admin or ircop to use this. this is also made for ircd servers. Copy/paste into a new remote. To open right click in a channel of in ur menubar..

il still be upgrading this every so often, but for now enjoy..

Grab the Code

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 73
  option dbu
  box "Channel's User Is On", 1, 2 2 75 69
  list 2, 4 11 71 39, size vsbar
  button "Close", 3, 4 59 35 10, flat cancel
  text "", 4, 4 51 70 7, center
  button "Join Chan", 5, 40 59 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 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 lus2 { dialog $iif($dialog(lus2),-v,-md) lus2 lus2 }
menu menubar,channel {
  .User Lister:{ lus }
}
alias lusdatetime { did -ra lus 14 $time(mmm ddd d h:nn:ss tt) }
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 | whois $did(2).seltext | did -r lus2 2,4 | did -a lus2 4 User: $did(2).seltext }
}
on *:dialog:lus2:sclick:*: { if ($did == 5) { if (!$did(2).seltext) { noop $input(Please Highlite A Channel To Join,uho,Error) } | else { join $remove($did(2).seltext,&,+,%,@,~,!,?) } } }
raw *:*: {
  if ($dialog(lus)) {
    if ($istok(311 379 307 312 335 317 318 206 310 313 301,$numeric,32)) { haltdef }
    if ($istok(205 204,$numeric,32)) { did -a lus 2 $4 | whois $4 | haltdef }
    if ($numeric == 209) { if ($3 == clients) { did -a lus 11 $4 User's Online | haltdef } }
    if ($numeric == 378) && ($dialog(lus2)) { haltdef }
    if ($numeric == 378) { did -a lus 4 $7 | haltdef }
    if ($dialog(lus2)) && ($numeric == 319) { didtok lus2 2 32 $3- | haltdef }
    else { haltdef }
  }
}

Comments

(17) RSS

Go to Bottom

Comments: 1,366

mIRC Snippet: Admin/ircop user lister
Posted on May 7, 2008 8:42 pm

SEE I CARE even tho i cant use it cause im not aDMIN on a IrcD server ffs but this pwnz i dont have to test it lawl i can read the code these twat don't know wat good coding is they pass this up to test or there aren't aNy admin ircops on ircD servs around hawkee =/ what ever the case its still a good code ima rate it a TEN jp i cant yanno but its a 8 fo sho.`-.-´

Scakk

Comments: 237

mIRC Snippet: Admin/ircop user lister
Posted on May 7, 2008 9:23 pm

The only issue I have is that it resets the list every time a person joins the network on any server. Perhaps have a way to set it for just the server you are on. Another words only update list if the connect to the server you are on. Also may want to add a way to stop the updating if spam bots attack as that would make the dialog open and close repeatedly. Other than that pretty good.

napa182

Comments: 1,128

mIRC Snippet: Admin/ircop user lister
Posted on May 7, 2008 9:27 pm

well it wont auto open the dialog when people join, and it only updates if you have the dialog open, but i do get what you are saying.

ChunkieMonkey

Comments: 138

mIRC Snippet: Admin/ircop user lister
Posted on Aug 24, 2008 4:01 pm

Umm... EL... I'm an IRCop..... But nice script (obv)

Eugenio

Comments: 1,079

mIRC Snippet: Admin/ircop user lister
Posted on Sep 9, 2008 1:28 pm

rofl @ chunkeh monkeh being IRCop, gawd halp that server
ffs
anyhow steve make me one for chatspace ffs
/me flutters eyelashes

napa182

Comments: 1,128

mIRC Snippet: Admin/ircop user lister
Posted on Sep 9, 2008 1:33 pm

um i guess i can do that.

Eugenio

Comments: 1,079

mIRC Snippet: Admin/ircop user lister
Posted on Sep 9, 2008 1:35 pm

thanks man

napa182

Comments: 1,128

mIRC Snippet: Admin/ircop user lister
Posted on Sep 9, 2008 7:10 pm

ok here it is for chatspace

Code:

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 "K-line", 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 73
option dbu
box "Channel's User Is On", 1, 2 2 75 69
list 2, 4 11 71 39, size vsbar
button "Close", 3, 4 59 35 10, flat cancel
text "", 4, 4 51 70 7, center
button "Join Chan", 5, 40 59 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)
}
alias lus { $iif($countcs($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 lus2 { dialog $iif($dialog(lus2),-v,-md) lus2 lus2 }
menu menubar,channel {
.User Lister:{ lus }
}
alias lusdatetime { did -ra lus 14 $time(mmm ddd d h:nn:ss tt) }
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 | lusers }
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?)) { kill $did(2).seltext Killed } }
if ($did == 7) { if ($input(Are You Sure You Want To K-line User $did(2).seltext,uqy,K-line User?)) { Kline $+(*,$did(4).seltext) 0 K-lined 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 | lusers | if ($dialog(lus2)) { dialog -x lus2 lus2 } }
if ($did == 15) { lus2 | whois $did(2).seltext | did -r lus2 2,4 | did -a lus2 4 User: $did(2).seltext }
}
on *:dialog:lus2:sclick:*: {
if ($did == 5) {
if (!$did(2).seltext) { noop $input(Please Highlite A Channel To Join,uho,Error) }
else { join $remove($did(2).seltext,&,+,%,@,~,!,?) }
}
}
raw *:*: {
if ($dialog(lus)) {
if ($istok(311 379 307 312 335 317 318 206 310 313 301 251 252 254 265,$numeric,32)) { haltdef }
if ($istok(205 204,$numeric,32)) { did -a lus 2 $remove($left($4,$pos($4,$chr(91),1)),$chr(91)) | did -a lus 4 $remove($mid($4,$calc($pos($4,@,1) + 0),$calc($len($4))),$chr(93)) | haltdef }
if ($numeric == 255) { did -a lus 11 $4 User's Online | haltdef }
if ($dialog(lus2)) && ($numeric == 319) { didtok lus2 2 32 $3- | haltdef }
}
}
on *:snotice:*connecting*:{ if ($dialog(lus)) { did -r lus 2,4,11 | did -b lus 6-9,15 | trace | lusers } }
on *:quit:{ if ($dialog(lus)) { did -r lus 2,4,11 | did -b lus 6-9,15 | trace | lusers } }

Eugenio

Comments: 1,079

mIRC Snippet: Admin/ircop user lister
Posted on Sep 9, 2008 7:19 pm

Thanks Steve
/me rates 9 ;o

TheWhistler

Comments: 12

mIRC Snippet: Admin/ircop user lister
Posted on Sep 9, 2008 7:55 pm

looks good to me and i'm a NetAdmin, havent tried it out but it works ok for now

RaGnar

Comments: 1

mIRC Snippet: Admin/ircop user lister
Posted on Sep 9, 2008 11:02 pm

Hello, im a oper on Galaxynet, is it possible to do so for the network im in? a dumb qnt though. nice one.

Calliope

Comments: 26

mIRC Snippet: Admin/ircop user lister
Posted on Sep 10, 2008 12:10 am

this is gonna come in handy eh
lol and EW @ poppet fluttering his lashes at you for a script ;\ imma test this out now all i need are some victims...oh EL dahlin...

Comments: 1,366

mIRC Snippet: Admin/ircop user lister
Posted on Sep 10, 2008 1:38 am

O_O''

Comments: 1,366

mIRC Snippet: Admin/ircop user lister
Posted on Sep 10, 2008 9:47 am

Couple of things steve on the CS code redo.Your missing a ) bracket on line 54 and 55 wich wont allow the kill and k-line to fire.Also when it updates wen a user quits or connects he whole dialog refreshes i d opt to just have the lists them sleves refresh so you dont have like say on a high traffic server/network the damn dialog popin up every 20 secs or what ever also maybe add a $input box for a optional reason for both the kill and k-line and maybe even a option for a timed banns.Also like to see an addition for removing k-lines;p and even addin shuns,other then thats its all peachy ^_^.`-.-´

:EDit:: maybe evena blacklist option ;p

Eugenio

Comments: 1,079

mIRC Snippet: Admin/ircop user lister
Posted on Sep 10, 2008 9:55 am

Also when it asks you if your sure you want to kill/kline ask for a reason.
apart from that I love this code and think Dans ideas are really good ;o (yes its a first ;x)
thanks steve

napa182

Comments: 1,128

mIRC Snippet: Admin/ircop user lister
Posted on Sep 10, 2008 10:50 am

well like i said on the server i didnt test the kill nore the kline and as for the other part if you want it like that then do it ur self and this script is not ment to keep the dialog open ffs

Eugenio

Comments: 1,079

mIRC Snippet: Admin/ircop user lister
Posted on Sep 10, 2008 12:04 pm

/me rolls

Admin/ircop user lister

Introduction

Grab the Code

Comments

napa182

My Snippet Tags

Contact

Friends (40)

Sponsors

		/server irc.EzzyChat.com or /server irc.ChatScape.net California ÎÇ ×Ç ÑÎ KÅ
Last seen: Oct 06, 2008 Profile \| Website Likes (4) Friends (40) Snippets (44) Images (2) Comments Received (350) Comments Submitted (1128) Forum Posts (152)