hedgewars/uConsts.pas
changeset 930 3f61bd3b08fd
parent 928 b9064b48b001
child 931 ab4d98858a40
equal deleted inserted replaced
929:9456e1e77369 930:3f61bd3b08fd
    83                   Height: LongInt;
    83                   Height: LongInt;
    84                   style: LongInt;
    84                   style: LongInt;
    85                   Name: string[15];
    85                   Name: string[15];
    86                   end;
    86                   end;
    87 
    87 
       
    88      PAmmo = ^TAmmo;
    88      TAmmo = record
    89      TAmmo = record
    89              Propz: LongWord;
    90              Propz: LongWord;
    90              Count: LongWord;
    91              Count: LongWord;
    91              NumPerTurn: LongWord;
    92              NumPerTurn: LongWord;
    92              Timer: LongWord;
    93              Timer: LongWord;
   195       ammoprop_AttackInMove = $00000010;
   196       ammoprop_AttackInMove = $00000010;
   196       ammoprop_NoCrosshair  = $00000040;
   197       ammoprop_NoCrosshair  = $00000040;
   197       ammoprop_AttackingPut = $00000080;
   198       ammoprop_AttackingPut = $00000080;
   198       ammoprop_DontHold     = $00000100;
   199       ammoprop_DontHold     = $00000100;
   199       ammoprop_AltAttack    = $00000200;
   200       ammoprop_AltAttack    = $00000200;
       
   201       ammoprop_AltUse       = $00000400;
       
   202 
   200       AMMO_INFINITE = High(LongWord);
   203       AMMO_INFINITE = High(LongWord);
   201 
   204 
   202       EXPLAllDamageInRadius = $00000001;
   205       EXPLAllDamageInRadius = $00000001;
   203       EXPLAutoSound         = $00000002;
   206       EXPLAutoSound         = $00000002;
   204       EXPLNoDamage          = $00000004;
   207       EXPLNoDamage          = $00000004;
   438                                   (NameId: sidGrenade;
   441                                   (NameId: sidGrenade;
   439                                    NameTex: nil;
   442                                    NameTex: nil;
   440                                    Probability: 0;
   443                                    Probability: 0;
   441                                    NumberInCase: 1;
   444                                    NumberInCase: 1;
   442                                    Ammo: (Propz: ammoprop_Timerable or
   445                                    Ammo: (Propz: ammoprop_Timerable or
   443                                                  ammoprop_Power;
   446                                                  ammoprop_Power or
       
   447                                                  ammoprop_AltUse;
   444                                           Count: AMMO_INFINITE;
   448                                           Count: AMMO_INFINITE;
   445                                           NumPerTurn: 0;
   449                                           NumPerTurn: 0;
   446                                           Timer: 3000;
   450                                           Timer: 3000;
   447                                           Pos: 0;
   451                                           Pos: 0;
   448                                           AmmoType: amGrenade);
   452                                           AmmoType: amGrenade);
   456                                   (NameId: sidClusterBomb;
   460                                   (NameId: sidClusterBomb;
   457                                    NameTex: nil;
   461                                    NameTex: nil;
   458                                    Probability: 100;
   462                                    Probability: 100;
   459                                    NumberInCase: 3;
   463                                    NumberInCase: 3;
   460                                    Ammo: (Propz: ammoprop_Timerable or
   464                                    Ammo: (Propz: ammoprop_Timerable or
   461                                                  ammoprop_Power;
   465                                                  ammoprop_Power or
       
   466                                                  ammoprop_AltUse;
   462                                           Count: 5;
   467                                           Count: 5;
   463                                           NumPerTurn: 0;
   468                                           NumPerTurn: 0;
   464                                           Timer: 3000;
   469                                           Timer: 3000;
   465                                           Pos: 0;
   470                                           Pos: 0;
   466                                           AmmoType: amClusterBomb);
   471                                           AmmoType: amClusterBomb);
   473                                    PosSprite: sprWater),
   478                                    PosSprite: sprWater),
   474                                   (NameId: sidBazooka;
   479                                   (NameId: sidBazooka;
   475                                    NameTex: nil;
   480                                    NameTex: nil;
   476                                    Probability: 0;
   481                                    Probability: 0;
   477                                    NumberInCase: 1;
   482                                    NumberInCase: 1;
   478                                    Ammo: (Propz: ammoprop_Power;
   483                                    Ammo: (Propz: ammoprop_Power or
       
   484                                                  ammoprop_AltUse;
   479                                           Count: AMMO_INFINITE;
   485                                           Count: AMMO_INFINITE;
   480                                           NumPerTurn: 0;
   486                                           NumPerTurn: 0;
   481                                           Timer: 0;
   487                                           Timer: 0;
   482                                           Pos: 0;
   488                                           Pos: 0;
   483                                           AmmoType: amBazooka);
   489                                           AmmoType: amBazooka);
   584                                   (NameId: sidMine;
   590                                   (NameId: sidMine;
   585                                    NameTex: nil;
   591                                    NameTex: nil;
   586                                    Probability: 100;
   592                                    Probability: 100;
   587                                    NumberInCase: 1;
   593                                    NumberInCase: 1;
   588                                    Ammo: (Propz: ammoprop_NoCrosshair or
   594                                    Ammo: (Propz: ammoprop_NoCrosshair or
   589                                                  ammoprop_DontHold;
   595                                                  ammoprop_DontHold or
       
   596                                                  ammoprop_AltUse;
   590                                           Count: 2;
   597                                           Count: 2;
   591                                           NumPerTurn: 0;
   598                                           NumPerTurn: 0;
   592                                           Timer: 0;
   599                                           Timer: 0;
   593                                           Pos: 0;
   600                                           Pos: 0;
   594                                           AmmoType: amMine);
   601                                           AmmoType: amMine);
   620                                    NameTex: nil;
   627                                    NameTex: nil;
   621                                    Probability: 100;
   628                                    Probability: 100;
   622                                    NumberInCase: 1;
   629                                    NumberInCase: 1;
   623                                    Ammo: (Propz: ammoprop_NoCrosshair or
   630                                    Ammo: (Propz: ammoprop_NoCrosshair or
   624                                                  ammoprop_AttackInMove or
   631                                                  ammoprop_AttackInMove or
   625                                                  ammoprop_DontHold;
   632                                                  ammoprop_DontHold or
       
   633                                                  ammoprop_AltUse;
   626                                           Count: 1;
   634                                           Count: 1;
   627                                           NumPerTurn: 0;
   635                                           NumPerTurn: 0;
   628                                           Timer: 0;
   636                                           Timer: 0;
   629                                           Pos: 0;
   637                                           Pos: 0;
   630                                           AmmoType: amDynamite);
   638                                           AmmoType: amDynamite);