Probleme mit Script

[LIGHTBOZZ]

Hey dieses Script stammt von Requi

Anscheinend funktioniert es bei Requi aber bei mir nicht.

Es sagt irgendwas von Error in Line 19

#RequireAdmin
HotKeySet("{F1}", "StartStop")
HotKeySet("{ESC}", "ExitBot")

$isRunning = False
$alreadyDone = 0

PauseBot()

Func PauseBot()
While True
Sleep(1000)
WEnd

Func StartStop()
$isRunning = Not $isRunning
If $isRunning Then
While True
Send({"ENTER}")
Sleep(250)
Send("/fish")
Sleep(250)
Send("{ENTER}")
$alreadyDone += 1
If $alreadyDone = 5 Then
Send("/throwbackall")
$alreadyDone = 0
End If
Else
PauseBot()
EndIf
WEnd
EndFunc

Func ExitBot()
Exit
EndFunc

Findet ihr etwas ?

[th0rex]

Du hast statt "{ENTER}" {"ENTER}" geschrieben.

[LIGHTBOZZ]

Originally Posted by omitma

Du hast statt "{ENTER}" {"ENTER}" geschrieben.

Habs berichtigt jetzt sagt es

Line 15
Func StartStop()
Error: "Func" statement has no matching "endfunc"

[alpines]

Bei der Funktion PauseBot fehlt EndFunc unter dem WEnd.

[LIGHTBOZZ]

Originally Posted by alpines

Bei der Funktion PauseBot fehlt EndFunc unter dem WEnd.

Behoben.
Noch ein Error

Line 34
EndFunc
Error: "If" statement has no matching "EndIf" statement

[jondoe85]

Hallo,

der Fehler liegt in Zeile 28. Sie haben "End If" geschrieben. Richtig wäre "EndIf".
Korrekter Code.

#RequireAdmin
HotKeySet("{F1}", "StartStop")
HotKeySet("{ESC}", "ExitBot")

$isRunning = False
$alreadyDone = 0

PauseBot()

Func PauseBot()
While True
Sleep(1000)
WEnd

Func StartStop()
$isRunning = Not $isRunning
If $isRunning Then
While True
Send({"ENTER}")
Sleep(250)
Send("/fish")
Sleep(250)
Send("{ENTER}")
$alreadyDone += 1
If $alreadyDone = 5 Then
Send("/throwbackall")
$alreadyDone = 0
EndIf
Else
PauseBot()
EndIf
WEnd
EndFunc

Func ExitBot()
Exit
EndFunc

Ich hoffe ich konnte helfen.

Liebe Grüße

[LIGHTBOZZ]

Originally Posted by jondoe85

Hallo,

der Fehler liegt in Zeile 28. Sie haben "End If" geschrieben. Richtig wäre "EndIf".
Korrekter Code.

#RequireAdmin
HotKeySet("{F1}", "StartStop")
HotKeySet("{ESC}", "ExitBot")

$isRunning = False
$alreadyDone = 0

PauseBot()

Func PauseBot()
While True
Sleep(1000)
WEnd

Func StartStop()
$isRunning = Not $isRunning
If $isRunning Then
While True
Send({"ENTER}")
Sleep(250)
Send("/fish")
Sleep(250)
Send("{ENTER}")
$alreadyDone += 1
If $alreadyDone = 5 Then
Send("/throwbackall")
$alreadyDone = 0
EndIf
Else
PauseBot()
EndIf
WEnd
EndFunc

Func ExitBot()
Exit
EndFunc

Ich hoffe ich konnte helfen.

Liebe Grüße

Auch mit diesem Code

Line 19
Send ({"Enter}")
Send (^ ERROR

Error: Unable to parse line.

Dann hab ich das wieder behoben dann kommt wieder

Line 15
Func StartStop()

Error: "Func" statement has no matching "EndFunc"

[Rev 9]

//zu langsam

[LIGHTBOZZ]

Originally Posted by SinesStaR.epvp

//zu langsam

Was meinst du damit ?

Also nochmal zum Zusammenfassen.
Ich suche ein Script (AutoItv3)
welches alle 5 Sekunden /fish macht und nach 5 mal /fish den Befehl /throwbackall ausführt
Jedes mal vor den Befehl den Buchstaben "T" weil der chat somit geöffnet wird und dort die Befehle eingegeben werden müssen.

Der Code oben Funktioniert nicht da ich immer wieder verschiedene Errors bekomme.

#Push

[Requi]

Ich hatte das morgens einfach hingeklatscht.
Jetzt müsste es eigentlich gehen:

#RequireAdmin
HotKeySet("{F1}", "StartStop")
HotKeySet("{ESC}", "ExitBot")

$isRunning = False

PauseBot()

Func PauseBot()
	While True
		Sleep(1000)
	WEnd
EndFunc

Func StartStop()
	$isRunning = Not $isRunning
	If $isRunning Then
		While True
			For $i = 1 To 5
				Send("t")
				Sleep(250)
				Send("/fish")
				Sleep(250)
				Send("{ENTER}")
			Next
			Send("t")
			Send("/throwbackall")
			Send("{ENTER}")
		WEnd
	Else
		PauseBot()
	EndIf
EndFunc

Func ExitBot()
	Exit
EndFunc

[KDeluxe]

Opt("SendKeyDelay", 250)

HotKeySet("{F1}", "TogglePause")
HotKeySet("{ESC}", "ExitBot")

Global $isRunning = False
Global $alreadyDone = 0

While Sleep(10)
    If $isRunning Then
        Send("{ENTER}")
        Send("/fish")
        Send("{ENTER}")
        $alreadyDone += 1
        If $alreadyDone == 5 Then
            Send("{ENTER}")
            Send("/throwbackall")
            Send("{ENTER}")
            $alreadyDone = 0
        EndIf
    EndIf
WEnd

Func TogglePause()
    $isRunning = Not $isRunning
    $alreadyDone = 0
EndFunc   ;==>TogglePause

Func ExitBot()
    Exit
EndFunc   ;==>ExitBot