JJN4_RENTRER_MAISON

' JJN4 Rentrer Maison...

Retourne_Dimension_Bandeau_Et_Bord() :' retourne bandeau%,bord%

dim y%,x%,n%,vit%

  width 0,1000+(bord%*2) : height 0,800+bandeau%+bord%
  top 0,(screen_Y - height(0))/2 : left 0,(screen_x - width(0))/2
  caption 0,"JJ rentre à la maisonN"

dim rep$,repimage$
  rep$=dir_current$+chr$(92) : repimage$=rep$+"img" : dir_change repimage$

  scene2d 100 : width 100,width(0)-(bord%*2) : height 100,height(0)-(bandeau%+bord%)
  file_load 100,"Fond1.bmp"

  sprite 101 : sprite_file_load 101,"SoucoupeH.bmp"
  sprite_position 101,-40,-40

  sprite 102 : sprite_file_load 102,"Maison_JJN4.bmp"
  sprite_position 102,740,360

  sprite 104 : sprite_file_load 104,"SoucoupeV.bmp"
  sprite_position 104,-40,-40

  sprite 103 : sprite_file_load 103,"JJN4.bmp"
  sprite_position 103,-40,-40

  sprite 105 : sprite_file_load 105,"bulle.bmp"
  sprite_position 105,-400,-400


  sprite_show_all
  pause 1000
  vit%=1
  start()
END

rem ====================================' détection des dimensions de la fenêtre
SUB start()
    dim_local s   : ' <============================== Une trouvaille de Papydall
 for y%=-40 to 320
     x%=x%+1
     sprite_position 101,x%,y%
'     pause vit%
 next y%
 n%=sprite_x_position(101)
 for x%=n% to 460
     y%=y%+1
     sprite_position 101,x%,y%
     pause vit%
 next x%
 for x%=460 to 560
'     y%=y%+1
     sprite_position 101,x%,y%
     pause vit%
 next x%
 for x%=560 to 660
     y%=y%+1
     sprite_position 101,x%,y%
     pause vit%
 next x%
 for x%=660 to 860
'     y%=y%+1
     sprite_position 101,x%,y%
     pause vit%
 next x%
 pause vit%*10
 sprite_position 103,x%+20,y%+10
 pause vit%*10
 sprite_position 104,x%,y%
 n%=sprite_x_position(103)
 for x%=n% to n%-200 step -1
 sprite_position 103,x%,y%+10
     pause vit%
 next x%
 sprite_position 105,x%-270,y%-160
' ============== Début de l'idée super extra géniale de Papydall ===============
  pause 1000

 for s = 1 to .1 step -.1
     sprite_scale 105,s,s
     sprite_scale 103,s,s : pause 200
 next s
' ============== Fin de l'idée super extra géniale de Papydall =================
END_SUB
rem ============================================================================
SUB Retourne_Dimension_Bandeau_Et_Bord()
    ' controle de la position de la procédure dans le programme
    IF NUMBER_OBJECTS>0
       message "La SUB 'Retourne_Dimension_Bandeau_Et_Bord' doit être placée avant la création du premier objet !"
       terminate
    END_IF
    ' création des VARIABLES GLOBALES
    IF VARIABLE("bandeau%")=0 then DIM bandeau%
    IF VARIABLE("bord%")=0 then DIM bord%
    ' Calcul de bandeau% et bord%
    dim_local w0%,h0%,w1%,h1%,w2%,h2%
    w0%=WIDTH(0) : h0%=HEIGHT(0)
    picture 1 : full_space 1 : w1%=WIDTH(1) : h1%=HEIGHT(1)
    w2%=w0%-w1% : h2%=h0%-h1% : bandeau%=h2%-(w2%/2) : bord%=w2%/2
    ' Suppression du Picture devenu inutile
    delete 1
END_SUB