capsule.ccs

import ebpp

define FIRST_CAPSULE_ITEM = 1
define AMOUNT_OF_CAPSULE_ITEMS = 3

txt_liquid: "drank" eob
txt_capsule: "swallowed" eob

command drink_verb(item_number) {
  // Store the contents of register 0 on the stack
  push(0)
  push(1)

  // Store the item number in register 0
  load32c(0, item_number)

  // Call subroutine
  call(_drink_verb)

  // Restore registers 0,1
  pull(1)
  pull(0)
}

_drink_verb: {
  // Set register 1 to 1 if register 0 < FIRST_CAPSULE_ITEM
  ltc(1, 0, FIRST_CAPSULE_ITEM)

  // If register 1 == 1, this is not a capsule
  mov_reg_result(1)
  if (result_is(1)) {
    call(txt_liquid)
    eob
  }

  // Register 0 = Register 0 - FIRST_CAPSULE_ITEM
  subc(0, 0, FIRST_CAPSULE_ITEM)

  // Set register 0 to 1 if this is a capsule item
  ltc(0, 0, AMOUNT_OF_CAPSULE_ITEMS)

  // Print the correct verb
  mov_reg_result(0)
  if (result_is(1)) {
    call(txt_capsule)
    eob
  }
  call(txt_liquid)
  eob
}