init.lua

   1 pedology = {}
   2 pedology.wetnames = {[0] = "dry",  "wet", "watery", "sludgy", "muddy", "slurry" }
   3
   4 dofile(minetest.get_modpath("pedology").."/settings.lua")
   5
   6 if pedology.USE_DRIPS == true then
   7         dofile(minetest.get_modpath("pedology").."/drip.lua")
   8 end
   9
  10 --[[ ABMs ]]
  11
  12 function pedology.ooze(pos, node, active_object_count, active_object_wider)
  13         local wet = minetest.get_item_group(node.name, "wet")
  14         if wet == 0 then return end
  15
  16         --[[ This table contain the nodes which are either neighbors
  17         of node or which touch the node at an edge or corner and which are
  18         not on a heigher y-level than
  19         of node
  20         ]]
  21         local neighbors = {
  22                 {       -- neighbor directly below
  23                         {x=pos.x, y=pos.y-1, z=pos.z},
  24                         minwet=1
  25                 },
  26
  27                 {       -- touching the lower sides
  28                         {x=pos.x, y=pos.y-1, z=pos.z-1},
  29                         {x=pos.x, y=pos.y-1, z=pos.z+1},
  30                         {x=pos.x-1, y=pos.y-1, z=pos.z},
  31                         {x=pos.x+1, y=pos.y-1, z=pos.z},
  32                         minwet=1
  33                 },
  34                 {       -- touching the lower corners
  35                         {x=pos.x-1, y=pos.y-1, z=pos.z-1},
  36                         {x=pos.x-1, y=pos.y-1, z=pos.z+1},
  37                         {x=pos.x-1, y=pos.y-1, z=pos.z-1},
  38                         {x=pos.x+1, y=pos.y-1, z=pos.z+1},
  39                         {x=pos.x+1, y=pos.y-1, z=pos.z+1},
  40                         minwet=1
  41                 },
  42                 {       -- sides on the same level
  43                         {x=pos.x-1, y=pos.y, z=pos.z}, -- left
  44                         {x=pos.x+1, y=pos.y, z=pos.z}, -- right
  45                         {x=pos.x, y=pos.y, z=pos.z-1}, -- before
  46                         {x=pos.x, y=pos.y, z=pos.z+1}, -- behind
  47                         minwet=2
  48                 },
  49                 {       -- touching at the side on the same level
  50                         {x=pos.x-1, y=pos.y, z=pos.z-1},
  51                         {x=pos.x-1, y=pos.y, z=pos.z+1},
  52                         {x=pos.x+1, y=pos.y, z=pos.z-1},
  53                         {x=pos.x+1, y=pos.y, z=pos.z+1},
  54                         minwet=2
  55                 },
  56         }
  57
  58         for i=1,#neighbors do
  59                 for j=1,#neighbors[i] do
  60                         local node = minetest.get_node(neighbors[i][j])
  61                         local name = node.name
  62                         local destwet = minetest.get_item_group(name, "wet")
  63                         if(
  64                                 (destwet < wet) and
  65                                 (minetest.get_item_group(name, "sucky") >= 1)) and
  66                                 (neighbors[i].minwet <= (wet - destwet)) then
  67                                         pedology.wetten(neighbors[i][j])
  68                                         pedology.dry(pos)
  69                                         return
  70                         end
  71                 end
  72         end
  73 end
  74
  75 --[[ This is an ABM action which wettens the node iff many water nodes
  76 are neighbors of it or touching it at an edge or corner.]]
  77 function pedology.suck(pos, node, active_object_count, active_object_wider)
  78         local wet = minetest.get_item_group(node.name, "wet")
  79
  80         local score = 0
  81
  82         -- These three tables contain the positions of all nodes around node
  83         local neighbors= {
  84                 { -- sides
  85                 {x=pos.x, y=pos.y-1, z=pos.z}, -- below
  86                 {x=pos.x-1, y=pos.y, z=pos.z}, -- left
  87                 {x=pos.x+1, y=pos.y, z=pos.z}, -- right
  88                 {x=pos.x, y=pos.y+1, z=pos.z}, -- above
  89                 {x=pos.x, y=pos.y, z=pos.z-1}, -- before
  90                 {x=pos.x, y=pos.y, z=pos.z+1}, -- behind
  91                 rating = 1
  92                 },
  93                 { -- edges
  94                 {x=pos.x, y=pos.y-1, z=pos.z-1},
  95                 {x=pos.x, y=pos.y-1, z=pos.z+1},
  96                 {x=pos.x, y=pos.y+1, z=pos.z-1},
  97                 {x=pos.x, y=pos.y+1, z=pos.z+1},
  98                 {x=pos.x-1, y=pos.y, z=pos.z-1},
  99                 {x=pos.x-1, y=pos.y, z=pos.z+1},
 100                 {x=pos.x+1, y=pos.y, z=pos.z-1},
 101                 {x=pos.x+1, y=pos.y, z=pos.z+1},
 102                 {x=pos.x-1, y=pos.y-1, z=pos.z},
 103                 {x=pos.x-1, y=pos.y+1, z=pos.z},
 104                 {x=pos.x+1, y=pos.y-1, z=pos.z},
 105                 {x=pos.x+1, y=pos.y+1, z=pos.z},
 106                 rating=0.5
 107                 },
 108                 { -- corners
 109                 {x=pos.x-1, y=pos.y-1, z=pos.z-1},
 110                 {x=pos.x-1, y=pos.y-1, z=pos.z+1},
 111                 {x=pos.x-1, y=pos.y+1, z=pos.z-1},
 112                 {x=pos.x-1, y=pos.y+1, z=pos.z+1},
 113                 {x=pos.x-1, y=pos.y-1, z=pos.z-1},
 114                 {x=pos.x+1, y=pos.y+1, z=pos.z+1},
 115                 {x=pos.x+1, y=pos.y+1, z=pos.z-1},
 116                 {x=pos.x+1, y=pos.y-1, z=pos.z+1},
 117                 {x=pos.x+1, y=pos.y-1, z=pos.z+1},
 118                 rating=0.25
 119                 }
 120         }
 121
 122         for i=1,#neighbors do
 123                 for j=1,#neighbors[i] do
 124                         local neighbor = minetest.get_node(neighbors[i][j])
 125                         local name = neighbor.name
 126                         local water = minetest.get_item_group(name, "water")
 127                         if(water >= 1) then
 128                                 score = score + neighbors[i].rating
 129                         end
 130                 end
 131         end
 132
 133         local wetten = false
 134         if(wet == 0 and score >= 1) then
 135                 wetten=true
 136         elseif(wet == 1 and score >= 2) then
 137                 wetten= true
 138         elseif(wet == 2 and score >= 3) then
 139                 wetten=true
 140         elseif(wet == 3 and score >= 5) then
 141                 wetten=true
 142         elseif(wet == 4 and score >= 8) then
 143                 wetten=true
 144         elseif(wet == 5 and score >= 11) then
 145                 -- erosion: turn node into water
 146                 -- TODO: Also drop the drops
 147                 minetest.set_node(pos, {name="pedology:water_fresh_source"})
 148                 return
 149         end
 150
 151         if(wetten==true) then
 152                 pedology.wetten(pos)
 153         end
 154 end
 155
 156 --[[ ABM action which dries out a node when it is in direct sunlight ]]
 157 function pedology.sun_dry(pos, node, active_object_count, active_object_wider)
 158         if(minetest.get_item_group(node.name, "wet") < 6) then
 159                 -- don’t dry off if there is water nearby
 160                 if(not minetest.find_node_near(pos, 1, {"group:water"})) then
 161                         local light = minetest.get_node_light(pos, minetest.get_timeofday())
 162                         if light >= pedology.DRY_LIGHT then
 163                                 pedology.dry(pos)
 164                         end
 165                 end
 166         end
 167 end
 168
 169
 170
 171 --[[ air and vacuum]]
 172 minetest.register_node("pedology:vacuum", {
 173         description = "vacuum",
 174         inventory_image="unknown_node.png",
 175         wield_image="unknown_node.png",
 176         paramtype="light",
 177         drawtype="airlike",
 178         damage_per_second=8,
 179         drowning=8,
 180         sunlight_propagates=true,
 181         walkable=false,
 182         pointable=false,
 183         diggable=false,
 184         buildable_to=true,
 185         groups={not_in_creative_inventory=1}
 186 })
 187
 188 minetest.register_node("pedology:thinair2", {
 189         description = "very thin air",
 190         inventory_image="unknown_node.png",
 191         wield_image="unknown_node.png",
 192         paramtype="light",
 193         drawtype="airlike",
 194         sunlight_propagates=true,
 195         walkable=false,
 196         pointable=false,
 197         diggable=false,
 198         buildable_to=true,
 199         groups={not_in_creative_inventory=1}
 200 })
 201
 202 minetest.register_node("pedology:thinair1", {
 203         description = "thin air",
 204         inventory_image="unknown_node.png",
 205         wield_image="unknown_node.png",
 206         paramtype="light",
 207         drawtype="airlike",
 208         sunlight_propagates=true,
 209         walkable=false,
 210         pointable=false,
 211         diggable=false,
 212         buildable_to=true,
 213         groups={not_in_creative_inventory=1}
 214 })
 215
 216 --[[ liquids ]]
 217
 218 function pedology.register_liquid(basename, description, alpha, viscosity, drowning, damage_per_second, post_effect_color, additional_groups)
 219         flowing_groups = {wet=6,not_in_creative_inventory=1}
 220         source_groups = {wet=6}
 221         for k,v in pairs(additional_groups) do
 222                 flowing_groups[k] = v
 223                 source_groups[k] = v
 224         end
 225
 226         local tile = "pedology_"..basename..".png"
 227         local nodedef_source = {
 228         description = description.." source",
 229         inventory_image = minetest.inventorycube(tile),
 230         tiles = {tile},
 231         alpha = alpha,
 232         paramtype = "light",
 233         walkable = false,
 234         pointable = false,
 235         diggable = false,
 236         buildable_to = true,
 237         drop = "",
 238         liquid_alternative_flowing = "pedology:"..basename.."_flowing",
 239         liquid_alternative_source = "pedology:"..basename.."_source",
 240         liquid_viscosity = viscosity,
 241         post_effect_color = post_effect_color,
 242         drowning = drowning,
 243         damage_per_second = damage_per_second,
 244
 245         drawtype = "liquid",
 246         liquidtype = "source",
 247         groups = source_groups,
 248         }
 249         minetest.register_node("pedology:"..basename.."_source", nodedef_source)
 250
 251         local nodedef_flowing = {
 252         description = description.." flowing",
 253         inventory_image = minetest.inventorycube(tile),
 254         tiles = {tile},
 255         alpha = alpha,
 256         paramtype = "light",
 257         walkable = false,
 258         pointable = false,
 259         diggable = false,
 260         buildable_to = true,
 261         drop = "",
 262         liquid_alternative_flowing = "pedology:"..basename.."_flowing",
 263         liquid_alternative_source = "pedology:"..basename.."_source",
 264         liquid_viscosity = viscosity,
 265         post_effect_color = post_effect_color,
 266         drowning = drowning,
 267         damage_per_second = damage_per_second,
 268
 269         drawtype = "flowingliquid",
 270         liquidtype = "flowing",
 271         groups = flowing_groups,
 272         paramtype2 = "flowingliquid",
 273         }
 274
 275         minetest.register_node("pedology:"..basename.."_flowing", nodedef_flowing)
 276
 277 end
 278
 279 pedology.register_liquid("water_fresh", "freshwater", 100, 1,   2, 0, {a=60, r=100, b=200, g=100}, {water=1})
 280 --pedology.register_liquid("water_salt", "salt water",  180, 2,   4, 0, {a=80, r=120, b=200, g=120}, {water=1})
 281 pedology.register_liquid("water_ponding", "ponding water", 234, 4, 3, 0, {a=128, r=85, g=85, g=60}, {water=1})
 282
 283 --[[
 284 TODO: Decide wheather to keep or to remove lava
 285 pedology.register_liquid("lava_1", "very hot lava",     230, 2, 10, 8, {a=230, r=255, g=0, b=0}, {hot=6000, lava=1})
 286 pedology.register_liquid("lava_2", "hot lava",          230, 3,  9, 7, {a=230, r=255, g=0, b=0}, {hot=5000, lava=1})
 287 pedology.register_liquid("lava_3", "lava",              230, 4,  8, 6, {a=230, r=255, g=0, b=0}, {hot=4000, lava=1})
 288 pedology.register_liquid("lava_4", "cold lava",         230, 5,  7, 6, {a=230, r=255, g=0, b=0}, {hot=3000, lava=1})
 289 ]]
 290
 291 --[[ register a sucky/oozing node to this mod ]]
 292 function pedology.register_sucky(basename, description, lumpdescription, wetness, oozing, sucky, melting_point, drop, sounds, additional_groups)
 293         local wetname = basename.."_"..tostring(wetness)
 294         local noncreative
 295         local groups = { sucky=sucky, oozing=oozing, wet=wetness, melting_point=melting_point, not_in_creative_inventory = noncreative, [basename]=1 }
 296         if additional_groups ~= nil then
 297                 for k,v in pairs(additional_groups) do
 298                         groups[k] = v
 299                 end
 300         end
 301
 302         local name = "pedology:"..wetname
 303         local itemname
 304
 305         -- If the node is not dry, do not add it into the creative inventory
 306         if wetness == 0 then noncreative = 0 else noncreative = 1 end
 307         local nodedef = {
 308                 description = description,
 309                 inventory_image = minetest.inventorycube("pedology_"..wetname..".png"),
 310                 tiles = {"pedology_"..wetname..".png"},
 311                 paramtype = "light",
 312                 drop = drop,
 313                 groups = groups,
 314                 sounds = sounds,
 315         }
 316         minetest.register_node(name, nodedef)
 317
 318 end
 319
 320
 321 --[[
 322         This function registers a couple of sucky/oozing nodes, including all their “wet” variants.
 323         It also registers an ABM.
 324
 325         parameters:
 326         basename: The internal name piece from which the concrete basenames will be build. The wetness level will be appended.
 327         basedescription. The description of the nodes. A proper wetness adjective (“dry”, “wet”, …) will be prepended.
 328         lumpdescription. The description component of the “lump” of the node. If nil, no lump is used
 329         maxwet: The maximum wetness level of this node group (minimum: 0, maximum: 5)
 330         maxlump: The maximum wetness level of lumps of this node group (minimum: 0, recommended maximum: 3)
 331         oozeinterval: The interval in seconds in which it the node may ooze. the Minimal value: 1
 332         oozechance: The inverted chance (1/x) to ooze
 333         melttable: Table of melting_point values for each wetness level
 334         dropcount: How many lumps nodes of this group drop. If 0, the nodes simply drop themselves (not recommended!)
 335         sounds: Sound specification for all nodes
 336         additional_groups: table of additional groups of all the nodes. May be empty or nil (meaning no additional groups).
 337 ]]
 338 function pedology.register_sucky_group(basename, basedescription, lumpbasedescription, maxwet, maxlump, oozeinterval, oozechance, melttable, dropcount, sounds, additional_groups)
 339         local oozing, dripinterval
 340         local m -- melting_point
 341         local lumpdescription
 342
 343         for w=0, maxwet do
 344                 if(w==0) then oozing=0 else oozing=1 end
 345                 if (w==maxwet and w ~= 5) then sucky=0 else sucky=1 end
 346                 if melttable == nil then m = 0 else m = melttable[w] end
 347                 if( lumpbasedescription ~= nil) then
 348                         lumpdescription = (pedology.wetnames[w]).." "..lumpbasedescription
 349                 else
 350                         lumpdescription = nil
 351                 end
 352
 353                 local itemname, drop, itemdef
 354                 if( maxlump == -1) then
 355                         drop = nil
 356                 elseif( w > maxlump) then
 357                         itemname = "pedology:"..basename.."_lump_"..tostring(maxlump)
 358                         drop = itemname .. " " .. tostring(dropcount)
 359                 else
 360                         itemname = "pedology:"..basename.."_lump_"..tostring(w)
 361                         drop = itemname .. " " .. tostring(dropcount)
 362                         itemdef = {
 363                                 description = lumpdescription,
 364                                 inventory_image = "pedology_lump_inv_"..basename.."_"..tostring(w)..".png",
 365                                 wield_image = "pedology_lump_"..basename.."_"..tostring(w)..".png"
 366                         }
 367                         minetest.register_craftitem("pedology:"..basename.."_lump_"..tostring(w), itemdef)
 368                 end
 369                 pedology.register_sucky(basename, (pedology.wetnames[w]).." "..basedescription, lumpdescription, w, oozing, sucky, m, drop, sounds, additional_groups)
 370                 -- register dripping
 371                 if(w>0 and pedology.USE_DRIPS == true) then
 372                         minetest.register_abm({
 373                                 nodenames = {"pedology:"..basename.."_"..tostring(w)},
 374                                 neighbors = {"air"},
 375                                 interval = math.max(oozeinterval/4,2),
 376                                 chance = math.max(oozechance,22),
 377                                 action = pedology.create_drip,
 378                         })
 379                 end
 380         end
 381         if(maxwet > 0) then
 382                 minetest.register_abm({
 383                         nodenames = {"group:"..basename},
 384                         neighbors = {"group:sucky"},
 385                         interval = oozeinterval,
 386                         chance = oozechance,
 387                         action = pedology.ooze,
 388                 })
 389
 390         end
 391 end
 392
 393 do
 394
 395 local sound_clay = {footstep = {name="pedology_clay_footstep", gain=0.5}}
 396 local sound_silt_fine = {footstep = {name="pedology_silt_footstep", gain=0.3}}
 397 local sound_silt_medium = {footstep = {name="pedology_silt_footstep", gain=0.35}}
 398 local sound_silt_coarse = {footstep = {name="pedology_silt_footstep", gain=0.4}}
 399 local sound_sand_fine = {footstep = {name="pedology_sand_footstep", gain=0.2}}
 400 local sound_sand_medium = {footstep = {name="pedology_sand_footstep", gain=0.25}}
 401 local sound_sand_coarse = {footstep = {name="pedology_sand_footstep", gain=0.3}}
 402 local sound_gravel_fine = {footstep = {name="pedology_gravel_footstep", gain=1}}
 403 local sound_gravel_medium = {footstep = {name="pedology_gravel_footstep", gain=1}}
 404 local sound_gravel_coarse = {footstep = {name="pedology_gravel_footstep", gain=1}}
 405
 406 --[[ register sucky and oozing nodes ]]
 407 --[[ ground nodes ]]
 408 pedology.register_sucky_group("clay", "clay", "clay lump",
 409         5, 3, 60, 1.25, {3000, 3100, 3200, 3500, 3550, 3600}, 4, sound_clay, { crumbly = 3, sun_dry = 1})
 410 pedology.register_sucky_group("silt_fine", "fine silt", "fine silt lump",
 411         5, 3, 45, 1.25, {2800, 2900, 3000, 3100, 3200, 3300}, 4, sound_silt_fine, { crumbly = 3, sun_dry = 1 })
 412 pedology.register_sucky_group("silt_medium", "medium silt", "medium silt lump",
 413         4, 3, 30, 1.25, {2600, 2800, 3200, 3800, 4200}, 4, sound_silt_medium, { crumbly = 3, sun_dry = 1 })
 414 pedology.register_sucky_group("silt_coarse", "coarse silt", "coarse silt lump",
 415         3, 3, 20, 1.25, {2000, 2200, 2400, 2800}, 4, sound_silt_coarse, { crumbly = 3, sun_dry = 1 })
 416 pedology.register_sucky_group("sand_fine", "fine sand", nil,
 417         2, -1, 10, 1.111111, {1100, 1200, 1300}, 0, sound_sand_fine, { crumbly = 3, sand = 1, sun_dry = 1 })
 418 pedology.register_sucky_group("sand_medium", "medium sand", nil,
 419         1, -1, 5, 1.111111, {990, 1100}, 0, sound_sand_medium, { crumbly = 3, sand = 1, sun_dry = 1 })
 420 pedology.register_sucky_group("sand_coarse", "coarse sand", nil,
 421         0, -1, nil, nil, {900}, 0, sound_sand_coarse, { crumbly = 3, sand = 1, sun_dry = 1 })
 422 pedology.register_sucky_group("gravel_fine", "fine gravel", "pebble",
 423         1, 0, 2, 1, {670, 770}, 9, sound_gravel_fine, { crumbly = 2, sun_dry = 1 })
 424 pedology.register_sucky_group("gravel_medium", "medium gravel", "medium stone",
 425         2, 0, 1.5, 1, {600, 800, 1250}, 3, sound_gravel_medium, { crumbly = 2, sun_dry = 1})
 426 pedology.register_sucky_group("gravel_coarse", "coarse gravel", "big stone",
 427         2, 0, 1, 1, {500, 750, 1000}, 1, sound_gravel_coarse, { crumbly = 1, sun_dry = 1 })
 428
 429
 430 --[[ TODO: clay mud
 431 pedology.register_liquid("clay_3", "sludgy clay", 192, 6, 5, 0, {a=192, r=104, g=23, b=0}, {oozing=1})
 432 pedology.register_liquid("clay_4", "muddy clay", 156, 4, 5, 0, {a=156, r=123, g=57, b=6}, {oozing=1})
 433 pedology.register_liquid("clay_5", "slurry clay", 128, 2, 5, 0, {a=128, r=146, g=85, b=73}, {oozing=1})
 434 ]]
 435
 436 --[[ turf ]]
 437 --[[pedology.register_sucky_group("turf_fibric", "fibric turf",
 438         2, 120, 1.25, {1000, 1100, 1200}, sound_silt_coarse, { crumbly = 3, flammable = 1 } )
 439 pedology.register_sucky_group("turf_hemic", "hemic turf",
 440         2, 180, 1.225, {1100, 1200, 1300}, sound_silt_coarse, { crumbly = 3, flammable = 1 } )
 441 pedology.register_sucky_group("turf_sapric", "sapric turf",
 442         2, 240, 1.2, {1200, 1300, 1400}, sound_silt_coarse, { crumbly = 3, flammable = 1 } )]]
 443
 444 --[[ TODO (v5.0): Write registration function for turf to condense redundant code. It’s a mess! ]]
 445 pedology.register_sucky("turf_fibric", "dry fibric turf", "dry fibric turf cutting", 0, 0, 1, 1000, 4, sound_silt_coarse, { crumbly = 3, flammable = 1 } )
 446 pedology.register_sucky("turf_fibric", "wet fibric turf", "wet fibric turf cutting", 1, 1, 1, 1100, 4, sound_silt_coarse, { crumbly = 3 } )
 447 pedology.register_sucky("turf_fibric", "watery fibric turf", "watery fibric turf cutting", 2, 1, 0, 1200, 4, sound_silt_coarse, { crumbly = 3 } )
 448
 449 pedology.register_sucky("turf_hemic", "dry hemic turf", "dry hemic turf cutting", 0, 0, 1, 1100, 3, sound_silt_coarse, { crumbly = 3, flammable = 1 } )
 450 pedology.register_sucky("turf_hemic", "wet hemic turf", "wet hemic turf cutting", 1, 1, 1, 1200, 3, sound_silt_coarse, { crumbly = 3 } )
 451 pedology.register_sucky("turf_hemic", "watery hemic turf", "watery hemic turf cutting", 2, 1, 0, 1300, 3, sound_silt_coarse, { crumbly = 3 } )
 452
 453 pedology.register_sucky("turf_sapric", "dry sapric turf", "dry sapric turf cutting", 0, 0, 1, 1200, 2, sound_silt_coarse, { crumbly = 3, flammable = 1 } )
 454 pedology.register_sucky("turf_sapric", "wet sapric turf", "wet sapric turf cutting", 1, 1, 1, 1300, 2, sound_silt_coarse, { crumbly = 3 } )
 455 pedology.register_sucky("turf_sapric", "watery sapric turf", "watery sapric turf cutting", 2, 1, 0, 1400, 2, sound_silt_coarse, { crumbly = 3 } )
 456
 457 minetest.register_abm({
 458 nodenames = {"group:turf_fibric"}, neighbors = {"group:sucky"}, interval = 120, chance = 1.25, action = pedology.ooze
 459 })
 460 minetest.register_abm({
 461 nodenames = {"group:turf_hemic"}, neighbors = {"group:sucky"}, interval = 180, chance = 1.225, action = pedology.ooze
 462 })
 463 minetest.register_abm({
 464 nodenames = {"group:turf_sapric"}, neighbors = {"group:sucky"}, interval = 240, chance = 1.5, action = pedology.ooze
 465 })
 466
 467 minetest.register_craft({
 468         type = "fuel",
 469         recipe = "pedology:turf_fibric_0",
 470         burntime = 100,
 471 })
 472 minetest.register_craft({
 473         type = "fuel",
 474         recipe = "pedology:turf_hemic_0",
 475         burntime = 200,
 476 })
 477 minetest.register_craft({
 478         type = "fuel",
 479         recipe = "pedology:turf_sapric_0",
 480         burntime = 300,
 481 })
 482
 483 minetest.register_craft({
 484         type = "fuel",
 485         recipe = "pedology:lump_turf_fibric_0",
 486         burntime = 10,
 487 })
 488 minetest.register_craft({
 489         type = "fuel",
 490         recipe = "pedology:lump_turf_hemic_0",
 491         burntime = 20,
 492 })
 493 minetest.register_craft({
 494         type = "fuel",
 495         recipe = "pedology:lump_turf_sapric_0",
 496         burntime = 30,
 497 })
 498
 499
 500 end
 501
 502 pedology.maxwet = {}
 503 pedology.maxwet.clay =          5
 504 pedology.maxwet.silt_fine =     5
 505 pedology.maxwet.silt_medium =   4
 506 pedology.maxwet.silt_coarse =   3
 507 pedology.maxwet.sand_fine =     2
 508 pedology.maxwet.sand_medium =   1
 509 pedology.maxwet.sand_coarse =   0
 510 pedology.maxwet.gravel_fine =   1
 511 pedology.maxwet.gravel_medium = 2
 512 pedology.maxwet.gravel_coarse = 2
 513
 514 pedology.maxwet.turf_fibric =    2
 515 pedology.maxwet.turf_hemic =     2
 516 pedology.maxwet.turf_sapric =    2
 517
 518 --[[ “API” functions ]]
 519 --[[ Replace the node at <pos> with a node with a “drier” version of it, if available ]]
 520 function pedology.dry(pos)
 521         local node = minetest.get_node(pos)
 522         local wet = minetest.get_item_group(node.name, "wet")
 523         local dried = tostring(wet - 1)
 524         if wet <= 0 then
 525                 return
 526         end
 527         local newbasename = string.sub(node.name,1,#node.name-1)
 528         newbasename = newbasename .. dried
 529         minetest.set_node(pos, {name=newbasename, param1=0, param2=0})
 530 end
 531
 532 --[[ Replace the node at <pos> with a “wetter” version of it, if available ]]
 533 function pedology.wetten(pos)
 534         local node = minetest.get_node(pos)
 535         local wet = minetest.get_item_group(node.name, "wet")
 536         local cutbasename = string.sub(node.name,9,#node.name-2)
 537         if pedology.maxwet[cutbasename] == nil then
 538                 return
 539         elseif wet > pedology.maxwet[cutbasename] then
 540                 return
 541         end
 542
 543         local newbasename = string.sub(node.name,1,#node.name-1) .. tostring(wet+1)
 544         minetest.set_node(pos, {name=newbasename, param1=0, param2=0})
 545 end
 546
 547 --[[ register ABMs ]]
 548 minetest.register_abm({
 549         nodenames = {"group:sun_dry"},
 550         neighbors = {"air"},
 551         interval = 30,
 552         chance = 10,
 553         action = pedology.sun_dry,
 554 })
 555
 556 minetest.register_abm({
 557         nodenames = {"group:sucky"},
 558         neighbors = {"group:water"},
 559         interval = 30,
 560         chance = 1,
 561         action = pedology.suck,
 562 })
 563
 564 minetest.register_abm({
 565         nodenames = {"group:melting_point"},
 566         neighbors = {"group:hot"},
 567         interval = 1,
 568         chance = 1,
 569         action = function(pos,node,...)
 570                 minetest.set_node(pos,node)
 571         end,
 572 })