#!/usr/bin/perl use CGI qw(:standard); $invitems = param("items"); $invingreds = param("ingreds"); print header(); $userinfo = cookie("powerstone_mixomatic_items"); ($iteminfo,$ingredinfo) = split(/\t/,$userinfo); foreach $key (split (/\,/,$iteminfo)){ $checkeditem{$key} = " CHECKED "; } foreach $key (split (/\,/,$ingredinfo)){ $checkedingred{$key} = " CHECKED "; } print<<__EOQ__; Power Stone 2 Mix-o-Matic
Easy Mix-o-Matic Interface - Back
Select the Items and Ingredients you currently have, then click "Submit" \n"; print "
Items
__EOQ__ $oldlevel = ""; open(READ,"items.txt"); while(defined($line=)){ chomp $line; $line =~ s/( *)$//; $line =~ /(\d+)\#(\d+)( *)(.*)$/; $level = $1; $itemno = $2; $itemname = $4; $what = $itemno; $itemlist {$itemno} = $itemname; } $i = 0; foreach $key (sort{$a <=> $b} keys %itemlist){ if($i % 31 ==0 && $i != 0){ print "\n";} print <<__EOQ__; #$key $itemlist{$key}
__EOQ__ $i++; } print "
\n"; print "Ingredients
\n"; close READ; open(READ,"ingred.txt"); while(defined($line=)){ chomp $line; $line =~ /^(\d+)\#(.*)\#(.*)$/; $itemno = $1; $itemname = $2; $stuff = $3; if($stuff =~ /^(.*)(\ \ +)(.*?)$/){ $cost = $3; } if($itemno == 12) { print "\n";} print<<__EOQ__; \@$itemno $itemname
__EOQ__ } print <<__EOQ__; 		Put checks next to the items and ingredients
that you currently own. Then hit 'Submit' to
see what other items you can by mixing them.

__EOQ__ close READ; print "

\n\n";