eRPK test 3

on *:text:*:#: {
  set %chan $chan
  if ($1 == .rank) {
    erpk
    set %id $2
    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
  }
}
alias erpk {
  if ($sock(erpk)) { sockclose erpk }
  sockopen erpk erpk-api.com 80
}

on *:sockopen:erpk:{
  sockwrite -n $sockname GET $+(/citizen/profile/,%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 == dist) {
    set %rankp $gettok(%sockreader,9,44)
    set %rankp $gettok(%rankp,3,58)
    msg %chan Rankpoints: %rankp
    set %str $gettok(%sockreader,8,44)
    set %str $gettok(%str,2,58)
    msg %chan Strenght: %str
    set %rankl $gettok(%sockreader,10,44)
    set %rankl $gettok(%rankl,2,58)
    msg %chan Rank level: %rankl
    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))
    msg %chan Q5 Damage - %dmgq5 / Q6 Damage - %dmgq6
  }
  unset %chan
  unset %id