quel objet choisir?

' Clic 2D - Exemple

' Déclaration des variables
 dim Collision_detecte, Boutton_pos_x, Boutton_pos_y,Boutton_taille_x ,Boutton_taille_y

' Déclaration des Labels
 Label Gestion_evenement, Detection_collision

' Initialisation des variables
  Collision_detecte = 0
  Boutton_pos_x = 100
  Boutton_pos_y = 100
  Boutton_taille_x = 50
  Boutton_taille_y = 50
  

' On met la fenetre en plein écran
 full_space 0

' Création de la scene 2d avec une image de fond
 scene2d 1 : full_space 1 : file_load 1,"Fond.bmp"

' Création du sprite du boutton
 sprite 2 : : sprite_file_load 2,"Boutton.bmp" : sprite_position 2,Boutton_pos_x,Boutton_pos_y


' Création d'un timer pour la gestion des évenements 2D
timer 3 : on_timer 3,Gestion_evenement : timer_interval 3,100

' Activation du timer 2 (programme principal)
timer_on 3

end

Gestion_evenement:

 ' Touche quitter
 if scancode=27
  timer_off 2
  terminate
 end_if
 
 ' On initialise la variable de détection de la collision
 Collision_detecte = 0
 
 ' On vérifie la collision
 gosub Detection_collision
 
 ' On déclenche l'action en fonction du résultat de la détection collision
 if Collision_detecte = 1
  timer_off 3
  message "Clic sur le boutton détecté !"
  timer_on 3
 end_if

 return

Detection_collision:

 if mouse_x_position(1) >= Boutton_pos_x and mouse_x_position(1)<= Boutton_pos_x + Boutton_taille_x
  if mouse_y_position(1) >= Boutton_pos_y and mouse_y_position(1) <= Boutton_pos_y +  Boutton_taille_y
   if mouse_left_down(1)=1
    Collision_detecte = 1
   end_if
  end_if
 end_if

return

label clique : rem on crée une marque (un "label" en anglais)

picture 1

rem visualise le fichier bitmap
 file_load 1,"fraise.bmp"

width 1,261
height 1,277
top 1,100

' button 1 : rem on crée un bouton (objet système numéro 1)

on_click 1,clique : rem à chaque clic sur l'objet 1 on exécute à partir de "clique"

end : rem fin du programme principal

clique:

caption 0 , "on a cliqué" : rem on affiche un texte dans le bandeau de la fenêtre

return : rem fin du sous-programme

' demo_superposition_images.bas

' création du picture visible
width 0,1024 : height 0,750
picture 100 : top 100,10 : left 100,10
  width 100,900 : height 100,544
' création d'un picture pour les incrustations
picture 101 : hide 101 : width 101,300 : height 101,544


KGF_initialize("KGF.dll")

' --------------------------------------------
' on charge l'image de fond
' --------------------------------------------
'
  file_load 100,"Fond2.bmp"
' on la place dans le presse-papier
  clipboard_copy 100
' on charge cette image dans l'image interne
  LoadPicture()

' --------------------------------------------------
' on charge l'image de la bande 1 à incruster dessus
' --------------------------------------------------
' on charge une image à incruster dansl'image de fond
' file_load 101,"Left1.bmp"
' on la place dans le presse-papier
' clipboard_copy 101
' incuster cette image dans l'image de fond
' elle sera placée à partir de (150,23) de l'image de fond
' avec un taux de transparence de 50% (0%: invisible et 100% = opaque)
' et la couleur noire (0,0,0) est considérée comme transparente
' ModifyPicture(150,23,50,0,0,0)
  ' ModifyPicture(0,0,100,0,0,0)  : ' Mur à gauche
'  file_load 101,"Left1b.bmp"
'  clipboard_copy 101
'  ModifyPicture(0,36,100,0,0,0)  :  ' Mur gauche de face rang 1
  file_load 101,"Left1f.bmp"
  clipboard_copy 101
  ModifyPicture(0,106,100,0,0,0)  : ' Mur gauche au rang 2


' --------------------------------------------
' on charge l'image de la bande 2
' --------------------------------------------

  file_load 101,"Left2t.bmp"
  clipboard_copy 101
  ModifyPicture(128,106,100,0,0,0)  : ' Mur gauche 2 au rang 2


' --------------------------------------------
' on charge l'image de la bande 3
' --------------------------------------------

'  file_load 101,"Middlet.bmp"
'  clipboard_copy 101
'  ModifyPicture(300,106,100,0,0,0)  : ' Mur au centre rang 2

  file_load 101,"Middleb2.bmp"
  clipboard_copy 101
  ModifyPicture(300,106,100,0,0,0)  : ' 2 murs de chaque côté au rang 2

'  file_load 101,"Middlel2.bmp"
'  clipboard_copy 101
'  ModifyPicture(300,106,100,0,0,0)  : ' 1 murs à gauche au rang 2

'  file_load 101,"Middler2.bmp"
'  clipboard_copy 101
'  ModifyPicture(300,106,100,0,0,0)  : ' 1 murs à droite au rang 2

' --------------------------------------------
' on charge l'image de la bande 4
' --------------------------------------------

'  file_load 101,"Right2.bmp"
'  clipboard_copy 101
'  ModifyPicture(596,38,100,0,0,0)  : ' Mur droite 2
  file_load 101,"Right2t.bmp"
  clipboard_copy 101
  ModifyPicture(596,106,100,0,0,0)  : ' Mur droite 2 de face rang 2

' --------------------------------------------
' on charge l'image de la bande 5
' --------------------------------------------

'  file_load 101,"Right1b.bmp"
'  clipboard_copy 101
'  ModifyPicture(768,38,100,0,0,0)  : ' Mur droite de face rang 1
'  file_load 101,"Right1.bmp"
'  clipboard_copy 101
'  ModifyPicture(768,0,100,0,0,0)  : ' Mur à droite
  file_load 101,"Right1f.bmp"
  clipboard_copy 101
  ModifyPicture(768,106,100,0,0,0)  : ' Mur à droite de face rang 2

' répéter cette opération pour toutes les incrustations
' dans l'image de fond, puis:

' récupérer l'image interne vers le presse-papier
  savePicture()
' et copier le résultat dans le picture d'affichage:
  clipboard_paste 100

' et voilà, le tour est joué !

  end

  #INCLUDE "KGF_SUB.bas"