自制脚本 - 防止变数及金钱被修改_v2 - Project1

#===================================================================
#　变数及金钱内部数值保护脚本_v2 by 金也安里 & 解冻猪脚(土拨拨)
#-------------------------------------------------------------------
# $vg_Start : 设定欲保护之变量范围(起点)
# $vg_End : 设定欲保护之变量范围(结束)
# $vg_warning : 所弹出之中文讯息
# $vg_pop : 所弹出讯息之样式－－
# 0 : 不弹出通知窗口而直接关闭游戏
# 1 : 弹出警告窗口($vg_warning的内容)
# 2 : 弹出较完整的警告窗口($vg_warning的内容加上被修改前及被修改后的数值)
# $vg_except : 不列入保护范围的变量代号。
# 假设7号与10号变量不需被保护则将$vg_except设为[7,10]
# $vg_nguard : 是否关闭此功能(true为是，false为否)
#-------------------------------------------------------------------
# 使用方法：
# 将此脚本直接取代Main脚本即可，
# 　之后若需更改Main设定请至此脚本尾调整。
#
# 注意事项：
# 勿使用 $game_party.gold += x 语法，
# 请将其改为 $game_party.gain_gold(x) 。
#===================================================================
#==================================
# 脚本设定
#==================================
$vg_Start = 1
$vg_End = 100
$vg_warning = "系统数值发生异常"
$vg_pop = 1
$vg_except = []
$vg_nguard = false
#==================================
#脚本初始化。此处资料不需更动
$vplus = []
$gplus = (rand(20000) + 1) * 1001
$gplus += rand(1001)
for i in $vg_Start..$vg_End
$vplus.push(rand(9999))
end
$old_V = []
#主要核心
module Var_Guard
def self.all_1
self::Game_Party_Gold.Game_Party_Gold_1
self::V_C.check_1
end
def self.all_2
self::Game_Party_Gold.Game_Party_Gold_2
for i in $vg_Start..$vg_End
self::V_C.check_2(i)
end
end
module Game_Party_Gold
def self.Game_Party_Gold_1
@old_gold = $game_party.gold * $gplus
end
def self.Game_Party_Gold_2
unless $vg_nguard
if @old_gold != $game_party.gold * $gplus and @old_gold != nil
@a = $game_party.gold - (@old_gold / $gplus)
@c = 0
@b = $game_temp.gold_check
@b.each{|i| @c += i}
if @a == @c
@old_gold = $game_party.gold * $gplus
@b.clear
else
print $vg_warning if $vg_pop == 1
print "#{$vg_warning}\n:::Error10000-#{@old_gold/($gplus)}-#{$game_party.gold}" if $vg_pop == 2
exit
end
end
end
end
end
module V_C
def self.check_1
for i in $vg_Start..$vg_End
if $gplus != nil and $vplus[i] !=nil
$old_V[i] = $game_variables[i] * ($gplus + $vplus[i])
end
end
end
def self.check_2(v)
unless $vg_nguard
if $gplus != nil and $vplus[v] !=nil
if $old_V[v] != $game_variables[v] * ($gplus + $vplus[v]) and $old_V[v] != nil
@a = $game_variables[v] - ($old_V[v] / ($gplus+$vplus[v]))
@c = 0
@b = $game_temp.V_check[v]
@b.each{|i| @c += i}
if @a == @c
$old_V[v] = $game_variables[v] * ($gplus + $vplus[v])
@b.clear
elsif (@a != @c) and (not $vg_except.include?(v))
tmp = sprintf("1%04d",v)
print $vg_warning if $vg_pop == 1
print "#{$vg_warning}\n:::Error#{tmp}-#{$old_V[v]/($gplus+$vplus[v])}-#{$game_variables[v]}" if $vg_pop == 2
exit
end
end
end
end
end
end
end
#新增此系统需要的变量
class Game_Temp
attr_accessor :gold_check
attr_accessor :V_check
alias tubobo_initialize initialize
def initialize
tubobo_initialize
@gold_check = []
@V_check = []
$old_V = []
for i in $vg_Start..$vg_End
@V_check[i] = []
end
end
end
#重新定义变量被更改时触发的脚本
class Game_Variables
def []=(variable_id, value)
@a = $game_variables[variable_id]
if variable_id <= 5000
@data[variable_id] = value
end
@a_1 = ($game_variables[variable_id]-@a)
$game_temp.V_check[variable_id].push(@a_1)
end
end
#重新定义取得金钱的方式
class Game_Party
def gain_gold(n)
@og = @gold
@gold = [[@gold + n, 0].max, 9999999].min
$game_temp.gold_check.push(@gold-@og)
end
end
class Scene_Map
alias tubobo_mupd update
def update
tubobo_mupd
begin;Var_Guard.all_2;rescue;end
end
end
#此处可设定Main之内容
begin
Graphics.freeze
Font.default_name = (["宋体"])
$scene = Scene_Title.new
while $scene != nil
begin;Var_Guard.all_2;rescue;end
begin;Var_Guard.all_1;rescue;end
$scene.main
end
Graphics.transition(20)
rescue Errno::ENOENT
filename = $!.message.sub("No such file or directory - ", "")
print("找不到文件 #{filename}。 ")
end

复制代码