|
1 /* $Id$ */ |
|
2 |
|
3 /** @file newgrf_industries.cpp */ |
|
4 |
|
5 #include "stdafx.h" |
|
6 #include "openttd.h" |
|
7 #include "debug.h" |
|
8 #include "functions.h" |
|
9 #include "macros.h" |
|
10 #include "industry.h" |
|
11 #include "newgrf.h" |
|
12 #include "newgrf_callbacks.h" |
|
13 #include "newgrf_spritegroup.h" |
|
14 #include "newgrf_industries.h" |
|
15 #include "newgrf_commons.h" |
|
16 |
|
17 /* Since the industry IDs defined by the GRF file don't necessarily correlate |
|
18 * to those used by the game, the IDs used for overriding old industries must be |
|
19 * translated when the idustry spec is set. */ |
|
20 IndustryOverrideManager _industry_mngr(NEW_INDUSTRYOFFSET, NUM_INDUSTRYTYPES, INVALID_INDUSTRYTYPE); |
|
21 |
|
22 /** |
|
23 * Finds the distance for the closest tile with water/land given a tile |
|
24 * @param tile the tile to find the distance too |
|
25 * @param water whether to find water or land |
|
26 * @note FAILS when an industry should be seen as water |
|
27 */ |
|
28 static uint GetClosestWaterDistance(TileIndex tile, bool water) |
|
29 { |
|
30 TileIndex t; |
|
31 uint best_dist; |
|
32 for (t = 1; t < MapSize(); t++) { |
|
33 if (IsTileType(t, MP_WATER) == water) break; |
|
34 } |
|
35 best_dist = DistanceManhattan(tile, t); |
|
36 |
|
37 for (; t < MapSize(); t++) { |
|
38 uint dist = DistanceManhattan(tile, t); |
|
39 if (dist < best_dist) { |
|
40 if (IsTileType(t, MP_WATER) == water) best_dist = dist; |
|
41 } else { |
|
42 /* When the Y distance between the current row and the 'source' tile |
|
43 * is larger than the best distance, we've found the best distance */ |
|
44 if (TileY(t) - TileY(tile) > best_dist) return best_dist; |
|
45 if (TileX(tile) > TileX(t)) { |
|
46 /* We can safely skip this many tiles; from here all tiles have a |
|
47 * higher or equal distance than the best distance */ |
|
48 t |= MapMaxX(); |
|
49 continue; |
|
50 } else { |
|
51 /* We can safely skip this many tiles; up to here all tiles have a |
|
52 * higher or equal distance than the best distance */ |
|
53 t += best_dist - dist; |
|
54 continue; |
|
55 } |
|
56 } |
|
57 } |
|
58 |
|
59 return best_dist; |
|
60 } |
|
61 |
|
62 /** This function implements the industries variables that newGRF defines. |
|
63 * @param variable that is queried |
|
64 * @param parameter unused |
|
65 * @param available will return false if ever the variable asked for does not exist |
|
66 * @param ind is of course the industry we are inquiring |
|
67 * @return the value stored in the corresponding variable*/ |
|
68 uint32 IndustryGetVariable(const ResolverObject *object, byte variable, byte parameter, bool *available) |
|
69 { |
|
70 const Industry *industry = object->u.industry.ind; |
|
71 TileIndex tile = object->u.industry.tile; |
|
72 const IndustrySpec *indspec = GetIndustrySpec(industry->type); |
|
73 |
|
74 switch (variable) { |
|
75 case 0x40: |
|
76 case 0x41: |
|
77 case 0x42: { // waiting cargo, but only if those two callback flags are set |
|
78 uint16 callback = indspec->callback_flags; |
|
79 if (callback & (CBM_IND_PRODUCTION_CARGO_ARRIVAL | callback & CBM_IND_PRODUCTION_256_TICKS)) { |
|
80 return max(industry->cargo_waiting[variable - 0x40], (uint16)0x7FFF); |
|
81 } else { |
|
82 return 0; |
|
83 } |
|
84 } |
|
85 /* TODO: somehow determine whether we're in water or not */ |
|
86 case 0x43: return GetClosestWaterDistance(tile, true); // Manhattan distance of closes dry/water tile |
|
87 |
|
88 case 0x60: { /* Get industry ID at offset param */ |
|
89 /*The parameter of this variable is an offset from the northernmost tile of the industry: |
|
90 * the high nibble contains the Y offset, the low one the X offset; both are unsigned. |
|
91 * The high word of the return value is currently reserved, and the low word can be: |
|
92 * 00xxh if the tile is an industry tile and was defined in the current GRF with ID xx. |
|
93 * FFxxh if the tile is an industry tile of an old type, and has the ID xx. |
|
94 * FFFEh if the tile is an industry tile that was defined in another GRF file |
|
95 * FFFFh if the tile isn't an industry tile, or doesn't belong to the current industry */ |
|
96 return GetIndustry(GetNearbyTile(parameter, tile))->type; |
|
97 } |
|
98 |
|
99 case 0x61: return 0; // Get random tile bits at offset param |
|
100 |
|
101 case 0x62: // Land info of nearby tiles |
|
102 case 0x63: // Animation stage of nerby tiles |
|
103 case 0x64: break; // Distance of nearest industry of given type |
|
104 /* Get town zone and Manhattan distance of closest town */ |
|
105 case 0x65: return industry->town->GetRadiusGroup(tile) << 16 | min(DistanceManhattan(tile, industry->town->xy), 0xFFFF); |
|
106 /* Get square of Euclidian distance of closes town */ |
|
107 case 0x66: return industry->town->GetRadiusGroup(tile) << 16 | min(DistanceSquare(tile, industry->town->xy), 0xFFFF); |
|
108 |
|
109 /* Count of industry, distance of closest instance |
|
110 * format is rr(reserved) cc(count) dddd(manhattan distance of closest sister) |
|
111 * A lot more should be done, since it has to check for local id, grf id etc... |
|
112 * let's just say it is a beginning ;) */ |
|
113 case 0x67: return GetIndustryTypeCount(industry->type) << 16 | 0; |
|
114 |
|
115 /* Industry founder information. |
|
116 * 0x10 if randomly created or from a map pre-newindustry. |
|
117 * Else, the company who funded it */ |
|
118 case 0xA7: return 0x10; |
|
119 |
|
120 case 0xB0: // Date when built since 1920 (in days) |
|
121 case 0xB3: // Construction type |
|
122 case 0xB4: break; // Date last cargo accepted since 1920 (in days) |
|
123 |
|
124 /* Industry structure access*/ |
|
125 case 0x80: return industry->xy; |
|
126 case 0x81: return GB(industry->xy, 8, 8); |
|
127 /* Pointer to the town the industry is associated with */ |
|
128 case 0x82: |
|
129 case 0x83: |
|
130 case 0x84: |
|
131 case 0x85: break; // not supported |
|
132 case 0x86: return industry->width; |
|
133 case 0x87: return industry->height;// xy dimensions |
|
134 /* */ |
|
135 case 0x88: |
|
136 case 0x89: return indspec->produced_cargo[variable - 0x88]; |
|
137 case 0x8A: return industry->cargo_waiting[0]; |
|
138 case 0x8B: return GB(industry->cargo_waiting[0], 8, 8); |
|
139 case 0x8C: return industry->cargo_waiting[1]; |
|
140 case 0x8D: return GB(industry->cargo_waiting[1], 8, 8); |
|
141 case 0x8E: |
|
142 case 0x8F: return industry->production_rate[variable - 0x8E]; |
|
143 case 0x90: |
|
144 case 0x91: |
|
145 case 0x92: return indspec->accepts_cargo[variable - 0x90]; |
|
146 case 0x93: return industry->prod_level; |
|
147 /* amount of cargo produced so far THIS month. */ |
|
148 case 0x94: return industry->this_month_production[0]; |
|
149 case 0x95: return GB(industry->this_month_production[0], 8, 8); |
|
150 case 0x96: return industry->this_month_production[1]; |
|
151 case 0x97: return GB(industry->this_month_production[1], 8, 8); |
|
152 /* amount of cargo transported so far THIS month. */ |
|
153 case 0x98: return industry->this_month_transported[0]; |
|
154 case 0x99: return GB(industry->this_month_transported[0], 8, 8); |
|
155 case 0x9A: return industry->this_month_transported[1]; |
|
156 case 0x9B: return GB(industry->this_month_transported[0], 8, 8); |
|
157 /* fraction of cargo transported LAST month. */ |
|
158 case 0x9C: |
|
159 case 0x9D: return industry->last_month_pct_transported[variable - 0x9C]; |
|
160 /* amount of cargo produced LAST month. */ |
|
161 case 0x9E: return industry->last_month_production[0]; |
|
162 case 0x9F: return GB(industry->last_month_production[0], 8, 8); |
|
163 case 0xA0: return industry->last_month_production[1]; |
|
164 case 0xA1: return GB(industry->last_month_production[1], 8, 8); |
|
165 /* amount of cargo transported last month. */ |
|
166 case 0xA2: return industry->last_month_transported[0]; |
|
167 case 0xA3: return GB(industry->last_month_transported[0], 8, 8); |
|
168 case 0xA4: return industry->last_month_transported[1]; |
|
169 case 0xA5: return GB(industry->last_month_transported[0], 8, 8); |
|
170 |
|
171 case 0xA6: return industry->type; |
|
172 |
|
173 case 0xA8: return industry->random_color; |
|
174 case 0xA9: return industry->last_prod_year; // capped? |
|
175 case 0xAA: return industry->counter; |
|
176 case 0xAB: return GB(industry->counter, 8, 8); |
|
177 case 0xAC: return industry->was_cargo_delivered; |
|
178 } |
|
179 |
|
180 DEBUG(grf, 1, "Unhandled industry property 0x%X", variable); |
|
181 |
|
182 *available = false; |
|
183 return (uint32)-1; |
|
184 } |
|
185 |
|
186 static const SpriteGroup *IndustryResolveReal(const ResolverObject *object, const SpriteGroup *group) |
|
187 { |
|
188 /* IndustryTile do not have 'real' groups */ |
|
189 return NULL; |
|
190 } |
|
191 |
|
192 static void NewIndustryResolver(ResolverObject *res, IndustryType ind_id, TileIndex tile, Industry *indus) |
|
193 { |
|
194 res->GetRandomBits = NULL;//IndustryTileGetRandomBits; |
|
195 res->GetTriggers = NULL;//IndustryTileGetTriggers; |
|
196 res->SetTriggers = NULL;//IndustryTileSetTriggers; |
|
197 res->GetVariable = IndustryGetVariable; |
|
198 res->ResolveReal = IndustryResolveReal; |
|
199 |
|
200 res->u.industry.tile = tile; |
|
201 res->u.industry.ind = indus; |
|
202 |
|
203 res->callback = 0; |
|
204 res->callback_param1 = 0; |
|
205 res->callback_param2 = 0; |
|
206 res->last_value = 0; |
|
207 res->trigger = 0; |
|
208 res->reseed = 0; |
|
209 } |
|
210 |
|
211 uint16 GetIndustryCallback(uint16 callback, uint32 param1, uint32 param2, Industry *industry, TileIndex tile) |
|
212 { |
|
213 ResolverObject object; |
|
214 const SpriteGroup *group; |
|
215 |
|
216 NewIndustryResolver(&object, industry->type, tile, industry); |
|
217 object.callback = callback; |
|
218 object.callback_param1 = param1; |
|
219 object.callback_param2 = param2; |
|
220 |
|
221 group = Resolve(GetIndustrySpec(industry->type)->grf_prop.spritegroup, &object); |
|
222 if (group == NULL || group->type != SGT_CALLBACK) return CALLBACK_FAILED; |
|
223 |
|
224 return group->g.callback.result; |
|
225 } |