$language = "VBScript"
$interface = "1.0"
' This automatically generated script may need to be
' edited in order to work correctly.
Sub Main
while 1
crt.Screen.Send "uav_cmd_test -set_cam_res 3 4032 3024 30"
crt.Screen.Send VbCr
crt.Sleep 20000
crt.Screen.Send "uav_cmd_test -set_cam_res 3 3840 2160 30"
crt.Screen.Send VbCr
crt.Sleep 20000
crt.Screen.Send "uav_cmd_test -set_cam_res 3 1920 1080 30"
crt.Screen.Send VbCr
crt.Sleep 20000
crt.Screen.Send "uav_cmd_test -set_cam_res 3 1920 1080 60"
crt.Screen.Send VbCr
crt.Sleep 20000
crt.Screen.Send "uav_cmd_test -set_cam_res 3 1920 1080 90"
crt.Screen.Send VbCr
crt.Sleep 20000
crt.Screen.Send "uav_cmd_test -set_cam_res 3 4032 2160 30"
crt.Screen.Send VbCr
crt.Sleep 20000
crt.Screen.Send "uav_cmd_test -set_cam_res 3 1280 720 30"
crt.Screen.Send VbCr
crt.Sleep 20000
crt.Screen.Send "uav_cmd_test -set_cam_res 3 1280 720 60"
crt.Screen.Send VbCr
crt.Sleep 20000
crt.Screen.Send "uav_cmd_test -set_cam_res 3 1280 720 90"
crt.Screen.Send VbCr
crt.Sleep 20000
crt.Screen.Send "uav_cmd_test -set_cam_res 3 2704 1520 30"
crt.Screen.Send VbCr
crt.Sleep 20000
crt.Screen.Send "uav_cmd_test -set_cam_res 3 2704 1520 60"
crt.Screen.Send VbCr
crt.Sleep 20000
WEnd
End Sub