A bot write with autoit for automatically chase, detect and capture Luma (extremely rare creature) in the game Temtem.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

152 lines
5.0 KiB

3 years ago
#include <GUIconstants.au3>
#include <GUIConstantsEx.au3>
#include<Misc.au3>
#NoTrayIcon
Opt("WinTitleMatchMode", 4)
Opt("WinWaitDelay", 0)
Opt("GUIonEventMode",1)
;~ Global $SRCCOPY = 0x00CC0020
Global $leave = 0
Global $Paused=0
$MouseModifier = 1
$PressedTime = 1
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{INS}", "_copyHEX")
Tooltip("AU3MAG", 0, 0,"","",4)
$MyhWnd = WinGetHandle("classname=tooltips_class32")
GUICreate("PC", 180, 230,0, 0, -1, $WS_EX_TOPMOST)
GUISetOnEvent($GUI_EVENT_CLOSE,"_exit")
GUICtrlCreateGroup(" Mouse coords ", 10, 10, 160, 50)
GUICtrlCreateLabel("X:", 25, 33, 15, 15)
$MousePosX=GUICtrlCreateInput("", 40, 30, 40, 20, $ES_READONLY)
GUICtrlCreateLabel("Y:", 90, 33, 15, 15)
$MousePosY=GUICtrlCreateInput("", 105, 30, 40, 20, $ES_READONLY)
GUICtrlCreateGroup(" Color codes ", 10, 70, 160, 110)
GUICtrlCreateLabel("Decimal:", 25, 93, 50, 15)
$PixelColor=GUICtrlCreateInput("", 80, 90, 70, 20, $ES_READONLY)
GUICtrlCreateLabel("Hex:", 25, 123, 50, 15)
$hexColor=GUICtrlCreateInput("", 80, 120, 70, 20,$ES_READONLY)
GUICtrlCreateLabel("Color:", 25, 153, 50, 15)
$MostrarColor=GUICtrlCreateLabel("", 80, 150, 70, 20,$ES_READONLY)
GUICtrlCreateLabel("PAUSE: Freeze/Unfreeze", 0, 185 ,180,15,$SS_CENTER)
GUICtrlSetColor(-1,0x00808080)
GUICtrlCreateLabel("INS: Copy hex code to clipboard", 0, 205 ,180,15,$SS_CENTER)
GUICtrlSetColor(-1,0x00808080)
GUISetIcon (@ScriptDir & "\pipette.ico")
GUISetState()
data()
Func data()
While 1
Sleep(50)
Opt("WinTitleMatchMode",4)
If (_IsPressed(25) + _IsPressed(26) + _IsPressed(27) + _IsPressed(28)) = 0 Then
_ResetSpeed()
EndIf
$msg=GUIGetMsg()
Select
Case $msg=$GUI_EVENT_CLOSE
Exit
EndSelect
WinSetState($MyhWnd,"",@SW_HIDE)
Opt("MouseCoordMode", 0)
Opt("PixelCoordMode", 0)
Opt("WinTitleMatchMode",1)
$win = WinGetPos("")
$pos=MouseGetPos()
If $pos[0] >= 0 And $pos[0] <= $win[2] and $pos[1] >= 0 And $pos[1] <= $win[3] Then
$color=PixelGetColor($pos[0],$pos[1])
GUICtrlSetData($MousePosX, $pos[0])
GUICtrlSetData($MousePosY, $pos[1])
GUICtrlSetData($PixelColor,$color)
$HEX6=StringRight(Hex($color),6)
GUICtrlSetData($hexColor,"0x"&$HEX6)
GUICtrlSetBkColor($MostrarColor,"0x"&Hex($color))
Else
GUICtrlSetData($MousePosX, "----")
GUICtrlSetData($MousePosY, "----")
GUICtrlSetData($PixelColor,"")
GUICtrlSetData($hexColor,"")
EndIf
WEnd
EndFunc
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(10)
$msg=GUIGetMsg()
Select
Case $msg=$GUI_EVENT_CLOSE
Exit
EndSelect
WEnd
EndFunc
Func nada()
EndFunc
Func _copyHEX()
ClipPut(Guictrlread($hexColor))
EndFunc;==>_ShowInfo
Func _BoostMouseSpeed()
If IsInt($PressedTime / 10) Then
$MouseModifier = $MouseModifier + 1
$PressedTime = $PressedTime + 1
Else
$PressedTime = $PressedTime + 1
EndIf
EndFunc
Func _ResetSpeed()
$MouseModifier = 1
$PressedTime = 1
EndFunc;==>_ResetSpeed
Func CrossHairsSOLID(ByRef $hdc)
Local $hPen, $hPenOld
$hPen = DllCall("gdi32.dll","hwnd","CreatePen","int",0,"int",5,"int",0x555555)
$hPenOld = DllCall("gdi32.dll","hwnd","SelectObject","int",$hdc,"hwnd",$hPen[0])
DLLCall("gdi32.dll","int","MoveToEx","int",$hdc,"int",52,"int",0,"ptr",0)
DLLCall("gdi32.dll","int","LineTo","int",$hdc,"int",52,"int",46)
DLLCall("gdi32.dll","int","MoveToEx","int",$hdc,"int",52,"int",58,"ptr",0)
DLLCall("gdi32.dll","int","LineTo","int",$hdc,"int",52,"int",100)
DLLCall("gdi32.dll","int","MoveToEx","int",$hdc,"int",0,"int",52,"ptr",0)
DLLCall("gdi32.dll","int","LineTo","int",$hdc,"int",46,"int",52)
DLLCall("gdi32.dll","int","MoveToEx","int",$hdc,"int",58,"int",52,"ptr",0)
DLLCall("gdi32.dll","int","LineTo","int",$hdc,"int",100,"int",52)
DllCall("gdi32.dll","hwnd","SelectObject","int",$hdc,"hwnd",$hPenOld[0])
DllCall("gdi32.dll","int","DeleteObject","hwnd",$hPen[0])
EndFunc
Func CrossHairsINV(ByRef $hdc)
;~ Local CONST $NOTSRCCOPY = 0x3300087
DLLCall("gdi32.dll","int","BitBlt","int",$hdc,"int",50,"int",0,"int",5,"int",49,"int",$hdc,"int",50,"int",0,"int",$NOTSRCCOPY)
DLLCall("gdi32.dll","int","BitBlt","int",$hdc,"int",50,"int",56,"int",5,"int",49,"int",$hdc,"int",50,"int",56,"int",$NOTSRCCOPY)
DLLCall("gdi32.dll","int","BitBlt","int",$hdc,"int",0,"int",50,"int",49,"int",5,"int",$hdc,"int",0,"int",50,"int",$NOTSRCCOPY)
DLLCall("gdi32.dll","int","BitBlt","int",$hdc,"int",56,"int",50,"int",44,"int",5,"int",$hdc,"int",56,"int",50,"int",$NOTSRCCOPY)
EndFunc
Func _exit()
Exit
EndFunc