-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)