equal
deleted
inserted
replaced
670 |
670 |
671 procedure initModule; |
671 procedure initModule; |
672 {$IFDEF DEBUGFILE}{$IFNDEF IPHONEOS}var i: LongInt;{$ENDIF}{$ENDIF} |
672 {$IFDEF DEBUGFILE}{$IFNDEF IPHONEOS}var i: LongInt;{$ENDIF}{$ENDIF} |
673 begin |
673 begin |
674 cDrownSpeed.QWordValue := 257698038; // 0.06 |
674 cDrownSpeed.QWordValue := 257698038; // 0.06 |
675 cMaxWindSpeed.QWordValue:= 2147484; // 0.0005 |
675 cMaxWindSpeed.QWordValue:= 1073742; // 0.00025 |
676 cWindSpeed.QWordValue := 429496; // 0.0001 |
676 cWindSpeed.QWordValue := 429496; // 0.0001 |
677 cGravity := cMaxWindSpeed; |
677 cGravity := cMaxWindSpeed * 2; |
678 cDamageModifier := _1; |
678 cDamageModifier := _1; |
679 TargetPoint := cTargetPointRef; |
679 TargetPoint := cTargetPointRef; |
680 TextureList := nil; |
680 TextureList := nil; |
681 |
681 |
682 // int, longint longword and byte |
682 // int, longint longword and byte |