home *** CD-ROM | disk | FTP | other *** search
/ Blue Byte Demo & Product Guide 1999 #2 / BLUEBYTE.ISO / DEMOS / Inc / DATA / GUI / Menu_c.lcl < prev   
Encoding:
INI File  |  1997-08-23  |  3.0 KB  |  87 lines
  1. [LCL]
  2.  
  3. *************************************
  4. *                                    *
  5. * LCL-Resourcefile                    *
  6. * ================                    *
  7. *                                   *
  8. * _MissionEnd                        *
  9. *                                    *
  10. * Use "LCLenv.nVar[0]" to select     *
  11. * windows in this resourcefile.        *
  12. *                                   *
  13. * Andreas Nitsche, 06. August 1996    *
  14. *                                   *
  15. *************************************
  16.  
  17. *
  18. *__WindowSelector__
  19. *
  20.  
  21. >EnvVarCmpNum(_A_WindowSelector,00_MainMenu);            Goto(MainMenu);            <
  22. >EnvVarCmpNum(_A_WindowSelector,01_ExitObject);            Goto(ExitObject);        <
  23. >EnvVarCmpNum(_A_WindowSelector,02_Decoration);            Goto(Decoration);        <
  24.  
  25. [END]
  26.  
  27. *************
  28. *            *
  29. * MainMenu    *
  30. *            *
  31. **************************************************************************************************************************
  32.  
  33. :MainMenu;
  34.  
  35.     GUI_SetWindow (0,0,640,480);
  36.  
  37.     GUI_SetText (1_txtID,2_fntID,010_WinText,320_x,26_y,0_Style,1_cX,3_cA,0_cB,0_cC,1_Format);
  38.  
  39.     * StandardMenu - Campaign - Victory **********************************************************************************
  40.                                                                                                         *
  41.     GUI_SetButton (0_gdtID,0_fntID,001_WinText,0_Library, 80_x,396_y,5_Width,1_PressDown);                * MainMenu
  42.     GUI_SetButton (1_gdtID,0_fntID,002_WinText,0_Library,426_x,396_y,5_Width,1_PressDown);                * Continue
  43.     GUI_SetButton (2_gdtID,0_fntID,003_WinText,0_Library,426_x,396_y,5_Width,1_PressDown);                * Try it again...
  44.     GUI_SetButton (3_gdtID,0_fntID,004_WinText,0_Library,249_x,396_y,5_Width,1_PressDown);                * Load game
  45.  
  46.     [END]
  47.  
  48. *****************
  49. *                *
  50. * ExitObject    *
  51. *                *
  52. **************************************************************************************************************************
  53.  
  54. :ExitObject;
  55.  
  56.     GUI_SetWindow (0,0,640,480);
  57.  
  58.     GUI_SetText (1_txtID,2_fntID,010_WinText,320_x,26_y,0_Style,1_cX,3_cA,0_cB,0_cC,1_Format);
  59.  
  60.     * Misc ***************************************************************************************************************
  61.                                                                                                         *
  62.     GUI_SetText (2_txtID,2_fntID,060_WinText,320_x,200_y,0_Style,1_cX,3_cA,0_cB,0_cC,1_Format);            * "back to mainmenu?"
  63.     GUI_SetButton (0_gdtID,0_fntID,061_WinText,0_Library,140_x,296_y,5_Width,1_PressDown);                * Yes
  64.     GUI_SetButton (1_gdtID,0_fntID,062_WinText,0_Library,366_x,290_y,5_Width,1_PressDown);                * No
  65.     
  66.     [END]
  67.  
  68. *****************
  69. *                *
  70. * Decoration    *
  71. *                *
  72. **************************************************************************************************************************
  73.  
  74. :Decoration;
  75.  
  76.     GUI_SetWindow (0,0,640,480);
  77.  
  78.     GUI_SetText (1_txtID,2_fntID,070_WinText,320_x,26_y,0_Style,1_cX,3_cA,0_cB,0_cC,1_Format);
  79.  
  80.     * Misc ***************************************************************************************************************
  81.                                                                                                         *
  82.     GUI_SetText (2_txtID,1_fntID,071_WinText,320_x,280_y,0_Style,1_cX,3_cA,0_cB,0_cC,1_Format);            * "decoration received"
  83.     GUI_SetButton (0_gdtID,0_fntID,073_WinText,0_Library,220_x,360_y,7_Width,1_PressDown);                * continue
  84.     
  85.     [END]
  86.  
  87.