59 réponses à ce sujet

[Gfreeman]

Bon. La tâche est hardue. En fait, je revois le code des parties MoveToPos, Attack et Killermob. D'autres parties sont à revoir (toutes ?). Bref, c'est long.

[kinouxe]

salut, apres une pause forum pour cause de vacances, je reviens...

ma fonction avance, le code est bien plus propre, me reste juste 2-3 trucs a peaufiner et vous aurez une version assez efficace et moins lourde niveau gestion.

laissez moi juste le temps d'avancer, pour info je travaille de 8h a 20h tous les jours et je code le soir donc bon, pas forcément motivé tous les soirs.

donc si tout va bien, demain nouvelle version, paramétrable par le settings.ini sur pas mal de paramètres.

Je viens de parcourir en long et en large tes fonctions. Je ne veux pas être désagréable, mais ... franchement, elles ne servent strictement à rien, sauf à polluer inutilement le reste du code du bot. L'idée est bonne mais ça s'arrête là.

array_affix : A quoi sert cette fonction ??? A gérer les affixes et à stocker les infos dans un tableau. OK, mais le tableau, il devient quoi après ? pas de transfert de ce tableau par "ref", donc aucune récupération. Idem, la valeur 200, elle vient d’où pour définir ton tableau d'affixes ? Ne valait-il mieux pas définir un tableau "dynamique" et utiliser la fonction "redim" ?

maffmove : La fonction principale.
Je passe sur la définition de variables inutilisées et le reste du code. Juste un exemple. Ou définis-tu la variable "$ii" dans tes boucles for ? avec local au début de l'initialisation des variables ? Si oui, à quoi ça sert de faire un for de "$$a" vers "$ii" si "$aa" est à 0 et "$ii" également à 0 ? "$ii" n'est jamais modifiée.

Définir ta fonction dans "killermob" n'est pas une bonne idée. Il faut partir à la source. Directement dans "MoveToPos". La zone où je souhaite me déplacer est-elle "safe" ? Si oui, y aller, dans le cas contraire, continuer en "courant". Tout simplement.

Bref, une mise à jour de ton code s'impose grandement.

l'array_affix a disparu

les redim sont utilisés

si tu définies ta fonction ailleurs que dans killmob, pendant les combats il va se prendre plein d'affixes

la mise a jour de mon code est en cours.

dernière chose, on est sur un forum ou on s'entraide pour faire avancer le bot, donc plutot que des critiques, ne serait-il pas mieux de proposer des solutions?

sur ce, je vous ponds la nouvelle demain.

[Gfreeman]

Si tu définies ta fonction ailleurs que dans killmob, pendant les combats il va se prendre plein d'affixes

Effectivement. Mais la gestion des déplacements pour éviter de remarcher dans la lave ou de se taper une deathExplosion ou encore une Plagued doit se gérer dans "movetopos", et non dans "killmob". Dans "Killmob", c'est pour dire "attention, là tu te prends un coup, arrête de taper comme un sourd.". Après à toi à te mettre en sécurité en gérant au mieux tes déplacements et surtout, à ne pas revenir dans "l’élément" le temps qu'il se termine.

la mise a jour de mon code est en cours.

dernière chose, on est sur un forum ou on s'entraide pour faire avancer le bot, donc plutôt que des critiques

Je suis critique effectivement . Mais dans ton intérêt, tout comme dans l'intérêt de la "communauté", on se doit de proposer un code un minima propre pour permettre à d'autres de reprendre le travail. Si tu veux juste des éloges, des "hourra", "super", "merci" et aucune critique, tu ne progresseras jamais. Et ce qui est valable pour toi, l'est tout autant pour moi. C'est tout.

Sinon, pour ton boulot, bah bon courage

ne serait-il pas mieux de proposer des solutions?

Justement, je suis dessus depuis mes derniers messages. Voila ou j'en suis pour le moment.

Spoiler

Toolkit.AU3

;;--------------------------------------------------------------------------------
;;      MoveToPos()
;;--------------------------------------------------------------------------------
Func MoveToPos($_x, $_y, $_z, $_a, $m_range)

   ;;--------------------------------------------------------------------------------
   _Log("MoveToPos")
   ;;--------------------------------------------------------------------------------

   If _playerdead() Or $GameOverTime Or $GameFailed = 1 Or $SkippedMove > 6 Then
	  $GameFailed = 1
	  Return
   EndIf
   
   ;;--------------------------------------------------------------------------------
   If $_a = 1 Then Attack($m_range)
   ;;--------------------------------------------------------------------------------

   MoveNow($_x, $_y, $_z, $_a, $m_range)
   SetWayPoints($_x, $_y, $_z, $_a, $m_range)
   
   ;;--------------------------------------------------------------------------------
	  
EndFunc   ;==>MoveToPos

;;--------------------------------------------------------------------------------
;;      MoveNow()
;;--------------------------------------------------------------------------------
Func MoveNow($_x, $_y, $_z, $_a, $m_range)

   Dim $toggletry = 0
   Dim $lastwp_x = $_x
   Dim $lastwp_y = $_y
   Dim $lastwp_z = $_z
   Dim $TimeOut = TimerInit()

   ;;--------------------------------------------------------------------------------
   _log("MoveNow" & @CRLF)
   ;;--------------------------------------------------------------------------------
   $grabtimeout = 0
   $killtimeout = 0
   ;;--------------------------------------------------------------------------------
   
   $LastCP = GetCurrentPos()
   
   $Coords = FromD3toScreenCoords($_x, $_y, $_z)
   MouseMove($Coords[0], $Coords[1], 3)
   MouseDown("middle")
   Sleep(10)
   While 1
	  GameOverTime()
	  If $GameOverTime Then ExitLoop

	  $CurrentLoc = GetCurrentPos()
	  $xd = $lastwp_x - $CurrentLoc[0]
	  $yd = $lastwp_y - $CurrentLoc[1]
	  $zd = $lastwp_z - $CurrentLoc[2]
	  $Distance = Sqrt($xd * $xd + $yd * $yd + $zd * $zd)
	  If $Distance < $m_range Then ExitLoop
	  
	  ;If _MemoryRead($ClickToMoveToggle, $d3, 'float') = 0 Then ExitLoop
	  Local $angle = 1
	  Local $Radius = 25
	  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	  While _MemoryRead($ClickToMoveToggle, $d3, 'float') = 0
		 _log("Togglemove : " & _MemoryRead($ClickToMoveToggle, $d3, 'float'))
		 $Coords = FromD3toScreenCoords($_x, $_y, $_z)
		 $angle += $Step
		 $Radius += 45

		 ;MouseMove($Coords[0] - (Cos($angle) * $Radius), $Coords[1] - (Sin($angle) * $Radius), 3)
		 ; ci desssous du dirty code pour eviter de cliquer n'importe ou hos de la fenetre du jeu
		 $Coords[0] = $Coords[0] - (Cos($angle) * $Radius)
		 $Coords[1] = $Coords[1] - (Sin($angle) * $Radius)
		 If $Coords[0] > 790 Then
			$Coords[0] = 790
		 ElseIf $Coords[0] < 40 Then ;car on a pas l'envie de cliquer dans les icones du chat
			$Coords[0] = 40
		 EndIf
		 
		 If $Coords[1] > 540 Then ;car on a pas l'envie de cliquer dans la barre des skills
			$Coords[1] = 540
		 ElseIf $Coords[1] < 10 Then
			$Coords[1] = 10
		 EndIf
		 
		 MouseMove($Coords[0], $Coords[1], 3)
		 
		 $toggletry += 1
		 _log("Trying move :" & " x:" & $_x & " y:" & $_y & "coords: " & $Coords[0] & "-" & $Coords[1] & " angle: " & $angle & " Toggle try: " & $toggletry)
		 If $angle >= 2.0 * $PI Or $toggletry > 9 Or _playerdead() Then
			$SkippedMove += 1
			_log("Toggle try: " & $toggletry & " Movement Skipped : " & $SkippedMove)
			ExitLoop 2 ; le 2 signifie que l'on quitte 2 loop
		 EndIf
		 Sleep(10)
	  WEnd
	  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	  
	  $Coords = FromD3toScreenCoords($lastwp_x, $lastwp_y, $lastwp_z)
	  MouseMove($Coords[0], $Coords[1], 3)
;~ 	  ConsoleWrite("currentloc: " & $_Myoffset & " - "&$CurrentLoc[0] & " : " & $CurrentLoc[1] & " : " & $CurrentLoc[2] & @CRLF)
;~ 	  ConsoleWrite("distance/m range: " & $Distance & " : " & $m_range & @CRLF)
;~ 	  If $_a = 1 And GetDistance($LastCP[0], $LastCP[1], $LastCP[2]) >= $m_range / 2 Then
;~ 		 MouseUp("middle")
;~ 		 $LastCP = GetCurrentPos()
;~ 		 If $_a = 1 Then Attack($m_range)
;~ 		 ConsoleWrite("Last check: " & $Distance & @CRLF)
;~ 		 MouseMove($Coords[0], $Coords[1], 3)
;~ 		 MouseDown("middle")
;~ 	  EndIf

	  If TimerDiff($TimeOut) > 60000 Then
		 _log("MoveToPos Timed out ! ! ! ")
		 If _checkdisconnect() Then
			$GameFailed = 1
		 EndIf

		 ExitLoop
	  EndIf
   WEnd
   
   ;;--------------------------------------------------------------------------------
   MouseUp("middle")
   
EndFunc

;;--------------------------------------------------------------------------------
;;      ChkMyPos()
;;--------------------------------------------------------------------------------
Func ChkMyPos($m_range)
   
   If $giPosInWayPoints < UBound($gaWayPoints, 1) - 1 And $giPosInWayPoints > 0 Then
	  While $giPosInWayPoints < UBound($gaWayPoints, 1) - 1
		 
		 _log("$giPosInWayPoints O: " & $giPosInWayPoints)
		 If IsSafeArea($m_range) = False Then
			_log("Not safe: ")
			Attack($m_range)
		 Else
			_log("safe: ")
			$giPosInWayPoints += 1
			MoveNow($gaWayPoints[$giPosInWayPoints][0], $gaWayPoints[$giPosInWayPoints][1], $gaWayPoints[$giPosInWayPoints][2], $gaWayPoints[$giPosInWayPoints][3], $gaWayPoints[$giPosInWayPoints][4])
		 EndIf
		 _log("$giPosInWayPoints F: " & $giPosInWayPoints)
		 
		 If _playerdead() Then ExitLoop
	  WEnd
   EndIf

EndFunc

;;--------------------------------------------------------------------------------
;;      SetWayPoints()
;;--------------------------------------------------------------------------------
Func SetWayPoints($_x, $_y, $_z, $_a, $m_range)

   ;;--------------------------------------------------------------------------------
   _log("SetWayPoints" & @CRLF)
   ;;--------------------------------------------------------------------------------

   If $giPosInWayPoints > -1 Then Redim $gaWayPoints[$giPosInWayPoints + 2][5]
   $giPosInWayPoints = UbOund($gaWayPoints,1) - 1
   
   ;;--------------------------------------------------------------------------------
   
   $gaWayPoints[$giPosInWayPoints][0] = $_x
   $gaWayPoints[$giPosInWayPoints][1] = $_y
   $gaWayPoints[$giPosInWayPoints][2] = $_z
   $gaWayPoints[$giPosInWayPoints][3] = $_a
   $gaWayPoints[$giPosInWayPoints][4] = $m_range
      
   ;;--------------------------------------------------------------------------------
   
   _log("$giPosInWayPoints : " & $giPosInWayPoints)
   _log("$gaWayPoints[x][0] : " & $gaWayPoints[$giPosInWayPoints][0])
   _log("$gaWayPoints[x][1] : " & $gaWayPoints[$giPosInWayPoints][1])
   _log("$gaWayPoints[x][2] : " & $gaWayPoints[$giPosInWayPoints][2])
   _log("$gaWayPoints[x][3] : " & $gaWayPoints[$giPosInWayPoints][3])
   _log("$gaWayPoints[x][4] : " & $gaWayPoints[$giPosInWayPoints][4])
   _log("UbOund($gaWayPoints,1) - 1 : " & UbOund($gaWayPoints,1) - 1)
   
EndFunc

Func InitializeVarWayPoints()
   Dim $gaWayPoints[1][5] = [[0,0,0,0,0]]
   $giPosInWayPoints = -1
EndFunc

;;--------------------------------------------------------------------------------
;;      KillMob()
;;--------------------------------------------------------------------------------
Func KillMob($offset, $guid, $m_range)

   ;;--------------------------------------------------------------------------------
   Dim $fTimer
   Dim $bReturn
   
   Dim $aMouseCoord
   ;;--------------------------------------------------------------------------------
   
   $bReturn = True
   $fTimer = TimerInit()
   
   ;;--------------------------------------------------------------------------------
   ;loop the attack until the mob is dead
   While IterateActorAtribs($guid, $Atrib_Hitpoints_Cur) > 0
	  
	  $aMouseCoord = FromD3toScreenCoords(_MemoryRead($offset + 0xB0, $d3, 'float'), _MemoryRead($offset + 0xB4, $d3, 'float'), _MemoryRead($offset + 0xB8, $d3, 'float'))
	  MouseMove($aMouseCoord[0], $aMouseCoord[1], 3)
	  MouseClick("left")
	  Sleep(20)
	  
	  CheckForSpell()
	  CheckForPotion()
	  
	  If IsSafeArea($m_range / 3) = False Then
		 MoveToWayPoints($m_range)
		 $fTimer = TimerInit()
	  EndIf
	  
	  If TimerDiff($fTimer) > $a_time Then
		 ;After this time, the mob should be dead, otherwise he is probly unkillable
		 $killtimeout += 1	;Variable Global ToDo
		 $bReturn = False	;Variable Local
		 ExitLoop
	  EndIf
   WEnd  

   ;;--------------------------------------------------------------------------------

   Return $bReturn
EndFunc   ;==>KillMob

;;--------------------------------------------------------------------------------
;;      MoveToWayPoints()
;;--------------------------------------------------------------------------------
Func MoveToWayPoints($m_range)

   Dim $fPosX
   Dim $fPosY
   Dim $fPosZ
   Dim $fTimer
   Dim $fDistance
   Dim $fTimeToMove


   Dim $aPrvLoc
   Dim $aCurLoc
   Dim $aMouseCoord

   ;;--------------------------------------------------------------------------------  
   _log("MoveToWayPoints")
   _log("$giPosInWayPoints O: " & $giPosInWayPoints)
   ;;--------------------------------------------------------------------------------  
   If $giPosInWayPoints < 1 Then Return
   ;;--------------------------------------------------------------------------------  
   $fDistance = 0
   $fTimer = TimerInit()
   ;;--------------------------------------------------------------------------------  
   
   $aPrvLoc = GetCurrentPos()
   $fTimeToMove = TimerInit()

   $aMouseCoord = FromD3toScreenCoords($gaWayPoints[$giPosInWayPoints - 1][0], $gaWayPoints[$giPosInWayPoints - 1][1], $gaWayPoints[$giPosInWayPoints - 1][2])
   MouseMove($aMouseCoord[0], $aMouseCoord[1], 3)
   MouseDown("middle")

   While $fDistance < $m_range
	  
	  $aMouseCoord = FromD3toScreenCoords($gaWayPoints[$giPosInWayPoints - 1][0], $gaWayPoints[$giPosInWayPoints - 1][1], $gaWayPoints[$giPosInWayPoints - 1][2])
	  MouseMove($aMouseCoord[0], $aMouseCoord[1], 3)
	  
	  $aCurLoc = GetCurrentPos()
	  $fPosX = $aPrvLoc[0] - $aCurLoc[0]
	  $fPosY = $aPrvLoc[1] - $aCurLoc[1]
	  $fPosZ = $aPrvLoc[2] - $aCurLoc[2]
	  $fDistance = Sqrt($fPosX * $fPosX + $fPosY * $fPosY + $fPosZ * $fPosZ)
	  
	  If GetDistance($gaWayPoints[$giPosInWayPoints - 1][0], $gaWayPoints[$giPosInWayPoints - 1][1], $gaWayPoints[$giPosInWayPoints - 1][2]) < 4 Then $giPosInWayPoints -= 1
	  If TimerDiff($fTimeToMove) > 2000 Or ($fDistance < 4 And TimerDiff($fTimeToMove) > 400) Then ExitLoop
	  If $giPosInWayPoints < 1 Then ExitLoop
   WEnd

   MouseUp("middle")

   _log("$giPosInWayPoints F: " & $giPosInWayPoints)
   _log("Distance : " & $fDistance)
   _log("Timer : " & TimerDiff($fTimer))
   _log("Time to move : " & TimerDiff($fTimeToMove))

;;--------------------------------------------------------------------------------

EndFunc

;;--------------------------------------------------------------------------------
;;      IsSafeArea()
;;--------------------------------------------------------------------------------
Func IsSafeArea($m_Range)

   Dim $fTimer
   Dim $bIsSafeArea
   Dim $bIsMonsterExist
   Dim $hIndex, $hOffset, $count, $aItem[10]

   ;;--------------------------------------------------------------------------------
   $bIsSafeArea = True
   $bIsMonsterExist = False
   ;;--------------------------------------------------------------------------------
   _log("IsSafeArea")
   
   $fTimer = TimerInit()
   StartIterateObjectsList($hIndex, $hOffset, $count)
   While IterateObjectsList($hIndex, $hOffset, $count, $aItem)  
	  
	  If $aItem[9] < $m_Range Then
	  
 		 If StringInStr($aItem[1],"blastWaveDistort",0) Or StringInStr($aItem[1],"chargedBolt",0)  Or _
			   StringInStr($aItem[1],"Grenadier_Proj",0) Or StringInStr($aItem[1],"morluSpellcast",0) Or _
				  StringInStr($aItem[1],"entangler",0) Then
				  $bIsSafeArea = False
		 EndIf
;~		 MyFileWrite("Monster : " & $aItem[1] & " GUID : " & $aItem[0] & " Data 2 : " & $aItem[6] & " Distance :" & $aItem[9])

	  EndIf
	  
	  If $aItem[0] <> 0xFFFFFFFF And $aItem[0] <> "" Then
		 If CheckFromList($monsterList, $aItem[1]) And $aItem[6] <> -1 And $aItem[9] < $m_Range + ($a_range / 3) Then
			If IterateActorAtribs($aItem[0], $Atrib_Hitpoints_Cur) > 0 And IterateActorAtribs($aItem[0], $Atrib_Invulnerable) = 0 Then
			   If StringInStr($aItem[1],"Plagued",0) Or StringInStr($aItem[1],"waller",0) Or _
					 StringInStr($aItem[1],"Frosty",0) Or StringInStr($aItem[1],"Melee",0) Or _
						StringInStr($aItem[1],"frozen",0) Or StringInStr($aItem[1],"Mortar",0) Or _
						   StringInStr($aItem[1],"flippy",0) Or StringInStr($aItem[1],"iceClusters",0) Or _
							  StringInStr($aItem[1],"deathStart",0) Or StringInStr($aItem[1],"Vortex",0) Or _
								 StringInStr($aItem[1],"deathExplosion",0) Or StringInStr($aItem[1],"Molten",0) Or _
									StringInStr($aItem[1],"creepMobArm",0) Or StringInStr($aItem[1],"Desecrator",0) Or _
									   StringInStr($aItem[1],"ArcaneEnchanted",0) Or StringInStr($aItem[1],"PetSweep",0) Then
										  _log("Monster :" & $aItem[1])
										  $bIsSafeArea = False
										  $bIsMonsterExist = True
										  ExitLoop
			   ElseIf $aItem[9] < $m_Range + ($a_range / 3) Then
				  _log("Monster :" & $aItem[1])
				  $bIsSafeArea = False
				  $bIsMonsterExist = True
				  ExitLoop
			   EndIf
			EndIf
		 EndIf		 
	  EndIf
   
   WEnd
   
   If $bIsMonsterExist = False Then $bIsSafeArea = True

   ;;--------------------------------------------------------------------------------
   _log("Timer : " & TimerDiff($fTimer))
   ;;--------------------------------------------------------------------------------

   Return $bIsSafeArea

EndFunc

;;--------------------------------------------------------------------------------
;;      MyFileWrite()
;;--------------------------------------------------------------------------------
Func MyFileWrite($sFileValue)

   Local $oFile
   
   ;;--------------------------------------------------------------------------------

   $oFile = FileOpen(@ScriptDir & ".\zones\Sequence.txt", 1)
   FileWriteLine($oFile, $sFileValue & @CRLF)
   FileClose($oFile)
   
   ;;--------------------------------------------------------------------------------

EndFunc

   ;;--------------------------------------------------------------------------------
   ChkMyPos($m_range)
   ;;--------------------------------------------------------------------------------
   
EndFunc   ;==>Attack

main.AU3

Global $gaWayPoints[1][5] = [[0,0,0,0,0]]
Global $giPosInWayPoints = -1

Le code est fonctionnel avec MA configuration (Settings.ini, Characters), etc etc. Et ça marche plutôt bien. Mais c'est vraiment très loin d'être terminé. C'est encore en développement (donc merci de ne pas l'utiliser et de ne pas venir me crier dessus car il ne fonctionne pas chez vous). Voila.

[Gfreeman]

Ça avance, ça avance. Par contre, la gestion des déplacements est une vraie plaie...

J'ai du revoir une bonne partie du code. Donc pour le moment c'est test à volonté !

Spoiler

;;--------------------------------------------------------------------------------
;;      SaveNewWP()
;;--------------------------------------------------------------------------------
Func SaveNewWP($_x, $_y, $_z, $_a, $m_range)

   ;;--------------------------------------------------------------------------------
   ;_log("SaveNewWP")
   ;;--------------------------------------------------------------------------------
   
   $gaWP[UbOund($gaWP,1) - 1][0] = $_x
   $gaWP[UbOund($gaWP,1) - 1][1] = $_y
   $gaWP[UbOund($gaWP,1) - 1][2] = $_z
   $gaWP[UbOund($gaWP,1) - 1][3] = $_a
   $gaWP[UbOund($gaWP,1) - 1][4] = $m_range
      
   ;;--------------------------------------------------------------------------------
   
   ;_log("$gaWP[x][0] : " & $gaWP[UbOund($gaWP,1) - 1][0])
   ;_log("$gaWP[x][1] : " & $gaWP[UbOund($gaWP,1) - 1][1])
   ;_log("$gaWP[x][2] : " & $gaWP[UbOund($gaWP,1) - 1][2])
   ;_log("$gaWP[x][3] : " & $gaWP[UbOund($gaWP,1) - 1][3])
   ;_log("$gaWP[x][4] : " & $gaWP[UbOund($gaWP,1) - 1][4])
   
EndFunc

;;--------------------------------------------------------------------------------
;;      CreateNewWP()
;;--------------------------------------------------------------------------------
Func CreateNewWP()

   ;;--------------------------------------------------------------------------------
   _log("CreateNewWP")
   ;;--------------------------------------------------------------------------------
   Redim $gaWP[UbOund($gaWP,1) + 1][5]   
   ;;--------------------------------------------------------------------------------

EndFunc

;;--------------------------------------------------------------------------------
;;      InitializeVarWayPoints()
;;--------------------------------------------------------------------------------
Func InitializeWayPoints()
   Dim $gaWP[1][5] = [[0,0,0,0,0]]
   $giPosInWP = 0
EndFunc

;;--------------------------------------------------------------------------------
;;      IsSafeArea()
;;--------------------------------------------------------------------------------
Func IsSafeArea($m_Range)

   Dim $bIsSafeArea
   Dim $hIndex, $hOffset, $count, $aItem[10]

   ;;--------------------------------------------------------------------------------
   _log("IsSafeArea")
   ;;--------------------------------------------------------------------------------
   $bIsSafeArea = True
   ;;--------------------------------------------------------------------------------

   If TimerDiff($gfSfAreaTimer) < 1200 Then Return $bIsSafeArea

   $gfSfAreaTimer = TimerInit()
   StartIterateObjectsList($hIndex, $hOffset, $count)
   While IterateObjectsList($hIndex, $hOffset, $count, $aItem)
	  
	  If $aItem[9] < $m_Range Then	 
		 If $aItem[0] <> "" Then
			If $aItem[0] = 0xFFFFFFFF Then
			   If StringInStr($aItem[1], "morluSpellcast") Or StringInStr($aItem[1], "ArcaneEnchanted") Or _
				  StringInStr($aItem[1],"deathExplosion",0) Or StringInStr($aItem[1],"waller",0) Or _
				  StringInStr($aItem[1],"Molten",0) Or StringInStr($aItem[1],"Plagued",0) Then
					 $bIsSafeArea = False
			   EndIf
			Else
			   If (CheckFromList($monsterList, $aItem[1]) And $aItem[6] <> -1) Or (CheckFromList($monsterList, $aItem[1]) And (StringInStr($aItem[1], "Brickhouse_") Or StringInStr($aItem[1], "goblin") Or StringInStr($aItem[1], "woodwraith_"))) Then
				  If IterateActorAtribs($aItem[0], $Atrib_Hitpoints_Cur) > 0 And IterateActorAtribs($aItem[0], $Atrib_Invulnerable) = 0 Then
					 $bIsSafeArea = False
				  EndIf
			   ElseIf StringInStr($aItem[1],"Grenadier_Proj",0) Then
				  $bIsSafeArea = False
			   EndIf
			EndIf
		 EndIf
		 
	  EndIf
	  If $bIsSafeArea = False Then ExitLoop
   
   WEnd
   
   ;;--------------------------------------------------------------------------------
   _log("Timer : " & TimerDiff($gfSfAreaTimer))
   ;;--------------------------------------------------------------------------------
   
   Return $bIsSafeArea

EndFunc

;;--------------------------------------------------------------------------------
;;      MoveToWayPoints()
;;--------------------------------------------------------------------------------
Func MoveToWayPoints($m_range)

   Dim $fPosX
   Dim $fPosY
   Dim $fPosZ
   Dim $fTimer
   Dim $fDistance
   Dim $fTimeToMove

   Dim $aPrvLoc
   Dim $aCurLoc
   Dim $aMouseCoord

   ;;--------------------------------------------------------------------------------  
   _log("MoveToWayPoints")
   _log("$giPosInWP O: " & $giPosInWP)
   ;;--------------------------------------------------------------------------------  
   If $giPosInWP = 0 Then Return
   
   ;;--------------------------------------------------------------------------------  
   $fDistance = 0
   $fTimer = TimerInit()
   ;;--------------------------------------------------------------------------------  
   
   $aPrvLoc = GetCurrentPos()
   $fTimeToMove = TimerInit()
   
   While $fDistance < $m_range
	  
	  $aMouseCoord = FromD3toScreenCoords($gaWP[$giPosInWP - 1][0], $gaWP[$giPosInWP - 1][1], $gaWP[$giPosInWP - 1][2])
	  MouseMove($aMouseCoord[0], $aMouseCoord[1], 3)
	  MouseClick("middle")
	  
	  $aCurLoc = GetCurrentPos()
	  $fPosX = $aPrvLoc[0] - $aCurLoc[0]
	  $fPosY = $aPrvLoc[1] - $aCurLoc[1]
	  $fPosZ = $aPrvLoc[2] - $aCurLoc[2]
	  $fDistance = Sqrt($fPosX * $fPosX + $fPosY * $fPosY + $fPosZ * $fPosZ)
	  
	  If GetDistance($gaWP[$giPosInWP - 1][0], $gaWP[$giPosInWP - 1][1], $gaWP[$giPosInWP - 1][2]) < 4 And $giPosInWP > 0 Then $giPosInWP -= 1
	  If TimerDiff($fTimeToMove) > 1800 Or ($fDistance < 4 And TimerDiff($fTimeToMove) > 400) Then ExitLoop
	  If $giPosInWP = 0 Then ExitLoop

   WEnd
      
   ;;--------------------------------------------------------------------------------
   
   _log("$giPosInWP F: " & $giPosInWP)
   _log("Distance : " & $fDistance)
   _log("Timer : " & TimerDiff($fTimer))
   _log("Time to move : " & TimerDiff($fTimeToMove))
   
   ;;--------------------------------------------------------------------------------

EndFunc

;;--------------------------------------------------------------------------------
;;      MoveToLastWP()
;;--------------------------------------------------------------------------------
Func MoveToLastWP()

   Dim $fTimer
   
   ;--------------------------------------------------------------------------------
   _log("MoveToLastWP")
   ;--------------------------------------------------------------------------------
   
   $fTimer = TimerInit()   
   While $giPosInWP < UBound($gaWP, 1) - 1

	  ;--------------------------------------------------------------------------------
	  If _playerdead() Or $GameOverTime Or $GameFailed = 1 Or $SkippedMove > 6 Then
		 $GameFailed = 1
		 ExitLoop
	  EndIf
	  ;--------------------------------------------------------------------------------
	  
	  If $gaWP[$giPosInWP + 1][3] = 1 Then Attack()
	  If IsSafeArea($giSfArea) = False Then
		 MoveNow($gaWP[$giPosInWP + 1][0], $gaWP[$giPosInWP + 1][1], $gaWP[$giPosInWP + 1][2], $gaWP[$giPosInWP + 1][3], $gaWP[$giPosInWP + 1][4] / 3)		 
	  Else
		 ;Grab()
		 MoveNow($gaWP[$giPosInWP + 1][0], $gaWP[$giPosInWP + 1][1], $gaWP[$giPosInWP + 1][2], $gaWP[$giPosInWP + 1][3], $gaWP[$giPosInWP + 1][4])
		 $giPosInWP += 1
	  EndIf

	  ;--------------------------------------------------------------------------------

   WEnd
   
   ;;--------------------------------------------------------------------------------
   _log("Timer : " & TimerDiff($fTimer))
   ;;--------------------------------------------------------------------------------

EndFunc

;;--------------------------------------------------------------------------------
;;      MoveNow()
;;--------------------------------------------------------------------------------
Func MoveNow($_x, $_y, $_z, $_a, $m_range)

	Dim $TimeOut = TimerInit()
	Dim $toggletry = 0
	Dim $lastwp_x = $_x
	Dim $lastwp_y = $_y
	Dim $lastwp_z = $_z

   ;;--------------------------------------------------------------------------------
   
   If _playerdead() Or $GameOverTime = True Or $GameFailed = 1 Or $SkippedMove > 6 Then
	  $GameFailed = 1
	  Return
   EndIf

   $Coords = FromD3toScreenCoords($_x, $_y, $_z)
   MouseMove($Coords[0], $Coords[1], 3)
   $LastCP = GetCurrentPos()
   MouseDown("middle")
   Sleep(10)
   
   While 1
	  GameOverTime()
	  If $GameOverTime = True Then ExitLoop
	  
	  $CurrentLoc = GetCurrentPos()
	  $xd = $lastwp_x - $CurrentLoc[0]
	  $yd = $lastwp_y - $CurrentLoc[1]
	  $zd = $lastwp_z - $CurrentLoc[2]
	  $Distance = Sqrt($xd * $xd + $yd * $yd + $zd * $zd)
	  If $Distance < $m_range Then ExitLoop
	  
	  ;If _MemoryRead($ClickToMoveToggle, $d3, 'float') = 0 Then ExitLoop
	  Local $angle = 1
	  Local $Radius = 25
	  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	  While _MemoryRead($ClickToMoveToggle, $d3, 'float') = 0
		 ;_log("Togglemove : " & _MemoryRead($ClickToMoveToggle, $d3, 'float'))
		 $Coords = FromD3toScreenCoords($_x, $_y, $_z)
		 $angle += $Step
		 $Radius += 45

		 ;MouseMove($Coords[0] - (Cos($angle) * $Radius), $Coords[1] - (Sin($angle) * $Radius), 3)
		 ; ci desssous du dirty code pour eviter de cliquer n'importe ou hos de la fenetre du jeu
		 $Coords[0] = $Coords[0] - (Cos($angle) * $Radius)
		 $Coords[1] = $Coords[1] - (Sin($angle) * $Radius)
		 If $Coords[0] > 790 Then
			$Coords[0] = 790
		 ElseIf $Coords[0] < 40 Then ;car on a pas l'envie de cliquer dans les icone du chat
			$Coords[0] = 40
		 EndIf
		 If $Coords[1] > 540 Then ;car on a pas l'envie de cliquer dans la bare des skills
			$Coords[1] = 540
		 ElseIf $Coords[1] < 10 Then
			$Coords[1] = 10
		 EndIf
		 MouseMove($Coords[0], $Coords[1], 3)

		 $toggletry += 1
		 ;_log("Tryin move :" & " x:" & $_x & " y:" & $_y & "coords: " & $Coords[0] & "-" & $Coords[1] & " angle: " & $angle & " Toggle try: " & $toggletry)
		 If $angle >= 2.0 * $PI Or $toggletry > 9 Or _playerdead() Then
			$SkippedMove += 1
			_log("Toggle try: " & $toggletry & " Movement Skipped : " & $SkippedMove)
			ExitLoop 2 ; le 2 signifie que l'on quitte 2 loop
		 EndIf
		 Sleep(10)
	  WEnd
	  
	  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	  Sleep(10)
	  $Coords = FromD3toScreenCoords($lastwp_x, $lastwp_y, $lastwp_z)
	  MouseMove($Coords[0], $Coords[1], 3)
	  
	  If TimerDiff($TimeOut) > 75000 Then
		 _log("MoveToPos Timed out ! ! ! ")
		 If _checkdisconnect() Then $GameFailed = 1
		 ExitLoop
	  EndIf
   WEnd

   ;;--------------------------------------------------------------------------------
   MouseUp("middle")
	
EndFunc

;;--------------------------------------------------------------------------------
;;      MoveToPos()
;;--------------------------------------------------------------------------------
Func MoveToPos($_x, $_y, $_z, $_a, $m_range)

   ;--------------------------------------------------------------------------------
   SaveNewWP($_x, $_y, $_z, $_a, $m_range)
   MoveToLastWP()
   CreateNewWP()
   ;--------------------------------------------------------------------------------

EndFunc   ;==>MoveToPos

;;--------------------------------------------------------------------------------
;;      Grab()
;;--------------------------------------------------------------------------------
Func Grab()
   
   Dim $fTimer
   Dim $index, $offset, $count, $item[10]

   ;--------------------------------------------------------------------------------
   _log("Grab")
   ;--------------------------------------------------------------------------------
   
   $fTimer = TimerInit()

   ;_log("Grabtimeout : " & $grabtimeout)
   ;_log('If _playerdead() or ($gamefailed = 1)')
   If _playerdead() Or ($GameFailed = 1) Then
	  $GameFailed = 1
	  _log("Return Cuz : If _playerdead or gamefailed ")
	  Return
   EndIf
   
   $grabtimeout = 0
   startIterateObjectsList($index, $offset, $count)
   While iterateObjectsList($index, $offset, $count, $item)
	  
	  If $item[0] <> "" And $item[0] <> 0xFFFFFFFF Then	 
		 If $item[9] < $g_range Then
			If CheckFromList($monsterList, $item[1]) = False Then
			   If StringInStr($IgnoreObjList, $item[8]) = 0 And CheckFromList($shrinebanlist, $item[8]) = 0 Then

				  If stringInStr($item[1],"shrine") Then
					 If IterateActorAtribs($item[0], $Atrib_gizmo_state) <> 1 Then
						If shrine($item[1], $item[8], $item[0]) = false Then $shrinebanlist = $shrinebanlist &"|"& $item[8]
					 EndIf
				  EndIf
				  
				  ;;--------------------------------------------------------------------------------

				  If ($item[5] = 2 And $item[6] = -1) Or (StringInStr($item[1], "orb") and StringInStr($item[1], "unique")) Then
					 If _MemoryRead($item[8] + 0x4, $d3, 'ptr') <> 0xFFFFFFFF Then
						_log("Checking " & $item[8] & " : " & $item[1])
						;;--------------------------------------------------------------------------------
						$itemDestination = CheckItem($item[0], $item[1])
						If $itemDestination = "Stash" Or $itemDestination = "Salvage" Or ($itemDestination = "Inventory" And $takepot = True) Then
						   ;This loot is interesting
						   If Grabit($item[1], $item[8]) = False Then
							  _log("Grabtimeout : " & $grabtimeout)
							  If $grabtimeout > 2 Then
								 If _checkdisconnect() Or _playerdead() Then
									_log('_checkdisconnect A or player D')
									$GameFailed = 1
								 EndIf
								 ;_log("Ignoring " & $item[8] & " : " & $item[1])
								 ;$IgnoreObjList = $IgnoreObjList & $item[8] & " "
							  EndIf
						   EndIf
						Else
						   _log("Ignoring " & $item[8] & " : " & $item[1])
						   $IgnoreObjList = $IgnoreObjList & $item[8] & " "
						EndIf
						;;--------------------------------------------------------------------------------
					 EndIf
				  EndIf

				  ;;--------------------------------------------------------------------------------

			   EndIf
			EndIf
		 EndIf
	  EndIf
   WEnd
   
   _log("Timer : " & TimerDiff($fTimer))

EndFunc   ;==>Grab

;;--------------------------------------------------------------------------------
;;      Attack()
;;--------------------------------------------------------------------------------
Func Attack()
   
   Dim $index, $offset, $count, $item[10]

   ;--------------------------------------------------------------------------------
   _log("Attack")
   ;--------------------------------------------------------------------------------

   ;	_log("killtimeout: "& $killtimeout)
   ;	_log('If _playerdead() or ($gamefailed = 1)')
   If _playerdead() Or ($GameFailed = 1) Then
	  $GameFailed = 1
	  _log("Return Cuz : If _playerdead or gamefailed ")
	  Return
   EndIf
   
   $killtimeout = 0
   startIterateObjectsList($index, $offset, $count)
   While iterateObjectsList($index, $offset, $count, $item)

	  If $item[0] <> "" And $item[0] <> 0xFFFFFFFF Then 
		 If ($item[9] < $a_range) Then
			If (CheckFromList($monsterList, $item[1]) And $item[6] <> -1) Or (CheckFromList($monsterList, $item[1]) And (StringInStr($item[1], "Brickhouse_") Or StringInStr($item[1], "goblin") Or StringInStr($item[1], "woodwraith_"))) Then

			   ;;--------------------------------------------------------------------------------

			   If IterateActorAtribs($item[0], $Atrib_Hitpoints_Cur) > 0 And IterateActorAtribs($item[0], $Atrib_Invulnerable) = 0 Then
				  If KillMob($item[8], $item[0]) = False Then
					 _log("Kill Timeout :" & $killtimeout)
					 If $killtimeout > 2 Then
						_log("_checkdisconnect Cuz :$killtimeout > 2 ")
						If _checkdisconnect() Or _playerdead() Then
						   $GameFailed = 1
						   ExitLoop
						EndIf
					 EndIf
				  EndIf
			   Else
				  _log("Kill Timeout :" & $killtimeout)
				  If $killtimeout > 2 Then
					 If _checkdisconnect() Or _playerdead() Then
						$GameFailed = 1
						ExitLoop
					 EndIf
				  EndIf
			   EndIf
			   
			   ;;--------------------------------------------------------------------------------
			   
			EndIf
		 EndIf
	  EndIf
	  
   WEnd

EndFunc   ;==>Attack


;;--------------------------------------------------------------------------------
;;      KillMob()
;;--------------------------------------------------------------------------------
Func KillMob($offset, $guid)

   ;;--------------------------------------------------------------------------------
   Dim $fTimer
   Dim $bReturn
   
   Dim $aMouseCoord
   
   ;;--------------------------------------------------------------------------------  
   $bReturn = True
   $fTimer = TimerInit()
   ;;--------------------------------------------------------------------------------

   ;loop the attack until the mob is dead
   Send("{SHIFTDOWN}")
   While IterateActorAtribs($guid, $Atrib_Hitpoints_Cur) > 0
	  
	  $aMouseCoord = FromD3toScreenCoords(_MemoryRead($offset + 0xB0, $d3, 'float'), _MemoryRead($offset + 0xB4, $d3, 'float'), _MemoryRead($offset + 0xB8, $d3, 'float'))
	  MouseMove($aMouseCoord[0], $aMouseCoord[1], 3)
	  MouseClick("left")
	  
	  CheckForSpell()
	  CheckForPotion()
	  
 	  If IsSafeArea($giSfArea) = False Then
		 Send("{SHIFTUP}")
 		 MoveToWayPoints($giSfArea)
		 Send("{SHIFTDOWN}")
 		 $fTimer = TimerInit()
 	  EndIf
	  
	  If TimerDiff($fTimer) > $a_time Then
		 ;After this time, the mob should be dead, otherwise he is probly unkillable
		 $killtimeout += 1	;Variable Global ToDo
		 $bReturn = False	;Variable Local
		 ExitLoop
	  EndIf
   WEnd  
   Send("{SHIFTUP}")

   ;;--------------------------------------------------------------------------------

   Return $bReturn
EndFunc   ;==>KillMob

;;--------------------------------------------------------------------------------
;;      Grabit()
;;--------------------------------------------------------------------------------
Func Grabit($name, $offset)

   Dim $fTimer
   Dim $aMouseCoord
  
   ;;--------------------------------------------------------------------------------
   _log("Grabit")
   ;;--------------------------------------------------------------------------------

   $fTimer = TimerInit()

   If StringInStr($name, "gold") Then
	  $aMouseCoord = FromD3toScreenCoords(_MemoryRead($offset + 0xB0, $d3, 'float'), _MemoryRead($offset + 0xB4, $d3, 'float'), _MemoryRead($offset + 0xB8, $d3, 'float'))
	  MouseClick("middle", $aMouseCoord[0], $aMouseCoord[1], 1, 6)
   Else
	  Interact(_MemoryRead($offset + 0xB0, $d3, 'float'), _MemoryRead($offset + 0xB4, $d3, 'float'), _MemoryRead($offset + 0xB8, $d3, 'float'))
   EndIf
   
   ;;--------------------------------------------------------------------------------
   
   While _MemoryRead($offset + 0x4, $d3, 'ptr') <> 0xFFFFFFFF
	  
	  If StringInStr($name, "gold") Then
		 $aMouseCoord = FromD3toScreenCoords(_MemoryRead($offset + 0xB0, $d3, 'float'), _MemoryRead($offset + 0xB4, $d3, 'float'), _MemoryRead($offset + 0xB8, $d3, 'float'))
		 MouseClick("middle", $aMouseCoord[0], $aMouseCoord[1], 1, 6)
	  Else
		 Interact(_MemoryRead($offset + 0xB0, $d3, 'float'), _MemoryRead($offset + 0xB4, $d3, 'float'), _MemoryRead($offset + 0xB8, $d3, 'float'))
	  EndIf
	  
	  If TimerDiff($fTimer) > $g_time Then
		 ;After this time we should already had the item
		 $grabtimeout += 1
		 Return False
	  EndIf
   
   WEnd
	  
   ;;--------------------------------------------------------------------------------

   Return True
EndFunc   ;==>Grabit

[Toinou75]

Ta pas l'impression de pourrir la lisibilité du forum ?

Merci d'utiliser la balise

[spoiler]ton code[/spoiler]

[Gfreeman]

Ta pas l'impression de pourrir la lisibilité du forum ?

Merci d'utiliser la balise

[spoiler]ton code[/spoiler]

Mea-Culpa

[Toinou75]

Merci c'est cool . Mais ta oublié d'appliquer !

[Gfreeman]

Merci c'est cool . Mais ta oublié d'appliquer !

J'ai appliqué sur les deux maintenant.

[Toinou75]

Merki

[sjlc]

Salut Gfreeman,

Puis-je utiliser ta version ? (à savoir ton dernier code publié ?)
Si cela est fonctionnel, peux-tu indiquer explicitement ce qu'il faut ajouter dans chaque fichier pour que le tout fonctionne ? (main/toolkit)
(J'ai vu que tu avais tout indiqué avec ton précèdent code...Mais ne sais pas si tout est encore valable ou si tu as fait quelques modifications depuis).
Merci d'avance.

[Gfreeman]

Salut Gfreeman,

Puis-je utiliser ta version ? (à savoir ton dernier code publié ?)
Si cela est fonctionnel, peux-tu indiquer explicitement ce qu'il faut ajouter dans chaque fichier pour que le tout fonctionne ? (main/toolkit)
(J'ai vu que tu avais tout indiqué avec ton précèdent code...Mais ne sais pas si tout est encore valable ou si tu as fait quelques modifications depuis).
Merci d'avance.

Salut sjlc. Non, ce code est juste pour montrer que je bosse "d'arrache pied" sur la gestion des affixes. C'est une version "développement", même pas Alpha. Au final, j'ai fait aujourd'hui, bien plus que la gestion des Affixes. Gestion des déplacements, zone de sécurité, gestion des "grab", des attacks et j'en passe.

J'en ai encore pour un bon mois, si ce n'est plus.

Pour vous donner un ordre d'idée des modifications.

Toolkit.AU3

Spoiler

;;--------------------------------------------------------------------------------
;;      SaveNewWP()
;;--------------------------------------------------------------------------------
Func SaveNewWP($_x, $_y, $_z, $_a, $m_range)

   ;;--------------------------------------------------------------------------------
   ;_log("SaveNewWP")
   ;;--------------------------------------------------------------------------------
   
   $gaWP[UbOund($gaWP,1) - 1][0] = $_x
   $gaWP[UbOund($gaWP,1) - 1][1] = $_y
   $gaWP[UbOund($gaWP,1) - 1][2] = $_z
   $gaWP[UbOund($gaWP,1) - 1][3] = $_a
   $gaWP[UbOund($gaWP,1) - 1][4] = $m_range
      
   ;;--------------------------------------------------------------------------------
   
   ;_log("$gaWP[x][0] : " & $gaWP[UbOund($gaWP,1) - 1][0])
   ;_log("$gaWP[x][1] : " & $gaWP[UbOund($gaWP,1) - 1][1])
   ;_log("$gaWP[x][2] : " & $gaWP[UbOund($gaWP,1) - 1][2])
   ;_log("$gaWP[x][3] : " & $gaWP[UbOund($gaWP,1) - 1][3])
   ;_log("$gaWP[x][4] : " & $gaWP[UbOund($gaWP,1) - 1][4])
   
EndFunc

;;--------------------------------------------------------------------------------
;;      CreateNewWP()
;;--------------------------------------------------------------------------------
Func CreateNewWP()

   ;;--------------------------------------------------------------------------------
   _log("CreateNewWP")
   ;;--------------------------------------------------------------------------------
   Redim $gaWP[UbOund($gaWP,1) + 1][5]
   ;;--------------------------------------------------------------------------------

EndFunc

;;--------------------------------------------------------------------------------
;;      InitializeVarWayPoints()
;;--------------------------------------------------------------------------------
Func InitializeWayPoints()
   Dim $gaWP[1][5] = [[0,0,0,0,0]]
   $giPosInWP = 0
EndFunc

;;--------------------------------------------------------------------------------
;;      AnalyzeSpell()
;;--------------------------------------------------------------------------------
Func AnalyzeSpell($sGUID, $sObjName)

   Dim $bFndSpell
   Dim $bSpellIsActive
   
   Dim $iRow
   Dim $iRowCount
   
   ;;--------------------------------------------------------------------------------
   _log("AnalyzeSpell")
   ;;--------------------------------------------------------------------------------
   
   $bFndSpell = False
   $bSpellIsActive = True
   ;;--------------------------------------------------------------------------------

   $iRowCount = UBound($gaSpell, 1) - 1
   For $iRow = 0 To $iRowCount
	  _log($gaSpell[$iRow][0] & " " & $gaSpell[$iRow][1])
	  ;_log($sGUID & " " & $sObjName)
	  If $gaSpell[$iRow][0] = $sGUID And $gaSpell[$iRow][1] = $sObjName Then
		 $bFndSpell = True
		 ExitLoop
	  EndIf
   Next
   ;;--------------------------------------------------------------------------------
   _log("$bFndSpell :" & $bFndSpell)
   ;;--------------------------------------------------------------------------------

   If $bFndSpell Then
	  If TimerDiff($gaSpell[$iRow][2]) > $gaSpell[$iRow][3] Then $bSpellIsActive = False
   Else
	  $gaSpell[UbOund($gaSpell, 1) - 1][0] = $sGUID
	  $gaSpell[UbOund($gaSpell, 1) - 1][1] = $sObjName
	  $gaSpell[UbOund($gaSpell, 1) - 1][2] = TimerInit()
	  $gaSpell[UbOund($gaSpell, 1) - 1][3] = 6820
	  
	  Redim $gaSpell[UbOund($gaSpell, 1) + 1][4]
   EndIf
   
   ;;--------------------------------------------------------------------------------
   _log("Spell is active ? :" & $bSpellIsActive)
   ;;--------------------------------------------------------------------------------

   Return $bSpellIsActive

EndFunc

;;--------------------------------------------------------------------------------
;;      IsSafeArea()
;;--------------------------------------------------------------------------------
Func IsSafeArea($m_Range)

   Dim $bIsSafeArea
   Dim $hIndex, $hOffset, $count, $aItem[10]

   ;;--------------------------------------------------------------------------------
   _log("IsSafeArea")
   ;;--------------------------------------------------------------------------------
   $bIsSafeArea = True
   ;;--------------------------------------------------------------------------------
   
   StartIterateObjectsList($hIndex, $hOffset, $count)
   While IterateObjectsList($hIndex, $hOffset, $count, $aItem)
	  
	  If $aItem[9] < $m_Range Then
		 If $aItem[0] <> "" Then
			
			If StringInStr($aItem[1], "Grenadier_Proj",0) Or StringInStr($aItem[1], "Mortar",0) Or _
			   StringInStr($aItem[1], "creepMobArm",0) Or StringInStr($aItem[1], "morluSpellcast",0) Or _
			   StringInStr($aItem[1], "waller",0) Then
				  $bIsSafeArea = False
			EndIf
			
			If StringInStr($aItem[1], "iceClusters",0) Or StringInStr($aItem[1], "frozen",0) Or StringInStr($aItem[1], "deathExplosion",0) Or _
			   StringInStr($aItem[1], "deathStart",0) Or StringInStr($aItem[1], "morluSpellcast",0) Or StringInStr($aItem[1], "ArcaneEnchanted",0) Or _
			   StringInStr($aItem[1], "Desecrator",0) Or StringInStr($aItem[1], "Molten",0) Or StringInStr($aItem[1], "PetSweep",0) Or _
			   StringInStr($aItem[1], "Plagued",0) Then
				  $bIsSafeArea = Not AnalyzeSpell(String($aItem[0]), String($aItem[1]))
			EndIf
			
			If $aItem[0] <> 0xFFFFFFFF Then
			   If (CheckFromList($monsterList, $aItem[1]) And $aItem[6] <> -1) Or (CheckFromList($monsterList, $aItem[1]) And (StringInStr($aItem[1], "Brickhouse_") Or StringInStr($aItem[1], "goblin") Or StringInStr($aItem[1], "woodwraith_"))) Then
				  If IterateActorAtribs($aItem[0], $Atrib_Hitpoints_Cur) > 0 And IterateActorAtribs($aItem[0], $Atrib_Invulnerable) = 0 Then
					 $bIsSafeArea = False
				  EndIf
			   EndIf
			EndIf
		 EndIf
		 
	  EndIf
	  ;If $bIsSafeArea = False Then ExitLoop
   
   WEnd
   
   ;;--------------------------------------------------------------------------------
   
   Return $bIsSafeArea

EndFunc

;;--------------------------------------------------------------------------------
;;      MoveToWayPoints()
;;--------------------------------------------------------------------------------
Func MoveToWayPoints($m_range)

   Dim $fPosX
   Dim $fPosY
   Dim $fPosZ
   Dim $fTimer
   Dim $fDistance
   Dim $fTimeToMove

   Dim $aPrvLoc
   Dim $aCurLoc
   Dim $aMouseCoord

   ;;--------------------------------------------------------------------------------  
   _log("MoveToWayPoints")
   _log("$giPosInWP O: " & $giPosInWP)
   ;;--------------------------------------------------------------------------------  
   If $giPosInWP = 0 Then Return
   If $giMotionless > 4 Then Return
   ;;--------------------------------------------------------------------------------  
   $fDistance = 0
   $fTimer = TimerInit()
   ;;--------------------------------------------------------------------------------  
   
   $aPrvLoc = GetCurrentPos()
   $fTimeToMove = TimerInit()
   
   While $fDistance < $m_range
	  
	  $aMouseCoord = FromD3toScreenCoords($gaWP[$giPosInWP - 1][0], $gaWP[$giPosInWP - 1][1], $gaWP[$giPosInWP - 1][2])
	  MouseMove($aMouseCoord[0], $aMouseCoord[1], 3)
	  MouseClick("middle")
	  
	  $aCurLoc = GetCurrentPos()
	  $fPosX = $aPrvLoc[0] - $aCurLoc[0]
	  $fPosY = $aPrvLoc[1] - $aCurLoc[1]
	  $fPosZ = $aPrvLoc[2] - $aCurLoc[2]
	  $fDistance = Sqrt($fPosX * $fPosX + $fPosY * $fPosY + $fPosZ * $fPosZ)
	  
	  If GetDistance($gaWP[$giPosInWP - 1][0], $gaWP[$giPosInWP - 1][1], $gaWP[$giPosInWP - 1][2]) < 4 And $giPosInWP > 0 Then $giPosInWP -= 1
	  If TimerDiff($fTimeToMove) > 1800 Or ($fDistance < 4 And TimerDiff($fTimeToMove) > 400) Then ExitLoop
	  If $giPosInWP = 0 Then ExitLoop
	  
   WEnd
   
   If $fDistance = 0 And TimerDiff($fTimeToMove) > 400 Then $giMotionless += 1
   If $fDistance >= $m_range Then $giMotionless = 0
   ;;--------------------------------------------------------------------------------
   
   _log("$giPosInWP F: " & $giPosInWP)
   _log("Distance : " & $fDistance)
   _log("Timer : " & TimerDiff($fTimer))
   _log("Time to move : " & TimerDiff($fTimeToMove))
   
   ;;--------------------------------------------------------------------------------

EndFunc

;;--------------------------------------------------------------------------------
;;      MoveToLastWP()
;;--------------------------------------------------------------------------------
Func MoveToLastWP()

   Dim $fTimer
   Dim $bRetVal
   
   ;--------------------------------------------------------------------------------
   _log("MoveToLastWP")
   ;--------------------------------------------------------------------------------
   
   $fTimer = TimerInit()   
   While $giPosInWP < UBound($gaWP, 1) - 1

	  ;--------------------------------------------------------------------------------
	  If GameOver() Then ExitLoop
	  ;--------------------------------------------------------------------------------
	  
	  If $gaWP[$giPosInWP + 1][3] = 1 Then Attack()
	  If IsSafeArea($giSfArea * 2) Then
		 $bRetVal = Grab()
		 If $bRetVal < 2 Then
			MoveNow($gaWP[$giPosInWP + 1][0], $gaWP[$giPosInWP + 1][1], $gaWP[$giPosInWP + 1][2], $gaWP[$giPosInWP + 1][3], $gaWP[$giPosInWP + 1][4])
			$giPosInWP += 1
		 EndIf
	  EndIf

	  ;--------------------------------------------------------------------------------

   WEnd
   
   ;;--------------------------------------------------------------------------------
   _log("Timer : " & TimerDiff($fTimer))
   ;;--------------------------------------------------------------------------------

EndFunc

;;--------------------------------------------------------------------------------
;;      MoveNow()
;;--------------------------------------------------------------------------------
Func MoveNow($_x, $_y, $_z, $_a, $m_range)

	Dim $TimeOut = TimerInit()
	Dim $toggletry = 0
	Dim $lastwp_x = $_x
	Dim $lastwp_y = $_y
	Dim $lastwp_z = $_z

   ;;--------------------------------------------------------------------------------   
   If GameOver() Then Return
   ;;--------------------------------------------------------------------------------

   $Coords = FromD3toScreenCoords($_x, $_y, $_z)
   MouseMove($Coords[0], $Coords[1], 3)
   $LastCP = GetCurrentPos()
   MouseDown("middle")
   Sleep(10)
   
   While 1
	  
	  $CurrentLoc = GetCurrentPos()
	  $xd = $lastwp_x - $CurrentLoc[0]
	  $yd = $lastwp_y - $CurrentLoc[1]
	  $zd = $lastwp_z - $CurrentLoc[2]
	  $Distance = Sqrt($xd * $xd + $yd * $yd + $zd * $zd)
	  
	  If $Distance < $m_range Then ExitLoop
	  
	  ;If _MemoryRead($ClickToMoveToggle, $d3, 'float') = 0 Then ExitLoop
	  Local $angle = 1
	  Local $Radius = 25
	  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	  While _MemoryRead($ClickToMoveToggle, $d3, 'float') = 0
		 ;_log("Togglemove : " & _MemoryRead($ClickToMoveToggle, $d3, 'float'))
		 $Coords = FromD3toScreenCoords($_x, $_y, $_z)
		 $angle += $Step
		 $Radius += 45

		 ;MouseMove($Coords[0] - (Cos($angle) * $Radius), $Coords[1] - (Sin($angle) * $Radius), 3)
		 ; ci desssous du dirty code pour eviter de cliquer n'importe ou hos de la fenetre du jeu
		 $Coords[0] = $Coords[0] - (Cos($angle) * $Radius)
		 $Coords[1] = $Coords[1] - (Sin($angle) * $Radius)
		 If $Coords[0] > 790 Then
			$Coords[0] = 790
		 ElseIf $Coords[0] < 40 Then ;car on a pas l'envie de cliquer dans les icone du chat
			$Coords[0] = 40
		 EndIf
		 If $Coords[1] > 540 Then ;car on a pas l'envie de cliquer dans la bare des skills
			$Coords[1] = 540
		 ElseIf $Coords[1] < 10 Then
			$Coords[1] = 10
		 EndIf
		 MouseMove($Coords[0], $Coords[1], 3)

		 $toggletry += 1
		 ;_log("Tryin move :" & " x:" & $_x & " y:" & $_y & "coords: " & $Coords[0] & "-" & $Coords[1] & " angle: " & $angle & " Toggle try: " & $toggletry)
		 If $angle >= 2.0 * $PI Or $toggletry > 9 Or _playerdead() Then
			$giSkippedMove += 1
			_log("Toggle try: " & $toggletry & " Movement Skipped : " & $giSkippedMove)
			ExitLoop 2 ; le 2 signifie que l'on quitte 2 loop
		 EndIf
		 Sleep(10)
	  WEnd
	  
	  ;;--------------------------------------------------------------------------------
	  Sleep(10)
	  $Coords = FromD3toScreenCoords($lastwp_x, $lastwp_y, $lastwp_z)
	  MouseMove($Coords[0], $Coords[1], 3)
	  
	  If TimerDiff($TimeOut) > 60000 Then
		 _log("MoveToPos Timed out ! ! ! ")
		 If _checkdisconnect() Then $giGameOver = 1
		 ExitLoop
	  EndIf
   WEnd

   ;;--------------------------------------------------------------------------------
   MouseUp("middle")
	
EndFunc

;;--------------------------------------------------------------------------------
;;      MoveToPos()
;;--------------------------------------------------------------------------------
Func MoveToPos($_x, $_y, $_z, $_a, $m_range)

   If GameOver() Then Return
   ;--------------------------------------------------------------------------------
   SaveNewWP($_x, $_y, $_z, $_a, $m_range)
   MoveToLastWP()
   CreateNewWP()
   ;--------------------------------------------------------------------------------

EndFunc   ;==>MoveToPos

;;--------------------------------------------------------------------------------
;;      Grab()
;;--------------------------------------------------------------------------------
Func Grab()
   
   Dim $bGrabVal
   Dim $aPrvLoc
   Dim $aCurLoc
   
   Dim $fTimer
   Dim $fDistance
   Dim $hIndex, $hOffset, $Count, $aItem[10]

   ;--------------------------------------------------------------------------------
   _log("Grab")
   ;--------------------------------------------------------------------------------
   $fTimer = TimerInit()

   $giGrabTimeOut = 0
   startIterateObjectsList($hIndex, $hOffset, $count)
   While iterateObjectsList($hIndex, $hOffset, $count, $aItem)
	  
	  If $aItem[0] <> "" And $aItem[0] <> 0xFFFFFFFF Then	 
		 If $aItem[9] < $g_range Then
			If CheckFromList($monsterList, $aItem[1]) = False Then
			   If StringInStr($IgnoreObjList, $aItem[8]) = 0 And CheckFromList($shrinebanlist, $aItem[8]) = 0 Then
				  
				  If stringInStr($aItem[1],"shrine") Then
					 If IterateActorAtribs($aItem[0], $Atrib_gizmo_state) <> 1 Then
						If shrine($aItem[1], $aItem[8], $aItem[0]) = false Then $shrinebanlist = $shrinebanlist & "|" & $aItem[8]
					 EndIf
				  EndIf
				  ;;--------------------------------------------------------------------------------

				  If ($aItem[5] = 2 And $aItem[6] = -1) Or (StringInStr($aItem[1], "orb") and StringInStr($aItem[1], "unique")) Then
					 If _MemoryRead($aItem[8] + 0x4, $d3, 'ptr') <> 0xFFFFFFFF Then
						_log("Checking " & $aItem[8] & " : " & $aItem[1])
						;;--------------------------------------------------------------------------------
						$aItemDestination = CheckItem($aItem[0], $aItem[1])
						If $aItemDestination = "Stash" Or $aItemDestination = "Salvage" Or ($aItemDestination = "Inventory" And $takepot = True) Then
						   ;This loot is interesting
						   
						   $aPrvLoc = GetCurrentPos()
						   ;;--------------------------------------------------------------------------------
						   
						   $bGrabVal = Grabit($aItem[1], $aItem[8])
						   If $bGrabVal = 0 Then
							  _log("Grab unsuccessfull")
							  If $giGrabTimeOut > 2 Then
								 _log("Grabtimeout : " & $giGrabTimeOut)
								 If _checkdisconnect() Or _playerdead() Then
									_log('_checkdisconnect A or player D')
									$giGameOver = 1
									ExitLoop
								 EndIf
							  EndIf
						   Else
							  
							  If $bGrabVal = 1 Then
								 _log("Grab successfull")
								 $bGrabVal = Grab()
							  ElseIf $bGrabVal = 2 Then
								 _log("Not a safe area")
							  EndIf
							  
							  ;Return to previous position ?
							  If GetDistance($aPrvLoc[0], $aPrvLoc[1], $aPrvLoc[2]) > 10 Then
								 $aMouseCoord = FromD3toScreenCoords($aPrvLoc[0], $aPrvLoc[1], $aPrvLoc[2])
								 MouseClick("middle", $aMouseCoord[0], $aMouseCoord[1], 1, 3)
							  EndIf

							  If $bGrabVal = 2 Then ExitLoop

						   EndIf
						Else
						   _log("Ignoring " & $aItem[8] & " : " & $aItem[1])
						   $IgnoreObjList = $IgnoreObjList & $aItem[8] & " "
						EndIf
						;;--------------------------------------------------------------------------------
					 EndIf
				  EndIf

				  ;;--------------------------------------------------------------------------------

			   EndIf
			EndIf
		 EndIf
	  EndIf
   WEnd

   ;;--------------------------------------------------------------------------------
   _log("Timer : " & TimerDiff($fTimer))
   ;;--------------------------------------------------------------------------------
   Return $bGrabVal
   
EndFunc   ;==>Grab

;;--------------------------------------------------------------------------------
;;      Grabit()
;;--------------------------------------------------------------------------------
Func Grabit($name, $hOffset)

   Dim $fTimer
   Dim $bRetVal
   Dim $hOOffsetValue
   
   Dim $aMouseCoord
   
   ;;--------------------------------------------------------------------------------
   _log("Grabit")
   ;;--------------------------------------------------------------------------------
   ;Return 0 : grab unsuccessfull
   ;Return 1 : grab successfull
   ;Return 2 : Not safe zone
   ;;--------------------------------------------------------------------------------
   
   $fTimer = TimerInit()
   
   $hOOffsetValue = _MemoryRead($hOffset + 0x4, $d3, 'ptr')
   
   If StringInStr($name, "gold") Then
	  $aMouseCoord = FromD3toScreenCoords(_MemoryRead($hOffset + 0xB0, $d3, 'float'), _MemoryRead($hOffset + 0xB4, $d3, 'float'), _MemoryRead($hOffset + 0xB8, $d3, 'float'))
	  MouseClick("middle", $aMouseCoord[0], $aMouseCoord[1], 1, 6)
   Else
	  Interact( _MemoryRead($hOffset + 0xB0, $d3, 'float'), _MemoryRead($hOffset + 0xB4, $d3, 'float'), _MemoryRead($hOffset + 0xB8, $d3, 'float'))
   EndIf
   
   ;;--------------------------------------------------------------------------------
   
   While _MemoryRead($hOffset + 0x4, $d3, 'ptr') = $hOOffsetValue

	  If IsSafeArea($giSfArea * 2) = False Then
		 $bRetVal = 2
		 ExitLoop
	  EndIf
	  
	  If StringInStr($name, "gold") Then
		 $aMouseCoord = FromD3toScreenCoords(_MemoryRead($hOffset + 0xB0, $d3, 'float'), _MemoryRead($hOffset + 0xB4, $d3, 'float'), _MemoryRead($hOffset + 0xB8, $d3, 'float'))
		 MouseClick("middle", $aMouseCoord[0], $aMouseCoord[1], 1, 6)
	  Else
		 Interact( _MemoryRead($hOffset + 0xB0, $d3, 'float'), _MemoryRead($hOffset + 0xB4, $d3, 'float'), _MemoryRead($hOffset + 0xB8, $d3, 'float'))
	  EndIf
	  
	  If TimerDiff($fTimer) > $g_time Then
		 ;After this time we should already had the item
		 _log("$fTimer) > $g_time")
		 $giGrabTimeOut += 1
		 $bRetVal = 0
		 ExitLoop
	  EndIf
	  
	  Sleep(Random(60,100))
	  
   WEnd
	  
   ;;--------------------------------------------------------------------------------
   _log("_MemoryRead($hOffset + 0x4, $d3, 'ptr') :" & _MemoryRead($hOffset + 0x4, $d3, 'ptr'))
   If _MemoryRead($hOffset + 0x4, $d3, 'ptr') = 0xFFFFFFFF Then $bRetVal = 1
   ;;--------------------------------------------------------------------------------
   
   Return $bRetVal
EndFunc   ;==>Grabit

;;--------------------------------------------------------------------------------
;;      Attack()
;;--------------------------------------------------------------------------------
Func Attack()
   
   Dim $bRetVal
   Dim $hIndex, $hOffset, $count, $aItem[10]

   ;--------------------------------------------------------------------------------
   _log("Attack")
   ;--------------------------------------------------------------------------------
   If AreYouAlive() = False Then Return
   ;--------------------------------------------------------------------------------

   $giKillTimeOut = 0
   startIterateObjectsList($hIndex, $hOffset, $count)
   While iterateObjectsList($hIndex, $hOffset, $count, $aItem)

	  If $aItem[0] <> "" And $aItem[0] <> 0xFFFFFFFF Then 
		 If ($aItem[9] < $a_range) Then
			If (CheckFromList($monsterList, $aItem[1]) And $aItem[6] <> -1) Or (CheckFromList($monsterList, $aItem[1]) And (StringInStr($aItem[1], "Brickhouse_") Or StringInStr($aItem[1], "goblin") Or StringInStr($aItem[1], "woodwraith_"))) Then

			   ;;--------------------------------------------------------------------------------

			   If IterateActorAtribs($aItem[0], $Atrib_Hitpoints_Cur) > 0 And IterateActorAtribs($aItem[0], $Atrib_Invulnerable) = 0 Then
				  $bRetVal = KillMob($aItem[8], $aItem[0])
				  If $bRetVal = 1 Then
					 _Log("Kill successfull")
				  ElseIf $bRetVal = 2 Then
					 _log("Kill time out.")
					 $giKillTimeOut += 1
					 If AreYouAlive() = False Then ExitLoop
				  EndIf
			   Else
				  If AreYouAlive() = False Then ExitLoop
			   EndIf
			   
			   ;;--------------------------------------------------------------------------------
			   
			EndIf
		 EndIf
	  EndIf
	  
   WEnd

EndFunc   ;==>Attack

;;--------------------------------------------------------------------------------
;;      KillMob()
;;--------------------------------------------------------------------------------
Func KillMob($hOffset, $guid)

   Dim $fTimer
   Dim $bRetVal
   
   Dim $aMouseCoord
      
   ;;--------------------------------------------------------------------------------  
   _log("KillMob")
   ;;--------------------------------------------------------------------------------  
   ;Return 0 : Kill unsuccessfull
   ;Return 1 : Kill successfull
   ;Return 2 : Kill time out
   
   $bRetVal = 0
   $fTimer = TimerInit()
   ;;--------------------------------------------------------------------------------

   ;loop the attack until the mob is dead
   Send("{SHIFTDOWN}")
   While $bRetVal = 0
	  
	  $aMouseCoord = FromD3toScreenCoords(_MemoryRead($hOffset + 0xB0, $d3, 'float'), _MemoryRead($hOffset + 0xB4, $d3, 'float'), _MemoryRead($hOffset + 0xB8, $d3, 'float'))
	  MouseMove($aMouseCoord[0], $aMouseCoord[1], 3)
	  MouseClick("left")
	  
	  CheckForSpell()
	  CheckForPotion()
	  
	  If IsSafeArea($giSfArea) = False Then
		 Send("{SHIFTUP}")
		 MoveToWayPoints($giSfArea)
		 Send("{SHIFTDOWN}")
		 
		 $fTimer = TimerInit()
	  EndIf
	  
	  If Floor(IterateActorAtribs($guid, $Atrib_Hitpoints_Cur)) = 0 Then
		 $bRetVal = 1
		 ExitLoop
	  EndIf
	  
	  If TimerDiff($fTimer) > $a_time Then
		 $bRetVal = 2
		 ExitLoop
	  EndIf
   WEnd  
   Send("{SHIFTUP}")

   ;;--------------------------------------------------------------------------------

   Return $bRetVal
EndFunc   ;==>KillMob

;;--------------------------------------------------------------------------------
;;      AreYouAlive()
;;--------------------------------------------------------------------------------
Func AreYouAlive()

   Dim $bRetVal
   
   ;;--------------------------------------------------------------------------------
   $bRetVal = True
   ;;--------------------------------------------------------------------------------

   If $giMotionless > 4   And (_CheckDisconnect() Or _PlayerDead()) Then $bRetVal = False
   If $giKillTimeOut > 2  And (_CheckDisconnect() Or _PlayerDead()) Then $bRetVal = False
   
   ;;--------------------------------------------------------------------------------   
   
   Return $bRetVal
   
EndFunc

;;--------------------------------------------------------------------------------
;;      GameOver()
;;--------------------------------------------------------------------------------
Func GameOver()

   Dim $bRetVal

   ;;--------------------------------------------------------------------------------
   $bRetVal = False
   ;;--------------------------------------------------------------------------------
   
   If AreYouAlive() = False Then $bRetVal = True
   If GameOverTime() Then $bRetVal = True
   
   If $giSkippedMove > 6 Then $bRetVal = True
   If $giGameOver = 1 Then $bRetVal = True
   ;;--------------------------------------------------------------------------------   
   
   Return $bRetVal

EndFunc   ;==>GameOver

Func GameOverTime()
   
   Dim $bRetVal
   
   ;;--------------------------------------------------------------------------------
   
   If TimerDiff($giTimerMaxGameLength) > $maxgamelength Then
	  _log('game over time !')
	  $bRetVal = True
   Else
	  $bRetVal = False
   EndIf
   
   ;;--------------------------------------------------------------------------------
   Return $bRetVal
   
EndFunc   ;==>GameOverTime

Func _townportal()
   _log("Town Portal")
   If _playerdead() = False Then
	  Sleep(200)
	  Send("t")
	  Sleep(Random(8000, 8500, 1))
	  InitializeWayPoints()
   Else
	  _log("No TP Cuz Your dead allready <img src='http://img.gmstemple.com/public/style_emoticons/<#EMO_DIR#>/tongue.gif' class='bbc_emoticon' alt=':P' />")
   EndIf
EndFunc   ;==>_townportal


		InitializeWayPoints() ;Initialize Waypoints environnement
	EndIf
EndFunc   ;==>TakeWP

Main.AU3

Spoiler

Global $giGameOver = 0
Global $giGameOverTime = False
Global $giKillTimeOut = 0
Global $giGrabTimeOut = 0
Global $giSfArea = 20
Global $giPosInWP = 0
Global $giMotionless = 0
Global $giSkippedMove = 0
Global $giTimerMaxGameLength = 0
Global $gaWP[1][5] = [[0,0,0,0,0]]
Global $gaSpell[1][4] = [["","",0.00,0]]

Modifier le code suivant
	While Not offsetlist()
		Sleep(40)
	WEnd
	$giGameOver = 0
	$giSkippedMove = 0
	$giMotionless = 0
	$IgnoreObjList = ""

	StatsDisplay()
	InitializeWayPoints()

		While Not _intown()
			Attack(Random(20,30))

			While (_intown() = False And _inmenu() = False)
				$nbTriesTownPortal += 1
				Attack(Random(20,30))

[kinouxe]

si je peux me permettre, ouvre ton propre post pour montrer ton avancée, sinon les gens ne vont pas savoir s'y retrouvé dans tous ces mélanges de code.

merci

[Gfreeman]

si je peux me permettre, ouvre ton propre post pour montrer ton avancée, sinon les gens ne vont pas savoir s'y retrouvé dans tous ces mélanges de code.

merci

OK, merci du conseil.

[mongitox]

Merci kinouxe,

Dans toolkit, ça se rajoute n'importe où ou bien ? Est-ce qu'il évite les zones de laves également ?

Merci d'avance !

[macgreg0r]

Y a t'il une version pour la V 7.0?

Merci d'avance

[Day]

Non mais si je dis pas de bêtises, les dev sont sur le coup ?

[kickbar]

Pour la gestion des affixes non, kinou doit être en train de bosser dessus il me semble, mais pour le moment cela restera une fonction a part.

Il ne semble pas impossible de voir cette fonction intégrer de base dans une future release, mais ce n'est pas la priorité pour le moment

la 7.1 devrait voir le jour sous peu, elle ne devrait contenir que quelque correction de bug, ainsi qu'un check plus fréquent quand au redimensionnement de la fenêtre et une petite fonctionnalité de tri pour gagner du temps sur l'identification/stash et vente

[macgreg0r]

merci de ces réponse, je vais attendre alors, je me sens pas trop de modifier le code, trop peur de faire tout planter.
je sais que ce n'est pas le lieu, mais pourquoi avoir abandonné l'idée de faire tourné dans d'autres résolutions? trop compliqué? le 800*600 pour tous les bots ca risque pas de se faire repéré un jour?

[Anakha]

Faites une heatmap pour la gestion de vos dangers. En gros, vous "récupérez les dangers" sous forme d'affixe, avec leurs niveau de danger / zone d'influence.
L'idée derrière est de savoir "où est-ce qu'il est safe de marcher" et "où est-ce que je risque de creuver en allant", et "où je ne peux pas aller", à l'aide de votre heatmap.

A partir de là, si vous êtes capable de savoir, en fonction de votre positions, la positions des affixes / pièges etc qui risquent de vous toucher, et que vous savez vers où vous pouvez vous déplacer sans danger, le tour est joué. (en soit, c'est que vous tentez de faire là). L'avantage c'est que vous pourrez (et devez?) faire les check de n'importe où (attack, moveToPos etc)

[kinouxe]

c'est ce que je suis en train de faire.

la partie combat est terminée, me reste a gérer les déplacements et loot et c'est pas facile la