home *** CD-ROM | disk | FTP | other *** search
/ IBM CD-ROM Sampler / IBM_CD-ROM_Multimedia_Sampler_IBM_1995.iso / ibmms / shadow / s / s2u.dxr / 00020.ls < prev    next >
Encoding:
Text File  |  1995-06-23  |  379 b   |  22 lines
  1. on mouseDown
  2.   global tryMe, incAns, animation
  3.   sound stop 1
  4.   puppetSprite(5, 1)
  5.   if tryMe = 2 then
  6.     go(animation)
  7.     set tryMe to 0
  8.   else
  9.     if tryMe = 1 then
  10.       set the lineSize of sprite 5 to 3
  11.       updateStage()
  12.       set tryMe to 2
  13.       go(incAns)
  14.     else
  15.       if tryMe = 0 then
  16.         go(incAns)
  17.         set tryMe to 1
  18.       end if
  19.     end if
  20.   end if
  21. end
  22.