Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
PHABIC2
Auteur Message
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Ven 29 Fév 2008, 18:06   Citer 

LA deuxième version bien plus aboutie du jeu PHABIC, plus rapide et avec un système de délétion (suppr) plus ergonomique.
(Pour Ti82 stats, Ti82stats.fr et +)



Téléchrager l'image GIF

LE JEU ICI

Le but du jeu est d'arriver de l'autre coté du terrain sans se faire bloquer par les murs. Pour faire un bon score il faut perdre le moins de temps possible et utiliser le moins de bonus possible. La difficulté augmente le score, mais vous perdez en rapidité !
[DEL] pour supprimer un gêneur, [STAT] pour utiliser le super pouvoir qui vous permettras de passer au travers des blocs pour un temps limité. Il consommera en revanche toute votre résèrve de bonus, qui est de 9 au départ.



La source ici.

Tout ce qui est écrit entre ~ ~ n'est pas a écrire tel quel ! (i.e ~L~ correspond au petit L du catalogue)

Code
1 -> n:Lbl M
4 -> dim(~L~PHA
ClrDraw
0 -> Xmin:94 -> Xmax
0 -> Ymin:62 -> Ymax
17 -> A:2 -> B:1 -> M:0 -> E:8 -> N:1 -> C:1 -> E
AxesOff:FnOff
200 -> U:ClrHome
Menu("PHABIC2   //COC5","COMMENCER",1,"DIFFICULTEE",2,"AIDE",3,"RECORD",4,"QUITTER",5
Lbl 2
Disp "DIFFICULTE :","","1:FACILE","2:MEDIUM","3:DIFFICILE
Output(2+n,16,".
0 -> n
Repeat n and K-105 and K>91
getKey -> K
If K:min(3,max(1,K-91 -> n
End:Goto M
Lbl 5
Output(1,1,"
Return
Lbl 3
Disp "But: ARRIVER DE","L'AUTRE COTE DU","TERRAIN","","Pause    [ALPHA]","Stop     [2nd]","POUVOIR  [DEL]
Output(8,1,"SUPER Pw [STAT]
Pause :ClrHome
Goto M
Lbl 1
Disp "Pause
Horizontal 0
Vertical 0
Horizontal 8
Horizontal Ymax:Horizontal 61
Vertical Xmax
Vertical 93
Line(8,4,91,4
Line(6,0,6,7
9 -> N:1 -> ~THETHA~
Repeat B=46
getKey -> K
If K=33 and N>7:Then
10 -> E:0 -> N
For(I,0,5
ClrHome
DispGraph
45!:45!
End:End
If N and K=23:Then
N-1 -> N
For(I,1,2
Pt-Off(2B+3F,2A+3G,I
End:End
0 -> Z
If K>23 and K<27 or K=34:Then
1 -> Z
(K=26)-(K=24 -> F
(K=25)-(K=34 -> G
End
A -> D:B -> C
If E<0
Znot(pxl-Test(62+F-A2-2G,2B+2F-G))not(pxl-Test(62-F-A2-2G,2B+2F+G -> Z
A+ZG -> A:B+ZF -> B
If K or ~THETHA~:Then
Text(55,2,N
Pt-Off(2C,2D,2
Pt-On(2B,2A,2
Pt-Off(2B+F,2A+G
0 -> ~THETHA~
If K=21:Pause "
End
E-.3 -> E:U-1 -> U
Text(55,46,"        "
Line(92,4,8+83.5U/200,4,0
Text(55,41," ",U
If K=31 or not(U:Then
ClrHome:Pause "DOMMAGE !
Goto M
End
For(I,1,n
5+4rand -> R
.73(~Pi~2rand-~Pi~
Pt-On(1+2int((2B+Rcos(Ans))/2),1+2int((2A+.8Rsin(Ans))/2)+2G,2
End:End
int(n(U+4.5N -> S
ClrHome
If S>~L~PHA(1
Then
Disp "RECORD BATTU !","
{S,200-U,N,n -> ~L~PHA
Pause :ClrHome
1 -> C
Else
0 -> C:{S,200-U,N,n -> ~L1~
Disp "VOTRE SCORE:","
End
Lbl 4
4 -> dim(~L1~
For(J,C,1
If J or U=200:Disp "","
Disp "SCORE","TEMPS:","BONUS:","DIFFICULTEE:
If J:Output(1,1,"RECORD ACTUEL :
For(I,1,4
Output(I+2,14,~L~PHA(I)J+~L1~(I)not(J
End:Pause
ClrHome:End
Menu("REINITIALISER ?","NON",M,"OUI",7
Goto M
Lbl 7
Fill(0,~L~PHA
Disp "","SCORES EFFACEES
Pause
Goto M



----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Ven 29 Fév 2008, 18:51   Citer 

mh il a l'air mieux en effet happy.gif

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Dim 02 Mar 2008, 9:58   Citer 

4/5 a mon sens il est plus ergonomique

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa