Code archives/Miscellaneous/BlitzMedia Player!
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
This is just a simple media player, wich i wrote after i installed the v1.71 update. | |||||
;BlitzMedia Player ;Copyright (c) 2002 SopiSoft ;-) ;Adjust it the way you want.....! Graphics3D 800,600,16,2 AppTitle "BlitzMedia Player! © 2002 SopiSoft" SetBuffer BackBuffer() .begin Cls Global moviename$=Input$("Please type in the Filename of the movie! >> ") If FileType(moviename)=1 size$=Input$("Fullscreen? (Y/N)") movie=OpenMovie(moviename) Cls Else Print "Movie doesn't exist!......press any key to continue!" WaitKey() Goto begin EndIf While Not KeyDown(1) If size="y" Then DrawMovie movie,0,0,800,600 If size="n" Then DrawMovie movie,0,0 If MoviePlaying(movie)=False Then Delay 3000 : Exit UpdateWorld RenderWorld Flip Wend CloseMovie movie End |
Comments
None.
Code Archives Forum