equal
deleted
inserted
replaced
34 |
34 |
35 var VGCounter: LongWord; |
35 var VGCounter: LongWord; |
36 VisualGearLayers: array[0..6] of PVisualGear; |
36 VisualGearLayers: array[0..6] of PVisualGear; |
37 |
37 |
38 implementation |
38 implementation |
39 uses uFloat, uVariables, uConsts, uTextures, uVisualGearsHandlers; |
39 uses uCollisions, uFloat, uVariables, uConsts, uTextures, uVisualGearsHandlers; |
40 |
40 |
41 function AddVisualGear(X, Y: LongInt; Kind: TVisualGearType): PVisualGear; inline; |
41 function AddVisualGear(X, Y: LongInt; Kind: TVisualGearType): PVisualGear; inline; |
42 begin |
42 begin |
43 // adjust some visual gear types if underwater |
43 // adjust some visual gear types if underwater |
44 if (Y > cWaterLine) and ((Kind = vgtBeeTrace) or (Kind = vgtSmokeTrace) or (Kind = vgtEvilTrace)) then |
44 if CheckCoordInWater(X, Y) and ((Kind = vgtBeeTrace) or (Kind = vgtSmokeTrace) or (Kind = vgtEvilTrace)) then |
45 Kind:= vgtBubble; |
45 Kind:= vgtBubble; |
46 |
46 |
47 AddVisualGear:= AddVisualGear(X, Y, Kind, 0, false, -1); |
47 AddVisualGear:= AddVisualGear(X, Y, Kind, 0, false, -1); |
48 end; |
48 end; |
49 |
49 |