plomlompom.com Git - plomrogue/blob - plugins/server/PleaseTheIslandGod.py

   1 # This file is part of PlomRogue. PlomRogue is licensed under the GPL version 3
   2 # or any later version. For details on its copyright, license, and warranties,
   3 # see the file NOTICE in the root directory of the PlomRogue source package.
   4
   5
   6 from server.io import log, strong_write
   7 from server.config.world_data import world_db, symbols_passable, directions_db
   8 from server.utils import mv_yx_in_dir_legal, rand, id_setter
   9 from server.config.io import io_db
  10 from server.new_thing import new_Thing
  11
  12 def make_world(seed):
  13     from server.update_map_memory import update_map_memory
  14     from server.config.misc import make_map_func
  15     from server.utils import libpr
  16
  17     def free_pos(plant=False):
  18         i = 0
  19         while 1:
  20             err = "Space to put thing on too hard to find. Map too small?"
  21             while 1:
  22                 y = rand.next() % world_db["MAP_LENGTH"]
  23                 x = rand.next() % world_db["MAP_LENGTH"]
  24                 pos = y * world_db["MAP_LENGTH"] + x;
  25                 if (not plant
  26                     and "." == chr(world_db["MAP"][pos])) \
  27                    or ":" == chr(world_db["MAP"][pos]):
  28                     break
  29                 i += 1
  30                 if i == 65535:
  31                     raise SystemExit(err)
  32             pos_clear = (0 == len([id for id in world_db["Things"]
  33                                    if world_db["Things"][id]["T_LIFEPOINTS"]
  34                                    if world_db["Things"][id]["T_POSY"] == y
  35                                    if world_db["Things"][id]["T_POSX"] == x]))
  36             if pos_clear:
  37                 break
  38         return (y, x)
  39
  40     rand.seed = seed
  41     if world_db["MAP_LENGTH"] < 1:
  42         print("Ignoring: No map length >= 1 defined.")
  43         return
  44     libpr.set_maplength(world_db["MAP_LENGTH"])
  45     player_will_be_generated = False
  46     playertype = world_db["PLAYER_TYPE"]
  47     for ThingType in world_db["ThingTypes"]:
  48         if playertype == ThingType:
  49             if 0 < world_db["ThingTypes"][ThingType]["TT_START_NUMBER"]:
  50                 player_will_be_generated = True
  51             break
  52     if not player_will_be_generated:
  53         print("Ignoring: No player type with start number >0 defined.")
  54         return
  55     wait_action = False
  56     for ThingAction in world_db["ThingActions"]:
  57         if "wait" == world_db["ThingActions"][ThingAction]["TA_NAME"]:
  58             wait_action = True
  59     if not wait_action:
  60         print("Ignoring beyond SEED_MAP: " +
  61               "No thing action with name 'wait' defined.")
  62         return
  63     for name in world_db["specials"]:
  64         if world_db[name] not in world_db["ThingTypes"]:
  65             print("Ignoring: No valid " + name + " set.")
  66             return
  67     world_db["Things"] = {}
  68     make_map()
  69     world_db["WORLD_ACTIVE"] = 1
  70     world_db["TURN"] = 1
  71     for i in range(world_db["ThingTypes"][playertype]["TT_START_NUMBER"]):
  72         id = id_setter(-1, "Things")
  73         world_db["Things"][id] = new_Thing(playertype, free_pos())
  74     if not world_db["Things"][0]["fovmap"]:
  75         empty_fovmap = bytearray(b" " * world_db["MAP_LENGTH"] ** 2)
  76         world_db["Things"][0]["fovmap"] = empty_fovmap
  77     update_map_memory(world_db["Things"][0])
  78     for type in world_db["ThingTypes"]:
  79         for i in range(world_db["ThingTypes"][type]["TT_START_NUMBER"]):
  80             if type != playertype:
  81                 id = id_setter(-1, "Things")
  82                 plantness = world_db["ThingTypes"][type]["TT_PROLIFERATE"]
  83                 world_db["Things"][id] = new_Thing(type, free_pos(plantness))
  84     strong_write(io_db["file_out"], "NEW_WORLD\n")
  85
  86 def thingproliferation(t, prol_map):
  87     from server.new_thing import new_Thing
  88     global directions_db, mv_yx_in_dir_legal
  89     prolscore = world_db["ThingTypes"][t["T_TYPE"]]["TT_PROLIFERATE"]
  90     if prolscore and \
  91       (world_db["ThingTypes"][t["T_TYPE"]]["TT_LIFEPOINTS"] == 0 or
  92        t["T_LIFEPOINTS"] >= 0.9 *
  93                         world_db["ThingTypes"][t["T_TYPE"]]["TT_LIFEPOINTS"]) \
  94        and \
  95       (1 == prolscore or 1 == (rand.next() % prolscore)):
  96         candidates = []
  97         for dir in [directions_db[key] for key in directions_db]:
  98             mv_result = mv_yx_in_dir_legal(dir, t["T_POSY"], t["T_POSX"])
  99             pos = mv_result[1] * world_db["MAP_LENGTH"] + mv_result[2]
 100             if mv_result[0] and \
 101                (ord(":") == prol_map[pos]
 102                 or (world_db["ThingTypes"][t["T_TYPE"]]["TT_LIFEPOINTS"]
 103                     and ord(".") == prol_map[pos])):
 104                 candidates.append((mv_result[1], mv_result[2]))
 105         if len(candidates):
 106             i = rand.next() % len(candidates)
 107             id = id_setter(-1, "Things")
 108             newT = new_Thing(t["T_TYPE"], (candidates[i][0], candidates[i][1]))
 109             world_db["Things"][id] = newT
 110             if (world_db["FAVOR_STAGE"] > 0
 111                 and t["T_TYPE"] == world_db["PLANT_0"]):
 112                 world_db["GOD_FAVOR"] += 5
 113             elif t["T_TYPE"] == world_db["PLANT_1"]:
 114                 world_db["GOD_FAVOR"] += 25
 115             #elif world_db["FAVOR_STAGE"] >= 4 and \
 116             #     t["T_TYPE"] == world_db["ANIMAL_1"]:
 117             #    log("The Island God SMILES upon a new-born bear baby.")
 118             #    world_db["GOD_FAVOR"] += 750
 119
 120 def make_map():
 121     global rand
 122
 123     def is_neighbor(coordinates, type):
 124         y = coordinates[0]
 125         x = coordinates[1]
 126         length = world_db["MAP_LENGTH"]
 127         ind = y % 2
 128         diag_west = x + (ind > 0)
 129         diag_east = x + (ind < (length - 1))
 130         pos = (y * length) + x
 131         if (y > 0 and diag_east
 132             and type == chr(world_db["MAP"][pos - length + ind])) \
 133            or (x < (length - 1)
 134                and type == chr(world_db["MAP"][pos + 1])) \
 135            or (y < (length - 1) and diag_east
 136                and type == chr(world_db["MAP"][pos + length + ind])) \
 137            or (y > 0 and diag_west
 138                and type == chr(world_db["MAP"][pos - length - (not ind)])) \
 139            or (x > 0
 140                and type == chr(world_db["MAP"][pos - 1])) \
 141            or (y < (length - 1) and diag_west
 142                and type == chr(world_db["MAP"][pos + length - (not ind)])):
 143             return True
 144         return False
 145
 146     world_db["MAP"] = bytearray(b'~' * (world_db["MAP_LENGTH"] ** 2))
 147     length = world_db["MAP_LENGTH"]
 148     add_half_width = (not (length % 2)) * int(length / 2)
 149     world_db["MAP"][int((length ** 2) / 2) + add_half_width] = ord(".")
 150     while (1):
 151         y = rand.next() % length
 152         x = rand.next() % length
 153         pos = (y * length) + x
 154         if "~" == chr(world_db["MAP"][pos]) and is_neighbor((y, x), "."):
 155             if y == 0 or y == (length - 1) or x == 0 or x == (length - 1):
 156                 break
 157             world_db["MAP"][pos] = ord(".")
 158     n_trees = int((length ** 2) / 16)
 159     i_trees = 0
 160     while (i_trees <= n_trees):
 161         single_allowed = rand.next() % 32
 162         y = rand.next() % length
 163         x = rand.next() % length
 164         pos = (y * length) + x
 165         if "." == chr(world_db["MAP"][pos]) \
 166           and ((not single_allowed) or is_neighbor((y, x), "X")):
 167             world_db["MAP"][pos] = ord("X")
 168             i_trees += 1
 169     n_colons = int((length ** 2) / 16)
 170     i_colons = 0
 171     while (i_colons <= n_colons):
 172         single_allowed = rand.next() % 256
 173         y = rand.next() % length
 174         x = rand.next() % length
 175         pos = (y * length) + x
 176         if ("." == chr(world_db["MAP"][pos])
 177           and ((not single_allowed) or is_neighbor((y, x), ":"))):
 178             world_db["MAP"][pos] = ord(":")
 179             i_colons += 1
 180     altar_placed = False
 181     while not altar_placed:
 182         y = rand.next() % length
 183         x = rand.next() % length
 184         pos = (y * length) + x
 185         if (("." == chr(world_db["MAP"][pos]
 186              or ":" == chr(world_db["MAP"][pos]))
 187             and not is_neighbor((y, x), "X"))):
 188             world_db["MAP"][pos] = ord("_")
 189             world_db["altar"] = (y, x)
 190             altar_placed = True
 191
 192 def ai(t):
 193     from server.ai import get_dir_to_target, get_inventory_slot_to_consume, \
 194         standing_on_food
 195     t["T_COMMAND"] = [id for id in world_db["ThingActions"]
 196                       if world_db["ThingActions"][id]["TA_NAME"] == "wait"][0]
 197     eating = len([id for id in world_db["ThingActions"]
 198                   if world_db["ThingActions"][id]["TA_NAME"] == "use"]) > 0
 199     picking = len([id for id in world_db["ThingActions"]
 200                    if world_db["ThingActions"][id]["TA_NAME"] == "pickup"]) > 0
 201     if eating and picking:
 202         if get_dir_to_target(t, "f"):
 203             return
 204         sel = get_inventory_slot_to_consume(t)
 205         if -1 != sel:
 206             t["T_COMMAND"] = [id for id in world_db["ThingActions"]
 207                               if world_db["ThingActions"][id]["TA_NAME"]
 208                                  == "use"][0]
 209             t["T_ARGUMENT"] = sel
 210         elif standing_on_food(t) and (len(t["T_CARRIES"]) <
 211                 world_db["ThingTypes"][t["T_TYPE"]]["TT_STORAGE"]):
 212                 t["T_COMMAND"] = [id for id in world_db["ThingActions"]
 213                                   if world_db["ThingActions"][id]["TA_NAME"]
 214                                   == "pickup"][0]
 215         else:
 216             going_to_known_food_spot = get_dir_to_target(t, "c")
 217             if not going_to_known_food_spot:
 218                 aiming_for_walking_food = get_dir_to_target(t, "a")
 219                 if not aiming_for_walking_food:
 220                     get_dir_to_target(t, "s")
 221
 222 def actor_pickup(t):
 223     from server.ai import eat_vs_hunger_threshold
 224     used_slots = len(t["T_CARRIES"])
 225     if used_slots < world_db["ThingTypes"][t["T_TYPE"]]["TT_STORAGE"]:
 226         ids = [id for id in world_db["Things"] if world_db["Things"][id] != t
 227                if not world_db["Things"][id]["carried"]
 228                if world_db["Things"][id]["T_POSY"] == t["T_POSY"]
 229                if world_db["Things"][id]["T_POSX"] == t["T_POSX"]]
 230         if len(ids):
 231             lowest_tid = -1
 232             eat_cost = eat_vs_hunger_threshold(t["T_TYPE"])
 233             for iid in ids:
 234                 tid = world_db["Things"][iid]["T_TYPE"]
 235                 if lowest_tid == -1 or tid < lowest_tid:
 236                     if (t != world_db["Things"][0] and
 237                         (world_db["ThingTypes"][tid]["TT_TOOL"] != "food"
 238                          or (world_db["ThingTypes"][tid]["TT_TOOLPOWER"]
 239                              <= eat_cost))):
 240                         continue
 241                     id = iid
 242                     lowest_tid = tid
 243             world_db["Things"][id]["carried"] = True
 244             ty = world_db["Things"][id]["T_TYPE"]
 245             if (t != world_db["Things"][0]
 246                 and world_db["Things"][id]["T_PLAYERDROP"]
 247                 and world_db["ThingTypes"][ty]["TT_TOOL"] == "food"):
 248                 score = int(world_db["ThingTypes"][ty]["TT_TOOLPOWER"] / 32)
 249                 world_db["GOD_FAVOR"] += score
 250                 world_db["Things"][id]["T_PLAYERDROP"] = 0
 251             t["T_CARRIES"].append(id)
 252             if t == world_db["Things"][0]:
 253                 log("You PICK UP an object.")
 254     elif t == world_db["Things"][0]:
 255         log("Can't pick up object: No storage room to carry more.")
 256
 257
 258 def actor_drop(t):
 259     """Make t rop Thing from inventory to ground indexed by T_ARGUMENT."""
 260     if len(t["T_CARRIES"]):
 261         id = t["T_CARRIES"][t["T_ARGUMENT"]]
 262         t["T_CARRIES"].remove(id)
 263         world_db["Things"][id]["carried"] = False
 264         if t == world_db["Things"][0]:
 265             log("You DROP an object.")
 266             world_db["Things"][id]["T_PLAYERDROP"] = 1
 267
 268
 269 def actor_use(t):
 270     if len(t["T_CARRIES"]):
 271         id = t["T_CARRIES"][t["T_ARGUMENT"]]
 272         type = world_db["Things"][id]["T_TYPE"]
 273         if type == world_db["SLIPPERS"]:
 274             if t == world_db["Things"][0]:
 275                 log("You use the " + world_db["ThingTypes"][type]["TT_NAME"]
 276                     + ". It glows in wondrous colors, and emits a sound as if "
 277                     + "from a dying cat. The Island God laughs.\n")
 278             t["T_LIFEPOINTS"] = 1
 279             from server.config.misc import decrement_lifepoints_func
 280             decrement_lifepoints_func(t)
 281         elif (world_db["ThingTypes"][type]["TT_TOOL"] == "carpentry"):
 282             pos = t["T_POSY"] * world_db["MAP_LENGTH"] + t["T_POSX"]
 283             if (world_db["MAP"][pos] == ord("X")
 284                 or world_db["MAP"][pos] == ord("|")):
 285                 return
 286             for id in [id for id in world_db["Things"]
 287                        if not world_db["Things"][id] == t
 288                        if not world_db["Things"][id]["carried"]
 289                        if world_db["Things"][id]["T_POSY"] == t["T_POSY"]
 290                        if world_db["Things"][id]["T_POSX"] == t["T_POSX"]]:
 291                  return
 292             wood_id = None
 293             for id in t["T_CARRIES"]:
 294                 type_material = world_db["Things"][id]["T_TYPE"]
 295                 if (world_db["ThingTypes"][type_material]["TT_TOOL"]
 296                     == "wood"):
 297                     wood_id = id
 298                     break
 299             if wood_id != None:
 300                 t["T_CARRIES"].remove(wood_id)
 301                 del world_db["Things"][wood_id]
 302                 world_db["MAP"][pos] = ord("|")
 303                 log("With your " + world_db["ThingTypes"][type]["TT_NAME"]
 304                     + " you build a wooden barrier from your "
 305                     + world_db["ThingTypes"][type_material]["TT_NAME"] + ".")
 306         elif world_db["ThingTypes"][type]["TT_TOOL"] == "fertilizer":
 307             pos = t["T_POSY"] * world_db["MAP_LENGTH"] + t["T_POSX"]
 308             if world_db["MAP"][pos] == ord("."):
 309                 log("You create SOIL.")
 310                 world_db["MAP"][pos] = ord(":")
 311         elif world_db["ThingTypes"][type]["TT_TOOL"] == "food":
 312             t["T_CARRIES"].remove(id)
 313             del world_db["Things"][id]
 314             t["T_SATIATION"] += world_db["ThingTypes"][type]["TT_TOOLPOWER"]
 315             if t == world_db["Things"][0]:
 316                 log("You CONSUME this object.")
 317         elif t == world_db["Things"][0]:
 318             log("You try to use this object, but FAIL.")
 319
 320 def decrement_lifepoints(t):
 321     t["T_LIFEPOINTS"] -= 1
 322     live_type = t["T_TYPE"]
 323     _id = [_id for _id in world_db["Things"] if world_db["Things"][_id] == t][0]
 324     if 0 == t["T_LIFEPOINTS"]:
 325         for id in t["T_CARRIES"]:
 326             t["T_CARRIES"].remove(id)
 327             world_db["Things"][id]["T_POSY"] = t["T_POSY"]
 328             world_db["Things"][id]["T_POSX"] = t["T_POSX"]
 329             world_db["Things"][id]["carried"] = False
 330         t["T_TYPE"] = world_db["ThingTypes"][t["T_TYPE"]]["TT_CORPSE_ID"]
 331         if world_db["Things"][0] == t:
 332             t["fovmap"] = bytearray(b' ' * (world_db["MAP_LENGTH"] ** 2))
 333             log("You die.")
 334             log("See README on how to start over.")
 335         else:
 336             t["fovmap"] = False
 337             t["T_MEMMAP"] = False
 338             t["T_MEMDEPTHMAP"] = False
 339             t["T_MEMTHING"] = []
 340             n_species = len([id for id in world_db["Things"]
 341                              if world_db["Things"][id]["T_TYPE"] == live_type])
 342             if 0 == n_species:
 343                 from server.new_thing import new_Thing
 344                 if world_db["FAVOR_STAGE"] >= 3 and \
 345                     live_type == world_db["ANIMAL_0"]:
 346                     world_db["GOD_FAVOR"] += 3000
 347                     log("CONGRATULATIONS! The "
 348                         + world_db["ThingTypes"][live_type]["TT_NAME"]
 349                         + " species has died out. The Island God is pleased.")
 350                 else:
 351                     id = id_setter(-1, "Things")
 352                     world_db["Things"][id] = new_Thing(live_type,
 353                                                        world_db["altar"])
 354                     log("The "
 355                         + world_db["ThingTypes"][live_type]["TT_NAME"]
 356                         + " species has temporarily died out. "
 357                         + "One new-born is spawned at the altar.")
 358         return world_db["ThingTypes"][t["T_TYPE"]]["TT_LIFEPOINTS"]
 359     return 0
 360
 361 def actor_move(t):
 362
 363     def enter_altar():
 364         from server.new_thing import new_Thing
 365         if world_db["FAVOR_STAGE"] > 9000:
 366            log("You step on a soul-less slab of stone.")
 367            return
 368         log("YOU ENTER SACRED GROUND.")
 369         if world_db["FAVOR_STAGE"] == 0:
 370             world_db["FAVOR_STAGE"] = 1
 371             log("The Island God speaks to you: \"I don't trust you. You intrud"
 372                  + "e on the island's affairs. I think you're a nuisance at be"
 373                  + "st, and a danger to my children at worst. I will give you "
 374                  + "a chance to lighten my mood, however: For a while now, I'v"
 375                  + "e been trying to spread the plant "
 376                  + world_db["ThingTypes"][world_db["PLANT_0"]]["TT_NAME"]
 377                  + " (\""
 378                  + world_db["ThingTypes"][world_db["PLANT_0"]]["TT_SYMBOL"]
 379                  + "\"). I have not been very successful so far. Maybe you can"
 380                  + " make yourself useful there. I will count each further "
 381                  + world_db["ThingTypes"][world_db["PLANT_0"]]["TT_NAME"]
 382                  + " that grows to your favor.\"")
 383         elif world_db["FAVOR_STAGE"] == 1 and world_db["GOD_FAVOR"] < 100:
 384             log("The Island God will talk again when it favors you to >=100 "
 385                  +" points.")
 386         elif world_db["FAVOR_STAGE"] == 1 and world_db["GOD_FAVOR"] >= 100:
 387             world_db["FAVOR_STAGE"] = 2
 388             log("The Island God speaks to you: \"You could have done worse so "
 389                 + "far. Maybe you are not the worst to happen to this island "
 390                 + "since the metal birds threw the great lightning ball. Maybe"
 391                 + " you can help me spread another plant. It multiplies faster"
 392                 + ",and it is highly nutritious: "
 393                 + world_db["ThingTypes"][world_db["PLANT_1"]]["TT_NAME"]
 394                 + " (\""
 395                 + world_db["ThingTypes"][world_db["PLANT_1"]]["TT_SYMBOL"]
 396                 + "\"). It is new. I give you the only example. Be very carefu"
 397                 + "l with it! I also give you another tool that may be helpful"
 398                 + ".\"")
 399             id = id_setter(-1, "Things")
 400             world_db["Things"][id] = new_Thing(world_db["PLANT_1"],
 401                                                world_db["altar"])
 402             id = id_setter(-1, "Things")
 403             world_db["Things"][id] = new_Thing(world_db["TOOL_0"],
 404                                                world_db["altar"])
 405         elif world_db["FAVOR_STAGE"] == 2 and \
 406             0 == len([id for id in world_db["Things"]
 407                       if world_db["Things"][id]["T_TYPE"]
 408                          == world_db["PLANT_1"]]):
 409             log("The Island God speaks to you: \"I am greatly disappointed tha"
 410                 + "t you lost all "
 411                 + world_db["ThingTypes"][world_db["PLANT_1"]]["TT_NAME"]
 412                 + " this island had. Here is another one. It cost me great wor"
 413                + "k. Be more careful this time when planting it.\"")
 414             id = id_setter(-1, "Things")
 415             world_db["Things"][id] = new_Thing(world_db["PLANT_1"],
 416                                                world_db["altar"])
 417             world_db["GOD_FAVOR"] -= 250
 418         elif world_db["FAVOR_STAGE"] == 2 and world_db["GOD_FAVOR"] < 500:
 419             log("The Island God will talk again when it favors you to >=500 "
 420                  +" points.")
 421         elif world_db["FAVOR_STAGE"] == 2 and world_db["GOD_FAVOR"] >= 500:
 422             world_db["FAVOR_STAGE"] = 3
 423             log("The Island God speaks to you: \"The "
 424                 + world_db["ThingTypes"][world_db["ANIMAL_0"]]["TT_NAME"]
 425                 + " has lately become a pest. These creatures do not please me"
 426                 + " as much as they used to do. Exterminate them all. I will c"
 427                 + "ount each kill to your favor. To help you with the hunting,"
 428                 + " I grant you the empathy and knowledge to read animals.\"")
 429             log("You will now see animals' health bars, and activities (\"m\": "
 430                 + "moving (maybe for an attack), \"u\": eating, \"p\": picking"
 431                 + " something up; no letter: waiting).")
 432             world_db["EMPATHY"] = 1
 433         elif world_db["FAVOR_STAGE"] == 3 and world_db["GOD_FAVOR"] < 9001:
 434             log("The Island God will talk again when it favors you to >9000 "
 435                  +" points.")
 436         elif world_db["GOD_FAVOR"] > 9000:
 437             world_db["FAVOR_STAGE"] = 9001
 438             log("The Island God speaks to you: \"You have proven yourself wort"
 439                  + "hy of my respect. You were a good citizen to the island, a"
 440                  + "nd sometimes a better steward to its inhabitants than me. "
 441                  + "The island shall miss you when you leave. But you have ear"
 442                  + "ned the right to do so. Take this "
 443                  + world_db["ThingTypes"][world_db["SLIPPERS"]]["TT_NAME"]
 444                  + " and USE it when you please. It will take you to where you"
 445                  + " came from. (But do feel free to stay here as long as you "
 446                  + "like.)\"")
 447             id = id_setter(-1, "Things")
 448             world_db["Things"][id] = new_Thing(world_db["SLIPPERS"],
 449                                                world_db["altar"])
 450
 451     from server.config.world_data import symbols_passable
 452     from server.build_fov_map import build_fov_map
 453     from server.config.misc import decrement_lifepoints_func
 454     from server.new_thing import new_Thing
 455     passable = False
 456     move_result = mv_yx_in_dir_legal(chr(t["T_ARGUMENT"]),
 457                                      t["T_POSY"], t["T_POSX"])
 458     if 1 == move_result[0]:
 459         pos = (move_result[1] * world_db["MAP_LENGTH"]) + move_result[2]
 460         hitted = [id for id in world_db["Things"]
 461                   if world_db["Things"][id] != t
 462                   if world_db["Things"][id]["T_LIFEPOINTS"]
 463                   if world_db["Things"][id]["T_POSY"] == move_result[1]
 464                   if world_db["Things"][id]["T_POSX"] == move_result[2]]
 465         if len(hitted):
 466             hit_id = hitted[0]
 467             hitted_type = world_db["Things"][hit_id]["T_TYPE"]
 468             if t == world_db["Things"][0]:
 469                 hitted_name = world_db["ThingTypes"][hitted_type]["TT_NAME"]
 470                 log("You WOUND " + hitted_name + ".")
 471                 world_db["GOD_FAVOR"] -= 1
 472             elif 0 == hit_id:
 473                 hitter_name = world_db["ThingTypes"][t["T_TYPE"]]["TT_NAME"]
 474                 log(hitter_name +" WOUNDS you.")
 475             test = decrement_lifepoints_func(world_db["Things"][hit_id])
 476             if test and world_db["FAVOR_STAGE"] >= 3 and \
 477                hitted_type == world_db["ANIMAL_0"]:
 478                 world_db["GOD_FAVOR"] += 125
 479             elif test and t == world_db["Things"][0]:
 480                 world_db["GOD_FAVOR"] -= 2 * test
 481             return
 482         if (ord("X") == world_db["MAP"][pos]
 483             or ord("|") == world_db["MAP"][pos]):
 484             carries_axe = False
 485             for id in t["T_CARRIES"]:
 486                 type = world_db["Things"][id]["T_TYPE"]
 487                 if world_db["ThingTypes"][type]["TT_TOOL"] == "axe":
 488                     carries_axe = True
 489                     break
 490             if carries_axe:
 491                 axe_name = world_db["ThingTypes"][type]["TT_NAME"]
 492                 if t == world_db["Things"][0]:
 493                     log("With your " + axe_name + ", you chop!")
 494                     if ord("X") == world_db["MAP"][pos]:
 495                         world_db["GOD_FAVOR"] -= 1
 496                 chop_power = world_db["ThingTypes"][type]["TT_TOOLPOWER"]
 497
 498                 case_X = world_db["MAP"][pos] == ord("X")
 499                 if (chop_power > 0
 500                     and ((case_X and
 501                           0 == int(rand.next() / chop_power))
 502                     or (not case_X and
 503                              0 == int(rand.next() / (3 * chop_power))))):
 504                     if t == world_db["Things"][0]:
 505                         log("You chop it DOWN.")
 506                         if ord("X") == world_db["MAP"][pos]:
 507                             world_db["GOD_FAVOR"] -= 10
 508                     world_db["MAP"][pos] = ord(".")
 509                     i = 3 if case_X else 1
 510                     for i in range(i):
 511                         id = id_setter(-1, "Things")
 512                         world_db["Things"][id] = \
 513                           new_Thing(world_db["LUMBER"],
 514                                     (move_result[1], move_result[2]))
 515                     build_fov_map(t)
 516                 return
 517         passable = chr(world_db["MAP"][pos]) in symbols_passable
 518     dir = [dir for dir in directions_db
 519            if directions_db[dir] == chr(t["T_ARGUMENT"])][0]
 520     if passable:
 521         t["T_POSY"] = move_result[1]
 522         t["T_POSX"] = move_result[2]
 523         for id in t["T_CARRIES"]:
 524             world_db["Things"][id]["T_POSY"] = move_result[1]
 525             world_db["Things"][id]["T_POSX"] = move_result[2]
 526         build_fov_map(t)
 527         if t == world_db["Things"][0]:
 528             log("You MOVE " + dir + ".")
 529             if (move_result[1] == world_db["altar"][0] and
 530                 move_result[2] == world_db["altar"][1]):
 531                 enter_altar()
 532
 533 def command_ttid(id_string):
 534     id = id_setter(id_string, "ThingTypes", command_ttid)
 535     if None != id:
 536         world_db["ThingTypes"][id] = {
 537             "TT_NAME": "(none)",
 538             "TT_TOOLPOWER": 0,
 539             "TT_LIFEPOINTS": 0,
 540             "TT_PROLIFERATE": 0,
 541             "TT_START_NUMBER": 0,
 542             "TT_STORAGE": 0,
 543             "TT_SYMBOL": "?",
 544             "TT_CORPSE_ID": id,
 545             "TT_TOOL": ""
 546         }
 547
 548 def command_worldactive(worldactive_string):
 549     val = integer_test(worldactive_string, 0, 1)
 550     if None != val:
 551         if 0 != world_db["WORLD_ACTIVE"]:
 552             if 0 == val:
 553                 set_world_inactive()
 554             else:
 555                 print("World already active.")
 556         elif 0 == world_db["WORLD_ACTIVE"]:
 557             wait_exists = False
 558             for ThingAction in world_db["ThingActions"]:
 559                 if "wait" == world_db["ThingActions"][ThingAction]["TA_NAME"]:
 560                     wait_exists = True
 561                     break
 562             player_exists = False
 563             for Thing in world_db["Things"]:
 564                 if 0 == Thing:
 565                     player_exists = True
 566                     break
 567             altar_found = False
 568             if world_db["MAP"]:
 569                 pos = world_db["MAP"].find(b'_')
 570                 if pos > 0:
 571                     y = int(pos / world_db["MAP_LENGTH"])
 572                     x = pos % world_db["MAP_LENGTH"]
 573                     world_db["altar"] = (y, x)
 574                     altar_found = True
 575             specials_set = True
 576             for name in world_db["specials"]:
 577                 if world_db[name] not in world_db["ThingTypes"]:
 578                     specials_set = False
 579             if altar_found and wait_exists and player_exists and \
 580                     world_db["MAP"] and specials_set:
 581                 for id in world_db["Things"]:
 582                     if world_db["Things"][id]["T_LIFEPOINTS"]:
 583                         build_fov_map(world_db["Things"][id])
 584                         if 0 == id:
 585                             update_map_memory(world_db["Things"][id], False)
 586                 if not world_db["Things"][0]["T_LIFEPOINTS"]:
 587                     empty_fovmap = bytearray(b" " * world_db["MAP_LENGTH"] ** 2)
 588                     world_db["Things"][0]["fovmap"] = empty_fovmap
 589                 world_db["WORLD_ACTIVE"] = 1
 590             else:
 591                 print("Ignoring: Not all conditions for world activation met.")
 592
 593 def play_move(str_arg):
 594     if action_exists("move"):
 595         from server.config.world_data import directions_db, symbols_passable
 596         t = world_db["Things"][0]
 597         if not str_arg in directions_db:
 598             print("Illegal move direction string.")
 599             return
 600         dir = ord(directions_db[str_arg])
 601         from server.utils import mv_yx_in_dir_legal
 602         move_result = mv_yx_in_dir_legal(chr(dir), t["T_POSY"], t["T_POSX"])
 603         if 1 == move_result[0]:
 604             pos = (move_result[1] * world_db["MAP_LENGTH"]) + move_result[2]
 605             if ord("~") == world_db["MAP"][pos]:
 606                 log("You can't SWIM.")
 607                 return
 608             if (ord("X") == world_db["MAP"][pos]
 609                 or ord("|") == world_db["MAP"][pos]):
 610                 carries_axe = False
 611                 for id in t["T_CARRIES"]:
 612                     type = world_db["Things"][id]["T_TYPE"]
 613                     if world_db["ThingTypes"][type]["TT_TOOL"] == "axe":
 614                         world_db["Things"][0]["T_ARGUMENT"] = dir
 615                         set_command("move")
 616                         return
 617             if chr(world_db["MAP"][pos]) in symbols_passable:
 618                 world_db["Things"][0]["T_ARGUMENT"] = dir
 619                 set_command("move")
 620                 return
 621         log("You CAN'T move there.")
 622
 623 def play_use(str_arg):
 624     if action_exists("use"):
 625         t = world_db["Things"][0]
 626         if 0 == len(t["T_CARRIES"]):
 627             log("You have NOTHING to use in your inventory.")
 628         else:
 629             val = integer_test(str_arg, 0, 255)
 630             if None != val and val < len(t["T_CARRIES"]):
 631                 id = t["T_CARRIES"][val]
 632                 type = world_db["Things"][id]["T_TYPE"]
 633                 if (world_db["ThingTypes"][type]["TT_TOOL"] == "axe"
 634                       and t == world_db["Things"][0]):
 635                     log("To use this item for chopping, move towards a tree "
 636                          + "while carrying it in your inventory.")
 637                     return
 638                 elif (world_db["ThingTypes"][type]["TT_TOOL"] == "carpentry"):
 639                     pos = t["T_POSY"] * world_db["MAP_LENGTH"] + t["T_POSX"]
 640                     if (world_db["MAP"][pos] == ord("X")
 641                         or world_db["MAP"][pos] == ord("|")):
 642                         log("Can't build when standing on barrier.")
 643                         return
 644                     for id in [id for id in world_db["Things"]
 645                                if not world_db["Things"][id] == t
 646                                if not world_db["Things"][id]["carried"]
 647                                if world_db["Things"][id]["T_POSY"] == t["T_POSY"]
 648                                if world_db["Things"][id]["T_POSX"] == t["T_POSX"]]:
 649                          log("Can't build when standing objects.")
 650                          return
 651                     wood_id = None
 652                     for id in t["T_CARRIES"]:
 653                         type_material = world_db["Things"][id]["T_TYPE"]
 654                         if (world_db["ThingTypes"][type_material]["TT_TOOL"]
 655                             == "wood"):
 656                             wood_id = id
 657                             break
 658                     if wood_id == None:
 659                         log("You can't use a "
 660                             + world_db["ThingTypes"][type]["TT_NAME"]
 661                             + " without some wood in your inventory.")
 662                         return
 663                 elif world_db["ThingTypes"][type]["TT_TOOL"] == "fertilizer":
 664                     pos = t["T_POSY"] * world_db["MAP_LENGTH"] + t["T_POSX"]
 665                     if not world_db["MAP"][pos] == ord("."):
 666                         log("Can only make soil out of NON-SOIL earth.")
 667                         return
 668                 elif type != world_db["SLIPPERS"] and not \
 669                         world_db["ThingTypes"][type]["TT_TOOL"] == "food":
 670                     log("You CAN'T consume this thing.")
 671                     return
 672                 world_db["Things"][0]["T_ARGUMENT"] = val
 673                 set_command("use")
 674             else:
 675                 print("Illegal inventory index.")
 676
 677 def specialtypesetter(name):
 678     def helper(str_int):
 679         val = integer_test(str_int, 0)
 680         if None != val:
 681             world_db[name] = val
 682             if world_db["WORLD_ACTIVE"] \
 683                and world_db[name] not in world_db["ThingTypes"]:
 684                 world_db["WORLD_ACTIVE"] = 0
 685                 print(name + " fits no known ThingType, deactivating world.")
 686     return helper
 687
 688 def write_metamap_A():
 689     from server.worldstate_write_helpers import write_map
 690     ord_v = ord("v")
 691     length = world_db["MAP_LENGTH"]
 692     metamapA = bytearray(b'0' * (length ** 2))
 693     for id in [id for id in world_db["Things"]
 694                   if not world_db["Things"][id]["carried"]
 695                   if world_db["Things"][id]["T_LIFEPOINTS"]
 696                   if world_db["Things"][0]["fovmap"][
 697                        world_db["Things"][id]["T_POSY"] * length
 698                        + world_db["Things"][id]["T_POSX"]] == ord_v]:
 699         pos = (world_db["Things"][id]["T_POSY"] * length
 700               + world_db["Things"][id]["T_POSX"])
 701         if id == 0 or world_db["EMPATHY"]:
 702             type = world_db["Things"][id]["T_TYPE"]
 703             max_hp = world_db["ThingTypes"][type]["TT_LIFEPOINTS"]
 704             third_of_hp = max_hp / 3
 705             hp = world_db["Things"][id]["T_LIFEPOINTS"]
 706             add = 0
 707             if hp > 2 * third_of_hp:
 708                  add = 2
 709             elif hp > third_of_hp:
 710                 add = 1
 711             metamapA[pos] = ord('a') + add
 712         else:
 713             metamapA[pos] = ord('X')
 714     for mt in world_db["Things"][0]["T_MEMTHING"]:
 715         pos = mt[1] * length + mt[2]
 716         if metamapA[pos] < ord('2'):
 717             metamapA[pos] += 1
 718     return write_map(metamapA, length)
 719
 720 def write_metamap_B():
 721     from server.worldstate_write_helpers import write_map
 722     ord_v = ord("v")
 723     length = world_db["MAP_LENGTH"]
 724     metamapB = bytearray(b' ' * (length ** 2))
 725     for id in [id for id in world_db["Things"]
 726                   if not world_db["Things"][id]["carried"]
 727                   if world_db["Things"][id]["T_LIFEPOINTS"]
 728                   if world_db["Things"][0]["fovmap"][
 729                        world_db["Things"][id]["T_POSY"] * length
 730                        + world_db["Things"][id]["T_POSX"]] == ord_v]:
 731         pos = (world_db["Things"][id]["T_POSY"] * length
 732               + world_db["Things"][id]["T_POSX"])
 733         if id == 0 or world_db["EMPATHY"]:
 734             action = world_db["Things"][id]["T_COMMAND"]
 735             if 0 != action:
 736                 name = world_db["ThingActions"][action]["TA_NAME"]
 737             else:
 738                 name = " "
 739             metamapB[pos] = ord(name[0])
 740     return write_map(metamapB, length)
 741
 742 def calc_effort(thing_action, thing):
 743     from math import sqrt
 744     effort = thing_action["TA_EFFORT"]
 745     if thing_action["TA_NAME"] == "move":
 746         typ = thing["T_TYPE"]
 747         max_hp = (world_db["ThingTypes"][typ]["TT_LIFEPOINTS"])
 748         effort = int(effort / sqrt(max_hp))
 749         effort = 1 if effort == 0 else effort
 750     return effort
 751
 752 def play_pickup():
 753     """Try "pickup" as player's T_COMMAND"."""
 754     if action_exists("pickup"):
 755         t = world_db["Things"][0]
 756         ids = [id for id in world_db["Things"] if id
 757                if not world_db["Things"][id]["carried"]
 758                if world_db["Things"][id]["T_POSY"] == t["T_POSY"]
 759                if world_db["Things"][id]["T_POSX"] == t["T_POSX"]]
 760         if not len(ids):
 761             log("NOTHING to pick up.")
 762         elif len(t["T_CARRIES"]) >= world_db["ThingTypes"][t["T_TYPE"]] \
 763                 ["TT_STORAGE"]:
 764             log("CAN'T pick up: No storage room to carry anything more.")
 765         else:
 766             set_command("pickup")
 767
 768 strong_write(io_db["file_out"], "PLUGIN PleaseTheIslandGod\n")
 769
 770 if not "GOD_FAVOR" in world_db:
 771     world_db["GOD_FAVOR"] = 0
 772 if not "FAVOR_STAGE" in world_db:
 773     world_db["FAVOR_STAGE"] = 0
 774 if not "SLIPPERS" in world_db:
 775     world_db["SLIPPERS"] = 0
 776 if not "PLANT_0" in world_db:
 777     world_db["PLANT_0"] = 0
 778 if not "PLANT_1" in world_db:
 779     world_db["PLANT_1"] = 0
 780 if not "ANIMAL_0" in world_db:
 781     world_db["ANIMAL_0"] = 0
 782 if not "TOOL_0" in world_db:
 783     world_db["TOOL_0"] = 0
 784 if not "TOOL_1" in world_db:
 785     world_db["TOOL_1"] = 0
 786 if not "LUMBER" in world_db:
 787     world_db["LUMBER"] = 0
 788 if not "EMPATHY" in world_db:
 789     world_db["EMPATHY"] = 0
 790 world_db["terrain_names"][":"] = "SOIL"
 791 world_db["terrain_names"]["|"] = "WALL"
 792 world_db["terrain_names"]["_"] = "ALTAR"
 793 world_db["specials"] = ["SLIPPERS", "PLANT_0", "PLANT_1", "TOOL_0", "TOOL_1",
 794     "LUMBER", "ANIMAL_0"]
 795 io_db["worldstate_write_order"] += [["GOD_FAVOR", "world_int"]]
 796 io_db["worldstate_write_order"] += [[write_metamap_A, "func"]]
 797 io_db["worldstate_write_order"] += [[write_metamap_B, "func"]]
 798
 799 import server.config.world_data
 800 server.config.world_data.symbols_passable += ":_"
 801
 802 from server.config.world_data import thing_defaults
 803 thing_defaults["T_PLAYERDROP"] = 0
 804
 805 import server.config.actions
 806 server.config.actions.action_db["actor_move"] = actor_move
 807 server.config.actions.action_db["actor_pickup"] = actor_pickup
 808 server.config.actions.action_db["actor_drop"] = actor_drop
 809 server.config.actions.action_db["actor_use"] = actor_use
 810 server.config.actions.ai_func = ai
 811
 812 from server.config.commands import commands_db
 813 commands_db["TT_ID"] = (1, False, command_ttid)
 814 commands_db["GOD_FAVOR"] = (1, False, setter(None, "GOD_FAVOR", -32768, 32767))
 815 commands_db["TT_STORAGE"] = (1, False, setter("ThingType", "TT_STORAGE", 0, 255))
 816 commands_db["T_PLAYERDROP"] = (1, False, setter("Thing", "T_PLAYERDROP", 0, 1))
 817 commands_db["WORLD_ACTIVE"] = (1, False, command_worldactive)
 818 commands_db["FAVOR_STAGE"] = (1, False, setter(None, "FAVOR_STAGE", 0, 1))
 819 commands_db["SLIPPERS"] = (1, False, specialtypesetter("SLIPPERS"))
 820 commands_db["TOOL_0"] = (1, False, specialtypesetter("TOOL_0"))
 821 commands_db["TOOL_1"] = (1, False, specialtypesetter("TOOL_1"))
 822 commands_db["ANIMAL_0"] = (1, False, specialtypesetter("ANIMAL_0"))
 823 commands_db["PLANT_0"] = (1, False, specialtypesetter("PLANT_0"))
 824 commands_db["PLANT_1"] = (1, False, specialtypesetter("PLANT_1"))
 825 commands_db["LUMBER"] = (1, False, specialtypesetter("LUMBER"))
 826 commands_db["EMPATHY"] = (1, False, setter(None, "EMPATHY", 0, 1))
 827 commands_db["use"] = (1, False, play_use)
 828 commands_db["move"] = (1, False, play_move)
 829 commands_db["pickup"] = (0, False, play_pickup)
 830
 831 import server.config.misc
 832 server.config.misc.make_map_func = make_map
 833 server.config.misc.thingproliferation_func = thingproliferation
 834 server.config.misc.make_world = make_world
 835 server.config.misc.decrement_lifepoints_func = decrement_lifepoints
 836 server.config.misc.calc_effort_func = calc_effort