简易的ACT最终修正版

yangff

注意，必须做以下工作：

更改移动速度为5或更高

频率为4或更高


这是本系统的最后一次修正.
严重的问题都已经纠正.
但是手感问题比较严重.
请下载范例,不提供无聊问题的答案,不要问如怎么用这类的问题
可爱的范例：http://rpg.blue/upload_program/files/ACT1_93371328.rar
脚本内容：
ACT0.3Program
〉Main
   

1. $use = false #脚本开关
   
2. $airjump = 2  #空中连跳
   
3. $hight = 3
   
4. #==============================================================================
   
5. # 本脚本来自www.66RPG.com，使用和转载请保留此信息
   
6. #==============================================================================
   
7. #==============================================================================
   
8. # ■ Game_Player
   
9. #------------------------------------------------------------------------------
   
10. # 　处理主角的类。事件启动的判定、以及地图的滚动等功能。
    
11. # 本类的实例请参考 $game_player。
    
12. #==============================================================================
    
13. 
    
14. class Game_Player < Game_Character
    
15.   #--------------------------------------------------------------------------
    
16.   # ● 常量
    
17.   #--------------------------------------------------------------------------
    
18.   CENTER_X = (544 / 2 - 16) * 8     # 画面中央 X 座标 * 8
    
19.   CENTER_Y = (416 / 2 - 16) * 8     # 画面中央 Y 座标 * 8
    
20.   #--------------------------------------------------------------------------
    
21.   # ● 定义实例变量
    
22.   #--------------------------------------------------------------------------
    
23.   attr_reader   :vehicle_type       # 目前乘坐交通工具类型
    
24.   #--------------------------------------------------------------------------
    
25.   # ● 初始化对像
    
26.   #--------------------------------------------------------------------------
    
27.   def initialize
    
28.     super
    
29.     @vehicle_type = -1
    
30.     @vehicle_getting_on = false     # 乘坐交通工具标志
    
31.     @vehicle_getting_off = false    # 离开交通工具标志
    
32.     @transferring = false           # 场所移动标志
    
33.     @new_map_id = 0                 # 目标地图 ID
    
34.     @new_x = 0                      # 目标 X 座标
    
35.     @new_y = 0                      # 目标 Y 座标
    
36.     @new_direction = 0              # 移动後方向
    
37.     @walking_bgm = nil              # 记忆用行走时 BGM
    
38.     @line_jp = 0
    
39.     @cont = 2
    
40.     @upcont = 0
    
41.   end
    
42. 
    
43.   #--------------------------------------------------------------------------
    
44.   # ● 方向键移动处理
    
45.   #--------------------------------------------------------------------------
    
46.   def move_by_input
    
47.     if @upcont > 0
    
48.       move_up(false,true)
    
49.       @upcont -= 1
    
50.     end
    
51.     if $use == false
    
52.       return unless movable?
    
53.       return if $game_map.interpreter.running?
    
54.       case Input.dir4
    
55.         when 2;  move_down
    
56.         when 4;  move_left
    
57.         when 6;  move_right
    
58.         when 8;  move_up
    
59.       end
    
60.     end
    
61.     if $use and @vehicle_type == -1
    
62.       return if $game_map.interpreter.running?
    
63.       
    
64.       @cont -=1  
    
65.       return unless movable?
    
66.       if Input.dir4 == 8 and @line_jp <= $airjump
    
67.         up1
    
68.         @line_jp += 1
    
69.       end
    
70.       case Input.dir4
    
71.         #when 2;  move_down
    
72.         when 4;  move_left
    
73.         when 6;  move_right#
    
74.         
    
75.         #when 8;  up1#up1
    
76.       end
    
77.       
    
78.       if passable?(@x, @y+1) #and @cont <= 0
    
79.         move_down(false,true)
    
80.         check_event_trigger_here([0])
    
81.         check_event_trigger_there([0,1,2])
    
82.         @cont = 1
    
83.       else
    
84.         if @line_jp > 0
    
85.           @line_jp = 0
    
86.         end
    
87.       end
    
88. 
    
89.     end
    
90.    
    
91.   end
    
92.     def up1
    
93.       
    
94.       #for i in 1..$hight
    
95.             
    
96.           #  check_event_trigger_here([0])
    
97.           #  check_event_trigger_there([0,1,2])
    
98.        #   end
    
99.        @upcont = $hight
    
100. 
     
101.   end
     
102. #  def popbomb
     
103. #   
     
104. #  end
     
105. end
     
106. #==============================================================================
     
107. # 本脚本来自www.66RPG.com，使用和转载请保留此信息
     
108. #==============================================================================

复制代码

〉Edit
   

1. #==============================================================================
   
2. # ■ Game_Character
   
3. #------------------------------------------------------------------------------
   
4. # 　处理角色的类。本类作为 Game_Player 类与 Game_Event 类的超级类使用。
   
5. #==============================================================================
   
6. 
   
7. class Game_Character
   
8.   #--------------------------------------------------------------------------
   
9.   # ● 向上移动
   
10.   #     turn_ok : 允许当场转向
    
11.   #--------------------------------------------------------------------------
    
12.   def move_up(turn_ok = true,act = false)
    
13.     if passable?(@x, @y-1)                  # 可通行的场合
    
14.       turn_up if turn_ok
    
15.       @y = $game_map.round_y(@y-1)
    
16.       @real_y = (@y+1)*256
    
17.       increase_steps if not act
    
18.       #check_event_trigger_touch(@x, @y-1) if act  # 是否触发接触事件
    
19.       @move_failed = false
    
20.     else                                    # 不可通行的场合
    
21.       turn_up if turn_ok
    
22.       check_event_trigger_touch(@x, @y-1)   # 是否触发接触事件
    
23.       @move_failed = true
    
24.     end
    
25.   end
    
26.   #--------------------------------------------------------------------------
    
27.   # ● 向下移动
    
28.   #     turn_ok : 允许当场转向
    
29.   #--------------------------------------------------------------------------
    
30.   def move_down(turn_ok = true,act = false)
    
31.     if passable?(@x, @y+1)                  # 可通行的场合
    
32.       turn_down if turn_ok
    
33.       @y = $game_map.round_y(@y+1)
    
34.       @real_y = (@y-1)*256
    
35.       increase_steps if not act
    
36.       #check_event_trigger_touch(@x, @y-1) if act
    
37.       @move_failed = false
    
38.     else                                    # 不可通行的场合
    
39.       turn_down if turn_ok
    
40.       check_event_trigger_touch(@x, @y+1)   # 是否触发接触事件
    
41.       @move_failed = true
    
42.     end
    
43.   end
    
44. 
    
45. end
    
46. 
    
47. 
    
48. 
    
49. 
    
50. 
    
51. #==============================================================================
    
52. # ■ Game_Event
    
53. #------------------------------------------------------------------------------
    
54. # 　处理事件的类。条件判断、事件页的切换、并行处理、执行事件功能
    
55. # 在 Game_Map 类的内部使用。
    
56. #==============================================================================
    
57. 
    
58. class Game_Event < Game_Character
    
59.   #--------------------------------------------------------------------------
    
60.   # ● 我是敌人吗?
    
61.   #--------------------------------------------------------------------------
    
62.   def check_enemy
    
63.     return if @erased
    
64.     cx = $game_player.x
    
65.     cy = $game_player.y
    
66.     ev = $game_map.events[@id]
    
67.     if ((cx == ev.x) and (cy == ev.y)) and (@event.name == "enemy")
    
68.       $win = true
    
69.   #    p "Kill"
    
70.       start
    
71.       erase
    
72.       
    
73.     end
    
74.     if (((cx == ev.x+1) and (cy == ev.y)) and (@event.name == "enemy")) or
    
75.       (((cx == ev.x-1) and (cy == ev.y)) and (@event.name == "enemy"))
    
76. #     p "Died"
    
77.       $died = true
    
78.       start
    
79.       erase
    
80.       
    
81.     end
    
82.   end
    
83. end
    
84. 
    
85. 
    
86. #==============================================================================
    
87. # ■ Scene_Map
    
88. #------------------------------------------------------------------------------
    
89. # 　处理地图画面的类。
    
90. #==============================================================================
    
91. 
    
92. class Scene_Map < Scene_Base
    
93.   #--------------------------------------------------------------------------
    
94.   # ● 更新画面
    
95.   #--------------------------------------------------------------------------
    
96.   def update
    
97.     super
    
98.     $game_map.interpreter.update      # 更新解释器
    
99.     $game_map.update                  # 更新地图
    
100.     $game_player.update               # 更新主角
     
101.     $game_system.update               # 更新计时器
     
102.     @spriteset.update                 # 更新活动块组
     
103.     @message_window.update            # 更新信息窗口
     
104.     unless $game_message.visible      # 信息窗口显示中除外
     
105.       for i in 0..$game_map.events.keys.size
     
106.         if $game_map.events[i] != nil
     
107. #          $game_map.events[i].check_box
     
108.           $game_map.events[i].check_enemy
     
109.         end
     
110.       end
     
111.       update_transfer_player
     
112.       update_encounter
     
113.       update_call_menu
     
114.       update_call_debug
     
115.       update_scene_change
     
116.     end
     
117.   end
     
118. end

复制代码

〉EvDrop
   

1. #==============================================================================
   
2. # ■ Game_Event
   
3. #------------------------------------------------------------------------------
   
4. # 　处理事件的类。条件判断、事件页的切换、并行处理、执行事件功能
   
5. # 在 Game_Map 类的内部使用。
   
6. #==============================================================================
   
7. 
   
8. class Game_Event < Game_Character
   
9.   #--------------------------------------------------------------------------
   
10.   # ● 更新画面
    
11.   #--------------------------------------------------------------------------
    
12.   def update
    
13.     super
    
14.     check_event_trigger_auto                    # 自动事件启动判定
    
15.     if @interpreter != nil                      # 并行处理的情况下
    
16.       unless @interpreter.running?              # 不在执行中的场合的情况下
    
17.         @interpreter.setup(@list, @event.id)    # 设置事件
    
18.       end
    
19.       @interpreter.update                       # 更新解释器
    
20.     end
    
21.     return if $use == false
    
22.     if ($game_player.passable?(@x, @y+1)) and (@event.name != "box") #and @cont <= 0
    
23.         move_down(false,true)
    
24.     end
    
25.   end
    
26. end
    

复制代码

越前リョーマ

手感是个大问题……

yangff

以下引用越前リョーマ于2008-6-8 16:39:02的发言：

手感是个大问题……

更改速度后就没有手感问题了(虽然稍微有一点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点点

yangff

顶一下

越前リョーマ

话说测试了感觉怪怪的……

重力好像比较小……不适合地球……

yangff

以下引用越前リョーマ于2008-6-28 13:52:31的发言：

话说测试了感觉怪怪的……

重力好像比较小……不适合地球……

改天做个游戏叫: 越前リョーマ上火星

恺撒亮

干嘛范例有问题？

yangff

以下引用恺撒亮于2008-7-20 22:03:57的发言：

干嘛范例有问题？

？

yangff

顶起

越前リョーマ

以下引用yangff于2008-8-21 14:58:53的发言：

顶起

真够囧的，没见过你这么顶的……