93     RealTicks: Longword = 0;

    93     RealTicks: Longword = 0;

    94     

    94     

    95     AttackBar: LongInt = 0; // 0 - none, 1 - just bar at the right-down corner, 2 - like in WWP

    95     AttackBar: LongInt = 0; // 0 - none, 1 - just bar at the right-down corner, 2 - like in WWP

    96 

    96 

    97 function hwSign(r: hwFloat): LongInt;

    97 function hwSign(r: hwFloat): LongInt;

    99 function Max(a, b: LongInt): LongInt;

    99 function Max(a, b: LongInt): LongInt;

   100 function rndSign(num: hwFloat): hwFloat;

   100 function rndSign(num: hwFloat): hwFloat;

   101 procedure OutError(Msg: String; isFatalError: boolean);

   101 procedure OutError(Msg: String; isFatalError: boolean);

   102 procedure TryDo(Assert: boolean; Msg: string; isFatal: boolean);

   102 procedure TryDo(Assert: boolean; Msg: string; isFatal: boolean);

   103 procedure SDLTry(Assert: boolean; isFatal: boolean);

   103 procedure SDLTry(Assert: boolean; isFatal: boolean);