equal
deleted
inserted
replaced
205 if (cGear^.Kind in [gtHedgehog, gtMine]) then |
205 if (cGear^.Kind in [gtHedgehog, gtMine]) then |
206 begin |
206 begin |
207 with cGear^ do |
207 with cGear^ do |
208 begin |
208 begin |
209 dX:= Gear^.dX; |
209 dX:= Gear^.dX; |
210 dY:= Gear^.dY; |
210 dY:= Gear^.dY * _0_5; |
211 State:= State or gstMoving; |
211 State:= State or gstMoving; |
212 Active:= true |
212 Active:= true |
213 end; |
213 end; |
214 DeleteCI(cGear); |
214 DeleteCI(cGear); |
215 exit(false) |
215 exit(false) |
252 ((my > y) xor (Dir > 0)) then |
252 ((my > y) xor (Dir > 0)) then |
253 if (cGear^.Kind in [gtHedgehog, gtMine]) then |
253 if (cGear^.Kind in [gtHedgehog, gtMine]) then |
254 begin |
254 begin |
255 with cGear^ do |
255 with cGear^ do |
256 begin |
256 begin |
257 dX:= Gear^.dX; |
257 dX:= Gear^.dX * _0_5; |
258 dY:= Gear^.dY * _0_5; |
258 dY:= Gear^.dY; |
259 State:= State or gstMoving; |
259 State:= State or gstMoving; |
260 Active:= true |
260 Active:= true |
261 end; |
261 end; |
262 DeleteCI(cGear); |
262 DeleteCI(cGear); |
263 exit(false) |
263 exit(false) |