Return to wscen_old.tcl CVS log

Up to [Micropolis - Activity] / micropolis / res

Annotation of micropolis/res/wscen_old.tcl, revision 1.1

1.1     ! root        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
        !             5: # Per Child program.  Copyright (C) 1989 - 2007 Electronic Arts Inc.  If
        !             6: # you need assistance with this program, you may contact:
        !             7: #   http://wiki.laptop.org/go/Micropolis  or email  [email protected].
        !             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
        !            66: set ScenarioWindows [linsert $ScenarioWindows 0 $win]
        !            67: 
        !            68: global ScenarioPanelWidth
        !            69: global ScenarioPanelHeight
        !            70: 
        !            71: LinkWindow $head.scenario $win
        !            72: LinkWindow $win.head $head
        !            73: LinkWindow $win.parent $parent
        !            74: 
        !            75: catch "destroy $win"
        !            76: frame $win \
        !            77:   -width $ScenarioPanelWidth \
        !            78:   -height $ScenarioPanelHeight
        !            79: 
        !            80: SetHelp $win Scenario
        !            81: 
        !            82: frame $win.scen\
        !            83:   -borderwidth 0 -geometry 100x470
        !            84: 
        !            85: label $win.scen.micropolis\
        !            86:   -bitmap "@images/micropolisl.xpm" \
        !            87:   -font [Font $win Medium]
        !            88: 
        !            89: button $win.scen.newcity\
        !            90:   -command "UIGenerateNewCity" \
        !            91:   -relief flat \
        !            92:   -borderwidth 0 \
        !            93:   -bitmap "@images/scncty.xpm" \
        !            94:   -font [Font $win Medium]
        !            95: 
        !            96: SetHelp $win.scen.newcity Scenario.NewCity
        !            97: 
        !            98: button $win.scen.loadcity\
        !            99:   -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: 
        !           251: place $win.scen.micropolis -anchor n -x 265 -y 25
        !           252: place $win.scen.newcity -x 160 -y 120
        !           253: place $win.scen.loadcity -x 300 -y 120
        !           254: place $win.scen.dullsville -x 20 -y 230
        !           255: place $win.scen.sanfrancisco -x 160 -y 230
        !           256: place $win.scen.hamburg -x 300 -y 230
        !           257: place $win.scen.bern -x 440 -y 230
        !           258: place $win.scen.tokyo -x 20 -y 350
        !           259: place $win.scen.rio -x 160 -y 350
        !           260: place $win.scen.boston -x 300 -y 350
        !           261: place $win.scen.detroit -x 440 -y 350
        !           262: place $win.scen.labeldullville -anchor n -x 54 -y 290
        !           263: place $win.scen.labelsanfrancisco -anchor n -x 194 -y 290
        !           264: place $win.scen.labelhamburg -anchor n -x 334 -y 290
        !           265: place $win.scen.labelbern -anchor n -x 474 -y 290
        !           266: place $win.scen.labeltokyo -anchor n -x 54 -y 410
        !           267: place $win.scen.labelrio -anchor n -x 194 -y 410
        !           268: place $win.scen.labelboston -anchor n -x 334 -y 410
        !           269: place $win.scen.labeldetroit -anchor n -x 474 -y 410
        !           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
        !           297: bind $win.name.cityname <Return> "DoEnterCityName $win"
        !           298: 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 \
        !           320:   -text "Easy" -variable GameLevel -value 0 \
        !           321:   -command "DoSetGameLevel 0" \
        !           322:   -font [Font $win Large]
        !           323: 
        !           324: radiobutton $win.level.radio.medium \
        !           325:   -text "Medium" -variable GameLevel -value 1 \
        !           326:   -command "DoSetGameLevel 1" \
        !           327:   -font [Font $win Large]
        !           328: 
        !           329: radiobutton $win.level.radio.hard \
        !           330:   -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 \
        !           344:   -text {Initial Funds: $20,000} \
        !           345:   -font [Font $win Large] \
        !           346:   -anchor w
        !           347: 
        !           348: label $win.level.label.mediumlabel \
        !           349:   -text {Initial Funds: $10,000} \
        !           350:   -font [Font $win Large] \
        !           351:   -anchor w
        !           352: 
        !           353: label $win.level.label.hardlabel \
        !           354:   -text {Initial Funds: $5,000} \
        !           355:   -font [Font $win Large] \
        !           356:   -anchor w
        !           357: 
        !           358: pack append $win.level.label \
        !           359:   $win.level.label.easylabel           {top frame e expand fillx} \
        !           360:   $win.level.label.mediumlabel         {top frame e expand fillx} \
        !           361:   $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} \
        !           366:    $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    }\
        !           392:   -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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.