package require http
package require json
bind pub - !gw2 pub:gw2Stats
namespace eval gw2Utils {
set tsvPath "tsvgw2/"
proc parsePairs { tsvName } {
set f [open [file nativename $gw2Utils::tsvPath$tsvName] r]
while { [eof $f] == 0 } {
set splitLine [split [gets $f] "\t"]
set pairMap([lindex $splitLine 0]) [lindex $splitLine 1]
}
return [array get pairMap]
}
proc insertCommas { num {sep ,} } {
while { [regsub {^([-+]?\d+)(\d\d\d)} $num "\\1$sep\\2" num] } {}
return $num
}
array set serverID [parsePairs "gw2servers.tsv"]
}
proc pub:gw2Stats { nick uhost handle channel arg } {
set urlMatch "http://gw2stats.net/api/matches.json"
set urlRank "http://gw2stats.net/api/ratings.json"
set jsonMatch [http::data [http::geturl $urlMatch]]
set jsonRank [http::data [http::geturl $urlRank]]
set apiMatch [json::json2dict $jsonMatch]
set apiRank [json::json2dict $jsonRank]
set argList [regexp -inline -all -- {\S+} $arg]
set command [string trim [string tolower [lindex $argList 0]]]
if { $command == "match" } {
set region [string trim [string tolower [lindex $argList 1]]]
set group [string trim [string tolower [lindex $argList 2]]]
if { ![dict exists [dict get $apiMatch "region"] $region] } {
putserv "PRIVMSG $channel :$nick: Invalid region '$region'!"
return
}
if { [catch {set worlds [dict get [lindex [dict get [dict get $apiMatch "region"] $region] [expr { $group - 1 }]] "worlds"] } e] } {
putserv "PRIVMSG $channel :$nick: Invalid group '$group'!"
return
}
set output ""
foreach world $worlds {
set name [dict get $world "name"]
set score [dict get $world "score"]
set output "$output$name: $score, "
}
set output [string range $output 0 end-2]
putserv "PRIVMSG $channel :$nick: $output"
}
if { $command == "rank" } {
set region [string trim [string tolower [lindex $argList 1]]]
set server [string trim [string tolower [lindex $argList 2]]]
if { ![dict exists $apiRank $region] } {
putserv "PRIVMSG $channel :$nick: Invalid region '$region'!"
return
}
if { [lsearch [array names gw2Utils::serverID] $server] > -1 && $server != "" } {
set serverCode $gw2utils::serverID($server)
set stats [dict get [dict get [dict get [dict get $apiRank $region] "ratings"] $serverCode] "data"]
set rank [dict get $stats "current_rank"]
set rating [dict get $stats "current_rating"]
putserv "PRIVMSG $channel :$nick: $server $rank $rating"
}
}
