Das Richtige script:
$input = InputBox("Hinweise", "Die Bildschirmauflösung auf 1280x1024 stellen. Bitte zwischen die beiden Eisen-Erze, von Varrock aus unten links,stellen und auf den Kompass klicken. Wennfertig bitte 'ok' eingeben")
If $input = "ok" Then
Sleep(4000)
MsgBox(0, "Bedienung", "Pause/Fortsetzen=Entf Beenden=Ende Der Bot startet in ein paar sek.")
Else
MsgBox(0, "Falsch", "Was verstehst du an 'Wenn fertig bitte 'ok' eingeben' eigentlich nicht?")
Exit ;Falls du das script dann beenden willst ;) wenn nicht, exit einfach weglassen!
Endif
Global $Paused
HotKeySet("{Del}", "TogglePause")
HotKeySet("{END}","_Exit")
While 1
Sleep(6200)
MouseClick("left",517, 430,15)
Sleep(2000)
MouseClick("left",517, 504,15)
Sleep(1000)
MouseClick("right",836, 512)
MouseClick("left",836, 550)
MouseClick("right",877, 511)
MouseClick("left",880, 549)
WEnd
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Bot ist pausiert',522, 357)
WEnd
ToolTip('Der Bot läuft',522, 357)
EndFunc
Func _Exit()
ToolTip('Vielen dank das du dich für den Irondropper2.0 entschieden hast 3.0 ist in Arbeit^^',522, 357)
Sleep(3000)
Exit
EndFunc
Du musstest nur das hier:
Quote:
Else
MsgBox(0, "Falsch", "Was verstehst du an 'Wenn fertig bitte 'ok' eingeben' eigentlich nicht?")
Endif
|
von ganz unten nach:
Quote:
$input = InputBox("Hinweise", "Die Bildschirmauflösung auf 1280x1024 stellen. Bitte zwischen die beiden Eisen-Erze, von Varrock aus unten links,stellen und auf den Kompass klicken. Wennfertig bitte 'ok' eingeben")
If $input = "ok" Then
Sleep(4000)
MsgBox(0, "Bedienung", "Pause/Fortsetzen=Entf Beenden=Ende Der Bot startet in ein paar sek.")
Else
MsgBox(0, "Falsch", "Was verstehst du an 'Wenn fertig bitte 'ok' eingeben' eigentlich nicht?")
Endif
|
Verschieben...
also unter das
Quote:
$input = InputBox("Hinweise", "Die Bildschirmauflösung auf 1280x1024 stellen. Bitte zwischen die beiden Eisen-Erze, von Varrock aus unten links,stellen und auf den Kompass klicken. Wennfertig bitte 'ok' eingeben")
If $input = "ok" Then
Sleep(4000)
MsgBox(0, "Bedienung", "Pause/Fortsetzen=Entf Beenden=Ende Der Bot startet in ein paar sek.")
|
Verstanden?
Wenn ja und es bei dir klappt, wäre ein Thx nett :D
wenn nich, auch egal ;)
Lg