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