【原创】飞吧小鸟！【更新2.0 多种类】

各种压力的猫君 · 发表于 2011-10-22 14:28:18

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

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

x

本帖最后由各种压力的猫君于 2011-11-26 23:52 编辑

这个脚本可以让小鸟在主角一定距离之内飞行，太近会飞远，太远会飞近……
这个就不加1经验了 =v= b
脚本：

#==============================================================================
# ■ 小鸟 2.0 (FOR RMXP) by 各种压力的猫君
#------------------------------------------------------------------------------
# 　小鸟会在主角一定距离之内飞行……
#------------------------------------------------------------------------------
# 使用说明：
# 将本脚本插入Game_Character和Main之间，
# 然后设置小鸟事件的移动路线为：（重复动作）
# ◇脚本：BIRD1（"1"为小鸟的「种类」，可省略；"BIRD"可以在下面自定义）
#------------------------------------------------------------------------------
# 定义小鸟的「种类」，可以设定出不同远近的鸟儿（27行开始）
# 注意：「种类」只可使用整数！
#------------------------------------------------------------------------------
# 2011-11-06 2.0 修改变量名称/类型，现在可以定义多种类的小鸟了。
# 2011-11-03 1.1 更换了一种设置方法，抛弃了开关。
# 2011-10-22 1.0 初版
#==============================================================================
module Bird_Config
# 自定义识别符
SCRIPT_CODE = "BIRD"
# 设置小鸟和主角最近的距离（仅当未定义种类时使用该值）
BIRD_MIN_DISTANCE = 4
# 设置小鸟和主角最远的距离（仅当未定义种类时使用该值）
BIRD_MAX_DISTANCE = 10
end
class Game_Character
#------------------------------------------------------------------------------
# 最近的距离
def bird_min_distance(type)
# 第1种
if type == 1
return 7
# 第2种
elsif type == 2
return 1
end
# 若未设定返回默认值
return Bird_Config::BIRD_MIN_DISTANCE
end
#------------------------------------------------------------------------------
# 最远的距离
def bird_max_distance(type)
# 第1种
if type == 1
return 12
# 第2种
elsif type == 2
return 2
end
# 若未设定返回默认值
return Bird_Config::BIRD_MAX_DISTANCE
end
#------------------------------------------------------------------------------
"┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓"
"┃　　　　　　　　自定义内容到此结束，以下内容请谨慎修改！　　　　　　　　┃"
"┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛"
#--------------------------------------------------------------------------
# ● 移动类型 : 自定义
#--------------------------------------------------------------------------
def move_type_custom
# 如果不是停止中就中断
if jumping? or moving?
return
end
# 如果在移动指令列表最后结束还没到达就循环执行
while @move_route_index < @move_route.list.size
# 获取移动指令
command = @move_route.list[@move_route_index]
# 指令编号 0 号 (列表最后) 的情况下
if command.code == 0
# 选项 [反复动作] 为 ON 的情况下
if @move_route.repeat
# 还原为移动路线的最初索引
@move_route_index = 0
end
# 选项 [反复动作] 为 OFF 的情况下
unless @move_route.repeat
# 强制移动路线的场合
if @move_route_forcing and not @move_route.repeat
# 强制解除移动路线
@move_route_forcing = false
# 还原为原始的移动路线
@move_route = @original_move_route
@move_route_index = @original_move_route_index
@original_move_route = nil
end
# 清除停止计数
@stop_count = 0
end
return
end
# 移动系指令 (向下移动～跳跃) 的情况下
if command.code <= 14
# 命令编号分支
case command.code
when 1 # 向下移动
move_down
when 2 # 向左移动
move_left
when 3 # 向右移动
move_right
when 4 # 向上移动
move_up
when 5 # 向左下移动
move_lower_left
when 6 # 向右下移动
move_lower_right
when 7 # 向左上移动
move_upper_left
when 8 # 向右上
move_upper_right
when 9 # 随机移动
move_random
when 10 # 接近主角
move_toward_player
when 11 # 远离主角
move_away_from_player
when 12 # 前进一步
move_forward
when 13 # 后退一步
move_backward
when 14 # 跳跃
jump(command.parameters[0], command.parameters[1])
end
# 选项 [无视无法移动的情况] 为 OFF 、移动失败的情况下
if not @move_route.skippable and not moving? and not jumping?
return
end
@move_route_index += 1
return
end
# 等待的情况下
if command.code == 15
# 设置等待计数
@wait_count = command.parameters[0] * 2 - 1
@move_route_index += 1
return
end
# 朝向变更系指令的情况下
if command.code >= 16 and command.code <= 26
# 命令编号分支
case command.code
when 16 # 面向下
turn_down
when 17 # 面向左
turn_left
when 18 # 面向右
turn_right
when 19 # 面向上
turn_up
when 20 # 向右转 90 度
turn_right_90
when 21 # 向左转 90 度
turn_left_90
when 22 # 旋转 180 度
turn_180
when 23 # 从右向左转 90 度
turn_right_or_left_90
when 24 # 随机变换方向
turn_random
when 25 # 面向主角的方向
turn_toward_player
when 26 # 背向主角的方向
turn_away_from_player
end
@move_route_index += 1
return
end
# 其它指令的场合
if command.code >= 27
# 命令编号分支
case command.code
when 27 # 开关 ON
$game_switches[command.parameters[0]] = true
$game_map.need_refresh = true
when 28 # 开关 OFF
$game_switches[command.parameters[0]] = false
$game_map.need_refresh = true
when 29 # 更改移动速度
@move_speed = command.parameters[0]
when 30 # 更改移动频度
@move_frequency = command.parameters[0]
when 31 # 移动时动画 ON
@walk_anime = true
when 32 # 移动时动画 OFF
@walk_anime = false
when 33 # 停止时动画 ON
@step_anime = true
when 34 # 停止时动画 OFF
@step_anime = false
when 35 # 朝向固定 ON
@direction_fix = true
when 36 # 朝向固定 OFF
@direction_fix = false
when 37 # 穿透 ON
@through = true
when 38 # 穿透 OFF
@through = false
when 39 # 在最前面显示 ON
@always_on_top = true
when 40 # 在最前面显示 OFF
@always_on_top = false
when 41 # 更改图形
@tile_id = 0
@character_name = command.parameters[0]
@character_hue = command.parameters[1]
if @original_direction != command.parameters[2]
@direction = command.parameters[2]
@original_direction = @direction
@prelock_direction = 0
end
if @original_pattern != command.parameters[3]
@pattern = command.parameters[3]
@original_pattern = @pattern
end
when 42 # 不更改不透明度
@opacity = command.parameters[0]
when 43 # 更改合成方式
@blend_type = command.parameters[0]
when 44 # 演奏 SE
$game_system.se_play(command.parameters[0])
when 45 # 脚本
#==============================================================================
# 如果脚本内容含有识别符，则开始计算鸟的飞行路线
if command.parameters[0].slice(Bird_Config::SCRIPT_CODE) != nil
# 计算距离（公式 by orzfly）
$event_distance = Proc.new{|e1, e2|Math.sqrt((e2.x-e1.x)**2+(e2.y-e1.y)**2)}
# 变量处理
$bird_event_type = command.parameters[0].clone
$bird_event_type.slice!(Bird_Config::SCRIPT_CODE)
# 计算
@bird_distance = $event_distance.call($game_map.events[@event.id.to_i], $game_player)
# 根据种类判断距离
@bird_distance_min = bird_min_distance($bird_event_type.to_i)
@bird_distance_max = bird_max_distance($bird_event_type.to_i)
# 若当前距离在最近距离以内
if @bird_distance <= @bird_distance_min
# 远离主角
move_away_from_player
else
# 若当前距离在最远距离以外
if @bird_distance >= @bird_distance_max
# 接近主角
move_toward_player
# 除此之外的情况
else
# 随机移动
move_random
end
end
else
result = eval(command.parameters[0])
end
#==============================================================================
end
@move_route_index += 1
end
end
end
end

复制代码

范例：

小鸟2.0XP.zip (202.88 KB, 下载次数: 772)

gamedev0001 · 发表于 2011-10-22 15:14:09

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

夜王 · 发表于 2011-10-22 15:20:54

貌似可以用事件做？

暗夜荆棘—佩恩 · 发表于 2011-10-22 16:20:18

这东东不牵强的说真的可以用事件做成。。。

过眼云烟 · 发表于 2011-10-22 17:28:26

嗯，虽然见过还是鼓励一下吧！

fux2 · 发表于 2011-10-22 17:59:03

嗯，不错，就是设置还不太方便，不考虑用事件页设置飞行与行走的行走图么

zzxxaspqw · 发表于 2011-10-24 19:31:41

我很想知道如果用了固定路线的家伙，会不会受这个影响。

gamedev0001 · 发表于 2011-10-28 12:20:28

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

天权地问 · 发表于 2011-10-29 20:04:09

额，占沙发

各种压力的猫君 · 发表于 2011-11-3 05:44:08

本帖最后由各种压力的猫君于 2011-11-3 05:44 编辑

gamedev0001 发表于 2011-10-28 12:20
我想问一下那个小鸟的开关是怎么打开的？

已更新1.1，不需要开关了哦亲~

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

[RMXP发布] 【原创】飞吧小鸟！【更新2.0 多种类】

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

点评

评分

点评

点评

点评

贵宾

开拓者