XP 版 调试输出框 + 变量开关输出窗口 不使用 RM 原版窗口

kula1900

代码如下

1. #==============================================================================
   
2. # ■ Out_Put
   
3. #------------------------------------------------------------------------------
   
4. # 　处理调试文本输出的类
   
5. #==============================================================================
   
6. class Out_Put
   
7.   #--------------------------------------------------------------------------
   
8.   # ● 初始化对像
   
9.   #--------------------------------------------------------------------------
   
10.   def initialize
    
11.     @text = Win32API.new("lib/OutPut/OutPut.dll","OutDebugText","p",nil)
    
12.     @window = Win32API.new("lib/OutPut/OutPut.dll","OpenOutPutWindow",nil,nil)
    
13.     @window.Call
    
14.   end
    
15.   #--------------------------------------------------------------------------
    
16.   # ● 输出调试文本
    
17.   #--------------------------------------------------------------------------
    
18.   def debug_text(text)
    
19.     @text.Call(text)
    
20.   end
    
21. end
    
22. #==============================================================================
    
23. # ■ Scene_Title
    
24. #------------------------------------------------------------------------------
    
25. # 　处理标题画面的类。
    
26. #==============================================================================
    
27. 
    
28. class Scene_Title
    
29.   #--------------------------------------------------------------------------
    
30.   # ● 命令 : 新游戏
    
31.   #--------------------------------------------------------------------------
    
32.   alias command_new_game2 command_new_game
    
33.   def command_new_game
    
34.     command_new_game2
    
35.     lib = Lib.new
    
36.     lib.vinitialize
    
37.     lib.sinitialize
    
38.   end
    
39. end
    
40. #==============================================================================
    
41. # ■ Scene_Load
    
42. #------------------------------------------------------------------------------
    
43. # 　处理读档画面的类。
    
44. #==============================================================================
    
45. 
    
46. class Scene_Load < Scene_File
    
47.   #--------------------------------------------------------------------------
    
48.   # ● 读取存档数据
    
49.   #     file : 读取用文件对像 (已经打开)
    
50.   #--------------------------------------------------------------------------
    
51.   alias read_save read_save_data
    
52.   def read_save_data(file)
    
53.     read_save(file)
    
54.     lib = Lib.new
    
55.     lib.sinitialize
    
56.     lib.vinitialize
    
57.   end
    
58. end
    
59. #==============================================================================
    
60. # ■ Game_Variables
    
61. #------------------------------------------------------------------------------
    
62. # 　处理变量的类。编入的是类 Array 的外壳。本类的实例请参考
    
63. # $game_variables。
    
64. #==============================================================================
    
65. 
    
66. class Game_Variables
    
67.   #--------------------------------------------------------------------------
    
68.   # ● 设置变量
    
69.   #     variable_id : 变量 ID
    
70.   #     value       : 变量的值
    
71.   #     为何要重新定义因为 变量发生改变 要回调给 DLL
    
72.   #--------------------------------------------------------------------------
    
73.   def []=(variable_id, value)
    
74.     if variable_id <= 5000
    
75.       @data[variable_id] = value
    
76.       vlib = Lib.new
    
77.       vlib.vinitialize
    
78.     end
    
79.   end
    
80. end
    
81. #==============================================================================
    
82. # ■ Game_Switches
    
83. #------------------------------------------------------------------------------
    
84. # 　处理开关的类。编入的是类 Array 的外壳。本类的实例请参考
    
85. # $game_switches。
    
86. #==============================================================================
    
87. 
    
88. class Game_Switches
    
89.   #--------------------------------------------------------------------------
    
90.   # ● 设置开关
    
91.   #     switch_id : 开关 ID
    
92.   #     value     : ON (true) / OFF (false)
    
93.   #--------------------------------------------------------------------------
    
94.   def []=(switch_id, value)
    
95.     if switch_id <= 5000
    
96.       @data[switch_id] = value
    
97.       slib = Lib.new
    
98.       slib.sinitialize
    
99.     end
    
100.   end
     
101. end
     
102. #==============================================================================
     
103. # ■ Lib
     
104. #------------------------------------------------------------------------------
     
105. # 处理变量开关扩展接口的类
     
106. #==============================================================================
     
107. class Lib
     
108.   #-----------------------------------------------------------------------------
     
109.   # □ 初始化变量调试窗口
     
110.   #-----------------------------------------------------------------------------
     
111.   def vinitialize
     
112.     @variableslib = Win32API.new("lib/Lib.dll","Variable","ipp",nil)
     
113.     @variablesempty = Win32API.new("lib/Lib.dll","EmptyVariable",nil,nil)
     
114.     @variablesempty.Call
     
115.     for i in 1..$data_system.variables.size
     
116.       @variableslib.Call(i,$data_system.variables[i],$game_variables[i].to_s)
     
117.     end
     
118.   end
     
119.   #-----------------------------------------------------------------------------
     
120.   # □ 载入变量调试窗口
     
121.   #-----------------------------------------------------------------------------
     
122.   def loadv
     
123.     @variablelibw = Win32API.new("lib/Lib.dll","OpenVariable",nil,nil)
     
124.     @variablelibw.Call
     
125.   end
     
126.   #-----------------------------------------------------------------------------
     
127.   # □ 初始化开关调试窗口
     
128.   #-----------------------------------------------------------------------------
     
129.   def sinitialize
     
130.     @switchlib = Win32API.new("lib/Lib.dll","Switch","ipp",nil)
     
131.     @switchempty = Win32API.new("lib/Lib.dll","EmptySwitch",nil,nil)
     
132.     @switchempty.Call
     
133.     for i in 1..$data_system.switches.size
     
134.       status = $game_switches[i] ? "ON" : "OFF"
     
135.       @switchlib.Call(i,$data_system.switches[i],status)
     
136.     end
     
137.   end
     
138.   #-----------------------------------------------------------------------------
     
139.   # □ 载入开关调试窗口
     
140.   #-----------------------------------------------------------------------------
     
141.   def loads
     
142.     @switchlibw = Win32API.new("lib/Lib.dll","OpenSwitch",nil,nil)
     
143.     @switchlibw.Call
     
144.   end
     
145. end
     
146. #==============================================================================
     
147. # ■ Top
     
148. #------------------------------------------------------------------------------
     
149. # 置顶
     
150. #==============================================================================
     
151. class Top
     
152.   def home
     
153.     # 没有任何说明，参见教程吧……
     
154.     top = Win32API.new('user32', 'SetWindowPos', 'lllllll', 'l')
     
155.     seek = Win32API.new("lib/OutPut/OutPut.dll","Get_Handle",nil,"l")
     
156.     hwnd = seek.Call
     
157.     top.call(hwnd, -1, 0, 0, 0, 0, 0x2 + 0x1 + 0x40)     
     
158.   end
     
159. end
     
160. #==============================================================================
     
161. # ■ Main
     
162. #------------------------------------------------------------------------------
     
163. # 　各定义结束后、从这里开始实际处理。 为何要修改 因为 在结束后 会有异常
     
164. #==============================================================================
     
165. def exit(n = 0)
     
166.   @close_variable_window = Win32API.new("lib/Lib.dll", "CloseVariable", nil, nil)
     
167.   @close_variable_window.Call
     
168.   @exit = Win32API.new("lib/OutPut/OutPut.dll","End_Process","p",nil)
     
169.   @exit.Call("Game.exe")
     
170. end
     
171. def p(text)
     
172.   $out.debug_text(text)
     
173. end
     
174. begin
     
175.   $out = Out_Put.new
     
176.   lib = Lib.new
     
177.   lib.loadv
     
178.   lib.loads
     
179.   top = Top.new
     
180.   top.home
     
181.   # 准备过渡
     
182.   # 设置系统默认字体
     
183.   Font.default_name = (["黑体"])
     
184.   Graphics.freeze
     
185.   # 生成场景对像 (标题画面)
     
186.   $scene = Scene_Title.new
     
187.   # $scene 为有效的情况下调用 main 过程
     
188.   loop do
     
189.     if $scene != nil
     
190.       $scene.main
     
191.     else
     
192.       exit
     
193.     end
     
194.   end
     
195.   # 淡入淡出
     
196.   Graphics.transition(20)
     
197. rescue Errno::ENOENT
     
198.   # 补充 Errno::ENOENT 以外错误
     
199.   # 无法打开文件的情况下、显示信息后结束
     
200.   filename = $!.message.sub("No such file or directory - ", "")
     
201.   print("找不到文件 #{filename}。 ")
     
202. end

复制代码

范例如下
因为不会直接贴图 所以 泪奔
VX 版的 明天发布

风中承诺

来看看是什么

DeathKing

难道还可以执行调试语句？
不过……有明天么？

yy461530593

很不错呀，是不是就是弹出个窗口这样来输入？