Mirage Source 4

[Dragoons Master]

Code:

Sub SendWelcome(ByVal Index As Long)
Dim MOTD As String


    ' Send them welcome
    Call PlayerMsg(Index, "Type /help for help on commands.  Use arrow keys to move, hold down shift to run, and use ctrl to attack.", Cyan)
    ' Send them MOTD
    MOTD = GetVar(App.Path & "\data\motd.ini", "MOTD", "Msg")
    If Trim$(MOTD)  vbNullString Then
        Call PlayerMsg(Index, "MOTD: " & MOTD, BrightCyan)
    End If
    
    ' Send whos online
    Call SendWhosOnline(Index)
End Sub

That's a very bad thing to do. You read the same thing every time someone connects.