易语言制作绝地求生视野一键优化的代码

.版本 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, 路径编辑框.内容, , , )
.如果真结束
还原按钮.禁止 ＝ 真
优化效果透明标签.标题 ＝ “还原完毕，感谢你的使用。” ＋ #换行符 ＋ “（如有使用问题欢迎反馈）”
路径透明标签.标题 ＝ “配置文件路径：”
.子程序 重置标签
路径透明标签.标题 ＝ “配置文件路径：”
优化效果透明标签.标题 ＝ “优化后远处树干不显示 地面光滑” ＋ #换行符 ＋ “更容易看到远处的敌人”