Forums Scripts & Popups custom nicklist

[color:green];This alias is used to send data to any custom window[/color]
alias AC {
  if (($left($1,1) == -) && ($2 ischan)) { aline -p $+(@,$2) $3- }
  if ($1 ischan) { aline $+(@,$1) $2- }
}

[color:green];Now to send JOIN events to the custom window[/color]
on *:JOIN:#:{
  if ($nick == $me) {
    window -abel20k0S $+(@,$chan) verdana 12
    AC -p $chan Joined $chan $asctime
    halt
  }
  AC -p $chan $timestamp $nick Joined $chan
  AC -ln $2 $nick
}
[color:green];We need to fill the nicklist[/color]
raw 315:*:{
  AC $2 [Ops: $opnick($2,0) $+ ] [Voices: $vnick($2,0) $+ ] [Non-Ops: $nopnick($2,0) $+ ] [Total: $nick($2,0) $+ ]
  var %i = 1
  while %i <= $nick($2,0) {
    AC -ln $2 $nick($2,%i)
    inc %i
  }
}

[color:green];Now to send anything we type to the channel and the Custom Window[/color]
on *:INPUT:@:{
  echo -s Saying : $1- to :$target
  if ($right($active,-1) ischan) { PRIVMSG $right($active,-1) : $+ $1- }
  [color:green];You would need to add something so when you type:[/color]
  [color:green];/me <this that> or /msg <nick/chan> <this that> etc[/color]
  [color:green];like:[/color]
  if ($1 == /me) { PRIVMSG $right($active,-1) :
ACTION $2- }
  [color:green];and to send it to the custom window:[/color]
  AC -p $active $1-
}

[color:green];Now to get the text other people send to the channel:[/color]
on *:TEXT:#:{
  if ($window($+(@,$chan)) !== $null) { AC -p $chan $timestamp < $+ $nick $+ > $1- }
}

[color:green];When you close a channel, the associated custom window should also be closed.[/color]
[color:green];When you close a custom window, the associated channel should also be closed.[/color]
on *:CLOSE:*:{
  if ($target ischan) { /window -c $+(@,$target) }
  if ($left($target,1) == @) { /part $right($target,-1) }
}

on *:join:#: { 
  if ($nick == $me) {
    nicklist
  }
  elseif ($dialog(nick $+ $chan) != $null) .timer 1 3 getnicks $chan
}

on *:part:#: { if ($dialog(nick $+ $chan) != $null) && ($nick != $me) .timer 1 1 getnicks $chan }
on *:kick:#: { if ($dialog(nick $+ $chan) != $null) .timer 1 1 getnicks $chan }
on *:op:#: { if ($dialog(nick $+ $chan) != $null) .timer 1 1 getnicks $chan }
on *:deop:#: { if ($dialog(nick $+ $chan) != $null) .timer 1 1 getnicks $chan }
on *:voice:#: { if ($dialog(nick $+ $chan) != $null) .timer 1 1 getnicks $chan }
on *:devoice:#: { if ($dialog(nick $+ $chan) != $null) .timer 1 1 getnicks $chan }
on ^*:QUIT:{
  var %i = 1
  var %comchan $comchan($nick,0)
  while (%i <= %comchan) { 
    if ($dialog(nick $+ $comchan($nick,%i)) != $null) .timer 1 1 getnicks $comchan($nick,%i) 
    inc %i
  }
} 

on *:nick: {  
  var %samechan = 1
  while (%samechan <= $comchan($newnick,0)) {
    if ($dialog(nick $+ $comchan($newnick, %samechan)) != $null) .timer 1 1 getnicks $comchan($newnick,%samechan) 
    inc %samechan
  } 
}

 

  %sn = 1
  if $nick($chan(1),%sn,a) isreg $chan($active) { did -ra $dname 1 0 + 1 0 0 $nick($chan(1),%sn,a) }
  if $nick($chan(1),%sn,a) isop $chan($active) { did -ra $dname 1 0 + 2 0 0 $nick($chan(1),%sn,a) }
  if $nick($chan(1),%sn,a) ishop $chan($active) { did -ra $dname 1 0 + 3 0 0 $nick($chan(1),%sn,a) }
  if $nick($chan(1),%sn,a) isvoice $chan($active) { did -ra $dname 1 0 + 4 0 0 $nick($chan(1),%sn,a) }
  if $nick($chan(1),%sn,a) isowner $chan($active) { did -ra $dname 1 0 + 5 0 0 $nick($chan(1),%sn,a) }
  %sn = 2
  while ( $nick($chan(1),%sn,a) != $null ) {
    if $nick($chan(1),%sn,a) isreg $chan($active) { did -a $dname 1 0 + 1 0 0 $nick($chan(1),%sn,a) }
    if $nick($chan(1),%sn,a) isop $chan($active) { did -a $dname 1 0 + 2 0 0 $nick($chan(1),%sn,a) }
    if $nick($chan(1),%sn,a) ishop $chan($active) { did -a $dname 1 0 + 3 0 0 $nick($chan(1),%sn,a) }
    if $nick($chan(1),%sn,a) isvoice $chan($active) { did -a $dname 1 0 + 4 0 0 $nick($chan(1),%sn,a) }
    if $nick($chan(1),%sn,a) isowner $chan($active) { did -a $dname 1 0 + 5 0 0 $nick($chan(1),%sn,a) }
    inc %sn
  }