#!/usr/bin/perl -w
+# This is part of ypp-sc-tools, a set of third-party tools for assisting
+# players of Yohoho Puzzle Pirates.
+#
+# Copyright (C) 2009 Ian Jackson <ijackson@chiark.greenend.org.uk>
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+#
+# Yohoho and Puzzle Pirates are probably trademarks of Three Rings and
+# are used without permission. This program is not endorsed or
+# sponsored by Three Rings.
+
use strict qw(vars);
use IO::Handle;
use POSIX;
our (@have,@want,@price);
sub parse_args () {
- @ARGV or badusage("need some information to go on");
+ if (!@ARGV) {
+ print STDERR <<END or die $!;
+
+ypp-restock-rum is part of ypp-sc-tools Copyright (C) 2009 Ian Jackson
+This program comes with ABSOLUTELY NO WARRANTY; this is free software,
+and you are welcome to redistribute it under certain conditions.
+For details, read the top of the ypp-restock-rum file.
+END
+ badusage("need some information to go on");
+ }
while (@ARGV) {
$_ = shift @ARGV;
if (m/^have$/) {
parse_info(1,0,1, @{ $have[@have] }, 'have');
} elsif (m/^want$/) {
parse_info(1,0,0, @want, 'want');
- } elsif (m/^price$/) {
+ } elsif (m/^prices?$|^costs?$/) {
parse_info(0,1e7,0, @price, 'price');
} else {
badusage("unknown information argument \`$_'");