equal
deleted
inserted
replaced
111 InitStepsFlags: Longword = 0; |
111 InitStepsFlags: Longword = 0; |
112 |
112 |
113 RealTicks: Longword = 0; |
113 RealTicks: Longword = 0; |
114 |
114 |
115 AttackBar: LongInt = 0; // 0 - none, 1 - just bar at the right-down corner, 2 - like in WWP |
115 AttackBar: LongInt = 0; // 0 - none, 1 - just bar at the right-down corner, 2 - like in WWP |
|
116 |
|
117 type HwColor3f = record |
|
118 r, g, b: byte |
|
119 end; |
|
120 |
|
121 var WaterColorArray: array[0..3] of HwColor3f; |
116 |
122 |
117 function hwSign(r: hwFloat): LongInt; |
123 function hwSign(r: hwFloat): LongInt; |
118 function Min(a, b: LongInt): LongInt; |
124 function Min(a, b: LongInt): LongInt; |
119 function Max(a, b: LongInt): LongInt; |
125 function Max(a, b: LongInt): LongInt; |
120 procedure OutError(Msg: String; isFatalError: boolean); |
126 procedure OutError(Msg: String; isFatalError: boolean); |