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