home · contact · privacy
TCE: Add death touch on GRACE >= 16.
[plomrogue] / plugins / server / TheCrawlingEater.py
index 9ef3aff4b1c7f1ac3d3764b87ee248f181d480b8..798ad57c0e31fd14e85d6412e97f3f6030c8aec3 100644 (file)
@@ -25,7 +25,7 @@ def play_drink():
             and world_db["Things"][0]["T_LIFEPOINTS"] > 0):
         return
     pos = world_db["Things"][0]["pos"]
-    if not (chr(world_db["MAP"][pos]) == "0"
+    if not (chr(world_db["MAP"][pos]) in "0-+"
             and world_db["wetmap"][pos] > ord("0")):
         log("NOTHING to drink here.")
         return
@@ -37,16 +37,12 @@ def play_drink():
 
 def actor_drink(t):
     pos = t["pos"]
-    if chr(world_db["MAP"][pos]) == "0" and \
+    if chr(world_db["MAP"][pos]) in "0-+" and \
                 world_db["wetmap"][pos] > ord("0") and t["T_KIDNEY"] < 32:
         if world_db["Things"][0] == t:
             log("You DRINK.")
         t["T_KIDNEY"] += 1
         world_db["wetmap"][pos] -= 1
-        if world_db["wetmap"][pos] == ord("0"):
-            world_db["MAP"][pos] = ord("0")
-    elif t == world_db["Things"][0]:
-        log("YOU FAIL TO DRINK " + str(world_db["MAP"][pos] - ord("0")))
 
 
 def play_pee():
@@ -67,7 +63,8 @@ def actor_pee(t):
     if not world_db["test_air"](t):
         return
     t["T_BLADDER"] -= 1
-    world_db["wetmap"][t["pos"]] += 1
+    if chr(world_db["MAP"][t["pos"]]) not in "*&":
+        world_db["wetmap"][t["pos"]] += 1
 
 
 def play_drop():
@@ -87,7 +84,12 @@ def actor_drop(t):
         log("You DROP waste.")
     if not world_db["test_air"](t):
         return
-    world_db["MAP"][t["pos"]] += 1
+    if world_db["MAP"][t["pos"]] == ord("+"):
+        world_db["MAP"][t["pos"]] = ord("-")
+    elif world_db["MAP"][t["pos"]] == ord("-"):
+        world_db["MAP"][t["pos"]] = ord("0")
+    elif chr(world_db["MAP"][t["pos"]]) not in "*&":
+        world_db["MAP"][t["pos"]] += 1
     t["T_BOWEL"] -= 1
 
 
@@ -116,7 +118,10 @@ def play_move(str_arg):
             world_db["Things"][0]["T_ARGUMENT"] = d
             world_db["set_command"]("eat")
             return
-        if chr(world_db["MAP"][pos]) in "34":
+        legal_targets = "34"
+        if world_db["GRACE"] >= 8:
+            legal_targets += "5"
+        if chr(world_db["MAP"][pos]) in legal_targets:
             if t["T_STOMACH"] >= 32:
                 if t == world_db["Things"][0]:
                     log("You're too FULL to eat.")
@@ -131,6 +136,32 @@ def play_move(str_arg):
     log("You CAN'T eat your way through there.")
 
 
+def suck_out_creature(t, tid):
+    if t == None:
+        t = world_db["Things"][tid]
+    elif tid == None:
+        tid = next(tid for tid in world_db["Things"]
+                   if world_db["Things"][tid] == t)
+    room_stomach = 32 - world_db["Things"][0]["T_STOMACH"]
+    room_kidney = 32 - world_db["Things"][0]["T_KIDNEY"]
+    if t["T_STOMACH"] > room_stomach:
+        t["T_STOMACH"] -= room_stomach
+        world_db["Things"][0]["T_STOMACH"] = 32
+    else:
+        world_db["Things"][0]["T_STOMACH"] + t["T_STOMACH"]
+        t["T_STOMACH"] = 0
+    if t["T_KIDNEY"] > room_stomach:
+        t["T_KIDNEY"] -= room_stomach
+        world_db["Things"][0]["T_KIDNEY"] = 32
+    else:
+        world_db["Things"][0]["T_KIDNEY"] + t["T_KIDNEY"]
+        t["T_KIDNEY"] = 0
+    hitted_name = world_db["ThingTypes"][t["T_TYPE"]]["TT_NAME"]
+    log("You SUCK EVERYTHING from " + hitted_name + ", killing them.")
+    world_db["die"](t, "FOO")
+world_db["suck_out_creature"] = suck_out_creature
+
+
 def actor_eat(t):
     from server.utils import mv_yx_in_dir_legal, rand
     from server.config.world_data import symbols_passable
@@ -146,9 +177,15 @@ def actor_eat(t):
             hit_id = hitted[0]
             hitted_tid = world_db["Things"][hit_id]["T_TYPE"]
             if t == world_db["Things"][0]:
+                if world_db["GRACE"] >= 16:
+                    world_db["suck_out_creature"](None, hit_id)
+                    return
                 hitted_name = world_db["ThingTypes"][hitted_tid]["TT_NAME"]
                 log("You SUCK from " + hitted_name + ".")
             elif 0 == hit_id:
+                if world_db["GRACE"] >= 16:
+                    world_db["suck_out_creature"](t, None)
+                    return
                 hitter_name = world_db["ThingTypes"][t["T_TYPE"]]["TT_NAME"]
                 log(hitter_name +" SUCKS from you.")
             hitted = world_db["Things"][hit_id]
@@ -164,13 +201,17 @@ def actor_eat(t):
         log("You try to EAT, but fail.")
     else:
         height = world_db["MAP"][pos] - ord("0")
-        if t["T_STOMACH"] >= 32 or height == 5:
+        if t["T_STOMACH"] >= 32:
+            return
+        if height == 5 and not \
+                (t == world_db["Things"][0] and world_db["GRACE"] >= 8):
             return
         t["T_STOMACH"] += 1
         if t == world_db["Things"][0]:
             log("You EAT.")
         eaten = (height == 3 and 0 == int(rand.next() % 2)) or \
-                (height == 4 and 0 == int(rand.next() % 5))
+                (height == 4 and 0 == int(rand.next() % 5)) or \
+                (height == 5 and 0 == int(rand.next() % 10))
         if eaten:
             world_db["MAP"][pos] = ord("0")
             if t["T_STOMACH"] > 32:
@@ -193,9 +234,15 @@ def actor_move(t):
             hit_id = hitted[0]
             hitted_tid = world_db["Things"][hit_id]["T_TYPE"]
             if t == world_db["Things"][0]:
+                if world_db["GRACE"] >= 16:
+                    world_db["suck_out_creature"](None, hit_id)
+                    return
                 hitted_name = world_db["ThingTypes"][hitted_tid]["TT_NAME"]
                 log("You BUMP into " + hitted_name + ".")
             elif 0 == hit_id:
+                if world_db["GRACE"] >= 16:
+                    world_db["suck_out_creature"](t, None)
+                    return
                 hitter_name = world_db["ThingTypes"][t["T_TYPE"]]["TT_NAME"]
                 log(hitter_name +" BUMPS into you.")
             return
@@ -205,12 +252,27 @@ def actor_move(t):
         t["T_POSX"] = move_result[2]
         t["pos"] = move_result[1] * world_db["MAP_LENGTH"] + move_result[2]
         world_db["soundmap"][t["pos"]] = ord("9")
+        if t == world_db["Things"][0] and world_db["MAP"][t["pos"]] == ord("$"):
+            world_db["MAP"][t["pos"]] = ord("0")
+            if world_db["GRACE"] < 8:
+                log("You can now eat ALL walls.")
+            if world_db["GRACE"] < 16:
+                log("You now have the DEATH touch.")
+            if world_db["GRACE"] < 24:
+                log("You will now LEVITATE over holes.")
+            world_db["GRACE"] += 8
     elif t == world_db["Things"][0]:
         log("You try to MOVE there, but fail.")
 
 
 def test_hole(t):
-    if world_db["MAP"][t["pos"]] == ord("-"):
+    if t == world_db["Things"][0]:
+        if world_db["GRACE"] >= 32 and world_db["MAP"][t["pos"]] == ord("&"):
+            world_db["die"](t, "YOU WIN, CONGRATULATIONS.")
+            return False
+        if world_db["GRACE"] >= 24:
+            return True
+    if chr(world_db["MAP"][t["pos"]]) in "*&":
         world_db["die"](t, "You FALL in a hole, and die.")
         return False
     return True
@@ -232,7 +294,8 @@ def die(t, message):
         t["T_MEMMAP"][t["pos"]] = ord("@")
         log(message)
     else:
-        world_db["MAP"][t["pos"]] = ord("5")
+        if world_db["MAP"][t["pos"]] != ord("$"):
+            world_db["MAP"][t["pos"]] = ord("5")
         world_db["HUMILITY"] = t["T_KIDNEY"] + t["T_BLADDER"] + \
             (world_db["wetmap"][t["pos"]] - ord("0"))
         world_db["wetmap"][t["pos"]] = 0
@@ -272,6 +335,13 @@ def make_map():
                 ord("0") == world_db["wetmap"][pos]:
             world_db["wetmap"][pos] = ord("3")
             i_water += 1
+    n_altars = 4
+    i_altars = 0
+    while (i_altars < n_altars):
+        y, x, pos = new_pos()
+        if ord("0") == world_db["MAP"][pos]:
+            world_db["MAP"][pos] = ord("$")
+            i_altars += 1
 
 
 def calc_effort(ta, t):
@@ -281,8 +351,9 @@ def calc_effort(ta, t):
                                          t["T_POSY"], t["T_POSX"])
         if 1 == move_result[0]:
             pos = (move_result[1] * world_db["MAP_LENGTH"]) + move_result[2]
-            narrowness = world_db["MAP"][pos] - ord("0")
-            return 2 ** narrowness
+            if chr(world_db["MAP"][pos]) in "012":
+                narrowness = world_db["MAP"][pos] - ord("0")
+                return 2 ** narrowness
     return 1
 world_db["calc_effort"] = calc_effort
 
@@ -318,6 +389,8 @@ def turn_over():
                     if t["T_PROGRESS"] >= effort:
                         action = action_db["actor_" + ThingAction["TA_NAME"]]
                         action(t)
+                        if t["T_LIFEPOINTS"] <= 0:
+                            continue
                         t["T_COMMAND"] = 0
                         t["T_PROGRESS"] = 0
                     if t["T_BOWEL"] > 16:
@@ -335,13 +408,27 @@ def turn_over():
                         world_db["die"](t, "You DIE of hunger.")
                     elif t["T_KIDNEY"] <= 0:
                         world_db["die"](t, "You DIE of dehydration.")
-        for pos in range(world_db["MAP_LENGTH"] ** 2):
+        mapsize = world_db["MAP_LENGTH"] ** 2
+        for pos in range(mapsize):
             wetness = world_db["wetmap"][pos] - ord("0")
             height = world_db["MAP"][pos] - ord("0")
-            if height == 0 and wetness > 0 \
-                    and 0 == rand.next() % ((2 ** 13) / (2 ** wetness)):
+            if world_db["MAP"][pos] == ord("-"):
+                height = -1
+            elif world_db["MAP"][pos] == ord("+"):
+                height = -2
+            elif world_db["MAP"][pos] == ord("$"):
+                height = -3
+            if height == -2 and wetness > 1 \
+                    and 0 == rand.next() % ((2 ** 11) / (2 ** wetness)):
+                world_db["MAP"][pos] = ord("*")
+                world_db["HUMIDITY"] += wetness
+            if height == -1 and wetness > 1 \
+                    and 0 == rand.next() % ((2 ** 10) / (2 ** wetness)):
+                world_db["MAP"][pos] = ord("+")
+            if height == 0 and wetness > 1 \
+                    and 0 == rand.next() % ((2 ** 9) / (2 ** wetness)):
                 world_db["MAP"][pos] = ord("-")
-            if ((wetness > 0 and height != 0) or wetness > 1) \
+            if ((wetness > 0 and height > 0) or wetness > 1) \
                 and 0 == rand.next() % 5:
                 world_db["wetmap"][pos] -= 1
                 world_db["HUMIDITY"] += 1
@@ -364,8 +451,8 @@ def turn_over():
                         pos = y * world_db["MAP_LENGTH"] + x
                         break
             positions_to_wet = []
-            for pos in range(world_db["MAP_LENGTH"] ** 2):
-                if world_db["MAP"][pos] == ord("0") \
+            for pos in range(mapsize):
+                if chr(world_db["MAP"][pos]) in "0-+" \
                         and world_db["wetmap"][pos] < ord("5"):
                     positions_to_wet += [pos]
             while world_db["HUMIDITY"] > 0 and len(positions_to_wet) > 0:
@@ -374,9 +461,29 @@ def turn_over():
                 world_db["wetmap"][pos] += 1
                 positions_to_wet.remove(pos)
                 world_db["HUMIDITY"] -= 1
-        for pos in range(world_db["MAP_LENGTH"] ** 2):
+        for pos in range(mapsize):
             if world_db["soundmap"][pos] > ord("0"):
                 world_db["soundmap"][pos] -= 1
+        from server.utils import libpr
+        libpr.init_score_map()
+        def set_map_score(pos, score):
+            test = libpr.set_map_score(pos, score)
+            if test:
+                raise RuntimeError("No score map allocated for set_map_score().")
+        [set_map_score(pos, 1) for pos in range(mapsize)
+         if world_db["MAP"][pos] == ord("*")]
+        for pos in range(mapsize):
+            if world_db["MAP"][pos] == ord("*"):
+                if libpr.ready_neighbor_scores(pos):
+                    raise RuntimeError("No score map allocated for " +
+                                       "ready_neighbor_scores.()")
+                score = 0
+                dirs = "edcxsw"
+                for i in range(len(dirs)):
+                    score += libpr.get_neighbor_score(i)
+                if score == 5 or score == 6:
+                    world_db["MAP"][pos] = ord("&")
+        libpr.free_score_map()
         world_db["TURN"] += 1
         io_db["worldstate_updateable"] = True
         try_worldstate_update()
@@ -525,13 +632,16 @@ def get_dir_to_target(t, target):
                            if t["fovmap"] == ord("v")
                            if world_db["MAP"][pos] == ord("0")
                            if world_db["wetmap"][pos] > ord("0"))
+        elif target == "crack" and t["T_MEMMAP"]:
+            return exists(pos for pos in range(mapsize)
+                           if t["T_MEMMAP"][pos] == ord("-"))
         elif target == "fluid_potential" and t["T_MEMMAP"] and t["fovmap"]:
             return exists(pos for pos in range(mapsize)
                            if t["T_MEMMAP"][pos] == ord("0")
                            if t["fovmap"] != ord("v"))
-        elif target == "space_big" and t["T_MEMMAP"] and t["fovmap"]:
+        elif target == "space" and t["T_MEMMAP"] and t["fovmap"]:
             return exists(pos for pos in range(mapsize)
-                          if ord("0") <= t["T_MEMMAP"][pos] <= ord("2")
+                          if ord("-") <= t["T_MEMMAP"][pos] <= ord("2")
                           if (t["fovmap"] != ord("v")
                               or world_db["terrain_fullness"](pos) < 5))
         elif target in {"hunt", "flee"} and t["fovmap"]:
@@ -546,7 +656,7 @@ def get_dir_to_target(t, target):
         mapsize = world_db["MAP_LENGTH"] ** 2
         test = libpr.TCE_init_score_map()
         [set_map_score(pos, 65535) for pos in range(mapsize)
-         if chr(t["T_MEMMAP"][pos]) in "5-"]
+         if chr(t["T_MEMMAP"][pos]) in "5*&"]
         set_movement_cost_map()
         if test:
             raise RuntimeError("Malloc error in init_score_map().")
@@ -558,13 +668,16 @@ def get_dir_to_target(t, target):
              if t["fovmap"] == ord("v")
              if world_db["MAP"][pos] == ord("0")
              if world_db["wetmap"][pos] > ord("0")]
+        elif target == "crack" and t["T_MEMMAP"]:
+            [set_map_score(pos, 0) for pos in range(mapsize)
+             if t["T_MEMMAP"][pos] == ord("-")]
         elif target == "fluid_potential" and t["T_MEMMAP"] and t["fovmap"]:
             [set_map_score(pos, 0) for pos in range(mapsize)
              if t["T_MEMMAP"][pos] == ord("0")
              if t["fovmap"] != ord("v")]
         elif target == "space" and t["T_MEMMAP"] and t["fovmap"]:
             [set_map_score(pos, 0) for pos in range(mapsize)
-             if ord("0") <= t["T_MEMMAP"][pos] <= ord("2")
+             if ord("-") <= t["T_MEMMAP"][pos] <= ord("2")
              if (t["fovmap"] != ord("v")
                  or world_db["terrain_fullness"](pos) < 5)]
         elif target == "search":
@@ -656,8 +769,12 @@ world_db["get_dir_to_target"] = get_dir_to_target
 
 
 def terrain_fullness(pos):
-    return (world_db["MAP"][pos] - ord("0")) + \
-        (world_db["wetmap"][pos] - ord("0"))
+    wetness = world_db["wetmap"][pos] - ord("0")
+    if chr(world_db["MAP"][pos]) in "-+":
+        height = 0
+    else:
+        height = world_db["MAP"][pos] - ord("0")
+    return wetness + height
 world_db["terrain_fullness"] = terrain_fullness
 
 
@@ -680,6 +797,7 @@ def ai(t):
 
     t["T_COMMAND"] = thing_action_id("wait")
     needs = {
+        "fix_cracks": 24,
         "flee": 24,
         "safe_pee": (world_db["terrain_fullness"](t["pos"]) * t["T_BLADDER"]) / 4,
         "safe_drop": (world_db["terrain_fullness"](t["pos"]) * t["T_BOWEL"]) / 4,
@@ -693,6 +811,14 @@ def ai(t):
     needs.reverse()
     for need in needs:
         if need[1] > 0:
+            if need[0] == "fix_cracks":
+                if world_db["MAP"][t["pos"]] == ord("-") and \
+                        t["T_BOWEL"] > 0 and \
+                        world_db["terrain_fullness"](t["pos"]) <= 3:
+                    t["T_COMMAND"] = thing_action_id("drop")
+                    return
+                elif world_db["get_dir_to_target"](t, "crack"):
+                    return
             if need[0] in {"fluid_certain", "fluid_potential"}:
                 if standing_on_fluid(t):
                     t["T_COMMAND"] = thing_action_id("drink")
@@ -710,7 +836,7 @@ def ai(t):
                 if test[0]:
                     if test[1] < 5:
                         return
-                    elif world["terrain_fullness"](t["pos"]) < 5:
+                    elif world_db["terrain_fullness"](t["pos"]) < 5:
                         t["T_COMMAND"] = thing_action_id(action_name)
                     return
                 if t["T_STOMACH"] < 32 and \
@@ -737,9 +863,10 @@ io_db["worldstate_write_order"] += [["T_BOWEL", "player_int"]]
 io_db["worldstate_write_order"] += [["T_BLADDER", "player_int"]]
 io_db["worldstate_write_order"] += [[write_wetmap, "func"]]
 io_db["worldstate_write_order"] += [[write_soundmap, "func"]]
+io_db["worldstate_write_order"] += [["GRACE", "world_int"]]
 import server.config.world_data
 server.config.world_data.symbols_hide = "345"
-server.config.world_data.symbols_passable = "012-"
+server.config.world_data.symbols_passable = "012-+*&$"
 server.config.world_data.thing_defaults["T_STOMACH"] = 16
 server.config.world_data.thing_defaults["T_BOWEL"] = 0
 server.config.world_data.thing_defaults["T_KIDNEY"] = 16
@@ -750,6 +877,8 @@ if not "NEW_SPAWN" in world_db:
     world_db["NEW_SPAWN"] = 0
 if not "HUMIDITY" in world_db:
     world_db["HUMIDITY"] = 0
+if not "GRACE" in world_db:
+    world_db["GRACE"] = 0
 io_db["hook_save"] = save_maps
 import server.config.make_world_helpers
 server.config.make_world_helpers.make_map = make_map
@@ -765,6 +894,7 @@ commands_db["drink"] = (0, False, play_drink)
 commands_db["pee"] = (0, False, play_pee)
 commands_db["use"] = (1, False, lambda x: None)
 commands_db["pickup"] = (0, False, lambda: None)
+commands_db["GRACE"] = (1, False, setter(None, "GRACE", 0, 255))
 commands_db["NEW_SPAWN"] = (1, False, setter(None, "NEW_SPAWN", 0, 255))
 commands_db["HUMIDITY"] = (1, False, setter(None, "HUMIDITY", 0, 65535))
 commands_db["T_STOMACH"] = (1, False, setter("Thing", "T_STOMACH", 0, 255))