#!/usr/bin/perl -w
# enemy.pl - Don Yang (uguu.org)
#
# Prototype for generating swarm of kaomoji enemies.
#
# 2014-10-05

use strict;
use constant SEED => 0;


my @enemy = ("('A`)", "('A`)", "(A`)", "('A)");

for(my $score = 0; $score < 198; $score++)
{
   print "Score = $score\n";
   my $seed1 = SEED;
   my $seed2 = 0;

   for(my $y = 0; $y < 18; $y++)
   {
      for(my $x = 0; $x < 11; $x++)
      {
         $seed1 = ($seed1 * 67 + 97) % 198;
         $seed2 = ($seed2 * 193 + 287) % 384;
         print " " x ($seed2 % 3);
         if( $seed1 >= $score )
         {
            print $enemy[($seed2 / 3) & 3];
         }
         else
         {
            print " " x length($enemy[($seed2 / 3) & 3]);
         }
      }
      print "\n";
   }
}