电脑
RPG Maker XP
准备好游戏的开头动画视频，打开RPG Maker XP软件。点击文件，新建工程，输入信息。
点击脚本编辑器，插入一个空白脚本，命名为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 1 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
点击脚本编辑器，插入一个空白脚本，命名为SystemTimer，输入脚本（可直接复制粘贴）：# ------------------------------------------------------------------------# 高精度计时器 by FantasyDR# ------------------------------------------------------------------------# E-mail: fnd@163.net# ------------------------------------------------------------------------# 2005.10.18# ------------------------------------------------------------------------# 该类已经被定义为全局变量 $sys_timer# 如果只需要精确到毫秒，请设置初始化参数为true# decimal属性设置返回时间值的小数位数。# ------------------------------------------------------------------------# 下面是一些有用的方法列表，调用时写：$sys_timer.方法名# 例如 $sys_timer.clear()# ------------------------------------------------------------------------# clear() ：计时器清零# now() ：获取当前经过的时间，单位毫秒# now_s() ：获取当前经过的时间，单位秒# ------------------------------------------------------------------------class SystemTimer attr_accessor:decimal #小数位数设定，默认为3 def initialize(use_GetTime=false) # 初始化，根据系统选择不同精度计时器 @qpFrequency = Win32API.new('kernel32','QueryPerformanceFrequency','p','L') @qpCounter = Win32API.new('kernel32','QueryPerformanceCounter','p','L') @tGetTime = Win32API.new('winmm','timeGetTime','','L') @decimal=3 @perf_cnt=' ' * 8 @time_start=' ' * 8 @time_now=' ' * 8 result = @qpFrequency.call(@perf_cnt) if use_GetTime result = 0 end if result!=0 @perf_flag=true else @perf_flag=false @perf_cnt=[1000,0].pack('LL') end #设置时间比例因数 @time_scale=@perf_cnt.unpack('LL') @time_scale[0] /= 1000.0 @time_scale[1] /= 1000.0 #起始时间清零 self.clear() end #-=====================-# # 计时器清零 #-=====================-# def clear() if @perf_flag @qpCounter.call(@time_start) else @time_start=[@tGetTime.call(),0].pack('LL') end end #-==============================-# # 获取当前经过的时间，单位毫秒 #-==============================-# def now() now_time = 0.0e1 now_time += self.timer() - self.start() now_time /= self.scale() return self.debug(now_time) end #-==============================-# # 获取当前经过的时间，单位秒 #-==============================-# def now_s() now_time = 0.0e1 now_time += self.timer() - self.start() now_time /= (self.scale()*1000) return self.debug(now_time) end #-==============================-# # 帧错... #-==============================-# def debug(now_time) if @decimal>0 now_time = (now_time * (10**@decimal)).floor/(10.0**@decimal) else now_time = now_time.floor end return now_time #以下用于debug模式 if now_time < 0 p 'Timer Wrong!! Clear...',now_time,\ @perf_flag,@qpCounter,@tGetTime, @time_now.unpack('LL')[0],@time_now.unpack('LL')[1], @time_start.unpack('LL')[0],@time_start.unpack('LL')[1] self.clear() return 0.0 else return now_time end end #-=====================-# # 获取时间比例因数 #-=====================-# def scale() return @time_scale[0]+\ @time_scale[1]*0xffffffff end #-=====================-# # 获取起始滴答数 #-=====================-# def start() return @time_start.unpack('LL')[0]+\ @time_start.unpack('LL')[1]*0xffffffff end #-=====================-# # 获取当前的嘀哒数 #-=====================-# def timer() if @perf_flag @qpCounter.call(@time_now) else @time_now=[@tGetTime.call(),0].pack('LL') end return @time_now.unpack('LL')[0]+\ @time_now.unpack('LL')[1]*0xffffffff endend#-------------------------------------## 初始化自身成一个全局变量#-------------------------------------#$sys_timer=SystemTimer.new()#-------------------------------------#
然后，在左下角，点击鼠标右键，选择新建地图，地图选图中的，然后确定。按图中，点击顺序，将画面涂黑。点击“事件”命令，在图中任意位置点鼠标右键，选“新建事件”。在图中位置点击鼠标右键，选插入。在跳出的对话框中翻到“3”中的“脚本”命令。输入“$MP.play('op.wmv',16,true) ”，确定。勾选“自动执行”。
在图中任意位置点鼠标右键，选“设置猪脚初期位置”。将开头动画视频文件放在软件的子目录中。点击“游戏测试”，进入游戏，开始播放开头动画。
视频文件格式为wmv
脚本movieplayer中，要将你的游戏工程名修改成你自己的。