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