author | Wuzzy <Wuzzy2@mail.ru> |
Tue, 12 May 2020 22:21:19 +0200 | |
changeset 15582 | 6d0682485ed5 |
parent 11046 | 47a8c19ecb60 |
child 15929 | 128ace913837 |
permissions | -rw-r--r-- |
(* * 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; interface var 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); implementation uses 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); begin RegisterVariable(Name, p, Trusted, false); end; procedure RegisterVariable(Name: shortstring; p: TCommandHandler; Trusted: boolean; Rand: boolean); var value: PVariable; begin New(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:= value else 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; begin isExternalSource:= 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 + '"') end end; procedure ParseTeamCommand(s: shortstring); var Trusted: boolean; begin Trusted:= (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); begin if (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.