Put this at the top of your script
Const QUIT_ON_TELL = 1
Dim GoodPlayer(4)
GoodPlayer(0) = "1Joe"
GoodPlayer(1) = "1Test"
GoodPlayer(2) = "1Bill"
GoodPlayer(3) = "1Tom"
GoodPlayer(4) = "1Edd"
Dim fso, InFile, Line, Path ' Set up File Vars
Const ForReading = 1 ' Flag to open file up for reading
Path = root.GetExhumeDirectory ' Find the root directory for VGExtreme
FileName = root.GetExhumeDirectory & "\VGLogDump.log" ' Name of outputfile
Set fso = CreateObject("Scripting.FileSystemObject") '
FileIO.TouchFile(FileName) ' If file does not exist create it
Set Infile = fso.OpenTextFile(FileName, ForReading) ' Log file setup
Dim TellName, TellNameStart, TellNameEnd, TempTime, TempExp ' Vars for Checking the log file
Dim Experience, ExpStart, ExpEnd, StartingExperience, StartingTime ' Vars for CheckLog
'*************************************************************'
'* Opens up Log file and Moves to the bottom of it
'*************************************************************'
'
Function OpenLogFile () ' Opens up Log File
Do While Not (Infile.AtEndOfStream) ' Reads Log File till it is at EOF
Line = Infile.ReadLine
Loop
OpenLogFile= True
EnableChatLog ' Turn the ChatLog on
End Function
'********************************'
'* Pattern Search *'
'********************************'
' This Function Should Work for Any Class
'
Function RegExpTest(patrn, strng) ' Pattern Search Function
Dim regEx, Match, Matches ' Create variable.
Set regEx = New RegExp ' Create a regular expression.
regEx.Pattern = patrn ' Set pattern.
regEx.IgnoreCase = True ' Set case insensitivity.
regEx.Global = True ' Set global applicability.
Set Matches = regEx.Execute(strng) ' Execute search.
For Each Match in Matches ' Iterate Matches collection.
RetStr = RetStr & Match.FirstIndex ' & ". Match Value is '"
Next
RegExpTest = RetStr
End Function
Function Check_Log
Dim a
Do While not (Infile.atEndOfStream) ' do while not EOF
Line = Infile.ReadLine ' Read a Line from InFile
if Instr (Line, "From") then
TellNameStart = (RegExpTest("<pcname>", Line)) ' Searches for <pcname>
TellNameStart = TellNameStart + 9
TellNameEnd = (RegExpTest("</l", Line)) ' Searches for the , space in the line
TellNameEnd = TellNameEnd - TellNameStart + 1
TellName = Mid(Line, TellNameStart,TellNameEnd)
log.debuglog " You just got a Tell From " & TellName
for a = 0 to ubound(GoodPlayer) ' Checks if the mob is in the harvest array
if GoodPlayer(a) = TellName then
Log.debuglog " This is a Friendly Player "
exit for
End if
Next
If (QUIT_ON_TELL = 1) then ' Flag if set to 1 will exit game
VGSendCommand "/quit" ' Quit the game the bot just got a tell.
End if
End if
Loop
End Function
Modify the spot under """"If (QUIT_ON_TELL = 1) then"""""
to react to a tell according to your specifiactions. for example Sound.PlaySoundFile "Ring.wav"
This is not my work. Thank Binafus
