asm/game/use.awa

   1 .use_item:
   2   ;
   3   bsr prof_allowed_move_in_dir
   4   get [prof_item], item_id, [.type]
   5   ;
   6   psh item_use_array
   7 .loop:
   8   dup
   9   rxc
  10   dup
  11   jeq .done, 255
  12   jeq .found, [.type]
  13   add 3
  14   jmp .loop
  15 .found:
  16   add 1
  17   dup
  18   rxc
  19   swp
  20   add 1
  21   rxc
  22   mul 256
  23   add
  24   bsr
  25   jmp game_lr_stand_loop
  26 .done:
  27   drp 2
  28   jmp .nouse
  29
  30
  31 include: use/key.awa
  32 include: use/apple.awa
  33 include: use/dynamite.awa
  34 include: use/rocket.awa
  35 include: use/vial.awa
  36 include: use/gloves.awa
  37 include: use/fan.awa
  38
  39
  40 item_use_array:
  41   db: ITEM_KEY
  42   dw: game_use_key
  43   ;
  44   db: ITEM_FAN
  45   dw: game_use_fan
  46   ;
  47   db: ITEM_DYNAMITE
  48   dw: game_use_dynamite
  49   ;
  50   db: ITEM_ROCKET
  51   dw: game_use_rocket
  52   ;
  53   db: ITEM_APPLE
  54   dw: game_use_apple
  55   ;
  56   db: ITEM_VIAL
  57   dw: game_use_vial
  58   ;
  59   db: ITEM_GLOVES
  60   dw: game_use_gloves
  61   ;
  62   db: 255