#include #include #include #include #include #include #include #include #include #NoTrayIcon ;==================== Début du script ==================== ; On initialise les variables en Global pour quelles puissent garder leur valeur dans toutes les fonctions : Global $PosG[2] ; On créé un tableau à 2 dimensions pour stocker les coordonnées du temtem détectée plus bas. Global $PosC[2] Global $PosD[2] Global $CoordComb[2] Global $VerifHG[2] Global $VerifHC[2] Global $VerifHD[2] Global $PosDVerif Global $Minimap Global $Detect Global $CombatOn Global $Healthbar Global $VerifCatch Global $RandomRun Global $RandomShort Global $tourner = 0 Global $G Global $D Global $C Global $Log ;------------------------------------------------------------------------------- ; Email ;------------------------------------------------------------------------------- ; =============================================================================================================================== ; Variables for the _INetSmtpMailCom ; =============================================================================================================================== Global Enum _ $g__INetSmtpMailCom_ERROR_FileNotFound = 1, _ $g__INetSmtpMailCom_ERROR_Send, _ $g__INetSmtpMailCom_ERROR_ObjectCreation, _ $g__INetSmtpMailCom_ERROR_COUNTER Global Const $g__cdoSendUsingPickup = 1 ; Send message using the local SMTP service pickup directory. Global Const $g__cdoSendUsingPort = 2 ; Send the message using the network (SMTP over the network). Must use this to use Delivery Notification Global Const $g__cdoAnonymous = 0 ; Do not authenticate Global Const $g__cdoBasic = 1 ; basic (clear-text) authentication Global Const $g__cdoNTLM = 2 ; NTLM Global $gs_thoussep = "." Global $gs_decsep = "," Global $sFileOpenDialog = "" ; Delivery Status Notifications Global Const $g__cdoDSNDefault = 0 ; None Global Const $g__cdoDSNNever = 1 ; None Global Const $g__cdoDSNFailure = 2 ; Failure Global Const $g__cdoDSNSuccess = 4 ; Success Global Const $g__cdoDSNDelay = 8 ; Delay Func _SendmailG() Local $sSmtpServer = "smtp.gmail.com" ; address for the smtp-server to use - REQUIRED Local $sFromName = "user" ; name from who the email was sent Local $sFromAddress = "janvoiebertrand@gmail.com" ; address from where the mail should come Local $sToAddress = "janvoiebertrand@gmail.com" ; destination address of the email - REQUIRED Local $sSubject = "LUMA!" ; subject from the email - can be anything you want it to be Local $sBody = "TU AS ATTRAPER UN LUMA, ALLER HOP, VAS TCHECKER LES SCREENSHOTS!!!" ; the messagebody from the mail - can be left blank but then you get a blank mail Local $sAttachFiles = @ScriptDir & "\lumaG.jpg" ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed Local $sCcAddress = "" ; address for cc - leave blank if not needed Local $sBccAddress = "" ; address for bcc - leave blank if not needed Local $sImportance = "High" ; Send message priority: "High", "Normal", "Low" Local $sUsername = "janvoiebertrand@gmail.com" ; username for the account used from where the mail gets sent - REQUIRED Local $sPassword = "ag2r2017" ; password for the account used from where the mail gets sent - REQUIRED Local $iIPPort = 465 ; GMAIL port used for sending the mail Local $bSSL = True ; GMAIL enables/disables secure socket layer sending - set to True if using httpS Local $bIsHTMLBody = False Local $iDSNOptions = $g__cdoDSNDefault Local $rc = _INetSmtpMailCom($sSmtpServer, $sFromName, $sFromAddress, $sToAddress, $sSubject, $sBody, $sAttachFiles, $sCcAddress, $sBccAddress, $sImportance, $sUsername, $sPassword, $iIPPort, $bSSL, $bIsHTMLBody, $iDSNOptions) If @error Then MsgBox(0, "_INetSmtpMailCom(): Error sending message", _ "Error code: " & @error & @CRLF & @CRLF & _ "Error Hex Number: " & _INetSmtpMailCom_ErrHexNumber() & @CRLF & @CRLF & _ "Description: " & _INetSmtpMailCom_ErrDescription() & @CRLF & @CRLF & _ "Description (rc): " & $rc & @CRLF & @CRLF & _ "ScriptLine: " & _INetSmtpMailCom_ErrScriptLine() _ ) ConsoleWrite("### COM Error ! Number: " & _INetSmtpMailCom_ErrHexNumber() & " ScriptLine: " & _INetSmtpMailCom_ErrScriptLine() & " Description:" & _INetSmtpMailCom_ErrDescription() & @LF) ;Else ;Dim $iMsgBoxAnswer ;$iMsgBoxAnswer = MsgBox(262208, "SUCCESS", ":-)", 5) EndIf EndFunc ;==>_Enviarmail Func _SendmailC() Local $sSmtpServer = "smtp.gmail.com" ; address for the smtp-server to use - REQUIRED Local $sFromName = "user" ; name from who the email was sent Local $sFromAddress = "janvoiebertrand@gmail.com" ; address from where the mail should come Local $sToAddress = "janvoiebertrand@gmail.com" ; destination address of the email - REQUIRED Local $sSubject = "LUMA!" ; subject from the email - can be anything you want it to be Local $sBody = "TU AS ATTRAPER UN LUMA, ALLER HOP, VAS TCHECKER LES SCREENSHOTS!!!" ; the messagebody from the mail - can be left blank but then you get a blank mail Local $sAttachFiles = @ScriptDir & "\lumaC.jpg" ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed Local $sCcAddress = "" ; address for cc - leave blank if not needed Local $sBccAddress = "" ; address for bcc - leave blank if not needed Local $sImportance = "High" ; Send message priority: "High", "Normal", "Low" Local $sUsername = "janvoiebertrand@gmail.com" ; username for the account used from where the mail gets sent - REQUIRED Local $sPassword = "ag2r2017" ; password for the account used from where the mail gets sent - REQUIRED Local $iIPPort = 465 ; GMAIL port used for sending the mail Local $bSSL = True ; GMAIL enables/disables secure socket layer sending - set to True if using httpS Local $bIsHTMLBody = False Local $iDSNOptions = $g__cdoDSNDefault Local $rc = _INetSmtpMailCom($sSmtpServer, $sFromName, $sFromAddress, $sToAddress, $sSubject, $sBody, $sAttachFiles, $sCcAddress, $sBccAddress, $sImportance, $sUsername, $sPassword, $iIPPort, $bSSL, $bIsHTMLBody, $iDSNOptions) If @error Then MsgBox(0, "_INetSmtpMailCom(): Error sending message", _ "Error code: " & @error & @CRLF & @CRLF & _ "Error Hex Number: " & _INetSmtpMailCom_ErrHexNumber() & @CRLF & @CRLF & _ "Description: " & _INetSmtpMailCom_ErrDescription() & @CRLF & @CRLF & _ "Description (rc): " & $rc & @CRLF & @CRLF & _ "ScriptLine: " & _INetSmtpMailCom_ErrScriptLine() _ ) ConsoleWrite("### COM Error ! Number: " & _INetSmtpMailCom_ErrHexNumber() & " ScriptLine: " & _INetSmtpMailCom_ErrScriptLine() & " Description:" & _INetSmtpMailCom_ErrDescription() & @LF) ;Else ;Dim $iMsgBoxAnswer ;$iMsgBoxAnswer = MsgBox(262208, "SUCCESS", ":-)", 5) EndIf EndFunc ;==>_Enviarmail Func _SendmailD() Local $sSmtpServer = "smtp.gmail.com" ; address for the smtp-server to use - REQUIRED Local $sFromName = "user" ; name from who the email was sent Local $sFromAddress = "janvoiebertrand@gmail.com" ; address from where the mail should come Local $sToAddress = "janvoiebertrand@gmail.com" ; destination address of the email - REQUIRED Local $sSubject = "LUMA!" ; subject from the email - can be anything you want it to be Local $sBody = "TU AS ATTRAPER UN LUMA, ALLER HOP, VAS TCHECKER LES SCREENSHOTS!!!" ; the messagebody from the mail - can be left blank but then you get a blank mail Local $sAttachFiles = @ScriptDir & "\lumaD.jpg" ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed Local $sCcAddress = "" ; address for cc - leave blank if not needed Local $sBccAddress = "" ; address for bcc - leave blank if not needed Local $sImportance = "High" ; Send message priority: "High", "Normal", "Low" Local $sUsername = "janvoiebertrand@gmail.com" ; username for the account used from where the mail gets sent - REQUIRED Local $sPassword = "ag2r2017" ; password for the account used from where the mail gets sent - REQUIRED Local $iIPPort = 465 ; GMAIL port used for sending the mail Local $bSSL = True ; GMAIL enables/disables secure socket layer sending - set to True if using httpS Local $bIsHTMLBody = False Local $iDSNOptions = $g__cdoDSNDefault Local $rc = _INetSmtpMailCom($sSmtpServer, $sFromName, $sFromAddress, $sToAddress, $sSubject, $sBody, $sAttachFiles, $sCcAddress, $sBccAddress, $sImportance, $sUsername, $sPassword, $iIPPort, $bSSL, $bIsHTMLBody, $iDSNOptions) If @error Then MsgBox(0, "_INetSmtpMailCom(): Error sending message", _ "Error code: " & @error & @CRLF & @CRLF & _ "Error Hex Number: " & _INetSmtpMailCom_ErrHexNumber() & @CRLF & @CRLF & _ "Description: " & _INetSmtpMailCom_ErrDescription() & @CRLF & @CRLF & _ "Description (rc): " & $rc & @CRLF & @CRLF & _ "ScriptLine: " & _INetSmtpMailCom_ErrScriptLine() _ ) ConsoleWrite("### COM Error ! Number: " & _INetSmtpMailCom_ErrHexNumber() & " ScriptLine: " & _INetSmtpMailCom_ErrScriptLine() & " Description:" & _INetSmtpMailCom_ErrDescription() & @LF) ;Else ;Dim $iMsgBoxAnswer ;$iMsgBoxAnswer = MsgBox(262208, "SUCCESS", ":-)", 5) EndIf EndFunc ;==>_Enviarmail #Region UDF Functions ; The UDF ; #FUNCTION# ==================================================================================================================== ; Name ..........: _INetSmtpMailCom ; Description ...: ; Syntax ........: _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress[, $s_Subject = ""[, $as_Body = ""[, ; $s_AttachFiles = ""[, $s_CcAddress = ""[, $s_BccAddress = ""[, $s_Importance = "Normal"[, $s_Username = ""[, ; $s_Password = ""[, $IPPort = 25[, $bSSL = False[, $bIsHTMLBody = False[, $iDSNOptions = $g__cdoDSNDefault]]]]]]]]]]]]) ; Parameters ....: $s_SmtpServer - A string value. ; $s_FromName - A string value. ; $s_FromAddress - A string value. ; $s_ToAddress - A string value. ; $s_Subject - [optional] A string value. Default is "". ; $s_Body - [optional] A string value. Default is "". ; $s_AttachFiles - [optional] A string value. Default is "". ; $s_CcAddress - [optional] A string value. Default is "". ; $s_BccAddress - [optional] A string value. Default is "". ; $s_Importance - [optional] A string value. Default is "Normal". ; $s_Username - [optional] A string value. Default is "". ; $s_Password - [optional] A string value. Default is "". ; $IPPort - [optional] An integer value. Default is 25. ; $bSSL - [optional] A binary value. Default is False. ; $bIsHTMLBody - [optional] A binary value. Default is False. ; $iDSNOptions - [optional] An integer value. Default is $g__cdoDSNDefault. ; Return values .: None ; Author ........: Jos ; Modified ......: mLipok ; Remarks .......: ; Related .......: http://www.autoitscript.com/forum/topic/23860-smtp-mailer-that-supports-html-and-attachments/ ; Link ..........: http://www.autoitscript.com/forum/topic/167292-smtp-mailer-udf/ ; Example .......: Yes ; =============================================================================================================================== Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $s_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance = "Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $bSSL = False, $bIsHTMLBody = False, $iDSNOptions = $g__cdoDSNDefault) ; init Error Handler _INetSmtpMailCom_ErrObjInit() Local $objEmail = ObjCreate("CDO.Message") If Not IsObj($objEmail) Then Return SetError($g__INetSmtpMailCom_ERROR_ObjectCreation, Dec(_INetSmtpMailCom_ErrHexNumber()), _INetSmtpMailCom_ErrDescription()) ; Clear previous Err information _INetSmtpMailCom_ErrHexNumber(0) _INetSmtpMailCom_ErrDescription('') _INetSmtpMailCom_ErrScriptLine('') $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>' $objEmail.To = $s_ToAddress If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress $objEmail.Subject = $s_Subject ; Select whether or not the content is sent as plain text or HTM If $bIsHTMLBody Then $objEmail.Textbody = $s_Body & @CRLF Else $objEmail.HTMLBody = $s_Body EndIf ; Add Attachments If $s_AttachFiles <> "" Then Local $S_Files2Attach = StringSplit($s_AttachFiles, ";") For $x = 1 To $S_Files2Attach[0] $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x]) If FileExists($S_Files2Attach[$x]) Then ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF) $objEmail.AddAttachment($S_Files2Attach[$x]) Else ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF) Return SetError($g__INetSmtpMailCom_ERROR_FileNotFound, 0, 0) EndIf Next EndIf ; Set Email Configuration $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = $g__cdoSendUsingPort $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer If Number($IPPort) = 0 Then $IPPort = 25 $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort ;Authenticated SMTP If $s_Username <> "" Then $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = $g__cdoBasic $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password EndIf $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = $bSSL ;Update Configuration Settings $objEmail.Configuration.Fields.Update ; Set Email Importance Switch $s_Importance Case "High" $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "High" Case "Normal" $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Normal" Case "Low" $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Low" EndSwitch ; Set DSN options If $iDSNOptions <> $g__cdoDSNDefault And $iDSNOptions <> $g__cdoDSNNever Then $objEmail.DSNOptions = $iDSNOptions $objEmail.Fields.Item("urn:schemas:mailheader:disposition-notification-to") = $s_FromAddress ;~ $objEmail.Fields.Item("urn:schemas:mailheader:return-receipt-to") = $s_FromAddress EndIf ; Update Importance and Options fields $objEmail.Fields.Update ; Sent the Message $objEmail.Send If @error Then _INetSmtpMailCom_ErrObjCleanUp() Return SetError($g__INetSmtpMailCom_ERROR_Send, Dec(_INetSmtpMailCom_ErrHexNumber()), _INetSmtpMailCom_ErrDescription()) EndIf ; CleanUp $objEmail = "" _INetSmtpMailCom_ErrObjCleanUp() EndFunc ;==>_INetSmtpMailCom ; ; Com Error Handler Func _INetSmtpMailCom_ErrObjInit($bParam = Default) Local Static $oINetSmtpMailCom_Error = Default If $bParam == 'CleanUp' And $oINetSmtpMailCom_Error <> Default Then $oINetSmtpMailCom_Error = '' Return $oINetSmtpMailCom_Error EndIf If $oINetSmtpMailCom_Error = Default Then $oINetSmtpMailCom_Error = ObjEvent("AutoIt.Error", "_INetSmtpMailCom_ErrFunc") EndIf Return $oINetSmtpMailCom_Error EndFunc ;==>_INetSmtpMailCom_ErrObjInit Func _INetSmtpMailCom_ErrObjCleanUp() _INetSmtpMailCom_ErrObjInit('CleanUp') EndFunc ;==>_INetSmtpMailCom_ErrObjCleanUp Func _INetSmtpMailCom_ErrHexNumber($vData = Default) Local Static $vReturn = 0 If $vData <> Default Then $vReturn = $vData Return $vReturn EndFunc ;==>_INetSmtpMailCom_ErrHexNumber Func _INetSmtpMailCom_ErrDescription($sData = Default) Local Static $sReturn = '' If $sData <> Default Then $sReturn = $sData Return $sReturn EndFunc ;==>_INetSmtpMailCom_ErrDescription Func _INetSmtpMailCom_ErrScriptLine($iData = Default) Local Static $iReturn = '' If $iData <> Default Then $iReturn = $iData Return $iReturn EndFunc ;==>_INetSmtpMailCom_ErrScriptLine Func _INetSmtpMailCom_ErrFunc() _INetSmtpMailCom_ErrObjInit() _INetSmtpMailCom_ErrHexNumber(Hex(_INetSmtpMailCom_ErrObjInit().number, 8)) _INetSmtpMailCom_ErrDescription(StringStripWS(_INetSmtpMailCom_ErrObjInit().description, 3)) _INetSmtpMailCom_ErrScriptLine(_INetSmtpMailCom_ErrObjInit().ScriptLine) SetError(1) ; something to check for when this function returns Return EndFunc ;==>_INetSmtpMailCom_ErrFunc ;------------------------------------------------------------------------------- ; Raccourcis claviers ;------------------------------------------------------------------------------- HotKeySet("{END}", "Bye") ; On assigne la fonction Bye (Pour quitter) à la touche 'Echap' ;------------------------------------------------------------------------------- ; INI Couleur ;------------------------------------------------------------------------------- Global $TempC1 = FileOpen(@ScriptDir & "\data\color\couleur1.ini", 0) Global $TempC2 = FileOpen(@ScriptDir & "\data\color\couleur2.ini", 0) Global $TempC3 = FileOpen(@ScriptDir & "\data\color\couleur3.ini", 0) Global $Couleur1 = FileRead ($TempC1) Global $Couleur2 = FileRead ($TempC2) Global $Couleur3 = FileRead ($TempC3) FileClose($TempC1) FileClose($TempC2) FileClose($TempC3) ;------------------------------------------------------------------------------- ; GUI ;------------------------------------------------------------------------------- Opt("GUIOnEventMode", 1) ; Change to OnEvent mode $started = 0 $mainwindow = GuiCreate("Temtem", 160, 510, 1, 1, BitOr($WS_BORDER, $WS_POPUP), BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)) $CompteurText = GUICtrlCreateLabel("Compteur:", 45, 20, 100, 30) GUICtrlSetFont(-1, 10, 800, 0, "Century Gothic") $CompteurLabel = GUICtrlCreateLabel("", 50, 40, 100, 30) GUICtrlSetFont(-1, 18, 800, 0, "Century Gothic") GUICtrlSetColor(-1, 0xFF0000) GUICtrlCreateGroup(" Menu ", 10, 70, 140, 145) $startbutton = GUICtrlCreateButton("Start", 30, 90, 100, 30) $stopbutton = GuiCtrlCreateButton("Stop", 30, 130, 100, 30) $btnExit = GUICtrlCreateButton("Exit", 30, 170, 100, 30) GUICtrlCreateGroup(" Color codes ", 10, 220, 140, 280) Global $idCheckbox1 = GUICtrlCreateCheckbox("Color 1", 30, 235, 50, 20) GUICtrlSetState(-1, $GUI_CHECKED) $Input1 = GUICtrlCreateInput($Couleur1, 30, 255, 100, 30) GUICtrlSetBkColor(-1, $Couleur1) $Changer1 = GUICtrlCreateButton("Change", 30, 285, 100, 30) Global $idCheckbox2 = GUICtrlCreateCheckbox("Color 2", 30, 320, 50, 20) GUICtrlSetState(-1, $GUI_CHECKED) $Input2 = GUICtrlCreateInput($Couleur2, 30, 340, 100, 30) GUICtrlSetBkColor(-1, $Couleur2) $Changer2 = GUICtrlCreateButton("Change", 30, 370, 100, 30) Global $idCheckbox3 = GUICtrlCreateCheckbox("Color 3", 30, 405, 50, 20) GUICtrlSetState(-1, $GUI_CHECKED) $Input3 = GUICtrlCreateInput($Couleur3, 30, 425, 100, 30) GUICtrlSetBkColor(-1, $Couleur3) $Changer3 = GUICtrlCreateButton("Change", 30, 455, 100, 30) GUISetOnEvent($GUI_EVENT_CLOSE, "_Terminate") GUICtrlSetOnEvent($Changer1, "InputBox1") GUICtrlSetOnEvent($Changer2, "InputBox2") GUICtrlSetOnEvent($Changer3, "InputBox3") GUICtrlSetOnEvent($startbutton, "StartButton") GUICtrlSetOnEvent($stopbutton, "StopButton") GUICtrlSetOnEvent($btnExit, "_Terminate") TraySetIcon(@ScriptDir & "\temtem.ico") GUISetIcon (@ScriptDir & "\temtem.ico") Global $sAnswer GUISetState(@SW_SHOW) Func _IsChecked($idControlID) Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED EndFunc ;==>_IsChecked ;------------------------------------------------------------------------------- ; Function change Couleur ;------------------------------------------------------------------------------- Func pixelcolor() ;Exécute le Bloc-notes avec la fenêtre agrandie. Local $iPID = Run("pixelcolor.exe", "") EndFunc ;==>Example Func InputBox1 () GUISetIcon (@ScriptDir & "\temtem.ico") pixelcolor() $hGUI = GUICreate("", 0, 0, 0, 0, Default, $WS_EX_TOPMOST) GUISetState(@SW_HIDE, $hGUI) Local $CouleurTemp1 = InputBox("Couleur", "Quelle couleur veux-tu detecter?", $Couleur1, "",170, 140, 1, 444, "", $hGUI) $Couleur1 = $CouleurTemp1 $SaveCompteur1 = FileOpen(@ScriptDir & "\data\color\couleur1.ini", 2) FileWrite ( $SaveCompteur1 , $Couleur1 ) FileClose($SaveCompteur1) GuiCtrlSetData($Input1, $Couleur1) EndFunc Func InputBox2 () GUISetIcon (@ScriptDir & "\temtem.ico") pixelcolor() $hGUI = GUICreate("", 0, 0, 0, 0, Default, $WS_EX_TOPMOST) local $CouleurTemp2 = InputBox("Couleur", "Quelle couleur veux-tu detecter?", $Couleur2, "",160, 140, 4, 444, "", $hGUI) $Couleur2 = $CouleurTemp2 $SaveCompteur2 = FileOpen(@ScriptDir & "\data\color\couleur2.ini", 2) FileWrite ( $SaveCompteur2 , $Couleur2 ) FileClose($SaveCompteur2) GuiCtrlSetData($Input2, $Couleur2) EndFunc Func InputBox3 () GUISetIcon (@ScriptDir & "\temtem.ico") pixelcolor() $hGUI = GUICreate("", 0, 0, 0, 0, Default, $WS_EX_TOPMOST) local $CouleurTemp3 = InputBox("Couleur", "Quelle couleur veux-tu detecter?", $Couleur3, "",160, 140, 4, 444, "", $hGUI) $Couleur3 = $CouleurTemp3 $SaveCompteur3 = FileOpen(@ScriptDir & "data\color\couleur3.ini", 2) FileWrite ( $SaveCompteur3 , $Couleur3 ) FileClose($SaveCompteur3) GuiCtrlSetData($Input3, $Couleur3) EndFunc ;------------------------------------------------------------------------------- ; Compteur ;------------------------------------------------------------------------------- Global $Compteur $SaveCompteur = FileOpen(@ScriptDir & "\data\count\compteurtemtem.ini", 0) $Compteur = FileRead ($SaveCompteur) FileClose($SaveCompteur) GuiCtrlSetData($CompteurLabel, $Compteur) ;------------------------------------------------------------------------------- ; Main ;------------------------------------------------------------------------------- While 1 Sleep(10) If $started Then GuiCtrlSetData($CompteurLabel, $Compteur) Local $Log = FileOpen(@ScriptDir & "\Temtemlog.log", 1) Local $RandomShort = Random(200, 500,1) Tourner() Combat() VerifCatch() VerifXp () ;ConsoleWrite (' RENCONTRE = ' & $Compteur &' ') FileClose($Log) EndIf Wend ;------------------------------------------------------------------------------- ; Menu ;------------------------------------------------------------------------------- Func _Terminate() $SaveCompteur = FileOpen(@ScriptDir & "\data\count\compteurtemtem.ini", 2) FileWrite ( $SaveCompteur , $compteur ) FileClose($SaveCompteur) _FileWriteLog($Log,' RENCONTRE = ' & $Compteur &' ') FileClose($Log) Exit EndFunc Func StartButton() ;MsgBox(0, "Temtem Luma Hunting", "Le script est lancé") $started = 1 $tourner = 1 EndFunc Func StopButton() ;MsgBox(0, "Temtem Luma Hunting", "Le script est arreté") $started = 0 $tourner = 0 $SaveCompteur = FileOpen(@ScriptDir & "\data\count\compteurtemtem.ini", 2) FileWrite ( $SaveCompteur , $compteur ) FileClose($SaveCompteur) _FileWriteLog($Log,' RENCONTRE = ' & $Compteur &' ') FileClose($Log) EndFunc ;------------------------------------------------------------------------------- ; Run ;------------------------------------------------------------------------------- ;------------------------------------------------------------------------------- ; Verif ;------------------------------------------------------------------------------- Func Verif () Combat () EndFunc ;==> Verif ;------------------------------------------------------------------------------- ; Tourner en rond ;------------------------------------------------------------------------------- Func Tourner() ;==> Tourner $Minimap = PixelGetColor(1670, 92) ; Récupère la couleur qui se trouve en 593 (Axe de la hauteur), 610 (Axe de la largeur), si un combat est lancé, la couleur est Orange. $Minimap = Hex($Minimap, 6) If $Minimap = '3CE8EA' AND $tourner = 1 Then ;$Minimap = PixelSearch(0, 0, 1341, 60, 0xFF8C42, 1) ; Minimap? ;If Not @error Then ; Si pas d'erreur alors: Send("{UP down}") ; Enfonce la touche haut $RandomRun = Random(500, 2000, 1) sleep($RandomRun);On attend 0.5secs. Send("{UP up}") ; Relache la touche haut ;Send("{RIGHT down}") ; Enfonce la touche droite ;sleep(500);On attend 0.5secs. ;Send("{RIGHT up}") ; Relache la touche droite Send("{DOWN down}") ; Enfonce la touche bas $RandomRun = Random(500, 2000, 1) sleep($RandomRun) ;On attend 0.5secs. Send("{DOWN up}") ; Relache la touche bas ;Send("{LEFT down}") ; Enfonce la touche gauche ;sleep(500) ; On attend 0.5secs. ;Send("{LEFT up}") ; Relache la touche gauche $Minimap = PixelGetColor(1670, 92) ; Récupère la couleur qui se trouve en 593 (Axe de la hauteur), 610 (Axe de la largeur), si un combat est lancé, la couleur est Orange. $Minimap = Hex($Minimap, 6) EndIf ;==> Minimap EndFunc ;==> Tourner ;------------------------------------------------------------------------------- ; Combat ;------------------------------------------------------------------------------- Func Combat () $CombatOrange = PixelGetColor(864, 889) ; Récupère la couleur qui se trouve en 593 (Axe de la hauteur), 610 (Axe de la largeur), si un combat est lancé, la couleur est Orange. $CombatOrange = Hex($CombatOrange, 6) $CombatBleu = PixelGetColor(971, 896) ; Récupère la couleur qui se trouve en 593 (Axe de la hauteur), 610 (Axe de la largeur), si un combat est lancé, la couleur est Orange. $CombatBleu = Hex($CombatBleu, 6) If $CombatOrange = 'FFA732' AND $CombatBleu = '22FDFF' Then NbTemtem() Endif ;==> CombatOn EndFunc ;==> Combat ;------------------------------------------------------------------------------ ; Nombre de temtem ;------------------------------------------------------------------------------ Func NbTemtem () $NbTemtem = PixelGetColor(1170, 94) ; NB $NbTemtem = Hex($NbTemtem, 6) If $NbTemtem= '1E1F1E' Then CouleurG () CouleurD () Verif2 () Else CouleurC () Verif1 () EndIf ;==> NbTemtem EndFunc ;------------------------------------------------------------------------------ ; Detection couleur ;------------------------------------------------------------------------------ ; 0x58FE8D (VERT) 0xFF5D3E (ROUGE) Func CouleurG () $PosG = PixelSearch(1014, 185, 1082, 366, $Couleur1, 5) If Not @error AND _IsChecked($idCheckbox1) Then $G = 1 Else $PosG = PixelSearch(1014, 185, 1082, 366, $Couleur2, 5) If Not @error AND _IsChecked($idCheckbox2) Then $G = 1 Else $PosG = PixelSearch(1014, 185, 1082, 366, 0xFF4A63, 5) If Not @error AND _IsChecked($idCheckbox3) Then $G = 1 Else $G = 0 EndIf EndIf EndIf EndFunc Func CouleurD () $PosD = PixelSearch(1385, 223, 1470, 450, $Couleur1, 5) If Not @error Then $D = 1 Else $PosD = PixelSearch(1385, 223, 1470, 450, $Couleur2, 5) If Not @error Then $D = 1 Else $PosD = PixelSearch(1385, 223, 1470, 450, 0xFF4A63, 5) If Not @error Then $D = 1 Else $D = 0 EndIf EndIf EndIf EndFunc Func CouleurC () $PosC = PixelSearch(1196, 222, 1289, 350, $Couleur1, 5) If Not @error Then $C = 1 Else $PosC = PixelSearch(1196, 222, 1289, 350, $Couleur2, 5) If Not @error Then $C = 1 Else $PosC = PixelSearch(1196, 222, 1289, 350, 0xFF4A63, 5) If Not @error Then $C = 1 Else $C = 0 EndIf EndIf EndIf EndFunc ;------------------------------------------------------------------------------ ; Verification ;------------------------------------------------------------------------------ Func Verif2 () If $G = 1 AND $D = 1 Then Fuir () $Compteur += 2 ElseIf $G = 0 AND $D = 1 Then _ScreenCapture_Capture(@ScriptDir & "\lumaG.jpg") _SendmailG() _FileWriteLog($Log, "LUMA G") Beep(1000, 5000) VieG () ElseIf $G = 1 AND $D = 0 Then _ScreenCapture_Capture(@ScriptDir & "\lumaD.jpg") _SendmailD() _FileWriteLog($Log, "LUMA D") Beep(1000, 5000) VieD () ElseIf $G = 0 AND $D = 0 Then VieG () VieD () EndIf EndFunc Func Verif1 () If $C = 1 Then Fuir () $Compteur += 1 ElseIf $C = 0 Then _ScreenCapture_Capture(@ScriptDir & "\lumaC.jpg") _SendmailC() _FileWriteLog($Log, "LUMA C") Beep(1000, 5000) VieC () EndIf EndFunc ;------------------------------------------------------------------------------- ; Vie ;------------------------------------------------------------------------------- Func VieG () ; On verifie la vie du temtem de gauche. Sleep(5000) $Healthbar = PixelGetColor(1435, 70) $Healthbar = Hex($Healthbar, 6) If $Healthbar = '86C249' Then ConsoleWrite ("VIE? ") _FileWriteLog($Log, "VIE PLEINE G") AttaqueG() Else _FileWriteLog($Log, "VIE ENTAME G") VerifHypG () Global $RandomShort = Random(200, 500,1) Sleep($RandomShort) CatchG () EndIf ;==> Healthbar EndFunc ;==> VieG Func VieC () ; On verifie la vie du temtem centrale. Sleep(5000) $Healthbar = PixelGetColor(1835, 124) $Healthbar = Hex($Healthbar, 6) If $Healthbar = '86C249' Then ConsoleWrite ("VIE? ") _FileWriteLog($Log, "VIE PLEINE C") AttaqueC() Else _FileWriteLog($Log, "VIE ENTAME C") VerifHypC () Local $RandomShort = Random(200, 500,1) Sleep($RandomShort) CatchC() EndIf ;==> Healthbar EndFunc ;==> VieC Func VieD () ; On verifie la vie du temtem de droite. Sleep(5000) $Healthbar = PixelGetColor(1835, 124) $Healthbar = Hex($Healthbar, 6) If $Healthbar = '86C249' Then ConsoleWrite ("VIE? ") _FileWriteLog($Log, "VIE PLEINE D") AttaqueD () Else _FileWriteLog($Log, "VIE ENTAME D") VerifHypD () Global $RandomShort = Random(200, 500,1) Sleep($RandomShort) CatchD () EndIf ;==> Healthbar EndFunc ;==> VieD ;------------------------------------------------------------------------------- ; Verification Hypnose ;------------------------------------------------------------------------------- Func VerifHypG () ;$VerifHyp = PixelGetColor(142, 868) ;$VerifHyp = Hex($VerifHyp, 6) ;If $VerifHyp = 'C369AJ' Then ;ConsoleWrite ("Verif Hyp ") ;_FileWriteLog($Log, "VERIFICATION SI HYPNOSE G ") ;HypnoseG () ;Else ;_FileWriteLog($Log, " HYPNOSE G INDISPO ") ;CatchG () ;EndIf $VerifHG = PixelSearch(124, 878, 136, 884, 0x6A405B, 1) If Not @error Then CatchG () Else HypnoseG () EndIf EndFunc Func VerifHypC () ;$VerifHyp = PixelGetColor(142, 868) ;$VerifHyp = Hex($VerifHyp, 6) ;If $VerifHyp = 'C369AJ' Then ; _FileWriteLog($Log, "VERIFICATION SI HYPNOSE C ") ; HypnoseC () ;Else ; _FileWriteLog($Log, " HYPNOSE C INDISPO ") ; CatchC () ;EndIf $VerifHC = PixelSearch(124, 878, 136, 884, 0x6A405B, 1) If Not @error Then CatchC () Else HypnoseC () EndIf EndFunc Func VerifHypD () ;$VerifHyp = PixelGetColor(142, 868) ;$VerifHyp = Hex($VerifHyp, 6) ;If $VerifHyp = 'C369AJ' Then ;_FileWriteLog($Log, "VERIFICATION SI HYPNOSE D ") ;HypnoseD () ;Else ;_FileWriteLog($Log, " HYPNOSE D INDISPO ") ;CatchD () ;EndIf $VerifHD = PixelSearch(124, 878, 136, 884, 0x6A405B, 1) If Not @error Then CatchD () Else HypnoseD () EndIf EndFunc ;------------------------------------------------------------------------------- ; Hypnose ;------------------------------------------------------------------------------- Func HypnoseG () ConsoleWrite ("HYPNOSE G ") _FileWriteLog($Log, "HYPNOSE G ") Attaque () Local $RandomShort = Random(200, 500,1) Sleep($RandomShort) MouseMove ( 1248, 317 , 1) Sleep($RandomShort) MouseClick($MOUSE_CLICK_PRIMARY) EndFunc ;==> HypnoseG Func HypnoseC () ConsoleWrite ("HYPNOSE C ") _FileWriteLog($Log, "HYPNOSE C ") Attaque () EndFunc ;==> HypnoseC Func HypnoseD () ConsoleWrite ("HYPNOSE D ") _FileWriteLog($Log, "HYPNOSE D ") Attaque () Local $RandomShort = Random(200, 500,1) Sleep($RandomShort) MouseMove ( 1448, 632 , 1) Sleep($RandomShort) MouseClick($MOUSE_CLICK_PRIMARY) EndFunc ;==> HypnoseD ;------------------------------------------------------------------------------- ; Attaque ;------------------------------------------------------------------------------- Func AttaqueG () Passe () ConsoleWrite ("ATTAQUE G ") _FileWriteLog($Log, "ATTAQUE G ") Attaque () MouseMove ( 1248, 317 , 1) Local $RandomShort = Random(200, 500,1) Sleep($RandomShort) MouseClick($MOUSE_CLICK_PRIMARY) EndFunc ;==> AttaqueG Func AttaqueC () Passe () ConsoleWrite ("ATTAQUE C ") _FileWriteLog($Log, "ATTAQUE C ") Attaque () Local $RandomShort = Random(200, 500,1) Sleep($RandomShort) Send("{f}") ; VALIDER Sleep (250) EndFunc ;==> AttaqueC Func AttaqueD () Passe () ConsoleWrite ("ATTAQUE D ") _FileWriteLog($Log, "ATTAQUE D ") Attaque () MouseMove ( 1448, 632 , 1) Local $RandomShort = Random(200, 500,1) Sleep($RandomShort) MouseClick($MOUSE_CLICK_PRIMARY) EndFunc ;==> AttaqueD ;------------------------------------------------------------------------------- ; Catch ;------------------------------------------------------------------------------- Func CatchG () Send("{7}") Local $RandomShort = Random(200, 500,1) Sleep($RandomShort) Send("{UP}") Local $RandomShort = Random(200, 500,1) Sleep($RandomShort) Send("{F}") Local $RandomShort = Random(200, 500,1) Sleep($RandomShort) MouseMove ( 1248, 317 , 1) ;MouseMove ( 1448, 632 , 1) MouseClick($MOUSE_CLICK_PRIMARY) ConsoleWrite ("CATCH G ") _FileWriteLog($Log, "CATCH G ") EndFunc ;==> CatchG Func CatchC () Send("{7}") Local $RandomShort = Random(200, 500,1) Sleep($RandomShort) Send("{UP}") Local $RandomShort = Random(200, 500,1) Sleep($RandomShort) Send("{F}") Local $RandomShort = Random(200, 500,1) Sleep($RandomShort) ConsoleWrite ("CATCH C ") _FileWriteLog($Log, "CATCH C ") EndFunc ;==> CatchC Func CatchD () Send("{7}") Local $RandomShort = Random(200, 500,1) Sleep($RandomShort) Send("{UP}") Local $RandomShort = Random(200, 500,1) Sleep($RandomShort) Send("{F}") Local $RandomShort = Random(200, 500,1) Sleep($RandomShort) MouseMove ( 1448, 632 , 1) MouseClick($MOUSE_CLICK_PRIMARY) ConsoleWrite ("CATCH D ") _FileWriteLog($Log, "CATCH D ") EndFunc ;==> CatchD ;------------------------------------------------------------------------------- ; Verification XP ;------------------------------------------------------------------------------- Func VerifXp () $VerifXp = PixelGetColor(881, 564) $VerifXp = Hex($VerifXp, 6) If $VerifXp = '1BD2D3' Then _FileWriteLog($Log, "VERIFICATION SI FENETRE XP ") MouseClick($MOUSE_CLICK_PRIMARY) EndIf EndFunc ;------------------------------------------------------------------------------- ; Verification Catch ;------------------------------------------------------------------------------- Func VerifCatch () $VerifCatch = PixelGetColor(1451, 331) $VerifCatch = Hex($VerifCatch, 6) If $VerifCatch = 'FF9339' Then _FileWriteLog($Log, "VERIFICATION SI ATTRAPEE ") MouseMove ( 816, 763 , 1) MouseClick($MOUSE_CLICK_PRIMARY) EndIf EndFunc ;------------------------------------------------------------------------------- ; Attaque ;------------------------------------------------------------------------------- Func Attaque () Local $RandomShort = Random(400, 500,1) Sleep($RandomShort) Send("{1}") ; ATTAQUE 1 Local $RandomShort = Random(400, 500,1) Sleep($RandomShort) EndFunc ;------------------------------------------------------------------------------- ; Fuir ;------------------------------------------------------------------------------- Func Fuir () Send("{8 down}") ; Relache la touche 8 Local $RandomShort = Random(200, 500,1) Sleep($RandomShort) Send("{8 up}") Local $RandomShort = Random(200, 500,1) Sleep($RandomShort) Send("{8 down}") ; Relache la touche 8 Local $RandomShort = Random(200, 500,1) Sleep($RandomShort) Send("{8 up}") Local $RandomShort = Random(200, 500,1) Sleep($RandomShort) ConsoleWrite("FUITE ") EndFunc ;==> Fuir ;------------------------------------------------------------------------------- ; Passe ;------------------------------------------------------------------------------- Func Passe () ConsoleWrite ("PASSE ") _FileWriteLog($Log, "PASSE ") Send("{6}") ; PASSER Local $RandomShort = Random(200, 500,1) Sleep($RandomShort) EndFunc ;------------------------------------------------------------------------------- ; Quitter ;------------------------------------------------------------------------------- Func Bye() FileClose($Log) Exit 0 EndFunc ;==>Bye ;------------------------------------------------------------------------------- ;------------------------------------------------------------------------------- ;------------------------------------------------------------------------------- ;------------------------------------------------------------------------------- ; ANCIENNE FUNCTION ;------------------------------------------------------------------------------- ;------------------------------------------------------------------------------- ;------------------------------------------------------------------------------- ;------------------------------------------------------------------------------- Func DetectG1 () $PosG = PixelSearch(1008, 274, 1078, 336, 0x57FB89, 8) If Not @error Then DetectD1 () Else DetectG2 () _ScreenCapture_Capture(@MyDocumentsDir & "\lumaG.jpg") Beep(1000, 5000) ConsoleWrite ("LUMA G ") _FileWriteLog($Log, "DETECTION LUMA G BLEU") VieG() EndIf EndFunc Func DetectD1 () $PosD = PixelSearch(1385, 314, 1470, 417, 0x71E6CB, 8) If Not @error Then DetectG2 () Else _ScreenCapture_Capture(@MyDocumentsDir & "\lumaD.jpg") Beep(1000, 5000) ConsoleWrite ("VERT D ") _FileWriteLog($Log, "DETECTION LUMA D") VieD() EndIf EndFunc Func DetectC1 () $PosC = PixelSearch(1173, 312, 1250, 373, 0x71E6CB, 8) If Not @error Then DetectC2 () Else _ScreenCapture_Capture(@MyDocumentsDir & "\lumaC.jpg") Beep(1000, 5000) ConsoleWrite ("VERT C ") _FileWriteLog($Log, "DETECTION LUMA C BLEU") VieC() EndIf EndFunc ;------------------------------------------------------------------------------ ; Detection couleur 2 ;------------------------------------------------------------------------------ Func DetectG2 () $PosG = PixelSearch(1008, 274, 1078, 336, 0x71E6CB, 8) If Not @error Then DetectD2 () Else _ScreenCapture_Capture(@MyDocumentsDir & "\lumaG.jpg") Beep(1000, 5000) ConsoleWrite ("LUMA G ") _FileWriteLog($Log, "DETECTION LUMA G BLEU") VieG() EndIf EndFunc Func DetectD2 () $PosD = PixelSearch(1385, 314, 1470, 417, 0x71E6CB, 8) If Not @error Then Fuir () $Compteur += 1 ; On assigne la valeur du compteur à 0. Else _ScreenCapture_Capture(@MyDocumentsDir & "\lumaD.jpg") Beep(1000, 5000) ConsoleWrite ("VERT D ") _FileWriteLog($Log, "DETECTION LUMA D") VieD() EndIf EndFunc Func DetectC2 () $PosC = PixelSearch(1173, 312, 1250, 373, 0x71E6CB, 8) If Not @error Then Fuir () $Compteur += 1 Else _ScreenCapture_Capture(@MyDocumentsDir & "\lumaC.jpg") Beep(1000, 5000) ConsoleWrite ("VERT C ") _FileWriteLog($Log, "DETECTION LUMA C BLEU") VieC() EndIf EndFunc Func Detect() $PosG = PixelSearch(1008, 274, 1078, 336, 0x71E6CB, 8) If Not @error Then _ScreenCapture_Capture(@MyDocumentsDir & "\lumaG.jpg") Beep(1000, 5000) ConsoleWrite ("LUMA G ") _FileWriteLog($Log, "DETECTION LUMA G BLEU") VieG() Else $PosC = PixelSearch(1173, 312, 1250, 373, 0x71E6CB, 8) If Not @error Then _ScreenCapture_Capture(@MyDocumentsDir & "\lumaC.jpg") Beep(1000, 5000) ConsoleWrite ("VERT C ") _FileWriteLog($Log, "DETECTION LUMA C BLEU") VieC() Else $PosD = PixelSearch(1385, 314, 1470, 417, 0x71E6CB, 8) If Not @error Then _ScreenCapture_Capture(@MyDocumentsDir & "\lumaD.jpg") Beep(1000, 5000) ConsoleWrite ("VERT D ") _FileWriteLog($Log, "DETECTION LUMA D BLEU") VieD() Else Detect1 () $Compteur += 1 ; On assigne la valeur du compteur à 0. EndIf ;==> Droite? EndIf ;==> Centre? EndIf ;==>Gauche? EndFunc ;==> Detection ;------------------------------------------------------------------------------ ; Detection Couleur 2 ;------------------------------------------------------------------------------- ; 295A67 (bleu) 56FC8E (vert) 7B4D3A Func Detect1() $PosG = PixelSearch(1008, 274, 1078, 336, 0x703623, 7) If Not @error Then _ScreenCapture_Capture(@MyDocumentsDir & "\lumaG.jpg") Beep(1000, 5000) ConsoleWrite ("LUMA G ") _FileWriteLog($Log, "DETECTION LUMA G") VieG() Else $PosC = PixelSearch(1173, 312, 1250, 373, 0x703623, 7) If Not @error Then _ScreenCapture_Capture(@MyDocumentsDir & "\lumaC.jpg") Beep(1000, 5000) ConsoleWrite ("VERT C ") _FileWriteLog($Log, "DETECTION LUMA C") VieC() Else $PosD = PixelSearch(1385, 314, 1470, 417, 0x703623, 7) If Not @error Then _ScreenCapture_Capture(@MyDocumentsDir & "\lumaD.jpg") Beep(1000, 5000) ConsoleWrite ("VERT D ") _FileWriteLog($Log, "DETECTION LUMA D") VieD() Else Fuir () $Compteur += 1 ; On assigne la valeur du compteur à 0. EndIf ;==> Droite? EndIf ;==> Centre? EndIf ;==>Gauche? EndFunc ;==> Detection