Syntax Error in a Tutorial Code - GameCreators Forum

Author

Message

ace4343

15

Years of Service

User Offline

Joined: 28th Feb 2011

Location:

Posted: 1st Mar 2011 05:48

Link

I keep getting a syntax error every time I use this code, I tried mixing the codes, in tutorial 1, and my code was:

+ Code Snippet

sync on
sync rate 30
for x = 1 to 5
	Make object cube x,100
	position object x,Rnd(2000),0,Rnd(2000)
	next x
	
make object sphere 1,100
do
	ay# = object angle y(1)
	cay# = camera angle y()
	if upkey() = 1 then move camera 10
	if leftkey() = 1 then yrotate camera wrapvalue (cay#-5)
	if rightkey() = 1 then yrotate camera wrapvalue (cay#+5) 
	if upkey() = 1 then move object 1, 2
	if leftkey() = 1 then ay# = wrapvalue(ay#+5)
	if rightkey() = 1 then ay# = wrapvalue(ay#-5)
	yrotate object 1,ay#
	sync
	loop

Any help would be appreciated, either I misread it, did something wrong, or it's just DB. Or I combined the codes, and I was supposed not to.

Before you ask, I got the DB pro free for 1 person. ;D

Back to top

Profile PM

Wyldhunt

16

Years of Service

User Offline

Joined: 27th Sep 2009

Location: The Dark Side

Posted: 1st Mar 2011 11:10 Edited at: 1st Mar 2011 11:18

Link

You were using object number 1 twice. Your sphere was object 1 and your boxes used object numbers 1-5. You'd need to either make your sphere object number 6 or make your boxes uses object numbers 2-6.

Here. This may demonstrate better.
Copy/paste it in to your DarkBasic Pro and take a look at it.

sync on
`Set Max Sync 30 Times Per Second (30 FPS)
sync rate 30
`Make a Sphere with an Object Number of 1, and a Size of 100
make object sphere 1,100
`Begin x = 2 because our sphere is already object number 1
for x = 2 to 6
    `For each x, make a cube with an object number equal to x and a size of 100
    Make object cube x,100
    `Position the object with an object number equal to x (The box we just made) in a random location.
    position object x,Rnd(2000),0,Rnd(2000)
`Make x equal to x+1 and start the For/Next with the new x value
next x
    
`Begin our Do loop
do
    ay# = object angle y(1)
    cay# = camera angle y()
    `This demonstrates how to do more than one thing with an If statement. We only check each keypress 1 time
    `If the up key is pressed
    if upkey() = 1 
        `Move the camera forward 10 units
        move camera 10
        `Move Object number 1 (Our Sphere) 15 units.
        move object 1, 15
    `Use endif to end a multi line If statement
    endif    
    `If the Left key is pressed 
    if leftkey() = 1
        `Rotate the camera along the negative y axis
        yrotate camera wrapvalue (cay#-5)
        `Update our variable so that we can use it to rotate other objects later
        ay# = wrapvalue(ay#+5)
    endif        
    if rightkey() = 1
        `Rotate the camera along the y axis     
        yrotate camera wrapvalue (cay#+5)
        `Update our variable so that we can use it to rotate other objects later        
        ay# = wrapvalue(ay#-5)
    endif
    `Rotate object 1 (Sphere) equal to our updated ay# variable     
    yrotate object 1,ay#
    `I added this in to show a For/Next controlling behavior of a group of objects    
    `For x = 2 - 6
    for x = 2 to 6

`Rotate the object with an object number equal to x (Each of the boxes) by an amount equal to ay#
        yrotate object x,ay#
    next x
    `Update the graphics on the screen
    sync
`End our Do/Loop    
loop

+ Code Snippet

sync on
`Set Max Sync 30 Times Per Second (30 FPS)
sync rate 30
`Make a Sphere with an Object Number of 1, and a Size of 100
make object sphere 1,100
`Begin x = 2 because our sphere is already object number 1
for x = 2 to 6
    `For each x, make a cube with an object number equal to x and a size of 100
    Make object cube x,100
    `Position the object with an object number equal to x (The box we just made) in a random location.
    position object x,Rnd(2000),0,Rnd(2000)
`Make x equal to x+1 and start the For/Next with the new x value
next x
    
`Begin our Do loop
do
    ay# = object angle y(1)
    cay# = camera angle y()
    `This demonstrates how to do more than one thing with an If statement. We only check each keypress 1 time
    `If the up key is pressed
    if upkey() = 1 
        `Move the camera forward 10 units
        move camera 10
        `Move Object number 1 (Our Sphere) 15 units.
        move object 1, 15
    `Use endif to end a multi line If statement
    endif    
    `If the Left key is pressed 
    if leftkey() = 1
        `Rotate the camera along the negative y axis
        yrotate camera wrapvalue (cay#-5)
        `Update our variable so that we can use it to rotate other objects later
        ay# = wrapvalue(ay#+5)
    endif        
    if rightkey() = 1
        `Rotate the camera along the y axis     
        yrotate camera wrapvalue (cay#+5)
        `Update our variable so that we can use it to rotate other objects later        
        ay# = wrapvalue(ay#-5)
    endif
    `Rotate object 1 (Sphere) equal to our updated ay# variable     
    yrotate object 1,ay#
    `I added this in to show a For/Next controlling behavior of a group of objects    
    `For x = 2 - 6
    for x = 2 to 6

        `Rotate the object with an object number equal to x (Each of the boxes) by an amount equal to ay#
        yrotate object x,ay#
    next x
    `Update the graphics on the screen
    sync
`End our Do/Loop    
loop

Back to top

Profile PM

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 1st Mar 2011 20:45

Link

It should be a runtime error not a syntax error.

Back to top

Profile PM Email

ace4343

15

Years of Service

User Offline

Joined: 28th Feb 2011

Location:

Posted: 2nd Mar 2011 05:15

Link

Thanks guys! I tried to fix the camera, just set the movement from 10 to 15, then I got a syntax.

sync on
`Set Max Sync 30 Times Per Second (30 FPS)
sync rate 30
`Make a Sphere with an Object Number of 1, and a Size of 100
make object sphere 1,100
`Begin x = 2 because our sphere is already object number 1
for x = 2 to 6
    `For each x, make a cube with an object number equal to x and a size of 100
    Make object cube x,100
    `Position the object with an object number equal to x (The box we just made) in a random location.
    position object x,Rnd(2000),0,Rnd(2000)
`Make x equal to x+1 and start the For/Next with the new x value
next x
    
`Begin our Do loop
do
    ay# = object angle y(1)
    cay# = camera angle y()
    `This demonstrates how to do more than one thing with an If statement. We only check each keypress 1 time
    `If the up key is pressed
    if upkey() = 1 
        `Move the camera forward 10 units
        move camera 15
        OVER HERE!
        `Move Object number 1 (Our Sphere) 15 units.
        move object 1, 15
    `Use endif to end a multi line If statement
    endif    
    `If the Left key is pressed 
    if leftkey() = 1
        `Rotate the camera along the negative y axis
        yrotate camera wrapvalue (cay#-5)
        `Update our variable so that we can use it to rotate other objects later
        ay# = wrapvalue(ay#+5)
    endif        
    if rightkey() = 1
        `Rotate the camera along the y axis     
        yrotate camera wrapvalue (cay#+5)
        `Update our variable so that we can use it to rotate other objects later        
        ay# = wrapvalue(ay#-5)
    endif
    `Rotate object 1 (Sphere) equal to our updated ay# variable     
    yrotate object 1,ay#
    `I added this in to show a For/Next controlling behavior of a group of objects    
    `For x = 2 - 6
    for x = 2 to 6

`Rotate the object with an object number equal to x (Each of the boxes) by an amount equal to ay#
        yrotate object x,ay#
    next x
    `Update the graphics on the screen
    sync
`End our Do/Loop    
loop

+ Code Snippet

sync on
`Set Max Sync 30 Times Per Second (30 FPS)
sync rate 30
`Make a Sphere with an Object Number of 1, and a Size of 100
make object sphere 1,100
`Begin x = 2 because our sphere is already object number 1
for x = 2 to 6
    `For each x, make a cube with an object number equal to x and a size of 100
    Make object cube x,100
    `Position the object with an object number equal to x (The box we just made) in a random location.
    position object x,Rnd(2000),0,Rnd(2000)
`Make x equal to x+1 and start the For/Next with the new x value
next x
    
`Begin our Do loop
do
    ay# = object angle y(1)
    cay# = camera angle y()
    `This demonstrates how to do more than one thing with an If statement. We only check each keypress 1 time
    `If the up key is pressed
    if upkey() = 1 
        `Move the camera forward 10 units
        move camera 15
        OVER HERE!
        `Move Object number 1 (Our Sphere) 15 units.
        move object 1, 15
    `Use endif to end a multi line If statement
    endif    
    `If the Left key is pressed 
    if leftkey() = 1
        `Rotate the camera along the negative y axis
        yrotate camera wrapvalue (cay#-5)
        `Update our variable so that we can use it to rotate other objects later
        ay# = wrapvalue(ay#+5)
    endif        
    if rightkey() = 1
        `Rotate the camera along the y axis     
        yrotate camera wrapvalue (cay#+5)
        `Update our variable so that we can use it to rotate other objects later        
        ay# = wrapvalue(ay#-5)
    endif
    `Rotate object 1 (Sphere) equal to our updated ay# variable     
    yrotate object 1,ay#
    `I added this in to show a For/Next controlling behavior of a group of objects    
    `For x = 2 - 6
    for x = 2 to 6

        `Rotate the object with an object number equal to x (Each of the boxes) by an amount equal to ay#
        yrotate object x,ay#
    next x
    `Update the graphics on the screen
    sync
`End our Do/Loop    
loop

[i]

Before you ask, I got the DB pro free for 1 person. ;D

Back to top

Profile PM

ace4343

15

Years of Service

User Offline

Joined: 28th Feb 2011

Location:

Posted: 2nd Mar 2011 05:23

Link

It said syntax, just like any other time I got an error.

Before you ask, I got the DB pro free for 1 person. ;D

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Syntax Error in a Tutorial Code