Tuloksena tuli ColorPick! Eli ColorPick funktioon annetaan parametrit x, y ja sitten vielä jos haluaa niin muistissa olevan kuvan kahva (tässä piilee koko funktion kätevyys).
Code: Select all
img = LoadImage("Media\Map.BMP")
Repeat
DrawImage img, 0, 0
Color 0, 0, 0
Box MouseX(), MouseY(), 20, 20, 0
ColorPick(MouseX()+1, MouseY()+1)
Box MouseX()+1, MouseY()+1, 18, 18
DrawScreen
Forever
//Funktio
Function ColorPick(x, y, source =-1)
If source < 0 Then
source = SCREEN()
Else
source = Image(source)
EndIf
Lock source
pix = GetPixel2(x, y, source)
Color 0, 0, pix
Unlock source
Return False
End Function