git.zerfleddert.de Git - micropolis/blob

1 /* s_alloc.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

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"

65 /* Allocate Stuff */

68 short SMapX, SMapY;

69 short CChr, CChr9;

71 short RoadTotal, RailTotal, FirePop;

 short ResPop, ComPop, IndPop, TotalPop, LastTotalPop;

 short ResZPop, ComZPop, IndZPop, TotalZPop;

75 short HospPop, ChurchPop, StadiumPop;

76 short PolicePop, FireStPop;

 short CoalPop, NuclearPop, PortPop, APortPop;

79 short NeedHosp, NeedChurch;

80 short CrimeAverage, PolluteAverage, LVAverage;

82 QUAD CityTime;

83 short StartingYear;

85 short *Map[WORLD_X];

87 short ResHisMax, Res2HisMax;

88 short ComHisMax, Com2HisMax;

89 short IndHisMax, Ind2HisMax;

90 short CensusChanged;

92 short MessagePort;

93 short MesX, MesY;

95 QUAD RoadSpend, PoliceSpend, FireSpend;

96 QUAD RoadFund, PoliceFund, FireFund;

97 short RoadEffect, PoliceEffect, FireEffect;

98 QUAD TaxFund;

99 short CityTax, TaxFlag;

100 unsigned char tileSynch = 0x01;

101

102 Byte *PopDensity[HWLDX];

103 Byte *TrfDensity[HWLDX];

104 Byte *PollutionMem[HWLDX];

105 Byte *LandValueMem[HWLDX];

106 Byte *CrimeMem[HWLDX];

107 Byte *tem[HWLDX];

108 Byte *tem2[HWLDX];

109 Byte *TerrainMem[QWX];

110 Byte *Qtem[QWX];

111

112 short RateOGMem[SmX][SmY];

113 short FireStMap[SmX][SmY];

114 short PoliceMap[SmX][SmY];

115 short PoliceMapEffect[SmX][SmY];

116

117 short FireRate[SmX][SmY];

118 short ComRate[SmX][SmY];

119 short STem[SmX][SmY];

120

121 Ptr terrainBase;

122 Ptr qTemBase;

123 Ptr tem1Base;

124 Ptr tem2Base;

125

126 Ptr popPtr;

127 Ptr trfPtr;

128 Ptr polPtr;

129 Ptr landPtr;

130 Ptr crimePtr;

131

132 Ptr auxPopPtr;

133 Ptr auxTrfPtr;

134 Ptr auxPolPtr;

135 Ptr auxLandPtr;

136 Ptr auxCrimePtr;

137 Ptr brettPtr;

138

139 unsigned short *mapPtr;

140 short *ResHis;

141 short *ComHis;

142 short *IndHis;

143 short *MoneyHis;

144 short *PollutionHis;

145 short *CrimeHis;

146 short *MiscHis;

147 short *PowerMap;

148

149

 void initMapArrays(void)

151 {

152 short i;

153 unsigned short *auxPtr, *temp1;

154

155 if (!mapPtr)

     mapPtr = (unsigned short *)NewPtr(sizeof(unsigned short) *

157 WORLD_X * WORLD_Y);

158 auxPtr = mapPtr;

159

   for (i = 0; i < WORLD_X; i++) {

161 temp1 = auxPtr + i * WORLD_Y;

     Map[i] = (short *)temp1;

163 }

164

   popPtr = NewPtr(HWLDX * HWLDY);

   trfPtr = NewPtr(HWLDX * HWLDY);

   polPtr = NewPtr(HWLDX * HWLDY);

   landPtr = NewPtr(HWLDX * HWLDY);

   crimePtr = NewPtr(HWLDX * HWLDY);

170

   tem1Base = NewPtr(HWLDX * HWLDY);

   tem2Base = NewPtr(HWLDX * HWLDY);

173

174 auxPopPtr = popPtr;

175 auxTrfPtr = trfPtr;

176 auxPolPtr = polPtr;

177 auxLandPtr = landPtr;

178 auxCrimePtr = crimePtr;

179

   for (i = 0; i < HWLDX; i++) {

     PopDensity[i] = (Byte *) auxPopPtr + (i * HWLDY);

     TrfDensity[i] = (Byte *) auxTrfPtr + (i * HWLDY);

     PollutionMem[i] = (Byte *) auxPolPtr + (i * HWLDY);

     LandValueMem[i] = (Byte *) auxLandPtr + (i * HWLDY);

     CrimeMem[i] = (Byte *) auxCrimePtr + (i * HWLDY);

186

     tem[i] = (Byte *)tem1Base + (i * HWLDY);

     tem2[i] = (Byte *) tem2Base + (i * HWLDY);

189 }

190

   brettPtr = (Ptr) &PopDensity[0][0];

192

   terrainBase = NewPtr(QWX * QWY);

   qTemBase = NewPtr(QWX * QWY);

195

   for (i = 0; i < QWX; i++) {

     TerrainMem[i] = (Byte *)terrainBase + (i * QWY);

     Qtem[i] = (Byte *)qTemBase + (i * QWY);

199 }

200

   ResHis = (short *)NewPtr(HISTLEN);

   ComHis = (short *)NewPtr(HISTLEN);

   IndHis = (short *)NewPtr(HISTLEN);

   MoneyHis = (short *)NewPtr(HISTLEN);

   PollutionHis = (short *)NewPtr(HISTLEN);

   CrimeHis = (short *)NewPtr(HISTLEN);

   MiscHis = (short *)NewPtr(MISCHISTLEN);

   PowerMap = (short *)NewPtr(POWERMAPLEN);              /* power alloc */

209 }