Restore command problem? - GameCreators Forum

Author

Message

Databug

16

Years of Service

User Offline

Joined: 27th Oct 2008

Location: Elsewhere

Posted: 17th Jun 2009 20:25

Link

For some reason I'm having problems with the restore command.

+ Code Snippet

         for n = 1 to array count(play())
            restore play
            read comint
            temp = 0
            for z = 1 to comint
               read codenum$, statement$, statement2$
              if play(n).commandnum = codenum$

                  temp$(n,1) = statement$
                  temp$(n,2) = statement2$

               endif
               if temp$(n,1) = ""
                  temp$(n,1) = "Error"
               endif
            next z
         next n


      endif
      if array count(play()) > 0
         for n = 1 to array count(play())
            print str$(n) + " - " + temp$(n,1) + play(n).info1 + " " + temp$(n,2) + play(n).info2
         next n
      endif
      print "(nothing)"

If you check the file attached, you can see the problem in the editing "play" section.

Apparently I can only restore to play one time to read data before it stops working and refuses to read. Help please

Attachments

Login to view attachments

Back to top

Profile PM

Rudolpho

18

Years of Service

User Offline

Joined: 28th Dec 2005

Location: Sweden

Posted: 17th Jun 2009 20:33

Link

And how does the data section look?

Back to top

Profile PM Email Website

Databug

16

Years of Service

User Offline

Joined: 27th Oct 2008

Location: Elsewhere

Posted: 17th Jun 2009 20:59

Link

+ Code Snippet

play:
data 14
data "01", "Draw card: ",""
data "02", "Put face up in discard: ",""
data "03", "Put face down in discard: ",""
data "04", "Play card face up: ",""
data "05", "Play card face down: ",""
data "06", "Put card face up in pot: ",""
data "07", "Put card face down in pot: ",""
data "08", "Play card from deck: ",""
data "09", "Draw from communitive deck number: ","Cards: "
data "10", "Discard from communitive deck number: ", "Cards: "
data "11", "Put face up in communitive discard number: ","Cards: "
data "12", "Put face down in communitive discard number: ","Cards: "
data "13", "Draw from player discard number: ", "Cards: "
data "14", "Draw from communitive discard number: ", "Cards: "

thats the data for the play section at the moment.

Back to top

Profile PM

Databug

16

Years of Service

User Offline

Joined: 27th Oct 2008

Location: Elsewhere

Posted: 20th Jun 2009 19:36

Link

Hmm, is no one understanding my problem either?

Back to top

Profile PM

Dream And Death

18

Years of Service

User Offline

Joined: 21st Feb 2006

Location: The circus! Juggling job, kids and DBPro

Posted: 20th Jun 2009 19:57

Link

I guess your problem might be using the label 'play', since it is part of several keywords. Why not try changing it to MyDataLabel: or something else and retrying?

"You get what everyone gets, you get a lifetime!" - Death, The Sandman Library

First you Dream, then you ... - Neil Gaiman, 2001

Back to top

Profile PM

Databug

16

Years of Service

User Offline

Joined: 27th Oct 2008

Location: Elsewhere

Posted: 20th Jun 2009 20:03

Link

Didn't work

but i noticed something new. It works occasionlly. It will work once, error a few times, work again, error some more, etc.

Back to top

Profile PM

bobbel

15

Years of Service

User Offline

Joined: 5th Jan 2009

Location: In my DBPro case xD

Posted: 20th Jun 2009 20:04 Edited at: 20th Jun 2009 20:12

Link

doesn't the RESTORE command just restore one line? can't you just do restore, so it restores the data pointer to the first data string?

[edit]
this just works fine, it only prints 1s and 2s and no 3s and 4s

+ Code Snippet

for x = 1 to 2
read a
print a
next x

restore Reset

for x = 1 to 2
read a
print a
next x

restore Reset

for x = 1 to 2
read a
print a
next x

restore Reset

for x = 1 to 2
read a
print a
next x

wait key

Reset:
data 1
data 2
data 3
data 4

Back to top

Profile PM Website

Databug

16

Years of Service

User Offline

Joined: 27th Oct 2008

Location: Elsewhere

Posted: 20th Jun 2009 20:12

Link

Hmm, that also did nada. Further study reveals that it will only work on the first code inputted but only on 2 error intervals.

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 20th Jun 2009 20:38

Link

It looks like it's restoring fine to me. But you're reading the data way too much.

+ Code Snippet

for n = 1 to array count(play())
            restore play
            read comint

Here you have a FOR/NEXT loop to read the data starting at the label Play from 1 to the size of the array (I assume 14) and you read comint from the data. The first data statement after Play is "data 14" which makes the variable comint=14. Next you do this:

+ Code Snippet

            for z = 1 to comint
               read codenum$, statement$, statement2$

Which is another FOR/NEXT loop from 1 to 14. So you have two loops around each other both counting from 1 to 14... so you're reading the 14 lines of data 14 times. Each time it RESTOREs to Play perfectly.

Add this under "read codenum$, statement$, statement2$" to see what I mean.

+ Code Snippet

               print codenum$+" - "+statement$+" - "+statement2$

Do you really need 14 copies of the same data? It actually stopped working on me too after restoring to play about 70 times (running it several times). Since it seems unstable why not use a file instead of DATA? You don't even have to use codenum$. You can use the array index number as the code number.

Back to top

Profile PM Email

Databug

16

Years of Service

User Offline

Joined: 27th Oct 2008

Location: Elsewhere

Posted: 20th Jun 2009 20:53

Link

Ah ok, I see what you're saying. I will get right on that after I finish cleaning the house. Thanks a lot there!

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Restore command problem?

Attachments