Chip 1998 February/CHIP_2_98.iso/software/testsoft/muzea/exemusei/shared.cst/00902_Script_Rgen

Text File | 1987-04-12 | 419b | 20 lines

on Rgen R
  cursore
  MovSpr R-12
  MovSpr R-24
  updatestage
  repeat while rollover(R)
    if the mousedown then
      suonainterruttore
      put R-24 into S
      put the locH of sprite S into H
      repeat with k = 1 to 30
        set the locH of sprite S = H+k*20
        set the blend of sprite S = 100-k*3
        updatestage
      end repeat
      exit repeat
    end if
  end repeat
end