换字的脚本

灯笼菜刀王

以下引用IamI于2008-7-21 11:17:18的发言：

其实也未必一定在一棵树上吊死= =邪恶方法千千万
比如说，准备两个字体，安装完毕以后，用Font.deafult_name切换
↑
邪恶完毕
开始准备动脚本

那只能改变全局字体而已，一些特殊定义的字体就不能换了（除非单独处理= =，其实也可以）

dbshy

#------------------------------------------------------------------------------
# 本脚本来自www.66RPG.com，功能是将整个游戏中draw_text的简体字全部变为繁体字
# 作者：66RPG技术区版大：灼眼的夏娜
#------------------------------------------------------------------------------
module Conv
def self.c(str)
  
  m2w = Win32API.new("kernel32","MultiByteToWideChar",'ilpipi','i')
  w2m = Win32API.new("kernel32","WideCharToMultiByte",'ilpipipp','i')
  lcms = Win32API.new("kernel32","LCMapString",'llpipi','i')

  len = m2w.call(65001,0,str,-1,nil,0)
  buf = "\0"*(len*2)

  m2w.call(65001,0,str,-1,buf,len)

  len = w2m.call(0,0,buf,-1,nil,0,nil,nil)
  ret = "\0"*len

  w2m.call(0,0,buf,-1,ret,len,nil,nil)

  len = m2w.call(936,0,ret,-1,nil,0)
  buf01 = "\0"*(len*2+1)
  lcms.call(0x0804,0x04000000,ret,-1,buf01,len*2)
  
  len = m2w.call(0,0,buf01,-1,nil,0)
  buf = "\0" * (len*2)
  m2w.call(0,0,buf01,-1,buf,len)

  len = w2m.call(65001,0,buf,-1,nil,0,nil,nil)
  ret = "\0" * (len-1)
  w2m.call(65001,0,buf,-1,ret,len-1,nil,nil)
  
  return ret
end

end
$t = false
class Bitmap
unless $I_LOVE_RMXP_6RWORDCONV
   alias dx draw_text
   def draw_text(p1, p2, p3 = 0, p4 = 3, p5 = nil, p6 = 0)
     case p1
     when Rect
       str = Conv.c(p2)
     $t ? dx(p1, str, p3) : dx(p1, p2, p3)
     else
       str = Conv.c(p5)
       dx(p1, p2, p3, p4, str, p6)
     end
   end
   $I_LOVE_RMXP_6RWORDCONV = true
end
end

插入以上脚本,需要换的时候输入$t = true
我刚试了一下,可以

IamI

dbshy是不是理解错了？两个分开主要是处理两个函数的兼容性,也许是我错了……

$t = false
class Bitmap
   alias dx draw_text
   def draw_text(p1, p2, p3 = 0, p4 = 3, p5 = nil, p6 = 0)
     case p1
     when Rect
      if $t == true
        str = Conv.c(p2)
      else
        str = p2
      end
       dx(p1, str, p3)
     else
      if $t == true
        str = Conv.c(p5)
      else
        str = p5
      end
       dx(p1, p2, p3, p4, str, p6)
     end
   end
end
使用方法同dbshy

dbshy

以下引用IamI于2008-7-21 11:24:26的发言：

dbshy是不是理解错了？两个分开主要是处理两个函数的兼容性

$t = false
class Bitmap
  alias dx draw_text
  def draw_text(p1, p2, p3 = 0, p4 = 3, p5 = nil, p6 = 0)
    case p1
    when Rect
     if $t == true
       str = Conv.c(p2)
     end
      dx(p1, str, p3)
    else
     if $t == true
       str = Conv.c(p5)
     end
      dx(p1, p2, p3, p4, str, p6)
    end
  end
end

我只是下面的没写而已

$t = false
class Bitmap
unless $I_LOVE_RMXP_6RWORDCONV
  alias dx draw_text
  def draw_text(p1, p2, p3 = 0, p4 = 3, p5 = nil, p6 = 0)
    case p1
    when Rect
      str = Conv.c(p2)
    $t ? dx(p1, str, p3) : dx(p1, p2, p3)    else
      str = Conv.c(p5)
    $t ? dx(p1, p2, p3, p4, str, p6) : dx(p1, p2, p3, p4, p5, p6)    end
  end
  $I_LOVE_RMXP_6RWORDCONV = true
end
end

迅雷進

以下引用dbshy于2008-7-21 11:20:08的发言：
插入以上脚本,需要换的时候输入$t = true
我刚试了一下,可以

请问当前辈用了这个脚本之后，
一开始运行游戏时是简体还是繁体呢？

以下引用、「尕訞孑」于2008-7-21 11:22:03的发言：

...
LZ的意思不是指玩家随意转换么?

正是，
前辈有何高见呢？

dbshy

以下引用IamI于2008-7-21 11:24:26的发言：

dbshy是不是理解错了？两个分开主要是处理两个函数的兼容性,也许是我错了……

$t = false
class Bitmap
  alias dx draw_text
  def draw_text(p1, p2, p3 = 0, p4 = 3, p5 = nil, p6 = 0)
    case p1
    when Rect
     if $t == true
       str = Conv.c(p2)
     else
       str = p2
     end
      dx(p1, str, p3)
    else
     if $t == true
       str = Conv.c(p5)
     else
       str = p5
     end
      dx(p1, p2, p3, p4, str, p6)
    end
  end
end
使用方法同dbshy


[本贴由作者于 2008-7-21 11:25:53 最后编辑]

你去看我的脚本
其实我的方法跟你一样

IamI

啊果然一样，眼残= =不过后面一组没加