]> git.zerfleddert.de Git - micropolis/blame_incremental - src/sim/s_sim.c
projects / micropolis / blame_incremental
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (non-incremental) | history | HEAD
allow overriding $CC for tclx
[micropolis] / src / sim / s_sim.c
... / ...
CommitLineData
1/* s_sim.c
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 */
62#include "sim.h"
63
64
65/* Simulation */
66
67
68short ValveFlag;
69short CrimeRamp, PolluteRamp ;
70short RValve, CValve, IValve;
71short ResCap, ComCap, IndCap;
72short CashFlow;
73float EMarket = 4.0;
74short DisasterEvent;
75short DisasterWait;
76short ScoreType;
77short ScoreWait;
78short PwrdZCnt;
79short unPwrdZCnt;
80short NewPower; /* post */
81short AvCityTax;
82short Scycle = 0;
83short Fcycle = 0;
84short Spdcycle = 0;
85short DoInitialEval = 0;
86short MeltX, MeltY;
87
88void CoalSmoke(int mx, int my);
89void DoAirport(void);
90void DrawStadium(int z);
91void DoFire(void);
92int GetBoatDis(void);
93int DoBridge(void);
94void DoRoad(void);
95void DoRadTile(void);
96void DoRail(void);
97void MapScan(int x1, int x2);
98void CollectTax(void);
99void Take2Census(void);
100void TakeCensus(void);
101void ClearCensus(void);
102void SetValves(void);
103void SetCommonInits(void);
104void SimLoadInit(void);
105void InitSimMemory(void);
106void DecROGMem(void);
107void DecTrafficMem(void);
108void Simulate(int mod16);
109
110/* comefrom: doEditWindow scoreDoer doMapInFront graphDoer doNilEvent */
111void SimFrame(void)
112{
113 if (SimSpeed == 0)
114 return;
115
116 if (++Spdcycle > 1023)
117 Spdcycle = 0;
118
119 if (SimSpeed == 1 && Spdcycle % 5)
120 return;
121
122 if (SimSpeed == 2 && Spdcycle % 3)
123 return;
124
125 if (++Fcycle > 1023) Fcycle = 0;
126/* if (InitSimLoad) Fcycle = 0; */
127 Simulate(Fcycle & 15);
128}
129
130
131/* comefrom: SimFrame */
132void
133Simulate(int mod16)
134{
135 static short SpdPwr[4] = { 1, 2, 4, 5 };
136 static short SpdPtl[4] = { 1, 2, 7, 17 };
137 static short SpdCri[4] = { 1, 1, 8, 18 };
138 static short SpdPop[4] = { 1, 1, 9, 19 };
139 static short SpdFir[4] = { 1, 1, 10, 20 };
140 short x;
141
142 x = SimSpeed;
143 if (x > 3) x = 3;
144
145 switch (mod16) {
146 case 0:
147 if (++Scycle > 1023) Scycle = 0; /* this is cosmic */
148 if (DoInitialEval) {
149 DoInitialEval = 0;
150 CityEvaluation();
151 }
152 CityTime++;
153 AvCityTax += CityTax; /* post */
154 if (!(Scycle & 1)) SetValves();
155 ClearCensus();
156 break;
157 case 1:
158 MapScan(0, 1 * WORLD_X / 8);
159 break;
160 case 2:
161 MapScan(1 * WORLD_X / 8, 2 * WORLD_X / 8);
162 break;
163 case 3:
164 MapScan(2 * WORLD_X / 8, 3 * WORLD_X / 8);
165 break;
166 case 4:
167 MapScan(3 * WORLD_X / 8, 4 * WORLD_X / 8);
168 break;
169 case 5:
170 MapScan(4 * WORLD_X / 8, 5 * WORLD_X / 8);
171 break;
172 case 6:
173 MapScan(5 * WORLD_X / 8, 6 * WORLD_X / 8);
174 break;
175 case 7:
176 MapScan(6 * WORLD_X / 8, 7 * WORLD_X / 8);
177 break;
178 case 8:
179 MapScan(7 * WORLD_X / 8, WORLD_X);
180 break;
181 case 9:
182 if (!(CityTime % CENSUSRATE)) TakeCensus();
183 if (!(CityTime % (CENSUSRATE * 12))) Take2Census();
184
185 if (!(CityTime % TAXFREQ)) {
186 CollectTax();
187 CityEvaluation();
188 }
189 break;
190 case 10:
191 if (!(Scycle % 5)) DecROGMem();
192 DecTrafficMem();
193 NewMapFlags[TDMAP] = 1;
194 NewMapFlags[RDMAP] = 1;
195 NewMapFlags[ALMAP] = 1;
196 NewMapFlags[REMAP] = 1;
197 NewMapFlags[COMAP] = 1;
198 NewMapFlags[INMAP] = 1;
199 NewMapFlags[DYMAP] = 1;
200 SendMessages();
201 break;
202 case 11:
203 if (!(Scycle % SpdPwr[x])) {
204 DoPowerScan();
205 NewMapFlags[PRMAP] = 1;
206 NewPower = 1; /* post-release change */
207 }
208 break;
209 case 12:
210 if (!(Scycle % SpdPtl[x])) PTLScan();
211 break;
212 case 13:
213 if (!(Scycle % SpdCri[x])) CrimeScan();
214 break;
215 case 14:
216 if (!(Scycle % SpdPop[x])) PopDenScan();
217 break;
218 case 15:
219 if (!(Scycle % SpdFir[x])) FireAnalysis();
220 DoDisasters();
221 break;
222 }
223}
224
225
226/* comefrom: Simulate */
227void
228DoSimInit(void)
229{
230 Fcycle = 0;
231 Scycle = 0;
232
233 if (InitSimLoad == 2) /* if new city */
234 InitSimMemory();
235
236 if (InitSimLoad == 1) /* if city just loaded */
237 SimLoadInit();
238
239 SetValves();
240 ClearCensus();
241#if 1
242 MapScan(0, WORLD_X); /* XXX are you sure ??? */
243#endif
244 DoPowerScan();
245 NewPower = 1; /* post rel */
246 PTLScan();
247 CrimeScan();
248 PopDenScan();
249 FireAnalysis();
250 NewMap = 1;
251 doAllGraphs();
252 NewGraph = 1;
253 TotalPop = 1;
254 DoInitialEval = 1;
255}
256
257
258/* comefrom: SimLoadInit */
259void
260DoNilPower(void)
261{
262 register short x, y, z;
263
264 for (x = 0; x < WORLD_X; x++)
265 for (y = 0; y < WORLD_Y; y++) {
266 z = Map[x][y];
267 if (z & ZONEBIT) {
268 SMapX = x;
269 SMapY = y;
270 CChr = z;
271 SetZPower();
272 }
273 }
274}
275
276
277/* comefrom: Simulate */
278void
279DecTrafficMem(void) /* tends to empty TrfDensity */
280{
281 register short x, y, z;
282
283 for (x = 0; x < HWLDX; x++)
284 for (y = 0; y < HWLDY; y++)
285 if ((z = TrfDensity[x][y])) {
286 if (z > 24) {
287 if (z > 200) TrfDensity[x][y] = z - 34;
288 else TrfDensity[x][y] = z - 24;
289 }
290 else TrfDensity[x][y] = 0;
291 }
292}
293
294
295/* comefrom: Simulate */
296void
297DecROGMem(void) /* tends to empty RateOGMem */
298{
299 register short x, y, z;
300
301 for (x = 0; x < SmX; x++)
302 for (y = 0; y < SmY; y++) {
303 z = RateOGMem[x][y];
304 if (z == 0) continue;
305 if (z > 0) {
306 --RateOGMem[x][y];
307 if (z > 200) RateOGMem[x][y] = 200; /* prevent overflow */
308 continue;
309 }
310 if (z < 0) {
311 ++RateOGMem[x][y];
312 if (z < -200) RateOGMem[x][y] = -200;
313 }
314 }
315}
316
317
318/* comefrom: DoSimInit */
319void
320InitSimMemory(void)
321{
322 register short x, z;
323
324 z = 0;
325 SetCommonInits();
326 for (x = 0; x < 240; x++) {
327 ResHis[x] = z;
328 ComHis[x] = z;
329 IndHis[x] = z;
330 MoneyHis[x] = 128;
331 CrimeHis[x] = z;
332 PollutionHis[x] = z;
333 }
334 CrimeRamp = z;
335 PolluteRamp = z;
336 TotalPop = z;
337 RValve = z;
338 CValve = z;
339 IValve = z;
340 ResCap = z;
341 ComCap = z;
342 IndCap = z;
343
344 EMarket = 6.0;
345 DisasterEvent = 0;
346 ScoreType = 0;
347
348 /* This clears powermem */
349 PowerStackNum = z;
350 DoPowerScan();
351 NewPower = 1; /* post rel */
352
353 InitSimLoad = 0;
354}
355
356
357/* comefrom: DoSimInit */
358void
359SimLoadInit(void)
360{
361 static short DisTab[9] = { 0, 2, 10, 5, 20, 3, 5, 5, 2 * 48};
362 static short ScoreWaitTab[9] = { 0, 30 * 48, 5 * 48, 5 * 48, 10 * 48,
363 5 * 48, 10 * 48, 5 * 48, 10 * 48 };
364 register int z;
365
366 z = 0;
367 EMarket = (float)MiscHis[1];
368 ResPop = MiscHis[2];
369 ComPop = MiscHis[3];
370 IndPop = MiscHis[4];
371 RValve = MiscHis[5];
372 CValve = MiscHis[6];
373 IValve = MiscHis[7];
374 CrimeRamp = MiscHis[10];
375 PolluteRamp = MiscHis[11];
376 LVAverage = MiscHis[12];
377 CrimeAverage = MiscHis[13];
378 PolluteAverage = MiscHis[14];
379 GameLevel = MiscHis[15];
380
381 if (CityTime < 0) CityTime = 0;
382 if (!EMarket) EMarket = 4.0;
383 if ((GameLevel > 2) || (GameLevel < 0)) GameLevel = 0;
384 SetGameLevel(GameLevel);
385
386 SetCommonInits();
387
388 CityClass = MiscHis[16];
389 CityScore = MiscHis[17];
390
391 if ((CityClass > 5) || (CityClass < 0)) CityClass = 0;
392 if ((CityScore > 999) || (CityScore < 1)) CityScore = 500;
393
394 ResCap = 0;
395 ComCap = 0;
396 IndCap = 0;
397
398 AvCityTax = (CityTime % 48) * 7; /* post */
399
400 for (z = 0; z < PWRMAPSIZE; z++)
401 PowerMap[z] = ~0; /* set power Map */
402 DoNilPower();
403
404 if (ScenarioID > 8) ScenarioID = 0;
405
406 if (ScenarioID) {
407 DisasterEvent = ScenarioID;
408 DisasterWait = DisTab[DisasterEvent];
409 ScoreType = DisasterEvent;
410 ScoreWait = ScoreWaitTab[DisasterEvent];
411 } else {
412 DisasterEvent = 0;
413 ScoreType = 0;
414 }
415
416 RoadEffect = 32;
417 PoliceEffect = 1000; /*post*/
418 FireEffect = 1000;
419 InitSimLoad = 0;
420}
421
422
423/* comefrom: InitSimMemory SimLoadInit */
424void
425SetCommonInits(void)
426{
427 EvalInit();
428 RoadEffect = 32;
429 PoliceEffect = 1000;
430 FireEffect = 1000;
431 TaxFlag = 0;
432 TaxFund = 0;
433/*
434 if ((GameLevel > 2) || (GameLevel < 0)) GameLevel = 0;
435 setGameLevel(GameLevel);
436*/
437}
438
439
440/* comefrom: Simulate DoSimInit */
441void
442SetValves(void)
443{
444 static short TaxTable[21] = {
445 200, 150, 120, 100, 80, 50, 30, 0, -10, -40, -100,
446 -150, -200, -250, -300, -350, -400, -450, -500, -550, -600 };
447 float Employment, Migration, Births, LaborBase, IntMarket;
448 float Rratio, Cratio, Iratio, temp;
449 float NormResPop, PjResPop, PjComPop, PjIndPop;
450 register short z;
451
452 MiscHis[1] = (short)EMarket;
453 MiscHis[2] = ResPop;
454 MiscHis[3] = ComPop;
455 MiscHis[4] = IndPop;
456 MiscHis[5] = RValve;
457 MiscHis[6] = CValve;
458 MiscHis[7] = IValve;
459 MiscHis[10] = CrimeRamp;
460 MiscHis[11] = PolluteRamp;
461 MiscHis[12] = LVAverage;
462 MiscHis[13] = CrimeAverage;
463 MiscHis[14] = PolluteAverage;
464 MiscHis[15] = GameLevel;
465 MiscHis[16] = CityClass;
466 MiscHis[17] = CityScore;
467
468 NormResPop = ResPop / 8;
469 LastTotalPop = TotalPop;
470 TotalPop = NormResPop + ComPop + IndPop;
471
472 if (NormResPop) Employment = ((ComHis[1] + IndHis[1]) / NormResPop);
473 else Employment = 1;
474
475 Migration = NormResPop * (Employment - 1);
476 Births = NormResPop * (.02); /* Birth Rate */
477 PjResPop = NormResPop + Migration + Births; /* Projected Res.Pop */
478
479 if ((temp = (ComHis[1] + IndHis[1]))) LaborBase = (ResHis[1] / temp);
480 else LaborBase = 1;
481 if (LaborBase > 1.3) LaborBase = 1.3;
482 if (LaborBase < 0) LaborBase = 0; /* LB > 1 - .1 */
483
484 for (z = 0; z < 2; z++)
485 temp = ResHis[z] + ComHis[z] + IndHis[z];
486 IntMarket = (NormResPop + ComPop + IndPop) / 3.7;
487
488 PjComPop = IntMarket * LaborBase;
489
490 z = GameLevel; /* New ExtMarket */
491 temp = 1;
492 switch (z) {
493 case 0:
494 temp = 1.2;
495 break;
496 case 1:
497 temp = 1.1;
498 break;
499 case 2:
500 temp = .98;
501 break;
502 }
503
504 PjIndPop = IndPop * LaborBase * temp;
505 if (PjIndPop < 5) PjIndPop = 5;
506
507 if (NormResPop) Rratio = (PjResPop / NormResPop); /* projected -vs- actual */
508 else Rratio = 1.3;
509 if (ComPop) Cratio = (PjComPop / ComPop);
510 else Cratio = PjComPop;
511 if (IndPop) Iratio = (PjIndPop / IndPop);
512 else Iratio = PjIndPop;
513
514 if (Rratio > 2) Rratio = 2;
515 if (Cratio > 2) Cratio = 2;
516 if (Iratio > 2) Iratio = 2;
517
518 z = CityTax + GameLevel;
519 if (z > 20) z = 20;
520 Rratio = ((Rratio -1) * 600) + TaxTable[z]; /* global tax/Glevel effects */
521 Cratio = ((Cratio -1) * 600) + TaxTable[z];
522 Iratio = ((Iratio -1) * 600) + TaxTable[z];
523
524 if (Rratio > 0) /* ratios are velocity changes to valves */
525 if (RValve < 2000) RValve += Rratio;
526 if (Rratio < 0)
527 if (RValve > -2000) RValve += Rratio;
528 if (Cratio > 0)
529 if (CValve < 1500) CValve += Cratio;
530 if (Cratio < 0)
531 if (CValve > -1500) CValve += Cratio;
532 if (Iratio > 0)
533 if (IValve < 1500) IValve += Iratio;
534 if (Iratio < 0)
535 if (IValve > -1500) IValve += Iratio;
536
537 if (RValve > 2000) RValve = 2000;
538 if (RValve < -2000) RValve = -2000;
539 if (CValve > 1500) CValve = 1500;
540 if (CValve < -1500) CValve = -1500;
541 if (IValve > 1500) IValve = 1500;
542 if (IValve < -1500) IValve = -1500;
543
544 if ((ResCap) && (RValve > 0)) RValve = 0; /* Stad, Prt, Airprt */
545 if ((ComCap) && (CValve > 0)) CValve = 0;
546 if ((IndCap) && (IValve > 0)) IValve = 0;
547 ValveFlag = 1;
548}
549
550
551/* comefrom: Simulate DoSimInit */
552void
553ClearCensus(void)
554{
555 register short x, y, z;
556
557 z = 0;
558 PwrdZCnt = z;
559 unPwrdZCnt = z;
560 FirePop = z;
561 RoadTotal = z;
562 RailTotal = z;
563 ResPop = z;
564 ComPop = z;
565 IndPop = z;
566 ResZPop = z;
567 ComZPop = z;
568 IndZPop = z;
569 HospPop = z;
570 ChurchPop = z;
571 PolicePop = z;
572 FireStPop = z;
573 StadiumPop = z;
574 CoalPop = z;
575 NuclearPop = z;
576 PortPop = z;
577 APortPop = z;
578 PowerStackNum = z; /* Reset before Mapscan */
579 for (x = 0; x < SmX; x++)
580 for (y = 0; y < SmY; y++) {
581 FireStMap[x][y] = z;
582 PoliceMap[x][y] = z;
583 }
584}
585
586
587/* comefrom: Simulate */
588void
589TakeCensus(void)
590{
591 short x;
592
593 /* put census#s in Historical Graphs and scroll data */
594 ResHisMax = 0;
595 ComHisMax = 0;
596 IndHisMax = 0;
597 for (x = 118; x >= 0; x--) {
598 if ((ResHis[x + 1] = ResHis[x]) > ResHisMax) ResHisMax = ResHis[x];
599 if ((ComHis[x + 1] = ComHis[x]) > ComHisMax) ComHisMax = ComHis[x];
600 if ((IndHis[x + 1] = IndHis[x]) > IndHisMax) IndHisMax = IndHis[x];
601 CrimeHis[x + 1] = CrimeHis[x];
602 PollutionHis[x + 1] = PollutionHis[x];
603 MoneyHis[x + 1] = MoneyHis[x];
604 }
605
606 Graph10Max = ResHisMax;
607 if (ComHisMax > Graph10Max) Graph10Max = ComHisMax;
608 if (IndHisMax > Graph10Max) Graph10Max = IndHisMax;
609
610 ResHis[0] = ResPop / 8;
611 ComHis[0] = ComPop;
612 IndHis[0] = IndPop;
613
614 CrimeRamp += (CrimeAverage - CrimeRamp) / 4;
615 CrimeHis[0] = CrimeRamp;
616
617 PolluteRamp += (PolluteAverage - PolluteRamp) / 4;
618 PollutionHis[0] = PolluteRamp;
619
620 x = (CashFlow / 20) + 128; /* scale to 0..255 */
621 if (x < 0) x = 0;
622 if (x > 255) x = 255;
623
624 MoneyHis[0] = x;
625 if (CrimeHis[0] > 255) CrimeHis[0] = 255;
626 if (PollutionHis[0] > 255) PollutionHis[0] = 255;
627
628 ChangeCensus(); /* XXX: if 10 year graph view */
629
630 if (HospPop < (ResPop >>8)) NeedHosp = TRUE;
631 if (HospPop > (ResPop >>8)) NeedHosp = -1;
632 if (HospPop == (ResPop >>8)) NeedHosp = FALSE;
633
634 if (ChurchPop < (ResPop >>8)) NeedChurch = TRUE;
635 if (ChurchPop > (ResPop >>8)) NeedChurch = -1;
636 if (ChurchPop == (ResPop >>8)) NeedChurch = FALSE;
637}
638
639
640/* comefrom: Simulate */
641void
642Take2Census(void) /* Long Term Graphs */
643{
644 short x;
645
646 Res2HisMax = 0;
647 Com2HisMax = 0;
648 Ind2HisMax = 0;
649 for (x = 238; x >= 120; x--) {
650 if ((ResHis[x + 1] = ResHis[x]) > Res2HisMax) Res2HisMax = ResHis[x];
651 if ((ComHis[x + 1] = ComHis[x]) > Com2HisMax) Com2HisMax = ComHis[x];
652 if ((IndHis[x + 1] = IndHis[x]) > Ind2HisMax) Ind2HisMax = IndHis[x];
653 CrimeHis[x + 1] = CrimeHis[x];
654 PollutionHis[x + 1] = PollutionHis[x];
655 MoneyHis[x + 1] = MoneyHis[x];
656 }
657 Graph120Max = Res2HisMax;
658 if (Com2HisMax > Graph120Max) Graph120Max = Com2HisMax;
659 if (Ind2HisMax > Graph120Max) Graph120Max = Ind2HisMax;
660
661 ResHis[120] = ResPop / 8;
662 ComHis[120] = ComPop;
663 IndHis[120] = IndPop;
664 CrimeHis[120] = CrimeHis[0] ;
665 PollutionHis[120] = PollutionHis[0];
666 MoneyHis[120] = MoneyHis[0];
667 ChangeCensus(); /* XXX: if 120 year graph view */
668}
669
670
671/* comefrom: Simulate */
672void
673CollectTax(void)
674{
675 static float RLevels[3] = { 0.7, 0.9, 1.2 };
676 static float FLevels[3] = { 1.4, 1.2, 0.8 };
677 short z;
678
679 CashFlow = 0;
680 if (!TaxFlag) { /* if the Tax Port is clear */
681 /* XXX: do something with z */
682 z = AvCityTax / 48; /* post */
683 AvCityTax = 0;
684 PoliceFund = PolicePop * 100;
685 FireFund = FireStPop * 100;
686 RoadFund = (RoadTotal + (RailTotal * 2)) * RLevels[GameLevel];
687 TaxFund = (((QUAD)TotalPop * LVAverage) / 120) *
688 CityTax * FLevels[GameLevel];
689 if (TotalPop) { /* if there are people to tax */
690 CashFlow = TaxFund - (PoliceFund + FireFund + RoadFund);
691
692 DoBudget();
693 } else {
694 RoadEffect = 32;
695 PoliceEffect = 1000;
696 FireEffect = 1000;
697 }
698 }
699}
700
701
702void
703UpdateFundEffects(void)
704{
705 if (RoadFund)
706 RoadEffect = (short)(((float)RoadSpend /
707 (float)RoadFund) * 32.0);
708 else
709 RoadEffect = 32;
710
711 if (PoliceFund)
712 PoliceEffect = (short)(((float)PoliceSpend /
713 (float)PoliceFund) * 1000.0);
714 else
715 PoliceEffect = 1000;
716
717 if (FireFund)
718 FireEffect = (short)(((float)FireSpend /
719 (float)FireFund) * 1000.0);
720 else
721 FireEffect = 1000;
722
723 drawCurrPercents();
724}
725
726
727/* comefrom: Simulate DoSimInit */
728void
729MapScan(int x1, int x2)
730{
731 register short x, y;
732
733 for (x = x1; x < x2; x++) {
734 for (y = 0; y < WORLD_Y; y++) {
735 if ((CChr = Map[x][y])) {
736 CChr9 = CChr & LOMASK; /* Mask off status bits */
737 if (CChr9 >= FLOOD) {
738 SMapX = x;
739 SMapY = y;
740 if (CChr9 < ROADBASE) {
741 if (CChr9 >= FIREBASE) {
742 FirePop++;
743 if (!(Rand16() & 3)) DoFire(); /* 1 in 4 times */
744 continue;
745 }
746 if (CChr9 < RADTILE) DoFlood();
747 else DoRadTile();
748 continue;
749 }
750
751 if (NewPower && (CChr & CONDBIT))
752 SetZPower();
753
754 if ((CChr9 >= ROADBASE) &&
755 (CChr9 < POWERBASE)) {
756 DoRoad();
757 continue;
758 }
759
760 if (CChr & ZONEBIT) { /* process Zones */
761 DoZone();
762 continue;
763 }
764
765 if ((CChr9 >= RAILBASE) &&
766 (CChr9 < RESBASE)) {
767 DoRail();
768 continue;
769 }
770 if ((CChr9 >= SOMETINYEXP) &&
771 (CChr9 <= LASTTINYEXP)) /* clear AniRubble */
772 Map[x][y] = RUBBLE + (Rand16() & 3) + BULLBIT;
773 }
774 }
775 }
776 }
777}
778
779
780/* comefrom: MapScan */
781void
782DoRail(void)
783{
784 RailTotal++;
785 GenerateTrain(SMapX, SMapY);
786 if (RoadEffect < 30) /* Deteriorating Rail */
787 if (!(Rand16() & 511))
788 if (!(CChr & CONDBIT))
789 if (RoadEffect < (Rand16() & 31)) {
790 if (CChr9 < (RAILBASE + 2))
791 Map[SMapX][SMapY] = RIVER;
792 else
793 Map[SMapX][SMapY] = RUBBLE + (Rand16() & 3) + BULLBIT;
794 return;
795 }
796}
797
798
799/* comefrom: MapScan */
800void
801DoRadTile(void)
802{
803 if (!(Rand16() & 4095)) Map[SMapX][SMapY] = 0; /* Radioactive decay */
804}
805
806
807/* comefrom: MapScan */
808void
809DoRoad(void)
810{
811 register short Density, tden, z;
812 static short DenTab[3] = { ROADBASE, LTRFBASE, HTRFBASE };
813
814 RoadTotal++;
815/* GenerateBus(SMapX, SMapY); */
816 if (RoadEffect < 30) /* Deteriorating Roads */
817 if (!(Rand16() & 511))
818 if (!(CChr & CONDBIT))
819 if (RoadEffect < (Rand16() & 31)) {
820 if (((CChr9 & 15) < 2) || ((CChr9 & 15) == 15))
821 Map[SMapX][SMapY] = RIVER;
822 else
823 Map[SMapX][SMapY] = RUBBLE + (Rand16() & 3) + BULLBIT;
824 return;
825 }
826
827 if (!(CChr & BURNBIT)) { /* If Bridge */
828 RoadTotal += 4;
829 if (DoBridge()) return;
830 }
831 if (CChr9 < LTRFBASE) tden = 0;
832 else if (CChr9 < HTRFBASE) tden = 1;
833 else {
834 RoadTotal++;
835 tden = 2;
836 }
837
838 Density = (TrfDensity[SMapX >>1][SMapY >>1]) >>6; /* Set Traf Density */
839 if (Density > 1) Density--;
840 if (tden != Density) { /* tden 0..2 */
841 z = ((CChr9 - ROADBASE) & 15) + DenTab[Density];
842 z += CChr & (ALLBITS - ANIMBIT);
843 if (Density) z += ANIMBIT;
844 Map[SMapX][SMapY] = z;
845 }
846}
847
848
849/* comefrom: MapScan */
850int
851DoBridge(void)
852{
853 static short HDx[7] = { -2, 2, -2, -1, 0, 1, 2 };
854 static short HDy[7] = { -1, -1, 0, 0, 0, 0, 0 };
855 static short HBRTAB[7] = {
856 HBRDG1 | BULLBIT, HBRDG3 | BULLBIT, HBRDG0 | BULLBIT,
857 RIVER, BRWH | BULLBIT, RIVER, HBRDG2 | BULLBIT };
858 static short HBRTAB2[7] = {
859 RIVER, RIVER, HBRIDGE | BULLBIT, HBRIDGE | BULLBIT, HBRIDGE | BULLBIT,
860 HBRIDGE | BULLBIT, HBRIDGE | BULLBIT };
861 static short VDx[7] = { 0, 1, 0, 0, 0, 0, 1 };
862 static short VDy[7] = { -2, -2, -1, 0, 1, 2, 2 };
863 static short VBRTAB[7] = {
864 VBRDG0 | BULLBIT, VBRDG1 | BULLBIT, RIVER, BRWV | BULLBIT,
865 RIVER, VBRDG2 | BULLBIT, VBRDG3 | BULLBIT };
866 static short VBRTAB2[7] = {
867 VBRIDGE | BULLBIT, RIVER, VBRIDGE | BULLBIT, VBRIDGE | BULLBIT,
868 VBRIDGE | BULLBIT, VBRIDGE | BULLBIT, RIVER };
869 register int z, x, y, MPtem;
870
871 if (CChr9 == BRWV) { /* Vertical bridge close */
872 if ((!(Rand16() & 3)) &&
873 (GetBoatDis() > 340))
874 for (z = 0; z < 7; z++) { /* Close */
875 x = SMapX + VDx[z];
876 y = SMapY + VDy[z];
877 if (TestBounds(x, y))
878 if ((Map[x][y] & LOMASK) == (VBRTAB[z] & LOMASK))
879 Map[x][y] = VBRTAB2[z];
880 }
881 return (TRUE);
882 }
883 if (CChr9 == BRWH) { /* Horizontal bridge close */
884 if ((!(Rand16() & 3)) &&
885 (GetBoatDis() > 340))
886 for (z = 0; z < 7; z++) { /* Close */
887 x = SMapX + HDx[z];
888 y = SMapY + HDy[z];
889 if (TestBounds(x, y))
890 if ((Map[x][y] & LOMASK) == (HBRTAB[z] & LOMASK))
891 Map[x][y] = HBRTAB2[z];
892 }
893 return (TRUE);
894 }
895
896 if ((GetBoatDis() < 300) || (!(Rand16() & 7))) {
897 if (CChr9 & 1) {
898 if (SMapX < (WORLD_X - 1))
899 if (Map[SMapX + 1][SMapY] == CHANNEL) { /* Vertical open */
900 for (z = 0; z < 7; z++) {
901 x = SMapX + VDx[z];
902 y = SMapY + VDy[z];
903 if (TestBounds(x, y)) {
904 MPtem = Map[x][y];
905 if ((MPtem == CHANNEL) ||
906 ((MPtem & 15) == (VBRTAB2[z] & 15)))
907 Map[x][y] = VBRTAB[z];
908 }
909 }
910 return (TRUE);
911 }
912 return (FALSE);
913 } else {
914 if (SMapY > 0)
915 if (Map[SMapX][SMapY - 1] == CHANNEL) { /* Horizontal open */
916 for (z = 0; z < 7; z++) {
917 x = SMapX + HDx[z];
918 y = SMapY + HDy[z];
919 if (TestBounds(x, y)) {
920 MPtem = Map[x][y];
921 if (((MPtem & 15) == (HBRTAB2[z] & 15)) ||
922 (MPtem == CHANNEL))
923 Map[x][y] = HBRTAB[z];
924 }
925 }
926 return (TRUE);
927 }
928 return (FALSE);
929 }
930 }
931 return (FALSE);
932}
933
934
935int
936GetBoatDis(void)
937{
938 register int dist, mx, my, dx, dy;
939 SimSprite *sprite;
940
941 dist = 99999;
942 mx = (SMapX <<4) + 8;
943 my = (SMapY <<4) + 8;
944
945 for (sprite = sim->sprite; sprite != NULL; sprite = sprite->next) {
946 if ((sprite->type == SHI) &&
947 (sprite->frame != 0)) {
948 if ((dx = sprite->x + sprite->x_hot - mx) < 0) dx = -dx;
949 if ((dy = sprite->y + sprite->y_hot - my) < 0) dy = -dy;
950 dx += dy;
951 if (dx < dist) dist = dx;
952 }
953 }
954 return (dist);
955}
956
957
958/* comefrom: MapScan */
959void
960DoFire(void)
961{
962 static short DX[4] = { -1, 0, 1, 0 };
963 static short DY[4] = { 0, -1, 0, 1 };
964 register short z, Xtem, Ytem, Rate, c;
965
966 for (z = 0; z < 4; z++) {
967 if (!(Rand16() & 7)) {
968 Xtem = SMapX + DX[z];
969 Ytem = SMapY + DY[z];
970 if (TestBounds(Xtem, Ytem)) {
971 c = Map[Xtem][Ytem];
972 if (c & BURNBIT) {
973 if (c & ZONEBIT) {
974 FireZone(Xtem, Ytem, c);
975 if ((c & LOMASK) > IZB) { /* Explode */
976 MakeExplosionAt((Xtem <<4) + 8, (Ytem <<4) + 8);
977 }
978 }
979 Map[Xtem][Ytem] = FIRE + (Rand16() & 3) + ANIMBIT;
980 }
981 }
982 }
983 }
984 z = FireRate[SMapX >>3][SMapY >>3];
985 Rate = 10;
986 if (z) {
987 Rate = 3;
988 if (z > 20) Rate = 2;
989 if (z > 100) Rate = 1;
990 }
991 if (!Rand(Rate))
992 Map[SMapX][SMapY] = RUBBLE + (Rand16() & 3) + BULLBIT;
993}
994
995
996/* comefrom: DoFire MakeFlood */
997void
998FireZone(int Xloc, int Yloc, int ch)
999{
1000 register short Xtem, Ytem;
1001 short x, y, XYmax;
1002
1003 RateOGMem[Xloc >>3][Yloc >>3] -= 20;
1004
1005 ch = ch & LOMASK;
1006 if (ch < PORTBASE)
1007 XYmax = 2;
1008 else
1009 if (ch == AIRPORT)
1010 XYmax = 5;
1011 else
1012 XYmax = 4;
1013
1014 for (x = -1; x < XYmax; x++)
1015 for (y = -1; y < XYmax; y++) {
1016 Xtem = Xloc + x;
1017 Ytem = Yloc + y;
1018 if ((Xtem < 0) || (Xtem > (WORLD_X - 1)) ||
1019 (Ytem < 0) || (Ytem > (WORLD_Y - 1)))
1020 continue;
1021 if ((short)(Map[Xtem][Ytem] & LOMASK) >= ROADBASE) /* post release */
1022 Map[Xtem][Ytem] |= BULLBIT;
1023 }
1024}
1025
1026
1027/* comefrom: DoSPZone DoHospChur */
1028void
1029RepairZone(short ZCent, short zsize)
1030{
1031 short cnt;
1032 register short x, y, ThCh;
1033
1034 zsize--;
1035 cnt = 0;
1036 for (y = -1; y < zsize; y++)
1037 for (x = -1; x < zsize; x++) {
1038 int xx = SMapX + x;
1039 int yy = SMapY + y;
1040 cnt++;
1041 if (TestBounds(xx, yy)) {
1042 ThCh = Map[xx][yy];
1043 if (ThCh & ZONEBIT) continue;
1044 if (ThCh & ANIMBIT) continue;
1045 ThCh = ThCh & LOMASK;
1046 if ((ThCh < RUBBLE) || (ThCh >= ROADBASE)) {
1047 Map[xx][yy] = ZCent - 3 - zsize + cnt + CONDBIT + BURNBIT;
1048 }
1049 }
1050 }
1051}
1052
1053
1054/* comefrom: DoZone */
1055void
1056DoSPZone(short PwrOn)
1057{
1058 static short MltdwnTab[3] = { 30000, 20000, 10000 }; /* simadj */
1059 register int z;
1060
1061 switch (CChr9) {
1062
1063 case POWERPLANT:
1064 CoalPop++;
1065 if (!(CityTime & 7))
1066 RepairZone(POWERPLANT, 4); /* post */
1067 PushPowerStack();
1068 CoalSmoke(SMapX, SMapY);
1069 return;
1070
1071 case NUCLEAR:
1072 if (!NoDisasters && !Rand(MltdwnTab[GameLevel])) {
1073 DoMeltdown(SMapX, SMapY);
1074 return;
1075 }
1076 NuclearPop++;
1077 if (!(CityTime & 7))
1078 RepairZone(NUCLEAR, 4); /* post */
1079 PushPowerStack();
1080 return;
1081
1082 case FIRESTATION:
1083 FireStPop++;
1084 if (!(CityTime & 7))
1085 RepairZone(FIRESTATION, 3); /* post */
1086
1087 if (PwrOn)
1088 z = FireEffect; /* if powered get effect */
1089 else
1090 z = FireEffect >>1; /* from the funding ratio */
1091
1092 if (!FindPRoad())
1093 z = z >>1; /* post FD's need roads */
1094
1095 FireStMap[SMapX >>3][SMapY >>3] += z;
1096 return;
1097
1098 case POLICESTATION:
1099 PolicePop++;
1100 if (!(CityTime & 7))
1101 RepairZone(POLICESTATION, 3); /* post */
1102
1103 if (PwrOn)
1104 z = PoliceEffect;
1105 else
1106 z = PoliceEffect >>1;
1107
1108 if (!FindPRoad())
1109 z = z >>1; /* post PD's need roads */
1110
1111 PoliceMap[SMapX >>3][SMapY >>3] += z;
1112 return;
1113
1114 case STADIUM:
1115 StadiumPop++;
1116 if (!(CityTime & 15))
1117 RepairZone(STADIUM, 4);
1118 if (PwrOn)
1119 if (!((CityTime + SMapX + SMapY) & 31)) { /* post release */
1120 DrawStadium(FULLSTADIUM);
1121 Map[SMapX + 1][SMapY] = FOOTBALLGAME1 + ANIMBIT;
1122 Map[SMapX + 1][SMapY + 1] = FOOTBALLGAME2 + ANIMBIT;
1123 }
1124 return;
1125
1126 case FULLSTADIUM:
1127 StadiumPop++;
1128 if (!((CityTime + SMapX + SMapY) & 7)) /* post release */
1129 DrawStadium(STADIUM);
1130 return;
1131
1132 case AIRPORT:
1133 APortPop++;
1134 if (!(CityTime & 7))
1135 RepairZone(AIRPORT, 6);
1136
1137 if (PwrOn) { /* post */
1138 if ((Map[SMapX + 1][SMapY - 1] & LOMASK) == RADAR)
1139 Map[SMapX + 1][SMapY - 1] = RADAR + ANIMBIT + CONDBIT + BURNBIT;
1140 } else
1141 Map[SMapX + 1][SMapY - 1] = RADAR + CONDBIT + BURNBIT;
1142
1143 if (PwrOn)
1144 DoAirport();
1145 return;
1146
1147 case PORT:
1148 PortPop++;
1149 if ((CityTime & 15) == 0) {
1150 RepairZone(PORT, 4);
1151 }
1152 if (PwrOn &&
1153 (GetSprite(SHI) == NULL)) {
1154 GenerateShip();
1155 }
1156 return;
1157 }
1158}
1159
1160
1161/* comefrom: DoSPZone */
1162void
1163DrawStadium(int z)
1164{
1165 register int x, y;
1166
1167 z = z - 5;
1168 for (y = (SMapY - 1); y < (SMapY + 3); y++)
1169 for (x = (SMapX - 1); x < (SMapX + 3); x++)
1170 Map[x][y] = (z++) | BNCNBIT;
1171 Map[SMapX][SMapY] |= ZONEBIT | PWRBIT;
1172}
1173
1174
1175/* comefrom: DoSPZone */
1176void
1177DoAirport(void)
1178{
1179 if (!(Rand(5))) {
1180 GeneratePlane(SMapX, SMapY);
1181 return;
1182 }
1183 if (!(Rand(12)))
1184 GenerateCopter(SMapX, SMapY);
1185}
1186
1187
1188/* comefrom: DoSPZone */
1189void
1190CoalSmoke(int mx, int my)
1191{
1192 static short SmTb[4] = { COALSMOKE1, COALSMOKE2, COALSMOKE3, COALSMOKE4 };
1193 static short dx[4] = { 1, 2, 1, 2 };
1194 static short dy[4] = { -1, -1, 0, 0 };
1195 register short x;
1196
1197 for (x = 0; x < 4; x++)
1198 Map[mx + dx[x]][my + dy[x]] =
1199 SmTb[x] | ANIMBIT | CONDBIT | PWRBIT | BURNBIT;
1200}
1201
1202
1203/* comefrom: DoSPZone MakeMeltdown */
1204void
1205DoMeltdown(int SX, int SY)
1206{
1207 register int x, y, z, t;
1208
1209 MeltX = SX; MeltY = SY;
1210
1211 MakeExplosion(SX - 1, SY - 1);
1212 MakeExplosion(SX - 1, SY + 2);
1213 MakeExplosion(SX + 2, SY - 1);
1214 MakeExplosion(SX + 2, SY + 2);
1215
1216 for (x = (SX - 1); x < (SX + 3); x++)
1217 for (y = (SY - 1); y < (SY + 3); y++)
1218 Map[x][y] = FIRE + (Rand16() & 3) + ANIMBIT;
1219
1220 for (z = 0; z < 200; z++) {
1221 x = SX - 20 + Rand(40);
1222 y = SY - 15 + Rand(30);
1223 if ((x < 0) || (x >= WORLD_X) ||
1224 (y < 0) || (y >= WORLD_Y))
1225 continue;
1226 t = Map[x][y];
1227 if (t & ZONEBIT)
1228 continue;
1229 if ((t & BURNBIT) || (t == 0))
1230 Map[x][y] = RADTILE;
1231 }
1232
1233 ClearMes();
1234 SendMesAt(-43, SX, SY);
1235}
1236
1237
1238#define RANDOM_RANGE 0xffff
1239
1240short
1241Rand(short range)
1242{
1243 int maxMultiple, rnum;
1244
1245 range++;
1246 maxMultiple = RANDOM_RANGE / range;
1247 maxMultiple *= range;
1248 while ((rnum = Rand16()) >= maxMultiple)
1249 continue;
1250 return (rnum % range);
1251}
1252
1253
1254int
1255Rand16(void)
1256{
1257 return (sim_rand());
1258}
1259
1260
1261int
1262Rand16Signed(void)
1263{
1264 int i = sim_rand();
1265
1266 if (i > 32767) {
1267 i = 32767 - i;
1268 }
1269 return (i);
1270}
1271
1272
1273void
1274RandomlySeedRand()
1275{
1276 struct timeval time;
1277
1278 gettimeofday(&time, NULL);
1279
1280 SeedRand(time.tv_usec ^ time.tv_sec ^ sim_rand());
1281}
1282
1283void
1284SeedRand(int seed)
1285{
1286 sim_srand(seed);
1287}
Micropolis
Impressum, Datenschutz