今天小編就爲大家分享一篇關於易語言製作絕地求生視野一鍵優化的代碼，小編覺得內容挺不錯的，現在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧
絕地求生一鍵優化的代碼
優化後遠處樹幹不顯示，地面光滑，更容易看到遠處的敵人。
.版本 2
.支持庫 shell
.支持庫 spec
.支持庫 iext
.程序集 窗口程序集_啓動窗口
.子程序 __啓動窗口_創建完畢
路徑編輯框.內容 ＝ 取特定目錄 (8) ＋ “..\Local\TslGame\Saved\Config\WindowsNoEditor\”
.如果 (文件是否存在 (路徑編輯框.內容 ＋ “\一鍵優化備份\”))
還原按鈕.禁止 ＝ 假
.否則
還原按鈕.禁止 ＝ 真
.如果結束
.子程序 _目錄按鈕_被單擊
執行 (4, 路徑編輯框.內容, , , )
.子程序 _普通優化按鈕_被單擊
.局部變量 是否複製出錯, 邏輯型
.如果真 (文件是否存在 (路徑編輯框.內容 ＋ “一鍵優化備份”) ＝ 假)
創建目錄 (路徑編輯框.內容 ＋ “一鍵優化備份”)
調試輸出 (路徑編輯框.內容 ＋ “一鍵優化備份”)
.如果真 (複製文件 (路徑編輯框.內容 ＋ “Engine.ini”, 路徑編輯框.內容 ＋ “一鍵優化備份\Engine.ini”) ＝ 假)
是否複製出錯 ＝ 真
.如果真結束
.如果真 (複製文件 (路徑編輯框.內容 ＋ “GameUserSettings.ini”, 路徑編輯框.內容 ＋ “一鍵優化備份\GameUserSettings.ini”) ＝ 假)
是否複製出錯 ＝ 真
.如果真結束
.如果真 (複製文件 (路徑編輯框.內容 ＋ “Scalability.ini”, 路徑編輯框.內容 ＋ “一鍵優化備份\Scalability.ini”) ＝ 假)
是否複製出錯 ＝ 真
.如果真結束
.如果真 (是否複製出錯)
信息框 (“備份失敗，請以管理員身份運行本程序。”, 0, )
.如果真結束
.如果真結束
寫配置項 (路徑編輯框.內容 ＋ “Engine.ini”, “Core.System”, “r.TextureStreaming”, “False”)
寫配置項 (路徑編輯框.內容 ＋ “GameUserSettings.ini”, “ScalabilityGroups”, “sg.ResolutionQuality”, “70.000000”)
寫配置項 (路徑編輯框.內容 ＋ “GameUserSettings.ini”, “ScalabilityGroups”, “sg.ViewDistanceQuality”, “0”)
寫配置項 (路徑編輯框.內容 ＋ “GameUserSettings.ini”, “ScalabilityGroups”, “sg.AntiAliasingQuality”, “0”)
寫配置項 (路徑編輯框.內容 ＋ “GameUserSettings.ini”, “ScalabilityGroups”, “sg.ShadowQuality”, “0”)
寫配置項 (路徑編輯框.內容 ＋ “GameUserSettings.ini”, “ScalabilityGroups”, “sg.PostProcessQuality”, “0”)
寫配置項 (路徑編輯框.內容 ＋ “GameUserSettings.ini”, “ScalabilityGroups”, “sg.TextureQuality”, “3”)
寫配置項 (路徑編輯框.內容 ＋ “GameUserSettings.ini”, “ScalabilityGroups”, “sg.EffectsQuality”, “0”)
寫配置項 (路徑編輯框.內容 ＋ “GameUserSettings.ini”, “ScalabilityGroups”, “sg.FoliageQuality”, “0”)
寫配置項 (路徑編輯框.內容 ＋ “Scalability.ini”, “TextureQuality@0”, , ) ' 清空數據
寫配置項 (路徑編輯框.內容 ＋ “Scalability.ini”, “TextureQuality@3”, “r.Streaming.MipBias”, “16”)
寫配置項 (路徑編輯框.內容 ＋ “Scalability.ini”, “TextureQuality@3”, “r.MaxAnisotropy”, “8”)
寫配置項 (路徑編輯框.內容 ＋ “Scalability.ini”, “TextureQuality@3”, “r.Streaming.PoolSize”, “0.01”)
還原按鈕.禁止 ＝ 假
優化效果透明標籤.標題 ＝ “優化完畢” ＋ #換行符 ＋ “（如果更新後出現不兼容隨時可以還原）”
路徑透明標籤.標題 ＝ “配置文件路徑：”
.子程序 _低配優化按鈕_被單擊
.局部變量 是否複製出錯, 邏輯型
.如果真 (文件是否存在 (路徑編輯框.內容 ＋ “一鍵優化備份”) ＝ 假)
創建目錄 (路徑編輯框.內容 ＋ “一鍵優化備份”)
調試輸出 (路徑編輯框.內容 ＋ “一鍵優化備份”)
.如果真 (複製文件 (路徑編輯框.內容 ＋ “Engine.ini”, 路徑編輯框.內容 ＋ “一鍵優化備份\Engine.ini”) ＝ 假)
是否複製出錯 ＝ 真
.如果真結束
.如果真 (複製文件 (路徑編輯框.內容 ＋ “GameUserSettings.ini”, 路徑編輯框.內容 ＋ “一鍵優化備份\GameUserSettings.ini”) ＝ 假)
是否複製出錯 ＝ 真
.如果真結束
.如果真 (複製文件 (路徑編輯框.內容 ＋ “Scalability.ini”, 路徑編輯框.內容 ＋ “一鍵優化備份\Scalability.ini”) ＝ 假)
是否複製出錯 ＝ 真
.如果真結束
.如果真 (是否複製出錯)
信息框 (“備份失敗，請以管理員身份運行本程序。”, 0, )
.如果真結束
.如果真結束
寫配置項 (路徑編輯框.內容 ＋ “Engine.ini”, “Core.System”, “r.TextureStreaming”, “False”)
寫配置項 (路徑編輯框.內容 ＋ “GameUserSettings.ini”, “ScalabilityGroups”, “sg.ResolutionQuality”, “70.000000”)
寫配置項 (路徑編輯框.內容 ＋ “GameUserSettings.ini”, “ScalabilityGroups”, “sg.ViewDistanceQuality”, “0”)
寫配置項 (路徑編輯框.內容 ＋ “GameUserSettings.ini”, “ScalabilityGroups”, “sg.AntiAliasingQuality”, “0”)
寫配置項 (路徑編輯框.內容 ＋ “GameUserSettings.ini”, “ScalabilityGroups”, “sg.ShadowQuality”, “0”)
寫配置項 (路徑編輯框.內容 ＋ “GameUserSettings.ini”, “ScalabilityGroups”, “sg.PostProcessQuality”, “0”)
寫配置項 (路徑編輯框.內容 ＋ “GameUserSettings.ini”, “ScalabilityGroups”, “sg.TextureQuality”, “0”)
寫配置項 (路徑編輯框.內容 ＋ “GameUserSettings.ini”, “ScalabilityGroups”, “sg.EffectsQuality”, “0”)
寫配置項 (路徑編輯框.內容 ＋ “GameUserSettings.ini”, “ScalabilityGroups”, “sg.FoliageQuality”, “0”)
寫配置項 (路徑編輯框.內容 ＋ “Scalability.ini”, “TextureQuality@3”, , ) ' 清空數據
寫配置項 (路徑編輯框.內容 ＋ “Scalability.ini”, “TextureQuality@0”, “r.Streaming.MipBias”, “16”)
寫配置項 (路徑編輯框.內容 ＋ “Scalability.ini”, “TextureQuality@0”, “r.MaxAnisotropy”, “8”)
寫配置項 (路徑編輯框.內容 ＋ “Scalability.ini”, “TextureQuality@0”, “r.Streaming.PoolSize”, “0.01”)
還原按鈕.禁止 ＝ 假
優化效果透明標籤.標題 ＝ “優化完畢” ＋ #換行符 ＋ “（如果更新後出現不兼容隨時可以還原）”
路徑透明標籤.標題 ＝ “配置文件路徑：”
.子程序 _還原按鈕_被單擊
.局部變量 是否複製出錯, 邏輯型
.如果真 (文件是否存在 (路徑編輯框.內容 ＋ “\一鍵優化備份\”) ＝ 假)
創建目錄 (路徑編輯框.內容 ＋ “一鍵優化備份”)
調試輸出 (路徑編輯框.內容 ＋ “一鍵優化備份”)
.如果真 (移動文件 (路徑編輯框.內容 ＋ “一鍵優化備份\Engine.ini”, 路徑編輯框.內容 ＋ “Engine.ini”) ＝ 假)
是否複製出錯 ＝ 真
.如果真結束
.如果真 (移動文件 (路徑編輯框.內容 ＋ “一鍵優化備份\GameUserSettings.ini”, 路徑編輯框.內容 ＋ “GameUserSettings.ini”) ＝ 假)
是否複製出錯 ＝ 真
.如果真結束
.如果真 (移動文件 (路徑編輯框.內容 ＋ “一鍵優化備份\Scalability.ini”, 路徑編輯框.內容 ＋ “Scalability.ini”) ＝ 假)
是否複製出錯 ＝ 真
.如果真結束
.如果真 (是否複製出錯)
信息框 (“還原失敗，請以管理員身份運行本程序。”, 0, )
.如果真結束
.如果真結束
.如果真 (刪除目錄 (路徑編輯框.內容 ＋ “一鍵優化備份”) ＝ 假)
信息框 (“刪除備份文件失敗，請手動刪除。”, 0, )
執行 (4, 路徑編輯框.內容, , , )
.如果真結束
還原按鈕.禁止 ＝ 真
優化效果透明標籤.標題 ＝ “還原完畢，感謝你的使用。” ＋ #換行符 ＋ “（如有使用問題歡迎反饋）”
路徑透明標籤.標題 ＝ “配置文件路徑：”
.子程序 重置標籤
路徑透明標籤.標題 ＝ “配置文件路徑：”
優化效果透明標籤.標題 ＝ “優化後遠處樹幹不顯示 地面光滑” ＋ #換行符 ＋ “更容易看到遠處的敵人”
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對神馬文庫的支持。如果你想了解更多相關內容請查看下面相關鏈接