#!/usr/bin/perl -w
$world="ascent";
print "Input number of first new screenshot, then number/name pairs.\n";
open CUTME, ">cutme";
$first=<>; chomp $first;
while (<>) {
	chomp; $num=$_;
	$name=<>; chomp $name;
	rename ("screenshot$num.png","$world-$first-$name.png");
	`convert -resize 640x480 $world-$first-$name.png $world-$first-$name-small.png`;
	print CUTME "[URL=\"http://www.chiark.greenend.org.uk/~damerell/games/ksp/$world-$first-$name.png\"][IMG]http://www.chiark.greenend.org.uk/~damerell/games/ksp/$world-$first-$name-small.png[/IMG][/URL]\n"; $first++;
}
close CUTME;