home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 1996 Counselor / COMPUSERVE.ISO / resource / shared.dir / 00505.ls next >
Encoding:
Text File  |  1996-06-06  |  523 b   |  22 lines
  1. on hilite n, NewCast
  2.   global Tastenstatus
  3.   puppetSprite(n, 1)
  4.   set Oldcast to the castNum of sprite n
  5.   set the castNum of sprite n to NewCast
  6.   updateStage()
  7.   repeat while the mouseDown
  8.     if rollOver(n) = 1 then
  9.       set the castNum of sprite n to NewCast
  10.       set Tastenstatus to 1
  11.       updateStage()
  12.       next repeat
  13.     end if
  14.     set the castNum of sprite n to Oldcast
  15.     set Tastenstatus to 0
  16.     updateStage()
  17.   end repeat
  18.   set the castNum of sprite n to Oldcast
  19.   updateStage()
  20.   puppetSprite(n, 0)
  21. end
  22.