//initialise who, what bay and what type
_reciever = _this select 0;
_deliverbay = _this select 1;
_acceptsType = _this select 2;
//check for delivery every 30s
while {true} do
{
//put all accepted objects within 5m of the bay in an array
_goodsInbound = nearestObjects[getMarkerPos _deliverbay, _acceptsType, 5];
//errorchecking hints
_total = count _goodsInbound;
_cntsmallInbound = "Fort_Crate_wood" countType _goodsInbound; //count number of items in array
_cntmediumInbound = "CargoCont_Net1_H" countType _goodsInbound;
_cntlargeInbound = "Land_Misc_Cargo1E_EP1" countType _goodsInbound;
hint format["Small: %1 Med: %2 Large: %3, Total: %4, Dude: %5 Worth: %6 ", _cntsmallInbound, _cntmediumInbound, _cntlargeInbound, _total, _reciever, _inboundWorth ];
//ignore below until the list is working - work out worth of total delivered goods
//_inboundWorth = 0;
//_unitWorth = {_x getVariable _goodsWorth;} forEach _goodsInbound;
//{deleteVehicle _x;} forEach _goodsInbound;
sleep 30; //the 30seconds bit
};