Le départ du martien

rem ' Départ du martien
  dim i , j , k , v : rem Variables provisoires numériques
  dim cb , cg , cr : rem Couleurs du fond
  dim de : rem Dimension de l`Écran en X
  dim hs : rem Hauteur du Saut (de la soucoupe HS)
  dim hx , hy : rem Hasard en X et en Y
  dim mo : rem Moteur Out
  dim xx : rem emplacement de la soucoupe en X
  label boum , bruit , disc , fumee , main , moins , tete
  de=screen_x : xx=-750 : hs=5
 
rem form0
  width 0,de+800
  height 0,550
  cr=color_pixel_red(0,10,10)
  cg=color_pixel_green(0,10,10)
  cb=color_pixel_blue(0,10,10)
  caption 0," Le départ du martien"

alpha 50 : rem Zone d`affichage des messages
  left 50,10
  top 50,20
  font_size 50,30
  font_name 50,"Arial"
  caption 50," Le départ du martien"
  wait 2500
  caption 50,""
  wait 1500
  caption 50,"Attendez, quoi, le démarrage prend un certain temps !"

picture 100 : rem Emplacement de la fulgurante soucoupe
  left 100,xx
  top 100,100
  width 100,650
  height 100,300
  color 100,cr,cg,cb
  on_click 100,boum

rem Fonctionnement du programme
  gosub disc
  caption 50,""
  midi_on
  for k=0 to de+800 step 20
      left 100,xx+k-10
      top 100,95
      wait 50
      left 100,xx+k
      top 100,95+hs
      if k=520
        gosub tete
      end_if
      if k=600
        gosub main
      end_if
      if k=820
        gosub moins
      end_if
      gosub fumee
      gosub bruit
      if mo=1
        v=1-v
      end_if
      if key_down_code=27
        terminate
      end_if
  next k
  wait 400
  midi_off
  delete 100
  width 0,de
  caption 50,"Au revoir !  A dans quelques mois..."
  wait 3000
  terminate
rem Fin du programme

end : rem ' Début des routines -------------------------------------

boum: : rem Problème avec la soucoupe
  if color_pixel_red(100,mouse_x_position(100),mouse_y_position(100))=110
      hs=25
      mo=1
  end_if
return

bruit: : rem Léger ronronnement à peine audible que fait la soucoupe
      midi_instrument 127
      midi_play 50,11
return

disc: : rem Dessin de la soucoupe
  2d_target_is 100
  for i=1 to 360 step 1/40
      j=950+800*sin(i)
      if j<209
        2d_point 350+800*cos(i),j
      end_if
  next i
  for i=1 to 360 step 1/40
      j=-532+800*sin(i)
      if j>210
        2d_point 350+800*cos(i),j
      end_if
  next i
  2d_line 50,209,650,209
  2d_flood 100,200,220,220,255
  2d_flood 100,220,220,220,255
  for i=1 to 360 step 1/10
      j=150+100*sin(i)
      if j<155
        2d_point 350+80*cos(i),j
      end_if
  next i
  2d_poly_from 102,230
  2d_poly_to 90,250
  2d_poly_to 20,250
  2d_poly_to 0,240
  2d_poly_to 0,270
  2d_poly_to 20,260
  2d_poly_to 100,260
  2d_poly_to 118,232
  2d_flood 110,240,110,110,110
  2d_fill_color 200,200,255
  for i=230 to 470 step 120
      2d_circle i-20,185,10
      2d_circle i+20,235,10
  next i
  2d_poly_from 300,220
  2d_poly_to 280,237
  2d_poly_to 310,250
  2d_poly_to 330,235
  2d_poly_to 300,220
  for i=1 to 3
      2d_line 278+i*5,237-i*5,283+i*5,241-i*5
      2d_line 299+i*5,220+i*5,310+i*5,215+i*5
      2d_line 304+i*5,252-i*5,314+i*5,256-i*5
      2d_line 284+i*5,236+i*5,289+i*5,229+i*5
  next i
  2d_flood 300,230,255,0,0
  2d_poly_from 500,209
  2d_poly_to 520,180
  2d_poly_to 580,209
  for i=1 to 4
      2d_line 496+i*5,205-i*5,501+i*5,209-i*5
  next i
  for i=1 to 6
      2d_line 512+i*10,178+i*5,516+i*10,170+i*5
  next i
  2d_flood 520,200,255,255,0
  for i=1 to 360
      j=150+40*sin(i)
      if j<150
        2d_point 330+20*cos(i),j
      end_if
  next i
  2d_flood 335,140,0,255,0
  2d_circle 330,97,15
  2d_poly_from 420,153
  2d_poly_to 395,130
  2d_poly_to 415,110
  2d_poly_to 417,106
  2d_poly_to 411,107
  2d_poly_to 369,146
  2d_poly_to 369,149
  2d_poly_to 374,148
  2d_poly_to 388,135
  2d_poly_to 408,153
  2d_flood 410,151,200,200,255
  2d_poly_from 350,147
  2d_poly_to 372,143
  2d_flood 355,147,0,255,0
  2d_circle 374,144,6
  2d_poly_from 341,90
  2d_poly_to 330,94
  2d_poly_to 344,98
  2d_flood 335,94,255,255,255
  2d_rectangle 341,90,343,98
  2d_poly_from 341,106
  2d_poly_to 334,104
  2d_poly_to 330,100
  2d_line 330,82,335,60
  2d_line 330,82,327,66
return

fumee: : rem Légère brume que produit la soucoupe
  2d_target_is 0
  for i=1 to 100+300*v
      hx=rnd(100)
      if odd(i)=1
          hx=99-hx
      end_if
      hy=rnd(100)
      if even(i)=1
          hy=99-hy
      end_if
      2d_point xx-110+k+hx,310+hy
      2d_point xx-110+k+hx,310+hy+rnd(5)
      hx=rnd(100)
      if odd(i)=1
          hx=99-hx
      end_if
      hy=rnd(100)
      if even(i)=1
          hy=99-hy
      end_if
      2d_pen_color cr,cg,cb
      2d_circle xx-300+k+hx,310+hy,4
      2d_pen_color 0,0,0
  next i
return
 
main: : rem Salut de la main
  2d_target_is 100
  2d_poly_from 343,118
  2d_poly_to 370,95
  2d_poly_to 370,88
  2d_poly_to 374,93
  2d_poly_to 379,91
  2d_poly_to 376,96
  2d_poly_to 382,99
  2d_poly_to 373,99
  2d_poly_to 346,130
  2d_flood 347,120,0,255,0
return

moins: : rem Enlever la main
  2d_target_is 100
  2d_circle 330,97,15
  2d_poly_from 350,147
  2d_poly_to 372,143
  2d_flood 355,147,0,255,0
  2d_circle 374,144,6
  2d_poly_from 341,90
  2d_poly_to 330,94
  2d_poly_to 344,98
  2d_flood 335,94,255,255,255
  2d_rectangle 341,90,343,98
  2d_poly_from 341,106
  2d_poly_to 334,104
  2d_poly_to 330,100
  2d_pen_color cr,cg,cb
  2d_poly_from 343,118
  2d_poly_to 370,95
  2d_poly_to 370,88
  2d_poly_to 374,93
  2d_poly_to 379,91
  2d_poly_to 376,96
  2d_poly_to 382,99
  2d_poly_to 373,99
  2d_poly_to 346,130
  2d_flood 347,120,cr,cg,cb
  2d_pen_color 0,0,0
return

tete: : rem Dessin de la tête
  2d_target_is 100
  2d_circle 330,97,15
  for i=1 to 360
      j=106+18*sin(i)
      if j<92
        2d_point 330+18*cos(i),j
      end_if
  next i
  for i=1 to 360
      j=77+18*sin(i)
      if j>91
        2d_point 330+18*cos(i),j
      end_if
  next i
  2d_flood 330,105,0,255,0
  2d_fill_color 0,0,0
  2d_circle 330,92,4
  2d_poly_from 322,100
  2d_poly_to 324,103
  2d_poly_to 327,104
  2d_poly_to 333,104
  2d_poly_to 336,103
  2d_poly_to 338,100
return

rem ' Départ du martien
  dim i , j , k , v : rem Variables provisoires numériques
  dim cb , cg , cr : rem Couleurs du fond
  dim de : rem Dimension de l`Écran en X
  dim hs : rem Hauteur du Saut (de la soucoupe HS)
  dim hx , hy : rem Hasard en X et en Y
  dim mo : rem Moteur Out
  dim xx : rem emplacement de la soucoupe en X
  label boum , bruit , disc , fumee , main , moins , tete
  de=screen_x : xx=-750 : hs=0

rem form0
  width 0,de+800
  height 0,550
  cr=color_pixel_red(0,10,10)
  cg=color_pixel_green(0,10,10)
  cb=color_pixel_blue(0,10,10)
  caption 0," Le départ du martien"

alpha 50 : rem Zone d`affichage des messages
  left 50,10
  top 50,20
  font_size 50,30
  font_name 50,"Arial"
  caption 50," Le départ du martien"
  wait 2500
  caption 50,""
  wait 1000
  caption 50,"ATTENTION: j'ai mis le turbo ! "

picture 100 : rem Emplacement de la fulgurante soucoupe
  left 100,xx
  top 100,100
  width 100,650
  height 100,300
  color 100,cr,cg,cb
  on_click 100,boum

rem Fonctionnement du programme
  gosub disc
  caption 50,""
  midi_on
  for k=0 to de+800 step 20
      left 100,xx+k-10
      top 100,95
      ' wait 50
      left 100,xx+k
      top 100,95+hs
      if k=520
        gosub tete
      end_if
      if k=600
        gosub main
      end_if
      if k=820
        gosub moins
      end_if
      gosub fumee
      gosub bruit
      if mo=1
        v=1-v
      end_if
      if key_down_code=27
        terminate
      end_if
  next k
'  wait 10
  midi_off
'  delete 100
  width 0,de
  caption 50,"Au revoir !  A dans quelques mois..."
  wait 3000
  terminate
rem Fin du programme

end : rem ' Début des routines -------------------------------------

boum:
  if color_pixel_red(100,mouse_x_position(100),mouse_y_position(100))=110
      hs=25
      mo=1
  end_if
return

bruit:
wait 1
return
      midi_instrument 127
      midi_play 50,11
return

disc:
  2d_target_is 100
  for i=1 to 360 step 1/40
      j=950+800*sin(i)
      if j<209
        2d_point 350+800*cos(i),j
      end_if
  next i
  for i=1 to 360 step 1/40
      j=-532+800*sin(i)
      if j>210
        2d_point 350+800*cos(i),j
      end_if
  next i
  2d_line 50,209,650,209
  2d_flood 100,200,220,220,255
  2d_flood 100,220,220,220,255
  for i=1 to 360 step 1/10
      j=150+100*sin(i)
      if j<155
        2d_point 350+80*cos(i),j
      end_if
  next i
  2d_poly_from 102,230
  2d_poly_to 90,250
  2d_poly_to 20,250
  2d_poly_to 0,240
  2d_poly_to 0,270
  2d_poly_to 20,260
  2d_poly_to 100,260
  2d_poly_to 118,232
  2d_flood 110,240,110,110,110
  2d_fill_color 200,200,255
  for i=230 to 470 step 120
      2d_circle i-20,185,10
      2d_circle i+20,235,10
  next i
  2d_poly_from 300,220
  2d_poly_to 280,237
  2d_poly_to 310,250
  2d_poly_to 330,235
  2d_poly_to 300,220
  for i=1 to 3
      2d_line 278+i*5,237-i*5,283+i*5,241-i*5
      2d_line 299+i*5,220+i*5,310+i*5,215+i*5
      2d_line 304+i*5,252-i*5,314+i*5,256-i*5
      2d_line 284+i*5,236+i*5,289+i*5,229+i*5
  next i
  2d_flood 300,230,255,0,0
  2d_poly_from 500,209
  2d_poly_to 520,180
  2d_poly_to 580,209
  for i=1 to 4
      2d_line 496+i*5,205-i*5,501+i*5,209-i*5
  next i
  for i=1 to 6
      2d_line 512+i*10,178+i*5,516+i*10,170+i*5
  next i
  2d_flood 520,200,255,255,0
  for i=1 to 360
      j=150+40*sin(i)
      if j<150
        2d_point 330+20*cos(i),j
      end_if
  next i
  2d_flood 335,140,0,255,0
  2d_circle 330,97,15
  2d_poly_from 420,153
  2d_poly_to 395,130
  2d_poly_to 415,110
  2d_poly_to 417,106
  2d_poly_to 411,107
  2d_poly_to 369,146
  2d_poly_to 369,149
  2d_poly_to 374,148
  2d_poly_to 388,135
  2d_poly_to 408,153
  2d_flood 410,151,200,200,255
  2d_poly_from 350,147
  2d_poly_to 372,143
  2d_flood 355,147,0,255,0
  2d_circle 374,144,6
  2d_poly_from 341,90
  2d_poly_to 330,94
  2d_poly_to 344,98
  2d_flood 335,94,255,255,255
  2d_rectangle 341,90,343,98
  2d_poly_from 341,106
  2d_poly_to 334,104
  2d_poly_to 330,100
  2d_line 330,82,335,60
  2d_line 330,82,327,66
return

fumee:
return
  2d_target_is 0
  for i=1 to 100+300*v
      hx=rnd(100)
      if odd(i)=1
          hx=99-hx
      end_if
      hy=rnd(100)
      if even(i)=1
          hy=99-hy
      end_if
      2d_point xx-110+k+hx,310+hy
      2d_point xx-110+k+hx,310+hy+rnd(5)
      hx=rnd(100)
      if odd(i)=1
          hx=99-hx
      end_if
      hy=rnd(100)
      if even(i)=1
          hy=99-hy
      end_if
      2d_pen_color cr,cg,cb
      2d_circle xx-300+k+hx,310+hy,4
      2d_pen_color 0,0,0
  next i
return

main:
  2d_target_is 100
  2d_poly_from 343,118
  2d_poly_to 370,95
  2d_poly_to 370,88
  2d_poly_to 374,93
  2d_poly_to 379,91
  2d_poly_to 376,96
  2d_poly_to 382,99
  2d_poly_to 373,99
  2d_poly_to 346,130
  2d_flood 347,120,0,255,0
return

moins:
  2d_target_is 100
  2d_circle 330,97,15
  2d_poly_from 350,147
  2d_poly_to 372,143
  2d_flood 355,147,0,255,0
  2d_circle 374,144,6
  2d_poly_from 341,90
  2d_poly_to 330,94
  2d_poly_to 344,98
  2d_flood 335,94,255,255,255
  2d_rectangle 341,90,343,98
  2d_poly_from 341,106
  2d_poly_to 334,104
  2d_poly_to 330,100
  2d_pen_color cr,cg,cb
  2d_poly_from 343,118
  2d_poly_to 370,95
  2d_poly_to 370,88
  2d_poly_to 374,93
  2d_poly_to 379,91
  2d_poly_to 376,96
  2d_poly_to 382,99
  2d_poly_to 373,99
  2d_poly_to 346,130
  2d_flood 347,120,cr,cg,cb
  2d_pen_color 0,0,0
return

tete:
  2d_target_is 100
  2d_circle 330,97,15
  for i=1 to 360
      j=106+18*sin(i)
      if j<92
        2d_point 330+18*cos(i),j
      end_if
  next i
  for i=1 to 360
      j=77+18*sin(i)
      if j>91
        2d_point 330+18*cos(i),j
      end_if
  next i
  2d_flood 330,105,0,255,0
  2d_fill_color 0,0,0
  2d_circle 330,92,4
  2d_poly_from 322,100
  2d_poly_to 324,103
  2d_poly_to 327,104
  2d_poly_to 333,104
  2d_poly_to 336,103
  2d_poly_to 338,100
return