home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / acacia / start.dxr / 00074.ls < prev    next >
Encoding:
Text File  |  1996-11-13  |  524 b   |  20 lines
  1. on mouseDown
  2.   global gChemDown
  3.   set gChemDown to 1
  4.   set the memberNum of sprite 4 to 12
  5.   updateStage()
  6. end
  7.  
  8. on mouseUp
  9.   global gChemDown, gTestList, gCursor
  10.   if gChemDown then
  11.     cursor(4)
  12.     set gChemDown to 0
  13.     set the memberNum of sprite 4 to 13
  14.     updateStage()
  15.     set gTestList to [330939: [1101, 9, 0.0, 0.0], 710604: [1101, 9, 0.0, 0.0], 311005: [1101, 9, 0.0, 0.0], 710903: [1101, 9, 0.0, 0.0], 312124: [1101, 9, 0.0, 0.0], 310712: [1101, 9, 0.0, 0.0]]
  16.     set gCursor to 1
  17.     go("finish")
  18.   end if
  19. end
  20.