Mouse Trap

They say, "It takes a thief to catch a thief." But it also "takes a mouse to catch a mouse," as you will see when you run this little novelty program. Just use your mouse to click the image on the screen ... if you can!

Source Listing

// // Program: Mouse Trap // Author: Tony Molino // Int xm, ym, zm randomize xc=xpixels()/2; yc=ypixels()/2 delay=50 backcolor=1 solid color (backcolor) solid rectangle (0,0,xpixels(),ypixels()) xt=xc; yt=yc mouse (xt,yt,7) @ show mouse Do read mouse (xm,ym,zm) If iabs(xt-xm)<16 And iabs(yt-ym)<14 If !zm Do k=1,delay delay (1) read mouse (xm,ym,zm) If !zm Continue hide mouse pixel=getpixel(xm,ym) If pixel=backcolor Break mouse (xt,yt,13) @ If (Universe()="Pro") Do n=5000,1000,-25 sound (n) delay (1) Loop no sound Endif Else honk Break Loop Endif hide mouse solid color (backcolor) solid rectangle (xt-15,yt-13,xt+15,yt+13) xt=xt+32*random(3)-32 If (iabs(xc-xt)>xc-20) xt=xc yt=yt+32*random(3)-32 If (iabs(yc-yt)>yc-15) yt=yc mouse (xt,yt,7) @ show mouse Endif read quit key (27) Loop Task mouse (Int x, Int y, Int z) line color (0) solid color (z) solid ellipse (x,y+7,10,5) solid ellipse (x,y+3,7,10) solid circle (x-10,y-8,5) solid circle (x+10,y-8,5) line (x-3,y+10,x+3,y+10) line (x-1,y+11,x+1,y+11) line color (8) solid color (6) filled ellipse (x,y+6,3,2) putpixel (x-4,y+9,0) putpixel (x+4,y+9,0) putpixel (x-5,y+9,0) putpixel (x+5,y+9,0) solid color (15) filled ellipse (x-3,y+1,2,3) filled ellipse (x+3,y+1,2,3) solid color (0) solid rectangle (x-3,y+2,x-2,y+3) solid rectangle (x+3,y+2,x+2,y+3)

How To Run The Program If you're feeling ambitious and have nothing better to do, you could just copy the source listing by hand! However, there is a much easier way to do it: Copy the source listing into the Windows Clipboard Paste the Clipboard into a new text document Drop that text document onto the "Drop SiMPLE Listing Here" icon

(If you would like to contribute any of your SiMPLE programs to The Gallery, just e-mail them to us.)

  [ Webmaster | FAQ's | Home Page | Contact Us ]

© Copyright 2006 SiMPLE CodeWorks, Inc. All rights reserved.