【<菜鸟问题收容所> 】

KB.Driver · 发表于 2011-7-3 10:18:23

问题名称：如何像火焰纹章一样在开头插播一段动画？
问题状况:略

eel · 发表于 2011-7-3 19:58:31

本帖最后由 eel 于 2011-7-3 22:38 编辑

问题名称：多人数パーティ - KGC_LargeParty ◆ VX

问题状况:这个脚本

我按照http://rpg.blue/forum.php?mod=vi ... =%E9%98%9F%E4%BC%8D 的5L改但还是没用

怎么回事？

月夜神音 · 发表于 2011-7-3 20:36:15

eel 发表于 2011-7-3 19:58
多人数パーティ - KGC_LargeParty ◆ VX

这个脚本

是要实现什么效果呢？
如果是更改队员最大人数的话是修改这句：
MAX_BATTLE_MEMBERS = 5
后面加红的数值就行了~

eel · 发表于 2011-7-3 22:28:04

月夜神音发表于 2011-7-3 20:36
是要实现什么效果呢？
如果是更改队员最大人数的话是修改这句：
MAX_BATTLE_MEMBERS = 5

无法使用编辑队伍

我的米呀 · 发表于 2011-7-3 23:08:49

KB.Driver 发表于 2011-7-3 10:18
问题名称：如何像火焰纹章一样在开头插播一段动画？
问题状况:略

#==============================================================================
# ☆★☆ AVI播放器 ☆★☆
#------------------------------------------------------------------------------
# - FantasyDR
# - 2006.3.8
# 此腳本被公孫鴻劍證實可以在RPGVX1.02以及更新版本的RPGVX上使用。
#------------------------------------------------------------------------------
# MSN: [email protected]
#------------------------------------------------------------------------------
# Note:
#
# 1.遊戲必須使用RPGVX1.02的運行庫\0\0RGSS202E.dll/RGSS202J.dll]及更新的版本。
#
# 2.在下方 PROJECT_NAME = 後面填寫你的遊戲專案(工程)名。
#
# 3.在遊戲中用事件指令\0\0插入RGSS腳本語句]播放你的視頻文件，
# 如果一行寫不下可以在逗號後換行。
#
# $MP.play(movie_name, movie_length,
# skip, fullscr,
# x, y, width, height)
#
# 參數說明:
#
# movie_name : 視頻文件名(*.avi),必須
# movie_length : 電影時間,單位是秒,必須
# skip : 是否可以按A鍵跳過,true/false,默認是true
# fullscr : 是否強制為全屏幕播放,true/false,默認是false
# x,y : 視頻播放的左上角坐標,默認是0,0
# width,height : 視頻的寬度,可以任意.默認是640,480
#
# 例如播放logo.avi,時間13秒,禁止跳過,強制全屏,範圍(是0,0)-(640,480),循環播放
# $MP.play("logo.avi",13,false,true)
#==============================================================================
# ------------------------------------------------------------------------
# 高精度計時器 by FantasyDR
# ------------------------------------------------------------------------
# E-mail: [email protected]
# ------------------------------------------------------------------------
# 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=\0\01000,0].pack('LL')
end
#設置時間比例因數
@time_scale=@perf_cnt.unpack('LL')
@time_scale\0\00] /= 1000.0
@time_scale\0\01] /= 1000.0
#起始時間清零
self.clear()
end
#-=====================-#
# 計時器清零
#-=====================-#
def clear()
if @perf_flag
@qpCounter.call(@time_start)
else
@time_start=\0\[email protected](),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\00],@time_now.unpack('LL')\0\01],
@time_start.unpack('LL')\0\00],@time_start.unpack('LL')\0\01]
self.clear()
return 0.0
else
return now_time
end
end
#-=====================-#
# 獲取時間比例因數
#-=====================-#
def scale()
return @time_scale\0\00]+\
@time_scale\0\01]*0xffffffff
end
#-=====================-#
# 獲取起始滴答數
#-=====================-#
def start()
return @time_start.unpack('LL')\0\00]+\
@time_start.unpack('LL')\0\01]*0xffffffff
end
#-=====================-#
# 獲取當前的嘀哒數
#-=====================-#
def timer()
if @perf_flag
@qpCounter.call(@time_now)
else
@time_now=\0\[email protected](),0].pack('LL')
end
return @time_now.unpack('LL')\0\00]+\
@time_now.unpack('LL')\0\01]*0xffffffff
end
end
#-------------------------------------#
# 初始化自身成一個全局變量
#-------------------------------------#
$sys_timer=SystemTimer.new()
#-------------------------------------#
#==============================================================================
# ☆★☆ AVI播放器 ☆★☆
#------------------------------------------------------------------------------
# - FantasyDR
# - 2006.3.8
#------------------------------------------------------------------------------
# MSN: [email protected]
#------------------------------------------------------------------------------
# Note:
#
# 1.遊戲必須使用RPGVX1.02的運行庫\0\0RGSS202E.dll/RGSS202J.dll]及更新的版本。
#
# 2.在下方 PROJECT_NAME = 後面填寫你的遊戲專案(工程)名。
#
# 3.在遊戲中用事件指令\0\0插入RGSS腳本語句]播放你的視頻文件，
# 如果一行寫不下可以在逗號後換行。
#
# $MP.play(movie_name, movie_length,
# skip, fullscr,
# x, y, width, height)
#
# 參數說明:
#
# movie_name : 視頻文件名(*.avi),必須
# movie_length : 電影時間,單位是秒,必須
# skip : 是否可以按A鍵跳過,true/false,默認是true
# fullscr : 是否強制為全屏幕播放,true/false,默認是false
# x,y : 視頻播放的左上角坐標,默認是0,0
# width,height : 視頻的寬度,可以任意.默認是640,480
#
# 例如播放logo.avi,時間13秒,禁止跳過,強制全屏,範圍(是0,0)-(640,480),循環播放
# $MP.play("logo.avi",13,false,true)
#==============================================================================
# ★★★請先這裏填寫遊戲的專案(工程)名★★★
PROJECT_NAME = "AVI播放器"
#==============================================================================
# ■ Win32API
#------------------------------------------------------------------------------
# 　需要用到的API
#==============================================================================
# 切換到全屏延時
SWITCH_DELAY = 0.1
# API使用的一些常數
WS_EX_TOPMOST = 0x8
WS_EX_TOOLWINDOW= 0x80
WS_VISIBLE = 0x10000000
WS_POPUP = 0x80000000
GWL_HINSTANCE = (-6)
WM_CLOSE = 0x10
WS_CHILD = 0x40000000
WS_NONE = 0x16000000
CP_ACP = 0
CP_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\00, 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)
Graphics.update
sleep(SWITCH_DELAY)
Graphics.update
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
# 文件不存在
movie_name = Dir.getwd()+"\\"+movie_name
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 = \0\0x, 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
rescue Hangup
retry
end
# 關閉當前窗體
$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
end
end
$MP = MoviePlayer.new

复制代码

月夜神音 · 发表于 2011-7-3 23:30:52

我的米呀发表于 2011-7-3 23:08

在Main里的$scene = Scene_Title.new前加入脚本语句，
例如播放logo.avi,時間13秒,禁止跳過,強制全屏,範圍(是0,0)-(640,480),循環播放：

$MP.play("logo.avi",13,false,true)

复制代码

oukanagisa · 发表于 2011-7-4 09:01:12

战斗里敌人数量超过3个之后就出现了这种状况，敌人名字里有两个B的，如何解决？

wsmyzc · 发表于 2011-7-4 09:12:49

本帖最后由 wsmyzc 于 2011-7-4 09:13 编辑

oukanagisa 发表于 2011-7-4 09:01
战斗里敌人数量超过3个之后就出现了这种状况，敌人名字里有两个B的，如何解决？ ...

Game_Troop里

#--------------------------------------------------------------------------
# ● 接续在敌人名称之後
#--------------------------------------------------------------------------
LETTER_TABLE = []

复制代码

这个方框里的内容看一下，是不是A B B D这样了，是的话把第二个B改成C就行了

eel · 发表于 2011-7-4 09:56:25

eel 发表于 2011-7-3 22:28
无法使用编辑队伍

call_partyform是什么

dy2084 · 发表于 2011-7-4 10:11:08

问题名称：
问题状况：请问门的地图部件在哪？
报酬：

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

[推荐问答] 【<菜鸟问题收容所> 】

评分

评分

评分

点评

评分

评分

点评

评分

评分

贵宾

开拓者

R考场第七期纪念奖