Medic Lights funktionieren nicht

/*
File: fn_copLights.sqf
Author: mindstorm, modified by Adanteh
Link: http://forums.bistudio.com/showthread.php…s-and-underglow
Description:
Adds the light effect to cop vehicles, specifically the offroad.
*/
Private ["_vehicle","_lightRed","_lightBlue","_lightleft","_lightright","_leftRed"];
_vehicle = _this select 0;
if(isNil "_vehicle" OR isNull _vehicle OR !(_vehicle getVariable "lights")) exitWith {};
_lightRed = [20, 0.1, 0.1];
_lightBlue = [0.1, 0.1, 20];

_lightleft = "#lightpoint" createVehicle getpos _vehicle;
sleep 0.2;
_lightleft setLightColor _lightRed;
_lightleft setLightBrightness 0.2;
_lightleft setLightAmbient [0.1,0.1,1];

switch (typeOf _vehicle) do
{
case "C_Offroad_01_F":
{
_lightleft lightAttachObject [_vehicle, [-0.37, 0.0, 0.56]];
};
case "B_MRAP_01_F":
{
_lightleft lightAttachObject [_vehicle, [-0.37, -1.9, 0.7]];
};
case "C_SUV_01_F":
{
_lightleft lightAttachObject [_vehicle, [-0.37,-1.2,0.42]];
};
case "C_Hatchback_01_sport_F":
{
_lightleft lightAttachObject [_vehicle, [-0.35,-0.2,0.25]];
};
case "B_Heli_Light_01_F":
{
_lightleft lightAttachObject [_vehicle,[-0.37, 0.0, -0.80]];
};
case "B_Heli_Transport_01_F":
{
_lightleft lightAttachObject [_vehicle, [-0.5, 0.0, 0.81]];
};
};

_lightleft setLightAttenuation [0.181, 0, 1000, 130];
_lightleft setLightIntensity 10;
_lightleft setLightFlareSize 0.38;
_lightleft setLightFlareMaxDistance 150;
_lightleft setLightUseFlare true;

_lightright = "#lightpoint" createVehicle getpos _vehicle;
sleep 0.2;
_lightright setLightColor _lightBlue;
_lightright setLightBrightness 0.2;
_lightright setLightAmbient [0.1,0.1,1];

switch (typeOf _vehicle) do
{
case "C_Offroad_01_F":
{
_lightright lightAttachObject [_vehicle, [0.37, 0.0, 0.56]];
};
case "B_MRAP_01_F":
{
_lightright lightAttachObject [_vehicle, [0.37, -1.9, 0.7]];
};
case "C_SUV_01_F":
{
_lightright lightAttachObject [_vehicle, [0.37,-1.2,0.42]];
};
case "C_Hatchback_01_sport_F":
{
_lightright lightAttachObject [_vehicle, [0.35,-0.2,0.25]];
};
case "B_Heli_Light_01_F":
{
_lightright lightAttachObject [_vehicle,[0.37, 0.0, -0.80]];
};
case "B_Heli_Transport_01_F":
{
_lightright lightAttachObject [_vehicle, [0.5, 0.0, 0.81]];
};
};
_lightright setLightAttenuation [0.181, 0, 1000, 130];
_lightright setLightIntensity 10;
_lightright setLightFlareSize 0.38;
_lightright setLightFlareMaxDistance 150;
_lightright setLightUseFlare true;

//ARE YOU ALL HAPPY?!?!?!?!?!?!?!?!?%#?@WGD?TGD?BN?ZDHBFD?GA
_lightleft setLightDayLight true;
_lightright setLightDayLight true;

_leftRed = true;
while{ (alive _vehicle)} do
{
if(!(_vehicle getVariable "lights")) exitWith {};
if(_leftRed) then
{
_leftRed = false;
_lightright setLightBrightness 0.0;
sleep 0.05;
_lightleft setLightBrightness 6;
}
else
{
_leftRed = true;
_lightleft setLightBrightness 0.0;
sleep 0.05;
_lightright setLightBrightness 6;
};
sleep (_this select 1);
};
deleteVehicle _lightleft;
deleteVehicle _lightright;

#include "..\..\script_macros.hpp"
/*
File: fn_sirenLights.sqf
Author: Bryan "Tonic" Boardwine
Description:
Lets play a game! Can you guess what it does? I have faith in you, if you can't
then you have failed me and therefor I lose all faith in humanity.. No pressure.
*/
private["_vehicle"];
_vehicle = param [0,ObjNull,[ObjNull]];
if(isNull _vehicle) exitWith {}; //Bad entry!
if(!(typeOf _vehicle in ["C_Offroad_01_F","B_MRAP_01_F","C_SUV_01_F","C_Hatchback_01_sport_F","B_Heli_Light_01_F","B_Heli_Transport_01_F"])) exitWith {}; //Last chance check to prevent something from defying humanity and creating a monster.

_trueorfalse = _vehicle GVAR ["lights",FALSE];

if(_trueorfalse) then {
_vehicle SVAR ["lights",FALSE,TRUE];
} else {
_vehicle SVAR ["lights",TRUE,TRUE];
[_vehicle,0.22] remoteExec ["life_fnc_medicLights",RCLIENT];
};

#include "..\..\script_macros.hpp"
/*
* File: fn_keyHandler.sqf
* Author: Bryan "Tonic" Boardwine
*
* Description:
* Main key handler for event 'keyDown'
*/
private ["_handled","_shift","_alt","_code","_ctrl","_alt","_ctrlKey","_veh","_locked","_interactionKey","_mapKey","_interruptionKeys"];
_ctrl = SEL(_this,0);
_code = SEL(_this,1);
_shift = SEL(_this,2);
_ctrlKey = SEL(_this,3);
_alt = SEL(_this,4);
_speed = speed cursorTarget;
_handled = false;

_interactionKey = if((EQUAL(count (actionKeys "User10"),0))) then {219} else {(actionKeys "User10") select 0};
_mapKey = SEL(actionKeys "ShowMap",0);
//hint str _code;
_interruptionKeys = [17,30,31,32]; //A,S,W,D

//Vault handling...
if((_code in (actionKeys "GetOver") _code in (actionKeys "salute") _code in (actionKeys "SitDown") _code in (actionKeys "Throw") _code in (actionKeys "GetIn") _code in (actionKeys "GetOut") _code in (actionKeys "Fire") _code in (actionKeys "ReloadMagazine") _code in [16,18]) && ((player GVAR ["restrained",false]) (player GVAR ["playerSurrender",false]) life_isknocked life_istazed)) exitWith {
true;
};

if(life_action_inUse) exitWith {
if(!life_interrupted && _code in _interruptionKeys) then {life_interrupted = true;};
_handled;
};

//Hotfix for Interaction key not being able to be bound on some operation systems.
if(!(EQUAL(count (actionKeys "User10"),0)) && {(inputAction "User10" > 0)}) exitWith {
//Interaction key (default is Left Windows, can be mapped via Controls -> Custom -> User Action 10)
if(!life_action_inUse) then {
[] spawn {
private "_handle";
_handle = [] spawn life_fnc_actionKeyHandler;
waitUntil {scriptDone _handle};
life_action_inUse = false;
};
};
true;
};

if (life_container_active) then {
switch (_code) do {
//space key
case 57: {
[life_container_activeObj] spawn life_fnc_placedefinestorage;
};
};
true;
};

if (life_barrier_active) then {
switch (_code) do {
//space key
case 57: {
[] spawn life_fnc_placeablesPlaceComplete;
};
};
true;
};

switch (_code) do {
//Space key for Jumping
case 57: {
if(isNil "jumpActionTime") then {jumpActionTime = 0;};
if(_shift && {!(EQUAL(animationState player,"AovrPercMrunSrasWrflDf"))} && {isTouchingGround player} && {EQUAL(stance player,"STAND")} && {speed player > 2} && {!life_is_arrested} && {SEL((velocity player),2) < 2.5} && {time - jumpActionTime > 1.5}) then {
jumpActionTime = time; //Update the time.
[player,true] spawn life_fnc_jumpFnc; //Local execution
[player,false] remoteExec ["life_fnc_jumpFnc",RANY]; //Global execution
_handled = true;
};
};

//Surrender (Shift + B)
case 48: {
if(_shift) then {
if(player GVAR ["playerSurrender",false]) then {
player SVAR ["playerSurrender",false,true];
} else {
[] spawn life_fnc_surrender;
};
_handled = true;
};
};

//Map Key
case _mapKey: {
switch (playerSide) do {
case west: {if(!visibleMap) then {[] spawn life_fnc_copMarkers;}};
case independent: {if(!visibleMap) then {[] spawn life_fnc_medicMarkers;}};
case civilian: {if(!visibleMap) then {[] spawn life_fnc_civMarkers;}};
};
};

//Holster / recall weapon. (Shift + H)
case 35: {
if(_shift && !_ctrlKey && !(EQUAL(currentWeapon player,""))) then {
life_curWep_h = currentWeapon player;
player action ["SwitchWeapon", player, player, 100];
player switchCamera cameraView;
};

if(!_shift && _ctrlKey && !isNil "life_curWep_h" && {!(EQUAL(life_curWep_h,""))}) then {
if(life_curWep_h in [RIFLE,LAUNCHER,PISTOL]) then {
player selectWeapon life_curWep_h;
};
};
};

//Interaction key (default is Left Windows, can be mapped via Controls -> Custom -> User Action 10)
case _interactionKey: {
if(!life_action_inUse) then {
[] spawn {
private "_handle";
_handle = [] spawn life_fnc_actionKeyHandler;
waitUntil {scriptDone _handle};
life_action_inUse = false;
};
};
};

//Restraining (Shift + R)
case 19: {
if(_shift) then {_handled = true;};
if(_shift && playerSide == west && {!isNull cursorTarget} && {cursorTarget isKindOf "Man"} && {(isPlayer cursorTarget)} && {(side cursorTarget in [civilian,independent])} && {alive cursorTarget} && {cursorTarget distance player < 3.5} && {!(cursorTarget GVAR "Escorting")} && {!(cursorTarget GVAR "restrained")} && {speed cursorTarget < 1}) then {
[] call life_fnc_restrainAction;
};
};

//Knock out, this is experimental and yeah... (Shift + G)
case 34: {
if(_shift) then {_handled = true;};
if(_shift && playerSide == civilian && !isNull cursorTarget && cursorTarget isKindOf "Man" && isPlayer cursorTarget && alive cursorTarget && cursorTarget distance player < 4 && speed cursorTarget < 1) then {
if((animationState cursorTarget) != "Incapacitated" && (currentWeapon player == primaryWeapon player OR currentWeapon player == handgunWeapon player) && currentWeapon player != "" && !life_knockout && !(player GVAR ["restrained",false]) && !life_istazed && !life_isknocked) then {
[cursorTarget] spawn life_fnc_knockoutAction;
};
};
};

//T Key (Trunk)
case 20: {
if(!_alt && !_ctrlKey && !dialog && {!life_action_inUse}) then {
if(vehicle player != player && alive vehicle player) then {
if((vehicle player) in life_vehicles) then {
[vehicle player] call life_fnc_openInventory;
};
} else {
private "_list";
_containers = [getPosATL player, ["Box_IND_Grenades_F","B_supplyCrate_F"], 2.5] call life_fnc_nearestObjects;
if (count _containers > 0) then {
_container = _containers select 0;
[_container] call life_fnc_openInventory;
player say3D "open";
} else {
_list = ["landVehicle","Air","Ship"];
if(KINDOF_ARRAY(cursorTarget,_list) && {player distance cursorTarget < 7} && {vehicle player == player} && {alive cursorTarget} && {!life_action_inUse}) then {
if(cursorTarget in life_vehicles) then {
[cursorTarget] call life_fnc_openInventory;
player say3D "close";
};
};
};
};
};
};

//L Key?
case 38: {
//If cop run checks for turning lights on.
if(_shift && playerSide in [west,independent]) then {
if(vehicle player != player && (typeOf vehicle player) in ["C_Offroad_01_F","B_MRAP_01_F","C_SUV_01_F","C_Hatchback_01_sport_F","B_Heli_Light_01_F","B_Heli_Transport_01_F"]) then {
if(!isNil {vehicle player GVAR "lights"}) then {
if(playerSide == west) then {
[vehicle player] call life_fnc_sirenLights;
} else {
[vehicle player] call life_fnc_medicSirenLights;
};
_handled = true;
};
};
};

if(!_alt && !_ctrlKey) then { [] call life_fnc_radar; };
};

//Y Player Menu
case 21: {
if(!_alt && !_ctrlKey && !dialog && !(player GVAR ["restrained",false]) && {!life_action_inUse}) then {
[] call life_fnc_p_openMenu;
};
};

//F Key
case 33: {
if(playerSide in [west,independent] && {vehicle player != player} && {!life_siren_active} && {((driver vehicle player) == player)}) then {
[] spawn {
life_siren_active = true;
sleep 4.7;
life_siren_active = false;
};

_veh = vehicle player;
if(isNil {_veh GVAR "siren"}) then {_veh SVAR ["siren",false,true];};
if((_veh GVAR "siren")) then {
titleText [localize "STR_MISC_SirensOFF","PLAIN"];
_veh SVAR ["siren",false,true];
} else {
titleText [localize "STR_MISC_SirensON","PLAIN"];
_veh SVAR ["siren",true,true];
if(playerSide == west) then {
[_veh] remoteExec ["life_fnc_copSiren",RCLIENT];
} else {
[_veh] remoteExec ["life_fnc_medicSiren",RCLIENT];
};
};
};
};
case 207:
{
switch (player getVariable["Earplugs",0]) do {
case 0: {hint composeText [ image "icons\sound.paa"," 90% Leiser"]; 1 fadeSound 0.1; player setVariable ["Earplugs", 10]; };
case 10: {hint composeText [ image "icons\sound.paa"," 60% Leiser"]; 1 fadeSound 0.4; player setVariable ["Earplugs", 40]; };
case 40: {hint composeText [ image "icons\sound.paa"," 30% Leiser"]; 1 fadeSound 0.7; player setVariable ["Earplugs", 70]; };
case 70: {hint composeText [ image "icons\sound_new.paa"," Normaler Sound"]; 1 fadeSound 1; player setVariable ["Earplugs", 0]; };
};
};

//O Key
case 24: {
if(_shift) then {
if (soundVolume != 1) then {
1 fadeSound 1;
systemChat localize "STR_MISC_soundnormal";
} else {
1 fadeSound 0.1;
systemChat localize "STR_MISC_soundfade";
};
};
};
//shift+c pioche 4.0 4.3 4.4
case 46: {
if(_shift && (!life_action_inUse) && (vehicle player == player) ) then
{
_item = "";
player say3D "mining";
{ if(typeName _x == typeName "") then {_item = _x;} else {_item = configName _x};
_val = ITEM_VALUE(_item);
if(_val > 0 ) then {
if( _item == "pickaxe" ) then
{
[] spawn life_fnc_pickAxeUse;
};
};
} foreach ("true" configClasses (missionConfigFile >> "VirtualItems"));
};
};
//shift+c pioche 4.0 4.3 4.4
case 18: {
if(_shift && (!life_action_inUse) && (vehicle player == player) ) then
{
_item = "";
player say3D "axe";
{ if(typeName _x == typeName "") then {_item = _x;} else {_item = configName _x};
_val = ITEM_VALUE(_item);
if(_val > 0 ) then {
if( _item == "axe" ) then
{
[] spawn life_fnc_axeUse;
};
};
} foreach ("true" configClasses (missionConfigFile >> "VirtualItems"));
};
};
//shift+c pioche 4.0 4.3 4.4
case 16: {
if(_shift && (!life_action_inUse) && (vehicle player == player) ) then
{
_item = "";
player say3D "schere";
{ if(typeName _x == typeName "") then {_item = _x;} else {_item = configName _x};
_val = ITEM_VALUE(_item);
if(_val > 0 ) then {
if( _item == "schere" ) then
{
[] spawn life_fnc_schereUse;
};
};
} foreach ("true" configClasses (missionConfigFile >> "VirtualItems"));
};
};

//U Key
case 22: {
if(!_alt && !_ctrlKey) then {
if(vehicle player == player) then {
_veh = cursorTarget;
} else {
_veh = vehicle player;
};

if(_veh isKindOf "House_F" && {playerSide == civilian}) then {
if(_veh in life_vehicles && player distance _veh < then {
_door = [_veh] call life_fnc_nearestDoor;
if(EQUAL(_door,0)) exitWith {hint localize "STR_House_Door_NotNear"};
_locked = _veh GVAR [format["bis_disabled_Door_%1",_door],0];

if(EQUAL(_locked,0)) then {
_veh SVAR [format["bis_disabled_Door_%1",_door],1,true];
_veh animate [format["door_%1_rot",_door],0];
systemChat localize "STR_House_Door_Lock";
} else {
_veh SVAR [format["bis_disabled_Door_%1",_door],0,true];
_veh animate [format["door_%1_rot",_door],1];
systemChat localize "STR_House_Door_Unlock";
};
};
} else {
_locked = locked _veh;
if(_veh in life_vehicles && player distance _veh < then {
if(EQUAL(_locked,2)) then {
if(local _veh) then {
_veh lock 0;
} else {
[_veh,0] remoteExecCall ["life_fnc_lockVehicle",_veh];
};
systemChat localize "STR_MISC_VehUnlock";
player say3D "lockunlock";
} else {
if(local _veh) then {
_veh lock 2;
} else {
[_veh,2] remoteExecCall ["life_fnc_lockVehicle",_veh];
};
systemChat localize "STR_MISC_VehLock";
player say3D "lockunlock";
};
};
};
};
};
};

_handled;

#include "\life_server\script_macros.hpp"
/*
File: fn_spawnVehicle.sqf
Author: Bryan "Tonic" Boardwine

Description:
Sends the query request to the database, if an array is returned then it creates
the vehicle if it's not in use or dead.
*/
private["_vid","_sp","_pid","_query","_sql","_vehicle","_nearVehicles","_name","_side","_tickTime","_dir","_servIndex"];
_vid = [_this,0,-1,[0]] call BIS_fnc_param;
_pid = [_this,1,"",[""]] call BIS_fnc_param;
_sp = [_this,2,[],@@42bcf026a92c5113ec8700a29760817323e7edf8@@ call BIS_fnc_param;
_unit = [_this,3,ObjNull,[ObjNull]] call BIS_fnc_param;
_price = [_this,4,0,[0]] call BIS_fnc_param;
_dir = [_this,5,0,[0]] call BIS_fnc_param;
_unit_return = _unit;
_name = name _unit;
_side = side _unit;
_unit = owner _unit;

if(EQUAL(_vid,-1) OR EQUAL(_pid,"")) exitWith {};
if(_vid in serv_sv_use) exitWith {};
serv_sv_use pushBack _vid;
_servIndex = serv_sv_use find _vid;

_query = format["SELECT id, side, classname, type, pid, alive, active, plate, color, inventory, gear, fuel FROM vehicles WHERE id='%1' AND pid='%2'",_vid,_pid];

_tickTime = diag_tickTime;
_queryResult = [_query,2] call DB_fnc_asyncCall;

if(EXTDB_SETTING(getNumber,"DebugMode") == 1) then {
diag_log "------------- Client Query Request -------------";
diag_log format["QUERY: %1",_query];
diag_log format["Time to complete: %1 (in seconds)",(diag_tickTime - _tickTime)];
diag_log format["Result: %1",_queryResult];
diag_log "------------------------------------------------";
};

if(EQUAL(typeName _queryResult,typeName "")) exitWith {};

_vInfo = _queryResult;
if(isNil "_vInfo") exitWith {serv_sv_use deleteAt _servIndex;};
if(EQUAL(count _vInfo,0)) exitWith {serv_sv_use deleteAt _servIndex;};

if(EQUAL(SEL(_vInfo,5),0)) exitWith {
serv_sv_use deleteAt _servIndex;
[1,format[(localize "STR_Garage_SQLError_Destroyed"),_vInfo select 2]] remoteExecCall ["life_fnc_broadcast",_unit];
};

if(EQUAL(SEL(_vInfo,6),1)) exitWith {
serv_sv_use deleteAt _servIndex;
[1,format[(localize "STR_Garage_SQLError_Active"),_vInfo select 2]] remoteExecCall ["life_fnc_broadcast",_unit];
};

if!(EQUAL(typeName _sp,typeName "")) then {
_nearVehicles = nearestObjects[_sp,["Car","Air","Ship"],10];
} else {
_nearVehicles = [];
};

if(count _nearVehicles > 0) exitWith {
serv_sv_use deleteAt _servIndex;
[_price,_unit_return] remoteExecCall ["life_fnc_garageRefund",_unit];
[1,(localize "STR_Garage_SpawnPointError")] remoteExecCall ["life_fnc_broadcast",_unit];
};

_query = format["UPDATE vehicles SET active='1' WHERE pid='%1' AND id='%2'",_pid,_vid];

_trunk = [_vInfo select 9] call DB_fnc_mresToArray;
_gear = [_vInfo select 10] call DB_fnc_mresToArray;

[_query,false] spawn DB_fnc_asyncCall;
if(typeName _sp == "STRING") then {
_vehicle = createVehicle[(_vInfo select 2),[0,0,999],[],0,"NONE"];
waitUntil {!isNil "_vehicle" && {!isNull _vehicle}};
_vehicle allowDamage false;
_hs = nearestObjects[getMarkerPos _sp,["Land_Hospital_side2_F"],50] select 0;
_vehicle setPosATL (_hs modelToWorld [-0.4,-4,12.65]);
sleep 0.6;
} else {
_vehicle = createVehicle [(_vInfo select 2),_sp,[],0,"NONE"];
waitUntil {!isNil "_vehicle" && {!isNull _vehicle}};
_vehicle allowDamage false;
_vehicle setPos _sp;
_vehicle setVectorUp (surfaceNormal _sp);
_vehicle setDir _dir;
};
_vehicle setFuel (_vInfo select 11);
_vehicle allowDamage true;
//Send keys over the network.
[_vehicle] remoteExecCall ["life_fnc_addVehicle2Chain",_unit];
[_pid,_side,_vehicle,1] call TON_fnc_keyManagement;
_vehicle lock 2;
//Reskin the vehicle
[_vehicle,_vInfo select 8] remoteExecCall ["life_fnc_colorVehicle",_unit];
_vehicle setVariable["vehicle_info_owners",[[_pid,_name]],true];
_vehicle setVariable["dbInfo",[(_vInfo select 4),_vInfo select 7]];
_vehicle setVariable["Trunk",_trunk,true];
_vehicle disableTIEquipment true; //No Thermals.. They're cheap but addictive.

[_vehicle] call life_fnc_clearVehicleAmmo;

if (count _gear > 0) then {
_items = _gear select 0;
_mags = _gear select 1;
_weapons = _gear select 2;
_backpacks = _gear select 3;

for "_i" from 0 to ((count (_items select 0)) - 1) do {
_vehicle addItemCargoGlobal [((_items select 0) select _i), ((_items select 1) select _i)];
};
for "_i" from 0 to ((count (_mags select 0)) - 1) do {
_vehicle addMagazineCargoGlobal [((_mags select 0) select _i), ((_mags select 1) select _i)];
};
for "_i" from 0 to ((count (_weapons select 0)) - 1) do {
_vehicle addWeaponCargoGlobal [((_weapons select 0) select _i), ((_weapons select 1) select _i)];
};
for "_i" from 0 to ((count (_backpacks select 0)) - 1) do {
_vehicle addBackpackCargoGlobal [((_backpacks select 0) select _i), ((_backpacks select 1) select _i)];
};
};

//Sets of animations
if(EQUAL(SEL(_vInfo,1),"civ") && EQUAL(SEL(_vInfo,2),"B_Heli_Light_01_F") && !(EQUAL(SEL(_vInfo,8),13))) then {
[_vehicle,"civ_littlebird",true] remoteExecCall ["life_fnc_vehicleAnimate",_unit];
};

if(EQUAL(SEL(_vInfo,1),"cop") && (SEL(_vInfo,2)) in ["C_Offroad_01_F","B_MRAP_01_F","C_SUV_01_F","C_Hatchback_01_sport_F","B_Heli_Light_01_F","B_Heli_Transport_01_F"]) then {
[_vehicle,"cop_offroad",true] remoteExecCall ["life_fnc_vehicleAnimate",_unit];
};

if(EQUAL(SEL(_vInfo,1),"med") && EQUAL(SEL(_vInfo,2),"C_Offroad_01_F")) then {
[_vehicle,"med_offroad",true] remoteExecCall ["life_fnc_vehicleAnimate",_unit];
};
[1,"Your vehicle is ready!"] remoteExecCall ["life_fnc_broadcast",_unit];
serv_sv_use deleteAt _servIndex;