home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 10 / MacAddict_010_1997_06.iso / media / sharew.Dxr / Internal_19.ls < prev    next >
Encoding:
Text File  |  1997-03-25  |  897 b   |  35 lines
  1. on mouseDown
  2.   global gTB
  3.   puppetSound(2, 0)
  4.   puppetSound(2, "pioolb")
  5.   flashLights()
  6.   repeat with i = 11 to 18
  7.     set the visible of sprite i to 0
  8.   end repeat
  9.   set ml to -999
  10.   repeat while the mouseDown
  11.     if (the mouseLine > 0) and (the mouseLine <> ml) then
  12.       set ml to the mouseLine
  13.       set err to mGo(gTB, ml)
  14.       updateDisplay()
  15.       next repeat
  16.     end if
  17.     if the mouseLine < 0 then
  18.       pass()
  19.     end if
  20.   end repeat
  21.   set oldFont to the textFont of member "dummyField"
  22.   set oldSize to the textSize of member "dummyField"
  23.   set the text of field "dummyField" to field "description" & RETURN
  24.   set the textFont of member "dummyField" to oldFont
  25.   set the textSize of member "dummyField" to oldSize
  26.   set the textStyle of member "dummyField" to "bold"
  27.   updateStage()
  28. end
  29.  
  30. on flashLights
  31.   repeat with i = 3 to 5
  32.     set the visible of sprite i to 1
  33.   end repeat
  34. end
  35.