TellBot : EverQuest 2 Submissions

; ----------------------------------------------------------------------------
; Everquest II Tellbot
; By JoshDB
; ----------------------------------------------------------------------------
; To run:
;
; Fill in Server with the server you'll be playing on, Player with the character to be controlled, and $Anchor with the character that
; will be controlling the other.
$Anchor = "Your Controlling Character"
$Server = "Your Server"
$Player = "Your Player to be Controlled"
;
; Start the bot.  To control the second character, just send it tells containing the commmand you want it to use!
; List of commands:
;
;TB_US_T1_1 - Use slot 1 in the first hotkeys tab
;TB_US_T1_2 - Use slot 2 in the first hotkeys tab
;TB_US_T1_3 - Use slot 3 in the first hotkeys tab
;TB_US_T1_4 - Use slot 4 in the first hotkeys tab
;TB_US_T1_5 - Use slot 5 in the first hotkeys tab
;TB_US_T1_6 - Use slot 6 in the first hotkeys tab
;TB_US_T1_7 - Use slot 7 in the first hotkeys tab
;TB_US_T1_8 - Use slot 8 in the first hotkeys tab
;TB_US_T1_9 - Use slot 9 in the first hotkeys tab
;TB_US_T1_0 - Use slot 0 in the first hotkeys tab
;TB_US_T1_- - Use slot - in the first hotkeys tab
;TB_US_T1_= - Use slot = in the first hotkeys tab
;
;TB_US_T2_1 - Use slot 1 in the second hotkeys tab
;TB_US_T2_2 - Use slot 2 in the second hotkeys tab
;TB_US_T2_3 - Use slot 3 in the second hotkeys tab
;TB_US_T2_4 - Use slot 4 in the second hotkeys tab
;TB_US_T2_5 - Use slot 5 in the second hotkeys tab
;TB_US_T2_6 - Use slot 6 in the second hotkeys tab
;TB_US_T2_7 - Use slot 7 in the second hotkeys tab
;TB_US_T2_8 - Use slot 8 in the second hotkeys tab
;TB_US_T2_9 - Use slot 9 in the second hotkeys tab
;TB_US_T2_0 - Use slot 0 in the second hotkeys tab
;TB_US_T2_- - Use slot - in the second hotkeys tab
;TB_US_T2_= - Use slot = in the second hotkeys tab
;
;TB_US_T3_1 - Use slot 1 in the third hotkeys tab
;TB_US_T3_2 - Use slot 2 in the third hotkeys tab
;TB_US_T3_3 - Use slot 3 in the third hotkeys tab
;TB_US_T3_4 - Use slot 4 in the third hotkeys tab
;TB_US_T3_5 - Use slot 5 in the third hotkeys tab
;TB_US_T3_6 - Use slot 6 in the third hotkeys tab
;TB_US_T3_7 - Use slot 7 in the third hotkeys tab
;TB_US_T3_8 - Use slot 8 in the third hotkeys tab
;TB_US_T3_9 - Use slot 9 in the third hotkeys tab
;TB_US_T3_0 - Use slot 0 in the third hotkeys tab
;TB_US_T3_- - Use slot - in the third hotkeys tab
;TB_US_T3_= - Use slot = in the third hotkeys tab
;
;TB_DC_Jump - Makes the character jump
;TB_DC_Follow Me - Makes the character follow the anchor
;TB_DC_Follow Current Target - Makes the character follw the current target
;TB_DC_Target Group Member #1 - Makes the character target group member #1
;TB_DC_Target Group Member #2 - Makes the character target group member #2
;TB_DC_Target Group Member #3 - Makes the character target group member #3
;TB_DC_Target Group Member #4 - Makes the character target group member #4
;TB_DC_Target Group Member #5 - Makes the character target group member #5
;TB_DC_Target Group Member #6 - Makes the character target group member #6
;TB_DC_Assist Me - Makes the character assist the anchor
;TB_DC_Assist Current Target - Makes the character follow the current target
;
;TB_DC_Exit - Exits bot
;
; ----------------------------------------------------------------------------


$Loop = 1

sleep(1000)

While $Loop = 1
If FileExists("C:\Program Files\Sony\EverQuest II\logs\" & $Server & "\eq2log_" & $Player & "1.txt") Then FileDelete("C:\Program Files\Sony\EverQuest II\logs\" & $Server & "\eq2log_" & $Player & "1.txt")
FileCopy("C:\Program Files\Sony\EverQuest II\logs\" & $Server & "\eq2log_" & $Player & ".txt","C:\Program Files\Sony\EverQuest II\logs\Blackburrow\eq2log_Ranjit1.txt")
$logtext = FileRead ("C:\Program Files\Sony\EverQuest II\logs\" & $Server & "\eq2log_" & $Player & "1.txt", 10000)
$string = String($logtext)
_CheckForCommands()
_CheckForSkills()
wEnd

Func _Clear()
$log = FileOpen("C:\Program Files\Sony\EverQuest II\logs\" & $Server & "\eq2log_" & $Player & ".txt", 2)
FileClose($log)
EndFunc

Func _CheckForSkills()
$result = StringInStr($string, "TB_US_T1_1")
if $result > 0 Then
 send("1")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T1_2")
if $result > 0 Then
 send("2")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T1_3")
if $result > 0 Then
 send("3")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T1_4")
if $result > 0 Then
 send("4")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T1_5")
if $result > 0 Then
 send("5")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T1_6")
if $result > 0 Then
 send("6")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T1_7")
if $result > 0 Then
 send("7")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T1_8")
if $result > 0 Then
 send("8")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T1_9")
if $result > 0 Then
 send("9")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T1_0")
if $result > 0 Then
 send("0")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T1_-")
if $result > 0 Then
 send("-")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T1_=")
if $result > 0 Then
 send("=")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T2_1")
if $result > 0 Then
 send("^1")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T2_2")
if $result > 0 Then
 send("^2")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T2_3")
if $result > 0 Then
 send("^3")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T2_4")
if $result > 0 Then
 send("^4")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T2_5")
if $result > 0 Then
 send("^5")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T2_6")
if $result > 0 Then
 send("^6")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T2_7")
if $result > 0 Then
 send("^7")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T2_8")
if $result > 0 Then
 send("^8")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T2_9")
if $result > 0 Then
 send("^9")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T2_0")
if $result > 0 Then
 send("^0")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T2_-")
if $result > 0 Then
 send("^-")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T2_=")
if $result > 0 Then
 send("^=")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T3_1")
if $result > 0 Then
 send("!1")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T3_2")
if $result > 0 Then
 send("!2")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T3_3")
if $result > 0 Then
 send("!3")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T3_4")
if $result > 0 Then
 send("!4")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T3_5")
if $result > 0 Then
 send("!5")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T3_6")
if $result > 0 Then
 send("!6")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T3_7")
if $result > 0 Then
 send("!7")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T3_8")
if $result > 0 Then
 send("!8")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T3_9")
if $result > 0 Then
 send("!9")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T3_0")
if $result > 0 Then
 send("!0")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T3_-")
if $result > 0 Then
 send("!-")
 _Clear()
EndIf
$result = StringInStr($string, "TB_US_T3_=")
if $result > 0 Then
 send("!=")
 _Clear()
EndIf
EndFunc

Func _CheckForCommands()
$result = StringInStr($string, "TB_DC_Jump")
if $result > 0 Then
 send("{SPACE}")
 _Clear()
EndIf
$result = StringInStr($string, "TB_DC_Follow Me")
if $result > 0 Then
 send("{ENTER}/follow " & $Anchor & "{ENTER}")
 _Clear()
EndIf
$result = StringInStr($string, "TB_DC_Follow Current Target")
if $result > 0 Then
 send("{ENTER}/follow{ENTER}")
 _Clear()
EndIf
$result = StringInStr($string, "TB_DC_Target Group Member #1")
if $result > 0 Then
 send("{F1}")
 _Clear()
EndIf
$result = StringInStr($string, "TB_DC_Target Group Member #2")
if $result > 0 Then
 send("{F2}")
 _Clear()
EndIf
$result = StringInStr($string, "TB_DC_Target Group Member #3")
if $result > 0 Then
 send("{F3}")
 _Clear()
EndIf
$result = StringInStr($string, "TB_DC_Target Group Member #4")
if $result > 0 Then
 send("{F4}")
 _Clear()
EndIf
$result = StringInStr($string, "TB_DC_Target Group Member #5")
if $result > 0 Then
 send("{F5}")
 _Clear()
EndIf
$result = StringInStr($string, "TB_DC_Target Group Member #6")
if $result > 0 Then
 send("{F6}")
 _Clear()
EndIf
$result = StringInStr($string, "TB_DC_Assist Me")
if $result > 0 Then
 send("{ENTER}/assist " & $Anchor & "{ENTER}")
 _Clear()
EndIf
$result = StringInStr($string, "TB_DC_Assist Current Target")
if $result > 0 Then
 send("{ENTER}/assist{ENTER}")
 _Clear()
EndIf
$result = StringInStr($string, "TB_DC_Exit")
if $result > 0 Then
 $Loop = 0
EndIf
EndFunc