感觉真伤心，选了XP，却发现很多好的功能全出在VX - Project1

#==============================================================================
# ■ 提高游戏速度(v1.0.1) by 一箭烂
#------------------------------------------------------------------------------
# 设置Graphics的@speed_lv以提高游戏速度,
# 请插在main以上的位置
#
# 属性：
#
# Graphics.speed_lv
# 加快速度(倍数), 可修改
#
# 更新：
#
# - *1.0.1* (2011-04-21) By 一箭烂(YiJL)
# *改了alias的办法, 解决F12问题
# *换了速度变量的方式
#
# - *1.0.0* (2011-04-21) By 一箭烂(YiJL)
# *初版
# *对Graphics.frame_count的修正
#
#==============================================================================
module Graphics
@speed_lv = 2 # 加快速度(倍数)
@timer = 0
@speed_update = method("update") unless @speed_update
#--------------------------------------------------------------------------
# ● Graphics.update
#--------------------------------------------------------------------------
def self.update
@timer += 1
@timer %= @speed_lv
if @timer >= (@speed_lv - 1)
@speed_update.call # 更新游戏画面
Graphics.frame_count -= 1
end
Graphics.frame_count += 1
end
#--------------------------------------------------------------------------
# ● Graphics.speed_lv
#--------------------------------------------------------------------------
def self.speed_lv
@speed_lv
end
#--------------------------------------------------------------------------
# ● Graphics.speed_lv=
#--------------------------------------------------------------------------
def self.speed_lv=(value)
@speed_lv = value
end
end

复制代码

#======================================
# ■ Anti Event Lag Script
#======================================
# 　By: Near Fantastica
# Date: 12.06.05
# Version: 3
#======================================
#======================================
# ■ Game_Map
#======================================
class Game_Map
#--------------------------------------------------------------------------
def in_range?(object)
screne_x = $game_map.display_x
screne_x -= 256
screne_y = $game_map.display_y
screne_y -= 256
screne_width = $game_map.display_x
screne_width += 2816
screne_height = $game_map.display_y
screne_height += 2176
return false if object.real_x <= screne_x
return false if object.real_x >= screne_width
return false if object.real_y <= screne_y
return false if object.real_y >= screne_height
return true
end
#--------------------------------------------------------------------------
def update
if $game_map.need_refresh
refresh
end
if @scroll_rest > 0
distance = 2 ** @scroll_speed
case @scroll_direction
when 2
scroll_down(distance)
when 4
scroll_left(distance)
when 6
scroll_right(distance)
when 8
scroll_up(distance)
end
@scroll_rest -= distance
end
for event in @events.values
if in_range?(event) or event.trigger == 3 or event.trigger == 4
event.update
end
end
for common_event in @common_events.values
common_event.update
end
@fog_ox -= @fog_sx / 8.0
@fog_oy -= @fog_sy / 8.0
if @fog_tone_duration >= 1
d = @fog_tone_duration
target = @fog_tone_target
@fog_tone.red = (@fog_tone.red * (d - 1) + target.red) / d
@fog_tone.green = (@fog_tone.green * (d - 1) + target.green) / d
@fog_tone.blue = (@fog_tone.blue * (d - 1) + target.blue) / d
@fog_tone.gray = (@fog_tone.gray * (d - 1) + target.gray) / d
@fog_tone_duration -= 1
end
if @fog_opacity_duration >= 1
d = @fog_opacity_duration
@fog_opacity = (@fog_opacity * (d - 1) + @fog_opacity_target) / d
@fog_opacity_duration -= 1
end
end
end
#======================================
# ■ Spriteset_Map
#======================================
class Spriteset_Map
#--------------------------------------------------------------------------
def in_range?(object)
screne_x = $game_map.display_x
screne_x -= 256
screne_y = $game_map.display_y
screne_y -= 256
screne_width = $game_map.display_x
screne_width += 2816
screne_height = $game_map.display_y
screne_height += 2176
return false if object.real_x <= screne_x
return false if object.real_x >= screne_width
return false if object.real_y <= screne_y
return false if object.real_y >= screne_height
return true
end
#--------------------------------------------------------------------------
def update
if @panorama_name != $game_map.panorama_name or
@panorama_hue != $game_map.panorama_hue
@panorama_name = $game_map.panorama_name
@panorama_hue = $game_map.panorama_hue
if @panorama.bitmap != nil
@panorama.bitmap.dispose
@panorama.bitmap = nil
end
if @panorama_name != ""
@panorama.bitmap = RPG::Cache.panorama(@panorama_name, @panorama_hue)
end
Graphics.frame_reset
end
if @fog_name != $game_map.fog_name or @fog_hue != $game_map.fog_hue
@fog_name = $game_map.fog_name
@fog_hue = $game_map.fog_hue
if @fog.bitmap != nil
@fog.bitmap.dispose
@fog.bitmap = nil
end
if @fog_name != ""
@fog.bitmap = RPG::Cache.fog(@fog_name, @fog_hue)
end
Graphics.frame_reset
end
@tilemap.ox = $game_map.display_x / 4
@tilemap.oy = $game_map.display_y / 4
@tilemap.update
@panorama.ox = $game_map.display_x / 8
@panorama.oy = $game_map.display_y / 8
@fog.zoom_x = $game_map.fog_zoom / 100.0
@fog.zoom_y = $game_map.fog_zoom / 100.0
@fog.opacity = $game_map.fog_opacity
@fog.blend_type = $game_map.fog_blend_type
@fog.ox = $game_map.display_x / 4 + $game_map.fog_ox
@fog.oy = $game_map.display_y / 4 + $game_map.fog_oy
@fog.tone = $game_map.fog_tone
i=0
for sprite in @character_sprites
if sprite.character.is_a?(Game_Event)
if in_range?(sprite.character) or sprite.character.trigger == 3 or sprite.character.trigger == 4
sprite.update
i+=1
end
else
sprite.update
i+=1
end
end
@weather.type = $game_screen.weather_type
@weather.max = $game_screen.weather_max
@weather.ox = $game_map.display_x / 4
@weather.oy = $game_map.display_y / 4
@weather.update
for sprite in @picture_sprites
sprite.update
end
@timer_sprite.update
@viewport1.tone = $game_screen.tone
@viewport1.ox = $game_screen.shake
@viewport3.color = $game_screen.flash_color
@viewport1.update
@viewport3.update
end
end

复制代码

#==============================================================================
# ■ 凌的容错脚本 v3 [120929]
#------------------------------------------------------------------------------
# 　解决游戏因发布时缺少文件等错误而使游戏无法正常进行的问题。
# 附赠功能：创建多层文件夹
# By 凌童鞋(66RPG)
#==============================================================================
# 　[120927]：基础版，支持Bitmap及Audio容错
# 　[120928]：修正IOError问题，感谢orzFly和雷达喵
# 　[120928]：支持Graphics.transition容错及save_data自动创建目录
# 修正部分BUG，感谢霜月冬音
#==============================================================================
File.open("errors.txt","w+"){|io|}
class Dir
class << self
alias :lynn_mkdir :mkdir unless $@
end
def self.mkdir(path, mode = 0777)
last_dir = ""
path.gsub(/\w*\//) {|m|
m.gsub(/\/|\\/){}
if last_dir != ""
last_dir = "#{last_dir}/#{m}"
else
last_dir = "#{m}"
end
if !FileTest.exist?(m) && !FileTest.directory?(m)
self.lynn_mkdir(last_dir)
end
}
end
end
module Kernel
def write_errors(argu)
open("errors.txt","a+"){|io| io.write(argu+"\n")if !io.read.to_s.include?(argu)}
end
def save_data(obj, filename)
Dir.mkdir(filename) unless FileTest.exist?(filename)
File.open(filename, "wb") { |io|
Marshal.dump(obj, io)
}
end
end
class Bitmap
alias :lynn_initialize :initialize unless $@
def initialize(* argu)
begin
lynn_initialize(* argu)
rescue Errno::ENOENT
lynn_initialize(1,1)
write_errors "Error:File not found on Bitmap.new\n#{argu[0]}"
end
end
end
module Audio
class << self
alias_method :lynn_bgm_play, :bgm_play unless $@
alias_method :lynn_bgs_play, :bgs_play unless $@
alias_method :lynn_me_play, :me_play unless $@
alias_method :lynn_se_play, :se_play unless $@
end
def self.bgm_play(* argu)
begin
self.lynn_bgm_play(* argu)
rescue Errno::ENOENT
write_errors "Error:File not found on Audio.bgm_play\n#{argu[0]}"
end
end
def self.bgs_play(* argu)
begin
self.lynn_bgs_play(* argu)
rescue Errno::ENOENT
write_errors "Error:File not found on Audio.bgs_play\n#{argu[0]}"
end
end
def self.me_play(* argu)
begin
self.lynn_me_play(* argu)
rescue Errno::ENOENT
write_errors "Error:File not found on Audio.me_play\n#{argu[0]}"
end
end
def self.se_play(* argu)
begin
self.lynn_se_play(* argu)
rescue Errno::ENOENT
write_errors "Error:File not found on Audio.se_play\n#{argu[0]}"
end
end
end
module Graphics
class << self
alias_method :lynn_transition, :transition unless $@
end
def self.transition(duration = 8, filename = "", vague = 40)
if filename != ""
if !FileTest.exist?(filename)
write_errors "Error:File not found on Graphics.transition\n#{filename}"
filename = ""
end
end
self.lynn_transition(duration,filename,vague)
end
end

复制代码

#==============================================================================
# ■ 凌的容错脚本 v3 附加包 [120929] [RMXP版本]
#------------------------------------------------------------------------------
# 　解决游戏因发布时缺少文件等错误而使游戏无法正常进行的问题。
#==============================================================================
# 　[120929]：支援在事件中执行脚本的容错功能，同时输出所在地图与事件ID
#==============================================================================
# 　* 注意本脚本只能用于标准事件解释器结构的工程
#==============================================================================
class Interpreter
#--------------------------------------------------------------------------
# ● 脚本
#--------------------------------------------------------------------------
def command_355
# script 设置第一行
script = @list[@index].parameters[0] + "\n"
# 循环
loop do
# 下一个事件指令在脚本 2 行以上的情况下
if @list[@index+1].code == 655
# 添加到 script 2 行以后
script += @list[@index+1].parameters[0] + "\n"
# 事件指令不在脚本 2 行以上的情况下
else
# 中断循环
break
end
# 推进索引
@index += 1
end
# 评价
result = eval(script)
# 返回值为 false 的情况下
if result == false
# 结束
return false
end
# 继续
return true
end
end

复制代码