Laxus Bot CC Solar Constant

!cc add getsolar {oneline:
{set:Pi|3.14159265358979323846264338}
{set:Sol|383000000000000000000000000}
{set:Proxima|651100000000000000000000}
{set:Barnard|1340500000000000000000000}
{set:VYCanis|103410000000000000000000000000000}
{set:UYScuti|130220000000000000000000000000000}
{set:2MASS|48258000000000000000000}
{set:AU|149597870700}

{set:Star|
{if:{arg:0}|~|Sol|then:{get:Sol}|else:
{if:{arg:0}|~|Proxima|then:{get:Proxima}|else:
{if:{arg:0}|~|Barnard|then:{get:Barnard}|else:
{if:{arg:0}|~|Canis|then:{get:VYCanis}|else:
{if:{arg:0}|~|Scuti|then:{get:UYScuti}|else:
{if:{arg:0}|~|2MASS|then:{get:2MASS}|else:
{arg:0}}}}}}}}

{set:Dist|
{if:{arg:1}|~|Mercury|then:0.4|else:
{if:{arg:1}|~|Venus|then:0.72|else:
{if:{arg:1}|~|Earth|then:1|else:
{if:{arg:1}|~|Mars|then:1.53|else:
{if:{arg:1}|~|Belt|then:2.96|else:
{if:{arg:1}|~|Jupiter|then:5.21|else:
{if:{arg:1}|~|Saturn|then:9.55|else:
{if:{arg:1}|~|Uranus|then:19.21|else:
{if:{arg:1}|~|Neptune|then:30.07|else:
{if:{arg:1}|~|Pluto|then:40.7|else:
{if:{arg:1}|~|Voyager|then:129|else:
{if:{arg:1}|~|Sedna|then:900|else:
{if:{arg:2}|~|m|then:{math:{arg:1}|/|{get:AU}}|else:
{if:{arg:2}|~|meters|then:{math:{arg:1}|/|{get:AU}}|else:
{if:{arg:2}|~|km|then:{math:{arg:1}|*|1000|/|{get:AU}}|else:
{arg:1}}}}}}}}}}}}}}}}}

{set:Dist|{math:{get:Dist}|*|{get:AU}}}

{set:math2|{math:4|*|{get:Pi}|*|{get:Dist}|^|2}}
{set:Result|{math:{get:Star}|/|{get:math2}}}

{set:Result|{round:{math:{get:Result}|*|100}}}
{set:Result|{math:{get:Result}|/|100}}

{set:Result2|{round:{math:{get:Dist}|/|{get:AU}|*|1000}}}
{set:Result2|{math:{get:Result2}|/|1000}}

{if:{argslen}|=|0|then:Need help? Type `!solarinfo`|else:
The solar constant for {arg:0} is {get:Result} W/m² at {get:Result2} AU. (error? type `!solarinfo`)}}