hedgewars/uConsole.pas
author nemo
Sun, 24 Jan 2010 16:46:06 +0000
changeset 2712 8f4527c9137c
parent 2699 249adefa9c1c
child 2747 7889a3a9724f
permissions -rw-r--r--
Minor tweak, try to make long flavour text last longer, move the hurt self messages to unused messages group, so they don't get wiped by crate an instant later.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
     1
(*
1066
1f1b3686a2b0 Update copyright headers a bit
unc0rr
parents: 1035
diff changeset
     2
 * Hedgewars, a free turn based strategy game
883
07a568ba44e0 Update copyright info in source files headers
unc0rr
parents: 871
diff changeset
     3
 * Copyright (c) 2004-2008 Andrey Korotaev <unC0Rr@gmail.com>
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
     4
 *
183
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
     5
 * This program is free software; you can redistribute it and/or modify
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
     6
 * it under the terms of the GNU General Public License as published by
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
     7
 * the Free Software Foundation; version 2 of the License
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
     8
 *
183
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
     9
 * This program is distributed in the hope that it will be useful,
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
    10
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
    11
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
    12
 * GNU General Public License for more details.
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    13
 *
183
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
    14
 * You should have received a copy of the GNU General Public License
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
    15
 * along with this program; if not, write to the Free Software
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
    16
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    17
 *)
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    18
2630
079ef82eac75 revamped file access and debug display
koda
parents: 2599
diff changeset
    19
{$INCLUDE "options.inc"}
079ef82eac75 revamped file access and debug display
koda
parents: 2599
diff changeset
    20
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    21
unit uConsole;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    22
interface
988
cdff3f6f9b38 Get rid of old console
unc0rr
parents: 970
diff changeset
    23
uses uFloat;
2630
079ef82eac75 revamped file access and debug display
koda
parents: 2599
diff changeset
    24
2699
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
    25
var isDeveloperMode: boolean;
371
731ad6d27bd1 integer -> LongInt
unc0rr
parents: 351
diff changeset
    26
type TVariableType = (vtCommand, vtLongInt, vthwFloat, vtBoolean);
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    27
     TCommandHandler = procedure (var params: shortstring);
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    28
2699
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
    29
procedure init_uConsole;
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
    30
procedure free_uConsole;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    31
procedure WriteToConsole(s: shortstring);
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    32
procedure WriteLnToConsole(s: shortstring);
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 312
diff changeset
    33
procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean);
936
ba582673db7d Fix 'AI may break demos playing' message while loading saves
unc0rr
parents: 917
diff changeset
    34
procedure StopMessages(Message: Longword);
53
0e27949850e3 - Fixed bubble theme object
unc0rr
parents: 51
diff changeset
    35
function  GetLastConsoleLine: shortstring;
1792
c30c6944bd49 engine part of nemo's patch
unc0rr
parents: 1782
diff changeset
    36
procedure SplitBySpace(var a, b: shortstring);
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    37
543
465e2ec8f05f - Better randomness of placing hedgehogs on the land
unc0rr
parents: 539
diff changeset
    38
procedure doPut(putX, putY: LongInt; fromAI: boolean);
465e2ec8f05f - Better randomness of placing hedgehogs on the land
unc0rr
parents: 539
diff changeset
    39
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    40
implementation
288
929c44745fd9 Ammo schemes and ammo stores support in engine
unc0rr
parents: 281
diff changeset
    41
uses uMisc, uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uWorld, uLand,
2042
905c554d62e6 Move Speech to visual gears. This checkin CRASHES on deletion of visual gear outside the doStep
nemo
parents: 2031
diff changeset
    42
     uRandom, uAmmos, uTriggers, uStats, uGame, uChat, SDLh, uSound, uVisualGears;
950
feb18ec0c5c2 Add nickname to message in more appropriate place
unc0rr
parents: 946
diff changeset
    43
371
731ad6d27bd1 integer -> LongInt
unc0rr
parents: 351
diff changeset
    44
const cLineWidth: LongInt = 0;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    45
      cLinesCount = 256;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 312
diff changeset
    46
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    47
type  PVariable = ^TVariable;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    48
      TVariable = record
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    49
                     Next: PVariable;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    50
                     Name: string[15];
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    51
                    VType: TVariableType;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    52
                  Handler: pointer;
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 166
diff changeset
    53
                  Trusted: boolean;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    54
                  end;
785
ac538f1a629e Start console OpenGL reincarnation
unc0rr
parents: 783
diff changeset
    55
      TTextLine = record
ac538f1a629e Start console OpenGL reincarnation
unc0rr
parents: 783
diff changeset
    56
                  s: shortstring;
ac538f1a629e Start console OpenGL reincarnation
unc0rr
parents: 783
diff changeset
    57
                  end;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    58
785
ac538f1a629e Start console OpenGL reincarnation
unc0rr
parents: 783
diff changeset
    59
var   ConsoleLines: array[byte] of TTextLine;
2699
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
    60
      CurrLine: LongInt;
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
    61
      Variables: PVariable;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    62
785
ac538f1a629e Start console OpenGL reincarnation
unc0rr
parents: 783
diff changeset
    63
procedure SetLine(var tl: TTextLine; str: shortstring);
ac538f1a629e Start console OpenGL reincarnation
unc0rr
parents: 783
diff changeset
    64
begin
ac538f1a629e Start console OpenGL reincarnation
unc0rr
parents: 783
diff changeset
    65
with tl do
ac538f1a629e Start console OpenGL reincarnation
unc0rr
parents: 783
diff changeset
    66
     s:= str;
ac538f1a629e Start console OpenGL reincarnation
unc0rr
parents: 783
diff changeset
    67
end;
ac538f1a629e Start console OpenGL reincarnation
unc0rr
parents: 783
diff changeset
    68
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 166
diff changeset
    69
function RegisterVariable(Name: string; VType: TVariableType; p: pointer; Trusted: boolean): PVariable;
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2630
diff changeset
    70
var value: PVariable;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    71
begin
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2630
diff changeset
    72
New(value);
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2630
diff changeset
    73
TryDo(value <> nil, 'RegisterVariable: value = nil', true);
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2630
diff changeset
    74
FillChar(value^, sizeof(TVariable), 0);
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2630
diff changeset
    75
value^.Name:= Name;
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2630
diff changeset
    76
value^.VType:= VType;
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2630
diff changeset
    77
value^.Handler:= p;
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2630
diff changeset
    78
value^.Trusted:= Trusted;
167
805fa9a27e9e "Trusted" binds
unc0rr
parents: 166
diff changeset
    79
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2630
diff changeset
    80
if Variables = nil then Variables:= value
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    81
                   else begin
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2630
diff changeset
    82
                        value^.Next:= Variables;
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2630
diff changeset
    83
                        Variables:= value
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 312
diff changeset
    84
                        end;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 312
diff changeset
    85
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2630
diff changeset
    86
RegisterVariable:= value;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    87
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    88
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    89
procedure FreeVariablesList;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    90
var t, tt: PVariable;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    91
begin
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    92
tt:= Variables;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    93
Variables:= nil;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 312
diff changeset
    94
while tt <> nil do
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    95
      begin
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    96
      t:= tt;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 312
diff changeset
    97
      tt:= tt^.Next;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    98
      Dispose(t)
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    99
      end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   100
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   101
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   102
procedure SplitBySpace(var a, b: shortstring);
371
731ad6d27bd1 integer -> LongInt
unc0rr
parents: 351
diff changeset
   103
var i, t: LongInt;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   104
begin
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   105
i:= Pos(' ', a);
1850
a0332e79fdc9 a patch :P
unc0rr
parents: 1821
diff changeset
   106
if i > 0 then
a0332e79fdc9 a patch :P
unc0rr
parents: 1821
diff changeset
   107
	begin
a0332e79fdc9 a patch :P
unc0rr
parents: 1821
diff changeset
   108
	for t:= 1 to Pred(i) do
a0332e79fdc9 a patch :P
unc0rr
parents: 1821
diff changeset
   109
		if (a[t] >= 'A')and(a[t] <= 'Z') then Inc(a[t], 32);
a0332e79fdc9 a patch :P
unc0rr
parents: 1821
diff changeset
   110
	b:= copy(a, i + 1, Length(a) - i);
a0332e79fdc9 a patch :P
unc0rr
parents: 1821
diff changeset
   111
	byte(a[0]):= Pred(i)
a0332e79fdc9 a patch :P
unc0rr
parents: 1821
diff changeset
   112
	end else b:= '';
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   113
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   114
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   115
procedure WriteToConsole(s: shortstring);
371
731ad6d27bd1 integer -> LongInt
unc0rr
parents: 351
diff changeset
   116
var Len: LongInt;
2699
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   117
    done: boolean;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   118
begin
2699
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   119
	{$IFDEF DEBUGFILE}AddFileLog('Console write: ' + s);{$ENDIF}
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   120
	Write(s);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   121
	done:= false;
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   122
	
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   123
	while not done do
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   124
	begin
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   125
		Len:= cLineWidth - Length(ConsoleLines[CurrLine].s);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   126
		SetLine(ConsoleLines[CurrLine], ConsoleLines[CurrLine].s + copy(s, 1, Len));
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   127
		Delete(s, 1, Len);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   128
		if byte(ConsoleLines[CurrLine].s[0]) = cLineWidth then
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   129
		begin
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   130
			inc(CurrLine);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   131
			if CurrLine = cLinesCount then CurrLine:= 0;
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   132
			PByte(@ConsoleLines[CurrLine].s)^:= 0
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   133
		end;
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   134
		done:= (Length(s) = 0);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   135
	end;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   136
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   137
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   138
procedure WriteLnToConsole(s: shortstring);
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   139
begin
2699
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   140
	WriteToConsole(s);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   141
	WriteLn;
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   142
	inc(CurrLine);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   143
	if CurrLine = cLinesCount then
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   144
		CurrLine:= 0;
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   145
	PByte(@ConsoleLines[CurrLine].s)^:= 0
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   146
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   147
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 312
diff changeset
   148
procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 312
diff changeset
   149
type PhwFloat = ^hwFloat;
495
62c1c2b4414c - Fix most of the warnings in hwengine
unc0rr
parents: 415
diff changeset
   150
var ii: LongInt;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   151
    s: shortstring;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   152
    t: PVariable;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   153
    c: char;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   154
begin
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   155
//WriteLnToConsole(CmdStr);
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   156
if CmdStr[0]=#0 then exit;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   157
{$IFDEF DEBUGFILE}AddFileLog('ParseCommand "' + CmdStr + '"');{$ENDIF}
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   158
c:= CmdStr[1];
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   159
if c in ['/', '$'] then Delete(CmdStr, 1, 1) else c:= '/';
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   160
SplitBySpace(CmdStr, s);
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   161
t:= Variables;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   162
while t <> nil do
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   163
      begin
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 312
diff changeset
   164
      if t^.Name = CmdStr then
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   165
         begin
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 312
diff changeset
   166
         if TrustedSource or t^.Trusted then
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 312
diff changeset
   167
            case t^.VType of
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   168
              vtCommand: if c='/' then
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   169
                         begin
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 312
diff changeset
   170
                         TCommandHandler(t^.Handler)(s);
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   171
                         end;
371
731ad6d27bd1 integer -> LongInt
unc0rr
parents: 351
diff changeset
   172
              vtLongInt: if c='$' then
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   173
                         if s[0]=#0 then
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   174
                            begin
371
731ad6d27bd1 integer -> LongInt
unc0rr
parents: 351
diff changeset
   175
                            str(PLongInt(t^.Handler)^, s);
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   176
                            WriteLnToConsole('$' + CmdStr + ' is "' + s + '"');
495
62c1c2b4414c - Fix most of the warnings in hwengine
unc0rr
parents: 415
diff changeset
   177
                            end else val(s, PLongInt(t^.Handler)^);
62c1c2b4414c - Fix most of the warnings in hwengine
unc0rr
parents: 415
diff changeset
   178
              vthwFloat: if c='$' then
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   179
                         if s[0]=#0 then
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   180
                            begin
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 312
diff changeset
   181
                            //str(PhwFloat(t^.Handler)^:4:6, s);
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   182
                            WriteLnToConsole('$' + CmdStr + ' is "' + s + '"');
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 312
diff changeset
   183
                            end else; //val(s, PhwFloat(t^.Handler)^, i);
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   184
             vtBoolean: if c='$' then
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   185
                         if s[0]=#0 then
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   186
                            begin
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 312
diff changeset
   187
                            str(ord(boolean(t^.Handler^)), s);
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   188
                            WriteLnToConsole('$' + CmdStr + ' is "' + s + '"');
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   189
                            end else
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   190
                            begin
495
62c1c2b4414c - Fix most of the warnings in hwengine
unc0rr
parents: 415
diff changeset
   191
                            val(s, ii);
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 312
diff changeset
   192
                            boolean(t^.Handler^):= not (ii = 0)
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   193
                            end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   194
              end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   195
         exit
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 312
diff changeset
   196
         end else t:= t^.Next
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   197
      end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   198
case c of
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   199
     '$': WriteLnToConsole(errmsgUnknownVariable + ': "$' + CmdStr + '"')
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   200
     else WriteLnToConsole(errmsgUnknownCommand  + ': "/' + CmdStr + '"') end
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   201
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   202
53
0e27949850e3 - Fixed bubble theme object
unc0rr
parents: 51
diff changeset
   203
function GetLastConsoleLine: shortstring;
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2630
diff changeset
   204
var valueStr: shortstring;
1242
4aca5f7b2504 Hats now fully implemented for local game
unc0rr
parents: 1066
diff changeset
   205
	i: LongWord;
53
0e27949850e3 - Fixed bubble theme object
unc0rr
parents: 51
diff changeset
   206
begin
1242
4aca5f7b2504 Hats now fully implemented for local game
unc0rr
parents: 1066
diff changeset
   207
i:= (CurrLine + cLinesCount - 2) mod cLinesCount;
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2630
diff changeset
   208
valueStr:= ConsoleLines[i].s;
1242
4aca5f7b2504 Hats now fully implemented for local game
unc0rr
parents: 1066
diff changeset
   209
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2630
diff changeset
   210
valueStr:= valueStr + #10;
1242
4aca5f7b2504 Hats now fully implemented for local game
unc0rr
parents: 1066
diff changeset
   211
4aca5f7b2504 Hats now fully implemented for local game
unc0rr
parents: 1066
diff changeset
   212
i:= (CurrLine + cLinesCount - 1) mod cLinesCount;
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2630
diff changeset
   213
valueStr:= valueStr + ConsoleLines[i].s;
1242
4aca5f7b2504 Hats now fully implemented for local game
unc0rr
parents: 1066
diff changeset
   214
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2630
diff changeset
   215
GetLastConsoleLine:= valueStr;
53
0e27949850e3 - Fixed bubble theme object
unc0rr
parents: 51
diff changeset
   216
end;
0e27949850e3 - Fixed bubble theme object
unc0rr
parents: 51
diff changeset
   217
936
ba582673db7d Fix 'AI may break demos playing' message while loading saves
unc0rr
parents: 917
diff changeset
   218
procedure StopMessages(Message: Longword);
ba582673db7d Fix 'AI may break demos playing' message while loading saves
unc0rr
parents: 917
diff changeset
   219
begin
ba582673db7d Fix 'AI may break demos playing' message while loading saves
unc0rr
parents: 917
diff changeset
   220
if (Message and gm_Left) <> 0 then ParseCommand('/-left', true) else
ba582673db7d Fix 'AI may break demos playing' message while loading saves
unc0rr
parents: 917
diff changeset
   221
if (Message and gm_Right) <> 0 then ParseCommand('/-right', true) else
ba582673db7d Fix 'AI may break demos playing' message while loading saves
unc0rr
parents: 917
diff changeset
   222
if (Message and gm_Up) <> 0 then ParseCommand('/-up', true) else
ba582673db7d Fix 'AI may break demos playing' message while loading saves
unc0rr
parents: 917
diff changeset
   223
if (Message and gm_Down) <> 0 then ParseCommand('/-down', true) else
ba582673db7d Fix 'AI may break demos playing' message while loading saves
unc0rr
parents: 917
diff changeset
   224
if (Message and gm_Attack) <> 0 then ParseCommand('/-attack', true)
ba582673db7d Fix 'AI may break demos playing' message while loading saves
unc0rr
parents: 917
diff changeset
   225
end;
ba582673db7d Fix 'AI may break demos playing' message while loading saves
unc0rr
parents: 917
diff changeset
   226
2599
c7153d2348f3 move compiler directives to standard pascal
koda
parents: 2578
diff changeset
   227
{$INCLUDE "CCHandlers.inc"}
2699
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   228
procedure init_uConsole;
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   229
var i: LongInt;
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   230
begin
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   231
	CurrLine:= 0;
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   232
	Variables:= nil;
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   233
	isDeveloperMode:= true;
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   234
	
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   235
	// initConsole
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   236
	cLineWidth:= cScreenWidth div 10;
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   237
	if cLineWidth > 255 then
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   238
		cLineWidth:= 255;
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   239
	for i:= 0 to Pred(cLinesCount) do 
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   240
		PByte(@ConsoleLines[i])^:= 0;
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   241
	
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   242
	RegisterVariable('proto'   , vtCommand, @chCheckProto   , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   243
	RegisterVariable('spectate', vtBoolean, @fastUntilLag   , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   244
	RegisterVariable('capture' , vtCommand, @chCapture      , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   245
	RegisterVariable('rotmask' , vtCommand, @chRotateMask   , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   246
	RegisterVariable('addteam' , vtCommand, @chAddTeam      , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   247
	RegisterVariable('addtrig' , vtCommand, @chAddTrigger   , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   248
	RegisterVariable('rdriven' , vtCommand, @chTeamLocal    , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   249
	RegisterVariable('map'     , vtCommand, @chSetMap       , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   250
	RegisterVariable('theme'   , vtCommand, @chSetTheme     , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   251
	RegisterVariable('seed'    , vtCommand, @chSetSeed      , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   252
	RegisterVariable('template_filter', vtLongInt, @cTemplateFilter, false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   253
	RegisterVariable('delay'   , vtLongInt, @cInactDelay    , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   254
	RegisterVariable('casefreq', vtLongInt, @cCaseFactor    , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   255
	RegisterVariable('sd_turns', vtLongInt, @cSuddenDTurns  , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   256
	RegisterVariable('damagepct',vtLongInt, @cDamagePercent , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   257
	RegisterVariable('landadds', vtLongInt, @cLandAdditions , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   258
	RegisterVariable('gmflags' , vtLongInt, @GameFlags      , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   259
	RegisterVariable('trflags' , vtLongInt, @TrainingFlags  , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   260
	RegisterVariable('turntime', vtLongInt, @cHedgehogTurnTime, false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   261
	RegisterVariable('minestime',vtLongInt, @cMinesTime     , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   262
	RegisterVariable('fort'    , vtCommand, @chFort         , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   263
	RegisterVariable('voicepack',vtCommand, @chVoicepack    , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   264
	RegisterVariable('grave'   , vtCommand, @chGrave        , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   265
	RegisterVariable('bind'    , vtCommand, @chBind         , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   266
	RegisterVariable('addhh'   , vtCommand, @chAddHH        , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   267
	RegisterVariable('hat'     , vtCommand, @chSetHat       , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   268
	RegisterVariable('hhcoords', vtCommand, @chSetHHCoords  , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   269
	RegisterVariable('ammstore', vtCommand, @chAddAmmoStore , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   270
	RegisterVariable('quit'    , vtCommand, @chQuit         , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   271
	RegisterVariable('confirm' , vtCommand, @chConfirm      , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   272
	RegisterVariable('+speedup', vtCommand, @chSpeedup_p    , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   273
	RegisterVariable('-speedup', vtCommand, @chSpeedup_m    , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   274
	RegisterVariable('zoomin'  , vtCommand, @chZoomIn       , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   275
	RegisterVariable('zoomout' , vtCommand, @chZoomOut      , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   276
	RegisterVariable('zoomreset',vtCommand, @chZoomReset    , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   277
	RegisterVariable('skip'    , vtCommand, @chSkip         , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   278
	RegisterVariable('history' , vtCommand, @chHistory      , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   279
	RegisterVariable('chat'    , vtCommand, @chChat         , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   280
	RegisterVariable('newgrave', vtCommand, @chNewGrave     , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   281
	RegisterVariable('say'     , vtCommand, @chSay          , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   282
	RegisterVariable('hogsay'  , vtCommand, @chHogSay       , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   283
	RegisterVariable('team'    , vtCommand, @chTeamSay      , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   284
	RegisterVariable('ammomenu', vtCommand, @chAmmoMenu     , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   285
	RegisterVariable('+precise', vtCommand, @chPrecise_p    , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   286
	RegisterVariable('-precise', vtCommand, @chPrecise_m    , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   287
	RegisterVariable('+left'   , vtCommand, @chLeft_p       , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   288
	RegisterVariable('-left'   , vtCommand, @chLeft_m       , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   289
	RegisterVariable('+right'  , vtCommand, @chRight_p      , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   290
	RegisterVariable('-right'  , vtCommand, @chRight_m      , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   291
	RegisterVariable('+up'     , vtCommand, @chUp_p         , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   292
	RegisterVariable('-up'     , vtCommand, @chUp_m         , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   293
	RegisterVariable('+down'   , vtCommand, @chDown_p       , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   294
	RegisterVariable('-down'   , vtCommand, @chDown_m       , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   295
	RegisterVariable('+attack' , vtCommand, @chAttack_p     , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   296
	RegisterVariable('-attack' , vtCommand, @chAttack_m     , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   297
	RegisterVariable('switch'  , vtCommand, @chSwitch       , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   298
	RegisterVariable('nextturn', vtCommand, @chNextTurn     , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   299
	RegisterVariable('timer'   , vtCommand, @chTimer        , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   300
	RegisterVariable('taunt'   , vtCommand, @chTaunt        , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   301
	RegisterVariable('setweap' , vtCommand, @chSetWeapon    , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   302
	RegisterVariable('slot'    , vtCommand, @chSlot         , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   303
	RegisterVariable('put'     , vtCommand, @chPut          , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   304
	RegisterVariable('ljump'   , vtCommand, @chLJump        , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   305
	RegisterVariable('hjump'   , vtCommand, @chHJump        , false);
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   306
	RegisterVariable('fullscr' , vtCommand, @chFullScr      , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   307
	RegisterVariable('+volup'  , vtCommand, @chVol_p        , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   308
	RegisterVariable('-volup'  , vtCommand, @chVol_m        , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   309
	RegisterVariable('+voldown', vtCommand, @chVol_m        , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   310
	RegisterVariable('-voldown', vtCommand, @chVol_p        , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   311
	RegisterVariable('findhh'  , vtCommand, @chFindhh       , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   312
	RegisterVariable('pause'   , vtCommand, @chPause        , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   313
	RegisterVariable('+cur_u'  , vtCommand, @chCurU_p       , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   314
	RegisterVariable('-cur_u'  , vtCommand, @chCurU_m       , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   315
	RegisterVariable('+cur_d'  , vtCommand, @chCurD_p       , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   316
	RegisterVariable('-cur_d'  , vtCommand, @chCurD_m       , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   317
	RegisterVariable('+cur_l'  , vtCommand, @chCurL_p       , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   318
	RegisterVariable('-cur_l'  , vtCommand, @chCurL_m       , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   319
	RegisterVariable('+cur_r'  , vtCommand, @chCurR_p       , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   320
	RegisterVariable('-cur_r'  , vtCommand, @chCurR_m       , true );
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   321
end;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   322
2699
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   323
procedure free_uConsole;
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   324
begin
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   325
	FreeVariablesList();
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   326
end;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   327
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   328
end.