bonn ba j´ai fait un serpent simple de cher simple. je vous donne meme la source ici pour ceux ki ont DB, il n´y a aucun media donc juste a copier le code et a lancer. pour ceux ki ne l´on pas, il sera bientot sur le site ou y a le morpion ainsi ke bientot sur www.jaurrel.com
avant de vs donnez le code, et bien j´ai encor fait un jeu FINI meme si encor une foi c un jeu de merde o moin je l´ai fini lol je m´atake a plus dur maintenant, car g commencer a faire un genre de mega-man surr nitendo. enfin vous verrez =)
aller voilla le code de mon serpent :

rem on cache la sourie
hide mouse

rem le niveau de dificulter (rien d´extraordinaire ici ni dans tout le jeu d´ailleur lol)
do
sync rate 0
set cursor 10,420
input "1 : extrement facil 2 : facil 3 : intermediaire 4 : difficile 5 : impossible : ",dif
gosub jeu
loop

jeu:
rem creation des texture

ink rgb(255,0,0),0
box 0,0,10,10
get image 1,0,0,10,10

cls

ink rgb(0,0,255),0
box 0,0,10,10
get image 2,0,0,10,10

cls

ink rgb(0,255,0),0
box 0,0,10,10
ink 0,0
set cursor 0,0
print "1"
get image 3,0,0,10,10
cls
ink rgb(0,255,0),0
box 0,0,10,10
ink 0,0
set cursor 0,0
print "2"
get image 4,0,0,10,10
cls
ink rgb(0,255,0),0
box 0,0,10,10
ink 0,0
set cursor 0,0
print "3"
get image 5,0,0,10,10
cls
ink rgb(0,255,0),0
box 0,0,10,10
ink 0,0
set cursor 0,0
print "4"
get image 6,0,0,10,10
cls
ink rgb(0,255,0),0
box 0,0,10,10
ink 0,0
set cursor 0,0
print "5"
get image 7,0,0,10,10
cls
ink rgb(0,255,0),0
box 0,0,10,10
ink 0,0
set cursor 0,0
print "6"
get image 8,0,0,10,10
cls
ink rgb(0,255,0),0
box 0,0,10,10
ink 0,0
set cursor 0,0
print "7"
get image 9,0,0,10,10
cls
ink rgb(0,255,0),0
box 0,0,10,10
ink 0,0
set cursor 0,0
print "8"
get image 10,0,0,10,10
cls

rem creation du cadre
ink rgb(255,255,255),0
line 0,0,639,0
line 0,400,639,400
line 0,0,0,400
line 639,0,639,400

rem placement des petit carre vert a manger (je ne savait pas comment appeller sa! lol)
sprite 10,40,120,3
sprite 11,450,350,4
sprite 12,600,20,5
sprite 13,620,320,6
sprite 14,140,140,7
sprite 15,600,200,8
sprite 16,200,300,9
sprite 17,150,320,10
rem on montre le premier chiffre et on cache ceux a manger plus tard
show sprite 10
for t=11 to 17
hide sprite t
next t

rem creer les sprite du serpent
sprite 1,10,10,1
sprite 2,10,10,1
sprite 3,10,10,2
sprite 4,10,10,2
sprite 5,10,10,2
sprite 6,10,10,2
sprite 7,10,10,2
sprite 8,10,10,2
sprite 9,10,10,2

rem cache les sprite du serpent non euh... comment dir... enlever la et vous verrez le resultat : P
for t = 3 to 9
hide sprite t
next t

rem initialisation des variable
droite=1
gauche=0
haut=0
bas=0
pas=0
x1=10
y1=10
pri=0

rem on atend que le joueur appui sur espace pour commencer
repeat
set cursor 10,430
print "appuyez sur [ESPACE] pour commencer."
until spacekey()=1

rem niveau de dificulter
if dif=1 then sync rate 1
if dif=2 then sync rate 5
if dif=3 then sync rate 10
if dif=4 then sync rate 20
if dif=5 then sync rate 0

rem debut de la boucle de jeu
sync on
do

rem control du serpent
if rightkey()
droite=1
gauche=0
haut=0
bas=0
endif
if leftkey()
droite=0
gauche=1
haut=0
bas=0
endif
if upkey()
droite=0
gauche=0
haut=1
bas=0
endif
if downkey()
droite=0
gauche=0
haut=0
bas=1
endif

rem on fait avancer le sprite de guide pour le serpent
if droite=1
x1=x1+10
endif
if gauche=1
x1=x1-10
endif
if haut=1
y1=y1-10
endif
if bas=1
y1=y1+10
endif

rem collisiont avec le serpent
if x1=sprite x(3) and y1=sprite y(3) and pri>0 then return
if x1=sprite x(4) and y1=sprite y(4) and pri>1 then return
if x1=sprite x(5) and y1=sprite y(5) and pri>2 then return
if x1=sprite x(6) and y1=sprite y(6) and pri>3 then return
if x1=sprite x(7) and y1=sprite y(7) and pri>4 then return
if x1=sprite x(8) and y1=sprite y(8) and pri>5 then return
if x1=sprite x(9) and y1=sprite y(9) and pri>6 then return

rem defini la zone de jeu
if x1<0 then return
if x1>630 then return
if y1<0 then return
if y1>390 then return

sprite 1,x1,y1,1

rem affiche le prochain point a manger et allonge le serpent
if x1=40 and y1=120 and pri=0
show sprite 3
hide sprite 10
show sprite 11
pri=1
endif
if x1=450 and y1=350 and pri=1
show sprite 4
hide sprite 11
show sprite 12
pri=2
endif
if x1=600 and y1=20 and pri=2
show sprite 5
hide sprite 12
show sprite 13
pri=3
endif
if x1=620 and y1=320 and pri=3
show sprite 6
hide sprite 13
show sprite 14
pri=4
endif
if x1=140 and y1=140 and pri=4
show sprite 7
hide sprite 14
show sprite 15
pri=5
endif
if x1=600 and y1=200 and pri=5
show sprite 8
hide sprite 15
show sprite 16
pri=6
endif
if x1=200 and y1=300 and pri=6
show sprite 9
hide sprite 16
show sprite 17
pri=7
endif
if x1=150 and y1=320 and pri=7
show sprite 10
hide sprite 17
pri=8
endif
if pri=8 then return

rem placement des autre carre du serpent

pas=pas+1
if pas>8 then pas=1

if pas=1
dx=sprite x(1)
dy=sprite y(1)
sprite 2,dx,dy,1
sprite 3,dx8,dy8,2
sprite 4,dx7,dy7,2
sprite 5,dx6,dy6,2
sprite 6,dx5,dy5,2
sprite 7,dx4,dy4,2
sprite 8,dx3,dy3,2
sprite 9,dx2,dy2,2
endif

if pas=2
dx2=sprite x(1)
dy2=sprite y(1)
sprite 2,dx2,dy2,1
sprite 3,dx,dy,2
sprite 4,dx8,dy8,2
sprite 5,dx7,dy7,2
sprite 6,dx6,dy6,2
sprite 7,dx5,dy5,2
sprite 8,dx4,dy4,2
sprite 9,dx3,dy3,2
endif

if pas=3
dx3=sprite x(1)
dy3=sprite y(1)
sprite 2,dx3,dy3,1
sprite 3,dx2,dy2,2
sprite 4,dx,dy,2
sprite 5,dx8,dy8,2
sprite 6,dx7,dy7,2
sprite 7,dx6,dy6,2
sprite 8,dx5,dy5,2
sprite 9,dx4,dy4,2
endif

if pas=4
dx4=sprite x(1)
dy4=sprite y(1)
sprite 2,dx4,dy4,1
sprite 3,dx3,dy3,2
sprite 4,dx2,dy2,2
sprite 5,dx,dy,2
sprite 6,dx8,dy8,2
sprite 7,dx7,dy7,2
sprite 8,dx6,dy6,2
sprite 9,dx5,dy5,2
endif

if pas=5
dx5=sprite x(1)
dy5=sprite y(1)
sprite 2,dx5,dy5,1
sprite 3,dx4,dy4,2
sprite 4,dx3,dy3,2
sprite 5,dx2,dy2,2
sprite 6,dx,dy,2
sprite 7,dx8,dy8,2
sprite 8,dx7,dy7,2
sprite 9,dx6,dy6,2
endif

if pas=6
dx6=sprite x(1)
dy6=sprite y(1)
sprite 2,dx6,dy6,1
sprite 3,dx5,dy5,2
sprite 4,dx4,dy4,2
sprite 5,dx3,dy3,2
sprite 6,dx2,dy2,2
sprite 7,dx,dy,2
sprite 8,dx8,dy8,2
sprite 9,dx7,dy7,2
endif

if pas=7
dx7=sprite x(1)
dy7=sprite y(1)
sprite 2,dx7,dy7,1
sprite 3,dx6,dy6,2
sprite 4,dx5,dy5,2
sprite 5,dx4,dy4,2
sprite 6,dx3,dy3,2
sprite 7,dx2,dy2,2
sprite 8,dx,dy,2
sprite 9,dx8,dy8,2
endif

if pas=8
dx8=sprite x(1)
dy8=sprite y(1)
sprite 2,dx8,dy8,1
sprite 3,dx7,dy7,2
sprite 4,dx6,dy6,2
sprite 5,dx5,dy5,2
sprite 6,dx4,dy4,2
sprite 7,dx3,dy3,2
sprite 8,dx2,dy2,2
sprite 9,dx,dy,2
endif

sync
loop

voillou! =)

je sais pas tu as quoi comme pc mais sur le mien ca rame . ..

tu utilises trop de sprites en meme temps ...

ben en faite, le niveau est en rapport du nombre d´image par seconde donc plus le nombre est elever plus c´est rapide

moi je trouve ce code répétitif.
pour faire des sprites il ne faut pas les hardcoder mais utiliser des fichiers de ressources ! !!
(ok j´avoue avoir hardcoder des sprites et bine plus enormes que ceux la dans un de mes jeux en C mais c´etait sur calculatrice et je voulait aucune dépendance alors j´ai completement droit a un malus

po compris, explike toi miieu stp!

ha sa y est g compris
tu voullais dir pour faire les images des sprite?
le ptit carre vert avec les nmeros, j´ai les ai fait comme sa car comme sa (oula la repition mé je ne savait pas comment dir lol) il n´y a aucun fichier media
c´est sur ke j´aurai pu faire

load image "num1.jpg",3
etc
mé la y aurai eu des media or je n´en voullais pas! voilla le pkoi du comment lol
voillou !!!

c exactement la meme raison ki ma poussé a faire la meme chose dans un programme a moi.

mais soyons bien clair: c´est une technique pourrie et pas digne d´une programmation nette !

mdr, je t´ai dit, c´etait pour faire les graphisme avec 3dgc. si j´aurrai voullu, j´aurrai pu faire un tres bo serpent et charger les fichier mais c´etait pas mon but.

je sais bien et en daisant ca je nous critiquait tout les 2.

et d´ailleur on dit si j´avais voulu pas si j´aurais voulu !

lolololol
ué bas c bon, on est sur un forum et tant qu´on me comprend je ne m´aplique pas d´avantage. lol
pis j´annonce ke mon new jeu a grave avancer. j´ai fini les anim (marcher a gauche et a droite, courir a gauche et a droite et enfin grimper) y a 32 image par animation. mais je croit ke je vais le metre en suspend pour un raison ki n´est pas du tout comme les autre, c´est a dir ke se n´est pas parceke c´est trop dur ou koike ce soit mais tout simplement car je vais me lancer dans le C++. en plus de 2 boukin sur le C++ que je vais acheter un garz vas m´aider et il s´y connai surper bien (je dit super bien et c´est vrai, car maintenant je sai faire la diference) il a environ 20 nas d´experience derriere lui et 20 c´est pas n´importe quoi. lol
ou nan, g un autre idée, au lieu de le metre en suspand (mon jeu) je le confi a quiquonc le voudra a 2 condition :
-il sai programmer en Dark Basic
-il n´en fait pas n´importe quoi
alors si quelqu´un le veut et bien kil se montre.
aparament, lightness tu t´y conné pas mal en C++ alors si un jour g un bleme j´espere que je pourrait conté sur toi! =)
ba tient, t´aurrai po un bon boukin a me conseiller? je sait, je sait, je l´ai dejas demander, mai la g la fleme de rechercher, alors si tu veut me le dir dit le moi mé si tu veut pas tant pis! lol
bon ben voillas, g fini mon roman! =)
voillou !!!

comme bouquin il parait kil faut eviter le livre du C++ de micro application moi je te conseille d´eviter aussi celui de microsft press par contre ce ke je te conseille c de prendre un gros bouquin du C et un petit bouquin du C++.
parce ke en general les livre sur le C++ n´apprennent pas tres bien ou peu les bases du langages et partent directe dans des notions du C++ (classe, heritage templates . ..) je ne dis pas ke ce nest pas necessaire meme desfois c´est indispensable mais le livre du C est encore plus indispensable ! : ) voila !
sinon oui pour les questions sur le C++ tu peu me mailer : lightness1024@numericable.fr
et en parler sur ce forum @# !

ok merci!!
=)