Saint Valentin

rem ' Valentinoramic - La fête de la Saint-Valentin
  dim i% , j% , x%(12) , y%(12)
 
rem initialisation
  for i%=1 to 12
      x%(i%)=int(rnd(580))-10
      y%(i%)=int(rnd(625))-100
  next i%
 
rem form0
  left 0,400
  top 0,50
  width 0,660
  height 0,685
  caption 0,"Pour arrêter, pressez la touche ENTER"
 
picture 50
  left 50,10
  top 50,10
  width 50,625
  height 50,625
  font_name 50,"Webdings"
  font_size 50,65
  print_target_is 50
  print_locate 275,226
  print chr$(90)
  2d_target_is 50
  2d_fill_color 0,0,0
  2d_pen_color 0,0,0
  2d_pen_width 20
  homme()
  femme()
  file_save 50,"St-Val.bmp"
  2d_clear
  width 50,65
  height 50,100
  2d_fill_off
  color 50,0,0,0
  font_color 50,255,0,0
  font_name 50,"Symbol"
  print_locate 0,0
  print chr$(169)
  file_save 50,"Coeur.bmp"
  hide 50

scene2d 80
  left 80,10
  top 80,10
  width 80,625
  height 80,625
  sprite_target_is 80
  file_load 80,"St-Val.bmp"

rem Définition des sprites
  for i%=1 to 12 : rem de 100 à 210 à pas de 10
      sprite i%*10+90
        sprite_file_load i%*10+90,"Coeur.bmp"
        sprite_position i%*10+90,i%*40,-100
  next i%
  chute()
  beep
  caption 0,"Bonnes fêtes de la Saint Valentin !"
  file_delete "St-Val.bmp"
  file_delete "Coeur.bmp"
 
end

sub chute()
  for i%=1 to 10000
      for j%=1 to 12
        y%(j%)=y%(j%)+1
        if y%(j%)>625
            y%(j%)=-100
            x%(j%)=int(rnd(580))-10
        end_if
        sprite_position j%*10+90,x%(j%),y%(j%)
        echap()
      next j%
  next i%
end_sub

sub echap()
  if scancode=13
      i%=10000
  end_if
end_sub

sub femme()
  2d_circle 495,89,50
  2d_circle 493,220,55
  2d_poly_from 457,197
  2d_poly_to 420,251
  2d_poly_to 385,279
  2d_poly_to 362,294
  2d_poly_from 457,177
  2d_poly_to 420,231
  2d_poly_to 385,259
  2d_poly_to 362,276
  2d_circle 362,287,9
  2d_poly_from 545,205
  2d_poly_to 584,254
  2d_poly_to 602,297
  2d_poly_from 552,230
  2d_poly_to 584,280
  2d_poly_to 602,320
  2d_circle 600,308,4
  2d_poly_from 450,325
  2d_poly_to 431,439
  2d_poly_from 538,330
  2d_poly_to 560,439
  2d_poly_from 466,400
  2d_poly_to 466,572
  2d_poly_from 484,400
  2d_poly_to 484,572
  2d_circle 475,572,9
  2d_poly_from 525,400
  2d_poly_to 525,572
  2d_poly_from 509,400
  2d_poly_to 509,572
  2d_circle 517,572,9
  2d_line 431,439,560,439
  2d_line 440,227,447,350
  2d_line 550,220,540,350
  2d_flood 490,360,0,0,0
end_sub

sub homme()
  2d_circle 203,179,45
  2d_circle 175,290,43
  2d_circle 157,397,43
  2d_line 130,290,114,397
  2d_line 216,304,200,397
  2d_poly_from 213,301
  2d_poly_to 257,314
  2d_poly_to 288,312
  2d_poly_to 310,308
  2d_poly_from 213,281
  2d_poly_to 257,294
  2d_poly_to 288,292
  2d_poly_to 310,292
  2d_circle 310,298,9
  2d_poly_from 144,427
  2d_poly_to 133,531
  2d_poly_to 78,553
  2d_poly_to 27,567
  2d_poly_from 124,427
  2d_poly_to 115,520
  2d_poly_to 78,533
  2d_poly_to 27,550
  2d_circle 27,560,8
  2d_poly_from 144,427
  2d_poly_to 242,456
  2d_poly_to 252,483
  2d_poly_to 262,565
  2d_poly_from 144,407
  2d_poly_to 257,444
  2d_poly_to 270,483
  2d_poly_to 279,565
  2d_circle 271,565,8
  2d_flood 195,355,0,0,0
end_sub

  print_target_is 50 : font_color 50,0,255,0 : ' Couleur du Martien !    
  print_locate 275+20,226-10 : ' pour mieux LOCATEr