Advertisement
Guest User

Untitled

a guest
Dec 6th, 2016
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.13 KB | None | 0 0
  1. /*Start Drone Monitor*/
  2. DroneMonitorScript = [] spawn
  3. {
  4. HZ_Drone setCaptive true;
  5. HZ_Drone allowDamage false;
  6. HZ_Drone FlyInHeight 400;
  7. while {alive HZ_Drone} do
  8. {
  9. _count = 0;
  10. {if (HZ_Drone distance _x <= 500) then {_count = _count +1;};} forEach allUnits;
  11. if (_count >= 4) then
  12. {
  13. _location = HZ_Drone call BIS_fnc_locationDescription;
  14. driver HZ_Drone commandChat format ["UAV thermal scan located %1 possible targets %2",_count,_location];
  15. };
  16. sleep (60 * random 5);
  17. };
  18. };
  19. /*End Drone Monitor*/
  20.  
  21. /*Start Drone Feed*/
  22.  
  23. DroneTargetingScript = [_screen] spawn
  24. {
  25. _screen = _this select 0;
  26. _screen setObjectTextureGlobal [0, "#(argb,512,512,1)r2t(piprendertg,1)"];
  27. uav = createVehicle ["B_UAV_01_F", [0,0,0], [], 0, "FLY"];
  28. uav allowDamage false;
  29. createVehicleCrew uav;
  30. uav flyInHeight 75;
  31. _pos = getPos HZ_Drone;
  32. (group driver uav) copyWaypoints (group driver HZ_Drone);
  33. deleteVehicle HZ_Drone;
  34.  
  35. uav setPos _pos;
  36. HZ_Drone = uav;
  37. HZ_Drone setVehicleVarName "HZ_Drone";
  38. HZ_DroneCam = "camera" camCreate [0,0,0];
  39. HZ_DroneCam cameraEffect ["Internal", "Back", "piprendertg"];
  40. "piprendertg" setPiPEffect [0];
  41. HZ_DroneCam camSetFov 0.2;
  42. HZ_DroneCam attachTo [HZ_Drone, [0,5,0], "PiP0_pos"];
  43. _pos = getpos HZ_Drone;
  44. _posx = _pos select 0;
  45. _posy = _pos select 1;
  46. _poz = _pos select 2;
  47. HZ_DroneCam camSetTarget [_posx,_posy,0];
  48. HZ_DroneCam lockCameraTo [[_posx,_posy,0], [0]];
  49.  
  50. addMissionEventHandler ["Draw3D", {
  51. _dir =
  52. (HZ_Drone selectionPosition "PiP0_pos")
  53. vectorFromTo
  54. (HZ_Drone selectionPosition "PiP0_dir");
  55. HZ_DroneCam setVectorDirAndUp [
  56. _dir,
  57. _dir vectorCrossProduct [-(_dir select 1), _dir select 0, 0]
  58. ];
  59. }];
  60.  
  61. while {alive HZ_Drone} do
  62. {
  63. _time = time;
  64. waitUntil {time > (_time + 60)};
  65. {
  66. if (HZ_Drone distance _x <= 250) exitWith //Only Exits foreach Loop but not the While true loop
  67. {
  68. _pos = getpos _x;
  69. HZ_DroneCam camSetTarget _pos;
  70. HZ_DroneCam lockCameraTo [_pos, [0]];
  71. };
  72. } forEach allUnits;
  73. };
  74. };
  75.  
  76. /*End Drone Feed*/
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement