break on
$splash = funkysplash("Logoff before it's too late!",200,300,500,200)
exit 1
function funkysplash($message,$left,$top,$width,$height)
dim $ie,$dacontrol,$m,$half,$clr
dim $font,$txtimg,$pos,$scl,$xf
dim $retry
$ie = createobject("internetexplorer.application")
$ie.menubar = 0
$ie.statusbar = 0
$ie.toolbar = 0
$ie.left = $left
$ie.top = $top
$ie.width = $width
$ie.height = $height
$ie.navigate("about:blank")
while $ie.busy and $ie.readystate <> 4 and @error=0 loop
$html =
'<html><title>Funky</title><body scroll=no></body></html>'+
'<'+'OBJECT ID="DAControl" STYLE="position:absolute; left:0; top:0;width:$width;'+
'height:$height;z-index: -1" CLASSID="CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D"'+'>'+
'<'+'/OBJECT'+'>'
$ie.document.write("$html")
$ie.visible = 1
sleep 1
$retry = 5 ; seconds
while setfocus("Funky") and $retry
$retry=$retry-1
sleep 1
loop
$dacontrol = $ie.document.all("dacontrol")
$m = $dacontrol.meterlibrary
$half = $m.danumber("0.5")
$clr = $m.colorhslanim($m.mul($m.localtime, $m.danumber("0.345")),$half, $half)
$font = $m.font("Arial", 11, $clr)
$txtimg = $m.stringimage("$message", $font)
$pos = $m.mul($m.sin($m.localtime), $m.danumber("0.02"))
$scl = $m.add($m.danumber("2"), $m.abs($m.mul($m.sin($m.localtime), $m.danumber("3"))))
$xf = $m.compose2($m.translate2anim($m.danumber("0"), $pos), $m.scale2uniformanim($scl))
$txtimg = $txtimg.transform($xf)
$dacontrol.image = $txtimg
$dacontrol.start
$funkysplash = $ie
endfunction
