(*

 * 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"}

{$IF GLunit = GL}{$DEFINE GLunit:=GL,GLext}{$ENDIF}

unit uWorld;

interface

uses SDLh, uGears, uConsts, uFloat, uRandom, uTypes, uRenderUtils;

procedure initModule;

procedure freeModule;

procedure InitWorld;

procedure ResetWorldTex;

procedure DrawWorld(Lag: LongInt);

procedure DrawWorldStereo(Lag: LongInt; RM: TRenderMode);

procedure ShowMission(caption, subcaption, text: ansistring; icon, time : LongInt);

procedure HideMission;

procedure ShakeCamera(amount: LongInt);

procedure InitCameraBorders;

procedure MoveCamera;

procedure onFocusStateChanged;

implementation

uses

    uStore,

    uMisc,

    uIO,

    uLocale,

    uSound,

    uAmmos,

    uVisualGears,

    uChat,

    uLandTexture,

    GLunit,

    uVariables,

    uUtils,

    uTextures,

    uRender,

    uCaptions,

    uCursor,

    uCommands,

    uMobile

    ;

var cWaveWidth, cWaveHeight: LongInt;

    AMShiftTargetX, AMShiftTargetY, AMShiftX, AMShiftY, SlotsNum: LongInt;

    tmpSurface: PSDL_Surface;

    fpsTexture: PTexture;

    timeTexture: PTexture;

    AmmoRect: TSDL_Rect;

    MenuSpeedX, MenuSpeedY: LongInt;

    FPS: Longword;

    CountTicks: Longword;

    SoundTimerTicks: Longword;

    prevPoint: TPoint;

    amSel: TAmmoType = amNothing;

    missionTex: PTexture;

    missionTimer: LongInt;

    stereoDepth: GLfloat;

const cStereo_Sky           = 0.0500;

      cStereo_Horizon       = 0.0250;

      cStereo_MidDistance   = 0.0175;

      cStereo_Water_distant = 0.0125;

      cStereo_Land          = 0.0075;

      cStereo_Water_near    = 0.0025;

      cStereo_Outside       = -0.0400;

// helper functions to create the goal/game mode string

function AddGoal(s: ansistring; gf: longword; si: TGoalStrId; i: LongInt): ansistring;

var t: ansistring;

begin

    if (GameFlags and gf) <> 0 then

        begin

        t:= inttostr(i);

        s:= s + format(trgoal[si], t) + '|'

        end;

    AddGoal:= s;

end;

function AddGoal(s: ansistring; gf: longword; si: TGoalStrId): ansistring;

begin

    if (GameFlags and gf) <> 0 then

        s:= s + trgoal[si] + '|';

    AddGoal:= s;

end;

procedure InitWorld;

var i, t: LongInt;

    cp: PClan;

    g: ansistring;

begin

missionTimer:= 0;

if (GameFlags and gfRandomOrder) <> 0 then  // shuffle them up a bit

    begin

    for i:= 0 to ClansCount * 4 do

        begin

        t:= GetRandom(ClansCount);

        if t <> 0 then

            begin

            cp:= ClansArray[0];

            ClansArray[0]:= ClansArray[t];

            ClansArray[t]:= cp;

            ClansArray[t]^.ClanIndex:= t;

            ClansArray[0]^.ClanIndex:= 0;

            if (LocalClan = t) then

                LocalClan:= 0

            else if (LocalClan = 0) then

                LocalClan:= t

            end;

        end;

    CurrentTeam:= ClansArray[0]^.Teams[0];

    end;

// if special game flags/settings are changed, add them to the game mode notice window and then show it

g:= ''; // no text/things to note yet

// add custom goals from lua script if there are any

if LuaGoals <> '' then

    g:= LuaGoals + '|';

// check different game flags (goals/game modes first for now)

g:= AddGoal(g, gfKing, gidKing); // king?

g:= AddGoal(g, gfTagTeam, gidTagTeam); // tag team mode?

// other important flags

g:= AddGoal(g, gfForts, gidForts); // forts?

g:= AddGoal(g, gfLowGravity, gidLowGravity); // low gravity?

g:= AddGoal(g, gfInvulnerable, gidInvulnerable); // invulnerability?

g:= AddGoal(g, gfVampiric, gidVampiric); // vampirism?

g:= AddGoal(g, gfKarma, gidKarma); // karma?

g:= AddGoal(g, gfPlaceHog, gidPlaceHog); // placement?

g:= AddGoal(g, gfArtillery, gidArtillery); // artillery?

g:= AddGoal(g, gfSolidLand, gidSolidLand); // solid land?

g:= AddGoal(g, gfSharedAmmo, gidSharedAmmo); // shared ammo?

g:= AddGoal(g, gfResetHealth, gidResetHealth);

g:= AddGoal(g, gfAISurvival, gidAISurvival);

g:= AddGoal(g, gfInfAttack, gidInfAttack);

g:= AddGoal(g, gfResetWeps, gidResetWeps);

g:= AddGoal(g, gfPerHogAmmo, gidPerHogAmmo);

// modified damage modificator?

if cDamagePercent <> 100 then

    g:= AddGoal(g, gfAny, gidDamageModifier, cDamagePercent);

// fade in

ScreenFade:= sfFromBlack;

ScreenFadeValue:= sfMax;

ScreenFadeSpeed:= 1;

// modified mine timers?

if cMinesTime <> 3000 then

    begin

    if cMinesTime = 0 then

        g:= AddGoal(g, gfAny, gidNoMineTimer)

    else if cMinesTime < 0 then

        g:= AddGoal(g, gfAny, gidRandomMineTimer)

    else

        g:= AddGoal(g, gfAny, gidMineTimer, cMinesTime div 1000);

    end;

// if the string has been set, show it for (default timeframe) seconds

if g <> '' then

    ShowMission(trgoal[gidCaption], trgoal[gidSubCaption], g, 1, 0);

cWaveWidth:= SpritesData[sprWater].Width;

//cWaveHeight:= SpritesData[sprWater].Height;

cWaveHeight:= 32;

InitCameraBorders();

uCursor.init();

prevPoint.X:= 0;

prevPoint.Y:= cScreenHeight div 2;

WorldDx:=  -(LAND_WIDTH div 2) + cScreenWidth div 2;

WorldDy:=  -(LAND_HEIGHT - (playHeight div 2)) + (cScreenHeight div 2);

//aligns it to the bottom of the screen, minus the border

SkyOffset:= 0;

HorizontOffset:= 0;

end;

procedure InitCameraBorders;

begin

cGearScrEdgesDist:= min(2 * cScreenHeight div 5, 2 * cScreenWidth div 5);

end;

// for uStore texture resetting

procedure ResetWorldTex;

begin

    FreeTexture(fpsTexture);

    fpsTexture:= nil;

    FreeTexture(timeTexture);

    timeTexture:= nil;

    FreeTexture(missionTex);

    missionTex:= nil;

end;

function GetAmmoMenuTexture(Ammo: PHHAmmo): PTexture;

const BORDERSIZE = 2;

var x, y, i, t, SlotsNumY, SlotsNumX, AMFrame: LongInt;

    STurns: LongInt;

    amSurface: PSDL_Surface;

    AMRect: TSDL_Rect;

begin

    SlotsNum:= 0;

    for i:= 0 to cMaxSlotIndex do

        if((i = 0) and (Ammo^[i,1].Count > 0)) or ((i <> 0) and (Ammo^[i,0].Count > 0)) then

            inc(SlotsNum);

{$IFDEF MOBILE}

    SlotsNumX:= SlotsNum;

    SlotsNumY:= cMaxSlotAmmoIndex + 2;

{$ELSE}

    SlotsNumX:= cMaxSlotAmmoIndex + 1;

    SlotsNumY:= SlotsNum + 1;

{$ENDIF}

    AmmoRect.w:= (BORDERSIZE*2) + (SlotsNumX * AMSlotSize) + (SlotsNumX-1);

    AmmoRect.h:= (BORDERSIZE*2) + (SlotsNumY * AMSlotSize) + (SlotsNumY-1);

    amSurface := SDL_CreateRGBSurface(SDL_SWSURFACE, AmmoRect.w, AmmoRect.h, 32, RMask, GMask, BMask, AMask);

    AMRect.x:= BORDERSIZE;

    AMRect.y:= BORDERSIZE;

    AMRect.w:= AmmoRect.w - (BORDERSIZE*2);

    AMRect.h:= AmmoRect.h - (BORDERSIZE*2);

    SDL_FillRect(amSurface, @AMRect, SDL_MapRGB(amSurface^.format, 0,0,0));

    x:= 0;

    y:= 0;

    for i:= 0 to cMaxSlotIndex do

        if ((i = 0) and (Ammo^[i, 1].Count > 0)) or ((i <> 0) and (Ammo^[i, 0].Count > 0)) then

            begin

{$IFDEF MOBILE}

            y:= 0;

{$ELSE}

            x:= 0;

{$ENDIF}

            for t:=0 to cMaxSlotAmmoIndex do

                begin

                if (Ammo^[i, t].Count > 0)  and (Ammo^[i, t].AmmoType <> amNothing) then

                    begin

                    STurns:= Ammoz[Ammo^[i, t].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber;

                    AMFrame:= LongInt(Ammo^[i,t].AmmoType) - 1;

                    if STurns >= 0 then //weapon not usable yet, draw grayed out with turns remaining

                        begin

                        DrawSprite2Surf(sprAMAmmosBW, amSurface, x + AMSlotPadding, 

                                                                 y + AMSlotPadding + 1, AMFrame);

                        if STurns < 100 then

                            DrawSprite2Surf(sprTurnsLeft, amSurface, 

			    	    x + AMSlotSize-16, 

				    y + AMSlotSize + 1 - 16, STurns);

                        end

                    else //draw colored version

                        begin

                            DrawSprite2Surf(sprAMAmmos, amSurface, x + AMSlotPadding, 

       						       y + AMSlotPadding + 1, AMFrame);

                        end;

{$IFDEF MOBILE}

	    inc(y, AMSlotSize + 1); //the plus one is for the border

{$ELSE}

	    inc(x, AMSlotSize + 1);

{$ENDIF}

	    end;

	end;

{$IFDEF MOBILE}

    inc(x, AMSlotSize + 1);

{$ELSE}

    inc(y, AMSlotSize + 1);

{$ENDIF}

    end;

for i:= 1 to SlotsNumX -1 do

DrawLine2Surf(amSurface, i * (AMSlotSize+1), BORDERSIZE, i * (AMSlotSize+1), AMRect.h + BORDERSIZE - AMSlotSize - 2,160,160,160);            

for i:= 1 to SlotsNumY -1 do

DrawLine2Surf(amSurface, BORDERSIZE, i * (AMSlotSize+1), AMRect.w + BORDERSIZE, i * (AMSlotSize+1),160,160,160);

//draw outer border

DrawSprite2Surf(sprAMCorners, amSurface, 0                    , 0                    , 0);

DrawSprite2Surf(sprAMCorners, amSurface, AMRect.w + BORDERSIZE, AMRect.y             , 1);

DrawSprite2Surf(sprAMCorners, amSurface, AMRect.x             , AMRect.h + BORDERSIZE, 2);

DrawSprite2Surf(sprAMCorners, amSurface, AMRect.w + BORDERSIZE, AMRect.h + BORDERSIZE, 3);

for i:=0 to BORDERSIZE-1 do

begin

DrawLine2Surf(amSurface, BORDERSIZE, i, AMRect.w + BORDERSIZE, i,160,160,160);//top

DrawLine2Surf(amSurface, BORDERSIZE, AMRect.h+BORDERSIZE+i, AMRect.w + BORDERSIZE, AMRect.h+BORDERSIZE+i,160,160,160);//bottom

DrawLine2Surf(amSurface, i, BORDERSIZE, i, AMRect.h + BORDERSIZE,160,160,160);//left

DrawLine2Surf(amSurface, AMRect.w+BORDERSIZE+i, BORDERSIZE, AMRect.w + BORDERSIZE+i, AMRect.h + BORDERSIZE, 160,160,160);//right

end;

GetAmmoMenuTexture:= Surface2Tex(amSurface, false);

if amSurface <> nil then SDL_FreeSurface(amSurface);

end;

procedure ShowAmmoMenu;

const BORDERSIZE = 2;

      MENUSPEED = 15;

var Slot, Pos: LongInt;

    Ammo: PHHAmmo;

    c,i,g,t,CursorXtmp, CursorYtmp,STurns: LongInt;

begin

if (TurnTimeLeft = 0) or (not CurrentTeam^.ExtDriven and (((CurAmmoGear = nil)

or ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) = 0)) and hideAmmoMenu)) then

bShowAmmoMenu:= false;

// give the assigned ammo to hedgehog

Ammo:= nil;

if (CurrentTeam <> nil) and (CurrentHedgehog <> nil)

and (not CurrentTeam^.ExtDriven) and (CurrentHedgehog^.BotLevel = 0) then

Ammo:= CurrentHedgehog^.Ammo

else if (LocalAmmo <> -1) then

Ammo:= GetAmmoByNum(LocalAmmo);

Pos:= -1;

if Ammo = nil then

begin

bShowAmmoMenu:= false;

exit

end;

//Init the menu 

if(AmmoMenuInvalidated) then 

    begin

    AmmoMenuInvalidated:= false;

    FreeTexture(AmmoMenuTex);

    AmmoMenuTex:= GetAmmoMenuTexture(Ammo);

{$IFDEF MOBILE}

    if isPhone() then

        begin

        AmmoRect.x:= -(AmmoRect.w shr 1);

        AmmoRect.y:= (cScreenHeight shr 1) - (AmmoRect.h shr 1);

        end

    else

        begin

        AmmoRect.x:= -(AmmoRect.w shr 1);

        AmmoRect.y:= cScreenHeight - (AmmoRect.h + AMSlotSize);

        end;

{$ELSE}

        AmmoRect.x:= (cScreenWidth shr 1) - AmmoRect.w - AMSlotSize;

        AmmoRect.y:= cScreenHeight - (AmmoRect.h + AMSlotSize);

{$ENDIF}

    AMShiftTargetX:= (cScreenWidth shr 1) - AmmoRect.x;

    AMShiftTargetY:= cScreenHeight - AmmoRect.y;

    AMShiftX:= AMShiftTargetX;

    AMShiftY:= AMShiftTargetY;

    if (AMShiftTargetX div MENUSPEED) <  (AMShiftTargetY div MENUSPEED) then

        begin

        MenuSpeedX:= MENUSPEED;

        MenuSpeedY:= AMShiftTargetY div (AMShiftTargetX div MENUSPEED);

        end

    else

        begin

        MenuSpeedX:= AMShiftTargetX div (AMShiftTargetY div MENUSPEED);

        MenuSpeedY:= MENUSPEED;

        end;

end;

if bShowAmmoMenu then // show ammo menu

    begin

    FollowGear:= nil;

    if (AMShiftX = 0) and (AMShiftY = 0) then

{$IFDEF MOBILE}

        prevPoint.Y:= 0;

{$ELSE}

        prevPoint.X:= 0;

{$ENDIF}

    if (cReducedQuality and rqSlowMenu) <> 0 then

        begin

        AMShiftX:= 0;

        AMShiftY:= 0;

        end

    else

        if (AMShiftX <> 0) or (AMShiftY <> 0) then

            begin

            dec(AMShiftX, MenuSpeedX);

            if AMShiftX < 0 then AMShiftX:= 0;

            dec(AMShiftY, MenuSpeedY);

            if AMShiftY < 0 then AMShiftY:= 0;

            end

    end

else  // hide ammo menu

    begin

    if (AMShiftX = AMShiftTargetX) and (AMShiftY = AMShiftTargetY) then

        begin

        prevPoint:= CursorPoint;

        end;

    if (cReducedQuality and rqSlowMenu) <> 0 then

        begin

        AMShiftX:= AMShiftTargetX;

        AMShiftY:= AMShiftTargetY;

        end

    else

        if (AMShiftX <> AMShiftTargetX) or (AMShiftY <> AMShiftTargetY) then

            begin

            inc(AMShiftX, MenuSpeedX);

            if AMShiftX > AMShiftTargetX then AMShiftX:= AMShiftTargetX;

            inc(AMShiftY, MenuSpeedY);

            if AMShiftY> AMShiftTargetY then AMShiftY:= AMShiftTargetY;

            end

    end;

    DrawTexture(AmmoRect.x + AMShiftX, AmmoRect.y + AMShiftY, AmmoMenuTex);

    Pos:= -1;

    Slot:= -1;

    c:= -1;

{$IFDEF MOBILE}

    for i:= 0 to cMaxSlotIndex do

        if ((i = 0) and (Ammo^[i, 1].Count > 0)) or ((i <> 0) and (Ammo^[i, 0].Count > 0)) then

            begin

            inc(c);

            g:= 0;

            for t:=0 to cMaxSlotAmmoIndex do

                if (Ammo^[i, t].Count > 0) and (Ammo^[i, t].AmmoType <> amNothing) then

                    begin

                    if (CursorPoint.Y <= (cScreenHeight - AmmoRect.y) - ( g    * (AMSlotSize+1))) and

                       (CursorPoint.Y >= (cScreenHeight - AmmoRect.y) - ((g+1) * (AMSlotSize+1))) and

                       (CursorPoint.X >= AmmoRect.x                   + ( c    * (AMSlotSize+1))) and 

                       (CursorPoint.X <= AmmoRect.x                   + ((c+1) * (AMSlotSize+1))) then

                        begin

                        Slot:= i;

                        Pos:= t;

                        STurns:= Ammoz[Ammo^[i, t].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber;

                        if (STurns < 0) and (AMShiftX = 0) and (AMShiftY = 0) then

                            DrawSprite(sprAMSlot, 

                                       AmmoRect.x + BORDERSIZE + (c * (AMSlotSize+1)) + AMSlotPadding -1, 

                                       AmmoRect.y + BORDERSIZE + (g  * (AMSlotSize+1)) + AMSlotPadding -1, 0);

                        end;

                        inc(g);

                   end;

            end;

{$ELSE}

    for i:= 0 to cMaxSlotIndex do

        if ((i = 0) and (Ammo^[i, 1].Count > 0)) or ((i <> 0) and (Ammo^[i, 0].Count > 0)) then

            begin

            inc(c);

            g:= 0;

            for t:=0 to cMaxSlotAmmoIndex do

                if (Ammo^[i, t].Count > 0) and (Ammo^[i, t].AmmoType <> amNothing) then

                    begin

                    if (CursorPoint.Y <= (cScreenHeight - AmmoRect.y) - ( c    * (AMSlotSize+1))) and

                       (CursorPoint.Y >= (cScreenHeight - AmmoRect.y) - ((c+1) * (AMSlotSize+1))) and

                       (CursorPoint.X >= AmmoRect.x                   + ( g    * (AMSlotSize+1))) and 

                       (CursorPoint.X <= AmmoRect.x                   + ((g+1) * (AMSlotSize+1))) then

                        begin

                        Slot:= i;

                        Pos:= t;

                        STurns:= Ammoz[Ammo^[i, t].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber;

                        if (STurns < 0) and (AMShiftX = 0) and (AMShiftY = 0) then

                            DrawSprite(sprAMSlot, 

                                       AmmoRect.x + BORDERSIZE + (g * (AMSlotSize+1)) + AMSlotPadding -1, 

                                       AmmoRect.y + BORDERSIZE + (c  * (AMSlotSize+1)) + AMSlotPadding -1, 0);

                        end;

                        inc(g);

                   end;

            end;

{$ENDIF}

    if (Pos >= 0) and (Pos <= cMaxSlotAmmoIndex) and (Slot >= 0) and (Slot <= cMaxSlotIndex)then

        begin

        if (AMShiftX = 0) and (AMShiftY = 0) then