- DBPro Coding Challenges - - GameCreators Forum

Author

Message

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 13th May 2008 22:50

Link

yeaah Darth Vader , it works ok...it remember me old 2d games.

The sun could be 2d aswell like the rest of escenary but it´s fine
The best.. missile coming down..lol

cheers.

oh my god

Back to top

Profile PM Email

Must Program

18

Years of Service

User Offline

Joined: 22nd Nov 2007

Location:

Posted: 14th May 2008 09:10

Link

@bmaczero

thanxs for the help and i know i started in 2007 but i forgot my password and only remembered it yesterday so im back and ye i spose it will be harder than i thought.

i used to understand loads of dbpro but now ive forgotten it all so i could do with a mentor

any offers

Back to top

Profile PM

Darth Vader

21

Years of Service

User Offline

Joined: 10th May 2005

Location: Adelaide SA, I am the only DB user here!

Posted: 14th May 2008 12:03

Link

Quote: "The sun could be 2d aswell like the rest of escenary"

Well the ground is a plain. I want to do everything is 2D but I don't know how to work fill in the emptiness! I might need to look into filling, just not sure how...

Back to top

Profile PM Email Website

jeffhuys

20

Years of Service

User Offline

Joined: 24th May 2006

Location: No cheesy line here.

Posted: 14th May 2008 17:47 Edited at: 14th May 2008 17:55

Link

Quote: "wow !!...tha´s amazing indeed...our friends are right...as bmaczero says, if rem all lines where force command appears...it works !!..
I hope you don´t mind jeffhuys
I made some changes deleting those lines and it works. have a

{Code snippet}

cheers."

Thanks! I've made a new code, but I don't have it on this computer, and my other computer has no internet for some time..

Quote: "I was amazed.. but not surprised.. Jeff seems to know his stuff

"

Hehe, Thanks!

Quote: "Okay attached is an .exe file in a zip, hopefully that it works!

Also has anyone else tried out my code? Does it work or do you also get a black screen?
Thanks!"

I'll try it as soon as I retreive internet again, thank you!

Quote: "What do you mean "for next time"? The next challenge? Clarify

"

When I would post again, but, as you read above, I don't have internet right now

See you next time (I hope it is before the challenge ends

)

Jeff

EDIT:
Here it is, just used a flash drive to copy it. I've also added support for shadows, but maybe it will go very slow because of it. You have the option to switch it off at the very beginning of the program. Also support for computers without a gamepad is added (hopefully this will correct all your problems). Be aware that I will probaly not around for some time (1-4 days maybe), but feel free to comment

// 3D explosion
// By Jeff Huijsmans

sync
Input "Use shadows? (1/0. 1 = yes) -> ", shadows
Sync on
Sync rate 30
Autocam off
Backdrop on
Color backdrop RGB(100, 100, 255)

perform checklist for control devices
if checklist quantity() <> 0
	if checklist value A(1) <> 0
		forcefeedback = 1
	endif
endif

// Generate media
// Yellow color
box 0,0,1,1,RGB(255,255,0),RGB(255,255,0),RGB(255,255,0),RGB(255,255,0)
get image 1, 0, 0, 1, 1
cls

// Rainbow shade color
box 0,0,100,100,RGB(255,155,0), RGB(155,255,0), RGB(255,55,0), RGB(255,55,0)
get image 2, 0, 0, 100, 100
cls

// Smoke
// Make a new bitmap to paint on
create bitmap 5,50,50
// Set the color of the smoke
ink rgb(250,200,100),0
// Make dots
for x=1 to 1000
angle = rnd(360)
radius = rnd(20)
dot 25 + sin(angle) * radius, 25 + cos(angle) * radius
next x
// Blur dots
blur bitmap 5,4
// Grab the image and put it in "3"
get image 3, 0, 0, 50, 50
// Get rid of the bitmap.
delete bitmap 5

// Make sphere
make object sphere 1, 1
// Texture it with yellow colour
texture object 1, 1
// Move camera slightly backwards
position camera 0, 200, -200
point camera object position x(1), object position y(1), object position z(1)
// Make sphere transparent
ghost object on 1
// Make it collidable
Automatic object collision 1, 0, 1
`Set global collision on 
// Rainbowshade it with previous generated media
`set rainbow shading on 1,

// Make plain for floor
make object plain 2, 500, 500
// Scale it
scale object 2, 400, 400, 400
// Make it almost white
color object 2, RGB(200, 200, 200)
// Position it lower
`position object 2, 0, -25, 0
// Rotate it
rotate object 2, 90, 0, 0

// Make randomly placed objects
if forcefeedback = 1
	Type CubeSpec
		Shocked as BOOLEAN
	EndType
	dim Cubes(120) as CubeSpec
endif
for Cube = 10 to 100
	Radius = 10+rnd(10)
	make object cube Cube, Radius
	position object Cube, -500+rnd(1000), 0, -500+rnd(1000)
	color object Cube, RGB(RND(255), RND(255), RND(255))
	point object Cube, 0,0,0
	if shadows = 1
		set shadow shading on Cube, 0, 200, 1
	endif
	`Automatic object collision Cube, Radius, 1 
Next Cube

// Make particles (Bomb)
make particles 1, 2, 100, 2.5
// Set parameters (Bomb)
set particle emissions 1, 0
set particle velocity 1, 20
set particle gravity 1, 5
set particle speed 1, 0.01
set particle life 1, 500
set particle chaos 1, 20
ghost particles on 1, 3

// Make particles (Smoke)
make particles 2, 3, 100, 50
// Set parameters (Smoke)
set particle emissions 2, 0
set particle velocity 2, 2
set particle gravity 2, 0
set particle speed 2, 0.05
set particle life 2, 100
ghost particles on 2, 3

center text screen width()/2, screen height()/2, "" : sync : sync : cls
center text screen width()/2, screen height()/2, "Press any key to ignite the bomb..." : sync : wait key : cls
center text screen width()/2, screen height()/2, "Bomb will ignite in 3..." : sync : wait 1000 : cls
center text screen width()/2, screen height()/2, "Bomb will ignite in 2..." : sync : wait 1000 : cls
center text screen width()/2, screen height()/2, "Bomb will ignite in 1..." : sync : wait 1000 : cls

scale# = 1
xx#    = 1
for x# = 0 to 600 step 0.5
	position camera camera position x(), camera position y(), camera position z()-(xx#*1.05)
	rotate camera 0, 0, 0
	point camera object position x(1), object position y(1), object position z(1)
	scale# = scale# * 1.05
	if x# < 10
		scale# = scale# * 1.05
		scale# = scale# * 1.05
		scale# = scale# * 1.05
	endif
	
	if x# > 10 and x# < 20
		if forcefeedback = 1
			FORCE SHOOT 100, 0
		endif
		set particle emissions 1, 50
		rotate camera camera angle x()-(3+rnd(6)), camera angle y()-(3+rnd(6)), camera angle z()-(3+rnd(6))
	endif
	
	if x# > 20 and x# < 40
		set particle emissions 1, 100
		rotate camera camera angle x()-(2+rnd(4)), camera angle y()-(2+rnd(4)), camera angle z()-(2+rnd(4))
	endif
	
	if x# > 20 and x# < 150
		for Cube = 10 to 100
			if object collision(Cube, 1)
				move object cube, -5
				rotate object Cube, object angle x(Cube), object angle y(Cube), object angle z(Cube)+Rnd(5)
				position object Cube, object position x(Cube), object position y(Cube)+rnd(15), object position z(Cube)
			endif
		next cube
	endif
	
	if x# > 40 and x# < 100
		if forcefeedback = 1
			FORCE SHOOT 50, 0
		endif
		set particle emissions 1, 5
		set particle emissions 2, 25
		rotate camera camera angle x()-(1+rnd(2)), camera angle y()-(1+rnd(2)), camera angle z()-(1+rnd(2))
	endif 
	
	if x# > 100 and x# < 150
		if forcefeedback = 1
			FORCE SHOOT 25, 10
		endif
		rotate camera camera angle x()-(0.5+rnd(1)), camera angle y()-(0.5+rnd(1)), camera angle z()-(0.5+rnd(1))
	endif
	
	if x# > 150
		inc Gravity#, 0.1
		for Cube = 10 to 100
			if object collision(Cube, 2) = 0
				position object Cube, object position x(Cube), object position y(Cube)-Gravity#, object position z(Cube)
			endif
			
			if forcefeedback = 1
				if object collision(Cube, 2) = 1
					if Cubes(Cube).Shocked = 0
						Cubes(Cube).Shocked = 1
						FORCE CHAINSAW 50, 1
					endif
				endif
			endif
		next Cube
		if forcefeedback = 1
			FORCE SHOOT 10, 100
		endif
		set camera to follow 0, 2000, 0, 30, 50, 0, 50.0, 0
	endif
	
	if x# > 200
		if forcefeedback = 1
			FORCE SHOOT 0, 0
		endif
	endif
	
	if x# > 130
		set particle emissions 2, 0
	endif
	
	if x# > 100
		if shadows = 1
			for Cube = 10 to 100
				`set shadow shading off Cube
			next Cube
		endif
	endif
	
	scale object 1, scale#, scale#, scale#
	
	// Debugging
	set cursor 0, 0
	print "x# = " + str$(x#)
	print "scale# = " + str$(scale#)
	print "scale# = " + str$(scale#/1000)
	print forcefeedback
	`for Cube = 10 to 100
		`print object collision(Cube, 1)
	`next cube
	if scale#/1000 < 70
		if shadows = 1
			set shadow position -1,0,scale#/1000,0	
		endif
	endif
	`Set object radius 1, scale# 
	
	sync
next x#

end

+ Code Snippet

// 3D explosion
// By Jeff Huijsmans

sync
Input "Use shadows? (1/0. 1 = yes) -> ", shadows
Sync on
Sync rate 30
Autocam off
Backdrop on
Color backdrop RGB(100, 100, 255)

perform checklist for control devices
if checklist quantity() <> 0
	if checklist value A(1) <> 0
		forcefeedback = 1
	endif
endif


// Generate media
// Yellow color
box 0,0,1,1,RGB(255,255,0),RGB(255,255,0),RGB(255,255,0),RGB(255,255,0)
get image 1, 0, 0, 1, 1
cls

// Rainbow shade color
box 0,0,100,100,RGB(255,155,0), RGB(155,255,0), RGB(255,55,0), RGB(255,55,0)
get image 2, 0, 0, 100, 100
cls

// Smoke
// Make a new bitmap to paint on
create bitmap 5,50,50
// Set the color of the smoke
ink rgb(250,200,100),0
// Make dots
for x=1 to 1000
angle = rnd(360)
radius = rnd(20)
dot 25 + sin(angle) * radius, 25 + cos(angle) * radius
next x
// Blur dots
blur bitmap 5,4
// Grab the image and put it in "3"
get image 3, 0, 0, 50, 50
// Get rid of the bitmap.
delete bitmap 5


// Make sphere
make object sphere 1, 1
// Texture it with yellow colour
texture object 1, 1
// Move camera slightly backwards
position camera 0, 200, -200
point camera object position x(1), object position y(1), object position z(1)
// Make sphere transparent
ghost object on 1
// Make it collidable
Automatic object collision 1, 0, 1
`Set global collision on 
// Rainbowshade it with previous generated media
`set rainbow shading on 1, 

// Make plain for floor
make object plain 2, 500, 500
// Scale it
scale object 2, 400, 400, 400
// Make it almost white
color object 2, RGB(200, 200, 200)
// Position it lower
`position object 2, 0, -25, 0
// Rotate it
rotate object 2, 90, 0, 0

// Make randomly placed objects
if forcefeedback = 1
	Type CubeSpec
		Shocked as BOOLEAN
	EndType
	dim Cubes(120) as CubeSpec
endif
for Cube = 10 to 100
	Radius = 10+rnd(10)
	make object cube Cube, Radius
	position object Cube, -500+rnd(1000), 0, -500+rnd(1000)
	color object Cube, RGB(RND(255), RND(255), RND(255))
	point object Cube, 0,0,0
	if shadows = 1
		set shadow shading on Cube, 0, 200, 1
	endif
	`Automatic object collision Cube, Radius, 1 
Next Cube

// Make particles (Bomb)
make particles 1, 2, 100, 2.5
// Set parameters (Bomb)
set particle emissions 1, 0
set particle velocity 1, 20
set particle gravity 1, 5
set particle speed 1, 0.01
set particle life 1, 500
set particle chaos 1, 20
ghost particles on 1, 3

// Make particles (Smoke)
make particles 2, 3, 100, 50
// Set parameters (Smoke)
set particle emissions 2, 0
set particle velocity 2, 2
set particle gravity 2, 0
set particle speed 2, 0.05
set particle life 2, 100
ghost particles on 2, 3

center text screen width()/2, screen height()/2, "" : sync : sync : cls
center text screen width()/2, screen height()/2, "Press any key to ignite the bomb..." : sync : wait key : cls
center text screen width()/2, screen height()/2, "Bomb will ignite in 3..." : sync : wait 1000 : cls
center text screen width()/2, screen height()/2, "Bomb will ignite in 2..." : sync : wait 1000 : cls
center text screen width()/2, screen height()/2, "Bomb will ignite in 1..." : sync : wait 1000 : cls


scale# = 1
xx#    = 1
for x# = 0 to 600 step 0.5
	position camera camera position x(), camera position y(), camera position z()-(xx#*1.05)
	rotate camera 0, 0, 0
	point camera object position x(1), object position y(1), object position z(1)
	scale# = scale# * 1.05
	if x# < 10
		scale# = scale# * 1.05
		scale# = scale# * 1.05
		scale# = scale# * 1.05
	endif
	
	if x# > 10 and x# < 20
		if forcefeedback = 1
			FORCE SHOOT 100, 0
		endif
		set particle emissions 1, 50
		rotate camera camera angle x()-(3+rnd(6)), camera angle y()-(3+rnd(6)), camera angle z()-(3+rnd(6))
	endif
	
	if x# > 20 and x# < 40
		set particle emissions 1, 100
		rotate camera camera angle x()-(2+rnd(4)), camera angle y()-(2+rnd(4)), camera angle z()-(2+rnd(4))
	endif
	
	if x# > 20 and x# < 150
		for Cube = 10 to 100
			if object collision(Cube, 1)
				move object cube, -5
				rotate object Cube, object angle x(Cube), object angle y(Cube), object angle z(Cube)+Rnd(5)
				position object Cube, object position x(Cube), object position y(Cube)+rnd(15), object position z(Cube)
			endif
		next cube
	endif
	
	if x# > 40 and x# < 100
		if forcefeedback = 1
			FORCE SHOOT 50, 0
		endif
		set particle emissions 1, 5
		set particle emissions 2, 25
		rotate camera camera angle x()-(1+rnd(2)), camera angle y()-(1+rnd(2)), camera angle z()-(1+rnd(2))
	endif 
	
	if x# > 100 and x# < 150
		if forcefeedback = 1
			FORCE SHOOT 25, 10
		endif
		rotate camera camera angle x()-(0.5+rnd(1)), camera angle y()-(0.5+rnd(1)), camera angle z()-(0.5+rnd(1))
	endif
	
	if x# > 150
		inc Gravity#, 0.1
		for Cube = 10 to 100
			if object collision(Cube, 2) = 0
				position object Cube, object position x(Cube), object position y(Cube)-Gravity#, object position z(Cube)
			endif
			
			if forcefeedback = 1
				if object collision(Cube, 2) = 1
					if Cubes(Cube).Shocked = 0
						Cubes(Cube).Shocked = 1
						FORCE CHAINSAW 50, 1
					endif
				endif
			endif
		next Cube
		if forcefeedback = 1
			FORCE SHOOT 10, 100
		endif
		set camera to follow 0, 2000, 0, 30, 50, 0, 50.0, 0
	endif
	
	if x# > 200
		if forcefeedback = 1
			FORCE SHOOT 0, 0
		endif
	endif
	
	if x# > 130
		set particle emissions 2, 0
	endif
	
	if x# > 100
		if shadows = 1
			for Cube = 10 to 100
				`set shadow shading off Cube
			next Cube
		endif
	endif
	
	scale object 1, scale#, scale#, scale#
	
	// Debugging
	set cursor 0, 0
	print "x# = " + str$(x#)
	print "scale# = " + str$(scale#)
	print "scale# = " + str$(scale#/1000)
	print forcefeedback
	`for Cube = 10 to 100
		`print object collision(Cube, 1)
	`next cube
	if scale#/1000 < 70
		if shadows = 1
			set shadow position -1,0,scale#/1000,0	
		endif
	endif
	`Set object radius 1, scale# 
	
	sync
next x#

end

You're the

'th to view this signature!

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 15th May 2008 00:22

Link

It looks better now jeffhuys...no error given

Quote: "Well the ground is a plain. I want to do everything is 2D but I don't know how to work fill in the emptiness!"

I know that this is not the snippet area...sorry
Well... Darth Vader ...it is easy to make filled areas. This litle example is for you .

+ Code Snippet

autocam off
sync on
rem floor texture
for i= 1 to 4800
ink rgb(50,rnd(255),50),1
dot rnd(64),rnd(64)
next i
get image 1,0,0,64,64
cls

rem blue color for  the sky
ink rgb(0,100,230),1
box 0,0,1024,768

rem the sun
for i= 1 to 40
ink rgb(255,255,0),1
ellipse 200,140,i,i
next i
for i= 1 to 300
line 200,140,rnd(1000),rnd(1000)
next i

rem fill floor with grass
for i= 0 to 10
for a= 4 to 10
paste image 1,i*64,a*64
next a
next i

rem some mountains ************************************
for i= 1 to 150
ink rgb(65,45,35),1
line 340-i,120+i,340+i,120+i
rem ---------
ink rgb(80,50,40),1
line 60-i/0.3,120+i,60+i/0.3,120+i
rem ---------
ink rgb(85,75,70),1
line 180-i/0.5,120+i,180+i/0.5,120+i
next i
rem **************************************************
do
sync
loop

oh my god

Back to top

Profile PM Email

Must Program

18

Years of Service

User Offline

Joined: 22nd Nov 2007

Location:

Posted: 15th May 2008 20:51

Link

ive learnt more now and just to clarify what is the current challenge?

i can make a green sphere now

Back to top

Profile PM

Must Program

18

Years of Service

User Offline

Joined: 22nd Nov 2007

Location:

Posted: 15th May 2008 21:00

Link

omg i could make some objects on the floor but adding gravity is gona be hard but ill give it a try anyway just to get into a challenge

Back to top

Profile PM

Must Program

18

Years of Service

User Offline

Joined: 22nd Nov 2007

Location:

Posted: 15th May 2008 21:16

Link

well im new to programming i entered the competition late and i can only create spheres and cubes so i placed them as if the explosion has just happened and this is the freeze frame of it im havin problemes with my comp so i can't view them at the moment so im relying on getting it right. here it is so far.

+ Code Snippet

REM eXPlOsIOn
REM CREATED BY MUST PROGRAM
REM DATE CREATED: 15/05/08


MAKE OBJECT SPHERE 1,50
COLOR OBJECT 1,RGB(200,200,200

MAKE OBJECT SPHERE 2,50
COLOR OBJECT 2,RGB(200,100,200)
POSITION OBJECT 2, 2,100,50,00

MAKE OBJECT SPHERE 3,60
COLOR OBJECT 3,RGB(225,200,100)
POSITION OBJECT 3, 2,50,00,100

MAKE OBJECT CUBE 4,50,50,50,50
COLOR OBJECT 4,RGB(100,165,223)
POSITION OBJECT 4, 5,100,20,55

Back to top

Profile PM

jeffhuys

20

Years of Service

User Offline

Joined: 24th May 2006

Location: No cheesy line here.

Posted: 15th May 2008 23:13

Link

@Darth Vader:

Quote: "Okay attached is an .exe file in a zip, hopefully that it works!
"

It works now

I think it's because of synergy. It is dodgy sometimes. Anyway, nice explosion

Reminds me of a mobile game called "Attack of the Water Stealers"

Very cool!

@All:
Here's another new version, with a little shockwave and some "stayin' smoke"

Have fun. I don't know if this will be my last update, but I think so.

// 3D explosion
// By Jeff Huijsmans

Set text font "Arial"
Set text size 20

sync
Input "Use shadows? (1/0. 1 = yes. Recommended: 0) -> ", shadows
Sync on
Sync rate 30
Autocam off
Backdrop on
Color backdrop RGB(100, 100, 255)
Set camera range 0,025, 5000000

perform checklist for control devices
if checklist quantity() <> 0
	if checklist value A(1) <> 0
		forcefeedback = 1
	endif
endif

choice AS BOOLEAN
if forcefeedback = 1
	repeat
		center text screen width()/2, screen height()/2, "Do you want to use Force-Feedback?"
		center text screen width()/2, screen height()/2+20, "Left mouse button: Yes"
		center text screen width()/2, screen height()/2+40, "Right mouse button: No"
		mouse = mouseclick()
		if mouse <> 0
		   choice = 1
		endif
		sync
	until choice = 1
	
	if mouse = 2
		forcefeedback = 0
	endif
endif

// Generate media
// Yellow color
box 0,0,1,1,RGB(255,255,0),RGB(255,255,0),RGB(255,255,0),RGB(255,255,0)
get image 1, 0, 0, 1, 1
cls

// Rainbow shade color
box 0,0,100,100,RGB(255,155,0), RGB(155,255,0), RGB(255,55,0), RGB(255,55,0)
get image 2, 0, 0, 100, 100
cls

// Smoke
// Make a new bitmap to paint on
create bitmap 5,50,50
// Set the color of the smoke
ink rgb(250,200,100),0
// Make dots
for x=1 to 1000
angle = rnd(360)
radius = rnd(20)
dot 25 + sin(angle) * radius, 25 + cos(angle) * radius
next x
// Blur dots
blur bitmap 5,4
// Grab the image and put it in "3"
get image 3, 0, 0, 50, 50
// Get rid of the bitmap.
delete bitmap 5

cls

// Stayin' smoke
// Make a new bitmap to paint on
create bitmap 5,50,50
// Set the color of the smoke
ink rgb(255,255,255),0
// Make dots
for x=1 to 1000
angle = rnd(360)
radius = rnd(20)
dot 25 + sin(angle) * radius, 25 + cos(angle) * radius
next x
// Blur dots
blur bitmap 5,4
// Grab the image and put it in "8"
get image 8, 0, 0, 50, 50
// Get rid of the bitmap.
delete bitmap 5

cls

remstart

// Ground texture
// Make a new bitmap to paint on
create bitmap 5,50,50
// Set the color of the smoke
ink rgb(100,255,100),0
// Make dots
for x=1 to 1000
angle = rnd(360)
radius = rnd(20)
dot 25 + sin(angle) * radius, 25 + cos(angle) * radius
next x
// Blur dots
blur bitmap 5,4
// Grab the image and put it in "30"
get image 30, 0, 0, 50, 50
// Get rid of the bitmap.
delete bitmap 5

cls

remend

// Stripe (blurred a bit)
// Make a new bitmap to paint on
create bitmap 5,50,50
// Set the color of the smoke
ink rgb(250,200,100),0
// Make stripe
box 25, 12.5, 30, 25 + 12.5
// Grab the image and put it in "6"
get image 6, 0, 0, 50, 50
// Get rid of the bitmap.
delete bitmap 5

// Circle (blurred)
// Make a new bitmap to paint on
create bitmap 5,220,220
// Set the color of the circle
ink rgb(255,255,255),0
// Make circle
for diameter = 100 to 95 step -1
circle 105,105,diameter
next diameter
// Blur circle
blur bitmap 5,4
// Grab the image and put it in "7"

get image 7, 0, 0, 220, 220
// Get rid of the bitmap.
delete bitmap 5

// Make sphere
make object sphere 1, 1
// Texture it with yellow colour
texture object 1, 1
// Move camera slightly backwards
position camera 0, 200, -2000
point camera object position x(1), object position y(1), object position z(1)
// Make sphere transparent
ghost object on 1
// Make it collidable
Automatic object collision 1, 0, 1
`Set global collision on 
// Rainbowshade it with previous generated media
`set rainbow shading on 1, 2

// Make another sphere
make object sphere 111, 1
// Texture it with yellow colour
texture object 111, 1
// Make sphere transparent
ghost object on 111

// Make plain for floor
make object plain 2, 500, 500
// Texture it
`texture object 2, 30
// Scale it
scale object 2, 400, 400, 400
// Make it green-ish
color object 2, RGB(100, 255, 100)
// Position it lower
`position object 2, 0, -25, 0
// Rotate it
rotate object 2, 90, 0, 0

// Make plain for shockwave
make object plain 7, 500, 500
// Scale it
scale object 7, 1, 1, 1
// Position it slightly above the floor
position object 7, 0, 1, 0
// Rotate it
rotate object 7, 90, 0, 0
// Texture it with circle
texture object 7, 7
// Make it transparent
set object transparency 7, 1
ghost object on 7

// Make randomly placed objects
if forcefeedback = 1
	Type CubeSpec
		Shocked as BOOLEAN
	EndType
	dim Cubes(120) as CubeSpec
endif
for Cube = 10 to 100
	Radius = 10+rnd(10)
	make object cube Cube, Radius
	position object Cube, -1000+rnd(2000), 0, -1000+rnd(2000)
	color object Cube, RGB(RND(255), RND(255), RND(255))
	point object Cube, 0,0,0
	if shadows = 1
		set shadow shading on Cube, 0, 200, 1
	endif
	`Automatic object collision Cube, Radius, 1 
Next Cube

// Make particles (Bomb)
make particles 1, 2, 100, 2.5
// Set parameters (Bomb)
set particle emissions 1, 0
set particle velocity 1, 40
set particle gravity 1, 5
set particle speed 1, 0.01
set particle life 1, 500
set particle chaos 1, 2000
ghost particles on 1, 3

// Make particles (Smoke)
make particles 2, 3, 100, 50
// Set parameters (Smoke)
set particle emissions 2, 0
set particle velocity 2, 2
set particle gravity 2, 0
set particle speed 2, 0.05
set particle life 2, 100
ghost particles on 2, 3

// Make particles (Stayin' smoke)
make particles 3, 8, 100, 50
// Set parameters (Stayin' smoke)
set particle emissions 3, 0
set particle velocity 3, 2.5
set particle gravity 3, 0
set particle speed 3, 0 `.005
set particle life 3, 200
ghost particles on 3, 3

center text screen width()/2, screen height()/2, "" : sync : sync : cls
center text screen width()/2, screen height()/2, "Press any key to ignite the bomb..." : sync : wait key : cls
center text screen width()/2, screen height()/2, "Bomb will ignite in 3..." : sync : wait 1000 : cls
center text screen width()/2, screen height()/2, "Bomb will ignite in 2..." : sync : wait 1000 : cls
center text screen width()/2, screen height()/2, "Bomb will ignite in 1..." : sync : wait 1000 : cls

scale# = 1
scale2# = 1
xx#    = 1
boxfade# = 255

for ax# = 300000.0 to 0.0 step -5000
		set camera to follow 0, 10, 0, 300, 600, 150, 50.0, 0
		point camera object position x(1), object position y(1), object position z(1)
		scale object 1, ax#, ax#, ax#
		sync
	next ax#

for x# = 0 to 600 step 0.5
	set camera to follow 0, 10, 0, 300, 600, 150, 50.0, 0
	`position camera camera position x(), camera position y(), camera position z()-(xx#*1.05)
	rotate camera 0, 0, 0
	point camera object position x(1), object position y(1), object position z(1)
	scale# = scale# * 1.05
	if x# > 45
		scale2# = scale2# * 1.05
	endif
		
	if x# < 10
		scale# = scale# * 1.05
		scale# = scale# * 1.05
		scale# = scale# * 1.05
	endif
	if x# > 45 and x# < 55
		scale2# = scale2# * 1.05
		scale2# = scale2# * 1.05
		scale2# = scale2# * 1.05
	endif
	
	if x# > 10 and x# < 20
		if forcefeedback = 1
			FORCE SHOOT 100, 0
		endif
		set particle emissions 1, 50
		rotate camera camera angle x()-(3+rnd(6)), camera angle y()-(3+rnd(6)), camera angle z()-(3+rnd(6))
	endif
	
	if x# > 20 and x# < 40
		set particle emissions 1, 100
		rotate camera camera angle x()-(2+rnd(4)), camera angle y()-(2+rnd(4)), camera angle z()-(2+rnd(4))
	endif
	
	if x# > 20 and x# < 150
		for Cube = 10 to 100
			if object collision(Cube, 1)
				move object cube, -5
				rotate object Cube, object angle x(Cube), object angle y(Cube), object angle z(Cube)+Rnd(5)
				position object Cube, object position x(Cube), object position y(Cube)+rnd(15), object position z(Cube)
			endif
		next cube
	endif
	
	if x# > 40 and x# < 100
		if forcefeedback = 1
			FORCE SHOOT 50, 0
		endif
		set particle emissions 1, 5
		set particle emissions 2, 25
		set particle emissions 3, 1
		rotate camera camera angle x()-(1+rnd(2)), camera angle y()-(1+rnd(2)), camera angle z()-(1+rnd(2))
	endif 
	
	if x# > 100 and x# < 150
		set particle chaos 1, 20
		if forcefeedback = 1
			FORCE SHOOT 25, 10
		endif
		set particle emissions 3, 1
		rotate camera camera angle x()-(0.5+rnd(1)), camera angle y()-(0.5+rnd(1)), camera angle z()-(0.5+rnd(1))
		set particle speed 3, 0.001
	endif
	
	if x# > 150
		inc Gravity#, 0.1
		for Cube = 10 to 100
			if object collision(Cube, 2) = 0
				position object Cube, object position x(Cube), object position y(Cube)-Gravity#, object position z(Cube)
			endif
			
			if forcefeedback = 1
				if object collision(Cube, 2) = 1
					if Cubes(Cube).Shocked = 0
						Cubes(Cube).Shocked = 1
						FORCE CHAINSAW 50, 1
					endif
				endif
			endif
			
		next Cube
		if forcefeedback = 1
			FORCE SHOOT 10, 100
		endif
		set camera to follow 0, 100, 0, 50, 50, 0, 100.0, 0
		set particle emissions 3, 0
	endif
	
	if x# > 200
		if forcefeedback = 1
			FORCE SHOOT 0, 0
		endif
	endif
	
	if x# > 130
		set particle emissions 2, 0
	endif
	
	if x# > 100
		if shadows = 1
			for Cube = 10 to 100
				`set shadow shading off Cube
			next Cube
		endif
	endif
	
	if x# < 100
		scale object 1, scale#, scale#, scale#
		scale object 111, scale#*(-1), scale#*(-1), scale#*(-1)
		if x# > 45
			scale object 7, 0.4*scale2#*(-1), 0.4*scale2#*(-1), 0.4*scale2#*(-1)
		endif
	endif
	
	// Debugging
	`set cursor 0, 0
	`print "x# = " + str$(x#)
	`print "scale# = " + str$(scale#)
	`print "scale# = " + str$(scale#/1000)
	`print "scale# *(-1) = " + str$(scale#*(-1))
	`print screen fps()
	`print forcefeedback
	`for Cube = 10 to 100
		`print object collision(Cube, 1)
	`next cube
	if scale#/1000 < 70
		if shadows = 1
			set shadow position -1,0,scale#/1000,0	
		endif
	endif
	`Set object radius 1, scale# 
	
	if x# > 580
		set camera to image 0, 20, screen width(), screen height()
	endif
	
	sync
next x#

cls

end

+ Code Snippet

// 3D explosion
// By Jeff Huijsmans

Set text font "Arial"
Set text size 20

sync
Input "Use shadows? (1/0. 1 = yes. Recommended: 0) -> ", shadows
Sync on
Sync rate 30
Autocam off
Backdrop on
Color backdrop RGB(100, 100, 255)
Set camera range 0,025, 5000000

perform checklist for control devices
if checklist quantity() <> 0
	if checklist value A(1) <> 0
		forcefeedback = 1
	endif
endif

choice AS BOOLEAN
if forcefeedback = 1
	repeat
		center text screen width()/2, screen height()/2, "Do you want to use Force-Feedback?"
		center text screen width()/2, screen height()/2+20, "Left mouse button: Yes"
		center text screen width()/2, screen height()/2+40, "Right mouse button: No"
		mouse = mouseclick()
		if mouse <> 0
		   choice = 1
		endif
		sync
	until choice = 1
	
	if mouse = 2
		forcefeedback = 0
	endif
endif



// Generate media
// Yellow color
box 0,0,1,1,RGB(255,255,0),RGB(255,255,0),RGB(255,255,0),RGB(255,255,0)
get image 1, 0, 0, 1, 1
cls

// Rainbow shade color
box 0,0,100,100,RGB(255,155,0), RGB(155,255,0), RGB(255,55,0), RGB(255,55,0)
get image 2, 0, 0, 100, 100
cls

// Smoke
// Make a new bitmap to paint on
create bitmap 5,50,50
// Set the color of the smoke
ink rgb(250,200,100),0
// Make dots
for x=1 to 1000
angle = rnd(360)
radius = rnd(20)
dot 25 + sin(angle) * radius, 25 + cos(angle) * radius
next x
// Blur dots
blur bitmap 5,4
// Grab the image and put it in "3"
get image 3, 0, 0, 50, 50
// Get rid of the bitmap.
delete bitmap 5

cls

// Stayin' smoke
// Make a new bitmap to paint on
create bitmap 5,50,50
// Set the color of the smoke
ink rgb(255,255,255),0
// Make dots
for x=1 to 1000
angle = rnd(360)
radius = rnd(20)
dot 25 + sin(angle) * radius, 25 + cos(angle) * radius
next x
// Blur dots
blur bitmap 5,4
// Grab the image and put it in "8"
get image 8, 0, 0, 50, 50
// Get rid of the bitmap.
delete bitmap 5

cls

remstart

// Ground texture
// Make a new bitmap to paint on
create bitmap 5,50,50
// Set the color of the smoke
ink rgb(100,255,100),0
// Make dots
for x=1 to 1000
angle = rnd(360)
radius = rnd(20)
dot 25 + sin(angle) * radius, 25 + cos(angle) * radius
next x
// Blur dots
blur bitmap 5,4
// Grab the image and put it in "30"
get image 30, 0, 0, 50, 50
// Get rid of the bitmap.
delete bitmap 5

cls

remend

// Stripe (blurred a bit)
// Make a new bitmap to paint on
create bitmap 5,50,50
// Set the color of the smoke
ink rgb(250,200,100),0
// Make stripe
box 25, 12.5, 30, 25 + 12.5
// Grab the image and put it in "6"
get image 6, 0, 0, 50, 50
// Get rid of the bitmap.
delete bitmap 5

// Circle (blurred)
// Make a new bitmap to paint on
create bitmap 5,220,220
// Set the color of the circle
ink rgb(255,255,255),0
// Make circle
for diameter = 100 to 95 step -1
circle 105,105,diameter
next diameter
// Blur circle
blur bitmap 5,4
// Grab the image and put it in "7"

get image 7, 0, 0, 220, 220
// Get rid of the bitmap.
delete bitmap 5

// Make sphere
make object sphere 1, 1
// Texture it with yellow colour
texture object 1, 1
// Move camera slightly backwards
position camera 0, 200, -2000
point camera object position x(1), object position y(1), object position z(1)
// Make sphere transparent
ghost object on 1
// Make it collidable
Automatic object collision 1, 0, 1
`Set global collision on 
// Rainbowshade it with previous generated media
`set rainbow shading on 1, 2

// Make another sphere
make object sphere 111, 1
// Texture it with yellow colour
texture object 111, 1
// Make sphere transparent
ghost object on 111

// Make plain for floor
make object plain 2, 500, 500
// Texture it
`texture object 2, 30
// Scale it
scale object 2, 400, 400, 400
// Make it green-ish
color object 2, RGB(100, 255, 100)
// Position it lower
`position object 2, 0, -25, 0
// Rotate it
rotate object 2, 90, 0, 0

// Make plain for shockwave
make object plain 7, 500, 500
// Scale it
scale object 7, 1, 1, 1
// Position it slightly above the floor
position object 7, 0, 1, 0
// Rotate it
rotate object 7, 90, 0, 0
// Texture it with circle
texture object 7, 7
// Make it transparent
set object transparency 7, 1
ghost object on 7

// Make randomly placed objects
if forcefeedback = 1
	Type CubeSpec
		Shocked as BOOLEAN
	EndType
	dim Cubes(120) as CubeSpec
endif
for Cube = 10 to 100
	Radius = 10+rnd(10)
	make object cube Cube, Radius
	position object Cube, -1000+rnd(2000), 0, -1000+rnd(2000)
	color object Cube, RGB(RND(255), RND(255), RND(255))
	point object Cube, 0,0,0
	if shadows = 1
		set shadow shading on Cube, 0, 200, 1
	endif
	`Automatic object collision Cube, Radius, 1 
Next Cube

// Make particles (Bomb)
make particles 1, 2, 100, 2.5
// Set parameters (Bomb)
set particle emissions 1, 0
set particle velocity 1, 40
set particle gravity 1, 5
set particle speed 1, 0.01
set particle life 1, 500
set particle chaos 1, 2000
ghost particles on 1, 3

// Make particles (Smoke)
make particles 2, 3, 100, 50
// Set parameters (Smoke)
set particle emissions 2, 0
set particle velocity 2, 2
set particle gravity 2, 0
set particle speed 2, 0.05
set particle life 2, 100
ghost particles on 2, 3

// Make particles (Stayin' smoke)
make particles 3, 8, 100, 50
// Set parameters (Stayin' smoke)
set particle emissions 3, 0
set particle velocity 3, 2.5
set particle gravity 3, 0
set particle speed 3, 0 `.005
set particle life 3, 200
ghost particles on 3, 3


center text screen width()/2, screen height()/2, "" : sync : sync : cls
center text screen width()/2, screen height()/2, "Press any key to ignite the bomb..." : sync : wait key : cls
center text screen width()/2, screen height()/2, "Bomb will ignite in 3..." : sync : wait 1000 : cls
center text screen width()/2, screen height()/2, "Bomb will ignite in 2..." : sync : wait 1000 : cls
center text screen width()/2, screen height()/2, "Bomb will ignite in 1..." : sync : wait 1000 : cls


scale# = 1
scale2# = 1
xx#    = 1
boxfade# = 255

	for ax# = 300000.0 to 0.0 step -5000
		set camera to follow 0, 10, 0, 300, 600, 150, 50.0, 0
		point camera object position x(1), object position y(1), object position z(1)
		scale object 1, ax#, ax#, ax#
		sync
	next ax#

for x# = 0 to 600 step 0.5
	set camera to follow 0, 10, 0, 300, 600, 150, 50.0, 0
	`position camera camera position x(), camera position y(), camera position z()-(xx#*1.05)
	rotate camera 0, 0, 0
	point camera object position x(1), object position y(1), object position z(1)
	scale# = scale# * 1.05
	if x# > 45
		scale2# = scale2# * 1.05
	endif
		
	if x# < 10
		scale# = scale# * 1.05
		scale# = scale# * 1.05
		scale# = scale# * 1.05
	endif
	if x# > 45 and x# < 55
		scale2# = scale2# * 1.05
		scale2# = scale2# * 1.05
		scale2# = scale2# * 1.05
	endif
	
	if x# > 10 and x# < 20
		if forcefeedback = 1
			FORCE SHOOT 100, 0
		endif
		set particle emissions 1, 50
		rotate camera camera angle x()-(3+rnd(6)), camera angle y()-(3+rnd(6)), camera angle z()-(3+rnd(6))
	endif
	
	if x# > 20 and x# < 40
		set particle emissions 1, 100
		rotate camera camera angle x()-(2+rnd(4)), camera angle y()-(2+rnd(4)), camera angle z()-(2+rnd(4))
	endif
	
	if x# > 20 and x# < 150
		for Cube = 10 to 100
			if object collision(Cube, 1)
				move object cube, -5
				rotate object Cube, object angle x(Cube), object angle y(Cube), object angle z(Cube)+Rnd(5)
				position object Cube, object position x(Cube), object position y(Cube)+rnd(15), object position z(Cube)
			endif
		next cube
	endif
	
	if x# > 40 and x# < 100
		if forcefeedback = 1
			FORCE SHOOT 50, 0
		endif
		set particle emissions 1, 5
		set particle emissions 2, 25
		set particle emissions 3, 1
		rotate camera camera angle x()-(1+rnd(2)), camera angle y()-(1+rnd(2)), camera angle z()-(1+rnd(2))
	endif 
	
	if x# > 100 and x# < 150
		set particle chaos 1, 20
		if forcefeedback = 1
			FORCE SHOOT 25, 10
		endif
		set particle emissions 3, 1
		rotate camera camera angle x()-(0.5+rnd(1)), camera angle y()-(0.5+rnd(1)), camera angle z()-(0.5+rnd(1))
		set particle speed 3, 0.001
	endif
	
	if x# > 150
		inc Gravity#, 0.1
		for Cube = 10 to 100
			if object collision(Cube, 2) = 0
				position object Cube, object position x(Cube), object position y(Cube)-Gravity#, object position z(Cube)
			endif
			
			if forcefeedback = 1
				if object collision(Cube, 2) = 1
					if Cubes(Cube).Shocked = 0
						Cubes(Cube).Shocked = 1
						FORCE CHAINSAW 50, 1
					endif
				endif
			endif
			
		next Cube
		if forcefeedback = 1
			FORCE SHOOT 10, 100
		endif
		set camera to follow 0, 100, 0, 50, 50, 0, 100.0, 0
		set particle emissions 3, 0
	endif
	
	if x# > 200
		if forcefeedback = 1
			FORCE SHOOT 0, 0
		endif
	endif
	
	if x# > 130
		set particle emissions 2, 0
	endif
	
	if x# > 100
		if shadows = 1
			for Cube = 10 to 100
				`set shadow shading off Cube
			next Cube
		endif
	endif
	
	if x# < 100
		scale object 1, scale#, scale#, scale#
		scale object 111, scale#*(-1), scale#*(-1), scale#*(-1)
		if x# > 45
			scale object 7, 0.4*scale2#*(-1), 0.4*scale2#*(-1), 0.4*scale2#*(-1)
		endif
	endif
	
	// Debugging
	`set cursor 0, 0
	`print "x# = " + str$(x#)
	`print "scale# = " + str$(scale#)
	`print "scale# = " + str$(scale#/1000)
	`print "scale# *(-1) = " + str$(scale#*(-1))
	`print screen fps()
	`print forcefeedback
	`for Cube = 10 to 100
		`print object collision(Cube, 1)
	`next cube
	if scale#/1000 < 70
		if shadows = 1
			set shadow position -1,0,scale#/1000,0	
		endif
	endif
	`Set object radius 1, scale# 
	
	if x# > 580
		set camera to image 0, 20, screen width(), screen height()
	endif
	
	sync
next x#

cls

end

Cheers!

Jeff

You're the

'th to view this signature!

Back to top

Profile PM Email

BMacZero

20

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 16th May 2008 02:01

Link

@Must Program:
Test your code before you post it please

. You forgot some brackets and your program has no conditions that keep it running - when it finishes making the objects it will just quit. Try a WAIT KEY command at the end.

@jeff
Wow! Lots of cool new features you have there! The shockwave is impressive. The shadows are pretty cool too. I'm not sure if I really like the smoke though, it looks pretty fake. Maybe if you just allowed it to rise in a constant stream, and made it move a bit faster, it would be more realistic.

Unterseeboot - Has you played it?
Los Mineros are on leave...

Back to top

Profile PM Email Website

Darth Vader

21

Years of Service

User Offline

Joined: 10th May 2005

Location: Adelaide SA, I am the only DB user here!

Posted: 16th May 2008 04:01

Link

@jeff. Thanks! I'm deciding what effect to add next. Ran out of ideas! Your new explosion is really cool, and the shockwave is awesome! Can't try it with shadows as my computer currently doesn't have PS 1! But I'm sure it would look even more awesome!

Back to top

Profile PM Email Website

Must Program

18

Years of Service

User Offline

Joined: 22nd Nov 2007

Location:

Posted: 16th May 2008 20:38

Link

oops where did i forget brackets and i cant view them atm because im having problems with my comp. And ill add a loop at the end so you can see it for longer sorry about that but i will fix it soon hopefully.

Back to top

Profile PM

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 16th May 2008 22:16

Link

@jeffhuys:
yeah, I know that water stealers game, I played non-stop for a whole day but then I had to sleep and when I woke up the next morning they stole all my water

@all:
I'm kindof a beginner but I'm going to enter this challenge too. The only thing is I'm typing this on my cellphone so I can't upload the code... Maybe tomorrow... Hope that's not too late

Happy, always happy!

Back to top

Profile PM Website

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 17th May 2008 01:14

Link

Ok, so I worked very hard tonight and I will now submit my explosion:

Rem Project: MyExplosion
Rem Created: 13/05/2008 7:29:54 PM
Rem By sinisterstuf
         `yeah, the forum settings don't allow my name like that because
         `it's apparantly too long. What a pity. Hope you like this program!

Rem the textures for the sparks
CREATE BITMAP 1,16,16
x1=7
x2=8
REPEAT
   LINE 0,y,15,y
   INC y
   IF x1=0 THEN flag=1
   IF flag=0 THEN DEC x1 : INC x2
   IF flag=1 THEN INC x1 : DEC x2
UNTIL y=15
GET IMAGE 1,0,0,15,15
CLS
SET CURRENT BITMAP 0

Rem the box is on a surface
MAKE OBJECT PLAIN 2,200,200
ROTATE OBJECT 2,270,0,0
COLOR OBJECT 2,RGB(223,157,2)

Rem I don't like the blue background but what can I do?
MAKE OBJECT SPHERE 8,400
POSITION OBJECT 8,0,0,0
COLOR OBJECT 8,RGB(0,0,0)
SET OBJECT CULL 8,0

Rem the box with explosives in:
make_face(3,0,10,0,270,0,0) `the box's detachable top face
make_face(4,5,5,0,0,90,0) `the box's detachable right face
make_face(5,0,5,-5,0,0,0) `the box's detachable front face
make_face(6,-5,5,0,0,-90,0) `the box's detachable left face
make_face(7,0,5,5,0,180,0) `the box's detachable back face

Rem sparks will fly out of the box
MAKE PARTICLES 1,1,30,30
SET PARTICLE VELOCITY 1,5
SET PARTICLE GRAVITY 1,1
SET PARTICLE LIFE 1,50
HIDE PARTICLES 1

Rem and a massive explosion shockwave
MAKE OBJECT SPHERE 1,5
COLOR OBJECT 1,RGB(255,255,0)
POSITION OBJECT 1,0,2,0
GHOST OBJECT ON 1
Rem and this light:
MAKE LIGHT 2
SET POINT LIGHT 2,0,2,0
COLOR LIGHT 2,250,250,200
SET LIGHT RANGE 2,1
HIDE LIGHT 2

Rem this is supposed to make the box look cooler...
MAKE LIGHT 1
SET SPOT LIGHT 1,5,10
POSITION LIGHT 1,100,50,-100
COLOR LIGHT 1,235,235,170
SET LIGHT RANGE 1,50
POINT LIGHT 1,30,5,-30

Rem position a camera
POSITION CAMERA 0,55,35,-100
POINT CAMERA 0,0,0,0

`these are some variables for the explosion loop
hor#=5
scale#=5
flag=0
count=1

Rem you get to choose fast or slowmo!!!
REPEAT
   IF MOUSECLICK()=1 THEN flag=1
   IF MOUSECLICK()=2 THEN flag=2
   TEXT 150,150,"CLICK TO DETONATE THE BOMB IN THE BOX"
   TEXT 200,400,"[RIGHT-CLICK FOR SLOW MOTION]"
UNTIL flag>0
IF flag=1 THEN scaleup#=64 : rotup#=2 : verup#=1 : horup#=.5 : parspeed#=0.008 : split=25
IF flag=2 THEN scaleup#=16 : rotup#=.5 : verup#=.25 : horup#=.125 : parspeed#=0.002 : split=100
flag=0

`makes eplosion light and particles visible. duh.
SHOW PARTICLES 1
SHOW LIGHT 2
SET PARTICLE SPEED 1,parspeed#

Rem this is so that escape will delete all objects on exit; escape end loop below
DISABLE ESCAPEKEY

```````````````````````````````***MAIN LOOP***```````````````````````````````
REPEAT
`increments all movement variables
   INC scale#,scaleup#
   INC rot#,rotup#
   INC ver#,verup#
   INC hor#,horup#
   INC count

`"randomly" spins the box's faces
   ROTATE OBJECT 3,rot#,2rot#,rot#
   ROTATE OBJECT 4,2rot#,rot#,rot#/2
   ROTATE OBJECT 5,rot#,rot#,2rot#
   ROTATE OBJECT 6,rot#,3rot#,rot#
   ROTATE OBJECT 7,3rot#,rot#,rot#

`makes the faces fly apart
   POSITION OBJECT 3,0,ver#+10,0
   POSITION OBJECT 4,ver#,hor#,5
   POSITION OBJECT 5,-5,hor#,ver#
   POSITION OBJECT 6,-ver#,hor#,-5
   POSITION OBJECT 7,5,hor#,-ver#

`light and ghosted sphere expand with explosion
   SCALE OBJECT 1,scale#,scale#,scale#
   SET LIGHT RANGE 2,scale#

`yellow then white particles are produced
   IF count=split THEN COLOR PARTICLES 1,255,255,0
   IF count=(2*split) THEN SET PARTICLE EMISSIONS 1,0

UNTIL ESCAPEKEY()=1

`yes, sadly everything has to be deleted again ;)
DELETE PARTICLES 1
DELETE IMAGE 1
DELETE BITMAP 1
DELETE LIGHT 1
DELETE LIGHT 2
count=1
REPEAT
   DELETE OBJECT count
   INC count
UNTIL count=8

Rem This is for making cube faces:
FUNCTION make_face(n,a,b,c,d,e,f)
MAKE OBJECT PLAIN n,10,10
POSITION OBJECT n,a,b,c
ROTATE OBJECT n,d,e,f
COLOR OBJECT n,RGB(155,78,0)
ENDFUNCTION

+ Code Snippet

Rem Project: MyExplosion
Rem Created: 13/05/2008 7:29:54 PM
Rem By sinisterstuf
         `yeah, the forum settings don't allow my name like that because
         `it's apparantly too long. What a pity. Hope you like this program!

Rem the textures for the sparks
CREATE BITMAP 1,16,16
x1=7
x2=8
REPEAT
   LINE 0,y,15,y
   INC y
   IF x1=0 THEN flag=1
   IF flag=0 THEN DEC x1 : INC x2
   IF flag=1 THEN INC x1 : DEC x2
UNTIL y=15
GET IMAGE 1,0,0,15,15
CLS
SET CURRENT BITMAP 0

Rem the box is on a surface
MAKE OBJECT PLAIN 2,200,200
ROTATE OBJECT 2,270,0,0
COLOR OBJECT 2,RGB(223,157,2)

Rem I don't like the blue background but what can I do?
MAKE OBJECT SPHERE 8,400
POSITION OBJECT 8,0,0,0
COLOR OBJECT 8,RGB(0,0,0)
SET OBJECT CULL 8,0

Rem the box with explosives in:
make_face(3,0,10,0,270,0,0) `the box's detachable top face
make_face(4,5,5,0,0,90,0) `the box's detachable right face
make_face(5,0,5,-5,0,0,0) `the box's detachable front face
make_face(6,-5,5,0,0,-90,0) `the box's detachable left face
make_face(7,0,5,5,0,180,0) `the box's detachable back face

Rem sparks will fly out of the box
MAKE PARTICLES 1,1,30,30
SET PARTICLE VELOCITY 1,5
SET PARTICLE GRAVITY 1,1
SET PARTICLE LIFE 1,50
HIDE PARTICLES 1

Rem and a massive explosion shockwave
MAKE OBJECT SPHERE 1,5
COLOR OBJECT 1,RGB(255,255,0)
POSITION OBJECT 1,0,2,0
GHOST OBJECT ON 1
Rem and this light:
MAKE LIGHT 2
SET POINT LIGHT 2,0,2,0
COLOR LIGHT 2,250,250,200
SET LIGHT RANGE 2,1
HIDE LIGHT 2

Rem this is supposed to make the box look cooler...
MAKE LIGHT 1
SET SPOT LIGHT 1,5,10
POSITION LIGHT 1,100,50,-100
COLOR LIGHT 1,235,235,170
SET LIGHT RANGE 1,50
POINT LIGHT 1,30,5,-30

Rem position a camera
POSITION CAMERA 0,55,35,-100
POINT CAMERA 0,0,0,0

`these are some variables for the explosion loop
hor#=5
scale#=5
flag=0
count=1

Rem you get to choose fast or slowmo!!!
REPEAT
   IF MOUSECLICK()=1 THEN flag=1
   IF MOUSECLICK()=2 THEN flag=2
   TEXT 150,150,"CLICK TO DETONATE THE BOMB IN THE BOX"
   TEXT 200,400,"[RIGHT-CLICK FOR SLOW MOTION]"
UNTIL flag>0
IF flag=1 THEN scaleup#=64 : rotup#=2 : verup#=1 : horup#=.5 : parspeed#=0.008 : split=25
IF flag=2 THEN scaleup#=16 : rotup#=.5 : verup#=.25 : horup#=.125 : parspeed#=0.002 : split=100
flag=0

`makes eplosion light and particles visible. duh.
SHOW PARTICLES 1
SHOW LIGHT 2
SET PARTICLE SPEED 1,parspeed#

Rem this is so that escape will delete all objects on exit; escape end loop below
DISABLE ESCAPEKEY

```````````````````````````````***MAIN LOOP***```````````````````````````````
REPEAT
`increments all movement variables
   INC scale#,scaleup#
   INC rot#,rotup#
   INC ver#,verup#
   INC hor#,horup#
   INC count

`"randomly" spins the box's faces
   ROTATE OBJECT 3,rot#,2rot#,rot#
   ROTATE OBJECT 4,2rot#,rot#,rot#/2
   ROTATE OBJECT 5,rot#,rot#,2rot#
   ROTATE OBJECT 6,rot#,3rot#,rot#
   ROTATE OBJECT 7,3rot#,rot#,rot#

`makes the faces fly apart
   POSITION OBJECT 3,0,ver#+10,0
   POSITION OBJECT 4,ver#,hor#,5
   POSITION OBJECT 5,-5,hor#,ver#
   POSITION OBJECT 6,-ver#,hor#,-5
   POSITION OBJECT 7,5,hor#,-ver#

`light and ghosted sphere expand with explosion
   SCALE OBJECT 1,scale#,scale#,scale#
   SET LIGHT RANGE 2,scale#

`yellow then white particles are produced
   IF count=split THEN COLOR PARTICLES 1,255,255,0
   IF count=(2*split) THEN SET PARTICLE EMISSIONS 1,0

UNTIL ESCAPEKEY()=1

`yes, sadly everything has to be deleted again ;)
DELETE PARTICLES 1
DELETE IMAGE 1
DELETE BITMAP 1
DELETE LIGHT 1
DELETE LIGHT 2
count=1
REPEAT
   DELETE OBJECT count
   INC count
UNTIL count=8

Rem This is for making cube faces:
FUNCTION make_face(n,a,b,c,d,e,f)
MAKE OBJECT PLAIN n,10,10
POSITION OBJECT n,a,b,c
ROTATE OBJECT n,d,e,f
COLOR OBJECT n,RGB(155,78,0)
ENDFUNCTION

Because I'm kindof a beginner there was a lot of stuff that I couldn't because I just couldn't, like making smoke at the end and rotating the camera around the box. I also had the pieces fall down again but I took it out because it looked dumb. Well I hope someone looks at this!

and also if my code is messy then sorry

Happy, always happy!

Back to top

Profile PM Website

BMacZero

20

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 17th May 2008 02:04

Link

Ohh, that's cool! I did have to change two things though - around line 105 you used '2rot#', which the compiler didn't like. I assumed that was supposed to be '2*rot#" so I changed it and it worked. Also, just a minor thing, but add an END before your function or the program complains at you when you press escape.

All these look pretty good, I'm going to have a hard time judging them. I'll probably do it tommorow morning, so a little time to add last minute effects!

Unterseeboot - Has you played it?
Los Mineros are on leave...

Back to top

Profile PM Email Website

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 17th May 2008 10:08

Link

@Sinister Stuff - Really very good, I liked it a lot.
Nice Job! - Slow Motion was my favorite.

Back to top

Profile PM Email

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 17th May 2008 12:25

Link

Thanks guys!

@bmaczero
er... Would you mind waiting a bit with the judging? Cos I need to fix stuff and improve stuff but I have lot's of work to do and that only finishes at 13:00

please, have mercy

Happy, always happy!

Back to top

Profile PM Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 17th May 2008 12:41

Link

Wow !! Sinister Stuff ...it looks great !!...I say the same as BillR...Slow Motion looks as a terrible deflagration...ha ha...I´ll keep it.

cheers.

oh my god

Back to top

Profile PM Email

BMacZero

20

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 17th May 2008 16:14

Link

Sorry, nvm about the judging, I though the challenge ended on the 16th, it's actually on the 18th.

So you have some time

Unterseeboot - Has you played it?
Los Mineros are on leave...

Back to top

Profile PM Email Website

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 17th May 2008 17:46

Link

Ok *huge sigh of relief*
I will hopefully submit an improved version later today, like sometime around 10 oclock... Is that fine?

Happy, always happy!

Back to top

Profile PM Website

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 17th May 2008 17:53

Link

Oh and by the way, jeffhuys, I really liked your explosion, it was so cool it made me want to do a backflip... The only thing is, I don't know if maybe my DBpro is old or something but I had to remove these shadow commands because it said error: unkown command or something like that...

Happy, always happy!

Back to top

Profile PM Website

BMacZero

20

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 17th May 2008 23:38

Link

All good, Sinister Stuff, I won't be judging until Monday morning around 7:00 AM (Pacific Time)

Unterseeboot - Has you played it?
Los Mineros are on leave...

Back to top

Profile PM Email Website

Penfold

22

Years of Service

User Offline

Joined: 3rd Dec 2003

Location: RED postbox houses of parliment

Posted: 18th May 2008 00:35

Link

ooh good I might get a go at this then.

might give me chance to figure out how to do black textured particles and how to soft kill them (ie not just make them disapear but get to the end of there life) and also to get the count of particels down to under a zillion on screen at once (will prolly have to make a few textured plains instead?)

anywho.. I will have something..

'Ooh 'eck chief'...'crumbs'

Back to top

Profile PM

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 18th May 2008 03:10 Edited at: 18th May 2008 03:13

Link

Ok, so i's 1:00 AM and I'm very tired. This will probably be my final version... I like it a lot though.

Rem Project: MyExplosion
Rem Created: 13/05/2008 7:29:54 PM
Rem Author: sinisterstuf
         `yeah, the forum settings don't allow my name like that because
         `it's apparantly too long. What a pity. Hope you like this program!

Rem setup
HIDE MOUSE
AUTOCAM OFF
SYNC ON
SYNC RATE 120

Rem the textures for the sparks
CREATE BITMAP 1,16,16
x1=7
x2=8
REPEAT
   LINE 0,y,15,y
   INC y
   IF x1=0 THEN flag=1
   IF flag=0 THEN DEC x1 : INC x2
   IF flag=1 THEN INC x1 : DEC x2
UNTIL y=15
GET IMAGE 1,0,0,15,15
CLS
SET CURRENT BITMAP 0

Rem the box is on a surface
MAKE OBJECT PLAIN 2,270,270
ROTATE OBJECT 2,270,0,0
COLOR OBJECT 2,RGB(223,157,2)

Rem this is an extra box for physics fun!
MAKE OBJECT CUBE 9,10
POSITION OBJECT 9,30,5,30
COLOR OBJECT 9,RGB(155,78,0)
HIDE OBJECT 9

Rem I don't like the blue background but what can I do?
MAKE OBJECT SPHERE 8,500
POSITION OBJECT 8,0,0,0
COLOR OBJECT 8,RGB(0,0,0)
SET OBJECT CULL 8,0
SET OBJECT SPECULAR 8,RGB(0,0,0)
SET OBJECT DIFFUSE 8,RGB(0,0,0)

Rem the box with explosives in:
make_face(3,0,10,0,270,0,0) `the box's detachable top face
make_face(4,5,5,0,0,90,0) `the box's detachable right face
make_face(5,0,5,-5,0,0,0) `the box's detachable front face
make_face(6,-5,5,0,0,-90,0) `the box's detachable left face
make_face(7,0,5,5,0,180,0) `the box's detachable back face

Rem sparks will fly out of the box
MAKE PARTICLES 1,1,30,30
SET PARTICLE VELOCITY 1,5
SET PARTICLE GRAVITY 1,1
SET PARTICLE LIFE 1,50
HIDE PARTICLES 1
MAKE PARTICLES 3,1,30,30
SET PARTICLE VELOCITY 3,1
SET PARTICLE GRAVITY 3,1
SET PARTICLE LIFE 3,50
HIDE PARTICLES 3
MAKE PARTICLES 4,1,30,30
SET PARTICLE VELOCITY 4,1
SET PARTICLE GRAVITY 4,0
SET PARTICLE LIFE 4,25
HIDE PARTICLES 4
MAKE PARTICLES 5,1,30,30
SET PARTICLE VELOCITY 5,10
SET PARTICLE GRAVITY 5,5
SET PARTICLE LIFE 5,25
HIDE PARTICLES 5

Rem and a massive explosion shockwave
MAKE OBJECT SPHERE 1,5
COLOR OBJECT 1,RGB(255,255,0)
POSITION OBJECT 1,0,2,0
GHOST OBJECT ON 1
Rem and this light:
MAKE LIGHT 2
SET POINT LIGHT 2,0,2,0
COLOR LIGHT 2,250,250,200
SET LIGHT RANGE 2,1
HIDE LIGHT 2

Rem and smoke from the ground at the end
MAKE PARTICLES 2,1,50,50
COLOR PARTICLES 2,20,20,20
POSITION PARTICLES 2,0,-10,0
SET PARTICLE EMISSIONS 2,1
SET PARTICLE GRAVITY 2,-10
SET PARTICLE VELOCITY 2,1
SET PARTICLE SPEED 2,0.001
GHOST PARTICLES ON 2,3
HIDE PARTICLES 2

Rem this is supposed to make the box look cooler...
MAKE LIGHT 1
SET SPOT LIGHT 1,5,10
POSITION LIGHT 1,100,30,-100
COLOR LIGHT 1,235,235,170
SET LIGHT RANGE 1,50
POINT LIGHT 1,30,5,-30

Rem position a camera
POSITION CAMERA 0,55,35,-100
POINT CAMERA 0,0,0,0

Rem these are some variables for the explosion loop
hor#=5
scale#=5
flag=0
count=1
camrot#=5
up#=10
bncflag=0
parcol=20

Rem you now get to choose a whole load of effects!!!
REPEAT
   IF MOUSECLICK()=1 THEN flag=1
   IF MOUSECLICK()=2 THEN flag=2 : slowmoflag=1
   IF SPACEKEY()=1 AND b=0
      IF CONTROLKEY()=1 THEN boxprop=1
      b=1 : WAIT 300
      SHOW OBJECT 9
      xpos#=30 : ypos#=5 : zpos#=30
      REPEAT
         TEXT 150,90,"ARROW KEYS TO POSITION"
         TEXT 150,120,"SPACEBAR TO CONFIRM"
         IF UPKEY()=1 THEN INC zpos#,0.1
         IF DOWNKEY()=1 THEN DEC zpos#,0.1
         IF LEFTKEY()=1 THEN DEC xpos#,0.1
         IF RIGHTKEY()=1 THEN INC xpos#,0.1
         IF OBJECT HIT(9,4) THEN INC xpos#,0.1
         IF OBJECT HIT(9,5) THEN DEC zpos#,0.1
         IF OBJECT HIT(9,6) THEN DEC xpos#,0.1
         IF OBJECT HIT(9,7) THEN INC zpos#,0.1
         POSITION OBJECT 9,xpos#,ypos#,zpos#
         SYNC
      UNTIL SPACEKEY()=1
      POINT OBJECT 9,0,5,0
   ENDIF
   IF RETURNKEY()=1 AND spin=0 THEN spin=1 : WAIT 300
   IF RETURNKEY()=1 AND spin=1 THEN spin=0 : WAIT 300
   IF UPKEY()=1 AND CAMERA POSITION Y()>10 THEN MOVE CAMERA 1
   IF DOWNKEY()=1 AND CAMERA POSITION Y()<40 THEN XROTATE CAMERA 17 : MOVE CAMERA -1
   IF spin=0
      camrot#=CAMERA ANGLE Y()
      ROTATE CAMERA 0,0,(camrot#+90),0
      MOVE CAMERA 2
      ROTATE CAMERA 0,0,(camrot#-90),0
      POINT CAMERA 0,0,0
   ENDIF
   TEXT 150,150,"CLICK TO DETONATE THE BOMB IN THE BOX"
   TEXT 200,290,"[RIGHT-CLICK FOR SLOW MOTION]"
   TEXT 200,320,"[SPACEBAR TO ADD A BOX]"
   TEXT 200,350,"[CTRL+SPACEBAR TO ADD A WEIGHTED BOX]"
   TEXT 200,380,"[ARROW KEYS TO MOVE BOX]"
   TEXT 200,410,"[ARROW KEYS TO ZOOM]"
   TEXT 200,440,"[ENTER TO TOGGLE CAMERA ROTATION]"
   SYNC
UNTIL flag>0
IF flag=1 THEN scaleup#=64 : rotup#=2 : verup#=1 : horup#=.5 : parspeed#=0.008 : split=25 : camspeed#=2
IF flag=2 THEN scaleup#=16 : rotup#=.5 : verup#=.25 : horup#=.125 : parspeed#=0.002 : split=100 : camspeed#=0.5
flag=0

`makes explosion light and particles visible. duh.
SHOW PARTICLES 1
SET PARTICLE SPEED 1,parspeed#
SHOW PARTICLES 3
SET PARTICLE SPEED 3,parspeed#
SHOW PARTICLES 4
SET PARTICLE SPEED 4,parspeed#
SHOW PARTICLES 5
SET PARTICLE SPEED 5,parspeed#
SHOW LIGHT 2

Rem this is so that escape will delete all objects on exit; escape end loop below
DISABLE ESCAPEKEY

```````````````````````````````***MAIN LOOP***```````````````````````````````
REPEAT
`increments all movement variables
   INC scale#,scaleup#
   INC rot#,rotup#
   INC ver#,verup#
   INC hor#,horup#
   IF flag=0 THEN INC up#,verup#
   IF flag=1 THEN DEC up#,(verup#/2)
   INC count

`"randomly" spins the box's faces
   IF flag<3 THEN ROTATE OBJECT 3,rot#,(2*rot#),rot#
   ROTATE OBJECT 4,(2*rot#),rot#,(rot#/2)
   ROTATE OBJECT 5,rot#,rot#,(2*rot#)
   ROTATE OBJECT 6,rot#,(3*rot#),rot#
   ROTATE OBJECT 7,(3*rot#),rot#,rot#

`makes the faces fly apart
   IF flag<3 THEN POSITION OBJECT 3,0,up#,0
   POSITION OBJECT 4,ver#,hor#,5
   POSITION OBJECT 5,-5,hor#,ver#
   POSITION OBJECT 6,-ver#,hor#,-5
   POSITION OBJECT 7,5,hor#,-ver#

`light and ghosted sphere expand with explosion
   SCALE OBJECT 1,scale#,scale#,scale#
   SET LIGHT RANGE 2,scale#

`yellow then white particles are produced ...and some other timed effects too
   IF count=split THEN COLOR PARTICLES 1,255,255,0 : COLOR PARTICLES 3,255,255,0 : COLOR PARTICLES 4,255,255,0 : COLOR PARTICLES 5,255,255,0
   IF count=(2*split) THEN SET PARTICLE EMISSIONS 1,0 : SET PARTICLE EMISSIONS 3,0 : SET PARTICLE EMISSIONS 4,0 : SET PARTICLE EMISSIONS 5,0
   IF count=(4*split) THEN flag=1 : smoke=1
   IF smoke=1
      IF smokeon=0 THEN SHOW PARTICLES 2 : smokeon=1
      ROTATE PARTICLES 2,0,-rot#,0
      IF emit=8 AND emitf=0 THEN emitf=1
      IF emit=-8 AND emitf=1 THEN emitf=0
      IF emit<8 AND emitf=0 THEN INC emit
      IF emit>-8 AND emitf=1 THEN DEC emit
      POSITION PARTICLE EMISSIONS 2,0,emit,0 : `This makes smoke
   ENDIF

IF boxprop=0 AND OBJECT HIT(9,1) THEN boxflag=1
   IF boxprop=1 AND OBJECT COLLISION(9,1) THEN boxflag=2

IF boxflag=1
      IF xx=0 THEN PITCH OBJECT DOWN 9,40 : xx=1
      MOVE OBJECT 9,(-horup#*2)
   ENDIF
   IF boxflag=2
      IF xx=0 THEN PITCH OBJECT DOWN 9,5 : xx=1
      MOVE OBJECT 9,(-horup#)
   ENDIF

IF OBJECT COLLISION(2,3)=1 AND flag<3 THEN flag=3

IF flag=3
      xr#=OBJECT ANGLE X(3) : yr#=OBJECT ANGLE Y(3) : zr#=OBJECT ANGLE Z(3)
      IF ff=0 THEN xp#=OBJECT POSITION X(3) : yp#=OBJECT POSITION Y(3) : zp#=OBJECT POSITION Z(3) : ff=1
      IF OBJECT ANGLE X(3)>450 THEN DEC xr#,rotup#
      IF OBJECT ANGLE Z(3)>360 THEN DEC zr#,rotup#
      IF yp#=90 AND bncflag=0 THEN bncflag=1
      IF yp#<90 AND bncflag=0 THEN INC xp#,(horup#/3) : INC yp#,(verup#/2) : INC zp#,(horup#/3)
      IF yp#>0 AND bncflag=1 THEN INC xp#,(horup#/3) : DEC yp#,(verup#/2) : INC zp#,(horup#/3)
      DEC yr#,rotup#
      ROTATE OBJECT 3,xr#,yr#,zr#
      POSITION OBJECT 3,xp#,yp#,zp#
      IF bncflag=1 AND OBJECT COLLISION(2,3)=1 THEN flag=4 : POSITION OBJECT 3,xp#,yp#+1,zp#
   ENDIF

IF flag=4
      IF parcol>0 THEN DEC parcol
      COLOR PARTICLES 2,parcol,parcol,parcol
      IF parcol=0 THEN SET PARTICLE EMISSIONS 2,-2 : flag=5
   ENDIF

`The camera spins if 'spin' has been set to 0
`Thanks to Papa Stiffy for showing me this easy-to-use camera rotation method
   IF spin=0
      IF flag=5 AND camspeed#>0 THEN DEC camspeed#,0.0078125
      camrot#=CAMERA ANGLE Y()
      ROTATE CAMERA 0,0,(camrot#+90),0
      MOVE CAMERA camspeed#
      ROTATE CAMERA 0,0,(camrot#-90),0
      POINT CAMERA 0,0,0
   ENDIF

`Displays effect modes on the screen
   IF slowmoflag=1 THEN TEXT 470,0,"SLOW-MOTION ACTIVATED"

SYNC

UNTIL ESCAPEKEY()=1

`yes, sadly everything has to be deleted again ;)
DELETE IMAGE 1
DELETE BITMAP 1
count=1
REPEAT
   IF count<3 THEN DELETE LIGHT count
   IF count<6 THEN DELETE PARTICLES count
   DELETE OBJECT count
   INC count
UNTIL count=9

END

Rem This is for making cube faces:
FUNCTION make_face(n,a,b,c,d,e,f)
MAKE OBJECT PLAIN n,10,10
POSITION OBJECT n,a,b,c
ROTATE OBJECT n,d,e,f
COLOR OBJECT n,RGB(155,78,0)
ENDFUNCTION

+ Code Snippet

Rem Project: MyExplosion
Rem Created: 13/05/2008 7:29:54 PM
Rem Author: sinisterstuf
         `yeah, the forum settings don't allow my name like that because
         `it's apparantly too long. What a pity. Hope you like this program!

Rem setup
HIDE MOUSE
AUTOCAM OFF
SYNC ON
SYNC RATE 120

Rem the textures for the sparks
CREATE BITMAP 1,16,16
x1=7
x2=8
REPEAT
   LINE 0,y,15,y
   INC y
   IF x1=0 THEN flag=1
   IF flag=0 THEN DEC x1 : INC x2
   IF flag=1 THEN INC x1 : DEC x2
UNTIL y=15
GET IMAGE 1,0,0,15,15
CLS
SET CURRENT BITMAP 0

Rem the box is on a surface
MAKE OBJECT PLAIN 2,270,270
ROTATE OBJECT 2,270,0,0
COLOR OBJECT 2,RGB(223,157,2)

Rem this is an extra box for physics fun!
MAKE OBJECT CUBE 9,10
POSITION OBJECT 9,30,5,30
COLOR OBJECT 9,RGB(155,78,0)
HIDE OBJECT 9

Rem I don't like the blue background but what can I do?
MAKE OBJECT SPHERE 8,500
POSITION OBJECT 8,0,0,0
COLOR OBJECT 8,RGB(0,0,0)
SET OBJECT CULL 8,0
SET OBJECT SPECULAR 8,RGB(0,0,0)
SET OBJECT DIFFUSE 8,RGB(0,0,0)

Rem the box with explosives in:
make_face(3,0,10,0,270,0,0) `the box's detachable top face
make_face(4,5,5,0,0,90,0) `the box's detachable right face
make_face(5,0,5,-5,0,0,0) `the box's detachable front face
make_face(6,-5,5,0,0,-90,0) `the box's detachable left face
make_face(7,0,5,5,0,180,0) `the box's detachable back face

Rem sparks will fly out of the box
MAKE PARTICLES 1,1,30,30
SET PARTICLE VELOCITY 1,5
SET PARTICLE GRAVITY 1,1
SET PARTICLE LIFE 1,50
HIDE PARTICLES 1
MAKE PARTICLES 3,1,30,30
SET PARTICLE VELOCITY 3,1
SET PARTICLE GRAVITY 3,1
SET PARTICLE LIFE 3,50
HIDE PARTICLES 3
MAKE PARTICLES 4,1,30,30
SET PARTICLE VELOCITY 4,1
SET PARTICLE GRAVITY 4,0
SET PARTICLE LIFE 4,25
HIDE PARTICLES 4
MAKE PARTICLES 5,1,30,30
SET PARTICLE VELOCITY 5,10
SET PARTICLE GRAVITY 5,5
SET PARTICLE LIFE 5,25
HIDE PARTICLES 5

Rem and a massive explosion shockwave
MAKE OBJECT SPHERE 1,5
COLOR OBJECT 1,RGB(255,255,0)
POSITION OBJECT 1,0,2,0
GHOST OBJECT ON 1
Rem and this light:
MAKE LIGHT 2
SET POINT LIGHT 2,0,2,0
COLOR LIGHT 2,250,250,200
SET LIGHT RANGE 2,1
HIDE LIGHT 2

Rem and smoke from the ground at the end
MAKE PARTICLES 2,1,50,50
COLOR PARTICLES 2,20,20,20
POSITION PARTICLES 2,0,-10,0
SET PARTICLE EMISSIONS 2,1
SET PARTICLE GRAVITY 2,-10
SET PARTICLE VELOCITY 2,1
SET PARTICLE SPEED 2,0.001
GHOST PARTICLES ON 2,3
HIDE PARTICLES 2

Rem this is supposed to make the box look cooler...
MAKE LIGHT 1
SET SPOT LIGHT 1,5,10
POSITION LIGHT 1,100,30,-100
COLOR LIGHT 1,235,235,170
SET LIGHT RANGE 1,50
POINT LIGHT 1,30,5,-30

Rem position a camera
POSITION CAMERA 0,55,35,-100
POINT CAMERA 0,0,0,0


Rem these are some variables for the explosion loop
hor#=5
scale#=5
flag=0
count=1
camrot#=5
up#=10
bncflag=0
parcol=20

Rem you now get to choose a whole load of effects!!!
REPEAT
   IF MOUSECLICK()=1 THEN flag=1
   IF MOUSECLICK()=2 THEN flag=2 : slowmoflag=1
   IF SPACEKEY()=1 AND b=0
      IF CONTROLKEY()=1 THEN boxprop=1
      b=1 : WAIT 300
      SHOW OBJECT 9
      xpos#=30 : ypos#=5 : zpos#=30
      REPEAT
         TEXT 150,90,"ARROW KEYS TO POSITION"
         TEXT 150,120,"SPACEBAR TO CONFIRM"
         IF UPKEY()=1 THEN INC zpos#,0.1
         IF DOWNKEY()=1 THEN DEC zpos#,0.1
         IF LEFTKEY()=1 THEN DEC xpos#,0.1
         IF RIGHTKEY()=1 THEN INC xpos#,0.1
         IF OBJECT HIT(9,4) THEN INC xpos#,0.1
         IF OBJECT HIT(9,5) THEN DEC zpos#,0.1
         IF OBJECT HIT(9,6) THEN DEC xpos#,0.1
         IF OBJECT HIT(9,7) THEN INC zpos#,0.1
         POSITION OBJECT 9,xpos#,ypos#,zpos#
         SYNC
      UNTIL SPACEKEY()=1
      POINT OBJECT 9,0,5,0
   ENDIF
   IF RETURNKEY()=1 AND spin=0 THEN spin=1 : WAIT 300
   IF RETURNKEY()=1 AND spin=1 THEN spin=0 : WAIT 300
   IF UPKEY()=1 AND CAMERA POSITION Y()>10 THEN MOVE CAMERA 1
   IF DOWNKEY()=1 AND CAMERA POSITION Y()<40 THEN XROTATE CAMERA 17 : MOVE CAMERA -1
   IF spin=0
      camrot#=CAMERA ANGLE Y()
      ROTATE CAMERA 0,0,(camrot#+90),0
      MOVE CAMERA 2
      ROTATE CAMERA 0,0,(camrot#-90),0
      POINT CAMERA 0,0,0
   ENDIF
   TEXT 150,150,"CLICK TO DETONATE THE BOMB IN THE BOX"
   TEXT 200,290,"[RIGHT-CLICK FOR SLOW MOTION]"
   TEXT 200,320,"[SPACEBAR TO ADD A BOX]"
   TEXT 200,350,"[CTRL+SPACEBAR TO ADD A WEIGHTED BOX]"
   TEXT 200,380,"[ARROW KEYS TO MOVE BOX]"
   TEXT 200,410,"[ARROW KEYS TO ZOOM]"
   TEXT 200,440,"[ENTER TO TOGGLE CAMERA ROTATION]"
   SYNC
UNTIL flag>0
IF flag=1 THEN scaleup#=64 : rotup#=2 : verup#=1 : horup#=.5 : parspeed#=0.008 : split=25 : camspeed#=2
IF flag=2 THEN scaleup#=16 : rotup#=.5 : verup#=.25 : horup#=.125 : parspeed#=0.002 : split=100 : camspeed#=0.5
flag=0

`makes explosion light and particles visible. duh.
SHOW PARTICLES 1
SET PARTICLE SPEED 1,parspeed#
SHOW PARTICLES 3
SET PARTICLE SPEED 3,parspeed#
SHOW PARTICLES 4
SET PARTICLE SPEED 4,parspeed#
SHOW PARTICLES 5
SET PARTICLE SPEED 5,parspeed#
SHOW LIGHT 2

Rem this is so that escape will delete all objects on exit; escape end loop below
DISABLE ESCAPEKEY

```````````````````````````````***MAIN LOOP***```````````````````````````````
REPEAT
`increments all movement variables
   INC scale#,scaleup#
   INC rot#,rotup#
   INC ver#,verup#
   INC hor#,horup#
   IF flag=0 THEN INC up#,verup#
   IF flag=1 THEN DEC up#,(verup#/2)
   INC count

`"randomly" spins the box's faces
   IF flag<3 THEN ROTATE OBJECT 3,rot#,(2*rot#),rot#
   ROTATE OBJECT 4,(2*rot#),rot#,(rot#/2)
   ROTATE OBJECT 5,rot#,rot#,(2*rot#)
   ROTATE OBJECT 6,rot#,(3*rot#),rot#
   ROTATE OBJECT 7,(3*rot#),rot#,rot#

`makes the faces fly apart
   IF flag<3 THEN POSITION OBJECT 3,0,up#,0
   POSITION OBJECT 4,ver#,hor#,5
   POSITION OBJECT 5,-5,hor#,ver#
   POSITION OBJECT 6,-ver#,hor#,-5
   POSITION OBJECT 7,5,hor#,-ver#

`light and ghosted sphere expand with explosion
   SCALE OBJECT 1,scale#,scale#,scale#
   SET LIGHT RANGE 2,scale#

`yellow then white particles are produced ...and some other timed effects too
   IF count=split THEN COLOR PARTICLES 1,255,255,0 : COLOR PARTICLES 3,255,255,0 : COLOR PARTICLES 4,255,255,0 : COLOR PARTICLES 5,255,255,0
   IF count=(2*split) THEN SET PARTICLE EMISSIONS 1,0 : SET PARTICLE EMISSIONS 3,0 : SET PARTICLE EMISSIONS 4,0 : SET PARTICLE EMISSIONS 5,0
   IF count=(4*split) THEN flag=1 : smoke=1
   IF smoke=1
      IF smokeon=0 THEN SHOW PARTICLES 2 : smokeon=1
      ROTATE PARTICLES 2,0,-rot#,0
      IF emit=8 AND emitf=0 THEN emitf=1
      IF emit=-8 AND emitf=1 THEN emitf=0
      IF emit<8 AND emitf=0 THEN INC emit
      IF emit>-8 AND emitf=1 THEN DEC emit
      POSITION PARTICLE EMISSIONS 2,0,emit,0 : `This makes smoke
   ENDIF

   IF boxprop=0 AND OBJECT HIT(9,1) THEN boxflag=1
   IF boxprop=1 AND OBJECT COLLISION(9,1) THEN boxflag=2

   IF boxflag=1
      IF xx=0 THEN PITCH OBJECT DOWN 9,40 : xx=1
      MOVE OBJECT 9,(-horup#*2)
   ENDIF
   IF boxflag=2
      IF xx=0 THEN PITCH OBJECT DOWN 9,5 : xx=1
      MOVE OBJECT 9,(-horup#)
   ENDIF

   IF OBJECT COLLISION(2,3)=1 AND flag<3 THEN flag=3

   IF flag=3
      xr#=OBJECT ANGLE X(3) : yr#=OBJECT ANGLE Y(3) : zr#=OBJECT ANGLE Z(3)
      IF ff=0 THEN xp#=OBJECT POSITION X(3) : yp#=OBJECT POSITION Y(3) : zp#=OBJECT POSITION Z(3) : ff=1
      IF OBJECT ANGLE X(3)>450 THEN DEC xr#,rotup#
      IF OBJECT ANGLE Z(3)>360 THEN DEC zr#,rotup#
      IF yp#=90 AND bncflag=0 THEN bncflag=1
      IF yp#<90 AND bncflag=0 THEN INC xp#,(horup#/3) : INC yp#,(verup#/2) : INC zp#,(horup#/3)
      IF yp#>0 AND bncflag=1 THEN INC xp#,(horup#/3) : DEC yp#,(verup#/2) : INC zp#,(horup#/3)
      DEC yr#,rotup#
      ROTATE OBJECT 3,xr#,yr#,zr#
      POSITION OBJECT 3,xp#,yp#,zp#
      IF bncflag=1 AND OBJECT COLLISION(2,3)=1 THEN flag=4 : POSITION OBJECT 3,xp#,yp#+1,zp#
   ENDIF

   IF flag=4
      IF parcol>0 THEN DEC parcol
      COLOR PARTICLES 2,parcol,parcol,parcol
      IF parcol=0 THEN SET PARTICLE EMISSIONS 2,-2 : flag=5
   ENDIF

`The camera spins if 'spin' has been set to 0
`Thanks to Papa Stiffy for showing me this easy-to-use camera rotation method
   IF spin=0
      IF flag=5 AND camspeed#>0 THEN DEC camspeed#,0.0078125
      camrot#=CAMERA ANGLE Y()
      ROTATE CAMERA 0,0,(camrot#+90),0
      MOVE CAMERA camspeed#
      ROTATE CAMERA 0,0,(camrot#-90),0
      POINT CAMERA 0,0,0
   ENDIF

`Displays effect modes on the screen
   IF slowmoflag=1 THEN TEXT 470,0,"SLOW-MOTION ACTIVATED"

   SYNC

UNTIL ESCAPEKEY()=1

`yes, sadly everything has to be deleted again ;)
DELETE IMAGE 1
DELETE BITMAP 1
count=1
REPEAT
   IF count<3 THEN DELETE LIGHT count
   IF count<6 THEN DELETE PARTICLES count
   DELETE OBJECT count
   INC count
UNTIL count=9

END

Rem This is for making cube faces:
FUNCTION make_face(n,a,b,c,d,e,f)
MAKE OBJECT PLAIN n,10,10
POSITION OBJECT n,a,b,c
ROTATE OBJECT n,d,e,f
COLOR OBJECT n,RGB(155,78,0)
ENDFUNCTION

I worked alot on this and added physics, made the explosion bigger and let you add stuff and I added smoke and keep watching till the turning stops because that's when it ends. I hope you enjoy this, now I'm going to bed!!!

and please tell me if I made any mistakes so that I can fix them, thanks.
[b]P.S. My name is actually sinisterstuf, not Sinister Stuff, the forum thing writes it like that. Not that I mind though... I'm just saying

[i]and I almost forgot to mention that Papa stiffy helped me with the camera rotation, so thank you to him

Happy, always happy!

Back to top

Profile PM Website

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 18th May 2008 11:55

Link

So does that mean that there's still all of today to submit?!!

Happy, always happy!

Back to top

Profile PM Website

Must Program

18

Years of Service

User Offline

Joined: 22nd Nov 2007

Location:

Posted: 18th May 2008 12:11

Link

yes you do because it is still sunday so you have all of today and until 7:00am tomorrow

Back to top

Profile PM

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 18th May 2008 13:32

Link

Cool! I better get to work then!

Happy, always happy!

Back to top

Profile PM Website

jeffhuys

20

Years of Service

User Offline

Joined: 24th May 2006

Location: No cheesy line here.

Posted: 18th May 2008 19:09

Link

Quote: "Oh and by the way, jeffhuys, I really liked your explosion, it was so cool it made me want to do a backflip... The only thing is, I don't know if maybe my DBpro is old or something but I had to remove these shadow commands because it said error: unkown command or something like that..."

Thank you!

Yea, I think that error is because of an old version of DBPro, because I don't have the error. It can be your graphics card, though.
When are the results? I'd like to see them

Jeff

You're the

'th to view this signature!

Back to top

Profile PM Email

BMacZero

20

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 18th May 2008 19:17

Link

That new one looks awesome, sinisterstuf! Only thing I would change is just a small detail - I think it would look better if the smoke started at the same time as the explosion, or about halfway through the explosion.

Unterseeboot - Has you played it?
Los Mineros are on leave...

Back to top

Profile PM Email Website

Penfold

22

Years of Service

User Offline

Joined: 3rd Dec 2003

Location: RED postbox houses of parliment

Posted: 18th May 2008 22:27

Link

Ok, heres my entry. Don't think I will have time to do much more.

Thanx mainly to Sin Stuff as I used his code to backwards educate myself as I knew next toi nothing about particles. (still don't know that much)

+ Code Snippet

function FilledCircle( CX as integer, CY as integer, R as integer )
   local x as integer
   local y as integer
   local i as integer
   local s as integer

   ` Precalculate the square of the radius - this is the hypotenuse
   i=R*R

   ` Calculate the size of the central square
   s=R*0.70710678 : ` this number is sin(45)

   ` Draw it
   box CX-s, CY-s, CX+s+1, CY+s+1
   s=s+1

   ` Loop through the bit we have not yet drawn
   for y=s to R
      x=sqrt( i-(y*y) )

      ` Draw top and bottom
      box CX-x, CY-y, CX+x+1, CY-y+1
      box CX-x, CY+y, CX+x+1, CY+y+1

      ` Draw left and right
      box CX-y, CY-x, CX-y+1, CY+x+1
      box CX+y, CY-x, CX+y+1, CY+x+1
   next y
endfunction

I still couldn't figure out how to make my debris RED HOT so you'll have to settle with pink.

'Ooh 'eck chief'...'crumbs'

Back to top

Profile PM

Must Program

18

Years of Service

User Offline

Joined: 22nd Nov 2007

Location:

Posted: 18th May 2008 22:35

Link

lol can the winer of this one set the next one as a text based game because those i can do and quite well if i say so myself

Back to top

Profile PM

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 18th May 2008 22:41

Link

@bmaczero:
thanks. Do you think so? it's easy to change so I'll do that quickly

@pendfold
lol, particles are my favorite. By the way, I forgot to mention to you that to get the particles to stop and not just dissappear you use SET PARTICLE EMISSIONS and set it to 0. But you probably figured that out. And if you can't get stuff darker, like getting pink instead of red, it might have something to do with it's light properties. You can actualy reduce the ammount of light reflected by an object to darken it... i think

Happy, always happy!

Back to top

Profile PM Website

Must Program

18

Years of Service

User Offline

Joined: 22nd Nov 2007

Location:

Posted: 18th May 2008 23:20

Link

winner make the next one a text based game or else my pet yellow hoofed unicorn will come and get you

(For those of you who have played my demo you will know what i mean by yellow hoofed unicorn)

Back to top

Profile PM

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 19th May 2008 01:48

Link

Ok, it's 11:30 now, a bit earlier than last night's entry but if I stay up later I won't be able to get up early tomorrow morning. So here it is, my final version, which is by far, the coolest program I have ever created.

NEW in this version:
+create up to 8 different extra box with 3 different modes
+light boxes that are knocked into the air
+heavy boxes that are pushed along the surface
+and exploding boxes that explode on impact!!!
+each box can be placed anywhere on the surface
+this means you can now put 8 exploding boxes all around the main box for a massive explosion!!!
+warning! it may be just my computer but for 6 or more boxes the whole room becomes charred by the explosion!!!
+also, so many particles can slow down the program
stuff from last version include:
+camera zoom in and out
+camera rotation on or off
+slow-motion effect on or off

Rem Project: MyExplosion
Rem Created: 13/05/2008 7:29:54 PM
Rem Author: sinisterstuf
         `yeah, the forum settings don't allow my name like that because
         `it's apparantly too long. What a pity. Hope you like this program!
         `And thanks to Papa Stiffy for showing me an easy way to rotate cameras

Rem setup
HIDE MOUSE
AUTOCAM OFF
SYNC ON
SYNC RATE 120

Rem the textures for the sparks
CREATE BITMAP 1,16,16
x1=7
x2=8
REPEAT
   LINE 0,y,15,y
   INC y
   IF x1=0 THEN flag=1
   IF flag=0 THEN DEC x1 : INC x2
   IF flag=1 THEN INC x1 : DEC x2
UNTIL y=15
GET IMAGE 1,0,0,15,15
CLS
SET CURRENT BITMAP 0

Rem the box is on a surface
MAKE OBJECT PLAIN 2,270,270
ROTATE OBJECT 2,270,0,0
COLOR OBJECT 2,RGB(223,157,2)

Rem I don't like the blue background but what can I do?
MAKE OBJECT SPHERE 8,500
POSITION OBJECT 8,0,0,0
COLOR OBJECT 8,RGB(0,0,0)
SET OBJECT CULL 8,0
SET OBJECT SPECULAR 8,RGB(0,0,0)
SET OBJECT DIFFUSE 8,RGB(0,0,0)

Rem the box with explosives in:
make_face(3,0,10,0,270,0,0) `the box's detachable top face
make_face(4,5,5,0,0,90,0) `the box's detachable right face
make_face(5,0,5,-5,0,0,0) `the box's detachable front face
make_face(6,-5,5,0,0,-90,0) `the box's detachable left face
make_face(7,0,5,5,0,180,0) `the box's detachable back face

Rem more optional boxes
make_box(9,50,50)
make_box(10,-50,-50)
make_box(11,50,-50)
make_box(12,-50,50)
make_box(13,50,0)
make_box(14,-50,0)
make_box(15,0,50)
make_box(16,0,-50)

Rem all the explosives for incase the boxes are set to contain them
make_explosives(6,7,8,9,17,3,50,50)
make_explosives(10,11,12,13,18,4,-50,-50)
make_explosives(14,15,16,17,19,5,50,-50)
make_explosives(18,19,20,21,20,6,-50,50)
make_explosives(22,23,24,25,21,7,50,0)
make_explosives(26,27,28,29,22,8,-50,0)
make_explosives(30,31,32,33,23,9,0,50)
make_explosives(34,35,36,37,24,10,0,-50)

Rem sparks will fly out of the box
MAKE PARTICLES 1,1,30,30
SET PARTICLE VELOCITY 1,5
SET PARTICLE GRAVITY 1,1
SET PARTICLE LIFE 1,50
HIDE PARTICLES 1
MAKE PARTICLES 3,1,30,30
SET PARTICLE VELOCITY 3,1
SET PARTICLE GRAVITY 3,1
SET PARTICLE LIFE 3,50
HIDE PARTICLES 3
MAKE PARTICLES 4,1,30,30
SET PARTICLE VELOCITY 4,1
SET PARTICLE GRAVITY 4,0
SET PARTICLE LIFE 4,25
HIDE PARTICLES 4
MAKE PARTICLES 5,1,30,30
SET PARTICLE VELOCITY 5,10
SET PARTICLE GRAVITY 5,5
SET PARTICLE LIFE 5,25
HIDE PARTICLES 5

Rem and a massive explosion shockwave
MAKE OBJECT SPHERE 1,5
COLOR OBJECT 1,RGB(255,255,0)
POSITION OBJECT 1,0,2,0
GHOST OBJECT ON 1
Rem and this light:
MAKE LIGHT 2
SET POINT LIGHT 2,0,2,0
COLOR LIGHT 2,250,250,200
SET LIGHT RANGE 2,1
HIDE LIGHT 2

Rem and smoke from the ground at the end
MAKE PARTICLES 2,1,50,50
COLOR PARTICLES 2,20,20,20
POSITION PARTICLES 2,0,-10,0
SET PARTICLE EMISSIONS 2,1
SET PARTICLE GRAVITY 2,-10
SET PARTICLE VELOCITY 2,1
SET PARTICLE SPEED 2,0.001
GHOST PARTICLES ON 2,3
HIDE PARTICLES 2

Rem this is supposed to make the box look cooler...
MAKE LIGHT 1
SET SPOT LIGHT 1,5,10
POSITION LIGHT 1,100,30,-100
COLOR LIGHT 1,235,235,170
SET LIGHT RANGE 1,50
POINT LIGHT 1,30,5,-30

Rem position a camera
POSITION CAMERA 0,55,35,-100
POINT CAMERA 0,0,0,0

Rem these are some variables for the explosion loop
hor#=5
scale#=5
flag=0
count=1
camrot#=5
up#=10
bncflag=0
parcol=20
b=0
overlap=0

Rem you now get to choose a whole load of effects!!!
REPEAT
   IF SPACEKEY()=1 AND b<8
      INC b,1
      IF CONTROLKEY()=1 AND overlap=0
         IF b=1 THEN boxprop1=1
         IF b=2 THEN boxprop2=1
         IF b=3 THEN boxprop3=1
         IF b=4 THEN boxprop4=1
         IF b=5 THEN boxprop5=1
         IF b=6 THEN boxprop6=1
         IF b=7 THEN boxprop7=1
         IF b=8 THEN boxprop8=1
         boxprop=1
         overlap=1
      ENDIF
      IF SHIFTKEY()=1 AND overlap=0
         IF b=1 THEN boxprop1=2
         IF b=2 THEN boxprop2=2
         IF b=3 THEN boxprop3=2
         IF b=4 THEN boxprop4=2
         IF b=5 THEN boxprop5=2
         IF b=6 THEN boxprop6=2
         IF b=7 THEN boxprop7=2
         IF b=8 THEN boxprop8=2
         boxprop=2
         overlap=1
      ENDIF
      WAIT 300
      SHOW OBJECT (b+8)
      xpos#=OBJECT POSITION X(b+8) : ypos#=OBJECT POSITION Y(b+8) : zpos#=OBJECT POSITION Y(b+8)
      REPEAT
         IF boxprop=0 THEN TEXT 0,0,"EMPTY BOX"
         IF boxprop=1 THEN TEXT 0,0,"HEAVY BOX"
         IF boxprop=2 THEN TEXT 0,0,"EXPLODING BOX"
         TEXT 150,90,"ARROW KEYS TO POSITION"
         TEXT 150,120,"SPACEBAR TO CONFIRM"
         IF UPKEY()=1 THEN move_box((b+8),0,0.1)
         IF DOWNKEY()=1 THEN move_box((b+8),0,-0.1)
         IF LEFTKEY()=1 THEN move_box((b+8),-0.1,0)
         IF RIGHTKEY()=1 THEN move_box((b+8),0.1,0)
         SYNC
      UNTIL SPACEKEY()=1
      POINT OBJECT (b+8),0,5,0
      overlap=0
      boxprop=0
      WAIT 300
   ENDIF
   IF MOUSECLICK()=1 THEN flag=1
   IF MOUSECLICK()=2 THEN flag=2 : slowmoflag=1
   IF RETURNKEY()=1 AND spin=0 THEN spin=1 : WAIT 300
   IF RETURNKEY()=1 AND spin=1 THEN spin=0 : WAIT 300
   IF UPKEY()=1 AND CAMERA POSITION Y()>10 THEN MOVE CAMERA 1
   IF DOWNKEY()=1 AND CAMERA POSITION Y()<40 THEN XROTATE CAMERA 17 : MOVE CAMERA -1
   IF spin=0
      camrot#=CAMERA ANGLE Y()
      ROTATE CAMERA 0,0,(camrot#+90),0
      MOVE CAMERA 2
      ROTATE CAMERA 0,0,(camrot#-90),0
      POINT CAMERA 0,0,0
   ENDIF
   TEXT 150,150,"CLICK TO DETONATE THE BOMB IN THE BOX"
   TEXT 200,290,"[RIGHT-CLICK FOR SLOW MOTION]"
   TEXT 200,320,"[SPACEBAR TO ADD AN EMPTRY BOX]"
   TEXT 200,350,"[CTRL+SPACEBAR TO ADD A HEAVY BOX]"
   TEXT 200,380,"[SHIFT+SPACEBAR TO ADD AN EXPLODING BOX]"
   TEXT 200,410,"[ARROW KEYS TO ZOOM]"
   TEXT 200,440,"[ENTER TO TOGGLE CAMERA ROTATION]"
   SYNC
UNTIL flag>0
IF flag=1 THEN scaleup#=64 : rotup#=2 : verup#=1 : horup#=.5 : parspeed#=0.008 : split=25 : camspeed#=2
IF flag=2 THEN scaleup#=16 : rotup#=.5 : verup#=.25 : horup#=.125 : parspeed#=0.002 : split=100 : camspeed#=0.5
flag=0

`makes explosion light and particles visible. duh.
SHOW PARTICLES 1
SET PARTICLE SPEED 1,parspeed#
SHOW PARTICLES 3
SET PARTICLE SPEED 3,parspeed#
SHOW PARTICLES 4
SET PARTICLE SPEED 4,parspeed#
SHOW PARTICLES 5
SET PARTICLE SPEED 5,parspeed#
SHOW LIGHT 2

Rem this is so that escape will delete all objects on exit; escape end loop below
DISABLE ESCAPEKEY

```````````````````````````````***MAIN LOOP***```````````````````````````````
REPEAT
`increments all movement variables
   INC scale#,scaleup#
   INC rot#,rotup#
   INC ver#,verup#
   INC hor#,horup#
   IF flag=0 THEN INC up#,verup#
   IF flag=1 THEN DEC up#,(verup#/2)
   INC count

`"randomly" spins the box's faces
   IF flag<3 THEN ROTATE OBJECT 3,rot#,(2*rot#),rot#
   ROTATE OBJECT 4,(2*rot#),rot#,(rot#/2)
   ROTATE OBJECT 5,rot#,rot#,(2*rot#)
   ROTATE OBJECT 6,rot#,(3*rot#),rot#
   ROTATE OBJECT 7,(3*rot#),rot#,rot#

`makes the faces fly apart
   IF flag<3 THEN POSITION OBJECT 3,0,up#,0
   POSITION OBJECT 4,ver#,hor#,5
   POSITION OBJECT 5,-5,hor#,ver#
   POSITION OBJECT 6,-ver#,hor#,-5
   POSITION OBJECT 7,5,hor#,-ver#

`light and ghosted sphere expand with explosion
   SCALE OBJECT 1,scale#,scale#,scale#
   SET LIGHT RANGE 2,scale#

`yellow then white particles are produced ...and some other timed effects too
   IF count>10 THEN smoke=1
   IF count=split THEN COLOR PARTICLES 1,255,255,0 : COLOR PARTICLES 3,255,255,0 : COLOR PARTICLES 4,255,255,0 : COLOR PARTICLES 5,255,255,0
   IF count=(2*split) THEN SET PARTICLE EMISSIONS 1,0 : SET PARTICLE EMISSIONS 3,0 : SET PARTICLE EMISSIONS 4,0 : SET PARTICLE EMISSIONS 5,0
   IF count=(4*split) THEN flag=1
   IF smoke=1
      IF smokeon=0 THEN SHOW PARTICLES 2 : smokeon=1
      ROTATE PARTICLES 2,0,-rot#,0
      IF emit=8 AND emitf=0 THEN emitf=1
      IF emit=-8 AND emitf=1 THEN emitf=0
      IF emit<8 AND emitf=0 THEN INC emit
      IF emit>-8 AND emitf=1 THEN DEC emit
      POSITION PARTICLE EMISSIONS 2,0,emit,0 : `This makes smoke
   ENDIF

IF boxprop1=0 AND OBJECT HIT(9,1) THEN boxflag1=1
   IF boxprop1=1 AND OBJECT COLLISION(9,1) THEN boxflag1=2
   IF boxprop1=2 AND OBJECT COLLISION(9,1) THEN boxflag1=3

IF boxprop2=0 AND OBJECT HIT(10,1) THEN boxflag2=1
   IF boxprop2=1 AND OBJECT COLLISION(10,1) THEN boxflag2=2
   IF boxprop2=2 AND OBJECT COLLISION(10,1) THEN boxflag2=3

IF boxprop3=0 AND OBJECT HIT(11,1) THEN boxflag3=1
   IF boxprop3=1 AND OBJECT COLLISION(11,1) THEN boxflag3=2
   IF boxprop3=2 AND OBJECT COLLISION(11,1) THEN boxflag3=3

IF boxprop4=0 AND OBJECT HIT(12,1) THEN boxflag4=1
   IF boxprop4=1 AND OBJECT COLLISION(12,1) THEN boxflag4=2
   IF boxprop4=2 AND OBJECT COLLISION(12,1) THEN boxflag4=3

IF boxprop5=0 AND OBJECT HIT(13,1) THEN boxflag5=1
   IF boxprop5=1 AND OBJECT COLLISION(13,1) THEN boxflag5=2
   IF boxprop5=2 AND OBJECT COLLISION(13,1) THEN boxflag5=3

IF boxprop6=0 AND OBJECT HIT(14,1) THEN boxflag6=1
   IF boxprop6=1 AND OBJECT COLLISION(14,1) THEN boxflag6=2
   IF boxprop6=2 AND OBJECT COLLISION(14,1) THEN boxflag6=3

IF boxprop7=0 AND OBJECT HIT(15,1) THEN boxflag7=1
   IF boxprop7=1 AND OBJECT COLLISION(15,1) THEN boxflag7=2
   IF boxprop7=2 AND OBJECT COLLISION(15,1) THEN boxflag7=3

IF boxprop8=0 AND OBJECT HIT(16,1) THEN boxflag8=1
   IF boxprop8=1 AND OBJECT COLLISION(16,1) THEN boxflag8=2
   IF boxprop8=2 AND OBJECT COLLISION(16,1) THEN boxflag8=3

IF boxflag1=1
      IF xx1=0 THEN PITCH OBJECT DOWN 9,40 : xx1=1
      MOVE OBJECT 9,(-horup#*2)
   ENDIF
   IF boxflag1=2
      MOVE OBJECT 9,(-horup#)
   ENDIF
   IF boxflag1=3
      detonate_box(9,6,7,8,9,17,3,(scale#-(counter*scaleup#)))
   ENDIF

IF boxflag2=1
      IF xx2=0 THEN PITCH OBJECT DOWN 10,40 : xx2=1
      MOVE OBJECT 10,(-horup#*2)
   ENDIF
   IF boxflag2=2
      MOVE OBJECT 10,(-horup#)
   ENDIF
   IF boxflag2=3
      detonate_box(10,10,11,12,13,18,4,(scale#-(counter*scaleup#)))
   ENDIF

IF boxflag3=1
      IF xx3=0 THEN PITCH OBJECT DOWN 11,40 : xx3=1
      MOVE OBJECT 11,(-horup#*2)
   ENDIF
   IF boxflag3=2
      MOVE OBJECT 11,(-horup#)
   ENDIF
   IF boxflag3=3
      detonate_box(11,14,15,16,17,19,5,(scale#-(counter*scaleup#)))
   ENDIF

IF boxflag4=1
      IF xx4=0 THEN PITCH OBJECT DOWN 12,40 : xx4=1
      MOVE OBJECT 12,(-horup#*2)
   ENDIF
   IF boxflag4=2
      MOVE OBJECT 12,(-horup#)
   ENDIF
   IF boxflag4=3
      detonate_box(12,18,19,20,21,20,6,(scale#-(counter*scaleup#)))
   ENDIF

IF boxflag5=1
      IF xx5=0 THEN PITCH OBJECT DOWN 13,40 : xx5=1
      MOVE OBJECT 13,(-horup#*2)
   ENDIF
   IF boxflag5=2
      MOVE OBJECT 13,(-horup#)
   ENDIF
   IF boxflag5=3
      detonate_box(13,22,23,24,25,21,7,(scale#-(counter*scaleup#)))
   ENDIF

IF boxflag6=1
      IF xx6=0 THEN PITCH OBJECT DOWN 14,40 : xx6=1
      MOVE OBJECT 14,(-horup#*2)
   ENDIF
   IF boxflag6=2
      MOVE OBJECT 14,(-horup#)
   ENDIF
   IF boxflag6=3
      detonate_box(14,26,27,28,29,22,8,(scale#-(counter*scaleup#)))
   ENDIF

IF boxflag7=1
      IF xx7=0 THEN PITCH OBJECT DOWN 15,40 : xx7=1
      MOVE OBJECT 15,(-horup#*2)
   ENDIF
   IF boxflag7=2
      MOVE OBJECT 15,(-horup#)
   ENDIF
   IF boxflag7=3
      detonate_box(15,30,31,32,33,23,9,(scale#-(counter*scaleup#)))
   ENDIF

IF boxflag8=1
      IF xx8=0 THEN PITCH OBJECT DOWN 16,40 : xx8=1
      MOVE OBJECT 16,(-horup#*2)
   ENDIF
   IF boxflag8=2
      MOVE OBJECT 16,(-horup#)
   ENDIF
   IF boxflag8=3
      detonate_box(16,34,35,36,37,24,10,(scale#-(counter*scaleup#)))
   ENDIF

IF OBJECT COLLISION(2,3)=1 AND flag<3 THEN flag=3

IF flag=3
      xr#=OBJECT ANGLE X(3) : yr#=OBJECT ANGLE Y(3) : zr#=OBJECT ANGLE Z(3)
      IF ff=0 THEN xp#=OBJECT POSITION X(3) : yp#=OBJECT POSITION Y(3) : zp#=OBJECT POSITION Z(3) : ff=1
      IF OBJECT ANGLE X(3)>450 THEN DEC xr#,rotup#
      IF OBJECT ANGLE Z(3)>360 THEN DEC zr#,rotup#
      IF yp#=90 AND bncflag=0 THEN bncflag=1
      IF yp#<90 AND bncflag=0 THEN INC xp#,(horup#/3) : INC yp#,(verup#/2) : INC zp#,(horup#/3)
      IF yp#>0 AND bncflag=1 THEN INC xp#,(horup#/3) : DEC yp#,(verup#/2) : INC zp#,(horup#/3)
      DEC yr#,rotup#
      ROTATE OBJECT 3,xr#,yr#,zr#
      POSITION OBJECT 3,xp#,yp#,zp#
      IF bncflag=1 AND OBJECT COLLISION(2,3)=1 THEN flag=4 : POSITION OBJECT 3,xp#,yp#+1,zp#
   ENDIF

IF flag=4
      IF parcol>0 THEN DEC parcol
      COLOR PARTICLES 2,parcol,parcol,parcol
      IF parcol=0 THEN SET PARTICLE EMISSIONS 2,-2 : flag=5
   ENDIF

`The camera spins if 'spin' has been set to 0
`Thanks to Papa Stiffy for showing me this easy-to-use camera rotation method
   IF spin=0
      IF flag=5 AND camspeed#>0 THEN DEC camspeed#,0.0078125
      camrot#=CAMERA ANGLE Y()
      ROTATE CAMERA 0,0,(camrot#+90),0
      MOVE CAMERA camspeed#
      ROTATE CAMERA 0,0,(camrot#-90),0
      POINT CAMERA 0,0,0
   ENDIF

`Displays effect modes on the screen
   IF slowmoflag=1 THEN TEXT 470,0,"SLOW-MOTION ACTIVATED"

SYNC

UNTIL ESCAPEKEY()=1

`yes, sadly everything has to be deleted again ;)
DELETE IMAGE 1
DELETE BITMAP 1
count=0
REPEAT
   INC count
   IF count<11 THEN DELETE LIGHT count
   IF count<25 THEN DELETE OBJECT count
   DELETE PARTICLES count
UNTIL count=37
CLS

END

Rem This is for making cube faces:
FUNCTION make_face(n,a,b,c,d,e,f)
   MAKE OBJECT PLAIN n,10,10
   POSITION OBJECT n,a,b,c
   ROTATE OBJECT n,d,e,f
   COLOR OBJECT n,RGB(155,78,0)
ENDFUNCTION

Rem this is for making additional boxes
FUNCTION make_box(n,x,z)
   MAKE OBJECT CUBE n,10
   POSITION OBJECT n,x,5,z
   COLOR OBJECT n,RGB(155,78,0)
   HIDE OBJECT n
ENDFUNCTION

Rem This is for making explosion effects for all the boxes
FUNCTION make_explosives(n1,n2,n3,n4,n5,n6,x,z)
Rem sparks will fly out of the box
   MAKE PARTICLES n1,1,30,30
   POSITION PARTICLES n1,x,0,z
   SET PARTICLE VELOCITY n1,5
   SET PARTICLE GRAVITY n1,1
   SET PARTICLE LIFE n1,50
   HIDE PARTICLES n1
   MAKE PARTICLES n2,1,30,30
   POSITION PARTICLES n2,x,0,z
   SET PARTICLE VELOCITY n2,1
   SET PARTICLE GRAVITY n2,1
   SET PARTICLE LIFE n2,50
   HIDE PARTICLES n2
   MAKE PARTICLES n3,1,30,30
   POSITION PARTICLES n3,x,0,z
   SET PARTICLE VELOCITY n3,1
   SET PARTICLE GRAVITY n3,0
   SET PARTICLE LIFE n3,25
   HIDE PARTICLES n3
   MAKE PARTICLES n4,1,30,30
   POSITION PARTICLES n4,x,0,z
   SET PARTICLE VELOCITY n4,10
   SET PARTICLE GRAVITY n4,5
   SET PARTICLE LIFE n4,25
   HIDE PARTICLES n4

Rem and a massive explosion shockwave
   MAKE OBJECT SPHERE n5,5
   COLOR OBJECT n5,RGB(255,255,0)
   POSITION OBJECT n5,x,2,z
   GHOST OBJECT ON n5
   HIDE OBJECT n5
Rem and this light:
   MAKE LIGHT n6
   SET POINT LIGHT n6,x,2,z
   COLOR LIGHT n6,250,250,200
   SET LIGHT RANGE n6,1
   HIDE LIGHT n6
ENDFUNCTION

Rem This is used to move a box and all it's explosive effects during edit
FUNCTION move_box(n,x#,z#)
   xpos#=OBJECT POSITION X(n)+x#
   zpos#=OBJECT POSITION Z(n)+z#
   IF OBJECT HIT(n,4) THEN INC xpos#,0.1
   IF OBJECT HIT(n,5) THEN DEC zpos#,0.1
   IF OBJECT HIT(n,6) THEN DEC xpos#,0.1
   IF OBJECT HIT(n,7) THEN INC zpos#,0.1
   POSITION OBJECT n,xpos#,5,zpos#
   IF n=9
      POSITION PARTICLES 6,xpos#,0,zpos#
      POSITION PARTICLES 7,xpos#,0,zpos#
      POSITION PARTICLES 8,xpos#,0,zpos#
      POSITION PARTICLES 9,xpos#,0,zpos#
      POSITION OBJECT 17,xpos#,2,zpos#
      POSITION LIGHT 3,xpos#,2,zpos#
   ENDIF
   IF n=10
      POSITION PARTICLES 10,xpos#,0,zpos#
      POSITION PARTICLES 11,xpos#,0,zpos#
      POSITION PARTICLES 12,xpos#,0,zpos#
      POSITION PARTICLES 13,xpos#,0,zpos#
      POSITION OBJECT 18,xpos#,2,zpos#
      POSITION LIGHT 4,xpos#,2,zpos#
   ENDIF
   IF n=11
      POSITION PARTICLES 14,xpos#,0,zpos#
      POSITION PARTICLES 15,xpos#,0,zpos#
      POSITION PARTICLES 16,xpos#,0,zpos#
      POSITION PARTICLES 17,xpos#,0,zpos#
      POSITION OBJECT 19,xpos#,2,zpos#
      POSITION LIGHT 5,xpos#,2,zpos#
   ENDIF
   IF n=12
      POSITION PARTICLES 18,xpos#,0,zpos#
      POSITION PARTICLES 19,xpos#,0,zpos#
      POSITION PARTICLES 20,xpos#,0,zpos#
      POSITION PARTICLES 21,xpos#,0,zpos#
      POSITION OBJECT 20,xpos#,2,zpos#
      POSITION LIGHT 6,xpos#,2,zpos#
   ENDIF
   IF n=13
      POSITION PARTICLES 22,xpos#,0,zpos#
      POSITION PARTICLES 23,xpos#,0,zpos#
      POSITION PARTICLES 24,xpos#,0,zpos#
      POSITION PARTICLES 25,xpos#,0,zpos#
      POSITION OBJECT 21,xpos#,2,zpos#
      POSITION LIGHT 7,xpos#,2,zpos#
   ENDIF
   IF n=14
      POSITION PARTICLES 26,xpos#,0,zpos#
      POSITION PARTICLES 27,xpos#,0,zpos#
      POSITION PARTICLES 28,xpos#,0,zpos#
      POSITION PARTICLES 29,xpos#,0,zpos#
      POSITION OBJECT 22,xpos#,2,zpos#
      POSITION LIGHT 8,xpos#,2,zpos#
   ENDIF
   IF n=15
      POSITION PARTICLES 30,xpos#,0,zpos#
      POSITION PARTICLES 31,xpos#,0,zpos#
      POSITION PARTICLES 32,xpos#,0,zpos#
      POSITION PARTICLES 33,xpos#,0,zpos#
      POSITION OBJECT 23,xpos#,2,zpos#
      POSITION LIGHT 9,xpos#,2,zpos#
   ENDIF
   IF n=16
      POSITION PARTICLES 34,xpos#,0,zpos#
      POSITION PARTICLES 35,xpos#,0,zpos#
      POSITION PARTICLES 36,xpos#,0,zpos#
      POSITION PARTICLES 37,xpos#,0,zpos#
      POSITION OBJECT 24,xpos#,2,zpos#
      POSITION LIGHT 10,xpos#,2,zpos#
   ENDIF
ENDFUNCTION

Rem This is to detonate boxes on contact with shockwave
FUNCTION detonate_box(n,p1,p2,p3,p4,s,l,scale#)
`box explodes
   HIDE OBJECT n
   SHOW OBJECT s
   SHOW LIGHT l
   SHOW PARTICLES p1 : COLOR PARTICLES p1,255,255,0
   SHOW PARTICLES p2 : COLOR PARTICLES p2,255,255,0
   SHOW PARTICLES p3 : COLOR PARTICLES p3,255,255,0
   SHOW PARTICLES p4 : COLOR PARTICLES p4,255,255,0

`light and ghosted sphere expand with explosion
   SCALE OBJECT s,scale#,scale#,scale#
   SET LIGHT RANGE l,scale#
   IF scale#>5000 THEN SET PARTICLE EMISSIONS p1,0 : SET PARTICLE EMISSIONS p2,0 : SET PARTICLE EMISSIONS p3,0 : SET PARTICLE EMISSIONS p4,0
ENDFUNCTION

+ Code Snippet

Rem Project: MyExplosion
Rem Created: 13/05/2008 7:29:54 PM
Rem Author: sinisterstuf
         `yeah, the forum settings don't allow my name like that because
         `it's apparantly too long. What a pity. Hope you like this program!
         `And thanks to Papa Stiffy for showing me an easy way to rotate cameras

Rem setup
HIDE MOUSE
AUTOCAM OFF
SYNC ON
SYNC RATE 120

Rem the textures for the sparks
CREATE BITMAP 1,16,16
x1=7
x2=8
REPEAT
   LINE 0,y,15,y
   INC y
   IF x1=0 THEN flag=1
   IF flag=0 THEN DEC x1 : INC x2
   IF flag=1 THEN INC x1 : DEC x2
UNTIL y=15
GET IMAGE 1,0,0,15,15
CLS
SET CURRENT BITMAP 0

Rem the box is on a surface
MAKE OBJECT PLAIN 2,270,270
ROTATE OBJECT 2,270,0,0
COLOR OBJECT 2,RGB(223,157,2)

Rem I don't like the blue background but what can I do?
MAKE OBJECT SPHERE 8,500
POSITION OBJECT 8,0,0,0
COLOR OBJECT 8,RGB(0,0,0)
SET OBJECT CULL 8,0
SET OBJECT SPECULAR 8,RGB(0,0,0)
SET OBJECT DIFFUSE 8,RGB(0,0,0)

Rem the box with explosives in:
make_face(3,0,10,0,270,0,0) `the box's detachable top face
make_face(4,5,5,0,0,90,0) `the box's detachable right face
make_face(5,0,5,-5,0,0,0) `the box's detachable front face
make_face(6,-5,5,0,0,-90,0) `the box's detachable left face
make_face(7,0,5,5,0,180,0) `the box's detachable back face

Rem more optional boxes
make_box(9,50,50)
make_box(10,-50,-50)
make_box(11,50,-50)
make_box(12,-50,50)
make_box(13,50,0)
make_box(14,-50,0)
make_box(15,0,50)
make_box(16,0,-50)

Rem all the explosives for incase the boxes are set to contain them
make_explosives(6,7,8,9,17,3,50,50)
make_explosives(10,11,12,13,18,4,-50,-50)
make_explosives(14,15,16,17,19,5,50,-50)
make_explosives(18,19,20,21,20,6,-50,50)
make_explosives(22,23,24,25,21,7,50,0)
make_explosives(26,27,28,29,22,8,-50,0)
make_explosives(30,31,32,33,23,9,0,50)
make_explosives(34,35,36,37,24,10,0,-50)

Rem sparks will fly out of the box
MAKE PARTICLES 1,1,30,30
SET PARTICLE VELOCITY 1,5
SET PARTICLE GRAVITY 1,1
SET PARTICLE LIFE 1,50
HIDE PARTICLES 1
MAKE PARTICLES 3,1,30,30
SET PARTICLE VELOCITY 3,1
SET PARTICLE GRAVITY 3,1
SET PARTICLE LIFE 3,50
HIDE PARTICLES 3
MAKE PARTICLES 4,1,30,30
SET PARTICLE VELOCITY 4,1
SET PARTICLE GRAVITY 4,0
SET PARTICLE LIFE 4,25
HIDE PARTICLES 4
MAKE PARTICLES 5,1,30,30
SET PARTICLE VELOCITY 5,10
SET PARTICLE GRAVITY 5,5
SET PARTICLE LIFE 5,25
HIDE PARTICLES 5

Rem and a massive explosion shockwave
MAKE OBJECT SPHERE 1,5
COLOR OBJECT 1,RGB(255,255,0)
POSITION OBJECT 1,0,2,0
GHOST OBJECT ON 1
Rem and this light:
MAKE LIGHT 2
SET POINT LIGHT 2,0,2,0
COLOR LIGHT 2,250,250,200
SET LIGHT RANGE 2,1
HIDE LIGHT 2

Rem and smoke from the ground at the end
MAKE PARTICLES 2,1,50,50
COLOR PARTICLES 2,20,20,20
POSITION PARTICLES 2,0,-10,0
SET PARTICLE EMISSIONS 2,1
SET PARTICLE GRAVITY 2,-10
SET PARTICLE VELOCITY 2,1
SET PARTICLE SPEED 2,0.001
GHOST PARTICLES ON 2,3
HIDE PARTICLES 2

Rem this is supposed to make the box look cooler...
MAKE LIGHT 1
SET SPOT LIGHT 1,5,10
POSITION LIGHT 1,100,30,-100
COLOR LIGHT 1,235,235,170
SET LIGHT RANGE 1,50
POINT LIGHT 1,30,5,-30

Rem position a camera
POSITION CAMERA 0,55,35,-100
POINT CAMERA 0,0,0,0


Rem these are some variables for the explosion loop
hor#=5
scale#=5
flag=0
count=1
camrot#=5
up#=10
bncflag=0
parcol=20
b=0
overlap=0

Rem you now get to choose a whole load of effects!!!
REPEAT
   IF SPACEKEY()=1 AND b<8
      INC b,1
      IF CONTROLKEY()=1 AND overlap=0
         IF b=1 THEN boxprop1=1
         IF b=2 THEN boxprop2=1
         IF b=3 THEN boxprop3=1
         IF b=4 THEN boxprop4=1
         IF b=5 THEN boxprop5=1
         IF b=6 THEN boxprop6=1
         IF b=7 THEN boxprop7=1
         IF b=8 THEN boxprop8=1
         boxprop=1
         overlap=1
      ENDIF
      IF SHIFTKEY()=1 AND overlap=0
         IF b=1 THEN boxprop1=2
         IF b=2 THEN boxprop2=2
         IF b=3 THEN boxprop3=2
         IF b=4 THEN boxprop4=2
         IF b=5 THEN boxprop5=2
         IF b=6 THEN boxprop6=2
         IF b=7 THEN boxprop7=2
         IF b=8 THEN boxprop8=2
         boxprop=2
         overlap=1
      ENDIF
      WAIT 300
      SHOW OBJECT (b+8)
      xpos#=OBJECT POSITION X(b+8) : ypos#=OBJECT POSITION Y(b+8) : zpos#=OBJECT POSITION Y(b+8)
      REPEAT
         IF boxprop=0 THEN TEXT 0,0,"EMPTY BOX"
         IF boxprop=1 THEN TEXT 0,0,"HEAVY BOX"
         IF boxprop=2 THEN TEXT 0,0,"EXPLODING BOX"
         TEXT 150,90,"ARROW KEYS TO POSITION"
         TEXT 150,120,"SPACEBAR TO CONFIRM"
         IF UPKEY()=1 THEN move_box((b+8),0,0.1)
         IF DOWNKEY()=1 THEN move_box((b+8),0,-0.1)
         IF LEFTKEY()=1 THEN move_box((b+8),-0.1,0)
         IF RIGHTKEY()=1 THEN move_box((b+8),0.1,0)
         SYNC
      UNTIL SPACEKEY()=1
      POINT OBJECT (b+8),0,5,0
      overlap=0
      boxprop=0
      WAIT 300
   ENDIF
   IF MOUSECLICK()=1 THEN flag=1
   IF MOUSECLICK()=2 THEN flag=2 : slowmoflag=1
   IF RETURNKEY()=1 AND spin=0 THEN spin=1 : WAIT 300
   IF RETURNKEY()=1 AND spin=1 THEN spin=0 : WAIT 300
   IF UPKEY()=1 AND CAMERA POSITION Y()>10 THEN MOVE CAMERA 1
   IF DOWNKEY()=1 AND CAMERA POSITION Y()<40 THEN XROTATE CAMERA 17 : MOVE CAMERA -1
   IF spin=0
      camrot#=CAMERA ANGLE Y()
      ROTATE CAMERA 0,0,(camrot#+90),0
      MOVE CAMERA 2
      ROTATE CAMERA 0,0,(camrot#-90),0
      POINT CAMERA 0,0,0
   ENDIF
   TEXT 150,150,"CLICK TO DETONATE THE BOMB IN THE BOX"
   TEXT 200,290,"[RIGHT-CLICK FOR SLOW MOTION]"
   TEXT 200,320,"[SPACEBAR TO ADD AN EMPTRY BOX]"
   TEXT 200,350,"[CTRL+SPACEBAR TO ADD A HEAVY BOX]"
   TEXT 200,380,"[SHIFT+SPACEBAR TO ADD AN EXPLODING BOX]"
   TEXT 200,410,"[ARROW KEYS TO ZOOM]"
   TEXT 200,440,"[ENTER TO TOGGLE CAMERA ROTATION]"
   SYNC
UNTIL flag>0
IF flag=1 THEN scaleup#=64 : rotup#=2 : verup#=1 : horup#=.5 : parspeed#=0.008 : split=25 : camspeed#=2
IF flag=2 THEN scaleup#=16 : rotup#=.5 : verup#=.25 : horup#=.125 : parspeed#=0.002 : split=100 : camspeed#=0.5
flag=0

`makes explosion light and particles visible. duh.
SHOW PARTICLES 1
SET PARTICLE SPEED 1,parspeed#
SHOW PARTICLES 3
SET PARTICLE SPEED 3,parspeed#
SHOW PARTICLES 4
SET PARTICLE SPEED 4,parspeed#
SHOW PARTICLES 5
SET PARTICLE SPEED 5,parspeed#
SHOW LIGHT 2

Rem this is so that escape will delete all objects on exit; escape end loop below
DISABLE ESCAPEKEY

```````````````````````````````***MAIN LOOP***```````````````````````````````
REPEAT
`increments all movement variables
   INC scale#,scaleup#
   INC rot#,rotup#
   INC ver#,verup#
   INC hor#,horup#
   IF flag=0 THEN INC up#,verup#
   IF flag=1 THEN DEC up#,(verup#/2)
   INC count

`"randomly" spins the box's faces
   IF flag<3 THEN ROTATE OBJECT 3,rot#,(2*rot#),rot#
   ROTATE OBJECT 4,(2*rot#),rot#,(rot#/2)
   ROTATE OBJECT 5,rot#,rot#,(2*rot#)
   ROTATE OBJECT 6,rot#,(3*rot#),rot#
   ROTATE OBJECT 7,(3*rot#),rot#,rot#

`makes the faces fly apart
   IF flag<3 THEN POSITION OBJECT 3,0,up#,0
   POSITION OBJECT 4,ver#,hor#,5
   POSITION OBJECT 5,-5,hor#,ver#
   POSITION OBJECT 6,-ver#,hor#,-5
   POSITION OBJECT 7,5,hor#,-ver#

`light and ghosted sphere expand with explosion
   SCALE OBJECT 1,scale#,scale#,scale#
   SET LIGHT RANGE 2,scale#

`yellow then white particles are produced ...and some other timed effects too
   IF count>10 THEN smoke=1
   IF count=split THEN COLOR PARTICLES 1,255,255,0 : COLOR PARTICLES 3,255,255,0 : COLOR PARTICLES 4,255,255,0 : COLOR PARTICLES 5,255,255,0
   IF count=(2*split) THEN SET PARTICLE EMISSIONS 1,0 : SET PARTICLE EMISSIONS 3,0 : SET PARTICLE EMISSIONS 4,0 : SET PARTICLE EMISSIONS 5,0
   IF count=(4*split) THEN flag=1
   IF smoke=1
      IF smokeon=0 THEN SHOW PARTICLES 2 : smokeon=1
      ROTATE PARTICLES 2,0,-rot#,0
      IF emit=8 AND emitf=0 THEN emitf=1
      IF emit=-8 AND emitf=1 THEN emitf=0
      IF emit<8 AND emitf=0 THEN INC emit
      IF emit>-8 AND emitf=1 THEN DEC emit
      POSITION PARTICLE EMISSIONS 2,0,emit,0 : `This makes smoke
   ENDIF

   IF boxprop1=0 AND OBJECT HIT(9,1) THEN boxflag1=1
   IF boxprop1=1 AND OBJECT COLLISION(9,1) THEN boxflag1=2
   IF boxprop1=2 AND OBJECT COLLISION(9,1) THEN boxflag1=3

   IF boxprop2=0 AND OBJECT HIT(10,1) THEN boxflag2=1
   IF boxprop2=1 AND OBJECT COLLISION(10,1) THEN boxflag2=2
   IF boxprop2=2 AND OBJECT COLLISION(10,1) THEN boxflag2=3

   IF boxprop3=0 AND OBJECT HIT(11,1) THEN boxflag3=1
   IF boxprop3=1 AND OBJECT COLLISION(11,1) THEN boxflag3=2
   IF boxprop3=2 AND OBJECT COLLISION(11,1) THEN boxflag3=3

   IF boxprop4=0 AND OBJECT HIT(12,1) THEN boxflag4=1
   IF boxprop4=1 AND OBJECT COLLISION(12,1) THEN boxflag4=2
   IF boxprop4=2 AND OBJECT COLLISION(12,1) THEN boxflag4=3

   IF boxprop5=0 AND OBJECT HIT(13,1) THEN boxflag5=1
   IF boxprop5=1 AND OBJECT COLLISION(13,1) THEN boxflag5=2
   IF boxprop5=2 AND OBJECT COLLISION(13,1) THEN boxflag5=3

   IF boxprop6=0 AND OBJECT HIT(14,1) THEN boxflag6=1
   IF boxprop6=1 AND OBJECT COLLISION(14,1) THEN boxflag6=2
   IF boxprop6=2 AND OBJECT COLLISION(14,1) THEN boxflag6=3

   IF boxprop7=0 AND OBJECT HIT(15,1) THEN boxflag7=1
   IF boxprop7=1 AND OBJECT COLLISION(15,1) THEN boxflag7=2
   IF boxprop7=2 AND OBJECT COLLISION(15,1) THEN boxflag7=3

   IF boxprop8=0 AND OBJECT HIT(16,1) THEN boxflag8=1
   IF boxprop8=1 AND OBJECT COLLISION(16,1) THEN boxflag8=2
   IF boxprop8=2 AND OBJECT COLLISION(16,1) THEN boxflag8=3

   IF boxflag1=1
      IF xx1=0 THEN PITCH OBJECT DOWN 9,40 : xx1=1
      MOVE OBJECT 9,(-horup#*2)
   ENDIF
   IF boxflag1=2
      MOVE OBJECT 9,(-horup#)
   ENDIF
   IF boxflag1=3
      detonate_box(9,6,7,8,9,17,3,(scale#-(counter*scaleup#)))
   ENDIF

   IF boxflag2=1
      IF xx2=0 THEN PITCH OBJECT DOWN 10,40 : xx2=1
      MOVE OBJECT 10,(-horup#*2)
   ENDIF
   IF boxflag2=2
      MOVE OBJECT 10,(-horup#)
   ENDIF
   IF boxflag2=3
      detonate_box(10,10,11,12,13,18,4,(scale#-(counter*scaleup#)))
   ENDIF

   IF boxflag3=1
      IF xx3=0 THEN PITCH OBJECT DOWN 11,40 : xx3=1
      MOVE OBJECT 11,(-horup#*2)
   ENDIF
   IF boxflag3=2
      MOVE OBJECT 11,(-horup#)
   ENDIF
   IF boxflag3=3
      detonate_box(11,14,15,16,17,19,5,(scale#-(counter*scaleup#)))
   ENDIF

   IF boxflag4=1
      IF xx4=0 THEN PITCH OBJECT DOWN 12,40 : xx4=1
      MOVE OBJECT 12,(-horup#*2)
   ENDIF
   IF boxflag4=2
      MOVE OBJECT 12,(-horup#)
   ENDIF
   IF boxflag4=3
      detonate_box(12,18,19,20,21,20,6,(scale#-(counter*scaleup#)))
   ENDIF

   IF boxflag5=1
      IF xx5=0 THEN PITCH OBJECT DOWN 13,40 : xx5=1
      MOVE OBJECT 13,(-horup#*2)
   ENDIF
   IF boxflag5=2
      MOVE OBJECT 13,(-horup#)
   ENDIF
   IF boxflag5=3
      detonate_box(13,22,23,24,25,21,7,(scale#-(counter*scaleup#)))
   ENDIF

   IF boxflag6=1
      IF xx6=0 THEN PITCH OBJECT DOWN 14,40 : xx6=1
      MOVE OBJECT 14,(-horup#*2)
   ENDIF
   IF boxflag6=2
      MOVE OBJECT 14,(-horup#)
   ENDIF
   IF boxflag6=3
      detonate_box(14,26,27,28,29,22,8,(scale#-(counter*scaleup#)))
   ENDIF

   IF boxflag7=1
      IF xx7=0 THEN PITCH OBJECT DOWN 15,40 : xx7=1
      MOVE OBJECT 15,(-horup#*2)
   ENDIF
   IF boxflag7=2
      MOVE OBJECT 15,(-horup#)
   ENDIF
   IF boxflag7=3
      detonate_box(15,30,31,32,33,23,9,(scale#-(counter*scaleup#)))
   ENDIF

   IF boxflag8=1
      IF xx8=0 THEN PITCH OBJECT DOWN 16,40 : xx8=1
      MOVE OBJECT 16,(-horup#*2)
   ENDIF
   IF boxflag8=2
      MOVE OBJECT 16,(-horup#)
   ENDIF
   IF boxflag8=3
      detonate_box(16,34,35,36,37,24,10,(scale#-(counter*scaleup#)))
   ENDIF

   IF OBJECT COLLISION(2,3)=1 AND flag<3 THEN flag=3

   IF flag=3
      xr#=OBJECT ANGLE X(3) : yr#=OBJECT ANGLE Y(3) : zr#=OBJECT ANGLE Z(3)
      IF ff=0 THEN xp#=OBJECT POSITION X(3) : yp#=OBJECT POSITION Y(3) : zp#=OBJECT POSITION Z(3) : ff=1
      IF OBJECT ANGLE X(3)>450 THEN DEC xr#,rotup#
      IF OBJECT ANGLE Z(3)>360 THEN DEC zr#,rotup#
      IF yp#=90 AND bncflag=0 THEN bncflag=1
      IF yp#<90 AND bncflag=0 THEN INC xp#,(horup#/3) : INC yp#,(verup#/2) : INC zp#,(horup#/3)
      IF yp#>0 AND bncflag=1 THEN INC xp#,(horup#/3) : DEC yp#,(verup#/2) : INC zp#,(horup#/3)
      DEC yr#,rotup#
      ROTATE OBJECT 3,xr#,yr#,zr#
      POSITION OBJECT 3,xp#,yp#,zp#
      IF bncflag=1 AND OBJECT COLLISION(2,3)=1 THEN flag=4 : POSITION OBJECT 3,xp#,yp#+1,zp#
   ENDIF

   IF flag=4
      IF parcol>0 THEN DEC parcol
      COLOR PARTICLES 2,parcol,parcol,parcol
      IF parcol=0 THEN SET PARTICLE EMISSIONS 2,-2 : flag=5
   ENDIF

`The camera spins if 'spin' has been set to 0
`Thanks to Papa Stiffy for showing me this easy-to-use camera rotation method
   IF spin=0
      IF flag=5 AND camspeed#>0 THEN DEC camspeed#,0.0078125
      camrot#=CAMERA ANGLE Y()
      ROTATE CAMERA 0,0,(camrot#+90),0
      MOVE CAMERA camspeed#
      ROTATE CAMERA 0,0,(camrot#-90),0
      POINT CAMERA 0,0,0
   ENDIF

`Displays effect modes on the screen
   IF slowmoflag=1 THEN TEXT 470,0,"SLOW-MOTION ACTIVATED"

   SYNC

UNTIL ESCAPEKEY()=1


`yes, sadly everything has to be deleted again ;)
DELETE IMAGE 1
DELETE BITMAP 1
count=0
REPEAT
   INC count
   IF count<11 THEN DELETE LIGHT count
   IF count<25 THEN DELETE OBJECT count
   DELETE PARTICLES count
UNTIL count=37
CLS

END

Rem This is for making cube faces:
FUNCTION make_face(n,a,b,c,d,e,f)
   MAKE OBJECT PLAIN n,10,10
   POSITION OBJECT n,a,b,c
   ROTATE OBJECT n,d,e,f
   COLOR OBJECT n,RGB(155,78,0)
ENDFUNCTION

Rem this is for making additional boxes
FUNCTION make_box(n,x,z)
   MAKE OBJECT CUBE n,10
   POSITION OBJECT n,x,5,z
   COLOR OBJECT n,RGB(155,78,0)
   HIDE OBJECT n
ENDFUNCTION

Rem This is for making explosion effects for all the boxes
FUNCTION make_explosives(n1,n2,n3,n4,n5,n6,x,z)
Rem sparks will fly out of the box
   MAKE PARTICLES n1,1,30,30
   POSITION PARTICLES n1,x,0,z
   SET PARTICLE VELOCITY n1,5
   SET PARTICLE GRAVITY n1,1
   SET PARTICLE LIFE n1,50
   HIDE PARTICLES n1
   MAKE PARTICLES n2,1,30,30
   POSITION PARTICLES n2,x,0,z
   SET PARTICLE VELOCITY n2,1
   SET PARTICLE GRAVITY n2,1
   SET PARTICLE LIFE n2,50
   HIDE PARTICLES n2
   MAKE PARTICLES n3,1,30,30
   POSITION PARTICLES n3,x,0,z
   SET PARTICLE VELOCITY n3,1
   SET PARTICLE GRAVITY n3,0
   SET PARTICLE LIFE n3,25
   HIDE PARTICLES n3
   MAKE PARTICLES n4,1,30,30
   POSITION PARTICLES n4,x,0,z
   SET PARTICLE VELOCITY n4,10
   SET PARTICLE GRAVITY n4,5
   SET PARTICLE LIFE n4,25
   HIDE PARTICLES n4

Rem and a massive explosion shockwave
   MAKE OBJECT SPHERE n5,5
   COLOR OBJECT n5,RGB(255,255,0)
   POSITION OBJECT n5,x,2,z
   GHOST OBJECT ON n5
   HIDE OBJECT n5
Rem and this light:
   MAKE LIGHT n6
   SET POINT LIGHT n6,x,2,z
   COLOR LIGHT n6,250,250,200
   SET LIGHT RANGE n6,1
   HIDE LIGHT n6
ENDFUNCTION

Rem This is used to move a box and all it's explosive effects during edit
FUNCTION move_box(n,x#,z#)
   xpos#=OBJECT POSITION X(n)+x#
   zpos#=OBJECT POSITION Z(n)+z#
   IF OBJECT HIT(n,4) THEN INC xpos#,0.1
   IF OBJECT HIT(n,5) THEN DEC zpos#,0.1
   IF OBJECT HIT(n,6) THEN DEC xpos#,0.1
   IF OBJECT HIT(n,7) THEN INC zpos#,0.1
   POSITION OBJECT n,xpos#,5,zpos#
   IF n=9
      POSITION PARTICLES 6,xpos#,0,zpos#
      POSITION PARTICLES 7,xpos#,0,zpos#
      POSITION PARTICLES 8,xpos#,0,zpos#
      POSITION PARTICLES 9,xpos#,0,zpos#
      POSITION OBJECT 17,xpos#,2,zpos#
      POSITION LIGHT 3,xpos#,2,zpos#
   ENDIF
   IF n=10
      POSITION PARTICLES 10,xpos#,0,zpos#
      POSITION PARTICLES 11,xpos#,0,zpos#
      POSITION PARTICLES 12,xpos#,0,zpos#
      POSITION PARTICLES 13,xpos#,0,zpos#
      POSITION OBJECT 18,xpos#,2,zpos#
      POSITION LIGHT 4,xpos#,2,zpos#
   ENDIF
   IF n=11
      POSITION PARTICLES 14,xpos#,0,zpos#
      POSITION PARTICLES 15,xpos#,0,zpos#
      POSITION PARTICLES 16,xpos#,0,zpos#
      POSITION PARTICLES 17,xpos#,0,zpos#
      POSITION OBJECT 19,xpos#,2,zpos#
      POSITION LIGHT 5,xpos#,2,zpos#
   ENDIF
   IF n=12
      POSITION PARTICLES 18,xpos#,0,zpos#
      POSITION PARTICLES 19,xpos#,0,zpos#
      POSITION PARTICLES 20,xpos#,0,zpos#
      POSITION PARTICLES 21,xpos#,0,zpos#
      POSITION OBJECT 20,xpos#,2,zpos#
      POSITION LIGHT 6,xpos#,2,zpos#
   ENDIF
   IF n=13
      POSITION PARTICLES 22,xpos#,0,zpos#
      POSITION PARTICLES 23,xpos#,0,zpos#
      POSITION PARTICLES 24,xpos#,0,zpos#
      POSITION PARTICLES 25,xpos#,0,zpos#
      POSITION OBJECT 21,xpos#,2,zpos#
      POSITION LIGHT 7,xpos#,2,zpos#
   ENDIF
   IF n=14
      POSITION PARTICLES 26,xpos#,0,zpos#
      POSITION PARTICLES 27,xpos#,0,zpos#
      POSITION PARTICLES 28,xpos#,0,zpos#
      POSITION PARTICLES 29,xpos#,0,zpos#
      POSITION OBJECT 22,xpos#,2,zpos#
      POSITION LIGHT 8,xpos#,2,zpos#
   ENDIF
   IF n=15
      POSITION PARTICLES 30,xpos#,0,zpos#
      POSITION PARTICLES 31,xpos#,0,zpos#
      POSITION PARTICLES 32,xpos#,0,zpos#
      POSITION PARTICLES 33,xpos#,0,zpos#
      POSITION OBJECT 23,xpos#,2,zpos#
      POSITION LIGHT 9,xpos#,2,zpos#
   ENDIF
   IF n=16
      POSITION PARTICLES 34,xpos#,0,zpos#
      POSITION PARTICLES 35,xpos#,0,zpos#
      POSITION PARTICLES 36,xpos#,0,zpos#
      POSITION PARTICLES 37,xpos#,0,zpos#
      POSITION OBJECT 24,xpos#,2,zpos#
      POSITION LIGHT 10,xpos#,2,zpos#
   ENDIF
ENDFUNCTION

Rem This is to detonate boxes on contact with shockwave
FUNCTION detonate_box(n,p1,p2,p3,p4,s,l,scale#)
`box explodes
   HIDE OBJECT n
   SHOW OBJECT s
   SHOW LIGHT l
   SHOW PARTICLES p1 : COLOR PARTICLES p1,255,255,0
   SHOW PARTICLES p2 : COLOR PARTICLES p2,255,255,0
   SHOW PARTICLES p3 : COLOR PARTICLES p3,255,255,0
   SHOW PARTICLES p4 : COLOR PARTICLES p4,255,255,0

`light and ghosted sphere expand with explosion
   SCALE OBJECT s,scale#,scale#,scale#
   SET LIGHT RANGE l,scale#
   IF scale#>5000 THEN SET PARTICLE EMISSIONS p1,0 : SET PARTICLE EMISSIONS p2,0 : SET PARTICLE EMISSIONS p3,0 : SET PARTICLE EMISSIONS p4,0
ENDFUNCTION

This code is alot in my opinion. I hope you enjoy playing with what I have decided to call: Sinister_Explosion_Maker_3. And if you experiences any problems or find bugs... which there might be. Or if you have any sugesstions then tell me because even though by the time you do it will be too late for me to do anything about it I would still like to know.
Things I didn't have time to add:
+play again prompt
+auto-explosion countdown timer with animated fuse

shows you not to wait till the last minute.
Enjoy!

Happy, always happy!

Back to top

Profile PM Website

BMacZero

20

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 19th May 2008 06:50

Link

@Penfold: If that's your entry, you should probably put it into a working program rather than just a function so people can try it out.

@sinisterstuf: Wow! Looking even better and better! The smoke is better, too.

11 hours, 10 minutes to go!

Unterseeboot - Has you played it?
Los Mineros are on leave...

Back to top

Profile PM Email Website

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 19th May 2008 08:29

Link

Ok, well it's 6:30 AM here... i'm guessing my time is out of sync with bmaczero's... Still can't wait for the results...

Happy, always happy!

Back to top

Profile PM Website

jeffhuys

20

Years of Service

User Offline

Joined: 24th May 2006

Location: No cheesy line here.

Posted: 19th May 2008 09:15

Link

Me too!

When are the results then?

PS: sinisterstuf: Nice stuf you have there

You're the

'th to view this signature!

Back to top

Profile PM Email

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 19th May 2008 10:42

Link

Haha thanks man! And your stuf is sinister too!

I haven't looked at your code because I haven't had time and I might find the answer in there but I was just wondering, how did you make that white shockwave thing, cos that was really cool. And how did you get the particles to be so thick looking?

Happy, always happy!

Back to top

Profile PM Website

bergice

19

Years of Service

User Offline

Joined: 5th Jun 2007

Location: Oslo,Norway

Posted: 19th May 2008 10:57

Link

Can a xbox controller give force?

Dont delete my sig mods, it is 600X120...

Back to top

Profile PM Email

bergice

19

Years of Service

User Offline

Joined: 5th Jun 2007

Location: Oslo,Norway

Posted: 19th May 2008 10:59

Link

Really nice

Dont delete my sig mods, it is 600X120...

Back to top

Profile PM Email

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 19th May 2008 12:02

Link

@Penfold - you only posted a function, you need to post the whole program.

Back to top

Profile PM Email

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 19th May 2008 12:50

Link

I agree with BillR

Happy, always happy!

Back to top

Profile PM Website

Penfold

22

Years of Service

User Offline

Joined: 3rd Dec 2003

Location: RED postbox houses of parliment

Posted: 19th May 2008 14:13

Link

Oops don't know how that happened swear I checked and the code was in there...

Rem Project: Realistic?-Explosion
Rem Created: 17/05/2008 8:31:56 PM
Rem By Penfold AKA Argmentum

Set Display Mode 640,480,16
sync on
sync rate 40

global count = 0

`white core texture
create bitmap 1, 15,15
   for i=1 to 15
      for t=1 to 15
         color=rnd(150)
         ink rgb(color,color,color),0
         box i-1,t-1,i+1,t+1
      next t
   next i
   get image 1,0,0,15,15
   cls
   set current bitmap 0

`red core texture
create bitmap 2, 5,5
   for i=1 to 5
      for t=1 to 5
         color=rnd(255)
         ink rgb(color,0,0),0
         box i-1,t-1,i+1,t+1
      next t
   next i
   get image 2,0,0,5,5
   cls
   set current bitmap 0

`smoke texture
create bitmap 3, 15,15
   for i=1 to 15
      for t=1 to 15
         color=rnd(5)
         ink rgb(color,color,color),0
         box i-1,t-1,i+1,t+1
      next t
   next i
   get image 3,0,0,15,15
   cls
   set current bitmap 0

`debris texture
create bitmap 4, 15,15
cls
Ink rgb(255,0,0),0
FilledCircle(7,7,5)
blur bitmap 4,4
get image 4,0,0,15,15
cls
set current bitmap 0

`yellow intense core
MAKE OBJECT SPHERE 1,5
COLOR OBJECT 1,RGB(255,255,0)
POSITION OBJECT 1,0,2,0
GHOST OBJECT ON 1

`yellow 2 intense core
MAKE OBJECT SPHERE 2,5
COLOR OBJECT 2,RGB(255,255,155)
POSITION OBJECT 2,0,2,0
GHOST OBJECT ON 2

`cones of light

`white hot inner core
MAKE PARTICLES 1,1,100,10
SET PARTICLE VELOCITY 1,2
SET PARTICLE GRAVITY 1,1
SET PARTICLE LIFE 1,20
HIDE PARTICLES 1

`red hot fireball core
MAKE PARTICLES 2,2,50,5
SET PARTICLE VELOCITY 2,2
SET PARTICLE GRAVITY 2,1
SET PARTICLE LIFE 2,5
HIDE PARTICLES 2

`expanding smoke
MAKE PARTICLES 3,3,30,30
SET PARTICLE VELOCITY 3,5
SET PARTICLE GRAVITY 3,1
SET PARTICLE LIFE 3,50
HIDE PARTICLES 3

`debris
MAKE PARTICLES 4,4,50,10
SET PARTICLE VELOCITY 4,3
SET PARTICLE GRAVITY 4,2
SET PARTICLE LIFE 4,30
HIDE PARTICLES 4

` position the camera
POSITION CAMERA 0,40,40,-100
POINT CAMERA 0,0,0,0

`change ink back to white
ink rgb(255,255,255),0

`get ready go!
REPEAT
   TEXT 150,150,"CLICK TO START EXPLOSION"
   sync
UNTIL mouseclick()=1

`show particles
SHOW PARTICLES 1
SHOW PARTICLES 2
SHOW PARTICLES 3
SHOW PARTICLES 4
`set particle speed

`allows for safe kill
DISABLE ESCAPEKEY

`-----------------------------MAIN-----------------------------------------
REPEAT
text 0,15, "FPS: "+str$(screen FPS())
text 0,30, "Count: "+str$(count)
sync

`timer
inc count

`intial burst from explosion
   SCALE OBJECT 1,count*150,count*150,count*150
   SCALE OBJECT 2,count*150,count*150,count*150

`particals die out
if count>70 then set particle emissions 1,0
if count>50 then set particle emissions 2,0
if count>90 then set particle emissions 3,0
if count>110 then set particle emissions 4,0

`repeat
if count>400
   count = 1
   set particle emissions 1,10
   set particle emissions 2,15
   set particle emissions 3,30
   set particle emissions 4,5
endif

`pastes the particle image onscreen
paste image 4,0,50

`soft kill
UNTIL ESCAPEKEY()=1

` get into habbit of killing entitys
DELETE PARTICLES 1
DELETE PARTICLES 2
DELETE PARTICLES 3
DELETE PARTICLES 4
DELETE IMAGE 1
DELETE BITMAP 1

end

`Ian m's filled circle function
function FilledCircle( CX as integer, CY as integer, R as integer )
   local x as integer
   local y as integer
   local i as integer
   local s as integer
   ` Precalculate the square of the radius - this is the hypotenuse
   i=R*R
   ` Calculate the size of the central square
   s=R*0.70710678 : ` this number is sin(45)
   ` Draw it
   box CX-s, CY-s, CX+s+1, CY+s+1
   s=s+1
   ` Loop through the bit we have not yet drawn
   for y=s to R
      x=sqrt( i-(y*y) )
      ` Draw top and bottom
      box CX-x, CY-y, CX+x+1, CY-y+1
      box CX-x, CY+y, CX+x+1, CY+y+1
      ` Draw left and right
      box CX-y, CY-x, CX-y+1, CY+x+1
      box CX+y, CY-x, CX+y+1, CY+x+1
   next y
endfunction

+ Code Snippet

Rem Project: Realistic?-Explosion
Rem Created: 17/05/2008 8:31:56 PM
Rem By Penfold AKA Argmentum

Set Display Mode 640,480,16
sync on
sync rate 40

global count = 0

`white core texture
create bitmap 1, 15,15
   for i=1 to 15
      for t=1 to 15
         color=rnd(150)
         ink rgb(color,color,color),0
         box i-1,t-1,i+1,t+1
      next t
   next i
   get image 1,0,0,15,15
   cls
   set current bitmap 0

`red core texture
create bitmap 2, 5,5
   for i=1 to 5
      for t=1 to 5
         color=rnd(255)
         ink rgb(color,0,0),0
         box i-1,t-1,i+1,t+1
      next t
   next i
   get image 2,0,0,5,5
   cls
   set current bitmap 0

`smoke texture
create bitmap 3, 15,15
   for i=1 to 15
      for t=1 to 15
         color=rnd(5)
         ink rgb(color,color,color),0
         box i-1,t-1,i+1,t+1
      next t
   next i
   get image 3,0,0,15,15
   cls
   set current bitmap 0

`debris texture
create bitmap 4, 15,15
cls
Ink rgb(255,0,0),0
FilledCircle(7,7,5)
blur bitmap 4,4
get image 4,0,0,15,15
cls
set current bitmap 0

`yellow intense core
MAKE OBJECT SPHERE 1,5
COLOR OBJECT 1,RGB(255,255,0)
POSITION OBJECT 1,0,2,0
GHOST OBJECT ON 1

`yellow 2 intense core
MAKE OBJECT SPHERE 2,5
COLOR OBJECT 2,RGB(255,255,155)
POSITION OBJECT 2,0,2,0
GHOST OBJECT ON 2

`cones of light

`white hot inner core
MAKE PARTICLES 1,1,100,10
SET PARTICLE VELOCITY 1,2
SET PARTICLE GRAVITY 1,1
SET PARTICLE LIFE 1,20
HIDE PARTICLES 1

`red hot fireball core
MAKE PARTICLES 2,2,50,5
SET PARTICLE VELOCITY 2,2
SET PARTICLE GRAVITY 2,1
SET PARTICLE LIFE 2,5
HIDE PARTICLES 2

`expanding smoke
MAKE PARTICLES 3,3,30,30
SET PARTICLE VELOCITY 3,5
SET PARTICLE GRAVITY 3,1
SET PARTICLE LIFE 3,50
HIDE PARTICLES 3

`debris
MAKE PARTICLES 4,4,50,10
SET PARTICLE VELOCITY 4,3
SET PARTICLE GRAVITY 4,2
SET PARTICLE LIFE 4,30
HIDE PARTICLES 4

` position the camera
POSITION CAMERA 0,40,40,-100
POINT CAMERA 0,0,0,0

`change ink back to white
ink rgb(255,255,255),0

`get ready go!
REPEAT
   TEXT 150,150,"CLICK TO START EXPLOSION"
   sync
UNTIL mouseclick()=1

`show particles
SHOW PARTICLES 1
SHOW PARTICLES 2
SHOW PARTICLES 3
SHOW PARTICLES 4
`set particle speed

`allows for safe kill
DISABLE ESCAPEKEY

`-----------------------------MAIN-----------------------------------------
REPEAT
text 0,15, "FPS: "+str$(screen FPS())
text 0,30, "Count: "+str$(count)
sync

`timer
inc count

`intial burst from explosion
   SCALE OBJECT 1,count*150,count*150,count*150
   SCALE OBJECT 2,count*150,count*150,count*150

`particals die out
if count>70 then set particle emissions 1,0
if count>50 then set particle emissions 2,0
if count>90 then set particle emissions 3,0
if count>110 then set particle emissions 4,0

`repeat
if count>400
   count = 1
   set particle emissions 1,10
   set particle emissions 2,15
   set particle emissions 3,30
   set particle emissions 4,5
endif

`pastes the particle image onscreen
paste image 4,0,50

`soft kill
UNTIL ESCAPEKEY()=1

` get into habbit of killing entitys
DELETE PARTICLES 1
DELETE PARTICLES 2
DELETE PARTICLES 3
DELETE PARTICLES 4
DELETE IMAGE 1
DELETE BITMAP 1

end

`Ian m's filled circle function
function FilledCircle( CX as integer, CY as integer, R as integer )
   local x as integer
   local y as integer
   local i as integer
   local s as integer
   ` Precalculate the square of the radius - this is the hypotenuse
   i=R*R
   ` Calculate the size of the central square
   s=R*0.70710678 : ` this number is sin(45)
   ` Draw it
   box CX-s, CY-s, CX+s+1, CY+s+1
   s=s+1
   ` Loop through the bit we have not yet drawn
   for y=s to R
      x=sqrt( i-(y*y) )
      ` Draw top and bottom
      box CX-x, CY-y, CX+x+1, CY-y+1
      box CX-x, CY+y, CX+x+1, CY+y+1
      ` Draw left and right
      box CX-y, CY-x, CX-y+1, CY+x+1
      box CX+y, CY-x, CX+y+1, CY+x+1
   next y
endfunction

'Ooh 'eck chief'...'crumbs'

Back to top

Profile PM

BMacZero

20

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 19th May 2008 16:40 Edited at: 19th May 2008 16:41

Link

Alrighty, here are the much-awaited judgements:

Penfold: Pretty neat! Your particles had nice gravity and other settings on them, even though they were pink

sinisterstuf: Great use of particles, I also liked the ability to add boxes around the explosion, though the smoke could have been still better if you had more time.

jeffhuys: Nice, big explosion, with particles,shockwave, flying debris, and smoke! Very cool, though your smoke too could have used a little more work.

Must Program: Sorry, I couldn't judge your code because there were so many syntax errors. I started fixing them but then noticed you had too many parameters for certain commands, and I didn't know which one were the right ones. Run your code next time

Darth Vader: The only 2D explosion, it had a nice shockwave and some "particles" in there, it could have been more realistic if it stopped after a while, though

chafari: I though I had the winners all picked out, and then I got back to yours

. Had to rethink my choices, yours was incredible and humorous!

CuCuMBeR: Yours, too, was very amazing. I like how the center glowed, that was really neat.

Man, what a decision.

Gotta have a winner though, so after careful deliberation and the flip of a coin (j/k)

, the runner-up is:

+ Code Snippet

A tie between sinisterstuf and chafari!

And the winner:

+ Code Snippet

jeffhuys - because I did say "bonus points for things like flying debris,"
and you had a lot of that!

Unterseeboot - Has you played it?
Los Mineros are on leave...

Back to top

Profile PM Email Website

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 19th May 2008 17:28 Edited at: 19th May 2008 17:29

Link

Yeah! Hi5 guys!

so what's the next challenge?

Happy, always happy!

Back to top

Profile PM Website

BMacZero

20

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 19th May 2008 17:34

Link

jeffhuys

Unterseeboot - Has you played it?
Los Mineros are on leave...

Back to top

Profile PM Email Website

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 19th May 2008 17:54

Link

I might not be able to put in as much effort in the next challange because my parents were pretty anoyed at me spending so much time on this one!

I'll still give it my best though... provided that it's something within my reach... which to be honest this wasn't either, I used atleast 20 commands I had never used before, atleast 5 of which I never knew existed for this challenge!

Happy, always happy!

Back to top

Profile PM Website

jason p sage

19

Years of Service

User Offline

Joined: 10th Jun 2007

Location: Ellington, CT USA

Posted: 19th May 2008 18:02

Link

Congratulations JeffHuys!

Good work Everyone - I don't participate here - but I AM sure a fan!

http://www.jasonpetersage.com/?PAGE=ironinfantry&SECTION=ironinfantry

Back to top

Profile PM Email Website

jinzai

19

Years of Service

User Offline

Joined: 19th Aug 2006

Location: USA

Posted: 19th May 2008 18:14

Link

@bergice : Yes, the XBox 360 controller can be made to vibrate using the function XInputSetState.

Back to top

Profile PM Email Website

jeffhuys

20

Years of Service

User Offline

Joined: 24th May 2006

Location: No cheesy line here.

Posted: 19th May 2008 18:17 Edited at: 19th May 2008 18:18

Link

Woohoo! My first time entering, my first win

Thanks, bmaczero!

Quote: "I'll still give it my best though... provided that it's something within my reach... which to be honest this wasn't either, I used atleast 20 commands I had never used before, atleast 5 of which I never knew existed for this challenge!"

That means you learnt from it, not?

And that's good

Well, I don't really know how to set a challenge, but I'll copy some things from the previous setters:

Challenge
Create a waterfall. This waterfall has to start at the top of a "wall" (or something like that) and stop at the ground. This can be achieved, for example, by using particles that collide.

Scoring
The scoring will be based on, just like the previous challenge, how believable the waterfall is and how many extras there are. (damping and splashing water at the bottom, rocks instead of a wall etc.)

Deadline
The deadline is one week. When there is trouble with the time, I will move it a little.

Try your best and best of all: Have fun

Jeff

PS:

Quote: "Congratulations JeffHuys!"

Thank you

You're the

'th to view this signature!

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / - DBPro Coding Challenges -