Code:
guif:
#NoEnv
#SingleInstance Force
SkinForm (Apply, A_ScriptDir. "\ USkin.dll", A_ScriptDir. "\ Milikymac.msstyles")
Gui, Add, Text, x12 y40 w200 h30, Im starting to Auto [F2]
Gui, Add, Text, x12 y60 w200 h30, program restart [F3]
Gui, Add, Text, x12 y80 w200 h30, pause on / off [ALT]
Gui, work on Add, CheckBox, x292 y25 w150 h40 vaimtype Checked, left click Otto
Gui, Add, CheckBox, x292 y55 w150 h40 vaimtype1, work on auto right click
Gui, Add, Text, x230 y115 w80 ??h30, Ames rate
Gui, Add, Edit, x300 y110 w30 h20 vrx, 20
Gui, Add, Text, x230 y150 w80 h40, zeroing
Gui, Add, Text, x230 y175 w80 ??h40, x-axis:
Gui, Add, Edit, x260 y170 w30 h20 vxa, 40
Gui, Add, Text, x300 y175 w80 ??h40, y-axis:
Gui, Add, Edit, x330 y170 w30 h20 vxy, 57
Gui, Add, Text, x230 y205 w80 ??h40, detection range
Gui, Add, Text, x230 y230 w80 h40, x-axis:
Gui, Add, Slider, x260 y225 w130 h25 vxrange Invert Tickinterval1 range1-4, 4
Gui, Add, Text, x230 y260 w80 h40, y-axis:
Gui, Add, Slider, x260 y255 w130 h25 vyrange Invert Tickinterval1 range1-4, 4
Gui, Show
Loop {
Gui, Submit, NoHide
Sleep -1
}
Return
#If
return
mouseXY (x, y)
{
DllCall ( "mouse_event", int, 1, int, x, int, y, uint, 0, uint, 0)
}
#If
return
GuiClose:
ExitApp
return
SkinForm (Param1 = "Apply", DLL = "", SkinName = "") {
if (Param1 = Apply) {
DllCall ( "LoadLibrary", str, DLL)
DllCall (DLL. "\ USkinInit", Int, 0, Int, 0, AStr, SkinName)
} Else if (Param1 = 0) {
DllCall (DLL. "\ USkinExit")
}
}
Change1:
MsgBox, Applied
Gui, Submit, Nohide
return
F2 ::
#Persistent
#KeyHistory, 0
#NoEnv
#HotKeyInterval 1
#MaxHotkeysPerInterval 127
#InstallKeybdHook
#UseHook
#SingleInstance, Force
SetKeyDelay, -1, 8
SetControlDelay, -1
SetMouseDelay, 0
SetWinDelay, -1
SendMode, InputThenPlay
SetBatchLines, -1
ListLines, Off
CoordMode, Mouse, Client
PID: = DllCall ( "GetCurrentProcessId")
Process, Priority,% PID%, Normal
ZeroX: = 800
ZeroY: = 440
CFovX: = 760
CFovY: = 400
ScanL: = ZeroX - CFovX
ScanR: = ZeroX + CFovX
ScanT: = ZeroY - CFovY
ScanB: = ZeroY + CFovY
GuiControlget, rX
GuiControlget, xA
GuiControlget, yA
GuiControlget, xrange
GuiControlget, yrange
Loop,
{
if (aimtype = 1)
{
GetKeyState, Mouse2, LButton, P
GoSub MouseMoves2
}
Gui, Submit, Nohide
if (aimtype1 = 1)
{
GetKeyState, Mouse2, RButton, P
GoSub MouseMoves2
}
imageSearch, AimPixelX, AimPixelY, 0 + (A_Screenwidth * (xrange/10)), 0 + (A_Screenheight * (yrange/10)), A_Screenwidth - (A_Screenwidth * (xrange/10)), A_Screenheight - (A_Screenheight * (yrange / 10)), * 4 hhp.bmp
GoSub GetAimOffset
GoSub GetAimMoves
}
MouseMoves:
If (Mouse2 == "D") {
DllCall ( "mouse_event", uint, 1, int, MoveX, int, MoveY, uint, 0, int, 0)
}
Return
MouseMoves1:
If (Mouse2 == "U") {
DllCall ( "mouse_event", uint, 1, int, MoveX, int, MoveY, uint, 0, int, 0)
}
Return
MouseMoves2:
If (Mouse2 == "D") {
DllCall ( "mouse_event", uint, 1, int, MoveX, int, MoveY, uint, 0, int, 0)
}
GetAimOffset:
Gui, Submit, Nohide
AimX: = AimPixelX - ZeroX + xA
AimY: = AimPixelY - ZeroY + xY
If (AimX + 5> 0) {
DirX: = rx / 10
}
If (AimX + 5 <0) {
DirX: = (-rx) / 10
}
If (AimY + 2> 0) {
DirY: = rX / 10 * 0.5
}
If (AimY + 2 <0) {
DirY: = (-rx) / 10 * 0.5
}
AimOffsetX: = AimX * DirX
AimOffsetY: = AimY * DirY
Return
GetAimMoves:
RootX: = Ceil ((AimOffsetX ** (1/2)))
RootY: = Ceil ((AimOffsetY ** (1/2)))
MoveX: = RootX * DirX
MoveY: = RootY * DirY
Return
SleepF:
SleepDuration = 1
TimePeriod = 1
DllCall ( "Winmm \ timeBeginPeriod", uint, TimePeriod)
Iterations = 1
StartTime: = A_TickCount
Loop,% Iterations% {
DllCall ( "Sleep", UInt, TimePeriod)
}
DllCall ( "Winmm \ timeEndPeriod", UInt, TimePeriod)
Return
DebugTool:
MouseGetPos, MX, MY
ToolTip,% AimOffsetX% | % AimOffsetY%
ToolTip,% AimX% | % AimY%
ToolTip,% IntAimX% | % IntAimY%
ToolTip,% RootX% | % RootY%
ToolTip,% MoveX% | % MoveY% || % MX%% MY%
Return
DebugTool1:
MouseGetPos, MX, MY
ToolTip,% AimOffsetX% | % AimOffsetY%
ToolTip,% AimX% | % AimY%
ToolTip,% IntAimX% | % IntAimY%
ToolTip,% RootX% | % RootY%
ToolTip,% MoveX% | % MoveY% || % MX%% MY%
Return
ALT ::
pause
SoundBEEP
return
F3 ::
Reload
Return