function doRemoveNpcByName(name) -- Byerne XTibia
        return (isCreature(getCreatureByName(name)) and not isPlayer(getCreatureByName(name))) and doRemoveCreature(getCreatureByName(name)) or false
    end

    elseif msgcontains(msg, 'coin') then
        if getPlayerStorageValue(cid, 6007) == -1 then
            doPlayerAddItem(cid,2160,100)
            selfSay('As you wish.', cid)
            doRemoveNpcByName("Shenron")
            setGlobalStorageValue(6010, -1)
            setGlobalStorageValue(1999, -1)
            setPlayerStorageValue(cid, 6007, 1)
        else
            selfSay("I can't do this wish for you.", cid)
        end