Page 1 of 1

Long Videos...need a good format

PostPosted: Wed Dec 23, 2015 3:35 am
by reneuend
I have a lot of long video cut scenes, intro, etc...I saved them as AVI, but then switched to MP4. MP4 is great, but AM doesn't support it from it's interface. What do you guys use and if it isn't supported by AM, how do you play it?

Re: Long Videos...need a good format

PostPosted: Wed Dec 23, 2015 6:24 pm
by Vengeance66
I have made mine with Xvid codec, but still .avi. I get really nice compressed files. In the end, you players should have Xvid installed on their PC to play the videos correctly. I included the codec in the installer. Simon told me of this :D

Re: Long Videos...need a good format

PostPosted: Wed Dec 23, 2015 7:28 pm
by reneuend
I used KLite Codec package and mp4 format. But since it was such a long video (frames don't support long videos), I used the following code. What happens is that everything works, but the video doesn’t get unloaded. It sits over the top of the next frame.

From the Advanced Tab:

Code: Select all
PlayVideoWin7 GetPath(5) & "Squatch Intro.mp4", 1, 9
timelapse = 448
Action.CreateTimedEvent 56, "timelapse = timelapse-56:If timelapse <= 0 then StopVideoWin7(9):Action.GoToFrame ""Intro - Bedroom Alarm_on""", True


All I need to do is close down the video player and I'm done!

Any suggestions on how to play this long video and then have it go to the next frame after it is finished?

UPDATE! I FOUND A WAY!!

I removed the Media Player component by changing the Stop Video routine!

Using this line: RemoveComponent "MediaPlayer" + CStr(ChannelNumber)

This should help everyone!!!!! :mrgreen:

Code: Select all
Sub StopVideoWin7(ChannelNumber)
   If ChannelNumber < 9 Then
      'With VBScript it is currently not possible to interact with the 8 first video channels.
      MsgBox "The specified audio channel is invalid.", vbCritical, "Error"
      Exit Sub
   End If
   If Action.DoesComponentExist("MediaPlayer" + CStr(ChannelNumber)) = true Then
      Component("MediaPlayer" + CStr(ChannelNumber)).Object.Stop
      RemoveComponent "MediaPlayer" + CStr(ChannelNumber)
   End If
End Sub