Miscellany

on *:SOCKREAD:items: {
  if ($sockerr) { .notice %is_nick Price Script SockRead Error: $sock(items).wsmsg | echo -a Price Script SockRead Error: $sock(items).wsmsg | return }
  .sockread %is
  if (!%is) { noop }
  if (%is_fetch == on) {
    if ($regex(%is,/<td class="tablebottom">(.*)</td>/)) || ($regex(%is,/<td class='tablebottom'>(.*)</td>)) || ($regex(%is,/<td class="tablebottom" width="20">(.*)</td>)) {
      if ($eval($+(%,is_ct,%is_fnd),2) == $null) && (%d == 7) { set $+(%,is_ct,%is_fnd) $htmlfree($regml(1)) | set %d 1 }
      if ($eval($+(%,is_rt,%is_fnd),2) == $null) && (%d == 6) { set $+(%,is_rt,%is_fnd) $parse($regml(1)) | inc %d 1 }
      if ($eval($+(%,is_pr,%is_fnd),2) == $null) && (%d == 5) { set $+(%,is_pr,%is_fnd) $regml(1) | inc %d 1 }
      if ($eval($+(%,is_it,%is_fnd),2) == $null) && (%d == 4) { set $+(%,is_it,%is_fnd) $regml(1) | inc %d 1 }
      if (%d == 3) || (%d == 2) { inc %d 1 }
      if ($eval($+(%,is_mem,%is_fnd),2) == $null) && (%d == 1) { set $+(%,is_mem,%is_fnd) $iif($regml(1) == &nbsp;,false,true) | inc %d 1 }
    }
    if (%is == <tr>) { inc %is_fnd }
    if (*search did not return any* iswm %is) { %is_send Search returned no results! | .unset %is_* | .sockclose items }
  }
  if (%is == <!-- Search Results: Start -->) { set %is_fetch on }
  if (%is == <!-- Search Results: End -->) {
    do your data output organizing here sir
  }
}