Stopping an Animation with User Input

[Strawberry]

Well for my screensavers ISP, I need some help

% Flowers
procedure flowers
cls
loop
pinkFlower := Pic.Scale (pinkFlower, 1130, 800)
Pic.DrawSpecial (pinkFlower, 0, 0, picCopy, picGrowTopToBottomNoBar, transition)
delay (transition)
yellowFlower := Pic.Scale (yellowFlower, 1130, 800)
Pic.DrawSpecial (yellowFlower, 0, 0, picCopy, picFadeIn, transition)
delay (transition)
mixedFlower := Pic.Scale (mixedFlower, 1130, 800)
Pic.DrawSpecial (mixedFlower, 0, 0, picCopy, picSlideRightToLeft, transition)
delay (transition)
purpleFlower := Pic.Scale (purpleFlower, 1130, 800)
Pic.DrawSpecial (purpleFlower, 0, 0, picCopy, picGrowLowerLeftToUpperRightNoBar, transition)
delay (transition)
lonelyFlower := Pic.Scale (lonelyFlower, 1130, 800)
Pic.DrawSpecial (lonelyFlower, 0, 0, picCopy, picGrowCenterToEdgeNoBar, transition)
delay (transition)
redFlower := Pic.Scale (redFlower, 1130, 800)
Pic.DrawSpecial (redFlower, 0, 0, picCopy, picSlideLeftToRight, transition)
delay (transition)
end loop
end flowers

^ This is a part of my code.
The problem is that I need to password protect my screensaver. I just need help with knowing how to stop the animation at any time when the user clicks a mouse button. Even if i wanted to display button inside my animation, is there a way of making it show throughout the whole animation.

Thank you.

[imbored]

errr use hasch
hasch checks if a button is pressed or not
loop
exit when hasch
end loop

go to help and search Hasch in index if you need more help

[StuartG]

Hasch works if the input is from the keyboard, not the mouse.

If you want it to exit whenever a mouse button is clicked then just throw in Mouse.Where (x,y,button) inside your loop and exit it whenever button > 0.

As for if you want a button to appear than just draw a button inside your loop and do the same above except make sure that you set up specific boundaries for the location of the mouse to make sure its actually inside the box. eg.

If you got a box thats set at (100,100,400,200) then whenever the x value of the button is > 100 but <400 and the y value is >100 but <400 than the mouse is inside the box.