Chip 1998 February/CHIP_2_98.iso/software/testsoft/muzea/exemusei/shared.cst/00904_Script_Rcri

Text File | 1987-04-12 | 474b | 22 lines

on Rcri R
  cursore
  MovSpr R-9
  MovSpr R-18
  MovSpr R-27
  updatestage
  repeat while rollover(R)
    if the mousedown then
      suonainterruttore
      put R-27 into S
      put the width of sprite S into W
      put the height of sprite S into H
      repeat with k = 1 to 30
        set the height of sprite S = H-k*4
        set the width of sprite S = W-k*4
        updatestage
      end repeat
      exit repeat
    end if
  end repeat
end