curaccuracy v1.0

// curaccuracy - Returns the given client's current accuracy for a given weapon. Does NOT work with bots or with nades. :(
//               /echo (curaccuracy (findcn $curname) 5) - Returns your current sniper rifle accuracy.
alias valid_weapons [0 1 2 3 4 5 6 9]
alias weapons_dmg [50 18 60 105 15 80 24 " " " " 18]
alias curaccuracy [
  if $connected [
    alias weap_atk 0
    alias weap_dmg 0
    alias landed 0
    if (! (strstr $valid_weapons $arg2)) [result -1] [
      if (strcmp (findpn $arg1) "") [result -1] [
        if (= $arg2 0) [
          alias weap_atk (at (pstat_weap $arg1) 0)
          alias weap_dmg (at (pstat_weap $arg1) 1)
          alias landed (div $weap_dmg (at $weapons_dmg 0))
        ]
        if (= $arg2 1) [
          alias weap_atk (at (pstat_weap $arg1) 2)
          alias weap_dmg (at (pstat_weap $arg1) 3)
          alias landed (div $weap_dmg (at $weapons_dmg 1))
        ]
        if (= $arg2 2) [
          alias weap_atk (at (pstat_weap $arg1) 4)
          alias weap_dmg (at (pstat_weap $arg1) 5)
          alias landed (div $weap_dmg (at $weapons_dmg 2))
        ]
        if (= $arg2 3) [
          alias weap_atk (at (pstat_weap $arg1) 6)
          alias weap_dmg (at (pstat_weap $arg1) 7)
          alias landed (div $weap_dmg (at $weapons_dmg 3))
        ]
        if (= $arg2 4) [
          alias weap_atk (at (pstat_weap $arg1) 8)
          alias weap_dmg (at (pstat_weap $arg1) 9)
          alias landed (div $weap_dmg (at $weapons_dmg 4))
        ]
        if (= $arg2 5) [
          alias weap_atk (at (pstat_weap $arg1) 10)
          alias weap_dmg (at (pstat_weap $arg1) 11)
          alias landed (div $weap_dmg (at $weapons_dmg 5))
        ]
        if (= $arg2 6) [
          alias weap_atk (at (pstat_weap $arg1) 12)
          alias weap_dmg (at (pstat_weap $arg1) 13)
          alias landed (div $weap_dmg (at $weapons_dmg 6))
        ]
        if (= $arg2 9) [
          alias weap_atk (at (pstat_weap $arg1) 18)
          alias weap_dmg (at (pstat_weap $arg1) 19)
          alias landed (div $weap_dmg (at $weapons_dmg 9))
        ]
        result (*f (divf $landed $weap_atk) 100.00)
      ]
    ]
  ] [result -1]
]
docsection [Accuracy];
docident [curaccuracy] [Returns a given clients current accuracy with a given weapon.];
docargument [c] [A valid client number.];
docargument [w] [A valid weapon number.];
docargument [Does not work offline with bots or with grenades. Will return -1 if you try to use an invalid client or weapon number, or if executed while not connected to a server.];