muchas gracias
Posted: 26 Nov 2015, 09:10
muchas gracias
Let's help each other out
https://www.autohotkey.com/boards/
https://www.autohotkey.com/boards/viewtopic.php?f=40&t=10773
Code: Select all
#NoEnv
#SingleInstance, Force
SetBatchLines, -1
SetWorkingDir, %A_ScriptDir% ; Ensures a consistent starting directory.
CoordMode, ToolTip, Screen
Hotkey, ~LButton, Auto_Fire, Off
Hotkey, PGDN, _PGDN, Off
Hotkey, HOME, _HOME, Off
Hotkey, ^Up, _Up, Off
Hotkey, ^Down, _Down, Off
Hotkey, ^Right, _Right, Off
Hotkey, ^Left, _Left, Off
Hotkey, NumpadDiv, _NumpadDiv, Off
Hotkey, NumpadMult, _NumpadMult, Off
Hotkey, NumpadSub, _NumpadSub, Off
Hotkey, NumpadAdd, _NumpadAdd, Off
return
;on/off
F1::
Hotkey, ~LButton, Toggle
return
F2::
_f2 := !_f2
ToolTip
if (_f2) {
gosub, Load_Settings
} else {
SetTimer, Menu, Off
} Hotkey, PGDN, Toggle
Hotkey, HOME, Toggle
Hotkey, ^Up, Toggle
Hotkey, ^Down, Toggle
Hotkey, ^Right, Toggle
Hotkey, ^Left, Toggle
Hotkey, NumpadDiv, Toggle
Hotkey, NumpadMult, Toggle
Hotkey, NumpadSub, Toggle
Hotkey, NumpadAdd, Toggle
return
;recargar
F12::Reload
;salir
F11::ExitApp
;no-recoil
Auto_Fire:
while (GetKeyState("LButton", "P")) {
SendInput, {LButton DownTemp}
Sleep, 22
DllCall("User32.dll\mouse_event", "UInt", 1, "UInt", 0, "UInt", 1, "UInt", 0, "UPtr", 0)
SendInput {LButton Up}
Sleep 22
}
return
Load_Settings:
ScriptName := "Crosshair" ;SplitPath, A_ScriptName,,,, ScriptName
vm := ft := 1, chv := 0
IniRead, chxt, %ScriptName%.ini, Crochair tol,chxt
IniRead, chyt, %ScriptName%.ini, Crochair tol,chyt
IniRead, chp, %ScriptName%.ini, Crochair Picture, PictureNum
IniRead, chcl, %ScriptName%.ini, Crochair Picture, Picturecolor
IniRead, chc, %ScriptName%.ini, Crochair Picture, Picturecolorval
IniRead, chimg, %ScriptName%.ini, Crochair Picture, PictureFile
IniRead, chimgw, %ScriptName%.ini, Crochair Picture, PictureWidth
IniRead, chimgh, %ScriptName%.ini, Crochair Picture, PictureHeight
SetTimer, menu, 200
goto, menu
return
;cross-hair
_PGDN:
vm := !vm
SetTimer, Menu, % vm?200:"Off"
if !(vm)
ToolTip,,,, 1
else gosub, Menu
return
Menu:
ToolTip, % "Crosshair Type:" A_Tab chp
. "`nCrosshair Color:" A_Tab chcl
. "`nCrosshair Size:" A_Tab chimgw
. "`n---------------------------------------------"
. "`nPageDown:" A_Tab "Show/Hide Menu"
. "`nHome:" A_Tab A_Tab "Show/Hide Crosshair"
. "`n/:" A_Tab A_Tab "Change Crosshair type"
. "`n*:" A_Tab A_Tab "Change Crosshair color"
. "`n+:" A_Tab A_Tab "Increase Crosshair Size"
. "`n-:" A_Tab A_Tab "Decrease Crosshair Size"
. "`nCtrl+Arows:" A_Tab "Move Crosshair Position", 0, 0
return
_HOME:
if (chv) {
Gui, Hide
SetTimer, tick, Off
chv := 0
} else {
gosub, % ft?"showch":"drawch"
chv := 1
SetTimer, tick, 200
}
return
showch:
if !(ft)
return
wint := WinExist("A")
WinGetPos, winx, winy, winw, winh, ahk_id %wint%
gosub, posch
Gui, +AlwaysOnTop -Caption +LastFound
WinSet, TransColor, White
Gui, Add, Picture, w%chimgw% h%chimgh% AltSubmit, %A_ScriptDir%\IMG\%chimg%
Gui, Color, FFFFFF
Gui, Show, NA x%chx% y%chy%
ft := 0
return
posch:
chx := winx + (winw / 2) + chxt - chimgw
chy := winy + (winh / 2) + chyt - chimgh
return
drawch:
gosub, posch
Gui, Show, NA x%chx% y%chy%
return
tick:
if (WinActive("ahk_id " wint)) {
WinGetPos, winx1, winy1, winw1, winh1, ahk_id %wint%
if !(winx1=winx) || !(winy1=winy) || !(winw1=winw) || !(winh1=winh) {
WinGetPos, winx, winy, winw, winh, ahk_id %wint%
if (chv)
gosub, drawch
}
} else Gui, Hide
return
_Up:
chyt--
gosub, drawch
IniWrite, %chyt%, %ScriptName%.ini, Crochair tol, chyt
return
_Down:
chyt++
gosub, drawch
IniWrite, %chyt%, %ScriptName%.ini, Crochair tol, chyt
return
_Left:
chxt--
gosub, drawch
IniWrite, %chxt%, %ScriptName%.ini, Crochair tol, chxt
return
_Right:
chxt++
gosub, drawch
IniWrite, %chxt%, %ScriptName%.ini, Crochair tol, chxt
return
_NumpadDiv:
if !(chv)
return
if chp between 1 and 5
chp++
else chp := 1
chimg := "CH" chp chc
IniWrite, %chimg%, %ScriptName%.ini , Crochair Picture, PictureFile
IniWrite, %chp%, %ScriptName%.ini , Crochair Picture, PictureNum
Gui, Destroy
ft := 1
gosub, showch
return
_NumpadMult:
if !(chv)
return
chc := chc=1?2:chc=2?3:chc=3?4:chc=4?1:chc
chcl := chc=1?"Green":chc=2?"Red":chc=3?"Yellow":chc=4?"Blue":chcl
chimg := "CH" chp chc
IniWrite, %chimg%, %ScriptName%.ini , Crochair Picture, PictureFile
IniWrite, %chcl%, %ScriptName%.ini , Crochair Picture, Picturecolor
IniWrite, %chc%, %ScriptName%.ini , Crochair Picture, Picturecolorval
Gui, Destroy
ft := 1
gosub, showch
return
_NumpadSub:
if !(chv)
return
chimgw--
chimgw := chimgw<5?5:chimgw
chimgh--
chimgh := chimgh<5?5:chimgh
IniWrite, %chimgw%, %ScriptName%.ini , Crochair Picture, PictureWidth
IniWrite, %chimgh%, %ScriptName%.ini , Crochair Picture, PictureHeight
Gui, Destroy
ft := 1
gosub, showch
return
_NumpadAdd:
if !(chv)
return
chimgw++
chimgw := chimgw>200?20:chimgw
chimgh++
chimgh := chimgh>200?200:chimgh
IniWrite, %chimgw%, %ScriptName%.ini , Crochair Picture, PictureWidth
IniWrite, %chimgh%, %ScriptName%.ini , Crochair Picture, PictureHeight
Gui, Destroy
ft := 1
gosub, showch
return
Code: Select all
#NoEnv
#SingleInstance, Force
SetBatchLines, -1
SetWorkingDir, %A_ScriptDir% ; Ensures a consistent starting directory.
CoordMode, ToolTip, Screen
Hotkey, ~LButton, Auto_Fire, Off
Hotkey, PGDN, _PGDN, Off
Hotkey, HOME, _HOME, Off
Hotkey, ^Up, _Up, Off
Hotkey, ^Down, _Down, Off
Hotkey, ^Right, _Right, Off
Hotkey, ^Left, _Left, Off
Hotkey, NumpadDiv, _NumpadDiv, Off
Hotkey, NumpadMult, _NumpadMult, Off
Hotkey, NumpadSub, _NumpadSub, Off
Hotkey, NumpadAdd, _NumpadAdd, Off
return
;on/off
F1::
Hotkey, ~LButton, Toggle
return
F2::
_f2 := !_f2
ToolTip
Gui, Destroy
if (_f2) {
gosub, Load_Settings
} else {
SetTimer, Menu, Off
} Hotkey, PGDN, Toggle
Hotkey, HOME, Toggle
Hotkey, ^Up, Toggle
Hotkey, ^Down, Toggle
Hotkey, ^Right, Toggle
Hotkey, ^Left, Toggle
Hotkey, NumpadDiv, Toggle
Hotkey, NumpadMult, Toggle
Hotkey, NumpadSub, Toggle
Hotkey, NumpadAdd, Toggle
return
;recargar
F12::Reload
;salir
F11::ExitApp
;no-recoil
Auto_Fire:
while (GetKeyState("LButton", "P")) {
SendInput, {LButton DownTemp}
Sleep, 22
DllCall("User32.dll\mouse_event", "UInt", 1, "UInt", 0, "UInt", 1, "UInt", 0, "UPtr", 0)
SendInput {LButton Up}
Sleep 22
}
return
Load_Settings:
ScriptName := "Crosshair" ;SplitPath, A_ScriptName,,,, ScriptName
vm := ft := 1, chv := 0
IniRead, chxt, %ScriptName%.ini, Crochair tol,chxt
IniRead, chyt, %ScriptName%.ini, Crochair tol,chyt
IniRead, chp, %ScriptName%.ini, Crochair Picture, PictureNum
IniRead, chcl, %ScriptName%.ini, Crochair Picture, Picturecolor
IniRead, chc, %ScriptName%.ini, Crochair Picture, Picturecolorval
IniRead, chimg, %ScriptName%.ini, Crochair Picture, PictureFile
IniRead, chimgw, %ScriptName%.ini, Crochair Picture, PictureWidth
IniRead, chimgh, %ScriptName%.ini, Crochair Picture, PictureHeight
SetTimer, menu, 200
goto, menu
return
;cross-hair
_PGDN:
vm := !vm
SetTimer, Menu, % vm?200:"Off"
if !(vm)
ToolTip,,,, 1
else gosub, Menu
return
Menu:
ToolTip, % "Crosshair Type:" A_Tab chp
. "`nCrosshair Color:" A_Tab chcl
. "`nCrosshair Size:" A_Tab chimgw
. "`n---------------------------------------------"
. "`nPageDown:" A_Tab "Show/Hide Menu"
. "`nHome:" A_Tab A_Tab "Show/Hide Crosshair"
. "`n/:" A_Tab A_Tab "Change Crosshair type"
. "`n*:" A_Tab A_Tab "Change Crosshair color"
. "`n+:" A_Tab A_Tab "Increase Crosshair Size"
. "`n-:" A_Tab A_Tab "Decrease Crosshair Size"
. "`nCtrl+Arows:" A_Tab "Move Crosshair Position", 0, 0
return
_HOME:
if (chv) {
Gui, Hide
SetTimer, tick, Off
chv := 0
} else {
gosub, % ft?"showch":"drawch"
chv := 1
SetTimer, tick, 200
}
return
showch:
if !(ft)
return
wint := WinExist("A")
WinGetPos, winx, winy, winw, winh, ahk_id %wint%
gosub, posch
Gui, +AlwaysOnTop -Caption +LastFound +ToolWindow
WinSet, TransColor, White
Gui, Color, FFFFFF
Gui, Add, Picture, w%chimgw% h%chimgh% AltSubmit, %A_ScriptDir%\IMG\%chimg%
Gui, Show, NA x%chx% y%chy%
ft := 0
return
posch:
chx := winx + (winw / 2) + chxt - chimgw
chy := winy + (winh / 2) + chyt - chimgh
return
drawch:
gosub, posch
Gui, Show, NA x%chx% y%chy%
return
tick:
if (WinActive("ahk_id " wint)) {
WinGetPos, winx1, winy1, winw1, winh1, ahk_id %wint%
if !(winx1=winx) || !(winy1=winy) || !(winw1=winw) || !(winh1=winh) {
WinGetPos, winx, winy, winw, winh, ahk_id %wint%
if (chv)
gosub, drawch
}
} else Gui, Hide
return
_Up:
chyt--
gosub, drawch
IniWrite, %chyt%, %ScriptName%.ini, Crochair tol, chyt
return
_Down:
chyt++
gosub, drawch
IniWrite, %chyt%, %ScriptName%.ini, Crochair tol, chyt
return
_Left:
chxt--
gosub, drawch
IniWrite, %chxt%, %ScriptName%.ini, Crochair tol, chxt
return
_Right:
chxt++
gosub, drawch
IniWrite, %chxt%, %ScriptName%.ini, Crochair tol, chxt
return
_NumpadDiv:
if !(chv)
return
if chp between 1 and 5
chp++
else chp := 1
chimg := "CH" chp chc
IniWrite, %chimg%, %ScriptName%.ini , Crochair Picture, PictureFile
IniWrite, %chp%, %ScriptName%.ini , Crochair Picture, PictureNum
Gui, Destroy
ft := 1
gosub, showch
return
_NumpadMult:
if !(chv)
return
chc := chc=1?2:chc=2?3:chc=3?4:chc=4?1:chc
chcl := chc=1?"Green":chc=2?"Red":chc=3?"Yellow":chc=4?"Blue":chcl
chimg := "CH" chp chc
IniWrite, %chimg%, %ScriptName%.ini , Crochair Picture, PictureFile
IniWrite, %chcl%, %ScriptName%.ini , Crochair Picture, Picturecolor
IniWrite, %chc%, %ScriptName%.ini , Crochair Picture, Picturecolorval
Gui, Destroy
ft := 1
gosub, showch
return
_NumpadSub:
if !(chv)
return
chimgw--
chimgw := chimgw<5?5:chimgw
chimgh--
chimgh := chimgh<5?5:chimgh
IniWrite, %chimgw%, %ScriptName%.ini , Crochair Picture, PictureWidth
IniWrite, %chimgh%, %ScriptName%.ini , Crochair Picture, PictureHeight
Gui, Destroy
ft := 1
gosub, showch
return
_NumpadAdd:
if !(chv)
return
chimgw++
chimgw := chimgw>200?20:chimgw
chimgh++
chimgh := chimgh>200?200:chimgh
IniWrite, %chimgw%, %ScriptName%.ini , Crochair Picture, PictureWidth
IniWrite, %chimgh%, %ScriptName%.ini , Crochair Picture, PictureHeight
Gui, Destroy
ft := 1
gosub, showch
return
• Cuando apretas F2 te da error, porque tenes que poner el script con el archivo .ini (en el mismo directorio).Algo me da error pero como que ya casi casi , algo falla cuando presiono f2
Code: Select all
[Crochair tol]
chxt=44
chyt=-2
[Crochair Picture]
PictureNum=4
Picturecolor=Red
Picturecolorval=3
PictureFile=CH43
PictureWidth=19
PictureHeight=19
• no entiendo, ¿que códigos en color rojo?, ¿imagen?Extrayendo solamente los codigos del croshair en color rojo y de cruz + [...]
• ¿que "ventanita"?, si puedes poner imágenes seria mejor.tiene muchas cosas incluido el menu que parpadea aun desactivandolo , queda una ventanita parpadeante [...]
• ¿a que te refieres con "Menu desplegable"?.la ventana del menu desplegable genera una corrupcion en la ventana del juego
Code: Select all
#NoEnv
#SingleInstance, Force
SetBatchLines, -1
SetWorkingDir, %A_ScriptDir% ; Ensures a consistent starting directory.
CoordMode, ToolTip, Screen
Hotkey, ~LButton, Auto_Fire, Off
Hotkey, PGDN, _PGDN, Off
Hotkey, HOME, _HOME, Off
Hotkey, ^Up, _Up, Off
Hotkey, ^Down, _Down, Off
Hotkey, ^Right, _Right, Off
Hotkey, ^Left, _Left, Off
Hotkey, NumpadDiv, _NumpadDiv, Off
Hotkey, NumpadMult, _NumpadMult, Off
Hotkey, NumpadSub, _NumpadSub, Off
Hotkey, NumpadAdd, _NumpadAdd, Off
return
;on/off
F1::
Hotkey, ~LButton, Toggle
return
F2::
_f2 := !_f2
ToolTip
Gui, Destroy
if (_f2) {
gosub, Load_Settings
} else {
SetTimer, Menu, Off
} Hotkey, PGDN, Toggle
Hotkey, HOME, Toggle
Hotkey, ^Up, Toggle
Hotkey, ^Down, Toggle
Hotkey, ^Right, Toggle
Hotkey, ^Left, Toggle
Hotkey, NumpadDiv, Toggle
Hotkey, NumpadMult, Toggle
Hotkey, NumpadSub, Toggle
Hotkey, NumpadAdd, Toggle
return
;recargar
F12::Reload
;salir
F11::ExitApp
;no-recoil
Auto_Fire:
while (GetKeyState("LButton", "P")) {
SendInput, {LButton DownTemp}
Sleep, 22
DllCall("User32.dll\mouse_event", "UInt", 1, "UInt", 0, "UInt", 1, "UInt", 0, "UPtr", 0)
SendInput {LButton Up}
Sleep 22
}
return
Load_Settings:
ScriptName := "Crosshair" ;SplitPath, A_ScriptName,,,, ScriptName
vm := ft := 1, chv := 0
IniRead, chxt, %ScriptName%.ini, Crochair tol,chxt
IniRead, chyt, %ScriptName%.ini, Crochair tol,chyt
IniRead, chp, %ScriptName%.ini, Crochair Picture, PictureNum
IniRead, chcl, %ScriptName%.ini, Crochair Picture, Picturecolor
IniRead, chc, %ScriptName%.ini, Crochair Picture, Picturecolorval
IniRead, chimg, %ScriptName%.ini, Crochair Picture, PictureFile
IniRead, chimgw, %ScriptName%.ini, Crochair Picture, PictureWidth
IniRead, chimgh, %ScriptName%.ini, Crochair Picture, PictureHeight
SetTimer, menu, 200
goto, menu
return
;cross-hair
_PGDN:
vm := !vm
SetTimer, Menu, % vm?200:"Off"
if !(vm)
ToolTip,,,, 1
else gosub, Menu
return
Menu:
ToolTip, % "Crosshair Type:" A_Tab chp
. "`nCrosshair Color:" A_Tab chcl
. "`nCrosshair Size:" A_Tab chimgw
. "`n---------------------------------------------"
. "`nPageDown:" A_Tab "Show/Hide Menu"
. "`nHome:" A_Tab A_Tab "Show/Hide Crosshair"
. "`n/:" A_Tab A_Tab "Change Crosshair type"
. "`n*:" A_Tab A_Tab "Change Crosshair color"
. "`n+:" A_Tab A_Tab "Increase Crosshair Size"
. "`n-:" A_Tab A_Tab "Decrease Crosshair Size"
. "`nCtrl+Arows:" A_Tab "Move Crosshair Position", 0, 0
return
F3::
_HOME:
if (chv) {
Gui, Hide
SetTimer, tick, Off
chv := 0
} else {
gosub, % ft?"showch":"drawch"
chv := 1
SetTimer, tick, 200
}
return
showch:
if !(ft)
return
Gui, Destroy
wint := WinExist("A")
WinGetPos, winx, winy, winw, winh, ahk_id %wint%
gosub, posch
Gui, -Caption +LastFound +ToolWindow +Owner%wint%
WinSet, TransColor, White
Gui, Color, FFFFFF
Gui, Add, Picture, w%chimgw% h%chimgh%, %A_ScriptDir%\IMG\%chimg%
Gui, Show, NA x%chx% y%chy%
ft := 0
return
posch:
chx := winx + (winw / 2) + chxt - chimgw
chy := winy + (winh / 2) + chyt - chimgh
return
drawch:
gosub, posch
ft := 1
gosub, showch
;Gui, Show, NA x%chx% y%chy%
return
tick:
if (WinActive("ahk_id " wint)) {
WinGetPos, winx1, winy1, winw1, winh1, ahk_id %wint%
if !(winx1=winx) || !(winy1=winy) || !(winw1=winw) || !(winh1=winh) {
WinGetPos, winx, winy, winw, winh, ahk_id %wint%
if (chv)
gosub, drawch
}
} else Gui, Hide
return
_Up:
chyt--
gosub, drawch
IniWrite, %chyt%, %ScriptName%.ini, Crochair tol, chyt
return
_Down:
chyt++
gosub, drawch
IniWrite, %chyt%, %ScriptName%.ini, Crochair tol, chyt
return
_Left:
chxt--
gosub, drawch
IniWrite, %chxt%, %ScriptName%.ini, Crochair tol, chxt
return
_Right:
chxt++
gosub, drawch
IniWrite, %chxt%, %ScriptName%.ini, Crochair tol, chxt
return
_NumpadDiv:
if !(chv)
return
if chp between 1 and 5
chp++
else chp := 1
chimg := "CH" chp chc
IniWrite, %chimg%, %ScriptName%.ini , Crochair Picture, PictureFile
IniWrite, %chp%, %ScriptName%.ini , Crochair Picture, PictureNum
Gui, Destroy
ft := 1
gosub, showch
return
_NumpadMult:
if !(chv)
return
chc := chc=1?2:chc=2?3:chc=3?4:chc=4?1:chc
chcl := chc=1?"Green":chc=2?"Red":chc=3?"Yellow":chc=4?"Blue":chcl
chimg := "CH" chp chc
IniWrite, %chimg%, %ScriptName%.ini , Crochair Picture, PictureFile
IniWrite, %chcl%, %ScriptName%.ini , Crochair Picture, Picturecolor
IniWrite, %chc%, %ScriptName%.ini , Crochair Picture, Picturecolorval
Gui, Destroy
ft := 1
gosub, showch
return
_NumpadSub:
if !(chv)
return
chimgw--
chimgw := chimgw<5?5:chimgw
chimgh--
chimgh := chimgh<5?5:chimgh
IniWrite, %chimgw%, %ScriptName%.ini , Crochair Picture, PictureWidth
IniWrite, %chimgh%, %ScriptName%.ini , Crochair Picture, PictureHeight
Gui, Destroy
ft := 1
gosub, showch
return
_NumpadAdd:
if !(chv)
return
chimgw++
chimgw := chimgw>200?20:chimgw
chimgh++
chimgh := chimgh>200?200:chimgh
IniWrite, %chimgw%, %ScriptName%.ini , Crochair Picture, PictureWidth
IniWrite, %chimgh%, %ScriptName%.ini , Crochair Picture, PictureHeight
Gui, Destroy
ft := 1
gosub, showch
return
Code: Select all
#NoEnv
#SingleInstance, Force
SetBatchLines, -1
SetWorkingDir, %A_ScriptDir% ; Ensures a consistent starting directory.
CoordMode, ToolTip, Screen
Hotkey, ~LButton, Auto_Fire, Off
Hotkey, PGDN, _PGDN, Off
Hotkey, HOME, _HOME, Off
Hotkey, ^Up, _Up, Off
Hotkey, ^Down, _Down, Off
Hotkey, ^Right, _Right, Off
Hotkey, ^Left, _Left, Off
Hotkey, NumpadDiv, _NumpadDiv, Off
Hotkey, NumpadMult, _NumpadMult, Off
Hotkey, NumpadSub, _NumpadSub, Off
Hotkey, NumpadAdd, _NumpadAdd, Off
return
;on/off
|::
Hotkey, ~LButton, Toggle
_f2 := !_f2
ToolTip
Gui, Destroy
if (_f2) {
gosub, Load_Settings
} else {
SetTimer, Menu, Off
} Hotkey, PGDN, Toggle
Hotkey, HOME, Toggle
Hotkey, ^Up, Toggle
Hotkey, ^Down, Toggle
Hotkey, ^Right, Toggle
Hotkey, ^Left, Toggle
Hotkey, NumpadDiv, Toggle
Hotkey, NumpadMult, Toggle
Hotkey, NumpadSub, Toggle
Hotkey, NumpadAdd, Toggle
return
;recargar
F12::Reload
;salir
F11::ExitApp
;no-recoil
Auto_Fire:
while (GetKeyState("LButton", "P")) {
SendInput, {LButton DownTemp}
Sleep, 22
DllCall("User32.dll\mouse_event", "UInt", 1, "UInt", 0, "UInt", 1, "UInt", 0, "UPtr", 0)
SendInput {LButton Up}
Sleep 22
}
return
Load_Settings:
ScriptName := "Crosshair" ;SplitPath, A_ScriptName,,,, ScriptName
vm := ft := 1, chv := 0
IniRead, chxt, %ScriptName%.ini, Crochair tol,chxt
IniRead, chyt, %ScriptName%.ini, Crochair tol,chyt
IniRead, chp, %ScriptName%.ini, Crochair Picture, PictureNum
IniRead, chcl, %ScriptName%.ini, Crochair Picture, Picturecolor
IniRead, chc, %ScriptName%.ini, Crochair Picture, Picturecolorval
IniRead, chimg, %ScriptName%.ini, Crochair Picture, PictureFile
IniRead, chimgw, %ScriptName%.ini, Crochair Picture, PictureWidth
IniRead, chimgh, %ScriptName%.ini, Crochair Picture, PictureHeight
SetTimer, menu, 200
goto, menu
return
;cross-hair
_PGDN:
vm := !vm
SetTimer, Menu, % vm?200:"Off"
if !(vm)
ToolTip,,,, 1
else gosub, Menu
return
Menu:
ToolTip, % "Crosshair Type:" A_Tab chp
. "`nCrosshair Color:" A_Tab chcl
. "`nCrosshair Size:" A_Tab chimgw
. "`n---------------------------------------------"
. "`nPageDown:" A_Tab "Show/Hide Menu"
. "`nHome:" A_Tab A_Tab "Show/Hide Crosshair"
. "`n/:" A_Tab A_Tab "Change Crosshair type"
. "`n*:" A_Tab A_Tab "Change Crosshair color"
. "`n+:" A_Tab A_Tab "Increase Crosshair Size"
. "`n-:" A_Tab A_Tab "Decrease Crosshair Size"
. "`nCtrl+Arows:" A_Tab "Move Crosshair Position", 0, 0
return
_HOME:
if (chv) {
Gui, Hide
SetTimer, tick, Off
chv := 0
} else {
gosub, % ft?"showch":"drawch"
chv := 1
SetTimer, tick, 200
}
return
showch:
if !(ft)
return
Gui, Destroy
wint := WinExist("A")
WinGetPos, winx, winy, winw, winh, ahk_id %wint%
gosub, posch
Gui, -Caption +LastFound +ToolWindow +Owner%wint%
WinSet, TransColor, White
Gui, Color, FFFFFF
Gui, Add, Picture, w%chimgw% h%chimgh%, %A_ScriptDir%\IMG\%chimg%
Gui, Show, NA x%chx% y%chy%
ft := 0
return
posch:
chx := winx + (winw / 2) + chxt - chimgw
chy := winy + (winh / 2) + chyt - chimgh
return
drawch:
gosub, posch
ft := 1
gosub, showch
;Gui, Show, NA x%chx% y%chy%
return
tick:
if (WinActive("ahk_id " wint)) {
WinGetPos, winx1, winy1, winw1, winh1, ahk_id %wint%
if !(winx1=winx) || !(winy1=winy) || !(winw1=winw) || !(winh1=winh) {
WinGetPos, winx, winy, winw, winh, ahk_id %wint%
if (chv)
gosub, drawch
}
} else Gui, Hide
return
_Up:
chyt--
gosub, drawch
IniWrite, %chyt%, %ScriptName%.ini, Crochair tol, chyt
return
_Down:
chyt++
gosub, drawch
IniWrite, %chyt%, %ScriptName%.ini, Crochair tol, chyt
return
_Left:
chxt--
gosub, drawch
IniWrite, %chxt%, %ScriptName%.ini, Crochair tol, chxt
return
_Right:
chxt++
gosub, drawch
IniWrite, %chxt%, %ScriptName%.ini, Crochair tol, chxt
return
_NumpadDiv:
if !(chv)
return
if chp between 1 and 5
chp++
else chp := 1
chimg := "CH" chp chc
IniWrite, %chimg%, %ScriptName%.ini , Crochair Picture, PictureFile
IniWrite, %chp%, %ScriptName%.ini , Crochair Picture, PictureNum
Gui, Destroy
ft := 1
gosub, showch
return
_NumpadMult:
if !(chv)
return
chc := chc=1?2:chc=2?3:chc=3?4:chc=4?1:chc
chcl := chc=1?"Green":chc=2?"Red":chc=3?"Yellow":chc=4?"Blue":chcl
chimg := "CH" chp chc
IniWrite, %chimg%, %ScriptName%.ini , Crochair Picture, PictureFile
IniWrite, %chcl%, %ScriptName%.ini , Crochair Picture, Picturecolor
IniWrite, %chc%, %ScriptName%.ini , Crochair Picture, Picturecolorval
Gui, Destroy
ft := 1
gosub, showch
return
_NumpadSub:
if !(chv)
return
chimgw--
chimgw := chimgw<5?5:chimgw
chimgh--
chimgh := chimgh<5?5:chimgh
IniWrite, %chimgw%, %ScriptName%.ini , Crochair Picture, PictureWidth
IniWrite, %chimgh%, %ScriptName%.ini , Crochair Picture, PictureHeight
Gui, Destroy
ft := 1
gosub, showch
return
_NumpadAdd:
if !(chv)
return
chimgw++
chimgw := chimgw>200?20:chimgw
chimgh++
chimgh := chimgh>200?200:chimgh
IniWrite, %chimgw%, %ScriptName%.ini , Crochair Picture, PictureWidth
IniWrite, %chimgh%, %ScriptName%.ini , Crochair Picture, PictureHeight
Gui, Destroy
ft := 1
gosub, showch
return
no hay problema.No se mucho de esto , ni deseo incomodar tu valioso tiempo
Si.¿es posible unir el macro no recoil (para rifle) con mi macro rapidscope (para sniper)?
Hecho. Aquí está todo combinado y con las teclas deseadas, sin probar.No puedo usar ninguna tecla de F1 al F12 , ni Insert , ni [...] activacion y desactivacion del macro no recoil [...] flecha direccional izquierda. activacion y desactivacion del macro sniper [...] flecha direccional derecha. salir [...] F4
Code: Select all
#NoEnv
#SingleInstance, Force
SetBatchLines, -1
SetWorkingDir, %A_ScriptDir% ; Ensures a consistent starting directory.
CoordMode, ToolTip, Screen
Hotkey, ~LButton, Auto_Fire, Off
Hotkey, PGDN, _PGDN, Off
Hotkey, HOME, _HOME, Off
Hotkey, ^Up, _Up, Off
Hotkey, ^Down, _Down, Off
Hotkey, ^Right, _Right, Off
Hotkey, ^Left, _Left, Off
Hotkey, NumpadDiv, _NumpadDiv, Off
Hotkey, NumpadMult, _NumpadMult, Off
Hotkey, NumpadSub, _NumpadSub, Off
Hotkey, NumpadAdd, _NumpadAdd, Off
Hotkey, ~*LButton, rapid_scope, Off
return
;on/off
|::
Hotkey, ~LButton, Toggle
_f2 := !_f2
ToolTip
Gui, Destroy
if (_f2) {
gosub, Load_Settings
} else {
SetTimer, Menu, Off
} Hotkey, PGDN, Toggle
Hotkey, HOME, Toggle
Hotkey, ^Up, Toggle
Hotkey, ^Down, Toggle
Hotkey, ^Right, Toggle
Hotkey, ^Left, Toggle
Hotkey, NumpadDiv, Toggle
Hotkey, NumpadMult, Toggle
Hotkey, NumpadSub, Toggle
Hotkey, NumpadAdd, Toggle
return
;activar/desactivar no-recoil
Left::Hotkey, ~LButton, Toggle
;activar/desactivar
Right::Hotkey, ~*LButton, Toggle
End::Suspend, Toggle
rapid_scope:
SendInput, {LButton down}
SendInput, {LButton up}
SendInput, {q down}
SendInput, {q up}
SendInput, {q down}
SendInput, {q up}
return
;recargar
;F12::Reload
;salir
F4::ExitApp
;no-recoil
Auto_Fire:
while (GetKeyState("LButton", "P")) {
SendInput, {LButton DownTemp}
Sleep, 22
DllCall("User32.dll\mouse_event", "UInt", 1, "UInt", 0, "UInt", 1, "UInt", 0, "UPtr", 0)
SendInput {LButton Up}
Sleep 22
}
return
Load_Settings:
ScriptName := "Crosshair" ;SplitPath, A_ScriptName,,,, ScriptName
vm := ft := 1, chv := 0
IniRead, chxt, %ScriptName%.ini, Crochair tol,chxt
IniRead, chyt, %ScriptName%.ini, Crochair tol,chyt
IniRead, chp, %ScriptName%.ini, Crochair Picture, PictureNum
IniRead, chcl, %ScriptName%.ini, Crochair Picture, Picturecolor
IniRead, chc, %ScriptName%.ini, Crochair Picture, Picturecolorval
IniRead, chimg, %ScriptName%.ini, Crochair Picture, PictureFile
IniRead, chimgw, %ScriptName%.ini, Crochair Picture, PictureWidth
IniRead, chimgh, %ScriptName%.ini, Crochair Picture, PictureHeight
SetTimer, menu, 200
goto, menu
return
;cross-hair
_PGDN:
vm := !vm
SetTimer, Menu, % vm?200:"Off"
if !(vm)
ToolTip,,,, 1
else gosub, Menu
return
Menu:
ToolTip, % "Crosshair Type:" A_Tab chp
. "`nCrosshair Color:" A_Tab chcl
. "`nCrosshair Size:" A_Tab chimgw
. "`n---------------------------------------------"
. "`nPageDown:" A_Tab "Show/Hide Menu"
. "`nHome:" A_Tab A_Tab "Show/Hide Crosshair"
. "`n/:" A_Tab A_Tab "Change Crosshair type"
. "`n*:" A_Tab A_Tab "Change Crosshair color"
. "`n+:" A_Tab A_Tab "Increase Crosshair Size"
. "`n-:" A_Tab A_Tab "Decrease Crosshair Size"
. "`nCtrl+Arows:" A_Tab "Move Crosshair Position", 0, 0
return
_HOME:
if (chv) {
Gui, Hide
SetTimer, tick, Off
chv := 0
} else {
gosub, % ft?"showch":"drawch"
chv := 1
SetTimer, tick, 200
}
return
showch:
if !(ft)
return
Gui, Destroy
wint := WinExist("A")
WinGetPos, winx, winy, winw, winh, ahk_id %wint%
gosub, posch
Gui, -Caption +LastFound +ToolWindow +Owner%wint%
WinSet, TransColor, White
Gui, Color, FFFFFF
Gui, Add, Picture, w%chimgw% h%chimgh%, %A_ScriptDir%\IMG\%chimg%
Gui, Show, NA x%chx% y%chy%
ft := 0
return
posch:
chx := winx + (winw / 2) + chxt - chimgw
chy := winy + (winh / 2) + chyt - chimgh
return
drawch:
gosub, posch
ft := 1
gosub, showch
;Gui, Show, NA x%chx% y%chy%
return
tick:
if (WinActive("ahk_id " wint)) {
WinGetPos, winx1, winy1, winw1, winh1, ahk_id %wint%
if !(winx1=winx) || !(winy1=winy) || !(winw1=winw) || !(winh1=winh) {
WinGetPos, winx, winy, winw, winh, ahk_id %wint%
if (chv)
gosub, drawch
}
} else Gui, Hide
return
_Up:
chyt--
gosub, drawch
IniWrite, %chyt%, %ScriptName%.ini, Crochair tol, chyt
return
_Down:
chyt++
gosub, drawch
IniWrite, %chyt%, %ScriptName%.ini, Crochair tol, chyt
return
_Left:
chxt--
gosub, drawch
IniWrite, %chxt%, %ScriptName%.ini, Crochair tol, chxt
return
_Right:
chxt++
gosub, drawch
IniWrite, %chxt%, %ScriptName%.ini, Crochair tol, chxt
return
_NumpadDiv:
if !(chv)
return
if chp between 1 and 5
chp++
else chp := 1
chimg := "CH" chp chc
IniWrite, %chimg%, %ScriptName%.ini , Crochair Picture, PictureFile
IniWrite, %chp%, %ScriptName%.ini , Crochair Picture, PictureNum
Gui, Destroy
ft := 1
gosub, showch
return
_NumpadMult:
if !(chv)
return
chc := chc=1?2:chc=2?3:chc=3?4:chc=4?1:chc
chcl := chc=1?"Green":chc=2?"Red":chc=3?"Yellow":chc=4?"Blue":chcl
chimg := "CH" chp chc
IniWrite, %chimg%, %ScriptName%.ini , Crochair Picture, PictureFile
IniWrite, %chcl%, %ScriptName%.ini , Crochair Picture, Picturecolor
IniWrite, %chc%, %ScriptName%.ini , Crochair Picture, Picturecolorval
Gui, Destroy
ft := 1
gosub, showch
return
_NumpadSub:
if !(chv)
return
chimgw--
chimgw := chimgw<5?5:chimgw
chimgh--
chimgh := chimgh<5?5:chimgh
IniWrite, %chimgw%, %ScriptName%.ini , Crochair Picture, PictureWidth
IniWrite, %chimgh%, %ScriptName%.ini , Crochair Picture, PictureHeight
Gui, Destroy
ft := 1
gosub, showch
return
_NumpadAdd:
if !(chv)
return
chimgw++
chimgw := chimgw>200?20:chimgw
chimgh++
chimgh := chimgh>200?200:chimgh
IniWrite, %chimgw%, %ScriptName%.ini , Crochair Picture, PictureWidth
IniWrite, %chimgh%, %ScriptName%.ini , Crochair Picture, PictureHeight
Gui, Destroy
ft := 1
gosub, showch
return
Code: Select all
#NoEnv
#SingleInstance, Force
SetBatchLines, -1
Hotkey, ~LButton, no_recoil, Off
Hotkey, ~*LButton, rapid_scope, Off
return
Left::Hotkey, ~LButton, Toggle
Right::Hotkey, ~*LButton, Toggle
F4::ExitApp
HOME::Suspend, Toggle
rapid_scope:
SendInput, {LButton down}
SendInput, {LButton up}
SendInput, {q down}
SendInput, {q up}
SendInput, {q down}
SendInput, {q up}
return
no_recoil:
while (GetKeyState("LButton", "P")) {
SendInput, {LButton DownTemp}
Sleep, 22
DllCall("User32.dll\mouse_event", "UInt", 1, "UInt", 0, "UInt", 1, "UInt", 0, "UPtr", 0)
SendInput {LButton Up}
Sleep 22
}
return