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
   |