It looks pretty clean when debugged.
[EDIT] Just decompiled it to be sure its safe.
Here is the complete script.
Code:
; <AutoHotKey Script>
#NoEnv
SendMode Input
#Singleinstance Force
#NoTrayIcon
Gui, font, s8 italic, Arial
Gui, Add, Text, x17 y12, Leave this window open while playing BF2
Gui, font, s8 norm, Arial
Gui, Add, Text, x35 y28,
(
1. In Battlefield press tilde (~) to show console
2. Press the CONTROL and ZERO keys
3. Type ping and press enter
4. Done! Press tilde (~) again to hide console
)
Gui, Add, Button, x116 y110 w70 gQuitScript, Exit
Gui, Add, Button, x190 y110 w20 gLaunchHelp, ?
Gui, Show, w320 h144 x200 y150, Battlefield HitFixer 1.3
return
~LCtrl & Numpad0::
~LCtrl & 0::
WinGet, szProcessName, ProcessName, A
if szProcessName != bf2.exe
{
return
}
Sleep 50
Send,TYPE PING THEN HIT ENTER{Space}{Space}
Input, PingVar, T10 V,{Enter}{Esc}
if (ErrorLevel = "EndKey:Escape")
{
Send,{Space}(OPERATION CANCELLED){ENTER}
return
}
if !(PingVar < 1000 and PingVar > 0)
{
Send,PLEASE TRY AGAIN AND ENTER A NUMBER BETWEEN 1 AND 999.{ENTER}
return
}
if PingVar is not digit
{
Send,PLEASE TRY AGAIN AND ENTER A NUMBER BETWEEN 1 AND 999.{ENTER}
return
}
PingVar += 7
Temp01 := PingVar / 1000
Temp02 := PingVar * 12
Send {Enter}
Send,SettingsManager.floatSet GSDefaultLatencyCompensation %Temp01% {Enter}
Sleep 20
Send,SettingsManager.U32Set GSExtrapolationTime{Space} %Temp02% {Enter}
Sleep 20
Send,SettingsManager.U32Set GSInterpolationTime{Space} %PingVar% {Enter}
Sleep 50
Send {Shift Up}
Send {Alt Up}
return
~Lctrl & 7::
GetKeyState, FireApp, LAlt
if FireApp = U
return
WinGet, szProcessName, ProcessName, A
if szProcessName != bf2.exe
{
return
}
Sleep 50
Send,SettingsManager.floatSet GSDefaultLatencyCompensation 0.0
Send {Shift Up}
Send {Alt Up}
return
~Lctrl & 8::
GetKeyState, FireApp, LAlt
if FireApp = U
return
WinGet, szProcessName, ProcessName, A
if szProcessName != bf2.exe
{
return
}
Sleep 50
Send,SettingsManager.U32Set GSExtrapolationTime{Space}
Sleep 50
Send {Shift Up}
Send {Alt Up}
return
~Lctrl & 9::
GetKeyState, FireApp, LAlt
if FireApp = U
return
WinGet, szProcessName, ProcessName, A
if szProcessName != bf2.exe
{
return
}
Sleep 50
Send,SettingsManager.U32Set GSInterpolationTime{Space}
Sleep 50
Send {Shift Up}
Send {Alt Up}
return
LaunchHelp:
Run http://img66.imageshack.us/img66/2879/tutorial01xu3.jpg
return
GuiClose:
QuitScript:
ExitApp
return