Code: Select all
<t id="0">26</t> <!--Argon Mammoth-->
Code: Select all
$id = -1
Code: Select all
load text: id=9979
$id = -1
$shipPopReq = table alloc
while $id < 500
inc $id
$shipPop = read text: page=9979 id=$id
$pos = find position of pattern 'ReadText' in $shipPop
do if $pos != -1
continue
$shipPop = string $shipPop to integer
$ship = get ware from maintype [SSTYPE_SHIP] and subtype $id
do if $ship
table set $shipPopReq ( $ship ) = $shipPop
end
set global variable: name='mayhem_shipPopReq' value=$shipPopReq
return $shipPopReq