Return to Questions CVS log

Up to [Micropolis - Activity] / micropolis / src / notes

Annotation of micropolis/src/notes/Questions, revision 1.1.1.1

1.1       root        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: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.