asm/game.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 ; used in fanchecks
  16 deftvar: game_fan_left_v   ; have left working fan?
  17 deftvar: game_fan_right_v  ; have right working fan?
  18 deftvar: game_fan_dx_v     ; !0: some fan in effect
  19
  20 ; used in 'monster death'
  21 deftvar: monster_tid
  22
  23
  24 const: PSPR_STANDING = 0
  25 const: PSPR_WALKING_LAST = 9
  26 const: PSPR_TURNING = 10
  27 const: PSPR_FACING = 11
  28 const: PSPR_JUMPING = 12
  29 const: PSPR_TAKING0 = 13
  30 const: PSPR_TAKING1 = 14
  31 const: PSPR_USING = 15
  32 const: PSPR_CLOSED_EYES = 16
  33 const: PSPR_LYING_DEAD = 19
  34 const: PSPR_DRILLING0 = 20
  35 const: PSPR_DRILLING1 = 21
  36 const: PSPR_HARRY_EATS_PROF_START = 33
  37 const: PSPR_HARRY_EATS_PROF_END = 38
  38
  39
  40 const: PDIR_LEFT   = -1
  41 const: PDIR_RIGHT  =  1
  42 const: PDIR_FACING =  0
  43
  44
  45 game_load_level:
  46   bsr kill_all_threads
  47   ;
  48   set [item_id], 0
  49   set [spr_bank], BANK_PROF
  50   set [spr_num], PSPR_FACING
  51   set [spr_dir], DIR_LEFT
  52   ;
  53   jlt .bad_level, [cur_level], 0
  54   jge .bad_level, [cur_level], [max_level]
  55   jmp .do_load
  56 .bad_level:
  57   set [cur_level], 0
  58 .do_load:
  59   bsr entry_get_level_code, [cur_level]
  60   ;
  61   psh avish_level_loader
  62   rst FRST_GET_LEVEL_LOADER
  63   jlt .no_custom_loader, [rst_result], 0
  64   drp
  65   psh [rst_result]
  66 .no_custom_loader:
  67   psh [cur_level]
  68   swp
  69   bsr ; call level loader
  70   ; call local initializer (if any)
  71   rst FRST_GET_LEVEL_INITER
  72   jlt .no_custom_init, [rst_result], 0
  73   bsr [rst_result]
  74 .no_custom_init:
  75   ;
  76   rst FRST_SET_LEVEL_CODE, [level_code_ofs], [level_code_len]
  77   bsr prof_fix_position
  78   ret
  79
  80
  81 entry_game_initialize:
  82   rst FRST_ML_GAME
  83   set [cur_level], [start_level]
  84   ;
  85   set [mouse_hidden], 1
  86   jeq @@f, [goobers], 0
  87   set [mouse_hidden], 0
  88 @@:
  89   /*
  90   set [cur_level], 11
  91   set [cur_level], 16
  92   set [cur_level], 13
  93   set [cur_level], 12
  94   */
  95   rst FRST_STOP_CHANNEL, -1
  96   ; load sounds
  97   psh 0
  98 @@:
  99   dup
 100   rst FRST_LOAD_SOUND
 101   add 1
 102   dup
 103   jlt @@b, 23
 104   drp
 105   ;
 106   rst FRST_GET_GOOBERS_INITER
 107   jlt @@f, [rst_result], 0
 108   bsr [rst_result]
 109 @@:
 110   ;ret  ; not needed
 111
 112
 113 entry_game_restart_level:
 114   rst FRST_ML_GAME
 115   bsr clear_stack
 116   bsr kill_all_threads
 117   ; stop all sound
 118   rst FRST_STOP_CHANNEL, -1
 119   ;
 120   set [game_state], GAME_STATE_STARTED
 121   brk
 122   ;
 123   set [key_quit], 0
 124   set [key_start], 0
 125   ;
 126   set [key_left], 0
 127   set [key_right], 0
 128   set [key_up], 0
 129   set [key_down], 0
 130   set [key_take], 0
 131   set [key_use], 0
 132   set [key_minimap], 0
 133   set [key_restart], 0
 134   ;
 135   set [key_fall_cheat], 0
 136   set [key_walk_cheat], 0
 137   set [key_plev_cheat], 0
 138   set [key_nlev_cheat], 0
 139   ;
 140   ;set [prof_fall_count], 0
 141   set [pos_tx], 0
 142   set [pos_ty], 0
 143   set [prof_item], 0
 144   set [monster_tid], -666
 145   ;
 146   set [spr_item], -1
 147   set [item_name_ofs], 0
 148   set [item_name_len], 0
 149   rst FRST_SET_ITEM_NAME, [item_name_ofs], [item_name_len]
 150   ;
 151   bsr game_load_level
 152   ;
 153   rst FRST_GET_GOOBERS_ONLOAD
 154   jlt @@f, [rst_result], 0
 155   bsr [rst_result]
 156 @@:
 157   ;
 158   set [game_state], GAME_STATE_PLAYING
 159   brk ; give all threads a chance to initialize themselves
 160   ;
 161   jmp game_facing_loop_w2f
 162
 163
 164 include: game/utils.awa
 165 include: game/walkcheck.awa
 166 include: game/falling.awa
 167 include: game/fanchecks.awa
 168 include: game/dodie.awa
 169 include: game/scrolls.awa
 170 include: game/doors.awa
 171 include: game/sidemove.awa
 172 include: game/loops_main.awa
 173 include: game/jumps.awa
 174 include: game/nono.awa
 175 include: game/check_do_earth.awa
 176 include: game/frame_common.awa