]> git.zerfleddert.de Git - micropolis/blob - src/notes/Questions
rename setenv and unsetenv to not clash with functions provided by libc
[micropolis] / 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
Impressum, Datenschutz