Fix resurrection animation appearing at wrong position for some missions and styles
(* * Hedgewars, a free turn based strategy game * Copyright (c) 2004-2015 Andrey Korotaev <unC0Rr@gmail.com> * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; version 2 of the License * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA *){$INCLUDE "options.inc"}unit uCommands;interfacevar isDeveloperMode: boolean;var isExternalSource: boolean;type TCommandHandler = procedure (var params: shortstring);procedure initModule;procedure freeModule;procedure RegisterVariable(Name: shortstring; p: TCommandHandler; Trusted: boolean; Rand: boolean);procedure RegisterVariable(Name: shortstring; p: TCommandHandler; Trusted: boolean);procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean); inline;procedure ParseCommand(CmdStr: shortstring; TrustedSource, ExternalSource: boolean);procedure ParseTeamCommand(s: shortstring);procedure StopMessages(Message: Longword);implementationuses uConsts, uVariables, uConsole, uUtils, SDLh;type PVariable = ^TVariable; TVariable = record Next: PVariable; Name: string[15]; Handler: TCommandHandler; Trusted, Rand: boolean; end;var Variables: PVariable;procedure RegisterVariable(Name: shortstring; p: TCommandHandler; Trusted: boolean);beginRegisterVariable(Name, p, Trusted, false);end;procedure RegisterVariable(Name: shortstring; p: TCommandHandler; Trusted: boolean; Rand: boolean);var value: PVariable;beginNew(value);if value = nil then ParseCommand('fatal RegisterVariable: value = nil', true);FillChar(value^, sizeof(TVariable), 0);value^.Name:= Name;value^.Handler:= p;value^.Trusted:= Trusted;value^.Rand:= Rand;if Variables = nil then Variables:= valueelse begin value^.Next:= Variables; Variables:= value end;end;procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean); inline;begin ParseCommand(CmdStr, TrustedSource, false)end;procedure ParseCommand(CmdStr: shortstring; TrustedSource, ExternalSource: boolean);var s: shortstring; t: PVariable; c: char;beginisExternalSource:= ExternalSource or ((CurrentTeam <> nil) and CurrentTeam^.ExtDriven);//WriteLnToConsole(CmdStr);if CmdStr[0]=#0 then exit;AddFileLog('[Cmd] ' + sanitizeForLog(CmdStr));c:= CmdStr[1];if (c = '/') or (c = '$') then Delete(CmdStr, 1, 1);s:= '';SplitBySpace(CmdStr, s);t:= Variables;while t <> nil do begin if t^.Name = CmdStr then begin if TrustedSource or t^.Trusted then begin if t^.Rand and (not CheckNoTeamOrHH) then CheckSum:= CheckSum xor LongWord(SDLNet_Read32(@CmdStr)) xor LongWord(s[0]) xor GameTicks; t^.Handler(s); end; exit end else t:= t^.Next end;case c of '$': WriteLnToConsole(errmsgUnknownVariable + ': "$' + CmdStr + '"') else WriteLnToConsole(errmsgUnknownCommand + ': "/' + CmdStr + '"') endend;procedure ParseTeamCommand(s: shortstring);var Trusted: boolean;beginTrusted:= (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (CurrentHedgehog^.BotLevel = 0);ParseCommand(s, Trusted);if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then ParseCommand('gencmd R', true)end;procedure StopMessages(Message: Longword);beginif (Message and gmLeft) <> 0 then ParseCommand('/-left', true)else if (Message and gmRight) <> 0 then ParseCommand('/-right', true)else if (Message and gmUp) <> 0 then ParseCommand('/-up', true)else if (Message and gmDown) <> 0 then ParseCommand('/-down', true)else if (Message and gmAttack) <> 0 then ParseCommand('/-attack', true)end;procedure initModule;begin Variables:= nil; isDeveloperMode:= true;end;procedure freeModule;var t, tt: PVariable;begin tt:= Variables; Variables:= nil; while tt <> nil do begin t:= tt; tt:= tt^.Next; Dispose(t) end;end;end.