equal
deleted
inserted
replaced
241 currsorter:= Gear; |
241 currsorter:= Gear; |
242 //doStepTeamHealthSorterWork(Gear, Steps) |
242 //doStepTeamHealthSorterWork(Gear, Steps) |
243 end; |
243 end; |
244 |
244 |
245 procedure doStepSpeechBubbleWork(Gear: PVisualGear; Steps: Longword); |
245 procedure doStepSpeechBubbleWork(Gear: PVisualGear; Steps: Longword); |
246 var t: LongWord; |
246 begin |
247 begin |
247 if Gear^.Timer > Steps then dec(Gear^.Timer, Steps) else Gear^.Timer:= 0; |
248 for t:= 1 to Steps do |
248 |
249 begin |
249 if (PHedgehog(Gear^.Hedgehog)^.Gear <> nil) then |
250 dec(Gear^.Timer); |
250 begin |
251 |
251 Gear^.X:= PHedgehog(Gear^.Hedgehog)^.Gear^.X + int2hwFloat(Gear^.Tex^.w div 2 - Gear^.FrameTicks); |
252 if (PHedgehog(Gear^.Hedgehog)^.Gear <> nil) then |
252 Gear^.Y:= PHedgehog(Gear^.Hedgehog)^.Gear^.Y - int2hwFloat(16 + Gear^.Tex^.h); |
253 begin |
253 end; |
254 Gear^.X:= PHedgehog(Gear^.Hedgehog)^.Gear^.X+int2hwFloat(Gear^.Tex^.w div 2 - Gear^.FrameTicks); |
254 |
255 Gear^.Y:= PHedgehog(Gear^.Hedgehog)^.Gear^.Y-int2hwFloat(16+Gear^.Tex^.h); |
255 if Gear^.Timer = 0 then |
256 end; |
256 begin |
257 |
257 CurrentHedgehog^.SpeechGear:= nil; |
258 if Gear^.Timer = 0 then |
258 DeleteVisualGear(Gear) |
259 begin |
259 end; |
260 CurrentHedgehog^.SpeechGear:= nil; |
|
261 DeleteVisualGear(Gear) |
|
262 end; |
|
263 end |
|
264 end; |
260 end; |
265 |
261 |
266 procedure doStepSpeechBubble(Gear: PVisualGear; Steps: Longword); |
262 procedure doStepSpeechBubble(Gear: PVisualGear; Steps: Longword); |
267 begin |
263 begin |
268 if (CurrentHedgehog^.SpeechGear <> nil) then DeleteVisualGear(CurrentHedgehog^.SpeechGear); |
264 if (CurrentHedgehog^.SpeechGear <> nil) then DeleteVisualGear(CurrentHedgehog^.SpeechGear); |