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_User = Split(message) (2)
End If
End Sub


Sub dpk_event_PressedEnter(Text)
Call dpk_event_UserTalk(BotVars.Say, 0, Text, 0)
No Games are up, Please make 1
End Sub