CS:DE CTD

[iSnow]

Anybody else geting a CTD When making maps 50x50 or bigger? Happens to me all the time.

[peekay]

thats because you goto fix it :)

In frmEditor_MapProperties in
change your
Private Sub cmdOk_Click()

to
```

Private Sub cmdOk_Click()
    Dim i As Long
    Dim sTemp As Long
    Dim x As Long, x2 As Long
    Dim y As Long, y2 As Long, layerNum As Long
    Dim tempArr() As TileRec

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If Not IsNumeric(txtMaxX.Text) Then txtMaxX.Text = Map.MaxX
    If Val(txtMaxX.Text) < MAX_MAPX Then txtMaxX.Text = MAX_MAPX
    If Val(txtMaxX.Text) > MAX_BYTE Then txtMaxX.Text = MAX_BYTE
    If Not IsNumeric(txtMaxY.Text) Then txtMaxY.Text = Map.MaxY
    If Val(txtMaxY.Text) < MAX_MAPY Then txtMaxY.Text = MAX_MAPY
    If Val(txtMaxY.Text) > MAX_BYTE Then txtMaxY.Text = MAX_BYTE

    With Map
        .name = Trim$(txtName.Text)
        If lstMusic.ListIndex >= 0 Then
            .Music = lstMusic.List(lstMusic.ListIndex)
        Else
            .Music = vbNullString
        End If
        .Up = Val(txtUp.Text)
        .Down = Val(txtDown.Text)
        .left = Val(txtLeft.Text)
        .Right = Val(txtRight.Text)
        .Moral = cmbMoral.ListIndex
        .BootMap = Val(txtBootMap.Text)
        .BootX = Val(txtBootX.Text)
        .BootY = Val(txtBootY.Text)
        .BossNpc = scrlBoss.value

        ' set the data before changing it
        tempArr = Map.Tile
        x2 = Map.MaxX
        y2 = Map.MaxY
        ' change the data
        .MaxX = Val(txtMaxX.Text)
        .MaxY = Val(txtMaxY.Text)

        If x2 > .MaxX Then x2 = .MaxX
        If y2 > .MaxY Then y2 = .MaxY

        ' redim the map size
        ReDim Map.Tile(0 To .MaxX, 0 To .MaxY)

        For x = 0 To x2
            For y = 0 To y2
                .Tile(x, y) = tempArr(x, y)
            Next
        Next

        initAutotiles
    End With

    ' cache the shit
    ClearTempTile
    Unload frmEditor_MapProperties

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "cmdOk_Click", "frmEditor_MapProperties", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

```

[Robin]

CS:DE has a broken graphics engine.

[shadowwulf]

Really? Other than increasing map size I haven't noticed an issue gfx-wise.

[Robin]

That's the problem with bugs. Some people get them some people don't.

The graphics engine in Crystalshire was severely broken but I never got a single error myself.

It was fixed by completely replacing the graphics engine recently.

[Rithy58]

I can confirm that. CS:DE's current graphic engine have some issues. Memory Management maybe?
I tried to fix it rather than replace it since I don't know what to replace it with or even how but either way, no luck. I wish Robin would release that fixed version of CS:DE. And maybe include a better system of GUI because adding/editing buttons and GUI Windows is really a hassle. But I don't want to ask too much from him. He had give us alot already.

Sincerely,
Rithy

[Robin]

It's a large amount of work with very little return. I've made it very clear that I'm weary of releasing anything on here due to the people who are dedicating their time to stealing my stuff.

All my spare time is currently spent working on commissioned projects so I simply can't justify spending half a day replacing the graphics engine and GUI system in a source code I released because of the actions of thieves and liars.

[iSnow]

Alright, made the changes to my source. Thanks Peekay