赞 | 27 |
VIP | 400 |
好人卡 | 13 |
积分 | 17 |
经验 | 69730 |
最后登录 | 2023-6-12 |
在线时间 | 3038 小时 |
Lv3.寻梦者 (暗夜天使) 精灵族の天使
- 梦石
- 0
- 星屑
- 1697
- 在线时间
- 3038 小时
- 注册时间
- 2007-3-16
- 帖子
- 33731
|
加入我们,或者,欢迎回来。
您需要 登录 才可以下载或查看,没有帐号?注册会员
x
本帖最后由 精灵使者 于 2011-6-18 16:23 编辑
这个版本XP和VX通用,使用方法参考说明。
效果:右上角以数字方式显示游戏的FPS,方便测试。
v1.1 紧急修正F12错误(感谢美兽大人)
v1.2 yangff决议,修正了核心算法,更加准确。- ############################################################################
- # 显示游戏的FPS v1.2(XP&VX)
- # 作者:yangff 精灵使者
- # 使用方法:直接插入脚本的最上面即可
- # 如果不想显示的话,请删除$sc相关的部分即可
- # 调用fps的方法为:Graphics.fps
- # v1.1 紧急修正了F12错误。
- # v1.2 根据yangff的建议修正了算法。
- ############################################################################
- class <<Graphics
- alias :old_update update unless method_defined? :old_update
- alias :old_transition transition unless method_defined? :old_transition
- alias :old_freeze freeze unless method_defined? :old_freeze
- def transition(*args)
- $sc.bitmap.clear
- $sc.bitmap.draw_text(0,0,32,32,@fps.to_s)
- old_transition(*args)
- if @sec !=Time.now.sec
- @sec = Time.now.sec
- @fps = Graphics.frame_count - @frames
- @frames = Graphics.frame_count
- end
- @fps = @fps < 0 ? 0 : @fps
- @fps = @fps > Graphics.frame_rate ? Graphics.frame_rate : @fps
- end
- def update(*args)
- $sc.bitmap.clear
- $sc.bitmap.draw_text(0,0,32,32,@fps.to_s)
- old_update(*args)
- if @sec !=Time.now.sec
- @sec = Time.now.sec
- @fps = Graphics.frame_count - @frames
- @frames = Graphics.frame_count
- end
- @fps = @fps < 0 ? 0 : @fps
- @fps = @fps > Graphics.frame_rate ? Graphics.frame_rate : @fps
- end
- def freeze(*args)
- $sc.bitmap.clear
- $sc.bitmap.draw_text(0,0,32,32,@fps.to_s)
- old_freeze(*args)
- if @sec !=Time.now.sec
- @sec = Time.now.sec
- @fps = Graphics.frame_count - @frames
- @frames = Graphics.frame_count
- end
- @fps = @fps < 0 ? 0 : @fps
- @fps = @fps > Graphics.frame_rate ? Graphics.frame_rate : @fps
- end
- def _init_fps_count
- @sec = Time.now.sec
- @fps = 0
- @frames = Graphics.frame_count
- end
- def fps
- return @fps
- end
- end
- Graphics._init_fps_count
- $sc=Sprite.new
- $sc.z=999999
- $sc.bitmap=Bitmap.new(32,32)
- $sc.x = 500
- $sc.y = 16
复制代码 效果截图:
可以用内置的Graphics.fps来做更好的效果 |
评分
-
查看全部评分
|