无聊之作 - 天气的雨点反踞齿+新增冰雹天气

3535 · 发表于 2007-4-5 06:29:13

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

我看见那些雨点太假了，忍不住要改改{/tu}
顺便加个冰雹，就改几行代码而已 - -{/gg}
把Item-Cube01放到Pictures下即可{/tp}
使用时在事件输入$game_screen.weather(4, 5, 10)
5是强度可自己定
10是时间可自己定
http://rpg.blue/UP_PIC/200705/Item-Cube01.png

#==============================================================================
# ■ Weather
#------------------------------------------------------------------------------
# 　处理天气的类别。
#==============================================================================
module RPG
class Weather
#--------------------------------------------------------------------------
# ● 初始化物件
#--------------------------------------------------------------------------
def initialize(viewport = nil)
# 天气类型
@type = 0
@max = 0
@ox = 0
@oy = 0
color1 = Color.new(255, 255, 255, 255)
color2 = Color.new(255, 255, 255, 128)
# 雨
@rain_bitmap = Bitmap.new(7, 30)
for i in 0..6
@rain_bitmap.fill_rect(6-i, i*8, 1, 8, color1)
@rain_bitmap.fill_rect(5-i, i*10, 1, 8, color2)
end
# 风
@storm_bitmap = Bitmap.new(34, 64)
for i in 0..31
@storm_bitmap.fill_rect(33-i, i*2, 1, 2, color2)
@storm_bitmap.fill_rect(32-i, i*2, 1, 2, color1)
@storm_bitmap.fill_rect(31-i, i*2, 1, 2, color2)
end
# 雪
@snow_bitmap = Bitmap.new(6, 6)
@snow_bitmap.fill_rect(0, 1, 6, 4, color2)
@snow_bitmap.fill_rect(1, 0, 4, 6, color2)
@snow_bitmap.fill_rect(1, 2, 4, 2, color1)
@snow_bitmap.fill_rect(2, 1, 2, 4, color1)
# 冰雹
@Hail_bitmap = Bitmap.new("Graphics/Pictures/Item-Cube01")
@sprites = []
for i in 1..40
sprite = Sprite.new(viewport)
sprite.z = 1000
sprite.visible = false
sprite.opacity = 0
@sprites.push(sprite)
# for
end
# initialize
end
#--------------------------------------------------------------------------
# ● 设定天气类型
#--------------------------------------------------------------------------
def type=(type)
return if @type == type
@type = type
# 分歧-天气类型
case @type
# 雨
when 1
bitmap = @rain_bitmap
# 风
when 2
bitmap = @storm_bitmap
# 雪
when 3
bitmap = @snow_bitmap
# 冰雹
when 4
bitmap = @Hail_bitmap
# 类型在 1234 以外的场合
else
# bitmap = 空
bitmap = nil
end
for i in 1..40
sprite = @sprites[i]
# 如bitmap非空
if sprite != nil
sprite.visible = (i <= @max)
sprite.bitmap = bitmap
end
end
end
#--------------------------------------------------------------------------
# ● 更新画面
#--------------------------------------------------------------------------
def update
# 如天气类型等于 0 则返回
return if @type == 0
for i in 1..@max
sprite = @sprites[i]
# 如sprite等于空
if sprite == nil
# 中断循环
break
end
# 如天气类型等于 1
if @type == 1
sprite.x -= 2
sprite.y += 16
sprite.opacity -= 8
end
# 如天气类型等于 2
if @type == 2
sprite.x -= 8
sprite.y += 16
sprite.opacity -= 12
end
# 如天气类型等于 3
if @type == 3
sprite.x -= 2
sprite.y += 8
sprite.opacity -= 8
end
# 如天气类型等于 4
if @type == 4
sprite.x -= 3
sprite.y += 15
sprite.opacity -= 8
end
x = sprite.x - @ox
y = sprite.y - @oy
# 如天气图片不透明度小于 64 或 x 小于 -50 或 x 大于 750 或 y 小于 -300 或 y 大于 500
if sprite.opacity < 64 or x < -50 or x > 750 or y < -300 or y > 500
# 图片不透明度x,y,不透明度调整
sprite.x = rand(800) - 50 + @ox
sprite.y = rand(800) - 200 + @oy
sprite.opacity = 255
# if
end
# for
end
#update
end
# class
end
#module
end

复制代码

　　　　　　　　　　　　　　[本贴由雷欧纳德于 2007-5-31 10:12:49 进行了编辑]

3535 · 发表于 2007-4-5 06:29:13

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

我看见那些雨点太假了，忍不住要改改{/tu}
顺便加个冰雹，就改几行代码而已 - -{/gg}
把Item-Cube01放到Pictures下即可{/tp}
使用时在事件输入$game_screen.weather(4, 5, 10)
5是强度可自己定
10是时间可自己定
http://rpg.blue/UP_PIC/200705/Item-Cube01.png

#==============================================================================
# ■ Weather
#------------------------------------------------------------------------------
# 　处理天气的类别。
#==============================================================================
module RPG
class Weather
#--------------------------------------------------------------------------
# ● 初始化物件
#--------------------------------------------------------------------------
def initialize(viewport = nil)
# 天气类型
@type = 0
@max = 0
@ox = 0
@oy = 0
color1 = Color.new(255, 255, 255, 255)
color2 = Color.new(255, 255, 255, 128)
# 雨
@rain_bitmap = Bitmap.new(7, 30)
for i in 0..6
@rain_bitmap.fill_rect(6-i, i*8, 1, 8, color1)
@rain_bitmap.fill_rect(5-i, i*10, 1, 8, color2)
end
# 风
@storm_bitmap = Bitmap.new(34, 64)
for i in 0..31
@storm_bitmap.fill_rect(33-i, i*2, 1, 2, color2)
@storm_bitmap.fill_rect(32-i, i*2, 1, 2, color1)
@storm_bitmap.fill_rect(31-i, i*2, 1, 2, color2)
end
# 雪
@snow_bitmap = Bitmap.new(6, 6)
@snow_bitmap.fill_rect(0, 1, 6, 4, color2)
@snow_bitmap.fill_rect(1, 0, 4, 6, color2)
@snow_bitmap.fill_rect(1, 2, 4, 2, color1)
@snow_bitmap.fill_rect(2, 1, 2, 4, color1)
# 冰雹
@Hail_bitmap = Bitmap.new("Graphics/Pictures/Item-Cube01")
@sprites = []
for i in 1..40
sprite = Sprite.new(viewport)
sprite.z = 1000
sprite.visible = false
sprite.opacity = 0
@sprites.push(sprite)
# for
end
# initialize
end
#--------------------------------------------------------------------------
# ● 设定天气类型
#--------------------------------------------------------------------------
def type=(type)
return if @type == type
@type = type
# 分歧-天气类型
case @type
# 雨
when 1
bitmap = @rain_bitmap
# 风
when 2
bitmap = @storm_bitmap
# 雪
when 3
bitmap = @snow_bitmap
# 冰雹
when 4
bitmap = @Hail_bitmap
# 类型在 1234 以外的场合
else
# bitmap = 空
bitmap = nil
end
for i in 1..40
sprite = @sprites[i]
# 如bitmap非空
if sprite != nil
sprite.visible = (i <= @max)
sprite.bitmap = bitmap
end
end
end
#--------------------------------------------------------------------------
# ● 更新画面
#--------------------------------------------------------------------------
def update
# 如天气类型等于 0 则返回
return if @type == 0
for i in 1..@max
sprite = @sprites[i]
# 如sprite等于空
if sprite == nil
# 中断循环
break
end
# 如天气类型等于 1
if @type == 1
sprite.x -= 2
sprite.y += 16
sprite.opacity -= 8
end
# 如天气类型等于 2
if @type == 2
sprite.x -= 8
sprite.y += 16
sprite.opacity -= 12
end
# 如天气类型等于 3
if @type == 3
sprite.x -= 2
sprite.y += 8
sprite.opacity -= 8
end
# 如天气类型等于 4
if @type == 4
sprite.x -= 3
sprite.y += 15
sprite.opacity -= 8
end
x = sprite.x - @ox
y = sprite.y - @oy
# 如天气图片不透明度小于 64 或 x 小于 -50 或 x 大于 750 或 y 小于 -300 或 y 大于 500
if sprite.opacity < 64 or x < -50 or x > 750 or y < -300 or y > 500
# 图片不透明度x,y,不透明度调整
sprite.x = rand(800) - 50 + @ox
sprite.y = rand(800) - 200 + @oy
sprite.opacity = 255
# if
end
# for
end
#update
end
# class
end
#module
end

复制代码

　　　　　　　　　　　　　　[本贴由雷欧纳德于 2007-5-31 10:12:49 进行了编辑]

魔剑美神 · 发表于 2007-4-5 06:33:29

LZ发个范例上来吧~~

3535 · 发表于 2007-4-5 06:41:11

以下引用魔剑美神于2007-4-4 22:33:29的发言：

LZ发个范例上来吧~~

范例工程 : http://rpg.blue/upload_program/files/Hailweather.rar

魔剑美神 · 发表于 2007-4-5 06:56:21

思路不错~鼓励一下~{/qiang}

有待改进~

莫浪语 · 发表于 2007-4-5 09:33:18

雨点最好搞成一小段上细下粗的，那个默认的太长太大了

九泪 · 发表于 2007-4-5 12:35:12

恩，现在这个区真的开始繁荣了哈～楼主加油～期待看到你更大的进步哟～{/qiang}

亿万星辰 · 发表于 2007-4-5 14:57:16

自制天气......{/pz}

小傻瓜 · 发表于 2007-4-5 20:55:40

提示: 作者被禁止或删除内容自动屏蔽

3535 · 发表于 2007-4-6 01:38:38

小改动{/hx}
# 雨
   @rain_bitmap = Bitmap.new(7, 30)
   for i in 0..6
      @rain_bitmap.fill_rect(6-i, i*8, 1.2, 8, color1)
      @rain_bitmap.fill_rect(5-i, i*10, 1.5, 10, color2)
      @rain_bitmap.fill_rect(7-i, i*5.2, 1.6, 8, color1)
   end

帐号		自动登录	找回密码
密码			注册会员

无聊之作 - 天气的雨点反踞齿+新增冰雹天气

加入我们，或者，欢迎回来。

加入我们，或者，欢迎回来。

浏览过的版块

贵宾