equal
deleted
inserted
replaced
5209 i, dmg, d: LongInt; |
5209 i, dmg, d: LongInt; |
5210 begin |
5210 begin |
5211 HHGear:= Gear^.Hedgehog^.Gear; |
5211 HHGear:= Gear^.Hedgehog^.Gear; |
5212 HHGear^.State:= HHGear^.State or gstNoDamage; |
5212 HHGear^.State:= HHGear^.State or gstNoDamage; |
5213 DeleteCI(HHGear); |
5213 DeleteCI(HHGear); |
|
5214 SetLittle(HHGear^.dY); |
|
5215 HHGear^.dY.IsNegative:= true; |
|
5216 HHGear^.State:= HHGear^.State or gstMoving; |
5214 |
5217 |
5215 t:= CheckGearsCollision(Gear); |
5218 t:= CheckGearsCollision(Gear); |
5216 |
5219 |
5217 for i:= 5 downto 0 do |
5220 for i:= 5 downto 0 do |
5218 AddVisualGear(hwRound(Gear^.X) - 5 + Random(10), hwRound(Gear^.Y) + 12, vgtDust); |
5221 AddVisualGear(hwRound(Gear^.X) - 5 + Random(10), hwRound(Gear^.Y) + 12, vgtDust); |