Options Menu
Code: Select all
global xOfRes, yOfRes
on menuPick pItemName
switch pItemName
case "800x600"
put 800 into xOfRes
put 600 into yOfRes
answer "800x600"
case "1600x900"
put 1600 into xOfRes
put 900 into yOfRes
case "1920x1080"
put 1920 into xOfRes
put 1080 into yOfRes
end switch
end menuPick
Code: Select all
global xOfRes, yOfRes
on mouseUp
revChangeWindowSize "xOfRes", "yOfRes"
end mouseUp
Options Menu
Code: Select all
global theScreenType
on menuPick pItemName
switch pItemName
case "Windowed"
put false into theScreenType
case "Fullscreen"
put true into theScreenType
end switch
end menuPick
Code: Select all
global theScreenType
on mouseUp
set the fullscreen of this stack to theScreenType
end mouseUp
All help appreciated!
Alex