home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 5.14 / 2000-11_-_Disc_5.14.iso / Goodies / 3DGameStudio / Adeptus / a4panel.wdl next >
Text File  |  2000-04-22  |  2KB  |  115 lines
  1. //@
  2. # INVOKED        WDL-Script                    Project: DEMO ADEPTUS
  3. #
  4. # Auftraggeber   : Conitec GmbH
  5. #
  6. #*********************************************************************
  7. # Module        : a4panel.wdl - Kundenversion
  8. # Version       : 2.0 (Made with WDL-STUDIO)
  9. # Date          :  19.8.99
  10. # Responsible   : Harald Schmidt
  11. # Description   : panels & panelactions
  12. # ********************************************************************
  13. //@
  14.  
  15.  
  16. /////////////////IntroScreen//////////////////////////////////////////////////
  17. #BMAP intro_map <ls2.pcx>;
  18. // two panels of the introduction splash screen
  19. BMAP introl_map <ls2a.pcx>;    // left panel
  20. BMAP intror_map <ls2b.pcx>;    // right panel
  21.  
  22. // introduction skills
  23. SKILL intro_counter {}
  24.  
  25. SKILL intro_r_move {VAL 160;}
  26. SKILL intro_l_move {VAL 160;}
  27.  
  28.  
  29. PANEL introl_pan
  30. {
  31.     POS_X 0;
  32.     BMAP introl_map;
  33.     LAYER 12;
  34.     FLAGS REFRESH,OVERLAY;
  35. }
  36. PANEL intror_pan
  37. {
  38.     POS_X 320;
  39.     BMAP intror_map;
  40.     LAYER 12;
  41.     FLAGS REFRESH,OVERLAY;
  42. }
  43.  
  44. // Desc: the introduction at the begining of the game
  45. ACTION start_intro
  46. {
  47.     intro_counter = 0;
  48.     SET intror_pan.VISIBLE, TRUE;
  49.     SET introl_pan.VISIBLE, TRUE;
  50.     WHILE (KEY_ANY == 0)
  51.     {
  52.         intro_counter += TIME;
  53.         IF (intro_counter > 20)
  54.         {
  55.             intror_pan.POS_X += 20*TIME;
  56.             introl_pan.POS_X -= 20*TIME;
  57.             IF (intror_pan.POS_X >= 640)
  58.             {
  59.                 BREAK;
  60.             }
  61.         }
  62.         WAIT 1;
  63.     }
  64.     intro_counter = 0;
  65.     SET intror_pan.VISIBLE, FALSE;
  66.     SET introl_pan.VISIBLE, FALSE;
  67.     CALL show_story;
  68. }
  69.  
  70.  
  71. /////////////////////////////////////////////////////////////////////
  72.  
  73. // Desc: show the background story
  74. ACTION show_story
  75. {
  76.     CALL vscr_close_all_at_start;
  77.     WAIT 1;
  78.     SET ON_ANYKEY, vscr_show_startmenu;
  79.     SET info1_pan.VISIBLE, TRUE;
  80.     SET intro_exit_vbpan.VISIBLE, TRUE;
  81.     SET info1_txt.STRING, m_intro_str;
  82.     SET info1_txt.VISIBLE, TRUE;
  83. }
  84.  
  85.  
  86. // Desc: the quest written in the book.
  87. ACTION show_quest
  88. {
  89.     CALL vscr_close_all;
  90.     SET info1_pan.VISIBLE, TRUE;
  91.     SET info_exit_right_vbpan.VISIBLE, TRUE;
  92.     SET info1_txt.STRING, m_regal_str;
  93.     SET info1_txt.VISIBLE, TRUE;
  94. }
  95.  
  96. // Desc:
  97. ACTION show_quest_ready
  98. {
  99.     CALL vscr_close_all;
  100.     SET info2_pan.VISIBLE, TRUE;
  101.     SET info_exit_right_vbpan.VISIBLE, TRUE;
  102.     SET info2_txt.STRING, quest_ready_str;
  103.     SET info2_txt.VISIBLE, TRUE;
  104. }
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.