Sockread fix for RyuFive

ON *:sockread:tornsock: {
  var %read, %log
  sockread -f %read
  var %x = %read , %i = 1
  while (%i <= $numtok(%x,32)) {
    var %h = %i - 1
    var %j = %i + 3
    var %p = $gettok(%x,%i,32)
    if (%p = hospitalized) {
      if ($len($gettok(%x,%h,32)) = 8) { var %who = $right($gettok(%x,%h,32),-1) }
      else { var %who = $left($right($gettok(%x,%j,32),-16),-7) }
      var %whom = $left($right($gettok(%x,%j,32),-16),-7)
      if ($isfile(list.txt)) && ($lines(list.txt)) && ($read(list.txt,wn,%whom)) {
        var %log = %log $+ %who hospitalized %whom $+ !
      }
    }
    inc %i
  }
  echo -ag %log
}