<stdin>

Script S_CAMERA (int p_num)
{
    int r = Cam_R[p_num];

    While (cam_mode[p_num] == ON)
    {
        int p = CamPitch[p_num];
        int x = GetActorX (0);
        int y = GetActorY (0);
        int z = GetActorZ (0) + View_H[p_num];
        int xyr = r * cos (p) >> 16;

        For(int i = 0;i < 5;i++)
        {
            If(CamAngle[p_num]/256 >= 192 && PCamAngle[p_num]/256 <= 64)
            {
                CamAngle[p_num] -= (256 << 8);
            }
            If(CamAngle[p_num]/256 <= 64 && PCamAngle[p_num]/256 >= 192)
            {
                CamAngle[p_num] += (256 << 8);
            }
            If (CamAngle[p_num]/256 > PCamAngle[p_num]/256)
            {
                CamAngle[p_num] -= 0.002;
            }
            If (CamAngle[p_num]/256 < PCamAngle[p_num]/256)
            {
                CamAngle[p_num] += 0.002;
            }
        }

        If (!ThingCountName ("SecurityCameraNoClip", C_TID+p_num))
        {
            While (!Spawn ("SecurityCameraNoClip", x-cos(CamAngle[p_num])*xyr, y-sin(CamAngle[p_num])*xyr, z+sin(p)*r, C_TID+p_num, CamAngle[p_num] >> 8) && r > 0)
            {
                r -= ADJUST_R;
                xyr = cos (p) * r >> 16;
            }

            If (ThingCountName ("SecurityCameraNoClip", C_TID + p_num))
            ChangeCamera (C_TID + p_num, 0, 0);
            Else
            {
                cam_mode[p_num] = OFF;
                Print (s:"Camera script failed to initialize.");
            }
        }
        Else
        {
            While (!SetActorPosition (C_TID+p_num, x-cos(CamAngle[p_num])*xyr, y-sin(CamAngle[p_num])*xyr, z+sin(p)*r, 0) && r > 0 )
            {
                r -= ADJUST_R;
                xyr = cos (p) * r >> 16;
            }

            SetActorAngle (C_TID + p_num, CamAngle[p_num]);
            SetActorPitch (C_TID + p_num, p);

            If (r < Cam_R[p_num])
            r += ADJUST_R;
            If (r > Cam_R[p_num])
            r -= ADJUST_R;
        }
        Delay(CLOOPTIC);
    }
}