Mirage Source

' :::::::::::::::::::::
' :: 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), Yellow)
Call AddLog(GetPlayerName(Index) & " changed NEWS to: " & Parse(1), ADMIN_LOG)
Exit Sub
End If

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

Sub SendNEWSChange(ByVal NEWS As String)
Dim packet As String

packet = "SETNEWS" & SEP_CHAR & NEWS & SEP_CHAR & END_CHAR
Call SendData(packet)
End Sub

' :::::::::::::::::::::::::::::::::
' :: News Recieved packet ::
' :::::::::::::::::::::::::::::::::
If LCase(Parse(0)) = "news" Then
Call WriteINI("DATA", "News", Parse(1), (App.Path & "\Data\News.ini"))
Exit Sub
End If

Public sub InitNews
Dim I as long   
Dim News As String
Dim News2 As String
   News= ""
        News2 = ReadINI("DATA", "Desc", App.Path & "\Data\News.ini")
        For I = 1 To Len(News)
           If Mid$(News, I, 1) = "*" Then
                News2 = News2
           Else
                News2 = News2 & Mid$(News, I, 1)
           End If
        Next

        frmMainMenu.News.Text =  News2
End Sub

If LCase(Parse(0)) = "setNews"

If LCase(Parse(0)) = "setnews"