Micro-ondes trash

rem ' Micro-ondes
  dim a$ , i% , j% , k% , tc%
  label how , quoi , voir
 
rem form0
  left 0,400
  top 0,100
  width 0,800
  height 0,480
  color 0,150,150,150
  caption 0,"Micro-ondes"

picture 10 : rem Porte
  left 10,100
  top 10,80
  width 10,400
  height 10,280
  2d_target_is 10
  fermer()
 
button 20
  left 20,600
  top 20,20
  width 20,160
  height 20,50
  font_bold 20
  font_size 20,12
  caption 20,"Explications"
  on_click 20,quoi
 
for i%=1 to 3
  button i%*10+40
      inactive i%*10+40
      left i%*10+40,620
      top i%*10+40,i%*90-10
      width i%*10+40,120
      height i%*10+40,80
      font_bold i%*10+40
      font_size i%*10+40,20
      caption i%*10+40,i%
      on_click i%*10+40,how
next i%

button 80
  inactive 80
  left 80,600
  top 80,350
  width 80,160
  height 80,50
  font_bold 80
  font_size 80,12
  caption 80,"Ouvrir"
  on_click 80,voir

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

how:
  tc%=number_click
  select tc%/10-4
      case 1 : un()
      case 2 : deux()
      case 3 : trois()
  end_select
return

sub deux()
  inactive tc%
  marche()
  active 80
  caption 80,"Ouvrir"
end_sub

sub fermer()
  2d_clear
  2d_pen_color 0,0,0
  2d_fill_color 0,0,0
  2d_fill_diagonal_cross
  2d_rectangle 0,0,400,280
end_sub

sub marche()
  midi_on
      midi_volume 127
      for i%=1 to 60
        left 0,400+int(rnd(11))-5
        top 0,100+int(rnd(11))-5
        if tc%=70
            if i%=38
              left 0,380
              top 0,70
              midi_instrument 127
              midi_play 60,9
              left 0,400
              top 0,100
            end_if
            if i%=40
              left 0,415
              top 0,75
              midi_instrument 127
              midi_play 60,9
              left 0,400
              top 0,100
            end_if
        end_if
        midi_instrument 127
        midi_play int(rnd(20))+21,10
      next i%
  midi_off
end_sub

sub one()
  2d_circle 162,103,28
  2d_circle 150,100,7
  2d_circle 175,100,7
  2d_circle 150,100,3
  2d_circle 175,100,3
  2d_circle 200,175,65
  2d_line 138,68,140,88
  2d_line 138,68,155,80
  2d_line 178,66,165,78
  2d_line 178,66,179,85
  2d_pen_width 20
  2d_line 145,190,125,230
  2d_line 175,190,155,230
  2d_circle 115,230,2
  2d_circle 150,230,2
  for i%=255 to 265
      2d_circle i%,210-(i%/5-50)*45,2
  next i%
  2d_circle 264,64,2
  2d_circle 260,60,2
  2d_circle 256,58,2
  2d_circle 252,58,2
  2d_circle 248,60,2
  2d_circle 244,62,2
  2d_flood 150,100,0,0,0
  2d_flood 175,100,0,0,0
  2d_flood 162,110,0,0,0
  2d_flood 200,180,0,0,0
  2d_flood 145,75,0,0,0
  2d_flood 175,70,0,0,0
  2d_flood 178,117,0,0,0
  2d_pen_width 1
  for i%=10 to 360 step 7
      for j%=10 to 360 step 15
        2d_line 200+55*sin(i%),175+55*cos(i%),200+55*sin(i%)+20*sin(j%),175+55*cos(i%)+20*cos(j%)
      next j%
  next i%
end_sub

sub ouvrir()
  2d_clear
  2d_fill_off
  select tc%/10-4
      case 1 : one()
      case 2 : two()
      case 3 : three()
  end_select
end_sub

quoi:
  inactive 20
  application_title "Le pourquoi du comment :"
  a$="  Vous avez enfin réussi à coincer ce sale chat qui pissait sur votre balcon"+chr$(13)
  a$=a$+"et prenait vos vasques de fleurs pour des litières, en l'attirant dans"+chr$(13)
  a$=a$+"votre micro-ondes où vous aviez laissé traîner un vieux morceau de viande,"+chr$(13)
  a$=a$+"et vous lui en avez claqué la porte au nez !"+chr$(13)+chr$(13)
  a$=a$+"  Aussi, d'une main rageuse, vous allez pouvoir lui rendre la monnaie"+chr$(13)
  a$=a$+"de sa pièce. Bien sûr, votre grand coeur va vous commander de rester"+chr$(13)
  a$=a$+"indulgent et de ne lui appliquer les 3 niveaux d'ondes que un par un..."
  message a$
  active 50
return

sub three()
  inactive 80
  for i%=1 to 3500
      j%=int(rnd(400))+1
      k%=int(rnd(280))+1
      2d_line j%,k%,j%+10*sin(i%),k%+10*cos(i%)
  next i%
  2d_fill_color 255,255,255
  2d_circle 180,10,12
  2d_circle 180,13,3
  2d_flood 180,13,0,0,0
  2d_fill_off
  pause 999
  for i%=10 to 269
      2d_pen_color 255,255,255
      2d_fill_color 255,255,255
      2d_circle 180,i%,12
      2d_pen_color 0,0,0
      2d_circle 180,i%+1,12
      2d_circle 180,i%+4,3
      2d_flood 180,i%+4,0,0,0
      2d_fill_off
      pause 10
  next i%
end_sub

sub trois()
  inactive tc%
  marche()
  active 80
  caption 80,"Ouvrir"
end_sub

sub two()
  2d_circle 162,103,38
  2d_circle 145,95,12
  2d_circle 170,90,7
  2d_circle 150,90,3
  2d_circle 170,90,3
  2d_circle 200,175,65
  2d_line 120,22,134,80
  2d_line 120,22,155,70
  2d_line 178,16,165,68
  2d_line 178,16,185,75
  2d_pen_width 20
  2d_line 145,190,125,230
  2d_line 175,190,155,230
  2d_circle 115,230,2
  2d_circle 150,230,2
  for i%=255 to 265
      2d_circle i%,210-(i%/5-50)*45,2
  next i%
  2d_flood 150,90,0,0,0
  2d_flood 170,90,0,0,0
  2d_flood 162,110,0,0,0
  2d_flood 200,180,0,0,0
  2d_flood 130,60,0,0,0
  2d_flood 175,60,0,0,0
  2d_flood 180,125,0,0,0
  2d_pen_width 1
  for i%=10 to 360 step 7
      for j%=10 to 360 step 20
        2d_line 200+65*sin(i%),175+65*cos(i%),200+65*sin(i%)+20*sin(j%),175+65*cos(i%)+20*cos(j%)
      next j%
  next i%
  for i%=10 to 360 step 5
      2d_line 265,68,265+35*sin(i%),68+35*cos(i%)
  next i%
end_sub

sub un()
  inactive 20
  inactive tc%
  marche()
  active 80
  caption 80,"Ouvrir"
end_sub

voir:
  if caption$(80)="Ouvrir"
      caption 80,"Fermer"
      ouvrir()
      if tc%=70
        inactive 80
      end_if
  else
      if tc%<70
        active tc%+1*10
      end_if
      inactive 80
      fermer()
  end_if
return