home *** CD-ROM | disk | FTP | other *** search
/ Spawn Figure Collection / spawn collection cd.iso / setup / data1.cab / Program_Executable_Files / Collection.dir / 00021.ls < prev    next >
Encoding:
Text File  |  1998-01-19  |  551 b   |  21 lines

  1. on editanim number, mode
  2.   repeat with t = 1 to 3
  3.     set the puppet of sprite (t + 13) to 1
  4.     set the visible of sprite (t + 13) to 1
  5.     if (number = t) or (number = 4) then
  6.       if mode = 0 then
  7.         set the blend of sprite (t + 13) to 100
  8.       else
  9.         set tmp to the blend of sprite (t + 13)
  10.         set tmp to tmp - 25
  11.         if tmp < 0 then
  12.           set tmp to 100
  13.         end if
  14.         set the blend of sprite (t + 13) to tmp
  15.       end if
  16.       next repeat
  17.     end if
  18.     set the visible of sprite (t + 13) to 0
  19.   end repeat
  20. end
  21.