求懂脚本的大大帮改下这个窗口化脚本吧！应该很简单的！

雷影

本来觉得游戏窗口很小，找了一下在这里找到个拉伸窗口的简单脚本，可以在游戏启动是自动拉大窗口到设定好的大小。
希望大大能在此脚本里加工一下放几个窗口大小的分支，能做到以下效果！

游戏启动可以靠选择框来改变窗口大小！最好能在事件中自由调用脚本！
效果1：和NPC对话出现选择框，选A是800x600窗口，选B1024x768窗口，选择C取消改变。
效果2：菜单中多一个“设置”指令，进入后打开窗口设置选项，选A是800x600窗口，选B1024x768窗口，选择C取消改变。

或者：也可以把脚本写成，游戏启动后按F4就可以调整几种类型窗口大小。
PS：不知道能不能做到还可以选择自适应当前显示器合适的大小呢？
代码放上，相当简单的：

1.    #给下面高度宽度赋值，就是分辨率的大小。
   
2.     宽度=1024 #1018（全屏窗口大概的大小）
   
3.     高度=768 #746 （全屏窗口大概的大小）
   
4.     游戏ini名=".\\Game.ini"
   
5.     #============================================================================
   
6. 
   
7.     val = "\0"*256
   
8.     gps = Win32API.new('kernel32', 'GetPrivateProfileString',%w(p p p p l p), 'l')
   
9.     gps.call("Game", "Title", "", val, 256, 游戏ini名)
   
10.     title = val
    
11.     fw = Win32API.new('user32', 'FindWindow', %(p, p), 'i')
    
12.     hWnd = fw.call("RGSS Player", title)
    
13.     swp = Win32API.new('user32', 'SetWindowPos', %(l, l, i, i, i, i, i), 'i')
    
14.     ok = swp.call(hWnd, 0, 0, 0, 宽度, 高度, 4)
    

复制代码

tseyik

有現成的腳本可做到
http://cacaosoft.web.fc2.com/tkool/script/rgss3/wndsz.html

雷影

tseyik 发表于 2014-10-11 08:22
有現成的腳本可做到
http://cacaosoft.web.fc2.com/tkool/script/rgss3/wndsz.html

地址打不开啊！！可以的话把代码贴出来吧

永燃的狂炎

1. #===========================================================================#
   
2. #  #*****************#              Game Resolution 1.1                     #
   
3. #  #*** By Falcao ***#              Add the resolution option to the menu   #
   
4. #  #*****************#              RMVXACE Date Aungust 6 2012             #
   
5. #===========================================================================#
   
6. #---------------------------------------------------------------------------
   
7. # This script add a resolution option to the game menu, you can choose from
   
8. # Normal screen 544 x 416 and Full screen, also it remember your last option
   
9. # when you start the game.
   
10. #
    
11. # Installation: copy and paste above main
    
12. #--------------------------------------------------------------------------
    
13. module FalRes
    
14.   def self.write_decision
    
15.     File.delete("System/Resolution.txt") rescue nil
    
16.     File.open("System/Resolution.txt","a+") {|fh|fh.puts($game_resolution)}
    
17.   end
    
18. 
    
19.   def self.read_decision
    
20.     decision = File.read("System/Resolution.txt").split("\n") rescue [0]
    
21.     return decision.last.to_i
    
22.   end
    
23. 
    
24.   def self.resolution
    
25.     res = Win32API.new 'user32', 'keybd_event', %w(l l l l), ''
    
26.     res.call(18,0,0,0)
    
27.     res.call(13,0,0,0)
    
28.     res.call(13,0,2,0)
    
29.     res.call(18,0,2,0)
    
30.   end
    
31.   $game_resolution = self.read_decision
    
32.   self.resolution if $game_resolution == 1
    
33. end
    
34. class Window_MenuCommand < Window_Command
    
35.   alias falcao_addnew_command add_original_commands
    
36.   def add_original_commands
    
37.     add_command('Resolution',   :reso, main_commands_enabled)
    
38.     falcao_addnew_command
    
39.   end
    
40. end
    
41. class Scene_Menu < Scene_MenuBase
    
42.   alias falcao_reso_command create_command_window
    
43.   def create_command_window
    
44.     falcao_reso_command
    
45.     @command_window.set_handler(:reso,     method(:resolution_window))
    
46.   end
    
47. 
    
48.   def resolution_window
    
49.     @commands_reso = Window_ResoCommand.new
    
50.     @commands_reso.set_handler(:normal,    method(:reso_selection))
    
51.     @commands_reso.set_handler(:full,      method(:reso_selection))
    
52.     @commands_reso.set_handler(:cancel,    method(:cancelar))
    
53.   end
    
54. 
    
55.   def reso_selection
    
56.     case @commands_reso.current_symbol
    
57.     when :normal
    
58.       if $game_resolution == 1
    
59.         $game_resolution = 0
    
60.         make_resolution
    
61.       else
    
62.         cancelar ; return
    
63.       end
    
64.     @commands_reso.activate
    
65.     when :full
    
66.       if $game_resolution == 0
    
67.         $game_resolution = 1
    
68.         make_resolution
    
69.       else
    
70.         cancelar ; return
    
71.       end
    
72.       @commands_reso.activate
    
73.     end
    
74.   end
    
75. 
    
76.   def make_resolution
    
77.     FalRes.resolution
    
78.     FalRes.write_decision
    
79.   end
    
80. 
    
81.   def cancelar
    
82.     @commands_reso.dispose
    
83.     @commands_reso = nil
    
84.     @command_window.activate
    
85.   end
    
86. end
    
87. class Window_ResoCommand < Window_Command
    
88.   def initialize
    
89.     super(164, 130)
    
90.     self.openness = 0
    
91.     open
    
92.   end
    
93.   def window_width
    
94.     return 180
    
95.   end
    
96.   def make_command_list
    
97.     add_command('Normal 544x416',     :normal)
    
98.     add_command('Full Screen ',       :full)
    
99.   end
    
100. end

复制代码