(*

 * Hedgewars, a free turn based strategy game

 * Copyright (c) 2004-2010 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"}

unit uWorld;

interface

uses SDLh, uGears, uConsts, uFloat, uRandom;

var FollowGear: PGear;

    WindBarWidth: LongInt;

    bShowAmmoMenu: boolean;

    bSelected: boolean;

    bShowFinger: boolean;

    Frames: Longword;

    WaterColor, DeepWaterColor: TSDL_Color;

    WorldDx: LongInt;

    WorldDy: LongInt;

    SkyOffset: LongInt;

    HorizontOffset: LongInt;

{$IFDEF COUNTTICKS}

    cntTicks: LongWord;

{$ENDIF}

procedure initModule;

procedure freeModule;

procedure InitWorld;

procedure DrawWorld(Lag: LongInt);

procedure AddCaption(s: shortstring; Color: Longword; Group: TCapGroup);

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

procedure HideMission;

procedure ShakeCamera(amount: LongWord);

implementation

uses    uStore, uMisc, uTeams, uIO, uConsole, uKeys, uLocale, uSound, uAmmos, uVisualGears, uChat, uLandTexture, uLand, GLunit;

type TCaptionStr = record

                   Tex: PTexture;

                   EndTime: LongWord;

                   end;

var cWaveWidth, cWaveHeight: LongInt;

    Captions: array[TCapGroup] of TCaptionStr;

    AMxShift, SlotsNum: LongInt;

    tmpSurface: PSDL_Surface;

    fpsTexture: PTexture;

    timeTexture: PTexture;

    FPS: Longword;

    CountTicks: Longword;

    SoundTimerTicks: Longword;

    prevPoint: TPoint;

    amSel: TAmmoType = amNothing;

    missionTex: PTexture;

    missionTimer: LongInt;

procedure InitWorld;

var i, t: LongInt;

    cp: PClan;

    g: ansistring;

    // 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;

begin

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

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

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

// 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?

// 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, gfMines, gidNoMineTimer)

    else if cMinesTime < 0 then

        g:= AddGoal(g, gfMines, gidRandomMineTimer)

    else

        g:= AddGoal(g, gfMines, 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;

cGearScrEdgesDist:= Min(cScreenWidth div 2 - 100, cScreenHeight div 2 - 50);

SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2);

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);

AMxShift:= 210;

SkyOffset:= 0;

HorizontOffset:= 0;

end;

procedure ShowAmmoMenu;

const MENUSPEED = 15;

{$IFDEF IPHONEOS}

const MENUWIDTH = 210;

{$ELSE}

const MENUWIDTH = 240;

{$ENDIF}

var x, y, i, t, l, g: LongInt;

    Slot, Pos: LongInt;

    Ammo: PHHAmmo;

begin

    begin

    end;

{$IFDEF IPHONEOS}

{$ELSE}

{$ENDIF}

            begin

                begin

                    end;

                end;

{$IFDEF IPHONEOS}

{$ELSE}

{$ENDIF}

    begin

            begin

            end;

            begin

            end;

    end

end;

procedure MoveCamera; forward;

procedure DrawWater(Alpha: byte; OffsetY: LongInt);

var VertexBuffer: array [0..3] of TVertex2f;

    r: TSDL_Rect;

    lw, lh: GLfloat;

begin

    begin

end;

procedure DrawWaves(Dir, dX, dY: LongInt; tnt: Byte);

var VertexBuffer, TextureBuffer: array [0..3] of TVertex2f;

    lw, waves, shift: GLfloat;

begin

waves:= lw * 2 / cWaveWidth;

);

glBindTexture(GL_TEXTURE_2D, SpritesData[sprWater].Texture^.id);

VertexBuffer[0].X:= -lw;

VertexBuffer[0].Y:= cWaterLine + WorldDy + dY;

VertexBuffer[1].X:= lw;

VertexBuffer[1].Y:= VertexBuffer[0].Y;

VertexBuffer[2].X:= lw;

VertexBuffer[2].Y:= VertexBuffer[0].Y + SpritesData[sprWater].Height;

VertexBuffer[3].X:= -lw;

VertexBuffer[3].Y:= VertexBuffer[2].Y;

shift:= - lw / cWaveWidth;

TextureBuffer[0].X:= shift + (( - WorldDx + LongInt(RealTicks shr 6) * Dir + dX) mod cWaveWidth) / (cWaveWidth - 1);

TextureBuffer[0].Y:= 0;

TextureBuffer[1].X:= TextureBuffer[0].X + waves;

TextureBuffer[1].Y:= TextureBuffer[0].Y;

TextureBuffer[2].X:= TextureBuffer[1].X;

TextureBuffer[2].Y:= SpritesData[sprWater].Texture^.ry;

TextureBuffer[3].X:= TextureBuffer[0].X;

TextureBuffer[3].Y:= TextureBuffer[2].Y;

glEnableClientState(GL_VERTEX_ARRAY);

glEnableClientState(GL_TEXTURE_COORD_ARRAY);

glVertexPointer(2, GL_FLOAT, 0, @VertexBuffer[0]);

glTexCoordPointer(2, GL_FLOAT, 0, @TextureBuffer[0]);

glDrawArrays(GL_TRIANGLE_FAN, 0, Length(VertexBuffer));

glDisableClientState(GL_TEXTURE_COORD_ARRAY);

glDisableClientState(GL_VERTEX_ARRAY);

Tint($FF, $FF, $FF, $FF);

{for i:= -1 to cWaterSprCount do

    DrawSprite(sprWater,

        i * cWaveWidth + ((WorldDx + (RealTicks shr 6) * Dir + dX) mod cWaveWidth) - (cScreenWidth div 2),

        cWaterLine + WorldDy + dY,

        0)}

end;

procedure DrawRepeated(spr, sprL, sprR: TSprite; Shift, OffsetY: LongInt);

var i, w, sw: LongInt;

begin

    begin

    begin

        begin

        end;

        begin

        end

    end

end;

procedure DrawWorld(Lag: LongInt);

var i, t: LongInt;

    r: TSDL_Rect;

    tdx, tdy: Double;

    grp: TCapGroup;

    s: string[15];