alias TCPLogConnect {
  sockopen TCPLog 127.0.0.1 8025
}

on *:sockread:TCPLog: {
  sockread -fn &TCPLogRead
  var %Offset = 0
  var %Len = $bvar(&TCPLogRead,0)
  if (%Len < 8) {
    return
  }
  if ($bvar(&TCPLogRead,1) == 0) {
    %Offset = 1
  }
  var %ID = $bvar(&TCPLogRead,$calc(%Offset + 1),3).text
  if (%ID == 000) {
    var %Message = $bvar(&TCPLogRead,$calc(%Offset + 15),%Len).text
    if (%Message) {
      Parse_Log %Message 
    }
  }
  else if (%ID == 001) {
    var %Message = $bvar(&TCPLogRead,$calc(%Offset + 15),%Len).text
    if (%Message) {
      Parse_GameLog %Message 
    }
  }
  else if (%ID == 002) {
    var %Message = $bvar(&TCPLogRead,$calc(%Offset + 15),%Len).text
    if (%Message) {
      Parse_RenLog %Message 
    }
  }
  else if (%ID == 003) {
    var %Message = $bvar(&TCPLogRead,$calc(%Offset + 4),%Len).text
    if (%Message) {
      Parse_Console %Message 
    }
  }
}
alias Parse_Log {
  echo -a Parse_Log - $1-
  .signal -n ssgm_log $1-
}

alias Parse_GameLog {
  tokenize 59 $1-
  echo -a Parse_GameLog - $1-
  .signal -n game_log $1-
}

alias Parse_RenLog {
  echo -a Parse_RenLog - $1-
  .signal -n ren_log $1-
}

alias Parse_Console {
  echo -a Parse_Console - $1-
  .signal -n console_log $1-
}