TheGameCreators - CodeBase - Jeu de tir(v.fr)

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 19th Dec 2005 03:42

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

Jeu de tir de base.Vertion FranÃ§aise.

Full Description

Il faut cliquer sur des carrÃ©s qui arrivent dans tous les sens. Il y a 6 niveau mais la vitesse n'est pas bien rÃ©glÃ©e.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

remstart

//* Logitiel de tir *\\

par Brice

remend

rem Initialisation

ay as integer

ayy as integer

ax as integer

axx as integer

by as integer

byy as integer

bx as integer

bxx as integer

cy as integer

cyy as integer

cx as integer

cxx as integer

dy as integer

dyy as integer

dx as integer

dxx as integer

score as integer

nivit as float

niv as integer

ss1 as integer

ss2 as integer

ss3 as integer

ss4 as integer

niv=1

set text font "Comic sans MS"

set text size 20

set text to bold

set text transparent

ink rgb(248,205,35),rgb(0,128,255)

debut:

sens=rnd(3)

if sens=0

ax=rnd(620)

ay=50

axx=ax+20

ayy=70

endif

if sens=1

bx=0

valeur_by:

by=rnd(460)

if by<40 then goto valeur_by

bxx=20

byy=by+20

endif

if sens=2

cx=rnd(620)

cy=460

cxx=cx+20

cyy=480

endif

if sens=3

dx=620

valeur_dy:

dy=rnd(460)

if dy<40 then goto valeur_dy

dxx=640

dyy=dy+20

endif

rem DÃ©but de la boucle

rem Reglage vitesse

if niv=1

nivit=1

else

if niv=2 then nivit=1.3 else nivit=niv/2

endif

rem Mouvement

if sens=0

ay=ay+nivit

ayy=ayy+nivit

endif

if sens=1

bx=bx+nivit

bxx=bxx+nivit

endif

if sens=2

cy=cy-nivit

cyy=cyy-nivit

endif

if sens=3

dx=dx-nivit

dxx=dxx-nivit

endif

rem Font d'Ã©cran

box 0,0,640,480,rgbb(750),rgbb(750),rgbb(750),rgbb(750)

rem PrÃ©sentation

rem Affichage nom

text 200,5,"Jeu de tir  -  version 1.0"

rem Afichage score

set cursor 0,30

print "Score: ",score

rem Affichage niveau

set cursor 300,30

print "Niveau ",niv

rem Lignes

line 0,29,640,29

line 0,50,640,50

rem Afichage cible

if sens=0 then box ax,ay,axx,ayy,rgb(250,100,0),rgb(250,100,0),rgb(250,100,0),rgb(250,100,0)

if sens=1 then box bx,by,bxx,byy,rgb(250,100,0),rgb(250,100,0),rgb(250,100,0),rgb(250,100,0)

if sens=2 then box cx,cy,cxx,cyy,rgb(250,100,0),rgb(250,100,0),rgb(250,100,0),rgb(250,100,0)

if sens=3 then box dx,dy,dxx,dyy,rgb(250,100,0),rgb(250,100,0),rgb(250,100,0),rgb(250,100,0)

rem Calcul score

if sens=0

if mouseclick()=1 and mousex()>ax and mousex()<axx and mousey()>ay and mousey()< ayy

score = score+1

goto debut

endif

if ayy>480

score=score-2

goto debut

endif

if sens=1

if mouseclick()=1 and mousex()>bx and mousex()<bxx and mousey()>by and mousey()< byy

score = score+1

goto debut

endif

if bxx>640

score=score-2

goto debut

endif

if sens=2

if mouseclick()=1 and mousex()>cx and mousex()<cxx and mousey()>cy and mousey()< cyy

score = score+1

goto debut

endif

if cy<50

score=score-2

goto debut

endif

if sens=3

if mouseclick()=1 and mousex()>dx and mousex()<dxx and mousey()>dy and mousey()< dyy

score = score+1

goto debut

endif

if dx<0

score=score-2

goto debut

endif

rem Rafraichissement de l'Ã©cran

sync

rem Passage des niveaux

if score=30

if niv=7 then goto fin2

score=0

niv = niv+1

set cursor 200,200

print "Passage au niveau ",niv," dans :"

text 220,215,"3"

sleep 1000

text 230,215,"2"

sleep 1000

text 240,215,"1"

sleep 1000

goto debut

endif

if score<=-3 and niv=1

goto fin1

else

if score<=-3

niv=niv-1

score=0

gosub retour_niv

endif

rem Pause

if returnkey()=1

text 580,30,"PAUSE"

wait key

sleep 0300

endif

rem Fin de la boucle

loop

rem Fin du jeu nÂ°1

fin1:

text 200,200,"Perdu !!!!"

sleep 1500

goto rejouer

rem Fin du jeu nÂ°2

fin2:

sleep 1500

goto rejouer

rem retour de niveau

retour_niv:

set cursor 200,200

print "Passage au niveau ",niv," dans :"

text 220,215,"3"

sleep 1000

text 230,215,"2"

sleep 1000

text 240,215,"1"

sleep 1000

return

rejouer:

cls

box 0,0,640,480,rgbb(750),rgbb(750),rgbb(750),rgbb(750)

set cursor 200,200

input "Voulez-vous rejouer ? :",rep1$

if rep1$="oui"

text 220,215,"Redemarage ..."

score=0

sleep 1000

goto debut

else

if rep1$="non"

text 221,215,"Au revoir"

sleep 2000

end

else

set text size 30

text 100,100,"Veuillez repondre avec oui ou non"

set text size 20

sleep 1000

goto rejouer

endif

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	1

CodeBase - Jeu de tir(v.fr)

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments