Ich wollte mit einem ZK Bot anfangen, aber vorher möchte ich, dass eine Sache funzt.
Man muss ja mehrere Skills aufrecht erhalten...
Dies versuche ich verzweifelt mit AdlibRegister()
Ist alles eigentlich kein Problem, aber bei den Skills, die in einem Zeitraum von Sekunden gecastet werden müssen, funzt es nicht so dolle.
PHP Code:
$Obsidianfleisch = 18
$SteinfleischAura = 0
$Erdruestung = 0
$need_Erdruestung = 0
$Steinschlaeger = 0
$need_Steinschlaeger = 0
$MantraDerErde = 0
$need_MantraDerErde = 0
$Hwnd = "Guild Wars2"
AdlibRegister("Obsidianfleisch", 1000)
Sleep(100)
AdlibRegister("SteinfleischAura", 1000)
Sleep(100)
AdlibRegister("Erdruestung", 1000)
Sleep(100)
AdlibRegister("Steinschlaeger", 1000)
Sleep(100)
AdlibRegister("MantraDerErde", 1000)
While 1
Sleep(1000)
WEnd
Func Obsidianfleisch()
If $Obsidianfleisch > 21 Then
ControlSend($Hwnd, "", "", "{1}")
Sleep(Random(50, 100, 1)
ControlSend($Hwnd, "", "", "{2}")
$Obsidianfleisch = 0
Else
$Obsidianfleisch = $Obsidianfleisch + 1
EndIf
EndFunc ;==>Obsidianfleisch
Func SteinfleischAura()
If $SteinfleischAura > 14 Then
ControlSend($Hwnd, "", "", "{3}")
$SteinfleischAura = 0
Else
$SteinfleischAura = $SteinfleischAura + 1
EndIf
EndFunc ;==>SteinfleischAura
Func Erdruestung()
If $Erdruestung > $need_Erdruestung Then
ControlSend($Hwnd, "", "", "{4}")
$Erdruestung = 0
$need_Erdruestung = Random(18, 28, 1)
Else
$Erdruestung = $Erdruestung + 1
EndIf
EndFunc ;==>Erdruestung
Func Steinschlaeger()
If $Steinschlaeger > $need_Steinschlaeger Then
ControlSend($Hwnd, "", "", "{5}")
$Steinschlaeger = 0
$need_Steinschlaeger = Random(21, 25, 1)
Else
$Steinschlaeger = $Steinschlaeger + 1
EndIf
EndFunc ;==>Steinschlaeger
Func MantraDerErde()
If $MantraDerErde > $need_MantraDerErde Then
ControlSend($Hwnd, "", "", "{6}")
$MantraDerErde = 0
$need_MantraDerErde = Random(23, 60, 1)
Else
$MantraDerErde = $MantraDerErde + 1
EndIf
EndFunc ;==>MantraDerErde
Sollte ich eventuel alle Skills in eine AdlibRegister() Funktion reinpacken?
lg Chris
