Ich hoffe ihr könnt mir hilfestellung geben! ich möchte bei folgendem code, dass die func _start nur 5 mal abläuft. wie zu sehen ist, ist es aneinanderkettung von imagesearch functions. die eine greift auf die anderen zu. darin besteht auch glaub ich mein problem, dass wenn ich von der func suche auf die nächste func zugreife (script), das script keinen wert bekommen hat, wie oft er schon ausgeführt wurde. quasi befindet er sich in einer endlosschleife? ich möchte, dass entweder die func suche "x" mal ausgeführt wird und dann eine andere func auffruft, oder er nach "x" minuten auf eine andere func zugreift.... ich grübel schon seit zwei tagen daran, hab es mit do und do not versucht, klassischer counter.... nix hat bislang funktioniert. entweder es bleibt eine endlosschleife oder ich habe errors drin.... ich freue mich von euch zu lesen und vielen dank im vorraus
Code:
#include<ImageSearch.au3>
$x = 0
$y = 0
$xd = @DesktopHeight
$yd = @DesktopWidth
HotKeySet("{ESC}", "Close")
HotKeySet("s", "_Start")
HotKeySet("p", "Pause")
_Startup()
Func _Startup()
ToolTip("Startup",0,0)
While 1
Sleep(100)
WEnd
EndFunc
Func Close()
Exit
EndFunc
Func Pause()
ToolTip("Pause",0,0)
While 1
Sleep(100)
WEnd
EndFunc
Func _Start()
ToolTip("",0,0)
For $iZahler = 1 to 4
_Suche()
Next
_Shop()
EndFunc
Func _Suche()
While 1
$Suche = _ImageSearch(@ScriptDir & "\Suche.png",1,$x,$y,25)
If $Suche = 1 Then
MouseClick("left",$x,$y,1,10)
_Anwahl()
EndIf
WEnd
EndFunc
Func _Nichtsgefunden()
$Nichtsgefunden = _ImageSearch(@ScriptDir & "\keine_suchergebnisse_ok.png",1,$x,$y,10)
If $Nichtsgefunden = 1 Then
MouseClick("left",$x,$y,1,25)
_Start()
EndIf
EndFunc
Func _Anwahl()
While 1
$Anwahl = _ImageSearch(@ScriptDir & "\tawoon3.png",1,$x,$y,25)
If $Anwahl = 1 Then
MouseClick("left",$x,$y,1,10)
_Kaufen()
Else
_Nichtsgefunden()
EndIf
WEnd
EndFunc
Func _Kaufen()
While 1
$Sofortkauf = _ImageSearch(@ScriptDir & "\sofortkauf.png",1,$x,$y,10)
If $Sofortkauf = 1 Then
MouseClick("left",$x,$y,1,10)
_Nachfrage()
EndIf
WEnd
EndFunc
Func _Nachfrage()
While 1
$Nachfrage = _ImageSearch(@ScriptDir & "\sofortkaufnachfrage_ok.png",1,$x,$y,10)
If $Nachfrage = 1 Then
Mouseclick("left",$x,$y,1,10)
_AufTP()
EndIf
WEnd
EndFunc
Func _AufTP()
While 1
$AufTP = _ImageSearch(@ScriptDir & "\transferliste_verschieben.png",1,$x,$y,10)
If $AufTP = 1 Then
MouseClick("left",$x,$y,1,10)
_Transfermarkt()
EndIf
WEnd
EndFunc
Func _Transfermarkt()
While 1
$Transfermarkt = _ImageSearch(@ScriptDir & "\transfermarkt.png",1,$x,$y,10)
If $Transfermarkt = 1 Then
MouseClick("left",$x,$y,1,10)
_Start()
EndIf
WEnd
EndFunc
Func _Shop()
While 1
$Shop = _ImageSearch(@ScriptDir & "\shop.png",1,$x,$y,10)
If $Shop = 1 Then
MouseClick("left",$x,$y,1,10)
Sleep(5000)
_Start()
EndIf
WEnd
EndFunc