asm/items/i_dynamite.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 proc: entry_item_dynamite
  16 .loop:
  17   jne .frozen, [frozen], 0
  18   jeq .notactive, [activated], 0
  19   ;
  20   bsr item_do_fall_step
  21   jne .noboomcheck, [pos_ty], 6
  22   ;
  23   mgf [pos_x], [pos_y]
  24   jeq .noboomcheck, 0
  25   jmp .explode
  26   ;
  27 .noboomcheck:
  28   jgt .explode, [fall_count], 7
  29   jmp .frozen
  30   ;
  31 .notactive:
  32   bsr item_check_fall
  33   set [fall_count], 0
  34 .frozen:
  35   brk
  36   jmp .loop
  37
  38
  39 .explode:
  40   set [item_id], -1
  41   set [spr_num], 10
  42 .eloop:
  43   brk
  44   brk
  45   add [spr_num], 1
  46   jlt .eloop, [spr_num], 16
  47   mgf [pos_x], [pos_y]
  48   jeq .quit, FTILE_STEEL
  49   msf [pos_x], [pos_y], 0
  50 .quit:
  51   end
  52 endp: entry_item_dynamite