Class button

[Jumbofile]

I would like to make it so if you click a button in the char creation screen it will pick the class.

If you click the button that says mage you will be a mage.

I need the code for this because i cant figure out how to do it.

[jcsnider]

What engine are you using?

[Stein]

It'll likely be a hardcoded system over a standard dynamic one as the dropdown box is. But it's really not that hard, a button will set the value for a variable which is the class chosen, and send that over instead of the dropdown box index.

[Jumbofile]

im using 3.0

like i said i cant code i wouldnt know where to start.

[jcsnider]

Simply add the button to your frmMenu form in the character creation panel or whatever and in double click on the button to get into its code and simply put,

newCharClass = 1

newCharSprite = 0

(replace 1 with whatever)

And with that you can remove the dropdown list and go from there. If you make more buttons you just replace 1 with 2, 3, and so on.

-JC

[Jumbofile]

what would i do with this since i got rid of cmbclass

```

If frmMenu.optMale.Value Then
Call SendAddChar(frmMenu.txtCName, SEX_MALE, frmMenu.cmbClass.ListIndex + 1, newCharSprite)
Else
Call SendAddChar(frmMenu.txtCName, SEX_FEMALE, frmMenu.cmbClass.ListIndex + 1, newCharSprite)
End If
End If

```

[jcsnider]

Replace frmMenu.cmbClass.ListIndex + 1 with newCharClass

[Jumbofile]

it says it cant find newCharClass

[jcsnider]

Weird, I must have an editted 3.0 I am looking at. Anyways, find

Public newCharSprite As Long

and add this below

Public newCharClass As Long

[Jumbofile]

what do i do about this

```

frmMenu.cmbClass = clear

For i = 1 To Max_Classes
frmMenu.cmbClass.AddItem Trim$(Class(i).Name)
Next

frmMenu.cmbClass.ListIndex = 0
n = frmMenu.cmbClass.ListIndex + 1

newCharSprite = 0

```

[jcsnider]

Remove it all with the exception of that last line, newCharSprite = 0

[Jumbofile]

```

If frmMenu.optMale.Value = True Then
Sprite = Class(frmMenu.cmbClass.ListIndex + 1).MaleSprite(newCharSprite)
Else
Sprite = Class(frmMenu.cmbClass.ListIndex + 1).FemaleSprite(newCharSprite)
End If

```
do i delete this too

[jcsnider]

Nope edit it to this…

```
If frmMenu.optMale.Value = True Then
Sprite = Class(newCharClass).MaleSprite(newCharSprite)
Else
Sprite = Class(newCharClass).FemaleSprite(newCharSprite)
End If

```

[Jumbofile]

it just says connect, sending character addition

[Jumbofile]

what do i do with this?

```

If frmMenu.cmbClass.ListIndex = -1 Then Exit Sub

```

[jcsnider]

If newCharclass = 0 then exit sub

[Jumbofile]

Im dumbfounded.

it did this for 6 hours


[jcsnider]

Was there an error on the server or when you closed the client and re-opened did you have your character?

[Jumbofile]

its not giving an error, its just stays on stays at that point.

I tried reopening but i dint have a character

[jcsnider]

Alright its broke then XD. If you want to zip up your source (server and client) and pm it to me I will see whats wrong and tell you what to do to fix it.

[Jumbofile]

ok i think i found the problem.

I guess i had a typo in my classes file.

It was supposed to be sprite = 2 but it was sprite = 22 so i could find a sprite and gave the error.

Its fixed thank you for helping.