'dpk
'1.0
Sub dpk_event_ServerInfo(Message)
If Match(LCase(Message), "*: *, (mutual) using diablo ii lord of destruction in the game *dpk*.", False) then
Dim TEMP_User, TEMP_Game
TEMP_User = Split(Split(Message, ": ")(1), ",")(0)
TEMP_Game = Replace(Split(Message, "game ")(1), "(private)", vbNullString)
AddQ TEMP_User & " is playing in the game " & TEMP_Game
End If
End Sub

Sub dpk_event_UserTalk(Username, Flags, Message, Ping)
If Left(Message, 6) = BotVars.Trigger & "game" then _
AddQ "/f l"
End Sub

Sub dpk_event_WhisperFromUser(Username, Flags, Message)
If Match(LCase(Message), "your friend * entered a diablo ii lord of destruction game called *dpk*.", False) then
Dim TEMP_User, TEMP_Game
TEMP_User = Split(Message)(2)
TEMP_Game = Split(Message, "called ")(1)
AddQ TEMP_User & " entered in " & TEMP_Game
End If
End Sub

Sub dpk_event_PressedEnter(Text)
Call dpk_event_UserTalk(BotVars.Username, 0, Text, 0)
End Sub