Probleme mit Script

08/22/2014 20:55 LIGHTBOZZ#1
Hey dieses Script stammt von Requi

Anscheinend funktioniert es bei Requi aber bei mir nicht.

Es sagt irgendwas von Error in Line 19

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
End If
Else
PauseBot()
EndIf
WEnd
EndFunc

Func ExitBot()
Exit
EndFunc
Findet ihr etwas ?
08/22/2014 21:29 th0rex#2
Du hast statt "{ENTER}" {"ENTER}" geschrieben.
08/22/2014 21:42 LIGHTBOZZ#3
Quote:
Originally Posted by omitma View Post
Du hast statt "{ENTER}" {"ENTER}" geschrieben.
Habs berichtigt jetzt sagt es

Line 15
Func StartStop()
Error: "Func" statement has no matching "endfunc"
08/22/2014 21:49 alpines#4
Bei der Funktion PauseBot fehlt EndFunc unter dem WEnd.
08/22/2014 21:53 LIGHTBOZZ#5
Quote:
Originally Posted by alpines View Post
Bei der Funktion PauseBot fehlt EndFunc unter dem WEnd.
Behoben.
Noch ein Error :mad::mad:

Line 34
EndFunc
Error: "If" statement has no matching "EndIf" statement
08/22/2014 22:15 jondoe85#6
Hallo,

der Fehler liegt in Zeile 28. Sie haben "End If" geschrieben. Richtig wäre "EndIf".
Korrekter Code.
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
08/22/2014 22:19 LIGHTBOZZ#7
Quote:
Originally Posted by jondoe85 View Post
Hallo,

der Fehler liegt in Zeile 28. Sie haben "End If" geschrieben. Richtig wäre "EndIf".
Korrekter Code.
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"
08/22/2014 22:23 Rev 9#8
//zu langsam
08/22/2014 22:24 LIGHTBOZZ#9
Quote:
Originally Posted by SinesStaR.epvp View Post
//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
08/23/2014 08:36 Requi#10
Ich hatte das morgens einfach hingeklatscht.
Jetzt müsste es eigentlich gehen:
Code:
#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
08/23/2014 12:37 KDeluxe#11
Code:
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