Admin Msg - Printable Version

Admin Msg - Printable Version

+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Source Code Development (https://mirage-engine.uk/forums/forumdisplay.php?fid=51)
+----- Forum: Mirage Source 4 (Visual Basic 6) (https://mirage-engine.uk/forums/forumdisplay.php?fid=44)
+------ Forum: Bugs Reports (https://mirage-engine.uk/forums/forumdisplay.php?fid=9)
+------ Thread: Admin Msg (/showthread.php?tid=2744)

Admin Msg - Nean - 13-04-2009

= is shown in your message when you send admin messages. Easy fix.

Replace:

Code:
' Admin Message

        If Left$(ChatText, 1) = "=" Then

            If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then

                ChatText = Mid$(ChatText, 2, Len(ChatText) - 1)

                If Len(ChatText) > 0 Then

                    Call AdminMsg(MyText)

                End If

                MyText = vbNullString

                frmMirage.txtMyChat.Text = vbNullString

                Exit Sub

            End If

        End If

Code:
' Admin Message

        If Left$(ChatText, 1) = "=" Then

            If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then

                ChatText = Mid$(ChatText, 2, Len(ChatText) - 1)

                If Len(ChatText) > 0 Then

                    Call AdminMsg(ChatText)

                End If

                MyText = vbNullString

                frmMirage.txtMyChat.Text = vbNullString

                Exit Sub

            End If

        End If