# ship_cmd.cpp

Go to the documentation of this file.

    00001 /* $Id$ */
    00002
    00003 /*
    00004  * This file is part of OpenTTD.
    00005  * OpenTTD 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.
    00006  * OpenTTD 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.
    00007  * See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with OpenTTD. If not, see <http://www.gnu.org/licenses/>.
    00008  */
    00009
    00012 #include "stdafx.h"
    00013 #include "ship.h"
    00014 #include "landscape.h"
    00015 #include "timetable.h"
    00016 #include "news_func.h"
    00017 #include "company_func.h"
    00018 #include "pathfinder/npf/npf_func.h"
    00019 #include "depot_base.h"
    00020 #include "station_base.h"
    00021 #include "vehicle_gui.h"
    00022 #include "newgrf_engine.h"
    00023 #include "pathfinder/yapf/yapf.h"
    00024 #include "newgrf_sound.h"
    00025 #include "spritecache.h"
    00026 #include "strings_func.h"
    00027 #include "window_func.h"
    00028 #include "date_func.h"
    00029 #include "vehicle_func.h"
    00030 #include "sound_func.h"
    00031 #include "ai/ai.hpp"
    00032 #include "pathfinder/opf/opf_ship.h"
    00033 #include "engine_base.h"
    00034 #include "company_base.h"
    00035
    00036 #include "table/strings.h"
    00037
    00038 static const uint16 _ship_sprites[] = {0x0E5D, 0x0E55, 0x0E65, 0x0E6D};
    00039
    00040 static inline TrackBits GetTileShipTrackStatus(TileIndex tile)
    00041 {
    00042   return TrackStatusToTrackBits(GetTileTrackStatus(tile, TRANSPORT_WATER, 0));
    00043 }
    00044
    00045 static SpriteID GetShipIcon(EngineID engine)
    00046 {
    00047   const Engine *e = Engine::Get(engine);
    00048   uint8 spritenum = e->u.ship.image_index;
    00049
    00050   if (is_custom_sprite(spritenum)) {
    00051     SpriteID sprite = GetCustomVehicleIcon(engine, DIR_W);
    00052     if (sprite != 0) return sprite;
    00053
    00054     spritenum = e->original_image_index;
    00055   }
    00056
    00057   return DIR_W + _ship_sprites[spritenum];
    00058 }
    00059
    00060 void DrawShipEngine(int left, int right, int preferred_x, int y, EngineID engine, PaletteID pal)
    00061 {
    00062   SpriteID sprite = GetShipIcon(engine);
    00063   const Sprite *real_sprite = GetSprite(sprite, ST_NORMAL);
    00064   preferred_x = Clamp(preferred_x, left - real_sprite->x_offs, right - real_sprite->width - real_sprite->x_offs);
    00065   DrawSprite(sprite, pal, preferred_x, y);
    00066 }
    00067
    00074 void GetShipSpriteSize(EngineID engine, uint &width, uint &height)
    00075 {
    00076   const Sprite *spr = GetSprite(GetShipIcon(engine), ST_NORMAL);
    00077
    00078   width  = spr->width;
    00079   height = spr->height;
    00080 }
    00081
    00082 SpriteID Ship::GetImage(Direction direction) const
    00083 {
    00084   uint8 spritenum = this->spritenum;
    00085
    00086   if (is_custom_sprite(spritenum)) {
    00087     SpriteID sprite = GetCustomVehicleSprite(this, direction);
    00088     if (sprite != 0) return sprite;
    00089
    00090     spritenum = Engine::Get(this->engine_type)->original_image_index;
    00091   }
    00092
    00093   return _ship_sprites[spritenum] + direction;
    00094 }
    00095
    00096 static const Depot *FindClosestShipDepot(const Vehicle *v, uint max_distance)
    00097 {
    00098   /* Find the closest depot */
    00099   const Depot *depot;
    00100   const Depot *best_depot = NULL;
    00101   /* If we don't have a maximum distance, i.e. distance = 0,
    00102    * we want to find any depot so the best distance of no
    00103    * depot must be more than any correct distance. On the
    00104    * other hand if we have set a maximum distance, any depot
    00105    * further away than max_distance can safely be ignored. */
    00106   uint best_dist = max_distance == 0 ? UINT_MAX : max_distance + 1;
    00107
    00108   FOR_ALL_DEPOTS(depot) {
    00109     TileIndex tile = depot->xy;
    00110     if (IsShipDepotTile(tile) && IsTileOwner(tile, v->owner)) {
    00111       uint dist = DistanceManhattan(tile, v->tile);
    00112       if (dist < best_dist) {
    00113         best_dist = dist;
    00114         best_depot = depot;
    00115       }
    00116     }
    00117   }
    00118
    00119   return best_depot;
    00120 }
    00121
    00122 static void CheckIfShipNeedsService(Vehicle *v)
    00123 {
    00124   if (Company::Get(v->owner)->settings.vehicle.servint_ships == 0 || !v->NeedsAutomaticServicing()) return;
    00125   if (v->IsInDepot()) {
    00126     VehicleServiceInDepot(v);
    00127     return;
    00128   }
    00129
    00130   uint max_distance;
    00131   switch (_settings_game.pf.pathfinder_for_ships) {
    00132     case VPF_OPF:  max_distance = 12; break;
    00133     case VPF_NPF:  max_distance = _settings_game.pf.npf.maximum_go_to_depot_penalty  / NPF_TILE_LENGTH;  break;
    00134     case VPF_YAPF: max_distance = _settings_game.pf.yapf.maximum_go_to_depot_penalty / YAPF_TILE_LENGTH; break;
    00135     default: NOT_REACHED();
    00136   }
    00137
    00138   const Depot *depot = FindClosestShipDepot(v, max_distance);
    00139
    00140   if (depot == NULL) {
    00141     if (v->current_order.IsType(OT_GOTO_DEPOT)) {
    00142       v->current_order.MakeDummy();
    00143       SetWindowWidgetDirty(WC_VEHICLE_VIEW, v->index, VVW_WIDGET_START_STOP_VEH);
    00144     }
    00145     return;
    00146   }
    00147
    00148   v->current_order.MakeGoToDepot(depot->index, ODTFB_SERVICE);
    00149   v->dest_tile = depot->xy;
    00150   SetWindowWidgetDirty(WC_VEHICLE_VIEW, v->index, VVW_WIDGET_START_STOP_VEH);
    00151 }
    00152
    00153 void Ship::UpdateCache()
    00154 {
    00155   this->vcache.cached_max_speed = GetVehicleProperty(this, PROP_SHIP_SPEED, ShipVehInfo(this->engine_type)->max_speed);
    00156
    00157   this->UpdateVisualEffect();
    00158 }
    00159
    00160 Money Ship::GetRunningCost() const
    00161 {
    00162   const Engine *e = Engine::Get(this->engine_type);
    00163   uint cost_factor = GetVehicleProperty(this, PROP_SHIP_RUNNING_COST_FACTOR, e->u.ship.running_cost);
    00164   return GetPrice(PR_RUNNING_SHIP, cost_factor, e->grf_prop.grffile);
    00165 }
    00166
    00167 void Ship::OnNewDay()
    00168 {
    00169   if ((++this->day_counter & 7) == 0) {
    00170     DecreaseVehicleValue(this);
    00171   }
    00172
    00173   CheckVehicleBreakdown(this);
    00174   AgeVehicle(this);
    00175   CheckIfShipNeedsService(this);
    00176
    00177   CheckOrders(this);
    00178
    00179   if (this->running_ticks == 0) return;
    00180
    00181   CommandCost cost(EXPENSES_SHIP_RUN, this->GetRunningCost() * this->running_ticks / (DAYS_IN_YEAR * DAY_TICKS));
    00182
    00183   this->profit_this_year -= cost.GetCost();
    00184   this->running_ticks = 0;
    00185
    00186   SubtractMoneyFromCompanyFract(this->owner, cost);
    00187
    00188   SetWindowDirty(WC_VEHICLE_DETAILS, this->index);
    00189   /* we need this for the profit */
    00190   SetWindowClassesDirty(WC_SHIPS_LIST);
    00191 }
    00192
    00193 Trackdir Ship::GetVehicleTrackdir() const
    00194 {
    00195   if (this->vehstatus & VS_CRASHED) return INVALID_TRACKDIR;
    00196
    00197   if (this->IsInDepot()) {
    00198     /* We'll assume the ship is facing outwards */
    00199     return DiagDirToDiagTrackdir(GetShipDepotDirection(this->tile));
    00200   }
    00201
    00202   if (this->state == TRACK_BIT_WORMHOLE) {
    00203     /* ship on aqueduct, so just use his direction and assume a diagonal track */
    00204     return DiagDirToDiagTrackdir(DirToDiagDir(this->direction));
    00205   }
    00206
    00207   return TrackDirectionToTrackdir(FindFirstTrack(this->state), this->direction);
    00208 }
    00209
    00210 void Ship::MarkDirty()
    00211 {
    00212   this->UpdateViewport(false, false);
    00213   this->UpdateCache();
    00214 }
    00215
    00216 static void PlayShipSound(const Vehicle *v)
    00217 {
    00218   if (!PlayVehicleSound(v, VSE_START)) {
    00219     SndPlayVehicleFx(ShipVehInfo(v->engine_type)->sfx, v);
    00220   }
    00221 }
    00222
    00223 void Ship::PlayLeaveStationSound() const
    00224 {
    00225   PlayShipSound(this);
    00226 }
    00227
    00228 TileIndex Ship::GetOrderStationLocation(StationID station)
    00229 {
    00230   if (station == this->last_station_visited) this->last_station_visited = INVALID_STATION;
    00231
    00232   const Station *st = Station::Get(station);
    00233   if (st->dock_tile != INVALID_TILE) {
    00234     return TILE_ADD(st->dock_tile, ToTileIndexDiff(GetDockOffset(st->dock_tile)));
    00235   } else {
    00236     this->IncrementRealOrderIndex();
    00237     return 0;
    00238   }
    00239 }
    00240
    00241 void Ship::UpdateDeltaXY(Direction direction)
    00242 {
    00243 #define MKIT(a, b, c, d) ((a & 0xFF) << 24) | ((b & 0xFF) << 16) | ((c & 0xFF) << 8) | ((d & 0xFF) << 0)
    00244   static const uint32 _delta_xy_table[8] = {
    00245     MKIT( 6,  6,  -3,  -3),
    00246     MKIT( 6, 32,  -3, -16),
    00247     MKIT( 6,  6,  -3,  -3),
    00248     MKIT(32,  6, -16,  -3),
    00249     MKIT( 6,  6,  -3,  -3),
    00250     MKIT( 6, 32,  -3, -16),
    00251     MKIT( 6,  6,  -3,  -3),
    00252     MKIT(32,  6, -16,  -3),
    00253   };
    00254 #undef MKIT
    00255
    00256   uint32 x = _delta_xy_table[direction];
    00257   this->x_offs        = GB(x,  0, 8);
    00258   this->y_offs        = GB(x,  8, 8);
    00259   this->x_extent      = GB(x, 16, 8);
    00260   this->y_extent      = GB(x, 24, 8);
    00261   this->z_extent      = 6;
    00262 }
    00263
    00264 static const TileIndexDiffC _ship_leave_depot_offs[] = {
    00265   {-1,  0},
    00266   { 0, -1}
    00267 };
    00268
    00269 static void CheckShipLeaveDepot(Ship *v)
    00270 {
    00271   if (!v->IsInDepot()) return;
    00272
    00273   TileIndex tile = v->tile;
    00274   Axis axis = GetShipDepotAxis(tile);
    00275
    00276   /* Check first (north) side */
    00277   if (DiagdirReachesTracks((DiagDirection)axis) & GetTileShipTrackStatus(TILE_ADD(tile, ToTileIndexDiff(_ship_leave_depot_offs[axis])))) {
    00278     v->direction = ReverseDir(AxisToDirection(axis));
    00279   /* Check second (south) side */
    00280   } else if (DiagdirReachesTracks((DiagDirection)(axis + 2)) & GetTileShipTrackStatus(TILE_ADD(tile, -2 * ToTileIndexDiff(_ship_leave_depot_offs[axis])))) {
    00281     v->direction = AxisToDirection(axis);
    00282   } else {
    00283     return;
    00284   }
    00285
    00286   v->state = AxisToTrackBits(axis);
    00287   v->vehstatus &= ~VS_HIDDEN;
    00288
    00289   v->cur_speed = 0;
    00290   v->UpdateViewport(false, true);
    00291   SetWindowDirty(WC_VEHICLE_DEPOT, v->tile);
    00292
    00293   PlayShipSound(v);
    00294   VehicleServiceInDepot(v);
    00295   InvalidateWindowData(WC_VEHICLE_DEPOT, v->tile);
    00296   SetWindowClassesDirty(WC_SHIPS_LIST);
    00297 }
    00298
    00299 static bool ShipAccelerate(Vehicle *v)
    00300 {
    00301   uint spd;
    00302   byte t;
    00303
    00304   spd = min(v->cur_speed + 1, v->vcache.cached_max_speed);
    00305
    00306   /* updates statusbar only if speed have changed to save CPU time */
    00307   if (spd != v->cur_speed) {
    00308     v->cur_speed = spd;
    00309     SetWindowWidgetDirty(WC_VEHICLE_VIEW, v->index, VVW_WIDGET_START_STOP_VEH);
    00310   }
    00311
    00312   /* Convert direction-indepenent speed into direction-dependent speed. (old movement method) */
    00313   spd = v->GetOldAdvanceSpeed(spd);
    00314
    00315   if (spd == 0) return false;
    00316   if ((byte)++spd == 0) return true;
    00317
    00318   v->progress = (t = v->progress) - (byte)spd;
    00319
    00320   return (t < v->progress);
    00321 }
    00322
    00328 static void ShipArrivesAt(const Vehicle *v, Station *st)
    00329 {
    00330   /* Check if station was ever visited before */
    00331   if (!(st->had_vehicle_of_type & HVOT_SHIP)) {
    00332     st->had_vehicle_of_type |= HVOT_SHIP;
    00333
    00334     SetDParam(0, st->index);
    00335     AddVehicleNewsItem(
    00336       STR_NEWS_FIRST_SHIP_ARRIVAL,
    00337       (v->owner == _local_company) ? NS_ARRIVAL_COMPANY : NS_ARRIVAL_OTHER,
    00338       v->index,
    00339       st->index
    00340     );
    00341     AI::NewEvent(v->owner, new AIEventStationFirstVehicle(st->index, v->index));
    00342   }
    00343 }
    00344
    00345
    00351 static Track ChooseShipTrack(Ship *v, TileIndex tile, DiagDirection enterdir, TrackBits tracks)
    00352 {
    00353   assert(IsValidDiagDirection(enterdir));
    00354
    00355   bool path_found = true;
    00356   Track track;
    00357   switch (_settings_game.pf.pathfinder_for_ships) {
    00358     case VPF_OPF: track = OPFShipChooseTrack(v, tile, enterdir, tracks, path_found); break;
    00359     case VPF_NPF: track = NPFShipChooseTrack(v, tile, enterdir, tracks, path_found); break;
    00360     case VPF_YAPF: track = YapfShipChooseTrack(v, tile, enterdir, tracks, path_found); break;
    00361     default: NOT_REACHED();
    00362   }
    00363
    00364   v->HandlePathfindingResult(path_found);
    00365   return track;
    00366 }
    00367
    00368 static const Direction _new_vehicle_direction_table[] = {
    00369   DIR_N , DIR_NW, DIR_W , INVALID_DIR,
    00370   DIR_NE, DIR_N , DIR_SW, INVALID_DIR,
    00371   DIR_E , DIR_SE, DIR_S
    00372 };
    00373
    00374 static Direction ShipGetNewDirectionFromTiles(TileIndex new_tile, TileIndex old_tile)
    00375 {
    00376   uint offs = (TileY(new_tile) - TileY(old_tile) + 1) * 4 +
    00377               TileX(new_tile) - TileX(old_tile) + 1;
    00378   assert(offs < 11 && offs != 3 && offs != 7);
    00379   return _new_vehicle_direction_table[offs];
    00380 }
    00381
    00382 static Direction ShipGetNewDirection(Vehicle *v, int x, int y)
    00383 {
    00384   uint offs = (y - v->y_pos + 1) * 4 + (x - v->x_pos + 1);
    00385   assert(offs < 11 && offs != 3 && offs != 7);
    00386   return _new_vehicle_direction_table[offs];
    00387 }
    00388
    00389 static inline TrackBits GetAvailShipTracks(TileIndex tile, DiagDirection dir)
    00390 {
    00391   return GetTileShipTrackStatus(tile) & DiagdirReachesTracks(dir);
    00392 }
    00393
    00394 static const byte _ship_subcoord[4][6][3] = {
    00395   {
    00396     {15, 8, 1},
    00397     { 0, 0, 0},
    00398     { 0, 0, 0},
    00399     {15, 8, 2},
    00400     {15, 7, 0},
    00401     { 0, 0, 0},
    00402   },
    00403   {
    00404     { 0, 0, 0},
    00405     { 8, 0, 3},
    00406     { 7, 0, 2},
    00407     { 0, 0, 0},
    00408     { 8, 0, 4},
    00409     { 0, 0, 0},
    00410   },
    00411   {
    00412     { 0, 8, 5},
    00413     { 0, 0, 0},
    00414     { 0, 7, 6},
    00415     { 0, 0, 0},
    00416     { 0, 0, 0},
    00417     { 0, 8, 4},
    00418   },
    00419   {
    00420     { 0, 0, 0},
    00421     { 8, 15, 7},
    00422     { 0, 0, 0},
    00423     { 8, 15, 6},
    00424     { 0, 0, 0},
    00425     { 7, 15, 0},
    00426   }
    00427 };
    00428
    00429 static void ShipController(Ship *v)
    00430 {
    00431   uint32 r;
    00432   const byte *b;
    00433   Direction dir;
    00434   Track track;
    00435   TrackBits tracks;
    00436
    00437   v->tick_counter++;
    00438   v->current_order_time++;
    00439
    00440   if (v->HandleBreakdown()) return;
    00441
    00442   if (v->vehstatus & VS_STOPPED) return;
    00443
    00444   ProcessOrders(v);
    00445   v->HandleLoading();
    00446
    00447   if (v->current_order.IsType(OT_LOADING)) return;
    00448
    00449   CheckShipLeaveDepot(v);
    00450
    00451   v->ShowVisualEffect();
    00452
    00453   if (!ShipAccelerate(v)) return;
    00454
    00455   GetNewVehiclePosResult gp = GetNewVehiclePos(v);
    00456   if (v->state != TRACK_BIT_WORMHOLE) {
    00457     /* Not on a bridge */
    00458     if (gp.old_tile == gp.new_tile) {
    00459       /* Staying in tile */
    00460       if (v->IsInDepot()) {
    00461         gp.x = v->x_pos;
    00462         gp.y = v->y_pos;
    00463       } else {
    00464         /* Not inside depot */
    00465         r = VehicleEnterTile(v, gp.new_tile, gp.x, gp.y);
    00466         if (HasBit(r, VETS_CANNOT_ENTER)) goto reverse_direction;
    00467
    00468         /* A leave station order only needs one tick to get processed, so we can
    00469          * always skip ahead. */
    00470         if (v->current_order.IsType(OT_LEAVESTATION)) {
    00471           v->current_order.Free();
    00472           SetWindowWidgetDirty(WC_VEHICLE_VIEW, v->index, VVW_WIDGET_START_STOP_VEH);
    00473         } else if (v->dest_tile != 0) {
    00474           /* We have a target, let's see if we reached it... */
    00475           if (v->current_order.IsType(OT_GOTO_WAYPOINT) &&
    00476               DistanceManhattan(v->dest_tile, gp.new_tile) <= 3) {
    00477             /* We got within 3 tiles of our target buoy, so let's skip to our
    00478              * next order */
    00479             UpdateVehicleTimetable(v, true);
    00480             v->IncrementRealOrderIndex();
    00481             v->current_order.MakeDummy();
    00482           } else {
    00483             /* Non-buoy orders really need to reach the tile */
    00484             if (v->dest_tile == gp.new_tile) {
    00485               if (v->current_order.IsType(OT_GOTO_DEPOT)) {
    00486                 if ((gp.x & 0xF) == 8 && (gp.y & 0xF) == 8) {
    00487                   VehicleEnterDepot(v);
    00488                   return;
    00489                 }
    00490               } else if (v->current_order.IsType(OT_GOTO_STATION)) {
    00491                 v->last_station_visited = v->current_order.GetDestination();
    00492
    00493                 /* Process station in the orderlist. */
    00494                 Station *st = Station::Get(v->current_order.GetDestination());
    00495                 if (st->facilities & FACIL_DOCK) { // ugly, ugly workaround for problem with ships able to drop off cargo at wrong stations
    00496                   ShipArrivesAt(v, st);
    00497                   v->BeginLoading();
    00498                 } else { // leave stations without docks right aways
    00499                   v->current_order.MakeLeaveStation();
    00500                   v->IncrementRealOrderIndex();
    00501                 }
    00502               }
    00503             }
    00504           }
    00505         }
    00506       }
    00507     } else {
    00508       DiagDirection diagdir;
    00509       /* New tile */
    00510       if (TileX(gp.new_tile) >= MapMaxX() || TileY(gp.new_tile) >= MapMaxY()) {
    00511         goto reverse_direction;
    00512       }
    00513
    00514       dir = ShipGetNewDirectionFromTiles(gp.new_tile, gp.old_tile);
    00515       assert(dir == DIR_NE || dir == DIR_SE || dir == DIR_SW || dir == DIR_NW);
    00516       diagdir = DirToDiagDir(dir);
    00517       tracks = GetAvailShipTracks(gp.new_tile, diagdir);
    00518       if (tracks == TRACK_BIT_NONE) goto reverse_direction;
    00519
    00520       /* Choose a direction, and continue if we find one */
    00521       track = ChooseShipTrack(v, gp.new_tile, diagdir, tracks);
    00522       if (track == INVALID_TRACK) goto reverse_direction;
    00523
    00524       b = _ship_subcoord[diagdir][track];
    00525
    00526       gp.x = (gp.x & ~0xF) | b[0];
    00527       gp.y = (gp.y & ~0xF) | b[1];
    00528
    00529       /* Call the landscape function and tell it that the vehicle entered the tile */
    00530       r = VehicleEnterTile(v, gp.new_tile, gp.x, gp.y);
    00531       if (HasBit(r, VETS_CANNOT_ENTER)) goto reverse_direction;
    00532
    00533       if (!HasBit(r, VETS_ENTERED_WORMHOLE)) {
    00534         v->tile = gp.new_tile;
    00535         v->state = TrackToTrackBits(track);
    00536       }
    00537
    00538       v->direction = (Direction)b[2];
    00539     }
    00540   } else {
    00541     /* On a bridge */
    00542     if (!IsTileType(gp.new_tile, MP_TUNNELBRIDGE) || !HasBit(VehicleEnterTile(v, gp.new_tile, gp.x, gp.y), VETS_ENTERED_WORMHOLE)) {
    00543       v->x_pos = gp.x;
    00544       v->y_pos = gp.y;
    00545       VehicleMove(v, !(v->vehstatus & VS_HIDDEN));
    00546       return;
    00547     }
    00548   }
    00549
    00550   /* update image of ship, as well as delta XY */
    00551   dir = ShipGetNewDirection(v, gp.x, gp.y);
    00552   v->x_pos = gp.x;
    00553   v->y_pos = gp.y;
    00554   v->z_pos = GetSlopeZ(gp.x, gp.y);
    00555
    00556 getout:
    00557   v->UpdateViewport(true, true);
    00558   return;
    00559
    00560 reverse_direction:
    00561   dir = ReverseDir(v->direction);
    00562   v->direction = dir;
    00563   goto getout;
    00564 }
    00565
    00566 bool Ship::Tick()
    00567 {
    00568   if (!(this->vehstatus & VS_STOPPED)) this->running_ticks++;
    00569
    00570   ShipController(this);
    00571
    00572   return true;
    00573 }
    00574
    00584 CommandCost CmdBuildShip(TileIndex tile, DoCommandFlag flags, const Engine *e, uint16 data, Vehicle **ret)
    00585 {
    00586   tile = GetShipDepotNorthTile(tile);
    00587   if (flags & DC_EXEC) {
    00588     int x;
    00589     int y;
    00590
    00591     const ShipVehicleInfo *svi = &e->u.ship;
    00592
    00593     Ship *v = new Ship();
    00594     *ret = v;
    00595
    00596     v->owner = _current_company;
    00597     v->tile = tile;
    00598     x = TileX(tile) * TILE_SIZE + TILE_SIZE / 2;
    00599     y = TileY(tile) * TILE_SIZE + TILE_SIZE / 2;
    00600     v->x_pos = x;
    00601     v->y_pos = y;
    00602     v->z_pos = GetSlopeZ(x, y);
    00603
    00604     v->UpdateDeltaXY(v->direction);
    00605     v->vehstatus = VS_HIDDEN | VS_STOPPED | VS_DEFPAL;
    00606
    00607     v->spritenum = svi->image_index;
    00608     v->cargo_type = e->GetDefaultCargoType();
    00609     v->cargo_cap = svi->capacity;
    00610
    00611     v->last_station_visited = INVALID_STATION;
    00612     v->engine_type = e->index;
    00613
    00614     v->reliability = e->reliability;
    00615     v->reliability_spd_dec = e->reliability_spd_dec;
    00616     v->max_age = e->GetLifeLengthInDays();
    00617     _new_vehicle_id = v->index;
    00618
    00619     v->state = TRACK_BIT_DEPOT;
    00620
    00621     v->service_interval = Company::Get(_current_company)->settings.vehicle.servint_ships;
    00622     v->date_of_last_service = _date;
    00623     v->build_year = _cur_year;
    00624     v->cur_image = SPR_IMG_QUERY;
    00625     v->random_bits = VehicleRandomBits();
    00626
    00627     v->UpdateCache();
    00628
    00629     if (e->flags & ENGINE_EXCLUSIVE_PREVIEW) SetBit(v->vehicle_flags, VF_BUILT_AS_PROTOTYPE);
    00630
    00631     v->InvalidateNewGRFCacheOfChain();
    00632
    00633     v->cargo_cap = GetVehicleCapacity(v);
    00634
    00635     v->InvalidateNewGRFCacheOfChain();
    00636
    00637     VehicleMove(v, false);
    00638   }
    00639
    00640   return CommandCost();
    00641 }
    00642
    00643 bool Ship::FindClosestDepot(TileIndex *location, DestinationID *destination, bool *reverse)
    00644 {
    00645   const Depot *depot = FindClosestShipDepot(this, 0);
    00646
    00647   if (depot == NULL) return false;
    00648
    00649   if (location    != NULL) *location    = depot->xy;
    00650   if (destination != NULL) *destination = depot->index;
    00651
    00652   return true;
    00653 }