eRPK test 6

on *:text:*:#: {
  if ($me == Gervasio) {
    set %chan $chan
    if ($1 == .fc) {
      set %id $2
      set %ver fc
      set %url /citizen/profile/
      if ($2 == $null) {
        msg $chan Error: Insufficient parameters
        halt
      }
      erpk
    }
    if ($1 == .fca) {
      set %id 1
      set %ver fca
      if ($2 == $null) {
        msg $chan Error: Insufficient parameters
        halt
      }
      set %nick $2
      set %url $+(/citizen/search/,%nick,/)
      erpk
      set %ver fc
      set %url /citizen/profile/
      erpk
    }
    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))
    echo -a $(%str,2)
    set %rankl $gettok(%sockreader,12,44)
    set %rankl $gettok(%rankl,2,58)
    set %rankn $gettok(%sockreader,14,44)
    set %rankn $gettok(%rankn,2,58)
    set %rankn $gettok(%rankn,1,34)
    set %name $gettok(%sockreader,2,44)
    set %name $noqt($gettok(%name,2,58))
    set %dmgq0 $calc(((%rankl - 1) / 20 + 0.3) * ((%str / 10) + 40)*(1 + 0 / 100))
    set %dmgq1 $calc(((%rankl - 1) / 20 + 0.3) * ((%str / 10) + 40)*(1 + 20 / 100))
    set %dmgq2 $calc(((%rankl - 1) / 20 + 0.3) * ((%str / 10) + 40)*(1 + 40 / 100))
    set %dmgq3 $calc(((%rankl - 1) / 20 + 0.3) * ((%str / 10) + 40)*(1 + 60 / 100))
    set %dmgq4 $calc(((%rankl - 1) / 20 + 0.3) * ((%str / 10) + 40)*(1 + 80 / 100))
    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  $+ %name (Rank: %rankn [ $+ %rankl $+ ], Str: %str $+ ) 9:8:4: Q0: $int(%dmgq0) 9:8:4: Q1: $int(%dmgq1) 9:8:4: Q2: $int(%dmgq2) 9:8:4: Q3: $int(%dmgq3) 9:8:4: Q4: $int(%dmgq4) 9:8:4: Q5: $int(%dmgq5) 9:8:4: Q6: $int(%dmgq6) 9:8:4: 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,",})
  }
  if (%ver == fca) {
    set %nickt $gettok(%sockreader,1,44)
    set %nickt $gettok(%nickt,2,58)
    if (%nick == %nickt) {
      set %id $gettok(%sockreader,1,44)
      set %id $gettok(%id,2,58)
    }
    else {
      msg %chan Error: No citizen found with that name
      halt
    }
  }
  unset %chan
  unset %id
}