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!!
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mer 09 Jui 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,"
