Loading Please wait Problem - GameCreators Forum

Author

Message

Jonk

19

Years of Service

User Offline

Joined: 31st Jul 2005

Location: East of Java

Posted: 6th Dec 2011 12:22

Link

Have been writing a little Christmas Program for my family and it all seems to work a part from a few lines where a loading notification text is supposed to be printed on the screen. Can't seem to get the message to appear can anyone help.

I have included the source code and media.

Rem Project: Christmas Program
Rem Created: Monday, December 05, 2011

sync on
backdrop off
sync rate 60
cls
set display mode 1024,768,32
set window on
set ambient light 50
scrollspeed#=0.04
depth#=0.001
x#=16

position camera 0,0,0
set camera range 1,20000

Load Music "media\Troika.mp3",1
set music volume 1,50
play music 1

D3D_Init 1
D3D_FONT 1,"impact",32,0,0,1

`D3D_STARTTEXT                                                  `| Cant get this to work!
`D3D_BOXTEXT 1, 300,200,400,200,2,2,"Loading Please Wait...."   `| Cant get this to work!
`D3D_ENDTEXT                                                    `| Cant get this to work!
`sync                                                           `| Cant get this to work!

load object "media\skybox.dbo",2
scale object 2,100000,100000,100000
Position object 2,0,0,0

D3D_MAKE_3DTEXT 501, 1,"Hello and welcome.",depth#,0,1
scale object 501,150,150,150
color object 501,rgb(001,001,001)
position object 501,x#,-6,10

load image "media\snowflake.png",1
Make particles 1,1,2,10
set particle life 1,100
set particle gravity 1,0.5
set particle floor 1,0
position particles 1,-6,51,65
SET PARTICLE VELOCITY 1, 1

make object plane 3,400,100
lock object on 3              
position object 3,0,0,300      
load image "media\Santa's Sleigh.png",2
texture object 3,2
set object transparency 3,4

do
if object exist (501)=0 then gosub reassign1
if object exist (502)=0 then gosub reassign2
if object exist (503)=0 then gosub reassign3

move object left 501,scrollspeed#
move object left 502,scrollspeed#
move object left 503,scrollspeed#

if object position x(501) < -30 then delete object 501
if object position x(502) < -30 then delete object 502
if object position x(503) < -30 then delete object 503
YROTATE OBJECT 2,OBJECT ANGLE Y(2)-0.3
sync 
loop

reassign1:
read message$
D3D_MAKE_3DTEXT 501, 1,message$,depth#,0,1
scale object 501,150,150,150
color object 501,rgb(001,001,001)
message1size#=OBJECT SIZE X(501)*0.75
message1Xpos#=object position x(501)
message3size#=OBJECT SIZE X(503)*0.75
message3Xpos#=object position x(503)
position object 501, message3Xpos#+message3size#+message1size#+0.5,-6,10
return

reassign2:
read message$
D3D_MAKE_3DTEXT 502, 1,message$,depth#,0,1
scale object 502,150,150,150
color object 502,rgb(001,001,001)
message1size#=OBJECT SIZE X(501)*0.75
message1Xpos#=object position x(501)
message2size#=OBJECT SIZE X(502)*0.75
message2Xpos#=object position x(502)
position object 502, message1Xpos#+message1size#+message2size#+0.5,-6,10
return

reassign3:
read message$
D3D_MAKE_3DTEXT 503, 1,message$,depth#,0,1
scale object 503,150,150,150
color object 503,rgb(001,001,001)
message2size#=OBJECT SIZE X(502)*0.75
message2Xpos#=object position x(502)
message3size#=OBJECT SIZE X(503)*0.75
message3Xpos#=object position x(503)
position object 503, message2Xpos#+message2size#+message3size#+0.5,-6,10
return

end

Data "Wishing all my family a Merry Christmas and a Happy New Year"
data "from John, Yuletide greeting to......Chris, Paul and Paula, Nic, Tim"
data "and Ben, Ann and Keith, Lee and June, Tracey, Sean, Lauren and Brittony" 
data ", Mark, Caroline, Charlotte and Danielle, Lynda, Robbie, Keith Wiles, Ian,"
data "Sarah, Dennis, Charlie and Demi, Carol, Gary, Emma, Becci, Molli and Lili"
data ", Eddie, Karen, Daniel, Sam, Billy, Jamie and Kelsie, Lynne, Tony, Sue,"
data "................ Wishing you all the best for Christmas and the New Year"
data "and hoping that you enjoyed my little Christmas Scrolling E-Card"
data "that was written entirely in Dark basic by Me, John Keenleyside. "
data "Special thanks to my Honey Princess Rachel for the love and moral support"
data "and please forgive me if I have forgotten anybody as I have a brain like a "
data "Sieve as you all well know ..............................................."
data ".........................................................................."

+ Code Snippet

Rem Project: Christmas Program
Rem Created: Monday, December 05, 2011

sync on
backdrop off
sync rate 60
cls
set display mode 1024,768,32
set window on
set ambient light 50
scrollspeed#=0.04
depth#=0.001
x#=16

position camera 0,0,0
set camera range 1,20000

Load Music "media\Troika.mp3",1
set music volume 1,50
play music 1

D3D_Init 1
D3D_FONT 1,"impact",32,0,0,1

`D3D_STARTTEXT                                                  `| Cant get this to work!
`D3D_BOXTEXT 1, 300,200,400,200,2,2,"Loading Please Wait...."   `| Cant get this to work!
`D3D_ENDTEXT                                                    `| Cant get this to work!
`sync                                                           `| Cant get this to work!

load object "media\skybox.dbo",2
scale object 2,100000,100000,100000
Position object 2,0,0,0

D3D_MAKE_3DTEXT 501, 1,"Hello and welcome.",depth#,0,1
scale object 501,150,150,150
color object 501,rgb(001,001,001)
position object 501,x#,-6,10

load image "media\snowflake.png",1
Make particles 1,1,2,10
set particle life 1,100
set particle gravity 1,0.5
set particle floor 1,0
position particles 1,-6,51,65
SET PARTICLE VELOCITY 1, 1

make object plane 3,400,100
lock object on 3              
position object 3,0,0,300      
load image "media\Santa's Sleigh.png",2
texture object 3,2
set object transparency 3,4

do
if object exist (501)=0 then gosub reassign1
if object exist (502)=0 then gosub reassign2
if object exist (503)=0 then gosub reassign3

move object left 501,scrollspeed#
move object left 502,scrollspeed#
move object left 503,scrollspeed#

if object position x(501) < -30 then delete object 501
if object position x(502) < -30 then delete object 502
if object position x(503) < -30 then delete object 503
YROTATE OBJECT 2,OBJECT ANGLE Y(2)-0.3
sync 
loop

reassign1:
read message$
D3D_MAKE_3DTEXT 501, 1,message$,depth#,0,1
scale object 501,150,150,150
color object 501,rgb(001,001,001)
message1size#=OBJECT SIZE X(501)*0.75
message1Xpos#=object position x(501)
message3size#=OBJECT SIZE X(503)*0.75
message3Xpos#=object position x(503)
position object 501, message3Xpos#+message3size#+message1size#+0.5,-6,10
return

reassign2:
read message$
D3D_MAKE_3DTEXT 502, 1,message$,depth#,0,1
scale object 502,150,150,150
color object 502,rgb(001,001,001)
message1size#=OBJECT SIZE X(501)*0.75
message1Xpos#=object position x(501)
message2size#=OBJECT SIZE X(502)*0.75
message2Xpos#=object position x(502)
position object 502, message1Xpos#+message1size#+message2size#+0.5,-6,10
return

reassign3:
read message$
D3D_MAKE_3DTEXT 503, 1,message$,depth#,0,1
scale object 503,150,150,150
color object 503,rgb(001,001,001)
message2size#=OBJECT SIZE X(502)*0.75
message2Xpos#=object position x(502)
message3size#=OBJECT SIZE X(503)*0.75
message3Xpos#=object position x(503)
position object 503, message2Xpos#+message2size#+message3size#+0.5,-6,10
return

end

Data "Wishing all my family a Merry Christmas and a Happy New Year"
data "from John, Yuletide greeting to......Chris, Paul and Paula, Nic, Tim"
data "and Ben, Ann and Keith, Lee and June, Tracey, Sean, Lauren and Brittony" 
data ", Mark, Caroline, Charlotte and Danielle, Lynda, Robbie, Keith Wiles, Ian,"
data "Sarah, Dennis, Charlie and Demi, Carol, Gary, Emma, Becci, Molli and Lili"
data ", Eddie, Karen, Daniel, Sam, Billy, Jamie and Kelsie, Lynne, Tony, Sue,"
data "................ Wishing you all the best for Christmas and the New Year"
data "and hoping that you enjoyed my little Christmas Scrolling E-Card"
data "that was written entirely in Dark basic by Me, John Keenleyside. "
data "Special thanks to my Honey Princess Rachel for the love and moral support"
data "and please forgive me if I have forgotten anybody as I have a brain like a "
data "Sieve as you all well know ..............................................."
data ".........................................................................."

"There are no perfect ideas only perfect intentions"

Attachments

Login to view attachments

Back to top

Profile PM Email

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 6th Dec 2011 13:08

Link

It's because it's remmed out

lol

But seriously, change this bit...

+ Code Snippet

D3D_STARTTEXT                                                  `| Cant get this to work!
D3D_BOXTEXT 1, 300,200,400,200,2,2,"Loading Please Wait...."   `| Cant get this to work!
D3D_ENDTEXT                                                    `| Cant get this to work!
sync

to this

+ Code Snippet

D3D_STARTTEXT                                                  `| Cant get this to work!
D3D_BOXTEXT 1, 300,200,400,200,2,2,"Loading Please Wait...."   `| Cant get this to work!
D3D_ENDTEXT                                                    `| Cant get this to work!
sync
sync ` works now :)

You need 2 syncs because of the way that DBP works with the back buffer.

Hope that helps

Bitmap Font Creator Alpha Out Now!

Back to top

Profile PM Email Website

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 6th Dec 2011 13:11 Edited at: 6th Dec 2011 14:28

Link

Edit - Looks like =PRoF= posted right as I was posting. I'll still look it over though...
....................................................

I am going to work on this now. I'll edit this post within the hour (Whether or not I am able to find the problem and/or fix).

Note!!! Project Requires D3DFunc dll by Cloggy - http://www.dbdepot.co.uk/d3dfunc.html

|Status| : 12/06/11 8:26am EST

Copied Source, Created Project, Downloading Media

Installed D3DFunc.dll

No music!!!

- REM out music lines

Made changes the =PRoF= suggester

*Error - Tracing through your code right now. Reason: After leaving it run for a while I get an error that Object 503 does not exist. I can see that your logic in the Main Loop is "always" checking the position values of objects that may not exist. Working on pinning it down and recommending change to source.

~ZENassem

Back to top

Profile PM Email

Jonk

19

Years of Service

User Offline

Joined: 31st Jul 2005

Location: East of Java

Posted: 6th Dec 2011 15:57

Link

Lol can't believe that It was something as simple as needing another sync command.

Thanks =PRoF= and zenassem for taking to time out to help it's most apreciated.

zenassem It would be great if you could solve the problem with the object not found. I know it is something to do with restoring the data when it's read the last line but cant seem to figure out where the restore command should go in my program.

"There are no perfect ideas only perfect intentions"

Back to top

Profile PM Email

MrValentine

AGK Backer

13

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 6th Dec 2011 21:29

Link

Urm... whats the use of d3dfunc dll... can someone explain... I cant go to that website right now... for one I am on phone for two I dont like going to new sites so easily as keeping track of them is a hassle... ahh what the h I will have a look but can someone explain?... There are a zillion websites... I think my wiki can be used to store them all hehe...

Back to top

Profile PM

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 6th Dec 2011 21:35 Edited at: 6th Dec 2011 21:43

Link

@MrValentine:
Cloggy's D3D plugin provides a much much (much) faster solution to displaying text on screen than DBP's native text commands.

It also can create 3D text objects, as Jonk has done in the above snippet.

I used to use it for BMFC but sadly I found it to have a bug when used to draw text to a bitmap other than 0.

Bitmap Font Creator Alpha Out Now!

Back to top

Profile PM Email Website

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 7th Dec 2011 20:30 Edited at: 7th Dec 2011 20:49

Link

Fixed, now get them E-Card's out.

Rem Project: Christmas Program
Rem Created: Monday, December 05, 2011

sync on
backdrop off
sync rate 60
cls
set display mode 1024,768,32
set window on
set ambient light 50
scrollspeed#=0.04
depth#=0.001
x#=16

position camera 0,0,0
set camera range 1,20000

Load Music "media\Troika.mp3",1
set music volume 1,50
play music 1

D3D_Init 1
D3D_FONT 1,"impact",32,0,0,1

D3D_STARTTEXT                                                  `| Cant get this to work!
D3D_BOXTEXT 1, 300,200,400,200,2,2,"Loading Please Wait...."   `| Cant get this to work!
D3D_ENDTEXT                                                    `| Cant get this to work!
sync                                                           `| Cant get this to work!
sync

load object "media\skybox.dbo",2
scale object 2,100000,100000,100000
Position object 2,0,0,0

D3D_MAKE_3DTEXT 501, 1,"Hello and welcome.",depth#,0,1
scale object 501,150,150,150
color object 501,rgb(001,001,001)
position object 501,x#,-6,10

load image "media\snowflake.png",1
Make particles 1,1,2,10
set particle life 1,100
set particle gravity 1,0.5
set particle floor 1,0
position particles 1,-6,51,65
SET PARTICLE VELOCITY 1, 1

make object plane 3,400,100
lock object on 3
position object 3,0,0,300
load image "media\Santa's Sleigh.png",2
texture object 3,2
set object transparency 3,4

do

if mess < 12
   if object exist (501)=0 then gosub reassign1
   if object exist (502)=0 then gosub reassign2
   if object exist (503)=0 then gosub reassign3
endif

if object exist (501)
   move object left 501,scrollspeed#
   if object position x(501) < -30 then delete object 501
endif
if object exist (502)
   move object left 502,scrollspeed#
   if object position x(502) < -30 then delete object 502
endif
if object exist (503)
   move object left 503,scrollspeed#
   if object position x(503) < -30 then delete object 503
endif

YROTATE OBJECT 2,OBJECT ANGLE Y(2)-0.3
sync
loop

reassign1:
inc mess
read message$
D3D_MAKE_3DTEXT 501, 1,message$,depth#,0,1
scale object 501,150,150,150
color object 501,rgb(001,001,001)
message1size#=OBJECT SIZE X(501)*0.75
message1Xpos#=object position x(501)
message3size#=OBJECT SIZE X(503)*0.75
message3Xpos#=object position x(503)
position object 501, message3Xpos#+message3size#+message1size#+0.5,-6,10
return

reassign2:
inc mess
read message$
D3D_MAKE_3DTEXT 502, 1,message$,depth#,0,1
scale object 502,150,150,150
color object 502,rgb(001,001,001)
message1size#=OBJECT SIZE X(501)*0.75
message1Xpos#=object position x(501)
message2size#=OBJECT SIZE X(502)*0.75
message2Xpos#=object position x(502)
position object 502, message1Xpos#+message1size#+message2size#+0.5,-6,10
return

reassign3:
inc mess
read message$
D3D_MAKE_3DTEXT 503, 1,message$,depth#,0,1
scale object 503,150,150,150
color object 503,rgb(001,001,001)
message2size#=OBJECT SIZE X(502)*0.75
message2Xpos#=object position x(502)
message3size#=OBJECT SIZE X(503)*0.75
message3Xpos#=object position x(503)
position object 503, message2Xpos#+message2size#+message3size#+0.5,-6,10
return

end

data "Wishing all my family a Merry Christmas and a Happy New Year"
data "from John, Yuletide greeting to......Chris, Paul and Paula, Nic, Tim"
data "and Ben, Ann and Keith, Lee and June, Tracey, Sean, Lauren and Brittony"
data ", Mark, Caroline, Charlotte and Danielle, Lynda, Robbie, Keith Wiles, Ian,"
data "Sarah, Dennis, Charlie and Demi, Carol, Gary, Emma, Becci, Molli and Lili"
data ", Eddie, Karen, Daniel, Sam, Billy, Jamie and Kelsie, Lynne, Tony, Sue,"
data "................ Wishing you all the best for Christmas and the New Year"
data "and hoping that you enjoyed my little Christmas Scrolling E-Card"
data "that was written entirely in Dark basic by Me, John Keenleyside. "
data "Special thanks to my Honey Princess Rachel for the love and moral support"
data "and please forgive me if I have forgotten anybody as I have a brain like a "
data "Sieve as you all well know ..............................................."

+ Code Snippet

Rem Project: Christmas Program
Rem Created: Monday, December 05, 2011

sync on
backdrop off
sync rate 60
cls
set display mode 1024,768,32
set window on
set ambient light 50
scrollspeed#=0.04
depth#=0.001
x#=16

position camera 0,0,0
set camera range 1,20000

Load Music "media\Troika.mp3",1
set music volume 1,50
play music 1

D3D_Init 1
D3D_FONT 1,"impact",32,0,0,1

D3D_STARTTEXT                                                  `| Cant get this to work!
D3D_BOXTEXT 1, 300,200,400,200,2,2,"Loading Please Wait...."   `| Cant get this to work!
D3D_ENDTEXT                                                    `| Cant get this to work!
sync                                                           `| Cant get this to work!
sync

load object "media\skybox.dbo",2
scale object 2,100000,100000,100000
Position object 2,0,0,0

D3D_MAKE_3DTEXT 501, 1,"Hello and welcome.",depth#,0,1
scale object 501,150,150,150
color object 501,rgb(001,001,001)
position object 501,x#,-6,10

load image "media\snowflake.png",1
Make particles 1,1,2,10
set particle life 1,100
set particle gravity 1,0.5
set particle floor 1,0
position particles 1,-6,51,65
SET PARTICLE VELOCITY 1, 1

make object plane 3,400,100
lock object on 3
position object 3,0,0,300
load image "media\Santa's Sleigh.png",2
texture object 3,2
set object transparency 3,4

do

if mess < 12
   if object exist (501)=0 then gosub reassign1
   if object exist (502)=0 then gosub reassign2
   if object exist (503)=0 then gosub reassign3
endif

if object exist (501)
   move object left 501,scrollspeed#
   if object position x(501) < -30 then delete object 501
endif
if object exist (502)
   move object left 502,scrollspeed#
   if object position x(502) < -30 then delete object 502
endif
if object exist (503)
   move object left 503,scrollspeed#
   if object position x(503) < -30 then delete object 503
endif

YROTATE OBJECT 2,OBJECT ANGLE Y(2)-0.3
sync
loop

reassign1:
inc mess
read message$
D3D_MAKE_3DTEXT 501, 1,message$,depth#,0,1
scale object 501,150,150,150
color object 501,rgb(001,001,001)
message1size#=OBJECT SIZE X(501)*0.75
message1Xpos#=object position x(501)
message3size#=OBJECT SIZE X(503)*0.75
message3Xpos#=object position x(503)
position object 501, message3Xpos#+message3size#+message1size#+0.5,-6,10
return

reassign2:
inc mess
read message$
D3D_MAKE_3DTEXT 502, 1,message$,depth#,0,1
scale object 502,150,150,150
color object 502,rgb(001,001,001)
message1size#=OBJECT SIZE X(501)*0.75
message1Xpos#=object position x(501)
message2size#=OBJECT SIZE X(502)*0.75
message2Xpos#=object position x(502)
position object 502, message1Xpos#+message1size#+message2size#+0.5,-6,10
return

reassign3:
inc mess
read message$
D3D_MAKE_3DTEXT 503, 1,message$,depth#,0,1
scale object 503,150,150,150
color object 503,rgb(001,001,001)
message2size#=OBJECT SIZE X(502)*0.75
message2Xpos#=object position x(502)
message3size#=OBJECT SIZE X(503)*0.75
message3Xpos#=object position x(503)
position object 503, message2Xpos#+message2size#+message3size#+0.5,-6,10
return

end

data "Wishing all my family a Merry Christmas and a Happy New Year"
data "from John, Yuletide greeting to......Chris, Paul and Paula, Nic, Tim"
data "and Ben, Ann and Keith, Lee and June, Tracey, Sean, Lauren and Brittony"
data ", Mark, Caroline, Charlotte and Danielle, Lynda, Robbie, Keith Wiles, Ian,"
data "Sarah, Dennis, Charlie and Demi, Carol, Gary, Emma, Becci, Molli and Lili"
data ", Eddie, Karen, Daniel, Sam, Billy, Jamie and Kelsie, Lynne, Tony, Sue,"
data "................ Wishing you all the best for Christmas and the New Year"
data "and hoping that you enjoyed my little Christmas Scrolling E-Card"
data "that was written entirely in Dark basic by Me, John Keenleyside. "
data "Special thanks to my Honey Princess Rachel for the love and moral support"
data "and please forgive me if I have forgotten anybody as I have a brain like a "
data "Sieve as you all well know ..............................................."

Edit: If you prefer to have the text continue scrolling.

Rem Project: Christmas Program
Rem Created: Monday, December 05, 2011

sync on
backdrop off
sync rate 60
cls
set display mode 1024,768,32
set window on
set ambient light 50
scrollspeed#=0.04
depth#=0.001
x#=16

position camera 0,0,0
set camera range 1,20000

Load Music "media\Troika.mp3",1
set music volume 1,50
play music 1

D3D_Init 1
D3D_FONT 1,"impact",32,0,0,1

D3D_STARTTEXT                                                  `| Cant get this to work!
D3D_BOXTEXT 1, 300,200,400,200,2,2,"Loading Please Wait...."   `| Cant get this to work!
D3D_ENDTEXT                                                    `| Cant get this to work!
sync                                                           `| Cant get this to work!
sync

load object "media\skybox.dbo",2
scale object 2,100000,100000,100000
Position object 2,0,0,0

D3D_MAKE_3DTEXT 501, 1,"Hello and welcome.",depth#,0,1
scale object 501,150,150,150
color object 501,rgb(001,001,001)
position object 501,x#,-6,10

load image "media\snowflake.png",1
Make particles 1,1,2,10
set particle life 1,100
set particle gravity 1,0.5
set particle floor 1,0
position particles 1,-6,51,65
SET PARTICLE VELOCITY 1, 1

make object plane 3,400,100
lock object on 3
position object 3,0,0,300
load image "media\Santa's Sleigh.png",2
texture object 3,2
set object transparency 3,4

do

if mess < 12
   if object exist (501)=0 then gosub reassign1
   if object exist (502)=0 then gosub reassign2
   if object exist (503)=0 then gosub reassign3
else
   mess=0
   restore messdata
endif

if object exist (501)
   move object left 501,scrollspeed#
   if object position x(501) < -30 then delete object 501
endif
if object exist (502)
   move object left 502,scrollspeed#
   if object position x(502) < -30 then delete object 502
endif
if object exist (503)
   move object left 503,scrollspeed#
   if object position x(503) < -30 then delete object 503
endif

YROTATE OBJECT 2,OBJECT ANGLE Y(2)-0.3
sync
loop

reassign1:
inc mess
read message$
D3D_MAKE_3DTEXT 501, 1,message$,depth#,0,1
scale object 501,150,150,150
color object 501,rgb(001,001,001)
message1size#=OBJECT SIZE X(501)*0.75
message1Xpos#=object position x(501)
message3size#=OBJECT SIZE X(503)*0.75
message3Xpos#=object position x(503)
position object 501, message3Xpos#+message3size#+message1size#+0.5,-6,10
return

reassign2:
inc mess
read message$
D3D_MAKE_3DTEXT 502, 1,message$,depth#,0,1
scale object 502,150,150,150
color object 502,rgb(001,001,001)
message1size#=OBJECT SIZE X(501)*0.75
message1Xpos#=object position x(501)
message2size#=OBJECT SIZE X(502)*0.75
message2Xpos#=object position x(502)
position object 502, message1Xpos#+message1size#+message2size#+0.5,-6,10
return

reassign3:
inc mess
read message$
D3D_MAKE_3DTEXT 503, 1,message$,depth#,0,1
scale object 503,150,150,150
color object 503,rgb(001,001,001)
message2size#=OBJECT SIZE X(502)*0.75
message2Xpos#=object position x(502)
message3size#=OBJECT SIZE X(503)*0.75
message3Xpos#=object position x(503)
position object 503, message2Xpos#+message2size#+message3size#+0.5,-6,10
return

end

messdata:
data "Wishing all my family a Merry Christmas and a Happy New Year"
data "from John, Yuletide greeting to......Chris, Paul and Paula, Nic, Tim"
data "and Ben, Ann and Keith, Lee and June, Tracey, Sean, Lauren and Brittony"
data ", Mark, Caroline, Charlotte and Danielle, Lynda, Robbie, Keith Wiles, Ian,"
data "Sarah, Dennis, Charlie and Demi, Carol, Gary, Emma, Becci, Molli and Lili"
data ", Eddie, Karen, Daniel, Sam, Billy, Jamie and Kelsie, Lynne, Tony, Sue,"
data "................ Wishing you all the best for Christmas and the New Year"
data "and hoping that you enjoyed my little Christmas Scrolling E-Card"
data "that was written entirely in Dark basic by Me, John Keenleyside. "
data "Special thanks to my Honey Princess Rachel for the love and moral support"
data "and please forgive me if I have forgotten anybody as I have a brain like a "
data "Sieve as you all well know ..............................................."

+ Code Snippet

Rem Project: Christmas Program
Rem Created: Monday, December 05, 2011

sync on
backdrop off
sync rate 60
cls
set display mode 1024,768,32
set window on
set ambient light 50
scrollspeed#=0.04
depth#=0.001
x#=16

position camera 0,0,0
set camera range 1,20000

Load Music "media\Troika.mp3",1
set music volume 1,50
play music 1

D3D_Init 1
D3D_FONT 1,"impact",32,0,0,1

D3D_STARTTEXT                                                  `| Cant get this to work!
D3D_BOXTEXT 1, 300,200,400,200,2,2,"Loading Please Wait...."   `| Cant get this to work!
D3D_ENDTEXT                                                    `| Cant get this to work!
sync                                                           `| Cant get this to work!
sync

load object "media\skybox.dbo",2
scale object 2,100000,100000,100000
Position object 2,0,0,0

D3D_MAKE_3DTEXT 501, 1,"Hello and welcome.",depth#,0,1
scale object 501,150,150,150
color object 501,rgb(001,001,001)
position object 501,x#,-6,10

load image "media\snowflake.png",1
Make particles 1,1,2,10
set particle life 1,100
set particle gravity 1,0.5
set particle floor 1,0
position particles 1,-6,51,65
SET PARTICLE VELOCITY 1, 1

make object plane 3,400,100
lock object on 3
position object 3,0,0,300
load image "media\Santa's Sleigh.png",2
texture object 3,2
set object transparency 3,4

do

if mess < 12
   if object exist (501)=0 then gosub reassign1
   if object exist (502)=0 then gosub reassign2
   if object exist (503)=0 then gosub reassign3
else
   mess=0
   restore messdata
endif


if object exist (501)
   move object left 501,scrollspeed#
   if object position x(501) < -30 then delete object 501
endif
if object exist (502)
   move object left 502,scrollspeed#
   if object position x(502) < -30 then delete object 502
endif
if object exist (503)
   move object left 503,scrollspeed#
   if object position x(503) < -30 then delete object 503
endif

YROTATE OBJECT 2,OBJECT ANGLE Y(2)-0.3
sync
loop

reassign1:
inc mess
read message$
D3D_MAKE_3DTEXT 501, 1,message$,depth#,0,1
scale object 501,150,150,150
color object 501,rgb(001,001,001)
message1size#=OBJECT SIZE X(501)*0.75
message1Xpos#=object position x(501)
message3size#=OBJECT SIZE X(503)*0.75
message3Xpos#=object position x(503)
position object 501, message3Xpos#+message3size#+message1size#+0.5,-6,10
return

reassign2:
inc mess
read message$
D3D_MAKE_3DTEXT 502, 1,message$,depth#,0,1
scale object 502,150,150,150
color object 502,rgb(001,001,001)
message1size#=OBJECT SIZE X(501)*0.75
message1Xpos#=object position x(501)
message2size#=OBJECT SIZE X(502)*0.75
message2Xpos#=object position x(502)
position object 502, message1Xpos#+message1size#+message2size#+0.5,-6,10
return

reassign3:
inc mess
read message$
D3D_MAKE_3DTEXT 503, 1,message$,depth#,0,1
scale object 503,150,150,150
color object 503,rgb(001,001,001)
message2size#=OBJECT SIZE X(502)*0.75
message2Xpos#=object position x(502)
message3size#=OBJECT SIZE X(503)*0.75
message3Xpos#=object position x(503)
position object 503, message2Xpos#+message2size#+message3size#+0.5,-6,10
return

end

messdata:
data "Wishing all my family a Merry Christmas and a Happy New Year"
data "from John, Yuletide greeting to......Chris, Paul and Paula, Nic, Tim"
data "and Ben, Ann and Keith, Lee and June, Tracey, Sean, Lauren and Brittony"
data ", Mark, Caroline, Charlotte and Danielle, Lynda, Robbie, Keith Wiles, Ian,"
data "Sarah, Dennis, Charlie and Demi, Carol, Gary, Emma, Becci, Molli and Lili"
data ", Eddie, Karen, Daniel, Sam, Billy, Jamie and Kelsie, Lynne, Tony, Sue,"
data "................ Wishing you all the best for Christmas and the New Year"
data "and hoping that you enjoyed my little Christmas Scrolling E-Card"
data "that was written entirely in Dark basic by Me, John Keenleyside. "
data "Special thanks to my Honey Princess Rachel for the love and moral support"
data "and please forgive me if I have forgotten anybody as I have a brain like a "
data "Sieve as you all well know ..............................................."

Happy Holidays.

Back to top

Profile PM Email

Jonk

19

Years of Service

User Offline

Joined: 31st Jul 2005

Location: East of Java

Posted: 8th Dec 2011 03:05

Link

Thanks WickedX that code works like a charm I've sent out my e-card to all concerned now.

"There are no perfect ideas only perfect intentions"

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Loading Please wait Problem

Attachments