]> git.zerfleddert.de Git - micropolis/blame - src/notes/Questions
sh compatibility fixes
[micropolis] / src / notes / Questions
CommitLineData
6a5fa4e0
MG
1########################################################################
2# Questions
3########################################################################
4
5
6global Questions
7
8
9proc Question {id color title msg {props {}}} {
10 global Questions
11 set Questions($id) [list $color $title $msg $props]
12}
13
14Question 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
21Question 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
30Question 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.
38Question 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