2 Quick Nub Questions

[Ramsey]

When I hit enter on the chat bar, it goes *Ding!* how do I stop this?

How do I make my game appear on the task bar and as just 1 bar?

[Ramsey]

Cool, it works, thanks. Does anyone know the answer to the second question?

How do I make my game appear on the task bar and as just 1 bar?

[Zalos]

Screenshot of what you mean please? because As Far As I know it should only be 1 bar

[Stomach Pulser]

It appears as more than one?

[Dr. Spoon]

I think he means the separate windows that pop-up things like:
trade window
train window
ect..

the only way to make them all appear in one task bar button
would be to combine them all into the main client window
as far as i know
unless you move everything over to an MDI form (could work for your)

[Robin]

Or just only have the main window have ShowInTaskBar as true.

[Ramsey]

(server side)I made my game 16x16 now and my server gets an error while compiling, but my client is compiling perfectly and when I run the server through VB6 there are no errors. No errors saving the map too.
I changed this:

Code:

Public Const MAX_MAPX = 49
Public Const MAX_MAPY = 28

There's and error here and I did not even touch it:

Code:

Sub ConvertOldMapsToNew()
Dim FileName As String
Dim i As Long
Dim f As Long
Dim X As Long, Y As Long
Dim OldMap As OldMapRec
Dim NewMap As MapRec

    For i = 1 To MAX_MAPS
        FileName = App.Path & "\maps\map" & i & ".dat"
        
        ' Get the old file
        f = FreeFile
        Open FileName For Binary As #f
            Get #f, , OldMap
        Close #f
        
        ' Delete the old file
        Call Kill(FileName)
        
        ' Convert
        NewMap.Name = OldMap.Name
        NewMap.Revision = OldMap.Revision + 1
        NewMap.Moral = OldMap.Moral
        NewMap.Up = OldMap.Up
        NewMap.Down = OldMap.Down
        NewMap.Left = OldMap.Left
        NewMap.Right = OldMap.Right
        NewMap.Music = OldMap.Music
        NewMap.BootMap = OldMap.BootMap
        NewMap.BootX = OldMap.BootX
        NewMap.BootY = OldMap.BootY
        NewMap.Shop = OldMap.Shop
        For Y = 0 To MAX_MAPY
            For X = 0 To MAX_MAPX
                NewMap.Tile(X, Y).Ground = OldMap.Tile(X, Y).Ground
                NewMap.Tile(X, Y).Mask = OldMap.Tile(X, Y).Mask
                NewMap.Tile(X, Y).Anim = OldMap.Tile(X, Y).Anim
                NewMap.Tile(X, Y).Fringe = OldMap.Tile(X, Y).Fringe
                NewMap.Tile(X, Y).Type = OldMap.Tile(X, Y).Type
                NewMap.Tile(X, Y).Data1 = OldMap.Tile(X, Y).Data1
                NewMap.Tile(X, Y).Data2 = OldMap.Tile(X, Y).Data2
                NewMap.Tile(X, Y).Data3 = OldMap.Tile(X, Y).Data3
            Next X
        Next Y
        
        For X = 1 To MAX_MAP_NPCS
            NewMap.Npc(X) = OldMap.Npc(X)
        Next X
        
        ' Set new values to 0 or null
        NewMap.Indoors = NO
        
        ' Save the new map
        f = FreeFile
        Open FileName For Binary As #f
            Put #f, , NewMap
        Close #f
    Next i
End Sub

It highlights this(I did not mess with any of these either):

Code:

Dim NewMap As MapRec

And says:

Too many local, nonstatic variables

Anyone have the fix or have a suggestion?

[Stomach Pulser]

DiD you delete all your maps after you switched the tile constants?

[Ramsey]

It's a compile error, and yes.

[Ramsey]

lol Possibly...

So do you know how to fix it?

[Ramsey]

get rid of some local non-static variables?

edit*How do I turn one into a static variable?

[Dr. Spoon]

like this
when you dim your maps
just use
public Map() as maprec
then later on use
redim Map(1 to MAX_MAPS) as maprec

the simple act of redim-ing it seems to resolve this problem

[Ramsey]

Thanks for replying to my message Spoon, I just deleted the sub. lol