-Clic sur image-
//recuperation des coordonnées
X,Y sont des entiers
X = SourisPosX()
Y=SourisPosY()
// recupère la couleur sur l'image en couleur
ncouleur est un entier =dPixelCouleur(carte_couleur,X,Y)
SELON FCOUL(ncouleur)
CAS FCOUL(RVB(255,153,0))
CS=("NARBONNE")
alim_liste_nom_table()
CAS FCOUL(RVB(255,204,153))
CS =("CARCASSONNE")
alim_liste_nom_table()
...
-Survol-
//recuperation des coordonnées
X,Y sont des entiers
X = SourisPosX()
Y=SourisPosY()
// recupère la couleur sur l'image en couleur
ncouleur est un entier =dPixelCouleur(carte_couleur,X,Y)
SELON FCOUL(ncouleur)
CAS FCOUL(RVB(255,153,0))
MoiMême..CurseurSouris = curMain
MoiMême..Bulle =("NARBONNE")
CAS FCOUL(RVB(255,204,153))
MoiMême..CurseurSouris = curMain
MoiMême..Bulle =("CARCASSONNE")
-Procedure FCOUL()-
FONCTION FCOUL(Couleur)
// La valeur de filtre correspond au profil binaire hexa: FFF8F8F8
// (chaque couleur est filtrée des bits 40h, 1, 2 et 4)
RENVOYER ETBinaire(Couleur,0xFFF8F8F8)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4838&post_id=20090