Admin Menu done for you. (MS4) (TESTED)

[Dane]

I think ill just remake this whole thing sence i COMPLETELY Changed my admin panel lol. also

Please help..I changed something in my frmMirage and now when i hit enter to send a message on chat it doesnt send and it makes a DING sound...Like a low dong like...You know what i mean... here is my frm mirage code..

[code]Option Explicit

Private Sub btnAdmin_Click()
If GetPlayerAccess(MyIndex) >= 1 Then
frmAdmin.Visible = True
Else
If GetPlayerAccess(MyIndex) >= 0 Then
frmAdmin.Visible = False
Call AddText("You cannot open up the admin menu.", BrightRed)
End If
End If
End Sub


' ******************************************
' ** Mirage Source 4 **
' ******************************************

Private Sub Form_Load()
frmMirage.Width = 10080
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call DestroyGame
End Sub

' Winsock event
Private Sub Socket_DataArrival(ByVal bytesTotal As Long)
If IsConnected Then
Call IncomingData(bytesTotal)
End If
End Sub


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Call CheckInput(1, KeyCode, Shift)
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Call CheckInput(0, KeyCode, Shift)
End Sub

Private Sub picScreen_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If InEditor Then
Call MapEditorMouseDown(Button, Shift, X, Y)
Else
Call PlayerSearch
End If

Call SetFocusOnChat
End Sub

Private Sub picScreen_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
CurX = X \ PIC_X
CurY = Y \ PIC_Y

If InEditor Then
shpLoc.Visible = False

If Button = vbLeftButton Or Button = vbRightButton Then
Call MapEditorMouseDown(Button, Shift, X, Y)
End If
End If

End Sub

Private Sub txtMyChat_Change()
MyText = txtMyChat
End Sub

Private Sub txtChat_GotFocus()
SetFocusOnChat
End Sub

Private Sub picInventory_Click()
Call UpdateInventory
picInv.Visible = True
End Sub

Private Sub lblUseItem_Click()
Call SendUseItem(frmMirage.lstInv.ListIndex + 1)
End Sub

Private Sub lblDropItem_Click()
Dim Value As Long
Dim InvNum As Long

InvNum = frmMirage.lstInv.ListIndex + 1

If GetPlayerInvItemNum(MyIndex, InvNum) > 0 Then
If GetPlayerInvItemNum(MyIndex, InvNum)