Dungeon Master Forum

Code: Select all

OBJECT:

obj.phoenix_down = {
	type="THING",
	class="SPELLITEM",
        icon=gfx.icon_phoenixdown,
	dungeon=gfx.phoenixdown,
	methods = {
		{ "RAISE", 0, CLASS_PRIEST, method_shoot_spell }
	}
}

obj.raise = {
    name="FIREBALL",
    type="THING",
    class="SPELL",
    	dungeon=gfx.raise,
	revive_class = "BONES"
	on_click=use_raise,
	msg_handler = raise_msg_handler,
	no_shade = true
}

Code: Select all

function method_raise_dead(name, ppos, who, what)
    local m = lookup_method_info(name, what)
    if (not m) then return end
    
    for checkppos=0,3 do
        local checkchar = dsb_ppos_char(checkppos)
        if (checkchar and dsb_get_bar(checkchar, HEALTH) == 0) then
            dsb_set_bar(checkchar, HEALTH, 10)
        end
    end

    method_finish(m, ppos, who)
end

Code: Select all

obj.phoenix_down = {
    --
    -- The rest of your object definition goes here...
    --
    method_info = {
        RAISE = {
            xp_class = CLASS_PRIEST,
            xp_sub = SKILL_POTIONS,
            xp_get = 10,
            idleness = 10,
            stamina_used = 10
        }
    }
}

Code: Select all

"lua FUNCTION RAISE: base/util.lua:702: dsb_get_charge requires int in param 1"

Code: Select all

obj.phoenix_down = {
	name="PHOENIX DOWN",
	type="THING",
	class="SPELLITEM",
	shortdesc="SPELL ITEM",
	mass=0,
	icon=gfx.icon_phoenixdown,
	dungeon=gfx.phoenixdown,
	def_charge=1,
	methods = { 
		{ "RAISE", 0, CLASS_PRIEST, method_raise_dead }
     	},
	method_info = {
	RAISE = {
            xp_class = CLASS_PRIEST,
            xp_sub = SKILL_POTIONS,
            xp_get = 10,
            idleness = 10,
            stamina_used = 10,
	    charge = 1
       		 }
    	},
	convert_deplete="ashes"	
}

Code: Select all

function method_raise_dead(name, ppos, who, what)
    local m = lookup_method_info(name, what)
    if (not m) then return end

    local revive_target = nil
    local found_bones = nil

    local checkbones = dsb_fetch(CHARACTER, who, INV_L_HAND, 0)
    if (checkbones) then
        local checkarch = dsb_find_arch(checkbones)
        if (checkarch == obj.bones) then
            found_bones = true
            use_exvar(checkbones)
            if (exvar[checkbones].owner) then
                revive_target = exvar[checkbones].owner
                dsb_msg(0, checkbones, M_DESTROY, 0)
                dsb_sound(snd.zap)
            end
        end
    end

    if (revive_target) then
        local r_ppos = dsb_char_ppos(revive_target)
        if (r_ppos) then
            dsb_set_bar(revive_target, HEALTH, 10)
            dsb_write(player_colors[r_ppos + 1], dsb_get_charname(revive_target) .. " REVIVED.")
            method_finish(m, ppos, who, what)
        end
    else
        if (found_bones) then
            dsb_write(system_color, dsb_get_charname(who) .. " CANNOT REVIVE THOSE BONES.")
        else
            dsb_write(system_color, dsb_get_charname(who) .. " MUST HAVE BONES IN HAND.")
        end
    end
end

Code: Select all

function heal(atype, ppos, who, power, skill, delay)
	local s_power = (power+1)/8 + 32
	local heal_divide = (511 - power) / (2 * s_power)
	local maxhp = dsb_get_maxbar(who, HEALTH)
	local gain_hp = maxhp / heal_divide
	local hp = dsb_get_bar(who, HEALTH) + gain_hp
	if (hp > maxhp) then hp = maxhp end
	
	local i_heal = power/42
	if (i_heal < 1) then i_heal = 1 end
	i_heal = i_heal * 9
	local c
	for c=0,i_heal do
		local inj_loc = random_body_loc()
		local inj = dsb_get_injury(who, inj_loc)
		if (inj) then
		    local ipower = s_power/4
		    if (ipower > 45) then ipower = 45 end
		    
			inj = inj - ipower
			
			if (inj <= 0) then
				dsb_set_injury(who, inj_loc, 0)
			else
				dsb_set_injury(who, inj_loc, inj)
			end
		end
	end
	
	dsb_set_bar(who, HEALTH, hp)	
end

Code: Select all

dsb_sound(snd.zap)