changeset 3709 | c7849b74748d |
parent 3704 | ed2b9c7fb260 |
child 3710 | 411f5c2b5292 |
3708:64e059b6f9c5 | 3709:c7849b74748d |
---|---|
181 end; |
181 end; |
182 |
182 |
183 THogEffect = (heInvulnerable, hePoisoned); |
183 THogEffect = (heInvulnerable, hePoisoned); |
184 |
184 |
185 TScreenFade = (sfNone, sfInit, sfToBlack, sfFromBlack, sfToWhite, sfFromWhite); |
185 TScreenFade = (sfNone, sfInit, sfToBlack, sfFromBlack, sfToWhite, sfFromWhite); |
186 const sfMax = 1000; |
186 const |
187 sfMax = 1000; |
|
188 cDefaultParamNum = 16; |
|
187 |
189 |
188 // message constants |
190 // message constants |
189 errmsgCreateSurface = 'Error creating SDL surface'; |
191 errmsgCreateSurface = 'Error creating SDL surface'; |
190 errmsgTransparentSet = 'Error setting transparent color'; |
192 errmsgTransparentSet = 'Error setting transparent color'; |
191 errmsgUnknownCommand = 'Unknown command'; |
193 errmsgUnknownCommand = 'Unknown command'; |
450 'Sounds/voices', // ptVoices |
452 'Sounds/voices', // ptVoices |
451 'Graphics/Hats', // ptHats |
453 'Graphics/Hats', // ptHats |
452 'Graphics/Flags' // ptFlags |
454 'Graphics/Flags' // ptFlags |
453 ); |
455 ); |
454 |
456 |
455 var PathPrefix: shortstring = './'; |
|
456 Pathz: array[TPathType] of shortstring; |
|
457 CountTexz: array[1..Pred(AMMO_INFINITE)] of PTexture; |
|
458 LAND_WIDTH :longint; |
|
459 LAND_HEIGHT :longint; |
|
460 LAND_WIDTH_MASK :longWord; |
|
461 LAND_HEIGHT_MASK :longWord; |
|
462 cMaxCaptions : LongInt; |
|
463 |
|
464 const |
|
465 cTagsMasks : array[0..15] of byte = (7, 0, 0, 0, 15, 6, 4, 5, 0, 0, 0, 0, 0, 14, 12, 13); |
457 cTagsMasks : array[0..15] of byte = (7, 0, 0, 0, 15, 6, 4, 5, 0, 0, 0, 0, 0, 14, 12, 13); |
466 cTagsMasksNoHealth: array[0..15] of byte = (3, 2, 11, 1, 0, 0, 0, 0, 0, 10, 0, 9, 0, 0, 0, 0); |
458 cTagsMasksNoHealth: array[0..15] of byte = (3, 2, 11, 1, 0, 0, 0, 0, 0, 10, 0, 9, 0, 0, 0, 0); |
467 |
459 |
468 Fontz: array[THWFont] of THHFont = ( |
460 Fontz: array[THWFont] of THHFont = ( |
469 (Handle: nil; |
461 (Handle: nil; |
2181 AMask : AMask; |
2173 AMask : AMask; |
2182 colorkey: 0; |
2174 colorkey: 0; |
2183 alpha : 255 |
2175 alpha : 255 |
2184 ); |
2176 ); |
2185 |
2177 |
2186 procedure initModule; |
|
2187 procedure freeModule; |
|
2188 |
|
2189 implementation |
2178 implementation |
2190 uses uMisc; |
|
2191 |
|
2192 procedure initModule; |
|
2193 begin |
|
2194 Pathz:= cPathz; |
|
2195 {* REFERENCE |
|
2196 4096 -> $FFFFF000 |
|
2197 2048 -> $FFFFF800 |
|
2198 1024 -> $FFFFFC00 |
|
2199 512 -> $FFFFFE00 *} |
|
2200 if (cReducedQuality and rqLowRes) <> 0 then |
|
2201 begin |
|
2202 LAND_WIDTH:= 2048; |
|
2203 LAND_HEIGHT:= 1024; |
|
2204 LAND_WIDTH_MASK:= $FFFFF800; |
|
2205 LAND_HEIGHT_MASK:= $FFFFFC00; |
|
2206 end |
|
2207 else |
|
2208 begin |
|
2209 LAND_WIDTH:= 4096; |
|
2210 LAND_HEIGHT:= 2048; |
|
2211 LAND_WIDTH_MASK:= $FFFFF000; |
|
2212 LAND_HEIGHT_MASK:= $FFFFF800 |
|
2213 end; |
|
2214 |
|
2215 {$IFDEF IPHONEOS} |
|
2216 if isPhone() then |
|
2217 cMaxCaptions:= 3 |
|
2218 else |
|
2219 {$ENDIF} |
|
2220 cMaxCaptions:= 4; |
|
2221 |
|
2222 end; |
|
2223 |
|
2224 procedure freeModule; |
|
2225 begin |
|
2226 PathPrefix := './'; |
|
2227 end; |
|
2228 |
2179 |
2229 end. |
2180 end. |