turn.i

-- "turn.i"

Add to every object
  Is
    Not 'on'.
    Not switchable.
End add.


Syntax
  turn_on1 = turn 'on' (obj)
    Where obj IsA object
      else "You can't turn that on."

  turn_on2 = turn (obj) 'on'
    Where obj IsA object
      else "You can't turn that on."

  switch_on1 = switch 'on' (obj)
    Where obj IsA object
      else "You can't switch that on."

  switch_on2 = switch (obj) 'on'
    Where obj IsA object
      else "You can't switch that on."


Add to every object
  Verb turn_on1, turn_on2, switch_on1, switch_on2
    Check obj is not ornamental else
      If obj is plural
        then say msg:ornamental_response_P1_pl.
        else say msg:ornamental_response_P1_sg.
      End if.
    And obj is switchable
      else "You can't turn that on."
    And obj is not 'on'
      else "It's already on."
    Does
      Make obj 'on'.
      "You turn on" say the obj. "."
  End verb.
End add.


Syntax
  turn_off1 = turn off (obj)
    Where obj IsA object
      else "You can't turn that off."

  turn_off2 = turn (obj) off
    Where obj IsA object
      else "You can't turn that off."

  switch_off1 = switch off (obj)
    Where obj IsA object
      else "You can't switch that off."

  switch_off2 = switch (obj) off
    Where obj IsA object
      else "You can't switch that off."


Add to every object
  Verb turn_off1, turn_off2, switch_off1, switch_off2
    Check obj is not ornamental else
      If obj is plural
        then say msg:ornamental_response_P1_pl.
        else say msg:ornamental_response_P1_sg.
      End if.
    And obj is switchable
      else "You can't turn that off."
    And obj is 'on'
      else "It's already off."
    Does
      Make obj not 'on'.
      "You turn off" say the obj. "."
  End verb.
End add.