#=================================================================== # 變數及金錢內部數值保護腳本_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 |
同標籤作品搜尋:RPG|RM|RPG Maker|RPG Maker XP|RMXP|遊戲|RPG 製作大師|程式|RGSS
留言共 3 篇留言
前一篇:【RGSS/Ruby】不... 後一篇:我的勇者成就 窩科科...
豬腳生活 (1)
└日常雜談、巴哈大小事 (193)
└煞氣a國中生 (7)
└高中生活日誌 (55)
└大學生活日誌 (34)
└冬令營回憶錄 (19)
└也許藏有一些小祕密吧? (3)
└各式各樣的開箱文 (11)
└貓科動物時間 (15)
繪圖創作 (1)
└電繪插圖、草稿 (199)
└短篇漫畫、單幅標語 (61)
└上課太無聊的手繪塗鴉 (8)
└不知道該怎麼分類的綜合作品 (18)
文字創作 (1)
└草莓兵的國軍紀實 (14)
└我與らい的點點滴滴 (12)
└那些榮耀的時刻與心跳加速的瞬間 (60)
└有感而發的隨筆之作、無法分類的短文 (17)
語言學習 (1)
└日語:天気がいいから (5)
└粵語:唔好再淨係識講粗口喇 (6)
└英語:Hey, you! (1)
程式設計及電腦網路 (1)
└系列文:跟著豬腳 C 起來 (10)
└系列文:論壇網站運作原理 (3)
└Go(Golang) (11)
└Ruby / RGSS (7)
└Visual Basic (13)
└JavaScript (1)
└各種原理 (17)
思想:多思考一下,世界會更不一樣 (1)
└網路經驗、社會觀察 (23)
└檸檬庫 (21)
數學:我來拯救你的期中考了 (1)
└各類基礎觀念 (5)
└國中生也能懂的微積分 (9)
└微分方程 (0)
lemonade1120 給 大家:
歡迎來逛逛看看喔~ :D看更多我要大聲說昨天23:27