home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 25 / CDMM_25.iso / takeru / g078 / jail.dxr / Internal_251_31.PICT.ls < prev    next >
Encoding:
Text File  |  1996-09-04  |  611 b   |  23 lines
  1. on mouseDown
  2.   global gClueList
  3.   if not soundBusy(2) then
  4.     set theOne to getOne(gClueList, 0)
  5.     puppetSound(2, member theOne of castLib 2)
  6.     updateStage()
  7.     if the castNum of sprite 40 = 251 then
  8.       set listmovs to [251, 252, 253]
  9.       repeat while soundBusy(2)
  10.         set the castNum of sprite 40 to getAt(listmovs, random(3))
  11.         updateStage()
  12.         myDelay(10)
  13.       end repeat
  14.       set the castNum of sprite 40 to 251
  15.     end if
  16.     setProp(gClueList, theOne, 1)
  17.     if getAt(gClueList, 3) = 1 then
  18.       set the castNum of sprite 40 to 254
  19.       updateStage()
  20.     end if
  21.   end if
  22. end
  23.