Chip 1998 February/CHIP_2_98.iso/software/testsoft/muzea/exemusei/shared.cst/00936_Script_Rmod

Text File | 1987-04-12 | 647b | 25 lines

on Rmod R, N, H, V
  cursore
  put N & "e.pic" into A
  put N & "e.txt" into C
  set the castNum of sprite 3 = the number of cast A
  set the locH of sprite 4 = H
  set the locV of sprite 4 = V
  set the castNum of sprite 5 to the number of cast C
  updatestage
  repeat while rollover(R)
    if the mousedown then
      suonainterruttore
      set the castNum of sprite 5 = the number of cast "000.pic"
      put the locH of sprite 3 into hA
      repeat with k = 1 to 30
        set the locH of sprite 3 = hA+k*20
        updatestage
      end repeat
      exit repeat
    end if
  end repeat
  updatestage
end