equal
deleted
inserted
replaced
401 else |
401 else |
402 dec(Gear^.FrameTicks, Steps) |
402 dec(Gear^.FrameTicks, Steps) |
403 end; |
403 end; |
404 |
404 |
405 procedure doStepSmallDamage(Gear: PVisualGear; Steps: Longword); |
405 procedure doStepSmallDamage(Gear: PVisualGear; Steps: Longword); |
|
406 var s: shortstring; |
406 begin |
407 begin |
407 Gear^.Y:= Gear^.Y - 0.02 * Steps; |
408 Gear^.Y:= Gear^.Y - 0.02 * Steps; |
|
409 if Gear^.Tex = nil then |
|
410 begin |
|
411 s:= IntToStr(Gear^.State); |
|
412 Gear^.Tex:= RenderStringTex(ansistring(s), cWhiteColor, fntSmall); |
|
413 end; |
408 |
414 |
409 if Gear^.FrameTicks <= Steps then |
415 if Gear^.FrameTicks <= Steps then |
410 DeleteVisualGear(Gear) |
416 DeleteVisualGear(Gear) |
411 else |
417 else |
412 dec(Gear^.FrameTicks, Steps) |
418 dec(Gear^.FrameTicks, Steps) |