Zeile auslesen und Func starten?

#include <file.au3>

Global $search1 = "ReadProcessMemory"
Global $search2 = "Died while gliding"
Global $search3 = "Unexpected sudden movement"
Global $search4 = "Missing base list pointer"
Global $logPath = @ScriptDir & "\Glider.log"
Global $count = 0
ClearLog()

; Check if bot has joined/left BG and start Gliding

While 1
Dim $aRecords
If Not _FileReadToArray($logPath, $aRecords) Then
MsgBox(4096, "Error", " Error reading Glider.log to Array error:" & @error)
Exit
EndIf
For $x = 1 To $aRecords[0]
If StringInStr($aRecords[$x], $search1) <> 0 Then
$count += 1
If $count = 1 Then
ClearLog()
StartBotting()
;BG HAS BEEN JOINED! START BOTTING
ElseIf $count = 2 Then
$count = 0
ClearLog()
StopBotting()
Sleep(Random(37000, 41000))
ReBG()
;BOT HAS LEFT THE BG!
EndIf
EndIf
If StringInStr($aRecords[$x], $search2) <> 0 Then
ClearLog()
StartBotting()
; Dead Check
EndIf
If StringInStr($aRecords[$x], $search3) <> 0 Then
ClearLog()
Sleep(Random(200, 210))
StopBotting()
Sleep(Random(235, 335))
StartBotting()
; Teleport Bug
EndIf
If StringInStr($aRecords[$x], $search4) <> 0 Then
$count += 1
If $count = 1 Then
ClearLog()
StartBotting()
;BG HAS BEEN JOINED! START BOTTING
ElseIf $count = 2 Then
$count = 0
ClearLog()
StopBotting()
Sleep(Random(37000, 41000))
ReBG()
;BOT HAS LEFT THE BG!
EndIf
EndIf
Next
; Anti-AFK
Sleep(Random(28000,31000))
WinActivate("World of Warcraft", "")
Sleep(Random(225, 250))
Send("{SPACE}")
WEnd

; Clears Glider.log by deleting it and creating a new empty one

Func ClearLog()
If FileExists($logPath) Then FileDelete($logPath)
If Not _FileCreate($logPath) Then
MsgBox(4096, "Error", " Error Creating/Resetting Glider.log. error:" & @error)
EndIf
EndFunc ;==>ClearLog

; Waits 36-40 seconds (while entering BG) and then starts WoW Glider by using keyboard shortcut (Double-CTRL + G)

Func StartBotting()
Sleep(Random(36000, 40000))
Send("{LCTRL}")
Sleep(Random(500, 700))
Send("{LCTRL}")
Sleep(Random(800, 900))
Send("g")
EndFunc ;==>StartBotting

; Stops WoW Glider by using keyboard shortcut (ESC)

Func StopBotting()
Sleep(Random(225, 250))
Send("{ESC}")
Sleep(Random(200, 215))
Send("{ESC}")
EndFunc ;==>StopBotting

; Rejoin BG

Func ReBG()
Sleep(Random(200, 300))
Send("{a down}")
Sleep(Random(200, 210))
Send("{a up}")
Sleep(Random(225, 325))
Send("{s down}")
Sleep(Random(5400, 5500))
Send("{s up}")
Sleep(1000)
; Join BG Button
MouseClick("left", 200, 560)
Send("{w down}")
Sleep(Random(3000, 3100))
Send("{w up}")
Sleep(Random(235, 335))
; Attach Glider
MouseClick("left", 1130, 930)
EndFunc ;==>ReBG

#include <file.au3>

Global $search1 = "ReadProcessMemory"
Global $search2 = "Died while gliding"
Global $search3 = "Unexpected sudden movement"
Global $search4 = "Resurrect before beginning glide"
Global $search5 = "Missing base list pointer"
Global $search6 = "Closest waypoint is too far away"
Global $search7 = "is near victory"
Global $GliderLog = @ScriptDir & "\Glider.log"
Global $ChatLog = @ScriptDir & "\Chat.log"
Global $count = 0, $abfrageAn = True
ClearLog ()
Sleep(Random(205, 215))
ClearChatLog ()

; Überprüfen, ob der Bot das BG betreten oder verlassen hat und Glider starten

While 1
Dim $aRecords
If Not _FileReadToArray($GliderLog, $aRecords) Then
MsgBox(4096, "Error", " Error reading Glider.log to Array error:" & @error)
Exit
EndIf
For $x = 1 To $aRecords[0]
If StringInStr($aRecords[$x], $search1) <> 0 Then
$abfrageAn = True
$count += 1
If $count = 1 Then
ClearLog ()
StartBotting ()
; BG WURDE BETRETEN! BOT STARTEN
ElseIf $count = 2 Then
$count = 0
ClearLog ()
StopBotting ()
Sleep(Random(31000, 33000))
ReBG ()
; BOT HAT DAS BG VERLASSEN!
EndIf
EndIf
If StringInStr($aRecords[$x], $search2) <> 0 And $abfrageAn Then
ClearLog ()
StartBotting ()
; Überprüfen, ob der Avatar gestorben ist
EndIf
If StringInStr($aRecords[$x], $search3) <> 0 And $abfrageAn Then
ClearLog ()
Sleep(Random(200, 210))
StopBotting ()
Sleep(Random(235, 335))
StartBotting ()
; Teleport Bug
EndIf
If StringInStr($aRecords[$x], $search4) <> 0 And $abfrageAn Then
ClearLog ()
StartBotting ()
; Wiederbeleben bevor der Bot gestartet wird
EndIf
If StringInStr($aRecords[$x], $search5) <> 0 Then
$abfrageAn = True
$count += 1
If $count = 1 Then
ClearLog ()
StartBotting ()
; BG WURDE BETRETEN! BOT STARTEN
ElseIf $count = 2 Then
$count = 0
ClearLog ()
StopBotting ()
Sleep(Random(31000, 33000))
ReBG ()
; BOT HAT DAS BG VERLASSEN!
EndIf
EndIf
If StringInStr($aRecords[$x], $search6) <> 0 Then
$abfrageAn = True
$count = 0
ClearLog ()
ReBGBug ()
; Rejoin BG Bug
EndIf
Next
Dim $chatLog_A
If Not _FileReadToArray($ChatLog, $chatLog_A) Then
MsgBox(4096, "Error", " Error reading Chat.log to Array error:" & @error)
Exit
EndIf
For $x = 1 To $chatLog_A[0]
If StringInStr($chatLog_A[$x], $search7) <> 0 Then
ClearChatLog ()
Sleep(Random(205, 215))
$abfrageAn = False
EndIf
Next
; Anti-AFK
Sleep(Random(28000,29000))
WinActivate("World of Warcraft", "")
Sleep(Random(225, 250))
MouseClick("left", 520, 450)
WEnd

; Glider.log leeren, indem die Datei gelöscht und und eine neue erstellt wird

Func ClearLog ()
If FileExists($GliderLog) Then FileDelete($GliderLog)
If Not _FileCreate($GliderLog) Then
MsgBox(4096, "Error", " Error Creating/Resetting Glider.log. error:" & @error)
EndIf
EndFunc ;==>ClearLog

; Chat.log leeren, indem die Datei gelöscht und und eine neue erstellt wird

Func ClearChatLog ()
If FileExists($ChatLog) Then FileDelete($ChatLog)
If Not _FileCreate($ChatLog) Then
MsgBox(4096, "Error", " Error Creating/Resetting Chat.log. error:" & @error)
EndIf
EndFunc ;==>ClearChatLog

; 30-32 Sekunden warten (während das BG betreten wird) und Glider mit dem Keyboard Shortcut (Double-CTRL + G) starten

Func StartBotting ()
Sleep(Random(30000, 32000))
Send("{LCTRL}")
Sleep(Random(500, 700))
Send("{LCTRL}")
Sleep(Random(800, 900))
Send("g")
EndFunc ;==>StartBotting

; WoW Glider mit dem Keyboard Shortcut (ESC) stoppen

Func StopBotting ()
Sleep(Random(225, 250))
Send("{ESC}")
Sleep(Random(200, 215))
Send("{ESC}")
EndFunc ;==>StopBotting

; BG wiederbetreten

Func ReBG ()
Sleep(Random(200, 300))
Send("{a down}")
Sleep(Random(200, 210))
Send("{a up}")
Sleep(Random(225, 325))
Send("{s down}")
Sleep(Random(5400, 5500))
Send("{s up}")
Sleep(1000)
; Join BG Button
MouseClick("left", 200, 560)
Send("{w down}")
Sleep(Random(3000, 3100))
Send("{w up}")
Sleep(Random(235, 335))
; Attach Glider
MouseClick("left", 1130, 930)
EndFunc ;==>ReBG

; Rejoin BG Bug

Func ReBGBug ()
Sleep(Random(5200, 5300))
Send("{d down}")
Sleep(Random(200, 210))
Send("{d up}")
Sleep(Random(225, 325))
Send("{w down}")
Sleep(Random(3000, 3100))
Send("{w up}")
Sleep(1000)
; Join BG Button
MouseClick("left", 200, 560)
Send("{s down}")
Sleep(Random(5400, 5500))
Send("{s up}")
EndFunc ;==>ReBGBug