Her you go...
I think Johann (the master) Gustafson.. wrote this:
_Egrp = _this select 0
_Object = _this select 1
_freq = _this select 2
_Who = _this select 3
_GrpVektor = Units _Egrp
_numEl = count _GrpVektor
_i = 0
? (_Who == "PLAYER") : Player action["EJECT",_Object]; UnassignVehicle Player; exit
#Update
? (_Who == "AI") && ((_GrpVektor select _i) == Player) : _i = _i + 1
? (_i == _numEl) : exit
(_GrpVektor select _i) action["EJECT",_Object]; UnassignVehicle (_GrpVektor select _i)
_i = _i + 1
~_freq
? (_i < _numEl) : goto "Update"
exit
Cut and paste.. and have at it
'Load Sabot...Driver Move out'
YankeeTanker.