Mako pools

gistfile1.txt

$include lib/rp

: wwwmakopool[ arr:data ref:player str:param -- ]
      { "Current active pools:"
      rpsys "Mako Pool/" array_get_propvals dup array_count not if pop "No pools are active at the moment." else
         "<table width=700>"
         "<tr><th>Name</th><th>Description</th><th>Current Contribution</th><th>Percent Complete</th></tr>"
         foreach var! desc var! name
             "<tr><td>" name @ "</td><td>"
             desc @ "</td><td>"
             rpsys { "Mako Pool/" name @ "/Total Contributions" }cat getpropint dup "/" swap 
			 rpsys { "Mako Pool/" name @ "/Goal" }cat getpropint dup rot swap / var! poolpercent "</td><td>"
			 poolpercent @ 
         repeat
         "</table>"
      then
      }cat .tell
"</body>" .tell