_plane1 = _this select 0
_player= player
Speed1 =0
after=true;
?(_player in _plane1):goto "works"
goto "Exit"
#works
	_plane1 setobjecttexture[0, ""]
	_plane1 animate ["Nozzle1", 0];
	_plane1 animate ["Nozzle2", 0];
	_plane1 animate ["Nozzle3", 0];
	_plane1 animate ["Nozzle4", 0];
	_plane1 animate ["Nozzle5", 0];
	_plane1 animate ["Nozzle6", 0];
	_plane1 animate ["Nozzle7", 0];
	_plane1 animate ["Nozzle8", 0];
	_plane1 animate ["Nozzle9", 0];
	_plane1 animate ["Nozzle10", 0];
;Goto "Play"


	_plane1 vehicleRadio "Afterburn"
#Loop
	?(after):goto "Play"
Goto "Exit"
#Play
(_plane1 setfuel (fuel _plane1) -0.00003)
?(fuel _plane1)<=0.00001:goto "Exit"
?(speed _plane1) >= 1130: (speed _plane1)==1130;goto"loop"
; the following code is based upon Spitfire's turboboost script
	_plane1 animate ["Nozzle1", 1];
	_plane1 animate ["Nozzle2", 1];
	_plane1 animate ["Nozzle3", 1];
	_plane1 animate ["Nozzle4", 1];
	_plane1 animate ["Nozzle5", 1];
	_plane1 animate ["Nozzle6", 1];
	_plane1 animate ["Nozzle7", 1];
	_plane1 animate ["Nozzle8", 1];
	_plane1 animate ["Nozzle9", 1];
	_plane1 animate ["Nozzle10", 1];

_plane1 setobjecttexture[0, "\BWC_MIII\T\flame.paa"]

?(speed _plane1) < 20 : _factor = 1.1;goto "speed";
?(speed _plane1) < 30 : _factor = 1.1;goto "speed";
?(speed _plane1) < 40 : _factor = 1.2;goto "speed";
?(speed _plane1) < 50 : _factor = 1.2;goto "speed";
?(speed _plane1) < 100 : _factor = 1.5;goto "speed";
?(speed _plane1) < 150: _factor = 1.5;goto "speed";
?(speed _plane1) < 200 : _factor = 1.5;goto "speed";
?(speed _plane1) < 250 : _factor = 2;goto "speed";
?(speed _plane1) < 300 : _factor = 2;goto "speed";
?(speed _plane1) < 350 : _factor = 2;goto "speed";
?(speed _plane1) < 450 : _factor = 2.5;goto "speed";
?(speed _plane1) < 550 : _factor = 2.5;goto "speed";
?(speed _plane1) < 650 : _factor = 2.5;goto "speed";
?(speed _plane1) < 750 : _factor = 3;goto "speed";
?(speed _plane1) < 900 : _factor = 3;goto "speed";


#speed
;?((getpos _plane1 select 2) > 1):goto "morespeed";

_plane1 setVelocity[(_factor*(sin getDir _plane1))+(velocity _plane1 select 0),(_factor*(cos getDir _plane1))+(velocity _plane1 select 1),(velocity _plane1 select 2)];
~0.08
goto "loop"

goto "Exit"



#Exit
exit