hedgewars/uWorld.pas
changeset 3464 cdb0ddeb38ba
parent 3463 23c50be687a9
child 3483 54ff8cbabaa6
equal deleted inserted replaced
3463:23c50be687a9 3464:cdb0ddeb38ba
   167 WorldDx:=  - (LAND_WIDTH div 2) + cScreenWidth div 2;
   167 WorldDx:=  - (LAND_WIDTH div 2) + cScreenWidth div 2;
   168 WorldDy:=  - (LAND_HEIGHT - (playHeight div 2)) + (cScreenHeight div 2);
   168 WorldDy:=  - (LAND_HEIGHT - (playHeight div 2)) + (cScreenHeight div 2);
   169 AMSlotSize:= 33;
   169 AMSlotSize:= 33;
   170 {$IFDEF IPHONEOS}
   170 {$IFDEF IPHONEOS}
   171 AMxOffset:= 10;
   171 AMxOffset:= 10;
   172 AMyOffset:= 10;
   172 AMyOffset:= 10 + 123;   // moved downwards
   173 AMWidth:= (cMaxSlotAmmoIndex + 1) * AMSlotSize + AMxOffset;
   173 AMWidth:= (cMaxSlotAmmoIndex + 1) * AMSlotSize + AMxOffset;
   174 {$ELSE}
   174 {$ELSE}
   175 AMxOffset:= 10;
   175 AMxOffset:= 10;
   176 AMyOffset:= 60;
   176 AMyOffset:= 60;
   177 AMWidth:= (cMaxSlotAmmoIndex + 2) * AMSlotSize + AMxOffset;
   177 AMWidth:= (cMaxSlotAmmoIndex + 2) * AMSlotSize + AMxOffset;
   233 x:= (cScreenWidth shr 1) - AMWidth + AMxShift;
   233 x:= (cScreenWidth shr 1) - AMWidth + AMxShift;
   234 
   234 
   235 {$IFDEF IPHONEOS}
   235 {$IFDEF IPHONEOS}
   236 Slot:= cMaxSlotIndex;
   236 Slot:= cMaxSlotIndex;
   237 x:= x - cOffsetY;
   237 x:= x - cOffsetY;
   238 y:= AMyOffset + 123;
   238 y:= AMyOffset;
   239 dec(y, BORDERSIZE);
   239 dec(y, BORDERSIZE);
   240 DrawSprite(sprAMCorners, x - BORDERSIZE, y, 0);
   240 DrawSprite(sprAMCorners, x - BORDERSIZE, y, 0);
   241 for i:= 0 to cMaxSlotAmmoIndex do
   241 for i:= 0 to cMaxSlotAmmoIndex do
   242 	DrawSprite(sprAMBorderHorizontal, x + i * AMSlotSize, y, 0);
   242 	DrawSprite(sprAMBorderHorizontal, x + i * AMSlotSize, y, 0);
   243 DrawSprite(sprAMCorners, x + AMWidth - AMxOffset, y, 1);
   243 DrawSprite(sprAMCorners, x + AMWidth - AMxOffset, y, 1);