home *** CD-ROM | disk | FTP | other *** search
/ Grandes Inventos / INVENTOS.bin / pc / media / alarm.dxr / 00699.ls < prev    next >
Encoding:
Text File  |  1996-01-01  |  481 b   |  18 lines
  1. on checkSprite elSprite, elcast
  2.   repeat with i = 1 to 48
  3.     set the visible of sprite i to 0
  4.   end repeat
  5.   repeat with j = 1 to the lastFrame
  6.     set framecast to the castNum of sprite elSprite
  7.     if (framecast <> elcast) and (framecast <> 0) then
  8.       put "cast " & the castNum of sprite elSprite && "sprite" && elSprite && "frame" && j
  9.     end if
  10.     go(j)
  11.   end repeat
  12.   repeat with i = 1 to 48
  13.     set the visible of sprite i to 1
  14.   end repeat
  15.   beep(3)
  16.   put "Listo"
  17. end
  18.