curieux....

dim fond$  : fond$ ="fond.bmp"
dim titre$ : titre$="Mon Calendrier de l' avent"
dim no%,pict%,sc%,J%,M%,A%,sp%(24,3)

Label clic

' Interface(400,600,titre$)
' Init()

end

Sub Interface(h%,w%,t$)
  dim_local x%,y%,t%,l%,num%
  t%=-100 : l%=-100

  height 0,h%+38 : width 0,w%+16
  top 0,(screen_y -h%)/2 : left 0,(screen_x -w%)/2
  caption 0,t$

  no%=no%+1 :sc%=no%
  Scene2d no% : full_space no%  : cursor_point no% :on_click no%,clic

  for x%=1 to 6
      t%=t%+100
      l%=-100
      for y%=1 to 4
        l%=l%+100
        num%=num%+1
        sp%(num%,1)=t% : sp%(num%,2)=l%
        Sprite num%
        sprite_target_is sc%
        if file_exists("sp_"+str$(num%)+".bmp")=1
            sprite_file_load num%,"sp_"+str$(num%)+".bmp"
        end_if
        sprite_position num%,t%,l%
      next y%
  next x%
  file_load sc%,fond$
End_Sub

Sub Init()
  dim_local x%
  sp%(1,3)=3  :sp%(5,3)=2  :sp%(9,3) =19    :sp%(13,3)=21  :sp%(17,3)=11 :sp%(21,3)=8
  sp%(2,3)=1  :sp%(6,3)=23  :sp%(10,3)=5    :sp%(14,3)=15  :sp%(18,3)=22 :sp%(22,3)=13
  sp%(3,3)=12 :sp%(7,3)=4  :sp%(11,3)=17    :sp%(15,3)=20  :sp%(19,3)=18 :sp%(23,3)=9
  sp%(4,3)=7  :sp%(8,3)=14  :sp%(12,3)=24    :sp%(16,3)=16  :sp%(20,3)=10 :sp%(24,3)=6
  J%=val(left$(date$,2))
  M%=val(mid$(date$,4,2))
  A%=val(right$(date$,4))
  if M%=12
      for x%=1 to 24
        if sp%(x%,3)<J% : sprite_hide x% : end_if
      next x%
  end_if
End_sub

clic:
  Open_windows()
return

Sub Open_windows()
  dim_local x%,y%
  x%=mouse_x_position(sc%)
  y%=mouse_y_position(sc%)
  caption 0,str$(x%)+" - "+str$(y%)
Exit_sub