Spring RTS Engine

Code: Select all

    while (TRUE)
        {
        gun_rotation = get XZ_ATAN(get PIECE_XZ(platform) - get PIECE_XZ(rotate_piece));

        turn cog_right to x-axis gun_rotation * COG_TURN now;
        turn cog_left to x-axis gun_rotation * (0 - COG_TURN) now;

        sleep 10;

        }	

Code: Select all

TurnTurret(angle) {
  signal SIG_Turn;
  set-signal-mask SIG_Turn;
  gun_rotation = get XZ_ATAN(get PIECE_XZ(platform) - get PIECE_XZ(rotate_piece));
  if (gun_rotation > angle) { //will probably have to be more complex to work right, didn't feel like thinking through the whole formula
    start-spin cog_left around x-axis speed ---;
    start-spin cog_right around x-axis speed ---;
  } else {
    start-spin cog_left around x-axis speed +++;
    start-spin cog_right around x-axis speed +++;
  }
  turn platform to y-axis angle speed ---;
  wait-for-turn platform around y-axis;
  stop-spin cog_left around x-axis;
  stop-spin cog_right around x-axis;
}

Code: Select all

	signal SIG_AIM1;
	set-signal-mask SIG_AIM1;
	pitch_01 = pitch;
	IF ( pitch_01 <= 32768 )
	{
	turn gun_aimer to x-axis 0 - pitch speed <200.0>;
	}
	IF ( pitch_01 > 32768 )
	{
	turn gun_aimer to x-axis pitch speed <200.0>;
	}
	heading_01 = heading;
	IF ( heading_01 <= 32768 )
	{
	turn turret to y-axis heading speed <200.0>;
spin gear1 around x-axis speed <50>;
spin gear2 around x-axis speed <-50>;
	}
	IF ( heading_01 > 32768 )
	{
	turn turret to y-axis 0 - heading speed <200.0>;
spin gear1 around x-axis speed <-50>;
spin gear2 around x-axis speed <50>;
	}

Code: Select all

CogTurn()
	{
	
	while (TRUE)
		{
		
		gun_rotation = gun_rotation + 10;
		
		turn platform to y-axis gun_rotation now;
		turn cog_right to x-axis gun_rotation * COG_TURN + gun_rotation now;
		turn cog_left to x-axis gun_rotation * (0 - COG_TURN) - gun_rotation now;
		
		sleep 10;
		
		}	
	}

Create()
	{
	start-script CogTurn();
	}

Code: Select all

#define SIG_AIM1 2 // any power of 2 not already used by another signal and I think you're limited to 8 bits so don't go over 128

#define NBR_TEETH_BIG_COG 15 // I didn't bother actually counting them, so change to the actual number
#define NBR_TEETH_SMALL_COG 6 // I didn't bother actually counting them, so change to the actual number

TargetCleared(k)//Rare TA function, I'm not even sure Spring calls it, and anyway you don't really need it.
{
	// Stop the turret rotation when the target is no more
	stop-spin gun around x-axis;
	stop-spin turret around y-axis;
	stop-spin cobleft around x-axis;
	stop-spin cobright around x-axis;
}


RestoreRestPosition()// Usually not used on immobile turrets
{
	sleep 5000;//Or a time proportionnal to the first argument of SetMaxReloadTime as usual
	turn gun to x-axis 0 - <30> speed <40>;// would look better if default resting position wasn't perfectly horizontal but aimed a bit upward. Sadly I don't remember if I must use negative or positive to aim up, so remove the 0 - if it nose dive when resting. Oh and "turn ... now" the same in Create()
	turn turret to y-axis 0 speed <20>;
	turn cobleft to x-axis 0 speed (<20>)*(NBR_TEETH_BIG_COG)/(NBR_TEETH_SMALL_COG);
	turn cobright to x-axis 0 speed (<20>)*(NBR_TEETH_BIG_COG)/(NBR_TEETH_SMALL_COG);

}

AimFromPrimary(p)
{
	p=0;//Just don't use a piece that is moved when the turret turns
}

AimPrimary(heading,pitch)
{
	signal SIG_AIM1;//Kill any previous instance of AimPrimary
	set-signal-mask SIG_AIM1;//Make it killable

	turn gun to x-axis 0 - pitch speed <70>;
	turn turret to y-axis heading speed <50>;
	turn cobleft to x-axis heading*(NBR_TEETH_BIG_COG)/(NBR_TEETH_SMALL_COG) speed (<50>)*(NBR_TEETH_BIG_COG)/(NBR_TEETH_SMALL_COG);
	turn cobright to x-axis 0 - ((heading*(NBR_TEETH_BIG_COG))/(NBR_TEETH_SMALL_COG)) speed (<50>)*(NBR_TEETH_BIG_COG)/(NBR_TEETH_SMALL_COG);
	wait-for-turn turret around y-axis;
	// No need to wait for the little cobs, they'll arrive exactly in the same time as the turret.
	wait-for-turn gun around x-axis;

	start-script RestoreRestPosition();// Static building usually don't restore their position to aiming south, they keep their last aiming angle to be ready for next attack, so you'd better not use that line
	return(1);
}

QueryPrimary(p)
{
	p=flare;
}