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