--- a/hedgewars/uConsts.pas Mon May 12 19:49:36 2008 +0000
+++ b/hedgewars/uConsts.pas Tue May 13 20:00:48 2008 +0000
@@ -85,6 +85,7 @@
Name: string[15];
end;
+ PAmmo = ^TAmmo;
TAmmo = record
Propz: LongWord;
Count: LongWord;
@@ -197,6 +198,8 @@
ammoprop_AttackingPut = $00000080;
ammoprop_DontHold = $00000100;
ammoprop_AltAttack = $00000200;
+ ammoprop_AltUse = $00000400;
+
AMMO_INFINITE = High(LongWord);
EXPLAllDamageInRadius = $00000001;
@@ -440,7 +443,8 @@
Probability: 0;
NumberInCase: 1;
Ammo: (Propz: ammoprop_Timerable or
- ammoprop_Power;
+ ammoprop_Power or
+ ammoprop_AltUse;
Count: AMMO_INFINITE;
NumPerTurn: 0;
Timer: 3000;
@@ -458,7 +462,8 @@
Probability: 100;
NumberInCase: 3;
Ammo: (Propz: ammoprop_Timerable or
- ammoprop_Power;
+ ammoprop_Power or
+ ammoprop_AltUse;
Count: 5;
NumPerTurn: 0;
Timer: 3000;
@@ -475,7 +480,8 @@
NameTex: nil;
Probability: 0;
NumberInCase: 1;
- Ammo: (Propz: ammoprop_Power;
+ Ammo: (Propz: ammoprop_Power or
+ ammoprop_AltUse;
Count: AMMO_INFINITE;
NumPerTurn: 0;
Timer: 0;
@@ -586,7 +592,8 @@
Probability: 100;
NumberInCase: 1;
Ammo: (Propz: ammoprop_NoCrosshair or
- ammoprop_DontHold;
+ ammoprop_DontHold or
+ ammoprop_AltUse;
Count: 2;
NumPerTurn: 0;
Timer: 0;
@@ -622,7 +629,8 @@
NumberInCase: 1;
Ammo: (Propz: ammoprop_NoCrosshair or
ammoprop_AttackInMove or
- ammoprop_DontHold;
+ ammoprop_DontHold or
+ ammoprop_AltUse;
Count: 1;
NumPerTurn: 0;
Timer: 0;