rpg游戏开头动画的制作

1、准备好游戏的开头动画视频，打开RPG Maker XP软件。点击文件，新建工程，输入信息。

2、点击脚本编辑器，插入一个空白脚本，命名为movieplayer，输入脚本（可直接复制粘贴）：#==租涫疼迟============================================================================# ☆★☆ AVI播放器 ☆★☆#------------------------------------------------------------------------------# - FantasyDR# - 2006.3.12#------------------------------------------------------------------------------# MSN: FantasyDR_SJL@hotmail.com#------------------------------------------------------------------------------# Note:# # 1.在下方 PROJECT_NAME = 后面填写你的游戏工程名.## 2.在游戏中,调用脚本事件播放你的视频文件,如果一行写不下可以在逗号后换行.## $MP.play(movie_name, movie_length,# skip, fullscr,# x, y, width, height, loop)## 参数说明:## movie_name : 视频文件名(*.avi),必须# movie_length : 电影时间,单位是秒,必须# skip : 是否可以按A键跳过,true/false,默认是true# fullscr : 是否强制为全屏幕播放,true/false,默认是false# x,y : 视频播放的左上角坐标,默认是0,0# width,height : 视频的宽度,可以任意.默认是640,480# loop : 循环播放,true/false,默认是true## 例如播放logo.avi,时间13秒,禁止跳过,强制全屏,范围(是0,0)-(640,480),循环播放# $MP.play("logo.avi",13,false,true)#==============================================================================# ★★★请先这里填写游戏的工程名★★★PROJECT_NAME = "Project2"#==============================================================================# ■ Win32API#------------------------------------------------------------------------------# 　需要用到的API#==============================================================================# 切换到全屏延时SWITCH_DELAY = 0.1# API使用的一些常数WS_EX_TOPMOST = 0x8WS_EX_TOOLWINDOW= 0x80WS_VISIBLE = 0x10000000WS_POPUP = 0x80000000GWL_HINSTANCE = (-6)WM_CLOSE = 0x10WS_CHILD = 0x40000000WS_NONE = 0x16000000CP_ACP = 0CP_UTF8 = 65001# 字符编码转换API$MP_m2w = Win32API.new('kernel32', 'MultiByteToWideChar', '%w(i,l,p,i,p,i)', 'i')$MP_w2m = Win32API.new('kernel32', 'WideCharToMultiByte', '%w(i,l,p,i,p,i,p,p)', 'i') # 按键API$MP_keybd = Win32API.new('user32', 'keybd_event', '%w(i,i,l,l)', 'v')# 视频播放API$MP_mciSendString = Win32API.new('winmm','mciSendString','%w(p,p,l,l)','V')# 锁定窗口# hWnd,ifEnable$MP_EnableWindow = Win32API.new('user32','EnableWindow','%w(l,l)','L')# 激活窗口# hWnd$MP_SetActiveWindow = Win32API.new('user32','SetActiveWindow','%w(l)','L')# 当前活动窗口$MP_GetActiveWindow = Win32API.new('user32','GetActiveWindow','%w()','L')# hWnd,wMsg,wParam,lParam$MP_PostMessage = Win32API.new('user32','PostMessage','%w(l,l,l,p)','L')# 获取当前窗口句柄$MP_FindWindowEX = Win32API.new('user32','FindWindowEx','%w(l,l,p,p)','L')# 获取屏幕坐标$MP_ClientToScreen = Win32API.new("user32", "ClientToScreen", 'ip', 'i')# 获取hInt$MP_GetWindowLong= Win32API.new('user32','GetWindowLong','%w(l,l)','L')# 获取类名# hWnd,lpClassName,maxCount$MP_GetClassName= Win32API.new('user32','GetClassName','%w(l,p,l)','L')# 建立窗体# ExStyle,ClassName,WindowName,# style,x,y,width,height# 0,0,hInstance,0$MP_CreateWindowEX = Win32API.new('user32','CreateWindowEx','%w(l,p,p,l,l,l,l,l,l,l,l,p)','L')#==============================================================================# ■ MoviePlayer#------------------------------------------------------------------------------# 　处理视频播放画面的类。#==============================================================================class MoviePlayer #-------------------------------------------------------------------------- # ● 初始化 # project_name : 工程名称 #-------------------------------------------------------------------------- def initialize(project_name = PROJECT_NAME) @sys_timer=SystemTimer.new() buffer = "\0\0" * project_name.size @project_name = "\0" * project_name.size $MP_m2w.call(CP_UTF8, 0, project_name, -1, buffer, project_name.size) $MP_w2m.call(CP_ACP,0,buffer,-1,@project_name,project_name.size,0,0) @hWnd = $MP_FindWindowEX.call(0,0,nil,@project_name) @hInt = $MP_GetWindowLong.call(@hWnd,GWL_HINSTANCE) @class_name = " " * 256 $MP_GetClassName.call(@hWnd,@class_name,256) end #-------------------------------------------------------------------------- # ● 是否已经全屏幕 #-------------------------------------------------------------------------- def is_full? # 播放起始坐标 point = [0, 0].pack('ll') if $MP_ClientToScreen.call(@hWnd, point) == 0 return false end x, y = point.unpack('ll') if x == 0 and y == 0 return true else return false end end #-------------------------------------------------------------------------- # ● 切换全屏 #-------------------------------------------------------------------------- def switch_full $MP_keybd.call (0xA4, 0, 0, 0) $MP_keybd.call (13, 0, 0, 0) $MP_keybd.call (13, 0, 2, 0) $MP_keybd.call (0xA4, 0, 2, 0) sleep(SWITCH_DELAY) for i in 1..3 Graphics.update end end #-------------------------------------------------------------------------- # ● 播放电影 # movie_name : 视频文件名(*.avi) # movie_length : 电影时间,单位是秒 # skip : 是否可以按键跳过 # fullscr : 是否强制为全屏幕播放 # x,y,width,height: 播放的位置以及宽度 # loop : 循环播放 #-------------------------------------------------------------------------- def play(movie_name,movie_length, skip = true,fullscr = false, x = 0,y = 0,width = 640,height = 480,loop = true) # 数据不合法则退出 return true if movie_name == nil or movie_length <= 0 # 文件不存在 return true unless FileTest.exist?(movie_name) # 窗口宽度 width -= (x + width)- 640 if (x + width) > 640 height -= (y + height)- 480 if (y + height) > 480 if fullscr and !is_full? self.switch_full end fullscr = self.is_full? # 播放起始坐标 point = [x, y].pack('ll') if $MP_ClientToScreen.call(@hWnd, point) == 0 return true end x, y = point.unpack('ll') return true if (x + width) < 0 or (y+height) < 0 if fullscr wnd = $MP_CreateWindowEX.call(WS_EX_TOPMOST,@class_name,@project_name, WS_VISIBLE | WS_POPUP,x,y,width,height, 0,0,@hInt,0) else wnd = $MP_CreateWindowEX.call(WS_EX_TOOLWINDOW,@class_name,@project_name, WS_VISIBLE | WS_POPUP,x,y,width,height, 0,0,@hInt,0) end # 窗体建立失败 return true if wnd == 0 # 屏蔽原窗体 $MP_EnableWindow.call(@hWnd,0) $MP_mciSendString.call("open \"" + movie_name + "\"" + " alias FILE style 1073741824 parent " +\ wnd.to_s,0,0,0) if loop $MP_mciSendString.call("play FILE repeat window",0,0,0) else $MP_mciSendString.call("play FILE window",0,0,0) end @sys_timer.clear() step = 0.1 begin loop do # 如果在窗口模式 unless fullscr # 变成全屏 if self.is_full? break else Graphics.update end end #sleep(step) if skip Input.update break if Input.trigger?(Input::A) end if @sys_timer.now_s >= movie_length break end if $MP_GetActiveWindow.call() != wnd $MP_SetActiveWindow.call(wnd) end end Graphics.update # 关闭当前窗体 $MP_PostMessage.call(wnd,WM_CLOSE,0,0) $MP_mciSendString.call("close FILE",0,0,0) $MP_EnableWindow.call(@hWnd,1) $MP_SetActiveWindow.call(@hWnd) return true rescue Hangup retry end endend$MP = MoviePlayer.new

4、然后，在左下角，点击鼠标右键，选择新建地图，地图选图中的，然后确定。按图中，点击顺序，将画面涂黑。点击“事件”命令，在图中任意位置点鼠标右键，选“新建事件”。在图中位置点击鼠标右键，选插入。在跳出的对话框中翻到“3”中的“脚本”命令。输入“$MP.play("op.wmv",16,true) ”，确定。勾选“自动执行”。