getting closer.
Now there's a prob.
If ur in fullscreen, the flash window doesnt update at all..
the update glitch doesnt happen unless u go into wide screen mode, then into fullscreen mode after being in fullscreen mode.
and if ur in widescreen, it doesnt show the whole movie in widescreen view ><
sync on
sync rate 60
load flash "intro.swf",1,0,0
position flash 1,0,screen height()/2-get flash height(1)/2+40
resize flash 1,screen width(),get flash height(1)/2+120
aspect as float = 2.0
widescreen(aspect)
do
if controlkey() then cls: widescreen(aspect)
if spacekey() then cls: fullscreen()
sync
loop
function fullscreen()
resize flash 1,screen width(),screen height()
position flash 1,0,0
sync
endfunction
function widescreen(aspect as float)
local extra as dword
if aspect <= 0 then exitfunction
set camera aspect aspect
w = screen width() : h = screen height()
if aspect > (w / h * 1.0)
extra = (h - (w * (1/aspect))) / 2
set camera view 0, extra, w, h-extra
` else
` extra = (w - (h * aspect)) / 2
` set camera view extra, 0, w-extra, h
endif
position flash 1,0,screen height()/2-get flash height(1)/2+40
resize flash 1,screen width(),get flash height(1)/2+120
endfunction
CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/