Pan(oram)ique chez les martiens

rem ' Le premier programme d'origine Extra-Terrestre - Pg-ET
dim i , j , x , y , a$ , x$ , q$(10) , ind , i2 , i3
label langue , ouvre , affiche , 3d , quit
x=800 : rem longueur de la Form
y=450 : rem hauteur de la Form
q$(0)="  " : q$(1)=chr$(162) : q$(2)=chr$(163) : q$(3)=chr$(164)
q$(4)=chr$(165) : q$(5)=chr$(167) : q$(6)=chr$(181) : q$(7)=chr$(208)
q$(8)=chr$(215) : q$(9)=chr$(222) : q$(10)=chr$(254)
for i=1 to 15 : gosub langue : x$=x$+a$+chr$(13) : next i
border_hide 0 : color 0,0,40,255 : width 0,x : height 0,y
picture 1 : width 1,x : height 1,30 : 2d_target_is 1
for i=0 to 3 : 2d_pen_color 0,200-i*10,0 : 2d_line 0,i,x,i : next i
for i=4 to 22 : 2d_pen_color 0,i*4+120,0 : 2d_line 0,i,x,i : next i
for i=23 to 29 : 2d_pen_color 0,200-(i-22)*8,0 : 2d_line 0,i,x,i : next i
alpha 2 : left 2,27 : top 2,4 : font_color 2,255,255,255 : font_bold 2
color 2,0,180,0 : font_size 2,10
alpha 3 : left 3,2 : top 3,30 : width 3,x-4 : height 3,y-33 : color 3,236,233,216
picture 4 : left 4,5 : top 4,6 : width 4,18 : height 4,18
color 4,233,249,251 : 2d_target_is 4 : 2d_pen_color 255,51,0
2d_circle 9,9,8 : 2d_circle 9,9,6 : 2d_pen_color 51,51,153
2d_line 6,11,11,11 : 2d_circle 10,7,2 : 2d_pen_width 2 : 2d_line 8,6,8,11
picture 5 : left 5,x-25 : top 5,6 : width 5,20 : height 5,20
color 5,230,110,85 : 2d_target_is 5 : 2d_pen_color 255,255,255
2d_pen_width 2 : 2d_line 0,0,0,20 : 2d_line 0,0,20,0 : 2d_line 20,0,20,20
2d_line 0,20,20,20 : 2d_line 4,14,14,4 : 2d_line 4,4,14,14
picture 6 : left 6,x-48 : top 6,6 : width 6,20 : height 6,20
color 6,0,170,0 : 2d_target_is 6 : 2d_pen_color 255,255,255
2d_pen_width 2 : 2d_line 0,0,0,20 : 2d_line 0,0,20,0 : 2d_line 20,0,20,20
2d_line 0,20,20,20 : 2d_pen_width 1 : 2d_line 5,5,5,15 : 2d_line 5,15,15,15
2d_line 15,15,15,5 : 2d_pen_width 3 : 2d_line 5,5,15,5
picture 7 : left 7,x-71 : top 7,6 : width 7,20 : height 7,20
color 7,0,170,0 : 2d_target_is 7 : 2d_pen_color 255,255,255 : 2d_pen_width 2
2d_line 0,0,0,20 : 2d_line 0,0,20,0 : 2d_line 20,0,20,20 : 2d_line 0,20,20,20
2d_pen_width 3 : 2d_line 5,14,13,14 : color 0,0,170,0
gosub langue : caption 2,a$ : on_click 5,quit

edit 8 : left 8,20 : top 8,260 : width 8,400
button 9 : left 9,398 : top 9,262 : width 9,20 : height 9,18
font_name 9,"Webdings" : font_size 9,10 : caption 9,"5" : on_click 9,ouvre
alpha 10 : left 10,20 : top 10,260 : width 10,400 : height 10,1
alpha 11 : left 11,21 : top 11,259 : width 11,398 : height 11,1
alpha 12 : left 12,21 : top 12,61 : hide 12 : on_click 12,affiche
color 10,0,0,0 : color 11,255,255,255  : color 12,255,255,255
scene3d 13 : left 13,550 : top 13,200 : width 13,150 : height 13,150
picture 14 : left 14,100 : top 14,340 : width 14,60 : height 14,40 : color 14,236,233,216
picture 15 : left 15,250 : top 15,340 : width 15,60 : height 15,40 : color 15,236,233,216
2d_target_is 14 : 2d_pen_color 0,170,0 : 2d_fill_color 0,255,0 : 2d_circle 30,20,20
2d_fill_color 0,0,0 : 2d_circle 30,20,7 : hide 14
2d_target_is 15 : 2d_pen_color 0,170,0 : 2d_fill_color 0,255,0 : 2d_circle 30,20,20
2d_fill_color 0,0,0 : 2d_circle 30,20,7 : hide 15

end

langue:
a$=""
for j=1 to int(rnd(35)+23)
 a$=a$+q$(int(rnd(11)))
next j
return

ouvre:
if ind=0
 for j=260 to 60 step -1
  top 10,j : height 10,260-j
  top 11,j+1 : height 11,261-j
 next j : show 12 : caption 12,x$ : ind=1
else
 hide 12
 for j=60 to 260
  top 10,j : height 10,260-j
  top 11,j+1 : height 11,261-j
 next j : ind=0
end_if
return

affiche:
gosub langue : text 8,a$ : gosub ouvre : gosub 3d
return

3d:
i=int(rnd(7)) : if i=i2 then goto 3d
3d_delete_all : i3=i3+1
select i
 case 0 : 3d_cube 1,1
 case 1 : 3d_cone 1,1,1
 case 2 : 3d_cylinder 1,1,0.2,0.4
 case 3 : 3d_dodecahedron 1
 case 4 : 3d_sphere 1,0.8
 case 5 : 3d_teapot 1
 case 6 : 3d_torus 1,0.6,0.4
end_select
3d_color 1,0,200,0 : i2=i
if i3>5 then show 14 : show 15
return

quit:
terminate