--- a/hedgewars/uMisc.pas Mon Aug 22 21:38:06 2005 +0000
+++ b/hedgewars/uMisc.pas Tue Aug 23 16:17:53 2005 +0000
@@ -1,210 +1,210 @@
-(*
- * Hedgewars, a worms-like game
- * Copyright (c) 2004, 2005 Andrey Korotaev <unC0Rr@gmail.com>
- *
- * Distributed under the terms of the BSD-modified licence:
- *
- * Permission is hereby granted, free of charge, to any person obtaining a copy
- * of this software and associated documentation files (the "Software"), to deal
- * with the Software without restriction, including without limitation the
- * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
- * sell copies of the Software, and to permit persons to whom the Software is
- * furnished to do so, subject to the following conditions:
- *
- * 1. Redistributions of source code must retain the above copyright notice,
- * this list of conditions and the following disclaimer.
- * 2. Redistributions in binary form must reproduce the above copyright notice,
- * this list of conditions and the following disclaimer in the documentation
- * and/or other materials provided with the distribution.
- * 3. The name of the author may not be used to endorse or promote products
- * derived from this software without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
- * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
- * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
- * EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
- * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
- * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
- * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
- * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
- * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- *)
-
-unit uMisc;
-interface
-uses uConsts, SDLh;
-{$INCLUDE options.inc}
-var isCursorVisible : boolean = false;
- isTerminated : boolean = false;
- isInLag : boolean = false;
- isSoundEnabled : boolean = true;
- isInMultiShoot : boolean = false;
-
- GameState : TGameState = gsLandGen;
- GameType : TGameType = gmtLocal;
- GameFlags : Longword = 0;
- TurnTimeLeft : Longword = 0;
- cHedgehogTurnTime: Longword = 30000;
-
- cLandYShift : integer = 888;
- cCloudsNumber : integer = 9;
- cConsoleHeight : integer = 320;
- cConsoleYAdd : integer = 0;
- cTimerInterval : Cardinal = 15;
- cScreenWidth : integer = 1024;
- cScreenHeight : integer = 768;
- cBits : integer = 16;
- cWaterLine : integer = 1024;
- cVisibleWater : integer = 64;
- cScreenEdgesDist : integer = 240;
-
- GameTicks : LongWord = 0;
-
- cSkyColor : Cardinal = 0;
- cWaterColor : Cardinal = $32397A;
- cMapBackColor : Cardinal = $FFFFFF;
- cWhiteColor : Cardinal = $FFFFFF;
- cConsoleSplitterColor : Cardinal = $FF0000;
- cColorNearBlack : Cardinal = 16;
- cExplosionBorderColor : LongWord = $808080;
-
- cDrownSpeed : Real = 0.06;
- cMaxWindSpeed : Real = 0.0003;
- cWindSpeed : Real = 0.0001;
- cGravity : Real = 0.0005;
-
- cShowFPS : boolean = true;
- cFullScreen : boolean = true;
-
-const
- cMaxPower = 1500;
- cMaxAngle = 2048;
- cPowerDivisor = 1500;
-
-var
- cSendEmptyPacketTime : LongWord = 2000;
- cSendCursorPosTime : LongWord = 50;
-
- flagMakeCapture: boolean = false;
-
- AttackBar : integer = 0; // 0 - отсутствует, 1 - внизу, 2 - как в wwp
-
-function Sign(r: real): integer;
-function Min(a, b: integer): integer;
-function Max(a, b: integer): integer;
-procedure OutError(Msg: String; const isFatalError: boolean=false);
-procedure TryDo(Assert: boolean; Msg: string; isFatal: boolean);
-procedure SDLTry(Assert: boolean; isFatal: boolean);
-function IntToStr(n: integer): shortstring;
-function FloatToStr(n: real): shortstring;
-function arctan(const Y, X: real): real;
-function DxDy2Angle32(const _dY, _dX: Extended): integer;
-procedure AdjustColor(var Color: Longword);
-{$IFDEF DEBUGFILE}
-procedure AddFileLog(s: shortstring);
-{$ENDIF}
-
-var CursorPoint: TPoint;
- TargetPoint: TPoint = (X: NoPointX; Y: 0);
-
-implementation
-uses uConsole, uStore;
-{$IFDEF DEBUGFILE}
-var f: textfile;
-{$ENDIF}
-
-
-function Sign(r: real): integer;
-begin
-if r < 0 then Result:= -1 else Result:= 1
-end;
-
-function Min(a, b: integer): integer;
-begin
-if a < b then Result:= a else Result:= b
-end;
-
-function Max(a, b: integer): integer;
-begin
-if a > b then Result:= a else Result:= b
-end;
-
-procedure OutError(Msg: String; const isFatalError: boolean=false);
-begin
-{$IFDEF DEBUGFILE}AddFileLog(Msg);{$ENDIF}
-if isFatalError then
- begin
- WriteLn(Msg);
- SDL_Quit;
- Readln;
- halt(1)
- end else WriteLnToConsole(Msg)
-end;
-
-procedure TryDo(Assert: boolean; Msg: string; isFatal: boolean);
-begin
-if not Assert then OutError(msg, isFatal)
-end;
-
-procedure SDLTry(Assert: boolean; isFatal: boolean);
-begin
-if not Assert then OutError(SDL_GetError, isFatal)
-end;
-
-procedure AdjustColor(var Color: Cardinal);
-begin
-Color:= SDL_MapRGB(PixelFormat, (Color shr 16) and $FF, (Color shr 8) and $FF, Color and $FF)
-end;
-
-function IntToStr(n: integer): shortstring;
-begin
-str(n, Result)
-end;
-
-function FloatToStr(n: real): shortstring;
-begin
-str(n, Result)
-end;
-
-function arctan(const Y, X: real): real;
-asm
- fld Y
- fld X
- fpatan
- fwait
-end;
-
-function DxDy2Angle32(const _dY, _dX: Extended): integer;
-const piDIV32: Extended = pi/32;
-asm
- fld _dY
- fld _dX
- fpatan
- fld piDIV32
- fdiv
- sub esp, 4
- fistp dword ptr [esp]
- pop eax
- shr eax, 1
- and eax, $1F
-end;
-
-
-{$IFDEF DEBUGFILE}
-procedure AddFileLog(s: shortstring);
-begin
-writeln(f, GameTicks: 6, ': ', s);
-flush(f)
-end;
-
-initialization
-assignfile(f, 'debug.txt');
-rewrite(f);
-finalization
-writeln(f, '-= halt at ',GameTicks,' ticks =-');
-Flush(f);
-closefile(f)
-{$ENDIF}
-
-end.
+(*
+ * Hedgewars, a worms-like game
+ * Copyright (c) 2004, 2005 Andrey Korotaev <unC0Rr@gmail.com>
+ *
+ * Distributed under the terms of the BSD-modified licence:
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * with the Software without restriction, including without limitation the
+ * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
+ * sell copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * 1. Redistributions of source code must retain the above copyright notice,
+ * this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright notice,
+ * this list of conditions and the following disclaimer in the documentation
+ * and/or other materials provided with the distribution.
+ * 3. The name of the author may not be used to endorse or promote products
+ * derived from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
+ * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+ * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
+ * EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+ * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
+ * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+ * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
+ * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+ * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ *)
+
+unit uMisc;
+interface
+uses uConsts, SDLh;
+{$INCLUDE options.inc}
+var isCursorVisible : boolean = false;
+ isTerminated : boolean = false;
+ isInLag : boolean = false;
+ isSoundEnabled : boolean = true;
+ isInMultiShoot : boolean = false;
+
+ GameState : TGameState = gsLandGen;
+ GameType : TGameType = gmtLocal;
+ GameFlags : Longword = 0;
+ TurnTimeLeft : Longword = 0;
+ cHedgehogTurnTime: Longword = 30000;
+
+ cLandYShift : integer = 888;
+ cCloudsNumber : integer = 9;
+ cConsoleHeight : integer = 320;
+ cConsoleYAdd : integer = 0;
+ cTimerInterval : Cardinal = 15;
+ cScreenWidth : integer = 1024;
+ cScreenHeight : integer = 768;
+ cBits : integer = 16;
+ cWaterLine : integer = 1024;
+ cVisibleWater : integer = 64;
+ cScreenEdgesDist : integer = 240;
+
+ GameTicks : LongWord = 0;
+
+ cSkyColor : Cardinal = 0;
+ cWaterColor : Cardinal = $32397A;
+ cMapBackColor : Cardinal = $FFFFFF;
+ cWhiteColor : Cardinal = $FFFFFF;
+ cConsoleSplitterColor : Cardinal = $FF0000;
+ cColorNearBlack : Cardinal = 16;
+ cExplosionBorderColor : LongWord = $808080;
+
+ cDrownSpeed : Real = 0.06;
+ cMaxWindSpeed : Real = 0.0003;
+ cWindSpeed : Real = 0.0001;
+ cGravity : Real = 0.0005;
+
+ cShowFPS : boolean = true;
+ cFullScreen : boolean = true;
+
+const
+ cMaxPower = 1500;
+ cMaxAngle = 2048;
+ cPowerDivisor = 1500;
+
+var
+ cSendEmptyPacketTime : LongWord = 2000;
+ cSendCursorPosTime : LongWord = 50;
+
+ flagMakeCapture: boolean = false;
+
+ AttackBar : integer = 0; // 0 - отсутствует, 1 - внизу, 2 - как в wwp
+
+function Sign(r: real): integer;
+function Min(a, b: integer): integer;
+function Max(a, b: integer): integer;
+procedure OutError(Msg: String; const isFatalError: boolean=false);
+procedure TryDo(Assert: boolean; Msg: string; isFatal: boolean);
+procedure SDLTry(Assert: boolean; isFatal: boolean);
+function IntToStr(n: integer): shortstring;
+function FloatToStr(n: real): shortstring;
+function arctan(const Y, X: real): real;
+function DxDy2Angle32(const _dY, _dX: Extended): integer;
+procedure AdjustColor(var Color: Longword);
+{$IFDEF DEBUGFILE}
+procedure AddFileLog(s: shortstring);
+{$ENDIF}
+
+var CursorPoint: TPoint;
+ TargetPoint: TPoint = (X: NoPointX; Y: 0);
+
+implementation
+uses uConsole, uStore;
+{$IFDEF DEBUGFILE}
+var f: textfile;
+{$ENDIF}
+
+
+function Sign(r: real): integer;
+begin
+if r < 0 then Result:= -1 else Result:= 1
+end;
+
+function Min(a, b: integer): integer;
+begin
+if a < b then Result:= a else Result:= b
+end;
+
+function Max(a, b: integer): integer;
+begin
+if a > b then Result:= a else Result:= b
+end;
+
+procedure OutError(Msg: String; const isFatalError: boolean=false);
+begin
+{$IFDEF DEBUGFILE}AddFileLog(Msg);{$ENDIF}
+if isFatalError then
+ begin
+ WriteLn(Msg);
+ SDL_Quit;
+ Readln;
+ halt(1)
+ end else WriteLnToConsole(Msg)
+end;
+
+procedure TryDo(Assert: boolean; Msg: string; isFatal: boolean);
+begin
+if not Assert then OutError(msg, isFatal)
+end;
+
+procedure SDLTry(Assert: boolean; isFatal: boolean);
+begin
+if not Assert then OutError(SDL_GetError, isFatal)
+end;
+
+procedure AdjustColor(var Color: Cardinal);
+begin
+Color:= SDL_MapRGB(PixelFormat, (Color shr 16) and $FF, (Color shr 8) and $FF, Color and $FF)
+end;
+
+function IntToStr(n: integer): shortstring;
+begin
+str(n, Result)
+end;
+
+function FloatToStr(n: real): shortstring;
+begin
+str(n, Result)
+end;
+
+function arctan(const Y, X: real): real;
+asm
+ fld Y
+ fld X
+ fpatan
+ fwait
+end;
+
+function DxDy2Angle32(const _dY, _dX: Extended): integer;
+const piDIV32: Extended = pi/32;
+asm
+ fld _dY
+ fld _dX
+ fpatan
+ fld piDIV32
+ fdiv
+ sub esp, 4
+ fistp dword ptr [esp]
+ pop eax
+ shr eax, 1
+ and eax, $1F
+end;
+
+
+{$IFDEF DEBUGFILE}
+procedure AddFileLog(s: shortstring);
+begin
+writeln(f, GameTicks: 6, ': ', s);
+flush(f)
+end;
+
+initialization
+assignfile(f, 'debug.txt');
+rewrite(f);
+finalization
+writeln(f, '-= halt at ',GameTicks,' ticks =-');
+Flush(f);
+closefile(f)
+{$ENDIF}
+
+end.