Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

Stuck while making a converter [RTE 52]


Alatar
 Share

Recommended Posts

Solved. It was a silly mistake. Ignore this, i need a cup of coffee

:embarrassed:

>! Hi people. I was making a converter for my quest system to transfer the previous versions quests to the new format. I've done a converter long ago, by emulating one that Lightning made for items.
>! Now i don't know why i'm getting a RTE 52 (Bad file name or number), while trying to do the convertion.
>! Here's the code of the sub:
>! ```
Public Sub ConvertQuests(ByVal Start As Integer, ByVal Limit As Integer)
    Dim i As Long, n As Long

    lstStatus.AddItem "Starting the quests convertion."

    For i = Start To Limit
        Path_From = App.Path & "\quests_1_0\quest" & i & ".dat"
        Path_To = App.Path & "\quests_1_1\quest" & i & ".dat"

        If LenB(Dir(Path_From)) > 0 Then
            lstStatus.AddItem "Loading file # " & i

            'Load the v1.0
            Open Path_From For Binary As #1
                Get #F, , Quest10.Name
                Get #F, , Quest10.QuestLog
                Get #F, , Quest10.TasksCount
                Get #F, , Quest10.Repeat
                For n = 1 To 3
                    Get #F, , Quest10.Requirement(n)
                Next
                Get #F, , Quest10.StartItem
                Get #F, , Quest10.StartItemValue
                Get #F, , Quest10.StartRemoveItem
                Get #F, , Quest10.StartRemoveItemValue
                For n = 1 To 3
                    Get #F, , Quest10.Chat(n)
                Next
                Get #F, , Quest10.RewardItem
                Get #F, , Quest10.RewardItemAmount
                For n = 1 To MAX_TASKS
                    Get #F, , Quest10.Task(n)
                Next
            Close #1

            lstStatus.AddItem "Writing file # " & i

            'Start writing the previous stuff in the new Rec
            With Quest11
                .Name = Quest10.Name
                .QuestLog = Quest10.QuestLog
                .TasksCount = Quest10.TasksCount
                .Repeat = Quest10.Repeat
                For n = 1 To 3
                    .Requirement(n) = Quest10.Requirement(n)
                Next
                .QuestGiveItem = Quest10.StartItem
                .QuestGiveItemValue = Quest10.StartItemValue
                .QuestRemoveItem = Quest10.StartRemoveItem
                .QuestRemoveItemValue = Quest10.StartRemoveItemValue
                For n = 1 To 3
                    .Chat(n) = Trim$(Quest10.Chat(n))
                Next
                .RewardExp = 0
                .RewardItem = Quest10.RewardItem
                .RewardItemAmount = Quest10.RewardItemAmount
                For n = 1 To MAX_TASKS
                    .Task(n) = Quest10.Task(n)
                Next
            End With

            lstStatus.AddItem "Saving file # " & i

            'Save the v1.1
            Open Path_To For Binary As #1
                Put #F, , Trim$(Quest11.Name)
                Put #F, , Trim$(Quest11.QuestLog)
                Put #F, , Quest11.TasksCount
                Put #F, , Quest11.Repeat
                For n = 1 To 3
                    Put #F, , Quest11.Requirement(n)
                Next
                Put #F, , Quest11.QuestGiveItem
                Put #F, , Quest11.QuestGiveItemValue
                Put #F, , Quest11.QuestRemoveItem
                Put #F, , Quest11.QuestRemoveItemValue
                For n = 1 To 3
                    Put #F, , Quest11.Chat(n)
                Next
                Put #F, , Quest11.RewardExp
                Put #F, , Quest11.RewardItem
                Put #F, , Quest11.RewardItemAmount
                For n = 1 To MAX_TASKS
                    Put #F, , Quest11.Task(n)
                Next
            Close #1

        Else
            lstStatus.AddItem "Process failed at file #" & i & "!"
            MsgBox "File " & i & " does not exist, the convertion ends now.": Exit Sub
        End If
    Next
    lstStatus.AddItem "Convertion done :)"
End Sub
```
And here's a screenie:
![](http://i54.tinypic.com/j9n5v7.png)
>! PS: The quest file that is trying to load is totally working in the previous version of the engine.
>! :embarrassed:
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...