I am trying to make a splash screen for my game. I heard that a simple way to make it work is to paste an object and then sleep the program for a few seconds. Well... the sleep works its the picture that doesn't. I use the paste image command and then sleep for 2000 milliseconds or 2 seconds. The program will sleep for that time but it is just a black screen. The image then shows up later when I add text. The paste part is at the top. Thanks ]
REM edutainment
REM by abbas and sam
REM created 12/2/13 10:11 a.m.
autocam off
hide mouse
sync on : sync rate 60
rem ****____****_____loading section____****____****
rem images
load image "E:\My DBPRO Games\Edutainment\images\sky_texture.jpg",1 rem load
load image "E:\My DBPRO Games\Edutainment\images\skyscraper2_texture.jpg",2 rem load
load image "E:\My DBPRO Games\Edutainment\images\streetview4_texture.jpg",3 rem load
load image "E:\My DBPRO Games\Edutainment\images\boostoil_texture.jpg",4 rem load
load image "E:\My DBPRO Games\Edutainment\images\skyscraper3_texture.jpg",5 rem load
load image "E:\My DBPRO Games\Edutainment\images\skyscraper4_texture.jpg",7 rem load
load image "E:\My DBPRO Games\Edutainment\images\car_splash.jpg",6 rem load
rem sounds
load music "E:\My DBPRO Games\Edutainment\sounds\car_revving.mp3",1 rem load
load sound "E:\My DBPRO Games\Edutainment\sounds\car_explosion.wav",2 rem load
paste image 6,0,0
sleep 2000
rem ****____****____title intro thing____****____****
rem \/ start text page \/
sync
set text font "ocr a std" : set text size 26 : set text to bold : set text transparent
center text 320,20, "Welcome to a Friend in Need"
ink rgb(255,0,0),0
center text 321,21, "Welcome to a Friend in Need"
ink rgb(255,255,255),0
center text 320,50, "A Game About Transfering Energy"
ink rgb(255,0,0),0
center text 321,51, "A Game About Transfering Energy"
ink rgb(255,255,255),0
center text 320,425, "Press [A] to Continue"
ink rgb(255,0,0),0
center text 321,426, "Press [A] to Continue"
ink rgb(255,255,255),0
sync
do
if inkey$()="a"
do
if inkey$()<>"a" then cls : exit rem delete text
loop
exit
endif
loop
rem \/ start text page \/
sync
paste image 6,0,0
ink rgb(255,255,255),0
center text 320,20, "Drive to Your Friend Who"
ink rgb(255,0,0),0
center text 321,21, "Drive to Your Friend Who"
ink rgb(255,255,255),0
center text 320,50, "Is Low On Energy,"
ink rgb(255,0,0),0
center text 321,51, "Is Low On Energy,"
ink rgb(255,255,255),0
center text 320,80, "Only You Can Save Him!!!"
ink rgb(255,0,0),0
center text 321,81, "Only You Can Save Him!!!"
ink rgb(255,255,255),0
center text 320,425, "Press [A] to Continue"
ink rgb(255,0,0),0
center text 321,426, "Press [A] to Continue"
ink rgb(255,255,255),0
sync
do
if inkey$()="a"
do
if inkey$()<>"a" then cls : exit rem delete text
loop
exit
endif
loop
rem \/ start text page \/
sync
paste image 6,0,0
center text 320,20, "********************"
ink rgb(255,0,0),0
center text 321,21, "********************"
ink rgb(255,255,255),0
center text 320,50, "Press [P] To Play"
ink rgb(255,0,0),0
center text 321,51, "Press [P] To Play"
ink rgb(255,255,255),0
center text 320,80, "********************"
ink rgb(255,0,0),0
center text 321,81, "********************"
ink rgb(255,255,255),0
center text 320,390, "********************"
ink rgb(255,0,0),0
center text 321,391, "********************"
ink rgb(255,255,255),0
center text 320,420, "Press [P] To Play"
ink rgb(255,0,0),0
center text 321,421, "Press [P] To Play"
ink rgb(255,255,255),0
center text 320,450, "********************"
ink rgb(255,0,0),0
center text 321,451, "********************"
ink rgb(255,255,255),0
sync
do
if inkey$()="p"
do
if inkey$()<>"p" then cls :exit rem delete text
loop
exit
endif
loop
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
rem ****____****____MainSection Start____****____****
MainSection:
make object cube 100,50 rem make obj
scale object 100, 15,20,20 rem scale obj
color object 100, rgb(255,0,0) rem color obj
position object 100,10,-30,10 rem position obj
rotate object 100,0,45,0 rem rotate obj
make object cube 200,50 rem make obj
scale object 200,15,20,20 rem scale obj
color object 200, rgb(0,20,255) rem color obj
position object 200,4050,-30,4050 rem pos obj
rotate object 200,0,-45,0 rem rotate obj
color backdrop rgb(0,10,100) rem backdrop
make matrix 1,10000,10000,4,4
position matrix 1,-5000,-45,-5000
prepare matrix texture 1,3,1,1
position camera 0,85,-5 rem pos camera
point camera 0,60,60 rem oint camera
set camera range 1,3000 rem define range
play music 1 rem play music
loop music 1 rem loop music
rem ****____****____ other oject creation ____****____****
for i= 1 to 50
make object cube i,50 rem make object
scale object i,280,600,300 rem scale
position object i,0+rnd(4000),50,0+rnd(4000) rem position
texture object i,2 rem texture
next i
for j= 141 to 190
make object cube j,50 rem make obj
scale object j,325,600,350 rem scale
position object j,0+rnd(3500),50,0+rnd(3500) rem position
texture object j,5 rem texture
next j
for k= 201 to 230
make object cube k,50 rem make obj
scale object k,300,600,375 rem scale
position object k,0+rnd(2000),50,0+rnd(2000) rem position
texture object k,7 rem texture
next k
for l= 231 to 260
make object cube l,50 rem make obj
scale object l,275,600,275 rem scale
position object l,0+rnd(6000),50,0+rnd(6000) rem position
texture object l,7 rem texture
next l
for m= 261 to 290
make object cube m,50 rem make obj
scale object m,375,600,375 rem scale
position object m,0+rnd(5000),50,0+rnd(5000) rem position
texture object m,7 rem texture
next m
for q= 51 to 80
make object cylinder q,15 rem make object
position object q,0+rnd(5500),-28,0+rnd(5500) rem pos obj
color object q,rgb(255,0,0)
texture object q,4
next q
for h= 102 to 131
make object sphere h,10 rem make object
position object h,0+rnd(4000),-30,0+rnd(4000) rem pos obj
next h
rem ****____****____ game loop with Collision and Motion Section ____****____****
set text font "orator std" : set text size 20 : set text to bold : set text transparent
BOOST# = 1000
HEALTH# = 1000
timerv = 3600
do
rem store angle
ay# = object angle Y(100)
rem key input
if upkey()=1 then move object 100,2.45 rem pos move
if downkey()=1 then move object 100,-2.45 rem neg move
if leftkey()=1 then ay# = wrapvalue(ay#-2) rem neg turn
if rightkey()=1 then ay# = wrapvalue(ay#+2) rem pos turn
if BOOST# > 0 and spacekey()=1 rem if boost is > 0 then
move object 100,3.15 : cdn# = cnd# - 15 rem only then can u boost : - cam dist
endif
if inkey$()="q" then end rem end
rem rotate object
yrotate object 100,ay#
`------------------------------------
cdn# = 8 rem cam dist var
rem \/ get camera to follow \/
set camera to follow object position x(100), object position y(100), object position z(100), object angle y(100), 5, 15, cdn#, 0
rem ****____****____ boost and health section ____****____****
boostout=BOOST#/10
healthout=HEALTH#/10
text 0,0, "POWER = " + str$(boostout) rem boost on screen
text 531,0, "HEALTH = " + str$(healthout) rem health on screen
if spacekey()=1 and BOOST#>0 then BOOST# = BOOST# - 1 rem decrease boost
if BOOST# < 100 rem if boost is less than 10
dec HEALTH#,1 rem decrease my health
endif
rem ****____****____ collision section start ____****____****
if object collision(100,200)
goto NextLevel
endif
for i= 1 to 50 rem for 1 to 50 then
if object collision(100,i) rem if i collide then
HEALTH# = HEALTH# - 1 rem decrese health
position object 100,x#,y#,z# rem disable pass thru
endif
next i rem restart collision
for j=141 to 190 rem for 141 - 190
if object collision(100,j) rem if collision
HEALTH# = HEALTH# - 1 rem dec health
position object 100,x#,y#,z# rem pos obj
endif
next j rem restart collision
for k=201 to 230 rem for 141 - 190
if object collision(100,k) rem if collision
HEALTH# = HEALTH# - 1 rem dec health
position object 100,x#,y#,z# rem pos obj
endif
next k rem restart collision
for l=231 to 260 rem for 141 - 190
if object collision(100,l) rem if collision
HEALTH# = HEALTH# - 1 rem dec health
position object 100,x#,y#,z# rem pos obj
endif
next l rem restart collision
for m=261 to 290 rem for 141 - 190
if object collision(100,m) rem if collision
HEALTH# = HEALTH# - 1 rem dec health
position object 100,x#,y#,z# rem pos obj
endif
next m rem restart collision
x# = object position x(100) rem x pos
y# = object position y(100) rem y pos
z# = object position z(100) rem z pos
for q= 51 to 80 rem for 51 - 80
if object collision(100,q) rem if collsiion
BOOST# = BOOST# + 100 rem boost is increased
exclude object on q rem remov obj from view
endif
next q rem restart collision
for h= 102 to 131 rem for 102 - 131
if object collision(100,h) rem if collsiion
HEALTH# = HEALTH# + 100 rem boost is increased
exclude object on h rem remov obj from view
endif
next q rem restart collision
if HEALTH# = 0
goto EndSection
endif
`****____****____ star ttimer section ____****____****
dec timerv,1
timerout=timerv/60
center text 311,0, "Timer = " + str$(timerout)
if timerv = 0
goto EndSection
endif
sync
loop
rem ****____****____ next level section start ____****____****
NextLevel:
REM DECLARE VARIABLES
REM SCREEN DISPLAY
delete objects 1,6000
delete matrix 1
cls 0
goto MainSection
end
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
`*************************************************************************************************************************
rem ****____****____MainSection Start____****____****
NextLevel:
make object cube 100,50 rem make obj
scale object 100, 15,20,20 rem scale obj
color object 100, rgb(255,0,0) rem color obj
position object 100,10,-30,10 rem position obj
rotate object 100,0,45,0 rem rotate obj
make object cube 200,50 rem make obj
scale object 200,15,20,20 rem scale obj
color object 200, rgb(0,20,255) rem color obj
position object 200,4050,-30,4050 rem pos obj
rotate object 200,0,-45,0 rem rotate obj
color backdrop rgb(0,10,100) rem backdrop
make matrix 1,10000,10000,4,4
position matrix 1,-5000,-45,-5000
prepare matrix texture 1,3,1,1
position camera 0,85,-5 rem pos camera
point camera 0,60,60 rem oint camera
set camera range 1,3000 rem define range
play music 1 rem play music
loop music 1 rem loop music
rem ****____****____ other oject creation ____****____****
for i= 1 to 50
make object cube i,50 rem make object
scale object i,280,600,300 rem scale
position object i,0+rnd(4000),50,0+rnd(4000) rem position
texture object i,2 rem texture
next i
for j= 141 to 190
make object cube j,50 rem make obj
scale object j,325,600,350 rem scale
position object j,0+rnd(3500),50,0+rnd(3500) rem position
texture object j,5 rem texture
next j
for k= 201 to 230
make object cube k,50 rem make obj
scale object k,300,600,375 rem scale
position object k,0+rnd(2000),50,0+rnd(2000) rem position
texture object k,7 rem texture
next k
for l= 231 to 260
make object cube l,50 rem make obj
scale object l,275,600,275 rem scale
position object l,0+rnd(6000),50,0+rnd(6000) rem position
texture object l,7 rem texture
next l
for m= 261 to 290
make object cube m,50 rem make obj
scale object m,375,600,375 rem scale
position object m,0+rnd(5000),50,0+rnd(5000) rem position
texture object m,7 rem texture
next m
for q= 51 to 80
make object cylinder q,15 rem make object
position object q,0+rnd(5500),-28,0+rnd(5500) rem pos obj
color object q,rgb(255,0,0)
texture object q,4
next q
for h= 102 to 131
make object sphere h,10 rem make object
position object h,0+rnd(4000),-30,0+rnd(4000) rem pos obj
next h
rem ****____****____ game loop with Collision and Motion Section ____****____****
set text font "orator std" : set text size 20 : set text to bold : set text transparent
BOOST# = 1000
HEALTH# = 1000
timerv = 1800
do
rem store angle
ay# = object angle Y(100)
rem key input
if upkey()=1 then move object 100,2.45 rem pos move
if downkey()=1 then move object 100,-2.45 rem neg move
if leftkey()=1 then ay# = wrapvalue(ay#-2) rem neg turn
if rightkey()=1 then ay# = wrapvalue(ay#+2) rem pos turn
if BOOST# > 0 and spacekey()=1 rem if boost is > 0 then
move object 100,3.15 : cdn# = cnd# - 15 rem only then can u boost : - cam dist
endif
if inkey$()="q" then end rem end
rem rotate object
yrotate object 100,ay#
`------------------------------------
cdn# = 8 rem cam dist var
rem \/ get camera to follow \/
set camera to follow object position x(100), object position y(100), object position z(100), object angle y(100), 5, 15, cdn#, 0
rem ****____****____ boost and health section ____****____****
boostout=BOOST#/10
healthout=HEALTH#/10
text 0,0, "POWER = " + str$(boostout) rem boost on screen
text 531,0, "HEALTH = " + str$(healthout) rem health on screen
if spacekey()=1 and BOOST#>0 then BOOST# = BOOST# - 1 rem decrease boost
if BOOST# < 100 rem if boost is less than 10
dec HEALTH#,1 rem decrease my health
endif
rem ****____****____ collision section start ____****____****
if object collision(100,200)
goto NextLevel
endif
for i= 1 to 50 rem for 1 to 50 then
if object collision(100,i) rem if i collide then
HEALTH# = HEALTH# - 1 rem decrese health
position object 100,x#,y#,z# rem disable pass thru
endif
next i rem restart collision
for j=141 to 190 rem for 141 - 190
if object collision(100,j) rem if collision
HEALTH# = HEALTH# - 1 rem dec health
position object 100,x#,y#,z# rem pos obj
endif
next j rem restart collision
for k=201 to 230 rem for 141 - 190
if object collision(100,k) rem if collision
HEALTH# = HEALTH# - 1 rem dec health
position object 100,x#,y#,z# rem pos obj
endif
next k rem restart collision
for l=231 to 260 rem for 141 - 190
if object collision(100,l) rem if collision
HEALTH# = HEALTH# - 1 rem dec health
position object 100,x#,y#,z# rem pos obj
endif
next l rem restart collision
for m=261 to 290 rem for 141 - 190
if object collision(100,m) rem if collision
HEALTH# = HEALTH# - 1 rem dec health
position object 100,x#,y#,z# rem pos obj
endif
next m rem restart collision
x# = object position x(100) rem x pos
y# = object position y(100) rem y pos
z# = object position z(100) rem z pos
for q= 51 to 80 rem for 51 - 80
if object collision(100,q) rem if collsiion
BOOST# = BOOST# + 100 rem boost is increased
exclude object on q rem remov obj from view
endif
next q rem restart collision
for h= 102 to 131 rem for 102 - 131
if object collision(100,h) rem if collsiion
HEALTH# = HEALTH# + 100 rem boost is increased
exclude object on h rem remov obj from view
endif
next q rem restart collision
if HEALTH# = 0
goto EndSection
endif
`****____****____ star ttimer section ____****____****
dec timerv,1
timerout=timerv/60
center text 311,0, "Timer = " + str$(timerout)
if timerv = 0
goto EndSection
endif
sync
loop
`**************************************************************************************************************************
`/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
`**************************************************************************************************************************
rem ****____****____ end section start ____****____****
EndSection:
REM DECLARE VARIABLES
REM SCREEN DISPLAY
cls 0
delete objects 1,6000
delete matrix 1
center text 320,240, "You ran out of HEALTH!"
center text 321,241, "You ran out of HEALTH!"
center text 320,260, "You LOSE!"
center text 321,261, "You LOSE!"
do
if inkey$()="n" then end
loop
end
wait key