Décoltinage horaire

rem ' Décoltinage horaire - jjn4 - 27/03/2016
  dim a% , b% , c% , i% , com$(5)
  b%=184
  label go
 
rem datas
  data "Excellent" , "Très bien" , "Bien" , "Assez bien" , "Très passable"
  for i%=1 to 5 : read com$(i%) : next i%

rem form0
  left 0,50
  top 0,50
  width 0,600
  height 0,470
  caption 0,"Décoltinage horaire"

panel 100
  left 100,25
  top 100,25
  width 100,300
  height 100,300
  font_name 100,"Wingdings"
  font_size 100,250
  caption 100,chr$(b%)

button 200
  left 200,25
  top 200,350
  width 200,140
  height 200,60
  font_name 200,"Wingdings"
  font_size 200,50
  caption 200,chr$(239)
  on_click 200,go
 
button 300
  left 300,185
  top 300,350
  width 300,140
  height 300,60
  font_name 300,"Wingdings"
  font_size 300,50
  caption 300,chr$(240)
  on_click 300,go

panel 400
  left 400,350
  top 400,25
  width 400,140
  height 400,75
  font_bold 400
  font_size 400,50
  font_name 400,"Arial"
  caption 400,c%
 
alpha 500
  hide 500
  left 500,350
  top 500,125
  font_bold 500
  font_size 500,25
  font_color 500,255,0,0
  caption 500,"Bravo, vous"+chr$(13)+"avez gagné"
 
alpha 600
  left 600,350
  top 600,225
  font_bold 600
  font_size 600,25
  font_color 600,0,0,255

alpha 700
  left 700,350
  top 700,350
  font_bold 700
  font_size 700,16
  caption 700,"Mettez cette"+chr$(13)+"horloge à 3 heures"
 
end

go:
  a%=(number_click-100)/100
  select a%
      case 1 : moins()
      case 2 : plus()
  end_select
return

sub moins()
  a%=int(rnd(40))+1
  for i%=1 to a%
      b%=b%-1
      if b%<183
        b%=194
      end_if
      caption 100,chr$(b%)
      pause 100
  next i%
  c%=c%+1
  caption 400,c%
  verif()
end_sub

sub plus()
  a%=int(rnd(40))+1
  for i%=1 to a%
      b%=b%+1
      if b%>194
        b%=183
      end_if
      caption 100,chr$(b%)
      pause 100
  next i%
  c%=c%+1
  caption 400,c%
  verif()
end_sub

sub verif()
  if b%=185
      inactive 200
      inactive 300
      show 500
      a%=int(c%/2)+1
      if a%>5
        a%=5
      end_if
      caption 600,str$(c%)+" coups"+chr$(13)+com$(a%)
      if a%>3
        font_name 700,"Wingdings"
        font_size 700,50
        caption 700,chr$(76)+chr$(77)+chr$(78)
      else
        hide 700
      end_if
  end_if
end_sub

rem ============================================================================
color 0,0,192,192
picture 10 : width 10,width(0)-20 : height 10,height(0)-50
2d_target_is 10 : print_target_is 10
font_bold 10 : font_name 10,"arial black" : font_size 10,14 : 2d_fill_color 0,128,0
Soucoupe(300,200,250,100,1)

end
rem ============================================================================
SUB Ellipse(xc,yc,r1,r2,taille)
    dim_local a,xp,yp
    degrees
    2d_pen_color mod(r1+r2,255),mod(abs(r1-r2),255),mod(r1-r2,255)
    2d_poly_from xc + taille * r1,yc
    for a = 0 to 360
       2d_poly_to xc + taille * r1 * cos(a), yc + taille * r2 * sin(a)
    next a
    2d_flood xc,yc,mod(r1+r2,255),mod(abs(r1-r2),255),mod(r1-r2,255)
END_SUB
rem ============================================================================
SUB Soucoupe(xc,yc,r1,r2,taille)
    dim_local i
    Ellipse(xc,yc,r1,r2,taille)
    Ellipse(xc,yc-r2-2,r1,r2,taille * .5)
    Ellipse(xc,yc-1.5*r2-5,r1,r2,taille * .25)
    pause 1000
    for i = 1 to 5
        2d_flood xc,yc,0,128,0
        print_locate xc-xc/2,yc : print "Décollage immédiat pour Mars"
        pause 1000
        2d_flood xc,yc,255,128,64 : pause 500
    next i
    for i = 10 to 500 step 10 : top 10,0-i : pause 100 : next i

END_SUB
rem ============================================================================

rem ============================================================================
color 0,0,192,192
picture 10 : width 10,width(0)-20 : height 10,height(0)-50
2d_target_is 10 : print_target_is 10
font_bold 10 : font_name 10,"arial black" : font_size 10,10 : 2d_fill_color 0,128,0
Soucoupe(300,200,250,100,1)

end
rem ============================================================================
SUB Ellipse(xc,yc,r1,r2,taille)
    dim_local a,xp,yp
    degrees
    2d_pen_color mod(r1+r2,255),mod(abs(r1-r2),255),mod(r1-r2,255)
    2d_poly_from xc + taille * r1,yc
    for a = 0 to 360
       2d_poly_to xc + taille * r1 * cos(a), yc + taille * r2 * sin(a)
    next a
    2d_flood xc,yc,mod(r1+r2,255),mod(abs(r1-r2),255),mod(r1-r2,255)
END_SUB
rem ============================================================================
SUB Soucoupe(xc,yc,r1,r2,taille)
    dim_local i,
    Ellipse(xc,yc,r1,r2,taille)
    Ellipse(xc,yc-r2-2,r1,r2,taille * .5)
    Ellipse(xc,yc-1.5*r2-5,r1,r2,taille * .25)
    
    Ellipse(xc,yc+r2+2,r1,r2,taille * .5)
    Ellipse(xc,yc+1.5*r2+5,r1,r2,taille * .25)
    
    pause 1000
    for i = 1 to 5
        2d_flood xc,yc,0,128,0
        print_locate xc-xc/4,yc : print "Décollage immédiat"
        2d_pen_color 255,128,64
        Ellipse(xc,yc,r1,r2,.5)
        Ellipse(xc,yc-yc/4,r1/2,r2/2,.5) : 2d_flood xc,yc-yc/4,255,128,64
        2d_flood xc,yc-yc/4-5,255,128,64
        pause 500
        2d_flood xc,yc,255,128,64 : pause 500
    next i
    for i = 10 to 500 step 10 : top 10,0-i : pause 100 : next i

END_SUB
rem ============================================================================