| changeset 263 | 36379e6abcdd |
| parent 211 | 558476056205 |
| child 267 | bf7c1503f569 |
| 262:b4bc05237c06 | 263:36379e6abcdd |
|---|---|
31 sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO, |
31 sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO, |
32 sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff, |
32 sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff, |
33 sprMineOn, sprCase, sprFAid, sprDynamite, sprPower, |
33 sprMineOn, sprCase, sprFAid, sprDynamite, sprPower, |
34 sprClusterBomb, sprClusterParticle, sprFlame, sprHorizont, |
34 sprClusterBomb, sprClusterParticle, sprFlame, sprHorizont, |
35 sprSky, sprAMBorders, sprAMSlot, sprAMSlotName, sprAMAmmos, |
35 sprSky, sprAMBorders, sprAMSlot, sprAMSlotName, sprAMAmmos, |
36 sprAMSlotKeys, sprAMSelection, sprFinger); |
36 sprAMSlotKeys, sprAMSelection, sprFinger, sprAirBomb); |
37 TGearType = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, |
37 TGearType = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, |
38 gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope, |
38 gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope, |
39 gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite, |
39 gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite, |
40 gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame, |
40 gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame, |
41 gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame, |
41 gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame, |
42 gtParachute); |
42 gtParachute, gtAirAttack, gtAirBomb); |
43 TGearsType = set of TGearType; |
43 TGearsType = set of TGearType; |
44 TSound = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash, |
44 TSound = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash, |
45 sndShotgunReload, sndShotgunFire, sndGraveImpact, sndMineTick); |
45 sndShotgunReload, sndShotgunFire, sndGraveImpact, sndMineTick); |
46 TAmmoType = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer, |
46 TAmmoType = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer, |
47 amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, |
47 amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, |
48 amBaseballBat, amParachute); |
48 amBaseballBat, amParachute, amAirAttack); |
49 THWFont = (fnt16, fntBig); |
49 THWFont = (fnt16, fntBig); |
50 TCapGroup = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume); |
50 TCapGroup = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume); |
51 THHFont = record |
51 THHFont = record |
52 Handle: PTTF_Font; |
52 Handle: PTTF_Font; |
53 Height: integer; |
53 Height: integer; |
75 msgOK = 'ok'; |
75 msgOK = 'ok'; |
76 msgFailed = 'failed'; |
76 msgFailed = 'failed'; |
77 msgGettingConfig = 'Getting game config...'; |
77 msgGettingConfig = 'Getting game config...'; |
78 |
78 |
79 const |
79 const |
80 cNetProtoVersion = 1; |
80 cNetProtoVersion = 2; |
81 |
81 |
82 MAXNAMELEN = 32; |
82 MAXNAMELEN = 32; |
83 |
83 |
84 COLOR_LAND = $00FFFFFF; |
84 COLOR_LAND = $00FFFFFF; |
85 |
85 |
132 gm_Attack = $00000020; |
132 gm_Attack = $00000020; |
133 gm_LJump = $00000040; |
133 gm_LJump = $00000040; |
134 gm_HJump = $00000080; |
134 gm_HJump = $00000080; |
135 gm_Destroy= $00000100; |
135 gm_Destroy= $00000100; |
136 |
136 |
137 cMaxSlotIndex = 7; |
137 cMaxSlotIndex = 8; |
138 cMaxSlotAmmoIndex = 1; |
138 cMaxSlotAmmoIndex = 1; |
139 |
139 |
140 ammoprop_Timerable = $00000001; |
140 ammoprop_Timerable = $00000001; |
141 ammoprop_Power = $00000002; |
141 ammoprop_Power = $00000002; |
142 ammoprop_NeedTarget = $00000004; |
142 ammoprop_NeedTarget = $00000004; |
143 ammoprop_ForwMsgs = $00000008; |
143 ammoprop_ForwMsgs = $00000008; |
144 ammoprop_AttackInFall = $00000010; |
144 ammoprop_AttackInFall = $00000010; |
145 ammoprop_AttackInJump = $00000020; |
145 ammoprop_AttackInJump = $00000020; |
146 ammoprop_NoCrosshair = $00000040; |
146 ammoprop_NoCrosshair = $00000040; |
147 ammoprop_AttackingPut = $00000080; |
|
147 AMMO_INFINITE = High(LongWord); |
148 AMMO_INFINITE = High(LongWord); |
148 |
149 |
149 EXPLAllDamageInRadius = $00000001; |
150 EXPLAllDamageInRadius = $00000001; |
150 EXPLAutoSound = $00000002; |
151 EXPLAutoSound = $00000002; |
151 EXPLNoDamage = $00000004; |
152 EXPLNoDamage = $00000004; |
247 (FileName: 'Slot'; Path: ptAmmoMenu; Width: 202; Height: 33; hasAlpha: false),// sprAMSlot |
248 (FileName: 'Slot'; Path: ptAmmoMenu; Width: 202; Height: 33; hasAlpha: false),// sprAMSlot |
248 (FileName: 'AmmoName'; Path: ptAmmoMenu; Width: 202; Height: 33; hasAlpha: false),// sprAMSlotName |
249 (FileName: 'AmmoName'; Path: ptAmmoMenu; Width: 202; Height: 33; hasAlpha: false),// sprAMSlotName |
249 (FileName: 'Ammos'; Path: ptAmmoMenu; Width: 32; Height: 32; hasAlpha: false),// sprAMAmmos |
250 (FileName: 'Ammos'; Path: ptAmmoMenu; Width: 32; Height: 32; hasAlpha: false),// sprAMAmmos |
250 (FileName: 'SlotKeys'; Path: ptAmmoMenu; Width: 32; Height: 32; hasAlpha: false),// sprAMSlotKeys |
251 (FileName: 'SlotKeys'; Path: ptAmmoMenu; Width: 32; Height: 32; hasAlpha: false),// sprAMSlotKeys |
251 (FileName: 'Selection'; Path: ptAmmoMenu; Width: 32; Height: 32; hasAlpha: false),// sprAMSelection |
252 (FileName: 'Selection'; Path: ptAmmoMenu; Width: 32; Height: 32; hasAlpha: false),// sprAMSelection |
252 (FileName: 'Finger'; Path: ptGraphics; Width: 32; Height: 48; hasAlpha: false) // sprFinger |
253 (FileName: 'Finger'; Path: ptGraphics; Width: 32; Height: 48; hasAlpha: false),// sprFinger |
254 (FileName: 'AirBomb'; Path: ptGraphics; Width: 32; Height: 32; hasAlpha: false) // sprAirBomb |
|
253 ); |
255 ); |
254 Soundz: array[TSound] of record |
256 Soundz: array[TSound] of record |
255 FileName: String[31]; |
257 FileName: String[31]; |
256 Path : TPathType; |
258 Path : TPathType; |
257 id : PMixChunk; |
259 id : PMixChunk; |
272 Ammo: TAmmo; |
274 Ammo: TAmmo; |
273 Slot: 0..cMaxSlotIndex; |
275 Slot: 0..cMaxSlotIndex; |
274 TimeAfterTurn: Longword; |
276 TimeAfterTurn: Longword; |
275 end = ( |
277 end = ( |
276 (NameId: sidGrenade; |
278 (NameId: sidGrenade; |
277 Ammo: (Propz: ammoprop_Timerable or ammoprop_Power; |
279 Ammo: (Propz: ammoprop_Timerable or |
280 ammoprop_Power; |
|
278 Count: AMMO_INFINITE; |
281 Count: AMMO_INFINITE; |
279 NumPerTurn: 0; |
282 NumPerTurn: 0; |
280 Timer: 3000; |
283 Timer: 3000; |
281 AmmoType: amGrenade); |
284 AmmoType: amGrenade); |
282 Slot: 1; |
285 Slot: 1; |
283 TimeAfterTurn: 3000), |
286 TimeAfterTurn: 3000), |
284 (NameId: sidClusterBomb; |
287 (NameId: sidClusterBomb; |
285 Ammo: (Propz: ammoprop_Timerable or ammoprop_Power; |
288 Ammo: (Propz: ammoprop_Timerable or |
289 ammoprop_Power; |
|
286 Count: 5; |
290 Count: 5; |
287 NumPerTurn: 0; |
291 NumPerTurn: 0; |
288 Timer: 3000; |
292 Timer: 3000; |
289 AmmoType: amClusterBomb); |
293 AmmoType: amClusterBomb); |
290 Slot: 1; |
294 Slot: 1; |
296 Timer: 0; |
300 Timer: 0; |
297 AmmoType: amBazooka); |
301 AmmoType: amBazooka); |
298 Slot: 0; |
302 Slot: 0; |
299 TimeAfterTurn: 3000), |
303 TimeAfterTurn: 3000), |
300 (NameId: sidUFO; |
304 (NameId: sidUFO; |
301 Ammo: (Propz: ammoprop_Power or ammoprop_NeedTarget; |
305 Ammo: (Propz: ammoprop_Power or |
306 ammoprop_NeedTarget; |
|
302 Count: 2; |
307 Count: 2; |
303 NumPerTurn: 0; |
308 NumPerTurn: 0; |
304 Timer: 0; |
309 Timer: 0; |
305 AmmoType: amUFO); |
310 AmmoType: amUFO); |
306 Slot: 0; |
311 Slot: 0; |
312 Timer: 0; |
317 Timer: 0; |
313 AmmoType: amShotgun); |
318 AmmoType: amShotgun); |
314 Slot: 2; |
319 Slot: 2; |
315 TimeAfterTurn: 3000), |
320 TimeAfterTurn: 3000), |
316 (NameId: sidPickHammer; |
321 (NameId: sidPickHammer; |
317 Ammo: (Propz: ammoprop_ForwMsgs or ammoprop_AttackInFall or ammoprop_AttackInJump; |
322 Ammo: (Propz: ammoprop_ForwMsgs or |
323 ammoprop_AttackInFall or |
|
324 ammoprop_AttackInJump or |
|
325 ammoprop_NoCrosshair; |
|
318 Count: 2; |
326 Count: 2; |
319 NumPerTurn: 0; |
327 NumPerTurn: 0; |
320 Timer: 0; |
328 Timer: 0; |
321 AmmoType: amPickHammer); |
329 AmmoType: amPickHammer); |
322 Slot: 5; |
330 Slot: 6; |
323 TimeAfterTurn: 0), |
331 TimeAfterTurn: 0), |
324 (NameId: sidSkip; |
332 (NameId: sidSkip; |
325 Ammo: (Propz: 0; |
333 Ammo: (Propz: 0; |
326 Count: AMMO_INFINITE; |
334 Count: AMMO_INFINITE; |
327 NumPerTurn: 0; |
335 NumPerTurn: 0; |
328 Timer: 0; |
336 Timer: 0; |
329 AmmoType: amSkip); |
337 AmmoType: amSkip); |
330 Slot: 7; |
338 Slot: 8; |
331 TimeAfterTurn: 0), |
339 TimeAfterTurn: 0), |
332 (NameId: sidRope; |
340 (NameId: sidRope; |
333 Ammo: (Propz: ammoprop_ForwMsgs or ammoprop_AttackInFall or ammoprop_AttackInJump; |
341 Ammo: (Propz: ammoprop_ForwMsgs or |
342 ammoprop_AttackInFall or |
|
343 ammoprop_AttackInJump; |
|
334 Count: 5; |
344 Count: 5; |
335 NumPerTurn: 0; |
345 NumPerTurn: 0; |
336 Timer: 0; |
346 Timer: 0; |
337 AmmoType: amRope); |
347 AmmoType: amRope); |
338 Slot: 6; |
348 Slot: 7; |
339 TimeAfterTurn: 0), |
349 TimeAfterTurn: 0), |
340 (NameId: sidMine; |
350 (NameId: sidMine; |
341 Ammo: (Propz: ammoprop_NoCrosshair; |
351 Ammo: (Propz: ammoprop_NoCrosshair; |
342 Count: 2; |
352 Count: 2; |
343 NumPerTurn: 0; |
353 NumPerTurn: 0; |
352 Timer: 0; |
362 Timer: 0; |
353 AmmoType: amDEagle); |
363 AmmoType: amDEagle); |
354 Slot: 2; |
364 Slot: 2; |
355 TimeAfterTurn: 3000), |
365 TimeAfterTurn: 3000), |
356 (NameId: sidDynamite; |
366 (NameId: sidDynamite; |
357 Ammo: (Propz: ammoprop_NoCrosshair or ammoprop_AttackInJump or ammoprop_AttackInFall; |
367 Ammo: (Propz: ammoprop_NoCrosshair or |
368 ammoprop_AttackInJump or |
|
369 ammoprop_AttackInFall; |
|
358 Count: 1; |
370 Count: 1; |
359 NumPerTurn: 0; |
371 NumPerTurn: 0; |
360 Timer: 0; |
372 Timer: 0; |
361 AmmoType: amDynamite); |
373 AmmoType: amDynamite); |
362 Slot: 4; |
374 Slot: 4; |
363 TimeAfterTurn: 5000), |
375 TimeAfterTurn: 5000), |
364 (NameId: sidFirePunch; |
376 (NameId: sidFirePunch; |
365 Ammo: (Propz: ammoprop_NoCrosshair or ammoprop_ForwMsgs or ammoprop_AttackInJump or ammoprop_AttackInFall; |
377 Ammo: (Propz: ammoprop_NoCrosshair or |
378 ammoprop_ForwMsgs or |
|
379 ammoprop_AttackInJump or |
|
380 ammoprop_AttackInFall; |
|
366 Count: AMMO_INFINITE; |
381 Count: AMMO_INFINITE; |
367 NumPerTurn: 0; |
382 NumPerTurn: 0; |
368 Timer: 0; |
383 Timer: 0; |
369 AmmoType: amFirePunch); |
384 AmmoType: amFirePunch); |
370 Slot: 3; |
385 Slot: 3; |
376 Timer: 0; |
391 Timer: 0; |
377 AmmoType: amBaseballBat); |
392 AmmoType: amBaseballBat); |
378 Slot: 3; |
393 Slot: 3; |
379 TimeAfterTurn: 5000), |
394 TimeAfterTurn: 5000), |
380 (NameId: sidParachute; |
395 (NameId: sidParachute; |
381 Ammo: (Propz: ammoprop_ForwMsgs or ammoprop_AttackInJump or ammoprop_AttackInFall; |
396 Ammo: (Propz: ammoprop_ForwMsgs or |
397 ammoprop_AttackInJump or |
|
398 ammoprop_AttackInFall; |
|
382 Count: 2; |
399 Count: 2; |
383 NumPerTurn: 0; |
400 NumPerTurn: 0; |
384 Timer: 0; |
401 Timer: 0; |
385 AmmoType: amParachute); |
402 AmmoType: amParachute); |
386 Slot: 6; |
403 Slot: 7; |
404 TimeAfterTurn: 0), |
|
405 (NameId: sidAirAttack; |
|
406 Ammo: (Propz: ammoprop_NoCrosshair or |
|
407 ammoprop_NeedTarget or |
|
408 ammoprop_AttackingPut; |
|
409 Count: 3; |
|
410 NumPerTurn: 0; |
|
411 Timer: 0; |
|
412 AmmoType: amAirAttack); |
|
413 Slot: 5; |
|
387 TimeAfterTurn: 0)); |
414 TimeAfterTurn: 0)); |
388 |
415 |
389 implementation |
416 implementation |
390 |
417 |
391 end. |
418 end. |