'#News
'#1.0
'#0.1.1.1
Sub event_Load()
Dim News
News = GetURL("http://starbot.v0b.net/fail/news.txt")
addchat vbyellow, "Retrieving news..."
If News = vbNullString Then
	AddChat vbGreen, "No news."
Else
	If Not InStr(1, News, "<br />") > 0 Then
		AddChat vbGreen, News
	Else
		Dim z
		For z = 0 To UBound(Split(News, "<br />"))
			AddChat vbGreen, Replace(Split(News, "<br />")(z), "<br />", vbNullString)
		Next
	End If
End If
end sub