【原创】飞吧小鸟！【更新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)

關關難過關關過 · 发表于 2011-11-29 19:21:45

請問有辦法讓他到下一個場景就消失嗎?

各种压力的猫君 · 发表于 2011-11-6 02:02:28

精灵使者发表于 2011-11-5 22:59
猫君求VX版……

移植完成（点我）

精灵使者 · 发表于 2011-11-5 22:59:31

猫君求VX版……

s196050 · 发表于 2011-11-3 08:34:31

本帖最后由 s196050 于 2011-11-3 08:34 编辑

能不能把那松鼠的移动路线在远离主角的时候加几个随机移动否则的话很容易堵到死角去？？

px.凤翔九天 · 发表于 2011-11-3 08:26:08

好猎奇的小鸟脚本...表示fux开始出题考核管理层了吗...

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

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

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

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

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

额，占沙发

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

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

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

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

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

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

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

点评

评分

点评

她只会直线逃跑

点评

点评

点评

浏览过的版块

贵宾

开拓者