#!/usr/bin/perl -w

use strict;

if ($ARGV[1]) {
print <<AAA;

.ia {
display: inline-block;
  vertical-align: top;
  width: 24px;
  height: 24px;
  margin-bottom: 4px;
  padding: 0px;
}
AAA

}    
if (!$ARGV[0]) {
    exit;
}

my $count=$ARGV[0];
my $s = 10000 * ($count - 1);
my $l = 10000 * $count;


my $out = '';
for($s..$l){
    my $id = $_;
    my $filename = "../roicons/" . $id . ".png";
    #print $filename . "\n";

    if(-f $filename){
	my $img = ($id - ($id % 100)) ;
	my $x = ($id % 100) * 24;	
	$out .= <<__HOGEHOGE;
.i$id {
  background-image: url(https://images.mukya.net:8443/items/images/css/css-$img.png);
  background-position: -${x}px 0px;
}
__HOGEHOGE
    
    }
    
}

print $out;