asm/title.awa

   1 /*
   2  * This program is free software: you can redistribute it and/or modify
   3  * it under the terms of the GNU General Public License as published by
   4  * the Free Software Foundation, either version 3 of the License, or
   5  * (at your option) any later version.
   6  *
   7  * This program is distributed in the hope that it will be useful,
   8  * but WITHOUT ANY WARRANTY; without even the implied warranty of
   9  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  10  * GNU General Public License for more details.
  11  *
  12  * You should have received a copy of the GNU General Public License
  13  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  14  */
  15 /* game starts here */
  16 defevar: title_phase
  17
  18 extern: defgvar: flag_skip_title
  19
  20 include: mainmenu.awa
  21
  22 entry_title:
  23   ;jne entry_title, [flag_skip_title], 0
  24   bsr kill_all_threads
  25   bsr clear_stack
  26
  27   set [key_start], 0
  28   set [key_quit], 0
  29   set [title_phase], 0
  30   rst FRST_ML_TITLE
  31
  32   jne .title_done, [goobers], 0
  33   jne .title_done, [flag_skip_title], 0
  34
  35 @@:
  36   jne quit_program, [key_quit], 0
  37   jne .title_done, [key_start], 0
  38   brk
  39   brk
  40   add [title_phase], 1
  41   jlt @@b, [title_phase], 6
  42
  43 /*
  44 @@:
  45   jne quit_program, [key_quit], 0
  46   brk
  47   jeq @@b, [key_start], 0
  48 */
  49   brk
  50   brk
  51 @@:
  52   bsr main_menu
  53   jeq @@b, 0  ; ignore ESC
  54
  55 @@:
  56   jne quit_program, [key_quit], 0
  57   brk
  58   brk
  59   sub [title_phase], 1
  60   jge @@b, [title_phase], 0
  61
  62 .title_done:
  63   jmp entry_game_initialize
  64
  65 quit_program:
  66   kil 0
  67   end