my website

[drewski]

hey people i've upadated my website and now its a whole ne design. go check it out and let me know what you think. also take a look at my map editor and let me know what you think. its not complete yet buts its got all of the basics for now.

by the way. how come on the editor when i hold the mouse down and drag it only draw one square instead of a whole line of them. i think i know how to make it work but if anyone has any suggestions i'm completely open to them.

thanks one and all,
Drewski

[pranavdesai]

that's good work friend

[drewski]

my map type is *.map
if you look in the code under loadmapfromfile or something like that you should be able to find it.

thanks for the feed back guys

Drewski

[drewski]

if you guys want the code posted i can do that just you'll have to wait till i get home. but if you already have it just look around for it in the source. by the way, sorry if the code isnt that pretty and i'm not much on commenting my code. hopefully you can piece it out

[drewski]

heres the map format chris:

Public Type TileArray
    SrcX As Long
    SrcY As Long
    DestX As Long
    DestY As Long
    Walkable As Byte
    TileSet As Byte
End Type

Public Type LayerArray
    Tile() As TileArray
End Type

Public Type Map
    StartX As Byte
    StartY As Byte
    BGround As LayerArray
    'FGround As LayerArray
    'Triggers As LayerArray
    'Items As LayerArray
End Type


Public Sub LoadMapFromFile()
    Dim Level As Map 'dim a variable that will be used to determine the length of a record in the file
    Dim Number As Integer
    Dim FileName As String 'dim a variable to hold the name of the map
    Dim intFileFree As Integer 'dim a variable to hold a handle to the next available free file
    Dim RecordNumber As Long 'dim a variable to track what record we are on
    Dim RecordLength As Long 'dim a variable to hold the length of a record
    
    On Error GoTo ErrorHandler

    
    Form1.CmnDialog.Filter = "Map files (*.map)|*.map"
    Form1.CmnDialog.flags = cdlOFNFileMustExist
    Form1.CmnDialog.flags = cdlOFNHideReadOnly
    Form1.CmnDialog.DialogTitle = "Load Map"
    Form1.CmnDialog.ShowOpen
    
    strMapName = Form1.CmnDialog.FileName
    If strMapName = "" Then Exit Sub
    
    intFileFree = FreeFile
    
    
    Open strMapName For Binary As #intFileFree
    
    RecordNumber = 1
    RecordLength = CLng(Len(Number))
    
    Get #intFileFree, RecordNumber, MapWidth
    RecordNumber = RecordNumber + RecordLength
    Get #intFileFree, RecordNumber, MapHeight
    
    ReDimArrays
    
    RecordNumber = RecordNumber + RecordLength
    Get #intFileFree, RecordNumber, Level1
    
    Level1.BGround.Tile(1, 1).DestX = Level1.BGround.Tile(1, 1).DestX

    Close #intFileFree
    
    
    Exit Sub

ErrorHandler:
    If Err.Number = cdlCancel Then
        Exit Sub
    End If
End Sub

i got this code from the game examples off of oneringsoftware.com. thats the place where i first started vbgp. ah the memories

[Chris]

thanks drewski, I'll take a look on it.

[drewski]

hey people check it out! the website is updated. check it out and give me some input here. by the way pranavdesai i would like a little more than just "good work friend" i thank you graciously for the compliment but i need a little more input.

thanks y'all