ON*:text:!ontijd*:#: {
  sockclose ontijd
  set %ontijd.input $2
  set %ontijd.chan $chan
  sockopen ontijd nl.trabot.net 80
}

on *:sockopen:ontijd: {
  sockwrite -nt $sockname GET /userinfo.php?name= $+ %ontijd.input HTTP/1.1
  sockwrite -nt $sockname Host: nl.trabot.net
  sockwrite -nt $sockname $crlf
}

alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) | return %x }

alias -l colour1 return $+($chr(3),07)

on *:sockread:ontijd: {
  var %x
  %i = -1
  sockread %ontijd
  if $regex(%ontijd,Alive) {
    set %totale-tijd1 $gettok($htmlfree(%ontijd),12-16,32)
    set %totale-tijd2 $removecs(%totale-tijd1,tijd)
    set %totale-tijd2.2 $wildtok(%totale-tijd2,g*e,1,32)
    set %totale-tijd2.3 $wildtok(%totale-tijd2,g*n,1,32)
    set %totale-tijd2.4 $wildtok(%totale-tijd2,g*t,1,32)
    set %totale-tijd3 $removecs(%totale-tijd2,Percentage)
    set %totale-tijd3.2 $removecs(%totale-tijd3,$chr(40) $+ RP))
    set %totale-tijd4 $wildtok(%totale-tijd3,o*e,1,32)
    set %totale-tijd5 $removecs(%totale-tijd3.2,%totale-tijd4,%totale-tijd2.2,%totale-tijd2.3,%totale-tijd2.4)
    set %ontijd.percentage $removecs(%totale-tijd4,online,Positie)
    .msg %ontijd.chan 4 $+ %ontime.input is in totaal $colour1 $+ %totale-tijd5 4online geweest.
    .msg %ontijd.chan 4Dit is $colour1 $+ %ontijd.percentage 4van de tijd sinds hij/zij voor het eerst online was.
  }
  if $regex(%ontijd,Dood) {
    set %ontijd.dood1 $gettok($htmlfree(%ontijd),18-22,32)
    set %ontijd.dood2 $removecs(%ontijd.dood1,tijd,Percentage)
    set %ontijd.dood3 $wildtok(%ontijd.dood2,o*e,1,32)
    set %ontijd.dood3.2 $wildtok(%ontijd.dood2,g*e,1,32)
    set %ontijd.dood3.3 $wildtok(%ontijd.dood2,g*n,1,32)
    set %ontijd.dood3.4 $wildtok(%ontijd.dood2,g*t,1,32)
    set %ontijd.dood4 $removecs(%ontijd.dood2,%ontijd.dood3)
    set %ontijd.dood5 $removecs(%ontijd.dood4,$chr(40) $+ RP))
    set %ontijd.percentage2 $removecs(%ontime.dood3,online,Positie)
    .msg %ontijd.chan 4 $+ %ontijd.input is in totaal $colour1 $+ %ontijd.dood5 4online geweest.
    .msg %ontijd.chan 4Dit is $colour1 $+ %ontijd.percentage2 4van de tijd sinds hij/zij voor het eerst online was.
  }
  if ($regex(%ontijd,Deze gebruiker)) {
    .msg %ontijd.chan 4[Error] 7Deze gebruiker is niet gevonden in de .nl database!
  }