20-08-2006, 06:06 PM
You mean like this
Server Side
Client Side
I'm not sure if theres anyother code to it, thats the code I had before but I can't get it to load into the text box on frmMainMenu
Server Side
Code:
' :::::::::::::::::::::
' :: Set NEWS packet ::
' :::::::::::::::::::::
If LCase(Parse(0)) = "setNews" Then
' Prevent hacking
If GetPlayerAccess(Index) < ADMIN_MAPPER Then
Call HackingAttempt(Index, "Admin Cloning")
Exit Sub
End If
Call PutVar(App.Path & "\data\News.ini", "NEWS", "Msg", Parse(1))
Call GlobalMsg("News changed to: " & Parse(1), BrightCyan)
Call AddLog(GetPlayerName(Index) & " changed NEWS to: " & Parse(1), ADMIN_LOG)
Exit Sub
End If
Client Side
Code:
Sub SendNEWSChange(ByVal NEWS As String)
Dim packet As String
packet = "SETNEWS" & SEP_CHAR & NEWS & SEP_CHAR & END_CHAR
Call SendData(packet)
End Sub