本人的第一个脚本----城市选择

yangff · 发表于 2007-8-22 02:21:02

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

您需要登录才可以下载或查看，没有帐号？注册会员

x

出现bug!!!
请把脚本中#del的脚本喀嚓掉

前言:
象大富翁那样的选择城市的功能虽说用选择项就能实现,但如果城市过多就比较麻烦了

--------------------------------------------------------------------------------

范例更新(发现bug!!)
范例:http://rpg.blue/upload_program/files/selectCITY1.exe
脚本:

#==============================================================================
#脚本来自www.66rpg.com转载请保留本信息
#==============================================================================
# 制作:小美男
# 冲突:基本不可能
# 使用方法:
# 复制本脚本到main上面
# 事件调用 $Scene = Scene_city.new
# 请仔细查看注释谢谢!
# 这是我的第一个脚本如果有那些地方做的不好请提出来我尽量改
class Scene_city
#--------------------------------------------------------------------------
# ● 主处理
#--------------------------------------------------------------------------
def main
# 生成系统对像
$game_system = Game_System.new
# 生成标题图形
# 生成命令窗口
s1 = "东京" #城市的名称在此设定
s2 = "墨西哥"
s3 = "南非"
#如果要更多的城市就加入 s4 = "城市名" s5 = ......
@command_window = Window_Command.new(192, [s1, s2, s3]) #更多的城市就在后面加 ,s4 ,s5 ......
@command_window.back_opacity = 130
@command_window.x = 320 - @command_window.width / 2
@command_window.y = 230
# 演奏标题 BGM
$game_system.bgm_play($data_system.title_bgm)
# 停止演奏 ME、BGS
Audio.me_stop
Audio.bgs_stop
# 执行过渡
Graphics.transition
# 主循环
loop do
# 刷新游戏画面
Graphics.update
# 刷新输入信息
Input.update
# 刷新画面
update
# 如果画面被切换就中断循环
if $scene != self
break
end
end
# 装备过渡
Graphics.freeze
# 释放命令窗口
@command_window.dispose
# 释放标题图形
end
# 下面的其实就是title的内容
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
# 刷新命令窗口
@command_window.update
# 按下 C 键的情况下
if Input.trigger?(Input::C)
# 命令窗口的光标位置的分支
case @command_window.index
when 0
command_dj
when 1
command_mxg
when 2
command_nf
end
end
end
#--------------------------------------------------------------------------
# ● 命令 : 东京
#--------------------------------------------------------------------------
def command_dj
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 停止 BGM
Audio.bgm_stop
# 重置测量游戏时间用的画面计数器
Graphics.frame_count = 0
#del # 设置初期同伴位置
#del $game_party.setup_starting_members
# 设置初期位置的地图
$game_map.setup(2) #主角初期的地图id
# 主角向初期位置移动
$game_player.moveto(53, 99) #主角初期的x,y
# 刷新主角
$game_player.refresh
# 执行地图设置的 BGM 与 BGS 的自动切换
$game_map.autoplay
# 刷新地图 (执行并行事件)
$game_map.update
# 切换地图画面
$scene = Scene_Map.new
end
#--------------------------------------------------------------------------
# ● 命令 : 墨西哥
#--------------------------------------------------------------------------
def command_mxg
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 停止 BGM
Audio.bgm_stop
# 重置测量游戏时间用的画面计数器
Graphics.frame_count = 0
#del # 设置初期同伴位置
#del $game_party.setup_starting_members
# 设置初期位置的地图
$game_map.setup(6)
# 主角向初期位置移动
$game_player.moveto(53, 99)
# 刷新主角
$game_player.refresh
# 执行地图设置的 BGM 与 BGS 的自动切换
$game_map.autoplay
# 刷新地图 (执行并行事件)
$game_map.update
# 切换地图画面
$scene = Scene_Map.new
end
#--------------------------------------------------------------------------
# ● 命令 : 南非
#--------------------------------------------------------------------------
def command_nf
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 停止 BGM
Audio.bgm_stop
# 重置测量游戏时间用的画面计数器
Graphics.frame_count = 0
#del # 设置初期同伴位置
#del $game_party.setup_starting_members
# 设置初期位置的地图
$game_map.setup(8)
# 主角向初期位置移动
$game_player.moveto(53, 99)
# 刷新主角
$game_player.refresh
# 执行地图设置的 BGM 与 BGS 的自动切换
$game_map.autoplay
# 刷新地图 (执行并行事件)
$game_map.update
# 切换地图画面
$scene = Scene_Map.new
end
#==============================================================================
#脚本来自www.66rpg.com转载请保留本信息
#==============================================================================
end

复制代码

此贴于 2007-9-1 18:58:43 被版主gpra8764提醒，请楼主看到后对本贴做出回应。
谢谢提醒

yangff · 发表于 2007-8-22 02:21:02

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

您需要登录才可以下载或查看，没有帐号？注册会员

x

出现bug!!!
请把脚本中#del的脚本喀嚓掉

前言:
象大富翁那样的选择城市的功能虽说用选择项就能实现,但如果城市过多就比较麻烦了

--------------------------------------------------------------------------------

范例更新(发现bug!!)
范例:http://rpg.blue/upload_program/files/selectCITY1.exe
脚本:

#==============================================================================
#脚本来自www.66rpg.com转载请保留本信息
#==============================================================================
# 制作:小美男
# 冲突:基本不可能
# 使用方法:
# 复制本脚本到main上面
# 事件调用 $Scene = Scene_city.new
# 请仔细查看注释谢谢!
# 这是我的第一个脚本如果有那些地方做的不好请提出来我尽量改
class Scene_city
#--------------------------------------------------------------------------
# ● 主处理
#--------------------------------------------------------------------------
def main
# 生成系统对像
$game_system = Game_System.new
# 生成标题图形
# 生成命令窗口
s1 = "东京" #城市的名称在此设定
s2 = "墨西哥"
s3 = "南非"
#如果要更多的城市就加入 s4 = "城市名" s5 = ......
@command_window = Window_Command.new(192, [s1, s2, s3]) #更多的城市就在后面加 ,s4 ,s5 ......
@command_window.back_opacity = 130
@command_window.x = 320 - @command_window.width / 2
@command_window.y = 230
# 演奏标题 BGM
$game_system.bgm_play($data_system.title_bgm)
# 停止演奏 ME、BGS
Audio.me_stop
Audio.bgs_stop
# 执行过渡
Graphics.transition
# 主循环
loop do
# 刷新游戏画面
Graphics.update
# 刷新输入信息
Input.update
# 刷新画面
update
# 如果画面被切换就中断循环
if $scene != self
break
end
end
# 装备过渡
Graphics.freeze
# 释放命令窗口
@command_window.dispose
# 释放标题图形
end
# 下面的其实就是title的内容
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
# 刷新命令窗口
@command_window.update
# 按下 C 键的情况下
if Input.trigger?(Input::C)
# 命令窗口的光标位置的分支
case @command_window.index
when 0
command_dj
when 1
command_mxg
when 2
command_nf
end
end
end
#--------------------------------------------------------------------------
# ● 命令 : 东京
#--------------------------------------------------------------------------
def command_dj
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 停止 BGM
Audio.bgm_stop
# 重置测量游戏时间用的画面计数器
Graphics.frame_count = 0
#del # 设置初期同伴位置
#del $game_party.setup_starting_members
# 设置初期位置的地图
$game_map.setup(2) #主角初期的地图id
# 主角向初期位置移动
$game_player.moveto(53, 99) #主角初期的x,y
# 刷新主角
$game_player.refresh
# 执行地图设置的 BGM 与 BGS 的自动切换
$game_map.autoplay
# 刷新地图 (执行并行事件)
$game_map.update
# 切换地图画面
$scene = Scene_Map.new
end
#--------------------------------------------------------------------------
# ● 命令 : 墨西哥
#--------------------------------------------------------------------------
def command_mxg
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 停止 BGM
Audio.bgm_stop
# 重置测量游戏时间用的画面计数器
Graphics.frame_count = 0
#del # 设置初期同伴位置
#del $game_party.setup_starting_members
# 设置初期位置的地图
$game_map.setup(6)
# 主角向初期位置移动
$game_player.moveto(53, 99)
# 刷新主角
$game_player.refresh
# 执行地图设置的 BGM 与 BGS 的自动切换
$game_map.autoplay
# 刷新地图 (执行并行事件)
$game_map.update
# 切换地图画面
$scene = Scene_Map.new
end
#--------------------------------------------------------------------------
# ● 命令 : 南非
#--------------------------------------------------------------------------
def command_nf
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 停止 BGM
Audio.bgm_stop
# 重置测量游戏时间用的画面计数器
Graphics.frame_count = 0
#del # 设置初期同伴位置
#del $game_party.setup_starting_members
# 设置初期位置的地图
$game_map.setup(8)
# 主角向初期位置移动
$game_player.moveto(53, 99)
# 刷新主角
$game_player.refresh
# 执行地图设置的 BGM 与 BGS 的自动切换
$game_map.autoplay
# 刷新地图 (执行并行事件)
$game_map.update
# 切换地图画面
$scene = Scene_Map.new
end
#==============================================================================
#脚本来自www.66rpg.com转载请保留本信息
#==============================================================================
end

复制代码

此贴于 2007-9-1 18:58:43 被版主gpra8764提醒，请楼主看到后对本贴做出回应。
谢谢提醒

轮回者 · 发表于 2007-8-22 02:24:06

支持一下

尝古 · 发表于 2007-8-22 03:03:27

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

yangff · 发表于 2007-8-22 04:17:48

以下引用尝古于2007-8-21 19:03:27的发言：

www.66rog.com是啥

写错了
谢谢!{/dy}{/hx}

玄机子 · 发表于 2007-8-22 04:43:13

{/hx}{/hx}{/hx} 如果有个范例工程就太好鸟{/hx}

gpra8764 · 发表于 2007-8-22 05:10:17

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

yangff · 发表于 2007-8-22 06:05:49

应大家要求
范例:http://rpg.blue/upload_program/files/sdyfk.exe
范例里因为我自己需要可能更发布脚本不一样
用rmxp1.02的使用记事本打开Game.rxproj更改内容为RPGXP 1.02 -_-bbbb
因为我懒所以只有东京绘制了地图{/tp}

越前リョーマ · 发表于 2007-8-23 17:59:26

支持一下，

看看效果。

越前リョーマ · 发表于 2007-8-23 18:00:53

汗啊…………

怎么一进游戏就脚本出错……
要改那些东西？

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

本人的第一个脚本----城市选择

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

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

烫烫烫

开拓者

贵宾

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

第5届短篇游戏比赛亚军