hedgewars: hedgewars/uConsole.pas@249adefa9c1c (annotated)

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.

author	koda
	Mon, 18 Jan 2010 05:36:08 +0000
changeset 2699	249adefa9c1c
parent 2695	ed789a7ef68d
child 2747	7889a3a9724f
permissions	-rw-r--r--