titel

ON $*:TEXT:/[!@]Users/Si:#: {
  var %tu = $right($ticks,5)
  set %adisp [ $+ [ %tu ] ] $iif($left($1,1) == @,msg $chan,notice $nick)
  if ($2) && ($left($2,1) != $chr(35)) { 
    %adisp [ $+ [ %tu ] ] 7Invalid Characters Detected.
    halt
  }
  else set %channel [ $+ [ %tu ] ] $iif($2,$2,$chan)  
  sockopen users [ $+ [ %tu ] ] www.nl.gogloom.com 80
}
alias tusers {
  var %tu = $right($ticks,5)
  set %adisp [ $+ [ %tu ] ]  echo -a
  set %channel [ $+ [ %tu ] ] $iif($1,$1,$active)
  sockopen users [ $+ [ %tu ] ] www.nl.gogloom.com 80
}
on *:sockopen:Users*:{
  sockwrite -nt $sockname GET /swiftirc/ $+ $right(%channel [ $+ [ $right($sockname,5) ] ],-1) $+ / HTTP/1.1 
  sockwrite -nt $sockname Host: www.nl.gogloom.com
  sockwrite -nt $sockname $crlf 
}
alias -l users {
  %adisp [ $+ [ $right($1,5) ] ]  3De channel7 %channel [ $+ [ $right($1,5) ] ] 3is gestart in12:7 %startdatum [ $+ [ $right($1,5) ] ]
  %adisp [ $+ [ $right($1,5) ] ] 3Gemiddeld aantal gebruikers12:7 %auser [ $+ [ $right($1,5) ] ]
  %adisp [ $+ [ $right($1,5) ] ] 3Huidig aantal gebruikers12:7 %cuser [ $+ [ $right($1,5) ] ]
  unset %adisp [ $+ [ $right($1,5) ] ] 
  unset %auser [ $+ [ $right($1,5) ] ]
  unset %cuser [ $+ [ $right($1,5) ] ]
  unset %startdatum [ $+ [ $right($1,5) ] ]
  sockclose $1
}
on *:sockread:Users*:{
  if ($sockerr) { halt }
  else {
    var %users
    sockread %users
    ;<td>&nbsp;<font class=date
    if (*<td>&nbsp;<font class=date>* iswm %users) && (!%startdatum [ $+ [ $right($sockname,5) ] ] ) set %startdatum [ $+ [ $right($sockname,5) ] ] $nohtml(%users)
    if (%auser [ $+ [ $right($sockname,5) ] ] ) {
      set %cuser [ $+ [ $right($sockname,5) ] ] $nohtml(%users)
      users $sockname
    }
    if (*<td width=33%>&nbsp;<font class=date><B>* iswm %users) set %auser [ $+ [ $right($sockname,5) ] ] $nohtml(%users)
  }
}