equal
deleted
inserted
replaced
6268 Gear^.Tex := RenderStringTex(FormatA(trmsg[sidFuel], ansistring(inttostr(t))), |
6268 Gear^.Tex := RenderStringTex(FormatA(trmsg[sidFuel], ansistring(inttostr(t))), |
6269 cWhiteColor, fntSmall) |
6269 cWhiteColor, fntSmall) |
6270 end; |
6270 end; |
6271 if Gear^.Message and (gmUp or gmDown) <> 0 then |
6271 if Gear^.Message and (gmUp or gmDown) <> 0 then |
6272 begin |
6272 begin |
6273 StopSoundChan(Gear^.SoundChannel); |
6273 if (Gear^.Tag <> 2) then |
6274 Gear^.SoundChannel:= -1; |
6274 begin |
|
6275 StopSoundChan(Gear^.SoundChannel); |
|
6276 Gear^.SoundChannel:= LoopSound(sndIceBeamIdle); |
|
6277 Gear^.Tag:= 2; |
|
6278 end; |
6275 if GameTicks mod 40 = 0 then dec(Gear^.Health) |
6279 if GameTicks mod 40 = 0 then dec(Gear^.Health) |
6276 end |
6280 end |
6277 else |
6281 else |
6278 begin |
6282 begin |
6279 if Gear^.SoundChannel = -1 then |
6283 if (Gear^.Tag <> 1) then |
6280 Gear^.SoundChannel := LoopSound(sndIceBeam); |
6284 begin |
|
6285 StopSoundChan(Gear^.SoundChannel); |
|
6286 Gear^.SoundChannel:= LoopSound(sndIceBeam); |
|
6287 Gear^.Tag:= 1; |
|
6288 end; |
6281 if GameTicks mod 10 = 0 then dec(Gear^.Health) |
6289 if GameTicks mod 10 = 0 then dec(Gear^.Health) |
6282 end |
6290 end |
6283 end; |
6291 end; |
6284 |
6292 |
6285 |
6293 |