Bienvenue à philou029

rem ' Bienvenue-09
dim i , j , a$ , n$
label fin , flash
n$="philou029"
width 0,1020 : height 0,540
caption 0,"Bienvenue à toi, "+n$
scene3d 1
width 1,980 : height 1,460
3d_sphere 1,0.8
3d_x_position 1,-5
3d_color 1,255,0,0
3d_sphere 2,0.8
3d_x_position 2,5
3d_color 2,255,0,0
wait 1500
for i=1 to 4.5 step 0.2
  3d_x_position 1,i-5
  3d_x_position 2,5-i
  wait 20
next i
wait 50
3d_delete_all
caption 0,"  B O U M"
gosub flash
3d_delete_all
caption 0,"Bienvenue à toi, "+n$
3d_text 1,"BONJOUR "+n$
3d_color 1,255,0,0
3d_x_position 1,(len(n$)+7)*-0.3
wait 1500
3d_text 2,"ET BIENVENUE"
3d_position 2,-3.5,-2,0
3d_color 2,150,0,255
wait 1500
3d_delete_all
caption 0,"  B O U M"
gosub flash
3d_delete_all
caption 0,"  H U M O U R"
delete 1
color 0,0,0,0
goto fin
end
flash:
  beep
  for i=1 to 400
      3d_line 1,0,0,0
      3d_line 1,rnd(4)-2,rnd(4)-2,rnd(4)-2
      3d_color 1,int(rnd(255))+1,int(rnd(255))+1,int(rnd(255))+1
      for j=1 to 500 : next j : display
  next i
  wait 300
return
fin:
  a$="MAUVAISE NOUVELLE :"+chr$(13)
  a$=a$+"A la suite d'un bug survenu dans ce programme"+chr$(13)
  a$=a$+n$+" a malencontreusement disparu dans un trou noir."+chr$(13)
  a$=a$+"Est-ce que quelqu'un, sur ce site,"+chr$(13)
  a$=a$+"sait comment on peut faire pour le retrouver ?"
  message a$
terminate