Chip 1998 February/CHIP_2_98.iso/software/testsoft/muzea/exemusei/shared.cst/00907_Script_Atem

Text File | 1987-04-12 | 661b | 28 lines

on Atem R
  cursore
  put 0 into Flag
  put R-21 into A
  put R-20 into B
  put R-22 into C
  put the locH of sprite A into hA
  put the locH of sprite B into hB
  set the locH of sprite C = the locH of sprite C - 1000
  repeat with k = 1 to 4
    set the locH of sprite A = hA-K*20
    set the locH of sprite B = hB+K*20
    updatestage
  end repeat
  repeat while rollover(R)
    if the mousedown then
      suonainterruttore
      repeat with k = 2 down to 1
        set the locH of sprite A = hA-k*30
        set the locH of sprite B = hB+k*30
        updatestage
      end repeat
      exit repeat
    end if
  end repeat
end