eRPK test 5

on *:text:*:#: {
  if ($me == Gervasio) {
    set %chan $chan
    if ($1 == .fc) {
      erpk
      set %id $2
      set %ver fc
      set %url /citizen/profile/
      if ($2 == $null) msg $chan Error: Insufficient parameters
    }
    if ($1 == .dist) {
      if ($2 == $null) msg $chan Error: Insufficient parameters |
      set %ff $2
      set %id $gettok($3,6,47)
      set %ver dist
      erpk
    }
    if ($1 == .battle) {
      set %ver battle
      set %id $2
      set %url /battle/
      erpk
    }
  }
}
alias erpk {
  if ($sock(erpk)) { sockclose erpk }
  sockopen erpk erpk-api.com 80
}

on *:sockopen:erpk:{
  sockwrite -n $sockname GET $+(,%url,%id,.json?key=wVYjogjGye) HTTP/1.1
  sockwrite -n $sockname Host: erpk-api.com
  sockwrite -n $sockname user-agent: Mozilla/??
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname $crlf
}
on *:sockread:erpk:{
  if ($sockerr > 0) {
    echo -a SOCKET ERROR: $sockerr
    halt
  }
  sockread &t
  var %sockreader $bvar(&t,$calc($bfind(&t,1,13 10 13 10) + 4) $+ -).text
  if (%ver == fc) {
    set %rankp $gettok(%sockreader,11,44)
    set %rankp $gettok(%rankp,3,58)
    set %str $gettok(%sockreader,10,44)
    set %str $int($gettok(%str,2,58))
    set %rankl $gettok(%sockreader,12,44)
    set %rankl $gettok(%rankl,2,58)
    set %dmgq5 $calc(((%rankl - 1) / 20 + 0.3) * ((%str / 10) + 40)*(1 + 100 / 100))
    set %dmgq6 $calc(((%rankl - 1) / 20 + 0.3) * ((%str / 10) + 40)*(1 + 120 / 100))
    set %dmgq7 $calc(((%rankl - 1) / 20 + 0.3) * ((%str / 10) + 40)*(1 + 200 / 100))
    msg %chan Q5 - $int(%dmgq5) / Q6 - $int(%dmgq6) / Q7 - $int(%dmgq7)
    unset %ver
  }
  if (%ver == battle) {
    set %region $gettok(%sockreader,6,44)
    set %region $gettok(%region,2,58)
    msg %chan %region
    msg %chan $remove(%region,",})
  }
  unset %chan
  unset %id
}