Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 1241
Réponses : 2
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Laby 3D

Persalteas le 09/06/2010 à 15:53
ce programme est un labyrinthe en 3D dans lequel on se déplace et on rammasse des billes pour passer au niveau suivant.

Mais ce programme est très, très lassant, comme jeu.
il faut vraiment avoir rien a faire en cours pour jouer à ça.

Si vous pouviez m'aider à l'améliorer, j'aimerais bien.
Code

PleinEcr
Effdessin
EffEcr
GraphOff
FonctOff
QuadNaff
AxesNaff
0->Xmin
0->Ymin
94->Xmax
62->Ymax
Ligne(94,0,65,2
Ligne(65,41,65,21
Ligne(65,41,94,41
Ligne(65,41,94,30
Ligne(94,32,76,39
Ligne(65,41,76,39
Ligne(94,39,76,39
Ligne(65,33,38,32
Ligne(0,0,38,32
Ligne(38,56,38,32
Ligne(38,56,0,37
Ligne(38,56,94,54
Ligne(94,55,38,58
Ligne(37,57,0,39
Ligne(0,49,19,49
Ligne(23,51,0,51
Ligne(21,62,0,51
Ligne(25,62,5,52
Ligne(38,58,46,62
Ligne(43,59,49,62
Ligne(71,62,63,57
Ligne(48,18,50,24
Ligne(56,27,50,24
Ligne(56,27,55,24
Ligne(56,27,52,27
Texte(0,40,"[couleur=#AA0000]insérez ici 35 espaces[/couleur]"
Ligne(78,62,78,56
Ligne(39,56,78,56
Ligne(39,56,39,62
Texte(0,82,"          ")
Ligne(81,62,81,56
Ligne(94,56,81,56
Ligne(94,56,94,62
SauveImage 1
EffDessin
Ligne(0,0,26,22
Ligne(26,41,26,22
Ligne(26,41,0,33
Ligne(0,35,26,43
Ligne(0,43,26,43
Ligne(22,41,0,41
Ligne(26,30,65,30
Ligne(65,21,94,0
Ligne(65,21,65,41
Ligne(94,34,65,41
Ligne(94,36,70,41
Ligne(66,42,94,42
Ligne(77,40,94,40
Horizontale 52
Horizontale 54
Ligne(84,58,94,62
Ligne(75,62,59,55
Ligne(55,55,69,62
Ligne(43,62,25,55
Ligne(37,62,17,55
Ligne(28,59,0,59
Ligne(34,61,0,61
Texte(0,40,"[couleur=#AA0000]insérez ici 38 espaces[/couleur]"
Ligne(78,62,78,56
Ligne(39,56,78,56
Ligne(39,56,39,62
Texte(0,82,"            ")
Ligne(81,62,81,56
Ligne(94,56,81,56
Ligne(94,56,94,62
SauveImage 3
EffDessin
Ligne(61,38,94,25
Ligne(0,0,24,14
Ligne(24,35,24,14
Ligne(24,35,0,26
Ligne(24,35,18,35
Ligne(0,28,18,35
Ligne(0,40,18,35
Ligne(0,43,24,36
Ligne(25,25,61,18
Ligne(75,0,61,18
Ligne(61,38,61,18
Ligne(61,38,94,55
Ligne(94,53,67,39
Ligne(66,39,94,28
Ligne(88,31,94,34
Ligne(61,38,0,50
Ligne(0,52,64,40
Ligne(56,43,56,54
Ligne(69,61,56,54
Ligne(13,62,56,54
Ligne(13,62,13,50
Ligne(13,62,0,56
Ligne(0,59,8,62
Ligne(24,62,55,56
Ligne(65,61,55,56
Texte(0,40,"[couleur=#AA0000]insérez ici 35 espaces[/couleur]"
Ligne(78,62,78,56
Ligne(39,56,78,56
Ligne(39,56,39,62
Texte(0,82,"          ")
Ligne(81,62,81,56
Ligne(94,56,81,56
Ligne(94,56,94,62
SauveImage 2
EffDessin





frozen.gif

voilà! ça, c'est ce qui permet de tracer les images dont le prog a besoin.
si vous ne voulez pas alourdir le jeu, n'éxécutez ce prog qu'une fois, puis ne supprimmez pas les images.

Si vous avez la flemme de recopier, tracez à la main!! karate.gif
Persalteas le 09/06/2010 à 16:17
voilà le prog en lui même:
l se trouve dans le menu liste, dans OPS, tout en bas.
Code

EffDessin
Lbl 0
Menu("°°°°°LABY°3D°°°°","NOUVELE PARTIE",A,"REPRENDRE",B,"QUITTER",C
Lbl B
1->lLABY(1
If dim(lLABY)=/=1
Then
lLABY(2)->L
lLABY(3)->D
lLABY(4)->V
lLABY(5)->M
lLABY(6)->S
156->lLABY(1)
End
If lLABY(1)=156:Goto 1
Goto 0
Lbl A
1->L:0->N
0->D:0->E
0->S:3->M
Lbl 1
EffDessin
For(K,0,4D-1,4
Texte(0,41+K,"°"
End
Texte(0,82,S
If M=1:RappelImage 1
If M=2:RappelImage 2
If M=3:RappelImage 3
If E:Then
For(K,0,E-1
Texte(50,30+5K,"°"
D+1->D
S+10->S
End
End
0->K
While K=0
codeTouche->K
If K=/=45 et ((M=1 et K=/=26) ou (M=2 et K=/=24) ou (M=3 et K=/=24 et K=/=26))
0->K
End
If K=45:Goto A1
Lbl 1A
entAléat(1,3)->M
If entAléat(1,9)=1:Then
entAléat(1,9)->E
If E<5:1->E
If E=9:3->E
If E>4:2->E
Else
0->E
End
If D>=L:Then
L+1->L
0->D
If L=10:Then
Horizontale 15
Horizontale 47
For(K,16,46
Ligne(0,K,94,K,0
End
Ligne(0,15,0,47
Ligne(94,15,94,47
Texte(18,3,"PARTIE TERMINEE!
Texte(35,30,"TOTAL SCORE :  ",S
Pause
Goto C
End
EffEcr
Output(4,1,"----LEVEL-------"
Output(4,12,L
Pause
EffEcr
End
Goto 1
Lbl A1
Menu("PAUSE","REPRENDRE",1A,"SAUVEGARDER",2A,"QUITTER",C
Lbl 2A
{1,L,D,V,M,S}->lLABY
EffEcr
Pause "---SAUVEGARDE---"
Goto A1
Lbl C
EffVar Img1   -|
EffVar Img2    |--> que si vous avez sauvegardé le code des images!!
EffVar Img3   -|
EffVarLEffVarDEffVarVEffVarM
EffEcr
ZStandard
AxesAff
Output(1,1,"


Img1 2 et 3 se trouve dans [var]

aidez moi si vous avez le courage! :D






Persalteas le 12/06/2010 à 16:33
tenez, bande de flemmards!
http://www.sendspace.com/file/db9wxl
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.