Welp to finish this script

[savage-xp]

Hummm ...so great elders...can you help me to find a script to show a list what is new in a hub like:

21/4/03- Add Breath of Fire 4 (pc-Cd-Rom)
23/6/03- The Hulk ( Divx)
3/4/03- Mettalica (Audio Cd)


Simply the user just type +news or +Hubnews


Is possible to do?
Do you like my idea?I`d like to put in my hub

Cheers

Savage-XP



Well i started to to the script but he only let do add just a string.



The original working script


Sub DataArival(curUser, curData)

If Left(curData, 1) = "<" Then
lPos = InStr(1, CurData, "> ")
sTheText = Mid(CurData, lPos + 2)
If Left(sTheText, = "+news" Then


tmpMsg = vbCrLf + "Aqui está a lista de tudo o que há de novo no hub! :" + vbCrLf + _
"Breath of Fire IV (PC-CD-ROM)"





curUser.PrivateMessage "List of news", cstr(tmpMsg )
frmHub.DoEventsForMe
Exit Sub
End If
End If
End Sub

---------------------------

But i want to do this ( to put more stuff)



So far so good , but how i can put more entries?

If i do:

Sub DataArival(curUser, curData)

If Left(curData, 1) = "<" Then
lPos = InStr(1, CurData, "> ")
sTheText = Mid(CurData, lPos + 2)
If Left(sTheText, = "+news" Then


tmpMsg = vbCrLf + "Aqui está a lista de tudo o que há de novo no hub! :" + vbCrLf + _
"Breath of Fire IV (PC-CD-ROM)"
"Dragon Ball Hentai and the Space gays"




curUser.PrivateMessage "List of news", cstr(tmpMsg )
frmHub.DoEventsForMe
Exit Sub
End If
End If
End Sub


------------------------------

If i do this cause me a error 1024


Well can you guys help me?

[InnerCity]

tmpMsg = vbCrLf + "Aqui está a lista de tudo o que há de novo no hub! :" + vbCrLf + _
"Breath of Fire IV (PC-CD-ROM)" + vbCrLf + _
"Dragon Ball Hentai and the Space gays"


go here http://gadget.no-ip.info/
and download bulletin script, you can easily modify it to work only for show the list
you will have the list with the date when you added every entry in an acumulative order

[savage-xp]

thks but is finished , Vbulletin crash my system ya go the code
Thks to DepressiveSantaClaus to help me.