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