Autorisation : Membre
Nb de messages : 30
Inscrit le : Mer 14 Déc 2011, 20:42
Posté le : Lun 26 Mar 2012, 19:31
En plus pour le dongeon, vous avez besoin de ces programmes. Cependant, vous pouvez y jouer sans avoir besoin de lancer le rpg.
Code
Esquive 1 :
:prgmFUN7
:Output(1,1,"ESQUIVE VERSION1
:Output(4,13,[petit L des listes]SCORE(1
:Pause
:ClrList L4,L5
:ClrHome
:8->I
:1->J
:Output(4,2,"CHARGEMENT ...
:For(K,1,15
:randInt(1,16->L5(K
:randInt(1,3->L4(K
:End
:DelVar TDelVar S
:While 1
:getKey->K
:I+(K=26)-(K=24->I
:If J=2:I+(K=26)-(K=24->I
:If K=11 and W-1/3:prgmEFFACE
:If K=11:prgmFONCTION
:If K=15:Then:DispGraph:Pause :End
:If K=25:1->J
:If K=34:2->J
:L4+1->L4
:If J=1:Then
:If not(I:1->I
:If I=17:16->I
:End
:If J=2:Then
:If I<1:2->I
:If I>16:15->I
:End
:ClrHome
:For(K,1,15
:If 9=L4(K:Then:randInt(1,4->L4(K:S+1->S:randInt(1,16->L5(K:End
:If (L4(K)>6 and J=1 and L5(K)=I) or (L4(K)=8 and J=2 and (L5(K)>I-1 and I+1>L5(K:Then:ClrHome
:Output(4,3,"YOU LOOSE !!!
:Output(5,2,S:Output(6,2,"EN
:Output(6,5,T:Pause :If S>[petit L des listes]SCORE(1:S->[petit L des listes]SCORE(1
:If W-1/3
:prgmEFFACE
:{0->L4
:15->K
:End
:If L4(1:Output(L4(K),L5(K),"V
:End
:If J=1
:Then
:Output(8,I,"H
:Output(7,I,"X
:Output(6,I,"O
:End
:If J=2:Output(8,I-1,"OXH
:For(K,1,200:End
:T+1->T
:If L4(1:End
:ClrHome
Plus :
Code
Esquive 2 (le meilleur :D)
:ClrHome
:Output(1,4,"ESQUIVE V2
:Output(2,1,"----------------
:Output(3,4,"HIGHSCORE
:Output(4,1,"EASY :
:Output(5,1,"NORMAL :
:Output(4,14,[petit L des listes]SCORE(3
:Output(5,14,[petit L des listes]SCORE(4
:Output(6,1,"----------------
:Output(7,2,"PROGRAMME PAR
:Output(8,2,"MARTIN STONNER
:Pause
:ClrHome
:DelVar T
:4->A
:8->B
:1->C
:1->D
:8->E
:16->F
:1->G
:F->H
:8->I
:1->J
:Menu("DIFFICULTY","EASY",8,"NORMAL",9
:Lbl 8
:1->L
:Goto 4
:Lbl 9
:2->L
:Goto 4
:Lbl 5
:getKey->K
:min(16,max(1,B+(K=26)-(K=24->B
:min(8,max(1,A+(K=34)-(K=25->A
:If K=11 and W-1/3:prgmEFFACE
:If K=11:Then:L4(5->E:prgmFONCTION:End
:If K=105
:Then
:Output(4,5,"PAUSE
:Pause
:Goto 5
:End
:Goto 6
:Lbl 4
:T+1->T
:D-(C=A and D>B)+(C=A and D<B->D
:C-(C>A)+(C<A->C
:E+(F=B and A>E)-(B=F and A<E->E
:F+(B>F)-(B<F->F
:H-(G=A and H>B)+(G=A and H<B->H
:G-(G>A)+(G<A->G
:I-(B=J and I>A)+(B=J and I<A->I
:J-(J>B)+(J<B->J
:Goto 5
:Lbl 98
:If (A=C and B=D) or (A=E and B=F) or (A=G and B=H) or (L=2 and A=I and B=J:Goto 2
:If C=E and D=F
:Then
:1->C
:1->D
:8->E
:16->F
:End
:If C=G and D=H
:Then
:1->C
:1->D
:1->G
:16->H
:End
:If L=2 and C=I and D=J
:Then
:1->C
:1->D
:8->I
:1->J
:End
:If E=G and F=H
:Then
:8->E
:16->F
:1->G
:F->H
:End
:If L=2 and E=I and F=J
:Then
:8->E
:16->F
:8->I
:1->J
:End
:If L=2 and G=I and H=J
:Then
:1->G
:16->H
:8->I
:1->J
:End
:Goto 4
:Lbl 6
:ClrHome
:Output(A,B,"X
:Output(C,D,"O
:Output(E,F,"O
:Output(G,H,"O
:If L=2:Output(I,J,"O
:Output(1,1,T
:Goto 98
:Lbl 2
:If L=1 and T>[petit L des listes]SCORE(3:T->[petit L des listes]SCORE(3
:If L=2 and T>[petit L des listes]SCORE(4:T->[petit L des listes]SCORE(4
:ClrHome
:Output(1,3,"GAME OVER !
:Output(3,1,"SCORE :
:Output(3,9,T
:Pause
:If W=/=1/3:prgmEFFACE
Et enfin, mon snake personnel :
Code
Snake vesion 3 :
:prgmFUN7
:Output(1,2,"SNAKE VERSION 3
:Output(4,13,[petit L des listes]SCORE(15
:Pause
:ClrHome
:2->T
:Repeat not(I=4 and J<16 and J>14
:randInt(1,8->I
:randInt(1,16->J
:End
:4->X
:14->Y
:{4,4->L4
:{15,16->L5
:24->Z
:Output(I,J,"*
:DelVar KFnOff :PlotsOff
:While 1
:If K
:Then
:If K=105:Pause
:If K=11 and W=1/3:prgmFONCTION
:If K=11:prgmEFFACE
:If K=15:Then:DispGraph:Pause :End
:If ((K=24 and Z-26) or (K=26 and Z-24) or (K=25 and Z-34) or (K=34 and Z-25)) and K-15 and K-105:K->Z
:End
:For(K,T-1,1,[petit moins]1
:L4(K->L4(K+1
:L5(K->L5(K+1
:End
:X->L4(1
:Y->L5(1
:L4(1)-(Z=25)+(Z=34->X
:L5(1)-(Z=24)+(Z=26->Y
:If max((L4=X)+(L5=Y))=2 and (L4(T)-X or Y-L5(T:Goto 9
:If XY and X-9 and Y-17
:Output(X,Y,"O
:If I=X and J=Y:Then
:Repeat not(U
:randInt(1,8->I
:randInt(1,16->J
:DelVar U
:If 2=max((I=L4)+(J=L5:1->U
:If I=X and J=Y:1->U
:End
:Output(I,J,"*
:T+1->T
:T->dim(L4
:T->dim(L5
:Else
:Output(L4(T),L5(T),"
:End
:getKey->K
:If XY and X-9 and Y-17:End
:Lbl 9
:ClrHome
:Output(3,4,"LOOSER !!!
:Output(4,5,"SCORE :
:Output(5,8,T
:Pause
:If T>[petit L des listes]SCORE(15:T->[petit L des listes]SCORE(15
:If W-1/3:prgmEFFACE
:ClrHome
Voila !!!
Je precise que tout les programmes sont de moi, sauf esquive 2 que je dois en partie a Romain Hirt
---------------------- Il y a 11 sortes de personnes. Ceux qui connaissent le unaire et ceux qui ne le connaissent pas.
Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Lun 26 Mar 2012, 19:36
excuse moi, mais je crois que tu as oublié de changer les charactères spéciaux.
Sinon, beau travail. Par contre, si tu veux que quelcun l'essaye, tu ferais mieux de mettre des liens de téléchargements; car là, il y en a pour des heures de recopiage.
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 26 Mar 2012, 19:47
Moi j'utilise mediafire (est gratuit, pratique et permet de gérer les uploads d'un compte)
Un programme poussé à ce point doit valloir le coup.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 26 Mar 2012, 20:55
Quelle réactivité ! Cela est agréable tant c'est inhabituel.
Quand je veux tester sous wabbitemu cela plante car tu n'as pas inclus le programme FUN7 et d'autres.
Au pire je peux les recopier mais malheureusement je n'ai pas que cela à faire.
Donc j'aprécierais beaucoup que tu les fournisses aussi, si ce n'est pas trop abuser de ta générosité.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 26 Mar 2012, 21:23
Merci !
Comme tes programmes ne donnent pas dimension aux listes, ils plantent dès qu'on veut utiliser les listes.
Précise-nous au moins la taille des listes pour qu'on puisse préparer sa calculatrice.
Je n'ai pas compris comment créer un personnage, je tape un nom mais je ne peux pas lancer de partie avec ce nom.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Il faut lancer le jeu
Ensuite selectionner creer
Taper 123 (ce code empeche des petits malins d effacer vos parties. Vous pouvez le changer a partir du code)
Puis un des 4 du haut, le 5 eme etant protege par un code (les plus attentifs le trouveront ^^)
Ensuite prendre celui que vous avez choisi.
Les listes PERS1 PERS2 PERS3 PERs4 et PERS5 ne doivent JAMAIS etre effacée, sauf si vous avez terminé le jeu avec un perso (dans l ordre du menu).
Il charge max 5 secondes.
Vous etes le A et les P sont vos ennemis actuels (poulets) : au fur et a mesure que vous montez de niveaux, il y a plus d ennemis (20 differents avec des caracteristiques differentes).
Ces une map carre de 3*3 zones, une zone etant representees par un ecran.
Dans la zone du milieu, il y a 4 ? Ils simbolisent le dongeon : appuyer sur enter quand vous etes dessus pour demarer le dongeon.
Les commandes :
f( x ) : quitter et sauvegarder
fenetre : en mode combat : regader caracteristiques ennemies; en mode normal : recharger la zone (nouveaux ennemis, du gold en plus)
zoom : voir ses caracteristiques
trace : shop
graphe : affiche un ecran vide pour ne pas se faire voir par un prof, on le quitte avec enter
les fleches : se deplacer
enter : en combat : acceder aux attaques; en mode normal : activer le dongeon si vous vous y trouvez.
Dongeon :
1. appuyer beaucoup de fois sur . Avant la fin des 300
2. deviner le bon chiffre ente1 et 1024
3. esquiver les v; se coucher permet d avancer de 2
4. manger les etoiles
5. esquiver les O qui se rapprochent de vous; si il y en a 2 au meme endroit, ils retournent a leurs positions de depart
6. amelioration de vos caracteristiques
7. Boss (assez fort)
---------------------- Il y a 11 sortes de personnes. Ceux qui connaissent le unaire et ceux qui ne le connaissent pas.