| Mirage Source http://miragesource.net/forums/ |
|
| Genusis's questions/help page. http://miragesource.net/forums/viewtopic.php?f=201&t=1981 |
Page 1 of 1 |
| Author: | genusis [ Wed Jun 06, 2007 9:58 pm ] |
| Post subject: | Genusis's questions/help page. |
Ok well since I really do not want to create a whole bunch of different topics I decided to make one topic in this area for all my problems and for all the help I give to.Well my first problem is about binary stuff. Since I have not been coding in a while I forgot somethings. So ok here it is. Code: Sub SaveShop(ByVal ShopNum As Long) Dim FileName As String Dim f As Long FileName = App.Path & "\data\shops.bin" f = FreeFile Open FileName For Binary As #f Put #f, , Shop(ShopNum) Close #f End Sub Is this the rigth way or is the one below. Code: Sub SaveShop() Dim FileName As String Dim f As Long FileName = App.Path & "\data\shops.bin" f = FreeFile Open FileName For Binary As #f Put #f, , Shop(index) Close #f End Sub I think anyone who helps me with my problems. So I Thank You All For Your Help. *Your friend* Genusis |
|
| Author: | William [ Wed Jun 06, 2007 10:03 pm ] |
| Post subject: | Re: Genusis's questions/help page. |
The bottom one has a variable Index which isnt declared as anything. That will give you a error. The above one will work just fine from what I can see. There is a tutorial for this in the Optimization Tutorial board. |
|
| Author: | genusis [ Wed Jun 06, 2007 10:16 pm ] |
| Post subject: | Re: Genusis's questions/help page. |
Thanks for your help on that I could not decide what was what and which one was the right way of doing it since the tut did not specify what to do with that exactly. well my other problem is how would I do it with something that uses x, and y perimeters. Code: Sub LoadShops() On Error Resume Next Dim FileName As String Dim x As Long, y As Long Call CheckShops FileName = App.Path & "\data\shops.ini" For y = 1 To MAX_SHOPS Shop(y).name = GetVar(FileName, "SHOP" & y, "Name") Shop(y).JoinSay = GetVar(FileName, "SHOP" & y, "JoinSay") Shop(y).LeaveSay = GetVar(FileName, "SHOP" & y, "LeaveSay") Shop(y).FixesItems = GetVar(FileName, "SHOP" & y, "FixesItems") For x = 1 To MAX_TRADES Shop(y).TradeItem(x).GiveItem = GetVar(FileName, "SHOP" & y, "GiveItem" & x) Shop(y).TradeItem(x).GiveValue = GetVar(FileName, "SHOP" & y, "GiveValue" & x) Shop(y).TradeItem(x).GetItem = GetVar(FileName, "SHOP" & y, "GetItem" & x) Shop(y).TradeItem(x).GetValue = GetVar(FileName, "SHOP" & y, "GetValue" & x) Next x DoEvents Next y End Sub Like the one above. Thanks for your help William. since I know you will probably be the one helping with this one to. |
|
| Author: | William [ Wed Jun 06, 2007 10:36 pm ] |
| Post subject: | Re: Genusis's questions/help page. |
Something like this I think: Code: Sub LoadShops()
Dim FileName As String Dim i As Long, f As Long Call CheckShops For i = 1 To MAX_SHOPS FileName = App.Path & "\shops\shop" & i & ".dat" f = FreeFile Open FileName For Binary As #f Get #f, , Shop(i) Close #f DoEvents Next i End Sub |
|
| Author: | genusis [ Wed Jun 06, 2007 11:46 pm ] |
| Post subject: | Re: Genusis's questions/help page. |
Code: Open FileName For Binary As #f Is making it throw a runtime error 76 path not found. what am i missing or did you do something wrong.
|
|
| Author: | Matt [ Thu Jun 07, 2007 12:09 am ] |
| Post subject: | Re: Genusis's questions/help page. |
Do you have the shops folder with your shops in it? FileName = App.Path & "\shops\shop" & i & ".dat" Cause that's what filename equals. |
|
| Author: | Lea [ Thu Jun 07, 2007 4:57 am ] |
| Post subject: | Re: Genusis's questions/help page. |
It will probably give that error if the file does not exist. Check to make sure the file extension in the saving and loading subs is the same. |
|
| Author: | genusis [ Thu Jun 07, 2007 4:51 pm ] |
| Post subject: | Re: Genusis's questions/help page. |
oops sorry guys I forgot to tell you I got it lol. Thanks though. |
|
| Author: | genusis [ Sun Jun 10, 2007 5:26 am ] |
| Post subject: | Re: Genusis's questions/help page. |
Hi guys its me with another question. How or where is the tutorial to convert Elysium stuff to mirage source stuff. I know there use to be one. if you don't know where can you at least help me out thanks. Your neighborhood spider man Genusis lol. |
|
| Page 1 of 1 | All times are UTC |
| Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |
|