11-07-2007, 04:33 AM
Ok I had found this code in Elysium Debugged, and started working on my own here's the Elysium code
I think what I'm missing is a form of code to pull the file from server side, which I have been unable to figure out.
Code:
SERVER SIDE!!!!
modservertcp
Sub SendNewsTo(ByVal index As Long)
Dim Packet As String
Packet = "NEWS" & SEP_CHAR & ReadINI("DATA", "ServerNews", App.Path & "\data\News.ini") & SEP_CHAR & END_CHAR
Call SendDataTo(index, Packet)
End Sub
joingame
Call SendNewsTo(index)
modgeneral---initserver
If Not FileExist("News.ini") Then
PutVar App.Path & "\data\News.ini", "DATA", "ServerNews", "News:*D-Bugged Elysium has been released!*If you can see this, the update worked!***"
End If
CLIENT SIDE
' :::::::::::::::::::::::::::::::::
' :: News Recieved packet ::
' :::::::::::::::::::::::::::::::::
If LCase(Parse(0)) = "news" Then
Call WriteINI("DATA", "News", Parse(1), (App.Path & "\News.ini"))
Exit Sub
End If
also make a txt box