hedgewars/uDebug.pas
author mikade
Tue, 22 Feb 2011 18:51:22 +0200
changeset 4953 ebd3dae634ca
parent 4900 8ad0e23e6d63
child 4976 088d40d8aba2
permissions -rw-r--r--
Fixed scoring exploit on Control and removed user branding from the map Changed hog positioning code on CTF_Blizzard so that each side is positioned in the same manner, and gets to move in the same order Fixed version control fail in CTF_Blizzard

{$INCLUDE "options.inc"}

unit uDebug;

interface

procedure OutError(Msg: shortstring; isFatalError: boolean);
procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); inline;
procedure SDLTry(Assert: boolean; isFatal: boolean);

implementation
uses SDLh, uConsole, uCommands;

procedure OutError(Msg: shortstring; isFatalError: boolean);
begin
WriteLnToConsole(Msg);
if isFatalError then
    begin
    ParseCommand('fatal ' + GetLastConsoleLine, true);
    SDL_Quit;
    halt(1)
    end
end;

procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean);
begin
if not Assert then OutError(Msg, isFatal)
end;

procedure SDLTry(Assert: boolean; isFatal: boolean);
begin
if not Assert then OutError(SDL_GetError, isFatal)
end;

end.