equal
deleted
inserted
replaced
607 12, 12, |
607 12, 12, |
608 Round(hwRound(Gear^.X) + |
608 Round(hwRound(Gear^.X) + |
609 hwSign(Gear^.dX) * Sin(Gear^.Angle*pi/cMaxAngle)*60) + WorldDx, |
609 hwSign(Gear^.dX) * Sin(Gear^.Angle*pi/cMaxAngle)*60) + WorldDx, |
610 Round(hwRound(Gear^.Y) - |
610 Round(hwRound(Gear^.Y) - |
611 Cos(Gear^.Angle*pi/cMaxAngle)*60) + WorldDy, 0, |
611 Cos(Gear^.Angle*pi/cMaxAngle)*60) + WorldDy, 0, |
612 hwSign(Gear^.dX) * Gear^.Angle * 180 / cMaxAngle) |
612 hwSign(Gear^.dX) * (Gear^.Angle * 180.0) / cMaxAngle) |
613 end; |
613 end; |
614 end; |
614 end; |
615 |
615 |
616 procedure DrawGears(Surface: PSDL_Surface); |
616 procedure DrawGears(Surface: PSDL_Surface); |
617 var Gear: PGear; |
617 var Gear: PGear; |
857 end; |
857 end; |
858 |
858 |
859 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt); |
859 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt); |
860 var t: PGearArray; |
860 var t: PGearArray; |
861 i: LongInt; |
861 i: LongInt; |
862 hh: PHedgehog; |
|
863 begin |
862 begin |
864 t:= CheckGearsCollision(Ammo); |
863 t:= CheckGearsCollision(Ammo); |
865 i:= t^.Count; |
864 i:= t^.Count; |
866 hh:= Ammo^.Hedgehog; |
|
867 while i > 0 do |
865 while i > 0 do |
868 begin |
866 begin |
869 dec(i); |
867 dec(i); |
870 if (t^.ar[i]^.State and gstNoDamage) = 0 then |
868 if (t^.ar[i]^.State and gstNoDamage) = 0 then |
871 case t^.ar[i]^.Kind of |
869 case t^.ar[i]^.Kind of |