]> git.zerfleddert.de Git - micropolis/blame - res/sound.tcl
Import Micropolis from http://www.donhopkins.com/home/micropolis/
[micropolis] / res / sound.tcl
CommitLineData
6a5fa4e0
MG
1# Original TCL/X sound server support -- not used in OLPC 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 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
62global errorInfo
63set errorInfo {}
64
65global auto_noexec
66set auto_noexec 1
67
68proc echo {args} {
69 puts stdout $args
70 flush stdout
71}
72
73source $tk_library/wish.tcl
74
75global ResourceDir
76set ResourceDir ""
77
78proc StartSound {resourcedir} {
79 global ResourceDir
80 set ResourceDir $resourcedir
81}
82
83proc KillSoundServer {} {
84 catch "destroy ."
85 echo Sound server exiting.
86 exit
87}
88
89proc ConnectNewClient {mode f} {
90 echo "ConnectNewClient mode $mode f $f"
91}
92
93
94set ChatSocket 8888
95set ChatServer {}
96
97if {0} {
98
99catch {
100 set ChatServer [accept $ChatSocket]
101}
102
103if {$ChatServer != {}} then {
104 filehandler $ChatServer e "ConnectNewClient"
105}
106
107}
108
109
110set ResourceDir $tk_library
111
112sound file Rumble $ResourceDir/rumble.au
113sound file HeavyTraffic $ResourceDir/traffic.au
114sound file Siren $ResourceDir/siren.au
115sound file HonkHonk-Low $ResourceDir/honk-low.au
116sound file Monster $ResourceDir/monster.au
117sound file Explosion-High $ResourceDir/expl-hi.au
118sound file HonkHonk-High $ResourceDir/honk-hi.au
119sound file HonkHonk-Med $ResourceDir/honk-med.au
120sound file Explosion-Low $ResourceDir/expl-low.au
121sound file QuackQuack $ResourceDir/quack.au
122sound file Ignition $ResourceDir/ignition.au
123sound file Whip $ResourceDir/whip.au
124sound file Cuckoo $ResourceDir/cuckoo.au
125sound file Boing $ResourceDir/boing.au
126sound file Skid $ResourceDir/skid.au
127sound file Computer $ResourceDir/computer.au
128sound file Unix $ResourceDir/unix.au
129sound file Sorry $ResourceDir/sorry.au
130sound file UhUh $ResourceDir/uhuh.au
131sound file Woosh $ResourceDir/woosh.au
132sound file Aaah $ResourceDir/aaah.au
133sound file Oop $ResourceDir/oop.au
134sound file Beep $ResourceDir/beep.au
135sound file Bop $ResourceDir/bop.au
136sound file Zone $ResourceDir/zone.au
137sound file Build $ResourceDir/build.au
138sound file Res $ResourceDir/res.au
139sound file Com $ResourceDir/com.au
140sound file Ind $ResourceDir/ind.au
141sound file Fire $ResourceDir/fire.au
142sound file Query $ResourceDir/query.au
143sound file Police $ResourceDir/police.au
144sound file Wire $ResourceDir/wire.au
145sound file Bulldozer $ResourceDir/bulldoze.au
146sound file Rail $ResourceDir/rail.au
147sound file Road $ResourceDir/road.au
148sound file Chalk $ResourceDir/chalk.au
149sound file Eraser $ResourceDir/eraser.au
150sound file Stadium $ResourceDir/stadium.au
151sound file Park $ResourceDir/park.au
152sound file Seaport $ResourceDir/seaport.au
153sound file Coal $ResourceDir/coal.au
154sound file Nuclear $ResourceDir/nuclear.au
155sound file Airport $ResourceDir/airport.au
156sound file O $ResourceDir/o.au
157sound file A $ResourceDir/a.au
158sound file E $ResourceDir/e.au
Impressum, Datenschutz