VA鼠标脚本 6/9 更新 v2.32 by Sion

黑舞嗜 · 发表于 2013-5-1 19:22:50

报告LZ...使用方向行走图脚本以后发现点击事件日过接近最后事件的位置在斜方的话事件不会触发...........上下左右没问题~

黑舞嗜 · 发表于 2013-5-3 13:09:09

汗~上面似乎没写清楚
就是说添加了8方向补丁和8方向行走图脚本以后，点击事件主角自动走到事件旁边的时候，如果是最终站位是在事件的斜面就无法触发事件，求LZ好人做到底，完善一下........

公牛大冒险 · 发表于 2013-5-5 20:53:14

楼主我来报错了这个和图书馆里的技能冷却有冲突了
在鼠标单击同一处时间过久时就会报错……
这种情况偶尔出现……

Mr.红茶 · 发表于 2013-5-18 18:11:17

本帖最后由 Mr.红茶于 2013-5-18 20:17 编辑

鼠标脚本导致跳跃脚本出错了，阁下应如何解决
附上跳跃脚本：

class Game_Map
#--------------------------------------------------------------------------
# ● 计算地图元件ID
#--------------------------------------------------------------------------
def get_tile_id(x, y)
a = data[x, y, 0]
return 0 unless a
a-=2000
map_tile_id_0 = (a >= 0) ? a/48 : (a+593)
map_tile_id_1 = (data[x, y, 1]-2000) / 48
map_tile_id_2 = (data[x, y, 2])
map_tile_id_0 = 0 if map_tile_id_0 == -42 # A
map_tile_id_1 = 0 if map_tile_id_1 == -42 # I
map_tile_id_2 = 0 if map_tile_id_2 == -42 # B～E
# 图块 ID 矫正
map_tile_id_0 = map_tile_id_1 if map_tile_id_1 > 0
unless @events.nil?
for event in @events.values
if event.pos?(x, y) and event.tile_id > 0
# 若是事件使用地图元件，使用该地图元件的ID
map_tile_id_2 = event.tile_id
end
end
end
# 返回 [底层ID, 上层ID]
return [map_tile_id_0, map_tile_id_2]
end
end
class Game_Character < Game_CharacterBase
#--------------------------------------------------------------------------
# ● 获取地图元件ID
#--------------------------------------------------------------------------
def get_map_tile_id(x, y)
return $game_map.get_tile_id(x, y)
end
#--------------------------------------------------------------------------
# ● 判断是否能跳跃
#--------------------------------------------------------------------------
def can_jump?
# 面向与方向键不同时不跳跃
return false if Input.dir4 != @direction
return false if debug_through? # 测试行走(按下Ctrl)时不跳跃
x_f1 = x_f2 = @x
y_f1 = y_f2 = @y
# 计算前两格座标
case @direction
when 2
y_f2 += 2
y_f1 += 1
when 4
x_f2 -= 2
x_f1 -= 1
when 6
x_f2 += 2
x_f1 += 1
when 8
y_f2 -= 2
y_f1 -= 1
end
tile_id_0 = get_map_tile_id(@x, @y) # 获取当前格元件ID
tile_id_1 = get_map_tile_id(x_f1, y_f1) # 获取前一格元件ID
tile_id_2 = get_map_tile_id(x_f2, y_f2) # 获取前两格元件ID
event_1 = $game_map.events_xy(x_f1, y_f1) # 获取前一格事件
event_2 = $game_map.events_xy(x_f2, y_f2) # 获取前两格事件
# 事件判断
if !event_1.empty? # 若前一格有事件
return false if !event_2.empty? # 前两格也有事件则不能跳跃
return check_event_jumpable?(event_1) # 判断是否指定可以跳跃
end
# 前第一格判断
if tile_id_1[1]>1
return false # 前一格的B~E层无法通行时也不能跳跃
elsif $game_map.counter?(x_f1, y_f1)
return false # 前一格为柜台时无法跳跃
end
# 判断面前两格是否相同
return false if tile_id_1 == tile_id_2
return false if tile_id_1 == tile_id_0
# 判断面前一格是否墙壁元件
wall_tile = (89..96).to_a + (105..112).to_a + (121..128).to_a # 获取墙壁元件ID
w_top_tile = (81..88).to_a + (97..104).to_a + (113..120).to_a # 获取墙顶元件ID
return false if wall_tile.include?(tile_id_1[0]) # 前一格为墙壁时无法跳跃
if w_top_tile.include?(tile_id_0[0]) # 若当前格为墙顶
# 前一格非墙顶，而前两格为墙顶时则可以跳跃
if !w_top_tile.include?(tile_id_1[0]) && w_top_tile.include?(tile_id_2[0])
return true
end
end
return false if map_passable?(x_f1, y_f1, @direction) # 前一格能通行时不跳跃
return map_passable?(x_f2, y_f2, @direction) # 判断前两格是否能通行
end
#--------------------------------------------------------------------------
# ● 判断某格的事件是否能跳跃
#--------------------------------------------------------------------------
def check_event_jumpable?(events)
events.each{|event|
return true if event.can_jump?
}
return false
end
#--------------------------------------------------------------------------
# ● 执行跳跃
#--------------------------------------------------------------------------
def do_jump(d=@direction)
# 判断跳跃方向
case d
when 2; jump(0, 2) # 向下跳
when 4; jump(-2, 0) # 向左跳
when 6; jump(2, 0) # 向右跳
when 8; jump(0, -2) # 向上跳
end
end
end
class Game_Event < Game_Character
#--------------------------------------------------------------------------
# ● 判断事件是否能跳跃
#--------------------------------------------------------------------------
def can_jump?
return false if @list[0].code != 108 # 第一个指令不是“注释”时返回 false
return @list[0].parameters[0] == "jumpable"
end
end
class Game_Player < Game_Character
#--------------------------------------------------------------------------
# ● 输入移动处理
#--------------------------------------------------------------------------
alias old_move_by_input move_by_input
def move_by_input
# 不能行动时忽略所有动作
return unless movable?
# 解释器执行时忽略所有动作
return if $game_map.interpreter.running?
d = Input.dir4
if can_jump?# 能够跳跃时
if $game_player.followers.visible # 队伍跟随时
$game_player.followers.gather # 跟随队伍聚集
while !$game_player.followers.gather?
$game_player.followers.update # 跟随队伍刷新
end
# 跟随队员跳跃
$game_player.followers.each{ |follower|
follower.do_jump(d)
}
end
do_jump(d) # 执行跳跃
else
old_move_by_input # 呼叫原有方法
end
end
end

复制代码

Sion · 发表于 2013-5-19 18:42:23

Mr.红茶发表于 2013-5-18 18:11
鼠标脚本导致跳跃脚本出错了，阁下应如何解决
附上跳跃脚本：

改好了
使用时在事件内插入脚本jump_over 触发事件就会跳过去

class Game_Map
#--------------------------------------------------------------------------
# ● 计算地图元件ID
#--------------------------------------------------------------------------
def get_tile_id(x, y)
a = data[x, y, 0]
return 0 unless a
a-=2000
map_tile_id_0 = (a >= 0) ? a/48 : (a+593)
map_tile_id_1 = (data[x, y, 1]-2000) / 48
map_tile_id_2 = (data[x, y, 2])
map_tile_id_0 = 0 if map_tile_id_0 == -42 # A
map_tile_id_1 = 0 if map_tile_id_1 == -42 # I
map_tile_id_2 = 0 if map_tile_id_2 == -42 # B～E
# 图块 ID 矫正
map_tile_id_0 = map_tile_id_1 if map_tile_id_1 > 0
unless @events.nil?
for event in @events.values
if event.pos?(x, y) and event.tile_id > 0
# 若是事件使用地图元件，使用该地图元件的ID
map_tile_id_2 = event.tile_id
end
end
end
# 返回 [底层ID, 上层ID]
return [map_tile_id_0, map_tile_id_2]
end
end
class Game_Character < Game_CharacterBase
#--------------------------------------------------------------------------
# ● 获取地图元件ID
#--------------------------------------------------------------------------
def get_map_tile_id(x, y)
return $game_map.get_tile_id(x, y)
end
#--------------------------------------------------------------------------
# ● 判断是否能跳跃
#--------------------------------------------------------------------------
def can_jump?
# 面向与方向键不同时不跳跃
return false if Input.dir4 != @direction
return false if debug_through? # 测试行走(按下Ctrl)时不跳跃
x_f1 = x_f2 = @x
y_f1 = y_f2 = @y
# 计算前两格座标
case @direction
when 2
y_f2 += 2
y_f1 += 1
when 4
x_f2 -= 2
x_f1 -= 1
when 6
x_f2 += 2
x_f1 += 1
when 8
y_f2 -= 2
y_f1 -= 1
end
tile_id_0 = get_map_tile_id(@x, @y) # 获取当前格元件ID
tile_id_1 = get_map_tile_id(x_f1, y_f1) # 获取前一格元件ID
tile_id_2 = get_map_tile_id(x_f2, y_f2) # 获取前两格元件ID
event_1 = $game_map.events_xy(x_f1, y_f1) # 获取前一格事件
event_2 = $game_map.events_xy(x_f2, y_f2) # 获取前两格事件
# 事件判断
if !event_1.empty? # 若前一格有事件
return false if !event_2.empty? # 前两格也有事件则不能跳跃
return check_event_jumpable?(event_1) # 判断是否指定可以跳跃
end
# 前第一格判断
if tile_id_1[1]>1
return false # 前一格的B~E层无法通行时也不能跳跃
elsif $game_map.counter?(x_f1, y_f1)
return false # 前一格为柜台时无法跳跃
end
# 判断面前两格是否相同
return false if tile_id_1 == tile_id_2
return false if tile_id_1 == tile_id_0
# 判断面前一格是否墙壁元件
wall_tile = (89..96).to_a + (105..112).to_a + (121..128).to_a # 获取墙壁元件ID
w_top_tile = (81..88).to_a + (97..104).to_a + (113..120).to_a # 获取墙顶元件ID
return false if wall_tile.include?(tile_id_1[0]) # 前一格为墙壁时无法跳跃
if w_top_tile.include?(tile_id_0[0]) # 若当前格为墙顶
# 前一格非墙顶，而前两格为墙顶时则可以跳跃
if !w_top_tile.include?(tile_id_1[0]) && w_top_tile.include?(tile_id_2[0])
return true
end
end
return false if map_passable?(x_f1, y_f1, @direction) # 前一格能通行时不跳跃
return map_passable?(x_f2, y_f2, @direction) # 判断前两格是否能通行
end
#--------------------------------------------------------------------------
# ● 判断某格的事件是否能跳跃
#--------------------------------------------------------------------------
def check_event_jumpable?(events)
events.each{|event|
return true if event.can_jump?
}
return false
end
#--------------------------------------------------------------------------
# ● 执行跳跃
#--------------------------------------------------------------------------
def do_jump(d=@direction)
# 判断跳跃方向
case d
when 2; jump(0, 2) # 向下跳
when 4; jump(-2, 0) # 向左跳
when 6; jump(2, 0) # 向右跳
when 8; jump(0, -2) # 向上跳
end
end
end
class Game_Interpreter
def jump_over
d = $game_player.direction
if $game_player.followers.visible # 队伍跟随时
$game_player.followers.gather # 跟随队伍聚集
while !$game_player.followers.gather?
$game_player.followers.update # 跟随队伍刷新
end
# 跟随队员跳跃
$game_player.followers.each{|follower| follower.do_jump(d)}
end
$game_player.do_jump(d) # 执行跳跃
end
end

复制代码

吐槽：这是哪个大神写的脚本啊.....都不带缩进的- -b

hacklanbing · 发表于 2013-5-20 13:35:33

过来支持一下，貌似好像少了一张图片素材！！

Yophs · 发表于 2013-6-2 16:24:02

战斗等操作会很卡。。求解决 @Sion

ai5wei · 发表于 2013-6-10 19:50:26

这个必须有~~~~学习了

liminglun · 发表于 2013-6-15 10:33:36

@sion
问下如何在事件分歧中判断“当鼠标点击时”

good66 · 发表于 2013-6-20 14:31:46

樓主我真的覺得你超強的!好長的程式碼看了都想睡了xd
加油~剛剛套用了一下很好用耶{:2_287:}
我要繼續使用下去

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

[RMVA发布] VA鼠标脚本 6/9 更新 v2.32 by Sion

点评

点评

点评

点评

贵宾