Sprite Selection

[Tony]

Sprite Selection
This was done %100 by Pando

You get to select any sprite of your desire at New Character.
This is just a simple modification, a little bittle this and a little bit of that :wink:

• First lets setup our controls - frmNewChar
  
  picSpriteLoader - AutoRedraw AutoResize Visible False
  lblDown with caption of ""
  txtSprite with text of "0" Visible False
  picSprite
  tmrSprite Interval 1

In lblDown (code) add

(For 32x64 Sprites, CHALLENGE! - Change to 32x32)

Code:

Dim Cap As Integer

    Cap = txtSprite.Text
    If txtSprite.Text = "2" Then
        txtSprite.Text = "0"
    ElseIf txtSprite.Text = "0" Then
    
    Else
    txtSprite.Text = Cap - 2
     End If

In lblUp (Code you f'in noob [b]

[Gawian]

Sorry if I'm necro-posting but I was wondering what would have to be done to make this code so for both male and female you could set 4 different sprites for each

[Tony]

Create 8 pic boxes, and when the user clicks on the box make txtSprite.text = that sprite number..

Fairly simple..\

[Robin]

Because adding 8 of VB's heaviest control is always the solution.

Sarcastic bastard!

Kuja, you shouldn't really do it like this. Loading up the DX Surfaces a bit earlier would be an idea, then simply bitblt from those.

Ps. I love your avatar, Dave.

[Gawian]

Thanks for the info