hedgewars/uConsts.pas
changeset 1088 9702e17146e6
parent 1076 18121a8b4668
child 1089 24e9e1ca0394
equal deleted inserted replaced
1087:69ee85df0283 1088:9702e17146e6
    53                    gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite,
    53                    gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite,
    54                    gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame,
    54                    gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame,
    55                    gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame,
    55                    gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame,
    56                    gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, gtGirder,
    56                    gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, gtGirder,
    57                    gtTeleport, gtSmallDamage, gtSwitcher, gtTarget, gtMortar,
    57                    gtTeleport, gtSmallDamage, gtSwitcher, gtTarget, gtMortar,
    58                    gtWhip, gtKamikaze);
    58                    gtWhip, gtKamikaze, gtSpider);
    59 
    59 
    60      TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire);
    60      TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire);
    61 
    61 
    62      TGearsType = set of TGearType;
    62      TGearsType = set of TGearType;
    63 
    63 
    70                    sndEnemyDown, sndCoward, sndHurry, sndWatchIt, sndKamikaze);
    70                    sndEnemyDown, sndCoward, sndHurry, sndWatchIt, sndKamikaze);
    71 
    71 
    72      TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
    72      TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
    73                    amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, amWhip,
    73                    amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, amWhip,
    74                    amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch,
    74                    amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch,
    75                    amGirder, amTeleport, amSwitch, amMortar, amKamikaze);
    75                    amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amSpider);
    76 
    76 
    77      THWFont    = (fnt16, fntBig, fntSmall);
    77      THWFont    = (fnt16, fntBig, fntSmall);
    78 
    78 
    79      TCapGroup  = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume);
    79      TCapGroup  = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume);
    80 
    80 
   937                                    minAngle: 0;
   937                                    minAngle: 0;
   938                                    maxAngle: 0;
   938                                    maxAngle: 0;
   939                                    isDamaging: true;
   939                                    isDamaging: true;
   940                                    SkipTurns: 0;
   940                                    SkipTurns: 0;
   941                                    PosCount: 1;
   941                                    PosCount: 1;
       
   942                                    PosSprite: sprWater),
       
   943                                   (NameId: sidSpider;
       
   944                                    NameTex: nil;
       
   945                                    Probability: 100;
       
   946                                    NumberInCase: 1;
       
   947                                    Ammo: (Propz: ammoprop_ForwMsgs or
       
   948                                                  ammoprop_NoCrosshair or
       
   949                                                  ammoprop_DontHold;
       
   950                                           Count: 1;
       
   951                                           NumPerTurn: 0;
       
   952                                           Timer: 0;
       
   953                                           Pos: 0;
       
   954                                           AmmoType: amSpider);
       
   955                                    Slot: 4;
       
   956                                    TimeAfterTurn: 0;
       
   957                                    minAngle: 0;
       
   958                                    maxAngle: 0;
       
   959                                    isDamaging: true;
       
   960                                    SkipTurns: 0;
       
   961                                    PosCount: 1;
   942                                    PosSprite: sprWater)
   962                                    PosSprite: sprWater)
   943                                   );
   963                                   );
   944 
   964 
   945 var CountTexz: array[1..9] of PTexture;
   965 var CountTexz: array[1..9] of PTexture;
   946 
   966