plama background problems. - GameCreators Forum

Author

Message

Zaibatsu

18

Years of Service

User Offline

Joined: 1st May 2006

Location: Lost in Thought

Posted: 15th Aug 2007 01:57

Link

I'm trying to make a screensaver, to build up some basic knowledge, but am running into some problems.

I'm using a modified version of this plasma demo, http://forum.thegamecreators.com/?m=forum_view&t=109986&b=11
and want that to be in the background, while an object is spinning in the foreground. I have both parts working separately, but can't get them to work together.

My spinning object code is pretty basic,

+ Code Snippet

make object box 1,1,1,1
color object 1, rgb(0,200,50)
load sound "sound.wav",1
loop sound 1
do
yrotate object 1, object angle y(1)+.1
xrotate object 1, object angle x(1)+.001
loop
wait key

and I will make the code more complex later, but I was wondering how I could get a spinning object in front of that plasma demo.

"I admire its purity, a survivor, unclouded by conscience, remorse, or delusions of morality"

Back to top

Profile PM Email

Mr Bigger

19

Years of Service

User Offline

Joined: 31st Jan 2005

Location: was here!

Posted: 15th Aug 2007 03:40

Link

Use the Draw Sprites First command.

AMD 2600+/1GB DDR ram/GeForce 6600oc 256MB/W2KPro/DBPro 6.2

Back to top

Profile PM

Zaibatsu

18

Years of Service

User Offline

Joined: 1st May 2006

Location: Lost in Thought

Posted: 15th Aug 2007 04:48 Edited at: 15th Aug 2007 06:09

Link

Quote: "Use the Draw Sprites First command."

exactly how would I do that.

EDIT: I used the command, but all I got was a black screen with the music. Heres the plasma code:

set display mode 640,480,32
draw sprites first
load sound "sound.wav", 1
loop sound 1
get image 1,0,0,640,480,1 : make memblock from image 1,1 : randomize timer() : sync on : sync rate 0 : hide mouse : Dim colors( 256 )
For i = 0 To 63 : colors( i ) = rgb(i*10,i*80,60-(i*4)) : colors( i+64 ) = rgb(20-(i*4),i*2,0) : colors( i+128 ) = rgb(i*2,30-(i*2),i*4) : colors( i+192 ) = rgb(50+(i*2),i,255-(i*4)) : Next i
pixelate=rnd(15)+2 : Dim sinus#( 1280 ) : For i = 0 To 1280 : sinus#( i ) = cos( ( 360 * i ) / 640.0 ) * pixelate : Next i
sprite 1,0,0,1 : set sprite 1,0,1 : set sprite alpha 1,10 : hide sprite 1 : r=rnd(128)+64 : g=rnd(128)+64 : b=rnd(128)+64 : r1=1 : g1=2 : b1=3
Repeat
   time=timer() : If time > Delay
   Delay = time+2
   inc wave1,4 : inc wave2,5 : inc wave3,2 : inc r,r1 : inc g,g1 : inc b,b1
   If wave1 >= 639 Then wave1 = wave1 - 640
   If wave2 >= 639 Then wave2 = wave2 - 640
   If wave3 >= 639 Then wave3 = wave3 - 640
   if r<20 or r>250 then r1=0-r1
   if g<20 or g>250 then g1=0-g1
   if b<20 or b>250 then b1=0-b1
   set sprite diffuse 1,r,g,b
   For y = 0 To 479 : d = sinus#( y + wave2 ) + sinus#( y + wave3 ) : For x = 0 To 639 : f = ( sinus#( x + wave1 ) + sinus#( x + y ) + d ): f=f && 255 : memPos = (y*640*4)+(x*4) : WRITE MEMBLOCK DWORD 1,memPos+12,colors(f) : Next x : Next y
   make image from memblock 1,1
   paste sprite 1,0,0
   EndIf : sync

Until mousemovex()

+ Code Snippet

set display mode 640,480,32
draw sprites first
load sound "sound.wav", 1
loop sound 1
get image 1,0,0,640,480,1 : make memblock from image 1,1 : randomize timer() : sync on : sync rate 0 : hide mouse : Dim colors( 256 )
For i = 0 To 63 : colors( i ) = rgb(i*10,i*80,60-(i*4)) : colors( i+64 ) = rgb(20-(i*4),i*2,0) : colors( i+128 ) = rgb(i*2,30-(i*2),i*4) : colors( i+192 ) = rgb(50+(i*2),i,255-(i*4)) : Next i
pixelate=rnd(15)+2 : Dim sinus#( 1280 ) : For i = 0 To 1280 : sinus#( i ) = cos( ( 360 * i ) / 640.0 ) * pixelate : Next i
sprite 1,0,0,1 : set sprite 1,0,1 : set sprite alpha 1,10 : hide sprite 1 : r=rnd(128)+64 : g=rnd(128)+64 : b=rnd(128)+64 : r1=1 : g1=2 : b1=3
Repeat
   time=timer() : If time > Delay
   Delay = time+2
   inc wave1,4 : inc wave2,5 : inc wave3,2 : inc r,r1 : inc g,g1 : inc b,b1
   If wave1 >= 639 Then wave1 = wave1 - 640
   If wave2 >= 639 Then wave2 = wave2 - 640
   If wave3 >= 639 Then wave3 = wave3 - 640
   if r<20 or r>250 then r1=0-r1
   if g<20 or g>250 then g1=0-g1
   if b<20 or b>250 then b1=0-b1
   set sprite diffuse 1,r,g,b
   For y = 0 To 479 : d = sinus#( y + wave2 ) + sinus#( y + wave3 ) : For x = 0 To 639 : f = ( sinus#( x + wave1 ) + sinus#( x + y ) + d ): f=f && 255 : memPos = (y*640*4)+(x*4) : WRITE MEMBLOCK DWORD 1,memPos+12,colors(f) : Next x : Next y
   make image from memblock 1,1
   paste sprite 1,0,0
   EndIf : sync

Until mousemovex()

and heres the object code:

+ Code Snippet

load object "psy.x",1
load image "psy.jpg",1
texture object 1, 1
do
yrotate object 1, object angle y(1)+.1
xrotate object 1, object angle x(1)+.001
zrotate object 1, object angle z(1)-.001
loop

How would i properly combine them using the draw sprites first command?

"I admire its purity, a survivor, unclouded by conscience, remorse, or delusions of morality"

Back to top

Profile PM Email

Mr Bigger

19

Years of Service

User Offline

Joined: 31st Jan 2005

Location: was here!

Posted: 15th Aug 2007 08:37

Link

Black screen?Whoa!That's no good.
Either that command is bugged or it's the wrong approach.
I never used it before.Sorry about that.

So... Here's another way

set display mode 640,480,32
randomize timer() : sync on : sync rate 0 : hide mouse
get image 1,0,0,640,480,1 : make memblock from image 1,1: Dim colors( 256 )
For i = 0 To 63 : colors( i ) = rgb(i*4,i*3,255-(i*4)) : colors( i+64 ) = rgb(255-(i*4),i*2,0) : colors( i+128 ) = rgb(i*2,255-(i*2),i*4) : colors( i+192 ) = rgb(128+(i*2),i,255-(i*4)) : Next i
pixelate=rnd(15)+2 : Dim sinus#( 1280 ) : For i = 0 To 1280 : sinus#( i ) = cos( ( 360 * i ) / 640.0 ) * pixelate : Next i
sprite 1,0,0,1 : set sprite 1,0,1 : set sprite alpha 1,10 : hide sprite 1 : r=rnd(128)+64 : g=rnd(128)+64 : b=rnd(128)+64 : r1=1 : g1=2 : b1=3

`Added object here
backdrop off
`load object "psy.x",64
`load image "psy.jpg",2
make object cube 64,.3
texture object 64,1:set object texture 64,0,0

Repeat
   time=timer() : If time > Delay
   Delay = time+10
   inc wave1,4 : inc wave2,5 : inc wave3,2 : inc r,r1 : inc g,g1 : inc b,b1
   If wave1 >= 639 Then wave1 = wave1 - 640
   If wave2 >= 639 Then wave2 = wave2 - 640
   If wave3 >= 639 Then wave3 = wave3 - 640
   if r<20 or r>250 then r1=0-r1
   if g<20 or g>250 then g1=0-g1
   if b<20 or b>250 then b1=0-b1
   set sprite diffuse 1,r,g,b
   For y = 0 To 479 : d = sinus#( y + wave2 ) + sinus#( y + wave3 ) : For x = 0 To 639 : f = ( sinus#( x + wave1 ) + sinus#( x + y ) + d ): f=f && 255 : memPos = (y*640*4)+(x*4) : WRITE MEMBLOCK DWORD 1,memPos+12,colors(f) : Next x : Next y
   make image from memblock 1,1
   paste sprite 1,0,0
   EndIf

`Added object rotation here
   yrotate object 64, object angle y(64)+.1
   xrotate object 64, object angle x(64)+.1
   zrotate object 64, object angle z(64)-.1

sync
Until mouseclick()

+ Code Snippet

set display mode 640,480,32
randomize timer() : sync on : sync rate 0 : hide mouse
get image 1,0,0,640,480,1 : make memblock from image 1,1: Dim colors( 256 )
For i = 0 To 63 : colors( i ) = rgb(i*4,i*3,255-(i*4)) : colors( i+64 ) = rgb(255-(i*4),i*2,0) : colors( i+128 ) = rgb(i*2,255-(i*2),i*4) : colors( i+192 ) = rgb(128+(i*2),i,255-(i*4)) : Next i
pixelate=rnd(15)+2 : Dim sinus#( 1280 ) : For i = 0 To 1280 : sinus#( i ) = cos( ( 360 * i ) / 640.0 ) * pixelate : Next i
sprite 1,0,0,1 : set sprite 1,0,1 : set sprite alpha 1,10 : hide sprite 1 : r=rnd(128)+64 : g=rnd(128)+64 : b=rnd(128)+64 : r1=1 : g1=2 : b1=3

`Added object here
backdrop off
`load object "psy.x",64
`load image "psy.jpg",2
make object cube 64,.3
texture object 64,1:set object texture 64,0,0

Repeat
   time=timer() : If time > Delay
   Delay = time+10
   inc wave1,4 : inc wave2,5 : inc wave3,2 : inc r,r1 : inc g,g1 : inc b,b1
   If wave1 >= 639 Then wave1 = wave1 - 640
   If wave2 >= 639 Then wave2 = wave2 - 640
   If wave3 >= 639 Then wave3 = wave3 - 640
   if r<20 or r>250 then r1=0-r1
   if g<20 or g>250 then g1=0-g1
   if b<20 or b>250 then b1=0-b1
   set sprite diffuse 1,r,g,b
   For y = 0 To 479 : d = sinus#( y + wave2 ) + sinus#( y + wave3 ) : For x = 0 To 639 : f = ( sinus#( x + wave1 ) + sinus#( x + y ) + d ): f=f && 255 : memPos = (y*640*4)+(x*4) : WRITE MEMBLOCK DWORD 1,memPos+12,colors(f) : Next x : Next y
   make image from memblock 1,1
   paste sprite 1,0,0
   EndIf

`Added object rotation here
   yrotate object 64, object angle y(64)+.1
   xrotate object 64, object angle x(64)+.1
   zrotate object 64, object angle z(64)-.1

   sync
Until mouseclick()

Note that the plasma code already uses the first 63 object numbers as well as image number 1.

AMD 2600+/1GB DDR ram/GeForce 6600oc 256MB/W2KPro/DBPro 6.2

Back to top

Profile PM

Zaibatsu

18

Years of Service

User Offline

Joined: 1st May 2006

Location: Lost in Thought

Posted: 15th Aug 2007 09:18 Edited at: 15th Aug 2007 11:52

Link

I tried that and got it working in the test, and when i ran it from the exe. I converted the exe to scr and put it in the windows folder with all the media. i double clicked on the scr and it ran fine, but when I run it from the screensaver desktop manager, it gives error at line 12. Which is the load object line. I attached a zip with the scr, media folder and the source code. Maybe someone else knows how to work this.

EDIT: Download removed

"I admire its purity, a survivor, unclouded by conscience, remorse, or delusions of morality"

Back to top

Profile PM Email

Blobby 101

18

Years of Service

User Offline

Joined: 17th Jun 2006

Location: England, UK

Posted: 15th Aug 2007 10:53

Link

attach all the media to your exe, in the media tab on the project folder. then convert to a screensaver then you won't need all the media in the same folder.

thanks to deathead for the sig!
Projects: alien abductor-5%

Back to top

Profile PM Email Website

Zaibatsu

18

Years of Service

User Offline

Joined: 1st May 2006

Location: Lost in Thought

Posted: 15th Aug 2007 20:14

Link

I finished the screensaver, its downloadable from my sites download page.

"I admire its purity, a survivor, unclouded by conscience, remorse, or delusions of morality"

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / plama background problems.