Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
Aquarium
Persalteas le 25/06/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 le 25/06/2010 à 15:40
c'est possible en ti basic? mais que en basic?alexvire le 25/06/2010 à 15:49
Oui mais il faut soit faire l'image à la main ou alors la faire avec des lignes, des points... etc.Akmdad le 25/06/2010 à 16:55
ah ok... et au niveau de la vitesse?alexvire le 25/06/2010 à 17:08
Puisque c'est une image ça change rien.ILUS le 28/06/2010 à 10:06
Salut,
C'est une trés bonne idée!!
On pourrai peut être en faire un jeu !!!Persalteas le 28/06/2010 à 10:17
comment, ça?
tu pilotes un poisson et il doit faire 10 fois le tour de l'aquarium?ILUS le 28/06/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......
Persalteas le 28/06/2010 à 11:00
eh bien je te donne l'autorisation de prendre, remodeler, changer, trucider mon programme.
fais-en bon usage.
ILUS le 28/06/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 le 30/06/2010 à 18:50
c'est l'heure!!!!ILUS le 01/07/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 le 02/07/2010 à 11:10
nickel!!! Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
