home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / muzea / exemusei / shared.cst / 00906_Script_Rpae < prev    next >
Text File  |  1987-04-12  |  339b  |  18 lines
  1. on Rpae R
  2.   cursore
  3.   MovSpr R-12
  4.   MovSpr R-24
  5.   updatestage  
  6.   repeat while rollover(R)
  7.     if the mousedown then
  8.       suonainterruttore
  9.       put R-24 into S
  10.       repeat with k = 10 down to 1
  11.         set the blend of sprite S = k*10
  12.         updatestage
  13.       end repeat
  14.       exit repeat
  15.     end if
  16.   end repeat
  17. end
  18.