_CameraObj = _this select 0
_Actor = _this select 1

_CamPos = GetPos _CameraObj
_cx = _CamPos select 0
_cy = _CamPos select 1
_cz = _CamPos select 2

; Makes the screen look like a tv
CutObj ["TvSet","Plain Down",100]

; Initialize our camera
_Camera = "Camera" CamCreate [_cx,_cy,_cz+1.25]
_Camera CamSetTarget _Actor
_Camera CameraEffect ["Internal","Back"]
_Camera CamCommit 0
@CamCommitted _Camera

; The lines below will make the actor talk and change his face expression
_Actor PlayMove "StandStraight"
_Actor SetMimic "Happy"
_Actor Say "RUS2"
~2
_Actor Say "RUS7"
_Actor SetMimic "Angry"
~3
_Actor Say "RUS12"
~2
_Actor Say "RUS9"
~2
_Actor SetMimic "Ironic"
_Actor Say "RUS20"
~3
_Actor SetMimic "Angry"
_Actor Say "RUS14"
~5

; Remove the camera
CutRSC ["Default","Plain Down",100]
_Camera CameraEffect ["Terminate","Back"]
CamDestroy _Camera
exit