(*

 * Hedgewars, a free turn based strategy game

 * Copyright (c) 2004-2012 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 InitTouchInterface;

procedure animateWidget(widget: POnScreenWidget; fade, showWidget: boolean);

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;

    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;

InitTouchInterface();

end;

procedure InitCameraBorders;

begin

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

end;

procedure InitTouchInterface;

begin

{$IFDEF USE_TOUCH_INTERFACE}

//positioning of the buttons

buttonScale:= 1.5/cDefaultZoomLevel;

with firebutton do

    begin

    show:= true;

    sprite:= sprFireButton;

    frame.w:= Round(spritesData[sprite].Texture^.w * buttonScale);

    frame.h:= Round(spritesData[sprite].Texture^.h * buttonScale);

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

    frame.y:= cScreenHeight - frame.h;

    active:= frame;

    end;

with backjump do

    begin

    show:= true;

    sprite:= sprbackjump;

    frame.w:= Round(spritesData[sprite].Texture^.w * buttonScale);

    frame.h:= Round(spritesData[sprite].Texture^.h * buttonScale);

    frame.x:= (cScreenWidth shr 1) - frame.w * 2;

    frame.y:= cScreenHeight - Round(frame.h * 1.2);

    active:= frame;

    end;

with forwardjump do

    begin

    show:= true;

    sprite:= sprforwardjump;

    frame.w:= Round(spritesData[sprite].Texture^.w * buttonScale);

    frame.h:= Round(spritesData[sprite].Texture^.h * buttonScale);

    frame.x:= (cScreenWidth shr 1) - Round(frame.w * 1.2);

    frame.y:= cScreenHeight - frame.h * 2;

    active:= frame;

    end;

with arrowLeft do

    begin

    show:= true;

    sprite:= sprArrowLeft;

    frame.w:= Round(spritesData[sprite].Texture^.w * buttonScale);

    frame.h:= Round(spritesData[sprite].Texture^.h * buttonScale);

    frame.x:= -(cScreenWidth shr 1) + Round(frame.w * 0.25);

    frame.y:= cScreenHeight - Round(frame.h * 1.5);

    active:= frame;

    end;

with arrowRight do

    begin

    show:= true;

    sprite:= sprArrowRight;

    frame.w:= Round(spritesData[sprite].Texture^.w * buttonScale);

    frame.h:= Round(spritesData[sprite].Texture^.h * buttonScale);

    frame.x:= -(cScreenWidth shr 1) + Round(frame.w * 1.5);

    frame.y:= cScreenHeight - Round(frame.h * 1.5);

    active:= frame;

    end;

with arrowUp do

    begin

    show:= false;

    sprite:= sprArrowUp;

    frame.w:= Round(spritesData[sprite].Texture^.w * buttonScale);

    frame.h:= Round(spritesData[sprite].Texture^.h * buttonScale);

    frame.x:= (cScreenWidth shr 1) - frame.w * 2;

    frame.y:= backjump.frame.y - Round(frame.h * 2.25);

    active:= frame;

    with moveAnim do

         begin

         target.x:= frame.x;

         target.y:= frame.y;

         source.x:= frame.x - Round(frame.w * 0.75);

         source.y:= frame.y;

         end;

    end;

with arrowDown do

    begin

    show:= false;

    sprite:= sprArrowDown;

    frame.w:= Round(spritesData[sprite].Texture^.w * buttonScale);

    frame.h:= Round(spritesData[sprite].Texture^.h * buttonScale);

    frame.x:= (cScreenWidth shr 1) - frame.w * 2;

    frame.y:= backjump.frame.y - Round(frame.h * 2.25);

    active:= frame;

    with moveAnim do

        begin

        target.x:= frame.x;

        target.y:= frame.y;

        source.x:= frame.x + Round(frame.w * 0.75);

        source.y:= frame.y;

        end;

    end;

with pauseButton do

    begin

    show:= true;

    sprite:= sprPauseButton;

    frame.w:= Round(spritesData[sprPauseButton].Texture^.w * buttonScale);

    frame.h:= Round(spritesData[sprPauseButton].Texture^.h * buttonScale);

    frame.x:= cScreenWidth div 2 - frame.w;

    frame.y:= 0;

    active:= frame;

    end;

{$ENDIF}

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 USE_LANDSCAPE_AMMOMENU}

    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:= AMRect.x;

    y:= AMRect.y;

    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 USE_LANDSCAPE_AMMOMENU}

            y:= AMRect.y;

{$ELSE}

            x:= AMRect.x;

{$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, 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, AMFrame);

                        end;

{$IFDEF USE_LANDSCAPE_AMMOMENU}

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

{$ELSE}

	    inc(x, AMSlotSize + 1);

{$ENDIF}

	    end;

	end;

{$IFDEF USE_LANDSCAPE_AMMOMENU}

    inc(x, AMSlotSize + 1);

{$ELSE}

    inc(y, AMSlotSize + 1);

{$ENDIF}

    end;

for i:= 1 to SlotsNumX -1 do

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

for i:= 1 to SlotsNumY -1 do

DrawLine2Surf(amSurface, BORDERSIZE, i * (AMSlotSize+1)+1, AMRect.w + BORDERSIZE, i * (AMSlotSize+1)+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,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 USE_LANDSCAPE_AMMOMENU}

    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;