#! C:\Perl\perl.exe

my $shots = 0;
my $es = 0;
my $as = 0;
my $ss = 0;
my $ssting = 0;
my $time = 0;
my $wait = .5;
my $modtime = $time + $wait;
my $esready = 0;
my $asready = 0;
my $sstingready = 0;
my $autoshottime = 2.25

print "Shotcap=";
my $shotcap = <STDIN>;

for ($shots = 0; $shots < $shotcap; $shots++) {

	$modtime = $time + .5;

	if ($esready <= $time) {
		$esready = $time + 6;
		$time = $time + 1.5;
		$es++;
		print "ES\n";
	} elsif ($asready <= $time) {
		$asready = $time + 10;
		$time = $time + 1.5;
		$as++;
		print "AS\n";
	} elsif ($sstingready <= $time) {
		$sstingready = $time + 21;
		$time = $time + 1.5;
		$ssting++;
		print "SSting\n";
	} elsif ($esready <= $modtime) {
		$esready = $modtime + 6;
		$time = $time + 1.5 + $wait;
		$es++;
		print "ES\n";
	} elsif ($asready <= $modtime) {
		$asready = $modtime + 10;
		$time = $time + 1.5 + $wait;
		$as++;
		print "AS\n";
	} elsif ($sstingready <= $modtime) {
		$sstingready = $modtime + 21;
		$time = $time + 1.5 + $wait;
		$ssting++;
		print "SSting\n";
	} else {
		$time = $time + 2;
		$ss++;
		print "SS\n";
	}
}

$time = $time - 1.5;

print "ES=$es\nAS=$as\nSSting=$ssting\nSS=$ss\nTime=$time\n";

my $autoshotcount = ($time)/($autoshottime);
$shots = ($time)/($es * 3 + $as + $ss + $autoshotcount);

print "$shots\n";