params ["_vic"];

comment "Variable Decs";
_vic allowDamage false;
_vic  setvariable ["Speed",200,true];
_vic  setvariable ["turnon",true,true];


comment "Increment Speed";
_vic  addAction ["<t color='#A668C2'>Increment Speed by 10 -------- U16</t>",
{
(_this select 0)  setvariable ["Speed",(((_this select 0) getVariable "Speed")+10),true];
hint parseText format["<t color='#A668C2'> Speed set to:%1 Kmph</t>",((_this select 0) getVariable "Speed")];
},[1],0,false,true,"User16"," driver  _target == _this"];



comment "Decrement Speed";
_vic  addAction ["<t color='#FF69B4'>Decrement Speed by 10 -------- U17</t>",
{
(_this select 0)  setvariable ["Speed",(((_this select 0) getVariable "Speed")-10),true];
hint parseText format["<t color='#FF69B4'>Speed set to:%1 Kmph</t>",((_this select 0) getVariable "Speed")];
},[1],0,false,true,"User17"," driver  _target == _this"];




comment "Engage";
_vic  addAction ["<t color='#00FF00'>Engage C.R.U.I.S.I.E Control System -------- U18</t>",
{

(_this select 0) setvariable ["turnon",true,true];
hint parseText "<t color='#00FF00'>ENGAGING C.R.U.I.S.I.E Control System</t>";
while { (alive (_this select 0)) AND (((_this select 0) getvariable "turnon"))} do
{

_Multiplier = 0.4;
_Acceleration = 0.6;
_sleep_time_acceleration_loop = 0.1;
_Max_Multiplier = .1;
_Coef_mul=((_Acceleration*_Multiplier/2)*(15*_sleep_time_acceleration_loop));


if ((speed (_this select 0)) < ((_this select 0) getVariable "Speed")) then {
 ((_this select 0)) setVelocity 
 [
 (velocity ((_this select 0)) select 0)+((vectordir ((_this select 0))) select 0)*_Coef_mul,
 (velocity ((_this select 0)) select 1)+((vectordir ((_this select 0))) select 1)*_Coef_mul,
 (velocity ((_this select 0)) select 2)+((vectordir ((_this select 0))) select 2)*_Coef_mul
 ]
 };




if (_Multiplier < _Max_Multiplier) then {_Multiplier = _Multiplier + 0.1*(15*_sleep_time_acceleration_loop)};
    
};
turnon=false;
},[1],0,false,true,"User18"," driver  _target == _this"];



comment "Disenage";
_vic  addAction ["<t color='#FFA500'>Disengage C.R.U.I.S.I.E Control System -------- U19</t>",
{
(_this select 0) setvariable ["turnon",false,true];
hint parseText "<t color='#FFA500'>DISENGAGING C.R.U.I.S.I.E Control System</t>";

hint parseText "<t color='#FFA500'>DRIVE DOWN</t>";
},[1],0,false,true,"User19"," driver  _target == _this"];



comment "Halt";
_vic  addAction ["<t color='#FF0000'>Stop Driver -------- U20</t>",
{
(_this select 0) setvariable ["turnon",false,true];
hint parseText "<t color='#FF0000'>HALTING</t>";
while {(speed (_this select 0) > 10)} do
{
	hint "DRIVING DOWN NOW";
	_vel = velocity (_this select 0) ;
	_dir = direction (_this select 0) ;
	_speed = -3;
	(_this select 0) setVelocity [
	(_vel select 0) + (sin _dir * _speed),
	(_vel select 1) + (cos _dir * _speed),
	(_vel select 2)
	];
   
};
hint parseText "<t color='#FF0000'>HALTING</t>";
},[1],0,false,true,"User20"," driver  _target == _this"];







