找人转移act横版脚本、

′InjuReㄍ、 · 发表于 2008-6-3 03:00:37

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

yangff · 发表于 2008-6-3 20:17:31

看看，米悬赏，不管 {/gg}

′InjuReㄍ、 · 发表于 2008-6-3 20:28:28

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

yangff · 发表于 2008-6-3 20:32:15

开玩笑的。。。
我试试

雪流星 · 发表于 2008-6-3 21:03:20

以下引用yangff于2008-6-3 12:32:15的发言：
开玩笑的。。。
我试试

做好了發在技術區
我來發布

yangff · 发表于 2008-6-3 21:41:40

做好了
版本：0.1
bug超多（确切地说是极不顺手，特别是连跳系统，按一下就飞天上去了（3连跳 {/gg}）
代码如下（暂时不要发布，希望能有人解决掉这些不是bug的bug）

#代码段1
#==============================================================================
# ■ Game_Character
#------------------------------------------------------------------------------
# 　处理角色的类。本类作为 Game_Player 类与 Game_Event 类的超级类使用。
#==============================================================================
class Game_Character
#--------------------------------------------------------------------------
# ● 向上移动
# turn_ok : 允许当场转向
#--------------------------------------------------------------------------
def move_up(turn_ok = true,act = false)
if passable?(@x, @y-1) # 可通行的场合
turn_up if turn_ok
@y = $game_map.round_y(@y-1)
@real_y = (@y+1)*256
increase_steps if not act
check_event_trigger_touch(@x, @y-1) if act # 是否触发接触事件
@move_failed = false
else # 不可通行的场合
turn_up if turn_ok
check_event_trigger_touch(@x, @y-1) # 是否触发接触事件
@move_failed = true
end
end
#--------------------------------------------------------------------------
# ● 向下移动
# turn_ok : 允许当场转向
#--------------------------------------------------------------------------
def move_down(turn_ok = true,act = false)
if passable?(@x, @y+1) # 可通行的场合
turn_down if turn_ok
@y = $game_map.round_y(@y+1)
@real_y = (@y-1)*256
increase_steps if not act
check_event_trigger_touch(@x, @y-1) if act
@move_failed = false
else # 不可通行的场合
turn_down if turn_ok
check_event_trigger_touch(@x, @y+1) # 是否触发接触事件
@move_failed = true
end
end
end

复制代码

#代码段2
$use = false #脚本开关
$airjump = 2 #空中连跳
$hight = 3
#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================
#==============================================================================
# ■ Game_Player
#------------------------------------------------------------------------------
# 　处理主角的类。事件启动的判定、以及地图的滚动等功能。
# 本类的实例请参考 $game_player。
#==============================================================================
class Game_Player < Game_Character
#--------------------------------------------------------------------------
# ● 常量
#--------------------------------------------------------------------------
CENTER_X = (544 / 2 - 16) * 8 # 画面中央 X 座标 * 8
CENTER_Y = (416 / 2 - 16) * 8 # 画面中央 Y 座标 * 8
#--------------------------------------------------------------------------
# ● 定义实例变量
#--------------------------------------------------------------------------
attr_reader :vehicle_type # 目前乘坐交通工具类型
#--------------------------------------------------------------------------
# ● 初始化对像
#--------------------------------------------------------------------------
def initialize
super
@vehicle_type = -1
@vehicle_getting_on = false # 乘坐交通工具标志
@vehicle_getting_off = false # 离开交通工具标志
@transferring = false # 场所移动标志
@new_map_id = 0 # 目标地图 ID
@new_x = 0 # 目标 X 座标
@new_y = 0 # 目标 Y 座标
@new_direction = 0 # 移动後方向
@walking_bgm = nil # 记忆用行走时 BGM
@line_jp = 0
@cont = 2
end
#--------------------------------------------------------------------------
# ● 方向键移动处理
#--------------------------------------------------------------------------
def move_by_input
if $use == false
return unless movable?
return if $game_map.interpreter.running?
case Input.dir4
when 2; move_down
when 4; move_left
when 6; move_right
when 8; move_up
end
end
if $use and @vehicle_type == -1
return if $game_map.interpreter.running?
if Input.dir4 == 8 and @line_jp <= $airjump
up1
@line_jp += 1
end
@cont -=1
return unless movable?
case Input.dir4
#when 2; move_down
when 4; move_left
when 6; move_right#
#when 8; up1#up1
end
if passable?(@x, @y+1) #and @cont <= 0
move_down(false,true)
check_event_trigger_here([0])
check_event_trigger_there([0,1,2])
@cont = 1
else
if @line_jp > 0
@line_jp = 0
end
end
end
end
def up1
for i in 1..$hight
move_up(false,true)
check_event_trigger_here([0])
check_event_trigger_there([0,1,2])
end
end
end
#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================

复制代码

[/code]

雪流星 · 发表于 2008-6-3 22:20:23

等你做好了PM我

yangff · 发表于 2008-6-3 22:22:46

以下引用snstar2006于2008-6-3 14:20:23的发言：

等你做好了PM我

问题是,不知道怎么做了.
以我的程度,改不下去了 {/gg}

越前リョーマ · 发表于 2008-6-4 01:49:24

希望能有一个完整的版本出现……

yangff · 发表于 2008-6-4 02:38:12

有一个比较严重的问题,事件触发有问题

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

找人转移act横版脚本、

烫烫烫

开拓者

贵宾

第3届短篇游戏大赛主流游戏组亚军

第5届短篇游戏比赛亚军