Loading bar/percent complete - GameCreators Forum

Author

Message

Dark Basic Pro Enthusiast

12

Years of Service

User Offline

Joined: 8th Nov 2013

Location:

Posted: 6th Mar 2014 17:10 Edited at: 6th Mar 2014 17:12

Link

okay so for my game I have a main menu, but since it takes awhile on my school computer to load, I want to be able to have something that shows how far along the loading process is. This is the part of code that I want to add in the percent complete.

REM *** START SYSTEM SETUP SECTION
autocam on
sync off
REM *** STOP SYSTEM SETUP SECTION
REM *****************************************
rem main menu
MainMenu:
sync on
sync rate 30
do
cls
ink rgb(255,255,255),0
text 0,100,"NEW GAME"
text 0,130,"HOW TO PLAY"
text 0,160,"QUIT"

`NEW GAME
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 then ink rgb(0,0,100),0 : text 0,100,"NEW GAME"
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 and mouseclick()=1 then gosub loadall

`HOW TO PLAY
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 180 then ink rgb(0,0,100),0 : text 0,130,"HOW TO PLAY"
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 180 and mouseclick()=1 then text 100,130,"YOU CLICKED OPTIONS"

`QUIT
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 210 then ink rgb(0,0,100),0 : text 0,160,"QUIT"
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 210 and mouseclick()=1 then gosub ENDSECTION
sync
loop
loadall:
load image "E:\new edutainment project\images\arrow key.bmp",2
load image "E:\new edutainment project\images\NUMBERS\1.jpg",1
load image "E:\new edutainment project\images\NUMBERS\2.jpg",200
load image "E:\new edutainment project\images\NUMBERS\3.jpg",3
load image "E:\new edutainment project\images\NUMBERS\4.jpg",4
load image "E:\new edutainment project\images\NUMBERS\5.jpg",5
load image "E:\new edutainment project\images\NUMBERS\6.jpg",6
load image "E:\new edutainment project\images\NUMBERS\7.jpg",7
load image "E:\new edutainment project\images\NUMBERS\8.jpg",8
load image "E:\new edutainment project\images\NUMBERS\9.jpg",9
load image "E:\new edutainment project\images\NUMBERS\10.jpg",10
load image "E:\new edutainment project\images\NUMBERS\11.jpg",11
load image "E:\new edutainment project\images\NUMBERS\12.jpg",12
load image "E:\new edutainment project\images\NUMBERS\13.jpg",13
load image "E:\new edutainment project\images\NUMBERS\14.jpg",14
load image "E:\new edutainment project\images\NUMBERS\15.jpg",15
load image "E:\new edutainment project\images\NUMBERS\16.jpg",16
load image "E:\new edutainment project\images\NUMBERS\17.jpg",17
load image "E:\new edutainment project\images\NUMBERS\18.jpg",18
load image "E:\new edutainment project\images\NUMBERS\19.jpg",19
load image "E:\new edutainment project\images\NUMBERS\20.jpg",20
load image "E:\new edutainment project\images\NUMBERS\20.jpg",20
load image "E:\new edutainment project\images\NUMBERS\21.jpg",21
load image "E:\new edutainment project\images\NUMBERS\22.jpg",22
load image "E:\new edutainment project\images\NUMBERS\23.jpg",23
load image "E:\new edutainment project\images\FP Brighter.bmp",100
print "5%"
rem 1st rotate cube
make object cube 65,10
texture object 65,2
position object 65,-210,100,300
make mesh from object 1,65
add limb 65,1,1
scale limb 65,1,100,1000,0
show limb 65,1
offset limb 65,1,0,20,0
make object from limb 1000,65,1,1
position object 1000,-210,100,300
remove limb 65,1
hide object 1000
rem 2nd rotate cube
make object cube 66,10
texture object 66,2
position object 66,-110,100,300
make mesh from object 1,66
add limb 66,1,1
scale limb 66,1,100,1000,0
show limb 66,1
offset limb 66,1,0,20,0
make object from limb 1001,66,1,1
position object 1001,-110,100,300
remove limb 66,1
hide object 1001
rem 3rd rotate cube
make object cube 67,10
texture object 67,2
position object 67,-10,100,300
make mesh from object 1,67
add limb 67,1,1
scale limb 67,1,100,1000,0
show limb 67,1
offset limb 67,1,0,20,0
make object from limb 1002,67,1,1
position object 1002,-10,100,300
remove limb 67,1
hide object 1002
print "10%"
rem 4th rotate cube
make object cube 68,10
texture object 68,2
position object 68,90,100,300
make mesh from object 1,68
add limb 68,1,1
scale limb 68,1,100,1000,0
show limb 68,1
offset limb 68,1,0,20,0
make object from limb 1003,68,1,1
position object 1003,90,100,300
remove limb 68,1
hide object 1003
rem 5th rotate cube
make object cube 69,10
texture object 69,2
position object 69,-260,50,300
make mesh from object 1,69
add limb 69,1,1
scale limb 69,1,100,1000,0
show limb 69,1
offset limb 69,1,0,20,0
make object from limb 1004,69,1,1
position object 1004,-260,50,300
remove limb 69,1
hide object 1004
rem 6th rotate cube
make object cube 70,10
texture object 70,2
position object 70,-160,50,300
make mesh from object 1,70
add limb 70,1,1
scale limb 70,1,100,1000,0
show limb 70,1
offset limb 70,1,0,20,0
make object from limb 1005,70,1,1
position object 1005,-160,50,300
remove limb 70,1
hide object 1005
print "15%"
rem 7th rotate cube
make object cube 71,10
texture object 71,2
position object 71,-60,50,300
make mesh from object 1,71
add limb 71,1,1
scale limb 71,1,100,1000,0
show limb 71,1
offset limb 71,1,0,20,0
make object from limb 1006,71,1,1
position object 1006,-60,50,300
remove limb 71,1
hide object 1006
rem 8th rotate cube
make object cube 72,10
texture object 72,2
position object 72,40,50,300
make mesh from object 1,72
add limb 72,1,1
scale limb 72,1,100,1000,0
show limb 72,1
offset limb 72,1,0,20,0
make object from limb 1007,72,1,1
position object 1007,40,50,300
remove limb 72,1
hide object 1007
rem 9th rotate cube
make object cube 73,10
texture object 73,2
position object 73,140,50,300
make mesh from object 1,73
add limb 73,1,1
scale limb 73,1,100,1000,0
show limb 73,1
offset limb 73,1,0,20,0
make object from limb 1008,73,1,1
position object 1008,140,50,300
remove limb 73,1
hide object 1008
print "20%"
rem 10th rotate cube
make object cube 74,10
texture object 74,2
position object 74,-210,0,300
make mesh from object 1,74
add limb 74,1,1
scale limb 74,1,100,1000,0
show limb 74,1
offset limb 74,1,0,20,0
make object from limb 1009,74,1,1
position object 1009,-210,0,300
remove limb 74,1
hide object 1009
rem 11th rotate cube
make object cube 75,10
texture object 75,2
position object 75,-110,0,300
make mesh from object 1,75
add limb 75,1,1
scale limb 75,1,100,1000,0
show limb 75,1
offset limb 75,1,0,20,0
make object from limb 1010,75,1,1
position object 1010,-110,0,300
remove limb 75,1
hide object 1010
rem 12th rotate cube
make object cube 76,10
texture object 76,2
position object 76,-10,0,300
make mesh from object 1,76
add limb 76,1,1
scale limb 76,1,100,1000,0
show limb 76,1
offset limb 76,1,0,20,0
make object from limb 1011,76,1,1
position object 1011,-10,0,300
remove limb 76,1
hide object 1011
print "25%"
rem 13th rotate cube
make object cube 77,10
texture object 77,2
position object 77,90,0,300
make mesh from object 1,77
add limb 77,1,1
scale limb 77,1,100,1000,0
show limb 77,1
offset limb 77,1,0,20,0
make object from limb 1012,77,1,1
position object 1012,90,0,300
remove limb 77,1
hide object 1012
rem 14th rotate cube
make object cube 78,10
texture object 78,2
position object 78,-260,-50,300
make mesh from object 1,78
add limb 78,1,1
scale limb 78,1,100,1000,0
show limb 78,1
offset limb 78,1,0,20,0
make object from limb 1013,78,1,1
position object 1013,-260,-50,300
remove limb 78,1
hide object 1013
rem 15th rotate cube
make object cube 79,10
texture object 79,2
position object 79,-160,-50,300
make mesh from object 1,79
add limb 79,1,1
scale limb 79,1,100,1000,0
show limb 79,1
offset limb 79,1,0,20,0
make object from limb 1014,79,1,1
position object 1014,-160,-50,300
remove limb 79,1
hide object 1014
print "30%"
rem 16th rotate cube
make object cube 80,10
texture object 80,2
position object 80,-60,-50,300
make mesh from object 1,80
add limb 80,1,1
scale limb 80,1,100,1000,0
show limb 80,1
offset limb 80,1,0,20,0
make object from limb 1015,80,1,1
position object 1015,-60,-50,300
remove limb 80,1
hide object 1015
rem 17th rotate cube
make object cube 81,10
texture object 81,2
position object 81,40,-50,300
make mesh from object 1,81
add limb 81,1,1
scale limb 81,1,100,1000,0
show limb 81,1
offset limb 81,1,0,20,0
make object from limb 1016,81,1,1
position object 1016,40,-50,300
remove limb 81,1
hide object 1016
rem 18th rotate cube
make object cube 82,10
texture object 82,2
position object 82,140,-50,300
make mesh from object 1,82
add limb 82,1,1
scale limb 82,1,100,1000,0
show limb 82,1
offset limb 82,1,0,20,0
make object from limb 1017,82,1,1
position object 1017,140,-50,300
remove limb 82,1
hide object 1017
print "35%"
rem 19th rotate cube
make object cube 83,10
texture object 83,2
position object 83,-210,-100,300
make mesh from object 1,83
add limb 83,1,1
scale limb 83,1,100,1000,0
show limb 83,1
offset limb 83,1,0,20,0
make object from limb 1018,83,1,1
position object 1018,-210,-100,300
remove limb 83,1
hide object 1018
rem 20th rotate cube
make object cube 84,10
texture object 84,2
position object 84,-110,-100,300
make mesh from object 1,84
add limb 84,1,1
scale limb 84,1,100,1000,0
show limb 84,1
offset limb 84,1,0,20,0
make object from limb 1019,84,1,1
position object 1019,-110,-100,300
remove limb 84,1
hide object 1019
rem 21st rotate cube
make object cube 85,10
texture object 85,2
position object 85,-10,-100,300
make mesh from object 1,85
add limb 85,1,1
scale limb 85,1,100,1000,0
show limb 85,1
offset limb 85,1,0,20,0
make object from limb 1020,85,1,1
position object 1020,-10,-100,300
remove limb 85,1
hide object 1020
print "40%"
rem 22nd rotate cube
make object cube 86,10
texture object 86,2
position object 86,90,-100,300
make mesh from object 1,86
add limb 86,1,1
scale limb 86,1,100,1000,0
show limb 86,1
offset limb 86,1,0,20,0
make object from limb 1021,86,1,1
position object 1021,90,-100,300
remove limb 86,1
hide object 1021
rem first row
for t=2 to 6
make object cube t,20
position object t,-360+(t-1)*100,100,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t
rem second row
for t=7 to 10
make object cube t,20
position object t,-310+(t-6)*100,50,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t
rem third row
for t=11 to 15
make object cube t,20
position object t,-360+(t-10)*100,0,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t
print "45%"
rem fourth row
for t=16 to 19
make object cube t,20
position object t,-310+(t-15)*100,-50,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t
rem fifth row
for t=20 to 24
make object cube t,20
position object t,-360+(t-19)*100,-100,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t
rem texture cubes
texture object 2,1
texture object 3,200
for t=4 to 23
texture object t,t-1
next t
print "50%"
rem texture cubes
rem lvl one walls
rem north wall
make object box 45,445,220,0
position object 45,-60,0,311
color object 45,rgb(0,255,0)
texture object 45,100
rem east wall
make object box 46,615,220,5
position object 46,162,0,2
color object 46,rgb(0,255,0)
yrotate object 46,90
texture object 46,100
rem top wall
make object box 47,445,615,5
position object 47,-60,110,0
rotate object 47,90,0,0
color object 47,rgb(0,200,0)
texture object 47,100
print "55%"
rem south wall
make object box 48,445,220,0
position object 48,-60,0,-308
color object 48,rgb(0,255,0)
texture object 48,100
rem west wall
make object box 49,615,220,5
position object 49,-280,0,0
color object 49,rgb(0,255,0)
yrotate object 49,90
texture object 49,100
rem floor wall
make object box 50,445,615,5
position object 50,-60,-110,0
rotate object 50,90,0,0
color object 50,rgb(0,200,0)
texture object 50,100
rem runway
make object box 51,1380,400,0
rotate object 51,90,0,0
position object 51,406,-110,-501
print "60%"
rem runway
make object box 92,1380,400,0
rotate object 92,90,0,0
position object 92,406,-110,-501
REM LVL 2 WALLS
rem north wall
make object box 52,445,220,0
position object 52,-60,0,311-1010
color object 52,rgb(0,255,0)
texture object 52,100
rem east wall
make object box 53,615,220,5
position object 53,162,0,2-1010
color object 53,rgb(0,255,0)
yrotate object 53,90
texture object 53,100
rem top wall
make object box 54,445,615,5
position object 54,-60,110,-1010
rotate object 54,90,0,0
color object 54,rgb(0,200,0)
texture object 54,100
print "65%"
rem south wall
make object box 55,445,220,0
position object 55,-60,0,-308-1010
color object 55,rgb(0,255,0)
texture object 55,100
rem west wall
make object box 56,615,220,5
position object 56,-280,0,-1010
color object 56,rgb(0,255,0)
yrotate object 56,90
texture object 56,100
rem floor wall
make object box 57,445,615,5
position object 57,-60,-110,-1010
rotate object 57,90,0,0
color object 57,rgb(0,200,0)
texture object 57,100
print "75%"
rem lvl 3
make object box 58,445,220,0
position object 58,-60+935,0,311-1010
color object 58,rgb(0,255,0)
texture object 58,100
rem east wall
make object box 59,615,220,5
position object 59,162+935,0,2-1010
color object 59,rgb(0,255,0)
yrotate object 59,90
texture object 59,100
rem top wall
make object box 60,445,615,5
position object 60,-60+935,110,-1010
rotate object 60,90,0,0
color object 60,rgb(0,200,0)
texture object 60,100
print "85%"
rem south wall
make object box 61,445,220,0
position object 61,-60+935,0,-308-1010
color object 61,rgb(0,255,0)
texture object 61,100
rem west wall
make object box 62,615,220,5
position object 62,-280+935,0,-1010
color object 62,rgb(0,255,0)
yrotate object 62,90
texture object 62,100
rem floor wall
make object box 63,445,615,5
position object 63,-60+935,-110,-1010
rotate object 63,90,0,0
color object 63,rgb(0,200,0)
texture object 63,100
rem lvl 4
make object box 64,445,220,0
position object 64,-60+935,0,311
color object 64,rgb(0,255,0)
texture object 64,100
print "95%"
rem east wall
make object box 87,615,220,5
position object 87,162+935,0,2
color object 87,rgb(0,255,0)
yrotate object 87,90
texture object 87,100
rem top wall
make object box 88,445,615,5
position object 88,-60+935,110,0
rotate object 88,90,0,0
color object 88,rgb(0,200,0)
texture object 88,100
rem south wall
make object box 89,445,220,0
position object 89,-60+935,0,-308
color object 89,rgb(0,255,0)
texture object 89,100
rem west wall
make object box 90,615,220,5
position object 90,-280+935,0,0
color object 90,rgb(0,255,0)
yrotate object 90,90
texture object 90,100
rem floor wall
make object box 91,445,615,5
position object 91,-60+935,-110,0
rotate object 91,90,0,0
color object 91,rgb(0,200,0)
texture object 91,100
print "100%"
LVL1SECTION:

+ Code Snippet

REM *** START SYSTEM SETUP SECTION
autocam on
sync off
REM *** STOP SYSTEM SETUP SECTION
REM *****************************************
rem main menu
MainMenu:
sync on
sync rate 30
do
cls
ink rgb(255,255,255),0
text 0,100,"NEW GAME"
text 0,130,"HOW TO PLAY"
text 0,160,"QUIT"

`NEW GAME
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 then ink rgb(0,0,100),0 : text 0,100,"NEW GAME"
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 and mouseclick()=1 then gosub loadall

`HOW TO PLAY
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 180 then ink rgb(0,0,100),0 : text 0,130,"HOW TO PLAY"
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 180 and mouseclick()=1 then text 100,130,"YOU CLICKED OPTIONS"

`QUIT
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 210 then ink rgb(0,0,100),0 : text 0,160,"QUIT"
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 210 and mouseclick()=1 then gosub ENDSECTION
sync
loop
loadall:
load image "E:\new edutainment project\images\arrow key.bmp",2
load image "E:\new edutainment project\images\NUMBERS\1.jpg",1
load image "E:\new edutainment project\images\NUMBERS\2.jpg",200
load image "E:\new edutainment project\images\NUMBERS\3.jpg",3
load image "E:\new edutainment project\images\NUMBERS\4.jpg",4
load image "E:\new edutainment project\images\NUMBERS\5.jpg",5
load image "E:\new edutainment project\images\NUMBERS\6.jpg",6
load image "E:\new edutainment project\images\NUMBERS\7.jpg",7
load image "E:\new edutainment project\images\NUMBERS\8.jpg",8
load image "E:\new edutainment project\images\NUMBERS\9.jpg",9
load image "E:\new edutainment project\images\NUMBERS\10.jpg",10
load image "E:\new edutainment project\images\NUMBERS\11.jpg",11
load image "E:\new edutainment project\images\NUMBERS\12.jpg",12
load image "E:\new edutainment project\images\NUMBERS\13.jpg",13
load image "E:\new edutainment project\images\NUMBERS\14.jpg",14
load image "E:\new edutainment project\images\NUMBERS\15.jpg",15
load image "E:\new edutainment project\images\NUMBERS\16.jpg",16
load image "E:\new edutainment project\images\NUMBERS\17.jpg",17
load image "E:\new edutainment project\images\NUMBERS\18.jpg",18
load image "E:\new edutainment project\images\NUMBERS\19.jpg",19
load image "E:\new edutainment project\images\NUMBERS\20.jpg",20
load image "E:\new edutainment project\images\NUMBERS\20.jpg",20
load image "E:\new edutainment project\images\NUMBERS\21.jpg",21
load image "E:\new edutainment project\images\NUMBERS\22.jpg",22
load image "E:\new edutainment project\images\NUMBERS\23.jpg",23
load image "E:\new edutainment project\images\FP Brighter.bmp",100
print "5%"
rem 1st rotate cube
make object cube 65,10
texture object 65,2
position object 65,-210,100,300
make mesh from object 1,65
add limb 65,1,1
scale limb 65,1,100,1000,0
show limb 65,1
offset limb 65,1,0,20,0
make object from limb 1000,65,1,1
position object 1000,-210,100,300
remove limb 65,1
hide object 1000
rem 2nd rotate cube
make object cube 66,10
texture object 66,2
position object 66,-110,100,300
make mesh from object 1,66
add limb 66,1,1
scale limb 66,1,100,1000,0
show limb 66,1
offset limb 66,1,0,20,0
make object from limb 1001,66,1,1
position object 1001,-110,100,300
remove limb 66,1
hide object 1001
rem 3rd rotate cube
make object cube 67,10
texture object 67,2
position object 67,-10,100,300
make mesh from object 1,67
add limb 67,1,1
scale limb 67,1,100,1000,0
show limb 67,1
offset limb 67,1,0,20,0
make object from limb 1002,67,1,1
position object 1002,-10,100,300
remove limb 67,1
hide object 1002
print "10%"
rem 4th rotate cube
make object cube 68,10
texture object 68,2
position object 68,90,100,300
make mesh from object 1,68
add limb 68,1,1
scale limb 68,1,100,1000,0
show limb 68,1
offset limb 68,1,0,20,0
make object from limb 1003,68,1,1
position object 1003,90,100,300
remove limb 68,1
hide object 1003
rem 5th rotate cube
make object cube 69,10
texture object 69,2
position object 69,-260,50,300
make mesh from object 1,69
add limb 69,1,1
scale limb 69,1,100,1000,0
show limb 69,1
offset limb 69,1,0,20,0
make object from limb 1004,69,1,1
position object 1004,-260,50,300
remove limb 69,1
hide object 1004
rem 6th rotate cube
make object cube 70,10
texture object 70,2
position object 70,-160,50,300
make mesh from object 1,70
add limb 70,1,1
scale limb 70,1,100,1000,0
show limb 70,1
offset limb 70,1,0,20,0
make object from limb 1005,70,1,1
position object 1005,-160,50,300
remove limb 70,1
hide object 1005
print "15%"
rem 7th rotate cube
make object cube 71,10
texture object 71,2
position object 71,-60,50,300
make mesh from object 1,71
add limb 71,1,1
scale limb 71,1,100,1000,0
show limb 71,1
offset limb 71,1,0,20,0
make object from limb 1006,71,1,1
position object 1006,-60,50,300
remove limb 71,1
hide object 1006
rem 8th rotate cube
make object cube 72,10
texture object 72,2
position object 72,40,50,300
make mesh from object 1,72
add limb 72,1,1
scale limb 72,1,100,1000,0
show limb 72,1
offset limb 72,1,0,20,0
make object from limb 1007,72,1,1
position object 1007,40,50,300
remove limb 72,1
hide object 1007
rem 9th rotate cube
make object cube 73,10
texture object 73,2
position object 73,140,50,300
make mesh from object 1,73
add limb 73,1,1
scale limb 73,1,100,1000,0
show limb 73,1
offset limb 73,1,0,20,0
make object from limb 1008,73,1,1
position object 1008,140,50,300
remove limb 73,1
hide object 1008
print "20%"
rem 10th rotate cube
make object cube 74,10
texture object 74,2
position object 74,-210,0,300
make mesh from object 1,74
add limb 74,1,1
scale limb 74,1,100,1000,0
show limb 74,1
offset limb 74,1,0,20,0
make object from limb 1009,74,1,1
position object 1009,-210,0,300
remove limb 74,1
hide object 1009
rem 11th rotate cube
make object cube 75,10
texture object 75,2
position object 75,-110,0,300
make mesh from object 1,75
add limb 75,1,1
scale limb 75,1,100,1000,0
show limb 75,1
offset limb 75,1,0,20,0
make object from limb 1010,75,1,1
position object 1010,-110,0,300
remove limb 75,1
hide object 1010
rem 12th rotate cube
make object cube 76,10
texture object 76,2
position object 76,-10,0,300
make mesh from object 1,76
add limb 76,1,1
scale limb 76,1,100,1000,0
show limb 76,1
offset limb 76,1,0,20,0
make object from limb 1011,76,1,1
position object 1011,-10,0,300
remove limb 76,1
hide object 1011
print "25%"
rem 13th rotate cube
make object cube 77,10
texture object 77,2
position object 77,90,0,300
make mesh from object 1,77
add limb 77,1,1
scale limb 77,1,100,1000,0
show limb 77,1
offset limb 77,1,0,20,0
make object from limb 1012,77,1,1
position object 1012,90,0,300
remove limb 77,1
hide object 1012
rem 14th rotate cube
make object cube 78,10
texture object 78,2
position object 78,-260,-50,300
make mesh from object 1,78
add limb 78,1,1
scale limb 78,1,100,1000,0
show limb 78,1
offset limb 78,1,0,20,0
make object from limb 1013,78,1,1
position object 1013,-260,-50,300
remove limb 78,1
hide object 1013
rem 15th rotate cube
make object cube 79,10
texture object 79,2
position object 79,-160,-50,300
make mesh from object 1,79
add limb 79,1,1
scale limb 79,1,100,1000,0
show limb 79,1
offset limb 79,1,0,20,0
make object from limb 1014,79,1,1
position object 1014,-160,-50,300
remove limb 79,1
hide object 1014
print "30%"
rem 16th rotate cube
make object cube 80,10
texture object 80,2
position object 80,-60,-50,300
make mesh from object 1,80
add limb 80,1,1
scale limb 80,1,100,1000,0
show limb 80,1
offset limb 80,1,0,20,0
make object from limb 1015,80,1,1
position object 1015,-60,-50,300
remove limb 80,1
hide object 1015
rem 17th rotate cube
make object cube 81,10
texture object 81,2
position object 81,40,-50,300
make mesh from object 1,81
add limb 81,1,1
scale limb 81,1,100,1000,0
show limb 81,1
offset limb 81,1,0,20,0
make object from limb 1016,81,1,1
position object 1016,40,-50,300
remove limb 81,1
hide object 1016
rem 18th rotate cube
make object cube 82,10
texture object 82,2
position object 82,140,-50,300
make mesh from object 1,82
add limb 82,1,1
scale limb 82,1,100,1000,0
show limb 82,1
offset limb 82,1,0,20,0
make object from limb 1017,82,1,1
position object 1017,140,-50,300
remove limb 82,1
hide object 1017
print "35%"
rem 19th rotate cube
make object cube 83,10
texture object 83,2
position object 83,-210,-100,300
make mesh from object 1,83
add limb 83,1,1
scale limb 83,1,100,1000,0
show limb 83,1
offset limb 83,1,0,20,0
make object from limb 1018,83,1,1
position object 1018,-210,-100,300
remove limb 83,1
hide object 1018
rem 20th rotate cube
make object cube 84,10
texture object 84,2
position object 84,-110,-100,300
make mesh from object 1,84
add limb 84,1,1
scale limb 84,1,100,1000,0
show limb 84,1
offset limb 84,1,0,20,0
make object from limb 1019,84,1,1
position object 1019,-110,-100,300
remove limb 84,1
hide object 1019
rem 21st rotate cube
make object cube 85,10
texture object 85,2
position object 85,-10,-100,300
make mesh from object 1,85
add limb 85,1,1
scale limb 85,1,100,1000,0
show limb 85,1
offset limb 85,1,0,20,0
make object from limb 1020,85,1,1
position object 1020,-10,-100,300
remove limb 85,1
hide object 1020
print "40%"
rem 22nd rotate cube
make object cube 86,10
texture object 86,2
position object 86,90,-100,300
make mesh from object 1,86
add limb 86,1,1
scale limb 86,1,100,1000,0
show limb 86,1
offset limb 86,1,0,20,0
make object from limb 1021,86,1,1
position object 1021,90,-100,300
remove limb 86,1
hide object 1021
rem first row
for t=2 to 6
make object cube t,20
position object t,-360+(t-1)*100,100,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t
rem second row
for t=7 to 10
make object cube t,20
position object t,-310+(t-6)*100,50,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t
rem third row
for t=11 to 15
make object cube t,20
position object t,-360+(t-10)*100,0,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t
print "45%"
rem fourth row
for t=16 to 19
make object cube t,20
position object t,-310+(t-15)*100,-50,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t
rem fifth row
for t=20 to 24
make object cube t,20
position object t,-360+(t-19)*100,-100,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t
rem texture cubes
texture object 2,1
texture object 3,200
for t=4 to 23
texture object t,t-1
next t
print "50%"
rem texture cubes
rem lvl one walls
rem north wall
make object box 45,445,220,0
position object 45,-60,0,311
color object 45,rgb(0,255,0)
texture object 45,100
rem east wall
make object box 46,615,220,5
position object 46,162,0,2
color object 46,rgb(0,255,0)
yrotate object 46,90
texture object 46,100
rem top wall
make object box 47,445,615,5
position object 47,-60,110,0
rotate object 47,90,0,0
color object 47,rgb(0,200,0)
texture object 47,100
print "55%"
rem south wall
make object box 48,445,220,0
position object 48,-60,0,-308
color object 48,rgb(0,255,0)
texture object 48,100
rem west wall
make object box 49,615,220,5
position object 49,-280,0,0
color object 49,rgb(0,255,0)
yrotate object 49,90
texture object 49,100
rem floor wall
make object box 50,445,615,5
position object 50,-60,-110,0
rotate object 50,90,0,0
color object 50,rgb(0,200,0)
texture object 50,100
rem runway
make object box 51,1380,400,0
rotate object 51,90,0,0
position object 51,406,-110,-501
print "60%"
rem runway
make object box 92,1380,400,0
rotate object 92,90,0,0
position object 92,406,-110,-501
REM LVL 2 WALLS
rem north wall
make object box 52,445,220,0
position object 52,-60,0,311-1010
color object 52,rgb(0,255,0)
texture object 52,100
rem east wall
make object box 53,615,220,5
position object 53,162,0,2-1010
color object 53,rgb(0,255,0)
yrotate object 53,90
texture object 53,100
rem top wall
make object box 54,445,615,5
position object 54,-60,110,-1010
rotate object 54,90,0,0
color object 54,rgb(0,200,0)
texture object 54,100
print "65%"
rem south wall
make object box 55,445,220,0
position object 55,-60,0,-308-1010
color object 55,rgb(0,255,0)
texture object 55,100
rem west wall
make object box 56,615,220,5
position object 56,-280,0,-1010
color object 56,rgb(0,255,0)
yrotate object 56,90
texture object 56,100
rem floor wall
make object box 57,445,615,5
position object 57,-60,-110,-1010
rotate object 57,90,0,0
color object 57,rgb(0,200,0)
texture object 57,100
print "75%"
rem lvl 3
make object box 58,445,220,0
position object 58,-60+935,0,311-1010
color object 58,rgb(0,255,0)
texture object 58,100
rem east wall
make object box 59,615,220,5
position object 59,162+935,0,2-1010
color object 59,rgb(0,255,0)
yrotate object 59,90
texture object 59,100
rem top wall
make object box 60,445,615,5
position object 60,-60+935,110,-1010
rotate object 60,90,0,0
color object 60,rgb(0,200,0)
texture object 60,100
print "85%"
rem south wall
make object box 61,445,220,0
position object 61,-60+935,0,-308-1010
color object 61,rgb(0,255,0)
texture object 61,100
rem west wall
make object box 62,615,220,5
position object 62,-280+935,0,-1010
color object 62,rgb(0,255,0)
yrotate object 62,90
texture object 62,100
rem floor wall
make object box 63,445,615,5
position object 63,-60+935,-110,-1010
rotate object 63,90,0,0
color object 63,rgb(0,200,0)
texture object 63,100
rem lvl 4
make object box 64,445,220,0
position object 64,-60+935,0,311
color object 64,rgb(0,255,0)
texture object 64,100
print "95%"
rem east wall
make object box 87,615,220,5
position object 87,162+935,0,2
color object 87,rgb(0,255,0)
yrotate object 87,90
texture object 87,100
rem top wall
make object box 88,445,615,5
position object 88,-60+935,110,0
rotate object 88,90,0,0
color object 88,rgb(0,200,0)
texture object 88,100
rem south wall
make object box 89,445,220,0
position object 89,-60+935,0,-308
color object 89,rgb(0,255,0)
texture object 89,100
rem west wall
make object box 90,615,220,5
position object 90,-280+935,0,0
color object 90,rgb(0,255,0)
yrotate object 90,90
texture object 90,100
rem floor wall
make object box 91,445,615,5
position object 91,-60+935,-110,0
rotate object 91,90,0,0
color object 91,rgb(0,200,0)
texture object 91,100
print "100%"
LVL1SECTION:

I tried to just put "print '50%'" along the part that loads, but it doesn't seem to work. any ideas?
P.S I realize this is a long code, me and my group partner are trying to clean it up a bit. Also, my partner uses my account, so sorry about the multiple posts

Back to top

Profile PM

tiffer

20

Years of Service

User Offline

Joined: 6th Apr 2006

Location: Scotland

Posted: 6th Mar 2014 17:25 Edited at: 6th Mar 2014 17:31

Link

If you space out blocks of code and put little notes in every so often it will make it a hell of a lot easier for others to read through your code to help you.

The problem your idea didn't work because the the point of turning sync on means that the screen will not refresh until the next sync command. Try this. Paste the below function into the bottom of your source (after the game loop). Then in the part of ur code u want to display ur message just do for example screenprint("50% complete")

+ Code Snippet

function screenprint(text$)
     sync off : ink rgb(0,0,0),0 : box 0,0,1024,768 :  center text 1024/2,768/2,text$ : sync : sync on
endfunction

edit: You can always tweak it to suit. For examply if you want a different background color just change the ink rgb value to something else.

Cwatson

Back to top

Profile PM

ShellfishGames

13

Years of Service

User Offline

Joined: 6th Feb 2013

Location:

Posted: 6th Mar 2014 17:47

Link

@tiffer, is there a reason why you put sync off and sync on around the cls/print code? I don't quite see what difference it makes in the context. Also, instead of ink rgb(0,0,0),0 : box 0,0,1024,768, you could just write cls rgb(0,0,0) - or did you use box on purpose? I don't think there's a difference (unless you're drawing to a render target supporting transparency, but that's clearly not the case here). I mean, your code would certainly work as expected, I'm just curious why you implemented it this way.
Other than that I agree - the missing syncs probably cause the text not to be rendered when expected.

Also, @DBP Enthusiast, taking into account your second thread - this:

load image "E:\new edutainment project\images\arrow key.bmp",2
load image "E:\new edutainment project\images\NUMBERS\1.jpg",1
load image "E:\new edutainment project\images\NUMBERS\2.jpg",200
load image "E:\new edutainment project\images\NUMBERS\3.jpg",3
load image "E:\new edutainment project\images\NUMBERS\4.jpg",4
load image "E:\new edutainment project\images\NUMBERS\5.jpg",5
load image "E:\new edutainment project\images\NUMBERS\6.jpg",6
load image "E:\new edutainment project\images\NUMBERS\7.jpg",7
load image "E:\new edutainment project\images\NUMBERS\8.jpg",8
load image "E:\new edutainment project\images\NUMBERS\9.jpg",9
load image "E:\new edutainment project\images\NUMBERS\10.jpg",10
load image "E:\new edutainment project\images\NUMBERS\11.jpg",11
load image "E:\new edutainment project\images\NUMBERS\12.jpg",12
load image "E:\new edutainment project\images\NUMBERS\13.jpg",13
load image "E:\new edutainment project\images\NUMBERS\14.jpg",14
load image "E:\new edutainment project\images\NUMBERS\15.jpg",15
load image "E:\new edutainment project\images\NUMBERS\16.jpg",16
load image "E:\new edutainment project\images\NUMBERS\17.jpg",17
load image "E:\new edutainment project\images\NUMBERS\18.jpg",18
load image "E:\new edutainment project\images\NUMBERS\19.jpg",19
load image "E:\new edutainment project\images\NUMBERS\20.jpg",20
load image "E:\new edutainment project\images\NUMBERS\20.jpg",20
load image "E:\new edutainment project\images\NUMBERS\21.jpg",21
load image "E:\new edutainment project\images\NUMBERS\22.jpg",22
load image "E:\new edutainment project\images\NUMBERS\23.jpg",23

+ Code Snippet


load image "E:\new edutainment project\images\arrow key.bmp",2
load image "E:\new edutainment project\images\NUMBERS\1.jpg",1
load image "E:\new edutainment project\images\NUMBERS\2.jpg",200
load image "E:\new edutainment project\images\NUMBERS\3.jpg",3
load image "E:\new edutainment project\images\NUMBERS\4.jpg",4
load image "E:\new edutainment project\images\NUMBERS\5.jpg",5
load image "E:\new edutainment project\images\NUMBERS\6.jpg",6
load image "E:\new edutainment project\images\NUMBERS\7.jpg",7
load image "E:\new edutainment project\images\NUMBERS\8.jpg",8
load image "E:\new edutainment project\images\NUMBERS\9.jpg",9
load image "E:\new edutainment project\images\NUMBERS\10.jpg",10
load image "E:\new edutainment project\images\NUMBERS\11.jpg",11
load image "E:\new edutainment project\images\NUMBERS\12.jpg",12
load image "E:\new edutainment project\images\NUMBERS\13.jpg",13
load image "E:\new edutainment project\images\NUMBERS\14.jpg",14
load image "E:\new edutainment project\images\NUMBERS\15.jpg",15
load image "E:\new edutainment project\images\NUMBERS\16.jpg",16
load image "E:\new edutainment project\images\NUMBERS\17.jpg",17
load image "E:\new edutainment project\images\NUMBERS\18.jpg",18
load image "E:\new edutainment project\images\NUMBERS\19.jpg",19
load image "E:\new edutainment project\images\NUMBERS\20.jpg",20
load image "E:\new edutainment project\images\NUMBERS\20.jpg",20
load image "E:\new edutainment project\images\NUMBERS\21.jpg",21
load image "E:\new edutainment project\images\NUMBERS\22.jpg",22
load image "E:\new edutainment project\images\NUMBERS\23.jpg",23

Would be perfect for a for loop:

+ Code Snippet

for i = 1 to 23
    load image "E:\new edutainment project\images\NUMBERS\" + str$(i) + ".jpg", i
next

(Ignoring this strange exception of number 2 being loaded with ID 200, as ID 2 is already occupied by another image...

)

Back to top

Profile PM Email Website

tiffer

20

Years of Service

User Offline

Joined: 6th Apr 2006

Location: Scotland

Posted: 6th Mar 2014 18:52 Edited at: 6th Mar 2014 19:36

Link

@shellfish games : You couldn't be more wrong. You want to be able to display the message in one iteration (step) and remain there while the program is loading. If you don't turn sync off you will get a black screen due to the double sync buffer. If you double sync you will get a blue (the 3d backdrop) screen. The only possible way is to sync off. print the message sync the screen and then turn sync back on again for the program to load the rest of the game.

Beleive me I didn't write it this way for fun.

Cwatson

Back to top

Profile PM

ShellfishGames

13

Years of Service

User Offline

Joined: 6th Feb 2013

Location:

Posted: 6th Mar 2014 22:15 Edited at: 6th Mar 2014 22:16

Link

Given that "I couldn't be more wrong" I'm wondering why the version without sync on : ... : sync off and with cls instead of box seems to work just as well.

sync on
sync rate 30
sync

do
    cls
    
    ink rgb(255,255,255),0
    text 0,100,"NEW GAME"
    text 0,130,"HOW TO PLAY"
    text 0,160,"QUIT"
    
    `NEW GAME
    if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 then ink rgb(0,0,100),0 : text 0,100,"NEW GAME"
    if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 and mouseclick()=1 then gosub loadall
    
    `HOW TO PLAY
    if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 180 then ink rgb(0,0,100),0 : text 0,130,"HOW TO PLAY"
    if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 180 and mouseclick()=1 then text 100,130,"YOU CLICKED OPTIONS"
    
    `QUIT
    if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 210 then ink rgb(0,0,100),0 : text 0,160,"QUIT"
    if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 210 and mouseclick()=1 then tmp = 0
    
    sync
loop

loadall:
    screenprint( "0%" )
    simulateLoadingSomething()
    screenprint( "5%" )
    simulateLoadingSomething()
    screenprint( "10%" )
    simulateLoadingSomething()
    screenprint( "15%" )
    simulateLoadingSomething()
    screenprint( "20%" )
    simulateLoadingSomething()
    sync `<- required because the last screenprint set sync on, and the first sync after each sync on just writes to the backbuffer or whatever
    screenprint2( "25%" )
    simulateLoadingSomething()
    screenprint2( "30%" )
    simulateLoadingSomething()
    screenprint2( "35%" )
    simulateLoadingSomething()
    screenprint2( "..." )
    
    wait 1000
    
    end

return

function screenprint(text$)
     sync off : ink rgb(0,0,0),0 : box 0,0,1024,768 : ink rgb(255,255,255),0 : center text 1024/2,768/2,text$ : sync : sync on
endfunction

function screenprint2(text$)
    cls 0 : ink rgb(255,255,255),0 : center text 1024/2, 768/2, text$ : sync
endfunction

rem Since I don't know how sleep/wait affect DBPs sync behaviour, I'll just make a lot of calculations instead
function simulateLoadingSomething()
    t = timer()
    tEnd = t + 1000
    repeat
        inc randomValue, rnd(42)
    until timer() > tEnd
endfunction

+ Code Snippet

sync on
sync rate 30
sync

do
    cls
    
    ink rgb(255,255,255),0
    text 0,100,"NEW GAME"
    text 0,130,"HOW TO PLAY"
    text 0,160,"QUIT"
    
    `NEW GAME
    if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 then ink rgb(0,0,100),0 : text 0,100,"NEW GAME"
    if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 and mouseclick()=1 then gosub loadall
    
    `HOW TO PLAY
    if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 180 then ink rgb(0,0,100),0 : text 0,130,"HOW TO PLAY"
    if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 180 and mouseclick()=1 then text 100,130,"YOU CLICKED OPTIONS"
    
    `QUIT
    if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 210 then ink rgb(0,0,100),0 : text 0,160,"QUIT"
    if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 210 and mouseclick()=1 then tmp = 0
    
    sync
loop

loadall:
    screenprint( "0%" )
    simulateLoadingSomething()
    screenprint( "5%" )
    simulateLoadingSomething()
    screenprint( "10%" )
    simulateLoadingSomething()
    screenprint( "15%" )
    simulateLoadingSomething()
    screenprint( "20%" )
    simulateLoadingSomething()
    sync `<- required because the last screenprint set sync on, and the first sync after each sync on just writes to the backbuffer or whatever
    screenprint2( "25%" )
    simulateLoadingSomething()
    screenprint2( "30%" )
    simulateLoadingSomething()
    screenprint2( "35%" )
    simulateLoadingSomething()
    screenprint2( "..." )
    
    wait 1000
    
    end

return



function screenprint(text$)
     sync off : ink rgb(0,0,0),0 : box 0,0,1024,768 : ink rgb(255,255,255),0 : center text 1024/2,768/2,text$ : sync : sync on
endfunction

function screenprint2(text$)
    cls 0 : ink rgb(255,255,255),0 : center text 1024/2, 768/2, text$ : sync
endfunction

rem Since I don't know how sleep/wait affect DBPs sync behaviour, I'll just make a lot of calculations instead
function simulateLoadingSomething()
    t = timer()
    tEnd = t + 1000
    repeat
        inc randomValue, rnd(42)
    until timer() > tEnd
endfunction

Run the code and select "New Game"... the first few messages are printed to the screen using your function, the last few with a simple cls - center text - sync approach.

Quote: "If you don't turn sync off you will get a black screen due to the double sync buffer."

This is only the case if you keep constantly calling sync on in the middle of the program.

Quote: "If you double sync you will get a blue (the 3d backdrop) screen."

As the backdrop isn't turned on in DBP Enthusiast's code, that's hardly an issue.

Not meaning to be rude or anything, but answering my question why you wrote your function that way with "you couldn't be more wrong" (I didn't even state anything to begin with) isn't the nicest imaginable move.

Back to top

Profile PM Email Website

tiffer

20

Years of Service

User Offline

Joined: 6th Apr 2006

Location: Scotland

Posted: 7th Mar 2014 16:42

Link

Sorry if I'm offending you but I only posted the function to help the op and I'm not sure why you would criticize my logic on it instead of simply asking 'why?'

The above function was based on one of my older projects. During the process of procedurally building the models and map the loading screen function wasn't working until I inserted sync off at the beginning and sync on at the end. Sync by it's self didn't work. I had to turn sync off for it to work and that meant I had to sync back on again at the end. So now you know why I wrote it this way for the OP, do you have any more questions?

Cwatson

Back to top

Profile PM

Dark Basic Pro Enthusiast

12

Years of Service

User Offline

Joined: 8th Nov 2013

Location:

Posted: 7th Mar 2014 17:15 Edited at: 9th Mar 2014 01:10

Link

Quote: "Thanks guys! I hadn't even thought of using a function to do this type of thing. thanks again"

okay so I implemented all of the stuff you said to and this is now my game (with the exception of the function at the bottom

REM *** START SYSTEM SETUP SECTION
autocam on
sync off
REM *** STOP SYSTEM SETUP SECTION
REM *****************************************
rem main menu
MainMenu:
sync on
sync rate 30
do
cls
ink rgb(255,255,255),0
text 0,100,"NEW GAME"
text 0,130,"HOW TO PLAY"
text 0,160,"QUIT"

`NEW GAME
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 then ink rgb(0,0,100),0 : text 0,100,"NEW GAME"
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 and mouseclick()=1 then gosub loadall

`HOW TO PLAY
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 180 then ink rgb(0,0,100),0 : text 0,130,"HOW TO PLAY"
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 180 and mouseclick()=1 then text 100,130,"YOU CLICKED OPTIONS"

`QUIT
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 210 then ink rgb(0,0,100),0 : text 0,160,"QUIT"
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 210 and mouseclick()=1 then gosub ENDSECTION
sync
loop
loadall:
load image "E:\new edutainment project\images\arrow key.bmp",2
load image "E:\new edutainment project\images\NUMBERS\1.jpg",1
load image "E:\new edutainment project\images\NUMBERS\2.jpg",200
load image "E:\new edutainment project\images\NUMBERS\3.jpg",3
load image "E:\new edutainment project\images\NUMBERS\4.jpg",4
load image "E:\new edutainment project\images\NUMBERS\5.jpg",5
load image "E:\new edutainment project\images\NUMBERS\6.jpg",6
load image "E:\new edutainment project\images\NUMBERS\7.jpg",7
load image "E:\new edutainment project\images\NUMBERS\8.jpg",8
load image "E:\new edutainment project\images\NUMBERS\9.jpg",9
load image "E:\new edutainment project\images\NUMBERS\10.jpg",10
load image "E:\new edutainment project\images\NUMBERS\11.jpg",11
load image "E:\new edutainment project\images\NUMBERS\12.jpg",12
load image "E:\new edutainment project\images\NUMBERS\13.jpg",13
load image "E:\new edutainment project\images\NUMBERS\14.jpg",14
load image "E:\new edutainment project\images\NUMBERS\15.jpg",15
load image "E:\new edutainment project\images\NUMBERS\16.jpg",16
load image "E:\new edutainment project\images\NUMBERS\17.jpg",17
load image "E:\new edutainment project\images\NUMBERS\18.jpg",18
load image "E:\new edutainment project\images\NUMBERS\19.jpg",19
load image "E:\new edutainment project\images\NUMBERS\20.jpg",20
load image "E:\new edutainment project\images\NUMBERS\20.jpg",20
load image "E:\new edutainment project\images\NUMBERS\21.jpg",21
load image "E:\new edutainment project\images\NUMBERS\22.jpg",22
load image "E:\new edutainment project\images\NUMBERS\23.jpg",23
load image "E:\new edutainment project\images\FP Brighter.bmp",100

screenprint("5% complete")

rem 1st rotate cube
make object cube 65,10
texture object 65,2
position object 65,-210,100,300
make mesh from object 1,65
add limb 65,1,1
scale limb 65,1,100,1000,0
show limb 65,1
offset limb 65,1,0,20,0
make object from limb 1000,65,1,1
position object 1000,-210,100,300
remove limb 65,1
hide object 1000

rem 2nd rotate cube
make object cube 66,10
texture object 66,2
position object 66,-110,100,300
make mesh from object 1,66
add limb 66,1,1
scale limb 66,1,100,1000,0
show limb 66,1
offset limb 66,1,0,20,0
make object from limb 1001,66,1,1
position object 1001,-110,100,300
remove limb 66,1
hide object 1001

rem 3rd rotate cube
make object cube 67,10
texture object 67,2
position object 67,-10,100,300
make mesh from object 1,67
add limb 67,1,1
scale limb 67,1,100,1000,0
show limb 67,1
offset limb 67,1,0,20,0
make object from limb 1002,67,1,1
position object 1002,-10,100,300
remove limb 67,1
hide object 1002

screenprint("10% complete")

rem 4th rotate cube
make object cube 68,10
texture object 68,2
position object 68,90,100,300
make mesh from object 1,68
add limb 68,1,1
scale limb 68,1,100,1000,0
show limb 68,1
offset limb 68,1,0,20,0
make object from limb 1003,68,1,1
position object 1003,90,100,300
remove limb 68,1
hide object 1003

rem 5th rotate cube
make object cube 69,10
texture object 69,2
position object 69,-260,50,300
make mesh from object 1,69
add limb 69,1,1
scale limb 69,1,100,1000,0
show limb 69,1
offset limb 69,1,0,20,0
make object from limb 1004,69,1,1
position object 1004,-260,50,300
remove limb 69,1
hide object 1004

rem 6th rotate cube
make object cube 70,10
texture object 70,2
position object 70,-160,50,300
make mesh from object 1,70
add limb 70,1,1
scale limb 70,1,100,1000,0
show limb 70,1
offset limb 70,1,0,20,0
make object from limb 1005,70,1,1
position object 1005,-160,50,300
remove limb 70,1
hide object 1005

screenprint("15% complete")

rem 7th rotate cube
make object cube 71,10
texture object 71,2
position object 71,-60,50,300
make mesh from object 1,71
add limb 71,1,1
scale limb 71,1,100,1000,0
show limb 71,1
offset limb 71,1,0,20,0
make object from limb 1006,71,1,1
position object 1006,-60,50,300
remove limb 71,1
hide object 1006

rem 8th rotate cube
make object cube 72,10
texture object 72,2
position object 72,40,50,300
make mesh from object 1,72
add limb 72,1,1
scale limb 72,1,100,1000,0
show limb 72,1
offset limb 72,1,0,20,0
make object from limb 1007,72,1,1
position object 1007,40,50,300
remove limb 72,1
hide object 1007

rem 9th rotate cube
make object cube 73,10
texture object 73,2
position object 73,140,50,300
make mesh from object 1,73
add limb 73,1,1
scale limb 73,1,100,1000,0
show limb 73,1
offset limb 73,1,0,20,0
make object from limb 1008,73,1,1
position object 1008,140,50,300
remove limb 73,1
hide object 1008

screenprint("20% complete")

rem 10th rotate cube
make object cube 74,10
texture object 74,2
position object 74,-210,0,300
make mesh from object 1,74
add limb 74,1,1
scale limb 74,1,100,1000,0
show limb 74,1
offset limb 74,1,0,20,0
make object from limb 1009,74,1,1
position object 1009,-210,0,300
remove limb 74,1
hide object 1009

rem 11th rotate cube
make object cube 75,10
texture object 75,2
position object 75,-110,0,300
make mesh from object 1,75
add limb 75,1,1
scale limb 75,1,100,1000,0
show limb 75,1
offset limb 75,1,0,20,0
make object from limb 1010,75,1,1
position object 1010,-110,0,300
remove limb 75,1
hide object 1010

rem 12th rotate cube
make object cube 76,10
texture object 76,2
position object 76,-10,0,300
make mesh from object 1,76
add limb 76,1,1
scale limb 76,1,100,1000,0
show limb 76,1
offset limb 76,1,0,20,0
make object from limb 1011,76,1,1
position object 1011,-10,0,300
remove limb 76,1
hide object 1011

screenprint("25% complete")

rem 13th rotate cube
make object cube 77,10
texture object 77,2
position object 77,90,0,300
make mesh from object 1,77
add limb 77,1,1
scale limb 77,1,100,1000,0
show limb 77,1
offset limb 77,1,0,20,0
make object from limb 1012,77,1,1
position object 1012,90,0,300
remove limb 77,1
hide object 1012

rem 14th rotate cube
make object cube 78,10
texture object 78,2
position object 78,-260,-50,300
make mesh from object 1,78
add limb 78,1,1
scale limb 78,1,100,1000,0
show limb 78,1
offset limb 78,1,0,20,0
make object from limb 1013,78,1,1
position object 1013,-260,-50,300
remove limb 78,1
hide object 1013

rem 15th rotate cube
make object cube 79,10
texture object 79,2
position object 79,-160,-50,300
make mesh from object 1,79
add limb 79,1,1
scale limb 79,1,100,1000,0
show limb 79,1
offset limb 79,1,0,20,0
make object from limb 1014,79,1,1
position object 1014,-160,-50,300
remove limb 79,1
hide object 1014

screenprint("30% complete")

rem 16th rotate cube
make object cube 80,10
texture object 80,2
position object 80,-60,-50,300
make mesh from object 1,80
add limb 80,1,1
scale limb 80,1,100,1000,0
show limb 80,1
offset limb 80,1,0,20,0
make object from limb 1015,80,1,1
position object 1015,-60,-50,300
remove limb 80,1
hide object 1015

rem 17th rotate cube
make object cube 81,10
texture object 81,2
position object 81,40,-50,300
make mesh from object 1,81
add limb 81,1,1
scale limb 81,1,100,1000,0
show limb 81,1
offset limb 81,1,0,20,0
make object from limb 1016,81,1,1
position object 1016,40,-50,300
remove limb 81,1
hide object 1016

rem 18th rotate cube
make object cube 82,10
texture object 82,2
position object 82,140,-50,300
make mesh from object 1,82
add limb 82,1,1
scale limb 82,1,100,1000,0
show limb 82,1
offset limb 82,1,0,20,0
make object from limb 1017,82,1,1
position object 1017,140,-50,300
remove limb 82,1
hide object 1017

screenprint("35% complete")

rem 19th rotate cube
make object cube 83,10
texture object 83,2
position object 83,-210,-100,300
make mesh from object 1,83
add limb 83,1,1
scale limb 83,1,100,1000,0
show limb 83,1
offset limb 83,1,0,20,0
make object from limb 1018,83,1,1
position object 1018,-210,-100,300
remove limb 83,1
hide object 1018

rem 20th rotate cube
make object cube 84,10
texture object 84,2
position object 84,-110,-100,300
make mesh from object 1,84
add limb 84,1,1
scale limb 84,1,100,1000,0
show limb 84,1
offset limb 84,1,0,20,0
make object from limb 1019,84,1,1
position object 1019,-110,-100,300
remove limb 84,1
hide object 1019

screenprint("40% complete")

rem 21st rotate cube
make object cube 85,10
texture object 85,2
position object 85,-10,-100,300
make mesh from object 1,85
add limb 85,1,1
scale limb 85,1,100,1000,0
show limb 85,1
offset limb 85,1,0,20,0
make object from limb 1020,85,1,1
position object 1020,-10,-100,300
remove limb 85,1
hide object 1020

rem 22nd rotate cube
make object cube 86,10
texture object 86,2
position object 86,90,-100,300
make mesh from object 1,86
add limb 86,1,1
scale limb 86,1,100,1000,0
show limb 86,1
offset limb 86,1,0,20,0
make object from limb 1021,86,1,1
position object 1021,90,-100,300
remove limb 86,1
hide object 1021

screenprint("45% complete")

rem first row
for t=2 to 6
make object cube t,20
position object t,-360+(t-1)*100,100,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

rem second row
for t=7 to 10
make object cube t,20
position object t,-310+(t-6)*100,50,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

screenprint("50% complete")

rem third row
for t=11 to 15
make object cube t,20
position object t,-360+(t-10)*100,0,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

screenprint("55% complete")

rem fourth row
for t=16 to 19
make object cube t,20
position object t,-310+(t-15)*100,-50,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

rem fifth row
for t=20 to 24
make object cube t,20
position object t,-360+(t-19)*100,-100,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

screenprint("60% complete")

rem texture cubes
texture object 2,1
texture object 3,200
for t=4 to 23
texture object t,t-1
next t

rem texture cubes

rem lvl one walls

rem north wall
make object box 45,445,220,0
position object 45,-60,0,311
color object 45,rgb(0,255,0)
texture object 45,100

screenprint("65% complete")

rem east wall
make object box 46,615,220,5
position object 46,162,0,2
color object 46,rgb(0,255,0)
yrotate object 46,90
texture object 46,100

rem top wall
make object box 47,445,615,5
position object 47,-60,110,0
rotate object 47,90,0,0
color object 47,rgb(0,200,0)
texture object 47,100

screenprint("70% complete")

rem south wall
make object box 48,445,220,0
position object 48,-60,0,-308
color object 48,rgb(0,255,0)
texture object 48,100

rem west wall
make object box 49,615,220,5
position object 49,-280,0,0
color object 49,rgb(0,255,0)
yrotate object 49,90
texture object 49,100

screenprint("75% complete")

rem floor wall
make object box 50,445,615,5
position object 50,-60,-110,0
rotate object 50,90,0,0
color object 50,rgb(0,200,0)
texture object 50,100

rem runway
make object box 51,1380,400,0
rotate object 51,90,0,0
position object 51,406,-110,-501

screenprint("80% complete")

rem runway
make object box 92,1380,400,0
rotate object 92,90,0,0
position object 92,406,-110,-501

REM LVL 2 WALLS

rem north wall
make object box 52,445,220,0
position object 52,-60,0,311-1010
color object 52,rgb(0,255,0)
texture object 52,100

rem east wall
make object box 53,615,220,5
position object 53,162,0,2-1010
color object 53,rgb(0,255,0)
yrotate object 53,90
texture object 53,100

rem top wall
make object box 54,445,615,5
position object 54,-60,110,-1010
rotate object 54,90,0,0
color object 54,rgb(0,200,0)
texture object 54,100

rem south wall
make object box 55,445,220,0
position object 55,-60,0,-308-1010
color object 55,rgb(0,255,0)
texture object 55,100

rem west wall
make object box 56,615,220,5
position object 56,-280,0,-1010
color object 56,rgb(0,255,0)
yrotate object 56,90
texture object 56,100

screenprint("85% complete")

rem floor wall
make object box 57,445,615,5
position object 57,-60,-110,-1010
rotate object 57,90,0,0
color object 57,rgb(0,200,0)
texture object 57,100

rem lvl 3
make object box 58,445,220,0
position object 58,-60+935,0,311-1010
color object 58,rgb(0,255,0)
texture object 58,100

rem east wall
make object box 59,615,220,5
position object 59,162+935,0,2-1010
color object 59,rgb(0,255,0)
yrotate object 59,90
texture object 59,100

rem top wall
make object box 60,445,615,5
position object 60,-60+935,110,-1010
rotate object 60,90,0,0
color object 60,rgb(0,200,0)
texture object 60,100

rem south wall
make object box 61,445,220,0
position object 61,-60+935,0,-308-1010
color object 61,rgb(0,255,0)
texture object 61,100

screenprint("90% complete")

rem west wall
make object box 62,615,220,5
position object 62,-280+935,0,-1010
color object 62,rgb(0,255,0)
yrotate object 62,90
texture object 62,100

rem floor wall
make object box 63,445,615,5
position object 63,-60+935,-110,-1010
rotate object 63,90,0,0
color object 63,rgb(0,200,0)
texture object 63,100

rem lvl 4
make object box 64,445,220,0
position object 64,-60+935,0,311
color object 64,rgb(0,255,0)
texture object 64,100

rem east wall
make object box 87,615,220,5
position object 87,162+935,0,2
color object 87,rgb(0,255,0)
yrotate object 87,90
texture object 87,100

screenprint("95% complete")

rem top wall
make object box 88,445,615,5
position object 88,-60+935,110,0
rotate object 88,90,0,0
color object 88,rgb(0,200,0)
texture object 88,100

rem south wall
make object box 89,445,220,0
position object 89,-60+935,0,-308
color object 89,rgb(0,255,0)
texture object 89,100

rem west wall
make object box 90,615,220,5
position object 90,-280+935,0,0
color object 90,rgb(0,255,0)
yrotate object 90,90
texture object 90,100

rem floor wall
make object box 91,445,615,5
position object 91,-60+935,-110,0
rotate object 91,90,0,0
color object 91,rgb(0,200,0)
texture object 91,100

screenprint("100% complete")

LVL1SECTION

+ Code Snippet

REM *** START SYSTEM SETUP SECTION
autocam on
sync off
REM *** STOP SYSTEM SETUP SECTION
REM *****************************************
rem main menu
MainMenu:
sync on
sync rate 30
do
cls
ink rgb(255,255,255),0
text 0,100,"NEW GAME"
text 0,130,"HOW TO PLAY"
text 0,160,"QUIT"

`NEW GAME
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 then ink rgb(0,0,100),0 : text 0,100,"NEW GAME"
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 and mouseclick()=1 then gosub loadall

`HOW TO PLAY
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 180 then ink rgb(0,0,100),0 : text 0,130,"HOW TO PLAY"
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 180 and mouseclick()=1 then text 100,130,"YOU CLICKED OPTIONS"

`QUIT
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 210 then ink rgb(0,0,100),0 : text 0,160,"QUIT"
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 210 and mouseclick()=1 then gosub ENDSECTION
sync
loop
loadall:
load image "E:\new edutainment project\images\arrow key.bmp",2
load image "E:\new edutainment project\images\NUMBERS\1.jpg",1
load image "E:\new edutainment project\images\NUMBERS\2.jpg",200
load image "E:\new edutainment project\images\NUMBERS\3.jpg",3
load image "E:\new edutainment project\images\NUMBERS\4.jpg",4
load image "E:\new edutainment project\images\NUMBERS\5.jpg",5
load image "E:\new edutainment project\images\NUMBERS\6.jpg",6
load image "E:\new edutainment project\images\NUMBERS\7.jpg",7
load image "E:\new edutainment project\images\NUMBERS\8.jpg",8
load image "E:\new edutainment project\images\NUMBERS\9.jpg",9
load image "E:\new edutainment project\images\NUMBERS\10.jpg",10
load image "E:\new edutainment project\images\NUMBERS\11.jpg",11
load image "E:\new edutainment project\images\NUMBERS\12.jpg",12
load image "E:\new edutainment project\images\NUMBERS\13.jpg",13
load image "E:\new edutainment project\images\NUMBERS\14.jpg",14
load image "E:\new edutainment project\images\NUMBERS\15.jpg",15
load image "E:\new edutainment project\images\NUMBERS\16.jpg",16
load image "E:\new edutainment project\images\NUMBERS\17.jpg",17
load image "E:\new edutainment project\images\NUMBERS\18.jpg",18
load image "E:\new edutainment project\images\NUMBERS\19.jpg",19
load image "E:\new edutainment project\images\NUMBERS\20.jpg",20
load image "E:\new edutainment project\images\NUMBERS\20.jpg",20
load image "E:\new edutainment project\images\NUMBERS\21.jpg",21
load image "E:\new edutainment project\images\NUMBERS\22.jpg",22
load image "E:\new edutainment project\images\NUMBERS\23.jpg",23
load image "E:\new edutainment project\images\FP Brighter.bmp",100

screenprint("5% complete")

rem 1st rotate cube
make object cube 65,10
texture object 65,2
position object 65,-210,100,300
make mesh from object 1,65
add limb 65,1,1
scale limb 65,1,100,1000,0
show limb 65,1
offset limb 65,1,0,20,0
make object from limb 1000,65,1,1
position object 1000,-210,100,300
remove limb 65,1
hide object 1000

rem 2nd rotate cube
make object cube 66,10
texture object 66,2
position object 66,-110,100,300
make mesh from object 1,66
add limb 66,1,1
scale limb 66,1,100,1000,0
show limb 66,1
offset limb 66,1,0,20,0
make object from limb 1001,66,1,1
position object 1001,-110,100,300
remove limb 66,1
hide object 1001

rem 3rd rotate cube
make object cube 67,10
texture object 67,2
position object 67,-10,100,300
make mesh from object 1,67
add limb 67,1,1
scale limb 67,1,100,1000,0
show limb 67,1
offset limb 67,1,0,20,0
make object from limb 1002,67,1,1
position object 1002,-10,100,300
remove limb 67,1
hide object 1002

screenprint("10% complete")

rem 4th rotate cube
make object cube 68,10
texture object 68,2
position object 68,90,100,300
make mesh from object 1,68
add limb 68,1,1
scale limb 68,1,100,1000,0
show limb 68,1
offset limb 68,1,0,20,0
make object from limb 1003,68,1,1
position object 1003,90,100,300
remove limb 68,1
hide object 1003

rem 5th rotate cube
make object cube 69,10
texture object 69,2
position object 69,-260,50,300
make mesh from object 1,69
add limb 69,1,1
scale limb 69,1,100,1000,0
show limb 69,1
offset limb 69,1,0,20,0
make object from limb 1004,69,1,1
position object 1004,-260,50,300
remove limb 69,1
hide object 1004

rem 6th rotate cube
make object cube 70,10
texture object 70,2
position object 70,-160,50,300
make mesh from object 1,70
add limb 70,1,1
scale limb 70,1,100,1000,0
show limb 70,1
offset limb 70,1,0,20,0
make object from limb 1005,70,1,1
position object 1005,-160,50,300
remove limb 70,1
hide object 1005

screenprint("15% complete")

rem 7th rotate cube
make object cube 71,10
texture object 71,2
position object 71,-60,50,300
make mesh from object 1,71
add limb 71,1,1
scale limb 71,1,100,1000,0
show limb 71,1
offset limb 71,1,0,20,0
make object from limb 1006,71,1,1
position object 1006,-60,50,300
remove limb 71,1
hide object 1006

rem 8th rotate cube
make object cube 72,10
texture object 72,2
position object 72,40,50,300
make mesh from object 1,72
add limb 72,1,1
scale limb 72,1,100,1000,0
show limb 72,1
offset limb 72,1,0,20,0
make object from limb 1007,72,1,1
position object 1007,40,50,300
remove limb 72,1
hide object 1007

rem 9th rotate cube
make object cube 73,10
texture object 73,2
position object 73,140,50,300
make mesh from object 1,73
add limb 73,1,1
scale limb 73,1,100,1000,0
show limb 73,1
offset limb 73,1,0,20,0
make object from limb 1008,73,1,1
position object 1008,140,50,300
remove limb 73,1
hide object 1008

screenprint("20% complete")

rem 10th rotate cube
make object cube 74,10
texture object 74,2
position object 74,-210,0,300
make mesh from object 1,74
add limb 74,1,1
scale limb 74,1,100,1000,0
show limb 74,1
offset limb 74,1,0,20,0
make object from limb 1009,74,1,1
position object 1009,-210,0,300
remove limb 74,1
hide object 1009

rem 11th rotate cube
make object cube 75,10
texture object 75,2
position object 75,-110,0,300
make mesh from object 1,75
add limb 75,1,1
scale limb 75,1,100,1000,0
show limb 75,1
offset limb 75,1,0,20,0
make object from limb 1010,75,1,1
position object 1010,-110,0,300
remove limb 75,1
hide object 1010

rem 12th rotate cube
make object cube 76,10
texture object 76,2
position object 76,-10,0,300
make mesh from object 1,76
add limb 76,1,1
scale limb 76,1,100,1000,0
show limb 76,1
offset limb 76,1,0,20,0
make object from limb 1011,76,1,1
position object 1011,-10,0,300
remove limb 76,1
hide object 1011

screenprint("25% complete")

rem 13th rotate cube
make object cube 77,10
texture object 77,2
position object 77,90,0,300
make mesh from object 1,77
add limb 77,1,1
scale limb 77,1,100,1000,0
show limb 77,1
offset limb 77,1,0,20,0
make object from limb 1012,77,1,1
position object 1012,90,0,300
remove limb 77,1
hide object 1012

rem 14th rotate cube
make object cube 78,10
texture object 78,2
position object 78,-260,-50,300
make mesh from object 1,78
add limb 78,1,1
scale limb 78,1,100,1000,0
show limb 78,1
offset limb 78,1,0,20,0
make object from limb 1013,78,1,1
position object 1013,-260,-50,300
remove limb 78,1
hide object 1013

rem 15th rotate cube
make object cube 79,10
texture object 79,2
position object 79,-160,-50,300
make mesh from object 1,79
add limb 79,1,1
scale limb 79,1,100,1000,0
show limb 79,1
offset limb 79,1,0,20,0
make object from limb 1014,79,1,1
position object 1014,-160,-50,300
remove limb 79,1
hide object 1014

screenprint("30% complete")

rem 16th rotate cube
make object cube 80,10
texture object 80,2
position object 80,-60,-50,300
make mesh from object 1,80
add limb 80,1,1
scale limb 80,1,100,1000,0
show limb 80,1
offset limb 80,1,0,20,0
make object from limb 1015,80,1,1
position object 1015,-60,-50,300
remove limb 80,1
hide object 1015

rem 17th rotate cube
make object cube 81,10
texture object 81,2
position object 81,40,-50,300
make mesh from object 1,81
add limb 81,1,1
scale limb 81,1,100,1000,0
show limb 81,1
offset limb 81,1,0,20,0
make object from limb 1016,81,1,1
position object 1016,40,-50,300
remove limb 81,1
hide object 1016

rem 18th rotate cube
make object cube 82,10
texture object 82,2
position object 82,140,-50,300
make mesh from object 1,82
add limb 82,1,1
scale limb 82,1,100,1000,0
show limb 82,1
offset limb 82,1,0,20,0
make object from limb 1017,82,1,1
position object 1017,140,-50,300
remove limb 82,1
hide object 1017

screenprint("35% complete")

rem 19th rotate cube
make object cube 83,10
texture object 83,2
position object 83,-210,-100,300
make mesh from object 1,83
add limb 83,1,1
scale limb 83,1,100,1000,0
show limb 83,1
offset limb 83,1,0,20,0
make object from limb 1018,83,1,1
position object 1018,-210,-100,300
remove limb 83,1
hide object 1018

rem 20th rotate cube
make object cube 84,10
texture object 84,2
position object 84,-110,-100,300
make mesh from object 1,84
add limb 84,1,1
scale limb 84,1,100,1000,0
show limb 84,1
offset limb 84,1,0,20,0
make object from limb 1019,84,1,1
position object 1019,-110,-100,300
remove limb 84,1
hide object 1019

screenprint("40% complete")

rem 21st rotate cube
make object cube 85,10
texture object 85,2
position object 85,-10,-100,300
make mesh from object 1,85
add limb 85,1,1
scale limb 85,1,100,1000,0
show limb 85,1
offset limb 85,1,0,20,0
make object from limb 1020,85,1,1
position object 1020,-10,-100,300
remove limb 85,1
hide object 1020

rem 22nd rotate cube
make object cube 86,10
texture object 86,2
position object 86,90,-100,300
make mesh from object 1,86
add limb 86,1,1
scale limb 86,1,100,1000,0
show limb 86,1
offset limb 86,1,0,20,0
make object from limb 1021,86,1,1
position object 1021,90,-100,300
remove limb 86,1
hide object 1021

screenprint("45% complete")

rem first row
for t=2 to 6
make object cube t,20
position object t,-360+(t-1)*100,100,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

rem second row
for t=7 to 10
make object cube t,20
position object t,-310+(t-6)*100,50,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

screenprint("50% complete")

rem third row
for t=11 to 15
make object cube t,20
position object t,-360+(t-10)*100,0,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

screenprint("55% complete")

rem fourth row
for t=16 to 19
make object cube t,20
position object t,-310+(t-15)*100,-50,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

rem fifth row
for t=20 to 24
make object cube t,20
position object t,-360+(t-19)*100,-100,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

screenprint("60% complete")

rem texture cubes
texture object 2,1
texture object 3,200
for t=4 to 23
texture object t,t-1
next t

rem texture cubes

rem lvl one walls

rem north wall
make object box 45,445,220,0
position object 45,-60,0,311
color object 45,rgb(0,255,0)
texture object 45,100

screenprint("65% complete")

rem east wall
make object box 46,615,220,5
position object 46,162,0,2
color object 46,rgb(0,255,0)
yrotate object 46,90
texture object 46,100

rem top wall
make object box 47,445,615,5
position object 47,-60,110,0
rotate object 47,90,0,0
color object 47,rgb(0,200,0)
texture object 47,100

screenprint("70% complete")

rem south wall
make object box 48,445,220,0
position object 48,-60,0,-308
color object 48,rgb(0,255,0)
texture object 48,100

rem west wall
make object box 49,615,220,5
position object 49,-280,0,0
color object 49,rgb(0,255,0)
yrotate object 49,90
texture object 49,100

screenprint("75% complete")

rem floor wall
make object box 50,445,615,5
position object 50,-60,-110,0
rotate object 50,90,0,0
color object 50,rgb(0,200,0)
texture object 50,100

rem runway
make object box 51,1380,400,0
rotate object 51,90,0,0
position object 51,406,-110,-501

screenprint("80% complete")

rem runway
make object box 92,1380,400,0
rotate object 92,90,0,0
position object 92,406,-110,-501

REM LVL 2 WALLS

rem north wall
make object box 52,445,220,0
position object 52,-60,0,311-1010
color object 52,rgb(0,255,0)
texture object 52,100

rem east wall
make object box 53,615,220,5
position object 53,162,0,2-1010
color object 53,rgb(0,255,0)
yrotate object 53,90
texture object 53,100

rem top wall
make object box 54,445,615,5
position object 54,-60,110,-1010
rotate object 54,90,0,0
color object 54,rgb(0,200,0)
texture object 54,100

rem south wall
make object box 55,445,220,0
position object 55,-60,0,-308-1010
color object 55,rgb(0,255,0)
texture object 55,100

rem west wall
make object box 56,615,220,5
position object 56,-280,0,-1010
color object 56,rgb(0,255,0)
yrotate object 56,90
texture object 56,100

screenprint("85% complete")

rem floor wall
make object box 57,445,615,5
position object 57,-60,-110,-1010
rotate object 57,90,0,0
color object 57,rgb(0,200,0)
texture object 57,100

rem lvl 3
make object box 58,445,220,0
position object 58,-60+935,0,311-1010
color object 58,rgb(0,255,0)
texture object 58,100

rem east wall
make object box 59,615,220,5
position object 59,162+935,0,2-1010
color object 59,rgb(0,255,0)
yrotate object 59,90
texture object 59,100

rem top wall
make object box 60,445,615,5
position object 60,-60+935,110,-1010
rotate object 60,90,0,0
color object 60,rgb(0,200,0)
texture object 60,100

rem south wall
make object box 61,445,220,0
position object 61,-60+935,0,-308-1010
color object 61,rgb(0,255,0)
texture object 61,100

screenprint("90% complete")

rem west wall
make object box 62,615,220,5
position object 62,-280+935,0,-1010
color object 62,rgb(0,255,0)
yrotate object 62,90
texture object 62,100

rem floor wall
make object box 63,445,615,5
position object 63,-60+935,-110,-1010
rotate object 63,90,0,0
color object 63,rgb(0,200,0)
texture object 63,100

rem lvl 4
make object box 64,445,220,0
position object 64,-60+935,0,311
color object 64,rgb(0,255,0)
texture object 64,100

rem east wall
make object box 87,615,220,5
position object 87,162+935,0,2
color object 87,rgb(0,255,0)
yrotate object 87,90
texture object 87,100

screenprint("95% complete")

rem top wall
make object box 88,445,615,5
position object 88,-60+935,110,0
rotate object 88,90,0,0
color object 88,rgb(0,200,0)
texture object 88,100

rem south wall
make object box 89,445,220,0
position object 89,-60+935,0,-308
color object 89,rgb(0,255,0)
texture object 89,100

rem west wall
make object box 90,615,220,5
position object 90,-280+935,0,0
color object 90,rgb(0,255,0)
yrotate object 90,90
texture object 90,100

rem floor wall
make object box 91,445,615,5
position object 91,-60+935,-110,0
rotate object 91,90,0,0
color object 91,rgb(0,200,0)
texture object 91,100

screenprint("100% complete")

LVL1SECTION

but it still doesnt work... any ideas? or am i just doing what you told me wrong? i am new to this,sorry.

Back to top

Profile PM

ShellfishGames

13

Years of Service

User Offline

Joined: 6th Feb 2013

Location:

Posted: 7th Mar 2014 17:35

Link

Quote: "Sorry if I'm offending you but I only posted the function to help the op and I'm not sure why you would criticize my logic on it instead of simply asking 'why?'"

OK then, I wasn't intending to critisize your logic, I was just curious. Sorry about the misunderstanding.

@DBP Enthusiast - simply put this line inside your code:

+ Code Snippet

screenprint("50% complete")

Just as tiffer said. Since the function-definition is in your code as well, DBP will recognize screenprint as an executable function (although it will probably not be highlighted in the editor, but it will still work).

By writing your own functions you can basically enhance DBPs command set by adding your own functionalities. The only difference is that unlike usual commands, you have to use parantheses when calling your self written functions. So 'screenprint "50% complete"' would not work, but 'screenprint("50% complete")' does.

Back to top

Profile PM Email Website

tiffer

20

Years of Service

User Offline

Joined: 6th Apr 2006

Location: Scotland

Posted: 7th Mar 2014 17:42 Edited at: 7th Mar 2014 17:48

Link

Don't ignore the brackets.

paste in bottom (out of loop)

+ Code Snippet

function screenprint(text$)
     sync off : ink rgb(0,0,0),0 : box 0,0,1024,768 :   ink rgb(20,20,20) : center text 1024/2,768/2,text$ : sync : sync on
endfunction

paste at start

+ Code Snippet

screenprint("loading")

paste half way

+ Code Snippet

screenprint("50%")

Edit No problem shellfish.

Cwatson

Back to top

Profile PM

Dark Basic Pro Enthusiast

12

Years of Service

User Offline

Joined: 8th Nov 2013

Location:

Posted: 10th Mar 2014 16:09

Link

Okay, so I think I am just going to stop trying to do this. I have followed every direction you have said, but nothing works. this is my code by the way:

REM *** START SYSTEM SETUP SECTION
autocam on
sync off
REM *** STOP SYSTEM SETUP SECTION
REM *****************************************
rem main menu
screenprint("loading")
MainMenu:
sync on
sync rate 30
do
cls
ink rgb(255,255,255),0
text 0,100,"NEW GAME"
text 0,130,"HOW TO PLAY"
text 0,160,"QUIT"

`NEW GAME
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 then ink rgb(0,0,100),0 : text 0,100,"NEW GAME"
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 and mouseclick()=1 then gosub loadall

`HOW TO PLAY
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 180 then ink rgb(0,0,100),0 : text 0,130,"HOW TO PLAY"
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 180 and mouseclick()=1 then text 100,130,"YOU CLICKED OPTIONS"

`QUIT
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 210 then ink rgb(0,0,100),0 : text 0,160,"QUIT"
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 210 and mouseclick()=1 then gosub ENDSECTION
sync
loop
loadall:
load image "E:\new edutainment project\images\arrow key.bmp",2
load image "E:\new edutainment project\images\NUMBERS\1.jpg",1
load image "E:\new edutainment project\images\NUMBERS\2.jpg",200
load image "E:\new edutainment project\images\NUMBERS\3.jpg",3
load image "E:\new edutainment project\images\NUMBERS\4.jpg",4
load image "E:\new edutainment project\images\NUMBERS\5.jpg",5
load image "E:\new edutainment project\images\NUMBERS\6.jpg",6
load image "E:\new edutainment project\images\NUMBERS\7.jpg",7
load image "E:\new edutainment project\images\NUMBERS\8.jpg",8
load image "E:\new edutainment project\images\NUMBERS\9.jpg",9
load image "E:\new edutainment project\images\NUMBERS\10.jpg",10
load image "E:\new edutainment project\images\NUMBERS\11.jpg",11
load image "E:\new edutainment project\images\NUMBERS\12.jpg",12
load image "E:\new edutainment project\images\NUMBERS\13.jpg",13
load image "E:\new edutainment project\images\NUMBERS\14.jpg",14
load image "E:\new edutainment project\images\NUMBERS\15.jpg",15
load image "E:\new edutainment project\images\NUMBERS\16.jpg",16
load image "E:\new edutainment project\images\NUMBERS\17.jpg",17
load image "E:\new edutainment project\images\NUMBERS\18.jpg",18
load image "E:\new edutainment project\images\NUMBERS\19.jpg",19
load image "E:\new edutainment project\images\NUMBERS\20.jpg",20
load image "E:\new edutainment project\images\NUMBERS\20.jpg",20
load image "E:\new edutainment project\images\NUMBERS\21.jpg",21
load image "E:\new edutainment project\images\NUMBERS\22.jpg",22
load image "E:\new edutainment project\images\NUMBERS\23.jpg",23
load image "E:\new edutainment project\images\FP Brighter.bmp",100

screenprint("5%")

rem 1st rotate cube
make object cube 65,10
texture object 65,2
position object 65,-210,100,300
make mesh from object 1,65
add limb 65,1,1
scale limb 65,1,100,1000,0
show limb 65,1
offset limb 65,1,0,20,0
make object from limb 1000,65,1,1
position object 1000,-210,100,300
remove limb 65,1
hide object 1000

rem 2nd rotate cube
make object cube 66,10
texture object 66,2
position object 66,-110,100,300
make mesh from object 1,66
add limb 66,1,1
scale limb 66,1,100,1000,0
show limb 66,1
offset limb 66,1,0,20,0
make object from limb 1001,66,1,1
position object 1001,-110,100,300
remove limb 66,1
hide object 1001

rem 3rd rotate cube
make object cube 67,10
texture object 67,2
position object 67,-10,100,300
make mesh from object 1,67
add limb 67,1,1
scale limb 67,1,100,1000,0
show limb 67,1
offset limb 67,1,0,20,0
make object from limb 1002,67,1,1
position object 1002,-10,100,300
remove limb 67,1
hide object 1002

screenprint("10%")

rem 4th rotate cube
make object cube 68,10
texture object 68,2
position object 68,90,100,300
make mesh from object 1,68
add limb 68,1,1
scale limb 68,1,100,1000,0
show limb 68,1
offset limb 68,1,0,20,0
make object from limb 1003,68,1,1
position object 1003,90,100,300
remove limb 68,1
hide object 1003

rem 5th rotate cube
make object cube 69,10
texture object 69,2
position object 69,-260,50,300
make mesh from object 1,69
add limb 69,1,1
scale limb 69,1,100,1000,0
show limb 69,1
offset limb 69,1,0,20,0
make object from limb 1004,69,1,1
position object 1004,-260,50,300
remove limb 69,1
hide object 1004

rem 6th rotate cube
make object cube 70,10
texture object 70,2
position object 70,-160,50,300
make mesh from object 1,70
add limb 70,1,1
scale limb 70,1,100,1000,0
show limb 70,1
offset limb 70,1,0,20,0
make object from limb 1005,70,1,1
position object 1005,-160,50,300
remove limb 70,1
hide object 1005

screenprint("15%")

rem 7th rotate cube
make object cube 71,10
texture object 71,2
position object 71,-60,50,300
make mesh from object 1,71
add limb 71,1,1
scale limb 71,1,100,1000,0
show limb 71,1
offset limb 71,1,0,20,0
make object from limb 1006,71,1,1
position object 1006,-60,50,300
remove limb 71,1
hide object 1006

rem 8th rotate cube
make object cube 72,10
texture object 72,2
position object 72,40,50,300
make mesh from object 1,72
add limb 72,1,1
scale limb 72,1,100,1000,0
show limb 72,1
offset limb 72,1,0,20,0
make object from limb 1007,72,1,1
position object 1007,40,50,300
remove limb 72,1
hide object 1007

rem 9th rotate cube
make object cube 73,10
texture object 73,2
position object 73,140,50,300
make mesh from object 1,73
add limb 73,1,1
scale limb 73,1,100,1000,0
show limb 73,1
offset limb 73,1,0,20,0
make object from limb 1008,73,1,1
position object 1008,140,50,300
remove limb 73,1
hide object 1008

screenprint("20%")

rem 10th rotate cube
make object cube 74,10
texture object 74,2
position object 74,-210,0,300
make mesh from object 1,74
add limb 74,1,1
scale limb 74,1,100,1000,0
show limb 74,1
offset limb 74,1,0,20,0
make object from limb 1009,74,1,1
position object 1009,-210,0,300
remove limb 74,1
hide object 1009

rem 11th rotate cube
make object cube 75,10
texture object 75,2
position object 75,-110,0,300
make mesh from object 1,75
add limb 75,1,1
scale limb 75,1,100,1000,0
show limb 75,1
offset limb 75,1,0,20,0
make object from limb 1010,75,1,1
position object 1010,-110,0,300
remove limb 75,1
hide object 1010

rem 12th rotate cube
make object cube 76,10
texture object 76,2
position object 76,-10,0,300
make mesh from object 1,76
add limb 76,1,1
scale limb 76,1,100,1000,0
show limb 76,1
offset limb 76,1,0,20,0
make object from limb 1011,76,1,1
position object 1011,-10,0,300
remove limb 76,1
hide object 1011

screenprint("25%")

rem 13th rotate cube
make object cube 77,10
texture object 77,2
position object 77,90,0,300
make mesh from object 1,77
add limb 77,1,1
scale limb 77,1,100,1000,0
show limb 77,1
offset limb 77,1,0,20,0
make object from limb 1012,77,1,1
position object 1012,90,0,300
remove limb 77,1
hide object 1012

rem 14th rotate cube
make object cube 78,10
texture object 78,2
position object 78,-260,-50,300
make mesh from object 1,78
add limb 78,1,1
scale limb 78,1,100,1000,0
show limb 78,1
offset limb 78,1,0,20,0
make object from limb 1013,78,1,1
position object 1013,-260,-50,300
remove limb 78,1
hide object 1013

rem 15th rotate cube
make object cube 79,10
texture object 79,2
position object 79,-160,-50,300
make mesh from object 1,79
add limb 79,1,1
scale limb 79,1,100,1000,0
show limb 79,1
offset limb 79,1,0,20,0
make object from limb 1014,79,1,1
position object 1014,-160,-50,300
remove limb 79,1
hide object 1014

screenprint("30%")

rem 16th rotate cube
make object cube 80,10
texture object 80,2
position object 80,-60,-50,300
make mesh from object 1,80
add limb 80,1,1
scale limb 80,1,100,1000,0
show limb 80,1
offset limb 80,1,0,20,0
make object from limb 1015,80,1,1
position object 1015,-60,-50,300
remove limb 80,1
hide object 1015

rem 17th rotate cube
make object cube 81,10
texture object 81,2
position object 81,40,-50,300
make mesh from object 1,81
add limb 81,1,1
scale limb 81,1,100,1000,0
show limb 81,1
offset limb 81,1,0,20,0
make object from limb 1016,81,1,1
position object 1016,40,-50,300
remove limb 81,1
hide object 1016

rem 18th rotate cube
make object cube 82,10
texture object 82,2
position object 82,140,-50,300
make mesh from object 1,82
add limb 82,1,1
scale limb 82,1,100,1000,0
show limb 82,1
offset limb 82,1,0,20,0
make object from limb 1017,82,1,1
position object 1017,140,-50,300
remove limb 82,1
hide object 1017

screenprint("35%")

rem 19th rotate cube
make object cube 83,10
texture object 83,2
position object 83,-210,-100,300
make mesh from object 1,83
add limb 83,1,1
scale limb 83,1,100,1000,0
show limb 83,1
offset limb 83,1,0,20,0
make object from limb 1018,83,1,1
position object 1018,-210,-100,300
remove limb 83,1
hide object 1018

rem 20th rotate cube
make object cube 84,10
texture object 84,2
position object 84,-110,-100,300
make mesh from object 1,84
add limb 84,1,1
scale limb 84,1,100,1000,0
show limb 84,1
offset limb 84,1,0,20,0
make object from limb 1019,84,1,1
position object 1019,-110,-100,300
remove limb 84,1
hide object 1019

screenprint("40%")

rem 21st rotate cube
make object cube 85,10
texture object 85,2
position object 85,-10,-100,300
make mesh from object 1,85
add limb 85,1,1
scale limb 85,1,100,1000,0
show limb 85,1
offset limb 85,1,0,20,0
make object from limb 1020,85,1,1
position object 1020,-10,-100,300
remove limb 85,1
hide object 1020

rem 22nd rotate cube
make object cube 86,10
texture object 86,2
position object 86,90,-100,300
make mesh from object 1,86
add limb 86,1,1
scale limb 86,1,100,1000,0
show limb 86,1
offset limb 86,1,0,20,0
make object from limb 1021,86,1,1
position object 1021,90,-100,300
remove limb 86,1
hide object 1021

screenprint("45%")

rem first row
for t=2 to 6
make object cube t,20
position object t,-360+(t-1)*100,100,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

rem second row
for t=7 to 10
make object cube t,20
position object t,-310+(t-6)*100,50,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

screenprint("50%")

rem third row
for t=11 to 15
make object cube t,20
position object t,-360+(t-10)*100,0,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t
screenprint("55%")

rem fourth row
for t=16 to 19
make object cube t,20
position object t,-310+(t-15)*100,-50,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

rem fifth row
for t=20 to 24
make object cube t,20
position object t,-360+(t-19)*100,-100,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

screenprint("60%")

rem texture cubes
texture object 2,1
texture object 3,200
for t=4 to 23
texture object t,t-1
next t

rem texture cubes

rem lvl one walls

rem north wall
make object box 45,445,220,0
position object 45,-60,0,311
color object 45,rgb(0,255,0)
texture object 45,100

screenprint("65%")

rem east wall
make object box 46,615,220,5
position object 46,162,0,2
color object 46,rgb(0,255,0)
yrotate object 46,90
texture object 46,100

rem top wall
make object box 47,445,615,5
position object 47,-60,110,0
rotate object 47,90,0,0
color object 47,rgb(0,200,0)
texture object 47,100

screenprint("70%")

rem south wall
make object box 48,445,220,0
position object 48,-60,0,-308
color object 48,rgb(0,255,0)
texture object 48,100

rem west wall
make object box 49,615,220,5
position object 49,-280,0,0
color object 49,rgb(0,255,0)
yrotate object 49,90
texture object 49,100

screenprint("75%")

rem floor wall
make object box 50,445,615,5
position object 50,-60,-110,0
rotate object 50,90,0,0
color object 50,rgb(0,200,0)
texture object 50,100

rem runway
make object box 51,1380,400,0
rotate object 51,90,0,0
position object 51,406,-110,-501

screenprint("80%")

rem runway
make object box 92,1380,400,0
rotate object 92,90,0,0
position object 92,406,-110,-501

REM LVL 2 WALLS

rem north wall
make object box 52,445,220,0
position object 52,-60,0,311-1010
color object 52,rgb(0,255,0)
texture object 52,100

rem east wall
make object box 53,615,220,5
position object 53,162,0,2-1010
color object 53,rgb(0,255,0)
yrotate object 53,90
texture object 53,100

rem top wall
make object box 54,445,615,5
position object 54,-60,110,-1010
rotate object 54,90,0,0
color object 54,rgb(0,200,0)
texture object 54,100

rem south wall
make object box 55,445,220,0
position object 55,-60,0,-308-1010
color object 55,rgb(0,255,0)
texture object 55,100

rem west wall
make object box 56,615,220,5
position object 56,-280,0,-1010
color object 56,rgb(0,255,0)
yrotate object 56,90
texture object 56,100

screenprint("85%")

rem floor wall
make object box 57,445,615,5
position object 57,-60,-110,-1010
rotate object 57,90,0,0
color object 57,rgb(0,200,0)
texture object 57,100

rem lvl 3
make object box 58,445,220,0
position object 58,-60+935,0,311-1010
color object 58,rgb(0,255,0)
texture object 58,100

rem east wall
make object box 59,615,220,5
position object 59,162+935,0,2-1010
color object 59,rgb(0,255,0)
yrotate object 59,90
texture object 59,100

rem top wall
make object box 60,445,615,5
position object 60,-60+935,110,-1010
rotate object 60,90,0,0
color object 60,rgb(0,200,0)
texture object 60,100

rem south wall
make object box 61,445,220,0
position object 61,-60+935,0,-308-1010
color object 61,rgb(0,255,0)
texture object 61,100

screenprint("90%")

rem west wall
make object box 62,615,220,5
position object 62,-280+935,0,-1010
color object 62,rgb(0,255,0)
yrotate object 62,90
texture object 62,100

rem floor wall
make object box 63,445,615,5
position object 63,-60+935,-110,-1010
rotate object 63,90,0,0
color object 63,rgb(0,200,0)
texture object 63,100

rem lvl 4
make object box 64,445,220,0
position object 64,-60+935,0,311
color object 64,rgb(0,255,0)
texture object 64,100

rem east wall
make object box 87,615,220,5
position object 87,162+935,0,2
color object 87,rgb(0,255,0)
yrotate object 87,90
texture object 87,100

screenprint("95%")

rem top wall
make object box 88,445,615,5
position object 88,-60+935,110,0
rotate object 88,90,0,0
color object 88,rgb(0,200,0)
texture object 88,100

rem south wall
make object box 89,445,220,0
position object 89,-60+935,0,-308
color object 89,rgb(0,255,0)
texture object 89,100

rem west wall
make object box 90,615,220,5
position object 90,-280+935,0,0
color object 90,rgb(0,255,0)
yrotate object 90,90
texture object 90,100

rem floor wall
make object box 91,445,615,5
position object 91,-60+935,-110,0
rotate object 91,90,0,0
color object 91,rgb(0,200,0)
texture object 91,100

screenprint("100%")

LVL1SECTION:

+ Code Snippet

REM *** START SYSTEM SETUP SECTION
autocam on
sync off
REM *** STOP SYSTEM SETUP SECTION
REM *****************************************
rem main menu
screenprint("loading")
MainMenu:
sync on
sync rate 30
do
cls
ink rgb(255,255,255),0
text 0,100,"NEW GAME"
text 0,130,"HOW TO PLAY"
text 0,160,"QUIT"

`NEW GAME
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 then ink rgb(0,0,100),0 : text 0,100,"NEW GAME"
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 and mouseclick()=1 then gosub loadall

`HOW TO PLAY
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 180 then ink rgb(0,0,100),0 : text 0,130,"HOW TO PLAY"
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 180 and mouseclick()=1 then text 100,130,"YOU CLICKED OPTIONS"

`QUIT
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 210 then ink rgb(0,0,100),0 : text 0,160,"QUIT"
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 210 and mouseclick()=1 then gosub ENDSECTION
sync
loop
loadall:
load image "E:\new edutainment project\images\arrow key.bmp",2
load image "E:\new edutainment project\images\NUMBERS\1.jpg",1
load image "E:\new edutainment project\images\NUMBERS\2.jpg",200
load image "E:\new edutainment project\images\NUMBERS\3.jpg",3
load image "E:\new edutainment project\images\NUMBERS\4.jpg",4
load image "E:\new edutainment project\images\NUMBERS\5.jpg",5
load image "E:\new edutainment project\images\NUMBERS\6.jpg",6
load image "E:\new edutainment project\images\NUMBERS\7.jpg",7
load image "E:\new edutainment project\images\NUMBERS\8.jpg",8
load image "E:\new edutainment project\images\NUMBERS\9.jpg",9
load image "E:\new edutainment project\images\NUMBERS\10.jpg",10
load image "E:\new edutainment project\images\NUMBERS\11.jpg",11
load image "E:\new edutainment project\images\NUMBERS\12.jpg",12
load image "E:\new edutainment project\images\NUMBERS\13.jpg",13
load image "E:\new edutainment project\images\NUMBERS\14.jpg",14
load image "E:\new edutainment project\images\NUMBERS\15.jpg",15
load image "E:\new edutainment project\images\NUMBERS\16.jpg",16
load image "E:\new edutainment project\images\NUMBERS\17.jpg",17
load image "E:\new edutainment project\images\NUMBERS\18.jpg",18
load image "E:\new edutainment project\images\NUMBERS\19.jpg",19
load image "E:\new edutainment project\images\NUMBERS\20.jpg",20
load image "E:\new edutainment project\images\NUMBERS\20.jpg",20
load image "E:\new edutainment project\images\NUMBERS\21.jpg",21
load image "E:\new edutainment project\images\NUMBERS\22.jpg",22
load image "E:\new edutainment project\images\NUMBERS\23.jpg",23
load image "E:\new edutainment project\images\FP Brighter.bmp",100

screenprint("5%")

rem 1st rotate cube
make object cube 65,10
texture object 65,2
position object 65,-210,100,300
make mesh from object 1,65
add limb 65,1,1
scale limb 65,1,100,1000,0
show limb 65,1
offset limb 65,1,0,20,0
make object from limb 1000,65,1,1
position object 1000,-210,100,300
remove limb 65,1
hide object 1000

rem 2nd rotate cube
make object cube 66,10
texture object 66,2
position object 66,-110,100,300
make mesh from object 1,66
add limb 66,1,1
scale limb 66,1,100,1000,0
show limb 66,1
offset limb 66,1,0,20,0
make object from limb 1001,66,1,1
position object 1001,-110,100,300
remove limb 66,1
hide object 1001

rem 3rd rotate cube
make object cube 67,10
texture object 67,2
position object 67,-10,100,300
make mesh from object 1,67
add limb 67,1,1
scale limb 67,1,100,1000,0
show limb 67,1
offset limb 67,1,0,20,0
make object from limb 1002,67,1,1
position object 1002,-10,100,300
remove limb 67,1
hide object 1002

screenprint("10%")

rem 4th rotate cube
make object cube 68,10
texture object 68,2
position object 68,90,100,300
make mesh from object 1,68
add limb 68,1,1
scale limb 68,1,100,1000,0
show limb 68,1
offset limb 68,1,0,20,0
make object from limb 1003,68,1,1
position object 1003,90,100,300
remove limb 68,1
hide object 1003

rem 5th rotate cube
make object cube 69,10
texture object 69,2
position object 69,-260,50,300
make mesh from object 1,69
add limb 69,1,1
scale limb 69,1,100,1000,0
show limb 69,1
offset limb 69,1,0,20,0
make object from limb 1004,69,1,1
position object 1004,-260,50,300
remove limb 69,1
hide object 1004

rem 6th rotate cube
make object cube 70,10
texture object 70,2
position object 70,-160,50,300
make mesh from object 1,70
add limb 70,1,1
scale limb 70,1,100,1000,0
show limb 70,1
offset limb 70,1,0,20,0
make object from limb 1005,70,1,1
position object 1005,-160,50,300
remove limb 70,1
hide object 1005

screenprint("15%")

rem 7th rotate cube
make object cube 71,10
texture object 71,2
position object 71,-60,50,300
make mesh from object 1,71
add limb 71,1,1
scale limb 71,1,100,1000,0
show limb 71,1
offset limb 71,1,0,20,0
make object from limb 1006,71,1,1
position object 1006,-60,50,300
remove limb 71,1
hide object 1006

rem 8th rotate cube
make object cube 72,10
texture object 72,2
position object 72,40,50,300
make mesh from object 1,72
add limb 72,1,1
scale limb 72,1,100,1000,0
show limb 72,1
offset limb 72,1,0,20,0
make object from limb 1007,72,1,1
position object 1007,40,50,300
remove limb 72,1
hide object 1007

rem 9th rotate cube
make object cube 73,10
texture object 73,2
position object 73,140,50,300
make mesh from object 1,73
add limb 73,1,1
scale limb 73,1,100,1000,0
show limb 73,1
offset limb 73,1,0,20,0
make object from limb 1008,73,1,1
position object 1008,140,50,300
remove limb 73,1
hide object 1008

screenprint("20%")

rem 10th rotate cube
make object cube 74,10
texture object 74,2
position object 74,-210,0,300
make mesh from object 1,74
add limb 74,1,1
scale limb 74,1,100,1000,0
show limb 74,1
offset limb 74,1,0,20,0
make object from limb 1009,74,1,1
position object 1009,-210,0,300
remove limb 74,1
hide object 1009

rem 11th rotate cube
make object cube 75,10
texture object 75,2
position object 75,-110,0,300
make mesh from object 1,75
add limb 75,1,1
scale limb 75,1,100,1000,0
show limb 75,1
offset limb 75,1,0,20,0
make object from limb 1010,75,1,1
position object 1010,-110,0,300
remove limb 75,1
hide object 1010

rem 12th rotate cube
make object cube 76,10
texture object 76,2
position object 76,-10,0,300
make mesh from object 1,76
add limb 76,1,1
scale limb 76,1,100,1000,0
show limb 76,1
offset limb 76,1,0,20,0
make object from limb 1011,76,1,1
position object 1011,-10,0,300
remove limb 76,1
hide object 1011

screenprint("25%")

rem 13th rotate cube
make object cube 77,10
texture object 77,2
position object 77,90,0,300
make mesh from object 1,77
add limb 77,1,1
scale limb 77,1,100,1000,0
show limb 77,1
offset limb 77,1,0,20,0
make object from limb 1012,77,1,1
position object 1012,90,0,300
remove limb 77,1
hide object 1012

rem 14th rotate cube
make object cube 78,10
texture object 78,2
position object 78,-260,-50,300
make mesh from object 1,78
add limb 78,1,1
scale limb 78,1,100,1000,0
show limb 78,1
offset limb 78,1,0,20,0
make object from limb 1013,78,1,1
position object 1013,-260,-50,300
remove limb 78,1
hide object 1013

rem 15th rotate cube
make object cube 79,10
texture object 79,2
position object 79,-160,-50,300
make mesh from object 1,79
add limb 79,1,1
scale limb 79,1,100,1000,0
show limb 79,1
offset limb 79,1,0,20,0
make object from limb 1014,79,1,1
position object 1014,-160,-50,300
remove limb 79,1
hide object 1014

screenprint("30%")

rem 16th rotate cube
make object cube 80,10
texture object 80,2
position object 80,-60,-50,300
make mesh from object 1,80
add limb 80,1,1
scale limb 80,1,100,1000,0
show limb 80,1
offset limb 80,1,0,20,0
make object from limb 1015,80,1,1
position object 1015,-60,-50,300
remove limb 80,1
hide object 1015

rem 17th rotate cube
make object cube 81,10
texture object 81,2
position object 81,40,-50,300
make mesh from object 1,81
add limb 81,1,1
scale limb 81,1,100,1000,0
show limb 81,1
offset limb 81,1,0,20,0
make object from limb 1016,81,1,1
position object 1016,40,-50,300
remove limb 81,1
hide object 1016

rem 18th rotate cube
make object cube 82,10
texture object 82,2
position object 82,140,-50,300
make mesh from object 1,82
add limb 82,1,1
scale limb 82,1,100,1000,0
show limb 82,1
offset limb 82,1,0,20,0
make object from limb 1017,82,1,1
position object 1017,140,-50,300
remove limb 82,1
hide object 1017

screenprint("35%")

rem 19th rotate cube
make object cube 83,10
texture object 83,2
position object 83,-210,-100,300
make mesh from object 1,83
add limb 83,1,1
scale limb 83,1,100,1000,0
show limb 83,1
offset limb 83,1,0,20,0
make object from limb 1018,83,1,1
position object 1018,-210,-100,300
remove limb 83,1
hide object 1018

rem 20th rotate cube
make object cube 84,10
texture object 84,2
position object 84,-110,-100,300
make mesh from object 1,84
add limb 84,1,1
scale limb 84,1,100,1000,0
show limb 84,1
offset limb 84,1,0,20,0
make object from limb 1019,84,1,1
position object 1019,-110,-100,300
remove limb 84,1
hide object 1019

screenprint("40%")

rem 21st rotate cube
make object cube 85,10
texture object 85,2
position object 85,-10,-100,300
make mesh from object 1,85
add limb 85,1,1
scale limb 85,1,100,1000,0
show limb 85,1
offset limb 85,1,0,20,0
make object from limb 1020,85,1,1
position object 1020,-10,-100,300
remove limb 85,1
hide object 1020

rem 22nd rotate cube
make object cube 86,10
texture object 86,2
position object 86,90,-100,300
make mesh from object 1,86
add limb 86,1,1
scale limb 86,1,100,1000,0
show limb 86,1
offset limb 86,1,0,20,0
make object from limb 1021,86,1,1
position object 1021,90,-100,300
remove limb 86,1
hide object 1021

screenprint("45%")

rem first row
for t=2 to 6
make object cube t,20
position object t,-360+(t-1)*100,100,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

rem second row
for t=7 to 10
make object cube t,20
position object t,-310+(t-6)*100,50,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

screenprint("50%")

rem third row
for t=11 to 15
make object cube t,20
position object t,-360+(t-10)*100,0,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t
screenprint("55%")

rem fourth row
for t=16 to 19
make object cube t,20
position object t,-310+(t-15)*100,-50,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

rem fifth row
for t=20 to 24
make object cube t,20
position object t,-360+(t-19)*100,-100,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

screenprint("60%")

rem texture cubes
texture object 2,1
texture object 3,200
for t=4 to 23
texture object t,t-1
next t

rem texture cubes

rem lvl one walls

rem north wall
make object box 45,445,220,0
position object 45,-60,0,311
color object 45,rgb(0,255,0)
texture object 45,100

screenprint("65%")

rem east wall
make object box 46,615,220,5
position object 46,162,0,2
color object 46,rgb(0,255,0)
yrotate object 46,90
texture object 46,100

rem top wall
make object box 47,445,615,5
position object 47,-60,110,0
rotate object 47,90,0,0
color object 47,rgb(0,200,0)
texture object 47,100

screenprint("70%")

rem south wall
make object box 48,445,220,0
position object 48,-60,0,-308
color object 48,rgb(0,255,0)
texture object 48,100

rem west wall
make object box 49,615,220,5
position object 49,-280,0,0
color object 49,rgb(0,255,0)
yrotate object 49,90
texture object 49,100

screenprint("75%")

rem floor wall
make object box 50,445,615,5
position object 50,-60,-110,0
rotate object 50,90,0,0
color object 50,rgb(0,200,0)
texture object 50,100

rem runway
make object box 51,1380,400,0
rotate object 51,90,0,0
position object 51,406,-110,-501

screenprint("80%")

rem runway
make object box 92,1380,400,0
rotate object 92,90,0,0
position object 92,406,-110,-501

REM LVL 2 WALLS

rem north wall
make object box 52,445,220,0
position object 52,-60,0,311-1010
color object 52,rgb(0,255,0)
texture object 52,100

rem east wall
make object box 53,615,220,5
position object 53,162,0,2-1010
color object 53,rgb(0,255,0)
yrotate object 53,90
texture object 53,100

rem top wall
make object box 54,445,615,5
position object 54,-60,110,-1010
rotate object 54,90,0,0
color object 54,rgb(0,200,0)
texture object 54,100

rem south wall
make object box 55,445,220,0
position object 55,-60,0,-308-1010
color object 55,rgb(0,255,0)
texture object 55,100

rem west wall
make object box 56,615,220,5
position object 56,-280,0,-1010
color object 56,rgb(0,255,0)
yrotate object 56,90
texture object 56,100

screenprint("85%")

rem floor wall
make object box 57,445,615,5
position object 57,-60,-110,-1010
rotate object 57,90,0,0
color object 57,rgb(0,200,0)
texture object 57,100

rem lvl 3
make object box 58,445,220,0
position object 58,-60+935,0,311-1010
color object 58,rgb(0,255,0)
texture object 58,100

rem east wall
make object box 59,615,220,5
position object 59,162+935,0,2-1010
color object 59,rgb(0,255,0)
yrotate object 59,90
texture object 59,100

rem top wall
make object box 60,445,615,5
position object 60,-60+935,110,-1010
rotate object 60,90,0,0
color object 60,rgb(0,200,0)
texture object 60,100

rem south wall
make object box 61,445,220,0
position object 61,-60+935,0,-308-1010
color object 61,rgb(0,255,0)
texture object 61,100


screenprint("90%")

rem west wall
make object box 62,615,220,5
position object 62,-280+935,0,-1010
color object 62,rgb(0,255,0)
yrotate object 62,90
texture object 62,100

rem floor wall
make object box 63,445,615,5
position object 63,-60+935,-110,-1010
rotate object 63,90,0,0
color object 63,rgb(0,200,0)
texture object 63,100

rem lvl 4
make object box 64,445,220,0
position object 64,-60+935,0,311
color object 64,rgb(0,255,0)
texture object 64,100

rem east wall
make object box 87,615,220,5
position object 87,162+935,0,2
color object 87,rgb(0,255,0)
yrotate object 87,90
texture object 87,100


screenprint("95%")

rem top wall
make object box 88,445,615,5
position object 88,-60+935,110,0
rotate object 88,90,0,0
color object 88,rgb(0,200,0)
texture object 88,100

rem south wall
make object box 89,445,220,0
position object 89,-60+935,0,-308
color object 89,rgb(0,255,0)
texture object 89,100

rem west wall
make object box 90,615,220,5
position object 90,-280+935,0,0
color object 90,rgb(0,255,0)
yrotate object 90,90
texture object 90,100

rem floor wall
make object box 91,445,615,5
position object 91,-60+935,-110,0
rotate object 91,90,0,0
color object 91,rgb(0,200,0)
texture object 91,100

screenprint("100%")

LVL1SECTION:

I think it has something to do with my main menu, but i am not sure. Although, thank you both for the help

Back to top

Profile PM

ShellfishGames

13

Years of Service

User Offline

Joined: 6th Feb 2013

Location:

Posted: 10th Mar 2014 16:28

Link

Your main loop is missing a Sync. Hence nothing after the "Loading..." is ever drawn (because you set sync on in the beginning (line 9) you have to call the sync command manually - if sync on wasn't set, DBP would do that automatically at the end of each do/loop, repeat/until or while/endwhile cycle). Also, in the code you've just posted, the function definition of screenprint() is missing.
I altered the code by adding the sync to your main menu loop and the function declaration to the very bottom, and it works just as expected:

REM *** START SYSTEM SETUP SECTION
autocam on
sync off
REM *** STOP SYSTEM SETUP SECTION
REM *****************************************
rem main menu
screenprint("loading")
MainMenu:
sync on
sync rate 30
do
cls
ink rgb(255,255,255),0
text 0,100,"NEW GAME"
text 0,130,"HOW TO PLAY"
text 0,160,"QUIT"

`NEW GAME
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 then ink rgb(0,0,100),0 : text 0,100,"NEW GAME"
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 and mouseclick()=1 then gosub loadall

`HOW TO PLAY
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 180 then ink rgb(0,0,100),0 : text 0,130,"HOW TO PLAY"
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 180 and mouseclick()=1 then text 100,130,"YOU CLICKED OPTIONS"

`QUIT
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 210 then ink rgb(0,0,100),0 : text 0,160,"QUIT"
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 210 and mouseclick()=1 then end
sync
loop
loadall:
remstart
load image "E:\new edutainment project\images\arrow key.bmp",2
load image "E:\new edutainment project\images\NUMBERS\1.jpg",1
load image "E:\new edutainment project\images\NUMBERS\2.jpg",200
load image "E:\new edutainment project\images\NUMBERS\3.jpg",3
load image "E:\new edutainment project\images\NUMBERS\4.jpg",4
load image "E:\new edutainment project\images\NUMBERS\5.jpg",5
load image "E:\new edutainment project\images\NUMBERS\6.jpg",6
load image "E:\new edutainment project\images\NUMBERS\7.jpg",7
load image "E:\new edutainment project\images\NUMBERS\8.jpg",8
load image "E:\new edutainment project\images\NUMBERS\9.jpg",9
load image "E:\new edutainment project\images\NUMBERS\10.jpg",10
load image "E:\new edutainment project\images\NUMBERS\11.jpg",11
load image "E:\new edutainment project\images\NUMBERS\12.jpg",12
load image "E:\new edutainment project\images\NUMBERS\13.jpg",13
load image "E:\new edutainment project\images\NUMBERS\14.jpg",14
load image "E:\new edutainment project\images\NUMBERS\15.jpg",15
load image "E:\new edutainment project\images\NUMBERS\16.jpg",16
load image "E:\new edutainment project\images\NUMBERS\17.jpg",17
load image "E:\new edutainment project\images\NUMBERS\18.jpg",18
load image "E:\new edutainment project\images\NUMBERS\19.jpg",19
load image "E:\new edutainment project\images\NUMBERS\20.jpg",20
load image "E:\new edutainment project\images\NUMBERS\20.jpg",20
load image "E:\new edutainment project\images\NUMBERS\21.jpg",21
load image "E:\new edutainment project\images\NUMBERS\22.jpg",22
load image "E:\new edutainment project\images\NUMBERS\23.jpg",23
load image "E:\new edutainment project\images\FP Brighter.bmp",100
remend
wait 200

screenprint("5%")

rem 1st rotate cube
make object cube 65,10
texture object 65,2
position object 65,-210,100,300
make mesh from object 1,65
add limb 65,1,1
scale limb 65,1,100,1000,0
show limb 65,1
offset limb 65,1,0,20,0
make object from limb 1000,65,1,1
position object 1000,-210,100,300
remove limb 65,1
hide object 1000

rem 2nd rotate cube
make object cube 66,10
texture object 66,2
position object 66,-110,100,300
make mesh from object 1,66
add limb 66,1,1
scale limb 66,1,100,1000,0
show limb 66,1
offset limb 66,1,0,20,0
make object from limb 1001,66,1,1
position object 1001,-110,100,300
remove limb 66,1
hide object 1001

rem 3rd rotate cube
make object cube 67,10
texture object 67,2
position object 67,-10,100,300
make mesh from object 1,67
add limb 67,1,1
scale limb 67,1,100,1000,0
show limb 67,1
offset limb 67,1,0,20,0
make object from limb 1002,67,1,1
position object 1002,-10,100,300
remove limb 67,1
hide object 1002

screenprint("10%")

rem 4th rotate cube
make object cube 68,10
texture object 68,2
position object 68,90,100,300
make mesh from object 1,68
add limb 68,1,1
scale limb 68,1,100,1000,0
show limb 68,1
offset limb 68,1,0,20,0
make object from limb 1003,68,1,1
position object 1003,90,100,300
remove limb 68,1
hide object 1003

rem 5th rotate cube
make object cube 69,10
texture object 69,2
position object 69,-260,50,300
make mesh from object 1,69
add limb 69,1,1
scale limb 69,1,100,1000,0
show limb 69,1
offset limb 69,1,0,20,0
make object from limb 1004,69,1,1
position object 1004,-260,50,300
remove limb 69,1
hide object 1004

rem 6th rotate cube
make object cube 70,10
texture object 70,2
position object 70,-160,50,300
make mesh from object 1,70
add limb 70,1,1
scale limb 70,1,100,1000,0
show limb 70,1
offset limb 70,1,0,20,0
make object from limb 1005,70,1,1
position object 1005,-160,50,300
remove limb 70,1
hide object 1005

screenprint("15%")

rem 7th rotate cube
make object cube 71,10
texture object 71,2
position object 71,-60,50,300
make mesh from object 1,71
add limb 71,1,1
scale limb 71,1,100,1000,0
show limb 71,1
offset limb 71,1,0,20,0
make object from limb 1006,71,1,1
position object 1006,-60,50,300
remove limb 71,1
hide object 1006

rem 8th rotate cube
make object cube 72,10
texture object 72,2
position object 72,40,50,300
make mesh from object 1,72
add limb 72,1,1
scale limb 72,1,100,1000,0
show limb 72,1
offset limb 72,1,0,20,0
make object from limb 1007,72,1,1
position object 1007,40,50,300
remove limb 72,1
hide object 1007

rem 9th rotate cube
make object cube 73,10
texture object 73,2
position object 73,140,50,300
make mesh from object 1,73
add limb 73,1,1
scale limb 73,1,100,1000,0
show limb 73,1
offset limb 73,1,0,20,0
make object from limb 1008,73,1,1
position object 1008,140,50,300
remove limb 73,1
hide object 1008

screenprint("20%")

rem 10th rotate cube
make object cube 74,10
texture object 74,2
position object 74,-210,0,300
make mesh from object 1,74
add limb 74,1,1
scale limb 74,1,100,1000,0
show limb 74,1
offset limb 74,1,0,20,0
make object from limb 1009,74,1,1
position object 1009,-210,0,300
remove limb 74,1
hide object 1009

rem 11th rotate cube
make object cube 75,10
texture object 75,2
position object 75,-110,0,300
make mesh from object 1,75
add limb 75,1,1
scale limb 75,1,100,1000,0
show limb 75,1
offset limb 75,1,0,20,0
make object from limb 1010,75,1,1
position object 1010,-110,0,300
remove limb 75,1
hide object 1010

rem 12th rotate cube
make object cube 76,10
texture object 76,2
position object 76,-10,0,300
make mesh from object 1,76
add limb 76,1,1
scale limb 76,1,100,1000,0
show limb 76,1
offset limb 76,1,0,20,0
make object from limb 1011,76,1,1
position object 1011,-10,0,300
remove limb 76,1
hide object 1011

screenprint("25%")

rem 13th rotate cube
make object cube 77,10
texture object 77,2
position object 77,90,0,300
make mesh from object 1,77
add limb 77,1,1
scale limb 77,1,100,1000,0
show limb 77,1
offset limb 77,1,0,20,0
make object from limb 1012,77,1,1
position object 1012,90,0,300
remove limb 77,1
hide object 1012

rem 14th rotate cube
make object cube 78,10
texture object 78,2
position object 78,-260,-50,300
make mesh from object 1,78
add limb 78,1,1
scale limb 78,1,100,1000,0
show limb 78,1
offset limb 78,1,0,20,0
make object from limb 1013,78,1,1
position object 1013,-260,-50,300
remove limb 78,1
hide object 1013

rem 15th rotate cube
make object cube 79,10
texture object 79,2
position object 79,-160,-50,300
make mesh from object 1,79
add limb 79,1,1
scale limb 79,1,100,1000,0
show limb 79,1
offset limb 79,1,0,20,0
make object from limb 1014,79,1,1
position object 1014,-160,-50,300
remove limb 79,1
hide object 1014

screenprint("30%")

rem 16th rotate cube
make object cube 80,10
texture object 80,2
position object 80,-60,-50,300
make mesh from object 1,80
add limb 80,1,1
scale limb 80,1,100,1000,0
show limb 80,1
offset limb 80,1,0,20,0
make object from limb 1015,80,1,1
position object 1015,-60,-50,300
remove limb 80,1
hide object 1015

rem 17th rotate cube
make object cube 81,10
texture object 81,2
position object 81,40,-50,300
make mesh from object 1,81
add limb 81,1,1
scale limb 81,1,100,1000,0
show limb 81,1
offset limb 81,1,0,20,0
make object from limb 1016,81,1,1
position object 1016,40,-50,300
remove limb 81,1
hide object 1016

rem 18th rotate cube
make object cube 82,10
texture object 82,2
position object 82,140,-50,300
make mesh from object 1,82
add limb 82,1,1
scale limb 82,1,100,1000,0
show limb 82,1
offset limb 82,1,0,20,0
make object from limb 1017,82,1,1
position object 1017,140,-50,300
remove limb 82,1
hide object 1017

screenprint("35%")

rem 19th rotate cube
make object cube 83,10
texture object 83,2
position object 83,-210,-100,300
make mesh from object 1,83
add limb 83,1,1
scale limb 83,1,100,1000,0
show limb 83,1
offset limb 83,1,0,20,0
make object from limb 1018,83,1,1
position object 1018,-210,-100,300
remove limb 83,1
hide object 1018

rem 20th rotate cube
make object cube 84,10
texture object 84,2
position object 84,-110,-100,300
make mesh from object 1,84
add limb 84,1,1
scale limb 84,1,100,1000,0
show limb 84,1
offset limb 84,1,0,20,0
make object from limb 1019,84,1,1
position object 1019,-110,-100,300
remove limb 84,1
hide object 1019

screenprint("40%")

rem 21st rotate cube
make object cube 85,10
texture object 85,2
position object 85,-10,-100,300
make mesh from object 1,85
add limb 85,1,1
scale limb 85,1,100,1000,0
show limb 85,1
offset limb 85,1,0,20,0
make object from limb 1020,85,1,1
position object 1020,-10,-100,300
remove limb 85,1
hide object 1020

rem 22nd rotate cube
make object cube 86,10
texture object 86,2
position object 86,90,-100,300
make mesh from object 1,86
add limb 86,1,1
scale limb 86,1,100,1000,0
show limb 86,1
offset limb 86,1,0,20,0
make object from limb 1021,86,1,1
position object 1021,90,-100,300
remove limb 86,1
hide object 1021

screenprint("45%")

rem first row
for t=2 to 6
make object cube t,20
position object t,-360+(t-1)*100,100,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

rem second row
for t=7 to 10
make object cube t,20
position object t,-310+(t-6)*100,50,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

screenprint("50%")

rem third row
for t=11 to 15
make object cube t,20
position object t,-360+(t-10)*100,0,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t
screenprint("55%")

rem fourth row
for t=16 to 19
make object cube t,20
position object t,-310+(t-15)*100,-50,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

rem fifth row
for t=20 to 24
make object cube t,20
position object t,-360+(t-19)*100,-100,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

screenprint("60%")

rem texture cubes
texture object 2,1
texture object 3,200
for t=4 to 23
texture object t,t-1
next t

rem texture cubes

rem lvl one walls

rem north wall
make object box 45,445,220,0
position object 45,-60,0,311
color object 45,rgb(0,255,0)
texture object 45,100

screenprint("65%")

rem east wall
make object box 46,615,220,5
position object 46,162,0,2
color object 46,rgb(0,255,0)
yrotate object 46,90
texture object 46,100

rem top wall
make object box 47,445,615,5
position object 47,-60,110,0
rotate object 47,90,0,0
color object 47,rgb(0,200,0)
texture object 47,100

screenprint("70%")

rem south wall
make object box 48,445,220,0
position object 48,-60,0,-308
color object 48,rgb(0,255,0)
texture object 48,100

rem west wall
make object box 49,615,220,5
position object 49,-280,0,0
color object 49,rgb(0,255,0)
yrotate object 49,90
texture object 49,100

screenprint("75%")

rem floor wall
make object box 50,445,615,5
position object 50,-60,-110,0
rotate object 50,90,0,0
color object 50,rgb(0,200,0)
texture object 50,100

rem runway
make object box 51,1380,400,0
rotate object 51,90,0,0
position object 51,406,-110,-501

screenprint("80%")

rem runway
make object box 92,1380,400,0
rotate object 92,90,0,0
position object 92,406,-110,-501

REM LVL 2 WALLS

rem north wall
make object box 52,445,220,0
position object 52,-60,0,311-1010
color object 52,rgb(0,255,0)
texture object 52,100

rem east wall
make object box 53,615,220,5
position object 53,162,0,2-1010
color object 53,rgb(0,255,0)
yrotate object 53,90
texture object 53,100

rem top wall
make object box 54,445,615,5
position object 54,-60,110,-1010
rotate object 54,90,0,0
color object 54,rgb(0,200,0)
texture object 54,100

rem south wall
make object box 55,445,220,0
position object 55,-60,0,-308-1010
color object 55,rgb(0,255,0)
texture object 55,100

rem west wall
make object box 56,615,220,5
position object 56,-280,0,-1010
color object 56,rgb(0,255,0)
yrotate object 56,90
texture object 56,100

screenprint("85%")

rem floor wall
make object box 57,445,615,5
position object 57,-60,-110,-1010
rotate object 57,90,0,0
color object 57,rgb(0,200,0)
texture object 57,100

rem lvl 3
make object box 58,445,220,0
position object 58,-60+935,0,311-1010
color object 58,rgb(0,255,0)
texture object 58,100

rem east wall
make object box 59,615,220,5
position object 59,162+935,0,2-1010
color object 59,rgb(0,255,0)
yrotate object 59,90
texture object 59,100

rem top wall
make object box 60,445,615,5
position object 60,-60+935,110,-1010
rotate object 60,90,0,0
color object 60,rgb(0,200,0)
texture object 60,100

rem south wall
make object box 61,445,220,0
position object 61,-60+935,0,-308-1010
color object 61,rgb(0,255,0)
texture object 61,100

screenprint("90%")

rem west wall
make object box 62,615,220,5
position object 62,-280+935,0,-1010
color object 62,rgb(0,255,0)
yrotate object 62,90
texture object 62,100

rem floor wall
make object box 63,445,615,5
position object 63,-60+935,-110,-1010
rotate object 63,90,0,0
color object 63,rgb(0,200,0)
texture object 63,100

rem lvl 4
make object box 64,445,220,0
position object 64,-60+935,0,311
color object 64,rgb(0,255,0)
texture object 64,100

rem east wall
make object box 87,615,220,5
position object 87,162+935,0,2
color object 87,rgb(0,255,0)
yrotate object 87,90
texture object 87,100

screenprint("95%")

rem top wall
make object box 88,445,615,5
position object 88,-60+935,110,0
rotate object 88,90,0,0
color object 88,rgb(0,200,0)
texture object 88,100

rem south wall
make object box 89,445,220,0
position object 89,-60+935,0,-308
color object 89,rgb(0,255,0)
texture object 89,100

rem west wall
make object box 90,615,220,5
position object 90,-280+935,0,0
color object 90,rgb(0,255,0)
yrotate object 90,90
texture object 90,100

rem floor wall
make object box 91,445,615,5
position object 91,-60+935,-110,0
rotate object 91,90,0,0
color object 91,rgb(0,200,0)
texture object 91,100

screenprint("100%")

end

function screenprint(s$)
    cls 
    ink rgb(255,255,255),0
    print s$ 
    sync
endfunction

+ Code Snippet

REM *** START SYSTEM SETUP SECTION
autocam on
sync off
REM *** STOP SYSTEM SETUP SECTION
REM *****************************************
rem main menu
screenprint("loading")
MainMenu:
sync on
sync rate 30
do
cls
ink rgb(255,255,255),0
text 0,100,"NEW GAME"
text 0,130,"HOW TO PLAY"
text 0,160,"QUIT"

`NEW GAME
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 then ink rgb(0,0,100),0 : text 0,100,"NEW GAME"
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 and mouseclick()=1 then gosub loadall

`HOW TO PLAY
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 180 then ink rgb(0,0,100),0 : text 0,130,"HOW TO PLAY"
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 180 and mouseclick()=1 then text 100,130,"YOU CLICKED OPTIONS"

`QUIT
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 210 then ink rgb(0,0,100),0 : text 0,160,"QUIT"
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 210 and mouseclick()=1 then end
sync
loop
loadall:
remstart
load image "E:\new edutainment project\images\arrow key.bmp",2
load image "E:\new edutainment project\images\NUMBERS\1.jpg",1
load image "E:\new edutainment project\images\NUMBERS\2.jpg",200
load image "E:\new edutainment project\images\NUMBERS\3.jpg",3
load image "E:\new edutainment project\images\NUMBERS\4.jpg",4
load image "E:\new edutainment project\images\NUMBERS\5.jpg",5
load image "E:\new edutainment project\images\NUMBERS\6.jpg",6
load image "E:\new edutainment project\images\NUMBERS\7.jpg",7
load image "E:\new edutainment project\images\NUMBERS\8.jpg",8
load image "E:\new edutainment project\images\NUMBERS\9.jpg",9
load image "E:\new edutainment project\images\NUMBERS\10.jpg",10
load image "E:\new edutainment project\images\NUMBERS\11.jpg",11
load image "E:\new edutainment project\images\NUMBERS\12.jpg",12
load image "E:\new edutainment project\images\NUMBERS\13.jpg",13
load image "E:\new edutainment project\images\NUMBERS\14.jpg",14
load image "E:\new edutainment project\images\NUMBERS\15.jpg",15
load image "E:\new edutainment project\images\NUMBERS\16.jpg",16
load image "E:\new edutainment project\images\NUMBERS\17.jpg",17
load image "E:\new edutainment project\images\NUMBERS\18.jpg",18
load image "E:\new edutainment project\images\NUMBERS\19.jpg",19
load image "E:\new edutainment project\images\NUMBERS\20.jpg",20
load image "E:\new edutainment project\images\NUMBERS\20.jpg",20
load image "E:\new edutainment project\images\NUMBERS\21.jpg",21
load image "E:\new edutainment project\images\NUMBERS\22.jpg",22
load image "E:\new edutainment project\images\NUMBERS\23.jpg",23
load image "E:\new edutainment project\images\FP Brighter.bmp",100
remend
wait 200

screenprint("5%")

rem 1st rotate cube
make object cube 65,10
texture object 65,2
position object 65,-210,100,300
make mesh from object 1,65
add limb 65,1,1
scale limb 65,1,100,1000,0
show limb 65,1
offset limb 65,1,0,20,0
make object from limb 1000,65,1,1
position object 1000,-210,100,300
remove limb 65,1
hide object 1000

rem 2nd rotate cube
make object cube 66,10
texture object 66,2
position object 66,-110,100,300
make mesh from object 1,66
add limb 66,1,1
scale limb 66,1,100,1000,0
show limb 66,1
offset limb 66,1,0,20,0
make object from limb 1001,66,1,1
position object 1001,-110,100,300
remove limb 66,1
hide object 1001

rem 3rd rotate cube
make object cube 67,10
texture object 67,2
position object 67,-10,100,300
make mesh from object 1,67
add limb 67,1,1
scale limb 67,1,100,1000,0
show limb 67,1
offset limb 67,1,0,20,0
make object from limb 1002,67,1,1
position object 1002,-10,100,300
remove limb 67,1
hide object 1002

screenprint("10%")

rem 4th rotate cube
make object cube 68,10
texture object 68,2
position object 68,90,100,300
make mesh from object 1,68
add limb 68,1,1
scale limb 68,1,100,1000,0
show limb 68,1
offset limb 68,1,0,20,0
make object from limb 1003,68,1,1
position object 1003,90,100,300
remove limb 68,1
hide object 1003

rem 5th rotate cube
make object cube 69,10
texture object 69,2
position object 69,-260,50,300
make mesh from object 1,69
add limb 69,1,1
scale limb 69,1,100,1000,0
show limb 69,1
offset limb 69,1,0,20,0
make object from limb 1004,69,1,1
position object 1004,-260,50,300
remove limb 69,1
hide object 1004

rem 6th rotate cube
make object cube 70,10
texture object 70,2
position object 70,-160,50,300
make mesh from object 1,70
add limb 70,1,1
scale limb 70,1,100,1000,0
show limb 70,1
offset limb 70,1,0,20,0
make object from limb 1005,70,1,1
position object 1005,-160,50,300
remove limb 70,1
hide object 1005

screenprint("15%")

rem 7th rotate cube
make object cube 71,10
texture object 71,2
position object 71,-60,50,300
make mesh from object 1,71
add limb 71,1,1
scale limb 71,1,100,1000,0
show limb 71,1
offset limb 71,1,0,20,0
make object from limb 1006,71,1,1
position object 1006,-60,50,300
remove limb 71,1
hide object 1006

rem 8th rotate cube
make object cube 72,10
texture object 72,2
position object 72,40,50,300
make mesh from object 1,72
add limb 72,1,1
scale limb 72,1,100,1000,0
show limb 72,1
offset limb 72,1,0,20,0
make object from limb 1007,72,1,1
position object 1007,40,50,300
remove limb 72,1
hide object 1007

rem 9th rotate cube
make object cube 73,10
texture object 73,2
position object 73,140,50,300
make mesh from object 1,73
add limb 73,1,1
scale limb 73,1,100,1000,0
show limb 73,1
offset limb 73,1,0,20,0
make object from limb 1008,73,1,1
position object 1008,140,50,300
remove limb 73,1
hide object 1008

screenprint("20%")

rem 10th rotate cube
make object cube 74,10
texture object 74,2
position object 74,-210,0,300
make mesh from object 1,74
add limb 74,1,1
scale limb 74,1,100,1000,0
show limb 74,1
offset limb 74,1,0,20,0
make object from limb 1009,74,1,1
position object 1009,-210,0,300
remove limb 74,1
hide object 1009

rem 11th rotate cube
make object cube 75,10
texture object 75,2
position object 75,-110,0,300
make mesh from object 1,75
add limb 75,1,1
scale limb 75,1,100,1000,0
show limb 75,1
offset limb 75,1,0,20,0
make object from limb 1010,75,1,1
position object 1010,-110,0,300
remove limb 75,1
hide object 1010

rem 12th rotate cube
make object cube 76,10
texture object 76,2
position object 76,-10,0,300
make mesh from object 1,76
add limb 76,1,1
scale limb 76,1,100,1000,0
show limb 76,1
offset limb 76,1,0,20,0
make object from limb 1011,76,1,1
position object 1011,-10,0,300
remove limb 76,1
hide object 1011

screenprint("25%")

rem 13th rotate cube
make object cube 77,10
texture object 77,2
position object 77,90,0,300
make mesh from object 1,77
add limb 77,1,1
scale limb 77,1,100,1000,0
show limb 77,1
offset limb 77,1,0,20,0
make object from limb 1012,77,1,1
position object 1012,90,0,300
remove limb 77,1
hide object 1012

rem 14th rotate cube
make object cube 78,10
texture object 78,2
position object 78,-260,-50,300
make mesh from object 1,78
add limb 78,1,1
scale limb 78,1,100,1000,0
show limb 78,1
offset limb 78,1,0,20,0
make object from limb 1013,78,1,1
position object 1013,-260,-50,300
remove limb 78,1
hide object 1013

rem 15th rotate cube
make object cube 79,10
texture object 79,2
position object 79,-160,-50,300
make mesh from object 1,79
add limb 79,1,1
scale limb 79,1,100,1000,0
show limb 79,1
offset limb 79,1,0,20,0
make object from limb 1014,79,1,1
position object 1014,-160,-50,300
remove limb 79,1
hide object 1014

screenprint("30%")

rem 16th rotate cube
make object cube 80,10
texture object 80,2
position object 80,-60,-50,300
make mesh from object 1,80
add limb 80,1,1
scale limb 80,1,100,1000,0
show limb 80,1
offset limb 80,1,0,20,0
make object from limb 1015,80,1,1
position object 1015,-60,-50,300
remove limb 80,1
hide object 1015

rem 17th rotate cube
make object cube 81,10
texture object 81,2
position object 81,40,-50,300
make mesh from object 1,81
add limb 81,1,1
scale limb 81,1,100,1000,0
show limb 81,1
offset limb 81,1,0,20,0
make object from limb 1016,81,1,1
position object 1016,40,-50,300
remove limb 81,1
hide object 1016

rem 18th rotate cube
make object cube 82,10
texture object 82,2
position object 82,140,-50,300
make mesh from object 1,82
add limb 82,1,1
scale limb 82,1,100,1000,0
show limb 82,1
offset limb 82,1,0,20,0
make object from limb 1017,82,1,1
position object 1017,140,-50,300
remove limb 82,1
hide object 1017

screenprint("35%")

rem 19th rotate cube
make object cube 83,10
texture object 83,2
position object 83,-210,-100,300
make mesh from object 1,83
add limb 83,1,1
scale limb 83,1,100,1000,0
show limb 83,1
offset limb 83,1,0,20,0
make object from limb 1018,83,1,1
position object 1018,-210,-100,300
remove limb 83,1
hide object 1018

rem 20th rotate cube
make object cube 84,10
texture object 84,2
position object 84,-110,-100,300
make mesh from object 1,84
add limb 84,1,1
scale limb 84,1,100,1000,0
show limb 84,1
offset limb 84,1,0,20,0
make object from limb 1019,84,1,1
position object 1019,-110,-100,300
remove limb 84,1
hide object 1019

screenprint("40%")

rem 21st rotate cube
make object cube 85,10
texture object 85,2
position object 85,-10,-100,300
make mesh from object 1,85
add limb 85,1,1
scale limb 85,1,100,1000,0
show limb 85,1
offset limb 85,1,0,20,0
make object from limb 1020,85,1,1
position object 1020,-10,-100,300
remove limb 85,1
hide object 1020

rem 22nd rotate cube
make object cube 86,10
texture object 86,2
position object 86,90,-100,300
make mesh from object 1,86
add limb 86,1,1
scale limb 86,1,100,1000,0
show limb 86,1
offset limb 86,1,0,20,0
make object from limb 1021,86,1,1
position object 1021,90,-100,300
remove limb 86,1
hide object 1021

screenprint("45%")

rem first row
for t=2 to 6
make object cube t,20
position object t,-360+(t-1)*100,100,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

rem second row
for t=7 to 10
make object cube t,20
position object t,-310+(t-6)*100,50,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

screenprint("50%")

rem third row
for t=11 to 15
make object cube t,20
position object t,-360+(t-10)*100,0,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t
screenprint("55%")

rem fourth row
for t=16 to 19
make object cube t,20
position object t,-310+(t-15)*100,-50,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

rem fifth row
for t=20 to 24
make object cube t,20
position object t,-360+(t-19)*100,-100,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t

screenprint("60%")

rem texture cubes
texture object 2,1
texture object 3,200
for t=4 to 23
texture object t,t-1
next t

rem texture cubes

rem lvl one walls

rem north wall
make object box 45,445,220,0
position object 45,-60,0,311
color object 45,rgb(0,255,0)
texture object 45,100

screenprint("65%")

rem east wall
make object box 46,615,220,5
position object 46,162,0,2
color object 46,rgb(0,255,0)
yrotate object 46,90
texture object 46,100

rem top wall
make object box 47,445,615,5
position object 47,-60,110,0
rotate object 47,90,0,0
color object 47,rgb(0,200,0)
texture object 47,100

screenprint("70%")

rem south wall
make object box 48,445,220,0
position object 48,-60,0,-308
color object 48,rgb(0,255,0)
texture object 48,100

rem west wall
make object box 49,615,220,5
position object 49,-280,0,0
color object 49,rgb(0,255,0)
yrotate object 49,90
texture object 49,100

screenprint("75%")

rem floor wall
make object box 50,445,615,5
position object 50,-60,-110,0
rotate object 50,90,0,0
color object 50,rgb(0,200,0)
texture object 50,100

rem runway
make object box 51,1380,400,0
rotate object 51,90,0,0
position object 51,406,-110,-501

screenprint("80%")

rem runway
make object box 92,1380,400,0
rotate object 92,90,0,0
position object 92,406,-110,-501

REM LVL 2 WALLS

rem north wall
make object box 52,445,220,0
position object 52,-60,0,311-1010
color object 52,rgb(0,255,0)
texture object 52,100

rem east wall
make object box 53,615,220,5
position object 53,162,0,2-1010
color object 53,rgb(0,255,0)
yrotate object 53,90
texture object 53,100

rem top wall
make object box 54,445,615,5
position object 54,-60,110,-1010
rotate object 54,90,0,0
color object 54,rgb(0,200,0)
texture object 54,100

rem south wall
make object box 55,445,220,0
position object 55,-60,0,-308-1010
color object 55,rgb(0,255,0)
texture object 55,100

rem west wall
make object box 56,615,220,5
position object 56,-280,0,-1010
color object 56,rgb(0,255,0)
yrotate object 56,90
texture object 56,100

screenprint("85%")

rem floor wall
make object box 57,445,615,5
position object 57,-60,-110,-1010
rotate object 57,90,0,0
color object 57,rgb(0,200,0)
texture object 57,100

rem lvl 3
make object box 58,445,220,0
position object 58,-60+935,0,311-1010
color object 58,rgb(0,255,0)
texture object 58,100

rem east wall
make object box 59,615,220,5
position object 59,162+935,0,2-1010
color object 59,rgb(0,255,0)
yrotate object 59,90
texture object 59,100

rem top wall
make object box 60,445,615,5
position object 60,-60+935,110,-1010
rotate object 60,90,0,0
color object 60,rgb(0,200,0)
texture object 60,100

rem south wall
make object box 61,445,220,0
position object 61,-60+935,0,-308-1010
color object 61,rgb(0,255,0)
texture object 61,100


screenprint("90%")

rem west wall
make object box 62,615,220,5
position object 62,-280+935,0,-1010
color object 62,rgb(0,255,0)
yrotate object 62,90
texture object 62,100

rem floor wall
make object box 63,445,615,5
position object 63,-60+935,-110,-1010
rotate object 63,90,0,0
color object 63,rgb(0,200,0)
texture object 63,100

rem lvl 4
make object box 64,445,220,0
position object 64,-60+935,0,311
color object 64,rgb(0,255,0)
texture object 64,100

rem east wall
make object box 87,615,220,5
position object 87,162+935,0,2
color object 87,rgb(0,255,0)
yrotate object 87,90
texture object 87,100


screenprint("95%")

rem top wall
make object box 88,445,615,5
position object 88,-60+935,110,0
rotate object 88,90,0,0
color object 88,rgb(0,200,0)
texture object 88,100

rem south wall
make object box 89,445,220,0
position object 89,-60+935,0,-308
color object 89,rgb(0,255,0)
texture object 89,100

rem west wall
make object box 90,615,220,5
position object 90,-280+935,0,0
color object 90,rgb(0,255,0)
yrotate object 90,90
texture object 90,100

rem floor wall
make object box 91,445,615,5
position object 91,-60+935,-110,0
rotate object 91,90,0,0
color object 91,rgb(0,200,0)
texture object 91,100

screenprint("100%")

end

function screenprint(s$)
    cls 
    ink rgb(255,255,255),0
    print s$ 
    sync
endfunction

Back to top

Profile PM Email Website

Dark Basic Pro Enthusiast

12

Years of Service

User Offline

Joined: 8th Nov 2013

Location:

Posted: 11th Mar 2014 16:21

Link

Quote: "Also, in the code you've just posted, the function definition of screenprint() is missing."

This isn't my entire code, it is just a snippet of the actual thing, and the function was at the bottom of the entire code. Thank you very much for all the help, it is working great now!

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Loading bar/percent complete