求帮转成xp自动元件格式

电脑仔

求帮转成xp自动元件格式并把上图的多余的砖地换成下图的砖地



把这个

换成图二的地

kuerlulu

[fold=CACAO 的 save_png(必须)]

1. 
   
2. #==============================================================================
   
3. # ■ Bitmap
   
4. #------------------------------------------------------------------------------
   
5. #   位图的类。所谓位图即表示图像其本身。
   
6. #==============================================================================
   
7. class Bitmap
   
8.   #--------------------------------------------------------------------------
   
9.   # ● 保存成 png 格式
   
10.   #     filename : 文件名
    
11.   #     alpha    : 透明通道有效
    
12.   #--------------------------------------------------------------------------
    
13.   def save_png(filename, alpha = true)
    
14.     sgnt = "\x89PNG\r\n\x1a\n"
    
15.     ihdr = _chunk('IHDR', [width,height,8,(alpha ? 6 : 2),0,0,0].pack('N2C5'))
    
16.     data = []
    
17.     height.times do |y|
    
18.       data << 0
    
19.       width.times do |x|
    
20.         color = self.get_pixel(x, y)
    
21.         data << color.red << color.green << color.blue
    
22.         data << color.alpha if alpha
    
23.       end
    
24.     end
    
25.     idat = _chunk('IDAT', Zlib::Deflate.deflate(data.pack('C*')))
    
26.     iend = _chunk('IEND', "")
    
27.     File.open(filename, 'wb') do |file|
    
28.       file.write(sgnt)
    
29.       file.write(ihdr)
    
30.       file.write(idat)
    
31.       file.write(iend)
    
32.     end
    
33.   end
    
34. private
    
35.   #--------------------------------------------------------------------------
    
36.   # ● チャンクの作成
    
37.   #     name : チャンク名
    
38.   #     data : チャンクデータ
    
39.   #--------------------------------------------------------------------------
    
40.   def _chunk(name, data)
    
41.     return [data.size, name, data, Zlib.crc32(name + data)].pack('NA4A*N')
    
42.   end
    
43. end

复制代码

[/fold]
[fold=主代码]

1. # 2x2 转 3x3
   
2. def conv_2x2_3x3(b)
   
3.   a = Bitmap.new 96, 96 # 3x3
   
4.   a.blt( 0,  0, b, Rect.new( 0,  0, 48, 48))
   
5.   a.blt(48,  0, b, Rect.new(16,  0, 48, 48))
   
6.   a.blt( 0, 48, b, Rect.new( 0, 16, 48, 48))
   
7.   a.blt(48, 48, b, Rect.new(16, 16, 48, 48))
   
8.   return a
   
9. end
   
10. 
    
11. # (动画)自动地图元件(vx/a -> xp) # n 帧数
    
12. def conv_tileset(c, n = 1)
    
13.   w = c.width / n
    
14.   a = Bitmap.new 96 * n, 128 # 3x4xn
    
15.   b = Bitmap.new 64,     64  # 2x2
    
16.   n.times do |x|
    
17.     a.blt(96 * x, 0, c, Rect.new(64 * x, 0, 32, 32))           # A
    
18.     a.fill_rect(96 * x + 32, 0, 32, 32, c.get_pixel(64 * x, 0))# B
    
19.     a.blt(96 * x + 64, 0, c, Rect.new(32, 0, 32, 32))          # C
    
20.     b.blt(0, 0, c, Rect.new(64 * x, 32, 64, 64))               # 2x2
    
21.     a.blt(96 * x, 32, conv_2x2_3x3(b), Rect.new(0, 0, 96, 96)) # combine
    
22.     b.clear
    
23.   end
    
24.   b.dispose
    
25.   return a
    
26. end
    
27. 
    
28. =begin 为了替换"砖块"随手写的【最终目的是装逼+省字数
    
29. class Bitmap
    
30.   def reblt(x, y, b, r)
    
31.     self.fill_rect(x, y, r.width, r.height, Color.new(0, 0, 0, 0))
    
32.     self.blt(x, y, b, r)
    
33.   end
    
34. end
    
35. a = Bitmap.new("di.png")
    
36. b = Bitmap.new("ss.png")
    
37. 3.times do |x|
    
38.   b.reblt(64 * x,  0, a, Rect.new(0, 24, 32, 8))
    
39.   b.reblt(64 * x, 32, a, Rect.new(0, 88, 64, 8))
    
40. end
    
41. #b.save_png("mm.png")
    
42. =end
    
43. 
    
44. conv_tileset(Bitmap.new("mm.png"), 3).save_png("ssss.png")

复制代码

[/fold]
[fold=主代码的食用姿势]
[pre lang="ruby"]conv_tileset(Bitmap.new("文件路径"), 帧数(默认为1)).save_png("输出路径")[/pre]
[/fold]
另外这是我在水区发的一些已经转好的素材和代码

电脑仔

thankyouverymuch

电脑仔

kuerlulu 发表于 2015-4-22 22:39
[fold=主代码的食用姿势]
conv_tileset(Bit ...

帮我看看代码出什么问题了？

电脑仔

kuerlulu 发表于 2015-4-22 22:39
[fold=主代码的食用姿势]
conv_tileset(Bit ...

已经改了，还是有错误

电脑仔

kuerlulu 发表于 2015-4-22 22:39
[fold=主代码的食用姿势]
conv_tileset(Bit ...

转成xp格式.rar (454.13 KB, 下载次数: 60)

2015-5-5 19:11 上传

点击文件名下载附件

怎么改都还是有错，你来看看工程。


为毛打开的时候是这样的呢？

好不容易改好了发现是这样的。

kuerlulu

转成xp格式.zip (626.74 KB, 下载次数: 68)

2015-5-8 11:56 上传

点击文件名下载附件

改好了你自己看