equal
deleted
inserted
replaced
106 @doStepBigExplosion, |
106 @doStepBigExplosion, |
107 @doStepChunk, |
107 @doStepChunk, |
108 @doStepNote, |
108 @doStepNote, |
109 @doStepLineTrail, |
109 @doStepLineTrail, |
110 @doStepBulletHit, |
110 @doStepBulletHit, |
111 @doStepCircle |
111 @doStepCircle, |
|
112 @doStepSmoothWindBar |
112 ); |
113 ); |
113 |
114 |
114 function AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord = 0; Critical: Boolean = false): PVisualGear; |
115 function AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord = 0; Critical: Boolean = false): PVisualGear; |
115 const VGCounter: Longword = 0; |
116 const VGCounter: Longword = 0; |
116 var gear: PVisualGear; |
117 var gear: PVisualGear; |
132 vgtSpeechBubble, |
133 vgtSpeechBubble, |
133 vgtHealthTag, |
134 vgtHealthTag, |
134 vgtExplosion, |
135 vgtExplosion, |
135 vgtSmokeTrace, |
136 vgtSmokeTrace, |
136 vgtEvilTrace, |
137 vgtEvilTrace, |
137 vgtNote]) then |
138 vgtNote, |
|
139 vgtSmoothWindBar]) then |
138 begin |
140 begin |
139 AddVisualGear:= nil; |
141 AddVisualGear:= nil; |
140 exit |
142 exit |
141 end; |
143 end; |
142 |
144 |
325 dy:= 0; |
327 dy:= 0; |
326 FrameTicks:= 350; |
328 FrameTicks:= 350; |
327 Frame:= 7; |
329 Frame:= 7; |
328 Angle := 0; |
330 Angle := 0; |
329 end; |
331 end; |
|
332 vgtSmoothWindBar: Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed); |
330 end; |
333 end; |
331 |
334 |
332 if State <> 0 then gear^.State:= State; |
335 if State <> 0 then gear^.State:= State; |
333 |
336 |
334 if VisualGearsList <> nil then |
337 if VisualGearsList <> nil then |