home *** CD-ROM | disk | FTP | other *** search
/ Seeker / Seeker.iso / files_w / minka_a.dir / 00048.ls < prev    next >
Encoding:
Text File  |  1994-12-06  |  532 b   |  22 lines
  1. on mouseDown
  2.   global getitems
  3.   if the castNum of sprite clickOn() <> 0 then
  4.     cursor([247, 248])
  5.     repeat while the stillDown
  6.       set the locH of sprite clickOn() to mouseH()
  7.       set the locV of sprite clickOn() to mouseV()
  8.       updateStage()
  9.     end repeat
  10.     cursor(200)
  11.     if rollOver(4) then
  12.       setAt(getitems, 6, 0)
  13.       puppetSprite(36, 1)
  14.       set the castNum of sprite 36 to 0
  15.       repeat with i = 1 to 27
  16.         set the cursor of sprite i to 0
  17.       end repeat
  18.       go("DOG_2")
  19.     end if
  20.   end if
  21. end
  22.