Chip 1998 February/CHIP_2_98.iso/software/testsoft/muzea/exemusei/shared.cst/00925_Script_RoANI

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

on RoAni R, A, B, C, cC
  cursore
  put 0 into FLAG
  set the castNum of sprite C to the number of cast cC
  put the locH of sprite A into hA
  put the locH of sprite B into hB
  repeat with k = 1 to 4
    set the locH of sprite A = hA-K*10
    set the locH of sprite B = hB+K*10
    updatestage
  end repeat
  repeat while rollover(R)
    if the mousedown then
      suonainterruttore
      put 1 into FLAG
      exit repeat
    end if
  end repeat
  if flag <> 1 then
    repeat with k = 2 down to 1
      set the locH of sprite A = hA-k*20
      set the locH of sprite B = hB+k*20
      updatestage
    end repeat
  end if
end