Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

DarkBASIC Professional Discussion / Cannot close nest

Author

Message

Wu dynasty

13

Years of Service

User Offline

Joined: 7th Feb 2013

Location: In a democracy

Posted: 29th May 2013 18:34

Hello i am getting a cannot close nest error.
Thanks,
Nathan

hide mouse
sync on : sync rate 60
randomize timer()

load image \"E:\\nutrun\\pictures\\texture.bmp\",1

Print \"Level 1\"
REM Level 1

rem controled object
make object cube 1,1
position object 1,2,1.51,5
yrotate object 1,90
color object 1,rgb(255,0,0)

rem walls and ground
make object box 2,1000,1,1000
texture object 2,1

make object box 3,1,20,40
position object 3,0,2,30
texture object 3,1

make object box 4,40,20,1
position object 4,20,2,0
texture object 4,1

make object box 5,1,20,40
position object 5,40,2,30
texture object 5,1

make object box 6,40,20,1
position object 6,20,2,50
texture object 6,1

make object box 7,20,20,1
position object 7,10,2,40
texture object 7,1

make object box 8,1,20,20
position object 8,20,2,30
texture object 8, 1

make object box 9,1,20,20
position object 9,10,2,20
texture object 9,1

make object box 10,1,20,20
position object 10,20,2,30
texture object 10,1

make object box 11,20,20,1
position object 11,20,2,10
texture object 11,1

make object box 12,1,20,40
position object 12,30,2,20
texture object 12,1

make object box 1000,1,5,10
position object 1000,0,0,5
hide object 1000

make object box 1001,1,5,10
position object 1001,40,0,5
hide object 1001

rem sky
color backdrop 1000

rem collision
set object collision to boxes 2

rem main loop
do

rem level 1 print
center text 320,15,\"Level 1\" : set text to bold : set text size 30

rem controls
aY# = object angle Y(1)
if upkey()=1 then move object 1,0.4
if downkey()=1 then move object 1,-0.4
if rightkey()=1 then aY# = wrapvalue(aY#+3)
if leftkey()=1 then aY# = wrapvalue(aY#-3)
yrotate object 1,aY#

rem collision stats
if object collision(1,1001)
wait 1500
delete object 3
delete object 4
delete object 5
delete object 6
delete object 7
delete object 8
delete object 9
delete object 10
delete object 11
delete object 12
endif
if object collision(1,0) then position object 1,X1#,1.51,Z1#

rem camera
X1# = Object position x(1)
Z1# = Object position z(1)
X# = Newxvalue(X1#,aY#-180,5)
Z# = Newzvalue(Z1#,aY#-180,5)
Position Camera X#,4,Z#
Point camera X1#,3,Z1#
if controlkey()=1 then Position Camera X#,64,Z# : Point camera X1#,48,Z1#

inc count
if count=30
for c = 2 to 12
which=rnd(5)

if count=30 then count=0

sync

gosub L2

REM Level 2
L2:
Print \"Level 2\"

rem controled object
make object cube 1,1
position object 1,2,1.51,5
yrotate object 1,90
color object 1,rgb(255,0,0)

rem walls and ground
make object box 2,1000,1,1000
texture object 2,1

make object box 3,1,20,40
position object 3,0,2,30
texture object 3,1

make object box 4,40,20,1
position object 4,20,2,0
texture object 4,1

make object box 5,1,20,40
position object 5,40,2,30
texture object 5,1

make object box 6,40,20,1
position object 6,20,2,50
texture object 6,1

make object box 7,20,20,1
position object 7,10,2,40
texture object 7,1

make object box 8,1,20,20
position object 8,20,2,30
texture object 8, 1

make object box 9,1,20,20
position object 9,10,2,20
texture object 9,1

make object box 10,1,20,20
position object 10,20,2,30
texture object 10,1

make object box 11,20,20,1
position object 11,20,2,10
texture object 11,1

make object box 12,1,20,40
position object 12,30,2,20
texture object 12,1

make object box 1000,1,5,10
position object 1000,0,0,5
hide object 1000

make object box 1001,1,5,10
position object 1001,40,0,5
hide object 1001

rem sky
color backdrop 1000

rem collision
set object collision to boxes 2

rem main loop
do

rem level 2 print
center text 320,15,\"Level 2\" : set text to bold : set text size 30

rem controls
aY# = object angle Y(1)
if upkey()=1 then move object 1,0.4
if downkey()=1 then move object 1,-0.4
if rightkey()=1 then aY# = wrapvalue(aY#+3)
if leftkey()=1 then aY# = wrapvalue(aY#-3)
yrotate object 1,aY#

rem collision stats
if object collision(1,1001)
wait 1500
delete object 3
delete object 4
delete object 5
delete object 6
delete object 7
delete object 8
delete object 9
delete object 10
delete object 11
delete object 12
endif
if object collision(1,0) then position object 1,X1#,1.51,Z1#

rem camera
X1# = Object position x(1)
Z1# = Object position z(1)
X# = Newxvalue(X1#,aY#-180,5)
Z# = Newzvalue(Z1#,aY#-180,5)
Position Camera X#,4,Z#
Point camera X1#,3,Z1#
if controlkey()=1 then Position Camera X#,64,Z# : Point camera X1#,48,Z1#

inc count
if count=30
for c = 2 to 12
which=rnd(5)

if count=30 then count=0

sync

gosub L3

REM Level 3
L3:
Print \"Level 3\"

rem controled object
make object cube 1,1
position object 1,2,1.51,5
yrotate object 1,90
color object 1,rgb(255,0,0)

rem walls and ground
make object box 2,1000,1,1000
texture object 2,1

make object box 3,1,20,40
position object 3,0,2,30
texture object 3,1

make object box 4,40,20,1
position object 4,20,2,0
texture object 4,1

make object box 5,1,20,40
position object 5,40,2,30
texture object 5,1

make object box 6,40,20,1
position object 6,20,2,50
texture object 6,1

make object box 7,20,20,1
position object 7,10,2,40
texture object 7,1

make object box 8,1,20,20
position object 8,20,2,30
texture object 8, 1

make object box 9,1,20,20
position object 9,10,2,20
texture object 9,1

make object box 10,1,20,20
position object 10,20,2,30
texture object 10,1

make object box 11,20,20,1
position object 11,20,2,10
texture object 11,1

make object box 12,1,20,40
position object 12,30,2,20
texture object 12,1

make object box 1000,1,5,10
position object 1000,0,0,5
hide object 1000

make object box 1001,1,5,10
position object 1001,40,0,5
hide object 1001

rem sky
color backdrop 1000

rem collision
set object collision to boxes 2

rem main loop
do

rem level 3 print
center text 320,15,\"Level 3\" : set text to bold : set text size 30

rem controls
aY# = object angle Y(1)
if upkey()=1 then move object 1,0.4
if downkey()=1 then move object 1,-0.4
if rightkey()=1 then aY# = wrapvalue(aY#+3)
if leftkey()=1 then aY# = wrapvalue(aY#-3)
yrotate object 1,aY#

rem collision stats
if object collision(1,1001)
wait 1500
delete object 3
delete object 4
delete object 5
delete object 6
delete object 7
delete object 8
delete object 9
delete object 10
delete object 11
delete object 12
endif
if object collision(1,0) then position object 1,X1#,1.51,Z1#

rem camera
X1# = Object position x(1)
Z1# = Object position z(1)
X# = Newxvalue(X1#,aY#-180,5)
Z# = Newzvalue(Z1#,aY#-180,5)
Position Camera X#,4,Z#
Point camera X1#,3,Z1#
if controlkey()=1 then Position Camera X#,64,Z# : Point camera X1#,48,Z1#

inc count
if count=30
for c = 2 to 12
which=rnd(5)

if count=30 then count=0

sync

gosub L4

REM Level 4
L4:
Print \"Level 4\"

rem controled object
make object cube 1,1
position object 1,2,1.51,5
yrotate object 1,90
color object 1,rgb(255,0,0)

rem walls and ground
make object box 2,1000,1,1000
texture object 2,1

make object box 3,1,20,40
position object 3,0,2,30
texture object 3,1

make object box 4,40,20,1
position object 4,20,2,0
texture object 4,1

make object box 5,1,20,40
position object 5,40,2,30
texture object 5,1

make object box 6,40,20,1
position object 6,20,2,50
texture object 6,1

make object box 7,20,20,1
position object 7,10,2,40
texture object 7,1

make object box 8,1,20,20
position object 8,20,2,30
texture object 8, 1

make object box 9,1,20,20
position object 9,10,2,20
texture object 9,1

make object box 10,1,20,20
position object 10,20,2,30
texture object 10,1

make object box 11,20,20,1
position object 11,20,2,10
texture object 11,1

make object box 12,1,20,40
position object 12,30,2,20
texture object 12,1

make object box 1000,1,5,10
position object 1000,0,0,5
hide object 1000

make object box 1001,1,5,10
position object 1001,40,0,5
hide object 1001

rem sky
color backdrop 1000

rem collision
set object collision to boxes 2

rem main loop
do

rem level 4 print
center text 320,15,\"Level 4\" : set text to bold : set text size 30

rem controls
aY# = object angle Y(1)
if upkey()=1 then move object 1,0.4
if downkey()=1 then move object 1,-0.4
if rightkey()=1 then aY# = wrapvalue(aY#+3)
if leftkey()=1 then aY# = wrapvalue(aY#-3)
yrotate object 1,aY#

rem collision stats
if object collision(1,1001)
wait 1500
delete object 3
delete object 4
delete object 5
delete object 6
delete object 7
delete object 8
delete object 9
delete object 10
delete object 11
delete object 12
endif
if object collision(1,0) then position object 1,X1#,1.51,Z1#

rem camera
X1# = Object position x(1)
Z1# = Object position z(1)
X# = Newxvalue(X1#,aY#-180,5)
Z# = Newzvalue(Z1#,aY#-180,5)
Position Camera X#,4,Z#
Point camera X1#,3,Z1#
if controlkey()=1 then Position Camera X#,64,Z# : Point camera X1#,48,Z1#

inc count
if count=30
for c = 2 to 12
which=rnd(5)

if count=30 then count=0

sync

gosub L5

REM Level 5
L5:
Print \"Level 5\"

rem controled object
make object cube 1,1
position object 1,2,1.51,5
yrotate object 1,90
color object 1,rgb(255,0,0)

rem walls and ground
make object box 2,1000,1,1000
texture object 2,1

make object box 3,1,20,40
position object 3,0,2,30
texture object 3,1

make object box 4,40,20,1
position object 4,20,2,0
texture object 4,1

make object box 5,1,20,40
position object 5,40,2,30
texture object 5,1

make object box 6,40,20,1
position object 6,20,2,50
texture object 6,1

make object box 7,20,20,1
position object 7,10,2,40
texture object 7,1

make object box 8,1,20,20
position object 8,20,2,30
texture object 8, 1

make object box 9,1,20,20
position object 9,10,2,20
texture object 9,1

make object box 10,1,20,20
position object 10,20,2,30
texture object 10,1

make object box 11,20,20,1
position object 11,20,2,10
texture object 11,1

make object box 12,1,20,40
position object 12,30,2,20
texture object 12,1

make object box 1000,1,5,10
position object 1000,0,0,5
hide object 1000

make object box 1001,1,5,10
position object 1001,40,0,5
hide object 1001

rem sky
color backdrop 1000

rem collision
set object collision to boxes 2

rem main loop
do

rem level 5 print
center text 320,15,\"Level 5\" : set text to bold : set text size 30
loop
rem controls
aY# = object angle Y(1)
if upkey()=1 then move object 1,0.4
if downkey()=1 then move object 1,-0.4
if rightkey()=1 then aY# = wrapvalue(aY#+3)
if leftkey()=1 then aY# = wrapvalue(aY#-3)
yrotate object 1,aY#

rem collision stats
if object collision(1,1001)
wait 1500
delete object 3
delete object 4
delete object 5
delete object 6
delete object 7
delete object 8
delete object 9
delete object 10
delete object 11
delete object 12
endif
if object collision(1,0) then position object 1,X1#,1.51,Z1#

rem camera
X1# = Object position x(1)
Z1# = Object position z(1)
X# = Newxvalue(X1#,aY#-180,5)
Z# = Newzvalue(Z1#,aY#-180,5)
Position Camera X#,4,Z#
Point camera X1#,3,Z1#
if controlkey()=1 then Position Camera X#,64,Z# : Point camera X1#,48,Z1#

inc count
if count=30
for c = 2 to 12
which=rnd(5)

if count=30 then count=0
end
wait key

hide mouse
sync on : sync rate 60
randomize timer()

load image \"E:\\nutrun\\pictures\\texture.bmp\",1

Print \"Level 1\"
REM Level 1


rem controled object
make object cube 1,1
position object 1,2,1.51,5
yrotate object 1,90
color object 1,rgb(255,0,0)

rem walls and ground
make object box 2,1000,1,1000
texture object 2,1


make object box 3,1,20,40
position object 3,0,2,30
texture object 3,1


make object box 4,40,20,1
position object 4,20,2,0
texture object 4,1

make object box 5,1,20,40
position object 5,40,2,30
texture object 5,1

make object box 6,40,20,1
position object 6,20,2,50
texture object 6,1

make object box 7,20,20,1
position object 7,10,2,40
texture object 7,1

make object box 8,1,20,20
position object 8,20,2,30
texture object 8, 1

make object box 9,1,20,20
position object 9,10,2,20
texture object 9,1

make object box 10,1,20,20
position object 10,20,2,30
texture object 10,1

make object box 11,20,20,1
position object 11,20,2,10
texture object 11,1

make object box 12,1,20,40
position object 12,30,2,20
texture object 12,1

make object box 1000,1,5,10
position object 1000,0,0,5
hide object 1000

make object box 1001,1,5,10
position object 1001,40,0,5
hide object 1001

rem sky
color backdrop 1000

rem collision
set object collision to boxes 2

rem main loop
do

rem level 1 print
center text 320,15,\"Level 1\" : set text to bold : set text size 30

rem controls
aY# = object angle Y(1)
if upkey()=1 then move object 1,0.4
if downkey()=1 then move object 1,-0.4
if rightkey()=1 then aY# = wrapvalue(aY#+3)
if leftkey()=1 then aY# = wrapvalue(aY#-3)
yrotate object 1,aY#

rem collision stats
if object collision(1,1001)
wait 1500
delete object 3
delete object 4
delete object 5
delete object 6
delete object 7
delete object 8
delete object 9
delete object 10
delete object 11
delete object 12
endif
if object collision(1,0) then position object 1,X1#,1.51,Z1#

rem camera
X1# = Object position x(1)
Z1# = Object position z(1)
X# = Newxvalue(X1#,aY#-180,5)
Z# = Newzvalue(Z1#,aY#-180,5)
Position Camera X#,4,Z#
Point camera X1#,3,Z1#
if controlkey()=1 then Position Camera X#,64,Z# : Point camera X1#,48,Z1#

inc count
if count=30
for c = 2 to 12
which=rnd(5)

if count=30 then count=0


sync


gosub L2

REM Level 2
L2:
Print \"Level 2\"

rem controled object
make object cube 1,1
position object 1,2,1.51,5
yrotate object 1,90
color object 1,rgb(255,0,0)

rem walls and ground
make object box 2,1000,1,1000
texture object 2,1


make object box 3,1,20,40
position object 3,0,2,30
texture object 3,1


make object box 4,40,20,1
position object 4,20,2,0
texture object 4,1

make object box 5,1,20,40
position object 5,40,2,30
texture object 5,1

make object box 6,40,20,1
position object 6,20,2,50
texture object 6,1

make object box 7,20,20,1
position object 7,10,2,40
texture object 7,1

make object box 8,1,20,20
position object 8,20,2,30
texture object 8, 1

make object box 9,1,20,20
position object 9,10,2,20
texture object 9,1

make object box 10,1,20,20
position object 10,20,2,30
texture object 10,1

make object box 11,20,20,1
position object 11,20,2,10
texture object 11,1

make object box 12,1,20,40
position object 12,30,2,20
texture object 12,1

make object box 1000,1,5,10
position object 1000,0,0,5
hide object 1000

make object box 1001,1,5,10
position object 1001,40,0,5
hide object 1001

rem sky
color backdrop 1000

rem collision
set object collision to boxes 2

rem main loop
do

rem level 2 print
center text 320,15,\"Level 2\" : set text to bold : set text size 30

rem controls
aY# = object angle Y(1)
if upkey()=1 then move object 1,0.4
if downkey()=1 then move object 1,-0.4
if rightkey()=1 then aY# = wrapvalue(aY#+3)
if leftkey()=1 then aY# = wrapvalue(aY#-3)
yrotate object 1,aY#

rem collision stats
if object collision(1,1001)
wait 1500
delete object 3
delete object 4
delete object 5
delete object 6
delete object 7
delete object 8
delete object 9
delete object 10
delete object 11
delete object 12
endif
if object collision(1,0) then position object 1,X1#,1.51,Z1#

rem camera
X1# = Object position x(1)
Z1# = Object position z(1)
X# = Newxvalue(X1#,aY#-180,5)
Z# = Newzvalue(Z1#,aY#-180,5)
Position Camera X#,4,Z#
Point camera X1#,3,Z1#
if controlkey()=1 then Position Camera X#,64,Z# : Point camera X1#,48,Z1#

inc count
if count=30
for c = 2 to 12
which=rnd(5)

if count=30 then count=0


sync


gosub L3

REM Level 3
L3:
Print \"Level 3\"

rem controled object
make object cube 1,1
position object 1,2,1.51,5
yrotate object 1,90
color object 1,rgb(255,0,0)

rem walls and ground
make object box 2,1000,1,1000
texture object 2,1


make object box 3,1,20,40
position object 3,0,2,30
texture object 3,1


make object box 4,40,20,1
position object 4,20,2,0
texture object 4,1

make object box 5,1,20,40
position object 5,40,2,30
texture object 5,1

make object box 6,40,20,1
position object 6,20,2,50
texture object 6,1

make object box 7,20,20,1
position object 7,10,2,40
texture object 7,1

make object box 8,1,20,20
position object 8,20,2,30
texture object 8, 1

make object box 9,1,20,20
position object 9,10,2,20
texture object 9,1

make object box 10,1,20,20
position object 10,20,2,30
texture object 10,1

make object box 11,20,20,1
position object 11,20,2,10
texture object 11,1

make object box 12,1,20,40
position object 12,30,2,20
texture object 12,1

make object box 1000,1,5,10
position object 1000,0,0,5
hide object 1000

make object box 1001,1,5,10
position object 1001,40,0,5
hide object 1001

rem sky
color backdrop 1000

rem collision
set object collision to boxes 2

rem main loop
do

rem level 3 print
center text 320,15,\"Level 3\" : set text to bold : set text size 30

rem controls
aY# = object angle Y(1)
if upkey()=1 then move object 1,0.4
if downkey()=1 then move object 1,-0.4
if rightkey()=1 then aY# = wrapvalue(aY#+3)
if leftkey()=1 then aY# = wrapvalue(aY#-3)
yrotate object 1,aY#

rem collision stats
if object collision(1,1001)
wait 1500
delete object 3
delete object 4
delete object 5
delete object 6
delete object 7
delete object 8
delete object 9
delete object 10
delete object 11
delete object 12
endif
if object collision(1,0) then position object 1,X1#,1.51,Z1#

rem camera
X1# = Object position x(1)
Z1# = Object position z(1)
X# = Newxvalue(X1#,aY#-180,5)
Z# = Newzvalue(Z1#,aY#-180,5)
Position Camera X#,4,Z#
Point camera X1#,3,Z1#
if controlkey()=1 then Position Camera X#,64,Z# : Point camera X1#,48,Z1#

inc count
if count=30
for c = 2 to 12
which=rnd(5)

if count=30 then count=0


sync


gosub L4

REM Level 4
L4:
Print \"Level 4\"

rem controled object
make object cube 1,1
position object 1,2,1.51,5
yrotate object 1,90
color object 1,rgb(255,0,0)

rem walls and ground
make object box 2,1000,1,1000
texture object 2,1


make object box 3,1,20,40
position object 3,0,2,30
texture object 3,1


make object box 4,40,20,1
position object 4,20,2,0
texture object 4,1

make object box 5,1,20,40
position object 5,40,2,30
texture object 5,1

make object box 6,40,20,1
position object 6,20,2,50
texture object 6,1

make object box 7,20,20,1
position object 7,10,2,40
texture object 7,1

make object box 8,1,20,20
position object 8,20,2,30
texture object 8, 1

make object box 9,1,20,20
position object 9,10,2,20
texture object 9,1

make object box 10,1,20,20
position object 10,20,2,30
texture object 10,1

make object box 11,20,20,1
position object 11,20,2,10
texture object 11,1

make object box 12,1,20,40
position object 12,30,2,20
texture object 12,1

make object box 1000,1,5,10
position object 1000,0,0,5
hide object 1000

make object box 1001,1,5,10
position object 1001,40,0,5
hide object 1001

rem sky
color backdrop 1000

rem collision
set object collision to boxes 2

rem main loop
do

rem level 4 print
center text 320,15,\"Level 4\" : set text to bold : set text size 30

rem controls
aY# = object angle Y(1)
if upkey()=1 then move object 1,0.4
if downkey()=1 then move object 1,-0.4
if rightkey()=1 then aY# = wrapvalue(aY#+3)
if leftkey()=1 then aY# = wrapvalue(aY#-3)
yrotate object 1,aY#

rem collision stats
if object collision(1,1001)
wait 1500
delete object 3
delete object 4
delete object 5
delete object 6
delete object 7
delete object 8
delete object 9
delete object 10
delete object 11
delete object 12
endif
if object collision(1,0) then position object 1,X1#,1.51,Z1#

rem camera
X1# = Object position x(1)
Z1# = Object position z(1)
X# = Newxvalue(X1#,aY#-180,5)
Z# = Newzvalue(Z1#,aY#-180,5)
Position Camera X#,4,Z#
Point camera X1#,3,Z1#
if controlkey()=1 then Position Camera X#,64,Z# : Point camera X1#,48,Z1#

inc count
if count=30
for c = 2 to 12
which=rnd(5)

if count=30 then count=0


sync

gosub L5

REM Level 5
L5:
Print \"Level 5\"


rem controled object
make object cube 1,1
position object 1,2,1.51,5
yrotate object 1,90
color object 1,rgb(255,0,0)

rem walls and ground
make object box 2,1000,1,1000
texture object 2,1


make object box 3,1,20,40
position object 3,0,2,30
texture object 3,1


make object box 4,40,20,1
position object 4,20,2,0
texture object 4,1

make object box 5,1,20,40
position object 5,40,2,30
texture object 5,1

make object box 6,40,20,1
position object 6,20,2,50
texture object 6,1

make object box 7,20,20,1
position object 7,10,2,40
texture object 7,1

make object box 8,1,20,20
position object 8,20,2,30
texture object 8, 1

make object box 9,1,20,20
position object 9,10,2,20
texture object 9,1

make object box 10,1,20,20
position object 10,20,2,30
texture object 10,1

make object box 11,20,20,1
position object 11,20,2,10
texture object 11,1

make object box 12,1,20,40
position object 12,30,2,20
texture object 12,1

make object box 1000,1,5,10
position object 1000,0,0,5
hide object 1000

make object box 1001,1,5,10
position object 1001,40,0,5
hide object 1001

rem sky
color backdrop 1000

rem collision
set object collision to boxes 2

rem main loop
do

rem level 5 print
center text 320,15,\"Level 5\" : set text to bold : set text size 30
loop
rem controls
aY# = object angle Y(1)
if upkey()=1 then move object 1,0.4
if downkey()=1 then move object 1,-0.4
if rightkey()=1 then aY# = wrapvalue(aY#+3)
if leftkey()=1 then aY# = wrapvalue(aY#-3)
yrotate object 1,aY#

rem collision stats
if object collision(1,1001)
wait 1500
delete object 3
delete object 4
delete object 5
delete object 6
delete object 7
delete object 8
delete object 9
delete object 10
delete object 11
delete object 12
endif
if object collision(1,0) then position object 1,X1#,1.51,Z1#

rem camera
X1# = Object position x(1)
Z1# = Object position z(1)
X# = Newxvalue(X1#,aY#-180,5)
Z# = Newzvalue(Z1#,aY#-180,5)
Position Camera X#,4,Z#
Point camera X1#,3,Z1#
if controlkey()=1 then Position Camera X#,64,Z# : Point camera X1#,48,Z1#

inc count
if count=30
for c = 2 to 12
which=rnd(5)

if count=30 then count=0
end
wait key

You are entering the Wu Dynasty. Boomshakalaka
-Nathan

Back to top

Profile PM

Kevin Picone

23

Years of Service

User Offline

Joined: 27th Aug 2002

Location: Australia

Posted: 29th May 2013 19:23 Edited at: 29th May 2013 19:24

down at the bottom of this code you have this,

inc count
if count=30    <<<<<< This IF is missing an ENDIF
for c = 2 to 12    <<<<<< This FOR is missing it's NEXT
which=rnd(5)

if count=30 then count=0
end
wait key

So you're missing a NEXT statement to close the FOR loop, plus an ENDIF to close the open IF statement.

Mobile Platforms Are Coming

Back to top

Profile PM Website

Sergey K

22

Years of Service

User Offline

Joined: 4th Jan 2004

Location:

Posted: 29th May 2013 21:22

u already made thread..

same question, same code and the answer is still the same.

http://forum.thegamecreators.com/?m=forum_view&t=205756&b=1

if you made a new thread, what exactly you trying figure? my answer wasnt good enough? but still Kevin said the same..

Stream SnifferTools/Plugins/Models/Games and more!

Back to top

Profile PM Website

Ortu

DBPro Master

18

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 29th May 2013 22:27

proper indenting will almost always solve this sort of problem. it makes it so much easier to read and see whats happening and it is just good coding practice.

if
    code
endif

for
    if
        code
    endif
next

with proper indenting, if something is missing, then your code wont line up properly, and it becomes obvious exactly where you need to place a close statement.

Shazam!

Back to top

Profile PM Email Website

Back to top

Login to post a reply

Server time is: 2026-07-07 07:34:09
Your offset time is: 2026-07-07 07:34:09