(*

* Hedgewars, a free turn based strategy game

* Copyright (c) 2004-2011 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA

*)

{$INCLUDE "options.inc"}

{$IFDEF WIN32}

{$R hwengine.rc}

{$ENDIF}

{$IFDEF HWLIBRARY}

unit hwengine;

interface

{$ELSE}

program hwengine;

{$ENDIF}

uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uKeys, uSound,

     uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uRandom, uLandTexture, uCollisions,

{$IFDEF HWLIBRARY}

procedure initEverything(complete:boolean);

procedure freeEverything(complete:boolean);

implementation

{$ELSE}

procedure OnDestroy; forward;

procedure initEverything(complete:boolean); forward;

procedure freeEverything(complete:boolean); forward;

{$ENDIF}

////////////////////////////////

procedure DoTimer(Lag: LongInt);

var s: shortstring;

begin

    if isPaused = false then

        inc(RealTicks, Lag);

    case GameState of

        gsLandGen: begin

                GenMap;

                ParseCommand('sendlanddigest', true);

                GameState:= gsStart;

                end;

        gsStart: begin

                if HasBorder then DisableSomeWeapons;

                AddClouds;

                AddFlakes;

                AssignHHCoords;

                AddMiscGears;

                StoreLoad;

                InitWorld;

                ResetKbd;

                SoundLoad;

                if GameType = gmtSave then

                    begin

                    isSEBackup:= isSoundEnabled;

                    isSoundEnabled:= false

                    end;

                FinishProgress;

                PlayMusic;

                SetScale(zoom);

                ScriptCall('onGameStart');

                GameState:= gsGame;

                end;

        gsConfirm,

        gsGame: begin

                DrawWorld(Lag); // never place between ProcessKbd and DoGameTick - bugs due to /put cmd and isCursorVisible

                ProcessKbd;

                if not isPaused then

                    begin

                    DoGameTick(Lag);

                    ProcessVisualGears(Lag);

                    end;

                end;

        gsChat: begin

                DrawWorld(Lag);

                if not isPaused then

                    begin

                    DoGameTick(Lag);

                    ProcessVisualGears(Lag);

                    end;

                end;

        gsExit: begin

                isTerminated:= true;

                end;

        gsSuspend: exit;

        end;

{$IFDEF SDL13}

    SDL_RenderPresent(SDLrender);

{$ELSE}

    SDL_GL_SwapBuffers();

{$ENDIF}

    if flagMakeCapture then

    begin

        flagMakeCapture:= false;

        s:= 'hw_' + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks);

        WriteLnToConsole('Saving ' + s + '...');

        playSound(sndShutter);

        {$IFNDEF IPHONEOS}MakeScreenshot(s);{$ENDIF}

    end;

end;

////////////////////

procedure OnDestroy;

begin

    WriteLnToConsole('Freeing resources...');

    FreeActionsList();

    StoreRelease();

    ControllerClose();

    CloseIPC();

    TTF_Quit();

{$IFDEF SDL13}

    SDL_RenderClear(SDLrender);

    SDL_DestroyRenderer(SDLrender);

    SDL_DestroyWindow(SDLwindow);

    SDLrender:= nil;

    SDLwindow:= nil;

{$ENDIF}

    SDL_Quit();

    isTerminated:= false;

end;

///////////////////

procedure MainLoop;

var PrevTime, CurrTime: Longword;

begin

    PrevTime:= SDL_GetTicks;

    while isTerminated = false do

    begin

        begin

                SDL_KEYDOWN: if GameState = gsChat then

{$IFDEF SDL13}

                    // sdl on iphone supports only ashii keyboards and the unicode field is deprecated in sdl 1.3

                    KeyPressChat(event.key.keysym.sym);

                    if event.window.event = SDL_WINDOWEVENT_SHOWN then

                        cHasFocus:= true;

{$ELSE}

                    KeyPressChat(event.key.keysym.unicode);

                SDL_MOUSEBUTTONDOWN: if event.button.button = SDL_BUTTON_WHEELDOWN then wheelDown:= true;

                SDL_MOUSEBUTTONUP: if event.button.button = SDL_BUTTON_WHEELUP then wheelUp:= true;

                SDL_ACTIVEEVENT:

                    if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then

                        cHasFocus:= event.active.gain = 1;

{$ENDIF}

                SDL_JOYAXISMOTION: ControllerAxisEvent(event.jaxis.which, event.jaxis.axis, event.jaxis.value);

                SDL_JOYHATMOTION: ControllerHatEvent(event.jhat.which, event.jhat.hat, event.jhat.value);

                SDL_JOYBUTTONDOWN: ControllerButtonEvent(event.jbutton.which, event.jbutton.button, true);

                SDL_JOYBUTTONUP: ControllerButtonEvent(event.jbutton.which, event.jbutton.button, false);

                SDL_QUITEV: isTerminated:= true

            end; //end case event.type_ of

        end; //end while SDL_PollEvent(@event) <> 0 do

        if isTerminated = false then

        begin

            CurrTime:= SDL_GetTicks;

            if PrevTime + longword(cTimerInterval) <= CurrTime then

            begin

                DoTimer(CurrTime - PrevTime);

                PrevTime:= CurrTime

            end

            else SDL_Delay(1);

            IPCCheckSock();

        end;

    end;

end;

/////////////////////////

procedure ShowMainWindow;

begin

    if cFullScreen then ParseCommand('fullscr 1', true)

    else ParseCommand('fullscr 0', true);

    SDL_ShowCursor(0)

end;

///////////////

{$IFDEF HWLIBRARY}

{$ELSE}

procedure Game;

{$ENDIF}

var p: TPathType;

    s: shortstring;

    i: LongInt;

begin

{$IFDEF HWLIBRARY}

    cBits:= 32;

    cFullScreen:= false;

    cTimerInterval:= 8;

    cShowFPS:= {$IFDEF DEBUGFILE}true{$ELSE}false{$ENDIF};

    cStereoMode:= smNone;

{$ENDIF}

    cLogfileBase:= 'game';

    initEverything(true);

    WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')');

    AddFileLog('Prefix: "' + PathPrefix +'"');

    for i:= 0 to ParamCount do

        AddFileLog(inttostr(i) + ': ' + ParamStr(i));

    for p:= Succ(Low(TPathType)) to High(TPathType) do

        if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p];

    WriteToConsole('Init SDL... ');

    SDLTry(SDL_Init(SDL_INIT_VIDEO or SDL_INIT_NOPARACHUTE) >= 0, true);

    WriteLnToConsole(msgOK);

    SDL_EnableUNICODE(1);

    WriteToConsole('Init SDL_ttf... ');

    SDLTry(TTF_Init() <> -1, true);

    WriteLnToConsole(msgOK);

{$IFDEF WIN32}

    s:= SDL_getenv('SDL_VIDEO_CENTERED');

    SDL_putenv('SDL_VIDEO_CENTERED=1');

    ShowMainWindow();

    SDL_putenv(str2pchar('SDL_VIDEO_CENTERED=' + s));

{$ELSE}

    ShowMainWindow();

{$ENDIF}

    ControllerInit(); // has to happen before InitKbdKeyTable to map keys

    InitKbdKeyTable();

    AddProgress();

    LoadLocale(Pathz[ptLocale] + '/en.txt');  // Do an initial load with english

    if (Length(cLocaleFName) > 6) then cLocale := Copy(cLocaleFName,1,5)

    else cLocale := Copy(cLocaleFName,1,2);

    if cLocaleFName <> 'en.txt' then

        begin

        // Try two letter locale first before trying specific locale overrides

        if (Length(cLocale) > 2) and (Copy(cLocale,1,2) <> 'en') then

        end

    else cLocale := 'en';

    WriteLnToConsole(msgGettingConfig);

    if recordFileName = '' then

        begin

        InitIPC;

        SendIPCAndWaitReply('C');        // ask for game config

        end

    else

        LoadRecordFromFile(recordFileName);

    ScriptOnGameInit;

    s:= 'eproto ' + inttostr(cNetProtoVersion);

    SendIPCRaw(@s[0], Length(s) + 1); // send proto version

    InitTeams();

    AssignStores();

    if isSoundEnabled then

        InitSound();

    isDeveloperMode:= false;

    TryDo(InitStepsFlags = cifAllInited, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true);

    ParseCommand('rotmask', true);

    MainLoop();

    // clean up SDL and GL context

    OnDestroy();

    // clean up all the other memory allocated

    freeEverything(true);

    if alsoShutdownFrontend then halt;

end;

procedure initEverything (complete:boolean);

begin

    Randomize();

    // uConsts does not need initialization as they are all consts

    uUtils.initModule;

    uMisc.initModule;

    uVariables.initModule;

    uConsole.initModule;    // MUST happen after uMisc

    uCommands.initModule;

    uCommandHandlers.initModule;

    uLand.initModule;

    uLandPainted.initModule;

    uIO.initModule;

    if complete then

    begin

        //uAIActions does not need initialization

        //uAIAmmoTests does not need initialization

        uAIMisc.initModule;

        uAmmos.initModule;

        uChat.initModule;

        uCollisions.initModule;

        //uFloat does not need initialization

        //uGame does not need initialization

        uGears.initModule;

        uKeys.initModule;

        //uLandGraphics does not need initialization

        //uLandObjects does not need initialization

        //uLandTemplates does not need initialization

        uLandTexture.initModule;

        //uLocale does not need initialization

        uRandom.initModule;

        uScript.initModule;

        uSound.initModule;

        uStats.initModule;

        uStore.initModule;

        uTeams.initModule;

        uVisualGears.initModule;

        uWorld.initModule;

        uCaptions.initModule;

    end;

end;

procedure freeEverything (complete:boolean);

begin

    if complete then

    begin

        uCaptions.freeModule;

        uWorld.freeModule;

        uVisualGears.freeModule;

        uTeams.freeModule;

        uStore.freeModule;          //stub

        uStats.freeModule;          //stub

        uSound.freeModule;

        uScript.freeModule;

        uRandom.freeModule;         //stub

        //uLocale does not need to be freed

        //uLandTemplates does not need to be freed

        uLandTexture.freeModule;

        //uLandObjects does not need to be freed

        //uLandGraphics does not need to be freed

        uKeys.freeModule;           //stub

        uGears.freeModule;

        //uGame does not need to be freed

        //uFloat does not need to be freed

        uCollisions.freeModule;     //stub

        uChat.freeModule;

        uAmmos.freeModule;

        uAIMisc.freeModule;         //stub

        //uAIAmmoTests does not need to be freed

        //uAIActions does not need to be freed

        uAI.freeModule;             //stub

    end;

    uIO.freeModule;             //stub

    uLand.freeModule;

    uLandPainted.freeModule;

    uCommandHandlers.freeModule;

    uCommands.freeModule;

    uConsole.freeModule;

    uVariables.freeModule;

    uUtils.freeModule;

    uMisc.freeModule;           // uMisc closes the debug log.

end;

/////////////////////////

procedure GenLandPreview{$IFDEF HWLIBRARY}(port: LongInt); cdecl; export{$ENDIF};

var Preview: TPreview;

begin

    cLogfileBase:= 'preview';

    initEverything(false);

{$IFDEF HWLIBRARY}

    WriteLnToConsole('Preview connecting on port ' + inttostr(port));

    ipcPort:= port;

{$ENDIF}

    InitIPC;

    IPCWaitPongEvent;

    TryDo(InitStepsFlags = cifRandomize, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true);

    Preview:= GenPreview();

    WriteLnToConsole('Sending preview...');

    SendIPCRaw(@Preview, sizeof(Preview));

    SendIPCRaw(@MaxHedgehogs, sizeof(byte));

    WriteLnToConsole('Preview sent, disconnect');

    CloseIPC();

    freeEverything(false);

end;

{$IFNDEF HWLIBRARY}

/////////////////////

procedure DisplayUsage;

var i: LongInt;

begin

    WriteLn('Wrong argument format: correct configurations is');

    WriteLn();

    WriteLn();

    WriteLn('where [options] must be specified either as:');

    WriteLn(' --set-video [screen width] [screen height] [color dept]');

    WriteLn(' --set-audio [volume] [enable music] [enable sounds]');

    WriteLn(' --set-other [language file] [full screen] [show FPS]');

    WriteLn(' --set-multimedia [screen width] [screen height] [color dept] [volume] [enable music] [enable sounds] [language file] [full screen]');

    WriteLn(' --set-everything [screen width] [screen height] [color dept] [volume] [enable music] [enable sounds] [language file] [full screen] [show FPS] [alternate damage] [timer value] [reduced quality]');

    WriteLn(' --stats-only');

    WriteLn();

    WriteLn('Read documentation online at http://code.google.com/p/hedgewars/wiki/CommandLineOptions for more information');

    WriteLn();

    Write('PARSED COMMAND: ');

    for i:=0 to ParamCount do

        Write(ParamStr(i) + ' ');

    WriteLn();

end;

////////////////////

{$INCLUDE "ArgParsers.inc"}

procedure GetParams;

begin

        GameType:= gmtSyntax

    else

            internalSetGameTypeLandPreviewFromParameters()

        else

            if (ParamCount = cDefaultParamNum) then

                internalStartGameWithParameters()

            else

                playReplayFileWithParameters();

end;

////////////////////////////////////////////////////////////////////////////////

/////////////////////////////// m a i n ////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////

begin

    GetParams();

    if GameType = gmtLandPreview then GenLandPreview()