hedgewars/uUtils.pas
author unc0rr
Sun, 21 Nov 2010 17:48:58 +0300
changeset 4398 36d7e4b6ca81
parent 4385 f679ffa2dc8c
child 4403 0dfe26f48ec1
permissions -rw-r--r--
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
     1
{$INCLUDE "options.inc"}
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
     2
unit uUtils;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
     3
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
     4
interface
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
     5
uses uTypes, uFloat, GLunit;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
     6
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
     7
procedure SplitBySpace(var a, b: shortstring);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
     8
procedure SplitByChar(var a, b: ansistring; c: char);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
     9
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    10
function  EnumToStr(const en : TGearType) : shortstring; overload;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    11
function  EnumToStr(const en : TSound) : shortstring; overload;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    12
function  EnumToStr(const en : TAmmoType) : shortstring; overload;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    13
function  EnumToStr(const en : THogEffect) : shortstring; overload;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    14
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    15
function  Min(a, b: LongInt): LongInt; inline;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    16
function  Max(a, b: LongInt): LongInt; inline;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    17
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    18
function  IntToStr(n: LongInt): shortstring;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    19
function  FloatToStr(n: hwFloat): shortstring;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    20
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    21
function  DxDy2Angle(const _dY, _dX: hwFloat): GLfloat;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    22
function  DxDy2Angle32(const _dY, _dX: hwFloat): LongInt;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    23
function  DxDy2AttackAngle(const _dY, _dX: hwFloat): LongInt;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    24
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    25
procedure SetLittle(var r: hwFloat);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    26
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    27
function  Str2PChar(const s: shortstring): PChar;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    28
function  DecodeBase64(s: shortstring): shortstring;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    29
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    30
function  isPowerOf2(i: Longword): boolean;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    31
function  toPowerOf2(i: Longword): Longword; inline;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    32
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    33
function  endian(independent: LongWord): LongWord; inline;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    34
4380
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
    35
function  CheckCJKFont(s: ansistring; font: THWFont): THWFont;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
    36
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    37
{$IFDEF DEBUGFILE}
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    38
procedure AddFileLog(s: shortstring);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    39
{$ENDIF}
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    40
4398
36d7e4b6ca81 Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents: 4385
diff changeset
    41
function CheckNoTeamOrHH: boolean; inline;
36d7e4b6ca81 Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents: 4385
diff changeset
    42
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    43
procedure initModule;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    44
procedure freeModule;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    45
4385
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
    46
function  GetLaunchX(at: TAmmoType; dir: LongInt; angle: LongInt): LongInt;
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
    47
function  GetLaunchY(at: TAmmoType; angle: LongInt): LongInt;
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
    48
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    49
implementation
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    50
uses typinfo, Math, uConsts, uVariables, SysUtils;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    51
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    52
var
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    53
{$IFDEF DEBUGFILE}
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    54
    f: textfile;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    55
{$ENDIF}
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    56
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    57
// should this include "strtolower()" for the split string?
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    58
procedure SplitBySpace(var a, b: shortstring);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    59
var i, t: LongInt;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    60
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    61
i:= Pos(' ', a);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    62
if i > 0 then
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    63
    begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    64
    for t:= 1 to Pred(i) do
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    65
        if (a[t] >= 'A')and(a[t] <= 'Z') then Inc(a[t], 32);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    66
    b:= copy(a, i + 1, Length(a) - i);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    67
    byte(a[0]):= Pred(i)
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    68
    end else b:= '';
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    69
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    70
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    71
procedure SplitByChar(var a, b: ansistring; c: char);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    72
var i: LongInt;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    73
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    74
i:= Pos(c, a);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    75
if i > 0 then
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    76
    begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    77
    b:= copy(a, i + 1, Length(a) - i);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    78
    setlength(a, Pred(i));
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    79
    end else b:= '';
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    80
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    81
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    82
function EnumToStr(const en : TGearType) : shortstring; overload;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    83
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    84
EnumToStr:= GetEnumName(TypeInfo(TGearType), ord(en))
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    85
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    86
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    87
function EnumToStr(const en : TSound) : shortstring; overload;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    88
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    89
EnumToStr:= GetEnumName(TypeInfo(TSound), ord(en))
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    90
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    91
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    92
function EnumToStr(const en : TAmmoType) : shortstring; overload;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    93
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    94
EnumToStr:= GetEnumName(TypeInfo(TAmmoType), ord(en))
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    95
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    96
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    97
function EnumToStr(const en: THogEffect) : shortstring; overload;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    98
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
    99
    EnumToStr := GetEnumName(TypeInfo(THogEffect), ord(en))
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   100
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   101
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   102
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   103
function Min(a, b: LongInt): LongInt;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   104
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   105
if a < b then Min:= a else Min:= b
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   106
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   107
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   108
function Max(a, b: LongInt): LongInt;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   109
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   110
if a > b then Max:= a else Max:= b
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   111
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   112
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   113
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   114
function IntToStr(n: LongInt): shortstring;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   115
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   116
str(n, IntToStr)
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   117
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   118
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   119
function FloatToStr(n: hwFloat): shortstring;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   120
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   121
FloatToStr:= cstr(n) + '_' + inttostr(Lo(n.QWordValue))
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   122
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   123
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   124
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   125
function DxDy2Angle(const _dY, _dX: hwFloat): GLfloat;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   126
var dY, dX: Extended;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   127
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   128
dY:= _dY.QWordValue / $100000000;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   129
if _dY.isNegative then dY:= - dY;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   130
dX:= _dX.QWordValue / $100000000;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   131
if _dX.isNegative then dX:= - dX;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   132
DxDy2Angle:= arctan2(dY, dX) * 180 / pi
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   133
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   134
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   135
function DxDy2Angle32(const _dY, _dX: hwFloat): LongInt;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   136
const _16divPI: Extended = 16/pi;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   137
var dY, dX: Extended;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   138
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   139
dY:= _dY.QWordValue / $100000000;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   140
if _dY.isNegative then dY:= - dY;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   141
dX:= _dX.QWordValue / $100000000;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   142
if _dX.isNegative then dX:= - dX;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   143
DxDy2Angle32:= trunc(arctan2(dY, dX) * _16divPI) and $1f
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   144
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   145
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   146
function DxDy2AttackAngle(const _dY, _dX: hwFloat): LongInt;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   147
const MaxAngleDivPI: Extended = cMaxAngle/pi;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   148
var dY, dX: Extended;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   149
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   150
dY:= _dY.QWordValue / $100000000;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   151
if _dY.isNegative then dY:= - dY;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   152
dX:= _dX.QWordValue / $100000000;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   153
if _dX.isNegative then dX:= - dX;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   154
DxDy2AttackAngle:= trunc(arctan2(dY, dX) * MaxAngleDivPI)
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   155
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   156
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   157
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   158
procedure SetLittle(var r: hwFloat);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   159
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   160
r:= SignAs(cLittle, r)
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   161
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   162
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   163
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   164
function isPowerOf2(i: Longword): boolean;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   165
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   166
if i = 0 then exit(true);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   167
while not odd(i) do i:= i shr 1;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   168
isPowerOf2:= (i = 1)
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   169
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   170
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   171
function toPowerOf2(i: Longword): Longword;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   172
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   173
toPowerOf2:= 1;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   174
while (toPowerOf2 < i) do toPowerOf2:= toPowerOf2 shl 1
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   175
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   176
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   177
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   178
function DecodeBase64(s: shortstring): shortstring;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   179
const table = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   180
var i, t, c: Longword;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   181
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   182
c:= 0;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   183
for i:= 1 to Length(s) do
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   184
    begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   185
    t:= Pos(s[i], table);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   186
    if s[i] = '=' then inc(c);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   187
    if t > 0 then byte(s[i]):= t - 1 else byte(s[i]):= 0
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   188
    end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   189
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   190
i:= 1;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   191
t:= 1;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   192
while i <= length(s) do
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   193
    begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   194
    DecodeBase64[t    ]:= char((byte(s[i    ]) shl 2) or (byte(s[i + 1]) shr 4));
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   195
    DecodeBase64[t + 1]:= char((byte(s[i + 1]) shl 4) or (byte(s[i + 2]) shr 2));
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   196
    DecodeBase64[t + 2]:= char((byte(s[i + 2]) shl 6) or (byte(s[i + 3])      ));
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   197
    inc(t, 3);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   198
    inc(i, 4)
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   199
    end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   200
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   201
if c < 3 then t:= t - c;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   202
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   203
byte(DecodeBase64[0]):= t - 1
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   204
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   205
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   206
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   207
function Str2PChar(const s: shortstring): PChar;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   208
const CharArray: array[byte] of Char = '';
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   209
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   210
CharArray:= s;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   211
CharArray[Length(s)]:= #0;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   212
Str2PChar:= @CharArray
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   213
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   214
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   215
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   216
function endian(independent: LongWord): LongWord; inline;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   217
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   218
{$IFDEF ENDIAN_LITTLE}
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   219
endian:= independent;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   220
{$ELSE}
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   221
endian:= (((independent and $FF000000) shr 24) or
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   222
          ((independent and $00FF0000) shr 8) or
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   223
          ((independent and $0000FF00) shl 8) or
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   224
          ((independent and $000000FF) shl 24))
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   225
{$ENDIF}
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   226
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   227
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   228
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   229
{$IFDEF DEBUGFILE}
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   230
procedure AddFileLog(s: shortstring);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   231
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   232
writeln(f, GameTicks: 6, ': ', s);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   233
flush(f)
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   234
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   235
{$ENDIF}
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   236
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   237
4380
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   238
function CheckCJKFont(s: ansistring; font: THWFont): THWFont;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   239
var l, i : LongInt;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   240
    u: WideChar;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   241
    tmpstr: array[0..256] of WideChar;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   242
begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   243
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   244
{$IFNDEF IPHONEOS}
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   245
// remove chinese fonts for now
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   246
if (font >= CJKfnt16) or (length(s) = 0) then
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   247
{$ENDIF}
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   248
    exit(font);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   249
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   250
l:= Utf8ToUnicode(@tmpstr, Str2PChar(s), length(s))-1;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   251
i:= 0;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   252
while i < l do
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   253
    begin
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   254
    u:= tmpstr[i];
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   255
    if (#$2E80  <= u) and  (
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   256
                           (u <= #$2FDF )  or // CJK Radicals Supplement / Kangxi Radicals
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   257
       ((#$2FF0  <= u) and (u <= #$303F))  or // Ideographic Description Characters / CJK Radicals Supplement
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   258
       ((#$31C0  <= u) and (u <= #$31EF))  or // CJK Strokes
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   259
       ((#$3200  <= u) and (u <= #$4DBF))  or // Enclosed CJK Letters and Months / CJK Compatibility / CJK Unified Ideographs Extension A
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   260
       ((#$4E00  <= u) and (u <= #$9FFF))  or // CJK Unified Ideographs
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   261
       ((#$F900  <= u) and (u <= #$FAFF))  or // CJK Compatibility Ideographs
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   262
       ((#$FE30  <= u) and (u <= #$FE4F)))    // CJK Compatibility Forms
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   263
       then exit(THWFont( ord(font) + ((ord(High(THWFont))+1) div 2) ));
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   264
    inc(i)
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   265
    end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   266
exit(font);
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   267
(* two more to check. pascal WideChar is only 16 bit though
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   268
       ((#$20000 <= u) and (u >= #$2A6DF)) or // CJK Unified Ideographs Extension B
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   269
       ((#$2F800 <= u) and (u >= #$2FA1F)))   // CJK Compatibility Ideographs Supplement *)
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   270
end;
b78638b36b89 Introduce uRenderUtils
unC0Rr
parents: 4374
diff changeset
   271
4385
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
   272
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
   273
function GetLaunchX(at: TAmmoType; dir: LongInt; angle: LongInt): LongInt;
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
   274
begin
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
   275
    if (Ammoz[at].ejectX <> 0) or (Ammoz[at].ejectY <> 0) then
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
   276
        GetLaunchX:= sign(dir) * (8 + hwRound(AngleSin(angle) * Ammoz[at].ejectX) + hwRound(AngleCos(angle) * Ammoz[at].ejectY))
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
   277
    else
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
   278
        GetLaunchX:= 0
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
   279
end;
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
   280
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
   281
function GetLaunchY(at: TAmmoType; angle: LongInt): LongInt;
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
   282
begin
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
   283
    if (Ammoz[at].ejectX <> 0) or (Ammoz[at].ejectY <> 0) then
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
   284
        GetLaunchY:= hwRound(AngleSin(angle) * Ammoz[at].ejectY) - hwRound(AngleCos(angle) * Ammoz[at].ejectX) - 2
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
   285
    else
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
   286
        GetLaunchY:= 0
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
   287
end;
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
   288
4398
36d7e4b6ca81 Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents: 4385
diff changeset
   289
function CheckNoTeamOrHH: boolean;
36d7e4b6ca81 Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents: 4385
diff changeset
   290
var bRes: boolean;
36d7e4b6ca81 Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents: 4385
diff changeset
   291
begin
36d7e4b6ca81 Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents: 4385
diff changeset
   292
CheckNoTeamOrHH:= (CurrentTeam = nil) or (CurrentHedgehog^.Gear = nil);
36d7e4b6ca81 Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents: 4385
diff changeset
   293
end;
4385
f679ffa2dc8c Introduce uGearsRender
unc0rr
parents: 4380
diff changeset
   294
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   295
procedure initModule;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   296
{$IFDEF DEBUGFILE}{$IFNDEF IPHONEOS}var i: LongInt;{$ENDIF}{$ENDIF}
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   297
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   298
{$IFDEF DEBUGFILE}
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   299
{$I-}
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   300
{$IFDEF IPHONEOS}
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   301
    Assign(f,'../Documents/hw-' + cLogfileBase + '.log');
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   302
    Rewrite(f);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   303
{$ELSE}
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   304
    if (ParamStr(1) <> '') and (ParamStr(2) <> '') then
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   305
        if (ParamCount <> 3) and (ParamCount <> cDefaultParamNum) then
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   306
        begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   307
            for i:= 0 to 7 do
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   308
            begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   309
                assign(f, ExtractFileDir(ParamStr(2)) + '/' + cLogfileBase + inttostr(i) + '.log');
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   310
                rewrite(f);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   311
                if IOResult = 0 then break;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   312
            end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   313
            if IOResult <> 0 then f:= stderr; // if everything fails, write to stderr
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   314
        end
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   315
        else
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   316
        begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   317
            for i:= 0 to 7 do
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   318
            begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   319
                assign(f, ParamStr(1) + '/Logs/' + cLogfileBase + inttostr(i) + '.log');
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   320
                rewrite(f);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   321
                if IOResult = 0 then break;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   322
            end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   323
            if IOResult <> 0 then f:= stderr; // if everything fails, write to stderr
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   324
        end
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   325
    else
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   326
        f:= stderr;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   327
{$ENDIF}
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   328
{$I+}
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   329
{$ENDIF}
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   330
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   331
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   332
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   333
procedure freeModule;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   334
begin
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   335
    recordFileName:= '';
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   336
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   337
{$IFDEF DEBUGFILE}
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   338
    writeln(f, 'halt at ', GameTicks, ' ticks. TurnTimeLeft = ', TurnTimeLeft);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   339
    flush(f);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   340
    close(f);
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   341
{$ENDIF}
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   342
end;
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   343
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents:
diff changeset
   344
end.