(*

 * Hedgewars, a free turn based strategy game

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

{$IFDEF COUNTTICKS}

    cntTicks: LongWord;

{$ENDIF}

procedure init_uWorld;

procedure free_uWorld;

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;

implementation

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

{$IFDEF GLES11}

	gles11;

{$ELSE}

	GL;

{$ENDIF}

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

    var t: ansistring;

    begin

        if (GameFlags and gf) <> 0 then

            begin

            t:= inttostr(i);

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

            end;

        AddGoal:= s;

    end;

    begin

        if (GameFlags and gf) <> 0 then

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

        AddGoal:= s;

    end;

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;

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

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, gfKing, gidKing); // king?

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?

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

end;

procedure ShowAmmoMenu;

const MENUSPEED = 15;

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

    Slot, Pos: LongInt;

    Ammo: PHHAmmo;

begin

if  (TurnTimeLeft = 0) or (not CurrentTeam^.ExtDriven and (((CurAmmoGear = nil) or ((CurAmmoGear^.Ammo^.Propz and ammoprop_AltAttack) = 0)) and hideAmmoMenu)) then bShowAmmoMenu:= false;

if bShowAmmoMenu then

   begin

   FollowGear:= nil;

   if AMxShift = 210 then prevPoint.X:= 0;

   if cReducedQuality then

       AMxShift:= 0

   else

       if AMxShift > 0 then dec(AMxShift, MENUSPEED);

   end else

   begin

   if AMxShift = 0 then

      begin

      CursorPoint.X:= cScreenWidth shr 1;

      CursorPoint.Y:= cScreenHeight shr 1;

      prevPoint:= CursorPoint;

      SDL_WarpMouse(CursorPoint.X  + cScreenWidth div 2, cScreenHeight - CursorPoint.Y)

      end;

   if cReducedQuality then

       AMxShift:= 210

   else

       if AMxShift < 210 then inc(AMxShift, MENUSPEED);

   end;

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

Slot:= 0;

Pos:= -1;

if Ammo = nil then exit;

SlotsNum:= 0;

x:= (cScreenWidth shr 1) - 210 + AMxShift;

y:= cScreenHeight - 40;

dec(y);

DrawSprite(sprAMBorders, x, y, 0);

dec(y);

DrawSprite(sprAMBorders, x, y, 1);

dec(y, 33);

DrawSprite(sprAMSlotName, x, y, 0);

for i:= cMaxSlotIndex downto 0 do

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

		begin

		if (cScreenHeight - CursorPoint.Y >= y - 33) and (cScreenHeight - CursorPoint.Y < y) then Slot:= i;

		dec(y, 33);

		inc(SlotsNum);

		DrawSprite(sprAMSlot, x, y, 0);

		DrawSprite(sprAMSlotKeys, x + 2, y + 1, i);

		t:= 0;

                    g:= 0;

		while (t <= cMaxSlotAmmoIndex) and (Ammo^[i, t].Count > 0) do

			begin

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

				begin

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

				if l >= 0 then

					begin

					DrawSprite(sprAMAmmosBW, x + g * 33 + 35, y + 1, LongInt(Ammo^[i, t].AmmoType)-1);

                    if l < 100 then DrawSprite(sprTurnsLeft, x + g * 33 + 51, y + 17, l);

					end else

					DrawSprite(sprAMAmmos, x + g * 33 + 35, y + 1, LongInt(Ammo^[i, t].AmmoType)-1);

				if (Slot = i)

				and (CursorPoint.X >= x + g * 33 + 35)

				and (CursorPoint.X < x + g * 33 + 68) then

					begin

					if (l < 0) then DrawSprite(sprAMSelection, x + g * 33 + 35, y + 1, 0);

					Pos:= t;

					end;

				inc(g)

				end;

				inc(t)

			end

		end;

dec(y, 1);

DrawSprite(sprAMBorders, x, y, 0);

if (Pos >= 0) then

	begin

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

		if (amSel <> Ammo^[Slot, Pos].AmmoType) or (WeaponTooltipTex = nil) then

			begin

			amSel:= Ammo^[Slot, Pos].AmmoType;

			RenderWeaponTooltip(amSel)

			end;

		DrawTexture(cScreenWidth div 2 - 200 + AMxShift, cScreenHeight - 68, Ammoz[Ammo^[Slot, Pos].AmmoType].NameTex);

		if Ammo^[Slot, Pos].Count < AMMO_INFINITE then

			DrawTexture(cScreenWidth div 2 + AMxShift - 35, cScreenHeight - 68, CountTexz[Ammo^[Slot, Pos].Count]);

		if bSelected and (Ammoz[Ammo^[Slot, Pos].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber < 0) then

			begin

			bShowAmmoMenu:= false;

			SetWeapon(Ammo^[Slot, Pos].AmmoType);

			bSelected:= false;

			FreeWeaponTooltip;

			exit

			end;

	end

else

	FreeWeaponTooltip;

if (WeaponTooltipTex <> nil) and (AMxShift = 0) then

	ShowWeaponTooltip(x - WeaponTooltipTex^.w - 3, y);

bSelected:= false;

if AMxShift = 0 then DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8)

end;

procedure MoveCamera; forward;

procedure DrawWater(Alpha: byte);

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

    r: TSDL_Rect;

    lw, lh: GLfloat;

begin

WaterColorArray[0].a := Alpha;

WaterColorArray[1].a := Alpha;

WaterColorArray[2].a := Alpha;

WaterColorArray[3].a := Alpha;

lw:= cScreenWidth / cScaleFactor;

lh:= trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 + 16;

// Water

r.y:= WorldDy + cWaterLine;

if WorldDy < trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 - cWaterLine then

	begin

	if r.y < 0 then r.y:= 0;

	glDisable(GL_TEXTURE_2D);

	VertexBuffer[0].X:= -lw;

	VertexBuffer[0].Y:= r.y;

	VertexBuffer[1].X:= lw;

	VertexBuffer[1].Y:= r.y;

	VertexBuffer[2].X:= lw;

	VertexBuffer[2].Y:= lh;

	VertexBuffer[3].X:= -lw;

	VertexBuffer[3].Y:= lh;

	glEnableClientState (GL_COLOR_ARRAY);

	glColorPointer(4, GL_UNSIGNED_BYTE, 0, @WaterColorArray[0]);

	glEnableClientState(GL_VERTEX_ARRAY);

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

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

	glDisableClientState(GL_VERTEX_ARRAY);

	glDisableClientState(GL_COLOR_ARRAY);

	glColor4f(1, 1, 1, 1); // disable coloring

	glEnable(GL_TEXTURE_2D)

	end

end;

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

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

	lw, waves, shift: GLfloat;

begin

lw:= cScreenWidth / cScaleFactor;

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

{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: LongInt);

var i, w, sw: LongInt;

begin

sw:= round(cScreenWidth / cScaleFactor);

if (SpritesData[sprL].Texture = nil) or (SpritesData[sprR].Texture = nil) then

	begin

	w:= SpritesData[spr].Width;

	i:= Shift mod w;

	if i > 0 then dec(i, w);

	dec(i, w * (sw div w + 1));

	repeat

		DrawSprite(spr, i, WorldDy + LAND_HEIGHT - SpritesData[spr].Height, 0);

		inc(i, w)

	until i > sw

	end else

	begin

	w:= SpritesData[spr].Width;

	dec(Shift, w div 2);

	DrawSprite(spr, Shift, WorldDy + LAND_HEIGHT - SpritesData[spr].Height, 0);

	sw:= round(cScreenWidth / cScaleFactor);

	i:= Shift - SpritesData[sprL].Width;

	while i >= -sw - SpritesData[sprL].Width do

		begin

		DrawSprite(sprL, i, WorldDy + LAND_HEIGHT - SpritesData[sprL].Height, 0);

		dec(i, SpritesData[sprL].Width);

		end;

	i:= Shift + w;

	while i <= sw do

		begin

		DrawSprite(sprR, i, WorldDy + LAND_HEIGHT - SpritesData[sprR].Height, 0);

		inc(i, SpritesData[sprR].Width)

		end

	end

end;

procedure DrawWorld(Lag: LongInt);

var i, t: LongInt;

    r: TSDL_Rect;

    tdx, tdy: Double;

    grp: TCapGroup;

    s: string[15];

    highlight: Boolean;

    offset, offsetX, offsetY: LongInt;

    scale: GLfloat;

begin

if ZoomValue < zoom then

	begin

	zoom:= zoom - 0.002 * Lag;

	if ZoomValue > zoom then zoom:= ZoomValue

	end else

if ZoomValue > zoom then

	begin

	zoom:= zoom + 0.002 * Lag;

	if ZoomValue < zoom then zoom:= ZoomValue

	end;

// Sky

glClear(GL_COLOR_BUFFER_BIT);

glEnable(GL_BLEND);

glEnable(GL_TEXTURE_2D);

//glPushMatrix;

//glScalef(1.0, 1.0, 1.0);

if not isPaused then MoveCamera;

if not cReducedQuality then

    begin

    // background

    DrawRepeated(sprSky, sprSkyL, sprSkyR, (WorldDx + LAND_WIDTH div 2) * 3 div 8);

    DrawRepeated(sprHorizont, sprHorizontL, sprHorizontR, (WorldDx + LAND_WIDTH div 2) * 3 div 5);

    DrawVisualGears(0);

    end;

// Waves

DrawWaves( 1,  0, - (cWaveHeight shl 1));

DrawWaves(-1, 100, - (cWaveHeight + (cWaveHeight shr 1)));

DrawLand(WorldDx, WorldDy);

DrawWater(255);

// Attack bar

if CurrentTeam <> nil then

	case AttackBar of

(*        1: begin

		r:= StuffPoz[sPowerBar];

		{$WARNINGS OFF}

		r.w:= (CurrentHedgehog^.Gear^.Power * 256) div cPowerDivisor;

		{$WARNINGS ON}

		DrawSpriteFromRect(r, cScreenWidth - 272, cScreenHeight - 48, 16, 0, Surface);

		end;*)

		2: with CurrentHedgehog^ do

				begin

				tdx:= hwSign(Gear^.dX) * Sin(Gear^.Angle * Pi / cMaxAngle);

				tdy:= - Cos(Gear^.Angle * Pi / cMaxAngle);

				for i:= (Gear^.Power * 24) div cPowerDivisor downto 0 do

					DrawSprite(sprPower,

							hwRound(Gear^.X) + round(WorldDx + tdx * (24 + i * 2)) - 16,

							hwRound(Gear^.Y) + round(WorldDy + tdy * (24 + i * 2)) - 12,

							i)

				end

		end;

DrawVisualGears(1);