This I created for filter, it sends a bunch of <hr>'s (Horizontal lines) to an IM
ElseIf InStr(1, TheStuff, "Nemisis.Hline") <> 0 Then 'Nemisis H-Lines
Dim killerclick3 As String
Dim a As Long
killerclick3 = "<tt>aim:addbuddy=<hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr><hr>"
killerclick3 = killerclick3 + killerclick3
a = 3
Do While a > 0
SendPacket 3, ChrA("H2A 2 0 0 0 0") & SendIM(Mid(TheStuff, 17, 8), Mid(TheStuff, 28, A1), killerclick3), 1
ListAdd "Nemisis [Killer Click]"
a = a - 1
Loop
Exit Sub
''' This should be an elseif of Case 2 in the Proccess Data Section of the source.