简易天气 - Demo[XP·VX·RGE](Update!)

忧雪の伤

---

预览：

---

范例：
Weather.rar (204.69 KB, 下载次数: 1686)

2011-6-26 10:44 上传

点击文件名下载附件

（For XP）

---

脚本：

1. #==============================================================================
   
2. # ** Weather
   
3. #------------------------------------------------------------------------------
   
4. #   - Version(1.0.06.26).
   
5. #==============================================================================
   
6. 
   
7. class Weather
   
8.   #--------------------------------------------------------------------------
   
9.   MOD = Module.constants.include?('RGE') ? :Frame : :Graphics
   
10.   #--------------------------------------------------------------------------
    
11.   attr_reader('max')
    
12.   attr_accessor('fade')
    
13.   attr_accessor('speed')
    
14.   attr_accessor('direction')
    
15.   #--------------------------------------------------------------------------
    
16.   [:z, :color, :bitmap, :visible].each do |sym|
    
17.     ary = :sprites
    
18.     method = :define_method
    
19.     eval("#{method}('#{sym}='){|#{sym}|@#{ary}.each{|obj|obj.#{sym}=#{sym}}}")
    
20.   end
    
21.   #--------------------------------------------------------------------------
    
22.   #--------------------------------------------------------------------------
    
23.   # * Initialize
    
24.   #--------------------------------------------------------------------------
    
25.   def initialize(arg = 40)
    
26.     @max = arg
    
27.     @speed = 0
    
28.     @sprites = []
    
29.     @fade = false
    
30.     @direction = 0
    
31.     {:width => 640, :height => 480}.each do |sym, var|
    
32.       eval("@#{sym}=#{MOD}.methods.include?('#{sym}')?#{MOD}.#{sym} : #{var}")
    
33.     end
    
34.     @max.times { @sprites.push(Sprite.new) }
    
35.     @sprites.each {|sprite| sprite.x = rand(@width) }
    
36.     @sprites.each {|sprite| sprite.y = -rand(@height) }
    
37.   end
    
38.   #--------------------------------------------------------------------------
    
39.   # * Update
    
40.   #--------------------------------------------------------------------------
    
41.   def update
    
42.     fall
    
43.     revert
    
44.   end
    
45.   #--------------------------------------------------------------------------
    
46.   # * Dispose
    
47.   #--------------------------------------------------------------------------
    
48.   def dispose
    
49.     @sprites.each {|sprite| sprite.dispose }
    
50.   end
    
51.   #--------------------------------------------------------------------------
    
52.   # * Zoom
    
53.   #--------------------------------------------------------------------------
    
54.   def zoom=(zoom)
    
55.     @sprites.each {|sprite| sprite.zoom_x = sprite.zoom_y = zoom }
    
56.   end
    
57.   #--------------------------------------------------------------------------
    
58.   # * Fall
    
59.   #--------------------------------------------------------------------------
    
60.   def fall
    
61.     @sprites.each {|sprite| sprite.y = sprite.y + rand(@speed) + 1 }
    
62.     @sprites.each {|sprite| sprite.x = sprite.x + rand(2) * @direction }
    
63.     return unless @fade
    
64.     @sprites.each do |sprite|
    
65.       opacity = @width - 255
    
66.       sprite.opacity = sprite.y < opacity ? opacity - sprite.y : 0
    
67.     end
    
68.   end
    
69.   #--------------------------------------------------------------------------
    
70.   # * Revert
    
71.   #--------------------------------------------------------------------------
    
72.   def revert
    
73.     @sprites.each  do |sprite|
    
74.       next if sprite.y < @height and sprite.x.between?(0, @width)
    
75.       x = rand(@width)
    
76.       y = -sprite.bitmap.rect.height
    
77.       sprite.x, sprite.y, sprite.opacity = x, y, 255  
    
78.     end
    
79.   end
    
80. end

复制代码

DeathKing

挂了3个系统做兼容啊……还真是辛苦你了。

忧雪の伤

DeathKing 发表于 2011-6-25 20:52
挂了3个系统做兼容啊……还真是辛苦你了。

实际上是在玩RGE的时候写的啦……兼容一直都有研究。方法也很多。


忧雪の伤于2011-6-26 10:46补充以下内容：
更新自顶。

liqunsz

我还以为是旧货复活了呢> < ，不过还是支持雪姐姐wwwww

冰舞蝶恋

有FOR VX 的么..忧雪姐~www

仲秋启明

帮你做个VX范例
Weather.rar (240.21 KB, 下载次数: 368)

2011-6-28 15:46 上传

点击文件名下载附件

越前リョーマ

只能下雪？怎么调用也没看到……

还有个问题，打开菜单后，雪就固定了，而且还在菜单之上，退出后雪没消失。反复几次之前的雪会有部分消失……咳咳

510035021

怎么用嘞，没说明

忧雪の伤

越前リョーマ 发表于 2011-7-1 23:52
只能下雪？怎么调用也没看到……

还有个问题，打开菜单后，雪就固定了，而且还在菜单之上，退出后雪没消失 ...

可以自己改bitmap哦。