用了有道云翻译官方的api，因此支持了英日韩译中和中译英（理论上是英日韩西俄法，但是自动识别只能识别出英日韩，其他的只会错译/无结果），原来的标题不再准确了所以重新发一次。

使用教程

将文件下载并解压
将WisteriaTranslate.lua放置于.../Dice[你的QQ号]/plugin目录下
将json.lua放置于.../Diceki/lua/目录下，没有这个目录就新建文件夹建出来，如果同时安装了其他的需要json.lua的插件，只需要任意保留一个json.lua
重启或.system load
指令为.translate [内容]
版本要求>590（感谢タブー術因为这份教程大部分都是抄的）

使用示例

源码

msg_order = {}

function encodeURI(s) --对传入参数编码，兼容中文
    s = string.gsub(s, "([^%w%.%- ])", function(c) return string.format("%%%02X", string.byte(c)) end)
    
    return string.gsub(s, " ", "+")
end

msg_order[".translate"]="translate"
function translate(msg)
    local rest = string.match(msg.fromMsg,"^[%s]*(.-)[%s]*$",11)--匹配文本
    local api="http://fanyi.youdao.com/translate?&doctype=json&type=AUTO&i="
    local polar=""
    
    if(rest and #rest>0)then
        rest=encodeURI(rest)--编码
        polar=api..rest--拼接
    else--空参，返回默认说明文字
        return"你摊开了墨绿色的羊皮纸卷，上面写到……\nWisteriaTranslate ver2.0 by 32w\n发布于dice!论坛，使用方法：.translate [翻译内容]，支持英日韩译中和中译英"
    end
    
    json=require "json"
    res,data = http.get(polar)
    j=json.decode(data)
    
    if(j.errorCode==0)then
        return j.translateResult[1][1].tgt
    else
        return "泛着贝类光泽的笔迹溶解于书中，未找到对应翻译"
    --j=json.decode(data)
   end 
end

多行翻译

@Nightless 在楼下贴出的代码~附在这里
将这一内容替换 j.errorCode==0 那一段就能搞定了

if(j.errorCode==0)then
  local num1 = 1
  local text = ""
  local max1 = #j.translateResult
  repeat	--第一层
  local num2 = 1
  local max2 = #j.translateResult[num1]
    repeat--第二层
    text = text..string.sub(j.translateResult[num1][num2].tgt, 1)
    num2 = num2 + 1
    until (num2 > max2 )
    if(num1 < max1)then
    text = text.."{br}"
    end
  num1 = num1 + 1
  until( num1 > max1 )	--条件为真则跳出循环
  return text
else
  return "（摇头）这个我不知道哦。"
  --j=json.decode(data)
end

文件

wisteriatranslate.zip

4kB