TheGameCreators - CodeBase - Freedom 10-4 (3D Movie)

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 22nd Dec 2004 20:16

Modified: 28th Dec 2004 21:37

Author: Trek

Summary

A 3D-Movie/Game-Intro styled program created with DarkBASIC and DarkMATTER models.

Full Description

This was my first 3D program that I finished shortly before the 2004 US Elections. I made it using mainly "for n" "next n" commands to move the various 3D objects in the movie. All media comes from either 1) The DarkMATTER collection 2) Royalty free extras with DarkBASIC 3) My own design I made the intercom voice effect by speaking into one walkie talkie and placing the corresponding set next to my computer microphone. It's a great effect for space/flight sims and would strongly suggest it to anyone wanting such an effect. To download the installation packet for this project, copy and paste the following URL into your adress box : http://daviddaudelin.home.comcast.net/Freedom.zip I only began programming early this year after a friend told me about DarkBASIC and would greatly appreciate all feedback. I'd also appreciate it if you could take some time to check out my software site at http://roborangers.home.comcast.net/Trek.html Thanks for checking my program out. DavidD3 Trek Software Manager

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Remstart

...............................

.                             .

.        Freedom 10-4         .

.             by              .

.        Trek Software        .

...............................

Remend

sync on : sync rate 80

autocam off

hide mouse

set text transparent

set text font "Times New Roman"

set text size 20

load music "audio/Hidden Fury.mid",1

load music "audio/Traxxion.mid",4

load sound "audio/aircraft.wav",1

load sound "audio/m1.wav",2

load sound "audio/journey through space.mp3",3

load sound "audio/sea.wav",4

load sound "audio/doyouread.wav",5

load sound "audio/loud&clear.wav",6

load sound "audio/onmytail.wav",7

load sound "audio/onmyway.wav",8

load sound "audio/knockoffthrottle.wav",9

load sound "audio/backinbusiness.wav",10

load sound "audio/mandown.wav",11

load sound "audio/lookout.wav",12

load sound "audio/superhit.wav",13

load sound "audio/tellamerica.wav",14

load sound "audio/rodger.wav",15

load sound "audio/hitintail.wav",16

play sound 3

wait 2000

load bitmap "Graphics/Trek.bmp"

wait 3000

load bitmap "Graphics/presents.bmp"

wait 3000

play music 1

load bitmap "Graphics/title.bmp"

wait 4000

load sound "audio/prop.wav",20

load sound "audio/gun.wav",21

load sound "audio/hit.wav",23

load sound "audio/machinegun.wav",25

cls

load Image "Models/Biplane (1).bmp",2

load object "Models/Biplane.x",4

texture object 4,2

yrotate object 4,180

scale object 4,2,2,2

hide object 4

load object "Sky/ds.x",2

scale object 2,10,10,10

position object 2,5,0,100

sync

wait 100

z=300

wait 2000

Load object "Models/Jet.x",1

load object "Models/Nazi.x",5

load object "Models/Nazi2.x",6

load object "Models/Nazi3.x",7

hide object 5

hide object 6

hide object 7

load image "Models/Iraq.bmp",15

texture object 5,15

texture object 6,15

texture object 7,15

play sound 1

for n=1 to 400

z=z-1

position object 1,5,0,z

point camera 5,0,z

sync

next n

z=600

x#=-1

loop sound 4

for n=1 to 400

z=z-1

x#=x#+.05

position object 1,5,0,z

position camera x#,0,z+20

point camera 5,0,z

sync

next n

z=400

x#=-1

for n=1 to 500

z=z-1

x#=x#+.05

position object 1,5,0,z

position camera x#,6,z-20

point camera 5,0,z

sync

next n

for n=1 to 160

y#=y#-.1

z#=z#-.6

angle=angle+1

position object 1,5,y#,z#

zrotate object 1,angle

position camera x#,6,z#-20

point camera 5,0,z#

sync

next n

z=200

for n=1 to 300

z=z-1

if z<130 and switch=0 then angle=angle-2 : zrotate object 1,angle : if angle=0 then switch=1

position object 1,5,0,z

position camera 5,0,0

point camera 5,0,z

sync

next n

load object "Sky/am.x",3

scale object 3,10,10,10

position object 3,5,0,100

z=400

x#=-1

show object 4

hide object 2

hide object 1

xrotate object 4,90

x=0

stop sound 4

loop sound 20

for n=1 to 500

z=z-1

x#=x#+.05

if n=100 then play sound 5

x=x+20 : if x=360 then x=0

rotate limb 4,4,0,x,0

position object 4,5,10,z

position camera x#,12,z-20

point camera 5,10,z

text 170,430,"Rodger this is 10-4 coming in do you read me...?"

sync

next n

stop sound 20

hide object 3

hide object 4

show object 2

show object 1

z=200

x#=-1

loop sound 4

for n=1 to 400

z=z-1

x#=x#+.05

if n=100 then play sound 6

position object 1,5,0,z

position camera x#+20,0,z

point camera 5,0,z

text 180,430,"Rodger 10-4 loud and clear what's up...?"

sync

next n

show object 4

show object 3

hide object 2

hide object 1

z=300

x#=0

y#=10

loop sound 20

for n=1 to 500

z=z-1

y#=y#+.03

x#=x#+.05

if n=100 then play sound 7

x=x+20 : if x=360 then x=0

rotate limb 4,4,0,x,0

yrotate object 4,x#

position object 4,5,y#,z

position camera 5,12,z+20

point camera 5,y#,z

text 180,430,"Rodger I got three Iraqis on my tail - over..."

sync

next n

stop sound 20

hide object 3

hide object 4

show object 2

show object 1

z=200

z1#=200

x#=-1

y#=0

loop sound 4

angle=0

play sound 8

for n=1 to 200

z=z-1

z1#=z1#-.7

angle=angle+1

x#=x#+.05

y#=y#+.1

position object 1,5,y#,z

position camera x#+20,0,z1#

point camera 5,y#,z

text 210,430,"Alright I'm on my way..."

sync

next n

fog on : fog distance 2000 : fog color rgb(0,0,0)

fogdist=2000

for n=1 to 200

z=z-1

fogdist=fogdist-10

fog distance fogdist

z1#=z1#-.7

angle=angle+1

x#=x#+.05

y#=y#+.1

position object 1,5,y#,z

position camera x#+20,0,z1#

point camera 5,y#,z

sync

next n

show object 5

show object 6

show object 7

show object 4

show object 3

hide object 2

hide object 1

z2#=850

z=600

yrotate object 4,180

for n=1 to 500

fogdist=fogdist+10

fog distance fogdist

z=z-1

z2#=z2#-1.5

x=x+20 : if x=360 then x=0

rotate limb 4,4,0,x,0

position object 4,5,10,z

position object 5,7,10,z2#

position object 6,2,13,z2#

position object 7,-2,16,z2#

position camera 5,12,z+150

point camera 5,10,z

sync

next n

hide object 1

hide object 2

hide object 4

z=400

x#=-1

play sound 21

for n=1 to 500

z=z-1

x#=x#+.03

position object 5,0,-3,z

position object 7,5,0,z

position object 6,10,3,z

position camera x#,3,z-10

point camera 5,0,z

sync

next n

hide object 3

hide object 4

hide object 5

hide object 6

hide object 7

show object 2

show object 1

z=400

x#=-1

loop sound 4

for n=1 to 330

z=z-2

x#=x#+.05

position object 1,5,0,z

position camera x#+20,0,z

point camera 5,0,z

sync

next n

hide object 1

hide object 2

hide object 5

hide object 6

show object 3

show object 4

show object 7

z=550

y#=15

angle#=0

play sound 23

for n=1 to 360

y#=y#-.1

angle#=angle#+.5

yrotate object 4,angle#

z=z-1

x=x+20 : if x=360 then x=0

rotate limb 4,4,0,x,0

position object 4,5,y#,z

position object 7,5,10,z+30

position camera 5,16,z+40

point camera 5,10,z

sync

next n

show object 1

hide object 4

hide object 5

hide object 7

z=350

angle#=360

y#=100

for n=1 to 200

z=z-1

angle#=angle#-.1

xrotate object 1,angle#

y#=y#-.5

position object 1,5,y#,z

position camera 30,y#,z

point camera 5,y#,z

sync

next n

for n=1 to 200

z=z-1

y#=y#-.2

angle#=angle#+.1

xrotate object 1,angle#

position object 1,5,y#,z

position camera 30,y#,z

point camera 5,y#,z

sync

next n

hide object 1

show object 4

y#=100

yrotate object 4,90

scale object 4,1,1,1

z=250

xr#=0

stop music 1

play music 4

play sound 16

For n=1 to 300

y#=y#-.7

xr#=xr#+.5

zrotate object 4,xr#

position object 4,5,y#,z

position camera 30,y#,z

point camera 5,y#,z

text 180,430,"Rodger I've been hit in the tail."

sync

next n

z2#=700

z=500

hide object 2

hide object 4

show object 1

show object 5

show object 6

show object 7

for n=1 to 500

z=z-1

z2#=z2#-1.3

if n=100 then play sound 9

position object 5,7,10,z

position object 6,2,13,z

position object 7,-2,16,z

position object 1,5,10,z2#

position camera 5,12,z+100

point camera 5,10,z

if n<280 then text 110,430,"Ok Rodger knock the throttle off and then turn it back on again..."

if n>280 then text 180,430,"I'm gonna take care of these guys - over."

sync

next n

z=400

roll#=0

roll2#=360

y#=10

y2#=16

hide object 1

y3#=13

for n=1 to 150

z=z-1

y#=y#-.2

y2#=y2#-.2

y3#=y3#+.2

roll#=roll#+.6

roll2#=roll2#-.6

zrotate object 5,roll2#

zrotate object 7,roll#

position object 5,7,y#,z

position object 6,2,y3#,z

position object 7,-2,y2#,z

position camera 5,13,z+30

point camera 2,13,z

sync

next n

hide object 5

hide object 6

hide object 7

show object 1

z=300

roll#=360

y#=13

For n=1 to 100

z=z-1

roll#=roll#-.5

y#=y#-.3

zrotate object 1,roll#

position object 1,5,y#,z

position camera 5,13,z-20

point camera 5,13,z

sync

next n

show object 4

hide object 1

hide object 5

hide object 6

hide object 7

y=-30

x=0

angle#=0

zrotate object 4,20

yrotate object 4,180

direction#=-3

z=300

for n=1 to 170

z=z-1

direction#=direction#+.05

x=x+20 : if x=360 then x=0

rotate limb 4,4,0,x,0

y#=y#+direction#

if rtate=0 then angle#=angle#+.5 : xrotate object 4,angle#

if angle#=90 then rtate=1

position object 4,5,y#,z

position camera 20,y#,z

point camera 5,y#,z

sync

next n

play sound 10

for n=1 to 150

z=z-2

x=x+20 : if x=360 then x=0

rotate limb 4,4,0,x,0

position object 4,5,y#,z

position camera 20,y#,z

point camera 5,y#,z

text 200,430,"Rodger I am back in business."

sync

next n

z=400

roll#=0

roll2#=360

y#=10

y2#=16

x#=7

y3#=13

show object 1

show object 5

show object 6

show object 7

yrotate object 1,180

play sound 21

for n=1 to 520

if n=200 then play sound 1

z=z-1

y#=y#-.2

y2#=y2#-.2

y3#=y3#+.2

x#=x#+.5

roll#=roll#+.6

roll2#=roll2#-.6

zrotate object 5,roll2#

zrotate object 7,roll#

position object 5,x#,y#,z

position object 1,x#+10,y#+10,z#

position object 6,2,y3#,z

position object 7,-2,y2#,z

position camera x#+5,y#,z+30

point camera x#,y#,z

sync

next n

y#=100

yrotate object 5,180

xrotate object 5,50

z=250

xr#=0

x=0

y2#=0

show object 5

play sound 11

For n=1 to 450

y#=y#-.9

x=x+1

xr#=xr#+.5

zrotate object 5,xr#

position object 5,5,y#,z

position camera 30,100,z

point camera 5,y#,z

text 250,430,"Man down!!"

sync

next n

delete object 5

play sound 23

z=550

y#=15

x=0

angle#=0

hide object 7

hide object 1

show object 4

show object 6

set object rotation xyz 6

set object rotation xyz 4

xrotate object 4,90

zrotate object 4,356

scale object 4,2,2,2

stop sound 23

loop sound 25

for n=1 to 560

if n>=200 then y#=y#-.1

if n>=200 then angle#=angle#+.5

if n>=200 then yrotate object 6,angle#

if n>=200 then zrotate object 6,angle#

if n=200 then stop sound 25 : play sound 23

z=z-1

x=x+20 : if x=360 then x=0

rotate limb 4,4,0,x,0

position object 6,5,y#,z

position object 4,5,10,z+50

position camera 5,13,z+55

point camera 5,10,z

sync

next n

delete object 6

show object 7

show object 1

z#=100

z2#=600

set object rotation xyz 1

set object rotation xyz 7

yrotate object 1,190

x#=-1

For n=1 to 500

z#=z#+.5

if n<200 then x#=x#+.5

if n>100 then z2#=z2#-.5

position object 7,0,10,z2#

position object 1,0,10,z#

position camera x#,10,z#-10

point camera 0,10,z#

sync

next n

play sound 12

For n=1 to 150

z#=z#+.2

x#=x#-.3

if n>100 then z2#=z2#-.2

position object 7,0,10,z2#

position object 1,0,10,z#

position camera x#,10,z#-10

point camera 0,10,z#

text 240,430,"Rodger look out!!!"

sync

next n

y#=200

yrotate object 1,90

xrotate object 1,90

scale object 1,75,75,75

z=250

xr#=0

fog on : fog color rgb(255,255,255) : fog distance 1

play sound 13

dist=1

For n=1 to 1010

dist=dist+10

if n=200 then play sound 14

fog distance dist

y#=y#-.6

xr#=xr#+.3 : if xr#=360 then xr#=0

zrotate object 1,xr#

yrotate object 1,xr#

position object 1,5,y#,z

position camera 30,y#,z

point camera 5,y#,z+5

if n<500 then text 160,430,"Rodger...tell the American people to vote Bush 2004..."

if n>500 then text 160,430,"...so that my death...may be a death for freedom."

sync

next n

fog on : fog color rgb(255,255,255) : fog distance 1

play sound 13

wait 1000

dist=1

dist2=1000

load object "Sky/os.x",11

scale object 11,10,10,10

position object 11,5,0,100

z=300

hide object 1

hide object 7

for n=1 to 500

x=x+20 : if x=360 then x=0

rotate limb 4,4,0,x,0

if n=200 then play sound 15

if n>400 then fog color rgb(0,0,0) : dist2=dist2-10 : fog distance dist2

if n<400 then dist=dist+10

if n<400 then fog distance dist

z=z-1

position object 4,5,0,z

position camera 0,0,0

point camera 5,0,z

sync

if n>195 then text 250,430,"Rodger."

next n

hide object 3

hide object 11

hide object 4

color backdrop rgb(0,0,0)

make object plain 14,16,12

load image "Graphics/Freedom.bmp",14

texture object 14,14

dist=0

for n=1 to 400

if n<200 then dist=dist+1 : fog distance dist

if n>200 then dist=dist-1 : fog distance dist

position camera 0,0,0

position object 14,0,0,10

point camera 0,0,10

if n=400 then delete object 14

sync

next n

make object plain 15,16,12

load image "Graphics/End.bmp",15

texture object 15,15

dist=0

for n=1 to 400

if n<200 then dist=dist+1 : fog distance dist

if n>200 then dist=dist-1 : fog distance dist

position camera 0,0,0

position object 15,0,0,10

point camera 0,0,10

if n=400 then delete object 15

sync

next n

hide object 1

make object plain 16,16,12

load image "Graphics/Add.bmp",16

texture object 16,16

dist=0

for n=1 to 200

dist=dist+1 : fog distance dist

position camera 0,0,0

position object 16,0,0,10

point camera 0,0,10

sync

next n

wait key

end

Download

Please login to download

Comments

No comments yet.

Author Name:	Trek
CodeBase Entries:	19

CodeBase - Freedom 10-4 (3D Movie)

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments