Public Const TILE_TYPE_SPRITE = 9

           Call SendDataToMap(GetPlayerMap(Index), "MAPKEY" & SEP_CHAR & x & SEP_CHAR & y & SEP_CHAR & 1 & SEP_CHAR & END_CHAR)
             Call MapMsg(GetPlayerMap(Index), "A door has been unlocked.", White)
        End If
    End If

    'Check for sprite tile and then change the sprite
    If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Type = TILE_TYPE_SPRITE Then
        spritenum = Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Data1
             Call SetPlayerSprite(Index, spritenum)
        Call SendPlayerData(Index)
    End If

If .Type = TILE_TYPE_KEYOPEN Then Call DrawText(TexthDC, x * PIC_X + 8, y * PIC_Y + 8, "O", QBColor(white))

If .Type = TILE_TYPE_SPRITE Then Call DrawText(TexthDC, x * PIC_X + 8, y * PIC_Y + 8, "S", QBColor(BrightBlue))

                     If frmMirage.optKeyOpen.Value = True Then
                           .Type = TILE_TYPE_KEYOPEN
                           .Data1 = KeyOpenEditorX
                           .Data2 = KeyOpenEditorY
                           .Data3 = 0
                     End If

                      If frmMirage.optsprite.Value = True Then
                           .Type = TILE_TYPE_SPRITE
                           .Data1 = SpriteNum
                           .Data2 = 0
                           .Data3 = 0
                     End If

frmsetsprite.Show vbModal

Private Sub cmdcancel_Click()
Unload Me
End Sub

Private Sub cmdspritetile_Click()
    SpriteNum = scrlsprites.Value
Unload Me
End Sub

Private Sub Form_Load()
    picsprites.Picture = LoadPicture(App.Path & "\graphics\sprites.bmp")
End Sub

Private Sub scrlsprites_Change()
lblspritenum.Caption = STR(scrlsprites.Value)
End Sub

Private Sub tmrsprite_Timer()
    Call BitBlt(frmsetsprite.picsprite.hdc, 0, 0, PIC_X, PIC_Y, frmsetsprite.picsprites.hdc, 3 * PIC_X, frmsetsprite.scrlsprites.Value * PIC_Y, SRCCOPY)
End Sub