equal
deleted
inserted
replaced
125 TargetPoint : TPoint; |
125 TargetPoint : TPoint; |
126 |
126 |
127 TextureList : PTexture; |
127 TextureList : PTexture; |
128 |
128 |
129 |
129 |
130 procedure init_uMisc; |
130 procedure initModule; |
131 procedure free_uMisc; |
131 procedure freeModule; |
132 procedure SplitBySpace(var a, b: shortstring); |
132 procedure SplitBySpace(var a, b: shortstring); |
133 procedure SplitByChar(var a, b: ansistring; c: char); |
133 procedure SplitByChar(var a, b: ansistring; c: char); |
134 procedure movecursor(dx, dy: Integer); |
134 procedure movecursor(dx, dy: Integer); |
135 function hwSign(r: hwFloat): LongInt; |
135 function hwSign(r: hwFloat): LongInt; |
136 function Min(a, b: LongInt): LongInt; |
136 function Min(a, b: LongInt): LongInt; |
641 ((independent and $000000FF) shl 24)) |
641 ((independent and $000000FF) shl 24)) |
642 {$ENDIF} |
642 {$ENDIF} |
643 end; |
643 end; |
644 |
644 |
645 |
645 |
646 procedure init_uMisc; |
646 procedure initModule; |
647 {$IFNDEF IPHONEOS}var i: LongInt;{$ENDIF} |
647 {$IFNDEF IPHONEOS}var i: LongInt;{$ENDIF} |
648 begin |
648 begin |
649 cDrownSpeed.QWordValue := 257698038; // 0.06 |
649 cDrownSpeed.QWordValue := 257698038; // 0.06 |
650 cMaxWindSpeed.QWordValue:= 2147484; // 0.0005 |
650 cMaxWindSpeed.QWordValue:= 2147484; // 0.0005 |
651 cWindSpeed.QWordValue := 429496; // 0.0001 |
651 cWindSpeed.QWordValue := 429496; // 0.0001 |
756 {$I+} |
756 {$I+} |
757 {$ENDIF} |
757 {$ENDIF} |
758 |
758 |
759 end; |
759 end; |
760 |
760 |
761 procedure free_uMisc; |
761 procedure freeModule; |
762 begin |
762 begin |
763 //uRandom.DumpBuffer; |
763 //uRandom.DumpBuffer; |
764 while TextureList <> nil do FreeTexture(TextureList); |
764 while TextureList <> nil do FreeTexture(TextureList); |
765 |
765 |
766 {$IFDEF DEBUGFILE} |
766 {$IFDEF DEBUGFILE} |