cvs.zerfleddert.de Git - micropolis/blob

1 # Windows: Maps, 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 global MapWindows

62 set n [Unique]

63 set parent [WindowLink $head.w2]

64 set win $parent.map$n

 set MapWindows [linsert $MapWindows 0 $win]

67 global MapState.$win

68 set MapState.$win 0

70 LinkWindow $head.map $win

71 LinkWindow $win.head $head

72 LinkWindow $win.parent $parent

73 LinkWindow $win.top $win

75 catch "destroy $win"

76 frame $win

78 SetHelp $win Map

 bind $win <Visibility> {[WindowLink %W.view] Visible [string compare %s FullyObscured]}

 bind $win <Map> {[WindowLink %W.view] Visible 1}

 bind $win <Unmap> {[WindowLink %W.view] Visible 0}

84 frame $win.centerframe\

85 -borderwidth 1\

86 -relief sunken

88 SetHelp $win.centerframe Map.View

90 mapview $win.centerframe.view\

91 -font [Font $win Large]

 $win.centerframe.view size [expr "[sim WorldX] * 3"] [expr "[sim WorldY] * 3"]

94 LinkWindow $win.view $win.centerframe.view

95 LinkWindow $win.centerframe.view.pallet $win.topframe

96 LinkWindow $win.centerframe.view.win $win

 bind $win.centerframe.view <1> {MapPanDown %W %x %y}

 bind $win.centerframe.view <B1-Motion> {MapPanDrag %W %x %y}

 bind $win.centerframe.view <ButtonRelease-1> {MapPanUp %W %x %y}

101

 bind $win.centerframe.view <2> {MapPanDown %W %x %y}

 bind $win.centerframe.view <B2-Motion> {MapPanDrag %W %x %y}

 bind $win.centerframe.view <ButtonRelease-2> {MapPanUp %W %x %y}

105

 bind $win.centerframe.view <3> {MapPanDown %W %x %y}

 bind $win.centerframe.view <B3-Motion> {MapPanDrag %W %x %y}

 bind $win.centerframe.view <ButtonRelease-3> {MapPanUp %W %x %y}

109

110 pack append $win.centerframe\

111 $win.centerframe.view {top frame center expand}

112

113 frame $win.topframe\

114 -borderwidth 1\

115 -relief raised

116

117 menubutton $win.topframe.zones\

118 -menu $win.topframe.zones.m\

119 -text {Zones}\

120 -font [Font $win Medium]\

121 -variable $win.postedMenu\

122 -borderwidth 1\

123 -relief flat

124 LinkWindow $win.zones $win.topframe.zones

125 tk_bindForTraversal $win.topframe.zones

 bind $win.topframe.zones <F10> {tk_firstMenu %W} 

 bind $win.topframe.zones <Alt-Key> {tk_traverseToMenu %W %A} 

128 tk_menus $win $win.topframe.zones

129

130 SetHelp $win.topframe.zones Map.Zones

131

132 menu $win.topframe.zones.m\

133 -font [Font $win Medium]

134 tk_bindForTraversal $win.topframe.zones.m

 bind $win.topframe.zones.m <F10> {tk_firstMenu %W} 

 bind $win.topframe.zones.m <Alt-Key> {tk_traverseToMenu %W %A} 

137 $win.topframe.zones.m add radiobutton\

138 -label {All}\

139 -variable MapState.$win\

140 -value 0\

141 -command "SetMapState $win 0"

142 $win.topframe.zones.m add radiobutton\

143 -label {Residential}\

144 -variable MapState.$win\

145 -value 1\

146 -command "SetMapState $win 1"

147 $win.topframe.zones.m add radiobutton\

148 -label {Commercial}\

149 -variable MapState.$win\

150 -value 2\

151 -command "SetMapState $win 2"

152 $win.topframe.zones.m add radiobutton\

153 -label {Industrial}\

154 -variable MapState.$win\

155 -value 3\

156 -command "SetMapState $win 3"

157 $win.topframe.zones.m add radiobutton\

158 -label {Transportation}\

159 -variable MapState.$win\

160 -value 5\

161 -command "SetMapState $win 5"

162 # Disabled dynamic filter for now.

163 #$win.topframe.zones.m add radiobutton\

164 # -label {Dynamic}\

165 # -variable MapState.$win\

166 # -value 14\

167 # -command "SetMapState $win 14"

168

169 menubutton $win.topframe.overlays\

170 -menu $win.topframe.overlays.m\

171 -text {Overlays}\

172 -font [Font $win Medium]\

173 -variable $win.postedMenu\

174 -borderwidth 1\

175 -relief flat

176 LinkWindow $win.overlays $win.topframe.overlays

177 tk_bindForTraversal $win.topframe.overlays

 bind $win.topframe.overlays <F10> {tk_firstMenu %W} 

 bind $win.topframe.overlays <Alt-Key> {tk_traverseToMenu %W %A} 

180 tk_menus $win $win.topframe.overlays

181

182 SetHelp $win.topframe.overlays Map.Overlays

183

184 menu $win.topframe.overlays.m\

185 -font [Font $win Medium]

186 tk_bindForTraversal $win.topframe.overlays.m

 bind $win.topframe.overlays.m <F10> {tk_firstMenu %W} 

 bind $win.topframe.overlays.m <Alt-Key> {tk_traverseToMenu %W %A} 

189 $win.topframe.overlays.m add radiobutton\

190 -label {Population Density}\

191 -variable MapState.$win\

192 -value 6\

193 -command "SetMapState $win 6"

194 $win.topframe.overlays.m add radiobutton\

195 -label {Rate of Growth}\

196 -variable MapState.$win\

197 -value 7\

198 -command "SetMapState $win 7"

199 $win.topframe.overlays.m add radiobutton\

200 -label {Land Value}\

201 -variable MapState.$win\

202 -value 11\

203 -command "SetMapState $win 11"

204 $win.topframe.overlays.m add radiobutton\

205 -label {Crime Rate}\

206 -variable MapState.$win\

207 -value 10\

208 -command "SetMapState $win 10"

209 $win.topframe.overlays.m add radiobutton\

210 -label {Pollution Density}\

211 -variable MapState.$win\

212 -value 9\

213 -command "SetMapState $win 9"

214 $win.topframe.overlays.m add radiobutton\

215 -label {Traffic Density}\

216 -variable MapState.$win\

217 -value 8\

218 -command "SetMapState $win 8"

219 $win.topframe.overlays.m add radiobutton\

220 -label {Power Grid}\

221 -variable MapState.$win\

222 -value 4\

223 -command "SetMapState $win 4"

224 $win.topframe.overlays.m add radiobutton\

225 -label {Fire Coverage}\

226 -variable MapState.$win\

227 -value 12\

228 -command "SetMapState $win 12"

229 $win.topframe.overlays.m add radiobutton\

230 -label {Police Coverage}\

231 -variable MapState.$win\

232 -value 13\

233 -command "SetMapState $win 13"

234

235 button $win.topframe.hide\

236 -text {Hide Map}\

237 -font [Font $win Medium]\

238 -borderwidth 1\

   -command "HideMap $win" \

240 -relief flat

241 LinkWindow $win.hide $win.topframe.hide

242 tk_bindForTraversal $win.topframe.hide

243

244 proc HideMap {win} {

245 pack unpack $win.centerframe

246 $win.topframe.hide configure \

247 -text {Show Map}\

248 -command "ShowMap $win"

249 }

250

251 proc ShowMap {win} {

252 pack append $win\

253 $win.centerframe {top frame center fill}

254 $win.topframe.hide configure \

255 -text {Hide Map}\

256 -command "HideMap $win"

257 }

258

259 label $win.topframe.legend\

260 -bitmap "@images/legendn.xpm" \

261 -font [Font $win Medium]

262 LinkWindow $win.legend $win.topframe.legend

263

264 pack append $win.topframe\

265 $win.topframe.zones {left frame nw} \

266 $win.topframe.overlays {left frame nw} \

267 $win.topframe.hide {left frame nw} \

268 $win.topframe.legend {right frame ne}

269

270 pack append $win\

271 $win.topframe {top frame center fillx} \

272 $win.centerframe {top frame center fill}

273

274 pack append $parent\

275 $win {top frame nw expand fill}

276

277 InitMap $win

278

279 update idletasks