Oolite Bulletins

Code: Select all

{
	"INITIALISE" = {
		ENTER = ("scanForNearestShipWithRole: player", "commsMessage: [feudal-lance-wing]"); 
		"TARGET_FOUND" = (setTargetToFoundTarget, "setStateTo: FOLLOW_PLAYER"); 
		"NOTHING_FOUND" = ("setStateTo: LOCATE_PLAYER");
		UPDATE = ("scanForNearestShipWithRole: player", "pauseAI: 3.0"); 
	};
 
	"FIND_PLAYER" = {
		ENTER = ("scanForNearestShipWithRole: player"); 
		ATTACKED = (setTargetToPrimaryAggressor, "setStateTo: ATTACK_SHIP");
		"TARGET_FOUND" = (setTargetToFoundTarget, "setStateTo: FOLLOW_PLAYER"); 
		"NOTHING_FOUND" = ("setStateTo: LOCATE_PLAYER");
		"INCOMING_MISSILE" = (fightOrFleeMissile, setTargetToPrimaryAggressor, "setStateTo: ATTACK_SHIP"); 
		UPDATE = ("scanForNearestShipWithRole: player", "pauseAI: 3.0"); 
	}; 

	"LOCATE_PLAYER" = {
		ENTER = ("sendScriptMessage: locatePlayer");
		"PLAYER_FOUND" = ("setDesiredRangeTo: 12800.0", setDestinationToTarget, checkCourseToDestination);
		"COURSE_OK" = ("sendScriptMessage: checkPlayerDistance");
		"PLAYER_FAR" = ("setSpeedFactorTo: 50.0", performFlyToRangeFromDestination);
		"PLAYER_MID" = ("setSpeedFactorTo: 10.0", performFlyToRangeFromDestination);
		"PLAYER_NEAR" = ("setSpeedFactorTo: 5.0", performFlyToRangeFromDestination);
		"DESIRED_RANGE_ACHIEVED" = ("setStateTo: FIND_PLAYER");
		ATTACKED = (setTargetToPrimaryAggressor, "setStateTo: ATTACK_SHIP");
		"INCOMING_MISSILE" = (fightOrFleeMissile, setTargetToPrimaryAggressor, "setStateTo: ATTACK_SHIP"); 
		UPDATE = ("addFuel: 2.0", "sendScriptMessage: locatePlayer", "pauseAI: 5.0");
	};

	"FOLLOW_PLAYER" = {
		ENTER = ("setDesiredRangeTo: 3000", setDestinationToTarget, checkCourseToDestination); 
		ATTACKED = (setTargetToPrimaryAggressor, "setStateTo: ATTACK_SHIP");
		"COURSE_OK" = ("setSpeedFactorTo: 1.0", performFlyToRangeFromDestination);
		"TARGET_LOST" = ("setStateTo: FIND_PLAYER"); 
		"DESIRED_RANGE_ACHIEVED" = ("setSpeedFactorTo: 1.0", performIdle, "setStateTo: LOOK_FOR_TARGETS"); 
		"INCOMING_MISSILE" = (fightOrFleeMissile, setTargetToPrimaryAggressor, "setStateTo: ATTACK_SHIP"); 
		"OFFENCE_COMMITTED" = (setTargetToFoundTarget, "setStateTo: ATTACK_SHIP"); 
		UPDATE = ("addFuel: 1.0", checkCourseToDestination, "pauseAI: 3.0"); 
	}; 
	
 "LOOK_FOR_TARGETS" = {
        "ATTACKED" = (setTargetToPrimaryAggressor, "setStateTo: ATTACK_SHIP"); 
        "INCOMING_MISSILE" = (fightOrFleeMissile, setTargetToPrimaryAggressor, "setStateTo: ATTACK_SHIP"); 
		"TARGET_FOUND" = (setTargetToFoundTarget, "setStateTo: ATTACK_SHIP"); 
       	"NOTHING_FOUND" = ("setStateTo: FIND_PLAYER"); 	
		ENTER = ("setSpeedTo: 0.0", "scanForNearestShipHavingAnyRole: feudal-madmonk communist-cobra", "pauseAI: 1.0");
		EXIT = ();
		UPDATE = ("scanForNearestShipHavingAnyRole: feudal-madmonk communist-cobra", "pauseAI: 1.0");
	}; 
	
 
	"ATTACK_SHIP" = {
		ENTER = (performAttack); 
		"ENEMY_FIRE" = ("setSpeedFactorTo: 1.0", performAttack); 
		"INCOMING_MISSILE" = (fightOrFleeMissile, setTargetToPrimaryAggressor, "setStateTo: ATTACK_SHIP"); 
		"TARGET_DESTROYED" = ("setSpeedFactorTo: 0.75", "setStateTo: FIND_PLAYER"); 
		"TARGET_LOST" = ("setSpeedFactorTo: 0.75", "setStateTo: FIND_PLAYER"); 
		"TARGET_EJECTED" = ("setSpeedFactorTo: 0.75", "setStateTo: FIND_PLAYER"); 
		UPDATE = ("scanForNearestShipHavingAnyRole: feudal-madmonk communist-cobra", "pauseAI: 1.0");
	}; 

	GLOBAL = {
		ENTER = ("setStateTo: INITIALISE");
	}; 

}

Code: Select all

"use strict";
/*

feudalAItest.js

Script for creating and handling Feudal Carriers.


Oolite
Copyright © 2003-2012 Giles C Williams and contributors

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 2
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, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
MA 02110-1301, USA.


thargoid_carrier.oxp
Copyright © 2006-2012 "Selezen", scripting by "Commander McLane"

This work is licensed under the Creative Commons
Attribution-Noncommercial-Share Alike 3.0 Unported License.

To view a copy of this license, visit
http://creativecommons.org/licenses/by-nc-sa/3.0/ or send a letter
to Creative Commons, 171 Second Street, Suite 300, San Francisco,
California, 94105, USA.

*/

this.name           = "feudalAItest";
this.description    = "Script for testing an AI";
this.author         = "DG";
this.copyright      = "© 2012 Selezen and Commander McLane";
this.license        = "CC-by-nc-sa 3.0";
this.version        = "1.0";

this.startUp = function () {

}


this.broadcastcontrol = function() {
 

var w = worldScripts.BroadcastCommsMFD;
w.$createMessage({
messageName:this.name + "myMessage1",
callbackFunction:this.$broadcastCallback.bind(this),
displayText:"Regroup",
messageText:"Follow Me.",
transmissionType:"broadcast",
deleteOnTransmit:true,
delayCallback:4});   
   
}   
   	 
this.$broadcastCallback = function () {
	 
this.ship = player.ship.target;
this.ship.switchAI("feudal-BCCregroupAI.plist");
	
}; 


this.shipWillLaunchFromStation = function() {
this.broadcastcontrol();
}

this.shipLaunchedFromStation = function()
{
	
		system.addShipsToRoute("feudal-LanceTest", 1, 0.95);
		player.commsMessage("press Shift N to activate Broadcast Comm - press ; to view multi-function display - Target ship - press B to select required command - press N to issue command.");
	
}

this.locatePlayer = function() {
	this.playerArray = system.shipsWithPrimaryRole("player");
	if(this.playerArray.length > 0)
		{
		this.ship.target = this.playerArray[0];
		this.ship.reactToAIMessage("PLAYER_FOUND");
		}
}

this.checkPlayerDistance = function() {
	if(!player.ship)
		{
		return;	
		}

	this.playerDistance = this.ship.position.distanceTo(player.ship.position);
	if(this.playerDistance > 51200) // if the escort is more than 2 scanner ranges from the player, move it just off-scanner
		{
		let playerDirection = player.ship.position.subtract(this.ship.position).direction(); 
		let newPosition = player.ship.position.subtract(playerDirection.multiply(30000));
		if (oolite.compareVersion('1.73') <= 0) 
			{
			this.ship.position = newPosition;
			}
		else 
			{
			this.ship.setPosition(newPosition);
			}
		this.ship.reactToAIMessage("PLAYER_MID");
		return;
		}

	if(this.playerDistance < 25600)
		{
		this.ship.reactToAIMessage("PLAYER_NEAR");
		}
	else
		{
		if(this.playerDistance > 38400 || player.ship.speed > 2000)
			{
			this.ship.reactToAIMessage("PLAYER_FAR");
			}
		else
			{
			this.ship.reactToAIMessage("PLAYER_MID");
			}
		}
}

Code: Select all

            } else if( bay && fi.position.distanceTo(ship.position) < fi.scannerRange ) {
                //using the fighter's (and not mother's) scannerRange for King's 50km scanner
                fi.script._landNow(fi, ship); //Fighter bay help land fighters

Code: Select all

	{
		weapon_damage_override = 0;
	}

	scannerRange = [shipDict oo_floatForKey:@"scanner_range" defaultValue:(float)SCANNER_MAX_RANGE];
	
	fuel = [shipDict oo_unsignedShortForKey:@"fuel"];	// Does it make sense that this defaults to 0? Should it not be 70? -- Ahruman

Code: Select all

- (void) drawScannerFromEntity:(int) n
{	
	int i;
    int scanner_cx = SCANNER_CENTRE_X;
	int scanner_cy = SCANNER_CENTRE_Y;
	int scanner_scale = SCANNER_SCALE;
	double max_scanner_range2 = scanner_scale*scanner_scale*10000.0;
	BOOL	isHostile = NO;
	BOOL	foundHostiles = NO;
	
	....
	
					{
					GLfloat x1,y1,y2,z1;
					double upscale = 1.25;
					
					if ([drawthing getZeroDistance] > max_scanner_range2)
						continue;
					
					relativePosition = [drawthing getPosition];
					// translate the view
	

Code: Select all

....
        "ENTER_WORMHOLE" =
	 {
		ENTER =
		(
			setDestinationToTarget,
			"setDesiredRangeTo: 0.0",
			"setSpeedFactorTo: 10.0",
			performFlyToRangeFromDestination,
                        "dropMessages: TARGET_LOST"
		);
		"PLAYER WITCHSPACE" = (enterTargetWormhole);
		"DESIRED_RANGE_ACHIEVED" = ("setStateTo: LOOK_FOR_BUSINESS");
	};
	"EXIT_WORMHOLE" =
	 {
                ENTER = (
                        setDestinationToCurrentLocation, 
                        "setDesiredRangeTo: 7500.0", 
			"setSpeedTo: 50", 
                        performFlyToRangeFromDestination
                ); 
		ATTACKED = (setTargetToPrimaryAggressor, "setStateTo: ATTACK");
		"CASCADE_WEAPON_DETECTED" = ("setAITo: fleeQMineAI.plist");
		"GROUP_ATTACK_TARGET" = (setTargetToFoundTarget, "setStateTo: ATTACK");
                "DESIRED_RANGE_ACHIEVED" = ("setStateTo: LOOK_FOR_BUSINESS"); 
		ESCORTING = ("setDesiredRangeTo: 0.0", "setStateTo: NEXT_TARGET");
                "NOT_ESCORTING" = ("setStateTo: FOLLOW");
                "TARGET_LOST" = ("setStateTo: FOLLOW");
		UPDATE = (escortCheckMother, "pauseAI: 2.1");
        };
        ....

Code: Select all

    "PLAYER WITCHSPACE"  = (enterPlayerWormhole);