git.zerfleddert.de Git - micropolis/blob - src/notes/Questions

   1 ########################################################################
   2 # Questions
   3 ########################################################################
   4
   5
   6 global Questions
   7
   8
   9 proc Question {id color title msg {props {}}} {
  10   global Questions
  11   set Questions($id) [list $color $title $msg $props]
  12 }
  13
  14 Question QuitSingle #ff0000 "Quit Micropolis" \
  15     "Do you want to quit playing Micropolis?" \
  16 {{left {{Keep Playing.} Quit.KeepPlaying
  17    {RejectPlan}}}
  18  {right {{I Quit!} Quit.IQuit
  19    {DoReallyQuit %s}}}}
  20
  21 Question QuitMulti #ff0000 "Quit Micropolis" \
  22     "Do you want to quit playing Micropolis?" \
  23 {{left {{Keep Playing.} Quit.KeepPlaying
  24    {RejectPlan}}}
  25  {middle {{I Resign!} Quit.IResign
  26    {DoIResign %s}}}
  27  {right {{I Quit!} Quit.AllQuit
  28    {DoReallyQuit %s}}}}
  29
  30 Question Choose #ff0000 "New City" \
  31 "Do you want to abandon this city and select another one?" \
  32 {{left {{Keep Playing.} SelectCity.No
  33    {RejectPlan}}}
  34  {right {{Yes, another city!} SelectCity.Yes
  35    {UIPickScenarioMode}}}}
  36
  37 # Ugh.
  38 Question Build #00ff00 "%s" "%s" \
  39 {{left {{Dismiss Plan.} Plan.Dismiss
  40    {WithdrawAskOf %s}}}
  41  {right {{Support plan!} Plan.Support
  42    {SupportPlan $view %s $tool $x $y}
  43    {PreviewSupportPlan $view %s $tool $x $y}}}}
  44
  45