hedgewars/uAIAmmoTests.pas
changeset 7789 838d2e06c377
parent 7760 ccc8bd5205ff
child 7790 040fc517fece
equal deleted inserted replaced
7788:27f7f0190e44 7789:838d2e06c377
    20 
    20 
    21 unit uAIAmmoTests;
    21 unit uAIAmmoTests;
    22 interface
    22 interface
    23 uses SDLh, uConsts, uFloat, uTypes;
    23 uses SDLh, uConsts, uFloat, uTypes;
    24 const 
    24 const 
    25     amtest_OnTurn   = $00000001; // from one position
    25     amtest_Rare     = $00000001; // check only several positions
    26     amtest_NoTarget = $00000002; // each pos, but no targetting
    26     amtest_NoTarget = $00000002; // each pos, but no targetting
    27 
    27 
    28 var windSpeed: real;
    28 var windSpeed: real;
    29 
    29 
    30 type TAttackParams = record
    30 type TAttackParams = record
    75             (proc: nil;              flags: 0), // amDynamite
    75             (proc: nil;              flags: 0), // amDynamite
    76             (proc: @TestFirePunch;   flags: amtest_NoTarget), // amFirePunch
    76             (proc: @TestFirePunch;   flags: amtest_NoTarget), // amFirePunch
    77             (proc: @TestWhip;        flags: amtest_NoTarget), // amWhip
    77             (proc: @TestWhip;        flags: amtest_NoTarget), // amWhip
    78             (proc: @TestBaseballBat; flags: amtest_NoTarget), // amBaseballBat
    78             (proc: @TestBaseballBat; flags: amtest_NoTarget), // amBaseballBat
    79             (proc: nil;              flags: 0), // amParachute
    79             (proc: nil;              flags: 0), // amParachute
    80             (proc: @TestAirAttack;   flags: amtest_OnTurn), // amAirAttack
    80             (proc: @TestAirAttack;   flags: amtest_Rare), // amAirAttack
    81             (proc: nil;              flags: 0), // amMineStrike
    81             (proc: nil;              flags: 0), // amMineStrike
    82             (proc: nil;              flags: 0), // amBlowTorch
    82             (proc: nil;              flags: 0), // amBlowTorch
    83             (proc: nil;              flags: 0), // amGirder
    83             (proc: nil;              flags: 0), // amGirder
    84             (proc: nil;              flags: 0), // amTeleport
    84             (proc: nil;              flags: 0), // amTeleport
    85             //(proc: @TestTeleport;    flags: amtest_OnTurn), // amTeleport
    85             //(proc: @TestTeleport;    flags: amtest_OnTurn), // amTeleport
    86             (proc: nil;              flags: 0), // amSwitch
    86             (proc: nil;              flags: 0), // amSwitch
    87             (proc: @TestMortar;      flags: 0), // amMortar
    87             (proc: @TestMortar;      flags: 0), // amMortar
    88             (proc: @TestKamikaze;    flags: 0), // amKamikaze
    88             (proc: @TestKamikaze;    flags: 0), // amKamikaze
    89             (proc: @TestCake;        flags: amtest_OnTurn or amtest_NoTarget), // amCake
    89             (proc: @TestCake;        flags: amtest_Rare or amtest_NoTarget), // amCake
    90             (proc: nil;              flags: 0), // amSeduction
    90             (proc: nil;              flags: 0), // amSeduction
    91             (proc: @TestWatermelon;  flags: 0), // amWatermelon
    91             (proc: @TestWatermelon;  flags: 0), // amWatermelon
    92             (proc: nil;              flags: 0), // amHellishBomb
    92             (proc: nil;              flags: 0), // amHellishBomb
    93             (proc: nil;              flags: 0), // amNapalm
    93             (proc: nil;              flags: 0), // amNapalm
    94             (proc: nil;              flags: 0), // amDrill
    94             (proc: nil;              flags: 0), // amDrill