twc/src/twcship.cc

   1 #include "twcgamecontroller.h"
   2 #include "twcplayerclient.h"
   3 #include "twcutils.h"
   4 #include <wvstrutils.h>
   5
   6 TWCShip::TWCShip(UniConf _cfg, TWCGameController *_game)
   7     : TWCObject(_cfg, _game), warping_to(NULL)
   8 {
   9     set_captain(NULL);
  10 }
  11
  12 TWCSector *TWCShip::sector()
  13 {
  14     return game->get_sector(TWCSectorCoord(cfg["location"].getme()));
  15 }
  16
  17
  18 TWCPlayerClient *TWCShip::captain()
  19 {
  20     return game->curplayers[cfg["captain"].getmeint()];
  21 }
  22
  23
  24 TWCPlayer *TWCShip::owner()
  25 {
  26     return game->players[cfg["owner"].getmeint()];
  27 }
  28
  29
  30 TWCShieldClass *TWCShip::shieldclass()
  31 {
  32     // Eventually we'll support more than one shield.
  33     int shield = 0;
  34     UniConf::Iter i(cfg["shields"]);
  35     for (i.rewind(); i.next(); )
  36         if (i().getmeint())
  37         {
  38             shield = i().key().printable().num();
  39             break;
  40         }
  41
  42     return game->shieldclasses[shield];
  43 }
  44
  45
  46 TWCShipClass *TWCShip::shipclass()
  47 {
  48     return game->shipclasses[cfg["class"].getmeint()];
  49 }
  50
  51
  52 TWCWeaponClass *TWCShip::weaponclass()
  53 {
  54     // Eventually we'll support more than one weapon.
  55     int weapon = 0;
  56     UniConf::Iter i(cfg["weapons"]);
  57     for (i.rewind(); i.next(); )
  58         if (i().getmeint())
  59         {
  60             weapon = i().key().printable().num();
  61             break;
  62         }
  63
  64     return game->weaponclasses[weapon];
  65 }
  66
  67
  68 bool TWCShip::weapon_charged()
  69 {
  70     return cfg["weapon charged"].getmeint();
  71 }
  72
  73
  74 int TWCShip::free_holds()
  75 {
  76     int res = total_holds();
  77
  78     UniConf::Iter i(cfg["commodities"]);
  79     for (i.rewind(); i.next(); )
  80     {
  81         if (isint(i().key().printable()))
  82             res -= i().getmeint();
  83     }
  84
  85     return res;
  86 }
  87
  88
  89 bool TWCShip::install_weapon(TWCWeaponClass *weapon)
  90 {
  91     if (!weapon || weaponclass())
  92         return false;
  93
  94     cfg["weapons"][weapon->id].setmeint(1);
  95     return true;
  96 }
  97
  98
  99 bool TWCShip::uninstall_weapon(TWCWeaponClass *weapon)
 100 {
 101     if (!weaponclass())
 102         return false;
 103
 104     cfg["weapons"][weapon->id].remove();
 105     return true;
 106 }
 107
 108
 109 bool TWCShip::install_shield(TWCShieldClass *shield)
 110 {
 111     if (!shield || shieldclass())
 112         return false;
 113
 114     cfg["shields"][shield->id].setmeint(1);
 115     cfg["shield strength"].setmeint(shield->strength());
 116     return true;
 117 }
 118
 119
 120 bool TWCShip::uninstall_shield(TWCShieldClass *shield)
 121 {
 122     if (!shieldclass())
 123         return false;
 124
 125     cfg["shields"][shield->id].remove();
 126     return true;
 127 }
 128
 129
 130 bool TWCShip::load(int type, int num)
 131 {
 132     game->log("Loading %s of type %s.\n", num, type);
 133     if (free_holds() < num)
 134         return false;
 135
 136     incr_uniconf(cfg["commodities"][type], num);
 137     return true;
 138 }
 139
 140
 141 bool TWCShip::unload(int type, int num)
 142 {
 143     if (cfg["commodities"][type].getmeint() < num)
 144         return false;
 145
 146     decr_uniconf(cfg["commodities"][type], num);
 147     return true;
 148 }
 149
 150
 151 void TWCShip::inventory(TWCShipInventoryList &inv)
 152 {
 153     TWCShipInventory *item;
 154     UniConf::Iter i(cfg["commodities"]);
 155     for (i.rewind(); i.next(); )
 156     {
 157         if (!i().getmeint())
 158             continue;
 159         item = new TWCShipInventory;
 160         item->commodity = game->commodities[i().key().printable().num()];
 161         item->number = i().getmeint();
 162         inv.append(item, true);
 163     }
 164 }
 165
 166
 167 bool TWCShip::beam_cargo_aboard(TWCShip *from_ship, int type, int num)
 168 {
 169     if (from_ship->sector() != sector())
 170         return false;
 171     if (!from_ship->unload(type, num))
 172         return false;
 173     if (!load(type, num))
 174     {
 175         from_ship->load(type, num);
 176         return false;
 177     }
 178     return true;
 179 }
 180
 181
 182 TWCShip *TWCShip::towing()
 183 {
 184     return game->ships[cfg["towing"].getmeint()];
 185 }
 186
 187
 188 TWCShip *TWCShip::towed_by()
 189 {
 190     return game->ships[cfg["towed by"].getmeint()];
 191 }
 192
 193
 194 bool TWCShip::tow(TWCShip *target)
 195 {
 196     if (!target)
 197     {
 198         if (!towing())
 199             return false;
 200
 201         TWCShip *oldtowing = towing();
 202         cfg["towing"].setmeint(0);
 203         oldtowing->tow_attempt(NULL);
 204         sector()->announce(TractorBeamDropped, id, oldtowing->id,
 205                            WvString("%s deactivates the tractor beam on %s.\n",
 206                                     name(), oldtowing->name()), id);
 207         return true;
 208     }
 209
 210     if (target->tow_attempt(this))
 211     {
 212         cfg["towing"].setmeint(target->id);
 213         sector()->announce(TractorBeamEngaged, id, target->id,
 214                            WvString("%s locks %s in a tractor beam.\n",
 215                                     name(), target->name()), id);
 216         return true;
 217     }
 218     return false;
 219 }
 220
 221
 222 bool TWCShip::tow_attempt(TWCShip *by)
 223 {
 224     if (!by)
 225     {
 226         cfg["being towed"].setmeint(0);
 227         return true;
 228     }
 229
 230     if (captain())
 231         return false;
 232
 233     cfg["being towed"].setmeint(by->id);
 234     cfg["towing"].setmeint(0);  // just to be sure
 235     return true;
 236 }
 237
 238
 239 TWCObjectIf *TWCShip::create_if(TWCHumanPlayerClient &plyrcli)
 240 {
 241     return new TWCShipIf(*this, plyrcli);
 242 }
 243
 244
 245 void TWCShip::set_captain(TWCPlayerClient *plyrcli)
 246 {
 247     if (plyrcli)
 248         cfg["captain"].setmeint(plyrcli->player.id);
 249     else
 250         cfg["captain"].setme("");
 251 }
 252
 253
 254 void TWCShip::raise_shields()
 255 {
 256     cfg["shields up"].setmeint(1);
 257     sector()->announce(ShieldsRaised, id, 0,
 258                        WvString("%s raises its shields.\n", name()), id);
 259 }
 260
 261
 262 void TWCShip::lower_shields()
 263 {
 264     cfg["shields up"].setmeint(0);
 265     sector()->announce(ShieldsDropped, id, 0,
 266              WvString("%s lowers its shields.\n", name()), id);
 267 }
 268
 269
 270 TWCDockResults TWCShip::dock()
 271 {
 272     TWCPort *port = sector()->port();
 273     if (port)
 274     {
 275         TWCDockResults res = port->docking(this);
 276         if (res == DockSuccess)
 277             game->curplayers[captain()->player.id]->set_location(port);
 278
 279         return res;
 280     }
 281     return NoPort;
 282 }
 283
 284
 285 void TWCShip::charge_weapon(int)
 286 {
 287     if (!weapon_charged())
 288     {
 289         cfg["weapon charged"].setmeint(1);
 290         if (captain())
 291             captain()->msg("Weapon charged.\n");
 292     }
 293 }
 294
 295
 296 WvString TWCShip::viable_target(WvStringParm shipnum)
 297 {
 298     TWCShip *ship = game->ships[shipnum.num()];
 299     if (!ship)
 300         return WvString("No such ship!\n");
 301
 302     if (ship == this)
 303         return WvString("You can't target your own ship!\n");
 304
 305     if (ship->sector() != sector())
 306         return WvString("This ship isn't here!\n");
 307
 308     return WvString::null;
 309 }
 310
 311
 312 TWCAttackResults TWCShip::shoot(TWCShip *target, int power)
 313 {
 314     if (!target)
 315         return Aborted;
 316
 317     if (!weapon_charged())
 318         return Aborted;
 319
 320     // automatically raise shields
 321     if (!target->are_shields_up())
 322         target->raise_shields();
 323
 324     game->log("%s is attacking %s at %s%% power.\n", name(), target->name(),
 325               power);
 326     TWCAttackResults res = Damaged;
 327
 328     int attack_roll = rand() % 100;
 329     game->log("Attacker rolls %s\n", attack_roll);
 330     if (attack_roll < weaponclass()->accuracy())
 331     {
 332         // Hit!
 333         int mean_damage = weaponclass()->damage();
 334         int damage = (int)box_muller(mean_damage, mean_damage * 0.1) * power
 335                      / 100;
 336         if (!damage)
 337             damage = 1;
 338
 339         bool still_alive = target->damage_ship(damage);
 340
 341         game->log("Attacker hit for %s damage (mean %s).\n", damage,
 342                   mean_damage);
 343
 344         sector()->announce(ShipAttackHit, id, target->id,
 345                            WvString("%s blasts %s with its %s.\n",
 346                                     name(), target->name(),
 347                                     weaponclass()->name()),
 348                            captain()->player.id);
 349
 350         if (!still_alive)
 351             res = Destroyed;
 352     }
 353     else
 354     {
 355         res = Missed;
 356         game->log("attacker missed.\n");
 357         sector()->announce(ShipAttackMissed, id, target->id,
 358                            WvString("%s misses %s with its %s.\n",
 359                                     name(), target->name(),
 360                                     weaponclass()->name()),
 361                            captain()->player.id);
 362         captain()->msg("We missed, captain.\n");
 363     }
 364
 365     cfg["weapon charged"].setmeint(0);
 366     game->events.add_event(TWCEventCallback(this, &TWCShip::charge_weapon),
 367                            0, weaponclass()->recharge_time(), true);
 368
 369     return res;
 370 }
 371
 372
 373 bool TWCShip::damage_ship(int dmg)
 374 {
 375     decr_uniconf(cfg["shield strength"], dmg);
 376     if (shield_strength() < 0)
 377     {
 378         decr_uniconf(cfg["hull strength"], shield_strength() * -1);
 379         cfg["shield strength"].setmeint(0);
 380     }
 381     if (hull_strength() <= 0)
 382     {
 383         sector()->announce(ShipDestroyed, id, 0, WvString("The %s explodes!\n",
 384                                                           name()),
 385                            captain() ? captain()->player.id : 0);
 386         if (captain())
 387         {
 388             captain()->msg("Can't... hold it... together...\n");
 389             captain()->die();
 390         }
 391
 392         game->remove_ship(this);
 393         return false;
 394     }
 395
 396     if (captain())
 397         if (shield_strength())
 398             captain()->msg(WvString("Shields at %s percent, captain.\n",
 399                                     shield_strength() * 100 /
 400                                     shieldclass()->strength()));
 401         else
 402             captain()->msg(WvString("Hull at %s percent, captain.\n",
 403                                     hull_strength() * 100 /
 404                                     shipclass()->hull_strength()));
 405
 406     return true;
 407 }
 408
 409
 410 void TWCShip::do_warp(int)
 411 {
 412     sector()->ship_warp_out(this);
 413     cfg["location"].setme(warping_to->coord);
 414     warping_to = NULL;
 415     sector()->ship_warp_in(this);
 416     post_warp(0);
 417 }
 418
 419
 420 void TWCShip::start_warp(TWCEventCallback _post_warp, TWCSector *dest)
 421 {
 422     post_warp = _post_warp;
 423     warping_to = dest;
 424     game->events.add_event(TWCEventCallback(this, &TWCShip::do_warp), 0, 2,
 425                            true);
 426 }
 427
 428
 429 void TWCShip::set_by_player(TWCPlayerClient *plyrcli)
 430 {
 431     set_captain(plyrcli);
 432     docked_with = NULL;
 433 }
 434
 435
 436 bool TWCShip::check_claim_ownership(TWCPlayer *player)
 437 {
 438     TWCPlayer *oldowner = owner();
 439     if (!oldowner || oldowner != player)
 440     {
 441         oldowner->remove_ship(this);
 442         cfg["owner"].setmeint(player->id);
 443         player->add_ship(this);
 444         return true;
 445     }
 446     return false;
 447 }
 448
 449
 450 TWCShipIf::TWCShipIf(TWCShip &_ship, TWCHumanPlayerClient &_plyrcli)
 451     : TWCObjectIf(_ship, _plyrcli), ship(_ship), autopilot(false),
 452       tactical(false), transporter(false), final_dest(NULL)
 453 {
 454     sector_scan();
 455 }
 456
 457
 458 TWCShipIf::~TWCShipIf()
 459 {
 460     if (final_dest)
 461         delete final_dest;
 462 }
 463
 464
 465 void TWCShipIf::print_menu()
 466 {
 467     if (final_dest)
 468         return;
 469
 470     if (tactical)
 471         plyrcli.print(ship.game->get_screen("tactical"));
 472     else if (transporter)
 473         plyrcli.print(ship.game->get_screen("transporter"));
 474     else
 475         plyrcli.print(ship.game->get_screen("ship"));
 476 }
 477
 478
 479 void TWCShipIf::menu_input()
 480 {
 481     if (final_dest)
 482     {
 483         warping_menu_input();
 484         return;
 485     }
 486     else if (tactical)
 487     {
 488         tactical_menu_input();
 489         return;
 490     }
 491     else if (transporter)
 492     {
 493         transporter_menu_input();
 494         return;
 495     }
 496
 497     char *line = plyrcli.getline(0);
 498     if (!line)
 499         return;
 500
 501     trim_string(line);
 502
 503     switch (line[0])
 504     {
 505     case 's':
 506     case 'S':
 507         if (ship.are_shields_up())
 508         {
 509             plyrcli.print("You lower your ship's shields.\n");
 510             ship.lower_shields();
 511         }
 512         else
 513         {
 514             plyrcli.print("You raise your ship's shields.\n");
 515             ship.raise_shields();
 516         }
 517         break;
 518
 519     case 'm':
 520     case 'M':
 521     {
 522         plyrcli.print("To which sector (x y z)? ");
 523         line = plyrcli.continue_getline();
 524         if (!line)
 525             return;
 526         ship_move(TWCSectorCoord(trim_string(line)));
 527         break;
 528     }
 529
 530     case 'p':
 531     case 'P':
 532     {
 533         if (!plyrcli.player.current_turns())
 534         {
 535             plyrcli.print("You don't have enough turns left.\n");
 536             return;
 537         }
 538
 539         TWCDockResults res = ship.dock();
 540         if (res == DockSuccess)
 541         {
 542             ship.docked_with = ship.sector()->port();
 543             plyrcli.print("Docked with %s.\n", ship.docked_with->name());
 544             plyrcli.player.deduct_turns(1);
 545         }
 546         else if (res == NoPort)
 547             plyrcli.print("\e[1;31mMove along... nothing to dock with "
 548                           "here.\e[0;37m\n");
 549         else
 550             plyrcli.print("Only one ship can be docked with trading ports at a "
 551                           "time.\n");
 552
 553         break;
 554     }
 555
 556     case 'a':
 557     case 'A':
 558         tactical = true;
 559         break;
 560
 561     case 'l':
 562     case 'L':
 563         break;
 564
 565     case 'd':
 566     case 'D':
 567         sector_scan();
 568         break;
 569
 570     case 'c':
 571     case 'C':
 572         break;
 573
 574     case '/':
 575     {
 576         plyrcli.print("\n\n");
 577         plyrcli.print("\e[0;32mStats\e[0;37m\n");
 578         plyrcli.print("\e[1;33m-=-=-\e[0;37m\n");
 579         plyrcli.print("\e[0;32mMoves: \e[1;33m%s\e[0;32m/\e[1;33m%s\n"
 580                       "\e[0;32mExperience: \e[1;33m%s\n"
 581                       "\e[0;32mCash: \e[1;33m%s\n"
 582                       "\e[0;32mCurrent Ship: \e[1;33m%s \e[0;32m(\e[0;33m%s"
 583                       "\e[0;32m)\e[0;37m\n"
 584                       "\e[0;32mShield: \e[1;33m%s %s\e[0;32m/\e[1;33m%s\n"
 585                       "\e[0;32mWeapon: \e[1;33m%s\e[0;37m\n\n"
 586                       "Press Enter to continue...\n",
 587                       plyrcli.player.current_turns(), plyrcli.player.max_turns(),
 588                       plyrcli.player.experience(),
 589                       ship.game->price_string(plyrcli.player.cash()),
 590                       ship.name(), ship.shipclass()->name(),
 591                       ship.shieldclass() ? ship.shieldclass()->name() : WvString("none"),
 592                       ship.shieldclass() ? ship.shield_strength() : WvString(0),
 593                       ship.shieldclass() ? ship.shieldclass()->strength() : WvString(0),
 594                       ship.weaponclass() ? ship.weaponclass()->name() : WvString("none")
 595             );
 596         plyrcli.continue_getline();
 597
 598         break;
 599     }
 600
 601     case 'x':
 602     case 'X':
 603         transporter = true;
 604         break;
 605
 606     case 'n':
 607     case 'N':
 608     {
 609         TWCShip *target = plyrcli.acquire_target("Tow which ship",
 610                                                  "You cannot scan a docked "
 611                                                  "ship.");
 612         if (target)
 613             plyrcli.display_inventory(target);
 614         break;
 615     }
 616
 617     case 't':
 618     case 'T':
 619     {
 620         TWCShip *towing = ship.towing();
 621         if (towing)
 622         {
 623             plyrcli.print("Stop towing the %s? ", towing->name());
 624             line = plyrcli.continue_getline();
 625             if (!line)
 626                 return;
 627             line = trim_string(line);
 628             if (line[0] == 'y' || line[0] == 'Y')
 629             {
 630                 plyrcli.print("Tractor beam deactivated.\n");
 631                 ship.tow(NULL);
 632             }
 633             return;
 634         }
 635
 636         TWCShip *target = plyrcli.acquire_target("Tow which ship",
 637                                                  "You cannot tow a docked "
 638                                                  "ship.");
 639         if (!target)
 640             return;
 641
 642         if (target->captain())
 643         {
 644             plyrcli.print("You can only tow ships without an active "
 645                           "captain.\n");
 646             return;
 647         }
 648
 649         if (ship.tow(target))
 650         {
 651             int move_cost = ship.shipclass()->move_cost() +
 652                             target->shipclass()->move_cost();
 653
 654             plyrcli.print("You are now towing the %s.  Your new movement cost "
 655                           "is %s turns per sector.\n", target->name(),
 656                           move_cost);
 657         }
 658         else
 659             plyrcli.print("Couldn't tow the %s.\n", target->name());
 660
 661         break;
 662     }
 663
 664     case 'q':
 665     case 'Q':
 666         ship.set_captain(NULL);
 667         plyrcli.set_location(ship.game->nowhere());
 668         break;
 669
 670     case '?':
 671         plyrcli.print(ship.game->screen("ship"));
 672         break;
 673
 674     default:
 675         break;
 676     }
 677 }
 678
 679
 680 WvString TWCShipIf::prompt()
 681 {
 682     if (final_dest)
 683         return WvString("");
 684
 685     return WvString("%s< %sShip %s> %s%s%s/%s%s%s%s", ANSI_YELLOW,
 686                     ANSI_GREEN, ANSI_YELLOW, ANSI_GREEN,
 687                     plyrcli.player.current_turns(), ANSI_YELLOW, ANSI_GREEN,
 688                     plyrcli.player.max_turns(), ANSI_RED,
 689                     ship.cfg["shields up"].getmeint() ? "" : " *shields down*");
 690 }
 691
 692
 693 void TWCShipIf::ship_move(const TWCSectorCoord dest_sector)
 694 {
 695     if (!dest_sector.ok)
 696     {
 697         plyrcli.print("Invalid sector.\n");
 698         return;
 699     }
 700
 701     TWCSectorCoord cur_sector = ship.sector()->coord;
 702     if (cur_sector == dest_sector)
 703     {
 704         plyrcli.print("You're already in that sector.\n");
 705         return;
 706     }
 707
 708     // check to see if the destination actually exists
 709     TWCSectorCoord next_hop = ship.game->find_route(cur_sector, dest_sector);
 710     if (next_hop == cur_sector)
 711     {
 712         plyrcli.print("Sector %s does not exist.\n", dest_sector);
 713         return;
 714     }
 715
 716     // if no match was found (above) then we need to
 717     // find a path to the destination
 718     if (next_hop != dest_sector)
 719     {
 720         TWCSectorCoord chain = next_hop;
 721
 722         plyrcli.print("Sector %s not adjacent; calculating route.\n[%s] ",
 723                      dest_sector, next_hop);
 724
 725         while (chain != dest_sector)
 726         {
 727             chain = ship.game->find_route(chain, dest_sector);
 728             plyrcli.print("[%s] ", chain);
 729         }
 730
 731         char *line;
 732         plyrcli.print("\nEngage [yna]? ");
 733         line = plyrcli.continue_getline();
 734         if (!line)
 735             return;
 736         trim_string(line);
 737         if (line[0] == 'a' || line[0] == 'A')
 738             autopilot = true;
 739         else if (line[0] != 'y' && line[0] != 'Y')
 740             return;
 741     }
 742
 743     final_dest = new TWCSectorCoord(dest_sector);
 744     if (checkmoveturns())
 745         ship.start_warp(TWCEventCallback(this, &TWCShipIf::post_warp),
 746                         ship.game->get_sector(next_hop));
 747
 748 }
 749
 750
 751 void TWCShipIf::warping_menu_input()
 752 {
 753     char *line = plyrcli.getline(0);
 754     if (!line || ship.warping())
 755         return;
 756     trim_string(line);
 757
 758     switch (line[0])
 759     {
 760     case 'a':
 761     case 'A':
 762         autopilot = true;
 763         // fall through
 764     case 'y':
 765     case 'Y':
 766     {
 767         TWCSectorCoord next_hop = ship.game->find_route(ship.sector()->coord,
 768                                                         *final_dest);
 769         ship.start_warp(TWCEventCallback(this, &TWCShipIf::post_warp),
 770                         ship.game->get_sector(next_hop));
 771         break;
 772     }
 773     case 'n':
 774     case 'N':
 775 //      ship.stop_warp();
 776         plyrcli.alarm(0);
 777         final_dest = NULL;
 778         break;
 779     default:
 780         plyrcli.print("Continue with trip? [yna]");
 781     }
 782 }
 783
 784
 785 void TWCShipIf::post_warp(int)
 786 {
 787     sector_scan();
 788     if (ship.sector()->coord != *final_dest)
 789     {
 790         TWCSectorCoord next_hop = ship.game->find_route(ship.sector()->coord,
 791                                                         *final_dest);
 792         if (!autopilot)
 793             plyrcli.print("Continue with trip [yna]? ");
 794         else
 795             ship.start_warp(TWCEventCallback(this, &TWCShipIf::post_warp),
 796                             ship.game->get_sector(next_hop));
 797         return;
 798     }
 799
 800     plyrcli.alarm(0);
 801     final_dest = NULL;
 802 }
 803
 804
 805 void TWCShipIf::sector_scan()
 806 {
 807     plyrcli.print("\n\e[1;33m-=- \e[0;35m %s \e[1;33m-=-\e[0;37m\n",
 808                  ship.sector()->name());
 809
 810     TWCShipList ships;
 811     ship.sector()->find_player_ships(ships, &ship);
 812     if (ships.count())
 813     {
 814         plyrcli.print("Ships in this sector:\n");
 815         TWCShipList::Iter shi(ships);
 816         for (shi.rewind(); shi.next(); )
 817             plyrcli.print("%s%s <%s>, %s\n", shi.ptr() == ship.towing() ?
 818                           "<TOWING> " : "", shi().name(),
 819                           shi().shipclass()->name(),
 820                           shi().captain() ? shi().captain()->player.name()
 821                                           : WvString("unoccupied"));
 822     }
 823
 824     TWCPort *port = ship.sector()->port();
 825     if (port)
 826         plyrcli.print("A spaceport is in this sector: %s\n", port->name());
 827 }
 828
 829
 830 void TWCGameController::initialize_ship(int ship, int captain)
 831 {
 832     UniConf shipcfg(cfg["ships"][ship]);
 833     shipcfg["captain"].setmeint(captain);
 834     shipcfg["shields up"].setmeint(1);
 835     shipcfg["weapon recharged"].setmeint(1);
 836 }
 837
 838
 839 bool TWCShipIf::checkmoveturns()
 840 {
 841     int move_cost = ship.shipclass()->move_cost();
 842     if (ship.towing())
 843         move_cost += ship.towing()->shipclass()->move_cost();
 844
 845     if (plyrcli.player.current_turns() < move_cost)
 846     {
 847         plyrcli.print("You don't have enough turns left.\n");
 848         return false;
 849     }
 850     else
 851     {
 852         plyrcli.player.deduct_turns(move_cost);
 853         plyrcli.print("%s turn%s deducted; %s remaining.\n", move_cost,
 854                       move_cost == 1 ? "" : "s",
 855                       plyrcli.player.current_turns());
 856         plyrcli.print("Warping...\n");
 857     }
 858     return true;
 859 }
 860
 861
 862 void TWCShipIf::tactical_menu_input()
 863 {
 864     char *line = plyrcli.getline(0);
 865     if (!line)
 866         return;
 867
 868     trim_string(line);
 869
 870     switch (line[0])
 871     {
 872     case '?':
 873         plyrcli.print(ship.game->screen("tactical"));
 874         break;
 875
 876     case 'a':
 877     case 'A':
 878     {
 879         if (!ship.weaponclass())
 880         {
 881             plyrcli.print("You have no weapon on this ship.\n");
 882             return;
 883         }
 884
 885         if (!ship.weapon_charged())
 886         {
 887             plyrcli.print("Your weapon is still charging.\n");
 888             return;
 889         }
 890
 891         int attack_cost = ship.shipclass()->attack_cost();
 892         if (plyrcli.player.current_turns() < attack_cost)
 893         {
 894             plyrcli.print("Sorry, you don't have any turns left.\n");
 895             return;
 896         }
 897
 898         TWCShip *target = plyrcli.acquire_target(
 899             "Target which ship", "The ship is docked.  You can wait until the "
 900             "captain returns or attack the port itself."
 901             );
 902         if (!target)
 903             return;
 904
 905         plyrcli.print("Power setting (1-100)? [100] ");
 906         bool abort = false;
 907         int power = plyrcli.get_int(abort, 100);
 908         if (abort)
 909             return;
 910
 911         if (power < 1 || power > 100)
 912         {
 913             plyrcli.print("Power setting must be between 1 and 100.\n");
 914             return;
 915         }
 916
 917         TWCAttackResults res = ship.shoot(target, power);
 918
 919         switch (res)
 920         {
 921         case Damaged:
 922             plyrcli.print("Their shields are still holding, captain.\n");
 923             break;
 924
 925         case Destroyed:
 926             plyrcli.print("We destroyed them!\n");
 927
 928         default:
 929             break;
 930         }
 931
 932         if (res != Aborted)
 933         {
 934             plyrcli.print("Deducting %s turn%s.\n", attack_cost,
 935                           attack_cost == 1 ? "" : "s");
 936             plyrcli.player.deduct_turns(attack_cost);
 937         }
 938     }
 939     break;
 940 #if 0
 941     case 'd':
 942     case 'D':
 943     {
 944         int target = acquire_target("Demand surrender from which ship",
 945                                     "This ship is currently docked.  You can "
 946                                     "wait for the captain to return.");
 947         if (!target)
 948             return;
 949
 950         UniConf targetcfg(cfg["ships"][target]);
 951         int target_player_id = targetcfg["captain"].getmeint();
 952         UniConf targetpcfg(cfg["players"][target_player_id]);
 953
 954         TWCPlayerClient *target_player = game->players[target_player_id];
 955         if (!target_player)
 956         {
 957             print("The ship is unoccupied.  You'll have to take it by force.\n");
 958             return;
 959         }
 960
 961         msg("You demand the surrender of %s.\n", targetcfg["name"].getme());
 962         demanded_surrender = target;
 963         target_player->event(DemandSurrender, loccfg().key().printable().num(),
 964                              target,
 965                              WvString("\n%s demands you drop your shields and "
 966                                       "surrender your cargo!  You have 10 "
 967                                       "seconds to comply.",
 968                                       loccfg()["name"].getme()));
 969         game->events.add_event(
 970             TWCEventCallback(this, &TWCHumanPlayerClient::surrender_timeout),
 971             0, 10, true
 972             );
 973         break;
 974     }
 975 #endif
 976     case 'q':
 977     case 'Q':
 978         tactical = false;
 979         break;
 980     default:
 981         break;
 982     }
 983 }