scripts & contacts export support

This commit is contained in:
sShemet
2025-12-29 19:03:54 +05:00
parent 3475406781
commit cbad01271c
43 changed files with 102510 additions and 1534 deletions

View File

@@ -89,9 +89,9 @@
'int16 + int16 - Map width and (Heigth / 2) in words, or normal minimap by 1 byte
'int32 - FFFF0000
'int32 - Flood id
'int32 - User minimap offset
'int32 - Floor objects geometry offset
'int32 - User normal map offset
'int32 - Objects geometry offset
'int32 - Collisions & scripts attach map
'int32 - Map & labels offset
'int32 - Some vars offset 1
'int32 - Some vars offset 2 (coords??)
'int32 - Some vars offset 3
@@ -101,6 +101,15 @@
'84 - DUNGEON MAIN MAP offset
'88 - Dungeon normal usermap offset
'script attach table
' - script parameter int8 - ID, int 4 - type/collision, int4 - anim type
' - idC8/idCC - block and run object script
' - xx28/xx28 - execute on step trigger
' - id2C - show and run character script
' - 00A0 - show text window
' - idB0 - take item (item table = 800c692c)
End Sub
Public Function readEngText(ByVal Curbt As Integer)
@@ -149,6 +158,7 @@
End Sub
Private Sub DataGridView1_CurrentCellChanged(sender As Object, e As EventArgs) Handles DataGridView1.CurrentCellChanged
If IsNothing(DataGridView1.CurrentCell) Then Exit Sub
If IsNothing(DataGridView1.CurrentCell.Value) Then Exit Sub
Dim a = DataGridView1.CurrentCell.Value.ToString.Length
AreaCount.Text = a
If a > 20 Then