Salut,
Voila j'ai fait ce flappy bird il y a longtemps et je me suis dit que j'allais le poster
J'ai joint un .zip avec soit les 4 fichiers BIRD,FLAPBIRD,GDB9 et PIC1 distincts soit le tout rassemblé dans un fichier de groupe .tig selon ce que vous preferez.
Pour lancer le programme lancez FLAPBIRD et non BIRD qui lui est un ensemble de fonctions graphiques.
Les commandes :
Enter pour sauter,
Clear pour quitter uniquement dans l'écran titre, et le reste est assez intuitif pour ne pas être explicité
J'ai fait de mon mieux pour optimiser la partie in-game pour un maximum de rapidité et un minimum de place
par contre pour l'autre partie (BIRD) j'ai pas cherché a optimiser c'est totalement imbuvable
Pour ceux qui veulent voir le code :
Attention je vous préviens, celui la est pas beau a voir
PS:Si vous avez un bug du genre vous êtes tout en bas en début de partie essayez d'appuyer sur enter avant que la partie commence :)sinon si c'est un autre bug prévenez moi !
EDIT: Je rajoute quand même quelques screens au cas ou.
Voila j'ai fait ce flappy bird il y a longtemps et je me suis dit que j'allais le poster
J'ai joint un .zip avec soit les 4 fichiers BIRD,FLAPBIRD,GDB9 et PIC1 distincts soit le tout rassemblé dans un fichier de groupe .tig selon ce que vous preferez.
Pour lancer le programme lancez FLAPBIRD et non BIRD qui lui est un ensemble de fonctions graphiques.
Les commandes :
Enter pour sauter,
Clear pour quitter uniquement dans l'écran titre, et le reste est assez intuitif pour ne pas être explicité
J'ai fait de mon mieux pour optimiser la partie in-game pour un maximum de rapidité et un minimum de place
par contre pour l'autre partie (BIRD) j'ai pas cherché a optimiser c'est totalement imbuvable
Pour ceux qui veulent voir le code :
- FLAPBIRD:
- Code:
:RecallGDB 9
:Lbl A
:ClrDraw
:RecallPic 1
:{1,40,17
:prgmBIRD
:{4,3,2,25,20,1
:prgmBIRD
:{5,91,2,‾25,20,1
:prgmBIRD
:getKey
:24
:While Ans≠105
: If Ans=45:Goto C
: If Ans=24
: Then
: {3,2,1,27,22,1
: prgmBIRD
: {3,92,1,‾27,22,0
: prgmBIRD
: 1→Θ
: 0
: End
: If Ans=26
: Then
: {3,2,1,27,22,0
: prgmBIRD
: {3,92,1,‾27,22,1
: prgmBIRD
: 2→Θ
: 0
: End
: getKey
:End
:
:If Θ=2
:Then
: {6
: prgmBIRD
: Pause
: Goto A
:End
:Lbl B
:ClrDraw
:{2,0,30,2
:prgmBIRD
:{2,0,30,82
:prgmBIRD
:{1,0,42
:prgmBIRD
:{1,79,42
:prgmBIRD
:Line(12,6,82,6
:Horizontal 62
:5→dim(ᴸF
:randInt(17,45→E
:Ans+10→G
:24→A
:0→P
:
:
:For(Θ,16,16,‾4
: If Θ=16
: Then
: Line(20,61,20,7,0
: 52→Θ
: E→D
: Ans+10→F
: randInt(17,45→E
: Ans+10→G
: End
: A→C
: B+4(B<5→B
: getKey
: If Ans=41
: Then
: Output(1,1,"√(8547932)"
: Pause
: End
: If Ans=13:Pause
: If Ans=105
: ‾7→B
: A+B→A
: If Ans<2:2→A
: If Ans>54
: Then
: ‾40→Θ
: 54→A
: End
:
: Θ+4
: Line(Ans,61,Ans,7,0
: Pt-Off(28,62-C,2
: Pt-On(28,62-A,2
: Ans-4
: Line(Ans,7,Ans,D
: Line(Ans,61,Ans,F
: If Θ<40
: Then
: Θ+36
: Line(Ans,7,Ans,E
: Line(Ans,61,Ans,G
: Ans+4
: Line(Ans,61,Ans,7,0
: End
: If Θ=28
: Then
: If A≤62-F+1 or A≥62-D-1
: 0→Θ
: P+1→P
: Text(3,82,P
: "ECRIRE APRECIATION
: End
:End
:
:For(Θ,12,52
: Line(14,Θ,80,Θ
:End
:For(Θ,15,79
: Line(Θ,13,Θ,51,0
:End
:Text(12,30,"GAME OVER
:Text(18,23,"YOUR SCORE : ",P
:
:If P>ᴸF(5
:Then
: ᴸF→L1
: For(Θ,1,5
: If P>ᴸF(Θ
: Then
: For(Z,Θ,4
: L1(Z→ᴸF(Z+1
: End
: P→ᴸF(Θ
: 6→Θ
: End
: End
: If P>L1(1
: Text(24,25,"NEW HIGH SCORE
:End
:Text(30,23,"BEST SCORE : ",ᴸF(1
:Text(36,25,"PLAY AGAIN
:Text(42,25," 1:YES 2:NO
:getKey
:1→Θ
:0
:While Ans≠105
: getKey
: If Ans=24
: Then
: Text(42,25,"˖
: Text(42,48,"
: 1→Θ
: End
: If Ans=26
: Then
: Text(42,47,"˖
: Text(42,25,"
: 2→Θ
: End
: If Ans=92
: Then
: 1→Θ
: 105
: End
: If Ans=93
: Then
: 2→Θ
: 105
: End
:End
:If Θ=1:Goto B
:For(Θ,0,62
: Line(0,Θ,94,Θ
:End
:For(Θ,1,61
: Line(1,Θ,93,Θ,0
:End
:Goto A
:Lbl C
:ClrDraw
:RecallPic 1
:Pause
:ClrDraw
:ClrHome
:Output(1,1,"COPYRIGHT RAYANE 2014"
:Pause
:ClrHome
:"RAYANE 2014
:Output(1,1,"
Attention je vous préviens, celui la est pas beau a voir
- BIRD:
- Code:
:Ans→L1
:If 1=Ans(1
:Then
: Line(6+Ans(2),Ans(3),11+Ans(2),Ans(3
: Line(Ans(2)+4,Ans(3)-1,Ans(2)+12,Ans(3)-1
: Line(Ans(2)+6,Ans(3)-1,Ans(2)+11,Ans(3)-1,0
: Pt-On(Ans(2)+9,Ans(3)-1
: Line(Ans(2)+3,Ans(3)-2,Ans(2)+13,Ans(3)-2
: Line(Ans(2)+4,Ans(3)-2,Ans(2)+12,Ans(3)-2,0
: Pt-On(Ans(2)+8,Ans(3)-2
: Line(Ans(2)+2,Ans(3)-3,Ans(2)+14,Ans(3)-3
: Line(Ans(2)+3,Ans(3)-3,Ans(2)+13,Ans(3)-3,0
: Pt-On(Ans(2)+8,Ans(3)-3
: Pt-On(Ans(2)+12,Ans(3)-3
: Line(Ans(2)+1,Ans(3)-4,Ans(2)+14,Ans(3)-4
: Line(Ans(2)+2,Ans(3)-4,Ans(2)+13,Ans(3)-4,0
: Pt-On(Ans(2)+8,Ans(3)-4
: Pt-On(Ans(2)+12,Ans(3)-4
: Line(Ans(2)+1,Ans(3)-5,Ans(2)+14,Ans(3)-5
: Line(Ans(2)+2,Ans(3)-5,Ans(2)+13,Ans(3)-5,0
: Pt-On(Ans(2)+9,Ans(3)-5
: Line(Ans(2)+1,Ans(3)-6,Ans(2)+15,Ans(3)-6
: Line(Ans(2)+6,Ans(3)-6,Ans(2)+9,Ans(3)-6,0
: Line(Ans(2),Ans(3)-7,Ans(2)+16,Ans(3)-7
: Line(Ans(2)+1,Ans(3)-7,Ans(2)+15,Ans(3)-7,0
: Pt-On(Ans(2)+6,Ans(3)-7
: Pt-On(Ans(2)+9,Ans(3)-7
: Line(Ans(2),Ans(3)-8,Ans(2)+15,Ans(3)-8
: Line(Ans(2)+1,Ans(3)-8,Ans(2)+10,Ans(3)-8,0
: Pt-On(Ans(2)+5,Ans(3)-8
: Pt-On(Ans(2)+8,Ans(3)-8
: Line(Ans(2),Ans(3)-9,Ans(2)+15,Ans(3)-9
: Line(Ans(2)+1,Ans(3)-9,Ans(2)+14,Ans(3)-9,0
: Pt-On(Ans(2)+4,Ans(3)-9
: Pt-On(Ans(2)+9,Ans(3)-9
: Line(Ans(2)+1,Ans(3)-10,Ans(2)+4,Ans(3)-10
: Line(Ans(2)+10,Ans(3)-10,Ans(2)+14,Ans(3)-10
: Line(Ans(2)+5,Ans(3)-10,Ans(2)+9,Ans(3)-10,0
: Line(Ans(2)+5,Ans(3)-11,Ans(2)+9,Ans(3)-11
:Else
: If 2=Ans(1
: Then
: For(Θ,Ans(2),Ans(3)-5,4
: Line(Ans(4),Ans(2),Ans(4),Θ
: Line(Ans(4)+10,Ans(2),Ans(4)+10,Θ
: End
: Line(Ans(4),Ans(3)-5,Ans(4)+10,Ans(3)-5
: For(Θ,Ans(3)-5,Ans(3),4
: Line(Ans(4)-1,Ans(3)-5,Ans(4)-1,Θ
: Line(Ans(4)+11,Ans(3)-5,Ans(4)+11,Θ
: End
: Line(Ans(4)-1,Ans(3),Ans(4)+11,Ans(3)
: Else
: If 3=Ans(1
: Then
: Line(Ans(2),Ans(3),Ans(2)+Ans(4),Ans(3),Ans(6
: Line(Ans(2)+Ans(4),Ans(3),Ans(2)+Ans(4),Ans(3)+Ans(5),Ans(6
: Line(Ans(2)+Ans(4),Ans(3)+Ans(5),Ans(2),Ans(5)+Ans(3),Ans(6
: Line(Ans(2),Ans(5)+Ans(3),Ans(2),Ans(3),Ans(6
: Else
: If 4=Ans(1
: Then
: {3,3,2,25,20,1
: prgmBIRD
: For(Θ,‾5,0,1
: Line(3+25/2+Θ+2.5,2+20/2-Θ,3+25/2+Θ+2.5,2+20/2+Θ
: End
: Else
: If 5=Ans(1
: Then
: {3,91,2,‾25,20,1
: prgmBIRD
: For(Θ,5,0,‾1
: Line(91+‾25/2-2.5-Θ,2+20/2-2.5,91+‾25/2-2.5-Θ,2+20/2-5
: Line(91+‾25/2+2.5-Θ,2+20/2+2.5,91+‾25/2+2.5-Θ,2+20/2-5
: Line(91+‾25/2+7.5-Θ,2+20/2,91+‾25/2+7.5-Θ,2+20/2-5
: End
: Else
: If 6=Ans(1
: Then
: For(Θ,5,57
: Line(10,Θ,84,Θ
: End
: For(Θ,6,56
: Line(11,Θ,83,Θ,0
: End
: Text(7,29,"HIGH SCORES"
: For(Θ,1,5
: Text(12+Θ6,20,Θ," : ",ᴸF(Θ
: End
:
: End
:
:
: End
: End
: End
: End
:End
:L1
PS:Si vous avez un bug du genre vous êtes tout en bas en début de partie essayez d'appuyer sur enter avant que la partie commence :)sinon si c'est un autre bug prévenez moi !
EDIT: Je rajoute quand même quelques screens au cas ou.
- Fichiers joints
- FLAPBIRD.zip
- Flappy Bird.zip
- (4 Ko) Téléchargé 377 fois