RPGVX -> RGE 兼容层【用RGE来运行VX工程】(2011-6-18更新)

zh99998

一箭烂YiJL 发表于 2011-6-11 13:56
最初我是常驻VX，于是我放出几个我写的出来：
1. zh，我电脑那个 dll 无效...= =RGE 的 Bitmap 结构特殊， ...

首先感谢您认真看我的帖子并进行修改

1. DLL那个方式我也表示很不爽...所以也没塞进RGE文件夹里而是丢在外面，准备换的，你这个帮了我大忙了
不过RGE还有个Bitmap.mem_new可以直接从内存地址读bitmap，然后字符串里也有个获取内存地址的方法，如果可能的话试试不使用临时文件？

2.字体阴影我挂了一个XP的，效果可以，只是跟VX不完全相同就是了

3.thanks

4.修正按键的话，ABC应该读注册表的，所有RMVX游戏共用那一套，读注册表的函数在RTP那个里面有，可以用一下

一箭烂YiJL

zh99998 发表于 2011-6-11 14:42
首先感谢您认真看我的帖子并进行修改

1. DLL那个方式我也表示很不爽...所以也没塞进RGE文件夹里而是丢在 ...

表示用字符串的方法之后读取有点问题= =，用 RtlMoveMemory 来取内存的，
先是有关这个函数的用法：http://rpg.blue/blog-115768-8486.html(前部分)

然后我偶尔发现了它的指针位置是 object_id * 2 偏移 12 的，比如：

1. RtlMoveMemory_pi = Win32API.new("kernel32", "RtlMoveMemory", "pii", "i")
   
2. zh = "zh99998"
   
3. address = "xxxx"
   
4. RtlMoveMemory_pi.call(address, zh.object_id * 2 + 12, address.size)
   
5. address = address.unpack("L")[0]   # 这个就是内存位置的开头
   
6. buff = " " * zh.size               # 将成为 "zh99998" 的复制本
   
7. RtlMoveMemory_pi.call(buff, address, zh.size)
   
8. p buff

复制代码

但是一旦用了在 Bitmap.mem_new 出错，我也不知道为啥~...这个加载办法我还是第一次尝试的。

david50407

zh99998 发表于 2011-6-11 14:42
首先感谢您认真看我的帖子并进行修改

1. DLL那个方式我也表示很不爽...所以也没塞进RGE文件夹里而是丢在 ...

自己刻的Shadow 应该VX一样

1. class Font
   
2.   #設定預設值
   
3.   @default_shadow = true
   
4.   @shadow = @default_shadow
   
5.   def default_shadow
   
6.     @default_shadow = true if @default_shadow == nil
   
7.     return @default_shadow
   
8.   end
   
9.   def default_shadow=(shadow)
   
10.     @default_shadow = shadow
    
11.   end
    
12.   def shadow
    
13.     @shadow = self.default_shadow if @shadow == nil
    
14.     return @shadow
    
15.   end
    
16.   def shadow=(shadow)
    
17.     @shadow = shadow
    
18.   end
    
19. end
    
20. 
    
21. class Bitmap
    
22.   if $bitmap_drawtext_wrote == nil
    
23.     alias old_draw_text draw_text
    
24.     $bitmap_drawtext_wrote = true
    
25.   end
    
26.   def draw_text(*args)
    
27.     shadow = false
    
28.     shadow = true if (self.font.shadow == true)
    
29.     if args.size < 4
    
30.       args[2] = 0 if args.size == 2
    
31.       if shadow == true
    
32.         args[0].x += 1
    
33.         args[0].y += 1
    
34.         color = Color.new(self.font.color.red, self.font.color.green, self.font.color.blue, self.font.color.alpha)
    
35.         self.font.color.set(0, 0, 0, self.font.color.alpha)
    
36.         old_draw_text(args[0], args[1], args[2])
    
37.         args[0].x -= 1
    
38.         args[0].y -= 1
    
39.         self.font.color = color
    
40.       end
    
41.       old_draw_text(args[0], args[1], args[2])
    
42.     else
    
43.       self.font.shadow = false
    
44.       args[5] = 0 if args.size == 5
    
45.       if shadow == true
    
46.         args[0] += 1
    
47.         args[1] += 1
    
48.         color = Color.new(self.font.color.red, self.font.color.green, self.font.color.blue, self.font.color.alpha)
    
49.         self.font.color.set(0, 0, 0, self.font.color.alpha)
    
50.         old_draw_text(args[0], args[1], args[2], args[3], args[4], args[5])
    
51.         args[0] -= 1
    
52.         args[1] -= 1
    
53.         self.font.color = color
    
54.       end
    
55.       old_draw_text(args[0], args[1], args[2], args[3], args[4], args[5])
    
56.       self.font.shadow = true
    
57.     end
    
58.   end
    
59. end

复制代码

Bitmap#blur

1. #===============================================================#
   
2. #   ●RGSS2_bitmap_xp ver 1.02
   
3. #===============================================================#
   
4. class Bitmap
   
5.    
   
6. def blur(times=1,during =1,blur=1)
   
7.    #blur（重做模糊次数，经历帧数，分散半径）
   
8.    for i in 1..times
   
9.      blur_r(blur)
   
10.      for j in 1..during
    
11.        Graphics.update if i > 1 and during >1
    
12.      end     
    
13.    end   
    
14. end
    
15. #----------------------------------------------------------------
    
16. def blur_r(radius = 2)
    
17.     #blur_r（分散半径）
    
18.     radius = 1 if radius <= 1 or radius == nil #值的修正
    
19.     src_bitmap = self
    
20.     rect = self.rect
    
21.    
    
22.     ta_l = 1+radius*2
    
23.     ta = Table.new(ta_l,ta_l)  #过滤器
    
24. 
    
25.     for i in 0..ta_l-1
    
26.       for j in 0..ta_l-1
    
27.         ta[i,j] = 1
    
28.       end
    
29.     end
    
30. 
    
31.       ta[((ta.xsize+1)/2)-1,((ta.xsize+1)/2)-1] = 2**(1+radius)
    
32.       main = ta[((ta.xsize+1)/2)-1,((ta.xsize+1)/2)-1]#找到中心点
    
33. 
    
34.       nn = 2;j = ((ta.xsize+1)/2)-1;line =[]#主干道
    
35.       for i in 0..((ta.xsize+1)/2)-2
    
36.         ta[i,j] = nn
    
37.         ta[j,i] = nn
    
38.         ta[ta.xsize-1-i,j] = nn
    
39.         ta[j,ta.xsize-1-i] = nn
    
40.         line.push ta[i,((ta.xsize+1)/2)-1]
    
41.         nn = nn * 2
    
42.       end
    
43.    
    
44.     for j in 0..line.size-1
    
45.        for i in 0..((ta.xsize+1)/2)-2
    
46.         line[j] = line[j]/2
    
47.         if line[j] == 1
    
48.           break
    
49.         else
    
50.           ta[((ta.xsize+1)/2)-2-i,j] = line[j]
    
51.           ta[((ta.xsize+1)/2)+i,j] = line[j]
    
52.           ta[((ta.xsize+1)/2)-2-i,ta.xsize-1-j] = line[j]
    
53.           ta[((ta.xsize+1)/2)+i,ta.xsize-1-j] = line[j]
    
54.         end
    
55.       end
    
56.     end
    
57.     key_a = [];key_p = main
    
58.     for i in 1..main
    
59.       if key_p == 1
    
60.         key_a.push main
    
61.         break
    
62.       else
    
63.       key_p = key_p/2
    
64.       key_a.push key_p
    
65.       end
    
66.     end
    
67.     key_k = 0
    
68.     for i in 0..key_a.size-1
    
69.       key_k = key_k + key_a[i]
    
70.     end
    
71.     key = 255/key_k
    
72.     key = 1 if key <= 0  #值的修正
    
73. 
    
74.    for i in 0..ta.xsize-1
    
75.         for j in 0..ta.ysize-1
    
76.             key_main = key*ta[i,j]
    
77.             key_main = 255 if key_main > 255 ; key_main = 1 if key_main < 0  #值的修正
    
78.             self.blt(i-(((ta.xsize+1)/2)-1),j-(((ta.xsize+1)/2)-1),src_bitmap,rect,key_main)
    
79.         end
    
80.     end
    
81.   end
    
82. end  
    

复制代码

一箭烂YiJL

david50407 发表于 2011-6-11 16:27
自己刻的Shadow 应该VX一样Bitmap#blur

其实 @default_shadow 应否用类变量呢？(貌似会省下一些内存...不知道= =)
Bitmap 貌似是这个：

1. http://rpg.blue/article-40940.html

复制代码

是吗？

Bitmap.mem_new 不知为啥会出错，看 12 楼那个无误获取字符串内存地址的办法，
我(Vista)出错，RGE::BaseError   Create bitmap error with(Address:0x???????, Length:905216)，
脚本如下(呼叫zh来看= =)：

1. #==============================================================================
   
2. # ■ Graphics
   
3. #------------------------------------------------------------------------------
   
4. # 　进行有关全体图像处理的模块。
   
5. #   RGE 的 Graphics.snap_to_bitmap。(和 XP 版有分别)
   
6. #==============================================================================
   
7. module Graphics
   
8.   #--------------------------------------------------------------------------
   
9.   # ● API 函数
   
10.   #--------------------------------------------------------------------------
    
11.   CreateDC = Win32API.new("gdi32", "CreateDC", "pppl", "l")
    
12.   CreateCompatibleBitmap = Win32API.new("gdi32", "CreateCompatibleBitmap", "lll", "l")
    
13.   CreateCompatibleDC = Win32API.new("gdi32", "CreateCompatibleDC", "l", "l")
    
14.   SelectObject = Win32API.new("gdi32", "SelectObject", "ll", "l")
    
15.   BitBlt = Win32API.new("gdi32", "BitBlt", "lllllllll", "l")
    
16.   GetBitmapBits = Win32API.new("gdi32", "GetBitmapBits", "llp", "l")
    
17.   ScreenToClient = Win32API.new("user32", "ScreenToClient", "ip", "i")
    
18.   DeleteDC = Win32API.new("gdi32", "DeleteDC", "l", "l")
    
19.   DeleteObject = Win32API.new("gdi32", "DeleteObject", "l", "l")
    
20.   SRCCOPY = 0xCC0020
    
21.   RtlMoveMemory_pi = Win32API.new("kernel32", "RtlMoveMemory", "pii", "i")
    
22.   HWnd = Win32API.new("user32", "GetActiveWindow", nil, 'l').call
    
23.   DwCount = (Frame.width * Frame.height * 4)# * 2
    
24.   @@lpBits = "\000" * DwCount
    
25.   #--------------------------------------------------------------------------
    
26.   # ● snap_to_bitmap (RGE版)
    
27.   #--------------------------------------------------------------------------
    
28.   def self.snap_to_bitmap
    
29.     hScrDC = CreateDC.call("DISPLAY", "", "", 0)
    
30.     hMemDC = CreateCompatibleDC.call(hScrDC)
    
31.     hBitmap = CreateCompatibleBitmap.call(hScrDC, width, height)
    
32.     hOldBitmap = SelectObject.call(hMemDC, hBitmap)
    
33.     win_pos = "\0\0\0\0\0\0\0\0"
    
34.     ScreenToClient.call(HWnd, win_pos)
    
35.     win_pos = win_pos.unpack("LL")
    
36.     BitBlt.call(hMemDC, win_pos[0], win_pos[1], width*2, height*2, hScrDC, 0, 0, SRCCOPY)
    
37.     hBitmap2 = SelectObject.call(hMemDC, hOldBitmap)
    
38.     GetBitmapBits.call(hBitmap2, DwCount, @@lpBits)
    
39.     # 释放所有东西
    
40.     DeleteDC.call(hScrDC)
    
41.     DeleteDC.call(hMemDC)
    
42.     DeleteObject.call(hBitmap)
    
43.     DeleteObject.call(hOldBitmap)
    
44.     DeleteObject.call(hBitmap2)
    
45.     rgbs = @@lpBits
    
46.     len = width * 4
    
47.     for y in 0...height
    
48.       break if 2 * y >= height - 1
    
49.       nth1 = y * len
    
50.       nth2 = (height - 1 - y) * len
    
51.       tStr = rgbs[nth1,len]
    
52.       rgbs[nth1, len] = rgbs[nth2, len]
    
53.       rgbs[nth2, len] = tStr
    
54.     end
    
55.     # 找 String 的内存地址
    
56.     rgbs_address = "xxxx"    # 分配指针 4 个字节
    
57.     RtlMoveMemory_pi.call(rgbs_address, rgbs.object_id * 2 + 12, 4)
    
58.     rgbs_address = rgbs_address.unpack("L")[0]
    
59.     bitmap = Bitmap.mem_new(rgbs_address, Frame.width * Frame.height * 4)
    
60.     return bitmap
    
61.   end
    
62. end

复制代码

一箭烂YiJL

连个帖，发布完成了的(话说zh你的头像....)：

1. #==============================================================================
   
2. # ■ Graphics
   
3. #------------------------------------------------------------------------------
   
4. # 　进行有关全体图像处理的模块。
   
5. #   RGE 的 Graphics.snap_to_bitmap。(RGE版)
   
6. #==============================================================================
   
7. module Graphics
   
8.   #--------------------------------------------------------------------------
   
9.   # ● API 函数
   
10.   #--------------------------------------------------------------------------
    
11.   CreateDC = Win32API.new("gdi32", "CreateDC", "pppl", "l")
    
12.   CreateCompatibleBitmap = Win32API.new("gdi32", "CreateCompatibleBitmap", "lll", "l")
    
13.   CreateCompatibleDC = Win32API.new("gdi32", "CreateCompatibleDC", "l", "l")
    
14.   SelectObject = Win32API.new("gdi32", "SelectObject", "ll", "l")
    
15.   BitBlt = Win32API.new("gdi32", "BitBlt", "lllllllll", "l")
    
16.   GetBitmapBits = Win32API.new("gdi32", "GetBitmapBits", "llp", "l")
    
17.   ScreenToClient = Win32API.new("user32", "ScreenToClient", "ip", "i")
    
18.   DeleteDC = Win32API.new("gdi32", "DeleteDC", "l", "l")
    
19.   DeleteObject = Win32API.new("gdi32", "DeleteObject", "l", "l")
    
20.   HWnd = Win32API.new("user32", "GetActiveWindow", nil, 'l').call
    
21.   DwCount = (Frame.width * Frame.height * 4)# * 2
    
22.   #--------------------------------------------------------------------------
    
23.   # ● 值
    
24.   #--------------------------------------------------------------------------
    
25.   @@lpBits = "\000" * DwCount
    
26.   SRCCOPY = 0xCC0020
    
27.   #--------------------------------------------------------------------------
    
28.   # ● snap_to_bitmap (RGE版)
    
29.   #--------------------------------------------------------------------------
    
30.   def self.snap_to_bitmap
    
31.     hScrDC = CreateDC.call("DISPLAY", "", "", 0)
    
32.     hMemDC = CreateCompatibleDC.call(hScrDC)
    
33.     hBitmap = CreateCompatibleBitmap.call(hScrDC, width, height)
    
34.     hOldBitmap = SelectObject.call(hMemDC, hBitmap)
    
35.     win_pos = "\0\0\0\0\0\0\0\0"
    
36.     ScreenToClient.call(HWnd, win_pos)
    
37.     win_pos = win_pos.unpack("LL")
    
38.     BitBlt.call(hMemDC, win_pos[0], win_pos[1], width*2, height*2, hScrDC, 0, 0, SRCCOPY)
    
39.     hBitmap2 = SelectObject.call(hMemDC, hOldBitmap)
    
40.     GetBitmapBits.call(hBitmap2, DwCount, @@lpBits)
    
41.     # 释放所有东西
    
42.     DeleteDC.call(hScrDC)
    
43.     DeleteDC.call(hMemDC)
    
44.     DeleteObject.call(hBitmap)
    
45.     DeleteObject.call(hOldBitmap)
    
46.     DeleteObject.call(hBitmap2)
    
47.     rgbs = @@lpBits
    
48.     len = width * 4
    
49.     for y in 0...height
    
50.       break if 2 * y >= height - 1
    
51.       nth1 = y * len
    
52.       nth2 = (height - 1 - y) * len
    
53.       tStr = rgbs[nth1,len]
    
54.       rgbs[nth1, len] = rgbs[nth2, len]
    
55.       rgbs[nth2, len] = tStr
    
56.     end
    
57.     size = 54 + Frame.width * Frame.height * 4
    
58.     chunk1 = "BM" + [size].pack("L") + "\0\0\0\0\x36\0\0\0"
    
59.     chunk2 = "\x28\0\0\0" + [Frame.width, Frame.height].pack("L2") +
    
60.     "\1\0\x20\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
    
61.     rgbs = chunk1 + chunk2 + rgbs
    
62.     bitmap = Bitmap.mem_new(rgbs.maddr, rgbs.size)
    
63.     return bitmap
    
64.   end
    
65. end

复制代码

zh99998

6-18更新，感谢一箭烂YiJL 更新内容见顶楼

零度

有buy没处说，冒着被扣分的危险还是提交吧，想用点评的  但点评中只出现了一小部分文字，多余文字被系统屏蔽了？
在选择 新的游戏 后 标题换面并没有一下转到游戏地图（就是能控制小人在地图上来回跑的页面） 而是 文字消失了 延缓了一下才 转到开始页面