sheepy-clone: comparison hedgewars/uWorld.pas

equal deleted inserted replaced

-:e9ab9639a1af
+:58e54e737279
 ScreenBottom:= (WorldDy - trunc(cScreenHeight/cScaleFactor) - (cScreenHeight div 2) + cWaterLine);
 // note: offsetY is negative!
 offsetY:= 10 *  Min(0, -145 - ScreenBottom); // TODO limit this in the other direction too
+// Sky and horizont
 if (cReducedQuality and rqNoBackground) = 0 then
 begin
 // Offsets relative to camera - spare them to wimpier cpus, no bg or flakes for them anyway
 SkyOffset:= offsetY div 35 + cWaveHeight;
 HorizontOffset:= SkyOffset;
 if SuddenDeathDmg then
 DrawWater(SDWaterOpacity, 0, 0)
 else
 DrawWater(WaterOpacity, 0, 0);
 // Waves
 ChangeDepth(RM, cStereo_Water_near);
 DrawWaves( 1, 25 - WorldDx div 9, 0, 0, 12);
 if (cReducedQuality and rq2DWater) = 0 then
 begin
-//DrawWater(WaterOpacity, - offsetY div 40);
 ChangeDepth(RM, cStereo_Water_near);
 DrawWaves(-1, 50 + WorldDx div 6, - offsetY div 40, 23, 8);
 if SuddenDeathDmg then
 DrawWater(SDWaterOpacity, - offsetY div 20, 23)
 else
 UnshiftWorld();
 end;
 DrawVisualGears(3, false);
-// Target
+// Target (e.g. air attack, bee, ...)
 if (TargetPoint.X <> NoPointX) and (CurrentTeam <> nil) and (CurrentHedgehog <> nil) then
 begin
 with PHedgehog(CurrentHedgehog)^ do
 begin
 if CurAmmoType = amBee then
 UnshiftWorld();
 end;
 RenderAttackBar();
+// World edge
 RenderWorldEdge();
-// this scale is used to keep the various widgets at the same dimension at all zoom levels
+// This scale is used to keep the various widgets at the same dimension at all zoom levels
 SetScale(cDefaultZoomLevel);
-// cinematic effects
+// Cinematic Mode: Effects
 if CinematicScript or (InCinematicMode and autoCameraOn
 and ((CurrentHedgehog = nil) or CurrentHedgehog^.Team^.ExtDriven
 or (CurrentHedgehog^.BotLevel <> 0) or (GameType = gmtDemo))) then
 begin
 if CinematicSteps < 300 then
 dec(CinematicSteps, Lag);
 if CinematicSteps < 0 then
 CinematicSteps:= 0;
 end;
-// render black bars
+// Cinematic Mode: Render black bars
 if CinematicSteps > 0 then
 begin
 r.x:= ViewLeftX;
 r.w:= ViewWidth;
 r.y:= ViewTopY;
 DrawScreenWidget(@AMWidget);
 DrawScreenWidget(@pauseButton);
 DrawScreenWidget(@utilityWidget);
 {$ENDIF}
+// Team bars
 if UIDisplay = uiAll then
 RenderTeamsHealth;
 // Lag alert
 if isInLag then
 // Chat
 DrawChat;
-// various captions
+// Centered status/menu messages (synchronizing, auto skip, pause, etc.)
 if fastUntilLag then
 DrawTextureCentered(0, (cScreenHeight shr 1), SyncTexture)
 else if isAFK then
 DrawTextureCentered(0, (cScreenHeight shr 1), AFKTexture)
 else if isPaused then
 DrawTextureCentered(0, (cScreenHeight shr 1), PauseTexture);
+// Mission panel
 if not isFirstFrame and (missionTimer <> 0) or isShowMission or isPaused or fastUntilLag or (GameState = gsConfirm) then
 begin
 if (ReadyTimeLeft = 0) and (missionTimer > 0) then
 dec(missionTimer, Lag);
 if missionTimer < 0 then
 DrawTextureCentered(0, Min((cScreenHeight shr 1) + 100, cScreenHeight - 48 - missionTex^.h), missionTex);
 end;
 if missionTimer = 0 then
 isForceMission := false;
-// fps
+// FPS and demo replay time
 {$IFDEF USE_TOUCH_INTERFACE}
 offsetX:= pauseButton.frame.y + pauseButton.frame.h + 12;
 {$ELSE}
 offsetX:= 10;
 {$ENDIF}
 begin
 inc(Frames);
 if cShowFPS or (GameType = gmtDemo) then
 inc(CountTicks, Lag);
+// Demo replay time
 if (GameType = gmtDemo) and (CountTicks >= 1000) then
 begin
 i:= GameTicks div 1000;
 t:= i mod 60;
 s:= inttostr(t);
 end;
 if timeTexture <> nil then
 DrawTexture((cScreenWidth shr 1) - 20 - timeTexture^.w - offsetY, offsetX + timeTexture^.h+5, timeTexture);
+// FPS counter
 if cShowFPS then
 begin
 if CountTicks >= 1000 then
 begin
 FPS:= Frames;
 if fpsTexture <> nil then
 DrawTexture((cScreenWidth shr 1) - 60 - offsetY, offsetX, fpsTexture);
 end;
 end;
+// Quit Y/N question
 if GameState = gsConfirm then
 DrawTextureCentered(0, (cScreenHeight shr 1)-40, ConfirmTexture);
 if ScreenFade <> sfNone then
 begin
 ScreenFade:= sfNone
 end
 end;
 {$IFDEF USE_VIDEO_RECORDING}
-// during video prerecording draw red blinking circle and text 'rec'
+// During video prerecording draw red blinking circle and text 'rec'
 if flagPrerecording then
 begin
 if recTexture = nil then
 begin
 s:= 'rec';
 recTexture:= Surface2Tex(tmpSurface, false);
 SDL_FreeSurface(tmpSurface)
 end;
 DrawTexture( -(cScreenWidth shr 1) + 50, 20, recTexture);
-//a:= Byte(Round(127*(1 + sin(RealTicks*0.007))));
 a:= Byte(min(255, abs(-255 + ((RealTicks div 2) and 511))));
 // draw red circle
 DrawCircleFilled(-(cScreenWidth shr 1) + 30, 35, 10, $FF, $00, $00, a);
 end;
 end;
 DrawSprite(PosSprite, TargetCursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - TargetCursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i);
 Untint();
 end;
 end;
-//DrawSprite(sprArrow, TargetCursorPoint.X, cScreenHeight - TargetCursorPoint.Y, (RealTicks shr 6) mod 8)
 DrawTextureF(SpritesData[sprArrow].Texture, cDefaultZoomLevel / cScaleFactor, TargetCursorPoint.X + round(SpritesData[sprArrow].Width / cScaleFactor), cScreenHeight + round(SpritesData[sprArrow].Height / cScaleFactor) - TargetCursorPoint.Y, (RealTicks shr 6) mod 8, 1, SpritesData[sprArrow].Width, SpritesData[sprArrow].Height);
 end;
 // debug stuff
 if cViewLimitsDebug then

changeset 14008	58e54e737279
parent 13967	9be2926890cd
child 14009	97e48a6c2535