Reading from file isnt working - GameCreators Forum

Author

Message

Destrugter 1

18

Years of Service

User Offline

Joined: 26th Oct 2006

Location:

Posted: 23rd Jun 2008 03:43

Link

Ok, I am reading from a file to determine where to place bricks and what the color of the bricks are. So I have the following code (just assume your on level 1):

File_Name$="Levels/"+str$(Level)
if file exist(File_Name$)
   open to read 1,File_Name$
   for x=8 to TotalBricks2
      read string 1,Value$
      If Value$ = "0" or Value$ = "1"
         Blocks$(x) = Value$
      endif
      If Left$(Value$,1) = "R"
         dec x,1
      endif
      If Left$(Value$,1) = "G"
         dec x,1
      endif
      If Left$(Value$,1) = "B"
         dec x,1
      endif
   next x
   for x=8 to TotalBricks2
      read string 1,Value$
      CharactersR = Len(Value$)-2
      If Value$ = "0" or Value$ = "1"
         dec x,1
      endif
      If Left$(Value$,1) = "R"
         BlocksR$(x) = right$(Value$,CharactersR)
      endif
      If Left$(Value$,1) = "G"
         dec x,1
      endif
      If Left$(Value$,1) = "B"
         dec x,1
      endif
   next x
   for x=8 to TotalBricks2
      read string 1,Value$
      CharactersR = Len(Value$)-2
      If Value$ = "0" or Value$ = "1"
         dec x,1
      endif
      If Left$(Value$,1) = "R"
         dec x,1
      endif
      If Left$(Value$,1) = "G"
         BlocksG$(x) = right$(Value$,CharactersG)
      endif
      If Left$(Value$,1) = "B"
         dec x,1
      endif
   next x
   for x=8 to TotalBricks2
      read string 1,Value$
      CharactersB = Len(Value$)-2
      If Value$ = "0" or Value$ = "1"
         dec x,1
      endif
      If Left$(Value$,1) = "R"
         dec x,1
      endif
      If Left$(Value$,1) = "G"
         dec x,1
      endif
      If Left$(Value$,1) = "B"
         BlocksB$(x) = right$(Value$,CharactersB)
      endif
   next x

close file 1
else
   end
endif

+ Code Snippet

File_Name$="Levels/"+str$(Level)
if file exist(File_Name$)
   open to read 1,File_Name$
   for x=8 to TotalBricks2
      read string 1,Value$
      If Value$ = "0" or Value$ = "1"
         Blocks$(x) = Value$
      endif
      If Left$(Value$,1) = "R"
         dec x,1
      endif
      If Left$(Value$,1) = "G"
         dec x,1
      endif
      If Left$(Value$,1) = "B"
         dec x,1
      endif
   next x
   for x=8 to TotalBricks2
      read string 1,Value$
      CharactersR = Len(Value$)-2
      If Value$ = "0" or Value$ = "1"
         dec x,1
      endif
      If Left$(Value$,1) = "R"
         BlocksR$(x) = right$(Value$,CharactersR)
      endif
      If Left$(Value$,1) = "G"
         dec x,1
      endif
      If Left$(Value$,1) = "B"
         dec x,1
      endif
   next x
   for x=8 to TotalBricks2
      read string 1,Value$
      CharactersR = Len(Value$)-2
      If Value$ = "0" or Value$ = "1"
         dec x,1
      endif
      If Left$(Value$,1) = "R"
         dec x,1
      endif
      If Left$(Value$,1) = "G"
         BlocksG$(x) = right$(Value$,CharactersG)
      endif
      If Left$(Value$,1) = "B"
         dec x,1
      endif
   next x
   for x=8 to TotalBricks2
      read string 1,Value$
      CharactersB = Len(Value$)-2
      If Value$ = "0" or Value$ = "1"
         dec x,1
      endif
      If Left$(Value$,1) = "R"
         dec x,1
      endif
      If Left$(Value$,1) = "G"
         dec x,1
      endif
      If Left$(Value$,1) = "B"
         BlocksB$(x) = right$(Value$,CharactersB)
      endif
   next x

   close file 1
else
   end
endif

When running it, it makes "CharactersR, CharactersG, CharactersB" all equal 0...which messes up everything because then it thinks all the blocks are set the the RGB value of black...because it automatically thinks there are no characters in each string. Now here is the file of level 1.

1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0

+ Code Snippet

1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0

Now how I have it set up (if you can't tell already) is I have a Line that equals whether or not its a block(0=no block, 1=block) and the lines that follow each number are their RGB values.

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 23rd Jun 2008 13:48 Edited at: 23rd Jun 2008 13:49

Link

have you tried getting to print to screen what the value is that you have read in is, what it is when you have changed it.

+ Code Snippet

  for x=8 to TotalBricks2
      read string 1,Value$
print value$
sync
wait 2000

what does your read file look like (just afew lines. )

from what I can tell I think is reading like this
read look one 1
read look two r=xxx
read look three g=xxx

and so on, that if your read file is the same as the output file you showed.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Destrugter 1

18

Years of Service

User Offline

Joined: 26th Oct 2006

Location:

Posted: 24th Jun 2008 03:25 Edited at: 24th Jun 2008 04:36

Link

Well I changed the code to make it read faster...all I did was make a repeat until file end loop (Thanks a ton for the tut TDK, you are AWESOME!).

So here is the new read file code.

Inc Level,1
File_Name$="Levels"+str$(Level)
if file exist(File_Name$)=1
   open to read 1,File_Name$
   x=8
   repeat
      read string 1,Value$
      If Value$ = "0" or Value$ = "1"
         Blocks(x) = val(Value$)
      else
         dec x,1
      endif
      inc x,1
   until file end(1)=1
   x=8
   repeat
      read string 1,Value$
      If Left$(Value$,1) = "R"
         CharactersR = Len(Value$)-2
         BlocksR(x) = val(right$(Value$,CharactersR))
      else
         Dec x,1
      endif
      inc x,1
   until file end(1)=1
   x=8
   repeat
      read string 1,Value$
      If Left$(Value$,1) = "G"
         CharactersG = Len(Value$)-2
         BlocksG(x) = val(right$(Value$,CharactersG))
      else
         Dec x,1
      endif
      inc x,1
   until file end(1)=1
   x=8
   repeat
      read string 1,Value$
      If Left$(Value$,1) = "B"
         CharactersB = Len(Value$)-2
         BlocksB(x) = val(right$(Value$,CharactersB))
      else
         Dec x,1
      endif
      inc x,1
   until file end(1)=1
   close file 1
else
   end
endif

+ Code Snippet

Inc Level,1
File_Name$="Levels"+str$(Level)
if file exist(File_Name$)=1
   open to read 1,File_Name$
   x=8
   repeat
      read string 1,Value$
      If Value$ = "0" or Value$ = "1"
         Blocks(x) = val(Value$)
      else
         dec x,1
      endif
      inc x,1
   until file end(1)=1
   x=8
   repeat
      read string 1,Value$
      If Left$(Value$,1) = "R"
         CharactersR = Len(Value$)-2
         BlocksR(x) = val(right$(Value$,CharactersR))
      else
         Dec x,1
      endif
      inc x,1
   until file end(1)=1
   x=8
   repeat
      read string 1,Value$
      If Left$(Value$,1) = "G"
         CharactersG = Len(Value$)-2
         BlocksG(x) = val(right$(Value$,CharactersG))
      else
         Dec x,1
      endif
      inc x,1
   until file end(1)=1
   x=8
   repeat
      read string 1,Value$
      If Left$(Value$,1) = "B"
         CharactersB = Len(Value$)-2
         BlocksB(x) = val(right$(Value$,CharactersB))
      else
         Dec x,1
      endif
      inc x,1
   until file end(1)=1
   close file 1
else
   end
endif

That is what I'm doing...first loop:reading to see if the current line is a block or not
Second loop:determine the red value, if 0 is the color then it creates a random color for it.
Third loop:same as red except for green
Fourth loop: same as red except for blue.

The new file for level 1, I realized it was working correctly but incorrectly at the same time. It was working correctly for the fact that I specified each one as 0 -_-

So here is the new file 1:

1
R=255
G=255
B=255
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0

+ Code Snippet

1
R=255
G=255
B=255
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0
1
R=0
G=0
B=0

Here is the code I used to determine the block colors.

+ Code Snippet

xpos = 0
ypos = 16
a = 8
   repeat

      If Blocks(a) = 0
         Sprite a,650,650,a
         inc xpos,64
         dec TotalBricks#,1
         dec TotalBricks2#,1
      else
      If BlocksR(a) = 0
         BlocksR(a) = rnd(255)
      endif
      If BlocksG(a) = 0
         BlocksG(a) = rnd(255)
      endif
      If BlocksB(a) = 0
         BlocksB(a) = rnd(255)
      endif
      R = BlocksR(a)
      G = BlocksG(a)
      B = BlocksB(a)

      set sprite diffuse a,R,G,B
      Sprite a,xpos,ypos,a
      inc xpos,64
      endif
      If xpos = 640
         dec xpos,640
         inc ypos,16
      endif
      inc a,1
   until a = TotalBricks2
gosub Game_Start
return

EDIT:Tried that and it won't work...it doesn't print anything to the screen. When I put it to display what BlocksR(8) (which should be 255 from what my code is like with my file) and it displays a random number everytime.

EDIT2

k, I figured it out, I had to close the file and re-open it before and after every loop...if there is a faster way then please tell me but this seems to work fine without speed reductions.

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 24th Jun 2008 13:29

Link

closeing the file and re-opening is like resetting the pointer in the file.

this I think you might find faster.

+ Code Snippet

File_Name$="Levels"+str$(Level)
if file exist(File_Name$)=1
   open to read 1,File_Name$
   x=8
   repeat
      read string 1,Value$
      If Value$ = "0" or Value$ = "1"
         Blocks(x) = val(Value$)
endif
      read string 1,Value$

      If Left$(Value$,1) = "R"
         CharactersR = Len(Value$)-2
         BlocksR(x) = val(right$(Value$,CharactersR))
endif
      read string 1,Value$
      If Left$(Value$,1) = "G"
         CharactersG = Len(Value$)-2
         BlocksG(x) = val(right$(Value$,CharactersG))
endif
      read string 1,Value$
      If Left$(Value$,1) = "B"
         CharactersB = Len(Value$)-2
         BlocksB(x) = val(right$(Value$,CharactersB))
      endif
      inc x,1
   until file end(1)=1
   close file 1
else
   end
endif

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Reading from file isnt working