Someone

alias -l ScT::@win {
  var %@ = @ScT | if (!$window(%@)) { .window -nk0 %@ "Courier New" 14 } | var %t = $time($timestampfmt), %a = aline $+(-pi,$calc($len(%t) +1)) %@
  %a %t torrent: ( $+ %ScT::cat $+ ) %ScT::name | %a $str( ,$len(%t)) url    : %ScT::url | %a $chr(2)
  var %x = $calc($line(%@,0) /3) | titlebar %@ :: %x $+(torrent,$iif(%x != 1,s))
}
on *:text:*:#SceneTorrents {
  if ($nick == SceneTorrents) {
    var %str = $strip($1-) | tokenize 32 %str
    if ($1- == New Torrent Uploaded:) { set %ScT 1 }
    if (%ScT) {
      if ($1 == Name....:) { set %ScT::name $2- }
      if ($1 == Category:) { set %ScT::cat $2- }
      if ($1 == Pretime.:) { set %ScT::pre $2- }
      if ($1 == URL.....:) { set %ScT::url $2- }
      if (%ScT::url) { ScT::@win | unset %ScT %ScT::name %ScT::cat %ScT::pre %ScT::url }
    }
  }
}