mods/PLAYER/mcl_player/init.lua

   1 -- Minetest 0.4 mod: player
   2 -- See README.txt for licensing and other information.
   3 mcl_player = {}
   4
   5 -- Player animation blending
   6 -- Note: This is currently broken due to a bug in Irrlicht, leave at 0
   7 local animation_blend = 0
   8
   9 mcl_player.registered_player_models = { }
  10
  11 -- Local for speed.
  12 local models = mcl_player.registered_player_models
  13
  14 function mcl_player.player_register_model(name, def)
  15         models[name] = def
  16 end
  17
  18 -- Default player appearance
  19 mcl_player.player_register_model("character.b3d", {
  20         animation_speed = 30,
  21         textures = {"character.png", },
  22         animations = {
  23                 -- Standard animations.
  24                 stand     = { x=  0, y= 79, },
  25                 lay       = { x=162, y=166, },
  26                 walk      = { x=168, y=187, },
  27                 mine      = { x=189, y=198, },
  28                 walk_mine = { x=200, y=219, },
  29                 sit       = { x= 81, y=160, },
  30         },
  31 })
  32
  33 -- Player stats and animations
  34 local player_model = {}
  35 local player_textures = {}
  36 local player_anim = {}
  37 local player_sneak = {}
  38 mcl_player.player_attached = {}
  39
  40 function mcl_player.player_get_animation(player)
  41         local name = player:get_player_name()
  42         return {
  43                 model = player_model[name],
  44                 textures = player_textures[name],
  45                 animation = player_anim[name],
  46         }
  47 end
  48
  49 -- Called when a player's appearance needs to be updated
  50 function mcl_player.player_set_model(player, model_name)
  51         local name = player:get_player_name()
  52         local model = models[model_name]
  53         if model then
  54                 if player_model[name] == model_name then
  55                         return
  56                 end
  57                 player:set_properties({
  58                         mesh = model_name,
  59                         textures = player_textures[name] or model.textures,
  60                         visual = "mesh",
  61                         visual_size = model.visual_size or {x=1, y=1},
  62                 })
  63                 mcl_player.player_set_animation(player, "stand")
  64         else
  65                 player:set_properties({
  66                         textures = { "player.png", "player_back.png", },
  67                         visual = "upright_sprite",
  68                 })
  69         end
  70         player_model[name] = model_name
  71 end
  72
  73 function mcl_player.player_set_textures(player, textures, preview)
  74         local name = player:get_player_name()
  75         player_textures[name] = textures
  76         player:set_properties({textures = textures,})
  77         if preview then
  78                 player:get_meta():set_string("mcl_player:preview", preview)
  79         end
  80 end
  81
  82 function mcl_player.player_get_preview(player)
  83         local preview = player:get_meta():get_string("mcl_player:preview")
  84         if preview == nil or preview == "" then
  85                 return "player.png"
  86         else
  87                 return preview
  88         end
  89 end
  90
  91 function mcl_player.player_set_animation(player, anim_name, speed)
  92         local name = player:get_player_name()
  93         if player_anim[name] == anim_name then
  94                 return
  95         end
  96         local model = player_model[name] and models[player_model[name]]
  97         if not (model and model.animations[anim_name]) then
  98                 return
  99         end
 100         local anim = model.animations[anim_name]
 101         player_anim[name] = anim_name
 102         player:set_animation(anim, speed or model.animation_speed, animation_blend)
 103 end
 104
 105 -- Update appearance when the player joins
 106 minetest.register_on_joinplayer(function(player)
 107         mcl_player.player_attached[player:get_player_name()] = false
 108         mcl_player.player_set_model(player, "character.b3d")
 109         player:set_local_animation({x=0, y=79}, {x=168, y=187}, {x=189, y=198}, {x=200, y=219}, 30)
 110 end)
 111
 112 minetest.register_on_leaveplayer(function(player)
 113         local name = player:get_player_name()
 114         player_model[name] = nil
 115         player_anim[name] = nil
 116         player_textures[name] = nil
 117 end)
 118
 119 -- Localize for better performance.
 120 local player_set_animation = mcl_player.player_set_animation
 121 local player_attached = mcl_player.player_attached
 122
 123 -- Check each player and apply animations
 124 minetest.register_globalstep(function(dtime)
 125         for _, player in pairs(minetest.get_connected_players()) do
 126                 local name = player:get_player_name()
 127                 local model_name = player_model[name]
 128                 local model = model_name and models[model_name]
 129                 if model and not player_attached[name] then
 130                         local controls = player:get_player_control()
 131                         local walking = false
 132                         local animation_speed_mod = model.animation_speed or 30
 133
 134                         -- Determine if the player is walking
 135                         if controls.up or controls.down or controls.left or controls.right then
 136                                 walking = true
 137                         end
 138
 139                         -- Determine if the player is sneaking, and reduce animation speed if so
 140                         if controls.sneak then
 141                                 animation_speed_mod = animation_speed_mod / 2
 142                         end
 143
 144                         -- Apply animations based on what the player is doing
 145                         if player:get_hp() == 0 then
 146                                 player_set_animation(player, "lay")
 147                         elseif walking then
 148                                 if player_sneak[name] ~= controls.sneak then
 149                                         player_anim[name] = nil
 150                                         player_sneak[name] = controls.sneak
 151                                 end
 152                                 if controls.LMB then
 153                                         player_set_animation(player, "walk_mine", animation_speed_mod)
 154                                 else
 155                                         player_set_animation(player, "walk", animation_speed_mod)
 156                                 end
 157                         elseif controls.LMB then
 158                                 player_set_animation(player, "mine")
 159                         else
 160                                 player_set_animation(player, "stand", animation_speed_mod)
 161                         end
 162                 end
 163         end
 164 end)