View Single Post

Old 2008-08-16, 10:05   #27 (permalink)
D3CRYPT
ArtificialAiming Trusted
 
D3CRYPT is offline
Join Date: Jun 2007
Posts: 436
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

Last edited by D3CRYPT : 2008-08-16 at 10:09.
  Reply With Quote