42d
@verb #1180:"add_todo_item" this none this rxdo #9633
@program #1180:"add_todo_item" this none this
item = {}
string = ""
player:tell("Adding a ToDo item.")
player:tell("Please enter the item's name:")
string = $command_utils:read()
if ($string_utils:trim(string) != "abort")
  item = setadd(item, string)
  player:tell("Please enter a short description:")
  string = $command_utils:read()
  if ($string_utils:trim(string) != "abort")
    item = setadd(item, string)
    player:tell("Please enter the due date:")
    string = $command_utils:read()
    if ($string_utils:trim(string) != "abort")
      item = setadd(item, string)
      player:tell("Enter any more specific data about this item.")
      string = $command_utils:read_lines()
      if (string != "")
        item = setadd(item, string)
        this.todo_list = setadd(this.todo_list, item)
        this.todo_items = this.todo_items + 1
        player:tell("Added ToDo item: ", item[1])
        return
      endif
    endif
  endif
endif
player:tell("ToDo addition ended.")
.

0