dialog thu {
  title "TzHaar users"
  size -1 -1 200 150
  list 1, 5 35 190 90
  text %total.thu, 2, 2 5 196 30, center
  button "Start Searching" 3, 5 125 190 20 
}
on *:dialog:thu:sclick:3:{
  Sockclose thu
  did -a thu 1 _________________________________________________
  did -a thu 1 Ik ben de gebruikers aan het zoeken.
  /timer 1 1 did -a thu 1 Het kan even duren, Dus even geduld astublieft.
  /timer 1 3 did -a thu 1 Ik heb de gebruiker(s) gevonden.
  /timer 1 4 did -a thu 1 Ik voeg ze nu in.
  /timer 1 5 sockopen thu www.tzhaar.nl 80
}
on *:Sockopen:thu:{
  sockwrite -nt $sockname GET /forum/index.php HTTP/1.1
  sockwrite -nt $sockname Host: www.tzhaar.nl
  sockwrite -nt $sockname $crlf
}
on *:sockread:THU:{
  if ($sockerr) { did -a thu 1 Error... | sockclose $sockname | halt }
  else {
    var %thu.read
    sockread %thu.read
    if (er zijn in totaal isin %thu.read) {
      tokenize 32 $htmlfree(%thu.read)
      dialog -x thu
      set %total.thu $remove($1-15,	,-)
      dialog -dm thu thu
      did -a thu 1 $43-
      unset %total.thu
    } 
  }
}