Code Request

[Elihu]

Can someone message me on how to put something like this in my project? In frmEditor_Map I would like to set up opt buttons that will switch the tileset folder. Like A B C D E like in RPG VX. It'll make me be able to arrange my tilesets easier.

[Guest]

We don't do code requests. We'll help you if you've made a start though.

[Elihu]

> We don't do code requests. We'll help you if you've made a start though.

I did make a start, I created the buttons and seemed to have edited the code in the write way but when I changed the buttons the folder would change. The tileset from A would still be there.

[Guest]

Well we need to see some code to help you.

[Elihu]

> Well we need to see some code to help you.

I'll have to remake it cause I closed vb6 cause my head started to hurt. But I remember that the code I edited looks something like this now.

```

Public Sub CheckTilesets()

Dim I As Long

' If debug mode, handle error then exit out

If Options.Debug = 1 Then On Error GoTo errorhandler I = 1

NumTileSets = 1

If frmEditor_Map.optTileset(1).value = True Then

ReDim Tex_Tileset(1)

While FileExist(GFX_PATH & "tilesets\A\" & I & GFX_EXT)

ReDim Preserve Tex_Tileset(NumTileSets)

NumTextures = NumTextures + 1

ReDim Preserve gTexture(NumTextures)

Tex_Tileset(NumTileSets).filepath = App.Path & GFX_PATH & "tilesets\A\" & I & GFX_EXT

Tex_Tileset(NumTileSets).Texture = NumTextures

NumTileSets = NumTileSets + 1

I = I + 1

Wend

end if

If frmEditor_Map.optTileset(2).value = True Then

ReDim Tex_Tileset(1)

While FileExist(GFX_PATH & "tilesets\B\" & I & GFX_EXT)

ReDim Preserve Tex_Tileset(NumTileSets)

NumTextures = NumTextures + 1

ReDim Preserve gTexture(NumTextures)

Tex_Tileset(NumTileSets).filepath = App.Path & GFX_PATH & "tilesets\B\" & I & GFX_EXT

Tex_Tileset(NumTileSets).Texture = NumTextures

NumTileSets = NumTileSets + 1

I = I + 1

Wend

end if

NumTileSets = NumTileSets - 1

' Error handler

Exit Sub

errorhandler:

HandleError "CheckTilesets", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext

Err.Clear

Exit Sub

End Sub

```

Maybe it looked like that after I edited it.

[DMF]

,,,,1 sekaru ur wrong many will help with out effort , there good % that dont code.

>.> really? why would you need that?? you got a slider for the tile sets.

[Guest]

> ,,,,1 sekaru ur wrong many will help with out effort , there good % that dont code.
>
> >.> really? why would you need that?? you got a slider for the tile sets.

No one's gonna go through all that effort. You have no clue about anything to do with programming so I guess you wouldn't have known that anyway.

[Elihu]

> ,,,,1 sekaru ur wrong many will help with out effort , there good % that dont code.
>
> >.> really? why would you need that?? you got a slider for the tile sets.

Got a shitload of tilesets and it takes a long time to go through them so I wanted to find a way to make the process of mapping not complicated with all that.

[Matt]

> Got a shitload of tilesets and it takes a long time to go through them so I wanted to find a way to make the process of mapping not complicated with all that.

I don't know how many you have, but if you have as many as you make it seem, do you really need so many?

I'd organize my tilesets instead of making seprate folders for them.

[Elihu]

> I don't know how many you have, but if you have as many as you make it seem, do you really need so many?
>
> I'd organize my tilesets instead of making seprate folders for them.

1: Tried that and failed.

2: I seem to have a lot of things, I use to always get an error cause I had too many folders of stuff.

I'll try to organize them again if you guys think I don't need something like this. Thanks.