Project1

标题: zh在群里发了一个很蛋疼的东西所以就有了这个很蛋疼的工具 [打印本页]

---

作者: yangff    时间: 2011-6-10 20:52
标题: zh在群里发了一个很蛋疼的东西所以就有了这个很蛋疼的工具


调试工具
不知道他会不会也写了一个……但是这个的功能……绝对蛋疼……
按Enter快速掠过，按Esc逐行步进

1. $skip_mode=""
   
2. #------------------------------------------------------------------------------
   
3. # Moonlight INN
   
4. # http://cgi.members.interq.or.jp/aquarius/rasetsu/
   
5. # RaTTiE
   
6. # [email protected]
   
7. #------------------------------------------------------------
   
8. # EasyConv::s2u(text) : S-JIS -> UTF-8
   
9. # EasyConv::u2s(text) : UTF-8 -> S-JIS
   
10. #==============================================
    
11. module EasyConv
    
12.   CP_ACP = 0
    
13.   CP_UTF8 = 65001
    
14.   #--------------------------------------------------------------------------
    
15.   # 仠 S-JIS -> UTF-8
    
16.   #--------------------------------------------------------------------------
    
17.   def s2u(text)
    
18.     m2w = Win32API.new('kernel32', 'MultiByteToWideChar', 'ilpipi', 'i')
    
19.     w2m = Win32API.new('kernel32', 'WideCharToMultiByte', 'ilpipipp', 'i')
    
20.     # S-JIS -> Unicode
    
21.     len = m2w.call(CP_ACP, 0, text, -1, nil, 0);
    
22.     buf = "\0" * (len*2)
    
23.     m2w.call(CP_ACP, 0, text, -1, buf, buf.size/2);
    
24.     # Unicode -> UTF-8
    
25.     len = w2m.call(CP_UTF8, 0, buf, -1, nil, 0, nil, nil);
    
26.     ret = "\0" * len
    
27.     w2m.call(CP_UTF8, 0, buf, -1, ret, ret.size, nil, nil);
    
28.     return ret
    
29.   end
    
30.   module_function :s2u
    
31.   #--------------------------------------------------------------------------
    
32.   # 仠 UTF-8 -> S-JIS
    
33.   #--------------------------------------------------------------------------
    
34.   def u2s(text)
    
35.     m2w = Win32API.new('kernel32', 'MultiByteToWideChar', 'ilpipi', 'i')
    
36.     w2m = Win32API.new('kernel32', 'WideCharToMultiByte', 'ilpipipp', 'i')
    
37.     # UTF-8 -> Unicode
    
38.     len = m2w.call(CP_UTF8, 0, text, -1, nil, 0);
    
39.     buf = "\0" * (len*2)
    
40.     m2w.call(CP_UTF8, 0, text, -1, buf, buf.size/2);
    
41.     # Unicode -> S-JIS
    
42.     len = w2m.call(CP_ACP, 0, buf, -1, nil, 0, nil, nil);
    
43.     ret = "\0" * len
    
44.     w2m.call(CP_ACP, 0, buf, -1, ret, ret.size, nil, nil);
    
45.     return ret
    
46.   end
    
47.   module_function :u2s
    
48. end
    
49. 
    
50. def get_neme(n)
    
51.   
    
52.   return  $RGSS_SCRIPTS[n[-3,3].to_i][1]
    
53. 
    
54. end  #
    
55. module RMDebugger
    
56.   module WinAPIs
    
57.     K="kernel32"
    
58.     def self.kd(f,c="",r="l")
    
59.       return Win32API.new(K,"#{f}","#{c}","#{r}")
    
60.     end
    
61.     STD_INPUT_HANDLE = -10
    
62. 　　STD_OUTPUT_HANDLE = -11
    
63. 　　STD_ERROR_HANDLE = -12
    
64.     AllocConsole=kd "AllocConsole"
    
65.     FreeConsole =kd "FreeConsole"
    
66.     GetStdHandle=kd "GetStdHandle","l"
    
67.     WriteConsole=kd "WriteConsole","lplll"
    
68.     ReadConsole =kd "ReadConsole","lplll"
    
69.     SetConsoleMode=kd "SetConsoleMode","ll"
    
70.   end
    
71.   Handle=WinAPIs::AllocConsole.call
    
72. 
    
73.   InputHandle=WinAPIs::GetStdHandle.call(-10)
    
74.   OutputHandle=WinAPIs::GetStdHandle.call(-11)
    
75.   #p InputHandle
    
76.   #p OutputHandle
    
77.   def self.write(s,mode=1)
    
78.     #p s.size
    
79.     #
    
80.     s=EasyConv.u2s(s).delete!("\000")
    
81.     WinAPIs::SetConsoleMode.call(OutputHandle,mode)
    
82.     WinAPIs::WriteConsole.call(OutputHandle,s,s.size,s.size,0)
    
83.     exitme=false
    
84.     while not exitme
    
85.       if $break_all
    
86.         break
    
87.       end
    
88.       if Input.press?(Input::C)
    
89.         exitme=true
    
90.         $skip_mode="Line"
    
91.         break
    
92.       end
    
93.       if Input.repeat?(Input::B)
    
94.         exitme=true
    
95.         $skip_mode=""
    
96.       end
    
97.       
    
98.       Input.update
    
99.       Graphics.update
    
100.     end
     
101.   end
     
102.   def self.get_a_line(mode=4)
     
103.     s1="\000"*256
     
104.     WinAPIs::SetConsoleMode.call(InputHandle,mode)
     
105.     WinAPIs::ReadConsole.call(InputHandle,s1,s1.size,0,0)
     
106.     return s1
     
107.   end
     
108.   def self.exit
     
109.     WinAPIs::FreeConsole.call
     
110.   end
     
111. set_trace_func lambda {|event, file, line, id, binding, klass|
     
112.     #p event, file, line, id, binding, klass
     
113.     return if (event=="line") and ($skip_mode=="Line")
     
114.     return if event=="c-call"
     
115.     return if event=="c-return"
     
116.     return if event=="end"
     
117.     return if event=="class"
     
118.     get_neme(file)
     
119.     a= "Event:#{event}\r\n #{get_neme(file)} line: #{line},id:#{id},klass:#{klass}\r\n"
     
120.     write a
     
121.     #
     
122.     #write a
     
123.    
     
124. }
     
125. 
     
126. end
     
127. #RMDebugger.write "Please give me ,which mode would you like?(bl or bf?) You can choose it in next stop"
     
128. #p RMDebugger.read
     
129. 
     
130. alias old_exit exit
     
131. def exit(*args)
     
132.   $break_all=true
     
133.   RMDebugger.exit
     
134.   old_exit
     
135. end

复制代码

---

欢迎光临 Project1 (https://rpg.blue/)

Powered by Discuz! X3.1