hedgewars: comparison hedgewars/uWorld.pas

equal deleted inserted replaced

-:c11abf387a7d
+:d5b30d6373fc
 HorizontOffset: LongInt;
 {$IFDEF COUNTTICKS}
 cntTicks: LongWord;
 {$ENDIF}
 cOffsetY: LongInt;
 procedure initModule;
 procedure freeModule;
 procedure InitWorld;
 procedure DrawWorld(Lag: LongInt);
 for g:= g to cMaxSlotAmmoIndex do
 DrawSprite(sprAMSlot, x + g * AMSlotSize, y, 1);
 DrawSprite(sprAMBorderVertical, x + AMWidth - AMxOffset, y, 1);
 inc(y, AMSlotSize);
 end;
 DrawSprite(sprAMCorners, x - BORDERSIZE, y, 2);
 for i:= 0 to cMaxSlotAmmoIndex do
 	DrawSprite(sprAMBorderHorizontal, x + i * AMSlotSize, y, 1);
 DrawSprite(sprAMCorners, x + AMWidth - AMxOffset, y, 3);
 {$ELSE}
 end;
 for g:= g to cMaxSlotAmmoIndex + 1 do
 DrawSprite(sprAMSlot, x + g * AMSlotSize, y, 1);
 DrawSprite(sprAMBorderVertical, x + AMWidth - AMxOffset, y, 1);
 end;
 dec(y, BORDERSIZE);
 DrawSprite(sprAMCorners, x - BORDERSIZE, y, 0);
 for i:= 0 to cMaxSlotAmmoIndex + 1 do
 	DrawSprite(sprAMBorderHorizontal, x + i * AMSlotSize, y, 0);
 DrawSprite(sprAMCorners, x + AMWidth - AMxOffset, y, 1);
 if (amSel <> Ammo^[Slot, Pos].AmmoType) or (WeaponTooltipTex = nil) then
 begin
 amSel:= Ammo^[Slot, Pos].AmmoType;
 RenderWeaponTooltip(amSel)
 end;
 {$IFDEF IPHONEOS}
 DrawTexture(cScreenWidth div 2 - (AMWidth - 10) + AMxShift, AMyOffset - 25, Ammoz[Ammo^[Slot, Pos].AmmoType].NameTex);
 if Ammo^[Slot, Pos].Count < AMMO_INFINITE then
 DrawTexture(cScreenWidth div 2 + AMxOffset - 45, AMyOffset - 25, CountTexz[Ammo^[Slot, Pos].Count]);
 WaterColorArray[2].a := Alpha;
 WaterColorArray[3].a := Alpha;
 lw:= cScreenWidth / cScaleFactor;
 lh:= trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 + 16;
 // Water
 r.y:= OffsetY + WorldDy + cWaterLine;
 if WorldDy < trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 - cWaterLine then
 begin
 if r.y < 0 then
 lh:= SpritesData[sprL].Height * SpritesData[spr].Texture^.Scale;
 rw:= SpritesData[sprR].Width * SpritesData[spr].Texture^.Scale;
 rh:= SpritesData[sprR].Height * SpritesData[spr].Texture^.Scale;
 dec(Shift, w div 2);
 DrawTexture(Shift, WorldDy + LAND_HEIGHT + OffsetY - h, SpritesData[spr].Texture, SpritesData[spr].Texture^.Scale);
 i:= Shift - lw;
 while i >= -sw - lw do
 begin
 DrawTexture(i, WorldDy + LAND_HEIGHT + OffsetY - lh, SpritesData[sprL].Texture, SpritesData[sprL].Texture^.Scale);
 dec(i, lw);
 end;
 i:= Shift + w;
 while i <= sw do
 begin
 DrawTexture(i, WorldDy + LAND_HEIGHT + OffsetY - rh, SpritesData[sprR].Texture, SpritesData[sprR].Texture^.Scale);
 inc(i, rw)
 if not isPaused then
 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
 DrawRepeated(sprSky, sprSkyL, sprSkyR, (WorldDx + LAND_WIDTH div 2) * 3 div 8, SkyOffset);
 DrawRepeated(sprHorizont, sprHorizontL, sprHorizontR, (WorldDx + LAND_WIDTH div 2) * 3 div 5, HorizontOffset);
 end;
 DrawVisualGears(0);
 if (cReducedQuality and rq2DWater) = 0 then
 begin
 // Waves
 DrawWater(255, SkyOffset);
 DrawWaves( 1,  0 - WorldDx div 32, - cWaveHeight + offsetY div 35, 64);
 DrawWaves( -1,  25 + WorldDx div 25, - cWaveHeight + offsetY div 38, 48);
 DrawWaves( 1,  75 - WorldDx div 19, - cWaveHeight + offsetY div 45, 32);
 DrawWaves(-1, 100 + WorldDx div 14, - cWaveHeight + offsetY div 70, 24);
 end
 t:= 272;
 // right frame
 DrawSprite(sprFrame, -cScreenWidth div 2 + t, 8, 1);
 dec(t, 32);
 // 1 ms
 DrawSprite(sprBigDigit, -cScreenWidth div 2 + t, 8, i mod 10);
 dec(t, 32);
 i:= i div 10;
 // 10 ms
 DrawSprite(sprBigDigit, -cScreenWidth div 2 + t, 8, i mod 10);
 dec(t, 32);
 // Teams Healths
 for t:= 0 to Pred(TeamsCount) do
 with TeamsArray[t]^ do
 begin
 highlight:= bShowFinger and (CurrentTeam = TeamsArray[t]) and ((RealTicks mod 1000) < 500);
 if highlight then
 Tint(Clan^.Color);
 // draw name
 DrawTexture(-NameTagTex^.w - 16, cScreenHeight + DrawHealthY, NameTagTex);
 // draw flag
 DrawTexture(-14, cScreenHeight + DrawHealthY, FlagTex);
 // draw health bar
 r.x:= 0;
 r.y:= 0;
 r.w:= 2 + TeamHealthBarWidth;
 r.h:= HealthTex^.h;
 i:= i div 60;
 t:= i mod 60;
 s:= inttostr(t) + ':' + s;
 if t < 10 then s:= '0' + s;
 s:= inttostr(i div 60) + ':' + s;
 if timeTexture <> nil then
 FreeTexture(timeTexture);
 timeTexture:= nil;
 tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), cWhiteColorChannels);
 tmpSurface:= doSurfaceConversion(tmpSurface);
 timeTexture:= Surface2Tex(tmpSurface, false);
 SDL_FreeSurface(tmpSurface)
 end;
 begin
 case ScreenFade of
 sfToBlack, sfFromBlack: Tint(0, 0, 0, ScreenFadeValue * 255 div 1000);
 sfToWhite, sfFromWhite: Tint($FF, $FF, $FF, ScreenFadeValue * 255 div 1000);
 end;
 VertexBuffer[0].X:= -cScreenWidth;
 VertexBuffer[0].Y:= cScreenHeight;
 VertexBuffer[1].X:= -cScreenWidth;
 VertexBuffer[1].Y:= 0;
 VertexBuffer[2].X:= cScreenWidth;
 VertexBuffer[2].Y:= 0;
 VertexBuffer[3].X:= cScreenWidth;
 VertexBuffer[3].Y:= cScreenHeight;
 glDisable(GL_TEXTURE_2D);
 glVertexPointer(2, GL_FLOAT, 0, @VertexBuffer[0]);
 glDrawArrays(GL_TRIANGLE_FAN, 0, Length(VertexBuffer));
 end;
 procedure AddCaption(s: shortstring; Color: Longword; Group: TCapGroup);
 begin
 //if Group in [capgrpGameState] then WriteLnToConsole(s);
 if Captions[Group].Tex <> nil then
 FreeTexture(Captions[Group].Tex);
 Captions[Group].Tex:= nil;
 Captions[Group].Tex:= RenderStringTex(s, Color, fntBig);
 r.w:= 32;
 r.h:= 32;
 if time = 0 then time:= 5000;
 missionTimer:= time;
 if missionTex <> nil then
 FreeTexture(missionTex);
 missionTex:= nil;
 if icon > -1 then
 begin
 bSelected:= false;
 bShowFinger:= false;
 Frames:= 0;
 WorldDx:= -512;
 WorldDy:= -256;
 FPS:= 0;
 CountTicks:= 0;
 SoundTimerTicks:= 0;
 prevPoint.X:= 0;
 prevPoint.Y:= 0;
 missionTimer:= 0;
 missionTex:= nil;
 cOffsetY:= 0;
 FillChar(Captions, sizeof(Captions), 0)
 end;
 procedure freeModule;
 begin

changeset 3697	d5b30d6373fc
parent 3695	c11abf387a7d
child 3764	eb91c02f2d84