Alatar Posted September 28, 2011 Author Share Posted September 28, 2011 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 More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now