mob/verb/Monkey_Vid_Please()showvid(src,'monkey.wmv',277)
proc/showvid(mob/m as mob,f,t as num)
var {w;h;s}
s=winget(m,"mainwindow","size")
w=text2num(copytext(s,1,findtext(s,"x")))
h=text2num(copytext(s,findtext(s,"x")+1))
var/html={"
<html>
<body bgcolor="black">
<!-- START FreeVideoCoding.com -->
<embed src=[f] width="[w]" height="[h]" autostart="1" showcontrols="1" type="application/x-mplayer2" pluginspage="http://www.microsoft.com/windows/windowsmedia/download/"> </embed>
<!-- END FreeVideoCoding.com -->
</body>
</html>
"}
m<<browse(html,"window=video;can_close=0;size=[s]")
for(var/v=1 to t)sleep(1)
m<<browse(null,"window=video")
Has anyone ever tried this before?
BYOND uses Internet Explorer to display HTML files. Therefore, if IE can, so does BYOND.