equal
deleted
inserted
replaced
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit uMisc; |
21 unit uMisc; |
22 interface |
22 interface |
23 |
23 |
24 uses SDLh, uConsts, uFloat, GLunit; |
24 uses SDLh, uConsts, uFloat, GLunit, Math; |
25 |
25 |
26 var |
26 var |
27 isCursorVisible : boolean; |
27 isCursorVisible : boolean; |
28 isTerminated : boolean; |
28 isTerminated : boolean; |
29 isInLag : boolean; |
29 isInLag : boolean; |
99 |
99 |
100 ShowCrosshair : boolean; |
100 ShowCrosshair : boolean; |
101 CursorMovementX : LongInt; |
101 CursorMovementX : LongInt; |
102 CursorMovementY : LongInt; |
102 CursorMovementY : LongInt; |
103 cDrownSpeed : hwFloat; |
103 cDrownSpeed : hwFloat; |
|
104 cDrownSpeedf : float; |
104 cMaxWindSpeed : hwFloat; |
105 cMaxWindSpeed : hwFloat; |
105 cWindSpeed : hwFloat; |
106 cWindSpeed : hwFloat; |
|
107 cWindSpeedf : float; |
106 cGravity : hwFloat; |
108 cGravity : hwFloat; |
|
109 cGravityf : float; |
107 cDamageModifier : hwFloat; |
110 cDamageModifier : hwFloat; |
108 cLaserSighting : boolean; |
111 cLaserSighting : boolean; |
109 cVampiric : boolean; |
112 cVampiric : boolean; |
110 cArtillery : boolean; |
113 cArtillery : boolean; |
111 WeaponTooltipTex : PTexture; |
114 WeaponTooltipTex : PTexture; |
168 {$IFNDEF IPHONEOS} |
171 {$IFNDEF IPHONEOS} |
169 procedure MakeScreenshot(filename: shortstring); |
172 procedure MakeScreenshot(filename: shortstring); |
170 {$ENDIF} |
173 {$ENDIF} |
171 |
174 |
172 implementation |
175 implementation |
173 uses Math, uConsole, uStore, uIO, uSound, typinfo, sysutils; |
176 uses uConsole, uStore, uIO, uSound, typinfo, sysutils; |
174 |
177 |
175 var KBnum: Longword; |
178 var KBnum: Longword; |
176 {$IFDEF DEBUGFILE} |
179 {$IFDEF DEBUGFILE} |
177 f: textfile; |
180 f: textfile; |
178 {$ENDIF} |
181 {$ENDIF} |
675 |
678 |
676 procedure initModule; |
679 procedure initModule; |
677 {$IFDEF DEBUGFILE}{$IFNDEF IPHONEOS}var i: LongInt;{$ENDIF}{$ENDIF} |
680 {$IFDEF DEBUGFILE}{$IFNDEF IPHONEOS}var i: LongInt;{$ENDIF}{$ENDIF} |
678 begin |
681 begin |
679 cDrownSpeed.QWordValue := 257698038; // 0.06 |
682 cDrownSpeed.QWordValue := 257698038; // 0.06 |
|
683 cDrownSpeedf := 0.06; |
680 cMaxWindSpeed.QWordValue:= 1073742; // 0.00025 |
684 cMaxWindSpeed.QWordValue:= 1073742; // 0.00025 |
681 cWindSpeed.QWordValue := 429496; // 0.0001 |
685 cWindSpeed.QWordValue := 429496; // 0.0001 |
|
686 cWindSpeedf := 0.0001; |
682 cGravity := cMaxWindSpeed * 2; |
687 cGravity := cMaxWindSpeed * 2; |
|
688 cGravityf := 0.00025 * 2; |
683 cDamageModifier := _1; |
689 cDamageModifier := _1; |
684 TargetPoint := cTargetPointRef; |
690 TargetPoint := cTargetPointRef; |
685 TextureList := nil; |
691 TextureList := nil; |
686 |
692 |
687 // int, longint longword and byte |
693 // int, longint longword and byte |