mind_craft.cpp

// *************************************************************************
//  This file is part of AcidMUD by Steaphan Greene
//
//  Copyright 1999-2022 Steaphan Greene <steaphan@gmail.com>
//
//  AcidMUD 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; either version 3 of the License, or
//  (at your option) any later version.
//
//  AcidMUD 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.  See the
//  GNU General Public License for more details.
//
//  You should have received a copy of the GNU General Public License
//  along with AcidMUD (see the file named "COPYING");
//  If not, see <http://www.gnu.org/licenses/>.
//
// *************************************************************************

#include <string>
#include <vector>

#include "color.hpp"
#include "log.hpp"
#include "mind.hpp"
#include "object.hpp"
#include "properties.hpp"
#include "tags.hpp"
#include "utils.hpp"

struct Project {
  std::vector<uint32_t> tags_;

  std::u8string short_;
  std::u8string desc_;
  std::u8string long_template_;
  skill_pair prop_ = {prhash(u8"None"), 0};

  uint32_t material_;
  uint32_t amount_ = 1000;
  uint32_t time_ = 1;
  uint32_t max_qty_ = 1;
  ItemAttrs attrs_ = {1000, 100, 100, 10};
};

static std::vector<Project> projects = {
    {{crc32c(u8"collier"), crc32c(u8"kiln")},
     u8"a piece of charcoal",
     u8"a piece of high-quality charcoal",
     u8"Created in {} by {}, Master Collier.",
     {prhash(u8"Pure Charcoal"), 100},
     prhash(u8"Raw Wood"),
     200,
     100,
     1000,
     {1000, 100, 100, 10}},
    {{crc32c(u8"collier"), crc32c(u8"kiln")},
     u8"a piece of charcoal",
     u8"a piece of high-quality charcoal",
     u8"Created in {} by {}, Master Collier.",
     {prhash(u8"Pure Charcoal"), 100},
     prhash(u8"Pure Wood"),
     100,
     100,
     1000,
     {1000, 100, 100, 10}},
    {{crc32c(u8"sawyer"), crc32c(u8"sawmill")},
     u8"a wooden beam",
     u8"a large piece of finished lumber",
     u8"Created in {} by {}, Master Sawyer.",
     {prhash(u8"Pure Wood"), 100000},
     prhash(u8"Raw Wood"),
     200000,
     100,
     1,
     {1000, 100, 100, 10}},
    {{crc32c(u8"sawyer"), crc32c(u8"sawmill")},
     u8"a wooden post",
     u8"a large piece of finished lumber",
     u8"Created in {} by {}, Master Sawyer.",
     {prhash(u8"Pure Wood"), 9000},
     prhash(u8"Pure Wood"),
     10000,
     100,
     10,
     {1000, 100, 100, 10}},
    {{crc32c(u8"sawyer"), crc32c(u8"sawmill")},
     u8"a wooden board",
     u8"a piece of finished lumber",
     u8"Created in {} by {}, Master Sawyer.",
     {prhash(u8"Pure Wood"), 2000},
     prhash(u8"Pure Wood"),
     3000,
     100,
     10,
     {1000, 100, 100, 10}},
    {{crc32c(u8"sawyer"), crc32c(u8"sawmill")},
     u8"a wooden stake",
     u8"a piece of finished lumber",
     u8"Created in {} by {}, Master Sawyer.",
     {prhash(u8"Pure Wood"), 200},
     prhash(u8"Pure Wood"),
     250,
     100,
     10,
     {1000, 100, 100, 10}},
    {{crc32c(u8"woodworker")},
     u8"an axe handle",
     u8"a high-quality wooden axe handle",
     u8"Created in {} by {}, Master Woodworker.",
     {prhash(u8"Made of Wood"), 100},
     prhash(u8"Pure Wood"),
     200,
     10,
     1,
     {1000, 100, 100, 220}},
    {{crc32c(u8"smelter"), crc32c(u8"crucible")},
     u8"a platinum bar",
     u8"a bar of pure platinum",
     u8"Smelted in {} by {}, Master Smetler.",
     {prhash(u8"Pure Platinum"), 100},
     prhash(u8"Raw Platinum"),
     100,
     50,
     10,
     {1000, 100, 100, 30000}},
    {{crc32c(u8"smelter"), crc32c(u8"crucible")},
     u8"a gold bar",
     u8"a bar of pure gold",
     u8"Smelted in {} by {}, Master Smetler.",
     {prhash(u8"Pure Gold"), 100},
     prhash(u8"Raw Gold"),
     100,
     50,
     10,
     {1000, 100, 100, 3000}},
    {{crc32c(u8"smelter"), crc32c(u8"crucible")},
     u8"a silver bar",
     u8"a bar of pure silver",
     u8"Smelted in {} by {}, Master Smetler.",
     {prhash(u8"Pure Silver"), 100},
     prhash(u8"Raw Silver"),
     100,
     50,
     10,
     {1000, 100, 100, 300}},
    {{crc32c(u8"smelter"), crc32c(u8"crucible")},
     u8"a copper bar",
     u8"a bar of pure copper",
     u8"Smelted in {} by {}, Master Smetler.",
     {prhash(u8"Pure Copper"), 100},
     prhash(u8"Raw Copper"),
     100,
     50,
     10,
     {1000, 100, 100, 30}},
    {{crc32c(u8"smelter"), crc32c(u8"crucible")},
     u8"a tin bar",
     u8"a bar of pure tin",
     u8"Smelted in {} by {}, Master Smetler.",
     {prhash(u8"Pure Tin"), 100},
     prhash(u8"Raw Tin"),
     100,
     50,
     10,
     {1000, 100, 100, 10}},
    {{crc32c(u8"smelter"), crc32c(u8"crucible")},
     u8"a iron bar",
     u8"a bar of pure iron",
     u8"Smelted in {} by {}, Master Smetler.",
     {prhash(u8"Pure Iron"), 100},
     prhash(u8"Raw Iron"),
     100,
     100,
     10,
     {1000, 100, 100, 20}},
    {{crc32c(u8"metalsmith"), crc32c(u8"crucible")},
     u8"a platinum coin blank",
     u8"a blank disk of pure platinum",
     u8"Formed in {} by {}, Master Metalsmith.",
     {prhash(u8"Made of Platinum"), 30},
     prhash(u8"Pure Platinum"),
     30,
     100,
     33,
     {30, 1, 1, 9000}},
    {{crc32c(u8"metalsmith"), crc32c(u8"crucible")},
     u8"a gold coin blank",
     u8"a blank disk of pure gold",
     u8"Formed in {} by {}, Master Metalsmith.",
     {prhash(u8"Made of Gold"), 30},
     prhash(u8"Pure Gold"),
     30,
     100,
     33,
     {30, 1, 1, 900}},
    {{crc32c(u8"metalsmith"), crc32c(u8"crucible")},
     u8"a silver coin blank",
     u8"a blank disk of pure silver",
     u8"Formed in {} by {}, Master Metalsmith.",
     {prhash(u8"Made of Silver"), 30},
     prhash(u8"Pure Silver"),
     30,
     100,
     33,
     {30, 1, 1, 90}},
    {{crc32c(u8"metalsmith"), crc32c(u8"crucible")},
     u8"a copper coin blank",
     u8"a blank disk of pure copper",
     u8"Formed in {} by {}, Master Metalsmith.",
     {prhash(u8"Made of Copper"), 30},
     prhash(u8"Pure Copper"),
     30,
     100,
     33,
     {30, 1, 1, 9}},
    {{crc32c(u8"metalsmith"), crc32c(u8"crucible")},
     u8"a steel bar",
     u8"a bar of pure steel",
     u8"Alloyed in {} by {}, Master Metalsmith.",
     {prhash(u8"Pure Steel"), 100},
     prhash(u8"Pure Iron"),
     100,
     1000,
     1,
     {1000, 100, 100, 100}},
    {{crc32c(u8"coinmaker"), crc32c(u8"coinpress")},
     u8"a platinum piece",
     u8"A standard one-ounce platinum piece.",
     u8"Stamped in {} by {}, Master Coinmaker.",
     {prhash(u8"Money"), 10000},
     prhash(u8"Made of Platinum"),
     30,
     10,
     1,
     {30, 1, 1, 10000}},
    {{crc32c(u8"coinmaker"), crc32c(u8"coinpress")},
     u8"a gold piece",
     u8"A standard one-ounce gold piece.",
     u8"Stamped in {} by {}, Master Coinmaker.",
     {prhash(u8"Money"), 1000},
     prhash(u8"Made of Gold"),
     30,
     10,
     1,
     {30, 1, 1, 1000}},
    {{crc32c(u8"coinmaker"), crc32c(u8"coinpress")},
     u8"a silver piece",
     u8"A standard one-ounce silver piece.",
     u8"Stamped in {} by {}, Master Coinmaker.",
     {prhash(u8"Money"), 100},
     prhash(u8"Made of Silver"),
     30,
     10,
     1,
     {30, 1, 1, 100}},
    {{crc32c(u8"coinmaker"), crc32c(u8"coinpress")},
     u8"a copper piece",
     u8"A standard one-ounce copper piece.",
     u8"Stamped in {} by {}, Master Coinmaker.",
     {prhash(u8"Money"), 10},
     prhash(u8"Made of Copper"),
     30,
     10,
     1,
     {30, 1, 1, 10}},
};

struct Plan {
  const Project* project;
  Object* material;
  Object* equipment = nullptr;
};

void Mind::StartNewProject() {
  std::vector<Plan> materials;
  auto wares = body->Room()->PickObjects(u8"everything", LOC_INTERNAL);
  for (auto item : wares) {
    if (item->ActTarg(act_t::SPECIAL_OWNER) == body->Room()) {
      for (const auto& proj : projects) {
        bool relevant = true;
        Object* equip = nullptr;
        for (auto tag : proj.tags_) {
          if (!body->HasTag(tag)) {
            relevant = false;
            for (auto tool : body->PickObjects(u8"everything", LOC_NEARBY)) {
              if (tool->HasTag(tag)) {
                equip = tool;
                relevant = true;
              }
            }
            if (!relevant) {
              break;
            }
          }
        }
        if (relevant && item->Skill(proj.material_) >= static_cast<int>(proj.amount_)) {
          materials.emplace_back(Plan{&proj, item, equip});
          break;
        }
      }
      /*
            if (body->HasTag(crc32c(u8"smelter"))) {
              if (item->Skill(prhash(u8"Pure Charcoal")) || item->Skill(prhash(u8"Raw Copper")) ||
                  item->Skill(prhash(u8"Raw Silver")) || item->Skill(prhash(u8"Raw Gold")) ||
                  item->Skill(prhash(u8"Raw Platinum")) || item->Skill(prhash(u8"Raw Tin"))) {
                materials.push_back(item);
              }
            } else if (body->HasTag(crc32c(u8"metalsmith"))) {
              if (item->Skill(prhash(u8"Pure Charcoal")) || item->Skill(prhash(u8"Pure Iron")) ||
                  item->Skill(prhash(u8"Pure Copper")) || item->Skill(prhash(u8"Pure Tin"))) {
                materials.push_back(item);
              }
            } else if (body->HasTag(crc32c(u8"coinmaker"))) {
              if (item->Skill(prhash(u8"Pure Charcoal")) || item->Skill(prhash(u8"Pure Copper")) ||
                  item->Skill(prhash(u8"Pure Silver")) || item->Skill(prhash(u8"Pure Gold")) ||
                  item->Skill(prhash(u8"Pure Platinum"))) {
                materials.push_back(item);
              }
            }
      */
    }
  }
  /*
    std::ranges::sort(materials, [](const Object* a, const Object* b) {
      size_t rat_a = a->Skill(prhash(u8"Raw Wood"));
      rat_a += a->Skill(prhash(u8"Pure Wood"));
      size_t rat_b = b->Skill(prhash(u8"Raw Wood"));
      rat_b += b->Skill(prhash(u8"Raw Wood"));
      rat_a *= 1000UL;
      rat_b *= 1000UL;
      rat_a /= a->Value();
      rat_b /= b->Value();
      return rat_a > rat_b;
    });
  */
  if (materials.size() > 0) {
    const Project* proj = materials.front().project;
    Object* mat = materials.front().material;
    Object* equip = materials.front().equipment;
    if (mat->Quantity() > 1) {
      mat = mat->Split(1);
    }
    body->Parent()->SendOut(ALL, 0, u8";s grabs ;s and begins working on it.\n", u8"", body, mat);

    mat->SetSkill(prhash(u8"Incomplete"), proj->time_);
    mat->SetShortDesc(u8"a piece of work");
    mat->AddAct(act_t::SPECIAL_OWNER, body);
    mat->SetPosition(pos_t::LIE); // No longer up for sale.
    body->AddAct(act_t::WORK, mat);

    Object* goal = new Object(mat);
    goal->SetDescs(
        proj->short_,
        u8"",
        proj->desc_,
        fmt::format(proj->long_template_, goal->Zone()->ShortDesc(), body->Name()));
    if (proj->prop_.first != prhash(u8"None")) {
      goal->SetSkill(proj->prop_.first, proj->prop_.second);
    }
    goal->SetWeight(proj->attrs_.weight);
    goal->SetSize(proj->attrs_.size);
    goal->SetVolume(proj->attrs_.volume);
    goal->SetValue(proj->attrs_.value);
    if (proj->max_qty_ > 1 && proj->amount_ > 0 &&
        mat->Skill(proj->material_) >= static_cast<int>(proj->amount_) * 2) {
      goal->SetQuantity(std::min(
          proj->max_qty_, static_cast<uint32_t>(mat->Skill(proj->material_)) / proj->amount_));
    }
    goal->SetPosition(pos_t::LIE);
    if (equip) {
      mat->Travel(equip);
      body->Parent()->SendOut(ALL, 0, u8";s throws it into ;s.\n", u8"", body, equip);
    }
  }
}

void Mind::ContinueWorkOn(Object* project) {
  auto todo = project->Skill(prhash(u8"Incomplete")) - body->ModAttribute(5);
  if (todo > 0) {
    project->SetSkill(prhash(u8"Incomplete"), todo);
  } else {
    project->ClearSkill(prhash(u8"Incomplete"));
    if (project->Contents().size() > 0) {
      Object* old_proj = project;
      project = project->Contents().front();
      project->Travel(project->Room());
      delete old_proj;
    }
    if (project->Parent() != body->Room()) {
      project->Travel(body->Room());
    }
    body->AddAct(act_t::WORK);
    project->AddAct(act_t::SPECIAL_OWNER, body->Room());
    project->SetPosition(pos_t::PROP); // Put it up for sale.
    project->TryCombine();
    body->Parent()->SendOut(
        ALL,
        0,
        u8";s completes {} and places it with the rest of the wares.\n",
        u8"",
        body,
        nullptr,
        project->ShortDesc());
  }
}

// Returns how much NPC/MOB would pay for item, or 0.
size_t Mind::NPCWouldBuyFor(const Object* item) {
  for (const auto& proj : projects) {
    bool relevant = true;
    // Object* equip = nullptr;
    for (auto tag : proj.tags_) {
      if (!body->HasTag(tag)) {
        relevant = false;
        for (auto tool : body->PickObjects(u8"everything", LOC_NEARBY)) {
          if (tool->HasTag(tag)) {
            // equip = tool; // TODO: Confirm Tool Availability
            relevant = true;
          }
        }
        if (!relevant) {
          break;
        }
      }
    }
    if (relevant && item->Skill(proj.material_) >= static_cast<int>(proj.amount_)) {
      return item->Value() * item->Quantity();
    }
  }

  return 0;
}