Mercurial > boosterpack

     1 #!/usr/bin/perl

     2 

     3 

     4   

     5 use List::Util qw(first max maxstr min minstr reduce shuffle sum);

     6 use Storable;

     7 use CGI::Ajax;

     8 use CGI;

     9 use Rule;

    10 use Filter;

    11 use Card;

    12 my $q = new CGI;

    13 

    14 

    15 

    16 my $refstruct = retrieve 'CARD.perl';

    17 my @pokes = @$refstruct;

    18 

    19 open ERR, ">./error.log";

    20 print ERR "hi";

    21 

    22 

    23 my %hash = ( 'gen_pack' => \&gen_pack, 'change_rules' => \&change_rules);

    24 

    25 

    26 

    27 

    28 

    29 

    30 my $pjx = CGI::Ajax->new(%hash);

    31 #$pjx->JSDEBUG(1);

    32 #$pjx->DEBUG(1);

    33 

    34 print $pjx->build_html($q,\&gen); # this outputs the html for the page

    35 

    36 

    37 

    38 

    39 

    40 sub change_rules

    41 {

    42 	my $currentRuleref = retrieve 'rlm/booster.prefs';

    43 	$currentRule = $$currentRuleref;

    44 	$a = shift;

    45 	$currentRule -> setSets(($a));

    46 	store \$currentRule, 'rlm/booster.prefs'; 

    47 	return $a;

    48   

    49 	

    50 }

    51 

    52 

    53 

    54 

    55 

    56 

    57 

    58 

    59 

    60 

    61 sub gen_pack

    62 {

    63 	

    64 	

    65 	

    66 	

    67 	sub tag_analyze

    68 	{

    69 

    70 	

    71 	

    72 	my @sets = $currentRule -> getSets();

    73 	print ERR @sets;

    74 	

    75 	my $card = shift;

    76 	

    77 	#print ERR $card->getPix();

    78 	#print ERR "\n";

    79 	return $card -> hasTags(@sets);

    80 	

    81 		

    82 	}

    83 		

    84 	my $currentRuleref = retrieve 'rlm/booster.prefs';

    85 	$currentRule = $$currentRuleref;

    86 	

    87 	my $mapRules = $currentRule -> getRarityMap();

    88 	my %mapRules = %$mapRules;

    89 	

    90 	

    91 	

    92 	

    93 	print ERR "@pokes";

    94 	@reduced = filter(\&tag_analyze, @pokes);

    95 	@reduced = shuffle(@reduced);

    96 	

    97 	my @final_list = ();

    98 	my $rnum = $mapRules{"Rare"};

    99 	my $unum = $mapRules{"Uncommon"};

   100 	my $cnum = $mapRules{"Common"};

   101 	

   102 	$holochoose = int(rand(3));

   103 	##########3

   104 	#my $rnum = 500;

   105 	#my $unum      =500;

   106 	#my $cnum = 500;

   107 	#;

   108 	##############

   109 	for $crd(@reduced)

   110 	{

   111 		

   112 		

   113 		if ($holochoose==0 or $holochoose==1 ){if (($crd -> hasTags("Rare"))and  ($rnum>0)){push @r_list, $crd;  $rnum--;}}

   114 		if ($holochoose==2){if (($crd -> hasTags("Rare Holo"))and  ($rnum>0)){push @r_list, $crd;  $rnum--;}}

   115 		#if (($crd -> hasTags("Rare") or $crd -> hasTags("Rare Holo"))and  ($rnum>0)){push @r_list, $crd;  $rnum--;}

   116 		if (($crd -> hasTags("Uncommon"))and  ($unum>0)){push @u_list, $crd;  $unum--;}

   117 		if (($crd -> hasTags("Common"))and  ($cnum>0)){push @c_list, $crd;  $cnum--;}

   118 		if ($rnum+$unum+$cnum == 0){last;}

   119 	}

   120 	

   121 	@final_list = (@r_list,@u_list,@c_list);

   122 	

   123 	

   124 	for $crd(@final_list)

   125 	{

   126 		$rob = $rob."<A HREF=\"javascript:popUp('".$crd->getPix()."')\"><img src = \"".$crd->getPix()."\"></img></A>";	

   127 		

   128 		

   129 	}

   130 	

   131 	#print $rob;

   132 

   133 	print ERR @reduced;

   134 	print ERR $rob;

   135 	print $rob;

   136 	return $rob;

   137 	close ERR;

   138 	

   139 	

   140 };

   141 

   142 

   143 

   144 

   145 

   146 sub gen

   147 {

   148 open FILE, "<index.html";

   149 return do { local $/; <FILE> };

   150 

   151 };

   152 

   153 #print "done";

   154 

   155 #print &change_rules("Fossil");

   156 print ERR &gen_pack;
author	Robert McIntyre <rlm@mit.edu>
date	Sat, 26 Jun 2010 20:06:08 -0400
parents	8c6d2ce90677
children