mob/Login()
..()
var2flash('test.swf', "This is a test", src,550,400,"window=Test;size=600x500")
proc/var2flash(var/filename, var/V, var/mob/T, var/width=550, var/height=400, var/O)
if(filename && V && T)
var/filenameshort=copytext("[filename]",1,findtext("[filename]","."))
T<<browse_rsc(filename)
T<<browse({"
<html>
<head>
<SCRIPT type=text/javascript>
var sendID
function var2flash() {
window.document.[filenameshort].SetVariable("sendvar", "[V]");
}
</script>
</head>
<body onLoad="var2flash()">
<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,0,0" width="[width]" height="[height]" id="[filenameshort]" align="middle">
<param name="allowScriptAccess" value="sameDomain" />
<param name="movie" value="[filename]" /><param name="quality" value="high" /><param name="bgcolor" value="#ffffff" /><embed src="[filename]" quality="high" bgcolor="#ffffff" width="[width]" height="[height]" name="[filenameshort]" align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />
</object>
</body>
</html>
"},O) |