|
stdcall void AsEntry()
Graphics 800, 600, 0, 60, 0
while !KeyHit(Keys.Escape)
Cls
for var x = 0 until 3
for var y = 0 until 3
Square 10 + x * 110, 10 + y * 110, 100, 100
Flip -1
void Square(int x, y, w, h)
if x <= MouseX() <= x + w and y <= MouseY() <= y + h
SetColor 255, 255, 255
else SetColor 150, 150, 150
DrawRect x, y, w, h
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.