hedgewars: comparison hedgewars/uMisc.pas

equal deleted inserted replaced

-:c3ccec3834e8
+:29bc9c36ad5f
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
 *)
 unit uMisc;
 interface
-uses uConsts, SDLh;
+uses uConsts, SDLh, uFloat;
 {$INCLUDE options.inc}
 var isCursorVisible : boolean = false;
 isTerminated    : boolean = false;
 isInLag         : boolean = false;
 isPaused        : boolean = false;
 cHedgehogTurnTime: Longword = 45000;
 cMaxAIThinkTime  : Longword = 5000;
 cCloudsNumber    : integer = 9;
 cConsoleHeight   : integer = 320;
 cConsoleYAdd     : integer = 0;
 cScreenWidth     : integer = 1024;
 cScreenHeight    : integer = 768;
 cBits            : integer = 16;
 cBitsStr         : string[2] = '16';
 cWaterColor   : Longword = $005ACE;
 cWhiteColor   : Longword = $FFFFFF;
 cConsoleSplitterColor : Longword = $FF0000;
 cColorNearBlack       : Longword = 16;
 cExplosionBorderColor : LongWord = $808080;
-cDrownSpeed   : Double = 0.06;
-cMaxWindSpeed : Double = 0.0005;
-cWindSpeed    : Double = 0.0001;
-cGravity      : Double = 0.0005;
 cShowFPS      : boolean = true;
 cCaseFactor   : Longword = 3;  {1..10}
 cFullScreen   : boolean = true;
 cLocaleFName  : shortstring = 'en.txt';
 cSeed         : shortstring = '';
 cInitVolume   : integer = 128;
 cVolumeDelta  : integer = 0;
 cTimerInterval   : Longword = 5;
 cHasFocus     : boolean = true;
 var
 cSendEmptyPacketTime : LongWord = 2000;
 cSendCursorPosTime   : LongWord = 50;
 ShowCrosshair  : boolean;
+cDrownSpeed,
+cMaxWindSpeed,
+cWindSpeed,
+cGravity: hwFloat;
 flagMakeCapture: boolean = false;
 InitStepsFlags: Longword = 0;
 AttackBar: integer = 0; // 0 - none, 1 - just bar at the right-down corner, 2 - like in WWP
-function hwSign(r: Double): integer;
+function hwSign(r: hwFloat): integer;
 function Min(a, b: integer): integer;
 function Max(a, b: integer): integer;
-procedure OutError(Msg: String; const isFatalError: boolean=false);
+function rndSign(num: hwFloat): hwFloat;
+procedure OutError(Msg: String; isFatalError: boolean);
 procedure TryDo(Assert: boolean; Msg: string; isFatal: boolean);
 procedure SDLTry(Assert: boolean; isFatal: boolean);
 function IntToStr(n: LongInt): shortstring;
-function FloatToStr(n: Double): shortstring;
+function FloatToStr(n: hwFloat): shortstring;
 function DxDy2Angle32(const _dY, _dX: Extended): integer;
 function DxDy2AttackAngle(const _dY, _dX: Extended): integer;
 procedure AdjustColor(var Color: Longword);
 {$IFDEF DEBUGFILE}
 procedure AddFileLog(s: shortstring);
 function RectToStr(Rect: TSDL_Rect): shortstring;
 {$ENDIF}
 procedure SetKB(n: Longword);
 procedure SendKB;
-procedure SetLittle(var r: Double);
+procedure SetLittle(var r: hwFloat);
 procedure SendStat(sit: TStatInfoType; s: shortstring);
+function Str2PChar(var s: shortstring): PChar;
 var CursorPoint: TPoint;
 TargetPoint: TPoint = (X: NoPointX; Y: 0);
 implementation
-uses uConsole, uStore, uIO{$IFDEF FPC}, Math{$ENDIF};
+uses uConsole, uStore, uIO, Math, uRandom;
 var KBnum: Longword = 0;
 {$IFDEF DEBUGFILE}
 var f: textfile;
 {$ENDIF}
-function hwSign(r: Double): integer;
+function hwSign(r: hwFloat): integer;
 begin
-if r < 0 then Result:= -1 else Result:= 1
+if r.isNegative then hwSign:= -1 else hwSign:= 1
 end;
 function Min(a, b: integer): integer;
 begin
-if a < b then Result:= a else Result:= b
+if a < b then Min:= a else Min:= b
 end;
 function Max(a, b: integer): integer;
 begin
-if a > b then Result:= a else Result:= b
+if a > b then Max:= a else Max:= b
 end;
-procedure OutError(Msg: String; const isFatalError: boolean=false);
+procedure OutError(Msg: String; isFatalError: boolean);
 begin
 {$IFDEF DEBUGFILE}AddFileLog(Msg);{$ENDIF}
 WriteLnToConsole(Msg);
 if isFatalError then
 begin
 Color:= SDL_MapRGB(PixelFormat, (Color shr 16) and $FF, (Color shr 8) and $FF, Color and $FF)
 end;
 function IntToStr(n: LongInt): shortstring;
 begin
-str(n, Result)
+str(n, IntToStr)
 end;
-function FloatToStr(n: Double): shortstring;
+function FloatToStr(n: hwFloat): shortstring;
 begin
-//str(n:5:5, Result)
+FloatToStr:= cstr(n)
-str(n, Result)
 end;
 {$IFNDEF FPC}
-function arctan2(const Y, X: Double): Double;
+function arctan2(const Y, X: hwFloat): hwFloat;
 asm
 fld     Y
 fld     X
 fpatan
 fwait
 {$ENDIF}
 function DxDy2Angle32(const _dY, _dX: Extended): integer;
 const _16divPI: Extended = 16/pi;
 begin
-Result:= trunc(arctan2(_dY, _dX) * _16divPI) and $1f
+DxDy2Angle32:= trunc(arctan2(_dY, _dX) * _16divPI) and $1f
 end;
 function DxDy2AttackAngle(const _dY, _dX: Extended): integer;
 const MaxAngleDivPI: Extended = cMaxAngle/pi;
 begin
-Result:= trunc(arctan2(_dY, _dX) * MaxAngleDivPI) mod cMaxAngle
+DxDy2AttackAngle:= trunc(arctan2(_dY, _dX) * MaxAngleDivPI) mod cMaxAngle
 end;
 procedure SetKB(n: Longword);
 begin
 KBnum:= n
 s:= 'K' + inttostr(KBnum);
 SendIPCRaw(@s, Length(s) + 1)
 end
 end;
-procedure SetLittle(var r: Double);
+procedure SetLittle(var r: hwFloat);
 begin
-if r >= 0 then r:= cLittle else r:= - cLittle
+if not r.isNegative then r:= cLittle else r:= - cLittle
 end;
 procedure SendStat(sit: TStatInfoType; s: shortstring);
 const stc: array [TStatInfoType] of char = 'rDK';
 begin
 SendIPC('i' + stc[sit] + s)
 end;
+function rndSign(num: hwFloat): hwFloat;
+begin
+num.isNegative:= getrandom(2) = 0;
+rndSign:= num
+end;
+function Str2PChar(var s: shortstring): PChar;
+const CharArray: array[byte] of Char = '';
+begin
+CharArray:= s;
+CharArray[Length(s)]:= #0;
+Str2PChar:= @CharArray
+end;
 {$IFDEF DEBUGFILE}
 procedure AddFileLog(s: shortstring);
 begin
 writeln(f, GameTicks: 6, ': ', s);
 flush(f)
 end;
 function RectToStr(Rect: TSDL_Rect): shortstring;
 begin
-Result:= '(x: ' + inttostr(rect.x) + '; y: ' + inttostr(rect.y) + '; w: ' + inttostr(rect.w) + '; h: ' + inttostr(rect.h) + ')'
+RectToStr:= '(x: ' + inttostr(rect.x) + '; y: ' + inttostr(rect.y) + '; w: ' + inttostr(rect.w) + '; h: ' + inttostr(rect.h) + ')'
 end;
 var i: integer;
 initialization
+cDrownSpeed.QWordValue:= 257698038;// 0.06
+cMaxWindSpeed.QWordValue:=   2147484;// 0.0005
+cWindSpeed.QWordValue:=    429496;// 0.0001
+cGravity:= cMaxWindSpeed;
 {$I-}
 for i:= 0 to 7 do
 begin
-AssignFile(f, 'debug' + inttostr(i) + '.txt');
+Assign(f, 'debug' + inttostr(i) + '.txt');
 rewrite(f);
 if IOResult = 0 then break
 end;
 {$I+}
 finalization
 writeln(f, '-= halt at ',GameTicks,' ticks =-');
 Flush(f);
-closefile(f)
+close(f)
 {$ENDIF}
 end.

changeset 351	29bc9c36ad5f
parent 346	fc1e0a4f152c
child 370	c75410fe3133