on *:load: {
  hmake BPM 20
  hmake IS 20
}

on *:start: {
  hmake BPM 20
  hmake IS 20
  hload BPM enemyini\BPM.hsh
  hload IS enemyini\IS.hsh
}

on *:disconnect: {
  hsave BPM enemyini\BPM.hsh
  hsave IS enemyini\IS.hsh
}

on *:text:Your Chief of Intelligence dispatches*:#micka: {
  if ($18-19 == Blackpowder Missile.) {
    if (!$hget(BPM,$remove($gettok($1-,$14,32),'s))) {
      hadd BPM $remove($gettok($1-,$14,32),'s) $12 $+  $+ $18-19 $+  $6
    }
    if ($hget,$remove($gettok($1-,$14,32),'s)) != $null) {
      var %wep.num = $hget(BPM,$remove($gettok($1-,14,32),'s).data
      var %wep.num.inc = $gettok(%wep.num,1,127)
      var %wep.num.inced = $calc(%wep.num.inc + $12)
      var %wep.num = $reptok(%wep.num,%wep.num.inc,%wep.num.inced)
      var %spy.num = %wep.num
      var %spy.num.inc = $gettok(%spy.num,3,127)
      var %spy.num.inced = $calc(%spy.num.inc $+ $6)
      var %spy.num = $reptok(%spy.num,%spy.num.inc,%wep.num.inced)
      hadd BPM $remove($gettok($1-,14,32),'s) %spy.num
    }
  }
  if ($18-19 == Invisibility Shield.) {
    if (!$hget(IS,$remove($gettok($1-,$14,32),'s))) {
      hadd IS $remove($gettok($1-,$14,32),'s) $12 $+  $+ $18-19 $+  $6
    }
    if ($hget,$remove($gettok($1-,$14,32),'s)) != $null) {
      var %wep.num = $hget(IS,$remove($gettok($1-,14,32),'s).data
      var %wep.num.inc = $gettok(%wep.num,1,127)
      var %wep.num.inced = $calc(%wep.num.inc + $12)
      var %wep.num = $reptok(%wep.num,%wep.num.inc,%wep.num.inced)
      var %spy.num = %wep.num
      var %spy.num.inc = $gettok(%spy.num,3,127)
      var %spy.num.inced = $calc(%spy.num.inc $+ $6)
      var %spy.num = $reptok(%spy.num,%spy.num.inc,%wep.num.inced)
      hadd IS $remove($gettok($1-,14,32),'s) %spy.num
    }
  }
}

on *:text:!stats*:#micka: {
  if ((!$hget(BPM,$2)) && (!$hget(IS,$2)) {
    msg $chan No Stats on4 $2 for BPMs or IS | halt
  }
  if ((!$hget(BPM,$2)) && ($hget(IS,$2) != $null)) {
    var %stats = $hget(IS,$2).data
    msg $chan Stats for04 $2 $+ : IS Sabbed -03 $gettok(%stats,1,127) - Spies used:08 $gettok(%stats,3,127)  | halt
  }
  if (($hget(BPM,$2) != $null) && (!$hget(IS,$2))) {
    var %stats = $hget(BPM,$2).data
    msg $chan Stats for04 $2 $+ : BPMs Sabbed -03 $gettok(%stats,1,127) - Spies used:08 $gettok(%stats,3,127)  | halt
  }
  if (($hget(BPM,$2) != $null) && ($hget(IS,$2) != $null)) {
    var %stats.bpm = $hget(BPM,$2).data
    var %stats.is = $hget(IS,$2).data
    msg $chan Stats for04 $2 $+ :
    msg $chan BPM's sabbed:03 $gettok(%stats.bpm,1,127)
    msg $chan IS's sabbed:03 $gettok(%stats.is,1,127)
    msg $chan Spies used:08 $calc($gettok(%stats.bpm,3,127) + $gettok(%stats.is,3,127))
  }
}