Forums Scripts & Popups Mirc program is scrambling some received data..BUG

on *:SockRead:Game*: {
  set -u0 %Bytes 800
  sockread $var( %Bytes, 1).value &data
  if ( $SockName == GameStats ) {
    bwrite $+( $SockName, .html) -1 -1 &data
    if ( $gettok( $bvar( &data, 1, %Bytes).text, 1, 13) == HTTP/1.1 302 Found ) {
      $iif( %GameMsgInfo == on, msg %GameSetChan, echo -s) You need to make the login $+ $chr(44) Automatic redirect to do it.
      Sockclose Game*
      SockOpen GameGetCookie xxxxxxx.xxx.xx 80
    }
    Else {
      window @Status 1 1 1135 200
      window @OutputData 1 201 1135 200
      ;Here it will start the search code
      ;This if is the add the incomplet code missing that can´t be correct read btween the Sockread
      if ( $hget( DataIncomplecta, Estatisticas) != $null ) {
        bset &DataTemp 1 $hget( DataIncomplecta, Estatisticas)
        bset -t &Data 1 $+( $bvar( &DataTemp, 1-).text, $bvar( &Data, 1-).text)
        echo -s Data Added 4 $bvar( &DataTemp, 1-).text
        hfree DataIncomplecta
      }
      set %x 1
      ;while the beguining text "<td" is found
      while ( $bfind( &Data, %x, <td) != 0 ) {
        ;Sets the x var for the bfind value. Line before this one
        set %x $bfind( &Data, %x, <td)
        ;If the final text "</td>" is found, them the output sentense is complet
        if ( $bfind( &Data, %x, </td>) != 0 ) {
          ;This y var i use to set the lengh off the amout off charsets that i must use on the $bvar identifier.
          set %y $calc( $calc( $bfind( &Data, %x, </td>) + 5) - %x)
          ;This is whery the output text is showed including all the html code, beguining in the "<td" search until the final "</td>" 

search
          aline -p @Status 12 %TimeCount 3Complet $remove( $bvar( &data, %x, %y).text, $chr(9), $chr(10), $chr(13)) 4<td in 12 

$bfind( &Data, %x, <td) and 4</td> in12 $bfind( &Data, %x, </td>)
          aline -p @OutputData 12 %TimeCount  $remove( $bvar( &data, %x, $calc( %y + 60)).text, $chr(9), $chr(10), $chr(13))
          TextoSaida $remove( $bvar( &data, %x, %y).text, $chr(9), $chr(10), $chr(13))
          inc %TimeCount
        }
        ;;If the final text "</td>" is NOT found, them the output sentense is NOT complet 
        if ( $bfind( &Data, %x, </td>) == 0 ) {
          ;Once the final text was not found, it will be ncessary keep the rest off the sentence somewhery, in this case in hash 

tables
          ;It will keep all text from the beguinning "<td" search until the end off sockread data
          aline -p @Status 12 %TimeCount 4Incomplet $bvar( &Data, %x, $bvar( &Data, 0)).text 4<td in 12 $bfind( &Data, %x, <td) 

and 4</td> in12 $bfind( &Data, %x, </td>) 4Next line will add this info
          hadd -m DataIncomplecta Estatisticas $bvar( &Data, %x, $bvar( &Data, 0))
        }
        inc %x
      }
    }
  }
}

on *:SockRead:Game*: {
  set -u0 %Bytes 800
  sockread %Bytes &newdata
  if ($SockName == GameStats) {
    bwrite $+( $SockName, .html) -1 -1 &newdata
    if ( $gettok( $bvar(&newdata, 1, %Bytes).text, 1, 13) == HTTP/1.1 302 Found ) {
      $iif( %GameMsgInfo == on, msg %GameSetChan, echo -s) You need to make the login $+ $chr(44) Automatic redirect to do it.
      Sockclose Game*
      SockOpen GameGetCookie xxxxxxx.xxx.xx 80
    }
    else {
      window @Status 1 1 1135 200
      window @OutputData 1 201 1135 200
      ; This if is the add the incomplete code missing that can´t be correct read btween the Sockread
      if ($hget(DataIncomplecta, Estatisticas)) {
        bset &data 1 $hget(DataIncomplecta, Estatisticas)
        bcopy &data $bvar(&data, 0) &newdata 1 -1
        hfree DataIncomplecta
      }
      else {
        bcopy &data 1 &newdata 1 -1
      }
      var %open = 1
      ; While the beginning text "<td" is found
      while ($bfind(&data, %open, <td)) {
        %open = $v1
        ; If the final text "</td>" is found, then the output sentence is complete
        if ($bfind(&data, %open, </td>)) {
          var %close = $v1
          var %len = $calc( %close + 5 - %open)
          ;This is where the output text is showed including all the html code, beguining in the "<td" search until the final "</td>" 
          var %celldata = $remove( $bvar( &data, %open, %len).text, $chr(9), $chr(10), $chr(13))
          aline -p @Status 12 %TimeCount 3Complet %celldata 4<td in 12 %open and 4</td> in12 %close
          aline -p @OutputData 12 %TimeCount  %celldata
          TextoSaida %celldata
          inc %TimeCount
        }
        ; If the final text "</td>" is NOT found, them the output sentence is NOT complete
        else {
          ; Once the final text was not found, it will be necessary keep the rest of the sentence somewhere, in this case in hash tables
          ; It will keep all text from the beginning "<td" search until the end of sockread data
          bcopy &incomplete 1 &data %open -1
          hmake DataIncomplecta 10
          noop $hget(DataIncomplecta, Estatisticas, &incomplete)
          aline -p @Status 12 %TimeCount 4Incomplete $bvar( &incomplete, %open -).text 4<td in 12 %open
        }
        inc %open
      }
    }
  }
}