Brauche hilfe beim scripten

07/23/2010 09:04 Jaden1995#1
ALso ich habe folgendes Problem ich habe ein Bot (mit Autoit) geschrieben der in der "BETA-Version"^^ noch ganz gut war und funktionierte, aber als ich den feinschliff machen wollte kammen die probleme:
C:\Users\Beni.Gibner-PC\Desktop\Fertige Scripte\Irondropper2.0.au3(39,1) : ERROR: syntax error
Else
^
C:\Users\Beni.Gibner-PC\Desktop\Fertige Scripte\Irondropper2.0.au3 - 1 error(s), 0 warning(s)

Das 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.")
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
Else
MsgBox(0, "Falsch", "Was verstehst du an 'Wenn fertig bitte 'ok' eingeben' eigentlich nicht?")
Endif



Was haben ich den falsch gemacht?:confused:
07/31/2010 23:52 haruhi love anime#2
Benutz lieber rsbot da gibts wenigstens gescheide scripts und nicht so ein lowkack wie autoit scripts. Die haben auch java scripts die richtig funktionieren
08/01/2010 15:30 FeuerwehrAtze#3
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
08/01/2010 16:24 Jaden1995#4
danke hat mir geholfen und es funzt^^
(n thx is drinne xD)
08/02/2010 17:56 Sextus#5
Quote:
Originally Posted by Jaden1995 View Post
danke hat mir geholfen und es funzt^^
(n thx is drinne xD)
Also kann das jetzt geclosed werden?
#closerequest
08/02/2010 19:59 haruhi love anime#6
mehr posthunting geht nicht oder? erstma reported und 2. ist der mod in dieser section nur englisch
08/02/2010 20:25 Sextus#7
Quote:
Originally Posted by haruhi love anime View Post
mehr posthunting geht nicht oder? erstma reported und 2. ist der mod in dieser section nur englisch
Denkst du wirklich, dass ich meinen report auf deutsch geschrieben habe, und ausserdem spricht er Englisch und ist nicht Englisch. Da ich in dieser Section aktiver bin, als du. Denk, erstmal nach bevor du, was schreibst.

PS: Der Thread-Ersteller hat keinen closerequest erstattet, also habe ich das Recht einen zu erstatten und ihn auch per post anzuzeigen.

grüße
08/03/2010 17:36 gerble93#8
Can this be closed?
08/03/2010 17:46 Sextus#9
Quote:
Originally Posted by gerble93 View Post
Can this be closed?
Yes, this can. The topic-writer has finished, he's project.
08/03/2010 17:48 gerble93#10
#Closed