git.zerfleddert.de Git - micropolis/blob

1 # Window: Scenarios, for Unix Micropolis.

2 #

3 # Micropolis, Unix Version. This game was released for the Unix platform

4 # in or about 1990 and has been modified for inclusion in the One Laptop

6 # you need assistance with this program, you may contact:

7 # http://wiki.laptop.org/go/Micropolis or email micropolis@laptop.org.

8 #

9 # This program is free software: you can redistribute it and/or modify

10 # it under the terms of the GNU General Public License as published by

11 # the Free Software Foundation, either version 3 of the License, or (at

12 # your option) any later version.

13 #

14 # This program is distributed in the hope that it will be useful, but

15 # WITHOUT ANY WARRANTY; without even the implied warranty of

16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU

17 # General Public License for more details. You should have received a

18 # copy of the GNU General Public License along with this program. If

19 # not, see <http://www.gnu.org/licenses/>.

20 #

21 # ADDITIONAL TERMS per GNU GPL Section 7

22 #

23 # No trademark or publicity rights are granted. This license does NOT

24 # give you any right, title or interest in the trademark SimCity or any

25 # other Electronic Arts trademark. You may not distribute any

26 # modification of this program using the trademark SimCity or claim any

27 # affliation or association with Electronic Arts Inc. or its employees.

28 #

29 # Any propagation or conveyance of this program must include this

30 # copyright notice and these terms.

31 #

32 # If you convey this program (or any modifications of it) and assume

33 # contractual liability for the program to recipients of it, you agree

34 # to indemnify Electronic Arts for any liability that those contractual

35 # assumptions impose on Electronic Arts.

36 #

37 # You may not misrepresent the origins of this program; modified

38 # versions of the program must be marked as such and not identified as

39 # the original program.

40 #

41 # This disclaimer supplements the one included in the General Public

42 # License. TO THE FULLEST EXTENT PERMISSIBLE UNDER APPLICABLE LAW, THIS

43 # PROGRAM IS PROVIDED TO YOU "AS IS," WITH ALL FAULTS, WITHOUT WARRANTY

44 # OF ANY KIND, AND YOUR USE IS AT YOUR SOLE RISK. THE ENTIRE RISK OF

45 # SATISFACTORY QUALITY AND PERFORMANCE RESIDES WITH YOU. ELECTRONIC ARTS

46 # DISCLAIMS ANY AND ALL EXPRESS, IMPLIED OR STATUTORY WARRANTIES,

47 # INCLUDING IMPLIED WARRANTIES OF MERCHANTABILITY, SATISFACTORY QUALITY,

48 # FITNESS FOR A PARTICULAR PURPOSE, NONINFRINGEMENT OF THIRD PARTY

49 # RIGHTS, AND WARRANTIES (IF ANY) ARISING FROM A COURSE OF DEALING,

50 # USAGE, OR TRADE PRACTICE. ELECTRONIC ARTS DOES NOT WARRANT AGAINST

51 # INTERFERENCE WITH YOUR ENJOYMENT OF THE PROGRAM; THAT THE PROGRAM WILL

52 # MEET YOUR REQUIREMENTS; THAT OPERATION OF THE PROGRAM WILL BE

53 # UNINTERRUPTED OR ERROR-FREE, OR THAT THE PROGRAM WILL BE COMPATIBLE

54 # WITH THIRD PARTY SOFTWARE OR THAT ANY ERRORS IN THE PROGRAM WILL BE

55 # CORRECTED. NO ORAL OR WRITTEN ADVICE PROVIDED BY ELECTRONIC ARTS OR

56 # ANY AUTHORIZED REPRESENTATIVE SHALL CREATE A WARRANTY. SOME

57 # JURISDICTIONS DO NOT ALLOW THE EXCLUSION OF OR LIMITATIONS ON IMPLIED

58 # WARRANTIES OR THE LIMITATIONS ON THE APPLICABLE STATUTORY RIGHTS OF A

59 # CONSUMER, SO SOME OR ALL OF THE ABOVE EXCLUSIONS AND LIMITATIONS MAY

60 # NOT APPLY TO YOU.

61 #

62 global ScenarioWindows

63 set n [Unique]

64 set parent [WindowLink $head.col2]

65 set win $parent.scenario$n

 set ScenarioWindows [linsert $ScenarioWindows 0 $win]

68 global ScenarioPanelWidth

69 global ScenarioPanelHeight

71 LinkWindow $head.scenario $win

72 LinkWindow $win.head $head

73 LinkWindow $win.parent $parent

75 catch "destroy $win"

76 frame $win \

77 -width $ScenarioPanelWidth \

78 -height $ScenarioPanelHeight

80 SetHelp $win Scenario

82 frame $win.scen\

83 -borderwidth 0 -geometry 100x280

85 label $win.scen.micropolis\

86 -bitmap "@images/micropolisl.xpm" \

87 -font [Font $win Medium]

89 button $win.scen.newcity\

90 -command "UIGenerateNewCity" \

91 -relief flat \

92 -borderwidth 0 \

93 -bitmap "@images/scncty.xpm" \

94 -font [Font $win Medium]

96 SetHelp $win.scen.newcity Scenario.NewCity

98 button $win.scen.loadcity\

   -command "UILoadCity $head" \

100 -relief flat \

101 -borderwidth 0 \

102 -bitmap "@images/sclcty.xpm" \

103 -font [Font $win Medium]

104

105 SetHelp $win.scen.loadcity Scenario.LoadCity

106

107 button $win.scen.dullsville\

108 -command {UILoadScenario 1} \

109 -relief flat \

110 -borderwidth 0 \

111 -bitmap "@images/scdull.xpm" \

112 -font [Font $win Medium]

113

114 SetHelp $win.scen.dullsville Scenario.Dullsville

115

116 button $win.scen.sanfrancisco\

117 -command {UILoadScenario 2} \

118 -relief flat \

119 -borderwidth 0 \

120 -bitmap "@images/scsfo.xpm" \

121 -font [Font $win Medium]

122

123 SetHelp $win.scen.sanfrancisco Scenario.SanFran

124

125 button $win.scen.hamburg\

126 -command {UILoadScenario 3} \

127 -relief flat \

128 -borderwidth 0 \

129 -bitmap "@images/scham.xpm" \

130 -font [Font $win Medium]

131

132 SetHelp $win.scen.hamburg Scenario.Hamburg

133

134 button $win.scen.bern\

135 -command {UILoadScenario 4} \

136 -relief flat \

137 -borderwidth 0 \

138 -bitmap "@images/scbern.xpm" \

139 -font [Font $win Medium]

140

141 SetHelp $win.scen.bern Scenario.Bern

142

143 button $win.scen.tokyo\

144 -command {UILoadScenario 5} \

145 -relief flat \

146 -borderwidth 0 \

147 -bitmap "@images/sctkyo.xpm" \

148 -font [Font $win Medium]

149

150 SetHelp $win.scen.tokyo Scenario.Tokyo

151

152 button $win.scen.rio\

153 -command {UILoadScenario 8} \

154 -relief flat \

155 -borderwidth 0 \

156 -bitmap "@images/scrio.xpm" \

157 -font [Font $win Medium]

158

159 SetHelp $win.scen.rio Scenario.Rio

160

161 button $win.scen.boston\

162 -command {UILoadScenario 7} \

163 -relief flat \

164 -borderwidth 0 \

165 -bitmap "@images/scbos.xpm" \

166 -font [Font $win Medium]

167

168 SetHelp $win.scen.boston Scenario.Boston

169

170 button $win.scen.detroit\

171 -command {UILoadScenario 6} \

172 -relief flat \

173 -borderwidth 0 \

174 -bitmap "@images/scdet.xpm" \

175 -font [Font $win Medium]

176

177 SetHelp $win.scen.detroit Scenario.Detroit

178

179 message $win.scen.labeldullville\

180 -aspect 1500\

181 -font [Font $win Small] \

182 -justify center \

183 -text {Dullsville 1900

184 Boredom}

185

186 SetHelp $win.scen.labeldullville Scenario.Dullsville

187

188 message $win.scen.labelsanfrancisco\

189 -aspect 1500\

190 -font [Font $win Small] \

191 -justify center \

192 -text {San Francisco 1906

193 Earthquake}

194

195 SetHelp $win.scen.labelsanfrancisco Scenario.SanFran

196

197 message $win.scen.labelhamburg\

198 -aspect 1500\

199 -font [Font $win Small] \

200 -justify center \

201 -text {Hamburg 1944

202 Bombing}

203

204 SetHelp $win.scen.labelhamburg Scenario.Hamburg

205

206 message $win.scen.labelbern\

207 -aspect 1500\

208 -font [Font $win Small] \

209 -justify center \

210 -text {Bern 1965

211 Traffic}

212

213 SetHelp $win.scen.labelbern Scenario.Bern

214

215 message $win.scen.labeltokyo\

216 -aspect 1500\

217 -font [Font $win Small] \

218 -justify center \

219 -text {Tokyo 1957

220 Monster Attack}

221

222 SetHelp $win.scen.labeltokyo Scenario.Tokyo

223

224 message $win.scen.labelrio\

225 -aspect 1500\

226 -font [Font $win Small] \

227 -justify center \

228 -text {Rio de Janeiro 2047

229 Coastal Flooding}

230

231 SetHelp $win.scen.labelrio Scenario.Rio

232

233 message $win.scen.labelboston\

234 -aspect 1500\

235 -font [Font $win Small] \

236 -justify center \

237 -text {Boston 2010

238 Nuclear Meltdown}

239

240 SetHelp $win.scen.labelboston Scenario.Boston

241

242 message $win.scen.labeldetroit\

243 -aspect 1500\

244 -font [Font $win Small] \

245 -justify center \

246 -text {Detroit 1972

247 Crime}

248

249 SetHelp $win.scen.labeldetroit Scenario.Detroit

250

 4lace $win.scen.micropolis -anchor n -x 205 -y 25

 place $win.scen.newcity -x 20 -y 10

 place $win.scen.loadcity -x 320 -y 10

 place $win.scen.dullsville -x 20 -y 80

 place $win.scen.sanfrancisco -x 120 -y 80

 place $win.scen.hamburg -x 220 -y 80

 place $win.scen.bern -x 320 -y 80

 place $win.scen.tokyo -x 20 -y 180

 place $win.scen.rio -x 120 -y 180

 place $win.scen.boston -x 220 -y 180

 place $win.scen.detroit -x 320 -y 180

 place $win.scen.labeldullville -anchor n -x 54 -y 140

 place $win.scen.labelsanfrancisco -anchor n -x 154 -y 140

 place $win.scen.labelhamburg -anchor n -x 254 -y 140

 place $win.scen.labelbern -anchor n -x 354 -y 140

 place $win.scen.labeltokyo -anchor n -x 54 -y 240

 place $win.scen.labelrio -anchor n -x 154 -y 240

 place $win.scen.labelboston -anchor n -x 254 -y 240

 place $win.scen.labeldetroit -anchor n -x 354 -y 240

270

271 BindSimButton $win.scen.newcity

272 BindSimButton $win.scen.loadcity

273 BindSimButton $win.scen.dullsville

274 BindSimButton $win.scen.sanfrancisco

275 BindSimButton $win.scen.hamburg

276 BindSimButton $win.scen.bern

277 BindSimButton $win.scen.tokyo

278 BindSimButton $win.scen.rio

279 BindSimButton $win.scen.boston

280 BindSimButton $win.scen.detroit

281

282 frame $win.name \

283 -borderwidth 2\

284 -relief flat

285

286 SetHelp $win.name Scenario.Name

287

288 label $win.name.namelabel \

289 -text {City Name:} \

290 -font [Font $win Text]

291

292 entry $win.name.cityname \

293 -text {}\

294 -textvariable CityName \

295 -font [Font $win Text] \

296 -width 50

 bind $win.name.cityname <Return> "DoEnterCityName $win"

 bind $win.name.cityname <Any-Enter> {focus %W}

299 LinkWindow $win.cityname $win.name.cityname

300

301 pack append $win.name \

302 $win.name.namelabel {left frame e}\

303 $win.name.cityname {left frame e}

304

305 frame $win.level \

306 -borderwidth 2\

307 -relief flat

308

309 SetHelp $win.level Scenario.Level

310

311 label $win.level.levellabel \

312 -text {Game Level:} \

313 -font [Font $win Text]

314

315 frame $win.level.radio \

316 -borderwidth 0\

317 -relief flat

318

319 radiobutton $win.level.radio.easy \

   -text "Easy" -variable GameLevel -value 0 \

321 -command "DoSetGameLevel 0" \

322 -font [Font $win Large]

323

324 radiobutton $win.level.radio.medium \

   -text "Medium" -variable GameLevel -value 1 \

326 -command "DoSetGameLevel 1" \

327 -font [Font $win Large]

328

329 radiobutton $win.level.radio.hard \

   -text "Hard" -variable GameLevel -value 2 \

331 -command "DoSetGameLevel 2" \

332 -font [Font $win Large]

333

334 pack append $win.level.radio \

335 $win.level.radio.easy {top frame e expand fillx}\

336 $win.level.radio.medium {top frame e expand fillx}\

337 $win.level.radio.hard {top frame e expand fillx}

338

339 frame $win.level.label \

340 -borderwidth 0\

341 -relief flat

342

343 label $win.level.label.easylabel \

   -text {Initial Funds: $20,000} \

345 -font [Font $win Large] \

346 -anchor w

347

348 label $win.level.label.mediumlabel \

   -text {Initial Funds: $10,000} \

350 -font [Font $win Large] \

351 -anchor w

352

353 label $win.level.label.hardlabel \

   -text {Initial Funds: $5,000} \

355 -font [Font $win Large] \

356 -anchor w

357

358 pack append $win.level.label \

   $win.level.label.easylabel            {top frame e expand fillx} \

   $win.level.label.mediumlabel          {top frame e expand fillx} \

   $win.level.label.hardlabel            {top frame e expand fillx}

362

363 pack append $win.level \

364 $win.level.levellabel {left frame ne} \

365 $win.level.radio {left frame ne} \

    $win.level.label                     {left frame ne expand fillx}

367

368 frame $win.buttons \

369 -borderwidth 0\

370 -relief flat -borderwidth 2

371

372 button $win.buttons.previous \

373 -text {Previous Map}\

374 -font [Font $win Large]\

375 -command "PrevHistory"\

376 -relief raised \

377 -width 20

378 LinkWindow $win.previous $win.buttons.previous

379

380 SetHelp $win.buttons.previous Scenario.Previous

381

382 frame $win.buttons.voteframe \

383 -borderwidth 0 \

384 -relief raised

385 LinkWindow $win.voteframe $win.buttons.voteframe

386

387 SetHelp $win.buttons.voteframe Scenario.Use

388

389 button $win.buttons.voteframe.vote \

390 -font [Font $win Large]\

391 -text { Use This Map }\

   -command "DoVote $win UseThisMap UIUseThisMap {}"\

393 -relief raised \

394 -borderwidth 1\

395 -width 20

396 LinkWindow $win.vote $win.buttons.voteframe.vote

397

398 pack append $win.buttons.voteframe\

399 $win.buttons.voteframe.vote {top frame center}

400

401 BindVotingButton $win $win.buttons.voteframe.vote UseThisMap

402

403 button $win.buttons.next \

404 -font [Font $win Large]\

405 -text {Next Map}\

406 -command "NextHistory"\

407 -width 20

408 LinkWindow $win.next $win.buttons.next

409

410 SetHelp $win.buttons.next Scenario.Next

411

412 pack append $win.buttons\

413 $win.buttons.previous {left frame nw}\

414 $win.buttons.voteframe {left frame nw}\

415 $win.buttons.next {left frame nw}

416

417 pack append $win\

418 $win.scen {top frame center fillx}\

419 $win.buttons {top frame center fillx}\

420 $win.name {top frame center fillx}\

421 $win.level {top frame center fillx}\

422

423 #place configure $win -x 0 -y 0 -width $ScenarioPanelWidth -height $ScenarioPanelHeight

424

425 InitScenario $win

426

427 update idletasks