Simulateur de vol spatial genre 2001

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

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