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?

[Todi]

Why reinvent the wheel? Gadget has made a trigger script superior to most, called "triggerbot2", the adress to his scripts are somwehere here on the forum =)

[HaArD]

http://gadget.no-ip.info/