equal
deleted
inserted
replaced
418 with splash^ do |
418 with splash^ do |
419 begin |
419 begin |
420 Scale:= hwFloat2Float(Gear^.Density / _3 * Gear^.dY); |
420 Scale:= hwFloat2Float(Gear^.Density / _3 * Gear^.dY); |
421 if Scale > 1 then Scale:= power(Scale,0.3333) |
421 if Scale > 1 then Scale:= power(Scale,0.3333) |
422 else Scale:= Scale + ((1-Scale) / 2); |
422 else Scale:= Scale + ((1-Scale) / 2); |
423 if Scale > 1 then Timer:= round(max(Scale,3)) |
423 if Scale > 1 then Timer:= round(min(Scale*0.0005/cGravityf,4)) |
424 else Timer:= 1; |
424 else Timer:= 1; |
425 // Low Gravity |
425 // Low Gravity |
426 Timer:=round(0.0005/cGravityf); |
|
427 FrameTicks:= FrameTicks*Timer; |
426 FrameTicks:= FrameTicks*Timer; |
428 end; |
427 end; |
429 |
428 |
430 maxDrops := (hwRound(Gear^.Density) * 3) div 2 + round(vdX * hwRound(Gear^.Density) * 6) + round(vdY * hwRound(Gear^.Density) * 6); |
429 maxDrops := (hwRound(Gear^.Density) * 3) div 2 + round(vdX * hwRound(Gear^.Density) * 6) + round(vdY * hwRound(Gear^.Density) * 6); |
431 for i:= max(maxDrops div 3, min(32, Random(maxDrops))) downto 0 do |
430 for i:= max(maxDrops div 3, min(32, Random(maxDrops))) downto 0 do |