home *** CD-ROM | disk | FTP | other *** search
/ תקליטור אוסף מעל 200 משחקים מרתקים / over-200-games-micro-a-media.iso / CONNECTD / 05DD.DXR / 00356.ls < prev    next >
Encoding:
Text File  |  1996-01-12  |  660 b   |  24 lines
  1. on mouseDown
  2.   global password5d, letterCount5d
  3.   if the doubleClick <> 1 then
  4.     puppetSound("Letter 1")
  5.     set x to chars(the name of cast the mouseCast, 7, 8)
  6.     set the castNum of sprite (x + 2) to the number of cast "doto"
  7.     checksound(1)
  8.     updateStage()
  9.     repeat while the stillDown
  10.       nothing()
  11.     end repeat
  12.     puppetSound("Letter 2")
  13.     set the castNum of sprite (x + 2) to the number of cast ("tablet" & x)
  14.     checksound(1)
  15.     updateStage()
  16.     if letterCount5d < 4 then
  17.       set letterCount5d to letterCount5d + 1
  18.       put x into item letterCount5d of password5d
  19.     else
  20.       set password5d to "0,0,0,0"
  21.     end if
  22.   end if
  23. end
  24.