equal
deleted
inserted
replaced
296 gtMine: begin |
296 gtMine: begin |
297 Result^.State:= Result^.State or gstMoving; |
297 Result^.State:= Result^.State or gstMoving; |
298 Result^.Radius:= 2; |
298 Result^.Radius:= 2; |
299 Result^.Elasticity:= _0_55; |
299 Result^.Elasticity:= _0_55; |
300 Result^.Friction:= _0_995; |
300 Result^.Friction:= _0_995; |
301 Result^.Timer:= 3000; |
301 if cMinesTime < 0 then |
|
302 Result^.Timer:= getrandom(3)*1000 |
|
303 else |
|
304 Result^.Timer:= cMinesTime*1; |
302 end; |
305 end; |
303 gtCase: begin |
306 gtCase: begin |
304 Result^.Radius:= 16; |
307 Result^.Radius:= 16; |
305 Result^.Elasticity:= _0_3 |
308 Result^.Elasticity:= _0_3 |
306 end; |
309 end; |