// ****************************************************************
// Script file for Armed Assault
// Created by: Cyborg11 
// Version: 1.0
// ****************************************************************

// In die Initzeile der Einheit bzw. in die init.sqf schreiben:
// this addEventHandler ["FIRED", {[_this, heliname] execVM "Smoke.sqf"}];

_array = _this select 0; // [p1,"Throw","SmokeShellMuzzle","SmokeShellGreen"];
_man = _array select 0;
_heli = _this select 1;
_ammo = _array select 4;
_posheli = getPos _heli;
_heligrp = group _heli;
_pgrp = group _man;
If (!(_ammo isKindOf "SmokeShellGreen")) exitWith{};
hint format ["Heli: %1\nMan: %2\nObj: %3",_heli,_man,_ammo];

sleep 2;

_helih = "HeliHEmpty" createVehicle [0,0,0];
_pos = _man modelToWorld [0,10,0];
_helih setPos [_pos select 0, _pos select 1, _pos select 2];
_wph = _heligrp addwaypoint [position _helih, 1];
[_heligrp, 1] setwaypointtype "LOAD";
_wpm = _pgrp addwaypoint [position _man, 1];
[_pgrp, 1] setWaypointType "GETIN";
[_pgrp, 1] synchronizeWaypoint [[_heligrp, 1]];

WaitUntil {_man in _heli};
mapclick=true;
titletext ["Klicke auf die Karte um den Zielort zu bestimmen!","plain down"];
onMapSingleClick """HeliMoveP"" setMarkerPos _pos; mapclick=false";

WaitUntil {!(mapclick)};
_h3 = "HeliHEmpty" createVehicle [0,0,0]; 
_h3 setpos getmarkerpos "helimovep"; 
_wpu = _heligrp addwaypoint [position _h3, 1]; 
_wpu setwaypointtype "TR UNLOAD";  
onMapSingleClick "";
titleText ["","plain down"];
WaitUntil {!(_man in heli)};
sleep 1;
_heli flyinheight 50;
sleep 2;
"HeliMoveP" setMarkerPos [0,0];
_h3 setpos _posheli;
_heli domove (position _h3);
_heli land "LAND";

Hab ich das denn irgendwo mal veröffentlicht?