hedgewars/uWorld.pas
changeset 2803 1f446fc5c8ec
parent 2786 85f6425a4d74
child 2839 95977f876122
equal deleted inserted replaced
2802:28cd5b87bce9 2803:1f446fc5c8ec
   357 var i, t: LongInt;
   357 var i, t: LongInt;
   358     r: TSDL_Rect;
   358     r: TSDL_Rect;
   359     tdx, tdy: Double;
   359     tdx, tdy: Double;
   360     grp: TCapGroup;
   360     grp: TCapGroup;
   361     s: string[15];
   361     s: string[15];
   362 	highlight: Boolean;
   362     highlight: Boolean;
   363     offset: LongInt;
   363     offset, offsetX, offsetY: LongInt;
   364     scale: GLfloat;
   364     scale: GLfloat;
   365 begin
   365 begin
   366 if ZoomValue < zoom then
   366 if ZoomValue < zoom then
   367 	begin
   367 	begin
   368 	zoom:= zoom - 0.002 * Lag;
   368 	zoom:= zoom - 0.002 * Lag;
   449 {$ENDIF}
   449 {$ENDIF}
   450 SetScale(scale);
   450 SetScale(scale);
   451 
   451 
   452 
   452 
   453 // Turn time
   453 // Turn time
       
   454 {$IFDEF IPHONEOS}
       
   455 offset:= 313;
       
   456 {$ELSE}
   454 offset:= 48;
   457 offset:= 48;
       
   458 {$ENDIF}
   455 if TurnTimeLeft <> 0 then
   459 if TurnTimeLeft <> 0 then
   456    begin
   460    begin
   457    i:= Succ(Pred(TurnTimeLeft) div 1000);
   461    i:= Succ(Pred(TurnTimeLeft) div 1000);
   458    if i>99 then t:= 112
   462    if i>99 then t:= 112
   459       else if i>9 then t:= 96
   463       else if i>9 then t:= 96
   514 	end;
   518 	end;
   515 {$ENDIF}
   519 {$ENDIF}
   516 
   520 
   517 // Captions
   521 // Captions
   518 {$IFDEF IPHONEOS}
   522 {$IFDEF IPHONEOS}
   519 offset:= 49;
   523 offset:= 40;
   520 {$ELSE}
   524 {$ELSE}
   521 if ((TrainingFlags and tfTimeTrial) <> 0) and (TimeTrialStartTime > 0) then offset:= 48
   525 if ((TrainingFlags and tfTimeTrial) <> 0) and (TimeTrialStartTime > 0) then offset:= 48
   522 else offset:= 8;
   526 else offset:= 8;
   523 {$ENDIF}
   527 {$ENDIF}
   524 
   528 
   576 // Lag alert
   580 // Lag alert
   577 if isInLag then DrawSprite(sprLag, 32 - (cScreenWidth shr 1), 32, (RealTicks shr 7) mod 12);
   581 if isInLag then DrawSprite(sprLag, 32 - (cScreenWidth shr 1), 32, (RealTicks shr 7) mod 12);
   578 
   582 
   579 // Wind bar
   583 // Wind bar
   580 {$IFDEF IPHONEOS}
   584 {$IFDEF IPHONEOS}
   581 offset:= 305;
   585 offsetX:= 305;
       
   586 offsetY:= 315;
   582 {$ELSE}
   587 {$ELSE}
   583 offset:= 30;
   588 offsetX:= 30;
       
   589 offsetY:= 180;
   584 {$ENDIF}
   590 {$ENDIF}
   585 DrawSprite(sprWindBar, (cScreenWidth shr 1) - 180, cScreenHeight - offset, 0);
   591 DrawSprite(sprWindBar, (cScreenWidth shr 1) - offsetY, cScreenHeight - offsetX, 0);
   586 if WindBarWidth > 0 then
   592 if WindBarWidth > 0 then
   587    begin
   593    begin
   588    {$WARNINGS OFF}
   594    {$WARNINGS OFF}
   589    r.x:= 8 - (RealTicks shr 6) mod 8;
   595    r.x:= 8 - (RealTicks shr 6) mod 8;
   590    {$WARNINGS ON}
   596    {$WARNINGS ON}
   591    r.y:= 0;
   597    r.y:= 0;
   592    r.w:= WindBarWidth;
   598    r.w:= WindBarWidth;
   593    r.h:= 13;
   599    r.h:= 13;
   594    DrawSpriteFromRect(sprWindR, r, (cScreenWidth shr 1) - 103, cScreenHeight - offset + 2, 13, 0);
   600    DrawSpriteFromRect(sprWindR, r, (cScreenWidth shr 1) - offsetY + 77, cScreenHeight - offsetX + 2, 13, 0);
   595    end else
   601    end else
   596  if WindBarWidth < 0 then
   602  if WindBarWidth < 0 then
   597    begin
   603    begin
   598    {$WARNINGS OFF}
   604    {$WARNINGS OFF}
   599    r.x:= (WindBarWidth + RealTicks shr 6) mod 8;
   605    r.x:= (WindBarWidth + RealTicks shr 6) mod 8;
   600    {$WARNINGS ON}
   606    {$WARNINGS ON}
   601    r.y:= 0;
   607    r.y:= 0;
   602    r.w:= - WindBarWidth;
   608    r.w:= - WindBarWidth;
   603    r.h:= 13;
   609    r.h:= 13;
   604    DrawSpriteFromRect(sprWindL, r, (cScreenWidth shr 1) - 106 + WindBarWidth, cScreenHeight - offset + 2, 13, 0);
   610    DrawSpriteFromRect(sprWindL, r, (cScreenWidth shr 1) - offsetY + 74 + WindBarWidth, cScreenHeight - offsetX + 2, 13, 0);
   605    end;
   611    end;
   606 
   612 
   607 // AmmoMenu
   613 // AmmoMenu
   608 if (AMxShift < 210) or bShowAmmoMenu then ShowAmmoMenu;
   614 if (AMxShift < 210) or bShowAmmoMenu then ShowAmmoMenu;
   609 
   615 
   624 		DrawCentered(0, (cScreenHeight shr 1) + 100, missionTex);
   630 		DrawCentered(0, (cScreenHeight shr 1) + 100, missionTex);
   625 	end;
   631 	end;
   626 
   632 
   627 // fps
   633 // fps
   628 {$IFDEF IPHONEOS}
   634 {$IFDEF IPHONEOS}
   629 offset:= 40;
   635 offset:= 300;
   630 {$ELSE}
   636 {$ELSE}
   631 offset:= 10;
   637 offset:= 10;
   632 {$ENDIF}
   638 {$ENDIF}
   633 inc(Frames);
   639 inc(Frames);
   634 if cShowFPS then
   640 if cShowFPS then