| aquarium |
| Auteur |
Message |
Persalteas
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Ven 25 Jui 2010, 10:44
|
|
 |
si vous aimez regarder les poissons vous allez adorer!
donc voilà un programme débile ou 3 poissons débiles nagent dans un aquarium débile.
-de temps en temps un poisson lache une bulle.
-décor graphique.
-C'est comme Vista ça sert à rien mais c'est très joli.
voilà déjà un prog que vous appellerez ZAQARIUM, qui sert à faire le décor.
si vous avez la flemme de recopier, les poissons vont nager dans votre écran vide mais pensez à supprimer la ligne ":Send(9prgmZAQARIUM" dans le grand code.
| Code |
:21369311298E010003EDB0CD6451C9800000000000000000000004C30C3061861C30C30630C384
E79E78F3CF3E79E78F79E7CCBCF3CF9E79E3CF3CF9CF3C7C9861870C30C18618718618348000000
000000000000000048000000000000000000000048000000601C0000000000004800000090E3000
00000000048000003D080C0000000000048000006289FE000000000004800000029200000000000
00480000001520060000000000480000009541C5C000000000480000014B4E26380000000048000
0012B5021C70000000048000002AB509030E0000000480000035AA3500C18000000480000042EC4
280E080380004800000026882809E80478004800000017B018081C0C0780480000000D40080403C
3C060480000003FF8000400323C404800000020080004000C0380480000002008003C0004010048
0000002010002200080100480000001010004200100100480000001010004200100100480000001
0100081801001004800000010200080602001004FFFFFFFFFFFFFFFFFFFFFFFCFFFFFFFFFFFFFFF
FFFFFFFFC
:End
:0000
:End
|
et le programme principal:
le /n/ représente le symbole qui se trouve en faisant [2nde][0][log][enter]
| Code |
:FnOff
:Horiz:Simul
:0->Xmin
:0->Ymin
:94->Xmax
:30->Ymax
:Send(9prgmZAQARIUM
:StorePic 1
:20->A:10->B:50->K
:70->F:25->G:18->L
:
:
:0->Q:0->R
:While not(getKey
:randInt(1,4)->C:randInt(1,4)->H:randInt(1,4)->M
:randInt(-10,10)->P
:If Q and R:1->P
:
:
:A->D:F->I:K->N
:B->E:G->J:L->O
:A+(C=1 and A<88)-(C=2 and A=/=2)->A
:B+(C=3 and B<26)-(C=4 and B=/=8)->B
:F+(H=1 and F<88)-(H=2 and F=/=2)->F
:G+(C=3 and G<26)-(C=4 and G=/=8)->G
:K+(M=1 and K<88)-(M=2 and K=/=2)->K
:L+(M=3 and L<26)-(M=4 and K=/=8)->L
:RecallPic 1
:Text(30-O,N," "
:Text(30-L,K,"/n/
:Text(30-J,I," "
:Text(30-E,D," "
:Text(30-G,F,"/n/
:Text(30-B,A,"/n/
:If P=0:Then
:randInt(1,3)->P
:If P=1:Then
:A+4->Q:B->R
:End
:If P=2:Then
:F+4->Q:G->R
:End
:If P=3:Then
:K+4->Q:L->R
:End
:End
:
:
:If Q and R:Then
:Text(30-R,Q," "
:Text(28-R,Q,"°
:R+2->R
:End
:If R>=27:Then
:Text(30-R,Q," "
:0->Q:0->R
:End
:End
:Full
:DelVar ADelVar BDelVar CDelVar DDelVar EDelVar FDelVar GDelVar HDelVar I
DelVar JDelVar KDelVar LDelVar MDelVar NDelVar ODelVar PDelVar QDelVar R
DelVar XDelVar YDelVar Pic1
:Output(1,1,"
|
|
 |
  |
| |
Akmdad
Autorisation : Membre
Nb de messages : 713
Inscrit le : Mar 22 Jui 2010, 21:03
|
Posté le : Ven 25 Jui 2010, 15:40
|
|
|
c'est possible en ti basic? mais que en basic?
----------------------
retrouvez moi sur twitter!!!
j'ai une ti 82 stats fr et une ti89 titanium  |
| |
|
| |
alexvire
Autorisation : Membre
Nb de messages : 230
Inscrit le : Dim 10 Mai 2009, 13:31
|
Posté le : Ven 25 Jui 2010, 15:49
|
|
|
Oui mais il faut soit faire l'image à la main ou alors la faire avec des lignes, des points... etc.
----------------------
Salut, visitez mon site:
Et mon forum !
Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI. |
| |
|
| |
Akmdad
Autorisation : Membre
Nb de messages : 713
Inscrit le : Mar 22 Jui 2010, 21:03
|
Posté le : Ven 25 Jui 2010, 16:55
|
|
|
ah ok... et au niveau de la vitesse?
----------------------
retrouvez moi sur twitter!!!
j'ai une ti 82 stats fr et une ti89 titanium |
| |
|
| |
alexvire
Autorisation : Membre
Nb de messages : 230
Inscrit le : Dim 10 Mai 2009, 13:31
|
Posté le : Ven 25 Jui 2010, 17:08
|
|
|
Puisque c'est une image ça change rien.
----------------------
Salut, visitez mon site:
Et mon forum !
Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI. |
| |
|
| |
ILUS
Autorisation : Membre
Nb de messages : 30
Inscrit le : Mer 09 Déc 2009, 13:45
|
Posté le : Lun 28 Jui 2010, 10:06
|
|
|
Salut,
C'est une trés bonne idée!!
On pourrai peut être en faire un jeu !!!
|
| |
|
| |
Persalteas
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Lun 28 Jui 2010, 10:17
|
|
|
comment, ça?
tu pilotes un poisson et il doit faire 10 fois le tour de l'aquarium?
|
| |
|
| |
ILUS
Autorisation : Membre
Nb de messages : 30
Inscrit le : Mer 09 Déc 2009, 13:45
|
Posté le : Lun 28 Jui 2010, 10:55
|
|
|
Un peu d'imagination !!!!
On pourrai faire un RPG ce serai original !!!! lol
Exemple:
| Code |
0->A
0->B
Lbl 0
menu(" !FISHING! ","jouer",1,"regle",2,"quitter",3
Lbl 3
EffEcr
stop
Lbl 2
Output(1,1,"Suivre les instructions !!!"
Pause : Goto 0
Lbl 1
Lbl A1
menu("SAUVER/CHARGER","NEWS PARTI",4,"SAUVER PARTI",5,"CHARGER PARTI",6
Ldl 5
If A<=1
Output(1,1,"AUCUNE PARTIE EN COURS !!!"
69!
69!
69!
69!
Goto A1
If A>=1
|
Bon je n'ais pa de calculaite sous la main aprés il te suffit E,F,G,H dans des chaines !!!
Ensuite tu créer une sorte de concours avec un menu course, baston....
Mais une condition que si Z=(nombre d'epreve) alors J-2......
Voila si tu veut d'autre idée gen et encore ilimiter......
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
Persalteas
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Lun 28 Jui 2010, 11:00
|
|
|
eh bien je te donne l'autorisation de prendre, remodeler, changer, trucider mon programme.
fais-en bon usage. 
|
| |
|
| |
ILUS
Autorisation : Membre
Nb de messages : 30
Inscrit le : Mer 09 Déc 2009, 13:45
|
Posté le : Lun 28 Jui 2010, 13:12
|
|
|
Ok je vois sa merci !!! Je vais essayer de faire un jeu commique !!! (rigoler ne faira de mal a personne!!!)
Je le travailleuré Mecredi apreme parce que la j'ai les revisions pour le brevet (29 et 30 juin)
|
| |
|
| |
Akmdad
Autorisation : Membre
Nb de messages : 713
Inscrit le : Mar 22 Jui 2010, 21:03
|
Posté le : Mer 30 Jui 2010, 18:50
|
|
|
c'est l'heure!!!!
----------------------
retrouvez moi sur twitter!!!
j'ai une ti 82 stats fr et une ti89 titanium |
| |
|
| |
ILUS
Autorisation : Membre
Nb de messages : 30
Inscrit le : Mer 09 Déc 2009, 13:45
|
Posté le : Jeu 01 Juil 2010, 21:32
|
|
|
Bon ben ji travaille !!! Le jeu va etre a certaine parti sur graphe et d'autre sur normale quoi !!! 
Je vais essayer de t'inpressionnait !!!
|
| |
|
| |
Akmdad
Autorisation : Membre
Nb de messages : 713
Inscrit le : Mar 22 Jui 2010, 21:03
|
Posté le : Ven 02 Juil 2010, 11:10
|
|
|
nickel!!!
----------------------
retrouvez moi sur twitter!!!
j'ai une ti 82 stats fr et une ti89 titanium |
| |
|
| |
