#!/usr/bin/env ruby

# IRC/OBS-websocket scene management bridge

require 'json'
require 'socket'
require 'openssl'
require 'websocket'
require 'net/http'
require 'pp'
require 'uri'

confdir = Dir.home + '/.config/twitch/'
ENV['APPDATA'] && confdir = ENV['APPDATA'] + "\\twitch\\"
ENV['XDG_CONFIG_HOME'] && confdir = ENV['XDG_CONFIG_HOME'] + '/twitch/'

# returning 'true' on each line to conceal results when sourcing in irb

( $ACCESS_TOKEN = IO.read( confdir + 'access_token' ).chomp ) && true
( $CHANNEL      = IO.read( confdir + 'channel'      ).chomp ) && true
( $CLIENT_ID    = IO.read( confdir + 'client_id'    ).chomp ) && true
( $UNIX_SOCKET_PATH =      confdir + 'chat_socket'  )         && true
( $OBS_PASSWORD = IO.read( confdir + 'obs_password' ).chomp ) && true
( $TRN_API_KEY  = IO.read( confdir + '../trn-api-key' ).chomp ) && true

def ircsocketwrite( text )
  unix_socket = UNIXSocket.new( $UNIX_SOCKET_PATH )
  unix_socket.print( text )
rescue
ensure
  unix_socket.close
end

def websocketwrite( json )
  $tcp_socket.write( WebSocket::Frame::Outgoing::Client.new( data: json, type: :text ).to_s )
rescue IOError, EOFError, Errno::ECONNRESET
  $tcp_socket.close
  websocket_create()
  retry
end

# the obsreader thread specially interprets unusual message-id-keyed responses; '1' will be a safe default.

def SetSourceRender( source, render = 'true', id = '1' )
  websocketwrite( '{ "request-type": "SetSourceRender", "message-id" : "' + id.to_s + '", "source" : "' + source + '", "render" : ' + render.to_s + ' }' )
end

def GetCurrentScene( id = '1' )
  websocketwrite( '{ "request-type": "GetCurrentScene", "message-id" : "' + id.to_s + '" }' )
end

def GetSceneList( id = '1' )
  websocketwrite( '{ "request-type": "GetSceneList", "message-id" : "' + id.to_s + '" }' )
end

def SetCurrentScene( scene, id = '1' )
  websocketwrite( '{ "request-type": "SetCurrentScene", "message-id" : "' + id.to_s + '", "scene-name": "' + scene + '" }' )
end

def GetStreamingStatus( id = '1' )
  websocketwrite( '{ "request-type": "GetStreamingStatus", "message-id" : "' + id.to_s + '" }' )
end

def pubgstats( name )
  tries = 2
  http = Net::HTTP.new( 'pubgtracker.com', 443 )
  http.use_ssl = true
  http.verify_mode = OpenSSL::SSL::VERIFY_NONE
  http.read_timeout = 500

  req = Net::HTTP::Get.new( "/api/profile/pc/#{name}" )
  ( req["TRN-Api-Key"] = $TRN_API_KEY ) && true
  
  begin
    response = JSON.parse( http.request( req ).body )
  rescue
    sleep 2
    retry unless( tries-=1 ).zero?
  end

  if response['error'] then
    ircsocketwrite( "| pubgstats: #{response['message']} (maybe bad name?)\n" )
    return
  end

  totalwins = 0
  totallosses = 0
  totalkills = 0
  totaldeaths = 0
  totalrounds = 0
  bestrank = 9999999
  bestrating = 0
  bestroundkills = 0
  bestrangekill = 0
 
#response['Stats'].each { |matchstats| matchstats['Stats'].each { |stats| printf( "%9s %3s %5s %25s %10s\n", matchstats['Season'], matchstats['Region'], matchstats['Match'], stats['field'], stats['value'] ) } } && true# debug
#response['Stats'].each { |matchstats| matchstats['Stats'].each { |stats| printf( "%9s %3s %5s %23s %20s %12s %10s %10s %10s %10s\n", matchstats['Season'], matchstats['Region'], matchstats['Match'], stats['label'], stats['field'], stats['category'], stats['value'], stats['rank'], stats['percentile'], stats['displayValue'] ) } } && true # debug
  
response['Stats'].each do |matchstats|
  kdr = 0.0
  matchstats['Stats'].each do |stats|
    if stats['field'] == 'KillDeathRatio' then
      kdr = stats['value'].to_f
    end
    stats['field'] == 'Wins'         && totalwins   += stats['value'].to_i
    stats['field'] == 'Losses'       && totallosses += stats['value'].to_i
    stats['field'] == 'RoundsPlayed' && totalrounds += stats['value'].to_i
    if stats['field'] == 'Kills' && kdr != 0 then
      totalkills  += stats['value'].to_i
      totaldeaths += stats['value'].to_i / kdr
    end
    ( stats['field'] == 'BestRating'                          && stats['value'].to_i > bestrating )     && bestrating     = stats['value'].to_i
    ( stats['field'] == 'RoundMostKills'                      && stats['value'].to_i > bestroundkills ) && bestroundkills = stats['value'].to_i
    ( stats['field'] == 'LongestKill'                         && stats['value'].to_i > bestrangekill )  && bestrangekill  = stats['value'].to_i
    ( stats['field'] == 'BestRank' && 0 < stats['value'].to_i && stats['value'].to_i < bestrank )       && bestrank       = stats['value'].to_i
  end
  
end && true


#bestrank
#bestrating
#bestroundkills
totalkills /= 2
totaldeaths /= 2
totalwins /= 2
totallosses /= 2
#bestrangekill
winratio = totalwins.to_f/totallosses.to_f
killratio = totalkills.to_f/totaldeaths.to_f

ircsocketwrite( sprintf( "| %s  BEST: rating: %i, rank: %i, roundkills: %i, rangekill: %i;  TOTAL: kills/deaths: %i / %i = %02.03f, wins/losses: %i / %i = %01.03f ", response['PlayerName'], bestrating, bestrank, bestroundkills, bestrangekill, totalkills, totaldeaths, killratio, totalwins, totallosses, winratio ) )
#ircsocketwrite( "| #{response['PlayerName']} PUBG Stats: BestRating: #{bestrating}, BestRank: #{bestrank}, HighestRoundKills: #{bestroundkills}, TotalKills: #{totalkills}, TotalWins/Losses #{totalwins}/#{totallosses} = #{winratio}, HighestRange: #{bestrangekill}\n" )

#	optimally:
# highest 'Kills' 'KillDeathRatio' & percentile 'Wins'/'WinPoints'/'WinRatio'/percentile 'RoundMostKills' 'RoundsPlayed' 'BestRating' 'BestRank' 'LongestKill'
# realistically:
# BestRank BestRating RoundsPlayed Wins/Losses WinRatio Kills RoundMostKills LongestKill
	
end

def transientsource( source )
  Thread.new {
    SetSourceRender( 'media-' + source , false )
    sleep 0.1
    SetSourceRender( 'media-' + source , true )
    sleep 60
    SetSourceRender( 'media-' + source , false )
  }
end

#json["subscriptions"][0]["user"]["name"]

def websocket_create()
  begin
    $tcp_socket = TCPSocket.new( '127.0.0.1', 4444 )
    $tcp_socket.write( WebSocket::Handshake::Client.new( url: 'ws://localhost/' ).to_s )
    IO.select( [ $tcp_socket ] )
    print $tcp_socket.read_nonblock( 4096 )
    websocketwrite( '{ "request-type": "GetAuthRequired", "message-id" : "1" }' )
    # Let the obsreader thread do the actual authentication.
  rescue IOError, EOFError, Errno::ECONNREFUSED, Errno::ECONNRESET
    $tcp_socket && $tcp_socket.close
    sleep 5
    retry
  end
end

websocket_create()
frame = WebSocket::Frame::Incoming::Client.new
frame_decoded = String.new
status = Hash.new
$lastused = Hash.new
$globallastused = 0

def command_dispatch( mode, user, command, arg1 )
  # arg1 may be empty String
  safe = /^[-0-9a-zA-Z_]+$/
  if mode == '@' && command == 'scene'
    if arg1 =~ safe
      SetCurrentScene( arg1 )
      return
    else
      GetSceneList(  )
      return
    end
  elsif mode == '@' && command == 'source'
    if arg1 =~ safe
      # GetCurrentScene for current visibility state
      GetCurrentScene( arg1 )
      # SetSourceRender to toggle
      return
    else
      GetCurrentScene( )
      return
    end
  elsif mode == '@' && command == 'commands'
    ircsocketwrite( "| !source !scene !pubg !metaminute !nopgl1 !nopgl2\n" )
    return
  end 
  # ratelimited commands after +o commands
  if command =~ /^(pubg)$/
    if ( ! $lastused[ command ] || $lastused[ command ] <= ( Time.now.to_i - 5 ) ) # || mode == '@'
      $lastused[ command ] = Time.now.to_i
      pubgstats( arg1 )
      return
    end
  end
  if ( ! $lastused[ command ] || $lastused[ command ] <= ( Time.now.to_i - 120 ) ) && $globallastused <= ( Time.now.to_i - 60 ) # || mode == '@'
    $globallastused = Time.now.to_i
    $lastused[ command ] = Time.now.to_i
    if command =~ /^(metaminute|nopgl1|nopgl2)$/
      transientsource( command )
      return
    elsif command == 'commands'
      ircsocketwrite( "| !pubg !metaminute !nopgl1 !nopgl2\n" )
      return
    end
  end
end

# irclog read loop event thread
ircreader = Thread.new {
begin
  irclog = IO.popen('/usr/bin/tail -n0 -F ' + ENV['HOME'] + '/irclogs/twitch/#' + $CHANNEL + '.log' )
  irclog.each_line do |line|
    if ( match = line.match(/^\d\d:\d\d <([@ +])(.+)?> *!([-0-9a-zA-Z]+) *([-0-9a-zA-Z_]*)/) )
      command_dispatch( *match.to_a[1..4] )
    end
  end
rescue
ensure
  irclog.close
end
}

# websocket read loop event thread
obsreader = Thread.new {
  begin
    while true
      frame << $tcp_socket.read_nonblock( 4096 )
      while ( frame_decoded = frame.next.to_s ) != ""
        frame_parsed = JSON.parse(frame_decoded)
        if frame_parsed["update-type"] == "StreamStatus"
	  status = frame_parsed
	elsif frame_parsed['current-scene'] && frame_parsed['scenes'] # GetSceneList
          text = '| Current scene: ' + frame_parsed['current-scene'] + ' | Available: ' + frame_parsed['scenes'].map{|v| v['name'] }.sort.join(' ') + "\n" 
	  print text
          ircsocketwrite( text )
	elsif frame_parsed['name'] && frame_parsed['sources']         # GetCurrentScene
	  pp frame_parsed
          text = '| Sources: ' + frame_parsed['sources'].map{|v| v['name'] }.sort.join(' ') + "\n"
	  print text
          if frame_parsed['message-id'] == '1' 
            ircsocketwrite( text )
          else # other message-ids are a source we want to toggle
            frame_parsed['sources'].each do |v|
              if v['name'] == frame_parsed['message-id']
                if    v['render'] == true
                  SetSourceRender( v['name'], 'false', '2' )
                  ircsocketwrite( '| Source ' + v['name'] + " is now unrendered\n" )
                elsif v['render'] == false
                  SetSourceRender( v['name'], 'true',  '2' )
                  ircsocketwrite( '| Source ' + v['name'] + " is now visible\n" )
                end
              end
            end
          end
        elsif frame_parsed['update-type'] == 'SwitchScenes'
          ircsocketwrite( '| Scene is now ' + frame_parsed['scene-name'] + "\n" )
        #elsif frame_parsed['update-type'] == 'SceneItemVisibilityChanged'
        #  ircsocketwrite( '| Source ' + frame_parsed['item-name'] + ' visibility is now ' + frame_parsed['item-visible'].to_s + "\n" )
	elsif frame_parsed['authRequired'] == true                    # GetAuthRequired
          websocketwrite( '{ "request-type": "Authenticate", "message-id" : "2", "auth" : "' + Digest::SHA256.base64digest(Digest::SHA256.base64digest($OBS_PASSWORD + frame_parsed['salt'])+frame_parsed['challenge']) + '" }' )
	else
          print frame_decoded
        end
      end
      #pp JSON.parse(frame_decoded)
    end
  rescue IO::WaitReadable, IO::EAGAINWaitReadable, JSON::ParserError
    IO.select([$tcp_socket])
    retry
  rescue IOError, EOFError, Errno::ECONNRESET
    $tcp_socket.close
    websocket_create()
    retry
  end
}