Redeem codes

;
; AutoHotkey Version: 1.x
; Language:       English
; Platform:       Win7
; Author:         YoucefHam <GHOST_0665@hotmail.com>
;
; Script Function:
;    Automatically redeem codes for GHOST RECON PHANTMS.
;
#InstallMouseHook
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
CoordMode, ToolTip, Screen
SetMouseDelay, 15
ScriptName := A_ScriptName
StringReplace, ScriptName, ScriptName, .ahk,, All
StringReplace, ScriptName, ScriptName, .exe,, All
FileReadLine, line, %A_ScriptDir%\codes.txt, %A_Index%
n = 0
k = 0
p = 1
i = 1
rf = 1
txt = Now press Numpad(+) to star redeem.
SetTimer, Check, 300
return
NumpadAdd::
{
    txt = Press Ctrl+DELETE to stop.
    BlockInput, mousemove
    while i <= k
    {
        n += 1
        IniRead,mx, %ScriptName%.ini, REDEEM COUPON, X
        IniRead,my, %ScriptName%.ini, REDEEM COUPON, Y
        MouseMove, %mx%, %my%
        Send, {LButton Down}
        Sleep, 100
        Send, {LButton Up}
        Sleep, 600
        coden := code%n%
        Send, %coden%
        Sleep, 400
        IniRead,mx, %ScriptName%.ini, REDEEM NOW, X
        IniRead,my, %ScriptName%.ini, REDEEM NOW, Y
        MouseMove, %mx%, %my%
        Send, {LButton Down}
        Sleep, 100
        Send, {LButton Up}
        Sleep, 600
        IniRead,mx, %ScriptName%.ini, CLOSE, X
        IniRead,my, %ScriptName%.ini, CLOSE, Y
        MouseMove, %mx%, %my%
        Send, {LButton Down}
        Sleep, 100
        Send, {LButton Up}
        Sleep, 600
        i += 1
        if i > k
        {
            BlockInput, mousemoveoff
            break
        }
    }
    BlockInput, mousemoveoff
}
return

NumpadMult::
if rf = 1
{
    loop
    {
        FileReadLine, line, %A_ScriptDir%\codes.txt, %A_Index%
        if ErrorLevel
        {
            rf = 0
            break
        }
        StringReplace, line, line, -,, All
        code%A_Index% := line
        k += 1
    }
    p = 5
    rf = 0
}
return

^Numpad1::
if p = 1
{
    MouseGetPos, mx, my
    IniWrite, %mx%, %ScriptName%.ini , REDEEM COUPON, X
    IniWrite, %my%, %ScriptName%.ini , REDEEM COUPON, Y
    Send, {LButton Down}
    Sleep, 200
    Send, {LButton Up}
    Sleep, 700
    p = 2
}
return

^Numpad2::
if p = 2
{
    MouseGetPos, mx, my
    IniWrite, %mx%, %ScriptName%.ini , REDEEM NOW, X
    IniWrite, %my%, %ScriptName%.ini , REDEEM NOW, Y
    Send, {LButton Down}
    Sleep, 200
    Send, {LButton Up}
    Sleep, 700
    p = 3
}
return

^Numpad3::
if p = 3
{
    MouseGetPos, mx, my
    IniWrite, %mx%, %ScriptName%.ini , CLOSE, X
    IniWrite, %my%, %ScriptName%.ini , CLOSE, Y
    Send, {LButton Down}
    Sleep, 200
    Send, {LButton Up}
    Sleep, 700
    p = 4
}
return

Check:
{
    if p = 1
        ToolTip,Move the mouse to "REDEEM COUPON" and press Ctrl+Numpad(1) to save  position.,,,2
    if p = 2
        ToolTip,Move the mouse to "REDEEM NOW" and press Ctrl+Numpad(2) to save position.,,,2
    if p = 3
        ToolTip,Move the mouse to "CLOSE / OK" and press Ctrl+Numpad(3) to save position.,,,2
    if p = 4
        ToolTip,Press Numpad(*) to load your codes from the file.,,,2
    if p = 5
    {
        Tooltip, Code N°:       %n%/%k%`nCreated by YoucefHam`n     WWW.MPGH.NET`n/       Read text file`n+ or -      Change code`n*    Entre the code`n, 0, 0,1
        ToolTip,%txt%,,,2
    }
}
return

^Delete::
{
BlockInput, mousemoveoff
ExitApp
}
return