Spring RTS Engine

Code: Select all

// Thank's be to 'Argh' for his script repository. 
#include "STANDARD_COMMANDS_GPL.h"
#include "FC_SFX.h"

//defines pieces in the unit's s3o or 3do model file
piece base, hullp1, hullp2, hullp3, eng;
piece sfx1, sfx2, sfx3;
piece turret, barrel, fp;
piece explo_base, explo_y, explo_point;

static-var restore_delay, healthlevel;
static-var d3, d6, d12;
static-var armour, heat;
static-var hitby;
static-var hitanglex, hitangley;
static-var wepstr; //weapon strength
static-var PR; //penetration roll
static-var defspeed;

#define	SIG_AIM1	2
#define	SIG_MOVE	4

//Scripted Effects
//WARNING! sfx types 1-3 are already used by FC_SFX.h!
#define NOVAFX 1027 //sfx type 4

//scripted weapons
//WARNING! weapons 13-16 are already used by FC_SFX.h!
#define NOVACANNON 2049 //weapon2 - will actually fire this, rather than detonate it

VarReduce()	//this is a custom function put in before Create() because Scriptor compiles things downwards.
			//As Create calls this function, it needs to exist before Create() or compile errors will occur
			//this applies to all functions you want to call anywhere - they need to be included before the caller
{
	if(heat > 0)
		{
		heat = heat - 1;
		}
	sleep 1000; //once per second
}

ConstantFX() //used for engine effects
{
	emit-sfx ENGFX from sfx1;
	emit-sfx ENGFX from sfx2;
	emit-sfx ENGFX from sfx3;
	sleep 100; //the above effects all occur every 10th of a second
}

DamageFX() //damage effects, obviously
{
	while( get BUILD_PERCENT_LEFT )	//this stops the unit spurting fire and smoke whilst being built
	{								//BUILD_PERCENT_LEFT gives a percentage of how much unit there is left to build
		sleep 1000;					//When it reaches 0, the unit is complete, and the while function ends
	}								//While functions run until the variable in brackets is 0, hence why this works
	get HEALTH; //gets the unit's health - is returned as a percentage	
	healthlevel = HEALTH;
	if(healthlevel < 50) //below 50% health
		{
		emit-sfx SMOKEFX from explo_point;
		}
	if(healthlevel < 25) //below 25% health
		{
		emit-sfx FIREFX from explo_point;
		}
	sleep 1000;
}

Create() //run when the unit is created (as in: when building begins)
{
	spin explo_base around x-axis speed <300>;
	spin explo_y around y-axis speed <300>;
	start-script VarReduce();
	start-script ConstantFX();
	start-script DamageFX();
	set MAX_SPEED to 5;
	defspeed=5;
	restore_delay = 2000;
	armour=10;
	heat=0;
	wepstr=0;
	PR=0;
}

CrewStunned()
{
	set MAX_SPEED to 0;
	sleep 5000; //five seconds
	set MAX_SPEED to defspeed; //default speed
}

CrewShaken()
{
	set MAX_SPEED to 1;
	sleep 5000; //five seconds
	set MAX_SPEED to defspeed; //default speed
}

PenetratingHit()
{
	emit-sfx FIREFX from explo_point; //visual clue to show weapon penetration
	d6 = RAND(1,6);
	if(heat>50)
	{
		d6 = d6 + 1;
	}
	if(heat>100)
	{
		d6 = d6 + 2;
	}
	if(d6==1)
	{
		call-script CrewStunned();
	}
	if(d6==2)
	{
		call-script CrewShaken();
	}
	if(d6==3)
	{		
		emit-sfx SMALLEXPLO from explo_point;
	}
	if(d6==4)
	{		
		set MAX_SPEED to 0;
		defspeed=0;
	}
	if(d6==5)
	{
		armour = armour - 1;
	}
	if(d6==6)
	{		
		emit-sfx MEDEXPLO from explo_point;
	}
	if(d6==7)
	{
		armour = armour - 2;
	}
	if(d6==8)
	{		
		emit-sfx LARGEEXPLO from explo_point;
		emit-sfx LARGEEXPLO from explo_point;
		emit-sfx LARGEEXPLO from explo_point;
		emit-sfx LARGEEXPLO from explo_point;
		emit-sfx LARGEEXPLO from explo_point;
		emit-sfx LARGEEXPLO from explo_point;
		emit-sfx LARGEEXPLO from explo_point;
		//will destroy the unit entirely
	}	
}

HitResults()
{
	d6 = RAND(1,6);
	if(heat>50)
	{
		d6 = d6 + 1;
	}
	if(heat>100)
	{
		d6 = d6 + 2;
	}
	PR = wepstr + d6;
	if(PR > armour)
	{
		call-script PenetratingHit();
	}
}

/*hitby tags
Curse the fact that Scriptor won't support strings!
	0 = Plasma weapon
	1 = Laser weapon
	2 = Missile weapon
	3 = Torpedo
	4 = Slug
	5 = Nova cannon
	6 = Mines
	7 = Cutting Beam
	8 = (standin for another 'Special' weapon I haven't thought up yet)
*/

/*index of Weapon IDs

0 = plasma cannon
001 = light plasma gun
002 = Anti-Ship Cannon

100 = Anti-FigB Laser
101 = Anti-Ship Laser
102 = Heavy Anti-Ship Laser

200 = Seeker Missile
201 = Heavy Missile
202 = Dumb Rocket
203 = Tac-Nuke

300 = Torpedo
301 = Swarm Torpedo
302 = Shotgun Torpedo

400 = SCannon
401 = RailCannon

500 = Nova Cannon

600 = Mine
601 = Anti-Matter mine (nasty bastards)

700 = Cutting beam
*/

HitByWeapID(x, y, id, damage) //run when the unit is hit. ID gives the ID of the weapon - most useful!
{
	hitanglex=x;
	hitangley=y;
	
	if(id==0) //plasma cannon
	{
		hitby=0;
		armour = armour - 0.1;
	}
	
	if(id==001) //light plasma
	{
		hitby=0;
	}
	
	if(id==002) //Anti-Ship (plasma) Cannon
	{
		hitby=0;
		armour = armour - 1;
	}
	
	if(id==100) //AFL
	{
		hitby=1;
		heat = heat + 1;
	}
	
	if(id==101) //ASL
	{
		hitby=1;
		heat = heat + 10;
	}
	
	if(id==200) //seeker missile
	{
		hitby=2;
		wepstr=6;
		call-script HitResults();
	}
	
	if(id==201 || id==202) //heavy missile and dumb missile
	{
		hitby=2;
		wepstr=7;
		call-script HitResults();
	}
	
	if(id==300) //torpedo
	{
		hitby=3;
		wepstr=9;
		call-script HitResults();
	}
	
	if(id==301) //swarm torpedo
	{
		hitby=3;
		wepstr=5;
		call-script HitResults();
	}
	
	if(id==302) //shotgun torpedo
	{
		hitby=3;
		wepstr=6;
		call-script HitResults();
	}
	
	if(id==400) //slug
	{
		hitby=4;
		wepstr=6;
		call-script HitResults();		
	}
	
	if(id==401) //rail cannon
	{
		hitby=4;
		wepstr=10;	
		call-script HitResults();	
	}
	
	if(id==500) //nova
	{
		hitby=5;
		armour = armour - 1;
		heat = heat + 50;
	}
	
	if(id==600) //mines
	{
		hitby=6;
	}
	
	if(id==700) //cutter beam
	{
		hitby=7;
		armour = armour - 0.01;
		heat = heat + 1;
	}
	return(100); //here, return tells the engine how much damage to do to the unit (as a percentage)
}

SetMaxReloadTime(time) //I can't remember what this does
	{
	restore_delay = time * 2;
	}

RestoreAfterDelay() //restores turrets to default positions
	{
	sleep restore_delay;
	turn turret to y-axis <0> speed <10>;
	turn barrel to x-axis <0> speed <10>;
	return 0;
	}

SweetSpot (piecenum) //where enemies shoot at - not used by Spring (Spring units will aim for the centre of the unit)
	{
	piecenum = base;
	}
	
QueryWeapon1 (piecenum) //the piece the weapon is fired from
	{
	piecenum = fp;
	}

AimFromWeapon1 (piecenum) //the point around which the weapon aims
	{
	piecenum = barrel;
	}

AimWeapon1(heading, pitch) //aiming anims for weapon1
	{
	signal SIG_AIM1;
	set-signal-mask SIG_AIM1;
	turn turret to y-axis heading speed <10>;
	turn barrel to x-axis (0 - pitch) speed <10>;
	return(TRUE);
	}

FireWeapon1() //called when the weapon fires
	{
	//here, you should be able to see that weapon1 is infact a dummy
	//as Nova weapons are supposed to charge up before firing,
	//I set it up so that weapon1 will tell scriptor when to fire...
	emit-sfx NOVAFX from fp; //charging effects
	heat = heat + 30;
	sleep 1000;	//The script will then wait a second of 'warm-up time'
	emit-sfx NOVACANNON from fp; //Fire the *real* Nova cannon
	return(0);
	}

/*hitby tags
Curse the fact that Scriptor won't support strings!
	0 = Plasma weapon
	1 = Laser weapon
	2 = Missile weapon
	3 = Torpedo
	4 = Slug
	5 = Nova cannon
	6 = Mines
	7 = Cutting Beam
	8 = (standin for another 'Special' weapon I haven't thought up yet)
*/

/*AimWeapon2(heading, pitch) //aiming anims for weapon2 (the real Nova Cannon that isn't meant to shoot on it's own)
	{
	sleep 99999999;
	}*/

Killed(severity, corpsetype) //Called when the unit dies
	{
	//Between here and return(0);, you can put a death anim. As I have here
	if(hitby==2 || hitby==3 || hitby==4 || hitby==6) //death caused by Slug, Torp, Mine or missile. || = OR
		{
		turn base to y-axis hitangley NOW;
		turn base to x-axis hitanglex NOW;
		move hullp1 to x-axis [10000] speed [1];
		spin hullp1 around z-axis speed <5>;
		sleep 1000;
		emit-sfx SMALLEXPLO from explo_point;
		sleep 750;
		emit-sfx SMALLEXPLO from explo_point;
		sleep 500;
		emit-sfx SMALLEXPLO from explo_point;
		sleep 100;
		emit-sfx MEDEXPLO from explo_point;
		sleep 80;
		emit-sfx MEDEXPLO from explo_point;
		sleep 50;
		emit-sfx MEDEXPLO from explo_point;
		sleep 30;
		emit-sfx LARGEEXPLO from explo_point;
		}
	if(hitby==0 || hitby==1) //death caused by Laser or Plasma
		{
		spin hullp1 around z-axis speed <5>;
		sleep 1000;
		emit-sfx SMALLEXPLO from explo_point;
		sleep 750;
		emit-sfx SMALLEXPLO from explo_point;
		sleep 500;
		emit-sfx SMALLEXPLO from explo_point;
		sleep 100;
		emit-sfx SMALLEXPLO from explo_point;
		sleep 80;
		emit-sfx SMALLEXPLO from explo_point;
		sleep 50;
		emit-sfx MEDEXPLO from explo_point;
		sleep 30;
		emit-sfx LARGEEXPLO from explo_point;
		}
	if(hitby==5 || hitby==7) //death caused by Nova or Cutting Beam
		{
		emit-sfx LARGEEXPLO from explo_point;
		emit-sfx MEDEXPLO from sfx1;
		emit-sfx MEDEXPLO from sfx2;
		emit-sfx MEDEXPLO from sfx3;
		}
	return(0);
	}

Code: Select all

[UNITINFO]
{
	UnitName=CASD_attf_Nova;
	Name=Nova Attack Frigate;
	Buildpic=missingbp.jpg;
	
	//    Required Tags
	BuildCostEnergy=500;
	BuildCostMetal=0;
	BuildTime=1500;
	Category=CASD ATTF NOTSTRIKE;
	Description=Crew Size: 15. Nova Cannon;
	FootprintX=2;
	FootprintZ=2;
	MaxDamage=4000;
	MovementClass=Escort;
	ObjectName=CASD_attf_Nova;
	Side=CASD;
	SoundCategory=CASD_Ships;
	TEDClass=VTOL;
	
	//    Movement
	BrakeRate=0.01;
	Acceleration=0.01;
	CanMove=1;
	MaxVelocity=5;
	MaxSlope=10;
	TurnRate=900;
	
	//    Buildings
	
	//    Construction
	Builder=0;
	WorkerTime=0;
	
	//    Resources
	EnergyMake=100;
	EnergyStorage=0;
	EnergyUse=10;
	MetalStorage=-15;
	
	//    Abilities
	CanAttack=1;
	CanFly=1;
	CanGuard=1;
	CanPatrol=1;
	CanStop=1;
	
	//    Sight/Radar
	SightDistance=600;
	
	//    Misc
	CruiseAlt=70;
	ExplodeAs=LARGE_BOOM;
	dontland=1;
	MaxWaterDepth=0;
	NoChaseCategory=NOTSTRIKE;
	SelfDestructAs=LARGE_BOOM;
	SmoothAnim=0;
	AirStrafe=0;
	bmcode=1;
	noautofire=0;
	firestandorders=1;
	standingfireorder=2;
	mobilestandorders=1;
	standingmoveorder=1;
	idleAutoHeal=15;
	idleTime=1800;
	defaultmissiontype=VTOL_standby;
	steeringmode=1;
	scale=1;
	maneuverleashlength=1280;
	bankscale=1;
	seismicsignature=0;
	shownanoframe=0;

	//Weapons
	Weapon1=Novadummy;
		WeaponMainDir1=0 1 0; //xyz
		MaxAngleDif1=180;
	Weapon2=Novacannon;
	Weapon14=SMALL_BOOM;
	Weapon15=MED_BOOM;
	Weapon16=LARGE_BOOM;

[SFXTypes]
	{		
	explosiongenerator0=custom:whitetail; //Remember to thank Smoth
	explosiongenerator1=custom:FIRE_FX;
	explosiongenerator2=custom:SMOKE_FX;
	explosiongenerator3=custom:NOVAFX;
	}
}

Code: Select all

[Novadummy]
	{
	ID=1000; //dummy / not-really-weapons weapons have id=1000
	name=dummy;
	rendertype=0;		/* 2D bitmap */
	lineofsight=1;
	turret=1;

	beamweapon=1;
	beamlaser=1;
	beamtime=0.01;
	thickness=2;
	corethickness=0.4;
	intensity=1; 
	laserflaresize=0;
	rgbcolor=0 0.5 1; //RGB
	rgbcolor2=1 1 1;

	range=500;
	reloadtime=0.01;
	//weapontimer=1;
	weaponvelocity=500;
	areaofeffect=15;
	soundstart=Meltagun;
	soundhit=Explosion5;
      	soundtrigger=1;
	//tolerance=6000;
	//pitchtolerance=3500; 
	energypershot=0;

	accuracy=0;

impulsefactor=0;
CollideFriendly=0;
AvoidFriendly=0;
NoSelfDamage=1;
craterMult=0;
craterBoost=0;

[DAMAGE]
	{
	default=0.000000001;
	}
}

[Novacannon]
	{
	ID=500; //IDs are organised by weapon strength
	name=Nova;
	rendertype=1;
	lineofsight=1;
	turret=1;
	model=plasmashot_ltblue.s3o;
	range=500;
	reloadtime=3;
	weapontimer=5;
	weaponvelocity=500;
	startvelocity=500;
	weaponacceleration=150;
	turnrate=0;
	areaofeffect=40;
	metalpershot=0;
	energypershot=60;
	soundstart=Plasmacannon;
	soundhit=Explosion5;
	firestarter=70;
	tolerance=8000;
	accuracy=500;
	explosiongenerator=custom:NOVA_BOOM;

impulsefactor=0;
impulseBoost=0;
CollideFriendly=0;
AvoidFriendly=0;
NoSelfDamage=1;
craterMult=0;
craterBoost=0;

[DAMAGE]
	{
	default=0.000000001;
	EscF=3000;
	AttF=3000;
	FigB=5000;
	}
}

Code: Select all

[SMALL_BOOM]
	{
	ID=1000;
	name=vehicles;
	rendertype=4;
	ballistic=1;
	turret=1;

	range=0;
	reloadtime=3.6;
	weaponvelocity=250;
	areaofeffect=64;
	edgeeffectiveness=0.5;
	soundstart=largegun;
	soundhit=xplolrg4;

	explosiongenerator=custom:SMALL_BOOM;

	impulsefactor=0;
	[DAMAGE]
		{
		default=250;
		}
	}

[MED_BOOM]
	{
	ID=1000;
	name=vehicles;
	rendertype=4;
	ballistic=1;
	turret=1;

	range=0;
	reloadtime=3.6;
	weaponvelocity=250;
	areaofeffect=128;
	edgeeffectiveness=0.5;
	soundstart=largegun;
	soundhit=xplolrg4;

	explosiongenerator=custom:MED_BOOM;

	impulsefactor=0;
	[DAMAGE]
		{
		default=500;
		}
	}

[LARGE_BOOM]
	{
	ID=1000;
	name=vehicles;
	rendertype=4;
	ballistic=1;
	turret=1;

	range=0;
	reloadtime=3.6;
	weaponvelocity=250;
	areaofeffect=256;
	edgeeffectiveness=0.5;
	soundstart=largegun;
	soundhit=xplolrg4;

	explosiongenerator=custom:LARGE_BOOM;

	impulsefactor=0;
	[DAMAGE]
		{
		default=1000;
		}
	}

Code: Select all

VarReduce()   //this is a custom function put in before Create() because Scriptor compiles things downwards. 
         //As Create calls this function, it needs to exist before Create() or compile errors will occur 
         //this applies to all functions you want to call anywhere - they need to be included before the caller
{ 
   if(heat > 0) 
      { 
      heat = heat - 1; 
      } 
   sleep 1000; //once per second 
}

Code: Select all

VarReduce()
{
 while(TRUE) //loop the script indefinitely
 { 
   if(heat > 0) 
      { 
      heat = heat - 1; 
      } 
   sleep 1000; //once per second 
}
}

Code: Select all

AimWeapon1(heading, pitch) //aiming anims for weapon1 
   { 
   signal SIG_AIM1; 
   set-signal-mask SIG_AIM1; 
   turn turret to y-axis heading speed <10>; 
   turn barrel to x-axis (0 - pitch) speed <10>; 
   return(TRUE); 
   }

Code: Select all

AimWeapon1(heading, pitch) //aiming anims for weapon1 
   { 
   signal SIG_AIM1; 
   set-signal-mask SIG_AIM1; 
   turn turret to y-axis heading speed <10>; 
   turn barrel to x-axis (0 - pitch) speed <10>; 
   wait-for-turn turret around y-axis;
   wait-for-turn barrel around x-axis;
   return(TRUE); 
   }

Code: Select all

// Thank's be to 'Argh' for his script repository. 
#include "STANDARD_COMMANDS_GPL.h"
#include "FC_SFX.h"

piece base, hullp1, hullp2, hullp3, eng;
piece sfx1, sfx2, sfx3;
piece turret, barrel, fp;
piece explo_base, explo_y, explo_point;

static-var restore_delay, bMoving;
static-var armour, heat;
static-var hitby;
static-var hitanglex, hitangley;
static-var wepstr; //weapon strength
static-var defspeed;

#define	SIG_AIM1	2
#define	SIG_MOVE	4

//Scripted Effects
//WARNING! sfx types 1-3 are already used by FC_SFX.h!
#define NOVAFX 1027 //sfx type 4

//scripted weapons
//WARNING! weapons 13-16 are already used by FC_SFX.h!
#define NOVACANNON 2050 //weapon2 - will actually fire this, rather than detonate it

VarReduce()
{
	while(TRUE)
	{
	if(heat > 0)
		{
		heat = heat - 1;
		}
	sleep 1000; //once per second
	}
}

ConstantFX() //used for engine effects
{
	while(TRUE)
	{
	emit-sfx ENGFX from sfx1;
	emit-sfx ENGFX from sfx2;
	emit-sfx ENGFX from sfx3;
	sleep 100;
	}
}

DamageFX() //damage effects, obviously
{
	var healthlevel;
	while(TRUE)
	{
	while( get BUILD_PERCENT_LEFT )	//this stops the unit spurting fire and smoke whilst being built
	{
		sleep 1000;
	}
	healthlevel = get HEALTH; //gets the unit's health - is returned as a percentage	
	if(healthlevel < 50) //below 50% health
		{
		emit-sfx SMOKEFX from explo_point;
		}
	if(healthlevel < 25) //below 25% health
		{
		emit-sfx FIREFX from explo_point;
		}
	sleep 1000;
	}
}

Create()
{
	spin explo_base around x-axis speed <300>;
	spin explo_y around y-axis speed <300>;
	start-script VarReduce();
	start-script ConstantFX();
	start-script DamageFX();
	defspeed=(5 * 65536);
	restore_delay = 2000;
	armour=100;
	heat=0;
	wepstr=0;
	bMoving=FALSE;
}

StartMoving()
{
	bMoving=TRUE;
}

SopMoving()
{
	bMoving=FALSE;
}

CrewStunned()
{
	set MAX_SPEED to 0.00000001;
	sleep 5000; //five seconds
	set MAX_SPEED to defspeed; //default speed
}

CrewShaken()
{
	set MAX_SPEED to (65536); //65536 = 1.0 in the maxvelocity fbi tag
	sleep 5000; //five seconds
	set MAX_SPEED to defspeed; //default speed
}


PenetratingHit()
{
	var d6;
	emit-sfx FIREFX from explo_point; //visual clue to show weapon penetration
	d6 = RAND(1,6);
	if(heat>50)
	{
		d6 = d6 + 1;
	}
	if(heat>100)
	{
		d6 = d6 + 1;
	}
	if(d6==1)
	{
		call-script CrewStunned();
	}
	if(d6==2)
	{
		call-script CrewShaken();
	}
	if(d6==3)
	{		
		emit-sfx SMALLEXPLO from explo_point;
	}
	if(d6==4)
	{		
		set MAX_SPEED to 0.00001;
		defspeed=0;
	}
	if(d6==5)
	{
		armour = armour - 1;
	}
	if(d6==6)
	{		
		emit-sfx MEDEXPLO from explo_point;
	}
	if(d6==7)
	{
		armour = armour - 2;
	}
	if(d6==8)
	{		
		emit-sfx LARGEEXPLO from explo_point;
		emit-sfx LARGEEXPLO from explo_point;
		emit-sfx LARGEEXPLO from explo_point;
		emit-sfx LARGEEXPLO from explo_point;
		emit-sfx LARGEEXPLO from explo_point;
		emit-sfx LARGEEXPLO from explo_point;
		emit-sfx LARGEEXPLO from explo_point;
		//will destroy the unit entirely
	}	
}

HitResults()
{
	var d6;
	var PR;
	d6 = RAND(1,6);
	if(heat>50)
	{
		d6 = d6 + 1;
	}
	if(heat>100)
	{
		d6 = d6 + 1;
	}
	PR = wepstr + d6;
	if(PR > armour)
	{
		call-script PenetratingHit();
	}
}

/*hitby tags
Curse the fact that Scriptor won't support strings!
	0 = Plasma weapon
	1 = Laser weapon
	2 = Missile weapon
	3 = Torpedo
	4 = Slug
	5 = Nova cannon
	6 = Mines
	7 = Cutting Beam
	8 = (standin for another 'Special' weapon I haven't thought up yet)
*/

/*index of Weapon IDs

0 = plasma cannon
001 = light plasma gun
002 = Anti-Ship Cannon

100 = Anti-FigB Laser
101 = Anti-Ship Laser
102 = Heavy Anti-Ship Laser

200 = Seeker Missile
201 = Heavy Missile
202 = Dumb Rocket
203 = Tac-Nuke

300 = Torpedo
301 = Swarm Torpedo
302 = Shotgun Torpedo

400 = SCannon
401 = RailCannon

500 = Nova Cannon

600 = Mine
601 = Anti-Matter mine (nasty bastards)

700 = Cutting beam
*/

HitByWeapID(x, y, id, damage)
{
	hitanglex=x;
	hitangley=y;
	
	if(id==0) //plasma cannon
	{
		hitby=0;
		armour = armour - 1;
	}
	
	if(id==001) //light plasma
	{
		hitby=0;
	}
	
	if(id==002) //Anti-Ship (plasma) Cannon
	{
		hitby=0;
		armour = armour - 5;
	}
	
	if(id==100) //AFL
	{
		hitby=1;
		heat = heat + 1;
	}
	
	if(id==101) //ASL
	{
		hitby=1;
		heat = heat + 10;
	}
	
	if(id==200) //seeker missile
	{
		hitby=2;
		wepstr=60;
		call-script HitResults();
	}
	
	if(id==201 || id==202) //heavy missile and dumb missile
	{
		hitby=2;
		wepstr=70;
		call-script HitResults();
	}
	
	if(id==300) //torpedo
	{
		hitby=3;
		wepstr=90;
		call-script HitResults();
	}
	
	if(id==301) //swarm torpedo
	{
		hitby=3;
		wepstr=50;
		call-script HitResults();
	}
	
	if(id==302) //shotgun torpedo
	{
		hitby=3;
		wepstr=60;
		call-script HitResults();
	}
	
	if(id==400) //slug
	{
		hitby=4;
		wepstr=60;
		call-script HitResults();		
	}
	
	if(id==401) //rail cannon
	{
		hitby=4;
		wepstr=100;	
		call-script HitResults();	
	}
	
	if(id==500) //nova
	{
		hitby=5;
		armour = armour - 1;
		heat = heat + 50;
	}
	
	if(id==600) //mines
	{
		hitby=6;
	}
	
	if(id==700) //cutter beam
	{
		hitby=7;
		armour = armour - 1;
		heat = heat + 1;
	}
	return(100); //here, return tells the engine how much damage to do to the unit (as a percentage)
}

SetMaxReloadTime(time)
	{
	restore_delay = time * 2;
	}

RestoreAfterDelay()
	{
	sleep restore_delay;
	turn turret to y-axis <0> speed <10>;
	turn barrel to x-axis <0> speed <10>;
	return 0;
	}

SweetSpot (piecenum) //where enemies shoot at - not used by Spring (Spring units will aim for the centre of the unit)
	{
	piecenum = base;
	}
	
QueryWeapon1 (piecenum)
	{
	piecenum = fp;
	}

AimFromWeapon1 (piecenum)
	{
	piecenum = barrel;
	}

AimWeapon1(heading, pitch)
	{
	signal SIG_AIM1;
	set-signal-mask SIG_AIM1;
	turn turret to y-axis heading speed <10>;
	turn barrel to x-axis (0 - pitch) speed <10>;	
	wait-for-turn turret around y-axis;
	wait-for-turn barrel around x-axis; 
	return(TRUE);
	}

FireWeapon1()
	{
	emit-sfx NOVAFX from fp; //charging effects
	heat = heat + 30;
	sleep 1000;	//The script will then wait a second of 'warm-up time'
	emit-sfx NOVACANNON from fp; //Fire the *real* Nova cannon
	return(0);
	}

/*AimWeapon2(heading, pitch)
	{
	sleep 99999999;
	}*/

Killed(severity, corpsetype)
	{
	if(hitby==2 || hitby==3 || hitby==4 || hitby==6) //death caused by Slug, Torp, Mine or missile. || = OR
		{
		turn base to y-axis hitangley NOW;
		turn base to x-axis hitanglex NOW;
		move hullp1 to x-axis [10000] speed [1];
		spin hullp1 around z-axis speed <5>;
		sleep 1000;
		emit-sfx SMALLEXPLO from explo_point;
		sleep 750;
		emit-sfx SMALLEXPLO from explo_point;
		sleep 500;
		emit-sfx SMALLEXPLO from explo_point;
		sleep 100;
		emit-sfx MEDEXPLO from explo_point;
		sleep 80;
		emit-sfx MEDEXPLO from explo_point;
		sleep 50;
		emit-sfx MEDEXPLO from explo_point;
		sleep 30;
		emit-sfx LARGEEXPLO from explo_point;
		}
	if(hitby==0 || hitby==1) //death caused by Laser or Plasma
		{
		spin hullp1 around z-axis speed <5>;
		sleep 1000;
		emit-sfx SMALLEXPLO from explo_point;
		sleep 750;
		emit-sfx SMALLEXPLO from explo_point;
		sleep 500;
		emit-sfx SMALLEXPLO from explo_point;
		sleep 100;
		emit-sfx SMALLEXPLO from explo_point;
		sleep 80;
		emit-sfx SMALLEXPLO from explo_point;
		sleep 50;
		emit-sfx MEDEXPLO from explo_point;
		sleep 30;
		emit-sfx LARGEEXPLO from explo_point;
		}
	if(hitby==5 || hitby==7) //death caused by Nova or Cutting Beam
		{
		emit-sfx LARGEEXPLO from explo_point;
		emit-sfx MEDEXPLO from sfx1;
		emit-sfx MEDEXPLO from sfx2;
		emit-sfx MEDEXPLO from sfx3;
		}
	return(0);
	}

Code: Select all

#define SIG_CHARGE 24
static-var isCharging;

ChargeWeapon(duration)
{
	var i, delay;
	delay = 50;

	isCharging = TRUE;
	for (i = delay; i < duration; i = i + delay)
	{
		emit-sfx fart from butt;
		sleep delay;
	}
	start-script FireCharge(250);
}
FireCharge(delay)
{
	// This function is neccessary because you need a little delay for the weapon to fire and FireWeapon1() to get called.

	set-signal-mask SIG_CHARGE;
	sleep delay;
	emit-sfx kick from foot;
	isCharging = FALSE;
}

AimWeapon1(pitch, heading)
{
	signal SIG_AIM1;
	set-signal-mask SIG_AIM1;

	// Not allowed to reaim when charging
	if (isCharging == TRUE) return 1;

	turn turret to y-axis heading;
	turn barrel to x-axis 0-pitch;

	call-script ChargeWeapon(1000);

	wait-for-turn turret around y-axis;
	wait-for-turn turret around x-axis;

	return 0;
}
FireWeapon1()
{
	// The signal will prevent the weapon from being fired twice
	signal SIG_CHARGE;
	isCharging = FALSE;
}