From 4d3c094491259ad0123c01be9d2a0724635e1886 Mon Sep 17 00:00:00 2001
From: Sveinung Kvilhaugsvik <sveinung84@users.sourceforge.net>
Date: Tue, 23 Mar 2021 13:31:28 +0100
Subject: [PATCH] sandbox: demonstrate "Unit Make Homeless".

Demonstrate "Unit Make Homeless" by introducing a little bit more of the
evil storyline of "Sons of Adam".

Introduce the tech "Ruler Apotheosis", the wonder "Altar to The Divine
Ruler" and the action "Unit Make Homeless" under the name "Make Sacrifice of
Work". Adapt it to sandbox by making Theology obsolete "Altar to The Divine
Ruler" and by commenting out the advisor.

I find the fact that I introduce a little bit more of the evil storyline of
"Sons of Adam" funny because the evil storyline of "Sons of Adam" is based
on moving just a little bit further along the evil storyline.

See osdn #41836
---
 data/sandbox/README.sandbox    |  5 +++++
 data/sandbox/buildings.ruleset | 28 ++++++++++++++++++++++++++++
 data/sandbox/game.ruleset      | 11 +++++++++++
 data/sandbox/techs.ruleset     | 10 ++++++++++
 4 files changed, 54 insertions(+)

diff --git a/data/sandbox/README.sandbox b/data/sandbox/README.sandbox
index 568d2659c8..a8de5f5efc 100644
--- a/data/sandbox/README.sandbox
+++ b/data/sandbox/README.sandbox
@@ -201,6 +201,11 @@ Unit healing
 All flesh based units can heal all other flesh based units if you build the
 small wonder "Amêzârâkian Mysteries".
 
+Units can be made homeless
+The new wonder "Altar to The Divine Ruler" makes it possible to make a unit
+that has a home city become unhomed by performing the action "Make Sacrifice
+of Work".
+
 Casus belli
 Starting to do Pillage to a tile gives the tile owner (not the extra owner) a
 casus belli against you.
diff --git a/data/sandbox/buildings.ruleset b/data/sandbox/buildings.ruleset
index 3b3dc24254..3a89878da9 100644
--- a/data/sandbox/buildings.ruleset
+++ b/data/sandbox/buildings.ruleset
@@ -1337,6 +1337,34 @@ together in the same city, increasing to 200% once the Great Library and \
 Isaac Newton's College have both been built.\
 ")
 
+; The consensus among the wise men you have licensed and granted a generous
+; regular allowance is that you are divine or that the commoners should
+; believe that you are divine. What better way to honor this consensus than
+; to build an altar to yourself?
+[building_altar_to_the_divine_ruler]
+name            = _("Altar to The Divine Ruler")
+genus           = "GreatWonder"
+reqs            =
+    { "type", "name",             "range"
+      "Tech", "Ruler Apotheosis", "Player"
+    }
+graphic     = "b.altar"
+graphic_alt = "b.oracle"
+obsolete_by =
+    { "type", "name",     "range"
+      "Tech", "Theology", "Player"
+    }
+build_cost  = 300
+upkeep      = 0
+sabotage    = 0
+sound       = "w_altar"
+sound_alt   = "w_generic"
+helptext    = _("\
+Makes it possible to receive sacrifices from your subjects.\
+ A Sacrifice of Work makes the unit unhomed and therefore without material\
+ or happyness upkeep.\
+")
+
 [building_apollo_program]
 name		= _("Apollo Program")
 genus		= "GreatWonder"
diff --git a/data/sandbox/game.ruleset b/data/sandbox/game.ruleset
index 6d628a0302..c1999f4e9e 100644
--- a/data/sandbox/game.ruleset
+++ b/data/sandbox/game.ruleset
@@ -538,6 +538,9 @@ ui_name_nuke_units = _("Tactical %sNuke%s")
 ; /* TRANS: Set _Home City (100% chance of success). */
 ui_name_home_city = _("Set %sHome City%s")
 
+; /* TRANS: Make _Sacrifice of Work (100% chance of success). */
+ui_name_homeless = _("Make %sSacrifice of Work%s")
+
 ; /* TRANS: _Upgrade Unit (100% chance of success). */
 ui_name_upgrade_unit = _("%sUpgrade Unit%s")
 
@@ -1661,6 +1664,14 @@ actor_reqs    =
       "DiplRel",   "Foreign",  "Local", FALSE
     }
 
+[actionenabler_no_home_city]
+action = "Unit Make Homeless"
+actor_reqs    =
+    { "type",      "name",                      "range", "present"
+      "UnitState", "HasHomeCity",               "Local", TRUE
+      "Building",  "Altar to The Divine Ruler", "City",  TRUE
+    }
+
 [actionenabler_paradrop_base_to_claimed_not_forest]
 action = "Paradrop Unit Enter"
 actor_reqs    =
diff --git a/data/sandbox/techs.ruleset b/data/sandbox/techs.ruleset
index bcf4532d66..82c197788d 100644
--- a/data/sandbox/techs.ruleset
+++ b/data/sandbox/techs.ruleset
@@ -728,6 +728,16 @@ graphic     = "a.rocketry"
 graphic_alt = "-"
 helptext = _("Doubles movement of nuclear units.")
 
+; We now know that there may be other gods, my lord. I suggest that we now
+; seek to find out if you are a god yourself. You are after all extremely
+; powerful.
+[advance_ruler_apotheosis]
+name        = _("Ruler Apotheosis")
+req1        = "Polytheism"
+req2        = "Mysticism"
+graphic     = "a.apotheosis"
+graphic_alt = "a.polytheism"
+
 [advance_sanitation]
 name     = _("Sanitation")
 req1     = "Bridge Building"
-- 
2.20.1