Forums Scripts & Popups dialogs

  

alias show.nicks {
  dialog -m chan.nicks chan.nicks
}
dialog chan.nicks {
  title "New Project"
  size -1 -1 96 100
  option dbu
  box "Users In Channel:", 1, 1 0 94 87
  list 2, 3 9 90 76, size hsbar vsbar
  button "Done", 3, 29 89 37 10, ok
}
on *:dialog:chan.nicks:init:0 {
  get.nicks $dname $comchan($me,1)
}
on *:join:*:{
  if ($nick != $me) {
    $iif($dialog(chan.nicks),get.nicks chan.nicks $chan)
  }
}
on *:part:*:{
  if ($nick != $me) {
    $iif($dialog(chan.nicks),get.nicks chan.nicks $chan)
  }
}
;etc
;etc
alias -l get.nicks {
  did -r $1 2
  var %a = 1, %b
  while ($nick($2,%a)) {
    %b = $ifmatch
    did -a $1 2 $iif(%b isop $2,@ $+ %b,%b)
    inc %a
  }
  did -z $1 2
  did -ra $1 1 Users In Channel: $2
}