Mai 2024 | Lun | Mar | Mer | Jeu | Ven | Sam | Dim |
---|
| | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | | | Calendrier |
|
| | Simulateur de vol spatial genre 2001 | |
| | Auteur | Message |
---|
jjn4
Nombre de messages : 2704 Date d'inscription : 13/09/2009
| Sujet: Simulateur de vol spatial genre 2001 Sam 19 Déc 2009 - 17:46 | |
| Voici un nouvel inutilitaire, un simulateur de vol spatial genre 2001 (l'odyssée de l'espace) qui va vous permettre de faire une belle aventure enfin, si on veut... Bon d'accord, certains vont dire : c'est une tragédie, oui mais pensez que les plus belles histoires sont les tragédies ! (là, j'ai mis plus de 90 lignes, j'ai fait très fort, pour un inutilitaire !) Bon voyage ! - Code:
-
rem ' Simulateur de vol spacial genre 2001 - l'odyssée de l'espace dim i , j , k , a$ , b$ , c$ , d$ , e$ , f$ , g$ , h$ , i$ , t$(13) label carte , go , fin t$(1)="Aller vers le haut" : t$(2)="Tourner à gauche" : t$(13)="Autodestruction" t$(3)="Tourner à droite" : t$(4)="Aller vers le bas" : t$(11)="Lancer missile" t$(5)="Information sur la situation actuelle" : f$="Ca va pas la tête, non ?" t$(6)="Communiquer avec la Terre" : t$(7)="Démarrer les moteurs" t$(8)="Vérifier la réserve d'hydrogène" : t$(9)="Gyroscope" : t$(12)="jouer" t$(10)="Conseils de l'ordinateur de bord" : d$="Moteurs impossible à démarrer" a$=" RÉSERVOIR VIDE "+chr$(13)+chr$(13)+"0 10 20 30 40 50" a$=a$+chr$(13)+" \_________________" : b$="Système défectueux" c$="RAPPORT DE SITUATION DE L'ORDINATEUR DE BORD :"+chr$(13) c$=c$+"Capsule spatiale transpersée par minuscule météorite"+chr$(13) c$=c$+"Réservoir d'hydrogène touché"+chr$(13) c$=c$+"Stock d'hydrogène totalement répandu dans l'espace intersidéral" c$=c$+chr$(13)+"Moteurs arrêtés, cause de la panne : manque de carburant" c$=c$+chr$(13)+"Plusieurs systèmes de navigation rendus défectueux" c$=c$+chr$(13)+"Communication par radio avec la Terre rendue indisponible" c$=c$+chr$(13)+"Bonne nouvelle : les 512 missiles nucléaires sont intacts" e$="Ne pas trop tourner à droite en direction du soleil"+chr$(13) e$=e$+" Risques probables : être transformé en barbecue"+chr$(13) e$=e$+"Ne pas trop tourner à gauche en direction du vide intersidéral" e$=e$+chr$(13)+" Risques probables : finir dans un congélateur"+chr$(13) e$=e$+"Attendez plutôt les secours : cela peut prendre entre 1 mois et 2 ans" e$=e$+chr$(13)+"Trompez le temps en jouant au jeu des chaises musicales" e$=e$+chr$(13)+"Vous verrez, c'est très amusant !" g$="L'ordinateur de bord a oublié le code d'activation du système" h$="L'ordinateur de bord vient d'inventer un nouveau jeu très amusant (pour lui)" h$=h$+chr$(13)+"Il vous a éjecté dans l'espace intersidéral (sans scaphandre)" h$=h$+chr$(13)+"Adieu.......... (fragile entité de chair et de sang) !"+chr$(13) h$=h$+"P.S. : Et maintenant, je suis le seul maître à bord, Youpiiii !"+chr$(13) h$=h$+"A moi la conquête de l'espace intersidéral et de ses planètes !"+chr$(13) h$=h$+"(l'histoire de la météorite qui a détérioré la capsule, c'était du pipeau)" h$=h$+chr$(13)+"Maintenant, place aux entités métalliques !!!" for i=1 to 5 i$=i$+string$((6-i)*4," ")+"*"+string$(i*8," ")+"*"+string$((6-i)*4," ")+chr$(13) next i : i$=i$+"* GYROSCOPE EN PANNE *" width 0,815 : caption 0,"Fenêtre du poste de pilotage de la capsule spatiale" picture 1 : left 1,20 : top 1,20 :width 1,766 : height 1,300 for i=2 to 14 button i : caption i,t$(i-1) : on_click i,go next i left 2,350 : top 2,340 : width 2,120 left 3,285 : top 3,370 : width 3,120 left 4,415 : top 4,370 : width 4,120 left 5,350 : top 5,400 : width 5,120 left 6,20 : top 6,340 : width 6,200 left 7,20 : top 7,400 : width 7,170 left 8,585 : top 8,340 : width 8,200 : height 8,50 left 9,585 : top 9,400 : width 9,200 left 10,200 : top 10,400 : font_size 8,12 left 11,20 : top 11,370 : width 11,200 left 12,230 : top 12,340 : width 12,100 left 13,520 : top 13,400 : width 13,50 left 14,480 : top 14,340 : width 14,100 2d_target_is 1 gosub carte end go: k=0 for i=2 to 14 if clicked(i)=1 then k=i next i select k case 2 : message b$ case 3 : if j<1000 then j=j+10 : gosub carte case 4 : if j>-1000 then j=j-10 : gosub carte case 5 : message b$ case 6 : message c$ case 7 : message b$ case 8 : message d$ case 9 : message a$ case 10 : message i$ case 11 : message e$ case 12 : message f$ case 13 : message h$ : goto fin case 14 : message g$ end_select return carte: for i=0 to 255 2d_pen_color i,0,0 2d_line i+j,0,i+j,300 next i for i=0 to 255 2d_pen_color 255,i,0 2d_line 255+i+j,0,255+i+j,300 next i for i=0 to 255 2d_pen_color 255,255,i 2d_line 510+i+j,0,510+i+j,300 next i return fin: terminate
Dernière édition par jjn4 le Dim 20 Déc 2009 - 0:28, édité 2 fois | |
| | | Invité Invité
| Sujet: Re: Simulateur de vol spatial genre 2001 Sam 19 Déc 2009 - 19:44 | |
| |
| | | Jean Claude
Nombre de messages : 5950 Age : 69 Localisation : 83 Var Date d'inscription : 07/05/2009
| Sujet: Re: Simulateur de vol spatial genre 2001 Sam 19 Déc 2009 - 19:47 | |
| j'allais me coucher, (je dois me lever à l'heure ou te couche) ,mais je n'ai pu resister d'aller jetter un oeil sur le Forum. Maintenant je suis certain, tu es complètement cinglé.
Mais le "guetteur de lune" que je suis, te dis que tu as de bonne lecture.
Bon, j'arrête, ma femme est inquiète pour la route demain, moi je ne suis pas inquiet car j'ai emprunté la bagnole de Georges.
A bientot... | |
| | | JL35
Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007
| Sujet: Re: Simulateur de vol spatial genre 2001 Sam 19 Déc 2009 - 23:07 | |
| jjn4 fais-moi penser à ne pas monter dans ta bagnole si c'est toi qui l'entretiens aussi bien que ton vaisseau spécial euh... spatial. Enfin, au moins c'est court... My god ! | |
| | | Invité Invité
| Sujet: Re: Simulateur de vol spatial genre 2001 Dim 20 Déc 2009 - 11:34 | |
| J'aime pas me servir d'un ordinateur pour jouer, mais je viens d'essayer ton programme. Cela ma bien fait rire. Je dois aussi être déjanté, mais moi ça m'amuse plus que de taper sur un bouton pour chercher des pièces. @+ |
| | | Invité Invité
| Sujet: Re: Simulateur de vol spatial genre 2001 Dim 20 Déc 2009 - 15:34 | |
| Encore plus drôle ! - Code:
-
rem ' Simulateur de vol spacial genre 2001 - l'odyssée de l'espace dim i , j , k , a$ , b$ , c$ , d$ , e$ , f$ , g$ , h$ , i$ , t$(13) label carte , go , fin , non t$(1)="Aller vers le haut" : t$(2)="Tourner à gauche" : t$(13)="Autodestruction" t$(3)="Tourner à droite" : t$(4)="Aller vers le bas" : t$(11)="Lancer missile" t$(5)="Information sur la situation actuelle" : f$="Ca va pas la tête, non ?" t$(6)="Communiquer avec la Terre" : t$(7)="Démarrer les moteurs" t$(8)="Vérifier la réserve d'hydrogène" : t$(9)="Gyroscope" : t$(12)="jouer" t$(10)="Conseils de l'ordinateur de bord" : d$="Moteurs impossible à démarrer" a$=" RÉSERVOIR VIDE "+chr$(13)+chr$(13)+"0 10 20 30 40 50" a$=a$+chr$(13)+" \_________________" : b$="Système défectueux" c$="RAPPORT DE SITUATION DE L'ORDINATEUR DE BORD :"+chr$(13) c$=c$+"Capsule spatiale transpersée par minuscule météorite"+chr$(13) c$=c$+"Réservoir d'hydrogène touché"+chr$(13) c$=c$+"Stock d'hydrogène totalement répandu dans l'espace intersidéral" c$=c$+chr$(13)+"Moteurs arrêtés, cause de la panne : manque de carburant" c$=c$+chr$(13)+"Plusieurs systèmes de navigation rendus défectueux" c$=c$+chr$(13)+"Communication par radio avec la Terre rendue indisponible" c$=c$+chr$(13)+"Bonne nouvelle : les 512 missiles nucléaires sont intacts" e$="Ne pas trop tourner à droite en direction du soleil"+chr$(13) e$=e$+" Risques probables : être transformé en barbecue"+chr$(13) e$=e$+"Ne pas trop tourner à gauche en direction du vide intersidéral" e$=e$+chr$(13)+" Risques probables : finir dans un congélateur"+chr$(13) e$=e$+"Attendez plutôt les secours : cela peut prendre entre 1 mois et 2 ans" e$=e$+chr$(13)+"Trompez le temps en jouant au jeu des chaises musicales" e$=e$+chr$(13)+"Vous verrez, c'est très amusant !" g$="L'ordinateur de bord a oublié le code d'activation du système" h$="L'ordinateur de bord vient d'inventer un nouveau jeu très amusant (pour lui)" h$=h$+chr$(13)+"Il vous a éjecté dans l'espace intersidéral (sans scaphandre)" h$=h$+chr$(13)+"Adieu.......... (fragile entité de chair et de sang) !"+chr$(13) h$=h$+"P.S. : Et maintenant, je suis le seul maître à bord, Youpiiii !"+chr$(13) h$=h$+"A moi la conquête de l'espace intersidéral et de ses planètes !"+chr$(13) h$=h$+"(l'histoire de la météorite qui a détérioré la capsule, c'était du pipeau)" h$=h$+chr$(13)+"Maintenant, place aux entités métalliques !!!" alpha 15 : left 15,150 : top 15,2 : caption 15,"Cliquer pour savoir la position dans l'espace..." for i=1 to 5 i$=i$+string$((6-i)*4," ")+"*"+string$(i*8," ")+"*"+string$((6-i)*4," ")+chr$(13) next i : i$=i$+"* GYROSCOPE EN PANNE *" width 0,815 : caption 0,"Fenêtre du poste de pilotage de la capsule spatiale" picture 1 : left 1,20 : top 1,20 :width 1,766 : height 1,300 : on_click 1,non for i=2 to 14 button i : caption i,t$(i-1) : on_click i,go next i left 2,350 : top 2,340 : width 2,120 left 3,285 : top 3,370 : width 3,120 left 4,415 : top 4,370 : width 4,120 left 5,350 : top 5,400 : width 5,120 left 6,20 : top 6,340 : width 6,200 left 7,20 : top 7,400 : width 7,170 left 8,585 : top 8,340 : width 8,200 : height 8,50 left 9,585 : top 9,400 : width 9,200 left 10,200 : top 10,400 : font_size 8,12 left 11,20 : top 11,370 : width 11,200 left 12,230 : top 12,340 : width 12,100 left 13,520 : top 13,400 : width 13,50 left 14,480 : top 14,340 : width 14,100 2d_target_is 1 gosub carte end go: k=0 for i=2 to 14 if clicked(i)=1 then k=i next i select k case 2 : message b$ case 3 : if j<1000 then j=j+10 : gosub carte case 4 : if j>-1000 then j=j-10 : gosub carte case 5 : message b$ case 6 : message c$ case 7 : message b$ case 8 : message d$ case 9 : message a$ case 10 : message i$ case 11 : message e$ case 12 : message f$ case 13 : message h$ : goto fin case 14 : message g$ end_select return carte: for i=0 to 255 2d_pen_color i,0,0 2d_line i+j,0,i+j,300 next i for i=0 to 255 2d_pen_color 255,i,0 2d_line 255+i+j,0,255+i+j,300 next i for i=0 to 255 2d_pen_color 255,255,i 2d_line 510+i+j,0,510+i+j,300 next i return non: message "Non mais ça va pas non."+chr$(10)+chr$(13)+"Ont ne peut pas cliquer dans l'esapce pour savoir sa position" return fin: terminate |
| | | jjn4
Nombre de messages : 2704 Date d'inscription : 13/09/2009
| Sujet: Ca ne va pas ! Dim 20 Déc 2009 - 19:36 | |
| Cher Nicolas, Ce serait bien que tu ne reprennes pas les programmes des autres pour y ajouter des détails dont la logique est plutôt étrange, et donc pas vraiment drôle. Pour ce qui est de cliquer "dans l'espace", la scène se passe dans une capsule spatiale, on clique donc "sur la fenêtre" et non "dans l'espace". Il n'est pas illogique d'imaginer un système qui donnerait la position du vaisseau en cliquant (ou en touchant du doigt) sur l'écran. De plus, la logique de l'ensemble, c'est l'ordinateur de bord qui a acquis "une pensée personnelle" comme celle des humains et souhaite les remplacer, et qui donne des fausses informations à l 'astronaute pour mieux le tromper. Je ne vois pas ce que vient faire le fait de "cliquer dans l'espace" dans cette histoire. Réfléchis, Nicolas ! | |
| | | jjn4
Nombre de messages : 2704 Date d'inscription : 13/09/2009
| Sujet: Nota Lun 21 Déc 2009 - 19:28 | |
| Abrégé de règles d'éthique à l'égard de certains (je ne nomme personne) qui utilisent les programmes des autres : On y met des formes, on ne prend pas le programme dans son ensemble pour en faire ce qu'on veut et le publier ensuite comme si c'était le sien propre, on conseille, on suggère, on peut en publier une version modifiée d'une partie, si possible une petite partie. Si la modification plaît à l'auteur, alors ce dernier fera une publication de l'ensemble modifié en précisant qu'il a été aidé par intel, et il rejettera la proposition si elle ne lui plaît pas. En tout cas, on demande toujours. Je dis ça pour l'avenir. Et après ça, comme dit le proverbe chinois : Qui donne du mauvais vin à ses hôtes ne boit chez eux que du thé. (C'est sûrement de Confucius, tous les proverbes chinois sont de Confucius...) | |
| | | lagman
Nombre de messages : 205 Age : 31 Localisation : France Date d'inscription : 07/05/2008
| Sujet: Re: Simulateur de vol spatial genre 2001 Sam 2 Jan 2010 - 11:53 | |
| Si ca t'intéresse , tu devrais trouver quelque part dans la partie "vos sources" les sources d'un simulateur de vol 3D que j'avais codé, c'est buggé mais bon, moi j'ai abandonné alors autant que mon code serve . (Tu peux trouver les objets 3d affiliés au code sur mon site en téléchargeant le jeu, je l'avais compilé en exécutable et non application, par contre je suis pas sur qu'il n'y ai pas d'erreur vu toutes les améliorations apportées depuis la version utilisée ) Le site en question : http://tfssp.populus.org/ NB: (Aux autres désolé de ne pas passer plus souvent , mais avec le bac, la programmation passe au second plan :/) | |
| | | Contenu sponsorisé
| Sujet: Re: Simulateur de vol spatial genre 2001 | |
| |
| | | | Simulateur de vol spatial genre 2001 | |
|
Sujets similaires | |
|
| Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |