@verb #2385:"@todo" any any any rdo #2385
@program #2385:"@todo" any any any
"This verb was made by #9780"
options = "add, remove, random, done"
what = ""
while (what != "done")
  bar = $su:space(player:linelength(), "-")
  player:tell({"The Following things need to be done:", bar})
  for x in (player.to_do)
    player:Tell("[", tostr(x in player.to_do), "]: ", x)
  endfor
  player:tell({bar, "Options: " + options})
  what = $command_utils:read()
  player:tell("You chose the option: " + what)
  if (what == "add")
    player:Tell("What is it you have to do?")
    do = $command_utils:read()
    player.to_do = setadd(player.to_do, do)
    player:Tell("TODO item added.")
  elseif (what == "remove")
    player:tell("Wich item do you wish to remove? the number between the [].")
    do = $command_utils:read()
    player.to_do = setremove(player.to_do, player.to_do[toint(do)])
    player:Tell("TODO Item removed.")
  elseif (what == "random")
    x = player.to_do[random(length(player.to_do))]
    player:tell("Random item result:")
    player:tell(">[", tostr(x in player.to_do), "]: ", x)
  endif
endwhile
player:Tell("-- done --")
"Last modified by Dax (#789) on Tue May  3 14:12:30 2005 MDT."
.