请问有没有RPG XP 的仓库脚本以及全屏脚本？

torysir

现在需要一个仓库脚本，
本人做了前缀系统和附魔系统，然后卖东西太麻烦，有些装备要囤起来，然后因为前缀系统是push的性质，所以背包东西多了会特别卡顿，
所以我的玩家向我提出了需要一个仓库脚本，我写了很多次，也参考了很多东西，还是觉得有问题……写不下去了……

还有我改了游戏的默认分辨率，现在是800*600 但是全屏以后下面的画面会丢失，请问有没有全屏的脚本？

torysir

torysir

{:4_113:}

enghao_lim

不要顶贴了……
仓库脚本你要是稍微往下滚就会看到：https://rpg.blue/thread-486514-1-1.html
至于全屏的使用搜索应该还是搜得到得，这玩意不是什么稀有脚本。

torysir

enghao_lim 发表于 2021-10-28 23:01
不要顶贴了……
仓库脚本你要是稍微往下滚就会看到：https://rpg.blue/thread-486514-1-1.html
至于全屏的 ...

亲，改了分辨率，全屏的脚本用了很多下面都无法显示呢 ，默认是640*480的 全屏以后也就显示了640*480的区域呢

torysir

enghao_lim 发表于 2021-10-28 23:01
不要顶贴了……
仓库脚本你要是稍微往下滚就会看到：https://rpg.blue/thread-486514-1-1.html
至于全屏的 ...

亲亲，那么怎么才能改EXE呢

torysir

enghao_lim 发表于 2021-10-28 23:01
不要顶贴了……
仓库脚本你要是稍微往下滚就会看到：https://rpg.blue/thread-486514-1-1.html
至于全屏的 ...

感谢感谢，我查了很多，主要是要反编译game.exe那个执行程序才行，
设计到VB和C语言，那个不懂，没办法拉

RPGzh500223

全屏……很早以前游戏是直接修改显示器的分辨率来全屏，现在的话，没玩过什么游戏，反正我试了RMVA，直接修改该游戏窗口的分辨率即可。
说明：以下脚本是修改显示器分辨率的，按F5全屏切换。（如果和ALT+ENTER混用造成显示不正常，连按2次F5或ALT+ENTER）
BUG:全屏后，万一其他程序弹窗什么的，效果……。其他程序的窗口分辨率会被限制成此时显示器的分辨率大小(比如浏览器1000*1000，用了该脚本全屏后,浏览器只有800*600了)

如果能找人改exe或找到有关的dll，请勿使用此脚本。这是我不得己的办法，因为前2个我不会……

1. 
   
2. module RGSS_PLAYER
   
3.   GetForegroundWindow = Win32API.new('user32', 'GetForegroundWindow', 'V', 'L')
   
4.   GetWndThrProID = Win32API.new('user32', 'GetWindowThreadProcessId', 'LP','L')
   
5.   GetCurrentThreadID = Win32API.new('kernel32', 'GetCurrentThreadId', 'V', 'L')  
   
6.   FindWindowEx = Win32API.new('user32', 'FindWindowEx', 'LLPP', 'L')
   
7.   
   
8.   ThreadID = GetCurrentThreadID.call()
   
9.   hwnd = GetForegroundWindow.call()
   
10.   while GetWndThrProID.call(hwnd, nil) != ThreadID
    
11.     hwnd = FindWindowEx.call(0, hwnd, "RGSS Player", nil)
    
12.   end
    
13.   HWnd = hwnd
    
14. end
    
15. 
    
16. module FullScreen
    
17. 
    
18.   # 必须得设备支持，比如 800 * 600，1024 * 768 ……
    
19.   FullScreen_W = 800
    
20.   FullScreen_H = 600
    
21.   #--------------------------------------------------------------------------
    
22.   # ● API
    
23.   #--------------------------------------------------------------------------
    
24.   GetSystemMetrics = Win32API.new('user32', 'GetSystemMetrics', 'I', 'I')
    
25.   GetWindowLongA = Win32API.new('user32', 'GetWindowLongA', 'LI', 'L')
    
26.   SetWindowLongA = Win32API.new('user32', 'SetWindowLongA', 'LIL', 'L')
    
27.   EnumDS = Win32API.new('user32', 'EnumDisplaySettings', 'PLP', 'I')
    
28.   ChangeDS = Win32API.new('user32', 'ChangeDisplaySettings', 'PL', 'L')
    
29.   GetWndPlacement = Win32API.new('user32', 'GetWindowPlacement', 'LP', 'I')
    
30.   SetWndPlacement = Win32API.new('user32', 'SetWindowPlacement', 'LP', 'I')
    
31.   #--------------------------------------------------------------------------
    
32.   # ● 常量
    
33.   #--------------------------------------------------------------------------
    
34.   SM_CXSCREEN = 0
    
35.   SM_CYSCREEN = 1
    
36.   
    
37.   WS_BORDER = 0x800_000
    
38.   WS_DLGFRAME = 0x400_000
    
39.   WS_SYSMENU = 0x80_000
    
40.   
    
41.   GWL_STYLE = -16
    
42.   
    
43.   ENUM_CURRENT_SETTINGS = -1
    
44.   
    
45.   # 个人自定义的常量
    
46.   DEVOMODE_FLAG = "A32S4L5s5A32SL*"
    
47.   
    
48.   DM_PW_INDEX = 18
    
49.   DM_PH_INDEX = 19
    
50.   
    
51.   ScreenW = GetSystemMetrics.call(SM_CXSCREEN)
    
52.   ScreenH = GetSystemMetrics.call(SM_CYSCREEN)
    
53.   buf = "\0" * 220
    
54.   EnumDS.call(nil, ENUM_CURRENT_SETTINGS, buf)
    
55.   CurrentDS = buf.unpack(DEVOMODE_FLAG)
    
56. 
    
57.   ChangeWS = WS_BORDER | WS_SYSMENU | WS_DLGFRAME
    
58.   HWnd = RGSS_PLAYER::HWnd
    
59.   BaseWS = GetWindowLongA.call(HWnd, GWL_STYLE)
    
60.   
    
61.   W_Sub = ScreenW - FullScreen_W
    
62.   H_Sub = ScreenH - FullScreen_H
    
63.   
    
64.   # 记录全屏状态的变量
    
65.   @@full = 0
    
66.   @@wndpt = "\0" * 44
    
67.   #--------------------------------------------------------------------------
    
68.   # ● 全屏化切换
    
69.   #    bWork: (0 => 表示退出; 1 => 表示运行) 保证退出游戏时，屏幕分辨率正确
    
70.   #--------------------------------------------------------------------------
    
71.   def self.turn(bWork = 1)
    
72.     @@full = (@@full - 1) & bWork
    
73.     CurrentDS[DM_PW_INDEX] = ScreenW - W_Sub * @@full
    
74.     CurrentDS[DM_PH_INDEX] = ScreenH - H_Sub * @@full   
    
75.     ChangeDS.call(CurrentDS.pack(DEVOMODE_FLAG), 0)
    
76.     SetWindowLongA.call(HWnd, GWL_STYLE, BaseWS ^ (ChangeWS * @@full))
    
77.     if @@full == 1
    
78.       GetWndPlacement.call(HWnd, @@wndpt)
    
79.       wndpt = @@wndpt.unpack('I3l8')
    
80.       wndpt[1], wndpt[2] = 2, 3
    
81.       SetWndPlacement.call(HWnd, wndpt.pack('I3l8'))
    
82.       return
    
83.     end
    
84.     SetWndPlacement.call(HWnd, @@wndpt)
    
85.   end
    
86. end
    
87. 
    
88. module Input
    
89.   class << self
    
90.     alias ori_update update unless method_defined?(:ori_update)
    
91.     def update
    
92.       ori_update
    
93.       if self.trigger?(F5)
    
94.         FullScreen.turn
    
95.         return
    
96.       end
    
97.     end
    
98.   end
    
99. end
    
100. 
     
101. #==============================================================================
     
102. # ■ Main
     
103. #------------------------------------------------------------------------------
     
104. # 　各定义结束后、从这里开始实际处理。
     
105. #==============================================================================
     
106. 
     
107. begin
     
108.   # 准备过渡
     
109.   # 设置系统默认字体
     
110.   Font.default_name = (["黑体"])
     
111.   Graphics.freeze
     
112.   # 生成场景对像 (标题画面)
     
113.   $scene = Scene_Title.new
     
114.   # $scene 为有效的情况下调用 main 过程
     
115.   while $scene != nil
     
116.     $scene.main
     
117.   end
     
118.   # 淡入淡出
     
119.   Graphics.transition(20)
     
120. rescue Errno::ENOENT
     
121.   # 补充 Errno::ENOENT 以外错误
     
122.   # 无法打开文件的情况下、显示信息后结束
     
123.   filename = $!.message.sub("No such file or directory - ", "")
     
124.   print("找不到文件 #{filename}。 ")
     
125. ensure
     
126.   FullScreen.turn(0)
     
127. end
     

复制代码

enghao_lim

RPGzh500223 发表于 2021-11-4 14:23
全屏……很早以前游戏是直接修改显示器的分辨率来全屏，现在的话，没玩过什么游戏，反正我试了RMVA，直接修 ...

我回复在这里好了……
Win32Api就是在调用DLL……只是user32, kernel都是window自带，如果用了自己的DLL，换成该dll名字就行了……

torysir

enghao_lim 发表于 2021-11-4 19:24
我回复在这里好了……
Win32Api就是在调用DLL……只是user32, kernel都是window自带，如果用了自 ...

我用了那个获取句柄的，还是不能全屏呢