daily pastebin goal
61%
SHARE
TWEET

Untitled

a guest Mar 13th, 2018 52 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. /*
  2. por: Neoxan
  3.  
  4.     ["cargo"] call ica_fnc_enterrador;   Para meter el ataud en el coche
  5.     ["entierro"] spawn ica_fnc_enterrador;   Para descargar el ataud y crear la tumba
  6.     ["meto"] call ica_fnc_enterrador;     Para cargar el cuerpo en el ataud
  7.    
  8.     Las acciones estan en el setupactions, ahí filtra que el enterrador tiene que ser un EMS
  9. */
  10.  
  11. _param = _this select 3;
  12.  
  13. if (_param isEqualTo "cargo") exitWith {
  14.     private ["_ataud","_veh"];
  15.     _ataud = nearestObject [player, "pop_ataud"];
  16.     _veh = nearestObject [player, "Car"];
  17.     if ((player distance _veh) > 5) exitwith {hint "No hay ningún vehículo cerca"};
  18.     if ((typeof _veh) != "POP_corbillard_c_noir") exitwith {hint "No puedes cargar un ataud en ese vehículo"};
  19.     if ((_veh animationPhase 'puerta') != 1) exitwith {hint "Abre las puertas para cargar el ataud"};
  20.     if (_veh getvariable "muerto") exitwith {hint "Ya hay un ataud en el vehículo, de uno en uno"};
  21.     _nombre = _ataud getvariable "nombre";
  22.     if (!(isnil "_nombre")) then {
  23.         _veh setvariable ["nombre",_nombre,true];
  24.     };
  25.     deletevehicle _ataud;
  26.     _veh animate ["ataud2",1,true];
  27.     _veh animate ["ataud",0];
  28.     _veh animate ["ataud2",0];
  29.     _veh setvariable ["muerto",true,true];
  30. };
  31.  
  32. if (_param isEqualTo "entierro") exitWith {
  33.     private ["_veh","_tumbas"];
  34.     _veh = nearestObject [player, "Car"];
  35.     if (player distance (getMarkerPos "cementerio") > 50) exitWith {"No puedes enterrar el cadaver aquí, ve a un cementerio"};
  36.     if ((count (nearestObjects [(getPos _veh), ["Man"], 6])) > 1) exitWith {
  37.         hint "Hay demasiada gente aquí cerca, necesitas espacio para enterrar el cadaver.";
  38.     };
  39.     if ((player distance _veh) > 5) exitwith {hint "No hay ningún vehículo cerca"};
  40.     if ((typeof _veh) != "POP_corbillard_c_noir") exitwith {hint "Aparta los demás coches"};
  41.     _muerto = _veh getvariable "muerto";
  42.     if (!(_muerto)) exitwith {hint "No hay nadia a quien enterrar"};
  43.     if (isNil "_muerto") exitwith {hint "No hay nadia a quien enterrar"};
  44.     if ((_veh animationPhase 'puerta') != 1) exitwith {hint "Abre las puertas para descargar el ataud"};
  45.     _veh setvariable ["muerto",false,true];
  46.     _veh animate ["ataud2",1];
  47.     sleep 2;
  48.     _veh animate ["ataud2",0];
  49.     _veh animate ["ataud",1];
  50.     _tumbas = ["Land_Grave_memorial_F","Land_Grave_obelisk_F","Land_Grave_soldier_F","Land_Grave_V1_F","Land_Grave_V2_F","Land_Grave_V3_F"] call BIS_fnc_selectRandom;
  51.     _tumba = _tumbas createvehicle position _veh;
  52.     [_tumba , 60 * 30] call ica_fnc_borrame;
  53.    
  54.     if ((floor random 100) <= 30) then {
  55.         [(["pop_ojos_item", "pop_corazon_item", "pop_estomago_item"] call BIS_fnc_selectRandom)] call ica_fnc_item; // PKE PENDIENTE
  56.     };
  57.    
  58.     _nombre = _veh getvariable "nombre";
  59.     if (!(isnil "_nombre"))then {
  60.         _tumba setvariable ["matricula",_nombre,true];
  61.     } else {
  62.         _tumba setvariable ["matricula","Persona desconocida",true];
  63.     };
  64.     ["exp",10] call ica_fnc_arrayexp;
  65.     hint "El cadaver ha sido enterrado, descanse en paz";
  66. };
  67.  
  68. if (_param isEqualTo "meto") exitWith {
  69.     _muerto = cursortarget;
  70.     _pos = getpos _muerto;
  71.     _nombre = _muerto getvariable "name";
  72.     if (!(_muerto iskindof "man") OR (alive _muerto)) exitwith {hint "Mira al cuerpo, presta atención"};
  73.     if ((player distance _muerto) > 5) exitwith {hint "Acércate un poco más al cadaver"};
  74.     if ((count (nearestObjects [_pos, ["Man"], 3])) > 2) exitWith {
  75.         hint "Hay demasiada gente aquí cerca, necesitas espacio para el ataud.";
  76.     };
  77.     deletevehicle _muerto;
  78.     _ataud = "pop_ataud" createvehicle _pos;
  79.     if (!(isnil "_nombre")) then {
  80.         _ataud setvariable ["nombre",_nombre,true];
  81.     };
  82. };
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top