Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
News System
#4
You mean like this

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
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
Reply


Messages In This Thread

Forum Jump:


Users browsing this thread: 5 Guest(s)