.net 1998 October/dotnet_50.iso/pc/media/check.dxr/00009_filtre.ls

Text File | 2001-01-30 | 286 b | 18 lines

on mouseUp
  repeat with i = 1 to 5
    sprite(20).blend = i * 20
    updateStage()
  end repeat
  if the machineType = 256 then
    go("pc")
  else
    go("mac")
  end if
  cc = 5
  repeat while cc > -1
    sprite(20).blend = cc * 20
    cc = cc - 1
    updateStage()
  end repeat
end