增加准星助手

增加一键政令独立版
3.0更新

.gitignore

@@ -1 +1,2 @@
 TheDivision2.ini
+*.ini

一键政令独立版/一键政令独立版.ahk

@@ -0,0 +1,230 @@
+#NoEnv
+#InstallKeybdHook
+#InstallMouseHook
+#KeyHistory 50
+#UseHook
+#MaxThreadsPerHotkey 1
+#MaxThreads 30
+#MaxThreadsBuffer off
+SendMode Input
+ListLines, Off
+
+SetWorkingDir %A_ScriptDir%
+
+PID := DllCall("GetCurrentProcessId")
+Process, Priority, %PID%, High
+
+global voiceObject := ComObjCreate("SAPI.SpVoice")
+;voiceObject.Rate := 4
+voiceObject.Volume := 100
+global delay :=100
+
+if FileExist("ZLsettings.ini")
+{
+  IniRead , vOneKeyZL, ZLsettings.ini, 一键政令, 启用, 1
+  IniRead, delay, ZLsettings.ini, 一键政令, 延迟, 150
+  IniRead , vResetArea, ZLsettings.ini, 一键政令, 重置控制点, 1
+  IniRead , vSwitchLevel, ZLsettings.ini, 一键政令, 切换难度, 1
+
+}
+Else
+{
+  iniWrite , 1, ZLsettings.ini, 一键政令, 启用
+  iniWrite, 150, ZLsettings.ini, 一键政令, 延迟
+  iniWrite , 1, ZLsettings.ini, 一键政令, 重置控制点
+  iniWrite , 1, ZLsettings.ini, 一键政令, 切换难
+}
+;#####################
+;#====菜单相关====#
+;#####################
+Menu , tray, NoStandard
+
+Menu , tray, add,
+Menu , tray, add, 一键政令|ALT+1, OnekeyZL
+if (vOneKeyZL) {
+  Menu , tray, check, 一键政令|ALT+1
+}
+
+Menu , tray, add, 一键政令时重置控制点, ResetArea
+if (vResetArea) {
+  Menu , tray, check, 一键政令时重置控制点
+}
+
+Menu , tray, add, 一键政令时切换难度, SwitchLevel
+if (vSwitchLevel) {
+  Menu , tray, check, 一键政令时切换难度
+}
+
+;===========================================
+Menu,Tray,Add,
+;常规控制 Menu, tray, add, Menu, tray, NoStandard
+Menu,tray,add,重置 | Reload,ReloadScript
+Menu,tray,add,暂停 | Pause,PauseScript
+Menu,tray,add,
+Menu,tray,add,更新 | Ver %ver%,Version	;使用资源表示符 207 表示的图标
+Menu,tray,add,退出 | Exit,ExitScript
+
+#IfWinActive ahk_exe TheDivision2.exe
+
+  ; 打开或关闭 5 政令，默认是 Alt+1
+  !1:: ;英雄难度,5政令,重置控制点
+    SendKey("m")
+    Sleep delay
+    SendKey("z")
+    Sleep delay
+
+    if (vSwitchLevel)
+    {
+
+      SendKey("Space") ;开启英雄难度
+      Sleep delay
+      Loop, 3
+      {
+        SendKey("Down")
+        Sleep delay
+      }
+      SendKey("Space") ;英雄难度
+      Sleep delay
+      SendKey("Esc")
+      Sleep delay
+    }
+
+    SendKey("Down")
+    Sleep delay
+    SendKey("Space")
+    Sleep delay
+
+    Loop, 4 ;开政令
+    {
+      SendKey("Space")
+      Sleep delay
+      SendKey("Down")
+      Sleep delay
+    }
+
+    SendKey("Space")
+    Sleep delay
+    SendKey("Esc")
+    Sleep delay
+
+    if (vResetArea = 1)
+    {
+      SendKey("Down")
+      Sleep delay
+      SendKey("Space")
+      Sleep delay
+    }
+
+    SendKey("f")
+    Sleep 300
+    SendKey("Space",200)
+    Sleep delay
+    SendKey("m")
+  return
+
+  !2:: ;一般难度,5政令关闭
+    SendKey("m")
+    Sleep delay
+    SendKey("z")
+    Sleep delay
+    if (vSwitchLevel){
+      ;开启一般难度
+      SendKey("Space")
+      Sleep delay
+      SendKey("Space")
+      Sleep delay
+    }
+    SendKey("Esc")
+    Sleep delay
+    SendKey("Down")
+    Sleep delay
+    SendKey("Space")
+    Sleep delay
+
+    ;关闭政令
+    Loop, 4 
+    {
+      SendKey("Space")
+      Sleep delay
+      SendKey("Down")
+      Sleep delay
+    }
+
+    SendKey("Space")
+    Sleep delay
+    SendKey("Esc")
+    Sleep delay
+
+    if (vResetArea = 1)
+    {
+      SendKey("Down")
+      Sleep delay
+      SendKey("Space")
+      Sleep delay
+    }
+
+    SendKey("f")
+    Sleep 300
+    SendKey("Space",200)
+    Sleep delay
+    SendKey("m")
+  return
+  #IF
+
+  SendKey(Key, vDelay := 80)
+  {
+    Send {%key% Down}
+    Sleep vDelay
+    Send {%key% Up}
+  }
+
+  ;#####################
+  ;#====一键政令相关菜单====#
+  ;#####################
+  ;一键政令
+  OnekeyZL:
+    Menu, Tray, ToggleCheck, 一键政令|ALT+1
+    vOneKeyZL := Not vOneKeyZL
+    IniWrite, % vOneKeyZL, ZLsettings.ini, 一键政令, 启用
+  return
+
+  ;重置控制点
+  ResetArea:
+    Menu, Tray, ToggleCheck, 一键政令时重置控制点
+    vResetArea := Not vResetArea
+    IniWrite, % vResetArea, ZLsettings.ini, 一键政令, 重置控制点
+  return
+
+  ;切换难度
+  SwitchLevel:
+    Menu, Tray, ToggleCheck, 一键政令时切换难度
+    vSwitchLevel := Not vSwitchLevel
+    IniWrite, % vSwitchLevel, ZLsettings.ini, 一键政令, 切换难度
+  return
+
+  ;#####################
+  ;#====常规标签====#
+  ;#####################
+  MenuHandler:
+  return
+
+  ReloadScript:
+    Reload
+  return
+
+  PauseScript:
+    Suspend, Toggle
+    Pause, Toggle
+  return
+
+  Help:
+    run,https://coralfox.notion.site/2-4e842f64f12f4e34bf827f29c30a6942
+  return
+
+  Version:
+    ;ShowToolTip("1.5")
+  return
+
+  ExitScript:
+  ExitApp
+  return

全境封锁2-按键助手.ahk

@@ -10,14 +10,13 @@
 #MaxThreads 30
 #MaxThreadsBuffer off
 ; #Include BTT.ahk
-; SendMode InputThenPlay
+SendMode InputThenPlay
 ListLines , Off
 CurPID := DllCall("GetCurrentProcessId")
 Process , Priority, %CurPID%, High
 CoordMode , Pixel, Screen
 CoordMode , Mouse, Screen
 SetWorkingDir %A_ScriptDir%
-
 ;#####################
 ;#====读取ini&初始化====#
 ;#####################
@@ -56,7 +55,7 @@ IniRead , vSetUPC, TheDivision2.ini, 游戏启动, 降低UPC, 1
 IniRead , vSetEN, TheDivision2.ini, 游戏启动, 英文模式, 1
 
 IniRead , vOneKeyZL, TheDivision2.ini, 一键政令, 启用, 1
-IniRead , resetArea, TheDivision2.ini, 一键政令, 重置控制点, 1
+IniRead , vResetArea, TheDivision2.ini, 一键政令, 重置控制点, 1
 
 IniRead , vAutoBox, TheDivision2.ini, 服装箱子, 启用, 0
 
@@ -154,8 +153,8 @@ if (vOneKeyZL) {
     Menu , tray, check, 一键政令|ALT+1
 }
 
-Menu , tray, add, 一键政令时重置控制点, ResetControlArea
-if (resetArea) {
+Menu , tray, add, 一键政令时重置控制点, ResetArea
+if (vResetArea) {
     Menu , tray, check, 一键政令时重置控制点
 }
 
@@ -371,41 +370,41 @@ return cmdInfo
 ; 打开或关闭 5 政令，默认是 Alt+1
 #If (WinActive("ahk_exe TheDivision2.exe") or debug) AND vOneKeyZL
 !1::
-vDelay:=150
-SendPlay {m}
-Sleep %vDelay%
-SendPlay {z}
-Sleep %vDelay%
-SendPlay {Down}
-Sleep %vDelay%
-SendPlay {Space}
-Sleep %vDelay%
+vDelay:=80
+SendKey("m")
+Sleep vDelay
+SendKey("z")
+Sleep vDelay
+SendKey("Down")
+Sleep vDelay
+SendKey("Space")
+Sleep vDelay
 
 loop, 4
 {
-    SendPlay {Space}
-    Sleep %vDelay%
-    SendPlay {Down}
-    Sleep %vDelay%
+    SendKey("Space")
+    Sleep vDelay
+    SendKey("Down")
+    Sleep vDelay
 }
 
-SendPlay {Space}
-Sleep %vDelay%
-SendPlay {Esc}
-Sleep %vDelay%
+SendKey("Space")
+Sleep vDelay
+SendKey("Esc")
+Sleep vDelay
 ;根据选项决定是否重置控制点
-if (resetArea = 1)
+if (vResetArea = 1)
 {
-    SendPlay {Down}
-    Sleep %vDelay%
-    SendPlay {Space}
-    Sleep %vDelay%
+    SendKey("Down")
+    Sleep vDelay
+    SendKey("Space")
+    Sleep vDelay
 }
-SendPlay {f}
+SendKey("f")
+Sleep 300
+SendKey("Space",200)
 Sleep 300
-SendPlay {Space}
-Sleep %vDelay%
-SendPlay {m}
+SendKey("m")
 return
 
 ; 启动自动打开服装箱，默认是 Alt+2
@@ -717,7 +716,7 @@ readWeapon(_chooseGun)
         IniWrite , % _weaponTextFix, TheDivision2.ini, 高级模式, 武器名修饰后缀
     }
 
-    Speak(_weaponText . _weaponTextFix)
+    ; Speak(_weaponText . _weaponTextFix)
 }
 
 ~NumpadAdd::	; Adds compensation.
@@ -969,10 +968,10 @@ OnekeyZL:
 return
 
 ;重置控制点
-ResetControlArea:
+ResetArea:
     Menu, Tray, ToggleCheck, 一键政令时重置控制点
-    resetArea := Not resetArea
-    IniWrite, % resetArea, TheDivision2.ini, 一键政令, 重置控制点
+    vResetArea := Not vResetArea
+    IniWrite, % vResetArea, TheDivision2.ini, 一键政令, 重置控制点
 return
 
 ;自动开服装箱
@@ -1155,13 +1154,13 @@ RemoveToolTip:
 return
 }
 
-SendKey(Key,delay := 30)
+SendKey(Key,DelayTime := 30)
 {
-    Random, fixDelay, 20, 60
+    Random, fixDelay, 20, 50
 
-    delay +=fixdelay
+    DelayTime +=fixdelay
     Send {%key% Down}
-    Sleep Delay
+    Sleep DelayTime
     Send {%key% Up}
 }