hedgewars/uAIAmmoTests.pas
changeset 4357 a1fcfc341a52
parent 4317 ba5d5a2f4c4b
child 4359 83ef50815535
equal deleted inserted replaced
4355:4554c4df9f1a 4357:a1fcfc341a52
    18 
    18 
    19 {$INCLUDE "options.inc"}
    19 {$INCLUDE "options.inc"}
    20 
    20 
    21 unit uAIAmmoTests;
    21 unit uAIAmmoTests;
    22 interface
    22 interface
    23 uses SDLh, uGears, uConsts, uFloat;
    23 uses SDLh, uConsts, uFloat, uTypes;
    24 const amtest_OnTurn = $00000001;
    24 const amtest_OnTurn = $00000001;
    25 
    25 
    26 type TAttackParams = record
    26 type TAttackParams = record
    27             Time: Longword;
    27             Time: Longword;
    28             Angle, Power: LongInt;
    28             Angle, Power: LongInt;