mIRC Home    About    Download    Register    News    Help

Print Thread
#16205 20/03/03 11:51 PM
Joined: Mar 2003
Posts: 437
M
MTech Offline OP
Fjord artisan
OP Offline
Fjord artisan
M
Joined: Mar 2003
Posts: 437
(_D3m0n_ ) or anyone:
in my custom nicklist i get multiple listings of names , because people get oped, and then voiced, so there are two mtech's one op & one voice.
i want to take the op and list it, and get rid of the voice.

so... i want to take the higher of the two modes

op voice hop regular
...

#16206 21/03/03 12:30 AM
Joined: Dec 2002
Posts: 1,527
_
Hoopy frood
Offline
Hoopy frood
_
Joined: Dec 2002
Posts: 1,527
the first thing in the fillnicklist alias i gave to u neds to be did -ra dialogname to clear the list and start it anew rather than just adding to it
my first thing in the fillnicklis is to add the channels count to the top of the list
here is exactly what ive got for mine
Code:
alias fillnicklist {
  if %nicklist == On {
    did -ra _nicklist 1 1 Chatters %countnicks
    %sn = 1
    if $nick($chan($active),%sn,a) isop $chan($active) && $nick($chan($active),%sn,a) == _D3m0n_ { did -a _nicklist 1 0 + 7 0 0 $nick($chan($active),%sn,a) | goto one }
    if ($istok(%Away.Nicks,$nick($chan($active),%sn,a),32) == $true) { did -a _nicklist 1 0 + 6 0 0 $nick($chan($active),%sn,a) | goto one }
    if $nick($chan($active),%sn,a) isreg $chan($active) { did -a _nicklist 1 0 + 1 0 0 $nick($chan($active),%sn,a) }
    if $nick($chan($active),%sn,a) isop $chan($active) { did -a _nicklist 1 0 + 2 0 0 $nick($chan($active),%sn,a) }
    if $nick($chan($active),%sn,a) ishop $chan($active) { did -a _nicklist 1 0 + 3 0 0 $nick($chan($active),%sn,a) }
    if $nick($chan($active),%sn,a) isvoice $chan($active) { did -a _nicklist 1 0 + 4 0 0 $nick($chan($active),%sn,a) }
    if $nick($chan($active),%sn,a) isowner $chan($active) { did -a _nicklist 1 0 + 5 0 0 $nick($chan($active),%sn,a) }
  }
  :one
  %sn = 2
  while ( $nick($chan($active),%sn,a) != $null ) {
    if $nick($chan($active),%sn,a) isop $chan($active) && $nick($chan($active),%sn,a) == _D3m0n_ { did -a _nicklist 1 0 + 7 0 0 $nick($chan($active),%sn,a) | goto two }
    if ($istok(%Away.Nicks,$nick($chan($active),%sn,a),32) == $true ) { did -a _nicklist 1 0 + 6 0 0 $nick($chan($active),%sn,a) | goto two } 
    if $nick($chan($active),%sn,a) isreg $chan($active) { did -a _nicklist 1 0 + 1 0 0 $nick($chan($active),%sn,a) }
    if $nick($chan($active),%sn,a) isop $chan($active) { did -a _nicklist 1 0 + 2 0 0 $nick($chan($active),%sn,a) }
    if $nick($chan($active),%sn,a) ishop $chan($active) { did -a _nicklist 1 0 + 3 0 0 $nick($chan($active),%sn,a) }
    if $nick($chan($active),%sn,a) isvoice $chan($active) { did -a _nicklist 1 0 + 4 0 0 $nick($chan($active),%sn,a) }
    if $nick($chan($active),%sn,a) isowner $chan($active) { did -a _nicklist 1 0 + 5 0 0 $nick($chan($active),%sn,a) }
    :two
    inc %sn
  }
}


now if u dont want to add a line like that above your chatters simply change the first section to all -ra instead of -a and remove the top line add command


D3m0nnet.com
#16207 21/03/03 12:39 AM
Joined: Mar 2003
Posts: 437
M
MTech Offline OP
Fjord artisan
OP Offline
Fjord artisan
M
Joined: Mar 2003
Posts: 437
thats not the problem... it removes 1st

when i join a channel if i get a op & voice then there will be 2 me's
@Mtech89
+Mtec89

i want to know how to remove
+Mtec89 and keep
@Mtec89
while keeping both @ and + modes

Last edited by MTech; 21/03/03 12:40 AM.
#16208 21/03/03 01:18 AM
Joined: Dec 2002
Posts: 1,527
_
Hoopy frood
Offline
Hoopy frood
_
Joined: Dec 2002
Posts: 1,527
paste ur code so i can see it please?


D3m0nnet.com
#16209 21/03/03 03:19 AM
Joined: Mar 2003
Posts: 437
M
MTech Offline OP
Fjord artisan
OP Offline
Fjord artisan
M
Joined: Mar 2003
Posts: 437
Code:
 
alias mdx_fullpath { return $+(",C:\mIRC\mdx\mdx.dll,") }
alias mdx { dll $mdx_fullpath $1- }
alias mdxinit {
  dll $mdx_fullpath SetMircVersion $version
  dll $mdx_fullpath MarkDialog $dname
}
dialog nicklist {
  title "#Channel"
  size 690 68 105 459
  option pixels
  icon ico\ico.ico, 0
  list 1, 1 0 104 409, size
  button "Ok", 2, -1 -1 1 1, ok
  button "+@", 3, 1 410 24 24
  button "-@", 4, 26 410 24 24
  button "+V", 5, 51 410 24 24
  button "-V", 6, 76 410 24 24
  button "ban", 7, 1 434 24 24
  button "-ban", 8, 26 434 24 24
  button "ign", 9, 51 434 24 24
  button "-ign", 10, 76 434 24 24
}
on *:DIALOG:nicklist:sclick:3: {
  %sn = 1  while ( $did(1,$did(1,%sn).sel).text != $null ) {
    mode $active +o $remove($did(1,$did(1,%sn).sel).text,.,@,+,%,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 )
    %sn = %sn + 1
  }
}
on *:DIALOG:nicklist:sclick:4: {
  %sn = 1  while ( $did(1,$did(1,%sn).sel).text != $null ) {
    mode $active -o $remove($did(1,$did(1,%sn).sel).text,.,@,+,%,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 )
    %sn = %sn + 1
  }
}
on *:DIALOG:nicklist:sclick:5: {
  %sn = 1  while ( $did(1,$did(1,%sn).sel).text != $null ) {
    mode $active +v $remove($did(1,$did(1,%sn).sel).text,.,@,+,%,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 )
    %sn = %sn + 1
  }
}
on *:DIALOG:nicklist:sclick:6: {
  %sn = 1  while ( $did(1,$did(1,%sn).sel).text != $null ) {
    mode $active -v $remove($did(1,$did(1,%sn).sel).text,.,@,+,%,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 )
    %sn = %sn + 1
  }
}
on *:DIALOG:nicklist:sclick:7: {
  %sn = 1  while ( $did(1,$did(1,%sn).sel).text != $null ) {
    mode $active -ovh $remove($did(1,$did(1,%sn).sel).text,.,@,+,%,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 )
    mode $active +b $address($remove($did(1,$did(1,%sn).sel).text,.,@,+,%,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 ),3)
    kick $active $remove($did(1,$did(1,%sn).sel).text,.,@,+,%,,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 )
    %sn = %sn + 1
  }
}
on *:DIALOG:nicklist:sclick:8: {
  %sn = 1  while ( $did(1,$did(1,%sn).sel).text != $null ) {
    mode $active -b $address($remove($did(1,$did(1,%sn).sel).text,.,@,+,%,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 ),3)
    %sn = %sn + 1
  }
}
on *:DIALOG:nicklist:sclick:9: {
  %sn = 1  while ( $did(1,$did(1,%sn).sel).text != $null ) {
    /ignore $address($remove($did(1,$did(1,%sn).sel).text,.,@,+,%,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 ),3)
    %sn = %sn + 1
  }
}
on *:DIALOG:nicklist:sclick:10: {
  %sn = 1  while ( $did(1,$did(1,%sn).sel).text != $null ) {
    /ignore -r $address($remove($did(1,$did(1,%sn).sel).text,.,@,+,%,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 ),3)
    %sn = %sn + 1
  }
}
on *:dialog:nicklist:init:*:{
  mdxinit
  mdx SetControlMDX $dname 1 ListView report rowselect > C:\mIRC\mdx\views.mdx
  did -i $dname 1 1 headerdims 98
  did -i $dname 1 1 setbkg url tile C:\mirc\ico\color.png
  did -i $dname 1 1 headertext $active
  did -i $dname 1 1 seticon normal 0,ico\reg.ico
  did -i $dname 1 1 seticon normal 0,ico\op.ico
  did -i $dname 1 1 seticon normal 0,ico\hop.ico
  did -i $dname 1 1 seticon normal 0,ico\voice.ico
  showmirc -x
  /dialog -t nicklist $active
}
alias f8 nicklist
on *:DIALOG:nicklist:dclick:1: {
  %sn = 1
  while ( $did(1,$did(1,%sn).sel).text != $null ) {
    query $remove($did(1,$did(1,%sn).sel).text,.,@,+,%,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 )
    %sn = %sn + 1
  }
}
alias nicklist {
  if ($dialog(nicklist)) {
    dialog -x nicklist
    dialog -ma nicklist nicklist
  }
  if (!$dialog(nicklist)) {
    dialog -ma nicklist nicklist
  }
  showmirc -x
  fillnicklist
}
on *:join:#:.timernl 1 1 /nicklist | else halt
on *:part:#:.timernl 1 1 /nicklist | else halt
on *:op:#:.timernl 1 1 /nicklist | else halt
on *:deop:#:.timernl 1 1 /nicklist | else halt
on *:voice:#:.timernl 1 1 /nicklist | else halt
on *:devoice:#:.timernl 1 1 /nicklist | else halt
on *:exit:.timernl 1 1 /nicklist | else halt
on *:quit:.timernl 1 1 /nicklist | else halt
alias fillnicklist {
  if %nicklist == On {
    %sn = 1
    if $nick($chan($active),%sn,a) isreg $chan($active) { did -ra nicklist 1 0 + 1 0 0 $nick($chan($active),%sn,a) }
    if $nick($chan($active),%sn,a) isop $chan($active) { did -ra nicklist 1 0 + 2 0 0 $nick($chan($active),%sn,a) }
    if $nick($chan($active),%sn,a) ishop $chan($active) { did -ra nicklist 1 0 + 3 0 0 $nick($chan($active),%sn,a) }
    if $nick($chan($active),%sn,a) isvoice $chan($active) { did -ra nicklist 1 0 + 4 0 0 $nick($chan($active),%sn,a) }
  }
  :one
  %sn = 2 
  while ( $nick($chan($active),%sn,a) != $null ) {
    if $nick($chan($active),%sn,a) isreg $chan($active) { did -a nicklist 1 0 + 1 0 0 $nick($chan($active),%sn,a) }
    if $nick($chan($active),%sn,a) isop $chan($active) { did -a nicklist 1 0 + 2 0 0 $nick($chan($active),%sn,a) }
    if $nick($chan($active),%sn,a) ishop $chan($active) { did -a nicklist 1 0 + 3 0 0 $nick($chan($active),%sn,a) }
    if $nick($chan($active),%sn,a) isvoice $chan($active) { did -a nicklist 1 0 + 4 0 0 $nick($chan($active),%sn,a) }
    :two 
    inc %sn
  }
}
 

Last edited by MTech; 21/03/03 03:26 AM.
#16210 21/03/03 03:36 AM
Joined: Dec 2002
Posts: 1,527
_
Hoopy frood
Offline
Hoopy frood
_
Joined: Dec 2002
Posts: 1,527
ok at a quick look im not understanding why ur closing the nicklist then reopening it on each join part quit kick nickchange..... all i do is rerun the alias fill nicklist on each one of those ... altho im also docking mine with ktools ..... but i dont have that problem as u do also ..... im gonna have to test urs alil more and see what i can come up with ... it might not be till later tomorro when i get to doing all that


D3m0nnet.com
#16211 21/03/03 03:37 AM
Joined: Mar 2003
Posts: 272
C
Fjord artisan
Offline
Fjord artisan
C
Joined: Mar 2003
Posts: 272
You can dock a dialog in a channel using kTools? I thought it was only for status bars/switchbars!


- cF
Dedicated helper for rent.
#16212 21/03/03 03:45 AM
Joined: Dec 2002
Posts: 1,527
_
Hoopy frood
Offline
Hoopy frood
_
Joined: Dec 2002
Posts: 1,527
yep u can dock a dialog to right or left using ktools ....... the new version will be able to dock more than one dialog also ..... that way u can dock toolbars nicklists and even a server lists ... im trying to work on a tree veiw server list using ktools and mdx next after the new version of ktools comes out ..... i had asked him how soon ..... lol said as soon as he gets it done ..... so could be anytime from now till a year from now i guess but hey it gives me somethign to do in the mean time lol

ok and mtech ...... i need to know is this only for u when u have ops and voice or is it every op and voice nicks?


D3m0nnet.com
#16213 21/03/03 03:46 AM
Joined: Mar 2003
Posts: 437
M
MTech Offline OP
Fjord artisan
OP Offline
Fjord artisan
M
Joined: Mar 2003
Posts: 437
im going to test using the alias fillnicklist on join part ect... so if you will while your helping me with this problem test with it too?

#16214 21/03/03 03:47 AM
Joined: Dec 2002
Posts: 1,527
_
Hoopy frood
Offline
Hoopy frood
_
Joined: Dec 2002
Posts: 1,527
i dont know why uve done the else halt at the end of all ur events ..... id really think ud want to haltdef or really do nothign else other than run those functions.....

Code:
on *:ACTIVE:*: if ( #* iswm $active ) && ( %nicklist == On ) { who $active | set %countnicks $nick($chan,0,a) | .timer 1 1 fillnicklist }
on *:JOIN:#: { who $chan | set %countnicks $nick($chan,0,a) | .timer 1 1 fillnicklist }
on *:PART:#: { who $chan | set %countnicks $calc($nick($chan,0,a) - 1) | .timer 1 1 fillnicklist }
on *:QUIT: { who $active | set %countnicks $calc($nick($active,0,a) - 1) | .timer 1 1 fillnicklist }
on *:DEOP:#: { who $chan | .timer 1 1 fillnicklist }
on *:VOICE:#: { who $chan | .timer 1 1 fillnicklist }
on *:DEVOICE:#: { who $chan | .timer 1 1 fillnicklist }
on *:HELP:#: { who $chan | .timer 1 1 fillnicklist }
on *:DEHELP:#: { who $chan | .timer 1 1 fillnicklist }
on *:SERVOP:#: { who $chan | .timer 1 1 fillnicklist }
on *:NICK: { .timer 1 2 who $active | .timer 1 3 fillnicklist }
on *:KICK:#: { who $chan | set %countnicks $calc($nick($chan,0,a) - 1) | .timer 1 1 fillnicklist }

raw 352:*:{
  if (G isin $7) { set -u10 %Away.Nicks $addtok(%Away.Nicks, $6, 32) }
  elseif (G isin $7) { set -u10 %Away.Nicks $deltok($findtok(%Away.Nicks, $6, 32)%Away.Nicks, $6, 32) }
  haltdef  
}
raw 315:*:{ haltdef }


lol forgot to add this code to show u what im using ...... also shows how i get the away nicks in channel

Last edited by _D3m0n_; 21/03/03 03:49 AM.

D3m0nnet.com
#16215 21/03/03 03:49 AM
Joined: Mar 2003
Posts: 437
M
MTech Offline OP
Fjord artisan
OP Offline
Fjord artisan
M
Joined: Mar 2003
Posts: 437
are you talking about the problem?
its for anyone in the channel that has op and voice

#16216 21/03/03 03:49 AM
Joined: Mar 2003
Posts: 437
M
MTech Offline OP
Fjord artisan
OP Offline
Fjord artisan
M
Joined: Mar 2003
Posts: 437
hey man... i copyed the alias you gave me...

oops... i misunderstood you... i changed that...

Code:
alias mdx_fullpath { return $+(",C:\mIRC\mdx\mdx.dll,") }
alias mdx { dll $mdx_fullpath $1- }
alias mdxinit {
  dll $mdx_fullpath SetMircVersion $version
  dll $mdx_fullpath MarkDialog $dname
}
dialog nicklist {
  title "#Channel"
  size 690 68 105 459
  option pixels
  icon ico\ico.ico, 0
  list 1, 1 0 104 409, size
  button "Ok", 2, -1 -1 1 1, ok
  button "+@", 3, 1 410 24 24
  button "-@", 4, 26 410 24 24
  button "+V", 5, 51 410 24 24
  button "-V", 6, 76 410 24 24
  button "ban", 7, 1 434 24 24
  button "-ban", 8, 26 434 24 24
  button "ign", 9, 51 434 24 24
  button "-ign", 10, 76 434 24 24
}
on *:DIALOG:nicklist:sclick:3: {
  %sn = 1  while ( $did(1,$did(1,%sn).sel).text != $null ) {
    mode $active +o $remove($did(1,$did(1,%sn).sel).text,.,@,+,%,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 )
    %sn = %sn + 1
  }
}
on *:DIALOG:nicklist:sclick:4: {
  %sn = 1  while ( $did(1,$did(1,%sn).sel).text != $null ) {
    mode $active -o $remove($did(1,$did(1,%sn).sel).text,.,@,+,%,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 )
    %sn = %sn + 1
  }
}
on *:DIALOG:nicklist:sclick:5: {
  %sn = 1  while ( $did(1,$did(1,%sn).sel).text != $null ) {
    mode $active +v $remove($did(1,$did(1,%sn).sel).text,.,@,+,%,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 )
    %sn = %sn + 1
  }
}
on *:DIALOG:nicklist:sclick:6: {
  %sn = 1  while ( $did(1,$did(1,%sn).sel).text != $null ) {
    mode $active -v $remove($did(1,$did(1,%sn).sel).text,.,@,+,%,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 )
    %sn = %sn + 1
  }
}
on *:DIALOG:nicklist:sclick:7: {
  %sn = 1  while ( $did(1,$did(1,%sn).sel).text != $null ) {
    mode $active -ovh $remove($did(1,$did(1,%sn).sel).text,.,@,+,%,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 )
    mode $active +b $address($remove($did(1,$did(1,%sn).sel).text,.,@,+,%,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 ),3)
    kick $active $remove($did(1,$did(1,%sn).sel).text,.,@,+,%,,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 )
    %sn = %sn + 1
  }
}
on *:DIALOG:nicklist:sclick:8: {
  %sn = 1  while ( $did(1,$did(1,%sn).sel).text != $null ) {
    mode $active -b $address($remove($did(1,$did(1,%sn).sel).text,.,@,+,%,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 ),3)
    %sn = %sn + 1
  }
}
on *:DIALOG:nicklist:sclick:9: {
  %sn = 1  while ( $did(1,$did(1,%sn).sel).text != $null ) {
    /ignore $address($remove($did(1,$did(1,%sn).sel).text,.,@,+,%,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 ),3)
    %sn = %sn + 1
  }
}
on *:DIALOG:nicklist:sclick:10: {
  %sn = 1  while ( $did(1,$did(1,%sn).sel).text != $null ) {
    /ignore -r $address($remove($did(1,$did(1,%sn).sel).text,.,@,+,%,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 ),3)
    %sn = %sn + 1
  }
}
on *:dialog:nicklist:init:*:{
  mdxinit
  mdx SetControlMDX $dname 1 ListView report rowselect > C:\mIRC\mdx\views.mdx
  did -i $dname 1 1 headerdims 98
  did -i $dname 1 1 setbkg url tile C:\mirc\ico\color.png
  did -i $dname 1 1 headertext $active
  did -i $dname 1 1 seticon normal 0,ico\reg.ico
  did -i $dname 1 1 seticon normal 0,ico\op.ico
  did -i $dname 1 1 seticon normal 0,ico\hop.ico
  did -i $dname 1 1 seticon normal 0,ico\voice.ico
  showmirc -x
  /dialog -t nicklist $active
}
alias f8 nicklist
on *:DIALOG:nicklist:dclick:1: {
  %sn = 1
  while ( $did(1,$did(1,%sn).sel).text != $null ) {
    query $remove($did(1,$did(1,%sn).sel).text,.,@,+,%,0 fs 1 0 0,0 fs 2 0 0,0 fs 3 0 0,0 fs 4 0 0,0 fs 5 0 0,0 fs 6 0 0,0 fs 7 0 0 )
    %sn = %sn + 1
  }
}
alias nicklist {
  if ($dialog(nicklist)) {
    dialog -x nicklist
    dialog -ma nicklist nicklist
  }
  if (!$dialog(nicklist)) {
    dialog -ma nicklist nicklist
  }
  showmirc -x
  fillnicklist
}
on *:join:#:.timernl 1 1 /fillnicklist
on *:part:#:.timernl 1 1 /fillnicklist
on *:op:#:.timernl 1 1 /fillnicklist
on *:deop:#:.timernl 1 1 /fillnicklist
on *:voice:#:.timernl 1 1 /fillnicklist
on *:devoice:#:.timernl 1 1 /fillnicklist
on *:exit:.timernl 1 1 /fillnicklist
on *:quit:.timernl 1 1 /fillnicklist
alias fillnicklist {
  if %nicklist == On {
    %sn = 1
    if $nick($chan($active),%sn,a) isreg $chan($active) { did -ra nicklist 1 0 + 1 0 0 $nick($chan($active),%sn,a) }
    if $nick($chan($active),%sn,a) isop $chan($active) { did -ra nicklist 1 0 + 2 0 0 $nick($chan($active),%sn,a) }
    if $nick($chan($active),%sn,a) ishop $chan($active) { did -ra nicklist 1 0 + 3 0 0 $nick($chan($active),%sn,a) }
    if $nick($chan($active),%sn,a) isvoice $chan($active) { did -ra nicklist 1 0 + 4 0 0 $nick($chan($active),%sn,a) }
  }
  :one
  %sn = 2 
  while ( $nick($chan($active),%sn,a) != $null ) {
    if $nick($chan($active),%sn,a) isreg $chan($active) { did -a nicklist 1 0 + 1 0 0 $nick($chan($active),%sn,a) }
    if $nick($chan($active),%sn,a) isop $chan($active) { did -a nicklist 1 0 + 2 0 0 $nick($chan($active),%sn,a) }
    if $nick($chan($active),%sn,a) ishop $chan($active) { did -a nicklist 1 0 + 3 0 0 $nick($chan($active),%sn,a) }
    if $nick($chan($active),%sn,a) isvoice $chan($active) { did -a nicklist 1 0 + 4 0 0 $nick($chan($active),%sn,a) }
    :two 
    inc %sn
  }
}

Last edited by MTech; 21/03/03 03:52 AM.

Link Copied to Clipboard