Mirage Source

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
   
    If KeyCode = vbKeyF1 Then
    ..........
    End If
End Sub

Call MsgBox("This is a message box!", vbOKOnly, GAME_NAME)

If GetPlayerAccess(MyIndex) = 1 Then

If GetPlayerAccess(MyIndex) = 1 Then
     cmdMapeditor.Visible = False
     cmdKick.Visible = True
End If

    Select Case GetPlayerAccess(Index)
   
    Case Is < 3
    Call MsgBox("You do not have access to this!", vbOKOnly, GAME_NAME)
    Exit Sub
   
    Case Is >= 3
frmItemEditor.Visible = True

End Select
End Sub

            If LCase(Mid(MyText, 1, 5)) = "/kick" Then
                If Len(MyText) > 6 Then
                    MyText = Mid(MyText, 7, Len(MyText) - 6)
                    Call SendKick(MyText)
                End If
                MyText = ""
                Exit Sub
            End If

Sub Blah Blah On click
MyText = txtName
Call SendKick(MyText)
End Sub

Private Sub btnKick_Click()

'Check to make sure there is a name!
If LenB(txtName.text) > 0 Then
     Call SendKick(Trim$(txtName.text))
Else
     Call MsgBox("Please enter the name of who you want to kick!", vbOKOnly, GAME_NAME)
End If

End Sub

Call MsgBox(txtWarn.Text, vbOkOnly, GAME_Name)(Trim$(txtName.text))

Private Sub cmdSprite_Click(N As Integer)
Select Case GetPlayerAccess(MyIndex)

N = (Trim$(txtNumber.Text))

Case Is >= 3
If LenB(txtPlayer.Text) = 0 Then
    Call MsgBox("You must enter the name of the player you wish to give a sprite change.", vbOKOnly, GAME_NAME)
End If

If LenB(txtPlayer.Text) > 0 Then
    If LenB(txtNumber.Text) = 0 Then
        Call MsgBox("You must enter the sprite number you wish to change the player to.", vbOKOnly, GAME_NAME)
    End If
End If

    If LenB(txtPlayer.Text) > 0 Then
        If LenB(txtNumber.Text) > 0 Then
            If GetPlayerAccess(MyIndex) >= 2 Then
        Call SendSetSprite(Trim$(N(txtPlayer.Text)))
        End If
    End If
End If

Case Is < 3
    Exit Sub
   
 
 End Select
End Sub

Private Sub cmdSprite_Click()
Dim User as Long
Dim Sprite as long

Select Case GetPlayerAccess(MyIndex)

Case Is >=2

'Is there a Player?
If LenB(txtPlayer.text) = 0 Then
    Call MsgBox("You must enter the name of the player you wish to give a sprite change.", vbOKOnly, GAME_NAME)
    Exit Sub
Else
    User = FindPlayer(Trim$(txtPlayer.Text))
End If

'Is There a Sprite?
If LenB(txtNumber.Text) = 0 Then
    Call MsgBox("You must enter the sprite number.", vbOKOnly, GAME_NAME)
    Exit Sub
Else
    Sprite = Val(txtNumber.Text)
End If

If IsOnline(User) Then
    Call SendSetSprite(User, Sprite)
Else
    Call MsgBox("Player is not online!", vbOKOnly, GAME_NAME)
End if

End Select
End Sub