Quickstart Tutorial 6 - GameCreators Forum

Author

Message

Krimzon DestinE

19

Years of Service

User Offline

Joined: 18th Sep 2005

Location:

Posted: 28th Aug 2006 03:58

Link

I went through the Quickstart Tutorial 6 and I want to stack blocks on top of each other. I made a map in notepad with entirely out of numbers (1 being only one black and 0 being 10 blocks stacked one on top of the other) I was wondering, how would I alter the code in other to tell it to stack the number of boxes on top of eachother corresponding to the number in the map file?

Back to top

Profile PM

FROGGIE!

20

Years of Service

User Offline

Joined: 4th Oct 2003

Location: in front of my computer

Posted: 28th Aug 2006 17:58

Link

Ive not read the tutorial, but i think i understand what you mean. Basically as you read the number from the file you store that in a variable, you then use some code to create and position the blocks on top of each other:

+ Code Snippet

` read the number from the text file before you run this code:

` this will be the number that will be read from the text file.
[variable$]

` if you are using a string then you will need to convert it to a value/integer
variable_integer = VAL([variable4])

` the for/next loop will create the number of boxes that you want
FOR number_boxes = 1 TO [variable$]

`   build the object (youll need to replace the object number and size)
   MAKE OBJECT CUBE object_number,size

   ` this positions the object (use your own method to get the x and z positions),
` the y position is an equation that will work as long as the height of the box is put into it:
` y_pos varialble is the y position you put the boxes at when there is just one created.
` number_boxes varialbe is what is being increased in the for next loop
   POSITION OBJECT object_number,x_pos,y_pos+(box_height*number_boxes),z_pos

` set any attributes to the box (color/texture etc...) here

NEXT number_boxes

You will need to change all of the variables in the code so that they are the same as in the program, they all have explanations so it shouldnt be too hard to figure out.

Back to top

Profile PM

Krimzon DestinE

19

Years of Service

User Offline

Joined: 18th Sep 2005

Location:

Posted: 31st Aug 2006 03:25

Link

thanks man...imma try it

Back to top

Profile PM

Krimzon DestinE

19

Years of Service

User Offline

Joined: 18th Sep 2005

Location:

Posted: 5th Sep 2006 01:21 Edited at: 5th Sep 2006 01:23

Link

here's what i got so far:

+ Code Snippet

ypos=0

for x = 1 to 13
     for y = 1 to 13
          read dat
     next y
next x

for boxnum=1 to dat
     make object cube 1000+boxnum,1
     color object 1000+boxnum,rgb(rnd(255),rnd(255),rnd(255))
     position object 1000+boxnum,0,boxnum,10
next boxnum
wait key

do
     ax# = wrapvalue(ax#+mousemovey()) : ay# = wrapvalue(ay#+mousemovex())
     rotate camera ax#, ay#, 0
     if mouseclick() = 1 then move camera .5
     if mouseclick() = 2 then move camera -.5
sync
loop

data 8,8,8,8,7,7,9,9,9,9,9,9,9
data 8,8,8,8,7,7,9,9,9,9,9,8,9
data 5,5,5,5,6,7,8,9,9,9,9,8,9
data 4,4,5,5,6,6,6,6,6,9,9,8,9
data 4,4,5,4,6,6,6,6,6,6,6,7,9
data 4,4,4,4,5,5,5,6,6,7,7,7,9
data 4,4,4,4,5,5,5,8,9,9,9,9,9
data 1,1,1,3,4,4,8,8,9,9,9,9,9
data 1,1,1,2,4,4,7,7,9,9,9,9,9
data 1,1,1,1,1,1,7,7,6,6,6,6,7
data 1,1,1,1,1,1,7,7,6,5,5,6,7
data 1,1,1,1,1,1,2,3,6,4,5,5,8
data 1,1,1,1,1,1,2,3,4,4,4,5,8

Now if I can just get it to make a column for every single digit in every single data line...any suggestions?

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Quickstart Tutorial 6