设为首页收藏本站|繁體中文

开启辅助访问

Project1»广场 › 技术讨论 › RPG Maker XP 讨论区 › 请问，如何做到刷新很多图片。但又不会让程序自动关闭？ ...

请问，如何做到刷新很多图片。但又不会让程序自动关闭？

查看数: 1451 | 评论数: 6 | 收藏 0

关灯 | 提示：支持键盘翻页<-左右->

发布时间: 2011-7-6 19:06

正文摘要:

每次内存占用一到430多M就自动关闭的。我感觉这个问题是因为图片刷新太多引起的：标题画面（有同样问题的是主菜单）的脚本（要考虑到鼠标支持的）：#====================================================== ...

回复

R-零 发表于 2011-7-10 15:29:17

换个方法吧，先修改Scene_Title 跳过标题画面
直接进入初期地图
用事件制作标题

Wind2010 发表于 2011-7-6 19:37:17

于是乎被隔开一楼就不连帖了XD

这个是主菜单的修改，就是你发出来的第二个脚本

if @menu_window.active
if @old_index != @menu_index
@old_index = @menu_index
case @menu_window.index
when 0
@command2_1.bitmap = Bitmap.new("Graphics/Pictures/物品·一")
@command2_2.bitmap = Bitmap.new("Graphics/Pictures/装备·平常")
@command2_3.bitmap = Bitmap.new("Graphics/Pictures/奇术·一")
@command2_4.bitmap = Bitmap.new("Graphics/Pictures/天书·平常")
@command2_5.bitmap = Bitmap.new("Graphics/Pictures/记载·平常")
@command2_6.bitmap = Bitmap.new("Graphics/Pictures/系统·平常")
when 1
@command2_1.bitmap = Bitmap.new("Graphics/Pictures/物品·平常")
@command2_2.bitmap = Bitmap.new("Graphics/Pictures/装备·一")
@command2_3.bitmap = Bitmap.new("Graphics/Pictures/奇术·一")
@command2_4.bitmap = Bitmap.new("Graphics/Pictures/天书·平常")
@command2_5.bitmap = Bitmap.new("Graphics/Pictures/记载·平常")
@command2_6.bitmap = Bitmap.new("Graphics/Pictures/系统·平常")
when 2
@command2_1.bitmap = Bitmap.new("Graphics/Pictures/物品·平常")
@command2_2.bitmap = Bitmap.new("Graphics/Pictures/装备·平常")
@command2_3.bitmap = Bitmap.new("Graphics/Pictures/奇术·二")
@command2_4.bitmap = Bitmap.new("Graphics/Pictures/天书·平常")
@command2_5.bitmap = Bitmap.new("Graphics/Pictures/记载·平常")
@command2_6.bitmap = Bitmap.new("Graphics/Pictures/系统·平常")
when 3
@command2_1.bitmap = Bitmap.new("Graphics/Pictures/物品·平常")
@command2_2.bitmap = Bitmap.new("Graphics/Pictures/装备·平常")
@command2_3.bitmap = Bitmap.new("Graphics/Pictures/奇术·一")
@command2_4.bitmap = Bitmap.new("Graphics/Pictures/天书·一")
@command2_5.bitmap = Bitmap.new("Graphics/Pictures/记载·平常")
@command2_6.bitmap = Bitmap.new("Graphics/Pictures/系统·平常")
when 4
@command2_1.bitmap = Bitmap.new("Graphics/Pictures/物品·平常")
@command2_2.bitmap = Bitmap.new("Graphics/Pictures/装备·平常")
@command2_3.bitmap = Bitmap.new("Graphics/Pictures/奇术·一")
@command2_4.bitmap = Bitmap.new("Graphics/Pictures/天书·平常")
@command2_5.bitmap = Bitmap.new("Graphics/Pictures/记载·一")
@command2_6.bitmap = Bitmap.new("Graphics/Pictures/系统·平常")
when 5
@command2_1.bitmap = Bitmap.new("Graphics/Pictures/物品·平常")
@command2_2.bitmap = Bitmap.new("Graphics/Pictures/装备·平常")
@command2_3.bitmap = Bitmap.new("Graphics/Pictures/奇术·一")
@command2_4.bitmap = Bitmap.new("Graphics/Pictures/天书·平常")
@command2_5.bitmap = Bitmap.new("Graphics/Pictures/记载·平常")
@command2_6.bitmap = Bitmap.new("Graphics/Pictures/系统·一")
end
end
end

复制代码

忧雪の伤 发表于 2011-7-6 19:28:39

本帖最后由忧雪の伤于 2011-7-6 19:30 编辑

Wind2010 发表于 2011-7-6 19:23
感觉应该不会到卡死的程度- -倒是觉得LZ频繁刷新了

一直构建Bitmap这种极其消耗效率的实例。不卡也奇怪……
所以……Bitmap#dispose吧。

点评

恩，看了一下- -|| 发表于 2011-7-6 19:37

不是每帧判断index然后根据index每帧修改图片么XD 发表于 2011-7-6 19:34

他貌似判断了。发表于 2011-7-6 19:31

不是应该判断index改变才刷新么发表于 2011-7-6 19:29

Wind2010 发表于 2011-7-6 19:23:28

本帖最后由 Wind2010 于 2011-7-6 19:38 编辑

感觉应该不会到卡死的程度- -倒是觉得LZ频繁刷新了

嗯，试试这样会不会好点：

class Scene_Title
def update
if @wait_count > 1
@wait_count -= 1
return
end
# 刷新命令窗口
@command_window.update
if @Title_system_window.active
@Title_system_window.update
end
if @old_index != @command_window.index
@old_index = @command_window.index
case @command_window.index
when 0 # 開始遊戲
@wait_count = 20
@Title_command_1.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-7")
@Title_command_2.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-3")
@Title_command_3.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-4")
@Title_command_4.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-5")
@Title_command_5.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-6")
when 1 # 讀取遊戲
@wait_count = 20
# @command.bitmap = Bitmap.new("Graphics/Pictures/titles/title_2")
@Title_command_1.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-2")
@Title_command_2.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-8")
@Title_command_3.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-4")
@Title_command_4.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-5")
@Title_command_5.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-6")
when 2 # 遊戲設定
@wait_count = 20
# @command.bitmap = Bitmap.new("Graphics/Pictures/titles/title_3")
@Title_command_1.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-2")
@Title_command_2.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-3")
@Title_command_3.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-9")
@Title_command_4.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-5")
@Title_command_5.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-6")
when 3 # 離開遊戲
@wait_count = 20
@Title_command_1.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-2")
@Title_command_2.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-3")
@Title_command_3.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-4")
@Title_command_4.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-10")
@Title_command_5.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-6")
when 4 #
@wait_count = 20
@Title_command_1.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-2")
@Title_command_2.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-3")
@Title_command_3.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-4")
@Title_command_4.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-5")
@Title_command_5.bitmap = Bitmap.new("Graphics/Pictures/title_command/63-11")
end
end
if @Title_system_window.active
if Input.trigger?(Input::B)
@command_window.active = true
@command_window.visible = true
@Title_system_window.active = false
@Title_system_window.visible = false
return
end
end
# 按下 C 键的情况下
if Input.trigger?(Input::C)
case @Title_system_window.index
when 0
system_cht
return
when 1
system_chs
return
end
# 命令窗口的光标位置的分支
case @command_window.index
when 0 # 新游戏
command_new_game
when 1 # 继续
command_continue
when 2 # 系统设定
command_systemsettings
when 3 # 退出
command_shutdown
when 4 #
command_movie
end
end
end
end

复制代码

直接当外来脚本插入就行了，或者删掉最上面一行和最下面一行然后替换掉update

点评

Bitmap#disposed? 发表于 2011-7-6 19:37

我改的只是update部分，其它部分……我什么都不知道发表于 2011-7-6 19:33

soka，.new前加个dispose吧…… 发表于 2011-7-6 19:32

plummy 发表于 2011-7-6 19:22:07

建议去看看柳柳的《公共事件制作菜单》，别用脚本了

点评

我并没有说要放弃脚本，只是让他试试用事件做发表于 2011-7-6 19:38

不要口口声声的叫别人放弃脚本学什么事件。这就是我要告诉你的而已。发表于 2011-7-6 19:36

唉，我做菜单一直都是用公共事件的发表于 2011-7-6 19:34

事件的最终结果就是脚本，别以为用了事件效率还能提高，那只会降低。发表于 2011-7-6 19:32

结果都一样。发表于 2011-7-6 19:31

忧雪の伤 发表于 2011-7-6 19:16:59

#==============================================================================
# ■ Hangup 异常根除
# Hangup Exception Eradication
#----------------------------------------------------------------------------
#
# Hangup 异常是 RMXP 底层引擎内置的一个异常类，游戏进程会在 Graphics.update
# 没有调用超过 10 秒时抛出这个异常。这个脚本使用了 Windows API 暴力地解除
# 了这个限制。
# 使用方法：Hangup 异常根除脚本必须插入到脚本编辑器的最顶端，所有脚本之前，无
# 例外。
#
#----------------------------------------------------------------------------
#
# 更新作者：紫苏
# 许可协议： FSL -MEE
# 项目版本： 1.2.0827
# 引用网址：
# http://rpg.blue/forum.php?mod=viewthread&tid=134316
# http://szsu.wordpress.com/2010/08/09/hangup_eradication
#
#----------------------------------------------------------------------------
#
# - 1.2.0827 By 紫苏
# * 更改了配置模块名
# * 更改了 FSL 注释信息
#
# - 1.2.0805 By 紫苏
# * 脚本开始遵循 FSL
# * 全局范围内改变了脚本结构
#
# - 1.1.1101 By 紫苏
# * 修正了脚本在 Windows XP 平台下失效的问题
#
# - 1.0.0927 By 紫苏
# * 初始版本完成
#
#==============================================================================
$__jmp_here.call if $__jmp_here
#----------------------------------------------------------------------------
# ● 登记 FSL。
#----------------------------------------------------------------------------
$fscript = {} if !$fscript
$fscript['HangupEradication'] = '1.2.0827'
#==============================================================================
# ■ FSL
#------------------------------------------------------------------------------
# 　自由RGSS脚本通用公开协议的功能模块。
#==============================================================================
module FSL
module HangupEradication
#------------------------------------------------------------------------
# ● 定义需要的 Windows API。
#------------------------------------------------------------------------
OpenThread = Win32API.new('kernel32', 'OpenThread', 'LIL', 'L')
CloseHandle = Win32API.new('kernel32', 'CloseHandle', 'L', 'I')
Thread32Next = Win32API.new('kernel32', 'Thread32Next', 'LP', 'I')
ResumeThread = Win32API.new('kernel32', 'ResumeThread', 'L', 'L')
SuspendThread = Win32API.new('kernel32', 'SuspendThread', 'L', 'L')
Thread32First = Win32API.new('kernel32', 'Thread32First', 'LP', 'I')
GetCurrentProcessId = Win32API.new('kernel32', 'GetCurrentProcessId', 'V', 'L')
CreateToolhelp32Snapshot = Win32API.new('kernel32', 'CreateToolhelp32Snapshot', 'LL', 'L')
end
end
#==============================================================================
# ■ HangupEradication
#------------------------------------------------------------------------------
# 　处理根除 Hangup 异常的类。
#==============================================================================
class HangupEradication
include FSL::HangupEradication
#--------------------------------------------------------------------------
# ● 初始化对像。
#--------------------------------------------------------------------------
def initialize
@hSnapShot = CreateToolhelp32Snapshot.call(4, 0)
@hLastThread = OpenThread.call(2, 0, self.getLastThreadId)
#@hLastThread = OpenThread.call(2097151, 0, threadID)
ObjectSpace.define_finalizer(self, self.method(:finalize))
end
#--------------------------------------------------------------------------
# ● 获取当前进程创建的最后一个线程的标识。
#--------------------------------------------------------------------------
def getLastThreadId
threadEntry = [28, 0, 0, 0, 0, 0, 0].pack("L*")
threadId = 0 # 线程标识
found = Thread32First.call(@hSnapShot, threadEntry) # 准备枚举线程
while found != 0
arrThreadEntry = threadEntry.unpack("L*") # 线程数据解包
if arrThreadEntry[3] == GetCurrentProcessId.call # 匹配进程标识
threadId = arrThreadEntry[2] # 记录线程标识
end
found = Thread32Next.call(@hSnapShot, threadEntry) # 下一个线程
end
return threadId
end
#--------------------------------------------------------------------------
# ● 根除 Hangup 异常。
# 2 : “暂停和恢复线程访问权限”代码；
# 2097151 : “所有可能的访问权限”代码（Windows XP 平台下无效）。
#--------------------------------------------------------------------------
def eradicate
SuspendThread.call(@hLastThread)
end
#--------------------------------------------------------------------------
# ● 恢复 Hangup 异常。
#--------------------------------------------------------------------------
def resume
while ResumeThread.call(@hLastThread) > 1; end # 恢复最后一个线程
end
#--------------------------------------------------------------------------
# ● 最终化对像。
#--------------------------------------------------------------------------
def finalize
CloseHandle.call(@hSnapShot)
CloseHandle.call(@hLastThread)
end
end
hangupEradication = HangupEradication.new
hangupEradication.eradicate
callcc { |$__jmp_here| } # F12 后的跳转标记
#==============================================================================
# ■ 游戏主过程
#------------------------------------------------------------------------------
# 　游戏脚本的解释从这个外壳开始。
#==============================================================================
for subscript in 1...$RGSS_SCRIPTS.size
begin
eval(Zlib::Inflate.inflate($RGSS_SCRIPTS[subscript][2]))
rescue Exception => ex
# 异常发生并抛出给解释器时恢复线程。
hangupEradication.resume unless defined?(Reset) and ex.class == Reset
raise ex
end
end
hangupEradication.resume
exit

复制代码

站长信箱：[email protected]|手机版|小黑屋|无图版|Project1游戏制作

GMT+8, 2024-11-26 12:18

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表