data statements - GameCreators Forum

Author

Message

matt rochon

21

Years of Service

User Offline

Joined: 15th Mar 2003

Location: Canada

Posted: 29th Mar 2003 05:20

Link

for some reason i cant pass variables as data to a data statement

here is my code

+ Code Snippet

load array "data\chrdt.dat",stats(0)
rem data statements
m_stats:
data stats(1),stats(2),stats(3)
data stats(4),stats(5),stats(6)

it returns the error "error in data list at line x"

Back to top

Profile PM

PiratSS

22

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 29th Mar 2003 06:25 Edited at: 29th Mar 2003 06:26

Link

Try this:

+ Code Snippet

Dim stats(100)
load array "datachrdt.dat",stats(0)
rem data statements
for i=1 to 100
read A
if a=1 then Lives=A
if a=26 then Boss=A
`And so on...
next i
restore m_stats
m_stats:
data stats(1),stats(2),stats(3)
data stats(4),stats(5),stats(6)

Cheers.

There are two types of people in the world: The ones who summon and the ones that create. There is a big difference...

Back to top

Profile PM

matt rochon

21

Years of Service

User Offline

Joined: 15th Mar 2003

Location: Canada

Posted: 29th Mar 2003 06:45

Link

actually i was trying to store the value of those array blocks in the data statement but its ok i worked around it by using global arrays

thanks though

Back to top

Profile PM

Zhol

21

Years of Service

User Offline

Joined: 30th Mar 2003

Location:

Posted: 30th Mar 2003 10:28 Edited at: 30th Mar 2003 14:13

Link

I'm doing this one to test my post and two because I have a question.

Material: 1 image 20x20 pixels
code: read data
what I need? I would like to create a data block and paste the image in the section I have set values for, so it can tile a large section of the screen. This is what I sort know in theory...

'code in generally speaking
For
read ' I guessing this is where the read would go to do this
next

'data block
data 0,1,1,1,0
data 0,1,1,1,0
data 0,0,1,0,0
etc...

If I'm on the right track, could some one help explain how I could get the image to paste in the set place of the data block where the 1's are set.
Thank you to whom ever took the time to read this and
decided to help me with this read data setup.

When the dark angel come's a knocking, don't be shy, let'm in.

Back to top

Profile PM

ToXic

22

Years of Service

User Offline

Joined: 8th Sep 2002

Location: Australia

Posted: 30th Mar 2003 18:30

Link

Hope this helps.

+ Code Snippet

sync on
sync rate 0

ink rgb(160,0,0),0
box 1,1,32,32
get image 1,1,1,32,32,1
cls

for y=1 to 10
   for x=1 to 10
      read d
      if d=1 then paste image 1,x*32,y*32,1
   next x
next y
repeat : sync : until scancode()>0
end

data 1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1

ToXic

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / data statements