#!/usr/bin/perl -w
use strict;
use lib "$ENV{HOME}/bin", "."; # ... to find...
require 'parser.pl';
######################################################################
# Configure the TSN RP Ships on a server.
# Run like:  ./TSN-RP-Ships.pl | nc -q1 127.1 2010 | ./parser.pl
# (replace 127.1 with the address of your server)
######################################################################
# (C) 2015-2018 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
######################################################################
# Util functions for TSN Fighters:
*TSNMedFighter = SSConf (qw(100 TSN player singleseat fighter));
*TSNBomber     = SSConf (qw(101 TSN player singleseat fighter)); # yeah :-(
*TSNShuttle    = SSConf (qw(102 TSN player singleseat shuttle));
*TSNLRShuttle  = SSConf (qw(103 TSN player singleseat shuttle));

######################################################################
# ShipConf(drivetype(0=warp,1=jump), shiptype (from vesselData.xml), colour (0.0-1.0), "name",
#     TSNShuttle("name"),
#     TSNLRShuttle("name"),
#     TSNFighter("name"),
#     TSNBomber("name"),  ...
# );

ShipConf(0, 0, 0,     "TSN Sabre",      # Warp Artemis Class
    # TSNMedFighter("Foo"),
    # TSNMedFighter("Wibble"),
);
ShipConf(0, 0, 0.125, "TSN Horizon");    # Warp Artemis Class
ShipConf(0, 0, 0.25,  "TSN Viper");      # Warp Artemis Class
ShipConf(0, 0, 0.375, "TSN Lancer");     # Warp Artemis Class
ShipConf(0, 0, 0.5,   "TSN Hunter");     # Warp Artemis Class
ShipConf(0, 0, 0.675, "TSN Valiant");    # Warp Artemis Class
ShipConf(0, 0, 0.75,  "TSN Excalibur");  # Warp Artemis Class
ShipConf(0, 0, 0.875, "TSN Necessity");  # Warp Artemis Class

######################################################################