47                    sprMineOn);

    47                    sprMineOn);

    48      TGearType  = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag,

    48      TGearType  = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag,

    49                    gtGrave, gtUFO, gtShotgunShot, gtActionTimer, gtPickHammer, gtRope,

    49                    gtGrave, gtUFO, gtShotgunShot, gtActionTimer, gtPickHammer, gtRope,

    50                    gtSmokeTrace, gtExplosion, gtMine);

    50                    gtSmokeTrace, gtExplosion, gtMine);

    51      TSound     = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash,

    51      TSound     = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash,

    53      TAmmoType  = (amGrenade, amBazooka, amUFO, amShotgun, amPickHammer, amSkip, amRope,

    53      TAmmoType  = (amGrenade, amBazooka, amUFO, amShotgun, amPickHammer, amSkip, amRope,

    54                    amMine);

    54                    amMine);

    55      THWFont    = (fnt16, fntBig);

    55      THWFont    = (fnt16, fntBig);

    56      THHFont    = record

    56      THHFont    = record

    57                   Handle: PTTF_Font;

    57                   Handle: PTTF_Font;

   139       ammoprop_Power        = $00000002;

   139       ammoprop_Power        = $00000002;

   140       ammoprop_NeedTarget   = $00000004;

   140       ammoprop_NeedTarget   = $00000004;

   141       ammoprop_ForwMsgs     = $00000008;

   141       ammoprop_ForwMsgs     = $00000008;

   142       ammoprop_AttackInFall = $00000010;

   142       ammoprop_AttackInFall = $00000010;

   143       ammoprop_AttackInJump = $00000020;

   143       ammoprop_AttackInJump = $00000020;

   144       AMMO_INFINITE = High(LongWord);

   145       AMMO_INFINITE = High(LongWord);

   145 

   146 

   146       capgrpStartGame     = 0;

   147       capgrpStartGame     = 0;

   147       capgrpAmmoinfo      = 1;

   148       capgrpAmmoinfo      = 1;

   148       capgrpNetSay        = 2;

   149       capgrpNetSay        = 2;

   237                                        (FileName:  'throwpowerup.ogg'; Path: ptSounds  ),// sndThrowPowerUp

   238                                        (FileName:  'throwpowerup.ogg'; Path: ptSounds  ),// sndThrowPowerUp

   238                                        (FileName:  'throwrelease.ogg'; Path: ptSounds  ),// sndThrowRelease

   239                                        (FileName:  'throwrelease.ogg'; Path: ptSounds  ),// sndThrowRelease

   239                                        (FileName:        'splash.ogg'; Path: ptSounds  ),// sndSplash

   240                                        (FileName:        'splash.ogg'; Path: ptSounds  ),// sndSplash

   240                                        (FileName: 'shotgunreload.ogg'; Path: ptSounds  ),// sndShotgunReload

   241                                        (FileName: 'shotgunreload.ogg'; Path: ptSounds  ),// sndShotgunReload

   241                                        (FileName:   'shotgunfire.ogg'; Path: ptSounds  ),// sndShotgunFire

   242                                        (FileName:   'shotgunfire.ogg'; Path: ptSounds  ),// sndShotgunFire

   243                                        );

   245                                        );

   244 

   246 

   245       Ammoz: array [TAmmoType] of record

   247       Ammoz: array [TAmmoType] of record

   246                                   Name: string[32];

   248                                   Name: string[32];

   247                                   Ammo: TAmmo;

   249                                   Ammo: TAmmo;

   303                                           Timer: 0;

   305                                           Timer: 0;

   304                                           AmmoType: amRope);

   306                                           AmmoType: amRope);

   305                                    Slot: 5;

   307                                    Slot: 5;

   306                                    TimeAfterTurn: 0),

   308                                    TimeAfterTurn: 0),

   307                                   (Name: 'Mine';

   309                                   (Name: 'Mine';

   309                                           Count: 5;

   311                                           Count: 5;

   310                                           NumPerTurn: 0;

   312                                           NumPerTurn: 0;

   311                                           Timer: 0;

   313                                           Timer: 0;

   312                                           AmmoType: amMine);

   314                                           AmmoType: amMine);

   313                                    Slot: 3;

   315                                    Slot: 3;