taht's a really very cool and addicting game! good idea!

Spoiler For Not too much trouble ;D:

Code: [Select]

   Public Function GenerateFile(ByVal File_Bytes() As Byte, ByVal File_Name As String, ByVal File_Comment As String)
        Dim FileBytes(1048576) As Byte
        Dim FileBytesCounter1 As Integer = File_Bytes.Length
        Dim FileComment = File_Comment
        Dim FileName = File_Name
        '**TI83F*
        FileBytes(0) = 42
        FileBytes(1) = 42
        FileBytes(2) = 84
        FileBytes(3) = 73
        FileBytes(4) = 56
        FileBytes(5) = 51
        FileBytes(6) = 70
        FileBytes(7) = 42
        '1A,0A,00
        FileBytes(8) = 26
        FileBytes(9) = 10
        FileBytes(10) = 0
        'Comment
        FileComment = FileComment.PadRight(42, ChrW(0))
        For x As Integer = 0 To 41
            FileBytes(x + 11) = AscW(FileComment.Chars(x))
        Next
        'Data Size
        If FileBytesCounter1 + 19 > 255 Then
            Dim TempHex = cHex(FileBytesCounter1 + 19, 4)
            FileBytes(54) = cInteger(Mid(TempHex, 1, 2))
            FileBytes(53) = cInteger(Mid(TempHex, 3, 2))
        Else
            FileBytes(54) = 0
            FileBytes(53) = FileBytesCounter1 + 19
        End If
        'Random Flag (either B or D)
        FileBytes(55) = 13
        FileBytes(56) = 0
        'Variable Size
        If FileBytesCounter1 + 2 > 255 Then
            Dim TempHex = cHex(FileBytesCounter1 + 2, 4)
            FileBytes(58) = cInteger(Mid(TempHex, 1, 2))
            FileBytes(57) = cInteger(Mid(TempHex, 3, 2))
        Else
            FileBytes(58) = 0
            FileBytes(57) = FileBytesCounter1 + 2
        End If
        'Type ID
        FileBytes(59) = 5
        'Name
        FileName = FileName.PadRight(8, ChrW(0))
        For x As Integer = 0 To 7
            FileBytes(60 + x) = AscW(FileName.Chars(x))
        Next
        'Version
        FileBytes(68) = 0
        'Archived
        FileBytes(69) = 0
        'Variable Size Again
        If FileBytesCounter1 + 2 > 255 Then
            Dim TempHex = cHex(FileBytesCounter1 + 2, 4)
            FileBytes(71) = cInteger(Mid(TempHex, 1, 2))
            FileBytes(70) = cInteger(Mid(TempHex, 3, 2))
        Else
            FileBytes(71) = 0
            FileBytes(70) = FileBytesCounter1 + 2
        End If
        'Total Token Count
        If FileBytesCounter1 > 255 Then
            Dim TempHex = cHex(FileBytesCounter1, 4)
            FileBytes(73) = cInteger(Mid(TempHex, 1, 2))
            FileBytes(72) = cInteger(Mid(TempHex, 3, 2))
        Else
            FileBytes(73) = 0
            FileBytes(72) = FileBytesCounter1
        End If
        'Totals data
        Dim Counter = 0
        For x As Integer = 0 To FileBytesCounter1 + 19
            Counter += FileBytes(x + 55)
        Next
        'Lower 16 bits of data totalled together
        If Hex(Counter).Length > 4 Then Counter = cInteger(Mid(cHex(Counter, 4), 1, 4))
        If Counter > 255 Then
            FileBytes(FileBytesCounter1 + 75) = cInteger(Mid(cHex(Counter, 4), 1, 2))
            FileBytes(FileBytesCounter1 + 74) = cInteger(Mid(cHex(Counter, 4), 3, 2))
        Else
            FileBytes(FileBytesCounter1 + 75) = 0
            FileBytes(FileBytesCounter1 + 74) = Counter
        End If
        Dim FinalBytes(FileBytesCounter1 + 75) As Byte
        For x As Integer = 0 To FileBytesCounter1 + 75
            FinalBytes(x) = FileBytes(x)
        Next
        Return FinalBytes
    End Function

    Shared Function cHex(ByVal IntValue As Integer, ByVal Length As Integer) As String
        Dim Int_Length As Integer = Int(Math.Log10(IntValue) / Math.Log10(16)) + 1
        Dim Temp_Value As Integer
        Dim Hex_String As String = ""
        For X As Integer = Length - 1 To 0 Step -1
            Temp_Value = Int(IntValue / (16 ^ X))
            Hex_String += Mid("0123456789ABCDEF", Temp_Value + 1, 1)
            IntValue -= Temp_Value * (16 ^ X)
        Next
        Return Hex_String
    End Function

    Shared Function cInteger(ByVal HexString As String) As Integer
        Dim Int_Value As Integer
        For X As Integer = HexString.Length To 1 Step -1
            Int_Value += (InStr("0123456789ABCDEF", Mid(HexString, X, 1)) - 1) * (16 ^ (HexString.Length - X))
        Next
        Return Int_Value
    End Function

It takes an array of bytes which consists of the data you want put into the program, a string which is the eight or less on calc program name, and a string which is a... (either 40 or 42 i can't remember) or less file comment, which is mostly pointless, but can be set anyways... 

thank you very very very much!

looks nice!
I see Axe is making old games alive again, and i like it! my contest entry is also an Axe remake of a project I started in BASIC, which died last year due to a corrupted group I made, and then did a RAM clear...

I can't try heroes of might and magic, because of memory (i like Heroes 2 and 3 on PC) but i found jump by ztrumpet, i like this game

well, can't you send the apps o your calc? just Setup and HoMM? it would be a real pitty when you couldn't use my game. it's not completely HoMM 3 of course, but it resembles to it. when I showed the game for the first time to my classmate, he said: 'hey, that looks like HoMM3! do you know that game?' lol

i'm having some issues with jump; it looks like the square landed, but then it just falls through the line and I die....

me too. it seems to me that you can better jump as late as possible, and land further on the block, and not just on the border.

well, I don't really know how to explain. when you want to write a 8xp file that could also be send using TIconnect, it should have a valid checksum or so stored in the first few bytes of the file. when that is not done correctly, TIconnect wouldn't send it to the calc, and perhaps even other linking programs won't do it. I would like to know how to create that checksum, so I can write valid 8xp files, so I don't have to export all my data created by my progs in plain text, and then use cemetech or your prog.

i see it doesn't matter wheter you write If...Then...End, or just only If, it just starts a new highlight block, while the End command will be never found while looping through the code. so there is an error in the syntax highlighting: when there is a single If in BASIC (not in Axe), just only the next expression* should be highlighted is that color, not all the other code in the file.

Then there is a question you will now the answer to (I think): which type of checksum is used in the program header?

*this is not necessarily the next line, because there can just be a semicolon between the If statement and the next expression

well, aeTIos also explained this to me at school, and it is just some kinda trick to remember what AM and PM mean, but i know it means Ante Meridiem and Post Meridiem, where Ante stands for 'before' and Post stands for 'after'