66b
@verb #3200:"@addtopic" any any any rdo #7407
@program #3200:"@addtopic" any any any
title = argstr || $command_utils:read("a title (or question) for this topic")
creator = player
if (creator in this.banned)
  return player:tell("Sorry, you have been banned from adding new topics")
endif
player:tell("Please enter a brief description for this topic (Or leave it blank by simply typing a period and then enter)")
desc = $command_utils:read_lines()
while ((result = `$cmd_utils:yes_or_no("Can the results of this vote be a simple Yes or No?") ! E_INVARG') == E_INVARG)
endwhile
if (result)
  options = 0
else
  player:tell("Enter the options that people will be allowed to select")
  player:tell("Make sure <B><I>NOT</I></B> to number them, and also make sure to put <B><I>ONLY ONE PER LINE</I></B>")
  options = $command_utils:read_lines()
  options = $cecil_utils:numbered_list(options)
endif
"expiry = time() + (86400 * 14);"
" ^^^ too draconian. try the following instead:"
expiry = 0
result = E_INVARG
while (result == E_INVARG)
  player:tell("Preview:")
  player:tell()
  player:tell(title)
  player:tell($string_utils:space(player:linelength(), "="))
  player:tell(desc)
  player:tell($string_utils:space(player:linelength(), "="))
  player:tell(options ? options | "Choose \"Yes\" or \"No\"")
  player:tell($string_utils:space(player:linelength(), "="))
  result = $command_utils:yes_or_no("Does this look okay?")
endwhile
if (result)
  data = {creator, title, desc, options, {}, expiry}
  this.topics = {@this.topics, data}
  player:tell("Topic added!")
else
  player:tell("Aborted.")
endif
.

0