equal
deleted
inserted
replaced
588 |
588 |
589 if (Gear^.Hedgehog^.Gear <> nil) then |
589 if (Gear^.Hedgehog^.Gear <> nil) then |
590 begin |
590 begin |
591 Gear^.X:= hwFloat2Float(Gear^.Hedgehog^.Gear^.X) + (Gear^.Tex^.w div 2 - Gear^.Tag); |
591 Gear^.X:= hwFloat2Float(Gear^.Hedgehog^.Gear^.X) + (Gear^.Tex^.w div 2 - Gear^.Tag); |
592 Gear^.Y:= hwFloat2Float(Gear^.Hedgehog^.Gear^.Y) - (16 + Gear^.Tex^.h); |
592 Gear^.Y:= hwFloat2Float(Gear^.Hedgehog^.Gear^.Y) - (16 + Gear^.Tex^.h); |
593 Gear^.X:= max(((-cScreenWidth + 16) / zoom) + Gear^.Tex^.w div 2, min(((cScreenWidth - 16) / zoom) - Gear^.Tex^.w div 2, Gear^.X + WorldDx)); |
|
594 Gear^.Y:= max(cScreenHeight div 2 - ((cScreenHeight - 16) / (zoom)), min(cScreenHeight div 2 - ((-cScreenHeight + Gear^.Tex^.h) / (zoom)) - 64, Gear^.Y + WorldDy)); |
|
595 end; |
593 end; |
596 |
594 |
597 if Gear^.Timer = 0 then |
595 if Gear^.Timer = 0 then |
598 begin |
596 begin |
599 if Gear^.Hedgehog^.SpeechGear = Gear then |
597 if Gear^.Hedgehog^.SpeechGear = Gear then |