Return to Questions CVS log

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

Annotation of micropolis/src/notes/Questions, revision 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.