#!/usr/bin/perl -w
use strict;
use lib "$ENV{HOME}/bin", "."; # ... places to find...
require "parser.pl";
######################################################################
# Configure ALL Xim Carriers on a server.
# Run like:  ./XimCarrierShips.pl | nc -q1 127.1 2010 | ./parser.pl
# (replace 127.1 with the address of your server)
######################################################################
# (C) 2021 Nosey Nick Waterman,
#   <perl@noseynick.org>   https://noseynick.net/artemis/
# All wrong righted, all rights reserved. Licensed under thev GNU
# Affero General Public License v3.0 https://www.gnu.org/licenses/agpl.txt
# with Commons Clause https://commonsclause.com/ v1.0
######################################################################
*ZimBomber  = SSConf(qw(121 Ximni player singleseat fighter));

my $col=0;
for my $ship (
    [ red    => 0       ],
    [ orange => 0.08333 ],
    [ yellow => 0.16666 ],
    [ green  => 0.33333 ],
    [ cyan   => 0.5     ],
    [ blue   => 0.66666 ],
    [ indigo => 0.77777 ],
    [ violet => 0.88888 ],
) {
    my ($name, $col) = @$ship;
    ShipConf(1, 12, $col, $name, # Jump XimniCarrier
	ZimBomber("$name-1"),  ZimBomber("$name-2"),  ZimBomber("$name-3"),
	ZimBomber("$name-4"),  ZimBomber("$name-5"),  ZimBomber("$name-6"),
    );
}