equal
deleted
inserted
replaced
649 {$ENDIF} |
649 {$ENDIF} |
650 end; |
650 end; |
651 |
651 |
652 |
652 |
653 procedure initModule; |
653 procedure initModule; |
654 {$IFNDEF IPHONEOS}var i: LongInt;{$ENDIF} |
654 {$IFDEF DEBUGFILE}var i: LongInt;{$ENDIF} |
655 begin |
655 begin |
656 cDrownSpeed.QWordValue := 257698038; // 0.06 |
656 cDrownSpeed.QWordValue := 257698038; // 0.06 |
657 cMaxWindSpeed.QWordValue:= 2147484; // 0.0005 |
657 cMaxWindSpeed.QWordValue:= 2147484; // 0.0005 |
658 cWindSpeed.QWordValue := 429496; // 0.0001 |
658 cWindSpeed.QWordValue := 429496; // 0.0001 |
659 cGravity := cMaxWindSpeed; |
659 cGravity := cMaxWindSpeed; |