_Object = _this select 0

_camx = getpos _Object select 0
_camy = getpos _Object select 1
_camz = getpos _Object select 2

; Create a camera and place it 5 meters from the object 1 meter above the ground
_cam = "camera" CamCreate [_camx,_camy+5,_camz+1]

; Point the camera to the passed object
_cam CamSetTarget _Object

; Set an effect for the camera
_cam CameraEffect ["Internal","Back"]

; Apply the changes!
_cam CamCommit 0

~10
_cam CameraEffect ["Terminate","Back"]
CamDestroy _cam
exit