繁体字程序如何转化简体字程序

天津包子

各位前辈好我是新人还是个小菜各位老大多多指点。谢谢！

雪流星

之前有人写过这个的脚本
请去主站上寻找

不过是XP的，不知VX是否适用{/pz}

火鸡三毛老大

1. #------------------------------------------------------------------------------
   
2. # 本脚本来自www.66RPG.com，功能是将整个游戏中draw_text的简体字全部变为繁体字
   
3. # 作者：66RPG技术区版大：灼眼的夏娜
   
4. #------------------------------------------------------------------------------
   
5. module Conv
   
6. def self.c(str)
   
7.   
   
8.   m2w = Win32API.new("kernel32","MultiByteToWideChar",'ilpipi','i')
   
9.   w2m = Win32API.new("kernel32","WideCharToMultiByte",'ilpipipp','i')
   
10.   lcms = Win32API.new("kernel32","LCMapString",'llpipi','i')
    
11. 
    
12.   len = m2w.call(65001,0,str,-1,nil,0)
    
13.   buf = "\0"*(len*2)
    
14. 
    
15.   m2w.call(65001,0,str,-1,buf,len)
    
16. 
    
17.   len = w2m.call(0,0,buf,-1,nil,0,nil,nil)
    
18.   ret = "\0"*len
    
19. 
    
20.   w2m.call(0,0,buf,-1,ret,len,nil,nil)
    
21. 
    
22.   len = m2w.call(936,0,ret,-1,nil,0)
    
23.   buf01 = "\0"*(len*2+1)
    
24.   lcms.call(0x0804,0x04000000,ret,-1,buf01,len*2)
    
25.   
    
26.   len = m2w.call(0,0,buf01,-1,nil,0)
    
27.   buf = "\0" * (len*2)
    
28.   m2w.call(0,0,buf01,-1,buf,len)
    
29. 
    
30.   len = w2m.call(65001,0,buf,-1,nil,0,nil,nil)
    
31.   ret = "\0" * (len-1)
    
32.   w2m.call(65001,0,buf,-1,ret,len-1,nil,nil)
    
33.   
    
34.   return ret
    
35. end
    
36. 
    
37. end
    
38. 
    
39. class Bitmap
    
40. unless $I_LOVE_RMXP_6RWORDCONV
    
41.    alias dx draw_text
    
42.    def draw_text(p1, p2, p3 = 0, p4 = 3, p5 = nil, p6 = 0)
    
43.      case p1
    
44.      when Rect
    
45.        str = Conv.c(p2)
    
46.        dx(p1, str, p3)
    
47.      else
    
48.        str = Conv.c(p5)
    
49.        dx(p1, p2, p3, p4, str, p6)
    
50.      end
    
51.    end
    
52.    $I_LOVE_RMXP_6RWORDCONV = true
    
53. end
    
54. end

复制代码

AIP脚本 XP、VX公用  好像没有BUG

雪流星

火鸡你这样会害新人变成伸手党喔

还是给连结会比较好{/wx}

让新人自己多逛逛6R好了

火鸡三毛老大

以下引用snstar2006于2008-4-15 23:06:04的发言：

火鸡你这样会害新人变成伸手党喔

还是给连结会比较好

让新人自己多逛逛6R好了

额...我以前好像也.....
在一次做错事...{/dk}

八云紫

以下引用火鸡三毛老大于2008-4-15 13:31:23的发言：
AIP脚本 XP、VX公用  好像没有BUG

修正一下，是API（Application Programming Interface），不是AIP。

3535

以下引用火鸡三毛老大于2008-4-15 13:31:23的发言：
AIP脚本 XP、VX公用  好像没有BUG

你这是“简体 -> 繁体”
lz是“繁体 -> 简体”

#------------------------------------------------------------------------------
# 本脚本来自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,0x02000000,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

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)
       dx(p1, str, p3)
     else
       str = Conv.c(p5)
       dx(p1, p2, p3, p4, str, p6)
     end
   end
   $I_LOVE_RMXP_6RWORDCONV = true
end
end