TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 3D

Version: 1.0

Information

Uploaded: 30th Dec 2004 15:39

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

pong 3d very simple

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

remstart

text 0,0,str$(scancode())

sync

loop

remend

rem ************************************************

rem ---4---///------------1------------0-----------*

rem -------------------------------------------///-*

rem ---1-----------PONG----3D---2----1-------------*

rem --------0----------------------0----///--------*

rem -----1------///----------------------2---------*

rem ************************************************

rem chargement

text 320,240,"Chargement [***]"

rem chargement

text 320,240,"Chargement [***]"

rem son

rem  load sound "the air.mp3",1

load sound "pok.wav",2

rem chargement

text 320,240,"Chargement [***]"

backdrop on

color backdrop 0

rem sys

sync on

sync rate 0

set camera range 1,55000

rem vitesse ini

vit#=4

vitmax#=15

ink rgb(255,255,0),0

inc tx,1

if tx>1 then tx=1

text 0,15," ************************************************"

text tx,30," ---4---///------------1------------0-----------*"

text tx,45," -------------------------------------------///-*"

text tx,60," ---1-----------PONG----3D---2----1-------------*"

text tx,75," --------0----------------------0----///--------*"

text tx,90," -----1------///----------------------2---------*"

text 0,105,"************************************************"

text 500,240,"Vitesse max = "+str$(vitmax#)

buttonselected=0

if makebutton(320,140,"New game")>0 then buttonselected=1

if makebutton(320,240,"difficultÃ©")>0 then buttonselected=2

if makebutton(320,340,"Quitter")>0 then buttonselected=3

if buttonselected=1 then exit

if buttonselected=2

vitmax#=vitmax#+0.5

sleep 200

endif

if vitmax#>20 then vitmax#=20

if buttonselected=3 then end

sync

loop

rem encre

ink rgb(255,255,255),0

rem image

load image "floor1.bmp",1

load image "ciel.jpg",2

load image "raq1.bmp",3

load image "raq2.bmp",4

load image "balle.bmp",5

load image "soleil.bmp",6

rem loop sound 1

rem fabriquation du plancher bas

make object box 100,1000,10,1000

make object collision box 100,-500,-5,-500,500,5,500,0

position object 100,500,-10,500

texture object 100,5

rem plancher haut

make object box 150,1000,10,1000

make object collision box 150,-500,-5,-500,500,5,500,0

position object 150,500,1000,500

texture object 150,5

rem effet de collision

make object sphere 2500,90

ghost object on 2500

hide object 2500

position object 2500,0,15000,0

texture object 2500,6

rem ciel

make object sphere 101,8000

set object 101,1,0,0

texture object 101,2

ghost object on 101

rotate object 101,0,90,0

color backdrop rgb(105,45,105)

rem soleil

make object sphere 1000,690

scale object 1000,400,400,400

position object 1000,8000,1000,10000

texture object 1000,6

fade object 1000,300

rem fabriquation raquette + balle + mur

rem raquette

make object box 1,100,100,20

make object collision box 1,-50,-10,-10,50,10,10,0

position object 1,25,0,0

texture object 1,3

ghost object on 1

rem raquette 2

make object box 2,100,100,20

make object collision box 2,-50,-10,-10,50,10,10,0

position object 2,25,0,1000-20

texture object 2,4

ghost object on 2

rem balle

oldposx#=0

oldposz#=0

make object sphere 3,30

posx#=0

posy#=15

posz#=10

position object 3,posx#,posy#,posz#

make object collision box 3,-15,-15,-15,15,15,15,0

texture object 3,5

rem mur

make object box 4,30,1000,1000

make object collision box 4,-15,-15,-500,15,15,500,0

rem pos mur

position object 4,0,500,500

texture object 4,5

make object box 5,30,1000,1000

make object collision box 5,-15,-15,-500,15,15,500,0

rem pos mur

position object 5,1000-25,500,500

texture object 5,5

rem ---------------------------------------------

rem 		Gestion du mouvement de la difficultÃ©

rem ---------------------------------------------

if vitmax#>=16 and vitmax#<=17

make object box 102,200,25,25

position object 102,500,0,500

texture object 102,1

endif

if vitmax#>=17.1 and vitmax#<=18

make object box 102,200,25,25

position object 102,100,0,500

texture object 102,1

make object box 103,200,25,25

position object 103,1000-100,0,500

texture object 103,1

endif

if vitmax#>=18.1 and vitmax#<=19

make object box 102,200,25,25

position object 102,100,0,500

texture object 102,1

make object box 103,200,25,25

position object 103,1000-100,0,500

texture object 103,1

make object box 104,200,25,25

position object 104,500,0,500

texture object 104,1

endif

if vitmax#>=19.1 and vitmax#<=19.5

make object box 102,200,25,25

position object 102,100,0,500

texture object 102,1

make object box 103,200,25,25

position object 103,1000-100,0,500

texture object 103,1

make object box 104,200,25,25

position object 104,500,0,500

texture object 104,1

make object box 105,200,25,25

position object 105,500,0,250

texture object 105,1

make object box 106,200,25,25

position object 106,500,0,750

texture object 106,1

endif

if vitmax#>19.9 and vitmax#<20.9

make object cube 102,100

position object 102,500,0,500

texture object 102,1

make object box 103,200,25,25

position object 103,100,0,500

texture object 103,1

make object box 104,200,25,25

position object 104,1000-100,0,500

texture object 104,1

endif

rem pos balle

playergrav#=2

posx#=500

posy#=150

posz#=100

rem dir balle

point object 3,rnd(125),0,rnd(64)

rem ---------------------------------------------

rem 		Gestion du mouvement de la  raquette 1

rem ---------------------------------------------

rx#=object position x(1)

ry#=object position y(1)

rz#=object position z(1)

if rightkey()=1

rx#=rx#+10

endif

if leftkey()=1

rx#=rx#-10

endif

if upkey()=1

ry#=ry#+10

endif

if downkey()=1

ry#=ry#-10

endif

rem conditions de mouvements

if rx#<80 then rx#=80

if rx#>900 then rx#=900

if ry#>950 then ry#=950

if ry#<50 then ry#=50

position object 1,rx#,ry#,rz#

rem ---------------------------------------------

rem 		Gestion du mouvement de la  raquette 2

rem ---------------------------------------------

rx2#=object position x(2)

ry2#=object position y(2)

rz2#=object position z(2)

if keystate(32)=1

rx2#=rx2#-10

endif

if keystate(30)=1

rx2#=rx2#+10

endif

if keystate(17)=1

ry2#=ry2#+10

endif

if keystate(45)=1

ry2#=ry2#-10

endif

rem conditions de mouvements

if rx2#<80 then rx2#=80

if rx2#>900 then rx2#=900

if ry2#>950 then ry2#=950

if ry2#<50 then ry2#=50

position object 2,rx2#,ry2#,rz2#

rem ------------------------------------------

rem 		Gestion du mouvement de la balle

rem ------------------------------------------

text 0,0,"vitesse  "+str$(vit#)

text 0,20,"decal x"+str$(decalx#)

text 0,30,"decal y"+str$(decaly#)

text 0,40,"decal z"+str$(decalz#)

rem position

position object 3,posx#,posy#,posz#

oldposx#=object position x(3)

oldposy#=object position y(3)

oldposz#=object position z(3)

if inkey$()=""=0 then jeu=1

if jeu=1 then move object 3,vit#

rem position balle

posx#=object position x(3)

posy#=object position y(3)

posz#=object position z(3)

ay#=object angle y(3)

remstart

playergrav#=playergrav#-0.1

posy#=posy#+playergrav#

remend

rem pige pas mais faut faire ainsi!

decalx#=(posx#-oldposx#)

decaly#=(posy#-oldposy#)

decalz#=(posz#-oldposz#)

rem position

position object 3,posx#,posy#,posz#

rem collision avec la gauche ou la droite de l'ecran on continue le mouvement en z et on inverse le deplacement en x

if posx#<=30 or posx#>=1000-50

if sound playing(2)=0 then play sound 2

vit#=vit#+0.025

point object 3,oldposx#,object position y(3)+decaly#,object position z(3)+decalz#

endif

if posy#<=50 or posy#>=1000-50

if sound playing(2)=0 then play sound 2

vit#=vit#+0.025

point object 3,object position x(3)+decalx#,oldposy#,object position z(3)+decalz#

endif

rem collision avec objets object

col=object collision(3,0)

if col>0 and col<>4  and col<>5  and col<>100 and col<>150

vit#=vit#+0.25

point object 3,object position x(3)+decalx#,oldposy#,oldposz#

endif

rem position

position object 3,posx#,posy#,posz#

rem ------------------------------------------

rem 		Gestion du mouvement de la camera

rem ------------------------------------------

rem position camera

if posz#<=500

position camera 500,500,-500

endif

if posz#>=501

position camera 500,500,1500

endif

point camera posx#,posy#,posz#

rem ------------------------------------------

rem 		Gestion  de la vitesse

rem ------------------------------------------

rem voir collision

if vit#>5 and vit#<7 then center text 320,20,"Amateur de vitesse?!?"

if vit#>7 and vit#<9 then center text 320,20,"Vous voulez que ca chauffe?"

if vit#>9 and vit#<11 then center text 320,20,"Crash test"

if vit#>11 and vit#<15 then center text 320,20,"Frissons garantis"

rem conditions

if vit#>vitmax# then vit#=vitmax#

rem ----------------------------------------------------

rem 		Gestion du mouvement des effets de collision

rem ----------------------------------------------------

if col>0

if sound playing(2)=0 then play sound 2

show object 2500

position object 2500,posx#,posy#,posz#

else

hide object 2500

position object 2500,0,15000,0

endif

rem ------------------------------------------

rem 		Gestion du mouvement de la vie(posy#)

rem ------------------------------------------

if posz#>1200 or posz#<-200

center text 320,240,"Game over!!!"

if inkey$()=""=0

vit#=4

posx#=500

posy#=65

posz#=500

playergrav#=5

point object 3,400,0,0

exit

endif

sync

loop

endif

sync

loop

rem ------------------------------------------

rem 					fonction

rem ------------------------------------------

function makebutton(x,y,desc$)

buttonpressed=0

ink rgb(125,125,125),0 : box x-102,y-34,x+102,y+34

ink rgb(255,255,255),0 : box x-100,y-32,x+100,y+32

ink rgb(255,255,0),0

myx=mousex() : myy=mousey()

if myx>x-100 and myx<x+100

if myy>y-32 and myy<y+32

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(0,0,0),0

set text size 18 : center text x,y-8,desc$

if mouseclick()=0 then buttonpressed=0

endfunction buttonpressed

Download

Please login to download

Comments

No comments yet.

CodeBase - pong 3d

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Anonymous Coder
CodeBase Entries:	6