●●【小游戏常用脚本】●●

劍之飛龍☆

制作小游戏，大多都使用事件与脚本结合的，下面就推荐几个经常使用的小游戏脚本。 （广泛征集，本帖需要不断完善，偶将会给予奖励，谢谢）

---

【脚本1】：

时间条（点击进入原发布帖） [quote]〖说明〗： 原发布帖有个错误，倒数的第10行 $game_variables[$done] = true 应该是 $game_switches[$done] = true，竟然变成变量了……

〖效果〗：

[/quote] 脚本内容：

1. #==============================================================================
2. # 本脚本来自www.66RPG.com，使用和转载请保留此信息
3. #==============================================================================
5. #-------------------------------------------------------------------------
6. # ● 时间条参数设定
7. # 设定技巧:可以根据"设定移动速度"来放慢或加快移动
8. # 如果设置"移动速度"为负数，就会倒退走(必须$minbar<=$maxbar)
9. # 如果时间条的宽度小，可以把$nextbar设置为小数来放慢速度
10. #-------------------------------------------------------------------------
11. #设置时间条初始值
12. $minbar=0
14. #设置时间条的最大值,宽度
15. $maxbar=200
17. #设置时间条的移动速度可以是"小数"或"整数(负数)"
18. $nextbar=1
20. #设置时间条运行和显示的开关,和初始化开关
21. $show=1 #显示/隐藏时间条
22. $stop=2 #启动/停止时间条
23. $init=3 #初始化时间条
24. $done=4 #到时间之后打开的开关，可以用个自动执行的公共时间调此开关
26. #设置窗口宽高
27. $width=$maxbar+114
28. $height=64
30. #设置窗口位置
31. $o=2
32. #设置参考
33. # 0-采用$x,$y的自定义设置
34. # 1-左上角
35. # 2-正上
36. # 3-右上角
37. # 4-正中
38. # 5-左下角
39. # 6-正下
40. # 7-右下角
42. $x=0 #自定义窗口X
43. $y=0 #自定义窗口Y
45. #定义窗口透明程度，0透明，255不透明数值范围0~255
46. $opacity=0 #设置窗口边框透明度
47. $back_opacity=0 #设置窗口背景透明度
49. #------------------------------------------------------------------------
50. # ● 时间条描绘
51. #------------------------------------------------------------------------
52. def draw_time_bar(x, y, width)
53. # 边框设定
54. self.contents.font.color = system_color
55. self.contents.draw_text(x,y,60,32,"时间：")
56. self.contents.fill_rect(x-2+60, y+16, width+4,8, Color.new(255, 255, 255, 255))
57. self.contents.fill_rect(x-1+60, y+17, width+2,6, Color.new(0, 0, 0, 255))
58. # 时间条长度设定
59. w = $minbar
60. # 时间条颜色设定
61. self.contents.fill_rect(x+60, y+18, w,1, Color.new(96,255, 96, 255))
62. self.contents.fill_rect(x+60, y+19, w,1, Color.new(0, 255, 0, 255))
63. self.contents.fill_rect(x+60, y+20, w,1, Color.new(0, 128, 0, 255))
64. self.contents.fill_rect(x+60, y+21, w,1, Color.new(0, 0, 0, 255))
65. end
67. #----------------------------------------------------------------------------
68. # ● 时间窗口描绘
69. #----------------------------------------------------------------------------
70. class Window_Timebar < Window_Base
71. #--------------------------------------------------------------------------
72. # ● 初始化窗口
73. #--------------------------------------------------------------------------
74. def initialize
75. super(0, 0, $width, $height)
76. self.contents = Bitmap.new(width - 32, height - 32)
77. refresh
78. end
79. #--------------------------------------------------------------------------
80. # ● 窗口内容
81. #--------------------------------------------------------------------------
82. def refresh
83. #判断时间窗口是否可见
84. if $game_switches[$show]
85. self.visible=true
86. else
87. self.visible=false
88. end
90. #设置时间窗口透明度
91. self.back_opacity=$back_opacity
92. self.opacity=$opacity
94. #设置窗口位置
95. case $o
96. when 0
97. self.x=$x
98. self.y=$y
99. when 1
100. self.x=0
101. self.y=0
102. when 2
103. self.x=320-$width/2
104. self.y=0
105. when 3
106. self.x=640-$width
107. self.y=0
108. when 4
109. self.x=320-$width/2
110. self.y=240-$height/2
111. when 5
112. self.x=0
113. self.y=480-$height
114. when 6
115. self.x=320-$width/2
116. self.y=480-$height
117. when 7
118. self.x=640-$width
119. self.y=480-$height
120. else
121. #防止错误发生
122. self.x=0
123. self.y=0
124. end
126. #窗口内容
127. self.contents.clear
128. draw_time_bar(4,0,$maxbar)
129. end
130. end
132. #-----------------------------------------------------------------------------
133. # ● 地图上显示时间描绘
134. #-----------------------------------------------------------------------------
135. class Scene_Map
136. # 声明别名,以免冲突,主要用于功能追加
137. alias mohock_main main
138. def main
139. # 生成倒计时窗口
140. @time_bar=Window_Timebar.new
142. # 调用别名 (具体功能不清楚,但是不调用必定有错误)
143. mohock_main
144. # 释放倒计时窗口
145. @time_bar.dispose
146. end
148. # 声明别名,以免冲突,主要用于功能追加
149. alias mohock_update update
150. def update
151. # 如果初始化开关打开
152. if $game_switches[$init]
153. # 初始化数值
154. $minbar=0
155. $game_switches[$init]=false
156. end
157. # 刷新时间条,增加数值自己改动
158. if $game_switches[$stop]
159. #判断是否超过最大数值,是则执行任务,不是继续增加
160. if $minbar >= $maxbar
161. #执行开关设置为真
162. $game_switches[$done] = true
163. else
164. $minbar += $nextbar
165. end
166. end
167. @time_bar.refresh
168. # 调用别名 (具体功能不清楚,但是不调用必定有错误)
169. mohock_update
170. end
171. end

复制代码

---

【脚本2】：

在地图上显示变量（点击进入原发布帖） 以及VX版 [quote]〖说明〗： XP版：在地图上显示变量，可带图片和单位，十分方便，如果会一点脚本，可以在地图上显示多个变量。 VX版：如果要显示变量1的话，那： $variables_id = 1 如果要显示50号图表的话，那： $icon_index = 50

〖效果〗： XP版： VX版：

[/quote] 脚本内容： ——XP版——

1. 首先在Scene_Map类中进行以下修改：
3. 在def main过程中，首先在生成窗口部分增加生成显示变量窗口，添加位置最好在原有窗口之后：
5. # 生成活动块
6. @spriteset = Spriteset_Map.new
7. # 生成信息窗口
8. @message_window = Window_Message.new
9. # 生成显示变量窗口
10. @var_window = Window_MapVar.new
12. 类似的注销释放时也要加上：
14. # 释放活动块
15. @spriteset.dispose
16. # 释放信息窗口
17. @message_window.dispose
18. # 释放显示变量窗口
19. @var_window.dispose
21. 最后在def update过程块中，必须要加入刷新显示变量窗口部分，同样在放在最后，达到改变金钱同步刷新的功能：
23. # 刷新活动块
24. @spriteset.update
25. # 刷新信息窗口
26. @message_window.update
27. # 刷新显示变量窗口
28. @var_window.refresh
30. 然后在脚本最后添加脚本名称为GPRA_Window_MapVar的脚本（建议在main之前）

复制代码

1. #==============================================================================
2. # ◎ Window_MapVar
3. #------------------------------------------------------------------------------
4. # ◎ 地图右下显示变量窗口
5. #------------------------------------------------------------------------------
6. # 制作者：绿梨子红苹果
7. # 个人主页：vbgm.9126.com
8. # E-Mail：[email protected]
9. # QQ：42378361
10. #==============================================================================
12. class Window_MapVar < Window_Base
13. #--------------------------------------------------------------------------
14. # ● 初始化窗口
15. #--------------------------------------------------------------------------
16. def initialize
18. # 在这里设定窗口的位置啦(x,y,宽,高)，记住要为窗口框架留上下左右各16象素。
19. # 默认一个字符的宽和高只有20左右的，这里单位为“金”，加上8位数字。
20. super(480,420,160,60)
22. # 窗口的不透明度（0 ～ 255）。范围外的数值会自动修正。
23. # 注：255为不透明，0为完全透明……这个参数为零则只显示窗口内容而没有窗口，
24. # 实际上这样做不如不载入窗口背景图，更加节约内存……不过比较麻烦就是。
25. self.opacity=64
26. # 窗口背景的不透明度（0 ～ 255）。范围外的数值会自动修正。
27. # 注：就是窗口那个蓝色的背景啦……受上面参数影响
28. self.back_opacity=128
29. # 窗口内容的不透明度（0 ～ 255）。范围外的数值会自动修正。
30. # 注：窗口内的文字等内容，除非你是想画个空窗口，否则千万不要设0。
31. self.contents_opacity=255
33. # 这个不用管他，必定要写的
34. self.contents = Bitmap.new(width - 32, height - 32)
36. # 建立记录变量原始值，用于判断变量值是否改变，一定要保证不会是变量原来的值
37. @var_value_old = -1
38. # 载入想要显示的图片就可以了，这里推荐是24*24的标准RM图标
39. @var_icon = Bitmap.new("Graphics/Icons/035-Item04")
41. refresh
42. end
43. #--------------------------------------------------------------------------
44. # ● 刷新
45. #--------------------------------------------------------------------------
46. def refresh
47. # 在这里加上判断语句，就可以完成变量值改变才刷新的效果，节约资源
48. if @var_value_old==$game_party.gold then
49. return
50. end
51. # 先清空内容啦
52. self.contents.clear
53. # 计算系统data里金钱单位的字符宽度
54. cx = contents.text_size($data_system.words.gold).width
55. # 设定字色为白色。生成RGB颜色参数(红，绿，蓝)，这个不用我来说吧...
56. self.contents.font.color = Color.new(255,255,255)
57. # 绘制金钱数字。记住要用“.to_s”将数字转换为字符！
58. # 注：这里24是留着画24*24图标的，104表示所有字符总宽
59. self.contents.draw_text(24, 0, 104-cx, 28, $game_party.gold.to_s, 2)
60. # 设定字色为金色
61. self.contents.font.color = Color.new(255,255,0)
62. # 绘制金钱单位。
63. # 注：128=160(窗口宽)-32
64. self.contents.draw_text(128-cx, 0, cx, 28, $data_system.words.gold)
65. # 最后画上需要的图标就可以啦，blt方法详见RM帮助文档啦...
66. self.contents.blt(0, 2, @var_icon, Rect.new(0, 0, 24, 24))
67. end
68. end

复制代码

---

——VX版——

1. #------------------------------------------------------------------------
2. # 本脚本来自于66RPG 转载请著名 非法用户【编写】
3. #------------------------------------------------------------------------
4. # 设定要显示的变量号
5. $variables_id = 1
7. # 设置图标显示号
8. $icon_index = 2
9. #------------------------------------------------------------------------
11. # 新建窗口
12. class Window_Variables < Window_Base
13. # 初始化
14. def initialize
15. # 创建大小
16. super(416,360,128,56)
17. # 获取图标编号
18. @icon = 0
19. # 获取变量编号
20. @variable = 0
21. # 刷新
22. refresh
23. # 初始化结束
24. end
25. # 刷新
26. def refresh
27. # 在图表与变量都有变化的情况下
28. if @icon != $icon_index or @variable != $game_variables[$variables_id]
29. # 清楚内容
30. self.contents.clear
31. # 描绘图表
32. draw_icon($icon_index,4,0,true)
33. # 描绘变量，偏右
34. self.contents.draw_text(32,0,64,24,$game_variables[$variables_id].to_s,2)
35. # 带入变量
36. @icon = $icon_index
37. @variable = $game_variables[$variables_id]
38. # if 结束
39. end
40. # 刷新结束
41. end
42. # class 结束
43. end
45. # 地图生成窗口
46. class Scene_Map < Scene_Base
47. # 生成窗口
48. alias new_start start
49. def start
50. new_start
51. @varia_window = Window_Variables.new
52. end
53. # 刷新窗口
54. alias new_update update
55. def update
56. new_update
57. @varia_window.refresh
58. end
59. # 释放窗口
60. alias new_terminate terminate
61. def terminate
62. @varia_window.dispose
63. new_terminate
64. end
65. # class 结束
66. end

复制代码

---

【脚本3】：

跳过开始标题脚本（点击进入原发布帖） [quote]〖说明〗： 直接开始游戏，不进入开始标题画面，比较适合R剧。 当R剧播完之后，直接在最后一个事件里面使用脚本，输入“exit”或者“$scene = nil”就可以了。如此就能制作非常完美的一个短剧

〖效果〗： 无

[/quote] 脚本内容：

1. #==============================================================================
2. # 本脚本来自www.66RPG.com，使用和转载请保留此信息
3. #==============================================================================
6. class Scene_Title
7. #==============================================================================
8. # 脚本作者:朱仔メ龍 QQ:251724722
9. # 脚本转载请保留以上信息
10. #==============================================================================
11. def main
12. $data_actors = load_data("Data/Actors.rxdata")
13. $data_classes = load_data("Data/Classes.rxdata")
14. $data_skills = load_data("Data/Skills.rxdata")
15. $data_items = load_data("Data/Items.rxdata")
16. $data_weapons = load_data("Data/Weapons.rxdata")
17. $data_armors = load_data("Data/Armors.rxdata")
18. $data_enemies = load_data("Data/Enemies.rxdata")
19. $data_troops = load_data("Data/Troops.rxdata")
20. $data_states = load_data("Data/States.rxdata")
21. $data_animations = load_data("Data/Animations.rxdata")
22. $data_tilesets = load_data("Data/Tilesets.rxdata")
23. $data_common_events = load_data("Data/CommonEvents.rxdata")
24. $data_system = load_data("Data/System.rxdata")
25. $game_system = Game_System.new
26. Graphics.frame_count = 0
27. $game_temp = Game_Temp.new
28. $game_system = Game_System.new
29. $game_switches = Game_Switches.new
30. $game_variables = Game_Variables.new
31. $game_self_switches = Game_SelfSwitches.new
32. $game_screen = Game_Screen.new
33. $game_actors = Game_Actors.new
34. $game_party = Game_Party.new
35. $game_troop = Game_Troop.new
36. $game_map = Game_Map.new
37. $game_player = Game_Player.new
38. $game_party.setup_starting_members
39. $game_map.setup($data_system.start_map_id)
40. $game_player.moveto($data_system.start_x, $data_system.start_y)
41. $game_player.refresh
42. $game_map.autoplay
43. $game_map.update
44. $scene = Scene_Map.new
45. end
46. end
49. #==============================================================================
50. # 本脚本来自www.66RPG.com，使用和转载请保留此信息
51. #==============================================================================

复制代码

---

【脚本4】：

[quote]〖说明〗： 某个方向键失效……任何人都会用

〖效果〗： 无

[/quote] 脚本内容：

2. #==============================================================================
3. # ■ Game_Player
4. #------------------------------------------------------------------------------
5. # 　处理主角的类。事件启动的判定、以及地图的滚动等功能。
6. # 本类的实例请参考 $game_player。
7. #==============================================================================
9. class Game_Player < Game_Character
10. $上无效 = 1 # 上失灵的开关
11. $左无效 = 2 # 左失灵的开关
12. $下无效 = 3 # 下失灵的开关
13. $右无效 = 4 # 右失灵的开关
14. #--------------------------------------------------------------------------
15. # ● 画面更新
16. #--------------------------------------------------------------------------
17. def update
18. # 本地变量记录移动信息
19. last_moving = moving?
20. # 移动中、事件执行中、强制移动路线中、
21. # 信息窗口一个也不显示的时候
22. unless moving? or $game_system.map_interpreter.running? or
23. @move_route_forcing or $game_temp.message_window_showing
24. # 如果方向键被按下、主角就朝那个方向移动
25. case Input.dir4
26. when 2
27. unless $game_switches[$下无效]
28. move_down
29. end
30. when 4
31. unless $game_switches[$左无效]
32. move_left
33. end
34. when 6
35. unless $game_switches[$右无效]
36. move_right
37. end
38. when 8
39. unless $game_switches[$上无效]
40. move_up
41. end
42. end
43. end
44. # 本地变量记忆坐标
45. last_real_x = @real_x
46. last_real_y = @real_y
47. super
48. # 角色向下移动、画面上的位置在中央下方的情况下
49. if @real_y > last_real_y and @real_y - $game_map.display_y > CENTER_Y
50. # 画面向下卷动
51. $game_map.scroll_down(@real_y - last_real_y)
52. end
53. # 角色向左移动、画面上的位置在中央左方的情况下
54. if @real_x < last_real_x and @real_x - $game_map.display_x < CENTER_X
55. # 画面向左卷动
56. $game_map.scroll_left(last_real_x - @real_x)
57. end
58. # 角色向右移动、画面上的位置在中央右方的情况下
59. if @real_x > last_real_x and @real_x - $game_map.display_x > CENTER_X
60. # 画面向右卷动
61. $game_map.scroll_right(@real_x - last_real_x)
62. end
63. # 角色向上移动、画面上的位置在中央上方的情况下
64. if @real_y < last_real_y and @real_y - $game_map.display_y < CENTER_Y
65. # 画面向上卷动
66. $game_map.scroll_up(last_real_y - @real_y)
67. end
68. # 不在移动中的情况下
69. unless moving?
70. # 上次主角移动中的情况
71. if last_moving
72. # 与同位置的事件接触就判定为事件启动
73. result = check_event_trigger_here([1,2])
74. # 没有可以启动的事件的情况下
75. if result == false
76. # 调试模式为 ON 并且按下 CTRL 键的情况下除外
77. unless $DEBUG and Input.press?(Input::CTRL)
78. # 遇敌计数下降
79. if @encounter_count > 0
80. @encounter_count -= 1
81. end
82. end
83. end
84. end
85. # 按下 C 键的情况下
86. if Input.trigger?(Input::C)
87. # 判定为同位置以及正面的事件启动
88. check_event_trigger_here([0])
89. check_event_trigger_there([0,1,2])
90. end
91. end
92. end
93. end

复制代码

---

其它： 〖XP水果机〗 http://rpg.blue/web/htm/news846.htm 精灵使者 推荐的几个： 〖月饼大逃亡〗 http://rpg.blue/web/htm/down727.htm k'的很经典的作品，里面的好多东西都十分厉害…… http://rpg.blue/web/htm/down729.htm http://rpg.blue/web/htm/down442.htm 这两个难度都不小的月饼跳跃游戏，相信能给大家很大启发。

★_茄孓

顶一个`` MS，我创新能力比较低{/hx}

psyo

{/se}很好,正好要用,下来学习

精灵使者

精灵：请把有用的脚本集中到主楼。

psyo

{/hx}时间条条之BC版
{/cy}{/cy}http://rpg.blue/upload_program/files/Project2_92153515.rar

越前リョーマ

怎么都是XP的……
放个我用的VX脚本来……
[LINE]1,#dddddd[/LINE]
【说明】
显示变量和图片在地图上。

如果要显示变量1的话，那：
$variables_id = 1
如果要显示50号图表的话，那：
$icon_index = 50

【效果】

【内容】

1. #------------------------------------------------------------------------
   
2. #      本脚本来自于66RPG  转载请著名  非法用户【编写】
   
3. #------------------------------------------------------------------------
   
4.   # 设定要显示的变量号
   
5.   $variables_id = 1
   
6.   
   
7.   # 设置图标显示号
   
8.   $icon_index = 2
   
9. #------------------------------------------------------------------------
   
10. 
    
11. # 新建窗口
    
12. class Window_Variables < Window_Base
    
13.   # 初始化
    
14.   def initialize
    
15.     # 创建大小
    
16.     super(416,360,128,56)
    
17.     # 获取图标编号
    
18.     @icon = 0
    
19.     # 获取变量编号
    
20.     @variable = 0
    
21.     # 刷新
    
22.     refresh
    
23.   # 初始化结束
    
24.   end
    
25.   # 刷新
    
26.   def refresh
    
27.     # 在图表与变量都有变化的情况下
    
28.     if @icon != $icon_index or @variable != $game_variables[$variables_id]
    
29.       # 清楚内容
    
30.       self.contents.clear
    
31.       # 描绘图表
    
32.       draw_icon($icon_index,4,0,true)
    
33.       # 描绘变量，偏右
    
34.       self.contents.draw_text(32,0,64,24,$game_variables[$variables_id].to_s,2)
    
35.       # 带入变量
    
36.       @icon = $icon_index
    
37.       @variable = $game_variables[$variables_id]
    
38.     # if 结束
    
39.     end
    
40.   # 刷新结束
    
41.   end
    
42. # class 结束
    
43. end
    
44. 
    
45. # 地图生成窗口
    
46. class Scene_Map < Scene_Base
    
47.   # 生成窗口
    
48.   alias new_start start
    
49.   def start
    
50.     new_start
    
51.     @varia_window = Window_Variables.new
    
52.   end
    
53.   # 刷新窗口
    
54.   alias new_update update
    
55.   def update
    
56.     new_update
    
57.     @varia_window.refresh
    
58.   end
    
59.   # 释放窗口
    
60.   alias new_terminate terminate
    
61.   def terminate
    
62.     @varia_window.dispose
    
63.     new_terminate
    
64.   end
    
65. # class 结束
    
66. end

复制代码

[LINE]1,#dddddd[/LINE]版主对此帖的认可：『谢谢提供』，积分『+50』。

精灵使者

精灵推荐几个：月饼大逃亡
http://rpg.blue/web/htm/down727.htm
k'的很经典的作品，里面的好多东西都十分厉害……
http://rpg.blue/web/htm/down729.htm
http://rpg.blue/web/htm/down442.htm
这两个难度都不小的月饼跳跃游戏，相信能给大家很大启发。 [LINE]1,#dddddd[/LINE]版主对此帖的认可：『谢谢！』，积分『+50』。